diff --git a/GI/Gtk.hs b/GI/Gtk.hs --- a/GI/Gtk.hs +++ b/GI/Gtk.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,6 +17,10 @@ module GI.Gtk.Structs , + + module Data.GI.Base , + + ) where import GI.Gtk.Callbacks @@ -37,4 +42,5 @@ import GI.Gtk.Types import GI.Gtk.Callbacks +import Data.GI.Base diff --git a/GI/Gtk/Callbacks.hs b/GI/Gtk/Callbacks.hs --- a/GI/Gtk/Callbacks.hs +++ b/GI/Gtk/Callbacks.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -606,10 +607,10 @@ Ptr Widget -> Ptr () -> IO () -treeViewSearchPositionFuncWrapper funptrptr _cb tree_view search_dialog _ = do - tree_view' <- (newObject TreeView) tree_view - search_dialog' <- (newObject Widget) search_dialog - _cb tree_view' search_dialog' +treeViewSearchPositionFuncWrapper funptrptr _cb treeView searchDialog _ = do + treeView' <- (newObject TreeView) treeView + searchDialog' <- (newObject Widget) searchDialog + _cb treeView' searchDialog' maybeReleaseFunPtr funptrptr -- callback TreeViewSearchEqualFunc @@ -722,10 +723,10 @@ Ptr TreePath -> Ptr () -> IO () -treeViewMappingFuncWrapper funptrptr _cb tree_view path _ = do - tree_view' <- (newObject TreeView) tree_view +treeViewMappingFuncWrapper funptrptr _cb treeView path _ = do + treeView' <- (newObject TreeView) treeView path' <- (newBoxed TreePath) path - _cb tree_view' path' + _cb treeView' path' maybeReleaseFunPtr funptrptr -- callback TreeViewColumnDropFunc @@ -763,12 +764,12 @@ Ptr TreeViewColumn -> Ptr () -> IO CInt -treeViewColumnDropFuncWrapper funptrptr _cb tree_view column prev_column next_column _ = do - tree_view' <- (newObject TreeView) tree_view +treeViewColumnDropFuncWrapper funptrptr _cb treeView column prevColumn nextColumn _ = do + treeView' <- (newObject TreeView) treeView column' <- (newObject TreeViewColumn) column - prev_column' <- (newObject TreeViewColumn) prev_column - next_column' <- (newObject TreeViewColumn) next_column - result <- _cb tree_view' column' prev_column' next_column' + prevColumn' <- (newObject TreeViewColumn) prevColumn + nextColumn' <- (newObject TreeViewColumn) nextColumn + result <- _cb treeView' column' prevColumn' nextColumn' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' @@ -808,12 +809,12 @@ CInt -> Ptr () -> IO CInt -treeSelectionFuncWrapper funptrptr _cb selection model path path_currently_selected _ = do +treeSelectionFuncWrapper funptrptr _cb selection model path pathCurrentlySelected _ = do selection' <- (newObject TreeSelection) selection model' <- (newObject TreeModel) model path' <- (newBoxed TreePath) path - let path_currently_selected' = (/= 0) path_currently_selected - result <- _cb selection' model' path' path_currently_selected' + let pathCurrentlySelected' = (/= 0) pathCurrentlySelected + result <- _cb selection' model' path' pathCurrentlySelected' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' @@ -1010,10 +1011,10 @@ Int32 -> Ptr () -> IO () -treeDestroyCountFuncWrapper funptrptr _cb tree_view path children _ = do - tree_view' <- (newObject TreeView) tree_view +treeDestroyCountFuncWrapper funptrptr _cb treeView path children _ = do + treeView' <- (newObject TreeView) treeView path' <- (newBoxed TreePath) path - _cb tree_view' path' children + _cb treeView' path' children maybeReleaseFunPtr funptrptr -- callback TreeCellDataFunc @@ -1051,12 +1052,12 @@ Ptr TreeIter -> Ptr () -> IO () -treeCellDataFuncWrapper funptrptr _cb tree_column cell tree_model iter _ = do - tree_column' <- (newObject TreeViewColumn) tree_column +treeCellDataFuncWrapper funptrptr _cb treeColumn cell treeModel iter _ = do + treeColumn' <- (newObject TreeViewColumn) treeColumn cell' <- (newObject CellRenderer) cell - tree_model' <- (newObject TreeModel) tree_model + treeModel' <- (newObject TreeModel) treeModel iter' <- (newBoxed TreeIter) iter - _cb tree_column' cell' tree_model' iter' + _cb treeColumn' cell' treeModel' iter' maybeReleaseFunPtr funptrptr -- callback TranslateFunc @@ -1121,10 +1122,10 @@ Ptr Gdk.FrameClock -> Ptr () -> IO CInt -tickCallbackWrapper funptrptr _cb widget frame_clock _ = do +tickCallbackWrapper funptrptr _cb widget frameClock _ = do widget' <- (newObject Widget) widget - frame_clock' <- (newObject Gdk.FrameClock) frame_clock - result <- _cb widget' frame_clock' + frameClock' <- (newObject Gdk.FrameClock) frameClock + result <- _cb widget' frameClock' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' @@ -1231,12 +1232,12 @@ Word64 -> Ptr () -> IO Word8 -textBufferSerializeFuncWrapper funptrptr _cb register_buffer content_buffer start end length_ _ = do - register_buffer' <- (newObject TextBuffer) register_buffer - content_buffer' <- (newObject TextBuffer) content_buffer +textBufferSerializeFuncWrapper funptrptr _cb registerBuffer contentBuffer start end length_ _ = do + registerBuffer' <- (newObject TextBuffer) registerBuffer + contentBuffer' <- (newObject TextBuffer) contentBuffer start' <- (newBoxed TextIter) start end' <- (newBoxed TextIter) end - result <- _cb register_buffer' content_buffer' start' end' length_ + result <- _cb registerBuffer' contentBuffer' start' end' length_ maybeReleaseFunPtr funptrptr return result @@ -1280,13 +1281,13 @@ CInt -> Ptr () -> IO CInt -textBufferDeserializeFuncWrapper funptrptr _cb register_buffer content_buffer iter data_ length_ create_tags _ = do - register_buffer' <- (newObject TextBuffer) register_buffer - content_buffer' <- (newObject TextBuffer) content_buffer +textBufferDeserializeFuncWrapper funptrptr _cb registerBuffer contentBuffer iter data_ length_ createTags _ = do + registerBuffer' <- (newObject TextBuffer) registerBuffer + contentBuffer' <- (newObject TextBuffer) contentBuffer iter' <- (newBoxed TextIter) iter data_' <- (unpackByteStringWithLength length_) data_ - let create_tags' = (/= 0) create_tags - result <- _cb register_buffer' content_buffer' iter' data_' create_tags' + let createTags' = (/= 0) createTags + result <- _cb registerBuffer' contentBuffer' iter' data_' createTags' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' @@ -1388,9 +1389,9 @@ Ptr RecentFilterInfo -> Ptr () -> IO CInt -recentFilterFuncWrapper funptrptr _cb filter_info _ = do - filter_info' <- (newPtr 56 RecentFilterInfo) filter_info - result <- _cb filter_info' +recentFilterFuncWrapper funptrptr _cb filterInfo _ = do + filterInfo' <- (newPtr 56 RecentFilterInfo) filterInfo + result <- _cb filterInfo' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' @@ -1425,11 +1426,11 @@ Ptr GLib.String -> Ptr GValue -> IO CInt -rcPropertyParserWrapper funptrptr _cb pspec rc_string property_value = do +rcPropertyParserWrapper funptrptr _cb pspec rcString propertyValue = do pspec' <- newGParamSpecFromPtr pspec - rc_string' <- (newBoxed GLib.String) rc_string - property_value' <- (newBoxed GValue) property_value - result <- _cb pspec' rc_string' property_value' + rcString' <- (newBoxed GLib.String) rcString + propertyValue' <- (newBoxed GValue) propertyValue + result <- _cb pspec' rcString' propertyValue' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' @@ -1495,9 +1496,9 @@ Ptr PageSetup -> Ptr () -> IO () -pageSetupDoneFuncWrapper funptrptr _cb page_setup _ = do - page_setup' <- (newObject PageSetup) page_setup - _cb page_setup' +pageSetupDoneFuncWrapper funptrptr _cb pageSetup _ = do + pageSetup' <- (newObject PageSetup) pageSetup + _cb pageSetup' maybeReleaseFunPtr funptrptr -- callback ModuleInitFunc @@ -1599,15 +1600,15 @@ Ptr CInt -> Ptr () -> IO () -menuPositionFuncWrapper funptrptr _cb menu x y push_in _ = do +menuPositionFuncWrapper funptrptr _cb menu x y pushIn _ = do menu' <- (newObject Menu) menu x' <- peek x y' <- peek y - (outx, outy, outpush_in) <- _cb menu' x' y' + (outx, outy, outpushIn) <- _cb menu' x' y' poke x outx poke y outy - let outpush_in' = (fromIntegral . fromEnum) outpush_in - poke push_in outpush_in' + let outpushIn' = (fromIntegral . fromEnum) outpushIn + poke pushIn outpushIn' maybeReleaseFunPtr funptrptr -- callback MenuDetachFunc @@ -1637,10 +1638,10 @@ Ptr Widget -> Ptr Menu -> IO () -menuDetachFuncWrapper funptrptr _cb attach_widget menu = do - attach_widget' <- (newObject Widget) attach_widget +menuDetachFuncWrapper funptrptr _cb attachWidget menu = do + attachWidget' <- (newObject Widget) attachWidget menu' <- (newObject Menu) menu - _cb attach_widget' menu' + _cb attachWidget' menu' maybeReleaseFunPtr funptrptr -- callback ListBoxUpdateHeaderFunc @@ -1849,10 +1850,10 @@ Ptr Gdk.EventKey -> Ptr () -> IO Int32 -keySnoopFuncWrapper funptrptr _cb grab_widget event _ = do - grab_widget' <- (newObject Widget) grab_widget +keySnoopFuncWrapper funptrptr _cb grabWidget event _ = do + grabWidget' <- (newObject Widget) grabWidget event' <- (newPtr 56 Gdk.EventKey) event - result <- _cb grab_widget' event' + result <- _cb grabWidget' event' maybeReleaseFunPtr funptrptr return result @@ -1885,10 +1886,10 @@ Ptr TreePath -> Ptr () -> IO () -iconViewForeachFuncWrapper funptrptr _cb icon_view path _ = do - icon_view' <- (newObject IconView) icon_view +iconViewForeachFuncWrapper funptrptr _cb iconView path _ = do + iconView' <- (newObject IconView) iconView path' <- (newBoxed TreePath) path - _cb icon_view' path' + _cb iconView' path' maybeReleaseFunPtr funptrptr -- callback FontFilterFunc @@ -2058,9 +2059,9 @@ Ptr FileFilterInfo -> Ptr () -> IO CInt -fileFilterFuncWrapper funptrptr _cb filter_info _ = do - filter_info' <- (newPtr 40 FileFilterInfo) filter_info - result <- _cb filter_info' +fileFilterFuncWrapper funptrptr _cb filterInfo _ = do + filterInfo' <- (newPtr 40 FileFilterInfo) filterInfo + result <- _cb filterInfo' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' @@ -2135,9 +2136,9 @@ Ptr Gdk.Color -> Int32 -> IO () -colorSelectionChangePaletteWithScreenFuncWrapper funptrptr _cb screen colors n_colors = do +colorSelectionChangePaletteWithScreenFuncWrapper funptrptr _cb screen colors nColors = do screen' <- (newObject Gdk.Screen) screen - colors' <- (unpackBoxedArrayWithLength 12 n_colors) colors + colors' <- (unpackBoxedArrayWithLength 12 nColors) colors colors'' <- mapM (newBoxed Gdk.Color) colors' _cb screen' colors'' maybeReleaseFunPtr funptrptr @@ -2168,8 +2169,8 @@ Ptr Gdk.Color -> Int32 -> IO () -colorSelectionChangePaletteFuncWrapper funptrptr _cb colors n_colors = do - colors' <- (unpackBoxedArrayWithLength 12 n_colors) colors +colorSelectionChangePaletteFuncWrapper funptrptr _cb colors nColors = do + colors' <- (unpackBoxedArrayWithLength 12 nColors) colors colors'' <- mapM (newBoxed Gdk.Color) colors' _cb colors'' maybeReleaseFunPtr funptrptr @@ -2280,14 +2281,14 @@ Int32 -> Ptr () -> IO () -clipboardTargetsReceivedFuncWrapper funptrptr _cb clipboard atoms n_atoms _ = do +clipboardTargetsReceivedFuncWrapper funptrptr _cb clipboard atoms nAtoms _ = do clipboard' <- (newObject Clipboard) clipboard maybeAtoms <- if atoms == nullPtr then return Nothing else do -- XXX Wrapping a foreign struct/union with no known destructor, leak? - atoms' <- (unpackPtrArrayWithLength n_atoms) atoms + atoms' <- (unpackPtrArrayWithLength nAtoms) atoms atoms'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) atoms' return $ Just atoms'' _cb clipboard' maybeAtoms @@ -2370,10 +2371,10 @@ Ptr SelectionData -> Ptr () -> IO () -clipboardReceivedFuncWrapper funptrptr _cb clipboard selection_data _ = do +clipboardReceivedFuncWrapper funptrptr _cb clipboard selectionData _ = do clipboard' <- (newObject Clipboard) clipboard - selection_data' <- (newBoxed SelectionData) selection_data - _cb clipboard' selection_data' + selectionData' <- (newBoxed SelectionData) selectionData + _cb clipboard' selectionData' maybeReleaseFunPtr funptrptr -- callback ClipboardImageReceivedFunc @@ -2444,10 +2445,10 @@ Word32 -> Ptr () -> IO () -clipboardGetFuncWrapper funptrptr _cb clipboard selection_data info user_data_or_owner = do +clipboardGetFuncWrapper funptrptr _cb clipboard selectionData info userDataOrOwner = do clipboard' <- (newObject Clipboard) clipboard - selection_data' <- (newBoxed SelectionData) selection_data - _cb clipboard' selection_data' info user_data_or_owner + selectionData' <- (newBoxed SelectionData) selectionData + _cb clipboard' selectionData' info userDataOrOwner maybeReleaseFunPtr funptrptr -- callback ClipboardClearFunc @@ -2477,9 +2478,9 @@ Ptr Clipboard -> Ptr () -> IO () -clipboardClearFuncWrapper funptrptr _cb clipboard user_data_or_owner = do +clipboardClearFuncWrapper funptrptr _cb clipboard userDataOrOwner = do clipboard' <- (newObject Clipboard) clipboard - _cb clipboard' user_data_or_owner + _cb clipboard' userDataOrOwner maybeReleaseFunPtr funptrptr -- callback CellLayoutDataFunc @@ -2517,12 +2518,12 @@ Ptr TreeIter -> Ptr () -> IO () -cellLayoutDataFuncWrapper funptrptr _cb cell_layout cell tree_model iter _ = do - cell_layout' <- (newObject CellLayout) cell_layout +cellLayoutDataFuncWrapper funptrptr _cb cellLayout cell treeModel iter _ = do + cellLayout' <- (newObject CellLayout) cellLayout cell' <- (newObject CellRenderer) cell - tree_model' <- (newObject TreeModel) tree_model + treeModel' <- (newObject TreeModel) treeModel iter' <- (newBoxed TreeIter) iter - _cb cell_layout' cell' tree_model' iter' + _cb cellLayout' cell' treeModel' iter' maybeReleaseFunPtr funptrptr -- callback CellCallback @@ -2590,11 +2591,11 @@ Ptr Gdk.Rectangle -> Ptr () -> IO CInt -cellAllocCallbackWrapper funptrptr _cb renderer cell_area cell_background _ = do +cellAllocCallbackWrapper funptrptr _cb renderer cellArea cellBackground _ = do renderer' <- (newObject CellRenderer) renderer - cell_area' <- (newBoxed Gdk.Rectangle) cell_area - cell_background' <- (newBoxed Gdk.Rectangle) cell_background - result <- _cb renderer' cell_area' cell_background' + cellArea' <- (newBoxed Gdk.Rectangle) cellArea + cellBackground' <- (newBoxed Gdk.Rectangle) cellBackground + result <- _cb renderer' cellArea' cellBackground' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' @@ -2713,19 +2714,19 @@ CUInt -> Ptr () -> IO () -builderConnectFuncWrapper funptrptr _cb builder object signal_name handler_name connect_object flags _ = do +builderConnectFuncWrapper funptrptr _cb builder object signalName handlerName connectObject flags _ = do builder' <- (newObject Builder) builder object' <- (newObject GObject.Object) object - signal_name' <- cstringToText signal_name - handler_name' <- cstringToText handler_name - maybeConnect_object <- - if connect_object == nullPtr + signalName' <- cstringToText signalName + handlerName' <- cstringToText handlerName + maybeConnectObject <- + if connectObject == nullPtr then return Nothing else do - connect_object' <- (newObject GObject.Object) connect_object - return $ Just connect_object' + connectObject' <- (newObject GObject.Object) connectObject + return $ Just connectObject' let flags' = wordToGFlags flags - _cb builder' object' signal_name' handler_name' maybeConnect_object flags' + _cb builder' object' signalName' handlerName' maybeConnectObject flags' maybeReleaseFunPtr funptrptr -- callback AssistantPageFunc @@ -2754,8 +2755,8 @@ Int32 -> Ptr () -> IO Int32 -assistantPageFuncWrapper funptrptr _cb current_page _ = do - result <- _cb current_page +assistantPageFuncWrapper funptrptr _cb currentPage _ = do + result <- _cb currentPage maybeReleaseFunPtr funptrptr return result @@ -2795,11 +2796,11 @@ CUInt -> CInt -> IO () -accelMapForeachWrapper funptrptr _cb data_ accel_path accel_key accel_mods changed = do - accel_path' <- cstringToText accel_path - let accel_mods' = wordToGFlags accel_mods +accelMapForeachWrapper funptrptr _cb data_ accelPath accelKey accelMods changed = do + accelPath' <- cstringToText accelPath + let accelMods' = wordToGFlags accelMods let changed' = (/= 0) changed - _cb data_ accel_path' accel_key accel_mods' changed' + _cb data_ accelPath' accelKey accelMods' changed' maybeReleaseFunPtr funptrptr -- callback AccelGroupFindFunc @@ -2872,11 +2873,11 @@ Word32 -> CUInt -> IO CInt -accelGroupActivateWrapper funptrptr _cb accel_group acceleratable keyval modifier = do - accel_group' <- (newObject AccelGroup) accel_group +accelGroupActivateWrapper funptrptr _cb accelGroup acceleratable keyval modifier = do + accelGroup' <- (newObject AccelGroup) accelGroup acceleratable' <- (newObject GObject.Object) acceleratable let modifier' = wordToGFlags modifier - result <- _cb accel_group' acceleratable' keyval modifier' + result <- _cb accelGroup' acceleratable' keyval modifier' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' diff --git a/GI/Gtk/Constants.hs b/GI/Gtk/Constants.hs --- a/GI/Gtk/Constants.hs +++ b/GI/Gtk/Constants.hs @@ -1,5 +1,6 @@ {-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -1042,7 +1043,7 @@ pattern MINOR_VERSION = 18 :: Int32 -pattern MICRO_VERSION = 6 :: Int32 +pattern MICRO_VERSION = 9 :: Int32 pattern MAX_COMPOSE_LEN = 7 :: Int32 @@ -1057,12 +1058,12 @@ pattern LEVEL_BAR_OFFSET_HIGH = "high" :: T.Text -pattern INTERFACE_AGE = 6 :: Int32 +pattern INTERFACE_AGE = 9 :: Int32 pattern INPUT_ERROR = -1 :: Int32 -pattern BINARY_AGE = 1806 :: Int32 +pattern BINARY_AGE = 1809 :: Int32 diff --git a/GI/Gtk/Enums.hs b/GI/Gtk/Enums.hs --- a/GI/Gtk/Enums.hs +++ b/GI/Gtk/Enums.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Gtk/Flags.hs b/GI/Gtk/Flags.hs --- a/GI/Gtk/Flags.hs +++ b/GI/Gtk/Flags.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Gtk/Functions.hs b/GI/Gtk/Functions.hs --- a/GI/Gtk/Functions.hs +++ b/GI/Gtk/Functions.hs @@ -1,6857 +1,5866 @@ -{- | -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' + +{- | +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 , + + +-- ** bindingsActivate + bindingsActivate , + + +-- ** bindingsActivateEvent + bindingsActivateEvent , + + +-- ** cairoShouldDrawWindow + cairoShouldDrawWindow , + + +-- ** cairoTransformToWindow + cairoTransformToWindow , + + +-- ** checkVersion + checkVersion , + + +-- ** 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 , + + +-- ** 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 , + + +-- ** 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 , + + +-- ** parseArgs + parseArgs , + + +-- ** 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 , + + +-- ** rcReparseAll + rcReparseAll , + + +-- ** rcReparseAllForSettings + rcReparseAllForSettings , + + +-- ** rcResetStyles + rcResetStyles , + + +-- ** rcSetDefaultFiles + rcSetDefaultFiles , + + +-- ** 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 , + + +-- ** 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 : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_true" gtk_true :: + IO CInt + + +true :: + (MonadIO m) => + m Bool -- result +true = liftIO $ do + result <- gtk_true + let result' = (/= 0) result + return result' + + +-- function gtk_tree_set_row_drag_data +-- Args : [Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- selectionData + -> a -- treeModel + -> TreePath -- path + -> m Bool -- result +treeSetRowDragData selectionData treeModel path = liftIO $ do + let selectionData' = unsafeManagedPtrGetPtr selectionData + let treeModel' = unsafeManagedPtrCastPtr treeModel + let path' = unsafeManagedPtrGetPtr path + result <- gtk_tree_set_row_drag_data selectionData' treeModel' path' + let result' = (/= 0) result + touchManagedPtr selectionData + touchManagedPtr treeModel + touchManagedPtr path + return result' + + +-- function gtk_tree_get_row_drag_data +-- Args : [Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- 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 -- selectionData + -> m (Bool,(Maybe TreeModel),(Maybe TreePath))-- result +treeGetRowDragData selectionData = liftIO $ do + let selectionData' = unsafeManagedPtrGetPtr selectionData + treeModel <- allocMem :: IO (Ptr (Ptr TreeModel)) + path <- allocMem :: IO (Ptr (Ptr TreePath)) + result <- gtk_tree_get_row_drag_data selectionData' treeModel path + let result' = (/= 0) result + treeModel' <- peek treeModel + maybeTreeModel' <- convertIfNonNull treeModel' $ \treeModel'' -> do + treeModel''' <- (newObject TreeModel) treeModel'' + return treeModel''' + path' <- peek path + maybePath' <- convertIfNonNull path' $ \path'' -> do + path''' <- (wrapBoxed TreePath) path'' + return path''' + touchManagedPtr selectionData + freeMem treeModel + freeMem path + return (result', maybeTreeModel', maybePath') + + +-- function gtk_test_widget_wait_for_draw +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "spinner", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "percentage", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 : [] +-- 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 () -- result +testRegisterAllTypes = liftIO $ do + gtk_test_register_all_types + return () + + +-- function gtk_test_list_all_types +-- Args : [Arg {argCName = "n_types", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- 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) -- result +testListAllTypes = liftIO $ do + nTypes <- allocMem :: IO (Ptr Word32) + result <- gtk_test_list_all_types nTypes + checkUnexpectedReturnNULL "gtk_test_list_all_types" result + result' <- (unpackMapZeroTerminatedStorableArray GType) result + nTypes' <- peek nTypes + freeMem nTypes + return (result', nTypes') + + +-- function gtk_test_find_widget +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- labelPattern + -> GType -- widgetType + -> m Widget -- result +testFindWidget widget labelPattern widgetType = liftIO $ do + let widget' = unsafeManagedPtrCastPtr widget + labelPattern' <- textToCString labelPattern + let widgetType' = gtypeToCGType widgetType + result <- gtk_test_find_widget widget' labelPattern' widgetType' + checkUnexpectedReturnNULL "gtk_test_find_widget" result + result' <- (newObject Widget) result + touchManagedPtr widget + freeMem labelPattern' + return result' + + +-- function gtk_test_find_sibling +-- Args : [Arg {argCName = "base_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- baseWidget + -> GType -- widgetType + -> m Widget -- result +testFindSibling baseWidget widgetType = liftIO $ do + let baseWidget' = unsafeManagedPtrCastPtr baseWidget + let widgetType' = gtypeToCGType widgetType + result <- gtk_test_find_sibling baseWidget' widgetType' + checkUnexpectedReturnNULL "gtk_test_find_sibling" result + result' <- (newObject Widget) result + touchManagedPtr baseWidget + return result' + + +-- function gtk_test_find_label +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- labelPattern + -> m Widget -- result +testFindLabel widget labelPattern = liftIO $ do + let widget' = unsafeManagedPtrCastPtr widget + labelPattern' <- textToCString labelPattern + result <- gtk_test_find_label widget' labelPattern' + checkUnexpectedReturnNULL "gtk_test_find_label" result + result' <- (newObject Widget) result + touchManagedPtr widget + freeMem labelPattern' + return result' + + +-- function gtk_test_create_simple_window +-- Args : [Arg {argCName = "window_title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dialog_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- windowTitle + -> T.Text -- dialogText + -> m Widget -- result +testCreateSimpleWindow windowTitle dialogText = liftIO $ do + windowTitle' <- textToCString windowTitle + dialogText' <- textToCString dialogText + result <- gtk_test_create_simple_window windowTitle' dialogText' + checkUnexpectedReturnNULL "gtk_test_create_simple_window" result + result' <- (newObject Widget) result + freeMem windowTitle' + freeMem dialogText' + return result' + + +-- function gtk_targets_include_uri +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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 -- result +targetsIncludeUri targets = liftIO $ do + let nTargets = fromIntegral $ length targets + let targets' = map unsafeManagedPtrGetPtr targets + targets'' <- packPtrArray targets' + result <- gtk_targets_include_uri targets'' nTargets + let result' = (/= 0) result + mapM_ touchManagedPtr targets + freeMem targets'' + return result' + + +-- function gtk_targets_include_text +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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 -- result +targetsIncludeText targets = liftIO $ do + let nTargets = fromIntegral $ length targets + let targets' = map unsafeManagedPtrGetPtr targets + targets'' <- packPtrArray targets' + result <- gtk_targets_include_text targets'' nTargets + let result' = (/= 0) result + mapM_ touchManagedPtr targets + freeMem targets'' + return result' + + +-- function gtk_targets_include_rich_text +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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 -- result +targetsIncludeRichText targets buffer = liftIO $ do + let nTargets = fromIntegral $ length targets + let targets' = map unsafeManagedPtrGetPtr targets + targets'' <- packPtrArray targets' + let buffer' = unsafeManagedPtrCastPtr buffer + result <- gtk_targets_include_rich_text targets'' nTargets buffer' + let result' = (/= 0) result + mapM_ touchManagedPtr targets + touchManagedPtr buffer + freeMem targets'' + return result' + + +-- function gtk_targets_include_image +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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 -- result +targetsIncludeImage targets writable = liftIO $ do + let nTargets = fromIntegral $ length targets + let targets' = map unsafeManagedPtrGetPtr targets + targets'' <- packPtrArray targets' + let writable' = (fromIntegral . fromEnum) writable + result <- gtk_targets_include_image targets'' nTargets writable' + let result' = (/= 0) result + mapM_ touchManagedPtr targets + freeMem targets'' + return result' + + +-- function gtk_target_table_new_from_list +-- Args : [Arg {argCName = "list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- 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] -- result +targetTableNewFromList list = liftIO $ do + let list' = unsafeManagedPtrGetPtr list + nTargets <- allocMem :: IO (Ptr Int32) + result <- gtk_target_table_new_from_list list' nTargets + nTargets' <- peek nTargets + checkUnexpectedReturnNULL "gtk_target_table_new_from_list" result + result' <- (unpackBoxedArrayWithLength 16 nTargets') result + result'' <- mapM (wrapBoxed TargetEntry) result' + freeMem result + touchManagedPtr list + freeMem nTargets + return result'' + + +-- function gtk_target_table_free +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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 () -- result +targetTableFree targets = liftIO $ do + let nTargets = fromIntegral $ length targets + let targets' = map unsafeManagedPtrGetPtr targets + targets'' <- packBlockArray 16 targets' + gtk_target_table_free targets'' nTargets + mapM_ touchManagedPtr targets + freeMem targets'' + return () + + +-- function gtk_stock_set_translate_func +-- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "StockItem", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stockId + -> m (Bool,StockItem) -- result +stockLookup stockId = liftIO $ do + stockId' <- textToCString stockId + item <- callocBytes 32 :: IO (Ptr StockItem) + result <- gtk_stock_lookup stockId' item + let result' = (/= 0) result + item' <- (wrapPtr StockItem) item + freeMem stockId' + return (result', item') + + +-- function gtk_stock_list_ids +-- Args : [] +-- Lengths : [] +-- 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] -- result +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 {argCName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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 () -- result +stockAddStatic items = liftIO $ do + let nItems = fromIntegral $ length items + let items' = map unsafeManagedPtrGetPtr items + items'' <- packBlockArray 32 items' + gtk_stock_add_static items'' nItems + mapM_ touchManagedPtr items + freeMem items'' + return () + + +-- function gtk_stock_add +-- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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 () -- result +stockAdd items = liftIO $ do + let nItems = fromIntegral $ length items + let items' = map unsafeManagedPtrGetPtr items + items'' <- packBlockArray 32 items' + gtk_stock_add items'' nItems + mapM_ touchManagedPtr items + freeMem items'' + return () + + +-- function gtk_show_uri +-- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +setDebugFlags flags = liftIO $ do + gtk_set_debug_flags flags + return () + + +-- function gtk_selection_remove_all +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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 () -- result +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 {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "r", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "g", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- 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) -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xy0_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xy1_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- gapSide + -> Double -- xy0Gap + -> Double -- xy1Gap + -> m () -- result +renderFrameGap context cr x y width height gapSide xy0Gap xy1Gap = 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 gapSide' = (fromIntegral . fromEnum) gapSide + let xy0Gap' = realToFrac xy0Gap + let xy1Gap' = realToFrac xy1Gap + gtk_render_frame_gap context' cr' x' y' width' height' gapSide' xy0Gap' xy1Gap' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_frame +-- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- gapSide + -> m () -- result +renderExtension context cr x y width height gapSide = 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 gapSide' = (fromIntegral . fromEnum) gapSide + gtk_render_extension context' cr' x' y' width' height' gapSide' + touchManagedPtr context + touchManagedPtr cr + return () + + +-- function gtk_render_expander +-- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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_rc_set_default_files +-- Args : [Arg {argCName = "filenames", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_load", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- forceLoad + -> m Bool -- result +rcReparseAllForSettings settings forceLoad = liftIO $ do + let settings' = unsafeManagedPtrCastPtr settings + let forceLoad' = (fromIntegral . fromEnum) forceLoad + result <- gtk_rc_reparse_all_for_settings settings' forceLoad' + let result' = (/= 0) result + touchManagedPtr settings + return result' + + +-- function gtk_rc_reparse_all +-- Args : [] +-- Lengths : [] +-- 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 -- result +rcReparseAll = liftIO $ do + result <- gtk_rc_reparse_all + let result' = (/= 0) result + return result' + + +-- function gtk_rc_parse_string +-- Args : [Arg {argCName = "rc_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- rcString + -> m () -- result +rcParseString rcString = liftIO $ do + rcString' <- textToCString rcString + gtk_rc_parse_string rcString' + freeMem rcString' + return () + + +-- function gtk_rc_parse_state +-- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- 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) -- result +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 {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- 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) -- result +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 {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- 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) -- result +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 {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +rcParse filename = liftIO $ do + filename' <- textToCString filename + gtk_rc_parse filename' + freeMem filename' + return () + + +-- function gtk_rc_get_theme_dir +-- Args : [] +-- Lengths : [] +-- 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 -- result +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 {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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) -- widgetPath + -> Maybe (T.Text) -- classPath + -> GType -- type_ + -> m Style -- result +rcGetStyleByPaths settings widgetPath classPath type_ = liftIO $ do + let settings' = unsafeManagedPtrCastPtr settings + maybeWidgetPath <- case widgetPath of + Nothing -> return nullPtr + Just jWidgetPath -> do + jWidgetPath' <- textToCString jWidgetPath + return jWidgetPath' + maybeClassPath <- case classPath of + Nothing -> return nullPtr + Just jClassPath -> do + jClassPath' <- textToCString jClassPath + return jClassPath' + let type_' = gtypeToCGType type_ + result <- gtk_rc_get_style_by_paths settings' maybeWidgetPath maybeClassPath type_' + checkUnexpectedReturnNULL "gtk_rc_get_style_by_paths" result + result' <- (newObject Style) result + touchManagedPtr settings + freeMem maybeWidgetPath + freeMem maybeClassPath + return result' + + +-- function gtk_rc_get_style +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 : [] +-- 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] -- result +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 : [] +-- 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] -- result +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 : [] +-- 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] -- result +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 : [] +-- 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]] -- result +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 {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixmap_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- pixmapFile + -> m [Char] -- result +rcFindPixmapInPath settings scanner pixmapFile = liftIO $ do + let settings' = unsafeManagedPtrCastPtr settings + let scanner' = unsafeManagedPtrGetPtr scanner + pixmapFile' <- textToCString pixmapFile + result <- gtk_rc_find_pixmap_in_path settings' scanner' pixmapFile' + checkUnexpectedReturnNULL "gtk_rc_find_pixmap_in_path" result + result' <- cstringToString result + freeMem result + touchManagedPtr settings + touchManagedPtr scanner + freeMem pixmapFile' + return result' + + +-- function gtk_rc_find_module_in_path +-- Args : [Arg {argCName = "module_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- moduleFile + -> m [Char] -- result +rcFindModuleInPath moduleFile = liftIO $ do + moduleFile' <- textToCString moduleFile + result <- gtk_rc_find_module_in_path moduleFile' + checkUnexpectedReturnNULL "gtk_rc_find_module_in_path" result + result' <- cstringToString result + freeMem result + freeMem moduleFile' + return result' + + +-- function gtk_rc_add_default_file +-- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +rcAddDefaultFile filename = liftIO $ do + filename' <- stringToCString filename + gtk_rc_add_default_file filename' + freeMem filename' + return () + + +-- function gtk_propagate_event +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "done_cb", argType = TInterface "Gtk" "PageSetupDoneFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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) -- pageSetup + -> c -- settings + -> PageSetupDoneFunc -- doneCb + -> m () -- result +printRunPageSetupDialogAsync parent pageSetup settings doneCb = liftIO $ do + maybeParent <- case parent of + Nothing -> return nullPtr + Just jParent -> do + let jParent' = unsafeManagedPtrCastPtr jParent + return jParent' + maybePageSetup <- case pageSetup of + Nothing -> return nullPtr + Just jPageSetup -> do + let jPageSetup' = unsafeManagedPtrCastPtr jPageSetup + return jPageSetup' + let settings' = unsafeManagedPtrCastPtr settings + ptrdoneCb <- callocMem :: IO (Ptr (FunPtr PageSetupDoneFuncC)) + doneCb' <- mkPageSetupDoneFunc (pageSetupDoneFuncWrapper (Just ptrdoneCb) doneCb) + poke ptrdoneCb doneCb' + let data_ = nullPtr + gtk_print_run_page_setup_dialog_async maybeParent maybePageSetup settings' doneCb' data_ + whenJust parent touchManagedPtr + whenJust pageSetup touchManagedPtr + touchManagedPtr settings + return () + + +-- function gtk_print_run_page_setup_dialog +-- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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) -- pageSetup + -> c -- settings + -> m PageSetup -- result +printRunPageSetupDialog parent pageSetup settings = liftIO $ do + maybeParent <- case parent of + Nothing -> return nullPtr + Just jParent -> do + let jParent' = unsafeManagedPtrCastPtr jParent + return jParent' + maybePageSetup <- case pageSetup of + Nothing -> return nullPtr + Just jPageSetup -> do + let jPageSetup' = unsafeManagedPtrCastPtr jPageSetup + return jPageSetup' + let settings' = unsafeManagedPtrCastPtr settings + result <- gtk_print_run_page_setup_dialog maybeParent maybePageSetup settings' + checkUnexpectedReturnNULL "gtk_print_run_page_setup_dialog" result + result' <- (wrapObject PageSetup) result + whenJust parent touchManagedPtr + whenJust pageSetup touchManagedPtr + touchManagedPtr settings + return result' + + +-- function gtk_parse_args +-- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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]) -- result +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_paint_vline +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y2_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- y1 + -> Int32 -- y2 + -> Int32 -- x + -> m () -- result +paintVline style cr stateType widget detail y1 y2 x = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + 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' stateType' maybeWidget maybeDetail y1 y2 x + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_tab +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +paintTab style cr stateType shadowType widget detail x y width height = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_spinner +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Word32 -- step + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +paintSpinner style cr stateType widget detail step x y width height = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + 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' stateType' maybeWidget maybeDetail step x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_slider +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> Orientation -- orientation + -> m () -- result +paintSlider style cr stateType shadowType widget detail x y width height orientation = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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' stateType' shadowType' maybeWidget maybeDetail x y width height orientation' + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_shadow_gap +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> PositionType -- gapSide + -> Int32 -- gapX + -> Int32 -- gapWidth + -> m () -- result +paintShadowGap style cr stateType shadowType widget detail x y width height gapSide gapX gapWidth = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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 gapSide' = (fromIntegral . fromEnum) gapSide + gtk_paint_shadow_gap style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height gapSide' gapX gapWidth + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_shadow +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +paintShadow style cr stateType shadowType widget detail x y width height = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_resize_grip +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Gdk.WindowEdge -- edge + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +paintResizeGrip style cr stateType widget detail edge x y width height = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + 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' stateType' maybeWidget maybeDetail edge' x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_option +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +paintOption style cr stateType shadowType widget detail x y width height = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_layout +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> Bool -- useText + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> c -- layout + -> m () -- result +paintLayout style cr stateType useText widget detail x y layout = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let useText' = (fromIntegral . fromEnum) useText + 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' stateType' useText' maybeWidget maybeDetail x y layout' + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + touchManagedPtr layout + freeMem maybeDetail + return () + + +-- function gtk_paint_hline +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x2", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x1 + -> Int32 -- x2 + -> Int32 -- y + -> m () -- result +paintHline style cr stateType widget detail x1 x2 y = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + 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' stateType' maybeWidget maybeDetail x1 x2 y + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_handle +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> Orientation -- orientation + -> m () -- result +paintHandle style cr stateType shadowType widget detail x y width height orientation = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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' stateType' shadowType' maybeWidget maybeDetail x y width height orientation' + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_focus +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +paintFocus style cr stateType widget detail x y width height = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + 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' stateType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_flat_box +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +paintFlatBox style cr stateType shadowType widget detail x y width height = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_extension +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> PositionType -- gapSide + -> m () -- result +paintExtension style cr stateType shadowType widget detail x y width height gapSide = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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 gapSide' = (fromIntegral . fromEnum) gapSide + gtk_paint_extension style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height gapSide' + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_expander +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expander_style", argType = TInterface "Gtk" "ExpanderStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> ExpanderStyle -- expanderStyle + -> m () -- result +paintExpander style cr stateType widget detail x y expanderStyle = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + 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 expanderStyle' = (fromIntegral . fromEnum) expanderStyle + gtk_paint_expander style' cr' stateType' maybeWidget maybeDetail x y expanderStyle' + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_diamond +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +paintDiamond style cr stateType shadowType widget detail x y width height = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_check +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +paintCheck style cr stateType shadowType widget detail x y width height = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_box_gap +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> PositionType -- gapSide + -> Int32 -- gapX + -> Int32 -- gapWidth + -> m () -- result +paintBoxGap style cr stateType shadowType widget detail x y width height gapSide gapX gapWidth = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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 gapSide' = (fromIntegral . fromEnum) gapSide + gtk_paint_box_gap style' cr' stateType' shadowType' maybeWidget maybeDetail x y width height gapSide' gapX gapWidth + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_box +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +paintBox style cr stateType shadowType widget detail x y width height = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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' stateType' shadowType' maybeWidget maybeDetail x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_paint_arrow +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stateType + -> ShadowType -- shadowType + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> ArrowType -- arrowType + -> Bool -- fill + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +paintArrow style cr stateType shadowType widget detail arrowType fill x y width height = liftIO $ do + let style' = unsafeManagedPtrCastPtr style + let cr' = unsafeManagedPtrGetPtr cr + let stateType' = (fromIntegral . fromEnum) stateType + let shadowType' = (fromIntegral . fromEnum) shadowType + 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 arrowType' = (fromIntegral . fromEnum) arrowType + let fill' = (fromIntegral . fromEnum) fill + gtk_paint_arrow style' cr' stateType' shadowType' maybeWidget maybeDetail arrowType' fill' x y width height + touchManagedPtr style + touchManagedPtr cr + whenJust widget touchManagedPtr + freeMem maybeDetail + return () + + +-- function gtk_main_quit +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_main_quit" gtk_main_quit :: + IO () + + +mainQuit :: + (MonadIO m) => + m () -- result +mainQuit = liftIO $ do + gtk_main_quit + return () + + +-- function gtk_main_level +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_main_level" gtk_main_level :: + IO Word32 + + +mainLevel :: + (MonadIO m) => + m Word32 -- result +mainLevel = liftIO $ do + result <- gtk_main_level + return result + + +-- function gtk_main_iteration_do +-- Args : [Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_main_iteration" gtk_main_iteration :: + IO CInt + + +mainIteration :: + (MonadIO m) => + m Bool -- result +mainIteration = liftIO $ do + result <- gtk_main_iteration + let result' = (/= 0) result + return result' + + +-- function gtk_main_do_event +-- Args : [Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +mainDoEvent event = liftIO $ do + let event' = unsafeManagedPtrGetPtr event + gtk_main_do_event event' + touchManagedPtr event + return () + + +-- function gtk_main +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_main" gtk_main :: + IO () + + +main :: + (MonadIO m) => + m () -- result +main = liftIO $ do + gtk_main + return () + + +-- function gtk_key_snooper_remove +-- Args : [Arg {argCName = "snooper_handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- snooperHandlerId + -> m () -- result +keySnooperRemove snooperHandlerId = liftIO $ do + gtk_key_snooper_remove snooperHandlerId + return () + + +-- function gtk_init_with_args +-- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- 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) -- parameterString + -> [GLib.OptionEntry] -- entries + -> Maybe (T.Text) -- translationDomain + -> m ((Maybe [T.Text])) -- result +initWithArgs argv parameterString entries translationDomain = 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 + maybeParameterString <- case parameterString of + Nothing -> return nullPtr + Just jParameterString -> do + jParameterString' <- textToCString jParameterString + return jParameterString' + let entries' = map unsafeManagedPtrGetPtr entries + entries'' <- packZeroTerminatedPtrArray entries' + maybeTranslationDomain <- case translationDomain of + Nothing -> return nullPtr + Just jTranslationDomain -> do + jTranslationDomain' <- textToCString jTranslationDomain + return jTranslationDomain' + onException (do + _ <- propagateGError $ gtk_init_with_args argc' maybeArgv' maybeParameterString entries'' maybeTranslationDomain + 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 maybeParameterString + freeMem entries'' + freeMem maybeTranslationDomain + return maybeMaybeArgv'' + ) (do + freeMem argc' + freeMem maybeArgv' + freeMem maybeParameterString + freeMem entries'' + freeMem maybeTranslationDomain + ) + + +-- function gtk_init_check +-- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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])) -- result +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 {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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])) -- result +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_grab_get_current +-- Args : [] +-- Lengths : [] +-- 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 -- result +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 {argCName = "open_default_display", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- openDefaultDisplay + -> m GLib.OptionGroup -- result +getOptionGroup openDefaultDisplay = liftIO $ do + let openDefaultDisplay' = (fromIntegral . fromEnum) openDefaultDisplay + result <- gtk_get_option_group openDefaultDisplay' + checkUnexpectedReturnNULL "gtk_get_option_group" result + result' <- (wrapBoxed GLib.OptionGroup) result + return result' + + +-- function gtk_get_minor_version +-- Args : [] +-- Lengths : [] +-- 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 -- result +getMinorVersion = liftIO $ do + result <- gtk_get_minor_version + return result + + +-- function gtk_get_micro_version +-- Args : [] +-- Lengths : [] +-- 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 -- result +getMicroVersion = liftIO $ do + result <- gtk_get_micro_version + return result + + +-- function gtk_get_major_version +-- Args : [] +-- Lengths : [] +-- 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 -- result +getMajorVersion = liftIO $ do + result <- gtk_get_major_version + return result + + +-- function gtk_get_locale_direction +-- Args : [] +-- Lengths : [] +-- 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 -- result +getLocaleDirection = liftIO $ do + result <- gtk_get_locale_direction + let result' = (toEnum . fromIntegral) result + return result' + + +-- function gtk_get_interface_age +-- Args : [] +-- Lengths : [] +-- 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 -- result +getInterfaceAge = liftIO $ do + result <- gtk_get_interface_age + return result + + +-- function gtk_get_event_widget +-- Args : [Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 : [] +-- 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 -- result +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 : [] +-- 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 -- result +getDebugFlags = liftIO $ do + result <- gtk_get_debug_flags + return result + + +-- function gtk_get_current_event_time +-- Args : [] +-- Lengths : [] +-- 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 -- result +getCurrentEventTime = liftIO $ do + result <- gtk_get_current_event_time + return result + + +-- function gtk_get_current_event_state +-- Args : [Arg {argCName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- 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]) -- result +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 : [] +-- 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 -- result +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 : [] +-- 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 -- result +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 : [] +-- 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 -- result +getBinaryAge = liftIO $ do + result <- gtk_get_binary_age + return result + + +-- function gtk_false +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_false" gtk_false :: + IO CInt + + +false :: + (MonadIO m) => + m Bool -- result +false = liftIO $ do + result <- gtk_false + let result' = (/= 0) result + return result' + + +-- function gtk_events_pending +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_events_pending" gtk_events_pending :: + IO CInt + + +eventsPending :: + (MonadIO m) => + m Bool -- result +eventsPending = liftIO $ do + result <- gtk_events_pending + let result' = (/= 0) result + return result' + + +-- function gtk_draw_insertion_cursor +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_primary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- isPrimary + -> TextDirection -- direction + -> Bool -- drawArrow + -> m () -- result +drawInsertionCursor widget cr location isPrimary direction drawArrow = liftIO $ do + let widget' = unsafeManagedPtrCastPtr widget + let cr' = unsafeManagedPtrGetPtr cr + let location' = unsafeManagedPtrGetPtr location + let isPrimary' = (fromIntegral . fromEnum) isPrimary + let direction' = (fromIntegral . fromEnum) direction + let drawArrow' = (fromIntegral . fromEnum) drawArrow + gtk_draw_insertion_cursor widget' cr' location' isPrimary' direction' drawArrow' + touchManagedPtr widget + touchManagedPtr cr + touchManagedPtr location + return () + + +-- function gtk_drag_set_icon_widget +-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- hotX + -> Int32 -- hotY + -> m () -- result +dragSetIconWidget context widget hotX hotY = liftIO $ do + let context' = unsafeManagedPtrCastPtr context + let widget' = unsafeManagedPtrCastPtr widget + gtk_drag_set_icon_widget context' widget' hotX hotY + touchManagedPtr context + touchManagedPtr widget + return () + + +-- function gtk_drag_set_icon_surface +-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- stockId + -> Int32 -- hotX + -> Int32 -- hotY + -> m () -- result +dragSetIconStock context stockId hotX hotY = liftIO $ do + let context' = unsafeManagedPtrCastPtr context + stockId' <- textToCString stockId + gtk_drag_set_icon_stock context' stockId' hotX hotY + touchManagedPtr context + freeMem stockId' + return () + + +-- function gtk_drag_set_icon_pixbuf +-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- hotX + -> Int32 -- hotY + -> m () -- result +dragSetIconPixbuf context pixbuf hotX hotY = liftIO $ do + let context' = unsafeManagedPtrCastPtr context + let pixbuf' = unsafeManagedPtrCastPtr pixbuf + gtk_drag_set_icon_pixbuf context' pixbuf' hotX hotY + touchManagedPtr context + touchManagedPtr pixbuf + return () + + +-- function gtk_drag_set_icon_name +-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- iconName + -> Int32 -- hotX + -> Int32 -- hotY + -> m () -- result +dragSetIconName context iconName hotX hotY = liftIO $ do + let context' = unsafeManagedPtrCastPtr context + iconName' <- textToCString iconName + gtk_drag_set_icon_name context' iconName' hotX hotY + touchManagedPtr context + freeMem iconName' + return () + + +-- function gtk_drag_set_icon_gicon +-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- hotX + -> Int32 -- hotY + -> m () -- result +dragSetIconGicon context icon hotX hotY = liftIO $ do + let context' = unsafeManagedPtrCastPtr context + let icon' = unsafeManagedPtrCastPtr icon + gtk_drag_set_icon_gicon context' icon' hotX hotY + touchManagedPtr context + touchManagedPtr icon + return () + + +-- function gtk_drag_set_icon_default +-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "del", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +dragCancel context = liftIO $ do + let context' = unsafeManagedPtrCastPtr context + gtk_drag_cancel context' + touchManagedPtr context + return () + + +-- function gtk_distribute_natural_allocation +-- Args : [Arg {argCName = "extra_space", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_requested_sizes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TInterface "Gtk" "RequestedSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- extraSpace + -> Word32 -- nRequestedSizes + -> RequestedSize -- sizes + -> m Int32 -- result +distributeNaturalAllocation extraSpace nRequestedSizes sizes = liftIO $ do + let sizes' = unsafeManagedPtrGetPtr sizes + result <- gtk_distribute_natural_allocation extraSpace nRequestedSizes sizes' + touchManagedPtr sizes + return result + + +-- function gtk_disable_setlocale +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_disable_setlocale" gtk_disable_setlocale :: + IO () + + +disableSetlocale :: + (MonadIO m) => + m () -- result +disableSetlocale = liftIO $ do + gtk_disable_setlocale + return () + + +-- function gtk_device_grab_remove +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "block_others", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- blockOthers + -> m () -- result +deviceGrabAdd widget device blockOthers = liftIO $ do + let widget' = unsafeManagedPtrCastPtr widget + let device' = unsafeManagedPtrCastPtr device + let blockOthers' = (fromIntegral . fromEnum) blockOthers + gtk_device_grab_add widget' device' blockOthers' + touchManagedPtr widget + touchManagedPtr device + return () + + +-- function gtk_check_version +-- Args : [Arg {argCName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- requiredMajor + -> Word32 -- requiredMinor + -> Word32 -- requiredMicro + -> m T.Text -- result +checkVersion requiredMajor requiredMinor requiredMicro = liftIO $ do + result <- gtk_check_version requiredMajor requiredMinor requiredMicro + checkUnexpectedReturnNULL "gtk_check_version" result + result' <- cstringToText result + return result' + + +-- function gtk_cairo_transform_to_window +-- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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_bindings_activate_event +-- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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_alternative_dialog_button_order +-- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "default_mod_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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] -- defaultModMask + -> m () -- result +acceleratorSetDefaultModMask defaultModMask = liftIO $ do + let defaultModMask' = gflagsToWord defaultModMask + gtk_accelerator_set_default_mod_mask defaultModMask' + return () + + +-- function gtk_accelerator_parse_with_keycode +-- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_codes", argType = TCArray True (-1) (-1) (TBasicType TUInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- 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])-- result +acceleratorParseWithKeycode accelerator = liftIO $ do + accelerator' <- textToCString accelerator + acceleratorKey <- allocMem :: IO (Ptr Word32) + acceleratorCodes <- allocMem :: IO (Ptr (Ptr Word32)) + acceleratorMods <- allocMem :: IO (Ptr CUInt) + gtk_accelerator_parse_with_keycode accelerator' acceleratorKey acceleratorCodes acceleratorMods + acceleratorKey' <- peek acceleratorKey + acceleratorCodes' <- peek acceleratorCodes + acceleratorCodes'' <- unpackZeroTerminatedStorableArray acceleratorCodes' + freeMem acceleratorCodes' + acceleratorMods' <- peek acceleratorMods + let acceleratorMods'' = wordToGFlags acceleratorMods' + freeMem accelerator' + freeMem acceleratorKey + freeMem acceleratorCodes + freeMem acceleratorMods + return (acceleratorKey', acceleratorCodes'', acceleratorMods'') + + +-- function gtk_accelerator_parse +-- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- 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]) -- result +acceleratorParse accelerator = liftIO $ do + accelerator' <- textToCString accelerator + acceleratorKey <- allocMem :: IO (Ptr Word32) + acceleratorMods <- allocMem :: IO (Ptr CUInt) + gtk_accelerator_parse accelerator' acceleratorKey acceleratorMods + acceleratorKey' <- peek acceleratorKey + acceleratorMods' <- peek acceleratorMods + let acceleratorMods'' = wordToGFlags acceleratorMods' + freeMem accelerator' + freeMem acceleratorKey + freeMem acceleratorMods + return (acceleratorKey', acceleratorMods'') + + +-- function gtk_accelerator_name_with_keycode +-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- acceleratorKey + -> Word32 -- keycode + -> [Gdk.ModifierType] -- acceleratorMods + -> m T.Text -- result +acceleratorNameWithKeycode display acceleratorKey keycode acceleratorMods = liftIO $ do + maybeDisplay <- case display of + Nothing -> return nullPtr + Just jDisplay -> do + let jDisplay' = unsafeManagedPtrCastPtr jDisplay + return jDisplay' + let acceleratorMods' = gflagsToWord acceleratorMods + result <- gtk_accelerator_name_with_keycode maybeDisplay acceleratorKey keycode acceleratorMods' + checkUnexpectedReturnNULL "gtk_accelerator_name_with_keycode" result + result' <- cstringToText result + freeMem result + whenJust display touchManagedPtr + return result' + + +-- function gtk_accelerator_name +-- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- acceleratorKey + -> [Gdk.ModifierType] -- acceleratorMods + -> m T.Text -- result +acceleratorName acceleratorKey acceleratorMods = liftIO $ do + let acceleratorMods' = gflagsToWord acceleratorMods + result <- gtk_accelerator_name acceleratorKey acceleratorMods' + checkUnexpectedReturnNULL "gtk_accelerator_name" result + result' <- cstringToText result + freeMem result + return result' + + +-- function gtk_accelerator_get_label_with_keycode +-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- acceleratorKey + -> Word32 -- keycode + -> [Gdk.ModifierType] -- acceleratorMods + -> m T.Text -- result +acceleratorGetLabelWithKeycode display acceleratorKey keycode acceleratorMods = liftIO $ do + maybeDisplay <- case display of + Nothing -> return nullPtr + Just jDisplay -> do + let jDisplay' = unsafeManagedPtrCastPtr jDisplay + return jDisplay' + let acceleratorMods' = gflagsToWord acceleratorMods + result <- gtk_accelerator_get_label_with_keycode maybeDisplay acceleratorKey keycode acceleratorMods' + 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 {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- acceleratorKey + -> [Gdk.ModifierType] -- acceleratorMods + -> m T.Text -- result +acceleratorGetLabel acceleratorKey acceleratorMods = liftIO $ do + let acceleratorMods' = gflagsToWord acceleratorMods + result <- gtk_accelerator_get_label acceleratorKey acceleratorMods' + checkUnexpectedReturnNULL "gtk_accelerator_get_label" result + result' <- cstringToText result + freeMem result + return result' + + +-- function gtk_accelerator_get_default_mod_mask +-- Args : [] +-- Lengths : [] +-- 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] -- result +acceleratorGetDefaultModMask = liftIO $ do + result <- gtk_accelerator_get_default_mod_mask + let result' = wordToGFlags result + return result' + + +-- function gtk_accel_groups_from_object +-- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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] -- result +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 {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- accelKey + -> [Gdk.ModifierType] -- accelMods + -> m Bool -- result +accelGroupsActivate object accelKey accelMods = liftIO $ do + let object' = unsafeManagedPtrCastPtr object + let accelMods' = gflagsToWord accelMods + result <- gtk_accel_groups_activate object' accelKey accelMods' let result' = (/= 0) result touchManagedPtr object return result' diff --git a/GI/Gtk/Interfaces.hs b/GI/Gtk/Interfaces.hs --- a/GI/Gtk/Interfaces.hs +++ b/GI/Gtk/Interfaces.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Gtk/Interfaces/Actionable.hs b/GI/Gtk/Interfaces/Actionable.hs --- a/GI/Gtk/Interfaces/Actionable.hs +++ b/GI/Gtk/Interfaces/Actionable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** actionableGetActionName + ActionableGetActionNameMethodInfo , actionableGetActionName , -- ** actionableGetActionTargetValue + ActionableGetActionTargetValueMethodInfo, actionableGetActionTargetValue , -- ** actionableSetActionName + ActionableSetActionNameMethodInfo , actionableSetActionName , -- ** actionableSetActionTargetValue + ActionableSetActionTargetValueMethodInfo, actionableSetActionTargetValue , -- ** actionableSetDetailedActionName + ActionableSetDetailedActionNameMethodInfo, actionableSetDetailedActionName , @@ -74,6 +80,307 @@ noActionable :: Maybe Actionable noActionable = Nothing +type family ResolveActionableMethod (t :: Symbol) (o :: *) :: * where + ResolveActionableMethod "activate" o = WidgetActivateMethodInfo + ResolveActionableMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveActionableMethod "addChild" o = BuildableAddChildMethodInfo + ResolveActionableMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveActionableMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveActionableMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveActionableMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveActionableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveActionableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveActionableMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveActionableMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveActionableMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveActionableMethod "classPath" o = WidgetClassPathMethodInfo + ResolveActionableMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveActionableMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveActionableMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveActionableMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveActionableMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveActionableMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveActionableMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveActionableMethod "destroy" o = WidgetDestroyMethodInfo + ResolveActionableMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveActionableMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveActionableMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveActionableMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveActionableMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveActionableMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveActionableMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveActionableMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveActionableMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveActionableMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveActionableMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveActionableMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveActionableMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveActionableMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveActionableMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveActionableMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveActionableMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveActionableMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveActionableMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveActionableMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveActionableMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveActionableMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveActionableMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveActionableMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveActionableMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveActionableMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveActionableMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveActionableMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveActionableMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveActionableMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveActionableMethod "draw" o = WidgetDrawMethodInfo + ResolveActionableMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveActionableMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveActionableMethod "event" o = WidgetEventMethodInfo + ResolveActionableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveActionableMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveActionableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveActionableMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveActionableMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveActionableMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveActionableMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveActionableMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveActionableMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveActionableMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveActionableMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveActionableMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveActionableMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveActionableMethod "hide" o = WidgetHideMethodInfo + ResolveActionableMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveActionableMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveActionableMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveActionableMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveActionableMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveActionableMethod "intersect" o = WidgetIntersectMethodInfo + ResolveActionableMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveActionableMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveActionableMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveActionableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveActionableMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveActionableMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveActionableMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveActionableMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveActionableMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveActionableMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveActionableMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveActionableMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveActionableMethod "map" o = WidgetMapMethodInfo + ResolveActionableMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveActionableMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveActionableMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveActionableMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveActionableMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveActionableMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveActionableMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveActionableMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveActionableMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveActionableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveActionableMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveActionableMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveActionableMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveActionableMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveActionableMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveActionableMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveActionableMethod "path" o = WidgetPathMethodInfo + ResolveActionableMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveActionableMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveActionableMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveActionableMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveActionableMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveActionableMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveActionableMethod "realize" o = WidgetRealizeMethodInfo + ResolveActionableMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveActionableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveActionableMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveActionableMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveActionableMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveActionableMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveActionableMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveActionableMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveActionableMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveActionableMethod "reparent" o = WidgetReparentMethodInfo + ResolveActionableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveActionableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveActionableMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveActionableMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveActionableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveActionableMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveActionableMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveActionableMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveActionableMethod "show" o = WidgetShowMethodInfo + ResolveActionableMethod "showAll" o = WidgetShowAllMethodInfo + ResolveActionableMethod "showNow" o = WidgetShowNowMethodInfo + ResolveActionableMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveActionableMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveActionableMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveActionableMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveActionableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveActionableMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveActionableMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveActionableMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveActionableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveActionableMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveActionableMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveActionableMethod "unmap" o = WidgetUnmapMethodInfo + ResolveActionableMethod "unparent" o = WidgetUnparentMethodInfo + ResolveActionableMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveActionableMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveActionableMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveActionableMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveActionableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveActionableMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveActionableMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveActionableMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveActionableMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveActionableMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveActionableMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveActionableMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveActionableMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveActionableMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveActionableMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveActionableMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveActionableMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveActionableMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveActionableMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveActionableMethod "getClip" o = WidgetGetClipMethodInfo + ResolveActionableMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveActionableMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveActionableMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveActionableMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveActionableMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveActionableMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveActionableMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveActionableMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveActionableMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveActionableMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveActionableMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveActionableMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveActionableMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveActionableMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveActionableMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveActionableMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveActionableMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveActionableMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveActionableMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveActionableMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveActionableMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveActionableMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveActionableMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveActionableMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveActionableMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveActionableMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveActionableMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveActionableMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveActionableMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveActionableMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveActionableMethod "getParent" o = WidgetGetParentMethodInfo + ResolveActionableMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveActionableMethod "getPath" o = WidgetGetPathMethodInfo + ResolveActionableMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveActionableMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveActionableMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveActionableMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveActionableMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveActionableMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveActionableMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveActionableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveActionableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveActionableMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveActionableMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveActionableMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveActionableMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveActionableMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveActionableMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveActionableMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveActionableMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveActionableMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveActionableMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveActionableMethod "getState" o = WidgetGetStateMethodInfo + ResolveActionableMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveActionableMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveActionableMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveActionableMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveActionableMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveActionableMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveActionableMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveActionableMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveActionableMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveActionableMethod "getValign" o = WidgetGetValignMethodInfo + ResolveActionableMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveActionableMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveActionableMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveActionableMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveActionableMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveActionableMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveActionableMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveActionableMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveActionableMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveActionableMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveActionableMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveActionableMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveActionableMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveActionableMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveActionableMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveActionableMethod "setClip" o = WidgetSetClipMethodInfo + ResolveActionableMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveActionableMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveActionableMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveActionableMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveActionableMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveActionableMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveActionableMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveActionableMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveActionableMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveActionableMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveActionableMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveActionableMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveActionableMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveActionableMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveActionableMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveActionableMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveActionableMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveActionableMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveActionableMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveActionableMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveActionableMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveActionableMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveActionableMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveActionableMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveActionableMethod "setParent" o = WidgetSetParentMethodInfo + ResolveActionableMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveActionableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveActionableMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveActionableMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveActionableMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveActionableMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveActionableMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveActionableMethod "setState" o = WidgetSetStateMethodInfo + ResolveActionableMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveActionableMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveActionableMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveActionableMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveActionableMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveActionableMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveActionableMethod "setValign" o = WidgetSetValignMethodInfo + ResolveActionableMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveActionableMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveActionableMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveActionableMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveActionableMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveActionableMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveActionableMethod t Actionable, MethodInfo info Actionable p) => IsLabelProxy t (Actionable -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveActionableMethod t Actionable, MethodInfo info Actionable p) => IsLabel t (Actionable -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "action-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] @@ -93,7 +400,7 @@ type AttrSetTypeConstraint ActionableActionNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ActionableActionNamePropertyInfo = ActionableK type AttrGetType ActionableActionNamePropertyInfo = T.Text - type AttrLabel ActionableActionNamePropertyInfo = "Actionable::action-name" + type AttrLabel ActionableActionNamePropertyInfo = "action-name" attrGet _ = getActionableActionName attrSet _ = setActionableActionName attrConstruct _ = constructActionableActionName @@ -117,16 +424,16 @@ type AttrSetTypeConstraint ActionableActionTargetPropertyInfo = (~) GVariant type AttrBaseTypeConstraint ActionableActionTargetPropertyInfo = ActionableK type AttrGetType ActionableActionTargetPropertyInfo = GVariant - type AttrLabel ActionableActionTargetPropertyInfo = "Actionable::action-target" + type AttrLabel ActionableActionTargetPropertyInfo = "action-target" attrGet _ = getActionableActionTarget attrSet _ = setActionableActionTarget attrConstruct _ = constructActionableActionTarget type instance AttributeList Actionable = ActionableAttributeList -type ActionableAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ActionableAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Actionable = ActionableSignalList -type ActionableSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ActionableSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_actionable_get_type" c_gtk_actionable_get_type :: IO GType @@ -147,9 +454,8 @@ -- method Actionable::get_action_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -161,8 +467,8 @@ actionableGetActionName :: (MonadIO m, ActionableK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result actionableGetActionName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_actionable_get_action_name _obj' @@ -171,11 +477,14 @@ touchManagedPtr _obj return result' +data ActionableGetActionNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ActionableK a) => MethodInfo ActionableGetActionNameMethodInfo a signature where + overloadedMethod _ = actionableGetActionName + -- method Actionable::get_action_target_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -187,8 +496,8 @@ actionableGetActionTargetValue :: (MonadIO m, ActionableK a) => - a -> -- _obj - m GVariant + a -- _obj + -> m GVariant -- result actionableGetActionTargetValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_actionable_get_action_target_value _obj' @@ -197,11 +506,14 @@ touchManagedPtr _obj return result' +data ActionableGetActionTargetValueMethodInfo +instance (signature ~ (m GVariant), MonadIO m, ActionableK a) => MethodInfo ActionableGetActionTargetValueMethodInfo a signature where + overloadedMethod _ = actionableGetActionTargetValue + -- method Actionable::set_action_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -214,22 +526,25 @@ actionableSetActionName :: (MonadIO m, ActionableK a) => - a -> -- _obj - T.Text -> -- action_name - m () -actionableSetActionName _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m () -- result +actionableSetActionName _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - gtk_actionable_set_action_name _obj' action_name' + actionName' <- textToCString actionName + gtk_actionable_set_action_name _obj' actionName' touchManagedPtr _obj - freeMem action_name' + freeMem actionName' return () +data ActionableSetActionNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ActionableK a) => MethodInfo ActionableSetActionNameMethodInfo a signature where + overloadedMethod _ = actionableSetActionName + -- method Actionable::set_action_target_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -242,21 +557,24 @@ actionableSetActionTargetValue :: (MonadIO m, ActionableK a) => - a -> -- _obj - GVariant -> -- target_value - m () -actionableSetActionTargetValue _obj target_value = liftIO $ do + a -- _obj + -> GVariant -- targetValue + -> m () -- result +actionableSetActionTargetValue _obj targetValue = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let target_value' = unsafeManagedPtrGetPtr target_value - gtk_actionable_set_action_target_value _obj' target_value' + let targetValue' = unsafeManagedPtrGetPtr targetValue + gtk_actionable_set_action_target_value _obj' targetValue' touchManagedPtr _obj return () +data ActionableSetActionTargetValueMethodInfo +instance (signature ~ (GVariant -> m ()), MonadIO m, ActionableK a) => MethodInfo ActionableSetActionTargetValueMethodInfo a signature where + overloadedMethod _ = actionableSetActionTargetValue + -- method Actionable::set_detailed_action_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -269,15 +587,19 @@ actionableSetDetailedActionName :: (MonadIO m, ActionableK a) => - a -> -- _obj - T.Text -> -- detailed_action_name - m () -actionableSetDetailedActionName _obj detailed_action_name = liftIO $ do + a -- _obj + -> T.Text -- detailedActionName + -> m () -- result +actionableSetDetailedActionName _obj detailedActionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - detailed_action_name' <- textToCString detailed_action_name - gtk_actionable_set_detailed_action_name _obj' detailed_action_name' + detailedActionName' <- textToCString detailedActionName + gtk_actionable_set_detailed_action_name _obj' detailedActionName' touchManagedPtr _obj - freeMem detailed_action_name' + freeMem detailedActionName' return () + +data ActionableSetDetailedActionNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ActionableK a) => MethodInfo ActionableSetDetailedActionNameMethodInfo a signature where + overloadedMethod _ = actionableSetDetailedActionName diff --git a/GI/Gtk/Interfaces/Actionable.hs-boot b/GI/Gtk/Interfaces/Actionable.hs-boot --- a/GI/Gtk/Interfaces/Actionable.hs-boot +++ b/GI/Gtk/Interfaces/Actionable.hs-boot @@ -13,3 +13,8 @@ instance GObject Actionable where class GObject o => ActionableK o instance (GObject o, IsDescendantOf Actionable o) => ActionableK o +data ActionableGetActionNameMethodInfo +data ActionableGetActionTargetValueMethodInfo +data ActionableSetActionNameMethodInfo +data ActionableSetActionTargetValueMethodInfo +data ActionableSetDetailedActionNameMethodInfo diff --git a/GI/Gtk/Interfaces/Activatable.hs b/GI/Gtk/Interfaces/Activatable.hs --- a/GI/Gtk/Interfaces/Activatable.hs +++ b/GI/Gtk/Interfaces/Activatable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** activatableDoSetRelatedAction + ActivatableDoSetRelatedActionMethodInfo , activatableDoSetRelatedAction , -- ** activatableGetRelatedAction + ActivatableGetRelatedActionMethodInfo , activatableGetRelatedAction , -- ** activatableGetUseActionAppearance + ActivatableGetUseActionAppearanceMethodInfo, activatableGetUseActionAppearance , -- ** activatableSetRelatedAction + ActivatableSetRelatedActionMethodInfo , activatableSetRelatedAction , -- ** activatableSetUseActionAppearance + ActivatableSetUseActionAppearanceMethodInfo, activatableSetUseActionAppearance , -- ** activatableSyncActionProperties + ActivatableSyncActionPropertiesMethodInfo, activatableSyncActionProperties , @@ -78,6 +85,45 @@ noActivatable :: Maybe Activatable noActivatable = Nothing +type family ResolveActivatableMethod (t :: Symbol) (o :: *) :: * where + ResolveActivatableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveActivatableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveActivatableMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveActivatableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveActivatableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveActivatableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveActivatableMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveActivatableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveActivatableMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveActivatableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveActivatableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveActivatableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveActivatableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveActivatableMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveActivatableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveActivatableMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveActivatableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveActivatableMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveActivatableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveActivatableMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveActivatableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveActivatableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveActivatableMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveActivatableMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveActivatableMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveActivatableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveActivatableMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveActivatableMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveActivatableMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveActivatableMethod t Activatable, MethodInfo info Activatable p) => IsLabelProxy t (Activatable -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveActivatableMethod t Activatable, MethodInfo info Activatable p) => IsLabel t (Activatable -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "related-action" -- Type: TInterface "Gtk" "Action" -- Flags: [PropertyReadable,PropertyWritable] @@ -97,7 +143,7 @@ type AttrSetTypeConstraint ActivatableRelatedActionPropertyInfo = ActionK type AttrBaseTypeConstraint ActivatableRelatedActionPropertyInfo = ActivatableK type AttrGetType ActivatableRelatedActionPropertyInfo = Action - type AttrLabel ActivatableRelatedActionPropertyInfo = "Activatable::related-action" + type AttrLabel ActivatableRelatedActionPropertyInfo = "related-action" attrGet _ = getActivatableRelatedAction attrSet _ = setActivatableRelatedAction attrConstruct _ = constructActivatableRelatedAction @@ -121,16 +167,16 @@ type AttrSetTypeConstraint ActivatableUseActionAppearancePropertyInfo = (~) Bool type AttrBaseTypeConstraint ActivatableUseActionAppearancePropertyInfo = ActivatableK type AttrGetType ActivatableUseActionAppearancePropertyInfo = Bool - type AttrLabel ActivatableUseActionAppearancePropertyInfo = "Activatable::use-action-appearance" + type AttrLabel ActivatableUseActionAppearancePropertyInfo = "use-action-appearance" attrGet _ = getActivatableUseActionAppearance attrSet _ = setActivatableUseActionAppearance attrConstruct _ = constructActivatableUseActionAppearance type instance AttributeList Activatable = ActivatableAttributeList -type ActivatableAttributeList = ('[ '("related-action", ActivatableRelatedActionPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo)] :: [(Symbol, *)]) +type ActivatableAttributeList = ('[ '("relatedAction", ActivatableRelatedActionPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo)] :: [(Symbol, *)]) type instance SignalList Activatable = ActivatableSignalList -type ActivatableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ActivatableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_activatable_get_type" c_gtk_activatable_get_type :: IO GType @@ -151,9 +197,8 @@ -- method Activatable::do_set_related_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -166,9 +211,9 @@ {-# DEPRECATED activatableDoSetRelatedAction ["(Since version 3.10)"]#-} activatableDoSetRelatedAction :: (MonadIO m, ActivatableK a, ActionK b) => - a -> -- _obj - b -> -- action - m () + a -- _obj + -> b -- action + -> m () -- result activatableDoSetRelatedAction _obj action = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let action' = unsafeManagedPtrCastPtr action @@ -177,11 +222,14 @@ touchManagedPtr action return () +data ActivatableDoSetRelatedActionMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ActivatableK a, ActionK b) => MethodInfo ActivatableDoSetRelatedActionMethodInfo a signature where + overloadedMethod _ = activatableDoSetRelatedAction + -- method Activatable::get_related_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Action" -- throws : False -- Skip return : False @@ -193,8 +241,8 @@ {-# DEPRECATED activatableGetRelatedAction ["(Since version 3.10)"]#-} activatableGetRelatedAction :: (MonadIO m, ActivatableK a) => - a -> -- _obj - m Action + a -- _obj + -> m Action -- result activatableGetRelatedAction _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_activatable_get_related_action _obj' @@ -203,11 +251,14 @@ touchManagedPtr _obj return result' +data ActivatableGetRelatedActionMethodInfo +instance (signature ~ (m Action), MonadIO m, ActivatableK a) => MethodInfo ActivatableGetRelatedActionMethodInfo a signature where + overloadedMethod _ = activatableGetRelatedAction + -- method Activatable::get_use_action_appearance -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -219,8 +270,8 @@ {-# DEPRECATED activatableGetUseActionAppearance ["(Since version 3.10)"]#-} activatableGetUseActionAppearance :: (MonadIO m, ActivatableK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result activatableGetUseActionAppearance _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_activatable_get_use_action_appearance _obj' @@ -228,11 +279,14 @@ touchManagedPtr _obj return result' +data ActivatableGetUseActionAppearanceMethodInfo +instance (signature ~ (m Bool), MonadIO m, ActivatableK a) => MethodInfo ActivatableGetUseActionAppearanceMethodInfo a signature where + overloadedMethod _ = activatableGetUseActionAppearance + -- method Activatable::set_related_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -245,9 +299,9 @@ {-# DEPRECATED activatableSetRelatedAction ["(Since version 3.10)"]#-} activatableSetRelatedAction :: (MonadIO m, ActivatableK a, ActionK b) => - a -> -- _obj - b -> -- action - m () + a -- _obj + -> b -- action + -> m () -- result activatableSetRelatedAction _obj action = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let action' = unsafeManagedPtrCastPtr action @@ -256,11 +310,14 @@ touchManagedPtr action return () +data ActivatableSetRelatedActionMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ActivatableK a, ActionK b) => MethodInfo ActivatableSetRelatedActionMethodInfo a signature where + overloadedMethod _ = activatableSetRelatedAction + -- method Activatable::set_use_action_appearance -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_appearance", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_appearance", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_appearance", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -273,21 +330,24 @@ {-# DEPRECATED activatableSetUseActionAppearance ["(Since version 3.10)"]#-} activatableSetUseActionAppearance :: (MonadIO m, ActivatableK a) => - a -> -- _obj - Bool -> -- use_appearance - m () -activatableSetUseActionAppearance _obj use_appearance = liftIO $ do + a -- _obj + -> Bool -- useAppearance + -> m () -- result +activatableSetUseActionAppearance _obj useAppearance = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_appearance' = (fromIntegral . fromEnum) use_appearance - gtk_activatable_set_use_action_appearance _obj' use_appearance' + let useAppearance' = (fromIntegral . fromEnum) useAppearance + gtk_activatable_set_use_action_appearance _obj' useAppearance' touchManagedPtr _obj return () +data ActivatableSetUseActionAppearanceMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ActivatableK a) => MethodInfo ActivatableSetUseActionAppearanceMethodInfo a signature where + overloadedMethod _ = activatableSetUseActionAppearance + -- method Activatable::sync_action_properties -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -300,9 +360,9 @@ {-# DEPRECATED activatableSyncActionProperties ["(Since version 3.10)"]#-} activatableSyncActionProperties :: (MonadIO m, ActivatableK a, ActionK b) => - a -> -- _obj - Maybe (b) -> -- action - m () + a -- _obj + -> Maybe (b) -- action + -> m () -- result activatableSyncActionProperties _obj action = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeAction <- case action of @@ -314,5 +374,9 @@ touchManagedPtr _obj whenJust action touchManagedPtr return () + +data ActivatableSyncActionPropertiesMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ActivatableK a, ActionK b) => MethodInfo ActivatableSyncActionPropertiesMethodInfo a signature where + overloadedMethod _ = activatableSyncActionProperties diff --git a/GI/Gtk/Interfaces/Activatable.hs-boot b/GI/Gtk/Interfaces/Activatable.hs-boot --- a/GI/Gtk/Interfaces/Activatable.hs-boot +++ b/GI/Gtk/Interfaces/Activatable.hs-boot @@ -13,3 +13,9 @@ instance GObject Activatable where class GObject o => ActivatableK o instance (GObject o, IsDescendantOf Activatable o) => ActivatableK o +data ActivatableDoSetRelatedActionMethodInfo +data ActivatableGetRelatedActionMethodInfo +data ActivatableGetUseActionAppearanceMethodInfo +data ActivatableSetRelatedActionMethodInfo +data ActivatableSetUseActionAppearanceMethodInfo +data ActivatableSyncActionPropertiesMethodInfo diff --git a/GI/Gtk/Interfaces/AppChooser.hs b/GI/Gtk/Interfaces/AppChooser.hs --- a/GI/Gtk/Interfaces/AppChooser.hs +++ b/GI/Gtk/Interfaces/AppChooser.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** appChooserGetAppInfo + AppChooserGetAppInfoMethodInfo , appChooserGetAppInfo , -- ** appChooserGetContentType + AppChooserGetContentTypeMethodInfo , appChooserGetContentType , -- ** appChooserRefresh + AppChooserRefreshMethodInfo , appChooserRefresh , @@ -59,6 +63,305 @@ noAppChooser :: Maybe AppChooser noAppChooser = Nothing +type family ResolveAppChooserMethod (t :: Symbol) (o :: *) :: * where + ResolveAppChooserMethod "activate" o = WidgetActivateMethodInfo + ResolveAppChooserMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveAppChooserMethod "addChild" o = BuildableAddChildMethodInfo + ResolveAppChooserMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveAppChooserMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveAppChooserMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveAppChooserMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveAppChooserMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAppChooserMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAppChooserMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveAppChooserMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveAppChooserMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveAppChooserMethod "classPath" o = WidgetClassPathMethodInfo + ResolveAppChooserMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveAppChooserMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveAppChooserMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveAppChooserMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveAppChooserMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveAppChooserMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveAppChooserMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveAppChooserMethod "destroy" o = WidgetDestroyMethodInfo + ResolveAppChooserMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveAppChooserMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveAppChooserMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveAppChooserMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveAppChooserMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveAppChooserMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveAppChooserMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveAppChooserMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveAppChooserMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveAppChooserMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveAppChooserMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveAppChooserMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveAppChooserMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveAppChooserMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveAppChooserMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveAppChooserMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveAppChooserMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveAppChooserMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveAppChooserMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveAppChooserMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveAppChooserMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveAppChooserMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveAppChooserMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveAppChooserMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveAppChooserMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveAppChooserMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveAppChooserMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveAppChooserMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveAppChooserMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveAppChooserMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveAppChooserMethod "draw" o = WidgetDrawMethodInfo + ResolveAppChooserMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveAppChooserMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveAppChooserMethod "event" o = WidgetEventMethodInfo + ResolveAppChooserMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAppChooserMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveAppChooserMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAppChooserMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveAppChooserMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveAppChooserMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveAppChooserMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveAppChooserMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveAppChooserMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveAppChooserMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveAppChooserMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveAppChooserMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveAppChooserMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveAppChooserMethod "hide" o = WidgetHideMethodInfo + ResolveAppChooserMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveAppChooserMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveAppChooserMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveAppChooserMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveAppChooserMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveAppChooserMethod "intersect" o = WidgetIntersectMethodInfo + ResolveAppChooserMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveAppChooserMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveAppChooserMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveAppChooserMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAppChooserMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveAppChooserMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveAppChooserMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveAppChooserMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveAppChooserMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveAppChooserMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveAppChooserMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveAppChooserMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveAppChooserMethod "map" o = WidgetMapMethodInfo + ResolveAppChooserMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveAppChooserMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveAppChooserMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveAppChooserMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveAppChooserMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveAppChooserMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveAppChooserMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveAppChooserMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveAppChooserMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAppChooserMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAppChooserMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveAppChooserMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveAppChooserMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveAppChooserMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveAppChooserMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveAppChooserMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveAppChooserMethod "path" o = WidgetPathMethodInfo + ResolveAppChooserMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveAppChooserMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveAppChooserMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveAppChooserMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveAppChooserMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveAppChooserMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveAppChooserMethod "realize" o = WidgetRealizeMethodInfo + ResolveAppChooserMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAppChooserMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAppChooserMethod "refresh" o = AppChooserRefreshMethodInfo + ResolveAppChooserMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveAppChooserMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveAppChooserMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveAppChooserMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveAppChooserMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveAppChooserMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveAppChooserMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveAppChooserMethod "reparent" o = WidgetReparentMethodInfo + ResolveAppChooserMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAppChooserMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAppChooserMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveAppChooserMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveAppChooserMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAppChooserMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveAppChooserMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveAppChooserMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveAppChooserMethod "show" o = WidgetShowMethodInfo + ResolveAppChooserMethod "showAll" o = WidgetShowAllMethodInfo + ResolveAppChooserMethod "showNow" o = WidgetShowNowMethodInfo + ResolveAppChooserMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveAppChooserMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveAppChooserMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveAppChooserMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAppChooserMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAppChooserMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveAppChooserMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveAppChooserMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveAppChooserMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAppChooserMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveAppChooserMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveAppChooserMethod "unmap" o = WidgetUnmapMethodInfo + ResolveAppChooserMethod "unparent" o = WidgetUnparentMethodInfo + ResolveAppChooserMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveAppChooserMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAppChooserMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveAppChooserMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveAppChooserMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAppChooserMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveAppChooserMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveAppChooserMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveAppChooserMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveAppChooserMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveAppChooserMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveAppChooserMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveAppChooserMethod "getAppInfo" o = AppChooserGetAppInfoMethodInfo + ResolveAppChooserMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveAppChooserMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveAppChooserMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveAppChooserMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveAppChooserMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveAppChooserMethod "getClip" o = WidgetGetClipMethodInfo + ResolveAppChooserMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveAppChooserMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveAppChooserMethod "getContentType" o = AppChooserGetContentTypeMethodInfo + ResolveAppChooserMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAppChooserMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveAppChooserMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveAppChooserMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveAppChooserMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveAppChooserMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveAppChooserMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveAppChooserMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveAppChooserMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveAppChooserMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveAppChooserMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveAppChooserMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveAppChooserMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveAppChooserMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveAppChooserMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveAppChooserMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveAppChooserMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveAppChooserMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveAppChooserMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveAppChooserMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveAppChooserMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveAppChooserMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveAppChooserMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveAppChooserMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveAppChooserMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveAppChooserMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveAppChooserMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveAppChooserMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveAppChooserMethod "getParent" o = WidgetGetParentMethodInfo + ResolveAppChooserMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveAppChooserMethod "getPath" o = WidgetGetPathMethodInfo + ResolveAppChooserMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveAppChooserMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveAppChooserMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAppChooserMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveAppChooserMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveAppChooserMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveAppChooserMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveAppChooserMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAppChooserMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAppChooserMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveAppChooserMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveAppChooserMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveAppChooserMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveAppChooserMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveAppChooserMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveAppChooserMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveAppChooserMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveAppChooserMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveAppChooserMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveAppChooserMethod "getState" o = WidgetGetStateMethodInfo + ResolveAppChooserMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveAppChooserMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveAppChooserMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveAppChooserMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveAppChooserMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveAppChooserMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveAppChooserMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveAppChooserMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveAppChooserMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveAppChooserMethod "getValign" o = WidgetGetValignMethodInfo + ResolveAppChooserMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveAppChooserMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveAppChooserMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveAppChooserMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveAppChooserMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveAppChooserMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveAppChooserMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveAppChooserMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveAppChooserMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveAppChooserMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveAppChooserMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveAppChooserMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveAppChooserMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveAppChooserMethod "setClip" o = WidgetSetClipMethodInfo + ResolveAppChooserMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveAppChooserMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAppChooserMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveAppChooserMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveAppChooserMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveAppChooserMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveAppChooserMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveAppChooserMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveAppChooserMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveAppChooserMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveAppChooserMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveAppChooserMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveAppChooserMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveAppChooserMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveAppChooserMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveAppChooserMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveAppChooserMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveAppChooserMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveAppChooserMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveAppChooserMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveAppChooserMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveAppChooserMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveAppChooserMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveAppChooserMethod "setParent" o = WidgetSetParentMethodInfo + ResolveAppChooserMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveAppChooserMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAppChooserMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveAppChooserMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveAppChooserMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveAppChooserMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveAppChooserMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveAppChooserMethod "setState" o = WidgetSetStateMethodInfo + ResolveAppChooserMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveAppChooserMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveAppChooserMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveAppChooserMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveAppChooserMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveAppChooserMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveAppChooserMethod "setValign" o = WidgetSetValignMethodInfo + ResolveAppChooserMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveAppChooserMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveAppChooserMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveAppChooserMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveAppChooserMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveAppChooserMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAppChooserMethod t AppChooser, MethodInfo info AppChooser p) => IsLabelProxy t (AppChooser -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAppChooserMethod t AppChooser, MethodInfo info AppChooser p) => IsLabel t (AppChooser -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "content-type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] @@ -75,16 +378,16 @@ type AttrSetTypeConstraint AppChooserContentTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AppChooserContentTypePropertyInfo = AppChooserK type AttrGetType AppChooserContentTypePropertyInfo = T.Text - type AttrLabel AppChooserContentTypePropertyInfo = "AppChooser::content-type" + type AttrLabel AppChooserContentTypePropertyInfo = "content-type" attrGet _ = getAppChooserContentType attrSet _ = undefined attrConstruct _ = constructAppChooserContentType type instance AttributeList AppChooser = AppChooserAttributeList -type AppChooserAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("content-type", AppChooserContentTypePropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type AppChooserAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList AppChooser = AppChooserSignalList -type AppChooserSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AppChooserSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_app_chooser_get_type" c_gtk_app_chooser_get_type :: IO GType @@ -105,9 +408,8 @@ -- method AppChooser::get_app_info -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "AppInfo" -- throws : False -- Skip return : False @@ -119,8 +421,8 @@ appChooserGetAppInfo :: (MonadIO m, AppChooserK a) => - a -> -- _obj - m Gio.AppInfo + a -- _obj + -> m Gio.AppInfo -- result appChooserGetAppInfo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_get_app_info _obj' @@ -129,11 +431,14 @@ touchManagedPtr _obj return result' +data AppChooserGetAppInfoMethodInfo +instance (signature ~ (m Gio.AppInfo), MonadIO m, AppChooserK a) => MethodInfo AppChooserGetAppInfoMethodInfo a signature where + overloadedMethod _ = appChooserGetAppInfo + -- method AppChooser::get_content_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -145,8 +450,8 @@ appChooserGetContentType :: (MonadIO m, AppChooserK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result appChooserGetContentType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_get_content_type _obj' @@ -156,11 +461,14 @@ touchManagedPtr _obj return result' +data AppChooserGetContentTypeMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AppChooserK a) => MethodInfo AppChooserGetContentTypeMethodInfo a signature where + overloadedMethod _ = appChooserGetContentType + -- method AppChooser::refresh -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -172,12 +480,16 @@ appChooserRefresh :: (MonadIO m, AppChooserK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result appChooserRefresh _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_app_chooser_refresh _obj' touchManagedPtr _obj return () + +data AppChooserRefreshMethodInfo +instance (signature ~ (m ()), MonadIO m, AppChooserK a) => MethodInfo AppChooserRefreshMethodInfo a signature where + overloadedMethod _ = appChooserRefresh diff --git a/GI/Gtk/Interfaces/AppChooser.hs-boot b/GI/Gtk/Interfaces/AppChooser.hs-boot --- a/GI/Gtk/Interfaces/AppChooser.hs-boot +++ b/GI/Gtk/Interfaces/AppChooser.hs-boot @@ -12,3 +12,6 @@ instance GObject AppChooser where class GObject o => AppChooserK o instance (GObject o, IsDescendantOf AppChooser o) => AppChooserK o +data AppChooserGetAppInfoMethodInfo +data AppChooserGetContentTypeMethodInfo +data AppChooserRefreshMethodInfo diff --git a/GI/Gtk/Interfaces/Buildable.hs b/GI/Gtk/Interfaces/Buildable.hs --- a/GI/Gtk/Interfaces/Buildable.hs +++ b/GI/Gtk/Interfaces/Buildable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,42 +18,52 @@ -- * Methods -- ** buildableAddChild + BuildableAddChildMethodInfo , buildableAddChild , -- ** buildableConstructChild + BuildableConstructChildMethodInfo , buildableConstructChild , -- ** buildableCustomFinished + BuildableCustomFinishedMethodInfo , buildableCustomFinished , -- ** buildableCustomTagEnd + BuildableCustomTagEndMethodInfo , buildableCustomTagEnd , -- ** buildableCustomTagStart + BuildableCustomTagStartMethodInfo , buildableCustomTagStart , -- ** buildableGetInternalChild + BuildableGetInternalChildMethodInfo , buildableGetInternalChild , -- ** buildableGetName + BuildableGetNameMethodInfo , buildableGetName , -- ** buildableParserFinished + BuildableParserFinishedMethodInfo , buildableParserFinished , -- ** buildableSetBuildableProperty + BuildableSetBuildablePropertyMethodInfo , buildableSetBuildableProperty , -- ** buildableSetName + BuildableSetNameMethodInfo , buildableSetName , @@ -78,11 +89,54 @@ noBuildable :: Maybe Buildable noBuildable = Nothing +type family ResolveBuildableMethod (t :: Symbol) (o :: *) :: * where + ResolveBuildableMethod "addChild" o = BuildableAddChildMethodInfo + ResolveBuildableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveBuildableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveBuildableMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveBuildableMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveBuildableMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveBuildableMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveBuildableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveBuildableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveBuildableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveBuildableMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveBuildableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveBuildableMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveBuildableMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveBuildableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveBuildableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveBuildableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveBuildableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveBuildableMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveBuildableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveBuildableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveBuildableMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveBuildableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveBuildableMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveBuildableMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveBuildableMethod "getName" o = BuildableGetNameMethodInfo + ResolveBuildableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveBuildableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveBuildableMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveBuildableMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveBuildableMethod "setName" o = BuildableSetNameMethodInfo + ResolveBuildableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveBuildableMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveBuildableMethod t Buildable, MethodInfo info Buildable p) => IsLabelProxy t (Buildable -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveBuildableMethod t Buildable, MethodInfo info Buildable p) => IsLabel t (Buildable -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList Buildable = BuildableAttributeList type BuildableAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList Buildable = BuildableSignalList -type BuildableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type BuildableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_buildable_get_type" c_gtk_buildable_get_type :: IO GType @@ -103,9 +157,8 @@ -- method Buildable::add_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -120,11 +173,11 @@ buildableAddChild :: (MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => - a -> -- _obj - b -> -- builder - c -> -- child - Maybe (T.Text) -> -- type - m () + a -- _obj + -> b -- builder + -> c -- child + -> Maybe (T.Text) -- type_ + -> m () -- result buildableAddChild _obj builder child type_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let builder' = unsafeManagedPtrCastPtr builder @@ -141,11 +194,14 @@ freeMem maybeType_ return () +data BuildableAddChildMethodInfo +instance (signature ~ (b -> c -> Maybe (T.Text) -> m ()), MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => MethodInfo BuildableAddChildMethodInfo a signature where + overloadedMethod _ = buildableAddChild + -- method Buildable::construct_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "Object" -- throws : False -- Skip return : False @@ -159,10 +215,10 @@ buildableConstructChild :: (MonadIO m, BuildableK a, BuilderK b) => - a -> -- _obj - b -> -- builder - T.Text -> -- name - m GObject.Object + a -- _obj + -> b -- builder + -> T.Text -- name + -> m GObject.Object -- result buildableConstructChild _obj builder name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let builder' = unsafeManagedPtrCastPtr builder @@ -175,11 +231,14 @@ freeMem name' return result' +data BuildableConstructChildMethodInfo +instance (signature ~ (b -> T.Text -> m GObject.Object), MonadIO m, BuildableK a, BuilderK b) => MethodInfo BuildableConstructChildMethodInfo a signature where + overloadedMethod _ = buildableConstructChild + -- method Buildable::custom_finished -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -195,12 +254,12 @@ buildableCustomFinished :: (MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => - a -> -- _obj - b -> -- builder - Maybe (c) -> -- child - T.Text -> -- tagname - Ptr () -> -- data - m () + a -- _obj + -> b -- builder + -> Maybe (c) -- child + -> T.Text -- tagname + -> Ptr () -- data_ + -> m () -- result buildableCustomFinished _obj builder child tagname data_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let builder' = unsafeManagedPtrCastPtr builder @@ -217,11 +276,14 @@ freeMem tagname' return () +data BuildableCustomFinishedMethodInfo +instance (signature ~ (b -> Maybe (c) -> T.Text -> Ptr () -> m ()), MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => MethodInfo BuildableCustomFinishedMethodInfo a signature where + overloadedMethod _ = buildableCustomFinished + -- method Buildable::custom_tag_end -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -237,12 +299,12 @@ buildableCustomTagEnd :: (MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => - a -> -- _obj - b -> -- builder - Maybe (c) -> -- child - T.Text -> -- tagname - Ptr () -> -- data - m () + a -- _obj + -> b -- builder + -> Maybe (c) -- child + -> T.Text -- tagname + -> Ptr () -- data_ + -> m () -- result buildableCustomTagEnd _obj builder child tagname data_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let builder' = unsafeManagedPtrCastPtr builder @@ -259,11 +321,14 @@ freeMem tagname' return () +data BuildableCustomTagEndMethodInfo +instance (signature ~ (b -> Maybe (c) -> T.Text -> Ptr () -> m ()), MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => MethodInfo BuildableCustomTagEndMethodInfo a signature where + overloadedMethod _ = buildableCustomTagEnd + -- method Buildable::custom_tag_start -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -280,11 +345,11 @@ buildableCustomTagStart :: (MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => - a -> -- _obj - b -> -- builder - Maybe (c) -> -- child - T.Text -> -- tagname - m (Bool,GLib.MarkupParser,(Ptr ())) + a -- _obj + -> b -- builder + -> Maybe (c) -- child + -> T.Text -- tagname + -> m (Bool,GLib.MarkupParser,(Ptr ())) -- result buildableCustomTagStart _obj builder child tagname = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let builder' = unsafeManagedPtrCastPtr builder @@ -307,11 +372,14 @@ freeMem data_ return (result', parser', data_') +data BuildableCustomTagStartMethodInfo +instance (signature ~ (b -> Maybe (c) -> T.Text -> m (Bool,GLib.MarkupParser,(Ptr ()))), MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => MethodInfo BuildableCustomTagStartMethodInfo a signature where + overloadedMethod _ = buildableCustomTagStart + -- method Buildable::get_internal_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "childname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "childname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "childname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "Object" -- throws : False -- Skip return : False @@ -325,10 +393,10 @@ buildableGetInternalChild :: (MonadIO m, BuildableK a, BuilderK b) => - a -> -- _obj - b -> -- builder - T.Text -> -- childname - m GObject.Object + a -- _obj + -> b -- builder + -> T.Text -- childname + -> m GObject.Object -- result buildableGetInternalChild _obj builder childname = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let builder' = unsafeManagedPtrCastPtr builder @@ -341,11 +409,14 @@ freeMem childname' return result' +data BuildableGetInternalChildMethodInfo +instance (signature ~ (b -> T.Text -> m GObject.Object), MonadIO m, BuildableK a, BuilderK b) => MethodInfo BuildableGetInternalChildMethodInfo a signature where + overloadedMethod _ = buildableGetInternalChild + -- method Buildable::get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -357,8 +428,8 @@ buildableGetName :: (MonadIO m, BuildableK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result buildableGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_buildable_get_name _obj' @@ -367,11 +438,14 @@ touchManagedPtr _obj return result' +data BuildableGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, BuildableK a) => MethodInfo BuildableGetNameMethodInfo a signature where + overloadedMethod _ = buildableGetName + -- method Buildable::parser_finished -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -384,9 +458,9 @@ buildableParserFinished :: (MonadIO m, BuildableK a, BuilderK b) => - a -> -- _obj - b -> -- builder - m () + a -- _obj + -> b -- builder + -> m () -- result buildableParserFinished _obj builder = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let builder' = unsafeManagedPtrCastPtr builder @@ -395,11 +469,14 @@ touchManagedPtr builder return () +data BuildableParserFinishedMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, BuildableK a, BuilderK b) => MethodInfo BuildableParserFinishedMethodInfo a signature where + overloadedMethod _ = buildableParserFinished + -- method Buildable::set_buildable_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -414,11 +491,11 @@ buildableSetBuildableProperty :: (MonadIO m, BuildableK a, BuilderK b) => - a -> -- _obj - b -> -- builder - T.Text -> -- name - GValue -> -- value - m () + a -- _obj + -> b -- builder + -> T.Text -- name + -> GValue -- value + -> m () -- result buildableSetBuildableProperty _obj builder name value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let builder' = unsafeManagedPtrCastPtr builder @@ -431,11 +508,14 @@ freeMem name' return () +data BuildableSetBuildablePropertyMethodInfo +instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, BuildableK a, BuilderK b) => MethodInfo BuildableSetBuildablePropertyMethodInfo a signature where + overloadedMethod _ = buildableSetBuildableProperty + -- method Buildable::set_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -448,9 +528,9 @@ buildableSetName :: (MonadIO m, BuildableK a) => - a -> -- _obj - T.Text -> -- name - m () + a -- _obj + -> T.Text -- name + -> m () -- result buildableSetName _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -458,5 +538,9 @@ touchManagedPtr _obj freeMem name' return () + +data BuildableSetNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, BuildableK a) => MethodInfo BuildableSetNameMethodInfo a signature where + overloadedMethod _ = buildableSetName diff --git a/GI/Gtk/Interfaces/Buildable.hs-boot b/GI/Gtk/Interfaces/Buildable.hs-boot --- a/GI/Gtk/Interfaces/Buildable.hs-boot +++ b/GI/Gtk/Interfaces/Buildable.hs-boot @@ -11,3 +11,13 @@ instance GObject Buildable where class GObject o => BuildableK o instance (GObject o, IsDescendantOf Buildable o) => BuildableK o +data BuildableAddChildMethodInfo +data BuildableConstructChildMethodInfo +data BuildableCustomFinishedMethodInfo +data BuildableCustomTagEndMethodInfo +data BuildableCustomTagStartMethodInfo +data BuildableGetInternalChildMethodInfo +data BuildableGetNameMethodInfo +data BuildableParserFinishedMethodInfo +data BuildableSetBuildablePropertyMethodInfo +data BuildableSetNameMethodInfo diff --git a/GI/Gtk/Interfaces/CellAccessibleParent.hs b/GI/Gtk/Interfaces/CellAccessibleParent.hs --- a/GI/Gtk/Interfaces/CellAccessibleParent.hs +++ b/GI/Gtk/Interfaces/CellAccessibleParent.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,38 +17,47 @@ -- * Methods -- ** cellAccessibleParentActivate + CellAccessibleParentActivateMethodInfo , cellAccessibleParentActivate , -- ** cellAccessibleParentEdit + CellAccessibleParentEditMethodInfo , cellAccessibleParentEdit , -- ** cellAccessibleParentExpandCollapse + CellAccessibleParentExpandCollapseMethodInfo, cellAccessibleParentExpandCollapse , -- ** cellAccessibleParentGetCellArea + CellAccessibleParentGetCellAreaMethodInfo, cellAccessibleParentGetCellArea , -- ** cellAccessibleParentGetCellExtents + CellAccessibleParentGetCellExtentsMethodInfo, cellAccessibleParentGetCellExtents , -- ** cellAccessibleParentGetChildIndex + CellAccessibleParentGetChildIndexMethodInfo, cellAccessibleParentGetChildIndex , -- ** cellAccessibleParentGetRendererState + CellAccessibleParentGetRendererStateMethodInfo, cellAccessibleParentGetRendererState , -- ** cellAccessibleParentGrabFocus + CellAccessibleParentGrabFocusMethodInfo , cellAccessibleParentGrabFocus , -- ** cellAccessibleParentUpdateRelationset + CellAccessibleParentUpdateRelationsetMethodInfo, cellAccessibleParentUpdateRelationset , @@ -73,6 +83,26 @@ noCellAccessibleParent :: Maybe CellAccessibleParent noCellAccessibleParent = Nothing +type family ResolveCellAccessibleParentMethod (t :: Symbol) (o :: *) :: * where + ResolveCellAccessibleParentMethod "activate" o = CellAccessibleParentActivateMethodInfo + ResolveCellAccessibleParentMethod "edit" o = CellAccessibleParentEditMethodInfo + ResolveCellAccessibleParentMethod "expandCollapse" o = CellAccessibleParentExpandCollapseMethodInfo + ResolveCellAccessibleParentMethod "grabFocus" o = CellAccessibleParentGrabFocusMethodInfo + ResolveCellAccessibleParentMethod "updateRelationset" o = CellAccessibleParentUpdateRelationsetMethodInfo + ResolveCellAccessibleParentMethod "getCellArea" o = CellAccessibleParentGetCellAreaMethodInfo + ResolveCellAccessibleParentMethod "getCellExtents" o = CellAccessibleParentGetCellExtentsMethodInfo + ResolveCellAccessibleParentMethod "getChildIndex" o = CellAccessibleParentGetChildIndexMethodInfo + ResolveCellAccessibleParentMethod "getRendererState" o = CellAccessibleParentGetRendererStateMethodInfo + ResolveCellAccessibleParentMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, MethodInfo info CellAccessibleParent p) => IsLabelProxy t (CellAccessibleParent -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellAccessibleParentMethod t CellAccessibleParent, MethodInfo info CellAccessibleParent p) => IsLabel t (CellAccessibleParent -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList CellAccessibleParent = CellAccessibleParentAttributeList type CellAccessibleParentAttributeList = ('[ ] :: [(Symbol, *)]) @@ -86,9 +116,8 @@ -- method CellAccessibleParent::activate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -101,9 +130,9 @@ cellAccessibleParentActivate :: (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -> -- _obj - b -> -- cell - m () + a -- _obj + -> b -- cell + -> m () -- result cellAccessibleParentActivate _obj cell = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -112,11 +141,14 @@ touchManagedPtr cell return () +data CellAccessibleParentActivateMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentActivateMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentActivate + -- method CellAccessibleParent::edit -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -129,9 +161,9 @@ cellAccessibleParentEdit :: (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -> -- _obj - b -> -- cell - m () + a -- _obj + -> b -- cell + -> m () -- result cellAccessibleParentEdit _obj cell = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -140,11 +172,14 @@ touchManagedPtr cell return () +data CellAccessibleParentEditMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentEditMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentEdit + -- method CellAccessibleParent::expand_collapse -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -157,9 +192,9 @@ cellAccessibleParentExpandCollapse :: (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -> -- _obj - b -> -- cell - m () + a -- _obj + -> b -- cell + -> m () -- result cellAccessibleParentExpandCollapse _obj cell = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -168,11 +203,14 @@ touchManagedPtr cell return () +data CellAccessibleParentExpandCollapseMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentExpandCollapseMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentExpandCollapse + -- method CellAccessibleParent::get_cell_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -186,25 +224,28 @@ cellAccessibleParentGetCellArea :: (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -> -- _obj - b -> -- cell - Gdk.Rectangle -> -- cell_rect - m () -cellAccessibleParentGetCellArea _obj cell cell_rect = liftIO $ do + a -- _obj + -> b -- cell + -> Gdk.Rectangle -- cellRect + -> m () -- result +cellAccessibleParentGetCellArea _obj cell cellRect = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell - let cell_rect' = unsafeManagedPtrGetPtr cell_rect - gtk_cell_accessible_parent_get_cell_area _obj' cell' cell_rect' + let cellRect' = unsafeManagedPtrGetPtr cellRect + gtk_cell_accessible_parent_get_cell_area _obj' cell' cellRect' touchManagedPtr _obj touchManagedPtr cell - touchManagedPtr cell_rect + touchManagedPtr cellRect return () +data CellAccessibleParentGetCellAreaMethodInfo +instance (signature ~ (b -> Gdk.Rectangle -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGetCellAreaMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGetCellArea + -- method CellAccessibleParent::get_cell_extents -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -222,28 +263,31 @@ cellAccessibleParentGetCellExtents :: (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -> -- _obj - b -> -- cell - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - Atk.CoordType -> -- coord_type - m () -cellAccessibleParentGetCellExtents _obj cell x y width height coord_type = liftIO $ do + a -- _obj + -> b -- cell + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> Atk.CoordType -- coordType + -> m () -- result +cellAccessibleParentGetCellExtents _obj cell x y width height coordType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell - let coord_type' = (fromIntegral . fromEnum) coord_type - gtk_cell_accessible_parent_get_cell_extents _obj' cell' x y width height coord_type' + let coordType' = (fromIntegral . fromEnum) coordType + gtk_cell_accessible_parent_get_cell_extents _obj' cell' x y width height coordType' touchManagedPtr _obj touchManagedPtr cell return () +data CellAccessibleParentGetCellExtentsMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Int32 -> Atk.CoordType -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGetCellExtentsMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGetCellExtents + -- method CellAccessibleParent::get_child_index -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -256,9 +300,9 @@ cellAccessibleParentGetChildIndex :: (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -> -- _obj - b -> -- cell - m Int32 + a -- _obj + -> b -- cell + -> m Int32 -- result cellAccessibleParentGetChildIndex _obj cell = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -267,11 +311,14 @@ touchManagedPtr cell return result +data CellAccessibleParentGetChildIndexMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGetChildIndexMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGetChildIndex + -- method CellAccessibleParent::get_renderer_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellRendererState" -- throws : False -- Skip return : False @@ -284,9 +331,9 @@ cellAccessibleParentGetRendererState :: (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -> -- _obj - b -> -- cell - m [CellRendererState] + a -- _obj + -> b -- cell + -> m [CellRendererState] -- result cellAccessibleParentGetRendererState _obj cell = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -296,11 +343,14 @@ touchManagedPtr cell return result' +data CellAccessibleParentGetRendererStateMethodInfo +instance (signature ~ (b -> m [CellRendererState]), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGetRendererStateMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGetRendererState + -- method CellAccessibleParent::grab_focus -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -313,9 +363,9 @@ cellAccessibleParentGrabFocus :: (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -> -- _obj - b -> -- cell - m Bool + a -- _obj + -> b -- cell + -> m Bool -- result cellAccessibleParentGrabFocus _obj cell = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -325,11 +375,14 @@ touchManagedPtr cell return result' +data CellAccessibleParentGrabFocusMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => MethodInfo CellAccessibleParentGrabFocusMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentGrabFocus + -- method CellAccessibleParent::update_relationset -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationset", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationset", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationset", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -343,10 +396,10 @@ cellAccessibleParentUpdateRelationset :: (MonadIO m, CellAccessibleParentK a, CellAccessibleK b, Atk.RelationSetK c) => - a -> -- _obj - b -> -- cell - c -> -- relationset - m () + a -- _obj + -> b -- cell + -> c -- relationset + -> m () -- result cellAccessibleParentUpdateRelationset _obj cell relationset = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -356,5 +409,9 @@ touchManagedPtr cell touchManagedPtr relationset return () + +data CellAccessibleParentUpdateRelationsetMethodInfo +instance (signature ~ (b -> c -> m ()), MonadIO m, CellAccessibleParentK a, CellAccessibleK b, Atk.RelationSetK c) => MethodInfo CellAccessibleParentUpdateRelationsetMethodInfo a signature where + overloadedMethod _ = cellAccessibleParentUpdateRelationset diff --git a/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot b/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot --- a/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot +++ b/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot @@ -10,3 +10,12 @@ newtype CellAccessibleParent = CellAccessibleParent (ForeignPtr CellAccessibleParent) class ForeignPtrNewtype a => CellAccessibleParentK a instance (ForeignPtrNewtype o, IsDescendantOf CellAccessibleParent o) => CellAccessibleParentK o +data CellAccessibleParentActivateMethodInfo +data CellAccessibleParentEditMethodInfo +data CellAccessibleParentExpandCollapseMethodInfo +data CellAccessibleParentGetCellAreaMethodInfo +data CellAccessibleParentGetCellExtentsMethodInfo +data CellAccessibleParentGetChildIndexMethodInfo +data CellAccessibleParentGetRendererStateMethodInfo +data CellAccessibleParentGrabFocusMethodInfo +data CellAccessibleParentUpdateRelationsetMethodInfo diff --git a/GI/Gtk/Interfaces/CellEditable.hs b/GI/Gtk/Interfaces/CellEditable.hs --- a/GI/Gtk/Interfaces/CellEditable.hs +++ b/GI/Gtk/Interfaces/CellEditable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** cellEditableEditingDone + CellEditableEditingDoneMethodInfo , cellEditableEditingDone , -- ** cellEditableRemoveWidget + CellEditableRemoveWidgetMethodInfo , cellEditableRemoveWidget , -- ** cellEditableStartEditing + CellEditableStartEditingMethodInfo , cellEditableStartEditing , @@ -87,6 +91,305 @@ noCellEditable :: Maybe CellEditable noCellEditable = Nothing +type family ResolveCellEditableMethod (t :: Symbol) (o :: *) :: * where + ResolveCellEditableMethod "activate" o = WidgetActivateMethodInfo + ResolveCellEditableMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveCellEditableMethod "addChild" o = BuildableAddChildMethodInfo + ResolveCellEditableMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveCellEditableMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveCellEditableMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveCellEditableMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveCellEditableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellEditableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellEditableMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveCellEditableMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveCellEditableMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveCellEditableMethod "classPath" o = WidgetClassPathMethodInfo + ResolveCellEditableMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveCellEditableMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveCellEditableMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveCellEditableMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveCellEditableMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveCellEditableMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveCellEditableMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveCellEditableMethod "destroy" o = WidgetDestroyMethodInfo + ResolveCellEditableMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveCellEditableMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveCellEditableMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveCellEditableMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveCellEditableMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveCellEditableMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveCellEditableMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveCellEditableMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveCellEditableMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveCellEditableMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveCellEditableMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveCellEditableMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveCellEditableMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveCellEditableMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveCellEditableMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveCellEditableMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveCellEditableMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveCellEditableMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveCellEditableMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveCellEditableMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveCellEditableMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveCellEditableMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveCellEditableMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveCellEditableMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveCellEditableMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveCellEditableMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveCellEditableMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveCellEditableMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveCellEditableMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveCellEditableMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveCellEditableMethod "draw" o = WidgetDrawMethodInfo + ResolveCellEditableMethod "editingDone" o = CellEditableEditingDoneMethodInfo + ResolveCellEditableMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveCellEditableMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveCellEditableMethod "event" o = WidgetEventMethodInfo + ResolveCellEditableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellEditableMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveCellEditableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellEditableMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveCellEditableMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveCellEditableMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveCellEditableMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveCellEditableMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveCellEditableMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveCellEditableMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveCellEditableMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveCellEditableMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveCellEditableMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveCellEditableMethod "hide" o = WidgetHideMethodInfo + ResolveCellEditableMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveCellEditableMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveCellEditableMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveCellEditableMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveCellEditableMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveCellEditableMethod "intersect" o = WidgetIntersectMethodInfo + ResolveCellEditableMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveCellEditableMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveCellEditableMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveCellEditableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellEditableMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveCellEditableMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveCellEditableMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveCellEditableMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveCellEditableMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveCellEditableMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveCellEditableMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveCellEditableMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveCellEditableMethod "map" o = WidgetMapMethodInfo + ResolveCellEditableMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveCellEditableMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveCellEditableMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveCellEditableMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveCellEditableMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveCellEditableMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveCellEditableMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveCellEditableMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveCellEditableMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellEditableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellEditableMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveCellEditableMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveCellEditableMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveCellEditableMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveCellEditableMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveCellEditableMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveCellEditableMethod "path" o = WidgetPathMethodInfo + ResolveCellEditableMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveCellEditableMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveCellEditableMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveCellEditableMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveCellEditableMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveCellEditableMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveCellEditableMethod "realize" o = WidgetRealizeMethodInfo + ResolveCellEditableMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellEditableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellEditableMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveCellEditableMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveCellEditableMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveCellEditableMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveCellEditableMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveCellEditableMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo + ResolveCellEditableMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveCellEditableMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveCellEditableMethod "reparent" o = WidgetReparentMethodInfo + ResolveCellEditableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellEditableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellEditableMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveCellEditableMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveCellEditableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellEditableMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveCellEditableMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveCellEditableMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveCellEditableMethod "show" o = WidgetShowMethodInfo + ResolveCellEditableMethod "showAll" o = WidgetShowAllMethodInfo + ResolveCellEditableMethod "showNow" o = WidgetShowNowMethodInfo + ResolveCellEditableMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveCellEditableMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveCellEditableMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveCellEditableMethod "startEditing" o = CellEditableStartEditingMethodInfo + ResolveCellEditableMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellEditableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellEditableMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveCellEditableMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveCellEditableMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveCellEditableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellEditableMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveCellEditableMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveCellEditableMethod "unmap" o = WidgetUnmapMethodInfo + ResolveCellEditableMethod "unparent" o = WidgetUnparentMethodInfo + ResolveCellEditableMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveCellEditableMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellEditableMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveCellEditableMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveCellEditableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellEditableMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveCellEditableMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveCellEditableMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveCellEditableMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveCellEditableMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveCellEditableMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveCellEditableMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveCellEditableMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveCellEditableMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveCellEditableMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveCellEditableMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveCellEditableMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveCellEditableMethod "getClip" o = WidgetGetClipMethodInfo + ResolveCellEditableMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveCellEditableMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveCellEditableMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellEditableMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveCellEditableMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveCellEditableMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveCellEditableMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveCellEditableMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveCellEditableMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveCellEditableMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveCellEditableMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveCellEditableMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveCellEditableMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveCellEditableMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveCellEditableMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveCellEditableMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveCellEditableMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveCellEditableMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveCellEditableMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveCellEditableMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveCellEditableMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveCellEditableMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveCellEditableMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveCellEditableMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveCellEditableMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveCellEditableMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveCellEditableMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveCellEditableMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveCellEditableMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveCellEditableMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveCellEditableMethod "getParent" o = WidgetGetParentMethodInfo + ResolveCellEditableMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveCellEditableMethod "getPath" o = WidgetGetPathMethodInfo + ResolveCellEditableMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveCellEditableMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveCellEditableMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveCellEditableMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveCellEditableMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveCellEditableMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveCellEditableMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveCellEditableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellEditableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellEditableMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveCellEditableMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveCellEditableMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveCellEditableMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveCellEditableMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveCellEditableMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveCellEditableMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveCellEditableMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveCellEditableMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveCellEditableMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveCellEditableMethod "getState" o = WidgetGetStateMethodInfo + ResolveCellEditableMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveCellEditableMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveCellEditableMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveCellEditableMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveCellEditableMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveCellEditableMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveCellEditableMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveCellEditableMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveCellEditableMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveCellEditableMethod "getValign" o = WidgetGetValignMethodInfo + ResolveCellEditableMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveCellEditableMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveCellEditableMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveCellEditableMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveCellEditableMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveCellEditableMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveCellEditableMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveCellEditableMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveCellEditableMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveCellEditableMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveCellEditableMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveCellEditableMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveCellEditableMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveCellEditableMethod "setClip" o = WidgetSetClipMethodInfo + ResolveCellEditableMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveCellEditableMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellEditableMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveCellEditableMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveCellEditableMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveCellEditableMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveCellEditableMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveCellEditableMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveCellEditableMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveCellEditableMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveCellEditableMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveCellEditableMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveCellEditableMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveCellEditableMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveCellEditableMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveCellEditableMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveCellEditableMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveCellEditableMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveCellEditableMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveCellEditableMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveCellEditableMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveCellEditableMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveCellEditableMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveCellEditableMethod "setParent" o = WidgetSetParentMethodInfo + ResolveCellEditableMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveCellEditableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellEditableMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveCellEditableMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveCellEditableMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveCellEditableMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveCellEditableMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveCellEditableMethod "setState" o = WidgetSetStateMethodInfo + ResolveCellEditableMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveCellEditableMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveCellEditableMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveCellEditableMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveCellEditableMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveCellEditableMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveCellEditableMethod "setValign" o = WidgetSetValignMethodInfo + ResolveCellEditableMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveCellEditableMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveCellEditableMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveCellEditableMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveCellEditableMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveCellEditableMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellEditableMethod t CellEditable, MethodInfo info CellEditable p) => IsLabelProxy t (CellEditable -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellEditableMethod t CellEditable, MethodInfo info CellEditable p) => IsLabel t (CellEditable -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal CellEditable::editing-done type CellEditableEditingDoneCallback = IO () @@ -182,13 +485,13 @@ type AttrSetTypeConstraint CellEditableEditingCanceledPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellEditableEditingCanceledPropertyInfo = CellEditableK type AttrGetType CellEditableEditingCanceledPropertyInfo = Bool - type AttrLabel CellEditableEditingCanceledPropertyInfo = "CellEditable::editing-canceled" + type AttrLabel CellEditableEditingCanceledPropertyInfo = "editing-canceled" attrGet _ = getCellEditableEditingCanceled attrSet _ = setCellEditableEditingCanceled attrConstruct _ = constructCellEditableEditingCanceled type instance AttributeList CellEditable = CellEditableAttributeList -type CellEditableAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type CellEditableAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data CellEditableEditingDoneSignalInfo instance SignalInfo CellEditableEditingDoneSignalInfo where @@ -201,7 +504,7 @@ connectSignal _ = connectCellEditableRemoveWidget type instance SignalList CellEditable = CellEditableSignalList -type CellEditableSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellEditableSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_cell_editable_get_type" c_gtk_cell_editable_get_type :: IO GType @@ -222,9 +525,8 @@ -- method CellEditable::editing_done -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -236,19 +538,22 @@ cellEditableEditingDone :: (MonadIO m, CellEditableK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result cellEditableEditingDone _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_cell_editable_editing_done _obj' touchManagedPtr _obj return () +data CellEditableEditingDoneMethodInfo +instance (signature ~ (m ()), MonadIO m, CellEditableK a) => MethodInfo CellEditableEditingDoneMethodInfo a signature where + overloadedMethod _ = cellEditableEditingDone + -- method CellEditable::remove_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -260,19 +565,22 @@ cellEditableRemoveWidget :: (MonadIO m, CellEditableK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result cellEditableRemoveWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_cell_editable_remove_widget _obj' touchManagedPtr _obj return () +data CellEditableRemoveWidgetMethodInfo +instance (signature ~ (m ()), MonadIO m, CellEditableK a) => MethodInfo CellEditableRemoveWidgetMethodInfo a signature where + overloadedMethod _ = cellEditableRemoveWidget + -- method CellEditable::start_editing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -285,9 +593,9 @@ cellEditableStartEditing :: (MonadIO m, CellEditableK a) => - a -> -- _obj - Maybe (Gdk.Event) -> -- event - m () + a -- _obj + -> Maybe (Gdk.Event) -- event + -> m () -- result cellEditableStartEditing _obj event = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeEvent <- case event of @@ -299,5 +607,9 @@ touchManagedPtr _obj whenJust event touchManagedPtr return () + +data CellEditableStartEditingMethodInfo +instance (signature ~ (Maybe (Gdk.Event) -> m ()), MonadIO m, CellEditableK a) => MethodInfo CellEditableStartEditingMethodInfo a signature where + overloadedMethod _ = cellEditableStartEditing diff --git a/GI/Gtk/Interfaces/CellEditable.hs-boot b/GI/Gtk/Interfaces/CellEditable.hs-boot --- a/GI/Gtk/Interfaces/CellEditable.hs-boot +++ b/GI/Gtk/Interfaces/CellEditable.hs-boot @@ -14,3 +14,6 @@ instance GObject CellEditable where class GObject o => CellEditableK o instance (GObject o, IsDescendantOf CellEditable o) => CellEditableK o +data CellEditableEditingDoneMethodInfo +data CellEditableRemoveWidgetMethodInfo +data CellEditableStartEditingMethodInfo diff --git a/GI/Gtk/Interfaces/CellLayout.hs b/GI/Gtk/Interfaces/CellLayout.hs --- a/GI/Gtk/Interfaces/CellLayout.hs +++ b/GI/Gtk/Interfaces/CellLayout.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,38 +18,47 @@ -- * Methods -- ** cellLayoutAddAttribute + CellLayoutAddAttributeMethodInfo , cellLayoutAddAttribute , -- ** cellLayoutClear + CellLayoutClearMethodInfo , cellLayoutClear , -- ** cellLayoutClearAttributes + CellLayoutClearAttributesMethodInfo , cellLayoutClearAttributes , -- ** cellLayoutGetArea + CellLayoutGetAreaMethodInfo , cellLayoutGetArea , -- ** cellLayoutGetCells + CellLayoutGetCellsMethodInfo , cellLayoutGetCells , -- ** cellLayoutPackEnd + CellLayoutPackEndMethodInfo , cellLayoutPackEnd , -- ** cellLayoutPackStart + CellLayoutPackStartMethodInfo , cellLayoutPackStart , -- ** cellLayoutReorder + CellLayoutReorderMethodInfo , cellLayoutReorder , -- ** cellLayoutSetCellDataFunc + CellLayoutSetCellDataFuncMethodInfo , cellLayoutSetCellDataFunc , @@ -74,11 +84,53 @@ noCellLayout :: Maybe CellLayout noCellLayout = Nothing +type family ResolveCellLayoutMethod (t :: Symbol) (o :: *) :: * where + ResolveCellLayoutMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo + ResolveCellLayoutMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellLayoutMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellLayoutMethod "clear" o = CellLayoutClearMethodInfo + ResolveCellLayoutMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo + ResolveCellLayoutMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellLayoutMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellLayoutMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellLayoutMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellLayoutMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellLayoutMethod "packEnd" o = CellLayoutPackEndMethodInfo + ResolveCellLayoutMethod "packStart" o = CellLayoutPackStartMethodInfo + ResolveCellLayoutMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellLayoutMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellLayoutMethod "reorder" o = CellLayoutReorderMethodInfo + ResolveCellLayoutMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellLayoutMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellLayoutMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellLayoutMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellLayoutMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellLayoutMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellLayoutMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellLayoutMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellLayoutMethod "getArea" o = CellLayoutGetAreaMethodInfo + ResolveCellLayoutMethod "getCells" o = CellLayoutGetCellsMethodInfo + ResolveCellLayoutMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellLayoutMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellLayoutMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellLayoutMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo + ResolveCellLayoutMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellLayoutMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellLayoutMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellLayoutMethod t CellLayout, MethodInfo info CellLayout p) => IsLabelProxy t (CellLayout -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellLayoutMethod t CellLayout, MethodInfo info CellLayout p) => IsLabel t (CellLayout -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList CellLayout = CellLayoutAttributeList type CellLayoutAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList CellLayout = CellLayoutSignalList -type CellLayoutSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellLayoutSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_cell_layout_get_type" c_gtk_cell_layout_get_type :: IO GType @@ -99,9 +151,8 @@ -- method CellLayout::add_attribute -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -116,11 +167,11 @@ cellLayoutAddAttribute :: (MonadIO m, CellLayoutK a, CellRendererK b) => - a -> -- _obj - b -> -- cell - T.Text -> -- attribute - Int32 -> -- column - m () + a -- _obj + -> b -- cell + -> T.Text -- attribute + -> Int32 -- column + -> m () -- result cellLayoutAddAttribute _obj cell attribute column = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -131,11 +182,14 @@ freeMem attribute' return () +data CellLayoutAddAttributeMethodInfo +instance (signature ~ (b -> T.Text -> Int32 -> m ()), MonadIO m, CellLayoutK a, CellRendererK b) => MethodInfo CellLayoutAddAttributeMethodInfo a signature where + overloadedMethod _ = cellLayoutAddAttribute + -- method CellLayout::clear -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -147,19 +201,22 @@ cellLayoutClear :: (MonadIO m, CellLayoutK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result cellLayoutClear _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_cell_layout_clear _obj' touchManagedPtr _obj return () +data CellLayoutClearMethodInfo +instance (signature ~ (m ()), MonadIO m, CellLayoutK a) => MethodInfo CellLayoutClearMethodInfo a signature where + overloadedMethod _ = cellLayoutClear + -- method CellLayout::clear_attributes -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -172,9 +229,9 @@ cellLayoutClearAttributes :: (MonadIO m, CellLayoutK a, CellRendererK b) => - a -> -- _obj - b -> -- cell - m () + a -- _obj + -> b -- cell + -> m () -- result cellLayoutClearAttributes _obj cell = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -183,11 +240,14 @@ touchManagedPtr cell return () +data CellLayoutClearAttributesMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, CellLayoutK a, CellRendererK b) => MethodInfo CellLayoutClearAttributesMethodInfo a signature where + overloadedMethod _ = cellLayoutClearAttributes + -- method CellLayout::get_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellArea" -- throws : False -- Skip return : False @@ -199,8 +259,8 @@ cellLayoutGetArea :: (MonadIO m, CellLayoutK a) => - a -> -- _obj - m CellArea + a -- _obj + -> m CellArea -- result cellLayoutGetArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_layout_get_area _obj' @@ -209,11 +269,14 @@ touchManagedPtr _obj return result' +data CellLayoutGetAreaMethodInfo +instance (signature ~ (m CellArea), MonadIO m, CellLayoutK a) => MethodInfo CellLayoutGetAreaMethodInfo a signature where + overloadedMethod _ = cellLayoutGetArea + -- method CellLayout::get_cells -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "CellRenderer") -- throws : False -- Skip return : False @@ -225,8 +288,8 @@ cellLayoutGetCells :: (MonadIO m, CellLayoutK a) => - a -> -- _obj - m [CellRenderer] + a -- _obj + -> m [CellRenderer] -- result cellLayoutGetCells _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_layout_get_cells _obj' @@ -237,11 +300,14 @@ touchManagedPtr _obj return result'' +data CellLayoutGetCellsMethodInfo +instance (signature ~ (m [CellRenderer]), MonadIO m, CellLayoutK a) => MethodInfo CellLayoutGetCellsMethodInfo a signature where + overloadedMethod _ = cellLayoutGetCells + -- method CellLayout::pack_end -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -255,10 +321,10 @@ cellLayoutPackEnd :: (MonadIO m, CellLayoutK a, CellRendererK b) => - a -> -- _obj - b -> -- cell - Bool -> -- expand - m () + a -- _obj + -> b -- cell + -> Bool -- expand + -> m () -- result cellLayoutPackEnd _obj cell expand = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -268,11 +334,14 @@ touchManagedPtr cell return () +data CellLayoutPackEndMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, CellLayoutK a, CellRendererK b) => MethodInfo CellLayoutPackEndMethodInfo a signature where + overloadedMethod _ = cellLayoutPackEnd + -- method CellLayout::pack_start -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -286,10 +355,10 @@ cellLayoutPackStart :: (MonadIO m, CellLayoutK a, CellRendererK b) => - a -> -- _obj - b -> -- cell - Bool -> -- expand - m () + a -- _obj + -> b -- cell + -> Bool -- expand + -> m () -- result cellLayoutPackStart _obj cell expand = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -299,11 +368,14 @@ touchManagedPtr cell return () +data CellLayoutPackStartMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, CellLayoutK a, CellRendererK b) => MethodInfo CellLayoutPackStartMethodInfo a signature where + overloadedMethod _ = cellLayoutPackStart + -- method CellLayout::reorder -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -317,10 +389,10 @@ cellLayoutReorder :: (MonadIO m, CellLayoutK a, CellRendererK b) => - a -> -- _obj - b -> -- cell - Int32 -> -- position - m () + a -- _obj + -> b -- cell + -> Int32 -- position + -> m () -- result cellLayoutReorder _obj cell position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -329,11 +401,14 @@ touchManagedPtr cell return () +data CellLayoutReorderMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, CellLayoutK a, CellRendererK b) => MethodInfo CellLayoutReorderMethodInfo a signature where + overloadedMethod _ = cellLayoutReorder + -- method CellLayout::set_cell_data_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "CellLayoutDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "CellLayoutDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "CellLayoutDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -349,10 +424,10 @@ cellLayoutSetCellDataFunc :: (MonadIO m, CellLayoutK a, CellRendererK b) => - a -> -- _obj - b -> -- cell - Maybe (CellLayoutDataFunc) -> -- func - m () + a -- _obj + -> b -- cell + -> Maybe (CellLayoutDataFunc) -- func + -> m () -- result cellLayoutSetCellDataFunc _obj cell func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -361,11 +436,15 @@ Just jFunc -> do jFunc' <- mkCellLayoutDataFunc (cellLayoutDataFuncWrapper Nothing jFunc) return jFunc' - let func_data = castFunPtrToPtr maybeFunc + let funcData = castFunPtrToPtr maybeFunc let destroy = safeFreeFunPtrPtr - gtk_cell_layout_set_cell_data_func _obj' cell' maybeFunc func_data destroy + gtk_cell_layout_set_cell_data_func _obj' cell' maybeFunc funcData destroy touchManagedPtr _obj touchManagedPtr cell return () + +data CellLayoutSetCellDataFuncMethodInfo +instance (signature ~ (b -> Maybe (CellLayoutDataFunc) -> m ()), MonadIO m, CellLayoutK a, CellRendererK b) => MethodInfo CellLayoutSetCellDataFuncMethodInfo a signature where + overloadedMethod _ = cellLayoutSetCellDataFunc diff --git a/GI/Gtk/Interfaces/CellLayout.hs-boot b/GI/Gtk/Interfaces/CellLayout.hs-boot --- a/GI/Gtk/Interfaces/CellLayout.hs-boot +++ b/GI/Gtk/Interfaces/CellLayout.hs-boot @@ -11,3 +11,12 @@ instance GObject CellLayout where class GObject o => CellLayoutK o instance (GObject o, IsDescendantOf CellLayout o) => CellLayoutK o +data CellLayoutAddAttributeMethodInfo +data CellLayoutClearMethodInfo +data CellLayoutClearAttributesMethodInfo +data CellLayoutGetAreaMethodInfo +data CellLayoutGetCellsMethodInfo +data CellLayoutPackEndMethodInfo +data CellLayoutPackStartMethodInfo +data CellLayoutReorderMethodInfo +data CellLayoutSetCellDataFuncMethodInfo diff --git a/GI/Gtk/Interfaces/ColorChooser.hs b/GI/Gtk/Interfaces/ColorChooser.hs --- a/GI/Gtk/Interfaces/ColorChooser.hs +++ b/GI/Gtk/Interfaces/ColorChooser.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** colorChooserAddPalette + ColorChooserAddPaletteMethodInfo , colorChooserAddPalette , -- ** colorChooserGetRgba + ColorChooserGetRgbaMethodInfo , colorChooserGetRgba , -- ** colorChooserGetUseAlpha + ColorChooserGetUseAlphaMethodInfo , colorChooserGetUseAlpha , -- ** colorChooserSetRgba + ColorChooserSetRgbaMethodInfo , colorChooserSetRgba , -- ** colorChooserSetUseAlpha + ColorChooserSetUseAlphaMethodInfo , colorChooserSetUseAlpha , @@ -90,6 +96,44 @@ noColorChooser :: Maybe ColorChooser noColorChooser = Nothing +type family ResolveColorChooserMethod (t :: Symbol) (o :: *) :: * where + ResolveColorChooserMethod "addPalette" o = ColorChooserAddPaletteMethodInfo + ResolveColorChooserMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveColorChooserMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveColorChooserMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveColorChooserMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveColorChooserMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveColorChooserMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveColorChooserMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveColorChooserMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveColorChooserMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveColorChooserMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveColorChooserMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveColorChooserMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveColorChooserMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveColorChooserMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveColorChooserMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveColorChooserMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveColorChooserMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveColorChooserMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveColorChooserMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveColorChooserMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveColorChooserMethod "getRgba" o = ColorChooserGetRgbaMethodInfo + ResolveColorChooserMethod "getUseAlpha" o = ColorChooserGetUseAlphaMethodInfo + ResolveColorChooserMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveColorChooserMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveColorChooserMethod "setRgba" o = ColorChooserSetRgbaMethodInfo + ResolveColorChooserMethod "setUseAlpha" o = ColorChooserSetUseAlphaMethodInfo + ResolveColorChooserMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveColorChooserMethod t ColorChooser, MethodInfo info ColorChooser p) => IsLabelProxy t (ColorChooser -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveColorChooserMethod t ColorChooser, MethodInfo info ColorChooser p) => IsLabel t (ColorChooser -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ColorChooser::color-activated type ColorChooserColorActivatedCallback = Gdk.RGBA -> @@ -151,7 +195,7 @@ type AttrSetTypeConstraint ColorChooserRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint ColorChooserRgbaPropertyInfo = ColorChooserK type AttrGetType ColorChooserRgbaPropertyInfo = Gdk.RGBA - type AttrLabel ColorChooserRgbaPropertyInfo = "ColorChooser::rgba" + type AttrLabel ColorChooserRgbaPropertyInfo = "rgba" attrGet _ = getColorChooserRgba attrSet _ = setColorChooserRgba attrConstruct _ = constructColorChooserRgba @@ -175,13 +219,13 @@ type AttrSetTypeConstraint ColorChooserUseAlphaPropertyInfo = (~) Bool type AttrBaseTypeConstraint ColorChooserUseAlphaPropertyInfo = ColorChooserK type AttrGetType ColorChooserUseAlphaPropertyInfo = Bool - type AttrLabel ColorChooserUseAlphaPropertyInfo = "ColorChooser::use-alpha" + type AttrLabel ColorChooserUseAlphaPropertyInfo = "use-alpha" attrGet _ = getColorChooserUseAlpha attrSet _ = setColorChooserUseAlpha attrConstruct _ = constructColorChooserUseAlpha type instance AttributeList ColorChooser = ColorChooserAttributeList -type ColorChooserAttributeList = ('[ '("rgba", ColorChooserRgbaPropertyInfo), '("use-alpha", ColorChooserUseAlphaPropertyInfo)] :: [(Symbol, *)]) +type ColorChooserAttributeList = ('[ '("rgba", ColorChooserRgbaPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo)] :: [(Symbol, *)]) data ColorChooserColorActivatedSignalInfo instance SignalInfo ColorChooserColorActivatedSignalInfo where @@ -189,7 +233,7 @@ connectSignal _ = connectColorChooserColorActivated type instance SignalList ColorChooser = ColorChooserSignalList -type ColorChooserSignalList = ('[ '("color-activated", ColorChooserColorActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ColorChooserSignalList = ('[ '("colorActivated", ColorChooserColorActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_color_chooser_get_type" c_gtk_color_chooser_get_type :: IO GType @@ -210,9 +254,8 @@ -- method ColorChooser::add_palette -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors_per_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors", argType = TCArray False (-1) 3 (TInterface "Gdk" "RGBA"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors_per_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors", argType = TCArray False (-1) 3 (TInterface "Gdk" "RGBA"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors_per_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 3 (TInterface "Gdk" "RGBA"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -228,13 +271,13 @@ colorChooserAddPalette :: (MonadIO m, ColorChooserK a) => - a -> -- _obj - Orientation -> -- orientation - Int32 -> -- colors_per_line - Maybe ([Gdk.RGBA]) -> -- colors - m () -colorChooserAddPalette _obj orientation colors_per_line colors = liftIO $ do - let n_colors = case colors of + a -- _obj + -> Orientation -- orientation + -> Int32 -- colorsPerLine + -> Maybe ([Gdk.RGBA]) -- colors + -> m () -- result +colorChooserAddPalette _obj orientation colorsPerLine colors = liftIO $ do + let nColors = case colors of Nothing -> 0 Just jColors -> fromIntegral $ length jColors let _obj' = unsafeManagedPtrCastPtr _obj @@ -245,17 +288,20 @@ let jColors' = map unsafeManagedPtrGetPtr jColors jColors'' <- packBlockArray 32 jColors' return jColors'' - gtk_color_chooser_add_palette _obj' orientation' colors_per_line n_colors maybeColors + gtk_color_chooser_add_palette _obj' orientation' colorsPerLine nColors maybeColors touchManagedPtr _obj whenJust colors (mapM_ touchManagedPtr) freeMem maybeColors return () +data ColorChooserAddPaletteMethodInfo +instance (signature ~ (Orientation -> Int32 -> Maybe ([Gdk.RGBA]) -> m ()), MonadIO m, ColorChooserK a) => MethodInfo ColorChooserAddPaletteMethodInfo a signature where + overloadedMethod _ = colorChooserAddPalette + -- method ColorChooser::get_rgba -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -268,8 +314,8 @@ colorChooserGetRgba :: (MonadIO m, ColorChooserK a) => - a -> -- _obj - m (Gdk.RGBA) + a -- _obj + -> m (Gdk.RGBA) -- result colorChooserGetRgba _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) @@ -278,11 +324,14 @@ touchManagedPtr _obj return color' +data ColorChooserGetRgbaMethodInfo +instance (signature ~ (m (Gdk.RGBA)), MonadIO m, ColorChooserK a) => MethodInfo ColorChooserGetRgbaMethodInfo a signature where + overloadedMethod _ = colorChooserGetRgba + -- method ColorChooser::get_use_alpha -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -294,8 +343,8 @@ colorChooserGetUseAlpha :: (MonadIO m, ColorChooserK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result colorChooserGetUseAlpha _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_color_chooser_get_use_alpha _obj' @@ -303,11 +352,14 @@ touchManagedPtr _obj return result' +data ColorChooserGetUseAlphaMethodInfo +instance (signature ~ (m Bool), MonadIO m, ColorChooserK a) => MethodInfo ColorChooserGetUseAlphaMethodInfo a signature where + overloadedMethod _ = colorChooserGetUseAlpha + -- method ColorChooser::set_rgba -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -320,9 +372,9 @@ colorChooserSetRgba :: (MonadIO m, ColorChooserK a) => - a -> -- _obj - Gdk.RGBA -> -- color - m () + a -- _obj + -> Gdk.RGBA -- color + -> m () -- result colorChooserSetRgba _obj color = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let color' = unsafeManagedPtrGetPtr color @@ -331,11 +383,14 @@ touchManagedPtr color return () +data ColorChooserSetRgbaMethodInfo +instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, ColorChooserK a) => MethodInfo ColorChooserSetRgbaMethodInfo a signature where + overloadedMethod _ = colorChooserSetRgba + -- method ColorChooser::set_use_alpha -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -348,14 +403,18 @@ colorChooserSetUseAlpha :: (MonadIO m, ColorChooserK a) => - a -> -- _obj - Bool -> -- use_alpha - m () -colorChooserSetUseAlpha _obj use_alpha = liftIO $ do + a -- _obj + -> Bool -- useAlpha + -> m () -- result +colorChooserSetUseAlpha _obj useAlpha = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_alpha' = (fromIntegral . fromEnum) use_alpha - gtk_color_chooser_set_use_alpha _obj' use_alpha' + let useAlpha' = (fromIntegral . fromEnum) useAlpha + gtk_color_chooser_set_use_alpha _obj' useAlpha' touchManagedPtr _obj return () + +data ColorChooserSetUseAlphaMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ColorChooserK a) => MethodInfo ColorChooserSetUseAlphaMethodInfo a signature where + overloadedMethod _ = colorChooserSetUseAlpha diff --git a/GI/Gtk/Interfaces/ColorChooser.hs-boot b/GI/Gtk/Interfaces/ColorChooser.hs-boot --- a/GI/Gtk/Interfaces/ColorChooser.hs-boot +++ b/GI/Gtk/Interfaces/ColorChooser.hs-boot @@ -14,3 +14,8 @@ instance GObject ColorChooser where class GObject o => ColorChooserK o instance (GObject o, IsDescendantOf ColorChooser o) => ColorChooserK o +data ColorChooserAddPaletteMethodInfo +data ColorChooserGetRgbaMethodInfo +data ColorChooserGetUseAlphaMethodInfo +data ColorChooserSetRgbaMethodInfo +data ColorChooserSetUseAlphaMethodInfo diff --git a/GI/Gtk/Interfaces/Editable.hs b/GI/Gtk/Interfaces/Editable.hs --- a/GI/Gtk/Interfaces/Editable.hs +++ b/GI/Gtk/Interfaces/Editable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,54 +17,67 @@ -- * Methods -- ** editableCopyClipboard + EditableCopyClipboardMethodInfo , editableCopyClipboard , -- ** editableCutClipboard + EditableCutClipboardMethodInfo , editableCutClipboard , -- ** editableDeleteSelection + EditableDeleteSelectionMethodInfo , editableDeleteSelection , -- ** editableDeleteText + EditableDeleteTextMethodInfo , editableDeleteText , -- ** editableGetChars + EditableGetCharsMethodInfo , editableGetChars , -- ** editableGetEditable + EditableGetEditableMethodInfo , editableGetEditable , -- ** editableGetPosition + EditableGetPositionMethodInfo , editableGetPosition , -- ** editableGetSelectionBounds + EditableGetSelectionBoundsMethodInfo , editableGetSelectionBounds , -- ** editableInsertText + EditableInsertTextMethodInfo , editableInsertText , -- ** editablePasteClipboard + EditablePasteClipboardMethodInfo , editablePasteClipboard , -- ** editableSelectRegion + EditableSelectRegionMethodInfo , editableSelectRegion , -- ** editableSetEditable + EditableSetEditableMethodInfo , editableSetEditable , -- ** editableSetPosition + EditableSetPositionMethodInfo , editableSetPosition , @@ -126,6 +140,30 @@ noEditable :: Maybe Editable noEditable = Nothing +type family ResolveEditableMethod (t :: Symbol) (o :: *) :: * where + ResolveEditableMethod "copyClipboard" o = EditableCopyClipboardMethodInfo + ResolveEditableMethod "cutClipboard" o = EditableCutClipboardMethodInfo + ResolveEditableMethod "deleteSelection" o = EditableDeleteSelectionMethodInfo + ResolveEditableMethod "deleteText" o = EditableDeleteTextMethodInfo + ResolveEditableMethod "insertText" o = EditableInsertTextMethodInfo + ResolveEditableMethod "pasteClipboard" o = EditablePasteClipboardMethodInfo + ResolveEditableMethod "selectRegion" o = EditableSelectRegionMethodInfo + ResolveEditableMethod "getChars" o = EditableGetCharsMethodInfo + ResolveEditableMethod "getEditable" o = EditableGetEditableMethodInfo + ResolveEditableMethod "getPosition" o = EditableGetPositionMethodInfo + ResolveEditableMethod "getSelectionBounds" o = EditableGetSelectionBoundsMethodInfo + ResolveEditableMethod "setEditable" o = EditableSetEditableMethodInfo + ResolveEditableMethod "setPosition" o = EditableSetPositionMethodInfo + ResolveEditableMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveEditableMethod t Editable, MethodInfo info Editable p) => IsLabelProxy t (Editable -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveEditableMethod t Editable, MethodInfo info Editable p) => IsLabel t (Editable -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Editable::changed type EditableChangedCallback = IO () @@ -194,8 +232,8 @@ Int32 -> Ptr () -> IO () -editableDeleteTextCallbackWrapper _cb _ start_pos end_pos _ = do - _cb start_pos end_pos +editableDeleteTextCallbackWrapper _cb _ startPos endPos _ = do + _cb startPos endPos onEditableDeleteText :: (GObject a, MonadIO m) => a -> EditableDeleteTextCallback -> m SignalHandlerId onEditableDeleteText obj cb = liftIO $ connectEditableDeleteText obj cb SignalConnectBefore @@ -241,10 +279,10 @@ Ptr Int32 -> Ptr () -> IO () -editableInsertTextCallbackWrapper _cb _ new_text new_text_length position _ = do - new_text' <- cstringToText new_text +editableInsertTextCallbackWrapper _cb _ newText newTextLength position _ = do + newText' <- cstringToText newText position' <- peek position - outposition <- _cb new_text' new_text_length position' + outposition <- _cb newText' newTextLength position' poke position outposition onEditableInsertText :: (GObject a, MonadIO m) => a -> EditableInsertTextCallback -> m SignalHandlerId @@ -277,7 +315,7 @@ connectSignal _ = connectEditableInsertText type instance SignalList Editable = EditableSignalList -type EditableSignalList = ('[ '("changed", EditableChangedSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("insert-text", EditableInsertTextSignalInfo)] :: [(Symbol, *)]) +type EditableSignalList = ('[ '("changed", EditableChangedSignalInfo), '("deleteText", EditableDeleteTextSignalInfo), '("insertText", EditableInsertTextSignalInfo)] :: [(Symbol, *)]) class ForeignPtrNewtype a => EditableK a instance (ForeignPtrNewtype o, IsDescendantOf Editable o) => EditableK o @@ -286,9 +324,8 @@ -- method Editable::copy_clipboard -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -300,19 +337,22 @@ editableCopyClipboard :: (MonadIO m, EditableK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result editableCopyClipboard _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_editable_copy_clipboard _obj' touchManagedPtr _obj return () +data EditableCopyClipboardMethodInfo +instance (signature ~ (m ()), MonadIO m, EditableK a) => MethodInfo EditableCopyClipboardMethodInfo a signature where + overloadedMethod _ = editableCopyClipboard + -- method Editable::cut_clipboard -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -324,19 +364,22 @@ editableCutClipboard :: (MonadIO m, EditableK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result editableCutClipboard _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_editable_cut_clipboard _obj' touchManagedPtr _obj return () +data EditableCutClipboardMethodInfo +instance (signature ~ (m ()), MonadIO m, EditableK a) => MethodInfo EditableCutClipboardMethodInfo a signature where + overloadedMethod _ = editableCutClipboard + -- method Editable::delete_selection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -348,19 +391,22 @@ editableDeleteSelection :: (MonadIO m, EditableK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result editableDeleteSelection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_editable_delete_selection _obj' touchManagedPtr _obj return () +data EditableDeleteSelectionMethodInfo +instance (signature ~ (m ()), MonadIO m, EditableK a) => MethodInfo EditableDeleteSelectionMethodInfo a signature where + overloadedMethod _ = editableDeleteSelection + -- method Editable::delete_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -374,21 +420,24 @@ editableDeleteText :: (MonadIO m, EditableK a) => - a -> -- _obj - Int32 -> -- start_pos - Int32 -> -- end_pos - m () -editableDeleteText _obj start_pos end_pos = liftIO $ do + a -- _obj + -> Int32 -- startPos + -> Int32 -- endPos + -> m () -- result +editableDeleteText _obj startPos endPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_delete_text _obj' start_pos end_pos + gtk_editable_delete_text _obj' startPos endPos touchManagedPtr _obj return () +data EditableDeleteTextMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, EditableK a) => MethodInfo EditableDeleteTextMethodInfo a signature where + overloadedMethod _ = editableDeleteText + -- method Editable::get_chars -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -402,24 +451,27 @@ editableGetChars :: (MonadIO m, EditableK a) => - a -> -- _obj - Int32 -> -- start_pos - Int32 -> -- end_pos - m T.Text -editableGetChars _obj start_pos end_pos = liftIO $ do + a -- _obj + -> Int32 -- startPos + -> Int32 -- endPos + -> m T.Text -- result +editableGetChars _obj startPos endPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_editable_get_chars _obj' start_pos end_pos + result <- gtk_editable_get_chars _obj' startPos endPos checkUnexpectedReturnNULL "gtk_editable_get_chars" result result' <- cstringToText result freeMem result touchManagedPtr _obj return result' +data EditableGetCharsMethodInfo +instance (signature ~ (Int32 -> Int32 -> m T.Text), MonadIO m, EditableK a) => MethodInfo EditableGetCharsMethodInfo a signature where + overloadedMethod _ = editableGetChars + -- method Editable::get_editable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -431,8 +483,8 @@ editableGetEditable :: (MonadIO m, EditableK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result editableGetEditable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_editable_get_editable _obj' @@ -440,11 +492,14 @@ touchManagedPtr _obj return result' +data EditableGetEditableMethodInfo +instance (signature ~ (m Bool), MonadIO m, EditableK a) => MethodInfo EditableGetEditableMethodInfo a signature where + overloadedMethod _ = editableGetEditable + -- method Editable::get_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -456,19 +511,22 @@ editableGetPosition :: (MonadIO m, EditableK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result editableGetPosition _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_editable_get_position _obj' touchManagedPtr _obj return result +data EditableGetPositionMethodInfo +instance (signature ~ (m Int32), MonadIO m, EditableK a) => MethodInfo EditableGetPositionMethodInfo a signature where + overloadedMethod _ = editableGetPosition + -- method Editable::get_selection_bounds -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -482,26 +540,29 @@ editableGetSelectionBounds :: (MonadIO m, EditableK a) => - a -> -- _obj - m (Bool,Int32,Int32) + a -- _obj + -> m (Bool,Int32,Int32) -- result editableGetSelectionBounds _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - start_pos <- allocMem :: IO (Ptr Int32) - end_pos <- allocMem :: IO (Ptr Int32) - result <- gtk_editable_get_selection_bounds _obj' start_pos end_pos + startPos <- allocMem :: IO (Ptr Int32) + endPos <- allocMem :: IO (Ptr Int32) + result <- gtk_editable_get_selection_bounds _obj' startPos endPos let result' = (/= 0) result - start_pos' <- peek start_pos - end_pos' <- peek end_pos + startPos' <- peek startPos + endPos' <- peek endPos touchManagedPtr _obj - freeMem start_pos - freeMem end_pos - return (result', start_pos', end_pos') + freeMem startPos + freeMem endPos + return (result', startPos', endPos') +data EditableGetSelectionBoundsMethodInfo +instance (signature ~ (m (Bool,Int32,Int32)), MonadIO m, EditableK a) => MethodInfo EditableGetSelectionBoundsMethodInfo a signature where + overloadedMethod _ = editableGetSelectionBounds + -- method Editable::insert_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_text_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_text_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -516,28 +577,31 @@ editableInsertText :: (MonadIO m, EditableK a) => - a -> -- _obj - T.Text -> -- new_text - Int32 -> -- new_text_length - Int32 -> -- position - m (Int32) -editableInsertText _obj new_text new_text_length position = liftIO $ do + a -- _obj + -> T.Text -- newText + -> Int32 -- newTextLength + -> Int32 -- position + -> m (Int32) -- result +editableInsertText _obj newText newTextLength position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - new_text' <- textToCString new_text + newText' <- textToCString newText position' <- allocMem :: IO (Ptr Int32) poke position' position - gtk_editable_insert_text _obj' new_text' new_text_length position' + gtk_editable_insert_text _obj' newText' newTextLength position' position'' <- peek position' touchManagedPtr _obj - freeMem new_text' + freeMem newText' freeMem position' return position'' +data EditableInsertTextMethodInfo +instance (signature ~ (T.Text -> Int32 -> Int32 -> m (Int32)), MonadIO m, EditableK a) => MethodInfo EditableInsertTextMethodInfo a signature where + overloadedMethod _ = editableInsertText + -- method Editable::paste_clipboard -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -549,19 +613,22 @@ editablePasteClipboard :: (MonadIO m, EditableK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result editablePasteClipboard _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_editable_paste_clipboard _obj' touchManagedPtr _obj return () +data EditablePasteClipboardMethodInfo +instance (signature ~ (m ()), MonadIO m, EditableK a) => MethodInfo EditablePasteClipboardMethodInfo a signature where + overloadedMethod _ = editablePasteClipboard + -- method Editable::select_region -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -575,21 +642,24 @@ editableSelectRegion :: (MonadIO m, EditableK a) => - a -> -- _obj - Int32 -> -- start_pos - Int32 -> -- end_pos - m () -editableSelectRegion _obj start_pos end_pos = liftIO $ do + a -- _obj + -> Int32 -- startPos + -> Int32 -- endPos + -> m () -- result +editableSelectRegion _obj startPos endPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_select_region _obj' start_pos end_pos + gtk_editable_select_region _obj' startPos endPos touchManagedPtr _obj return () +data EditableSelectRegionMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, EditableK a) => MethodInfo EditableSelectRegionMethodInfo a signature where + overloadedMethod _ = editableSelectRegion + -- method Editable::set_editable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -602,21 +672,24 @@ editableSetEditable :: (MonadIO m, EditableK a) => - a -> -- _obj - Bool -> -- is_editable - m () -editableSetEditable _obj is_editable = liftIO $ do + a -- _obj + -> Bool -- isEditable + -> m () -- result +editableSetEditable _obj isEditable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let is_editable' = (fromIntegral . fromEnum) is_editable - gtk_editable_set_editable _obj' is_editable' + let isEditable' = (fromIntegral . fromEnum) isEditable + gtk_editable_set_editable _obj' isEditable' touchManagedPtr _obj return () +data EditableSetEditableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, EditableK a) => MethodInfo EditableSetEditableMethodInfo a signature where + overloadedMethod _ = editableSetEditable + -- method Editable::set_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -629,13 +702,17 @@ editableSetPosition :: (MonadIO m, EditableK a) => - a -> -- _obj - Int32 -> -- position - m () + a -- _obj + -> Int32 -- position + -> m () -- result editableSetPosition _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_editable_set_position _obj' position touchManagedPtr _obj return () + +data EditableSetPositionMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, EditableK a) => MethodInfo EditableSetPositionMethodInfo a signature where + overloadedMethod _ = editableSetPosition diff --git a/GI/Gtk/Interfaces/Editable.hs-boot b/GI/Gtk/Interfaces/Editable.hs-boot --- a/GI/Gtk/Interfaces/Editable.hs-boot +++ b/GI/Gtk/Interfaces/Editable.hs-boot @@ -13,3 +13,16 @@ data EditableInsertTextSignalInfo class ForeignPtrNewtype a => EditableK a instance (ForeignPtrNewtype o, IsDescendantOf Editable o) => EditableK o +data EditableCopyClipboardMethodInfo +data EditableCutClipboardMethodInfo +data EditableDeleteSelectionMethodInfo +data EditableDeleteTextMethodInfo +data EditableGetCharsMethodInfo +data EditableGetEditableMethodInfo +data EditableGetPositionMethodInfo +data EditableGetSelectionBoundsMethodInfo +data EditableInsertTextMethodInfo +data EditablePasteClipboardMethodInfo +data EditableSelectRegionMethodInfo +data EditableSetEditableMethodInfo +data EditableSetPositionMethodInfo diff --git a/GI/Gtk/Interfaces/FileChooser.hs b/GI/Gtk/Interfaces/FileChooser.hs --- a/GI/Gtk/Interfaces/FileChooser.hs +++ b/GI/Gtk/Interfaces/FileChooser.hs @@ -1,2562 +1,3154 @@ -{- | -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.Interfaces.FileChooser - ( - --- * Exported types - FileChooser(..) , - noFileChooser , - FileChooserK , - toFileChooser , - - - -- * Methods --- ** fileChooserAddFilter - fileChooserAddFilter , - - --- ** fileChooserAddShortcutFolder - fileChooserAddShortcutFolder , - - --- ** fileChooserAddShortcutFolderUri - fileChooserAddShortcutFolderUri , - - --- ** fileChooserGetAction - fileChooserGetAction , - - --- ** fileChooserGetCreateFolders - fileChooserGetCreateFolders , - - --- ** fileChooserGetCurrentFolder - fileChooserGetCurrentFolder , - - --- ** fileChooserGetCurrentFolderFile - fileChooserGetCurrentFolderFile , - - --- ** fileChooserGetCurrentFolderUri - fileChooserGetCurrentFolderUri , - - --- ** fileChooserGetCurrentName - fileChooserGetCurrentName , - - --- ** fileChooserGetDoOverwriteConfirmation - fileChooserGetDoOverwriteConfirmation , - - --- ** fileChooserGetExtraWidget - fileChooserGetExtraWidget , - - --- ** fileChooserGetFile - fileChooserGetFile , - - --- ** fileChooserGetFilename - fileChooserGetFilename , - - --- ** fileChooserGetFilenames - fileChooserGetFilenames , - - --- ** fileChooserGetFiles - fileChooserGetFiles , - - --- ** fileChooserGetFilter - fileChooserGetFilter , - - --- ** fileChooserGetLocalOnly - fileChooserGetLocalOnly , - - --- ** fileChooserGetPreviewFile - fileChooserGetPreviewFile , - - --- ** fileChooserGetPreviewFilename - fileChooserGetPreviewFilename , - - --- ** fileChooserGetPreviewUri - fileChooserGetPreviewUri , - - --- ** fileChooserGetPreviewWidget - fileChooserGetPreviewWidget , - - --- ** fileChooserGetPreviewWidgetActive - fileChooserGetPreviewWidgetActive , - - --- ** fileChooserGetSelectMultiple - fileChooserGetSelectMultiple , - - --- ** fileChooserGetShowHidden - fileChooserGetShowHidden , - - --- ** fileChooserGetUri - fileChooserGetUri , - - --- ** fileChooserGetUris - fileChooserGetUris , - - --- ** fileChooserGetUsePreviewLabel - fileChooserGetUsePreviewLabel , - - --- ** fileChooserListFilters - fileChooserListFilters , - - --- ** fileChooserListShortcutFolderUris - fileChooserListShortcutFolderUris , - - --- ** fileChooserListShortcutFolders - fileChooserListShortcutFolders , - - --- ** fileChooserRemoveFilter - fileChooserRemoveFilter , - - --- ** fileChooserRemoveShortcutFolder - fileChooserRemoveShortcutFolder , - - --- ** fileChooserRemoveShortcutFolderUri - fileChooserRemoveShortcutFolderUri , - - --- ** fileChooserSelectAll - fileChooserSelectAll , - - --- ** fileChooserSelectFile - fileChooserSelectFile , - - --- ** fileChooserSelectFilename - fileChooserSelectFilename , - - --- ** fileChooserSelectUri - fileChooserSelectUri , - - --- ** fileChooserSetAction - fileChooserSetAction , - - --- ** fileChooserSetCreateFolders - fileChooserSetCreateFolders , - - --- ** fileChooserSetCurrentFolder - fileChooserSetCurrentFolder , - - --- ** fileChooserSetCurrentFolderFile - fileChooserSetCurrentFolderFile , - - --- ** fileChooserSetCurrentFolderUri - fileChooserSetCurrentFolderUri , - - --- ** fileChooserSetCurrentName - fileChooserSetCurrentName , - - --- ** fileChooserSetDoOverwriteConfirmation - fileChooserSetDoOverwriteConfirmation , - - --- ** fileChooserSetExtraWidget - fileChooserSetExtraWidget , - - --- ** fileChooserSetFile - fileChooserSetFile , - - --- ** fileChooserSetFilename - fileChooserSetFilename , - - --- ** fileChooserSetFilter - fileChooserSetFilter , - - --- ** fileChooserSetLocalOnly - fileChooserSetLocalOnly , - - --- ** fileChooserSetPreviewWidget - fileChooserSetPreviewWidget , - - --- ** fileChooserSetPreviewWidgetActive - fileChooserSetPreviewWidgetActive , - - --- ** fileChooserSetSelectMultiple - fileChooserSetSelectMultiple , - - --- ** fileChooserSetShowHidden - fileChooserSetShowHidden , - - --- ** fileChooserSetUri - fileChooserSetUri , - - --- ** fileChooserSetUsePreviewLabel - fileChooserSetUsePreviewLabel , - - --- ** fileChooserUnselectAll - fileChooserUnselectAll , - - --- ** fileChooserUnselectFile - fileChooserUnselectFile , - - --- ** fileChooserUnselectFilename - fileChooserUnselectFilename , - - --- ** fileChooserUnselectUri - fileChooserUnselectUri , - - - - - -- * Properties --- ** Action - FileChooserActionPropertyInfo , - constructFileChooserAction , - getFileChooserAction , - setFileChooserAction , - - --- ** CreateFolders - FileChooserCreateFoldersPropertyInfo , - constructFileChooserCreateFolders , - getFileChooserCreateFolders , - setFileChooserCreateFolders , - - --- ** DoOverwriteConfirmation - FileChooserDoOverwriteConfirmationPropertyInfo, - constructFileChooserDoOverwriteConfirmation, - getFileChooserDoOverwriteConfirmation , - setFileChooserDoOverwriteConfirmation , - - --- ** ExtraWidget - FileChooserExtraWidgetPropertyInfo , - constructFileChooserExtraWidget , - getFileChooserExtraWidget , - setFileChooserExtraWidget , - - --- ** Filter - FileChooserFilterPropertyInfo , - constructFileChooserFilter , - getFileChooserFilter , - setFileChooserFilter , - - --- ** LocalOnly - FileChooserLocalOnlyPropertyInfo , - constructFileChooserLocalOnly , - getFileChooserLocalOnly , - setFileChooserLocalOnly , - - --- ** PreviewWidget - FileChooserPreviewWidgetPropertyInfo , - constructFileChooserPreviewWidget , - getFileChooserPreviewWidget , - setFileChooserPreviewWidget , - - --- ** PreviewWidgetActive - FileChooserPreviewWidgetActivePropertyInfo, - constructFileChooserPreviewWidgetActive , - getFileChooserPreviewWidgetActive , - setFileChooserPreviewWidgetActive , - - --- ** SelectMultiple - FileChooserSelectMultiplePropertyInfo , - constructFileChooserSelectMultiple , - getFileChooserSelectMultiple , - setFileChooserSelectMultiple , - - --- ** ShowHidden - FileChooserShowHiddenPropertyInfo , - constructFileChooserShowHidden , - getFileChooserShowHidden , - setFileChooserShowHidden , - - --- ** UsePreviewLabel - FileChooserUsePreviewLabelPropertyInfo , - constructFileChooserUsePreviewLabel , - getFileChooserUsePreviewLabel , - setFileChooserUsePreviewLabel , - - - - - -- * Signals --- ** ConfirmOverwrite - FileChooserConfirmOverwriteCallback , - FileChooserConfirmOverwriteCallbackC , - FileChooserConfirmOverwriteSignalInfo , - afterFileChooserConfirmOverwrite , - fileChooserConfirmOverwriteCallbackWrapper, - fileChooserConfirmOverwriteClosure , - mkFileChooserConfirmOverwriteCallback , - noFileChooserConfirmOverwriteCallback , - onFileChooserConfirmOverwrite , - - --- ** CurrentFolderChanged - FileChooserCurrentFolderChangedCallback , - FileChooserCurrentFolderChangedCallbackC, - FileChooserCurrentFolderChangedSignalInfo, - afterFileChooserCurrentFolderChanged , - fileChooserCurrentFolderChangedCallbackWrapper, - fileChooserCurrentFolderChangedClosure , - mkFileChooserCurrentFolderChangedCallback, - noFileChooserCurrentFolderChangedCallback, - onFileChooserCurrentFolderChanged , - - --- ** FileActivated - FileChooserFileActivatedCallback , - FileChooserFileActivatedCallbackC , - FileChooserFileActivatedSignalInfo , - afterFileChooserFileActivated , - fileChooserFileActivatedCallbackWrapper , - fileChooserFileActivatedClosure , - mkFileChooserFileActivatedCallback , - noFileChooserFileActivatedCallback , - onFileChooserFileActivated , - - --- ** SelectionChanged - FileChooserSelectionChangedCallback , - FileChooserSelectionChangedCallbackC , - FileChooserSelectionChangedSignalInfo , - afterFileChooserSelectionChanged , - fileChooserSelectionChangedCallbackWrapper, - fileChooserSelectionChangedClosure , - mkFileChooserSelectionChangedCallback , - noFileChooserSelectionChangedCallback , - onFileChooserSelectionChanged , - - --- ** UpdatePreview - FileChooserUpdatePreviewCallback , - FileChooserUpdatePreviewCallbackC , - FileChooserUpdatePreviewSignalInfo , - afterFileChooserUpdatePreview , - fileChooserUpdatePreviewCallbackWrapper , - fileChooserUpdatePreviewClosure , - mkFileChooserUpdatePreviewCallback , - noFileChooserUpdatePreviewCallback , - onFileChooserUpdatePreview , - - - - - ) 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.GObject as GObject -import qualified GI.Gio as Gio - --- interface FileChooser - -newtype FileChooser = FileChooser (ForeignPtr FileChooser) -noFileChooser :: Maybe FileChooser -noFileChooser = Nothing - --- signal FileChooser::confirm-overwrite -type FileChooserConfirmOverwriteCallback = - IO FileChooserConfirmation - -noFileChooserConfirmOverwriteCallback :: Maybe FileChooserConfirmOverwriteCallback -noFileChooserConfirmOverwriteCallback = Nothing - -type FileChooserConfirmOverwriteCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CUInt - -foreign import ccall "wrapper" - mkFileChooserConfirmOverwriteCallback :: FileChooserConfirmOverwriteCallbackC -> IO (FunPtr FileChooserConfirmOverwriteCallbackC) - -fileChooserConfirmOverwriteClosure :: FileChooserConfirmOverwriteCallback -> IO Closure -fileChooserConfirmOverwriteClosure cb = newCClosure =<< mkFileChooserConfirmOverwriteCallback wrapped - where wrapped = fileChooserConfirmOverwriteCallbackWrapper cb - -fileChooserConfirmOverwriteCallbackWrapper :: - FileChooserConfirmOverwriteCallback -> - Ptr () -> - Ptr () -> - IO CUInt -fileChooserConfirmOverwriteCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onFileChooserConfirmOverwrite :: (GObject a, MonadIO m) => a -> FileChooserConfirmOverwriteCallback -> m SignalHandlerId -onFileChooserConfirmOverwrite obj cb = liftIO $ connectFileChooserConfirmOverwrite obj cb SignalConnectBefore -afterFileChooserConfirmOverwrite :: (GObject a, MonadIO m) => a -> FileChooserConfirmOverwriteCallback -> m SignalHandlerId -afterFileChooserConfirmOverwrite obj cb = connectFileChooserConfirmOverwrite obj cb SignalConnectAfter - -connectFileChooserConfirmOverwrite :: (GObject a, MonadIO m) => - a -> FileChooserConfirmOverwriteCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserConfirmOverwrite obj cb after = liftIO $ do - cb' <- mkFileChooserConfirmOverwriteCallback (fileChooserConfirmOverwriteCallbackWrapper cb) - connectSignalFunPtr obj "confirm-overwrite" cb' after - --- signal FileChooser::current-folder-changed -type FileChooserCurrentFolderChangedCallback = - IO () - -noFileChooserCurrentFolderChangedCallback :: Maybe FileChooserCurrentFolderChangedCallback -noFileChooserCurrentFolderChangedCallback = Nothing - -type FileChooserCurrentFolderChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserCurrentFolderChangedCallback :: FileChooserCurrentFolderChangedCallbackC -> IO (FunPtr FileChooserCurrentFolderChangedCallbackC) - -fileChooserCurrentFolderChangedClosure :: FileChooserCurrentFolderChangedCallback -> IO Closure -fileChooserCurrentFolderChangedClosure cb = newCClosure =<< mkFileChooserCurrentFolderChangedCallback wrapped - where wrapped = fileChooserCurrentFolderChangedCallbackWrapper cb - -fileChooserCurrentFolderChangedCallbackWrapper :: - FileChooserCurrentFolderChangedCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserCurrentFolderChangedCallbackWrapper _cb _ _ = do - _cb - -onFileChooserCurrentFolderChanged :: (GObject a, MonadIO m) => a -> FileChooserCurrentFolderChangedCallback -> m SignalHandlerId -onFileChooserCurrentFolderChanged obj cb = liftIO $ connectFileChooserCurrentFolderChanged obj cb SignalConnectBefore -afterFileChooserCurrentFolderChanged :: (GObject a, MonadIO m) => a -> FileChooserCurrentFolderChangedCallback -> m SignalHandlerId -afterFileChooserCurrentFolderChanged obj cb = connectFileChooserCurrentFolderChanged obj cb SignalConnectAfter - -connectFileChooserCurrentFolderChanged :: (GObject a, MonadIO m) => - a -> FileChooserCurrentFolderChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserCurrentFolderChanged obj cb after = liftIO $ do - cb' <- mkFileChooserCurrentFolderChangedCallback (fileChooserCurrentFolderChangedCallbackWrapper cb) - connectSignalFunPtr obj "current-folder-changed" cb' after - --- signal FileChooser::file-activated -type FileChooserFileActivatedCallback = - IO () - -noFileChooserFileActivatedCallback :: Maybe FileChooserFileActivatedCallback -noFileChooserFileActivatedCallback = Nothing - -type FileChooserFileActivatedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserFileActivatedCallback :: FileChooserFileActivatedCallbackC -> IO (FunPtr FileChooserFileActivatedCallbackC) - -fileChooserFileActivatedClosure :: FileChooserFileActivatedCallback -> IO Closure -fileChooserFileActivatedClosure cb = newCClosure =<< mkFileChooserFileActivatedCallback wrapped - where wrapped = fileChooserFileActivatedCallbackWrapper cb - -fileChooserFileActivatedCallbackWrapper :: - FileChooserFileActivatedCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserFileActivatedCallbackWrapper _cb _ _ = do - _cb - -onFileChooserFileActivated :: (GObject a, MonadIO m) => a -> FileChooserFileActivatedCallback -> m SignalHandlerId -onFileChooserFileActivated obj cb = liftIO $ connectFileChooserFileActivated obj cb SignalConnectBefore -afterFileChooserFileActivated :: (GObject a, MonadIO m) => a -> FileChooserFileActivatedCallback -> m SignalHandlerId -afterFileChooserFileActivated obj cb = connectFileChooserFileActivated obj cb SignalConnectAfter - -connectFileChooserFileActivated :: (GObject a, MonadIO m) => - a -> FileChooserFileActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserFileActivated obj cb after = liftIO $ do - cb' <- mkFileChooserFileActivatedCallback (fileChooserFileActivatedCallbackWrapper cb) - connectSignalFunPtr obj "file-activated" cb' after - --- signal FileChooser::selection-changed -type FileChooserSelectionChangedCallback = - IO () - -noFileChooserSelectionChangedCallback :: Maybe FileChooserSelectionChangedCallback -noFileChooserSelectionChangedCallback = Nothing - -type FileChooserSelectionChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserSelectionChangedCallback :: FileChooserSelectionChangedCallbackC -> IO (FunPtr FileChooserSelectionChangedCallbackC) - -fileChooserSelectionChangedClosure :: FileChooserSelectionChangedCallback -> IO Closure -fileChooserSelectionChangedClosure cb = newCClosure =<< mkFileChooserSelectionChangedCallback wrapped - where wrapped = fileChooserSelectionChangedCallbackWrapper cb - -fileChooserSelectionChangedCallbackWrapper :: - FileChooserSelectionChangedCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserSelectionChangedCallbackWrapper _cb _ _ = do - _cb - -onFileChooserSelectionChanged :: (GObject a, MonadIO m) => a -> FileChooserSelectionChangedCallback -> m SignalHandlerId -onFileChooserSelectionChanged obj cb = liftIO $ connectFileChooserSelectionChanged obj cb SignalConnectBefore -afterFileChooserSelectionChanged :: (GObject a, MonadIO m) => a -> FileChooserSelectionChangedCallback -> m SignalHandlerId -afterFileChooserSelectionChanged obj cb = connectFileChooserSelectionChanged obj cb SignalConnectAfter - -connectFileChooserSelectionChanged :: (GObject a, MonadIO m) => - a -> FileChooserSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserSelectionChanged obj cb after = liftIO $ do - cb' <- mkFileChooserSelectionChangedCallback (fileChooserSelectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "selection-changed" cb' after - --- signal FileChooser::update-preview -type FileChooserUpdatePreviewCallback = - IO () - -noFileChooserUpdatePreviewCallback :: Maybe FileChooserUpdatePreviewCallback -noFileChooserUpdatePreviewCallback = Nothing - -type FileChooserUpdatePreviewCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileChooserUpdatePreviewCallback :: FileChooserUpdatePreviewCallbackC -> IO (FunPtr FileChooserUpdatePreviewCallbackC) - -fileChooserUpdatePreviewClosure :: FileChooserUpdatePreviewCallback -> IO Closure -fileChooserUpdatePreviewClosure cb = newCClosure =<< mkFileChooserUpdatePreviewCallback wrapped - where wrapped = fileChooserUpdatePreviewCallbackWrapper cb - -fileChooserUpdatePreviewCallbackWrapper :: - FileChooserUpdatePreviewCallback -> - Ptr () -> - Ptr () -> - IO () -fileChooserUpdatePreviewCallbackWrapper _cb _ _ = do - _cb - -onFileChooserUpdatePreview :: (GObject a, MonadIO m) => a -> FileChooserUpdatePreviewCallback -> m SignalHandlerId -onFileChooserUpdatePreview obj cb = liftIO $ connectFileChooserUpdatePreview obj cb SignalConnectBefore -afterFileChooserUpdatePreview :: (GObject a, MonadIO m) => a -> FileChooserUpdatePreviewCallback -> m SignalHandlerId -afterFileChooserUpdatePreview obj cb = connectFileChooserUpdatePreview obj cb SignalConnectAfter - -connectFileChooserUpdatePreview :: (GObject a, MonadIO m) => - a -> FileChooserUpdatePreviewCallback -> SignalConnectMode -> m SignalHandlerId -connectFileChooserUpdatePreview obj cb after = liftIO $ do - cb' <- mkFileChooserUpdatePreviewCallback (fileChooserUpdatePreviewCallbackWrapper cb) - connectSignalFunPtr obj "update-preview" cb' after - --- VVV Prop "action" - -- Type: TInterface "Gtk" "FileChooserAction" - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserAction :: (MonadIO m, FileChooserK o) => o -> m FileChooserAction -getFileChooserAction obj = liftIO $ getObjectPropertyEnum obj "action" - -setFileChooserAction :: (MonadIO m, FileChooserK o) => o -> FileChooserAction -> m () -setFileChooserAction obj val = liftIO $ setObjectPropertyEnum obj "action" val - -constructFileChooserAction :: FileChooserAction -> IO ([Char], GValue) -constructFileChooserAction val = constructObjectPropertyEnum "action" val - -data FileChooserActionPropertyInfo -instance AttrInfo FileChooserActionPropertyInfo where - type AttrAllowedOps FileChooserActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserActionPropertyInfo = (~) FileChooserAction - type AttrBaseTypeConstraint FileChooserActionPropertyInfo = FileChooserK - type AttrGetType FileChooserActionPropertyInfo = FileChooserAction - type AttrLabel FileChooserActionPropertyInfo = "FileChooser::action" - attrGet _ = getFileChooserAction - attrSet _ = setFileChooserAction - attrConstruct _ = constructFileChooserAction - --- VVV Prop "create-folders" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserCreateFolders :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserCreateFolders obj = liftIO $ getObjectPropertyBool obj "create-folders" - -setFileChooserCreateFolders :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserCreateFolders obj val = liftIO $ setObjectPropertyBool obj "create-folders" val - -constructFileChooserCreateFolders :: Bool -> IO ([Char], GValue) -constructFileChooserCreateFolders val = constructObjectPropertyBool "create-folders" val - -data FileChooserCreateFoldersPropertyInfo -instance AttrInfo FileChooserCreateFoldersPropertyInfo where - type AttrAllowedOps FileChooserCreateFoldersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserCreateFoldersPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserCreateFoldersPropertyInfo = FileChooserK - type AttrGetType FileChooserCreateFoldersPropertyInfo = Bool - type AttrLabel FileChooserCreateFoldersPropertyInfo = "FileChooser::create-folders" - attrGet _ = getFileChooserCreateFolders - attrSet _ = setFileChooserCreateFolders - attrConstruct _ = constructFileChooserCreateFolders - --- VVV Prop "do-overwrite-confirmation" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserDoOverwriteConfirmation :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserDoOverwriteConfirmation obj = liftIO $ getObjectPropertyBool obj "do-overwrite-confirmation" - -setFileChooserDoOverwriteConfirmation :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserDoOverwriteConfirmation obj val = liftIO $ setObjectPropertyBool obj "do-overwrite-confirmation" val - -constructFileChooserDoOverwriteConfirmation :: Bool -> IO ([Char], GValue) -constructFileChooserDoOverwriteConfirmation val = constructObjectPropertyBool "do-overwrite-confirmation" val - -data FileChooserDoOverwriteConfirmationPropertyInfo -instance AttrInfo FileChooserDoOverwriteConfirmationPropertyInfo where - type AttrAllowedOps FileChooserDoOverwriteConfirmationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = FileChooserK - type AttrGetType FileChooserDoOverwriteConfirmationPropertyInfo = Bool - type AttrLabel FileChooserDoOverwriteConfirmationPropertyInfo = "FileChooser::do-overwrite-confirmation" - attrGet _ = getFileChooserDoOverwriteConfirmation - attrSet _ = setFileChooserDoOverwriteConfirmation - attrConstruct _ = constructFileChooserDoOverwriteConfirmation - --- VVV Prop "extra-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserExtraWidget :: (MonadIO m, FileChooserK o) => o -> m Widget -getFileChooserExtraWidget obj = liftIO $ getObjectPropertyObject obj "extra-widget" Widget - -setFileChooserExtraWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m () -setFileChooserExtraWidget obj val = liftIO $ setObjectPropertyObject obj "extra-widget" val - -constructFileChooserExtraWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructFileChooserExtraWidget val = constructObjectPropertyObject "extra-widget" val - -data FileChooserExtraWidgetPropertyInfo -instance AttrInfo FileChooserExtraWidgetPropertyInfo where - type AttrAllowedOps FileChooserExtraWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserExtraWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint FileChooserExtraWidgetPropertyInfo = FileChooserK - type AttrGetType FileChooserExtraWidgetPropertyInfo = Widget - type AttrLabel FileChooserExtraWidgetPropertyInfo = "FileChooser::extra-widget" - attrGet _ = getFileChooserExtraWidget - attrSet _ = setFileChooserExtraWidget - attrConstruct _ = constructFileChooserExtraWidget - --- VVV Prop "filter" - -- Type: TInterface "Gtk" "FileFilter" - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserFilter :: (MonadIO m, FileChooserK o) => o -> m FileFilter -getFileChooserFilter obj = liftIO $ getObjectPropertyObject obj "filter" FileFilter - -setFileChooserFilter :: (MonadIO m, FileChooserK o, FileFilterK a) => o -> a -> m () -setFileChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" val - -constructFileChooserFilter :: (FileFilterK a) => a -> IO ([Char], GValue) -constructFileChooserFilter val = constructObjectPropertyObject "filter" val - -data FileChooserFilterPropertyInfo -instance AttrInfo FileChooserFilterPropertyInfo where - type AttrAllowedOps FileChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserFilterPropertyInfo = FileFilterK - type AttrBaseTypeConstraint FileChooserFilterPropertyInfo = FileChooserK - type AttrGetType FileChooserFilterPropertyInfo = FileFilter - type AttrLabel FileChooserFilterPropertyInfo = "FileChooser::filter" - attrGet _ = getFileChooserFilter - attrSet _ = setFileChooserFilter - attrConstruct _ = constructFileChooserFilter - --- VVV Prop "local-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserLocalOnly :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserLocalOnly obj = liftIO $ getObjectPropertyBool obj "local-only" - -setFileChooserLocalOnly :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserLocalOnly obj val = liftIO $ setObjectPropertyBool obj "local-only" val - -constructFileChooserLocalOnly :: Bool -> IO ([Char], GValue) -constructFileChooserLocalOnly val = constructObjectPropertyBool "local-only" val - -data FileChooserLocalOnlyPropertyInfo -instance AttrInfo FileChooserLocalOnlyPropertyInfo where - type AttrAllowedOps FileChooserLocalOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserLocalOnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserLocalOnlyPropertyInfo = FileChooserK - type AttrGetType FileChooserLocalOnlyPropertyInfo = Bool - type AttrLabel FileChooserLocalOnlyPropertyInfo = "FileChooser::local-only" - attrGet _ = getFileChooserLocalOnly - attrSet _ = setFileChooserLocalOnly - attrConstruct _ = constructFileChooserLocalOnly - --- VVV Prop "preview-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserPreviewWidget :: (MonadIO m, FileChooserK o) => o -> m Widget -getFileChooserPreviewWidget obj = liftIO $ getObjectPropertyObject obj "preview-widget" Widget - -setFileChooserPreviewWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m () -setFileChooserPreviewWidget obj val = liftIO $ setObjectPropertyObject obj "preview-widget" val - -constructFileChooserPreviewWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructFileChooserPreviewWidget val = constructObjectPropertyObject "preview-widget" val - -data FileChooserPreviewWidgetPropertyInfo -instance AttrInfo FileChooserPreviewWidgetPropertyInfo where - type AttrAllowedOps FileChooserPreviewWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserPreviewWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint FileChooserPreviewWidgetPropertyInfo = FileChooserK - type AttrGetType FileChooserPreviewWidgetPropertyInfo = Widget - type AttrLabel FileChooserPreviewWidgetPropertyInfo = "FileChooser::preview-widget" - attrGet _ = getFileChooserPreviewWidget - attrSet _ = setFileChooserPreviewWidget - attrConstruct _ = constructFileChooserPreviewWidget - --- VVV Prop "preview-widget-active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserPreviewWidgetActive :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserPreviewWidgetActive obj = liftIO $ getObjectPropertyBool obj "preview-widget-active" - -setFileChooserPreviewWidgetActive :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserPreviewWidgetActive obj val = liftIO $ setObjectPropertyBool obj "preview-widget-active" val - -constructFileChooserPreviewWidgetActive :: Bool -> IO ([Char], GValue) -constructFileChooserPreviewWidgetActive val = constructObjectPropertyBool "preview-widget-active" val - -data FileChooserPreviewWidgetActivePropertyInfo -instance AttrInfo FileChooserPreviewWidgetActivePropertyInfo where - type AttrAllowedOps FileChooserPreviewWidgetActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = FileChooserK - type AttrGetType FileChooserPreviewWidgetActivePropertyInfo = Bool - type AttrLabel FileChooserPreviewWidgetActivePropertyInfo = "FileChooser::preview-widget-active" - attrGet _ = getFileChooserPreviewWidgetActive - attrSet _ = setFileChooserPreviewWidgetActive - attrConstruct _ = constructFileChooserPreviewWidgetActive - --- VVV Prop "select-multiple" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserSelectMultiple :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple" - -setFileChooserSelectMultiple :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserSelectMultiple obj val = liftIO $ setObjectPropertyBool obj "select-multiple" val - -constructFileChooserSelectMultiple :: Bool -> IO ([Char], GValue) -constructFileChooserSelectMultiple val = constructObjectPropertyBool "select-multiple" val - -data FileChooserSelectMultiplePropertyInfo -instance AttrInfo FileChooserSelectMultiplePropertyInfo where - type AttrAllowedOps FileChooserSelectMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserSelectMultiplePropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserSelectMultiplePropertyInfo = FileChooserK - type AttrGetType FileChooserSelectMultiplePropertyInfo = Bool - type AttrLabel FileChooserSelectMultiplePropertyInfo = "FileChooser::select-multiple" - attrGet _ = getFileChooserSelectMultiple - attrSet _ = setFileChooserSelectMultiple - attrConstruct _ = constructFileChooserSelectMultiple - --- VVV Prop "show-hidden" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserShowHidden :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserShowHidden obj = liftIO $ getObjectPropertyBool obj "show-hidden" - -setFileChooserShowHidden :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserShowHidden obj val = liftIO $ setObjectPropertyBool obj "show-hidden" val - -constructFileChooserShowHidden :: Bool -> IO ([Char], GValue) -constructFileChooserShowHidden val = constructObjectPropertyBool "show-hidden" val - -data FileChooserShowHiddenPropertyInfo -instance AttrInfo FileChooserShowHiddenPropertyInfo where - type AttrAllowedOps FileChooserShowHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserShowHiddenPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserShowHiddenPropertyInfo = FileChooserK - type AttrGetType FileChooserShowHiddenPropertyInfo = Bool - type AttrLabel FileChooserShowHiddenPropertyInfo = "FileChooser::show-hidden" - attrGet _ = getFileChooserShowHidden - attrSet _ = setFileChooserShowHidden - attrConstruct _ = constructFileChooserShowHidden - --- VVV Prop "use-preview-label" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserUsePreviewLabel :: (MonadIO m, FileChooserK o) => o -> m Bool -getFileChooserUsePreviewLabel obj = liftIO $ getObjectPropertyBool obj "use-preview-label" - -setFileChooserUsePreviewLabel :: (MonadIO m, FileChooserK o) => o -> Bool -> m () -setFileChooserUsePreviewLabel obj val = liftIO $ setObjectPropertyBool obj "use-preview-label" val - -constructFileChooserUsePreviewLabel :: Bool -> IO ([Char], GValue) -constructFileChooserUsePreviewLabel val = constructObjectPropertyBool "use-preview-label" val - -data FileChooserUsePreviewLabelPropertyInfo -instance AttrInfo FileChooserUsePreviewLabelPropertyInfo where - type AttrAllowedOps FileChooserUsePreviewLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileChooserUsePreviewLabelPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FileChooserUsePreviewLabelPropertyInfo = FileChooserK - type AttrGetType FileChooserUsePreviewLabelPropertyInfo = Bool - type AttrLabel FileChooserUsePreviewLabelPropertyInfo = "FileChooser::use-preview-label" - attrGet _ = getFileChooserUsePreviewLabel - attrSet _ = setFileChooserUsePreviewLabel - attrConstruct _ = constructFileChooserUsePreviewLabel - -type instance AttributeList FileChooser = FileChooserAttributeList -type FileChooserAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("create-folders", FileChooserCreateFoldersPropertyInfo), '("do-overwrite-confirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extra-widget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("local-only", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-widget", FileChooserPreviewWidgetPropertyInfo), '("preview-widget-active", FileChooserPreviewWidgetActivePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("select-multiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-hidden", FileChooserShowHiddenPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-preview-label", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data FileChooserConfirmOverwriteSignalInfo -instance SignalInfo FileChooserConfirmOverwriteSignalInfo where - type HaskellCallbackType FileChooserConfirmOverwriteSignalInfo = FileChooserConfirmOverwriteCallback - connectSignal _ = connectFileChooserConfirmOverwrite - -data FileChooserCurrentFolderChangedSignalInfo -instance SignalInfo FileChooserCurrentFolderChangedSignalInfo where - type HaskellCallbackType FileChooserCurrentFolderChangedSignalInfo = FileChooserCurrentFolderChangedCallback - connectSignal _ = connectFileChooserCurrentFolderChanged - -data FileChooserFileActivatedSignalInfo -instance SignalInfo FileChooserFileActivatedSignalInfo where - type HaskellCallbackType FileChooserFileActivatedSignalInfo = FileChooserFileActivatedCallback - connectSignal _ = connectFileChooserFileActivated - -data FileChooserSelectionChangedSignalInfo -instance SignalInfo FileChooserSelectionChangedSignalInfo where - type HaskellCallbackType FileChooserSelectionChangedSignalInfo = FileChooserSelectionChangedCallback - connectSignal _ = connectFileChooserSelectionChanged - -data FileChooserUpdatePreviewSignalInfo -instance SignalInfo FileChooserUpdatePreviewSignalInfo where - type HaskellCallbackType FileChooserUpdatePreviewSignalInfo = FileChooserUpdatePreviewCallback - connectSignal _ = connectFileChooserUpdatePreview - -type instance SignalList FileChooser = FileChooserSignalList -type FileChooserSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("confirm-overwrite", FileChooserConfirmOverwriteSignalInfo), '("current-folder-changed", FileChooserCurrentFolderChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("file-activated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", FileChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("update-preview", FileChooserUpdatePreviewSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "gtk_file_chooser_get_type" - c_gtk_file_chooser_get_type :: IO GType - -type instance ParentTypes FileChooser = FileChooserParentTypes -type FileChooserParentTypes = '[Widget, GObject.Object] - -instance GObject FileChooser where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_file_chooser_get_type - - -class GObject o => FileChooserK o -instance (GObject o, IsDescendantOf FileChooser o) => FileChooserK o - -toFileChooser :: FileChooserK o => o -> IO FileChooser -toFileChooser = unsafeCastTo FileChooser - --- method FileChooser::add_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_add_filter" gtk_file_chooser_add_filter :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr FileFilter -> -- filter : TInterface "Gtk" "FileFilter" - IO () - - -fileChooserAddFilter :: - (MonadIO m, FileChooserK a, FileFilterK b) => - a -> -- _obj - b -> -- filter - m () -fileChooserAddFilter _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filter' <- refObject filter - gtk_file_chooser_add_filter _obj' filter' - touchManagedPtr _obj - touchManagedPtr filter - return () - --- method FileChooser::add_shortcut_folder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_add_shortcut_folder" gtk_file_chooser_add_shortcut_folder :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- folder : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserAddShortcutFolder :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - [Char] -> -- folder - m () -fileChooserAddShortcutFolder _obj folder = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - folder' <- stringToCString folder - onException (do - _ <- propagateGError $ gtk_file_chooser_add_shortcut_folder _obj' folder' - touchManagedPtr _obj - freeMem folder' - return () - ) (do - freeMem folder' - ) - --- method FileChooser::add_shortcut_folder_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_add_shortcut_folder_uri" gtk_file_chooser_add_shortcut_folder_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserAddShortcutFolderUri :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - T.Text -> -- uri - m () -fileChooserAddShortcutFolderUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - onException (do - _ <- propagateGError $ gtk_file_chooser_add_shortcut_folder_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - ) (do - freeMem uri' - ) - --- method FileChooser::get_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "FileChooserAction" --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_action" gtk_file_chooser_get_action :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CUInt - - -fileChooserGetAction :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m FileChooserAction -fileChooserGetAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_action _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_create_folders --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_create_folders" gtk_file_chooser_get_create_folders :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetCreateFolders :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m Bool -fileChooserGetCreateFolders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_create_folders _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_current_folder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TFileName --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_current_folder" gtk_file_chooser_get_current_folder :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetCurrentFolder :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m [Char] -fileChooserGetCurrentFolder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_current_folder _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_current_folder" result - result' <- cstringToString result - freeMem result - touchManagedPtr _obj - return result' - --- method FileChooser::get_current_folder_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "File" --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_current_folder_file" gtk_file_chooser_get_current_folder_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr Gio.File) - - -fileChooserGetCurrentFolderFile :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m Gio.File -fileChooserGetCurrentFolderFile _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_current_folder_file _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_current_folder_file" result - result' <- (wrapObject Gio.File) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_current_folder_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_current_folder_uri" gtk_file_chooser_get_current_folder_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetCurrentFolderUri :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m T.Text -fileChooserGetCurrentFolderUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_current_folder_uri _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_current_folder_uri" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method FileChooser::get_current_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_current_name" gtk_file_chooser_get_current_name :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetCurrentName :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m T.Text -fileChooserGetCurrentName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_current_name _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_current_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method FileChooser::get_do_overwrite_confirmation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_do_overwrite_confirmation" gtk_file_chooser_get_do_overwrite_confirmation :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetDoOverwriteConfirmation :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m Bool -fileChooserGetDoOverwriteConfirmation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_do_overwrite_confirmation _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_extra_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_extra_widget" gtk_file_chooser_get_extra_widget :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr Widget) - - -fileChooserGetExtraWidget :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m Widget -fileChooserGetExtraWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_extra_widget _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_extra_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "File" --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_file" gtk_file_chooser_get_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr Gio.File) - - -fileChooserGetFile :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m Gio.File -fileChooserGetFile _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_file _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_file" result - result' <- (wrapObject Gio.File) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TFileName --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_filename" gtk_file_chooser_get_filename :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetFilename :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m [Char] -fileChooserGetFilename _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_filename _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_filename" result - result' <- cstringToString result - freeMem result - touchManagedPtr _obj - return result' - --- method FileChooser::get_filenames --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TFileName) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_filenames" gtk_file_chooser_get_filenames :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr (GSList CString)) - - -fileChooserGetFilenames :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m [[Char]] -fileChooserGetFilenames _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_filenames _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_filenames" result - result' <- unpackGSList result - result'' <- mapM cstringToString result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - --- method FileChooser::get_files --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_files" gtk_file_chooser_get_files :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr (GSList (Ptr Gio.File))) - - -fileChooserGetFiles :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m [Gio.File] -fileChooserGetFiles _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_files _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_files" result - result' <- unpackGSList result - result'' <- mapM (wrapObject Gio.File) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method FileChooser::get_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "FileFilter" --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_filter" gtk_file_chooser_get_filter :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr FileFilter) - - -fileChooserGetFilter :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m FileFilter -fileChooserGetFilter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_filter _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_filter" result - result' <- (newObject FileFilter) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_local_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_local_only" gtk_file_chooser_get_local_only :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetLocalOnly :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m Bool -fileChooserGetLocalOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_local_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_preview_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "File" --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_preview_file" gtk_file_chooser_get_preview_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr Gio.File) - - -fileChooserGetPreviewFile :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m Gio.File -fileChooserGetPreviewFile _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_preview_file _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_file" result - result' <- (wrapObject Gio.File) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_preview_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TFileName --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_preview_filename" gtk_file_chooser_get_preview_filename :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetPreviewFilename :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m [Char] -fileChooserGetPreviewFilename _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_preview_filename _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_filename" result - result' <- cstringToString result - freeMem result - touchManagedPtr _obj - return result' - --- method FileChooser::get_preview_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_preview_uri" gtk_file_chooser_get_preview_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetPreviewUri :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m T.Text -fileChooserGetPreviewUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_preview_uri _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_uri" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method FileChooser::get_preview_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_preview_widget" gtk_file_chooser_get_preview_widget :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr Widget) - - -fileChooserGetPreviewWidget :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m Widget -fileChooserGetPreviewWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_preview_widget _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_preview_widget_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_preview_widget_active" gtk_file_chooser_get_preview_widget_active :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetPreviewWidgetActive :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m Bool -fileChooserGetPreviewWidgetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_preview_widget_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_select_multiple --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_select_multiple" gtk_file_chooser_get_select_multiple :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetSelectMultiple :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m Bool -fileChooserGetSelectMultiple _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_select_multiple _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_show_hidden --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_show_hidden" gtk_file_chooser_get_show_hidden :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetShowHidden :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m Bool -fileChooserGetShowHidden _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_show_hidden _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_uri" gtk_file_chooser_get_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CString - - -fileChooserGetUri :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m T.Text -fileChooserGetUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_uri _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_uri" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method FileChooser::get_uris --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_uris" gtk_file_chooser_get_uris :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr (GSList CString)) - - -fileChooserGetUris :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m [T.Text] -fileChooserGetUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_uris _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_uris" result - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - --- method FileChooser::get_use_preview_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_get_use_preview_label" gtk_file_chooser_get_use_preview_label :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO CInt - - -fileChooserGetUsePreviewLabel :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m Bool -fileChooserGetUsePreviewLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_use_preview_label _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileChooser::list_filters --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Gtk" "FileFilter") --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_list_filters" gtk_file_chooser_list_filters :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr (GSList (Ptr FileFilter))) - - -fileChooserListFilters :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m [FileFilter] -fileChooserListFilters _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_list_filters _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_list_filters" result - result' <- unpackGSList result - result'' <- mapM (newObject FileFilter) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method FileChooser::list_shortcut_folder_uris --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_list_shortcut_folder_uris" gtk_file_chooser_list_shortcut_folder_uris :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr (GSList CString)) - - -fileChooserListShortcutFolderUris :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m [T.Text] -fileChooserListShortcutFolderUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_list_shortcut_folder_uris _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_list_shortcut_folder_uris" result - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - --- method FileChooser::list_shortcut_folders --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TFileName) --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_list_shortcut_folders" gtk_file_chooser_list_shortcut_folders :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO (Ptr (GSList CString)) - - -fileChooserListShortcutFolders :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m [[Char]] -fileChooserListShortcutFolders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_list_shortcut_folders _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_list_shortcut_folders" result - result' <- unpackGSList result - result'' <- mapM cstringToString result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - --- method FileChooser::remove_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_remove_filter" gtk_file_chooser_remove_filter :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr FileFilter -> -- filter : TInterface "Gtk" "FileFilter" - IO () - - -fileChooserRemoveFilter :: - (MonadIO m, FileChooserK a, FileFilterK b) => - a -> -- _obj - b -> -- filter - m () -fileChooserRemoveFilter _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let filter' = unsafeManagedPtrCastPtr filter - gtk_file_chooser_remove_filter _obj' filter' - touchManagedPtr _obj - touchManagedPtr filter - return () - --- method FileChooser::remove_shortcut_folder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_remove_shortcut_folder" gtk_file_chooser_remove_shortcut_folder :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- folder : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserRemoveShortcutFolder :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - [Char] -> -- folder - m () -fileChooserRemoveShortcutFolder _obj folder = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - folder' <- stringToCString folder - onException (do - _ <- propagateGError $ gtk_file_chooser_remove_shortcut_folder _obj' folder' - touchManagedPtr _obj - freeMem folder' - return () - ) (do - freeMem folder' - ) - --- method FileChooser::remove_shortcut_folder_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_remove_shortcut_folder_uri" gtk_file_chooser_remove_shortcut_folder_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserRemoveShortcutFolderUri :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - T.Text -> -- uri - m () -fileChooserRemoveShortcutFolderUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - onException (do - _ <- propagateGError $ gtk_file_chooser_remove_shortcut_folder_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - ) (do - freeMem uri' - ) - --- method FileChooser::select_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_select_all" gtk_file_chooser_select_all :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO () - - -fileChooserSelectAll :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m () -fileChooserSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_file_chooser_select_all _obj' - touchManagedPtr _obj - return () - --- method FileChooser::select_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_select_file" gtk_file_chooser_select_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr Gio.File -> -- file : TInterface "Gio" "File" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserSelectFile :: - (MonadIO m, FileChooserK a, Gio.FileK b) => - a -> -- _obj - b -> -- file - m () -fileChooserSelectFile _obj file = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let file' = unsafeManagedPtrCastPtr file - onException (do - _ <- propagateGError $ gtk_file_chooser_select_file _obj' file' - touchManagedPtr _obj - touchManagedPtr file - return () - ) (do - return () - ) - --- method FileChooser::select_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_select_filename" gtk_file_chooser_select_filename :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- filename : TBasicType TFileName - IO CInt - - -fileChooserSelectFilename :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - [Char] -> -- filename - m Bool -fileChooserSelectFilename _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - result <- gtk_file_chooser_select_filename _obj' filename' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem filename' - return result' - --- method FileChooser::select_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_select_uri" gtk_file_chooser_select_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- uri : TBasicType TUTF8 - IO CInt - - -fileChooserSelectUri :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - T.Text -> -- uri - m Bool -fileChooserSelectUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - result <- gtk_file_chooser_select_uri _obj' uri' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem uri' - return result' - --- method FileChooser::set_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_action" gtk_file_chooser_set_action :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CUInt -> -- action : TInterface "Gtk" "FileChooserAction" - IO () - - -fileChooserSetAction :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - FileChooserAction -> -- action - m () -fileChooserSetAction _obj action = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action' = (fromIntegral . fromEnum) action - gtk_file_chooser_set_action _obj' action' - touchManagedPtr _obj - return () - --- method FileChooser::set_create_folders --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "create_folders", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "create_folders", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_create_folders" gtk_file_chooser_set_create_folders :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- create_folders : TBasicType TBoolean - IO () - - -fileChooserSetCreateFolders :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - Bool -> -- create_folders - m () -fileChooserSetCreateFolders _obj create_folders = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let create_folders' = (fromIntegral . fromEnum) create_folders - gtk_file_chooser_set_create_folders _obj' create_folders' - touchManagedPtr _obj - return () - --- method FileChooser::set_current_folder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_current_folder" gtk_file_chooser_set_current_folder :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- filename : TBasicType TFileName - IO CInt - - -fileChooserSetCurrentFolder :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - [Char] -> -- filename - m Bool -fileChooserSetCurrentFolder _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - result <- gtk_file_chooser_set_current_folder _obj' filename' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem filename' - return result' - --- method FileChooser::set_current_folder_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_current_folder_file" gtk_file_chooser_set_current_folder_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr Gio.File -> -- file : TInterface "Gio" "File" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserSetCurrentFolderFile :: - (MonadIO m, FileChooserK a, Gio.FileK b) => - a -> -- _obj - b -> -- file - m () -fileChooserSetCurrentFolderFile _obj file = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let file' = unsafeManagedPtrCastPtr file - onException (do - _ <- propagateGError $ gtk_file_chooser_set_current_folder_file _obj' file' - touchManagedPtr _obj - touchManagedPtr file - return () - ) (do - return () - ) - --- method FileChooser::set_current_folder_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_current_folder_uri" gtk_file_chooser_set_current_folder_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- uri : TBasicType TUTF8 - IO CInt - - -fileChooserSetCurrentFolderUri :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - T.Text -> -- uri - m Bool -fileChooserSetCurrentFolderUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - result <- gtk_file_chooser_set_current_folder_uri _obj' uri' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem uri' - return result' - --- method FileChooser::set_current_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_current_name" gtk_file_chooser_set_current_name :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- name : TBasicType TFileName - IO () - - -fileChooserSetCurrentName :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - [Char] -> -- name - m () -fileChooserSetCurrentName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- stringToCString name - gtk_file_chooser_set_current_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - --- method FileChooser::set_do_overwrite_confirmation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_overwrite_confirmation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_overwrite_confirmation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_do_overwrite_confirmation" gtk_file_chooser_set_do_overwrite_confirmation :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- do_overwrite_confirmation : TBasicType TBoolean - IO () - - -fileChooserSetDoOverwriteConfirmation :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - Bool -> -- do_overwrite_confirmation - m () -fileChooserSetDoOverwriteConfirmation _obj do_overwrite_confirmation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let do_overwrite_confirmation' = (fromIntegral . fromEnum) do_overwrite_confirmation - gtk_file_chooser_set_do_overwrite_confirmation _obj' do_overwrite_confirmation' - touchManagedPtr _obj - return () - --- method FileChooser::set_extra_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extra_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extra_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_extra_widget" gtk_file_chooser_set_extra_widget :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr Widget -> -- extra_widget : TInterface "Gtk" "Widget" - IO () - - -fileChooserSetExtraWidget :: - (MonadIO m, FileChooserK a, WidgetK b) => - a -> -- _obj - b -> -- extra_widget - m () -fileChooserSetExtraWidget _obj extra_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let extra_widget' = unsafeManagedPtrCastPtr extra_widget - gtk_file_chooser_set_extra_widget _obj' extra_widget' - touchManagedPtr _obj - touchManagedPtr extra_widget - return () - --- method FileChooser::set_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_file" gtk_file_chooser_set_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr Gio.File -> -- file : TInterface "Gio" "File" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileChooserSetFile :: - (MonadIO m, FileChooserK a, Gio.FileK b) => - a -> -- _obj - b -> -- file - m () -fileChooserSetFile _obj file = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let file' = unsafeManagedPtrCastPtr file - onException (do - _ <- propagateGError $ gtk_file_chooser_set_file _obj' file' - touchManagedPtr _obj - touchManagedPtr file - return () - ) (do - return () - ) - --- method FileChooser::set_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_filename" gtk_file_chooser_set_filename :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- filename : TBasicType TFileName - IO CInt - - -fileChooserSetFilename :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - [Char] -> -- filename - m Bool -fileChooserSetFilename _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - result <- gtk_file_chooser_set_filename _obj' filename' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem filename' - return result' - --- method FileChooser::set_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_filter" gtk_file_chooser_set_filter :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr FileFilter -> -- filter : TInterface "Gtk" "FileFilter" - IO () - - -fileChooserSetFilter :: - (MonadIO m, FileChooserK a, FileFilterK b) => - a -> -- _obj - b -> -- filter - m () -fileChooserSetFilter _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let filter' = unsafeManagedPtrCastPtr filter - gtk_file_chooser_set_filter _obj' filter' - touchManagedPtr _obj - touchManagedPtr filter - return () - --- method FileChooser::set_local_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_local_only" gtk_file_chooser_set_local_only :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- local_only : TBasicType TBoolean - IO () - - -fileChooserSetLocalOnly :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - Bool -> -- local_only - m () -fileChooserSetLocalOnly _obj local_only = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let local_only' = (fromIntegral . fromEnum) local_only - gtk_file_chooser_set_local_only _obj' local_only' - touchManagedPtr _obj - return () - --- method FileChooser::set_preview_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preview_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preview_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_preview_widget" gtk_file_chooser_set_preview_widget :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr Widget -> -- preview_widget : TInterface "Gtk" "Widget" - IO () - - -fileChooserSetPreviewWidget :: - (MonadIO m, FileChooserK a, WidgetK b) => - a -> -- _obj - b -> -- preview_widget - m () -fileChooserSetPreviewWidget _obj preview_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let preview_widget' = unsafeManagedPtrCastPtr preview_widget - gtk_file_chooser_set_preview_widget _obj' preview_widget' - touchManagedPtr _obj - touchManagedPtr preview_widget - return () - --- method FileChooser::set_preview_widget_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_preview_widget_active" gtk_file_chooser_set_preview_widget_active :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- active : TBasicType TBoolean - IO () - - -fileChooserSetPreviewWidgetActive :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - Bool -> -- active - m () -fileChooserSetPreviewWidgetActive _obj active = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let active' = (fromIntegral . fromEnum) active - gtk_file_chooser_set_preview_widget_active _obj' active' - touchManagedPtr _obj - return () - --- method FileChooser::set_select_multiple --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_select_multiple" gtk_file_chooser_set_select_multiple :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- select_multiple : TBasicType TBoolean - IO () - - -fileChooserSetSelectMultiple :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - Bool -> -- select_multiple - m () -fileChooserSetSelectMultiple _obj select_multiple = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let select_multiple' = (fromIntegral . fromEnum) select_multiple - gtk_file_chooser_set_select_multiple _obj' select_multiple' - touchManagedPtr _obj - return () - --- method FileChooser::set_show_hidden --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_show_hidden" gtk_file_chooser_set_show_hidden :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- show_hidden : TBasicType TBoolean - IO () - - -fileChooserSetShowHidden :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - Bool -> -- show_hidden - m () -fileChooserSetShowHidden _obj show_hidden = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_hidden' = (fromIntegral . fromEnum) show_hidden - gtk_file_chooser_set_show_hidden _obj' show_hidden' - touchManagedPtr _obj - return () - --- method FileChooser::set_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_uri" gtk_file_chooser_set_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- uri : TBasicType TUTF8 - IO CInt - - -fileChooserSetUri :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - T.Text -> -- uri - m Bool -fileChooserSetUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - result <- gtk_file_chooser_set_uri _obj' uri' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem uri' - return result' - --- method FileChooser::set_use_preview_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_label", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_label", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_set_use_preview_label" gtk_file_chooser_set_use_preview_label :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CInt -> -- use_label : TBasicType TBoolean - IO () - - -fileChooserSetUsePreviewLabel :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - Bool -> -- use_label - m () -fileChooserSetUsePreviewLabel _obj use_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_label' = (fromIntegral . fromEnum) use_label - gtk_file_chooser_set_use_preview_label _obj' use_label' - touchManagedPtr _obj - return () - --- method FileChooser::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_unselect_all" gtk_file_chooser_unselect_all :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - IO () - - -fileChooserUnselectAll :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - m () -fileChooserUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_file_chooser_unselect_all _obj' - touchManagedPtr _obj - return () - --- method FileChooser::unselect_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_unselect_file" gtk_file_chooser_unselect_file :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - Ptr Gio.File -> -- file : TInterface "Gio" "File" - IO () - - -fileChooserUnselectFile :: - (MonadIO m, FileChooserK a, Gio.FileK b) => - a -> -- _obj - b -> -- file - m () -fileChooserUnselectFile _obj file = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let file' = unsafeManagedPtrCastPtr file - gtk_file_chooser_unselect_file _obj' file' - touchManagedPtr _obj - touchManagedPtr file - return () - --- method FileChooser::unselect_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_unselect_filename" gtk_file_chooser_unselect_filename :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- filename : TBasicType TFileName - IO () - - -fileChooserUnselectFilename :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - [Char] -> -- filename - m () -fileChooserUnselectFilename _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - gtk_file_chooser_unselect_filename _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - --- method FileChooser::unselect_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_unselect_uri" gtk_file_chooser_unselect_uri :: - Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" - CString -> -- uri : TBasicType TUTF8 - IO () - - -fileChooserUnselectUri :: - (MonadIO m, FileChooserK a) => - a -> -- _obj - T.Text -> -- uri - m () -fileChooserUnselectUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - gtk_file_chooser_unselect_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () + +{- | +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.Interfaces.FileChooser + ( + +-- * Exported types + FileChooser(..) , + noFileChooser , + FileChooserK , + toFileChooser , + + + -- * Methods +-- ** fileChooserAddFilter + FileChooserAddFilterMethodInfo , + fileChooserAddFilter , + + +-- ** fileChooserAddShortcutFolder + FileChooserAddShortcutFolderMethodInfo , + fileChooserAddShortcutFolder , + + +-- ** fileChooserAddShortcutFolderUri + FileChooserAddShortcutFolderUriMethodInfo, + fileChooserAddShortcutFolderUri , + + +-- ** fileChooserGetAction + FileChooserGetActionMethodInfo , + fileChooserGetAction , + + +-- ** fileChooserGetCreateFolders + FileChooserGetCreateFoldersMethodInfo , + fileChooserGetCreateFolders , + + +-- ** fileChooserGetCurrentFolder + FileChooserGetCurrentFolderMethodInfo , + fileChooserGetCurrentFolder , + + +-- ** fileChooserGetCurrentFolderFile + FileChooserGetCurrentFolderFileMethodInfo, + fileChooserGetCurrentFolderFile , + + +-- ** fileChooserGetCurrentFolderUri + FileChooserGetCurrentFolderUriMethodInfo, + fileChooserGetCurrentFolderUri , + + +-- ** fileChooserGetCurrentName + FileChooserGetCurrentNameMethodInfo , + fileChooserGetCurrentName , + + +-- ** fileChooserGetDoOverwriteConfirmation + FileChooserGetDoOverwriteConfirmationMethodInfo, + fileChooserGetDoOverwriteConfirmation , + + +-- ** fileChooserGetExtraWidget + FileChooserGetExtraWidgetMethodInfo , + fileChooserGetExtraWidget , + + +-- ** fileChooserGetFile + FileChooserGetFileMethodInfo , + fileChooserGetFile , + + +-- ** fileChooserGetFilename + FileChooserGetFilenameMethodInfo , + fileChooserGetFilename , + + +-- ** fileChooserGetFilenames + FileChooserGetFilenamesMethodInfo , + fileChooserGetFilenames , + + +-- ** fileChooserGetFiles + FileChooserGetFilesMethodInfo , + fileChooserGetFiles , + + +-- ** fileChooserGetFilter + FileChooserGetFilterMethodInfo , + fileChooserGetFilter , + + +-- ** fileChooserGetLocalOnly + FileChooserGetLocalOnlyMethodInfo , + fileChooserGetLocalOnly , + + +-- ** fileChooserGetPreviewFile + FileChooserGetPreviewFileMethodInfo , + fileChooserGetPreviewFile , + + +-- ** fileChooserGetPreviewFilename + FileChooserGetPreviewFilenameMethodInfo , + fileChooserGetPreviewFilename , + + +-- ** fileChooserGetPreviewUri + FileChooserGetPreviewUriMethodInfo , + fileChooserGetPreviewUri , + + +-- ** fileChooserGetPreviewWidget + FileChooserGetPreviewWidgetMethodInfo , + fileChooserGetPreviewWidget , + + +-- ** fileChooserGetPreviewWidgetActive + FileChooserGetPreviewWidgetActiveMethodInfo, + fileChooserGetPreviewWidgetActive , + + +-- ** fileChooserGetSelectMultiple + FileChooserGetSelectMultipleMethodInfo , + fileChooserGetSelectMultiple , + + +-- ** fileChooserGetShowHidden + FileChooserGetShowHiddenMethodInfo , + fileChooserGetShowHidden , + + +-- ** fileChooserGetUri + FileChooserGetUriMethodInfo , + fileChooserGetUri , + + +-- ** fileChooserGetUris + FileChooserGetUrisMethodInfo , + fileChooserGetUris , + + +-- ** fileChooserGetUsePreviewLabel + FileChooserGetUsePreviewLabelMethodInfo , + fileChooserGetUsePreviewLabel , + + +-- ** fileChooserListFilters + FileChooserListFiltersMethodInfo , + fileChooserListFilters , + + +-- ** fileChooserListShortcutFolderUris + FileChooserListShortcutFolderUrisMethodInfo, + fileChooserListShortcutFolderUris , + + +-- ** fileChooserListShortcutFolders + FileChooserListShortcutFoldersMethodInfo, + fileChooserListShortcutFolders , + + +-- ** fileChooserRemoveFilter + FileChooserRemoveFilterMethodInfo , + fileChooserRemoveFilter , + + +-- ** fileChooserRemoveShortcutFolder + FileChooserRemoveShortcutFolderMethodInfo, + fileChooserRemoveShortcutFolder , + + +-- ** fileChooserRemoveShortcutFolderUri + FileChooserRemoveShortcutFolderUriMethodInfo, + fileChooserRemoveShortcutFolderUri , + + +-- ** fileChooserSelectAll + FileChooserSelectAllMethodInfo , + fileChooserSelectAll , + + +-- ** fileChooserSelectFile + FileChooserSelectFileMethodInfo , + fileChooserSelectFile , + + +-- ** fileChooserSelectFilename + FileChooserSelectFilenameMethodInfo , + fileChooserSelectFilename , + + +-- ** fileChooserSelectUri + FileChooserSelectUriMethodInfo , + fileChooserSelectUri , + + +-- ** fileChooserSetAction + FileChooserSetActionMethodInfo , + fileChooserSetAction , + + +-- ** fileChooserSetCreateFolders + FileChooserSetCreateFoldersMethodInfo , + fileChooserSetCreateFolders , + + +-- ** fileChooserSetCurrentFolder + FileChooserSetCurrentFolderMethodInfo , + fileChooserSetCurrentFolder , + + +-- ** fileChooserSetCurrentFolderFile + FileChooserSetCurrentFolderFileMethodInfo, + fileChooserSetCurrentFolderFile , + + +-- ** fileChooserSetCurrentFolderUri + FileChooserSetCurrentFolderUriMethodInfo, + fileChooserSetCurrentFolderUri , + + +-- ** fileChooserSetCurrentName + FileChooserSetCurrentNameMethodInfo , + fileChooserSetCurrentName , + + +-- ** fileChooserSetDoOverwriteConfirmation + FileChooserSetDoOverwriteConfirmationMethodInfo, + fileChooserSetDoOverwriteConfirmation , + + +-- ** fileChooserSetExtraWidget + FileChooserSetExtraWidgetMethodInfo , + fileChooserSetExtraWidget , + + +-- ** fileChooserSetFile + FileChooserSetFileMethodInfo , + fileChooserSetFile , + + +-- ** fileChooserSetFilename + FileChooserSetFilenameMethodInfo , + fileChooserSetFilename , + + +-- ** fileChooserSetFilter + FileChooserSetFilterMethodInfo , + fileChooserSetFilter , + + +-- ** fileChooserSetLocalOnly + FileChooserSetLocalOnlyMethodInfo , + fileChooserSetLocalOnly , + + +-- ** fileChooserSetPreviewWidget + FileChooserSetPreviewWidgetMethodInfo , + fileChooserSetPreviewWidget , + + +-- ** fileChooserSetPreviewWidgetActive + FileChooserSetPreviewWidgetActiveMethodInfo, + fileChooserSetPreviewWidgetActive , + + +-- ** fileChooserSetSelectMultiple + FileChooserSetSelectMultipleMethodInfo , + fileChooserSetSelectMultiple , + + +-- ** fileChooserSetShowHidden + FileChooserSetShowHiddenMethodInfo , + fileChooserSetShowHidden , + + +-- ** fileChooserSetUri + FileChooserSetUriMethodInfo , + fileChooserSetUri , + + +-- ** fileChooserSetUsePreviewLabel + FileChooserSetUsePreviewLabelMethodInfo , + fileChooserSetUsePreviewLabel , + + +-- ** fileChooserUnselectAll + FileChooserUnselectAllMethodInfo , + fileChooserUnselectAll , + + +-- ** fileChooserUnselectFile + FileChooserUnselectFileMethodInfo , + fileChooserUnselectFile , + + +-- ** fileChooserUnselectFilename + FileChooserUnselectFilenameMethodInfo , + fileChooserUnselectFilename , + + +-- ** fileChooserUnselectUri + FileChooserUnselectUriMethodInfo , + fileChooserUnselectUri , + + + + + -- * Properties +-- ** Action + FileChooserActionPropertyInfo , + constructFileChooserAction , + getFileChooserAction , + setFileChooserAction , + + +-- ** CreateFolders + FileChooserCreateFoldersPropertyInfo , + constructFileChooserCreateFolders , + getFileChooserCreateFolders , + setFileChooserCreateFolders , + + +-- ** DoOverwriteConfirmation + FileChooserDoOverwriteConfirmationPropertyInfo, + constructFileChooserDoOverwriteConfirmation, + getFileChooserDoOverwriteConfirmation , + setFileChooserDoOverwriteConfirmation , + + +-- ** ExtraWidget + FileChooserExtraWidgetPropertyInfo , + constructFileChooserExtraWidget , + getFileChooserExtraWidget , + setFileChooserExtraWidget , + + +-- ** Filter + FileChooserFilterPropertyInfo , + constructFileChooserFilter , + getFileChooserFilter , + setFileChooserFilter , + + +-- ** LocalOnly + FileChooserLocalOnlyPropertyInfo , + constructFileChooserLocalOnly , + getFileChooserLocalOnly , + setFileChooserLocalOnly , + + +-- ** PreviewWidget + FileChooserPreviewWidgetPropertyInfo , + constructFileChooserPreviewWidget , + getFileChooserPreviewWidget , + setFileChooserPreviewWidget , + + +-- ** PreviewWidgetActive + FileChooserPreviewWidgetActivePropertyInfo, + constructFileChooserPreviewWidgetActive , + getFileChooserPreviewWidgetActive , + setFileChooserPreviewWidgetActive , + + +-- ** SelectMultiple + FileChooserSelectMultiplePropertyInfo , + constructFileChooserSelectMultiple , + getFileChooserSelectMultiple , + setFileChooserSelectMultiple , + + +-- ** ShowHidden + FileChooserShowHiddenPropertyInfo , + constructFileChooserShowHidden , + getFileChooserShowHidden , + setFileChooserShowHidden , + + +-- ** UsePreviewLabel + FileChooserUsePreviewLabelPropertyInfo , + constructFileChooserUsePreviewLabel , + getFileChooserUsePreviewLabel , + setFileChooserUsePreviewLabel , + + + + + -- * Signals +-- ** ConfirmOverwrite + FileChooserConfirmOverwriteCallback , + FileChooserConfirmOverwriteCallbackC , + FileChooserConfirmOverwriteSignalInfo , + afterFileChooserConfirmOverwrite , + fileChooserConfirmOverwriteCallbackWrapper, + fileChooserConfirmOverwriteClosure , + mkFileChooserConfirmOverwriteCallback , + noFileChooserConfirmOverwriteCallback , + onFileChooserConfirmOverwrite , + + +-- ** CurrentFolderChanged + FileChooserCurrentFolderChangedCallback , + FileChooserCurrentFolderChangedCallbackC, + FileChooserCurrentFolderChangedSignalInfo, + afterFileChooserCurrentFolderChanged , + fileChooserCurrentFolderChangedCallbackWrapper, + fileChooserCurrentFolderChangedClosure , + mkFileChooserCurrentFolderChangedCallback, + noFileChooserCurrentFolderChangedCallback, + onFileChooserCurrentFolderChanged , + + +-- ** FileActivated + FileChooserFileActivatedCallback , + FileChooserFileActivatedCallbackC , + FileChooserFileActivatedSignalInfo , + afterFileChooserFileActivated , + fileChooserFileActivatedCallbackWrapper , + fileChooserFileActivatedClosure , + mkFileChooserFileActivatedCallback , + noFileChooserFileActivatedCallback , + onFileChooserFileActivated , + + +-- ** SelectionChanged + FileChooserSelectionChangedCallback , + FileChooserSelectionChangedCallbackC , + FileChooserSelectionChangedSignalInfo , + afterFileChooserSelectionChanged , + fileChooserSelectionChangedCallbackWrapper, + fileChooserSelectionChangedClosure , + mkFileChooserSelectionChangedCallback , + noFileChooserSelectionChangedCallback , + onFileChooserSelectionChanged , + + +-- ** UpdatePreview + FileChooserUpdatePreviewCallback , + FileChooserUpdatePreviewCallbackC , + FileChooserUpdatePreviewSignalInfo , + afterFileChooserUpdatePreview , + fileChooserUpdatePreviewCallbackWrapper , + fileChooserUpdatePreviewClosure , + mkFileChooserUpdatePreviewCallback , + noFileChooserUpdatePreviewCallback , + onFileChooserUpdatePreview , + + + + + ) 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.GObject as GObject +import qualified GI.Gio as Gio + +-- interface FileChooser + +newtype FileChooser = FileChooser (ForeignPtr FileChooser) +noFileChooser :: Maybe FileChooser +noFileChooser = Nothing + +type family ResolveFileChooserMethod (t :: Symbol) (o :: *) :: * where + ResolveFileChooserMethod "activate" o = WidgetActivateMethodInfo + ResolveFileChooserMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFileChooserMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFileChooserMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFileChooserMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFileChooserMethod "addFilter" o = FileChooserAddFilterMethodInfo + ResolveFileChooserMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFileChooserMethod "addShortcutFolder" o = FileChooserAddShortcutFolderMethodInfo + ResolveFileChooserMethod "addShortcutFolderUri" o = FileChooserAddShortcutFolderUriMethodInfo + ResolveFileChooserMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFileChooserMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFileChooserMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFileChooserMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFileChooserMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFileChooserMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveFileChooserMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFileChooserMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFileChooserMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFileChooserMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFileChooserMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFileChooserMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFileChooserMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFileChooserMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFileChooserMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFileChooserMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFileChooserMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFileChooserMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFileChooserMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFileChooserMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFileChooserMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFileChooserMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFileChooserMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFileChooserMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFileChooserMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFileChooserMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFileChooserMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFileChooserMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFileChooserMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFileChooserMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFileChooserMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFileChooserMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFileChooserMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFileChooserMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFileChooserMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFileChooserMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFileChooserMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFileChooserMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFileChooserMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFileChooserMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFileChooserMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFileChooserMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFileChooserMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFileChooserMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFileChooserMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFileChooserMethod "draw" o = WidgetDrawMethodInfo + ResolveFileChooserMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFileChooserMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFileChooserMethod "event" o = WidgetEventMethodInfo + ResolveFileChooserMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFileChooserMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFileChooserMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFileChooserMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFileChooserMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFileChooserMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFileChooserMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFileChooserMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFileChooserMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFileChooserMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFileChooserMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFileChooserMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFileChooserMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFileChooserMethod "hide" o = WidgetHideMethodInfo + ResolveFileChooserMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFileChooserMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFileChooserMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFileChooserMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFileChooserMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFileChooserMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFileChooserMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFileChooserMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFileChooserMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFileChooserMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFileChooserMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFileChooserMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFileChooserMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFileChooserMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFileChooserMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFileChooserMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFileChooserMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFileChooserMethod "listFilters" o = FileChooserListFiltersMethodInfo + ResolveFileChooserMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFileChooserMethod "listShortcutFolderUris" o = FileChooserListShortcutFolderUrisMethodInfo + ResolveFileChooserMethod "listShortcutFolders" o = FileChooserListShortcutFoldersMethodInfo + ResolveFileChooserMethod "map" o = WidgetMapMethodInfo + ResolveFileChooserMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveFileChooserMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFileChooserMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFileChooserMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFileChooserMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFileChooserMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFileChooserMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFileChooserMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFileChooserMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFileChooserMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFileChooserMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFileChooserMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFileChooserMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFileChooserMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFileChooserMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFileChooserMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFileChooserMethod "path" o = WidgetPathMethodInfo + ResolveFileChooserMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFileChooserMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFileChooserMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFileChooserMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFileChooserMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFileChooserMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFileChooserMethod "realize" o = WidgetRealizeMethodInfo + ResolveFileChooserMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFileChooserMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFileChooserMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFileChooserMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFileChooserMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFileChooserMethod "removeFilter" o = FileChooserRemoveFilterMethodInfo + ResolveFileChooserMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFileChooserMethod "removeShortcutFolder" o = FileChooserRemoveShortcutFolderMethodInfo + ResolveFileChooserMethod "removeShortcutFolderUri" o = FileChooserRemoveShortcutFolderUriMethodInfo + ResolveFileChooserMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFileChooserMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFileChooserMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFileChooserMethod "reparent" o = WidgetReparentMethodInfo + ResolveFileChooserMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFileChooserMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFileChooserMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFileChooserMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFileChooserMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFileChooserMethod "selectAll" o = FileChooserSelectAllMethodInfo + ResolveFileChooserMethod "selectFile" o = FileChooserSelectFileMethodInfo + ResolveFileChooserMethod "selectFilename" o = FileChooserSelectFilenameMethodInfo + ResolveFileChooserMethod "selectUri" o = FileChooserSelectUriMethodInfo + ResolveFileChooserMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFileChooserMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFileChooserMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFileChooserMethod "show" o = WidgetShowMethodInfo + ResolveFileChooserMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFileChooserMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFileChooserMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFileChooserMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFileChooserMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFileChooserMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFileChooserMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFileChooserMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFileChooserMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFileChooserMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFileChooserMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFileChooserMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFileChooserMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFileChooserMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFileChooserMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFileChooserMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFileChooserMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFileChooserMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFileChooserMethod "unselectAll" o = FileChooserUnselectAllMethodInfo + ResolveFileChooserMethod "unselectFile" o = FileChooserUnselectFileMethodInfo + ResolveFileChooserMethod "unselectFilename" o = FileChooserUnselectFilenameMethodInfo + ResolveFileChooserMethod "unselectUri" o = FileChooserUnselectUriMethodInfo + ResolveFileChooserMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFileChooserMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFileChooserMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFileChooserMethod "getAction" o = FileChooserGetActionMethodInfo + ResolveFileChooserMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFileChooserMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFileChooserMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFileChooserMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFileChooserMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFileChooserMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFileChooserMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFileChooserMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFileChooserMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFileChooserMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFileChooserMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFileChooserMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFileChooserMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFileChooserMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFileChooserMethod "getCreateFolders" o = FileChooserGetCreateFoldersMethodInfo + ResolveFileChooserMethod "getCurrentFolder" o = FileChooserGetCurrentFolderMethodInfo + ResolveFileChooserMethod "getCurrentFolderFile" o = FileChooserGetCurrentFolderFileMethodInfo + ResolveFileChooserMethod "getCurrentFolderUri" o = FileChooserGetCurrentFolderUriMethodInfo + ResolveFileChooserMethod "getCurrentName" o = FileChooserGetCurrentNameMethodInfo + ResolveFileChooserMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFileChooserMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFileChooserMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFileChooserMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFileChooserMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFileChooserMethod "getDoOverwriteConfirmation" o = FileChooserGetDoOverwriteConfirmationMethodInfo + ResolveFileChooserMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFileChooserMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFileChooserMethod "getExtraWidget" o = FileChooserGetExtraWidgetMethodInfo + ResolveFileChooserMethod "getFile" o = FileChooserGetFileMethodInfo + ResolveFileChooserMethod "getFilename" o = FileChooserGetFilenameMethodInfo + ResolveFileChooserMethod "getFilenames" o = FileChooserGetFilenamesMethodInfo + ResolveFileChooserMethod "getFiles" o = FileChooserGetFilesMethodInfo + ResolveFileChooserMethod "getFilter" o = FileChooserGetFilterMethodInfo + ResolveFileChooserMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveFileChooserMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFileChooserMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFileChooserMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFileChooserMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFileChooserMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFileChooserMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFileChooserMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFileChooserMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFileChooserMethod "getLocalOnly" o = FileChooserGetLocalOnlyMethodInfo + ResolveFileChooserMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFileChooserMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFileChooserMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFileChooserMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFileChooserMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFileChooserMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFileChooserMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFileChooserMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFileChooserMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFileChooserMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFileChooserMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveFileChooserMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFileChooserMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFileChooserMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFileChooserMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFileChooserMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFileChooserMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFileChooserMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFileChooserMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFileChooserMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFileChooserMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFileChooserMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFileChooserMethod "getPreviewFile" o = FileChooserGetPreviewFileMethodInfo + ResolveFileChooserMethod "getPreviewFilename" o = FileChooserGetPreviewFilenameMethodInfo + ResolveFileChooserMethod "getPreviewUri" o = FileChooserGetPreviewUriMethodInfo + ResolveFileChooserMethod "getPreviewWidget" o = FileChooserGetPreviewWidgetMethodInfo + ResolveFileChooserMethod "getPreviewWidgetActive" o = FileChooserGetPreviewWidgetActiveMethodInfo + ResolveFileChooserMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFileChooserMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFileChooserMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFileChooserMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFileChooserMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFileChooserMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFileChooserMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFileChooserMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFileChooserMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveFileChooserMethod "getSelectMultiple" o = FileChooserGetSelectMultipleMethodInfo + ResolveFileChooserMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFileChooserMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFileChooserMethod "getShowHidden" o = FileChooserGetShowHiddenMethodInfo + ResolveFileChooserMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFileChooserMethod "getState" o = WidgetGetStateMethodInfo + ResolveFileChooserMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFileChooserMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFileChooserMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFileChooserMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFileChooserMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFileChooserMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFileChooserMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFileChooserMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFileChooserMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFileChooserMethod "getUri" o = FileChooserGetUriMethodInfo + ResolveFileChooserMethod "getUris" o = FileChooserGetUrisMethodInfo + ResolveFileChooserMethod "getUsePreviewLabel" o = FileChooserGetUsePreviewLabelMethodInfo + ResolveFileChooserMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFileChooserMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFileChooserMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFileChooserMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFileChooserMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFileChooserMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFileChooserMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFileChooserMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFileChooserMethod "setAction" o = FileChooserSetActionMethodInfo + ResolveFileChooserMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFileChooserMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFileChooserMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFileChooserMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFileChooserMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFileChooserMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFileChooserMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFileChooserMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFileChooserMethod "setCreateFolders" o = FileChooserSetCreateFoldersMethodInfo + ResolveFileChooserMethod "setCurrentFolder" o = FileChooserSetCurrentFolderMethodInfo + ResolveFileChooserMethod "setCurrentFolderFile" o = FileChooserSetCurrentFolderFileMethodInfo + ResolveFileChooserMethod "setCurrentFolderUri" o = FileChooserSetCurrentFolderUriMethodInfo + ResolveFileChooserMethod "setCurrentName" o = FileChooserSetCurrentNameMethodInfo + ResolveFileChooserMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFileChooserMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFileChooserMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFileChooserMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFileChooserMethod "setDoOverwriteConfirmation" o = FileChooserSetDoOverwriteConfirmationMethodInfo + ResolveFileChooserMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFileChooserMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFileChooserMethod "setExtraWidget" o = FileChooserSetExtraWidgetMethodInfo + ResolveFileChooserMethod "setFile" o = FileChooserSetFileMethodInfo + ResolveFileChooserMethod "setFilename" o = FileChooserSetFilenameMethodInfo + ResolveFileChooserMethod "setFilter" o = FileChooserSetFilterMethodInfo + ResolveFileChooserMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveFileChooserMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFileChooserMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFileChooserMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFileChooserMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFileChooserMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFileChooserMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFileChooserMethod "setLocalOnly" o = FileChooserSetLocalOnlyMethodInfo + ResolveFileChooserMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFileChooserMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFileChooserMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFileChooserMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFileChooserMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFileChooserMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFileChooserMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFileChooserMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFileChooserMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveFileChooserMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFileChooserMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFileChooserMethod "setPreviewWidget" o = FileChooserSetPreviewWidgetMethodInfo + ResolveFileChooserMethod "setPreviewWidgetActive" o = FileChooserSetPreviewWidgetActiveMethodInfo + ResolveFileChooserMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFileChooserMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFileChooserMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFileChooserMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFileChooserMethod "setSelectMultiple" o = FileChooserSetSelectMultipleMethodInfo + ResolveFileChooserMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFileChooserMethod "setShowHidden" o = FileChooserSetShowHiddenMethodInfo + ResolveFileChooserMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFileChooserMethod "setState" o = WidgetSetStateMethodInfo + ResolveFileChooserMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFileChooserMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFileChooserMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFileChooserMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFileChooserMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFileChooserMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFileChooserMethod "setUri" o = FileChooserSetUriMethodInfo + ResolveFileChooserMethod "setUsePreviewLabel" o = FileChooserSetUsePreviewLabelMethodInfo + ResolveFileChooserMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFileChooserMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFileChooserMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFileChooserMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFileChooserMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFileChooserMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFileChooserMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFileChooserMethod t FileChooser, MethodInfo info FileChooser p) => IsLabelProxy t (FileChooser -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFileChooserMethod t FileChooser, MethodInfo info FileChooser p) => IsLabel t (FileChooser -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- signal FileChooser::confirm-overwrite +type FileChooserConfirmOverwriteCallback = + IO FileChooserConfirmation + +noFileChooserConfirmOverwriteCallback :: Maybe FileChooserConfirmOverwriteCallback +noFileChooserConfirmOverwriteCallback = Nothing + +type FileChooserConfirmOverwriteCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CUInt + +foreign import ccall "wrapper" + mkFileChooserConfirmOverwriteCallback :: FileChooserConfirmOverwriteCallbackC -> IO (FunPtr FileChooserConfirmOverwriteCallbackC) + +fileChooserConfirmOverwriteClosure :: FileChooserConfirmOverwriteCallback -> IO Closure +fileChooserConfirmOverwriteClosure cb = newCClosure =<< mkFileChooserConfirmOverwriteCallback wrapped + where wrapped = fileChooserConfirmOverwriteCallbackWrapper cb + +fileChooserConfirmOverwriteCallbackWrapper :: + FileChooserConfirmOverwriteCallback -> + Ptr () -> + Ptr () -> + IO CUInt +fileChooserConfirmOverwriteCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onFileChooserConfirmOverwrite :: (GObject a, MonadIO m) => a -> FileChooserConfirmOverwriteCallback -> m SignalHandlerId +onFileChooserConfirmOverwrite obj cb = liftIO $ connectFileChooserConfirmOverwrite obj cb SignalConnectBefore +afterFileChooserConfirmOverwrite :: (GObject a, MonadIO m) => a -> FileChooserConfirmOverwriteCallback -> m SignalHandlerId +afterFileChooserConfirmOverwrite obj cb = connectFileChooserConfirmOverwrite obj cb SignalConnectAfter + +connectFileChooserConfirmOverwrite :: (GObject a, MonadIO m) => + a -> FileChooserConfirmOverwriteCallback -> SignalConnectMode -> m SignalHandlerId +connectFileChooserConfirmOverwrite obj cb after = liftIO $ do + cb' <- mkFileChooserConfirmOverwriteCallback (fileChooserConfirmOverwriteCallbackWrapper cb) + connectSignalFunPtr obj "confirm-overwrite" cb' after + +-- signal FileChooser::current-folder-changed +type FileChooserCurrentFolderChangedCallback = + IO () + +noFileChooserCurrentFolderChangedCallback :: Maybe FileChooserCurrentFolderChangedCallback +noFileChooserCurrentFolderChangedCallback = Nothing + +type FileChooserCurrentFolderChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkFileChooserCurrentFolderChangedCallback :: FileChooserCurrentFolderChangedCallbackC -> IO (FunPtr FileChooserCurrentFolderChangedCallbackC) + +fileChooserCurrentFolderChangedClosure :: FileChooserCurrentFolderChangedCallback -> IO Closure +fileChooserCurrentFolderChangedClosure cb = newCClosure =<< mkFileChooserCurrentFolderChangedCallback wrapped + where wrapped = fileChooserCurrentFolderChangedCallbackWrapper cb + +fileChooserCurrentFolderChangedCallbackWrapper :: + FileChooserCurrentFolderChangedCallback -> + Ptr () -> + Ptr () -> + IO () +fileChooserCurrentFolderChangedCallbackWrapper _cb _ _ = do + _cb + +onFileChooserCurrentFolderChanged :: (GObject a, MonadIO m) => a -> FileChooserCurrentFolderChangedCallback -> m SignalHandlerId +onFileChooserCurrentFolderChanged obj cb = liftIO $ connectFileChooserCurrentFolderChanged obj cb SignalConnectBefore +afterFileChooserCurrentFolderChanged :: (GObject a, MonadIO m) => a -> FileChooserCurrentFolderChangedCallback -> m SignalHandlerId +afterFileChooserCurrentFolderChanged obj cb = connectFileChooserCurrentFolderChanged obj cb SignalConnectAfter + +connectFileChooserCurrentFolderChanged :: (GObject a, MonadIO m) => + a -> FileChooserCurrentFolderChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectFileChooserCurrentFolderChanged obj cb after = liftIO $ do + cb' <- mkFileChooserCurrentFolderChangedCallback (fileChooserCurrentFolderChangedCallbackWrapper cb) + connectSignalFunPtr obj "current-folder-changed" cb' after + +-- signal FileChooser::file-activated +type FileChooserFileActivatedCallback = + IO () + +noFileChooserFileActivatedCallback :: Maybe FileChooserFileActivatedCallback +noFileChooserFileActivatedCallback = Nothing + +type FileChooserFileActivatedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkFileChooserFileActivatedCallback :: FileChooserFileActivatedCallbackC -> IO (FunPtr FileChooserFileActivatedCallbackC) + +fileChooserFileActivatedClosure :: FileChooserFileActivatedCallback -> IO Closure +fileChooserFileActivatedClosure cb = newCClosure =<< mkFileChooserFileActivatedCallback wrapped + where wrapped = fileChooserFileActivatedCallbackWrapper cb + +fileChooserFileActivatedCallbackWrapper :: + FileChooserFileActivatedCallback -> + Ptr () -> + Ptr () -> + IO () +fileChooserFileActivatedCallbackWrapper _cb _ _ = do + _cb + +onFileChooserFileActivated :: (GObject a, MonadIO m) => a -> FileChooserFileActivatedCallback -> m SignalHandlerId +onFileChooserFileActivated obj cb = liftIO $ connectFileChooserFileActivated obj cb SignalConnectBefore +afterFileChooserFileActivated :: (GObject a, MonadIO m) => a -> FileChooserFileActivatedCallback -> m SignalHandlerId +afterFileChooserFileActivated obj cb = connectFileChooserFileActivated obj cb SignalConnectAfter + +connectFileChooserFileActivated :: (GObject a, MonadIO m) => + a -> FileChooserFileActivatedCallback -> SignalConnectMode -> m SignalHandlerId +connectFileChooserFileActivated obj cb after = liftIO $ do + cb' <- mkFileChooserFileActivatedCallback (fileChooserFileActivatedCallbackWrapper cb) + connectSignalFunPtr obj "file-activated" cb' after + +-- signal FileChooser::selection-changed +type FileChooserSelectionChangedCallback = + IO () + +noFileChooserSelectionChangedCallback :: Maybe FileChooserSelectionChangedCallback +noFileChooserSelectionChangedCallback = Nothing + +type FileChooserSelectionChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkFileChooserSelectionChangedCallback :: FileChooserSelectionChangedCallbackC -> IO (FunPtr FileChooserSelectionChangedCallbackC) + +fileChooserSelectionChangedClosure :: FileChooserSelectionChangedCallback -> IO Closure +fileChooserSelectionChangedClosure cb = newCClosure =<< mkFileChooserSelectionChangedCallback wrapped + where wrapped = fileChooserSelectionChangedCallbackWrapper cb + +fileChooserSelectionChangedCallbackWrapper :: + FileChooserSelectionChangedCallback -> + Ptr () -> + Ptr () -> + IO () +fileChooserSelectionChangedCallbackWrapper _cb _ _ = do + _cb + +onFileChooserSelectionChanged :: (GObject a, MonadIO m) => a -> FileChooserSelectionChangedCallback -> m SignalHandlerId +onFileChooserSelectionChanged obj cb = liftIO $ connectFileChooserSelectionChanged obj cb SignalConnectBefore +afterFileChooserSelectionChanged :: (GObject a, MonadIO m) => a -> FileChooserSelectionChangedCallback -> m SignalHandlerId +afterFileChooserSelectionChanged obj cb = connectFileChooserSelectionChanged obj cb SignalConnectAfter + +connectFileChooserSelectionChanged :: (GObject a, MonadIO m) => + a -> FileChooserSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectFileChooserSelectionChanged obj cb after = liftIO $ do + cb' <- mkFileChooserSelectionChangedCallback (fileChooserSelectionChangedCallbackWrapper cb) + connectSignalFunPtr obj "selection-changed" cb' after + +-- signal FileChooser::update-preview +type FileChooserUpdatePreviewCallback = + IO () + +noFileChooserUpdatePreviewCallback :: Maybe FileChooserUpdatePreviewCallback +noFileChooserUpdatePreviewCallback = Nothing + +type FileChooserUpdatePreviewCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkFileChooserUpdatePreviewCallback :: FileChooserUpdatePreviewCallbackC -> IO (FunPtr FileChooserUpdatePreviewCallbackC) + +fileChooserUpdatePreviewClosure :: FileChooserUpdatePreviewCallback -> IO Closure +fileChooserUpdatePreviewClosure cb = newCClosure =<< mkFileChooserUpdatePreviewCallback wrapped + where wrapped = fileChooserUpdatePreviewCallbackWrapper cb + +fileChooserUpdatePreviewCallbackWrapper :: + FileChooserUpdatePreviewCallback -> + Ptr () -> + Ptr () -> + IO () +fileChooserUpdatePreviewCallbackWrapper _cb _ _ = do + _cb + +onFileChooserUpdatePreview :: (GObject a, MonadIO m) => a -> FileChooserUpdatePreviewCallback -> m SignalHandlerId +onFileChooserUpdatePreview obj cb = liftIO $ connectFileChooserUpdatePreview obj cb SignalConnectBefore +afterFileChooserUpdatePreview :: (GObject a, MonadIO m) => a -> FileChooserUpdatePreviewCallback -> m SignalHandlerId +afterFileChooserUpdatePreview obj cb = connectFileChooserUpdatePreview obj cb SignalConnectAfter + +connectFileChooserUpdatePreview :: (GObject a, MonadIO m) => + a -> FileChooserUpdatePreviewCallback -> SignalConnectMode -> m SignalHandlerId +connectFileChooserUpdatePreview obj cb after = liftIO $ do + cb' <- mkFileChooserUpdatePreviewCallback (fileChooserUpdatePreviewCallbackWrapper cb) + connectSignalFunPtr obj "update-preview" cb' after + +-- VVV Prop "action" + -- Type: TInterface "Gtk" "FileChooserAction" + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserAction :: (MonadIO m, FileChooserK o) => o -> m FileChooserAction +getFileChooserAction obj = liftIO $ getObjectPropertyEnum obj "action" + +setFileChooserAction :: (MonadIO m, FileChooserK o) => o -> FileChooserAction -> m () +setFileChooserAction obj val = liftIO $ setObjectPropertyEnum obj "action" val + +constructFileChooserAction :: FileChooserAction -> IO ([Char], GValue) +constructFileChooserAction val = constructObjectPropertyEnum "action" val + +data FileChooserActionPropertyInfo +instance AttrInfo FileChooserActionPropertyInfo where + type AttrAllowedOps FileChooserActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserActionPropertyInfo = (~) FileChooserAction + type AttrBaseTypeConstraint FileChooserActionPropertyInfo = FileChooserK + type AttrGetType FileChooserActionPropertyInfo = FileChooserAction + type AttrLabel FileChooserActionPropertyInfo = "action" + attrGet _ = getFileChooserAction + attrSet _ = setFileChooserAction + attrConstruct _ = constructFileChooserAction + +-- VVV Prop "create-folders" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserCreateFolders :: (MonadIO m, FileChooserK o) => o -> m Bool +getFileChooserCreateFolders obj = liftIO $ getObjectPropertyBool obj "create-folders" + +setFileChooserCreateFolders :: (MonadIO m, FileChooserK o) => o -> Bool -> m () +setFileChooserCreateFolders obj val = liftIO $ setObjectPropertyBool obj "create-folders" val + +constructFileChooserCreateFolders :: Bool -> IO ([Char], GValue) +constructFileChooserCreateFolders val = constructObjectPropertyBool "create-folders" val + +data FileChooserCreateFoldersPropertyInfo +instance AttrInfo FileChooserCreateFoldersPropertyInfo where + type AttrAllowedOps FileChooserCreateFoldersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserCreateFoldersPropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserCreateFoldersPropertyInfo = FileChooserK + type AttrGetType FileChooserCreateFoldersPropertyInfo = Bool + type AttrLabel FileChooserCreateFoldersPropertyInfo = "create-folders" + attrGet _ = getFileChooserCreateFolders + attrSet _ = setFileChooserCreateFolders + attrConstruct _ = constructFileChooserCreateFolders + +-- VVV Prop "do-overwrite-confirmation" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserDoOverwriteConfirmation :: (MonadIO m, FileChooserK o) => o -> m Bool +getFileChooserDoOverwriteConfirmation obj = liftIO $ getObjectPropertyBool obj "do-overwrite-confirmation" + +setFileChooserDoOverwriteConfirmation :: (MonadIO m, FileChooserK o) => o -> Bool -> m () +setFileChooserDoOverwriteConfirmation obj val = liftIO $ setObjectPropertyBool obj "do-overwrite-confirmation" val + +constructFileChooserDoOverwriteConfirmation :: Bool -> IO ([Char], GValue) +constructFileChooserDoOverwriteConfirmation val = constructObjectPropertyBool "do-overwrite-confirmation" val + +data FileChooserDoOverwriteConfirmationPropertyInfo +instance AttrInfo FileChooserDoOverwriteConfirmationPropertyInfo where + type AttrAllowedOps FileChooserDoOverwriteConfirmationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserDoOverwriteConfirmationPropertyInfo = FileChooserK + type AttrGetType FileChooserDoOverwriteConfirmationPropertyInfo = Bool + type AttrLabel FileChooserDoOverwriteConfirmationPropertyInfo = "do-overwrite-confirmation" + attrGet _ = getFileChooserDoOverwriteConfirmation + attrSet _ = setFileChooserDoOverwriteConfirmation + attrConstruct _ = constructFileChooserDoOverwriteConfirmation + +-- VVV Prop "extra-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserExtraWidget :: (MonadIO m, FileChooserK o) => o -> m Widget +getFileChooserExtraWidget obj = liftIO $ getObjectPropertyObject obj "extra-widget" Widget + +setFileChooserExtraWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m () +setFileChooserExtraWidget obj val = liftIO $ setObjectPropertyObject obj "extra-widget" val + +constructFileChooserExtraWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructFileChooserExtraWidget val = constructObjectPropertyObject "extra-widget" val + +data FileChooserExtraWidgetPropertyInfo +instance AttrInfo FileChooserExtraWidgetPropertyInfo where + type AttrAllowedOps FileChooserExtraWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserExtraWidgetPropertyInfo = WidgetK + type AttrBaseTypeConstraint FileChooserExtraWidgetPropertyInfo = FileChooserK + type AttrGetType FileChooserExtraWidgetPropertyInfo = Widget + type AttrLabel FileChooserExtraWidgetPropertyInfo = "extra-widget" + attrGet _ = getFileChooserExtraWidget + attrSet _ = setFileChooserExtraWidget + attrConstruct _ = constructFileChooserExtraWidget + +-- VVV Prop "filter" + -- Type: TInterface "Gtk" "FileFilter" + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserFilter :: (MonadIO m, FileChooserK o) => o -> m FileFilter +getFileChooserFilter obj = liftIO $ getObjectPropertyObject obj "filter" FileFilter + +setFileChooserFilter :: (MonadIO m, FileChooserK o, FileFilterK a) => o -> a -> m () +setFileChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" val + +constructFileChooserFilter :: (FileFilterK a) => a -> IO ([Char], GValue) +constructFileChooserFilter val = constructObjectPropertyObject "filter" val + +data FileChooserFilterPropertyInfo +instance AttrInfo FileChooserFilterPropertyInfo where + type AttrAllowedOps FileChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserFilterPropertyInfo = FileFilterK + type AttrBaseTypeConstraint FileChooserFilterPropertyInfo = FileChooserK + type AttrGetType FileChooserFilterPropertyInfo = FileFilter + type AttrLabel FileChooserFilterPropertyInfo = "filter" + attrGet _ = getFileChooserFilter + attrSet _ = setFileChooserFilter + attrConstruct _ = constructFileChooserFilter + +-- VVV Prop "local-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserLocalOnly :: (MonadIO m, FileChooserK o) => o -> m Bool +getFileChooserLocalOnly obj = liftIO $ getObjectPropertyBool obj "local-only" + +setFileChooserLocalOnly :: (MonadIO m, FileChooserK o) => o -> Bool -> m () +setFileChooserLocalOnly obj val = liftIO $ setObjectPropertyBool obj "local-only" val + +constructFileChooserLocalOnly :: Bool -> IO ([Char], GValue) +constructFileChooserLocalOnly val = constructObjectPropertyBool "local-only" val + +data FileChooserLocalOnlyPropertyInfo +instance AttrInfo FileChooserLocalOnlyPropertyInfo where + type AttrAllowedOps FileChooserLocalOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserLocalOnlyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserLocalOnlyPropertyInfo = FileChooserK + type AttrGetType FileChooserLocalOnlyPropertyInfo = Bool + type AttrLabel FileChooserLocalOnlyPropertyInfo = "local-only" + attrGet _ = getFileChooserLocalOnly + attrSet _ = setFileChooserLocalOnly + attrConstruct _ = constructFileChooserLocalOnly + +-- VVV Prop "preview-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserPreviewWidget :: (MonadIO m, FileChooserK o) => o -> m Widget +getFileChooserPreviewWidget obj = liftIO $ getObjectPropertyObject obj "preview-widget" Widget + +setFileChooserPreviewWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m () +setFileChooserPreviewWidget obj val = liftIO $ setObjectPropertyObject obj "preview-widget" val + +constructFileChooserPreviewWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructFileChooserPreviewWidget val = constructObjectPropertyObject "preview-widget" val + +data FileChooserPreviewWidgetPropertyInfo +instance AttrInfo FileChooserPreviewWidgetPropertyInfo where + type AttrAllowedOps FileChooserPreviewWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserPreviewWidgetPropertyInfo = WidgetK + type AttrBaseTypeConstraint FileChooserPreviewWidgetPropertyInfo = FileChooserK + type AttrGetType FileChooserPreviewWidgetPropertyInfo = Widget + type AttrLabel FileChooserPreviewWidgetPropertyInfo = "preview-widget" + attrGet _ = getFileChooserPreviewWidget + attrSet _ = setFileChooserPreviewWidget + attrConstruct _ = constructFileChooserPreviewWidget + +-- VVV Prop "preview-widget-active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserPreviewWidgetActive :: (MonadIO m, FileChooserK o) => o -> m Bool +getFileChooserPreviewWidgetActive obj = liftIO $ getObjectPropertyBool obj "preview-widget-active" + +setFileChooserPreviewWidgetActive :: (MonadIO m, FileChooserK o) => o -> Bool -> m () +setFileChooserPreviewWidgetActive obj val = liftIO $ setObjectPropertyBool obj "preview-widget-active" val + +constructFileChooserPreviewWidgetActive :: Bool -> IO ([Char], GValue) +constructFileChooserPreviewWidgetActive val = constructObjectPropertyBool "preview-widget-active" val + +data FileChooserPreviewWidgetActivePropertyInfo +instance AttrInfo FileChooserPreviewWidgetActivePropertyInfo where + type AttrAllowedOps FileChooserPreviewWidgetActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserPreviewWidgetActivePropertyInfo = FileChooserK + type AttrGetType FileChooserPreviewWidgetActivePropertyInfo = Bool + type AttrLabel FileChooserPreviewWidgetActivePropertyInfo = "preview-widget-active" + attrGet _ = getFileChooserPreviewWidgetActive + attrSet _ = setFileChooserPreviewWidgetActive + attrConstruct _ = constructFileChooserPreviewWidgetActive + +-- VVV Prop "select-multiple" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserSelectMultiple :: (MonadIO m, FileChooserK o) => o -> m Bool +getFileChooserSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple" + +setFileChooserSelectMultiple :: (MonadIO m, FileChooserK o) => o -> Bool -> m () +setFileChooserSelectMultiple obj val = liftIO $ setObjectPropertyBool obj "select-multiple" val + +constructFileChooserSelectMultiple :: Bool -> IO ([Char], GValue) +constructFileChooserSelectMultiple val = constructObjectPropertyBool "select-multiple" val + +data FileChooserSelectMultiplePropertyInfo +instance AttrInfo FileChooserSelectMultiplePropertyInfo where + type AttrAllowedOps FileChooserSelectMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserSelectMultiplePropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserSelectMultiplePropertyInfo = FileChooserK + type AttrGetType FileChooserSelectMultiplePropertyInfo = Bool + type AttrLabel FileChooserSelectMultiplePropertyInfo = "select-multiple" + attrGet _ = getFileChooserSelectMultiple + attrSet _ = setFileChooserSelectMultiple + attrConstruct _ = constructFileChooserSelectMultiple + +-- VVV Prop "show-hidden" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserShowHidden :: (MonadIO m, FileChooserK o) => o -> m Bool +getFileChooserShowHidden obj = liftIO $ getObjectPropertyBool obj "show-hidden" + +setFileChooserShowHidden :: (MonadIO m, FileChooserK o) => o -> Bool -> m () +setFileChooserShowHidden obj val = liftIO $ setObjectPropertyBool obj "show-hidden" val + +constructFileChooserShowHidden :: Bool -> IO ([Char], GValue) +constructFileChooserShowHidden val = constructObjectPropertyBool "show-hidden" val + +data FileChooserShowHiddenPropertyInfo +instance AttrInfo FileChooserShowHiddenPropertyInfo where + type AttrAllowedOps FileChooserShowHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserShowHiddenPropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserShowHiddenPropertyInfo = FileChooserK + type AttrGetType FileChooserShowHiddenPropertyInfo = Bool + type AttrLabel FileChooserShowHiddenPropertyInfo = "show-hidden" + attrGet _ = getFileChooserShowHidden + attrSet _ = setFileChooserShowHidden + attrConstruct _ = constructFileChooserShowHidden + +-- VVV Prop "use-preview-label" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserUsePreviewLabel :: (MonadIO m, FileChooserK o) => o -> m Bool +getFileChooserUsePreviewLabel obj = liftIO $ getObjectPropertyBool obj "use-preview-label" + +setFileChooserUsePreviewLabel :: (MonadIO m, FileChooserK o) => o -> Bool -> m () +setFileChooserUsePreviewLabel obj val = liftIO $ setObjectPropertyBool obj "use-preview-label" val + +constructFileChooserUsePreviewLabel :: Bool -> IO ([Char], GValue) +constructFileChooserUsePreviewLabel val = constructObjectPropertyBool "use-preview-label" val + +data FileChooserUsePreviewLabelPropertyInfo +instance AttrInfo FileChooserUsePreviewLabelPropertyInfo where + type AttrAllowedOps FileChooserUsePreviewLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FileChooserUsePreviewLabelPropertyInfo = (~) Bool + type AttrBaseTypeConstraint FileChooserUsePreviewLabelPropertyInfo = FileChooserK + type AttrGetType FileChooserUsePreviewLabelPropertyInfo = Bool + type AttrLabel FileChooserUsePreviewLabelPropertyInfo = "use-preview-label" + attrGet _ = getFileChooserUsePreviewLabel + attrSet _ = setFileChooserUsePreviewLabel + attrConstruct _ = constructFileChooserUsePreviewLabel + +type instance AttributeList FileChooser = FileChooserAttributeList +type FileChooserAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) + +data FileChooserConfirmOverwriteSignalInfo +instance SignalInfo FileChooserConfirmOverwriteSignalInfo where + type HaskellCallbackType FileChooserConfirmOverwriteSignalInfo = FileChooserConfirmOverwriteCallback + connectSignal _ = connectFileChooserConfirmOverwrite + +data FileChooserCurrentFolderChangedSignalInfo +instance SignalInfo FileChooserCurrentFolderChangedSignalInfo where + type HaskellCallbackType FileChooserCurrentFolderChangedSignalInfo = FileChooserCurrentFolderChangedCallback + connectSignal _ = connectFileChooserCurrentFolderChanged + +data FileChooserFileActivatedSignalInfo +instance SignalInfo FileChooserFileActivatedSignalInfo where + type HaskellCallbackType FileChooserFileActivatedSignalInfo = FileChooserFileActivatedCallback + connectSignal _ = connectFileChooserFileActivated + +data FileChooserSelectionChangedSignalInfo +instance SignalInfo FileChooserSelectionChangedSignalInfo where + type HaskellCallbackType FileChooserSelectionChangedSignalInfo = FileChooserSelectionChangedCallback + connectSignal _ = connectFileChooserSelectionChanged + +data FileChooserUpdatePreviewSignalInfo +instance SignalInfo FileChooserUpdatePreviewSignalInfo where + type HaskellCallbackType FileChooserUpdatePreviewSignalInfo = FileChooserUpdatePreviewCallback + connectSignal _ = connectFileChooserUpdatePreview + +type instance SignalList FileChooser = FileChooserSignalList +type FileChooserSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("confirmOverwrite", FileChooserConfirmOverwriteSignalInfo), '("currentFolderChanged", FileChooserCurrentFolderChangedSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("fileActivated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", FileChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("updatePreview", FileChooserUpdatePreviewSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +foreign import ccall "gtk_file_chooser_get_type" + c_gtk_file_chooser_get_type :: IO GType + +type instance ParentTypes FileChooser = FileChooserParentTypes +type FileChooserParentTypes = '[Widget, GObject.Object] + +instance GObject FileChooser where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_gtk_file_chooser_get_type + + +class GObject o => FileChooserK o +instance (GObject o, IsDescendantOf FileChooser o) => FileChooserK o + +toFileChooser :: FileChooserK o => o -> IO FileChooser +toFileChooser = unsafeCastTo FileChooser + +-- method FileChooser::add_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_add_filter" gtk_file_chooser_add_filter :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + Ptr FileFilter -> -- filter : TInterface "Gtk" "FileFilter" + IO () + + +fileChooserAddFilter :: + (MonadIO m, FileChooserK a, FileFilterK b) => + a -- _obj + -> b -- filter + -> m () -- result +fileChooserAddFilter _obj filter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + filter' <- refObject filter + gtk_file_chooser_add_filter _obj' filter' + touchManagedPtr _obj + touchManagedPtr filter + return () + +data FileChooserAddFilterMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, FileFilterK b) => MethodInfo FileChooserAddFilterMethodInfo a signature where + overloadedMethod _ = fileChooserAddFilter + +-- method FileChooser::add_shortcut_folder +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_add_shortcut_folder" gtk_file_chooser_add_shortcut_folder :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- folder : TBasicType TFileName + Ptr (Ptr GError) -> -- error + IO CInt + + +fileChooserAddShortcutFolder :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> [Char] -- folder + -> m () -- result +fileChooserAddShortcutFolder _obj folder = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + folder' <- stringToCString folder + onException (do + _ <- propagateGError $ gtk_file_chooser_add_shortcut_folder _obj' folder' + touchManagedPtr _obj + freeMem folder' + return () + ) (do + freeMem folder' + ) + +data FileChooserAddShortcutFolderMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserAddShortcutFolderMethodInfo a signature where + overloadedMethod _ = fileChooserAddShortcutFolder + +-- method FileChooser::add_shortcut_folder_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_add_shortcut_folder_uri" gtk_file_chooser_add_shortcut_folder_uri :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +fileChooserAddShortcutFolderUri :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> T.Text -- uri + -> m () -- result +fileChooserAddShortcutFolderUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + onException (do + _ <- propagateGError $ gtk_file_chooser_add_shortcut_folder_uri _obj' uri' + touchManagedPtr _obj + freeMem uri' + return () + ) (do + freeMem uri' + ) + +data FileChooserAddShortcutFolderUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserAddShortcutFolderUriMethodInfo a signature where + overloadedMethod _ = fileChooserAddShortcutFolderUri + +-- method FileChooser::get_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "FileChooserAction" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_action" gtk_file_chooser_get_action :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CUInt + + +fileChooserGetAction :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m FileChooserAction -- result +fileChooserGetAction _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_action _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data FileChooserGetActionMethodInfo +instance (signature ~ (m FileChooserAction), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetActionMethodInfo a signature where + overloadedMethod _ = fileChooserGetAction + +-- method FileChooser::get_create_folders +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_create_folders" gtk_file_chooser_get_create_folders :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CInt + + +fileChooserGetCreateFolders :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m Bool -- result +fileChooserGetCreateFolders _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_create_folders _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data FileChooserGetCreateFoldersMethodInfo +instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetCreateFoldersMethodInfo a signature where + overloadedMethod _ = fileChooserGetCreateFolders + +-- method FileChooser::get_current_folder +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TFileName +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_current_folder" gtk_file_chooser_get_current_folder :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CString + + +fileChooserGetCurrentFolder :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m [Char] -- result +fileChooserGetCurrentFolder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_current_folder _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_current_folder" result + result' <- cstringToString result + freeMem result + touchManagedPtr _obj + return result' + +data FileChooserGetCurrentFolderMethodInfo +instance (signature ~ (m [Char]), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetCurrentFolderMethodInfo a signature where + overloadedMethod _ = fileChooserGetCurrentFolder + +-- method FileChooser::get_current_folder_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "File" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_current_folder_file" gtk_file_chooser_get_current_folder_file :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO (Ptr Gio.File) + + +fileChooserGetCurrentFolderFile :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m Gio.File -- result +fileChooserGetCurrentFolderFile _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_current_folder_file _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_current_folder_file" result + result' <- (wrapObject Gio.File) result + touchManagedPtr _obj + return result' + +data FileChooserGetCurrentFolderFileMethodInfo +instance (signature ~ (m Gio.File), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetCurrentFolderFileMethodInfo a signature where + overloadedMethod _ = fileChooserGetCurrentFolderFile + +-- method FileChooser::get_current_folder_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_current_folder_uri" gtk_file_chooser_get_current_folder_uri :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CString + + +fileChooserGetCurrentFolderUri :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m T.Text -- result +fileChooserGetCurrentFolderUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_current_folder_uri _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_current_folder_uri" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +data FileChooserGetCurrentFolderUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetCurrentFolderUriMethodInfo a signature where + overloadedMethod _ = fileChooserGetCurrentFolderUri + +-- method FileChooser::get_current_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_current_name" gtk_file_chooser_get_current_name :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CString + + +fileChooserGetCurrentName :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m T.Text -- result +fileChooserGetCurrentName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_current_name _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_current_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +data FileChooserGetCurrentNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetCurrentNameMethodInfo a signature where + overloadedMethod _ = fileChooserGetCurrentName + +-- method FileChooser::get_do_overwrite_confirmation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_do_overwrite_confirmation" gtk_file_chooser_get_do_overwrite_confirmation :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CInt + + +fileChooserGetDoOverwriteConfirmation :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m Bool -- result +fileChooserGetDoOverwriteConfirmation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_do_overwrite_confirmation _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data FileChooserGetDoOverwriteConfirmationMethodInfo +instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetDoOverwriteConfirmationMethodInfo a signature where + overloadedMethod _ = fileChooserGetDoOverwriteConfirmation + +-- method FileChooser::get_extra_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_extra_widget" gtk_file_chooser_get_extra_widget :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO (Ptr Widget) + + +fileChooserGetExtraWidget :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m Widget -- result +fileChooserGetExtraWidget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_extra_widget _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_extra_widget" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data FileChooserGetExtraWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetExtraWidgetMethodInfo a signature where + overloadedMethod _ = fileChooserGetExtraWidget + +-- method FileChooser::get_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "File" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_file" gtk_file_chooser_get_file :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO (Ptr Gio.File) + + +fileChooserGetFile :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m Gio.File -- result +fileChooserGetFile _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_file _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_file" result + result' <- (wrapObject Gio.File) result + touchManagedPtr _obj + return result' + +data FileChooserGetFileMethodInfo +instance (signature ~ (m Gio.File), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetFileMethodInfo a signature where + overloadedMethod _ = fileChooserGetFile + +-- method FileChooser::get_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TFileName +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_filename" gtk_file_chooser_get_filename :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CString + + +fileChooserGetFilename :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m [Char] -- result +fileChooserGetFilename _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_filename _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_filename" result + result' <- cstringToString result + freeMem result + touchManagedPtr _obj + return result' + +data FileChooserGetFilenameMethodInfo +instance (signature ~ (m [Char]), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetFilenameMethodInfo a signature where + overloadedMethod _ = fileChooserGetFilename + +-- method FileChooser::get_filenames +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGSList (TBasicType TFileName) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_filenames" gtk_file_chooser_get_filenames :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO (Ptr (GSList CString)) + + +fileChooserGetFilenames :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m [[Char]] -- result +fileChooserGetFilenames _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_filenames _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_filenames" result + result' <- unpackGSList result + result'' <- mapM cstringToString result' + mapGSList freeMem result + g_slist_free result + touchManagedPtr _obj + return result'' + +data FileChooserGetFilenamesMethodInfo +instance (signature ~ (m [[Char]]), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetFilenamesMethodInfo a signature where + overloadedMethod _ = fileChooserGetFilenames + +-- method FileChooser::get_files +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGSList (TInterface "Gio" "File") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_files" gtk_file_chooser_get_files :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO (Ptr (GSList (Ptr Gio.File))) + + +fileChooserGetFiles :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m [Gio.File] -- result +fileChooserGetFiles _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_files _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_files" result + result' <- unpackGSList result + result'' <- mapM (wrapObject Gio.File) result' + g_slist_free result + touchManagedPtr _obj + return result'' + +data FileChooserGetFilesMethodInfo +instance (signature ~ (m [Gio.File]), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetFilesMethodInfo a signature where + overloadedMethod _ = fileChooserGetFiles + +-- method FileChooser::get_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "FileFilter" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_filter" gtk_file_chooser_get_filter :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO (Ptr FileFilter) + + +fileChooserGetFilter :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m FileFilter -- result +fileChooserGetFilter _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_filter _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_filter" result + result' <- (newObject FileFilter) result + touchManagedPtr _obj + return result' + +data FileChooserGetFilterMethodInfo +instance (signature ~ (m FileFilter), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetFilterMethodInfo a signature where + overloadedMethod _ = fileChooserGetFilter + +-- method FileChooser::get_local_only +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_local_only" gtk_file_chooser_get_local_only :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CInt + + +fileChooserGetLocalOnly :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m Bool -- result +fileChooserGetLocalOnly _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_local_only _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data FileChooserGetLocalOnlyMethodInfo +instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetLocalOnlyMethodInfo a signature where + overloadedMethod _ = fileChooserGetLocalOnly + +-- method FileChooser::get_preview_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "File" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_preview_file" gtk_file_chooser_get_preview_file :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO (Ptr Gio.File) + + +fileChooserGetPreviewFile :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m Gio.File -- result +fileChooserGetPreviewFile _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_preview_file _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_file" result + result' <- (wrapObject Gio.File) result + touchManagedPtr _obj + return result' + +data FileChooserGetPreviewFileMethodInfo +instance (signature ~ (m Gio.File), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetPreviewFileMethodInfo a signature where + overloadedMethod _ = fileChooserGetPreviewFile + +-- method FileChooser::get_preview_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TFileName +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_preview_filename" gtk_file_chooser_get_preview_filename :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CString + + +fileChooserGetPreviewFilename :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m [Char] -- result +fileChooserGetPreviewFilename _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_preview_filename _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_filename" result + result' <- cstringToString result + freeMem result + touchManagedPtr _obj + return result' + +data FileChooserGetPreviewFilenameMethodInfo +instance (signature ~ (m [Char]), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetPreviewFilenameMethodInfo a signature where + overloadedMethod _ = fileChooserGetPreviewFilename + +-- method FileChooser::get_preview_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_preview_uri" gtk_file_chooser_get_preview_uri :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CString + + +fileChooserGetPreviewUri :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m T.Text -- result +fileChooserGetPreviewUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_preview_uri _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_uri" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +data FileChooserGetPreviewUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetPreviewUriMethodInfo a signature where + overloadedMethod _ = fileChooserGetPreviewUri + +-- method FileChooser::get_preview_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_preview_widget" gtk_file_chooser_get_preview_widget :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO (Ptr Widget) + + +fileChooserGetPreviewWidget :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m Widget -- result +fileChooserGetPreviewWidget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_preview_widget _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_preview_widget" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data FileChooserGetPreviewWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetPreviewWidgetMethodInfo a signature where + overloadedMethod _ = fileChooserGetPreviewWidget + +-- method FileChooser::get_preview_widget_active +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_preview_widget_active" gtk_file_chooser_get_preview_widget_active :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CInt + + +fileChooserGetPreviewWidgetActive :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m Bool -- result +fileChooserGetPreviewWidgetActive _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_preview_widget_active _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data FileChooserGetPreviewWidgetActiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetPreviewWidgetActiveMethodInfo a signature where + overloadedMethod _ = fileChooserGetPreviewWidgetActive + +-- method FileChooser::get_select_multiple +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_select_multiple" gtk_file_chooser_get_select_multiple :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CInt + + +fileChooserGetSelectMultiple :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m Bool -- result +fileChooserGetSelectMultiple _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_select_multiple _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data FileChooserGetSelectMultipleMethodInfo +instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetSelectMultipleMethodInfo a signature where + overloadedMethod _ = fileChooserGetSelectMultiple + +-- method FileChooser::get_show_hidden +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_show_hidden" gtk_file_chooser_get_show_hidden :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CInt + + +fileChooserGetShowHidden :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m Bool -- result +fileChooserGetShowHidden _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_show_hidden _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data FileChooserGetShowHiddenMethodInfo +instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetShowHiddenMethodInfo a signature where + overloadedMethod _ = fileChooserGetShowHidden + +-- method FileChooser::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_uri" gtk_file_chooser_get_uri :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CString + + +fileChooserGetUri :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m T.Text -- result +fileChooserGetUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_uri _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_uri" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +data FileChooserGetUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetUriMethodInfo a signature where + overloadedMethod _ = fileChooserGetUri + +-- method FileChooser::get_uris +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGSList (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_uris" gtk_file_chooser_get_uris :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO (Ptr (GSList CString)) + + +fileChooserGetUris :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m [T.Text] -- result +fileChooserGetUris _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_uris _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_get_uris" result + result' <- unpackGSList result + result'' <- mapM cstringToText result' + mapGSList freeMem result + g_slist_free result + touchManagedPtr _obj + return result'' + +data FileChooserGetUrisMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetUrisMethodInfo a signature where + overloadedMethod _ = fileChooserGetUris + +-- method FileChooser::get_use_preview_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_get_use_preview_label" gtk_file_chooser_get_use_preview_label :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO CInt + + +fileChooserGetUsePreviewLabel :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m Bool -- result +fileChooserGetUsePreviewLabel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_get_use_preview_label _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data FileChooserGetUsePreviewLabelMethodInfo +instance (signature ~ (m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserGetUsePreviewLabelMethodInfo a signature where + overloadedMethod _ = fileChooserGetUsePreviewLabel + +-- method FileChooser::list_filters +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGSList (TInterface "Gtk" "FileFilter") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_list_filters" gtk_file_chooser_list_filters :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO (Ptr (GSList (Ptr FileFilter))) + + +fileChooserListFilters :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m [FileFilter] -- result +fileChooserListFilters _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_list_filters _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_list_filters" result + result' <- unpackGSList result + result'' <- mapM (newObject FileFilter) result' + g_slist_free result + touchManagedPtr _obj + return result'' + +data FileChooserListFiltersMethodInfo +instance (signature ~ (m [FileFilter]), MonadIO m, FileChooserK a) => MethodInfo FileChooserListFiltersMethodInfo a signature where + overloadedMethod _ = fileChooserListFilters + +-- method FileChooser::list_shortcut_folder_uris +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGSList (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_list_shortcut_folder_uris" gtk_file_chooser_list_shortcut_folder_uris :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO (Ptr (GSList CString)) + + +fileChooserListShortcutFolderUris :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m [T.Text] -- result +fileChooserListShortcutFolderUris _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_list_shortcut_folder_uris _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_list_shortcut_folder_uris" result + result' <- unpackGSList result + result'' <- mapM cstringToText result' + mapGSList freeMem result + g_slist_free result + touchManagedPtr _obj + return result'' + +data FileChooserListShortcutFolderUrisMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, FileChooserK a) => MethodInfo FileChooserListShortcutFolderUrisMethodInfo a signature where + overloadedMethod _ = fileChooserListShortcutFolderUris + +-- method FileChooser::list_shortcut_folders +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGSList (TBasicType TFileName) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_list_shortcut_folders" gtk_file_chooser_list_shortcut_folders :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO (Ptr (GSList CString)) + + +fileChooserListShortcutFolders :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m [[Char]] -- result +fileChooserListShortcutFolders _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_file_chooser_list_shortcut_folders _obj' + checkUnexpectedReturnNULL "gtk_file_chooser_list_shortcut_folders" result + result' <- unpackGSList result + result'' <- mapM cstringToString result' + mapGSList freeMem result + g_slist_free result + touchManagedPtr _obj + return result'' + +data FileChooserListShortcutFoldersMethodInfo +instance (signature ~ (m [[Char]]), MonadIO m, FileChooserK a) => MethodInfo FileChooserListShortcutFoldersMethodInfo a signature where + overloadedMethod _ = fileChooserListShortcutFolders + +-- method FileChooser::remove_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_remove_filter" gtk_file_chooser_remove_filter :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + Ptr FileFilter -> -- filter : TInterface "Gtk" "FileFilter" + IO () + + +fileChooserRemoveFilter :: + (MonadIO m, FileChooserK a, FileFilterK b) => + a -- _obj + -> b -- filter + -> m () -- result +fileChooserRemoveFilter _obj filter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let filter' = unsafeManagedPtrCastPtr filter + gtk_file_chooser_remove_filter _obj' filter' + touchManagedPtr _obj + touchManagedPtr filter + return () + +data FileChooserRemoveFilterMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, FileFilterK b) => MethodInfo FileChooserRemoveFilterMethodInfo a signature where + overloadedMethod _ = fileChooserRemoveFilter + +-- method FileChooser::remove_shortcut_folder +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_remove_shortcut_folder" gtk_file_chooser_remove_shortcut_folder :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- folder : TBasicType TFileName + Ptr (Ptr GError) -> -- error + IO CInt + + +fileChooserRemoveShortcutFolder :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> [Char] -- folder + -> m () -- result +fileChooserRemoveShortcutFolder _obj folder = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + folder' <- stringToCString folder + onException (do + _ <- propagateGError $ gtk_file_chooser_remove_shortcut_folder _obj' folder' + touchManagedPtr _obj + freeMem folder' + return () + ) (do + freeMem folder' + ) + +data FileChooserRemoveShortcutFolderMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserRemoveShortcutFolderMethodInfo a signature where + overloadedMethod _ = fileChooserRemoveShortcutFolder + +-- method FileChooser::remove_shortcut_folder_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_remove_shortcut_folder_uri" gtk_file_chooser_remove_shortcut_folder_uri :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +fileChooserRemoveShortcutFolderUri :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> T.Text -- uri + -> m () -- result +fileChooserRemoveShortcutFolderUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + onException (do + _ <- propagateGError $ gtk_file_chooser_remove_shortcut_folder_uri _obj' uri' + touchManagedPtr _obj + freeMem uri' + return () + ) (do + freeMem uri' + ) + +data FileChooserRemoveShortcutFolderUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserRemoveShortcutFolderUriMethodInfo a signature where + overloadedMethod _ = fileChooserRemoveShortcutFolderUri + +-- method FileChooser::select_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_select_all" gtk_file_chooser_select_all :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO () + + +fileChooserSelectAll :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m () -- result +fileChooserSelectAll _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_file_chooser_select_all _obj' + touchManagedPtr _obj + return () + +data FileChooserSelectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSelectAllMethodInfo a signature where + overloadedMethod _ = fileChooserSelectAll + +-- method FileChooser::select_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_select_file" gtk_file_chooser_select_file :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + Ptr Gio.File -> -- file : TInterface "Gio" "File" + Ptr (Ptr GError) -> -- error + IO CInt + + +fileChooserSelectFile :: + (MonadIO m, FileChooserK a, Gio.FileK b) => + a -- _obj + -> b -- file + -> m () -- result +fileChooserSelectFile _obj file = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let file' = unsafeManagedPtrCastPtr file + onException (do + _ <- propagateGError $ gtk_file_chooser_select_file _obj' file' + touchManagedPtr _obj + touchManagedPtr file + return () + ) (do + return () + ) + +data FileChooserSelectFileMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, Gio.FileK b) => MethodInfo FileChooserSelectFileMethodInfo a signature where + overloadedMethod _ = fileChooserSelectFile + +-- method FileChooser::select_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_select_filename" gtk_file_chooser_select_filename :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- filename : TBasicType TFileName + IO CInt + + +fileChooserSelectFilename :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> [Char] -- filename + -> m Bool -- result +fileChooserSelectFilename _obj filename = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + filename' <- stringToCString filename + result <- gtk_file_chooser_select_filename _obj' filename' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem filename' + return result' + +data FileChooserSelectFilenameMethodInfo +instance (signature ~ ([Char] -> m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserSelectFilenameMethodInfo a signature where + overloadedMethod _ = fileChooserSelectFilename + +-- method FileChooser::select_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_select_uri" gtk_file_chooser_select_uri :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- uri : TBasicType TUTF8 + IO CInt + + +fileChooserSelectUri :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> T.Text -- uri + -> m Bool -- result +fileChooserSelectUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + result <- gtk_file_chooser_select_uri _obj' uri' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem uri' + return result' + +data FileChooserSelectUriMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserSelectUriMethodInfo a signature where + overloadedMethod _ = fileChooserSelectUri + +-- method FileChooser::set_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_action" gtk_file_chooser_set_action :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CUInt -> -- action : TInterface "Gtk" "FileChooserAction" + IO () + + +fileChooserSetAction :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> FileChooserAction -- action + -> m () -- result +fileChooserSetAction _obj action = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let action' = (fromIntegral . fromEnum) action + gtk_file_chooser_set_action _obj' action' + touchManagedPtr _obj + return () + +data FileChooserSetActionMethodInfo +instance (signature ~ (FileChooserAction -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetActionMethodInfo a signature where + overloadedMethod _ = fileChooserSetAction + +-- method FileChooser::set_create_folders +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_folders", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_create_folders" gtk_file_chooser_set_create_folders :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CInt -> -- create_folders : TBasicType TBoolean + IO () + + +fileChooserSetCreateFolders :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> Bool -- createFolders + -> m () -- result +fileChooserSetCreateFolders _obj createFolders = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let createFolders' = (fromIntegral . fromEnum) createFolders + gtk_file_chooser_set_create_folders _obj' createFolders' + touchManagedPtr _obj + return () + +data FileChooserSetCreateFoldersMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetCreateFoldersMethodInfo a signature where + overloadedMethod _ = fileChooserSetCreateFolders + +-- method FileChooser::set_current_folder +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_current_folder" gtk_file_chooser_set_current_folder :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- filename : TBasicType TFileName + IO CInt + + +fileChooserSetCurrentFolder :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> [Char] -- filename + -> m Bool -- result +fileChooserSetCurrentFolder _obj filename = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + filename' <- stringToCString filename + result <- gtk_file_chooser_set_current_folder _obj' filename' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem filename' + return result' + +data FileChooserSetCurrentFolderMethodInfo +instance (signature ~ ([Char] -> m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetCurrentFolderMethodInfo a signature where + overloadedMethod _ = fileChooserSetCurrentFolder + +-- method FileChooser::set_current_folder_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_current_folder_file" gtk_file_chooser_set_current_folder_file :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + Ptr Gio.File -> -- file : TInterface "Gio" "File" + Ptr (Ptr GError) -> -- error + IO CInt + + +fileChooserSetCurrentFolderFile :: + (MonadIO m, FileChooserK a, Gio.FileK b) => + a -- _obj + -> b -- file + -> m () -- result +fileChooserSetCurrentFolderFile _obj file = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let file' = unsafeManagedPtrCastPtr file + onException (do + _ <- propagateGError $ gtk_file_chooser_set_current_folder_file _obj' file' + touchManagedPtr _obj + touchManagedPtr file + return () + ) (do + return () + ) + +data FileChooserSetCurrentFolderFileMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, Gio.FileK b) => MethodInfo FileChooserSetCurrentFolderFileMethodInfo a signature where + overloadedMethod _ = fileChooserSetCurrentFolderFile + +-- method FileChooser::set_current_folder_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_current_folder_uri" gtk_file_chooser_set_current_folder_uri :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- uri : TBasicType TUTF8 + IO CInt + + +fileChooserSetCurrentFolderUri :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> T.Text -- uri + -> m Bool -- result +fileChooserSetCurrentFolderUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + result <- gtk_file_chooser_set_current_folder_uri _obj' uri' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem uri' + return result' + +data FileChooserSetCurrentFolderUriMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetCurrentFolderUriMethodInfo a signature where + overloadedMethod _ = fileChooserSetCurrentFolderUri + +-- method FileChooser::set_current_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_current_name" gtk_file_chooser_set_current_name :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- name : TBasicType TFileName + IO () + + +fileChooserSetCurrentName :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> [Char] -- name + -> m () -- result +fileChooserSetCurrentName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- stringToCString name + gtk_file_chooser_set_current_name _obj' name' + touchManagedPtr _obj + freeMem name' + return () + +data FileChooserSetCurrentNameMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetCurrentNameMethodInfo a signature where + overloadedMethod _ = fileChooserSetCurrentName + +-- method FileChooser::set_do_overwrite_confirmation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "do_overwrite_confirmation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_do_overwrite_confirmation" gtk_file_chooser_set_do_overwrite_confirmation :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CInt -> -- do_overwrite_confirmation : TBasicType TBoolean + IO () + + +fileChooserSetDoOverwriteConfirmation :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> Bool -- doOverwriteConfirmation + -> m () -- result +fileChooserSetDoOverwriteConfirmation _obj doOverwriteConfirmation = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let doOverwriteConfirmation' = (fromIntegral . fromEnum) doOverwriteConfirmation + gtk_file_chooser_set_do_overwrite_confirmation _obj' doOverwriteConfirmation' + touchManagedPtr _obj + return () + +data FileChooserSetDoOverwriteConfirmationMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetDoOverwriteConfirmationMethodInfo a signature where + overloadedMethod _ = fileChooserSetDoOverwriteConfirmation + +-- method FileChooser::set_extra_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extra_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_extra_widget" gtk_file_chooser_set_extra_widget :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + Ptr Widget -> -- extra_widget : TInterface "Gtk" "Widget" + IO () + + +fileChooserSetExtraWidget :: + (MonadIO m, FileChooserK a, WidgetK b) => + a -- _obj + -> b -- extraWidget + -> m () -- result +fileChooserSetExtraWidget _obj extraWidget = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let extraWidget' = unsafeManagedPtrCastPtr extraWidget + gtk_file_chooser_set_extra_widget _obj' extraWidget' + touchManagedPtr _obj + touchManagedPtr extraWidget + return () + +data FileChooserSetExtraWidgetMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, WidgetK b) => MethodInfo FileChooserSetExtraWidgetMethodInfo a signature where + overloadedMethod _ = fileChooserSetExtraWidget + +-- method FileChooser::set_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_file" gtk_file_chooser_set_file :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + Ptr Gio.File -> -- file : TInterface "Gio" "File" + Ptr (Ptr GError) -> -- error + IO CInt + + +fileChooserSetFile :: + (MonadIO m, FileChooserK a, Gio.FileK b) => + a -- _obj + -> b -- file + -> m () -- result +fileChooserSetFile _obj file = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let file' = unsafeManagedPtrCastPtr file + onException (do + _ <- propagateGError $ gtk_file_chooser_set_file _obj' file' + touchManagedPtr _obj + touchManagedPtr file + return () + ) (do + return () + ) + +data FileChooserSetFileMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, Gio.FileK b) => MethodInfo FileChooserSetFileMethodInfo a signature where + overloadedMethod _ = fileChooserSetFile + +-- method FileChooser::set_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_filename" gtk_file_chooser_set_filename :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- filename : TBasicType TFileName + IO CInt + + +fileChooserSetFilename :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> [Char] -- filename + -> m Bool -- result +fileChooserSetFilename _obj filename = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + filename' <- stringToCString filename + result <- gtk_file_chooser_set_filename _obj' filename' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem filename' + return result' + +data FileChooserSetFilenameMethodInfo +instance (signature ~ ([Char] -> m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetFilenameMethodInfo a signature where + overloadedMethod _ = fileChooserSetFilename + +-- method FileChooser::set_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_filter" gtk_file_chooser_set_filter :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + Ptr FileFilter -> -- filter : TInterface "Gtk" "FileFilter" + IO () + + +fileChooserSetFilter :: + (MonadIO m, FileChooserK a, FileFilterK b) => + a -- _obj + -> b -- filter + -> m () -- result +fileChooserSetFilter _obj filter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let filter' = unsafeManagedPtrCastPtr filter + gtk_file_chooser_set_filter _obj' filter' + touchManagedPtr _obj + touchManagedPtr filter + return () + +data FileChooserSetFilterMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, FileFilterK b) => MethodInfo FileChooserSetFilterMethodInfo a signature where + overloadedMethod _ = fileChooserSetFilter + +-- method FileChooser::set_local_only +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_local_only" gtk_file_chooser_set_local_only :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CInt -> -- local_only : TBasicType TBoolean + IO () + + +fileChooserSetLocalOnly :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> Bool -- localOnly + -> m () -- result +fileChooserSetLocalOnly _obj localOnly = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let localOnly' = (fromIntegral . fromEnum) localOnly + gtk_file_chooser_set_local_only _obj' localOnly' + touchManagedPtr _obj + return () + +data FileChooserSetLocalOnlyMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetLocalOnlyMethodInfo a signature where + overloadedMethod _ = fileChooserSetLocalOnly + +-- method FileChooser::set_preview_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preview_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_preview_widget" gtk_file_chooser_set_preview_widget :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + Ptr Widget -> -- preview_widget : TInterface "Gtk" "Widget" + IO () + + +fileChooserSetPreviewWidget :: + (MonadIO m, FileChooserK a, WidgetK b) => + a -- _obj + -> b -- previewWidget + -> m () -- result +fileChooserSetPreviewWidget _obj previewWidget = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let previewWidget' = unsafeManagedPtrCastPtr previewWidget + gtk_file_chooser_set_preview_widget _obj' previewWidget' + touchManagedPtr _obj + touchManagedPtr previewWidget + return () + +data FileChooserSetPreviewWidgetMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, WidgetK b) => MethodInfo FileChooserSetPreviewWidgetMethodInfo a signature where + overloadedMethod _ = fileChooserSetPreviewWidget + +-- method FileChooser::set_preview_widget_active +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_preview_widget_active" gtk_file_chooser_set_preview_widget_active :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CInt -> -- active : TBasicType TBoolean + IO () + + +fileChooserSetPreviewWidgetActive :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> Bool -- active + -> m () -- result +fileChooserSetPreviewWidgetActive _obj active = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let active' = (fromIntegral . fromEnum) active + gtk_file_chooser_set_preview_widget_active _obj' active' + touchManagedPtr _obj + return () + +data FileChooserSetPreviewWidgetActiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetPreviewWidgetActiveMethodInfo a signature where + overloadedMethod _ = fileChooserSetPreviewWidgetActive + +-- method FileChooser::set_select_multiple +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_select_multiple" gtk_file_chooser_set_select_multiple :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CInt -> -- select_multiple : TBasicType TBoolean + IO () + + +fileChooserSetSelectMultiple :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> Bool -- selectMultiple + -> m () -- result +fileChooserSetSelectMultiple _obj selectMultiple = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let selectMultiple' = (fromIntegral . fromEnum) selectMultiple + gtk_file_chooser_set_select_multiple _obj' selectMultiple' + touchManagedPtr _obj + return () + +data FileChooserSetSelectMultipleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetSelectMultipleMethodInfo a signature where + overloadedMethod _ = fileChooserSetSelectMultiple + +-- method FileChooser::set_show_hidden +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_show_hidden" gtk_file_chooser_set_show_hidden :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CInt -> -- show_hidden : TBasicType TBoolean + IO () + + +fileChooserSetShowHidden :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> Bool -- showHidden + -> m () -- result +fileChooserSetShowHidden _obj showHidden = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let showHidden' = (fromIntegral . fromEnum) showHidden + gtk_file_chooser_set_show_hidden _obj' showHidden' + touchManagedPtr _obj + return () + +data FileChooserSetShowHiddenMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetShowHiddenMethodInfo a signature where + overloadedMethod _ = fileChooserSetShowHidden + +-- method FileChooser::set_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_uri" gtk_file_chooser_set_uri :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- uri : TBasicType TUTF8 + IO CInt + + +fileChooserSetUri :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> T.Text -- uri + -> m Bool -- result +fileChooserSetUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + result <- gtk_file_chooser_set_uri _obj' uri' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem uri' + return result' + +data FileChooserSetUriMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetUriMethodInfo a signature where + overloadedMethod _ = fileChooserSetUri + +-- method FileChooser::set_use_preview_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_label", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_set_use_preview_label" gtk_file_chooser_set_use_preview_label :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CInt -> -- use_label : TBasicType TBoolean + IO () + + +fileChooserSetUsePreviewLabel :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> Bool -- useLabel + -> m () -- result +fileChooserSetUsePreviewLabel _obj useLabel = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let useLabel' = (fromIntegral . fromEnum) useLabel + gtk_file_chooser_set_use_preview_label _obj' useLabel' + touchManagedPtr _obj + return () + +data FileChooserSetUsePreviewLabelMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserSetUsePreviewLabelMethodInfo a signature where + overloadedMethod _ = fileChooserSetUsePreviewLabel + +-- method FileChooser::unselect_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_unselect_all" gtk_file_chooser_unselect_all :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + IO () + + +fileChooserUnselectAll :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> m () -- result +fileChooserUnselectAll _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_file_chooser_unselect_all _obj' + touchManagedPtr _obj + return () + +data FileChooserUnselectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserUnselectAllMethodInfo a signature where + overloadedMethod _ = fileChooserUnselectAll + +-- method FileChooser::unselect_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_unselect_file" gtk_file_chooser_unselect_file :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + Ptr Gio.File -> -- file : TInterface "Gio" "File" + IO () + + +fileChooserUnselectFile :: + (MonadIO m, FileChooserK a, Gio.FileK b) => + a -- _obj + -> b -- file + -> m () -- result +fileChooserUnselectFile _obj file = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let file' = unsafeManagedPtrCastPtr file + gtk_file_chooser_unselect_file _obj' file' + touchManagedPtr _obj + touchManagedPtr file + return () + +data FileChooserUnselectFileMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FileChooserK a, Gio.FileK b) => MethodInfo FileChooserUnselectFileMethodInfo a signature where + overloadedMethod _ = fileChooserUnselectFile + +-- method FileChooser::unselect_filename +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_unselect_filename" gtk_file_chooser_unselect_filename :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- filename : TBasicType TFileName + IO () + + +fileChooserUnselectFilename :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> [Char] -- filename + -> m () -- result +fileChooserUnselectFilename _obj filename = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + filename' <- stringToCString filename + gtk_file_chooser_unselect_filename _obj' filename' + touchManagedPtr _obj + freeMem filename' + return () + +data FileChooserUnselectFilenameMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserUnselectFilenameMethodInfo a signature where + overloadedMethod _ = fileChooserUnselectFilename + +-- method FileChooser::unselect_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_file_chooser_unselect_uri" gtk_file_chooser_unselect_uri :: + Ptr FileChooser -> -- _obj : TInterface "Gtk" "FileChooser" + CString -> -- uri : TBasicType TUTF8 + IO () + + +fileChooserUnselectUri :: + (MonadIO m, FileChooserK a) => + a -- _obj + -> T.Text -- uri + -> m () -- result +fileChooserUnselectUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri' <- textToCString uri + gtk_file_chooser_unselect_uri _obj' uri' + touchManagedPtr _obj + freeMem uri' + return () + +data FileChooserUnselectUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, FileChooserK a) => MethodInfo FileChooserUnselectUriMethodInfo a signature where + overloadedMethod _ = fileChooserUnselectUri diff --git a/GI/Gtk/Interfaces/FileChooser.hs-boot b/GI/Gtk/Interfaces/FileChooser.hs-boot --- a/GI/Gtk/Interfaces/FileChooser.hs-boot +++ b/GI/Gtk/Interfaces/FileChooser.hs-boot @@ -27,3 +27,62 @@ instance GObject FileChooser where class GObject o => FileChooserK o instance (GObject o, IsDescendantOf FileChooser o) => FileChooserK o +data FileChooserAddFilterMethodInfo +data FileChooserAddShortcutFolderMethodInfo +data FileChooserAddShortcutFolderUriMethodInfo +data FileChooserGetActionMethodInfo +data FileChooserGetCreateFoldersMethodInfo +data FileChooserGetCurrentFolderMethodInfo +data FileChooserGetCurrentFolderFileMethodInfo +data FileChooserGetCurrentFolderUriMethodInfo +data FileChooserGetCurrentNameMethodInfo +data FileChooserGetDoOverwriteConfirmationMethodInfo +data FileChooserGetExtraWidgetMethodInfo +data FileChooserGetFileMethodInfo +data FileChooserGetFilenameMethodInfo +data FileChooserGetFilenamesMethodInfo +data FileChooserGetFilesMethodInfo +data FileChooserGetFilterMethodInfo +data FileChooserGetLocalOnlyMethodInfo +data FileChooserGetPreviewFileMethodInfo +data FileChooserGetPreviewFilenameMethodInfo +data FileChooserGetPreviewUriMethodInfo +data FileChooserGetPreviewWidgetMethodInfo +data FileChooserGetPreviewWidgetActiveMethodInfo +data FileChooserGetSelectMultipleMethodInfo +data FileChooserGetShowHiddenMethodInfo +data FileChooserGetUriMethodInfo +data FileChooserGetUrisMethodInfo +data FileChooserGetUsePreviewLabelMethodInfo +data FileChooserListFiltersMethodInfo +data FileChooserListShortcutFolderUrisMethodInfo +data FileChooserListShortcutFoldersMethodInfo +data FileChooserRemoveFilterMethodInfo +data FileChooserRemoveShortcutFolderMethodInfo +data FileChooserRemoveShortcutFolderUriMethodInfo +data FileChooserSelectAllMethodInfo +data FileChooserSelectFileMethodInfo +data FileChooserSelectFilenameMethodInfo +data FileChooserSelectUriMethodInfo +data FileChooserSetActionMethodInfo +data FileChooserSetCreateFoldersMethodInfo +data FileChooserSetCurrentFolderMethodInfo +data FileChooserSetCurrentFolderFileMethodInfo +data FileChooserSetCurrentFolderUriMethodInfo +data FileChooserSetCurrentNameMethodInfo +data FileChooserSetDoOverwriteConfirmationMethodInfo +data FileChooserSetExtraWidgetMethodInfo +data FileChooserSetFileMethodInfo +data FileChooserSetFilenameMethodInfo +data FileChooserSetFilterMethodInfo +data FileChooserSetLocalOnlyMethodInfo +data FileChooserSetPreviewWidgetMethodInfo +data FileChooserSetPreviewWidgetActiveMethodInfo +data FileChooserSetSelectMultipleMethodInfo +data FileChooserSetShowHiddenMethodInfo +data FileChooserSetUriMethodInfo +data FileChooserSetUsePreviewLabelMethodInfo +data FileChooserUnselectAllMethodInfo +data FileChooserUnselectFileMethodInfo +data FileChooserUnselectFilenameMethodInfo +data FileChooserUnselectUriMethodInfo diff --git a/GI/Gtk/Interfaces/FontChooser.hs b/GI/Gtk/Interfaces/FontChooser.hs --- a/GI/Gtk/Interfaces/FontChooser.hs +++ b/GI/Gtk/Interfaces/FontChooser.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,58 +18,72 @@ -- * Methods -- ** fontChooserGetFont + FontChooserGetFontMethodInfo , fontChooserGetFont , -- ** fontChooserGetFontDesc + FontChooserGetFontDescMethodInfo , fontChooserGetFontDesc , -- ** fontChooserGetFontFace + FontChooserGetFontFaceMethodInfo , fontChooserGetFontFace , -- ** fontChooserGetFontFamily + FontChooserGetFontFamilyMethodInfo , fontChooserGetFontFamily , -- ** fontChooserGetFontMap + FontChooserGetFontMapMethodInfo , fontChooserGetFontMap , -- ** fontChooserGetFontSize + FontChooserGetFontSizeMethodInfo , fontChooserGetFontSize , -- ** fontChooserGetPreviewText + FontChooserGetPreviewTextMethodInfo , fontChooserGetPreviewText , -- ** fontChooserGetShowPreviewEntry + FontChooserGetShowPreviewEntryMethodInfo, fontChooserGetShowPreviewEntry , -- ** fontChooserSetFilterFunc + FontChooserSetFilterFuncMethodInfo , fontChooserSetFilterFunc , -- ** fontChooserSetFont + FontChooserSetFontMethodInfo , fontChooserSetFont , -- ** fontChooserSetFontDesc + FontChooserSetFontDescMethodInfo , fontChooserSetFontDesc , -- ** fontChooserSetFontMap + FontChooserSetFontMapMethodInfo , fontChooserSetFontMap , -- ** fontChooserSetPreviewText + FontChooserSetPreviewTextMethodInfo , fontChooserSetPreviewText , -- ** fontChooserSetShowPreviewEntry + FontChooserSetShowPreviewEntryMethodInfo, fontChooserSetShowPreviewEntry , @@ -141,6 +156,53 @@ noFontChooser :: Maybe FontChooser noFontChooser = Nothing +type family ResolveFontChooserMethod (t :: Symbol) (o :: *) :: * where + ResolveFontChooserMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFontChooserMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFontChooserMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFontChooserMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFontChooserMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFontChooserMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFontChooserMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFontChooserMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFontChooserMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFontChooserMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFontChooserMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFontChooserMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFontChooserMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFontChooserMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFontChooserMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFontChooserMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFontChooserMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFontChooserMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFontChooserMethod "getFont" o = FontChooserGetFontMethodInfo + ResolveFontChooserMethod "getFontDesc" o = FontChooserGetFontDescMethodInfo + ResolveFontChooserMethod "getFontFace" o = FontChooserGetFontFaceMethodInfo + ResolveFontChooserMethod "getFontFamily" o = FontChooserGetFontFamilyMethodInfo + ResolveFontChooserMethod "getFontMap" o = FontChooserGetFontMapMethodInfo + ResolveFontChooserMethod "getFontSize" o = FontChooserGetFontSizeMethodInfo + ResolveFontChooserMethod "getPreviewText" o = FontChooserGetPreviewTextMethodInfo + ResolveFontChooserMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFontChooserMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFontChooserMethod "getShowPreviewEntry" o = FontChooserGetShowPreviewEntryMethodInfo + ResolveFontChooserMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFontChooserMethod "setFilterFunc" o = FontChooserSetFilterFuncMethodInfo + ResolveFontChooserMethod "setFont" o = FontChooserSetFontMethodInfo + ResolveFontChooserMethod "setFontDesc" o = FontChooserSetFontDescMethodInfo + ResolveFontChooserMethod "setFontMap" o = FontChooserSetFontMapMethodInfo + ResolveFontChooserMethod "setPreviewText" o = FontChooserSetPreviewTextMethodInfo + ResolveFontChooserMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFontChooserMethod "setShowPreviewEntry" o = FontChooserSetShowPreviewEntryMethodInfo + ResolveFontChooserMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFontChooserMethod t FontChooser, MethodInfo info FontChooser p) => IsLabelProxy t (FontChooser -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFontChooserMethod t FontChooser, MethodInfo info FontChooser p) => IsLabel t (FontChooser -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal FontChooser::font-activated type FontChooserFontActivatedCallback = T.Text -> @@ -202,7 +264,7 @@ type AttrSetTypeConstraint FontChooserFontPropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontChooserFontPropertyInfo = FontChooserK type AttrGetType FontChooserFontPropertyInfo = T.Text - type AttrLabel FontChooserFontPropertyInfo = "FontChooser::font" + type AttrLabel FontChooserFontPropertyInfo = "font" attrGet _ = getFontChooserFont attrSet _ = setFontChooserFont attrConstruct _ = constructFontChooserFont @@ -226,7 +288,7 @@ type AttrSetTypeConstraint FontChooserFontDescPropertyInfo = (~) Pango.FontDescription type AttrBaseTypeConstraint FontChooserFontDescPropertyInfo = FontChooserK type AttrGetType FontChooserFontDescPropertyInfo = Pango.FontDescription - type AttrLabel FontChooserFontDescPropertyInfo = "FontChooser::font-desc" + type AttrLabel FontChooserFontDescPropertyInfo = "font-desc" attrGet _ = getFontChooserFontDesc attrSet _ = setFontChooserFontDesc attrConstruct _ = constructFontChooserFontDesc @@ -250,7 +312,7 @@ type AttrSetTypeConstraint FontChooserPreviewTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontChooserPreviewTextPropertyInfo = FontChooserK type AttrGetType FontChooserPreviewTextPropertyInfo = T.Text - type AttrLabel FontChooserPreviewTextPropertyInfo = "FontChooser::preview-text" + type AttrLabel FontChooserPreviewTextPropertyInfo = "preview-text" attrGet _ = getFontChooserPreviewText attrSet _ = setFontChooserPreviewText attrConstruct _ = constructFontChooserPreviewText @@ -274,13 +336,13 @@ type AttrSetTypeConstraint FontChooserShowPreviewEntryPropertyInfo = (~) Bool type AttrBaseTypeConstraint FontChooserShowPreviewEntryPropertyInfo = FontChooserK type AttrGetType FontChooserShowPreviewEntryPropertyInfo = Bool - type AttrLabel FontChooserShowPreviewEntryPropertyInfo = "FontChooser::show-preview-entry" + type AttrLabel FontChooserShowPreviewEntryPropertyInfo = "show-preview-entry" attrGet _ = getFontChooserShowPreviewEntry attrSet _ = setFontChooserShowPreviewEntry attrConstruct _ = constructFontChooserShowPreviewEntry type instance AttributeList FontChooser = FontChooserAttributeList -type FontChooserAttributeList = ('[ '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo)] :: [(Symbol, *)]) +type FontChooserAttributeList = ('[ '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo)] :: [(Symbol, *)]) data FontChooserFontActivatedSignalInfo instance SignalInfo FontChooserFontActivatedSignalInfo where @@ -288,7 +350,7 @@ connectSignal _ = connectFontChooserFontActivated type instance SignalList FontChooser = FontChooserSignalList -type FontChooserSignalList = ('[ '("font-activated", FontChooserFontActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FontChooserSignalList = ('[ '("fontActivated", FontChooserFontActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_font_chooser_get_type" c_gtk_font_chooser_get_type :: IO GType @@ -309,9 +371,8 @@ -- method FontChooser::get_font -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -323,8 +384,8 @@ fontChooserGetFont :: (MonadIO m, FontChooserK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result fontChooserGetFont _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_chooser_get_font _obj' @@ -334,11 +395,14 @@ touchManagedPtr _obj return result' +data FontChooserGetFontMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontMethodInfo a signature where + overloadedMethod _ = fontChooserGetFont + -- method FontChooser::get_font_desc -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "FontDescription" -- throws : False -- Skip return : False @@ -350,8 +414,8 @@ fontChooserGetFontDesc :: (MonadIO m, FontChooserK a) => - a -> -- _obj - m Pango.FontDescription + a -- _obj + -> m Pango.FontDescription -- result fontChooserGetFontDesc _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_chooser_get_font_desc _obj' @@ -360,11 +424,14 @@ touchManagedPtr _obj return result' +data FontChooserGetFontDescMethodInfo +instance (signature ~ (m Pango.FontDescription), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontDescMethodInfo a signature where + overloadedMethod _ = fontChooserGetFontDesc + -- method FontChooser::get_font_face -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "FontFace" -- throws : False -- Skip return : False @@ -376,8 +443,8 @@ fontChooserGetFontFace :: (MonadIO m, FontChooserK a) => - a -> -- _obj - m Pango.FontFace + a -- _obj + -> m Pango.FontFace -- result fontChooserGetFontFace _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_chooser_get_font_face _obj' @@ -386,11 +453,14 @@ touchManagedPtr _obj return result' +data FontChooserGetFontFaceMethodInfo +instance (signature ~ (m Pango.FontFace), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontFaceMethodInfo a signature where + overloadedMethod _ = fontChooserGetFontFace + -- method FontChooser::get_font_family -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "FontFamily" -- throws : False -- Skip return : False @@ -402,8 +472,8 @@ fontChooserGetFontFamily :: (MonadIO m, FontChooserK a) => - a -> -- _obj - m Pango.FontFamily + a -- _obj + -> m Pango.FontFamily -- result fontChooserGetFontFamily _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_chooser_get_font_family _obj' @@ -412,11 +482,14 @@ touchManagedPtr _obj return result' +data FontChooserGetFontFamilyMethodInfo +instance (signature ~ (m Pango.FontFamily), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontFamilyMethodInfo a signature where + overloadedMethod _ = fontChooserGetFontFamily + -- method FontChooser::get_font_map -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "FontMap" -- throws : False -- Skip return : False @@ -428,8 +501,8 @@ fontChooserGetFontMap :: (MonadIO m, FontChooserK a) => - a -> -- _obj - m Pango.FontMap + a -- _obj + -> m Pango.FontMap -- result fontChooserGetFontMap _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_chooser_get_font_map _obj' @@ -438,11 +511,14 @@ touchManagedPtr _obj return result' +data FontChooserGetFontMapMethodInfo +instance (signature ~ (m Pango.FontMap), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontMapMethodInfo a signature where + overloadedMethod _ = fontChooserGetFontMap + -- method FontChooser::get_font_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -454,19 +530,22 @@ fontChooserGetFontSize :: (MonadIO m, FontChooserK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result fontChooserGetFontSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_chooser_get_font_size _obj' touchManagedPtr _obj return result +data FontChooserGetFontSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetFontSizeMethodInfo a signature where + overloadedMethod _ = fontChooserGetFontSize + -- method FontChooser::get_preview_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -478,8 +557,8 @@ fontChooserGetPreviewText :: (MonadIO m, FontChooserK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result fontChooserGetPreviewText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_chooser_get_preview_text _obj' @@ -489,11 +568,14 @@ touchManagedPtr _obj return result' +data FontChooserGetPreviewTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetPreviewTextMethodInfo a signature where + overloadedMethod _ = fontChooserGetPreviewText + -- method FontChooser::get_show_preview_entry -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -505,8 +587,8 @@ fontChooserGetShowPreviewEntry :: (MonadIO m, FontChooserK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result fontChooserGetShowPreviewEntry _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_chooser_get_show_preview_entry _obj' @@ -514,11 +596,14 @@ touchManagedPtr _obj return result' +data FontChooserGetShowPreviewEntryMethodInfo +instance (signature ~ (m Bool), MonadIO m, FontChooserK a) => MethodInfo FontChooserGetShowPreviewEntryMethodInfo a signature where + overloadedMethod _ = fontChooserGetShowPreviewEntry + -- method FontChooser::set_filter_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -533,9 +618,9 @@ fontChooserSetFilterFunc :: (MonadIO m, FontChooserK a) => - a -> -- _obj - Maybe (FontFilterFunc) -> -- filter - m () + a -- _obj + -> Maybe (FontFilterFunc) -- filter + -> m () -- result fontChooserSetFilterFunc _obj filter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeFilter <- case filter of @@ -543,17 +628,20 @@ Just jFilter -> do jFilter' <- mkFontFilterFunc (fontFilterFuncWrapper Nothing jFilter) return jFilter' - let user_data = castFunPtrToPtr maybeFilter + let userData = castFunPtrToPtr maybeFilter let destroy = safeFreeFunPtrPtr - gtk_font_chooser_set_filter_func _obj' maybeFilter user_data destroy + gtk_font_chooser_set_filter_func _obj' maybeFilter userData destroy touchManagedPtr _obj return () +data FontChooserSetFilterFuncMethodInfo +instance (signature ~ (Maybe (FontFilterFunc) -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetFilterFuncMethodInfo a signature where + overloadedMethod _ = fontChooserSetFilterFunc + -- method FontChooser::set_font -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -566,9 +654,9 @@ fontChooserSetFont :: (MonadIO m, FontChooserK a) => - a -> -- _obj - T.Text -> -- fontname - m () + a -- _obj + -> T.Text -- fontname + -> m () -- result fontChooserSetFont _obj fontname = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj fontname' <- textToCString fontname @@ -577,11 +665,14 @@ freeMem fontname' return () +data FontChooserSetFontMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetFontMethodInfo a signature where + overloadedMethod _ = fontChooserSetFont + -- method FontChooser::set_font_desc -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -594,22 +685,25 @@ fontChooserSetFontDesc :: (MonadIO m, FontChooserK a) => - a -> -- _obj - Pango.FontDescription -> -- font_desc - m () -fontChooserSetFontDesc _obj font_desc = liftIO $ do + a -- _obj + -> Pango.FontDescription -- fontDesc + -> m () -- result +fontChooserSetFontDesc _obj fontDesc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let font_desc' = unsafeManagedPtrGetPtr font_desc - gtk_font_chooser_set_font_desc _obj' font_desc' + let fontDesc' = unsafeManagedPtrGetPtr fontDesc + gtk_font_chooser_set_font_desc _obj' fontDesc' touchManagedPtr _obj - touchManagedPtr font_desc + touchManagedPtr fontDesc return () +data FontChooserSetFontDescMethodInfo +instance (signature ~ (Pango.FontDescription -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetFontDescMethodInfo a signature where + overloadedMethod _ = fontChooserSetFontDesc + -- method FontChooser::set_font_map -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontmap", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontmap", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontmap", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -622,9 +716,9 @@ fontChooserSetFontMap :: (MonadIO m, FontChooserK a, Pango.FontMapK b) => - a -> -- _obj - Maybe (b) -> -- fontmap - m () + a -- _obj + -> Maybe (b) -- fontmap + -> m () -- result fontChooserSetFontMap _obj fontmap = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeFontmap <- case fontmap of @@ -637,11 +731,14 @@ whenJust fontmap touchManagedPtr return () +data FontChooserSetFontMapMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FontChooserK a, Pango.FontMapK b) => MethodInfo FontChooserSetFontMapMethodInfo a signature where + overloadedMethod _ = fontChooserSetFontMap + -- method FontChooser::set_preview_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -654,9 +751,9 @@ fontChooserSetPreviewText :: (MonadIO m, FontChooserK a) => - a -> -- _obj - T.Text -> -- text - m () + a -- _obj + -> T.Text -- text + -> m () -- result fontChooserSetPreviewText _obj text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text @@ -665,11 +762,14 @@ freeMem text' return () +data FontChooserSetPreviewTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetPreviewTextMethodInfo a signature where + overloadedMethod _ = fontChooserSetPreviewText + -- method FontChooser::set_show_preview_entry -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -682,14 +782,18 @@ fontChooserSetShowPreviewEntry :: (MonadIO m, FontChooserK a) => - a -> -- _obj - Bool -> -- show_preview_entry - m () -fontChooserSetShowPreviewEntry _obj show_preview_entry = liftIO $ do + a -- _obj + -> Bool -- showPreviewEntry + -> m () -- result +fontChooserSetShowPreviewEntry _obj showPreviewEntry = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_preview_entry' = (fromIntegral . fromEnum) show_preview_entry - gtk_font_chooser_set_show_preview_entry _obj' show_preview_entry' + let showPreviewEntry' = (fromIntegral . fromEnum) showPreviewEntry + gtk_font_chooser_set_show_preview_entry _obj' showPreviewEntry' touchManagedPtr _obj return () + +data FontChooserSetShowPreviewEntryMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FontChooserK a) => MethodInfo FontChooserSetShowPreviewEntryMethodInfo a signature where + overloadedMethod _ = fontChooserSetShowPreviewEntry diff --git a/GI/Gtk/Interfaces/FontChooser.hs-boot b/GI/Gtk/Interfaces/FontChooser.hs-boot --- a/GI/Gtk/Interfaces/FontChooser.hs-boot +++ b/GI/Gtk/Interfaces/FontChooser.hs-boot @@ -16,3 +16,17 @@ instance GObject FontChooser where class GObject o => FontChooserK o instance (GObject o, IsDescendantOf FontChooser o) => FontChooserK o +data FontChooserGetFontMethodInfo +data FontChooserGetFontDescMethodInfo +data FontChooserGetFontFaceMethodInfo +data FontChooserGetFontFamilyMethodInfo +data FontChooserGetFontMapMethodInfo +data FontChooserGetFontSizeMethodInfo +data FontChooserGetPreviewTextMethodInfo +data FontChooserGetShowPreviewEntryMethodInfo +data FontChooserSetFilterFuncMethodInfo +data FontChooserSetFontMethodInfo +data FontChooserSetFontDescMethodInfo +data FontChooserSetFontMapMethodInfo +data FontChooserSetPreviewTextMethodInfo +data FontChooserSetShowPreviewEntryMethodInfo diff --git a/GI/Gtk/Interfaces/Orientable.hs b/GI/Gtk/Interfaces/Orientable.hs --- a/GI/Gtk/Interfaces/Orientable.hs +++ b/GI/Gtk/Interfaces/Orientable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** orientableGetOrientation + OrientableGetOrientationMethodInfo , orientableGetOrientation , -- ** orientableSetOrientation + OrientableSetOrientationMethodInfo , orientableSetOrientation , @@ -55,6 +58,41 @@ noOrientable :: Maybe Orientable noOrientable = Nothing +type family ResolveOrientableMethod (t :: Symbol) (o :: *) :: * where + ResolveOrientableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveOrientableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveOrientableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveOrientableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveOrientableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveOrientableMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveOrientableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveOrientableMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveOrientableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveOrientableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveOrientableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveOrientableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveOrientableMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveOrientableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveOrientableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveOrientableMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveOrientableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveOrientableMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveOrientableMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveOrientableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveOrientableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveOrientableMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveOrientableMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveOrientableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveOrientableMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveOrientableMethod t Orientable, MethodInfo info Orientable p) => IsLabelProxy t (Orientable -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveOrientableMethod t Orientable, MethodInfo info Orientable p) => IsLabel t (Orientable -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "orientation" -- Type: TInterface "Gtk" "Orientation" -- Flags: [PropertyReadable,PropertyWritable] @@ -74,7 +112,7 @@ type AttrSetTypeConstraint OrientableOrientationPropertyInfo = (~) Orientation type AttrBaseTypeConstraint OrientableOrientationPropertyInfo = OrientableK type AttrGetType OrientableOrientationPropertyInfo = Orientation - type AttrLabel OrientableOrientationPropertyInfo = "Orientable::orientation" + type AttrLabel OrientableOrientationPropertyInfo = "orientation" attrGet _ = getOrientableOrientation attrSet _ = setOrientableOrientation attrConstruct _ = constructOrientableOrientation @@ -83,7 +121,7 @@ type OrientableAttributeList = ('[ '("orientation", OrientableOrientationPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Orientable = OrientableSignalList -type OrientableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type OrientableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_orientable_get_type" c_gtk_orientable_get_type :: IO GType @@ -104,9 +142,8 @@ -- method Orientable::get_orientation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Orientation" -- throws : False -- Skip return : False @@ -118,8 +155,8 @@ orientableGetOrientation :: (MonadIO m, OrientableK a) => - a -> -- _obj - m Orientation + a -- _obj + -> m Orientation -- result orientableGetOrientation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_orientable_get_orientation _obj' @@ -127,11 +164,14 @@ touchManagedPtr _obj return result' +data OrientableGetOrientationMethodInfo +instance (signature ~ (m Orientation), MonadIO m, OrientableK a) => MethodInfo OrientableGetOrientationMethodInfo a signature where + overloadedMethod _ = orientableGetOrientation + -- method Orientable::set_orientation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -144,14 +184,18 @@ orientableSetOrientation :: (MonadIO m, OrientableK a) => - a -> -- _obj - Orientation -> -- orientation - m () + a -- _obj + -> Orientation -- orientation + -> m () -- result orientableSetOrientation _obj orientation = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let orientation' = (fromIntegral . fromEnum) orientation gtk_orientable_set_orientation _obj' orientation' touchManagedPtr _obj return () + +data OrientableSetOrientationMethodInfo +instance (signature ~ (Orientation -> m ()), MonadIO m, OrientableK a) => MethodInfo OrientableSetOrientationMethodInfo a signature where + overloadedMethod _ = orientableSetOrientation diff --git a/GI/Gtk/Interfaces/Orientable.hs-boot b/GI/Gtk/Interfaces/Orientable.hs-boot --- a/GI/Gtk/Interfaces/Orientable.hs-boot +++ b/GI/Gtk/Interfaces/Orientable.hs-boot @@ -12,3 +12,5 @@ instance GObject Orientable where class GObject o => OrientableK o instance (GObject o, IsDescendantOf Orientable o) => OrientableK o +data OrientableGetOrientationMethodInfo +data OrientableSetOrientationMethodInfo diff --git a/GI/Gtk/Interfaces/PrintOperationPreview.hs b/GI/Gtk/Interfaces/PrintOperationPreview.hs --- a/GI/Gtk/Interfaces/PrintOperationPreview.hs +++ b/GI/Gtk/Interfaces/PrintOperationPreview.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** printOperationPreviewEndPreview + PrintOperationPreviewEndPreviewMethodInfo, printOperationPreviewEndPreview , -- ** printOperationPreviewIsSelected + PrintOperationPreviewIsSelectedMethodInfo, printOperationPreviewIsSelected , -- ** printOperationPreviewRenderPage + PrintOperationPreviewRenderPageMethodInfo, printOperationPreviewRenderPage , @@ -76,6 +80,42 @@ noPrintOperationPreview :: Maybe PrintOperationPreview noPrintOperationPreview = Nothing +type family ResolvePrintOperationPreviewMethod (t :: Symbol) (o :: *) :: * where + ResolvePrintOperationPreviewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePrintOperationPreviewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePrintOperationPreviewMethod "endPreview" o = PrintOperationPreviewEndPreviewMethodInfo + ResolvePrintOperationPreviewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePrintOperationPreviewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePrintOperationPreviewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePrintOperationPreviewMethod "isSelected" o = PrintOperationPreviewIsSelectedMethodInfo + ResolvePrintOperationPreviewMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePrintOperationPreviewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePrintOperationPreviewMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePrintOperationPreviewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePrintOperationPreviewMethod "renderPage" o = PrintOperationPreviewRenderPageMethodInfo + ResolvePrintOperationPreviewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePrintOperationPreviewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePrintOperationPreviewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePrintOperationPreviewMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePrintOperationPreviewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePrintOperationPreviewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePrintOperationPreviewMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePrintOperationPreviewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePrintOperationPreviewMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePrintOperationPreviewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePrintOperationPreviewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePrintOperationPreviewMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePrintOperationPreviewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePrintOperationPreviewMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePrintOperationPreviewMethod t PrintOperationPreview, MethodInfo info PrintOperationPreview p) => IsLabelProxy t (PrintOperationPreview -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePrintOperationPreviewMethod t PrintOperationPreview, MethodInfo info PrintOperationPreview p) => IsLabel t (PrintOperationPreview -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal PrintOperationPreview::got-page-size type PrintOperationPreviewGotPageSizeCallback = PrintContext -> @@ -106,10 +146,10 @@ Ptr PageSetup -> Ptr () -> IO () -printOperationPreviewGotPageSizeCallbackWrapper _cb _ context page_setup _ = do +printOperationPreviewGotPageSizeCallbackWrapper _cb _ context pageSetup _ = do context' <- (newObject PrintContext) context - page_setup' <- (newObject PageSetup) page_setup - _cb context' page_setup' + pageSetup' <- (newObject PageSetup) pageSetup + _cb context' pageSetup' onPrintOperationPreviewGotPageSize :: (GObject a, MonadIO m) => a -> PrintOperationPreviewGotPageSizeCallback -> m SignalHandlerId onPrintOperationPreviewGotPageSize obj cb = liftIO $ connectPrintOperationPreviewGotPageSize obj cb SignalConnectBefore @@ -178,7 +218,7 @@ connectSignal _ = connectPrintOperationPreviewReady type instance SignalList PrintOperationPreview = PrintOperationPreviewSignalList -type PrintOperationPreviewSignalList = ('[ '("got-page-size", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("ready", PrintOperationPreviewReadySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PrintOperationPreviewSignalList = ('[ '("gotPageSize", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("ready", PrintOperationPreviewReadySignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_print_operation_preview_get_type" c_gtk_print_operation_preview_get_type :: IO GType @@ -199,9 +239,8 @@ -- method PrintOperationPreview::end_preview -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -213,19 +252,22 @@ printOperationPreviewEndPreview :: (MonadIO m, PrintOperationPreviewK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result printOperationPreviewEndPreview _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_print_operation_preview_end_preview _obj' touchManagedPtr _obj return () +data PrintOperationPreviewEndPreviewMethodInfo +instance (signature ~ (m ()), MonadIO m, PrintOperationPreviewK a) => MethodInfo PrintOperationPreviewEndPreviewMethodInfo a signature where + overloadedMethod _ = printOperationPreviewEndPreview + -- method PrintOperationPreview::is_selected -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -238,21 +280,24 @@ printOperationPreviewIsSelected :: (MonadIO m, PrintOperationPreviewK a) => - a -> -- _obj - Int32 -> -- page_nr - m Bool -printOperationPreviewIsSelected _obj page_nr = liftIO $ do + a -- _obj + -> Int32 -- pageNr + -> m Bool -- result +printOperationPreviewIsSelected _obj pageNr = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_preview_is_selected _obj' page_nr + result <- gtk_print_operation_preview_is_selected _obj' pageNr let result' = (/= 0) result touchManagedPtr _obj return result' +data PrintOperationPreviewIsSelectedMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m, PrintOperationPreviewK a) => MethodInfo PrintOperationPreviewIsSelectedMethodInfo a signature where + overloadedMethod _ = printOperationPreviewIsSelected + -- method PrintOperationPreview::render_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -265,13 +310,17 @@ printOperationPreviewRenderPage :: (MonadIO m, PrintOperationPreviewK a) => - a -> -- _obj - Int32 -> -- page_nr - m () -printOperationPreviewRenderPage _obj page_nr = liftIO $ do + a -- _obj + -> Int32 -- pageNr + -> m () -- result +printOperationPreviewRenderPage _obj pageNr = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_preview_render_page _obj' page_nr + gtk_print_operation_preview_render_page _obj' pageNr touchManagedPtr _obj return () + +data PrintOperationPreviewRenderPageMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, PrintOperationPreviewK a) => MethodInfo PrintOperationPreviewRenderPageMethodInfo a signature where + overloadedMethod _ = printOperationPreviewRenderPage diff --git a/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot b/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot --- a/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot +++ b/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot @@ -13,3 +13,6 @@ instance GObject PrintOperationPreview where class GObject o => PrintOperationPreviewK o instance (GObject o, IsDescendantOf PrintOperationPreview o) => PrintOperationPreviewK o +data PrintOperationPreviewEndPreviewMethodInfo +data PrintOperationPreviewIsSelectedMethodInfo +data PrintOperationPreviewRenderPageMethodInfo diff --git a/GI/Gtk/Interfaces/RecentChooser.hs b/GI/Gtk/Interfaces/RecentChooser.hs --- a/GI/Gtk/Interfaces/RecentChooser.hs +++ b/GI/Gtk/Interfaces/RecentChooser.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,126 +18,157 @@ -- * Methods -- ** recentChooserAddFilter + RecentChooserAddFilterMethodInfo , recentChooserAddFilter , -- ** recentChooserGetCurrentItem + RecentChooserGetCurrentItemMethodInfo , recentChooserGetCurrentItem , -- ** recentChooserGetCurrentUri + RecentChooserGetCurrentUriMethodInfo , recentChooserGetCurrentUri , -- ** recentChooserGetFilter + RecentChooserGetFilterMethodInfo , recentChooserGetFilter , -- ** recentChooserGetItems + RecentChooserGetItemsMethodInfo , recentChooserGetItems , -- ** recentChooserGetLimit + RecentChooserGetLimitMethodInfo , recentChooserGetLimit , -- ** recentChooserGetLocalOnly + RecentChooserGetLocalOnlyMethodInfo , recentChooserGetLocalOnly , -- ** recentChooserGetSelectMultiple + RecentChooserGetSelectMultipleMethodInfo, recentChooserGetSelectMultiple , -- ** recentChooserGetShowIcons + RecentChooserGetShowIconsMethodInfo , recentChooserGetShowIcons , -- ** recentChooserGetShowNotFound + RecentChooserGetShowNotFoundMethodInfo , recentChooserGetShowNotFound , -- ** recentChooserGetShowPrivate + RecentChooserGetShowPrivateMethodInfo , recentChooserGetShowPrivate , -- ** recentChooserGetShowTips + RecentChooserGetShowTipsMethodInfo , recentChooserGetShowTips , -- ** recentChooserGetSortType + RecentChooserGetSortTypeMethodInfo , recentChooserGetSortType , -- ** recentChooserGetUris + RecentChooserGetUrisMethodInfo , recentChooserGetUris , -- ** recentChooserListFilters + RecentChooserListFiltersMethodInfo , recentChooserListFilters , -- ** recentChooserRemoveFilter + RecentChooserRemoveFilterMethodInfo , recentChooserRemoveFilter , -- ** recentChooserSelectAll + RecentChooserSelectAllMethodInfo , recentChooserSelectAll , -- ** recentChooserSelectUri + RecentChooserSelectUriMethodInfo , recentChooserSelectUri , -- ** recentChooserSetCurrentUri + RecentChooserSetCurrentUriMethodInfo , recentChooserSetCurrentUri , -- ** recentChooserSetFilter + RecentChooserSetFilterMethodInfo , recentChooserSetFilter , -- ** recentChooserSetLimit + RecentChooserSetLimitMethodInfo , recentChooserSetLimit , -- ** recentChooserSetLocalOnly + RecentChooserSetLocalOnlyMethodInfo , recentChooserSetLocalOnly , -- ** recentChooserSetSelectMultiple + RecentChooserSetSelectMultipleMethodInfo, recentChooserSetSelectMultiple , -- ** recentChooserSetShowIcons + RecentChooserSetShowIconsMethodInfo , recentChooserSetShowIcons , -- ** recentChooserSetShowNotFound + RecentChooserSetShowNotFoundMethodInfo , recentChooserSetShowNotFound , -- ** recentChooserSetShowPrivate + RecentChooserSetShowPrivateMethodInfo , recentChooserSetShowPrivate , -- ** recentChooserSetShowTips + RecentChooserSetShowTipsMethodInfo , recentChooserSetShowTips , -- ** recentChooserSetSortFunc + RecentChooserSetSortFuncMethodInfo , recentChooserSetSortFunc , -- ** recentChooserSetSortType + RecentChooserSetSortTypeMethodInfo , recentChooserSetSortType , -- ** recentChooserUnselectAll + RecentChooserUnselectAllMethodInfo , recentChooserUnselectAll , -- ** recentChooserUnselectUri + RecentChooserUnselectUriMethodInfo , recentChooserUnselectUri , @@ -260,6 +292,70 @@ noRecentChooser :: Maybe RecentChooser noRecentChooser = Nothing +type family ResolveRecentChooserMethod (t :: Symbol) (o :: *) :: * where + ResolveRecentChooserMethod "addFilter" o = RecentChooserAddFilterMethodInfo + ResolveRecentChooserMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRecentChooserMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRecentChooserMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRecentChooserMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRecentChooserMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRecentChooserMethod "listFilters" o = RecentChooserListFiltersMethodInfo + ResolveRecentChooserMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRecentChooserMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRecentChooserMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRecentChooserMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRecentChooserMethod "removeFilter" o = RecentChooserRemoveFilterMethodInfo + ResolveRecentChooserMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRecentChooserMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRecentChooserMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRecentChooserMethod "selectAll" o = RecentChooserSelectAllMethodInfo + ResolveRecentChooserMethod "selectUri" o = RecentChooserSelectUriMethodInfo + ResolveRecentChooserMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRecentChooserMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRecentChooserMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRecentChooserMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRecentChooserMethod "unselectAll" o = RecentChooserUnselectAllMethodInfo + ResolveRecentChooserMethod "unselectUri" o = RecentChooserUnselectUriMethodInfo + ResolveRecentChooserMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRecentChooserMethod "getCurrentItem" o = RecentChooserGetCurrentItemMethodInfo + ResolveRecentChooserMethod "getCurrentUri" o = RecentChooserGetCurrentUriMethodInfo + ResolveRecentChooserMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRecentChooserMethod "getFilter" o = RecentChooserGetFilterMethodInfo + ResolveRecentChooserMethod "getItems" o = RecentChooserGetItemsMethodInfo + ResolveRecentChooserMethod "getLimit" o = RecentChooserGetLimitMethodInfo + ResolveRecentChooserMethod "getLocalOnly" o = RecentChooserGetLocalOnlyMethodInfo + ResolveRecentChooserMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRecentChooserMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRecentChooserMethod "getSelectMultiple" o = RecentChooserGetSelectMultipleMethodInfo + ResolveRecentChooserMethod "getShowIcons" o = RecentChooserGetShowIconsMethodInfo + ResolveRecentChooserMethod "getShowNotFound" o = RecentChooserGetShowNotFoundMethodInfo + ResolveRecentChooserMethod "getShowPrivate" o = RecentChooserGetShowPrivateMethodInfo + ResolveRecentChooserMethod "getShowTips" o = RecentChooserGetShowTipsMethodInfo + ResolveRecentChooserMethod "getSortType" o = RecentChooserGetSortTypeMethodInfo + ResolveRecentChooserMethod "getUris" o = RecentChooserGetUrisMethodInfo + ResolveRecentChooserMethod "setCurrentUri" o = RecentChooserSetCurrentUriMethodInfo + ResolveRecentChooserMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRecentChooserMethod "setFilter" o = RecentChooserSetFilterMethodInfo + ResolveRecentChooserMethod "setLimit" o = RecentChooserSetLimitMethodInfo + ResolveRecentChooserMethod "setLocalOnly" o = RecentChooserSetLocalOnlyMethodInfo + ResolveRecentChooserMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRecentChooserMethod "setSelectMultiple" o = RecentChooserSetSelectMultipleMethodInfo + ResolveRecentChooserMethod "setShowIcons" o = RecentChooserSetShowIconsMethodInfo + ResolveRecentChooserMethod "setShowNotFound" o = RecentChooserSetShowNotFoundMethodInfo + ResolveRecentChooserMethod "setShowPrivate" o = RecentChooserSetShowPrivateMethodInfo + ResolveRecentChooserMethod "setShowTips" o = RecentChooserSetShowTipsMethodInfo + ResolveRecentChooserMethod "setSortFunc" o = RecentChooserSetSortFuncMethodInfo + ResolveRecentChooserMethod "setSortType" o = RecentChooserSetSortTypeMethodInfo + ResolveRecentChooserMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRecentChooserMethod t RecentChooser, MethodInfo info RecentChooser p) => IsLabelProxy t (RecentChooser -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRecentChooserMethod t RecentChooser, MethodInfo info RecentChooser p) => IsLabel t (RecentChooser -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal RecentChooser::item-activated type RecentChooserItemActivatedCallback = IO () @@ -355,7 +451,7 @@ type AttrSetTypeConstraint RecentChooserFilterPropertyInfo = RecentFilterK type AttrBaseTypeConstraint RecentChooserFilterPropertyInfo = RecentChooserK type AttrGetType RecentChooserFilterPropertyInfo = RecentFilter - type AttrLabel RecentChooserFilterPropertyInfo = "RecentChooser::filter" + type AttrLabel RecentChooserFilterPropertyInfo = "filter" attrGet _ = getRecentChooserFilter attrSet _ = setRecentChooserFilter attrConstruct _ = constructRecentChooserFilter @@ -379,7 +475,7 @@ type AttrSetTypeConstraint RecentChooserLimitPropertyInfo = (~) Int32 type AttrBaseTypeConstraint RecentChooserLimitPropertyInfo = RecentChooserK type AttrGetType RecentChooserLimitPropertyInfo = Int32 - type AttrLabel RecentChooserLimitPropertyInfo = "RecentChooser::limit" + type AttrLabel RecentChooserLimitPropertyInfo = "limit" attrGet _ = getRecentChooserLimit attrSet _ = setRecentChooserLimit attrConstruct _ = constructRecentChooserLimit @@ -403,7 +499,7 @@ type AttrSetTypeConstraint RecentChooserLocalOnlyPropertyInfo = (~) Bool type AttrBaseTypeConstraint RecentChooserLocalOnlyPropertyInfo = RecentChooserK type AttrGetType RecentChooserLocalOnlyPropertyInfo = Bool - type AttrLabel RecentChooserLocalOnlyPropertyInfo = "RecentChooser::local-only" + type AttrLabel RecentChooserLocalOnlyPropertyInfo = "local-only" attrGet _ = getRecentChooserLocalOnly attrSet _ = setRecentChooserLocalOnly attrConstruct _ = constructRecentChooserLocalOnly @@ -421,7 +517,7 @@ type AttrSetTypeConstraint RecentChooserRecentManagerPropertyInfo = RecentManagerK type AttrBaseTypeConstraint RecentChooserRecentManagerPropertyInfo = RecentChooserK type AttrGetType RecentChooserRecentManagerPropertyInfo = () - type AttrLabel RecentChooserRecentManagerPropertyInfo = "RecentChooser::recent-manager" + type AttrLabel RecentChooserRecentManagerPropertyInfo = "recent-manager" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructRecentChooserRecentManager @@ -445,7 +541,7 @@ type AttrSetTypeConstraint RecentChooserSelectMultiplePropertyInfo = (~) Bool type AttrBaseTypeConstraint RecentChooserSelectMultiplePropertyInfo = RecentChooserK type AttrGetType RecentChooserSelectMultiplePropertyInfo = Bool - type AttrLabel RecentChooserSelectMultiplePropertyInfo = "RecentChooser::select-multiple" + type AttrLabel RecentChooserSelectMultiplePropertyInfo = "select-multiple" attrGet _ = getRecentChooserSelectMultiple attrSet _ = setRecentChooserSelectMultiple attrConstruct _ = constructRecentChooserSelectMultiple @@ -469,7 +565,7 @@ type AttrSetTypeConstraint RecentChooserShowIconsPropertyInfo = (~) Bool type AttrBaseTypeConstraint RecentChooserShowIconsPropertyInfo = RecentChooserK type AttrGetType RecentChooserShowIconsPropertyInfo = Bool - type AttrLabel RecentChooserShowIconsPropertyInfo = "RecentChooser::show-icons" + type AttrLabel RecentChooserShowIconsPropertyInfo = "show-icons" attrGet _ = getRecentChooserShowIcons attrSet _ = setRecentChooserShowIcons attrConstruct _ = constructRecentChooserShowIcons @@ -493,7 +589,7 @@ type AttrSetTypeConstraint RecentChooserShowNotFoundPropertyInfo = (~) Bool type AttrBaseTypeConstraint RecentChooserShowNotFoundPropertyInfo = RecentChooserK type AttrGetType RecentChooserShowNotFoundPropertyInfo = Bool - type AttrLabel RecentChooserShowNotFoundPropertyInfo = "RecentChooser::show-not-found" + type AttrLabel RecentChooserShowNotFoundPropertyInfo = "show-not-found" attrGet _ = getRecentChooserShowNotFound attrSet _ = setRecentChooserShowNotFound attrConstruct _ = constructRecentChooserShowNotFound @@ -517,7 +613,7 @@ type AttrSetTypeConstraint RecentChooserShowPrivatePropertyInfo = (~) Bool type AttrBaseTypeConstraint RecentChooserShowPrivatePropertyInfo = RecentChooserK type AttrGetType RecentChooserShowPrivatePropertyInfo = Bool - type AttrLabel RecentChooserShowPrivatePropertyInfo = "RecentChooser::show-private" + type AttrLabel RecentChooserShowPrivatePropertyInfo = "show-private" attrGet _ = getRecentChooserShowPrivate attrSet _ = setRecentChooserShowPrivate attrConstruct _ = constructRecentChooserShowPrivate @@ -541,7 +637,7 @@ type AttrSetTypeConstraint RecentChooserShowTipsPropertyInfo = (~) Bool type AttrBaseTypeConstraint RecentChooserShowTipsPropertyInfo = RecentChooserK type AttrGetType RecentChooserShowTipsPropertyInfo = Bool - type AttrLabel RecentChooserShowTipsPropertyInfo = "RecentChooser::show-tips" + type AttrLabel RecentChooserShowTipsPropertyInfo = "show-tips" attrGet _ = getRecentChooserShowTips attrSet _ = setRecentChooserShowTips attrConstruct _ = constructRecentChooserShowTips @@ -565,13 +661,13 @@ type AttrSetTypeConstraint RecentChooserSortTypePropertyInfo = (~) RecentSortType type AttrBaseTypeConstraint RecentChooserSortTypePropertyInfo = RecentChooserK type AttrGetType RecentChooserSortTypePropertyInfo = RecentSortType - type AttrLabel RecentChooserSortTypePropertyInfo = "RecentChooser::sort-type" + type AttrLabel RecentChooserSortTypePropertyInfo = "sort-type" attrGet _ = getRecentChooserSortType attrSet _ = setRecentChooserSortType attrConstruct _ = constructRecentChooserSortType type instance AttributeList RecentChooser = RecentChooserAttributeList -type RecentChooserAttributeList = ('[ '("filter", RecentChooserFilterPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo)] :: [(Symbol, *)]) +type RecentChooserAttributeList = ('[ '("filter", RecentChooserFilterPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo)] :: [(Symbol, *)]) data RecentChooserItemActivatedSignalInfo instance SignalInfo RecentChooserItemActivatedSignalInfo where @@ -584,7 +680,7 @@ connectSignal _ = connectRecentChooserSelectionChanged type instance SignalList RecentChooser = RecentChooserSignalList -type RecentChooserSignalList = ('[ '("item-activated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RecentChooserSignalList = ('[ '("itemActivated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_recent_chooser_get_type" c_gtk_recent_chooser_get_type :: IO GType @@ -605,9 +701,8 @@ -- method RecentChooser::add_filter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -620,9 +715,9 @@ recentChooserAddFilter :: (MonadIO m, RecentChooserK a, RecentFilterK b) => - a -> -- _obj - b -> -- filter - m () + a -- _obj + -> b -- filter + -> m () -- result recentChooserAddFilter _obj filter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let filter' = unsafeManagedPtrCastPtr filter @@ -631,11 +726,14 @@ touchManagedPtr filter return () +data RecentChooserAddFilterMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, RecentChooserK a, RecentFilterK b) => MethodInfo RecentChooserAddFilterMethodInfo a signature where + overloadedMethod _ = recentChooserAddFilter + -- method RecentChooser::get_current_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RecentInfo" -- throws : False -- Skip return : False @@ -647,8 +745,8 @@ recentChooserGetCurrentItem :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m RecentInfo + a -- _obj + -> m RecentInfo -- result recentChooserGetCurrentItem _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_current_item _obj' @@ -657,11 +755,14 @@ touchManagedPtr _obj return result' +data RecentChooserGetCurrentItemMethodInfo +instance (signature ~ (m RecentInfo), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetCurrentItemMethodInfo a signature where + overloadedMethod _ = recentChooserGetCurrentItem + -- method RecentChooser::get_current_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -673,8 +774,8 @@ recentChooserGetCurrentUri :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result recentChooserGetCurrentUri _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_current_uri _obj' @@ -684,11 +785,14 @@ touchManagedPtr _obj return result' +data RecentChooserGetCurrentUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetCurrentUriMethodInfo a signature where + overloadedMethod _ = recentChooserGetCurrentUri + -- method RecentChooser::get_filter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RecentFilter" -- throws : False -- Skip return : False @@ -700,8 +804,8 @@ recentChooserGetFilter :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m RecentFilter + a -- _obj + -> m RecentFilter -- result recentChooserGetFilter _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_filter _obj' @@ -710,11 +814,14 @@ touchManagedPtr _obj return result' +data RecentChooserGetFilterMethodInfo +instance (signature ~ (m RecentFilter), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetFilterMethodInfo a signature where + overloadedMethod _ = recentChooserGetFilter + -- method RecentChooser::get_items -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "RecentInfo") -- throws : False -- Skip return : False @@ -726,8 +833,8 @@ recentChooserGetItems :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m [RecentInfo] + a -- _obj + -> m [RecentInfo] -- result recentChooserGetItems _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_items _obj' @@ -738,11 +845,14 @@ touchManagedPtr _obj return result'' +data RecentChooserGetItemsMethodInfo +instance (signature ~ (m [RecentInfo]), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetItemsMethodInfo a signature where + overloadedMethod _ = recentChooserGetItems + -- method RecentChooser::get_limit -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -754,19 +864,22 @@ recentChooserGetLimit :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result recentChooserGetLimit _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_limit _obj' touchManagedPtr _obj return result +data RecentChooserGetLimitMethodInfo +instance (signature ~ (m Int32), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetLimitMethodInfo a signature where + overloadedMethod _ = recentChooserGetLimit + -- method RecentChooser::get_local_only -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -778,8 +891,8 @@ recentChooserGetLocalOnly :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result recentChooserGetLocalOnly _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_local_only _obj' @@ -787,11 +900,14 @@ touchManagedPtr _obj return result' +data RecentChooserGetLocalOnlyMethodInfo +instance (signature ~ (m Bool), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetLocalOnlyMethodInfo a signature where + overloadedMethod _ = recentChooserGetLocalOnly + -- method RecentChooser::get_select_multiple -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -803,8 +919,8 @@ recentChooserGetSelectMultiple :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result recentChooserGetSelectMultiple _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_select_multiple _obj' @@ -812,11 +928,14 @@ touchManagedPtr _obj return result' +data RecentChooserGetSelectMultipleMethodInfo +instance (signature ~ (m Bool), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetSelectMultipleMethodInfo a signature where + overloadedMethod _ = recentChooserGetSelectMultiple + -- method RecentChooser::get_show_icons -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -828,8 +947,8 @@ recentChooserGetShowIcons :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result recentChooserGetShowIcons _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_show_icons _obj' @@ -837,11 +956,14 @@ touchManagedPtr _obj return result' +data RecentChooserGetShowIconsMethodInfo +instance (signature ~ (m Bool), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetShowIconsMethodInfo a signature where + overloadedMethod _ = recentChooserGetShowIcons + -- method RecentChooser::get_show_not_found -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -853,8 +975,8 @@ recentChooserGetShowNotFound :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result recentChooserGetShowNotFound _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_show_not_found _obj' @@ -862,11 +984,14 @@ touchManagedPtr _obj return result' +data RecentChooserGetShowNotFoundMethodInfo +instance (signature ~ (m Bool), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetShowNotFoundMethodInfo a signature where + overloadedMethod _ = recentChooserGetShowNotFound + -- method RecentChooser::get_show_private -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -878,8 +1003,8 @@ recentChooserGetShowPrivate :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result recentChooserGetShowPrivate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_show_private _obj' @@ -887,11 +1012,14 @@ touchManagedPtr _obj return result' +data RecentChooserGetShowPrivateMethodInfo +instance (signature ~ (m Bool), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetShowPrivateMethodInfo a signature where + overloadedMethod _ = recentChooserGetShowPrivate + -- method RecentChooser::get_show_tips -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -903,8 +1031,8 @@ recentChooserGetShowTips :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result recentChooserGetShowTips _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_show_tips _obj' @@ -912,11 +1040,14 @@ touchManagedPtr _obj return result' +data RecentChooserGetShowTipsMethodInfo +instance (signature ~ (m Bool), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetShowTipsMethodInfo a signature where + overloadedMethod _ = recentChooserGetShowTips + -- method RecentChooser::get_sort_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RecentSortType" -- throws : False -- Skip return : False @@ -928,8 +1059,8 @@ recentChooserGetSortType :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m RecentSortType + a -- _obj + -> m RecentSortType -- result recentChooserGetSortType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_sort_type _obj' @@ -937,11 +1068,14 @@ touchManagedPtr _obj return result' +data RecentChooserGetSortTypeMethodInfo +instance (signature ~ (m RecentSortType), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetSortTypeMethodInfo a signature where + overloadedMethod _ = recentChooserGetSortType + -- method RecentChooser::get_uris -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) 1 (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -954,8 +1088,8 @@ recentChooserGetUris :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m ([T.Text],Word64) + a -- _obj + -> m ([T.Text],Word64) -- result recentChooserGetUris _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj length_ <- allocMem :: IO (Ptr Word64) @@ -969,11 +1103,14 @@ freeMem length_ return (result', length_') +data RecentChooserGetUrisMethodInfo +instance (signature ~ (m ([T.Text],Word64)), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserGetUrisMethodInfo a signature where + overloadedMethod _ = recentChooserGetUris + -- method RecentChooser::list_filters -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TInterface "Gtk" "RecentFilter") -- throws : False -- Skip return : False @@ -985,8 +1122,8 @@ recentChooserListFilters :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m [RecentFilter] + a -- _obj + -> m [RecentFilter] -- result recentChooserListFilters _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_list_filters _obj' @@ -997,11 +1134,14 @@ touchManagedPtr _obj return result'' +data RecentChooserListFiltersMethodInfo +instance (signature ~ (m [RecentFilter]), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserListFiltersMethodInfo a signature where + overloadedMethod _ = recentChooserListFilters + -- method RecentChooser::remove_filter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1014,9 +1154,9 @@ recentChooserRemoveFilter :: (MonadIO m, RecentChooserK a, RecentFilterK b) => - a -> -- _obj - b -> -- filter - m () + a -- _obj + -> b -- filter + -> m () -- result recentChooserRemoveFilter _obj filter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let filter' = unsafeManagedPtrCastPtr filter @@ -1025,11 +1165,14 @@ touchManagedPtr filter return () +data RecentChooserRemoveFilterMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, RecentChooserK a, RecentFilterK b) => MethodInfo RecentChooserRemoveFilterMethodInfo a signature where + overloadedMethod _ = recentChooserRemoveFilter + -- method RecentChooser::select_all -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1041,19 +1184,22 @@ recentChooserSelectAll :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result recentChooserSelectAll _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_recent_chooser_select_all _obj' touchManagedPtr _obj return () +data RecentChooserSelectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSelectAllMethodInfo a signature where + overloadedMethod _ = recentChooserSelectAll + -- method RecentChooser::select_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1067,9 +1213,9 @@ recentChooserSelectUri :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - T.Text -> -- uri - m () + a -- _obj + -> T.Text -- uri + -> m () -- result recentChooserSelectUri _obj uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri @@ -1082,11 +1228,14 @@ freeMem uri' ) +data RecentChooserSelectUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSelectUriMethodInfo a signature where + overloadedMethod _ = recentChooserSelectUri + -- method RecentChooser::set_current_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1100,9 +1249,9 @@ recentChooserSetCurrentUri :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - T.Text -> -- uri - m () + a -- _obj + -> T.Text -- uri + -> m () -- result recentChooserSetCurrentUri _obj uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri @@ -1115,11 +1264,14 @@ freeMem uri' ) +data RecentChooserSetCurrentUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetCurrentUriMethodInfo a signature where + overloadedMethod _ = recentChooserSetCurrentUri + -- method RecentChooser::set_filter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1132,9 +1284,9 @@ recentChooserSetFilter :: (MonadIO m, RecentChooserK a, RecentFilterK b) => - a -> -- _obj - Maybe (b) -> -- filter - m () + a -- _obj + -> Maybe (b) -- filter + -> m () -- result recentChooserSetFilter _obj filter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeFilter <- case filter of @@ -1147,11 +1299,14 @@ whenJust filter touchManagedPtr return () +data RecentChooserSetFilterMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, RecentChooserK a, RecentFilterK b) => MethodInfo RecentChooserSetFilterMethodInfo a signature where + overloadedMethod _ = recentChooserSetFilter + -- method RecentChooser::set_limit -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1164,20 +1319,23 @@ recentChooserSetLimit :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - Int32 -> -- limit - m () + a -- _obj + -> Int32 -- limit + -> m () -- result recentChooserSetLimit _obj limit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_recent_chooser_set_limit _obj' limit touchManagedPtr _obj return () +data RecentChooserSetLimitMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetLimitMethodInfo a signature where + overloadedMethod _ = recentChooserSetLimit + -- method RecentChooser::set_local_only -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1190,21 +1348,24 @@ recentChooserSetLocalOnly :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - Bool -> -- local_only - m () -recentChooserSetLocalOnly _obj local_only = liftIO $ do + a -- _obj + -> Bool -- localOnly + -> m () -- result +recentChooserSetLocalOnly _obj localOnly = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let local_only' = (fromIntegral . fromEnum) local_only - gtk_recent_chooser_set_local_only _obj' local_only' + let localOnly' = (fromIntegral . fromEnum) localOnly + gtk_recent_chooser_set_local_only _obj' localOnly' touchManagedPtr _obj return () +data RecentChooserSetLocalOnlyMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetLocalOnlyMethodInfo a signature where + overloadedMethod _ = recentChooserSetLocalOnly + -- method RecentChooser::set_select_multiple -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1217,21 +1378,24 @@ recentChooserSetSelectMultiple :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - Bool -> -- select_multiple - m () -recentChooserSetSelectMultiple _obj select_multiple = liftIO $ do + a -- _obj + -> Bool -- selectMultiple + -> m () -- result +recentChooserSetSelectMultiple _obj selectMultiple = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let select_multiple' = (fromIntegral . fromEnum) select_multiple - gtk_recent_chooser_set_select_multiple _obj' select_multiple' + let selectMultiple' = (fromIntegral . fromEnum) selectMultiple + gtk_recent_chooser_set_select_multiple _obj' selectMultiple' touchManagedPtr _obj return () +data RecentChooserSetSelectMultipleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetSelectMultipleMethodInfo a signature where + overloadedMethod _ = recentChooserSetSelectMultiple + -- method RecentChooser::set_show_icons -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_icons", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_icons", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_icons", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1244,21 +1408,24 @@ recentChooserSetShowIcons :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - Bool -> -- show_icons - m () -recentChooserSetShowIcons _obj show_icons = liftIO $ do + a -- _obj + -> Bool -- showIcons + -> m () -- result +recentChooserSetShowIcons _obj showIcons = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_icons' = (fromIntegral . fromEnum) show_icons - gtk_recent_chooser_set_show_icons _obj' show_icons' + let showIcons' = (fromIntegral . fromEnum) showIcons + gtk_recent_chooser_set_show_icons _obj' showIcons' touchManagedPtr _obj return () +data RecentChooserSetShowIconsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetShowIconsMethodInfo a signature where + overloadedMethod _ = recentChooserSetShowIcons + -- method RecentChooser::set_show_not_found -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_not_found", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_not_found", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_not_found", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1271,21 +1438,24 @@ recentChooserSetShowNotFound :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - Bool -> -- show_not_found - m () -recentChooserSetShowNotFound _obj show_not_found = liftIO $ do + a -- _obj + -> Bool -- showNotFound + -> m () -- result +recentChooserSetShowNotFound _obj showNotFound = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_not_found' = (fromIntegral . fromEnum) show_not_found - gtk_recent_chooser_set_show_not_found _obj' show_not_found' + let showNotFound' = (fromIntegral . fromEnum) showNotFound + gtk_recent_chooser_set_show_not_found _obj' showNotFound' touchManagedPtr _obj return () +data RecentChooserSetShowNotFoundMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetShowNotFoundMethodInfo a signature where + overloadedMethod _ = recentChooserSetShowNotFound + -- method RecentChooser::set_show_private -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1298,21 +1468,24 @@ recentChooserSetShowPrivate :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - Bool -> -- show_private - m () -recentChooserSetShowPrivate _obj show_private = liftIO $ do + a -- _obj + -> Bool -- showPrivate + -> m () -- result +recentChooserSetShowPrivate _obj showPrivate = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_private' = (fromIntegral . fromEnum) show_private - gtk_recent_chooser_set_show_private _obj' show_private' + let showPrivate' = (fromIntegral . fromEnum) showPrivate + gtk_recent_chooser_set_show_private _obj' showPrivate' touchManagedPtr _obj return () +data RecentChooserSetShowPrivateMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetShowPrivateMethodInfo a signature where + overloadedMethod _ = recentChooserSetShowPrivate + -- method RecentChooser::set_show_tips -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_tips", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_tips", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_tips", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1325,21 +1498,24 @@ recentChooserSetShowTips :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - Bool -> -- show_tips - m () -recentChooserSetShowTips _obj show_tips = liftIO $ do + a -- _obj + -> Bool -- showTips + -> m () -- result +recentChooserSetShowTips _obj showTips = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_tips' = (fromIntegral . fromEnum) show_tips - gtk_recent_chooser_set_show_tips _obj' show_tips' + let showTips' = (fromIntegral . fromEnum) showTips + gtk_recent_chooser_set_show_tips _obj' showTips' touchManagedPtr _obj return () +data RecentChooserSetShowTipsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetShowTipsMethodInfo a signature where + overloadedMethod _ = recentChooserSetShowTips + -- method RecentChooser::set_sort_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "RecentSortFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "sort_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "RecentSortFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "RecentSortFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1354,23 +1530,26 @@ recentChooserSetSortFunc :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - RecentSortFunc -> -- sort_func - m () -recentChooserSetSortFunc _obj sort_func = liftIO $ do + a -- _obj + -> RecentSortFunc -- sortFunc + -> m () -- result +recentChooserSetSortFunc _obj sortFunc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - sort_func' <- mkRecentSortFunc (recentSortFuncWrapper Nothing sort_func) - let sort_data = castFunPtrToPtr sort_func' - let data_destroy = safeFreeFunPtrPtr - gtk_recent_chooser_set_sort_func _obj' sort_func' sort_data data_destroy + sortFunc' <- mkRecentSortFunc (recentSortFuncWrapper Nothing sortFunc) + let sortData = castFunPtrToPtr sortFunc' + let dataDestroy = safeFreeFunPtrPtr + gtk_recent_chooser_set_sort_func _obj' sortFunc' sortData dataDestroy touchManagedPtr _obj return () +data RecentChooserSetSortFuncMethodInfo +instance (signature ~ (RecentSortFunc -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetSortFuncMethodInfo a signature where + overloadedMethod _ = recentChooserSetSortFunc + -- method RecentChooser::set_sort_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_type", argType = TInterface "Gtk" "RecentSortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_type", argType = TInterface "Gtk" "RecentSortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_type", argType = TInterface "Gtk" "RecentSortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1383,21 +1562,24 @@ recentChooserSetSortType :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - RecentSortType -> -- sort_type - m () -recentChooserSetSortType _obj sort_type = liftIO $ do + a -- _obj + -> RecentSortType -- sortType + -> m () -- result +recentChooserSetSortType _obj sortType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let sort_type' = (fromIntegral . fromEnum) sort_type - gtk_recent_chooser_set_sort_type _obj' sort_type' + let sortType' = (fromIntegral . fromEnum) sortType + gtk_recent_chooser_set_sort_type _obj' sortType' touchManagedPtr _obj return () +data RecentChooserSetSortTypeMethodInfo +instance (signature ~ (RecentSortType -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserSetSortTypeMethodInfo a signature where + overloadedMethod _ = recentChooserSetSortType + -- method RecentChooser::unselect_all -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1409,19 +1591,22 @@ recentChooserUnselectAll :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result recentChooserUnselectAll _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_recent_chooser_unselect_all _obj' touchManagedPtr _obj return () +data RecentChooserUnselectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserUnselectAllMethodInfo a signature where + overloadedMethod _ = recentChooserUnselectAll + -- method RecentChooser::unselect_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1434,9 +1619,9 @@ recentChooserUnselectUri :: (MonadIO m, RecentChooserK a) => - a -> -- _obj - T.Text -> -- uri - m () + a -- _obj + -> T.Text -- uri + -> m () -- result recentChooserUnselectUri _obj uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri @@ -1444,5 +1629,9 @@ touchManagedPtr _obj freeMem uri' return () + +data RecentChooserUnselectUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, RecentChooserK a) => MethodInfo RecentChooserUnselectUriMethodInfo a signature where + overloadedMethod _ = recentChooserUnselectUri diff --git a/GI/Gtk/Interfaces/RecentChooser.hs-boot b/GI/Gtk/Interfaces/RecentChooser.hs-boot --- a/GI/Gtk/Interfaces/RecentChooser.hs-boot +++ b/GI/Gtk/Interfaces/RecentChooser.hs-boot @@ -23,3 +23,34 @@ instance GObject RecentChooser where class GObject o => RecentChooserK o instance (GObject o, IsDescendantOf RecentChooser o) => RecentChooserK o +data RecentChooserAddFilterMethodInfo +data RecentChooserGetCurrentItemMethodInfo +data RecentChooserGetCurrentUriMethodInfo +data RecentChooserGetFilterMethodInfo +data RecentChooserGetItemsMethodInfo +data RecentChooserGetLimitMethodInfo +data RecentChooserGetLocalOnlyMethodInfo +data RecentChooserGetSelectMultipleMethodInfo +data RecentChooserGetShowIconsMethodInfo +data RecentChooserGetShowNotFoundMethodInfo +data RecentChooserGetShowPrivateMethodInfo +data RecentChooserGetShowTipsMethodInfo +data RecentChooserGetSortTypeMethodInfo +data RecentChooserGetUrisMethodInfo +data RecentChooserListFiltersMethodInfo +data RecentChooserRemoveFilterMethodInfo +data RecentChooserSelectAllMethodInfo +data RecentChooserSelectUriMethodInfo +data RecentChooserSetCurrentUriMethodInfo +data RecentChooserSetFilterMethodInfo +data RecentChooserSetLimitMethodInfo +data RecentChooserSetLocalOnlyMethodInfo +data RecentChooserSetSelectMultipleMethodInfo +data RecentChooserSetShowIconsMethodInfo +data RecentChooserSetShowNotFoundMethodInfo +data RecentChooserSetShowPrivateMethodInfo +data RecentChooserSetShowTipsMethodInfo +data RecentChooserSetSortFuncMethodInfo +data RecentChooserSetSortTypeMethodInfo +data RecentChooserUnselectAllMethodInfo +data RecentChooserUnselectUriMethodInfo diff --git a/GI/Gtk/Interfaces/Scrollable.hs b/GI/Gtk/Interfaces/Scrollable.hs --- a/GI/Gtk/Interfaces/Scrollable.hs +++ b/GI/Gtk/Interfaces/Scrollable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,38 +18,47 @@ -- * Methods -- ** scrollableGetBorder + ScrollableGetBorderMethodInfo , scrollableGetBorder , -- ** scrollableGetHadjustment + ScrollableGetHadjustmentMethodInfo , scrollableGetHadjustment , -- ** scrollableGetHscrollPolicy + ScrollableGetHscrollPolicyMethodInfo , scrollableGetHscrollPolicy , -- ** scrollableGetVadjustment + ScrollableGetVadjustmentMethodInfo , scrollableGetVadjustment , -- ** scrollableGetVscrollPolicy + ScrollableGetVscrollPolicyMethodInfo , scrollableGetVscrollPolicy , -- ** scrollableSetHadjustment + ScrollableSetHadjustmentMethodInfo , scrollableSetHadjustment , -- ** scrollableSetHscrollPolicy + ScrollableSetHscrollPolicyMethodInfo , scrollableSetHscrollPolicy , -- ** scrollableSetVadjustment + ScrollableSetVadjustmentMethodInfo , scrollableSetVadjustment , -- ** scrollableSetVscrollPolicy + ScrollableSetVscrollPolicyMethodInfo , scrollableSetVscrollPolicy , @@ -104,6 +114,48 @@ noScrollable :: Maybe Scrollable noScrollable = Nothing +type family ResolveScrollableMethod (t :: Symbol) (o :: *) :: * where + ResolveScrollableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveScrollableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveScrollableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveScrollableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveScrollableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveScrollableMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveScrollableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveScrollableMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveScrollableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveScrollableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveScrollableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveScrollableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveScrollableMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveScrollableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveScrollableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveScrollableMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveScrollableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveScrollableMethod "getBorder" o = ScrollableGetBorderMethodInfo + ResolveScrollableMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveScrollableMethod "getHadjustment" o = ScrollableGetHadjustmentMethodInfo + ResolveScrollableMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo + ResolveScrollableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveScrollableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveScrollableMethod "getVadjustment" o = ScrollableGetVadjustmentMethodInfo + ResolveScrollableMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo + ResolveScrollableMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveScrollableMethod "setHadjustment" o = ScrollableSetHadjustmentMethodInfo + ResolveScrollableMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo + ResolveScrollableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveScrollableMethod "setVadjustment" o = ScrollableSetVadjustmentMethodInfo + ResolveScrollableMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo + ResolveScrollableMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveScrollableMethod t Scrollable, MethodInfo info Scrollable p) => IsLabelProxy t (Scrollable -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveScrollableMethod t Scrollable, MethodInfo info Scrollable p) => IsLabel t (Scrollable -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "hadjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] @@ -123,7 +175,7 @@ type AttrSetTypeConstraint ScrollableHadjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint ScrollableHadjustmentPropertyInfo = ScrollableK type AttrGetType ScrollableHadjustmentPropertyInfo = Adjustment - type AttrLabel ScrollableHadjustmentPropertyInfo = "Scrollable::hadjustment" + type AttrLabel ScrollableHadjustmentPropertyInfo = "hadjustment" attrGet _ = getScrollableHadjustment attrSet _ = setScrollableHadjustment attrConstruct _ = constructScrollableHadjustment @@ -147,7 +199,7 @@ type AttrSetTypeConstraint ScrollableHscrollPolicyPropertyInfo = (~) ScrollablePolicy type AttrBaseTypeConstraint ScrollableHscrollPolicyPropertyInfo = ScrollableK type AttrGetType ScrollableHscrollPolicyPropertyInfo = ScrollablePolicy - type AttrLabel ScrollableHscrollPolicyPropertyInfo = "Scrollable::hscroll-policy" + type AttrLabel ScrollableHscrollPolicyPropertyInfo = "hscroll-policy" attrGet _ = getScrollableHscrollPolicy attrSet _ = setScrollableHscrollPolicy attrConstruct _ = constructScrollableHscrollPolicy @@ -171,7 +223,7 @@ type AttrSetTypeConstraint ScrollableVadjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint ScrollableVadjustmentPropertyInfo = ScrollableK type AttrGetType ScrollableVadjustmentPropertyInfo = Adjustment - type AttrLabel ScrollableVadjustmentPropertyInfo = "Scrollable::vadjustment" + type AttrLabel ScrollableVadjustmentPropertyInfo = "vadjustment" attrGet _ = getScrollableVadjustment attrSet _ = setScrollableVadjustment attrConstruct _ = constructScrollableVadjustment @@ -195,16 +247,16 @@ type AttrSetTypeConstraint ScrollableVscrollPolicyPropertyInfo = (~) ScrollablePolicy type AttrBaseTypeConstraint ScrollableVscrollPolicyPropertyInfo = ScrollableK type AttrGetType ScrollableVscrollPolicyPropertyInfo = ScrollablePolicy - type AttrLabel ScrollableVscrollPolicyPropertyInfo = "Scrollable::vscroll-policy" + type AttrLabel ScrollableVscrollPolicyPropertyInfo = "vscroll-policy" attrGet _ = getScrollableVscrollPolicy attrSet _ = setScrollableVscrollPolicy attrConstruct _ = constructScrollableVscrollPolicy type instance AttributeList Scrollable = ScrollableAttributeList -type ScrollableAttributeList = ('[ '("hadjustment", ScrollableHadjustmentPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo)] :: [(Symbol, *)]) +type ScrollableAttributeList = ('[ '("hadjustment", ScrollableHadjustmentPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Scrollable = ScrollableSignalList -type ScrollableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ScrollableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_scrollable_get_type" c_gtk_scrollable_get_type :: IO GType @@ -225,9 +277,8 @@ -- method Scrollable::get_border -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -240,9 +291,9 @@ scrollableGetBorder :: (MonadIO m, ScrollableK a) => - a -> -- _obj - Border -> -- border - m Bool + a -- _obj + -> Border -- border + -> m Bool -- result scrollableGetBorder _obj border = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let border' = unsafeManagedPtrGetPtr border @@ -252,11 +303,14 @@ touchManagedPtr border return result' +data ScrollableGetBorderMethodInfo +instance (signature ~ (Border -> m Bool), MonadIO m, ScrollableK a) => MethodInfo ScrollableGetBorderMethodInfo a signature where + overloadedMethod _ = scrollableGetBorder + -- method Scrollable::get_hadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -268,8 +322,8 @@ scrollableGetHadjustment :: (MonadIO m, ScrollableK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result scrollableGetHadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrollable_get_hadjustment _obj' @@ -278,11 +332,14 @@ touchManagedPtr _obj return result' +data ScrollableGetHadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, ScrollableK a) => MethodInfo ScrollableGetHadjustmentMethodInfo a signature where + overloadedMethod _ = scrollableGetHadjustment + -- method Scrollable::get_hscroll_policy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ScrollablePolicy" -- throws : False -- Skip return : False @@ -294,8 +351,8 @@ scrollableGetHscrollPolicy :: (MonadIO m, ScrollableK a) => - a -> -- _obj - m ScrollablePolicy + a -- _obj + -> m ScrollablePolicy -- result scrollableGetHscrollPolicy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrollable_get_hscroll_policy _obj' @@ -303,11 +360,14 @@ touchManagedPtr _obj return result' +data ScrollableGetHscrollPolicyMethodInfo +instance (signature ~ (m ScrollablePolicy), MonadIO m, ScrollableK a) => MethodInfo ScrollableGetHscrollPolicyMethodInfo a signature where + overloadedMethod _ = scrollableGetHscrollPolicy + -- method Scrollable::get_vadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -319,8 +379,8 @@ scrollableGetVadjustment :: (MonadIO m, ScrollableK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result scrollableGetVadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrollable_get_vadjustment _obj' @@ -329,11 +389,14 @@ touchManagedPtr _obj return result' +data ScrollableGetVadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, ScrollableK a) => MethodInfo ScrollableGetVadjustmentMethodInfo a signature where + overloadedMethod _ = scrollableGetVadjustment + -- method Scrollable::get_vscroll_policy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ScrollablePolicy" -- throws : False -- Skip return : False @@ -345,8 +408,8 @@ scrollableGetVscrollPolicy :: (MonadIO m, ScrollableK a) => - a -> -- _obj - m ScrollablePolicy + a -- _obj + -> m ScrollablePolicy -- result scrollableGetVscrollPolicy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrollable_get_vscroll_policy _obj' @@ -354,11 +417,14 @@ touchManagedPtr _obj return result' +data ScrollableGetVscrollPolicyMethodInfo +instance (signature ~ (m ScrollablePolicy), MonadIO m, ScrollableK a) => MethodInfo ScrollableGetVscrollPolicyMethodInfo a signature where + overloadedMethod _ = scrollableGetVscrollPolicy + -- method Scrollable::set_hadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -371,9 +437,9 @@ scrollableSetHadjustment :: (MonadIO m, ScrollableK a, AdjustmentK b) => - a -> -- _obj - Maybe (b) -> -- hadjustment - m () + a -- _obj + -> Maybe (b) -- hadjustment + -> m () -- result scrollableSetHadjustment _obj hadjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeHadjustment <- case hadjustment of @@ -386,11 +452,14 @@ whenJust hadjustment touchManagedPtr return () +data ScrollableSetHadjustmentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ScrollableK a, AdjustmentK b) => MethodInfo ScrollableSetHadjustmentMethodInfo a signature where + overloadedMethod _ = scrollableSetHadjustment + -- method Scrollable::set_hscroll_policy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -403,9 +472,9 @@ scrollableSetHscrollPolicy :: (MonadIO m, ScrollableK a) => - a -> -- _obj - ScrollablePolicy -> -- policy - m () + a -- _obj + -> ScrollablePolicy -- policy + -> m () -- result scrollableSetHscrollPolicy _obj policy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let policy' = (fromIntegral . fromEnum) policy @@ -413,11 +482,14 @@ touchManagedPtr _obj return () +data ScrollableSetHscrollPolicyMethodInfo +instance (signature ~ (ScrollablePolicy -> m ()), MonadIO m, ScrollableK a) => MethodInfo ScrollableSetHscrollPolicyMethodInfo a signature where + overloadedMethod _ = scrollableSetHscrollPolicy + -- method Scrollable::set_vadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -430,9 +502,9 @@ scrollableSetVadjustment :: (MonadIO m, ScrollableK a, AdjustmentK b) => - a -> -- _obj - Maybe (b) -> -- vadjustment - m () + a -- _obj + -> Maybe (b) -- vadjustment + -> m () -- result scrollableSetVadjustment _obj vadjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeVadjustment <- case vadjustment of @@ -445,11 +517,14 @@ whenJust vadjustment touchManagedPtr return () +data ScrollableSetVadjustmentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ScrollableK a, AdjustmentK b) => MethodInfo ScrollableSetVadjustmentMethodInfo a signature where + overloadedMethod _ = scrollableSetVadjustment + -- method Scrollable::set_vscroll_policy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -462,14 +537,18 @@ scrollableSetVscrollPolicy :: (MonadIO m, ScrollableK a) => - a -> -- _obj - ScrollablePolicy -> -- policy - m () + a -- _obj + -> ScrollablePolicy -- policy + -> m () -- result scrollableSetVscrollPolicy _obj policy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let policy' = (fromIntegral . fromEnum) policy gtk_scrollable_set_vscroll_policy _obj' policy' touchManagedPtr _obj return () + +data ScrollableSetVscrollPolicyMethodInfo +instance (signature ~ (ScrollablePolicy -> m ()), MonadIO m, ScrollableK a) => MethodInfo ScrollableSetVscrollPolicyMethodInfo a signature where + overloadedMethod _ = scrollableSetVscrollPolicy diff --git a/GI/Gtk/Interfaces/Scrollable.hs-boot b/GI/Gtk/Interfaces/Scrollable.hs-boot --- a/GI/Gtk/Interfaces/Scrollable.hs-boot +++ b/GI/Gtk/Interfaces/Scrollable.hs-boot @@ -15,3 +15,12 @@ instance GObject Scrollable where class GObject o => ScrollableK o instance (GObject o, IsDescendantOf Scrollable o) => ScrollableK o +data ScrollableGetBorderMethodInfo +data ScrollableGetHadjustmentMethodInfo +data ScrollableGetHscrollPolicyMethodInfo +data ScrollableGetVadjustmentMethodInfo +data ScrollableGetVscrollPolicyMethodInfo +data ScrollableSetHadjustmentMethodInfo +data ScrollableSetHscrollPolicyMethodInfo +data ScrollableSetVadjustmentMethodInfo +data ScrollableSetVscrollPolicyMethodInfo diff --git a/GI/Gtk/Interfaces/StyleProvider.hs b/GI/Gtk/Interfaces/StyleProvider.hs --- a/GI/Gtk/Interfaces/StyleProvider.hs +++ b/GI/Gtk/Interfaces/StyleProvider.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,14 +17,17 @@ -- * Methods -- ** styleProviderGetIconFactory + StyleProviderGetIconFactoryMethodInfo , styleProviderGetIconFactory , -- ** styleProviderGetStyle + StyleProviderGetStyleMethodInfo , styleProviderGetStyle , -- ** styleProviderGetStyleProperty + StyleProviderGetStylePropertyMethodInfo , styleProviderGetStyleProperty , @@ -47,6 +51,20 @@ noStyleProvider :: Maybe StyleProvider noStyleProvider = Nothing +type family ResolveStyleProviderMethod (t :: Symbol) (o :: *) :: * where + ResolveStyleProviderMethod "getIconFactory" o = StyleProviderGetIconFactoryMethodInfo + ResolveStyleProviderMethod "getStyle" o = StyleProviderGetStyleMethodInfo + ResolveStyleProviderMethod "getStyleProperty" o = StyleProviderGetStylePropertyMethodInfo + ResolveStyleProviderMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveStyleProviderMethod t StyleProvider, MethodInfo info StyleProvider p) => IsLabelProxy t (StyleProvider -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveStyleProviderMethod t StyleProvider, MethodInfo info StyleProvider p) => IsLabel t (StyleProvider -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList StyleProvider = StyleProviderAttributeList type StyleProviderAttributeList = ('[ ] :: [(Symbol, *)]) @@ -60,9 +78,8 @@ -- method StyleProvider::get_icon_factory -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconFactory" -- throws : False -- Skip return : False @@ -75,9 +92,9 @@ {-# DEPRECATED styleProviderGetIconFactory ["(Since version 3.8)","Will always return %NULL for all GTK-provided style providers."]#-} styleProviderGetIconFactory :: (MonadIO m, StyleProviderK a) => - a -> -- _obj - WidgetPath -> -- path - m IconFactory + a -- _obj + -> WidgetPath -- path + -> m IconFactory -- result styleProviderGetIconFactory _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -88,11 +105,14 @@ touchManagedPtr path return result' +data StyleProviderGetIconFactoryMethodInfo +instance (signature ~ (WidgetPath -> m IconFactory), MonadIO m, StyleProviderK a) => MethodInfo StyleProviderGetIconFactoryMethodInfo a signature where + overloadedMethod _ = styleProviderGetIconFactory + -- method StyleProvider::get_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StyleProperties" -- throws : False -- Skip return : False @@ -105,9 +125,9 @@ {-# DEPRECATED styleProviderGetStyle ["(Since version 3.8)","Will always return %NULL for all GTK-provided style providers"," as the interface cannot correctly work the way CSS is specified."]#-} styleProviderGetStyle :: (MonadIO m, StyleProviderK a) => - a -> -- _obj - WidgetPath -> -- path - m StyleProperties + a -- _obj + -> WidgetPath -- path + -> m StyleProperties -- result styleProviderGetStyle _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -118,11 +138,14 @@ touchManagedPtr path return result' +data StyleProviderGetStyleMethodInfo +instance (signature ~ (WidgetPath -> m StyleProperties), MonadIO m, StyleProviderK a) => MethodInfo StyleProviderGetStyleMethodInfo a signature where + overloadedMethod _ = styleProviderGetStyle + -- method StyleProvider::get_style_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -138,11 +161,11 @@ styleProviderGetStyleProperty :: (MonadIO m, StyleProviderK a) => - a -> -- _obj - WidgetPath -> -- path - [StateFlags] -> -- state - GParamSpec -> -- pspec - m (Bool,GValue) + a -- _obj + -> WidgetPath -- path + -> [StateFlags] -- state + -> GParamSpec -- pspec + -> m (Bool,GValue) -- result styleProviderGetStyleProperty _obj path state pspec = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -155,5 +178,9 @@ touchManagedPtr _obj touchManagedPtr path return (result', value') + +data StyleProviderGetStylePropertyMethodInfo +instance (signature ~ (WidgetPath -> [StateFlags] -> GParamSpec -> m (Bool,GValue)), MonadIO m, StyleProviderK a) => MethodInfo StyleProviderGetStylePropertyMethodInfo a signature where + overloadedMethod _ = styleProviderGetStyleProperty diff --git a/GI/Gtk/Interfaces/StyleProvider.hs-boot b/GI/Gtk/Interfaces/StyleProvider.hs-boot --- a/GI/Gtk/Interfaces/StyleProvider.hs-boot +++ b/GI/Gtk/Interfaces/StyleProvider.hs-boot @@ -10,3 +10,6 @@ newtype StyleProvider = StyleProvider (ForeignPtr StyleProvider) class ForeignPtrNewtype a => StyleProviderK a instance (ForeignPtrNewtype o, IsDescendantOf StyleProvider o) => StyleProviderK o +data StyleProviderGetIconFactoryMethodInfo +data StyleProviderGetStyleMethodInfo +data StyleProviderGetStylePropertyMethodInfo diff --git a/GI/Gtk/Interfaces/ToolShell.hs b/GI/Gtk/Interfaces/ToolShell.hs --- a/GI/Gtk/Interfaces/ToolShell.hs +++ b/GI/Gtk/Interfaces/ToolShell.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,38 +18,47 @@ -- * Methods -- ** toolShellGetEllipsizeMode + ToolShellGetEllipsizeModeMethodInfo , toolShellGetEllipsizeMode , -- ** toolShellGetIconSize + ToolShellGetIconSizeMethodInfo , toolShellGetIconSize , -- ** toolShellGetOrientation + ToolShellGetOrientationMethodInfo , toolShellGetOrientation , -- ** toolShellGetReliefStyle + ToolShellGetReliefStyleMethodInfo , toolShellGetReliefStyle , -- ** toolShellGetStyle + ToolShellGetStyleMethodInfo , toolShellGetStyle , -- ** toolShellGetTextAlignment + ToolShellGetTextAlignmentMethodInfo , toolShellGetTextAlignment , -- ** toolShellGetTextOrientation + ToolShellGetTextOrientationMethodInfo , toolShellGetTextOrientation , -- ** toolShellGetTextSizeGroup + ToolShellGetTextSizeGroupMethodInfo , toolShellGetTextSizeGroup , -- ** toolShellRebuildMenu + ToolShellRebuildMenuMethodInfo , toolShellRebuildMenu , @@ -74,11 +84,314 @@ noToolShell :: Maybe ToolShell noToolShell = Nothing +type family ResolveToolShellMethod (t :: Symbol) (o :: *) :: * where + ResolveToolShellMethod "activate" o = WidgetActivateMethodInfo + ResolveToolShellMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveToolShellMethod "addChild" o = BuildableAddChildMethodInfo + ResolveToolShellMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveToolShellMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveToolShellMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveToolShellMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveToolShellMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveToolShellMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveToolShellMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveToolShellMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveToolShellMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveToolShellMethod "classPath" o = WidgetClassPathMethodInfo + ResolveToolShellMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveToolShellMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveToolShellMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveToolShellMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveToolShellMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveToolShellMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveToolShellMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveToolShellMethod "destroy" o = WidgetDestroyMethodInfo + ResolveToolShellMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveToolShellMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveToolShellMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveToolShellMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveToolShellMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveToolShellMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveToolShellMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveToolShellMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveToolShellMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveToolShellMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveToolShellMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveToolShellMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveToolShellMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveToolShellMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveToolShellMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveToolShellMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveToolShellMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveToolShellMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveToolShellMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveToolShellMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveToolShellMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveToolShellMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveToolShellMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveToolShellMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveToolShellMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveToolShellMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveToolShellMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveToolShellMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveToolShellMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveToolShellMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveToolShellMethod "draw" o = WidgetDrawMethodInfo + ResolveToolShellMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveToolShellMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveToolShellMethod "event" o = WidgetEventMethodInfo + ResolveToolShellMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveToolShellMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveToolShellMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveToolShellMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveToolShellMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveToolShellMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveToolShellMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveToolShellMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveToolShellMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveToolShellMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveToolShellMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveToolShellMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveToolShellMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveToolShellMethod "hide" o = WidgetHideMethodInfo + ResolveToolShellMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveToolShellMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveToolShellMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveToolShellMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveToolShellMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveToolShellMethod "intersect" o = WidgetIntersectMethodInfo + ResolveToolShellMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveToolShellMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveToolShellMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveToolShellMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveToolShellMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveToolShellMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveToolShellMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveToolShellMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveToolShellMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveToolShellMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveToolShellMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveToolShellMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveToolShellMethod "map" o = WidgetMapMethodInfo + ResolveToolShellMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveToolShellMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveToolShellMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveToolShellMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveToolShellMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveToolShellMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveToolShellMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveToolShellMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveToolShellMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveToolShellMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveToolShellMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveToolShellMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveToolShellMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveToolShellMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveToolShellMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveToolShellMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveToolShellMethod "path" o = WidgetPathMethodInfo + ResolveToolShellMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveToolShellMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveToolShellMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveToolShellMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveToolShellMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveToolShellMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveToolShellMethod "realize" o = WidgetRealizeMethodInfo + ResolveToolShellMethod "rebuildMenu" o = ToolShellRebuildMenuMethodInfo + ResolveToolShellMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveToolShellMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveToolShellMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveToolShellMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveToolShellMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveToolShellMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveToolShellMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveToolShellMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveToolShellMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveToolShellMethod "reparent" o = WidgetReparentMethodInfo + ResolveToolShellMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveToolShellMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveToolShellMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveToolShellMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveToolShellMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveToolShellMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveToolShellMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveToolShellMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveToolShellMethod "show" o = WidgetShowMethodInfo + ResolveToolShellMethod "showAll" o = WidgetShowAllMethodInfo + ResolveToolShellMethod "showNow" o = WidgetShowNowMethodInfo + ResolveToolShellMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveToolShellMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveToolShellMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveToolShellMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveToolShellMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveToolShellMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveToolShellMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveToolShellMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveToolShellMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveToolShellMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveToolShellMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveToolShellMethod "unmap" o = WidgetUnmapMethodInfo + ResolveToolShellMethod "unparent" o = WidgetUnparentMethodInfo + ResolveToolShellMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveToolShellMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveToolShellMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveToolShellMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveToolShellMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveToolShellMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveToolShellMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveToolShellMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveToolShellMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveToolShellMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveToolShellMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveToolShellMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveToolShellMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveToolShellMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveToolShellMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveToolShellMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveToolShellMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveToolShellMethod "getClip" o = WidgetGetClipMethodInfo + ResolveToolShellMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveToolShellMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveToolShellMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveToolShellMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveToolShellMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveToolShellMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveToolShellMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveToolShellMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveToolShellMethod "getEllipsizeMode" o = ToolShellGetEllipsizeModeMethodInfo + ResolveToolShellMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveToolShellMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveToolShellMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveToolShellMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveToolShellMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveToolShellMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveToolShellMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveToolShellMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveToolShellMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveToolShellMethod "getIconSize" o = ToolShellGetIconSizeMethodInfo + ResolveToolShellMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveToolShellMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveToolShellMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveToolShellMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveToolShellMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveToolShellMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveToolShellMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveToolShellMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveToolShellMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveToolShellMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveToolShellMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveToolShellMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveToolShellMethod "getOrientation" o = ToolShellGetOrientationMethodInfo + ResolveToolShellMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveToolShellMethod "getParent" o = WidgetGetParentMethodInfo + ResolveToolShellMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveToolShellMethod "getPath" o = WidgetGetPathMethodInfo + ResolveToolShellMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveToolShellMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveToolShellMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveToolShellMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveToolShellMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveToolShellMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveToolShellMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveToolShellMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveToolShellMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveToolShellMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveToolShellMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveToolShellMethod "getReliefStyle" o = ToolShellGetReliefStyleMethodInfo + ResolveToolShellMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveToolShellMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveToolShellMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveToolShellMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveToolShellMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveToolShellMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveToolShellMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveToolShellMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveToolShellMethod "getState" o = WidgetGetStateMethodInfo + ResolveToolShellMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveToolShellMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveToolShellMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveToolShellMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveToolShellMethod "getTextAlignment" o = ToolShellGetTextAlignmentMethodInfo + ResolveToolShellMethod "getTextOrientation" o = ToolShellGetTextOrientationMethodInfo + ResolveToolShellMethod "getTextSizeGroup" o = ToolShellGetTextSizeGroupMethodInfo + ResolveToolShellMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveToolShellMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveToolShellMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveToolShellMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveToolShellMethod "getValign" o = WidgetGetValignMethodInfo + ResolveToolShellMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveToolShellMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveToolShellMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveToolShellMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveToolShellMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveToolShellMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveToolShellMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveToolShellMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveToolShellMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveToolShellMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveToolShellMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveToolShellMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveToolShellMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveToolShellMethod "setClip" o = WidgetSetClipMethodInfo + ResolveToolShellMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveToolShellMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveToolShellMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveToolShellMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveToolShellMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveToolShellMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveToolShellMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveToolShellMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveToolShellMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveToolShellMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveToolShellMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveToolShellMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveToolShellMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveToolShellMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveToolShellMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveToolShellMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveToolShellMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveToolShellMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveToolShellMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveToolShellMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveToolShellMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveToolShellMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveToolShellMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveToolShellMethod "setParent" o = WidgetSetParentMethodInfo + ResolveToolShellMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveToolShellMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveToolShellMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveToolShellMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveToolShellMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveToolShellMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveToolShellMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveToolShellMethod "setState" o = WidgetSetStateMethodInfo + ResolveToolShellMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveToolShellMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveToolShellMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveToolShellMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveToolShellMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveToolShellMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveToolShellMethod "setValign" o = WidgetSetValignMethodInfo + ResolveToolShellMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveToolShellMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveToolShellMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveToolShellMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveToolShellMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveToolShellMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveToolShellMethod t ToolShell, MethodInfo info ToolShell p) => IsLabelProxy t (ToolShell -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveToolShellMethod t ToolShell, MethodInfo info ToolShell p) => IsLabel t (ToolShell -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ToolShell = ToolShellAttributeList -type ToolShellAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ToolShellAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ToolShell = ToolShellSignalList -type ToolShellSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ToolShellSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_tool_shell_get_type" c_gtk_tool_shell_get_type :: IO GType @@ -99,9 +412,8 @@ -- method ToolShell::get_ellipsize_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "EllipsizeMode" -- throws : False -- Skip return : False @@ -113,8 +425,8 @@ toolShellGetEllipsizeMode :: (MonadIO m, ToolShellK a) => - a -> -- _obj - m Pango.EllipsizeMode + a -- _obj + -> m Pango.EllipsizeMode -- result toolShellGetEllipsizeMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_shell_get_ellipsize_mode _obj' @@ -122,11 +434,14 @@ touchManagedPtr _obj return result' +data ToolShellGetEllipsizeModeMethodInfo +instance (signature ~ (m Pango.EllipsizeMode), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetEllipsizeModeMethodInfo a signature where + overloadedMethod _ = toolShellGetEllipsizeMode + -- method ToolShell::get_icon_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -138,19 +453,22 @@ toolShellGetIconSize :: (MonadIO m, ToolShellK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result toolShellGetIconSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_shell_get_icon_size _obj' touchManagedPtr _obj return result +data ToolShellGetIconSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetIconSizeMethodInfo a signature where + overloadedMethod _ = toolShellGetIconSize + -- method ToolShell::get_orientation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Orientation" -- throws : False -- Skip return : False @@ -162,8 +480,8 @@ toolShellGetOrientation :: (MonadIO m, ToolShellK a) => - a -> -- _obj - m Orientation + a -- _obj + -> m Orientation -- result toolShellGetOrientation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_shell_get_orientation _obj' @@ -171,11 +489,14 @@ touchManagedPtr _obj return result' +data ToolShellGetOrientationMethodInfo +instance (signature ~ (m Orientation), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetOrientationMethodInfo a signature where + overloadedMethod _ = toolShellGetOrientation + -- method ToolShell::get_relief_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ReliefStyle" -- throws : False -- Skip return : False @@ -187,8 +508,8 @@ toolShellGetReliefStyle :: (MonadIO m, ToolShellK a) => - a -> -- _obj - m ReliefStyle + a -- _obj + -> m ReliefStyle -- result toolShellGetReliefStyle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_shell_get_relief_style _obj' @@ -196,11 +517,14 @@ touchManagedPtr _obj return result' +data ToolShellGetReliefStyleMethodInfo +instance (signature ~ (m ReliefStyle), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetReliefStyleMethodInfo a signature where + overloadedMethod _ = toolShellGetReliefStyle + -- method ToolShell::get_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToolbarStyle" -- throws : False -- Skip return : False @@ -212,8 +536,8 @@ toolShellGetStyle :: (MonadIO m, ToolShellK a) => - a -> -- _obj - m ToolbarStyle + a -- _obj + -> m ToolbarStyle -- result toolShellGetStyle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_shell_get_style _obj' @@ -221,11 +545,14 @@ touchManagedPtr _obj return result' +data ToolShellGetStyleMethodInfo +instance (signature ~ (m ToolbarStyle), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetStyleMethodInfo a signature where + overloadedMethod _ = toolShellGetStyle + -- method ToolShell::get_text_alignment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TFloat -- throws : False -- Skip return : False @@ -237,8 +564,8 @@ toolShellGetTextAlignment :: (MonadIO m, ToolShellK a) => - a -> -- _obj - m Float + a -- _obj + -> m Float -- result toolShellGetTextAlignment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_shell_get_text_alignment _obj' @@ -246,11 +573,14 @@ touchManagedPtr _obj return result' +data ToolShellGetTextAlignmentMethodInfo +instance (signature ~ (m Float), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetTextAlignmentMethodInfo a signature where + overloadedMethod _ = toolShellGetTextAlignment + -- method ToolShell::get_text_orientation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Orientation" -- throws : False -- Skip return : False @@ -262,8 +592,8 @@ toolShellGetTextOrientation :: (MonadIO m, ToolShellK a) => - a -> -- _obj - m Orientation + a -- _obj + -> m Orientation -- result toolShellGetTextOrientation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_shell_get_text_orientation _obj' @@ -271,11 +601,14 @@ touchManagedPtr _obj return result' +data ToolShellGetTextOrientationMethodInfo +instance (signature ~ (m Orientation), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetTextOrientationMethodInfo a signature where + overloadedMethod _ = toolShellGetTextOrientation + -- method ToolShell::get_text_size_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SizeGroup" -- throws : False -- Skip return : False @@ -287,8 +620,8 @@ toolShellGetTextSizeGroup :: (MonadIO m, ToolShellK a) => - a -> -- _obj - m SizeGroup + a -- _obj + -> m SizeGroup -- result toolShellGetTextSizeGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_shell_get_text_size_group _obj' @@ -297,11 +630,14 @@ touchManagedPtr _obj return result' +data ToolShellGetTextSizeGroupMethodInfo +instance (signature ~ (m SizeGroup), MonadIO m, ToolShellK a) => MethodInfo ToolShellGetTextSizeGroupMethodInfo a signature where + overloadedMethod _ = toolShellGetTextSizeGroup + -- method ToolShell::rebuild_menu -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -313,12 +649,16 @@ toolShellRebuildMenu :: (MonadIO m, ToolShellK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result toolShellRebuildMenu _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tool_shell_rebuild_menu _obj' touchManagedPtr _obj return () + +data ToolShellRebuildMenuMethodInfo +instance (signature ~ (m ()), MonadIO m, ToolShellK a) => MethodInfo ToolShellRebuildMenuMethodInfo a signature where + overloadedMethod _ = toolShellRebuildMenu diff --git a/GI/Gtk/Interfaces/ToolShell.hs-boot b/GI/Gtk/Interfaces/ToolShell.hs-boot --- a/GI/Gtk/Interfaces/ToolShell.hs-boot +++ b/GI/Gtk/Interfaces/ToolShell.hs-boot @@ -11,3 +11,12 @@ instance GObject ToolShell where class GObject o => ToolShellK o instance (GObject o, IsDescendantOf ToolShell o) => ToolShellK o +data ToolShellGetEllipsizeModeMethodInfo +data ToolShellGetIconSizeMethodInfo +data ToolShellGetOrientationMethodInfo +data ToolShellGetReliefStyleMethodInfo +data ToolShellGetStyleMethodInfo +data ToolShellGetTextAlignmentMethodInfo +data ToolShellGetTextOrientationMethodInfo +data ToolShellGetTextSizeGroupMethodInfo +data ToolShellRebuildMenuMethodInfo diff --git a/GI/Gtk/Interfaces/TreeDragDest.hs b/GI/Gtk/Interfaces/TreeDragDest.hs --- a/GI/Gtk/Interfaces/TreeDragDest.hs +++ b/GI/Gtk/Interfaces/TreeDragDest.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,10 +17,12 @@ -- * Methods -- ** treeDragDestDragDataReceived + TreeDragDestDragDataReceivedMethodInfo , treeDragDestDragDataReceived , -- ** treeDragDestRowDropPossible + TreeDragDestRowDropPossibleMethodInfo , treeDragDestRowDropPossible , @@ -43,6 +46,19 @@ noTreeDragDest :: Maybe TreeDragDest noTreeDragDest = Nothing +type family ResolveTreeDragDestMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeDragDestMethod "dragDataReceived" o = TreeDragDestDragDataReceivedMethodInfo + ResolveTreeDragDestMethod "rowDropPossible" o = TreeDragDestRowDropPossibleMethodInfo + ResolveTreeDragDestMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeDragDestMethod t TreeDragDest, MethodInfo info TreeDragDest p) => IsLabelProxy t (TreeDragDest -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeDragDestMethod t TreeDragDest, MethodInfo info TreeDragDest p) => IsLabel t (TreeDragDest -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList TreeDragDest = TreeDragDestAttributeList type TreeDragDestAttributeList = ('[ ] :: [(Symbol, *)]) @@ -56,9 +72,8 @@ -- method TreeDragDest::drag_data_received -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -72,26 +87,29 @@ treeDragDestDragDataReceived :: (MonadIO m, TreeDragDestK a) => - a -> -- _obj - TreePath -> -- dest - SelectionData -> -- selection_data - m Bool -treeDragDestDragDataReceived _obj dest selection_data = liftIO $ do + a -- _obj + -> TreePath -- dest + -> SelectionData -- selectionData + -> m Bool -- result +treeDragDestDragDataReceived _obj dest selectionData = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let dest' = unsafeManagedPtrGetPtr dest - let selection_data' = unsafeManagedPtrGetPtr selection_data - result <- gtk_tree_drag_dest_drag_data_received _obj' dest' selection_data' + let selectionData' = unsafeManagedPtrGetPtr selectionData + result <- gtk_tree_drag_dest_drag_data_received _obj' dest' selectionData' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr dest - touchManagedPtr selection_data + touchManagedPtr selectionData return result' +data TreeDragDestDragDataReceivedMethodInfo +instance (signature ~ (TreePath -> SelectionData -> m Bool), MonadIO m, TreeDragDestK a) => MethodInfo TreeDragDestDragDataReceivedMethodInfo a signature where + overloadedMethod _ = treeDragDestDragDataReceived + -- method TreeDragDest::row_drop_possible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -105,19 +123,23 @@ treeDragDestRowDropPossible :: (MonadIO m, TreeDragDestK a) => - a -> -- _obj - TreePath -> -- dest_path - SelectionData -> -- selection_data - m Bool -treeDragDestRowDropPossible _obj dest_path selection_data = liftIO $ do + a -- _obj + -> TreePath -- destPath + -> SelectionData -- selectionData + -> m Bool -- result +treeDragDestRowDropPossible _obj destPath selectionData = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let dest_path' = unsafeManagedPtrGetPtr dest_path - let selection_data' = unsafeManagedPtrGetPtr selection_data - result <- gtk_tree_drag_dest_row_drop_possible _obj' dest_path' selection_data' + let destPath' = unsafeManagedPtrGetPtr destPath + let selectionData' = unsafeManagedPtrGetPtr selectionData + result <- gtk_tree_drag_dest_row_drop_possible _obj' destPath' selectionData' let result' = (/= 0) result touchManagedPtr _obj - touchManagedPtr dest_path - touchManagedPtr selection_data + touchManagedPtr destPath + touchManagedPtr selectionData return result' + +data TreeDragDestRowDropPossibleMethodInfo +instance (signature ~ (TreePath -> SelectionData -> m Bool), MonadIO m, TreeDragDestK a) => MethodInfo TreeDragDestRowDropPossibleMethodInfo a signature where + overloadedMethod _ = treeDragDestRowDropPossible diff --git a/GI/Gtk/Interfaces/TreeDragDest.hs-boot b/GI/Gtk/Interfaces/TreeDragDest.hs-boot --- a/GI/Gtk/Interfaces/TreeDragDest.hs-boot +++ b/GI/Gtk/Interfaces/TreeDragDest.hs-boot @@ -10,3 +10,5 @@ newtype TreeDragDest = TreeDragDest (ForeignPtr TreeDragDest) class ForeignPtrNewtype a => TreeDragDestK a instance (ForeignPtrNewtype o, IsDescendantOf TreeDragDest o) => TreeDragDestK o +data TreeDragDestDragDataReceivedMethodInfo +data TreeDragDestRowDropPossibleMethodInfo diff --git a/GI/Gtk/Interfaces/TreeDragSource.hs b/GI/Gtk/Interfaces/TreeDragSource.hs --- a/GI/Gtk/Interfaces/TreeDragSource.hs +++ b/GI/Gtk/Interfaces/TreeDragSource.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,14 +17,17 @@ -- * Methods -- ** treeDragSourceDragDataDelete + TreeDragSourceDragDataDeleteMethodInfo , treeDragSourceDragDataDelete , -- ** treeDragSourceDragDataGet + TreeDragSourceDragDataGetMethodInfo , treeDragSourceDragDataGet , -- ** treeDragSourceRowDraggable + TreeDragSourceRowDraggableMethodInfo , treeDragSourceRowDraggable , @@ -47,6 +51,20 @@ noTreeDragSource :: Maybe TreeDragSource noTreeDragSource = Nothing +type family ResolveTreeDragSourceMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeDragSourceMethod "dragDataDelete" o = TreeDragSourceDragDataDeleteMethodInfo + ResolveTreeDragSourceMethod "dragDataGet" o = TreeDragSourceDragDataGetMethodInfo + ResolveTreeDragSourceMethod "rowDraggable" o = TreeDragSourceRowDraggableMethodInfo + ResolveTreeDragSourceMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeDragSourceMethod t TreeDragSource, MethodInfo info TreeDragSource p) => IsLabelProxy t (TreeDragSource -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeDragSourceMethod t TreeDragSource, MethodInfo info TreeDragSource p) => IsLabel t (TreeDragSource -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList TreeDragSource = TreeDragSourceAttributeList type TreeDragSourceAttributeList = ('[ ] :: [(Symbol, *)]) @@ -60,9 +78,8 @@ -- method TreeDragSource::drag_data_delete -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -75,9 +92,9 @@ treeDragSourceDragDataDelete :: (MonadIO m, TreeDragSourceK a) => - a -> -- _obj - TreePath -> -- path - m Bool + a -- _obj + -> TreePath -- path + -> m Bool -- result treeDragSourceDragDataDelete _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -87,11 +104,14 @@ touchManagedPtr path return result' +data TreeDragSourceDragDataDeleteMethodInfo +instance (signature ~ (TreePath -> m Bool), MonadIO m, TreeDragSourceK a) => MethodInfo TreeDragSourceDragDataDeleteMethodInfo a signature where + overloadedMethod _ = treeDragSourceDragDataDelete + -- method TreeDragSource::drag_data_get -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -105,26 +125,29 @@ treeDragSourceDragDataGet :: (MonadIO m, TreeDragSourceK a) => - a -> -- _obj - TreePath -> -- path - SelectionData -> -- selection_data - m Bool -treeDragSourceDragDataGet _obj path selection_data = liftIO $ do + a -- _obj + -> TreePath -- path + -> SelectionData -- selectionData + -> m Bool -- result +treeDragSourceDragDataGet _obj path selectionData = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path - let selection_data' = unsafeManagedPtrGetPtr selection_data - result <- gtk_tree_drag_source_drag_data_get _obj' path' selection_data' + let selectionData' = unsafeManagedPtrGetPtr selectionData + result <- gtk_tree_drag_source_drag_data_get _obj' path' selectionData' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr path - touchManagedPtr selection_data + touchManagedPtr selectionData return result' +data TreeDragSourceDragDataGetMethodInfo +instance (signature ~ (TreePath -> SelectionData -> m Bool), MonadIO m, TreeDragSourceK a) => MethodInfo TreeDragSourceDragDataGetMethodInfo a signature where + overloadedMethod _ = treeDragSourceDragDataGet + -- method TreeDragSource::row_draggable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -137,9 +160,9 @@ treeDragSourceRowDraggable :: (MonadIO m, TreeDragSourceK a) => - a -> -- _obj - TreePath -> -- path - m Bool + a -- _obj + -> TreePath -- path + -> m Bool -- result treeDragSourceRowDraggable _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -148,5 +171,9 @@ touchManagedPtr _obj touchManagedPtr path return result' + +data TreeDragSourceRowDraggableMethodInfo +instance (signature ~ (TreePath -> m Bool), MonadIO m, TreeDragSourceK a) => MethodInfo TreeDragSourceRowDraggableMethodInfo a signature where + overloadedMethod _ = treeDragSourceRowDraggable diff --git a/GI/Gtk/Interfaces/TreeDragSource.hs-boot b/GI/Gtk/Interfaces/TreeDragSource.hs-boot --- a/GI/Gtk/Interfaces/TreeDragSource.hs-boot +++ b/GI/Gtk/Interfaces/TreeDragSource.hs-boot @@ -10,3 +10,6 @@ newtype TreeDragSource = TreeDragSource (ForeignPtr TreeDragSource) class ForeignPtrNewtype a => TreeDragSourceK a instance (ForeignPtrNewtype o, IsDescendantOf TreeDragSource o) => TreeDragSourceK o +data TreeDragSourceDragDataDeleteMethodInfo +data TreeDragSourceDragDataGetMethodInfo +data TreeDragSourceRowDraggableMethodInfo diff --git a/GI/Gtk/Interfaces/TreeModel.hs b/GI/Gtk/Interfaces/TreeModel.hs --- a/GI/Gtk/Interfaces/TreeModel.hs +++ b/GI/Gtk/Interfaces/TreeModel.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,106 +18,132 @@ -- * Methods -- ** treeModelFilterNew + TreeModelFilterNewMethodInfo , treeModelFilterNew , -- ** treeModelForeach + TreeModelForeachMethodInfo , treeModelForeach , -- ** treeModelGetColumnType + TreeModelGetColumnTypeMethodInfo , treeModelGetColumnType , -- ** treeModelGetFlags + TreeModelGetFlagsMethodInfo , treeModelGetFlags , -- ** treeModelGetIter + TreeModelGetIterMethodInfo , treeModelGetIter , -- ** treeModelGetIterFirst + TreeModelGetIterFirstMethodInfo , treeModelGetIterFirst , -- ** treeModelGetIterFromString + TreeModelGetIterFromStringMethodInfo , treeModelGetIterFromString , -- ** treeModelGetNColumns + TreeModelGetNColumnsMethodInfo , treeModelGetNColumns , -- ** treeModelGetPath + TreeModelGetPathMethodInfo , treeModelGetPath , -- ** treeModelGetStringFromIter + TreeModelGetStringFromIterMethodInfo , treeModelGetStringFromIter , -- ** treeModelGetValue + TreeModelGetValueMethodInfo , treeModelGetValue , -- ** treeModelIterChildren + TreeModelIterChildrenMethodInfo , treeModelIterChildren , -- ** treeModelIterHasChild + TreeModelIterHasChildMethodInfo , treeModelIterHasChild , -- ** treeModelIterNChildren + TreeModelIterNChildrenMethodInfo , treeModelIterNChildren , -- ** treeModelIterNext + TreeModelIterNextMethodInfo , treeModelIterNext , -- ** treeModelIterNthChild + TreeModelIterNthChildMethodInfo , treeModelIterNthChild , -- ** treeModelIterParent + TreeModelIterParentMethodInfo , treeModelIterParent , -- ** treeModelIterPrevious + TreeModelIterPreviousMethodInfo , treeModelIterPrevious , -- ** treeModelRefNode + TreeModelRefNodeMethodInfo , treeModelRefNode , -- ** treeModelRowChanged + TreeModelRowChangedMethodInfo , treeModelRowChanged , -- ** treeModelRowDeleted + TreeModelRowDeletedMethodInfo , treeModelRowDeleted , -- ** treeModelRowHasChildToggled + TreeModelRowHasChildToggledMethodInfo , treeModelRowHasChildToggled , -- ** treeModelRowInserted + TreeModelRowInsertedMethodInfo , treeModelRowInserted , -- ** treeModelRowsReordered + TreeModelRowsReorderedMethodInfo , treeModelRowsReordered , -- ** treeModelSortNewWithModel + TreeModelSortNewWithModelMethodInfo , treeModelSortNewWithModel , -- ** treeModelUnrefNode + TreeModelUnrefNodeMethodInfo , treeModelUnrefNode , @@ -192,6 +219,65 @@ noTreeModel :: Maybe TreeModel noTreeModel = Nothing +type family ResolveTreeModelMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeModelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTreeModelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTreeModelMethod "filterNew" o = TreeModelFilterNewMethodInfo + ResolveTreeModelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTreeModelMethod "foreach" o = TreeModelForeachMethodInfo + ResolveTreeModelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTreeModelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTreeModelMethod "iterChildren" o = TreeModelIterChildrenMethodInfo + ResolveTreeModelMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo + ResolveTreeModelMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo + ResolveTreeModelMethod "iterNext" o = TreeModelIterNextMethodInfo + ResolveTreeModelMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo + ResolveTreeModelMethod "iterParent" o = TreeModelIterParentMethodInfo + ResolveTreeModelMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo + ResolveTreeModelMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTreeModelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTreeModelMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTreeModelMethod "refNode" o = TreeModelRefNodeMethodInfo + ResolveTreeModelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTreeModelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTreeModelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTreeModelMethod "rowChanged" o = TreeModelRowChangedMethodInfo + ResolveTreeModelMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo + ResolveTreeModelMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo + ResolveTreeModelMethod "rowInserted" o = TreeModelRowInsertedMethodInfo + ResolveTreeModelMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo + ResolveTreeModelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTreeModelMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo + ResolveTreeModelMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTreeModelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTreeModelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTreeModelMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTreeModelMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo + ResolveTreeModelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTreeModelMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo + ResolveTreeModelMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTreeModelMethod "getFlags" o = TreeModelGetFlagsMethodInfo + ResolveTreeModelMethod "getIter" o = TreeModelGetIterMethodInfo + ResolveTreeModelMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo + ResolveTreeModelMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo + ResolveTreeModelMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo + ResolveTreeModelMethod "getPath" o = TreeModelGetPathMethodInfo + ResolveTreeModelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTreeModelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTreeModelMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo + ResolveTreeModelMethod "getValue" o = TreeModelGetValueMethodInfo + ResolveTreeModelMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTreeModelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTreeModelMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeModelMethod t TreeModel, MethodInfo info TreeModel p) => IsLabelProxy t (TreeModel -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeModelMethod t TreeModel, MethodInfo info TreeModel p) => IsLabel t (TreeModel -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal TreeModel::row-changed type TreeModelRowChangedCallback = TreePath -> @@ -396,7 +482,7 @@ connectSignal _ = connectTreeModelRowInserted type instance SignalList TreeModel = TreeModelSignalList -type TreeModelSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TreeModelSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_tree_model_get_type" c_gtk_tree_model_get_type :: IO GType @@ -417,9 +503,8 @@ -- method TreeModel::filter_new -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeModel" -- throws : False -- Skip return : False @@ -432,9 +517,9 @@ treeModelFilterNew :: (MonadIO m, TreeModelK a) => - a -> -- _obj - Maybe (TreePath) -> -- root - m TreeModel + a -- _obj + -> Maybe (TreePath) -- root + -> m TreeModel -- result treeModelFilterNew _obj root = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeRoot <- case root of @@ -449,11 +534,14 @@ whenJust root touchManagedPtr return result' +data TreeModelFilterNewMethodInfo +instance (signature ~ (Maybe (TreePath) -> m TreeModel), MonadIO m, TreeModelK a) => MethodInfo TreeModelFilterNewMethodInfo a signature where + overloadedMethod _ = treeModelFilterNew + -- method TreeModel::foreach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeModelForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeModelForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeModelForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -467,23 +555,26 @@ treeModelForeach :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreeModelForeachFunc -> -- func - m () + a -- _obj + -> TreeModelForeachFunc -- func + -> m () -- result treeModelForeach _obj func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj func' <- mkTreeModelForeachFunc (treeModelForeachFuncWrapper Nothing func) - let user_data = nullPtr - gtk_tree_model_foreach _obj' func' user_data + let userData = nullPtr + gtk_tree_model_foreach _obj' func' userData safeFreeFunPtr $ castFunPtrToPtr func' touchManagedPtr _obj return () +data TreeModelForeachMethodInfo +instance (signature ~ (TreeModelForeachFunc -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelForeachMethodInfo a signature where + overloadedMethod _ = treeModelForeach + -- method TreeModel::get_column_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -496,21 +587,24 @@ treeModelGetColumnType :: (MonadIO m, TreeModelK a) => - a -> -- _obj - Int32 -> -- index_ - m GType -treeModelGetColumnType _obj index_ = liftIO $ do + a -- _obj + -> Int32 -- index + -> m GType -- result +treeModelGetColumnType _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_model_get_column_type _obj' index_ + result <- gtk_tree_model_get_column_type _obj' index let result' = GType result touchManagedPtr _obj return result' +data TreeModelGetColumnTypeMethodInfo +instance (signature ~ (Int32 -> m GType), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetColumnTypeMethodInfo a signature where + overloadedMethod _ = treeModelGetColumnType + -- method TreeModel::get_flags -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeModelFlags" -- throws : False -- Skip return : False @@ -522,8 +616,8 @@ treeModelGetFlags :: (MonadIO m, TreeModelK a) => - a -> -- _obj - m [TreeModelFlags] + a -- _obj + -> m [TreeModelFlags] -- result treeModelGetFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_model_get_flags _obj' @@ -531,11 +625,14 @@ touchManagedPtr _obj return result' +data TreeModelGetFlagsMethodInfo +instance (signature ~ (m [TreeModelFlags]), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetFlagsMethodInfo a signature where + overloadedMethod _ = treeModelGetFlags + -- method TreeModel::get_iter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -549,9 +646,9 @@ treeModelGetIter :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreePath -> -- path - m (Bool,TreeIter) + a -- _obj + -> TreePath -- path + -> m (Bool,TreeIter) -- result treeModelGetIter _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -563,11 +660,14 @@ touchManagedPtr path return (result', iter') +data TreeModelGetIterMethodInfo +instance (signature ~ (TreePath -> m (Bool,TreeIter)), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetIterMethodInfo a signature where + overloadedMethod _ = treeModelGetIter + -- method TreeModel::get_iter_first -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -580,8 +680,8 @@ treeModelGetIterFirst :: (MonadIO m, TreeModelK a) => - a -> -- _obj - m (Bool,TreeIter) + a -- _obj + -> m (Bool,TreeIter) -- result treeModelGetIterFirst _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -591,11 +691,14 @@ touchManagedPtr _obj return (result', iter') +data TreeModelGetIterFirstMethodInfo +instance (signature ~ (m (Bool,TreeIter)), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetIterFirstMethodInfo a signature where + overloadedMethod _ = treeModelGetIterFirst + -- method TreeModel::get_iter_from_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "path_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -609,25 +712,28 @@ treeModelGetIterFromString :: (MonadIO m, TreeModelK a) => - a -> -- _obj - T.Text -> -- path_string - m (Bool,TreeIter) -treeModelGetIterFromString _obj path_string = liftIO $ do + a -- _obj + -> T.Text -- pathString + -> m (Bool,TreeIter) -- result +treeModelGetIterFromString _obj pathString = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - path_string' <- textToCString path_string - result <- gtk_tree_model_get_iter_from_string _obj' iter path_string' + pathString' <- textToCString pathString + result <- gtk_tree_model_get_iter_from_string _obj' iter pathString' let result' = (/= 0) result iter' <- (wrapBoxed TreeIter) iter touchManagedPtr _obj - freeMem path_string' + freeMem pathString' return (result', iter') +data TreeModelGetIterFromStringMethodInfo +instance (signature ~ (T.Text -> m (Bool,TreeIter)), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetIterFromStringMethodInfo a signature where + overloadedMethod _ = treeModelGetIterFromString + -- method TreeModel::get_n_columns -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -639,19 +745,22 @@ treeModelGetNColumns :: (MonadIO m, TreeModelK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result treeModelGetNColumns _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_model_get_n_columns _obj' touchManagedPtr _obj return result +data TreeModelGetNColumnsMethodInfo +instance (signature ~ (m Int32), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetNColumnsMethodInfo a signature where + overloadedMethod _ = treeModelGetNColumns + -- method TreeModel::get_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreePath" -- throws : False -- Skip return : False @@ -664,9 +773,9 @@ treeModelGetPath :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreeIter -> -- iter - m TreePath + a -- _obj + -> TreeIter -- iter + -> m TreePath -- result treeModelGetPath _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -677,11 +786,14 @@ touchManagedPtr iter return result' +data TreeModelGetPathMethodInfo +instance (signature ~ (TreeIter -> m TreePath), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetPathMethodInfo a signature where + overloadedMethod _ = treeModelGetPath + -- method TreeModel::get_string_from_iter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -694,9 +806,9 @@ treeModelGetStringFromIter :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreeIter -> -- iter - m T.Text + a -- _obj + -> TreeIter -- iter + -> m T.Text -- result treeModelGetStringFromIter _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -708,11 +820,14 @@ touchManagedPtr iter return result' +data TreeModelGetStringFromIterMethodInfo +instance (signature ~ (TreeIter -> m T.Text), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetStringFromIterMethodInfo a signature where + overloadedMethod _ = treeModelGetStringFromIter + -- method TreeModel::get_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -727,10 +842,10 @@ treeModelGetValue :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreeIter -> -- iter - Int32 -> -- column - m (GValue) + a -- _obj + -> TreeIter -- iter + -> Int32 -- column + -> m (GValue) -- result treeModelGetValue _obj iter column = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -741,11 +856,14 @@ touchManagedPtr iter return value' +data TreeModelGetValueMethodInfo +instance (signature ~ (TreeIter -> Int32 -> m (GValue)), MonadIO m, TreeModelK a) => MethodInfo TreeModelGetValueMethodInfo a signature where + overloadedMethod _ = treeModelGetValue + -- method TreeModel::iter_children -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -759,9 +877,9 @@ treeModelIterChildren :: (MonadIO m, TreeModelK a) => - a -> -- _obj - Maybe (TreeIter) -> -- parent - m (Bool,TreeIter) + a -- _obj + -> Maybe (TreeIter) -- parent + -> m (Bool,TreeIter) -- result treeModelIterChildren _obj parent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -777,11 +895,14 @@ whenJust parent touchManagedPtr return (result', iter') +data TreeModelIterChildrenMethodInfo +instance (signature ~ (Maybe (TreeIter) -> m (Bool,TreeIter)), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterChildrenMethodInfo a signature where + overloadedMethod _ = treeModelIterChildren + -- method TreeModel::iter_has_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -794,9 +915,9 @@ treeModelIterHasChild :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreeIter -> -- iter - m Bool + a -- _obj + -> TreeIter -- iter + -> m Bool -- result treeModelIterHasChild _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -806,11 +927,14 @@ touchManagedPtr iter return result' +data TreeModelIterHasChildMethodInfo +instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterHasChildMethodInfo a signature where + overloadedMethod _ = treeModelIterHasChild + -- method TreeModel::iter_n_children -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -823,9 +947,9 @@ treeModelIterNChildren :: (MonadIO m, TreeModelK a) => - a -> -- _obj - Maybe (TreeIter) -> -- iter - m Int32 + a -- _obj + -> Maybe (TreeIter) -- iter + -> m Int32 -- result treeModelIterNChildren _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeIter <- case iter of @@ -838,11 +962,14 @@ whenJust iter touchManagedPtr return result +data TreeModelIterNChildrenMethodInfo +instance (signature ~ (Maybe (TreeIter) -> m Int32), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterNChildrenMethodInfo a signature where + overloadedMethod _ = treeModelIterNChildren + -- method TreeModel::iter_next -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -855,9 +982,9 @@ treeModelIterNext :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreeIter -> -- iter - m Bool + a -- _obj + -> TreeIter -- iter + -> m Bool -- result treeModelIterNext _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -867,11 +994,14 @@ touchManagedPtr iter return result' +data TreeModelIterNextMethodInfo +instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterNextMethodInfo a signature where + overloadedMethod _ = treeModelIterNext + -- method TreeModel::iter_nth_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -886,10 +1016,10 @@ treeModelIterNthChild :: (MonadIO m, TreeModelK a) => - a -> -- _obj - Maybe (TreeIter) -> -- parent - Int32 -> -- n - m (Bool,TreeIter) + a -- _obj + -> Maybe (TreeIter) -- parent + -> Int32 -- n + -> m (Bool,TreeIter) -- result treeModelIterNthChild _obj parent n = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -905,11 +1035,14 @@ whenJust parent touchManagedPtr return (result', iter') +data TreeModelIterNthChildMethodInfo +instance (signature ~ (Maybe (TreeIter) -> Int32 -> m (Bool,TreeIter)), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterNthChildMethodInfo a signature where + overloadedMethod _ = treeModelIterNthChild + -- method TreeModel::iter_parent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -923,9 +1056,9 @@ treeModelIterParent :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreeIter -> -- child - m (Bool,TreeIter) + a -- _obj + -> TreeIter -- child + -> m (Bool,TreeIter) -- result treeModelIterParent _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -937,11 +1070,14 @@ touchManagedPtr child return (result', iter') +data TreeModelIterParentMethodInfo +instance (signature ~ (TreeIter -> m (Bool,TreeIter)), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterParentMethodInfo a signature where + overloadedMethod _ = treeModelIterParent + -- method TreeModel::iter_previous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -954,9 +1090,9 @@ treeModelIterPrevious :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreeIter -> -- iter - m Bool + a -- _obj + -> TreeIter -- iter + -> m Bool -- result treeModelIterPrevious _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -966,11 +1102,14 @@ touchManagedPtr iter return result' +data TreeModelIterPreviousMethodInfo +instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeModelK a) => MethodInfo TreeModelIterPreviousMethodInfo a signature where + overloadedMethod _ = treeModelIterPrevious + -- method TreeModel::ref_node -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -983,9 +1122,9 @@ treeModelRefNode :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreeIter -> -- iter - m () + a -- _obj + -> TreeIter -- iter + -> m () -- result treeModelRefNode _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -994,11 +1133,14 @@ touchManagedPtr iter return () +data TreeModelRefNodeMethodInfo +instance (signature ~ (TreeIter -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelRefNodeMethodInfo a signature where + overloadedMethod _ = treeModelRefNode + -- method TreeModel::row_changed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1012,10 +1154,10 @@ treeModelRowChanged :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreePath -> -- path - TreeIter -> -- iter - m () + a -- _obj + -> TreePath -- path + -> TreeIter -- iter + -> m () -- result treeModelRowChanged _obj path iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -1026,11 +1168,14 @@ touchManagedPtr iter return () +data TreeModelRowChangedMethodInfo +instance (signature ~ (TreePath -> TreeIter -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelRowChangedMethodInfo a signature where + overloadedMethod _ = treeModelRowChanged + -- method TreeModel::row_deleted -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1043,9 +1188,9 @@ treeModelRowDeleted :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreePath -> -- path - m () + a -- _obj + -> TreePath -- path + -> m () -- result treeModelRowDeleted _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -1054,11 +1199,14 @@ touchManagedPtr path return () +data TreeModelRowDeletedMethodInfo +instance (signature ~ (TreePath -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelRowDeletedMethodInfo a signature where + overloadedMethod _ = treeModelRowDeleted + -- method TreeModel::row_has_child_toggled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1072,10 +1220,10 @@ treeModelRowHasChildToggled :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreePath -> -- path - TreeIter -> -- iter - m () + a -- _obj + -> TreePath -- path + -> TreeIter -- iter + -> m () -- result treeModelRowHasChildToggled _obj path iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -1086,11 +1234,14 @@ touchManagedPtr iter return () +data TreeModelRowHasChildToggledMethodInfo +instance (signature ~ (TreePath -> TreeIter -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelRowHasChildToggledMethodInfo a signature where + overloadedMethod _ = treeModelRowHasChildToggled + -- method TreeModel::row_inserted -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1104,10 +1255,10 @@ treeModelRowInserted :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreePath -> -- path - TreeIter -> -- iter - m () + a -- _obj + -> TreePath -- path + -> TreeIter -- iter + -> m () -- result treeModelRowInserted _obj path iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -1118,11 +1269,14 @@ touchManagedPtr iter return () +data TreeModelRowInsertedMethodInfo +instance (signature ~ (TreePath -> TreeIter -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelRowInsertedMethodInfo a signature where + overloadedMethod _ = treeModelRowInserted + -- method TreeModel::rows_reordered -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1138,13 +1292,13 @@ treeModelRowsReordered :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreePath -> -- path - Maybe (TreeIter) -> -- iter - [Int32] -> -- new_order - m () -treeModelRowsReordered _obj path iter new_order = liftIO $ do - let length_ = fromIntegral $ length new_order + a -- _obj + -> TreePath -- path + -> Maybe (TreeIter) -- iter + -> [Int32] -- newOrder + -> m () -- result +treeModelRowsReordered _obj path iter newOrder = liftIO $ do + let length_ = fromIntegral $ length newOrder let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path maybeIter <- case iter of @@ -1152,19 +1306,22 @@ Just jIter -> do let jIter' = unsafeManagedPtrGetPtr jIter return jIter' - new_order' <- packStorableArray new_order - gtk_tree_model_rows_reordered_with_length _obj' path' maybeIter new_order' length_ + newOrder' <- packStorableArray newOrder + gtk_tree_model_rows_reordered_with_length _obj' path' maybeIter newOrder' length_ touchManagedPtr _obj touchManagedPtr path whenJust iter touchManagedPtr - freeMem new_order' + freeMem newOrder' return () +data TreeModelRowsReorderedMethodInfo +instance (signature ~ (TreePath -> Maybe (TreeIter) -> [Int32] -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelRowsReorderedMethodInfo a signature where + overloadedMethod _ = treeModelRowsReordered + -- method TreeModel::sort_new_with_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeModel" -- throws : False -- Skip return : False @@ -1176,8 +1333,8 @@ treeModelSortNewWithModel :: (MonadIO m, TreeModelK a) => - a -> -- _obj - m TreeModel + a -- _obj + -> m TreeModel -- result treeModelSortNewWithModel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_model_sort_new_with_model _obj' @@ -1186,11 +1343,14 @@ touchManagedPtr _obj return result' +data TreeModelSortNewWithModelMethodInfo +instance (signature ~ (m TreeModel), MonadIO m, TreeModelK a) => MethodInfo TreeModelSortNewWithModelMethodInfo a signature where + overloadedMethod _ = treeModelSortNewWithModel + -- method TreeModel::unref_node -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1203,9 +1363,9 @@ treeModelUnrefNode :: (MonadIO m, TreeModelK a) => - a -> -- _obj - TreeIter -> -- iter - m () + a -- _obj + -> TreeIter -- iter + -> m () -- result treeModelUnrefNode _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -1213,5 +1373,9 @@ touchManagedPtr _obj touchManagedPtr iter return () + +data TreeModelUnrefNodeMethodInfo +instance (signature ~ (TreeIter -> m ()), MonadIO m, TreeModelK a) => MethodInfo TreeModelUnrefNodeMethodInfo a signature where + overloadedMethod _ = treeModelUnrefNode diff --git a/GI/Gtk/Interfaces/TreeModel.hs-boot b/GI/Gtk/Interfaces/TreeModel.hs-boot --- a/GI/Gtk/Interfaces/TreeModel.hs-boot +++ b/GI/Gtk/Interfaces/TreeModel.hs-boot @@ -15,3 +15,29 @@ instance GObject TreeModel where class GObject o => TreeModelK o instance (GObject o, IsDescendantOf TreeModel o) => TreeModelK o +data TreeModelFilterNewMethodInfo +data TreeModelForeachMethodInfo +data TreeModelGetColumnTypeMethodInfo +data TreeModelGetFlagsMethodInfo +data TreeModelGetIterMethodInfo +data TreeModelGetIterFirstMethodInfo +data TreeModelGetIterFromStringMethodInfo +data TreeModelGetNColumnsMethodInfo +data TreeModelGetPathMethodInfo +data TreeModelGetStringFromIterMethodInfo +data TreeModelGetValueMethodInfo +data TreeModelIterChildrenMethodInfo +data TreeModelIterHasChildMethodInfo +data TreeModelIterNChildrenMethodInfo +data TreeModelIterNextMethodInfo +data TreeModelIterNthChildMethodInfo +data TreeModelIterParentMethodInfo +data TreeModelIterPreviousMethodInfo +data TreeModelRefNodeMethodInfo +data TreeModelRowChangedMethodInfo +data TreeModelRowDeletedMethodInfo +data TreeModelRowHasChildToggledMethodInfo +data TreeModelRowInsertedMethodInfo +data TreeModelRowsReorderedMethodInfo +data TreeModelSortNewWithModelMethodInfo +data TreeModelUnrefNodeMethodInfo diff --git a/GI/Gtk/Interfaces/TreeSortable.hs b/GI/Gtk/Interfaces/TreeSortable.hs --- a/GI/Gtk/Interfaces/TreeSortable.hs +++ b/GI/Gtk/Interfaces/TreeSortable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** treeSortableGetSortColumnId + TreeSortableGetSortColumnIdMethodInfo , treeSortableGetSortColumnId , -- ** treeSortableHasDefaultSortFunc + TreeSortableHasDefaultSortFuncMethodInfo, treeSortableHasDefaultSortFunc , -- ** treeSortableSetDefaultSortFunc + TreeSortableSetDefaultSortFuncMethodInfo, treeSortableSetDefaultSortFunc , -- ** treeSortableSetSortColumnId + TreeSortableSetSortColumnIdMethodInfo , treeSortableSetSortColumnId , -- ** treeSortableSetSortFunc + TreeSortableSetSortFuncMethodInfo , treeSortableSetSortFunc , -- ** treeSortableSortColumnChanged + TreeSortableSortColumnChangedMethodInfo , treeSortableSortColumnChanged , @@ -77,6 +84,71 @@ noTreeSortable :: Maybe TreeSortable noTreeSortable = Nothing +type family ResolveTreeSortableMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeSortableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTreeSortableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTreeSortableMethod "filterNew" o = TreeModelFilterNewMethodInfo + ResolveTreeSortableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTreeSortableMethod "foreach" o = TreeModelForeachMethodInfo + ResolveTreeSortableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTreeSortableMethod "hasDefaultSortFunc" o = TreeSortableHasDefaultSortFuncMethodInfo + ResolveTreeSortableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTreeSortableMethod "iterChildren" o = TreeModelIterChildrenMethodInfo + ResolveTreeSortableMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo + ResolveTreeSortableMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo + ResolveTreeSortableMethod "iterNext" o = TreeModelIterNextMethodInfo + ResolveTreeSortableMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo + ResolveTreeSortableMethod "iterParent" o = TreeModelIterParentMethodInfo + ResolveTreeSortableMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo + ResolveTreeSortableMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTreeSortableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTreeSortableMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTreeSortableMethod "refNode" o = TreeModelRefNodeMethodInfo + ResolveTreeSortableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTreeSortableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTreeSortableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTreeSortableMethod "rowChanged" o = TreeModelRowChangedMethodInfo + ResolveTreeSortableMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo + ResolveTreeSortableMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo + ResolveTreeSortableMethod "rowInserted" o = TreeModelRowInsertedMethodInfo + ResolveTreeSortableMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo + ResolveTreeSortableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTreeSortableMethod "sortColumnChanged" o = TreeSortableSortColumnChangedMethodInfo + ResolveTreeSortableMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo + ResolveTreeSortableMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTreeSortableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTreeSortableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTreeSortableMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTreeSortableMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo + ResolveTreeSortableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTreeSortableMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo + ResolveTreeSortableMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTreeSortableMethod "getFlags" o = TreeModelGetFlagsMethodInfo + ResolveTreeSortableMethod "getIter" o = TreeModelGetIterMethodInfo + ResolveTreeSortableMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo + ResolveTreeSortableMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo + ResolveTreeSortableMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo + ResolveTreeSortableMethod "getPath" o = TreeModelGetPathMethodInfo + ResolveTreeSortableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTreeSortableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTreeSortableMethod "getSortColumnId" o = TreeSortableGetSortColumnIdMethodInfo + ResolveTreeSortableMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo + ResolveTreeSortableMethod "getValue" o = TreeModelGetValueMethodInfo + ResolveTreeSortableMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTreeSortableMethod "setDefaultSortFunc" o = TreeSortableSetDefaultSortFuncMethodInfo + ResolveTreeSortableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTreeSortableMethod "setSortColumnId" o = TreeSortableSetSortColumnIdMethodInfo + ResolveTreeSortableMethod "setSortFunc" o = TreeSortableSetSortFuncMethodInfo + ResolveTreeSortableMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeSortableMethod t TreeSortable, MethodInfo info TreeSortable p) => IsLabelProxy t (TreeSortable -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeSortableMethod t TreeSortable, MethodInfo info TreeSortable p) => IsLabel t (TreeSortable -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal TreeSortable::sort-column-changed type TreeSortableSortColumnChangedCallback = IO () @@ -124,7 +196,7 @@ connectSignal _ = connectTreeSortableSortColumnChanged type instance SignalList TreeSortable = TreeSortableSignalList -type TreeSortableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("sort-column-changed", TreeSortableSortColumnChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TreeSortableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo), '("sortColumnChanged", TreeSortableSortColumnChangedSignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_tree_sortable_get_type" c_gtk_tree_sortable_get_type :: IO GType @@ -145,9 +217,8 @@ -- method TreeSortable::get_sort_column_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -161,27 +232,30 @@ treeSortableGetSortColumnId :: (MonadIO m, TreeSortableK a) => - a -> -- _obj - m (Bool,Int32,SortType) + a -- _obj + -> m (Bool,Int32,SortType) -- result treeSortableGetSortColumnId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - sort_column_id <- allocMem :: IO (Ptr Int32) + sortColumnId <- allocMem :: IO (Ptr Int32) order <- allocMem :: IO (Ptr CUInt) - result <- gtk_tree_sortable_get_sort_column_id _obj' sort_column_id order + result <- gtk_tree_sortable_get_sort_column_id _obj' sortColumnId order let result' = (/= 0) result - sort_column_id' <- peek sort_column_id + sortColumnId' <- peek sortColumnId order' <- peek order let order'' = (toEnum . fromIntegral) order' touchManagedPtr _obj - freeMem sort_column_id + freeMem sortColumnId freeMem order - return (result', sort_column_id', order'') + return (result', sortColumnId', order'') +data TreeSortableGetSortColumnIdMethodInfo +instance (signature ~ (m (Bool,Int32,SortType)), MonadIO m, TreeSortableK a) => MethodInfo TreeSortableGetSortColumnIdMethodInfo a signature where + overloadedMethod _ = treeSortableGetSortColumnId + -- method TreeSortable::has_default_sort_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -193,8 +267,8 @@ treeSortableHasDefaultSortFunc :: (MonadIO m, TreeSortableK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result treeSortableHasDefaultSortFunc _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_sortable_has_default_sort_func _obj' @@ -202,11 +276,14 @@ touchManagedPtr _obj return result' +data TreeSortableHasDefaultSortFuncMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeSortableK a) => MethodInfo TreeSortableHasDefaultSortFuncMethodInfo a signature where + overloadedMethod _ = treeSortableHasDefaultSortFunc + -- method TreeSortable::set_default_sort_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -221,23 +298,26 @@ treeSortableSetDefaultSortFunc :: (MonadIO m, TreeSortableK a) => - a -> -- _obj - TreeIterCompareFunc -> -- sort_func - m () -treeSortableSetDefaultSortFunc _obj sort_func = liftIO $ do + a -- _obj + -> TreeIterCompareFunc -- sortFunc + -> m () -- result +treeSortableSetDefaultSortFunc _obj sortFunc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - sort_func' <- mkTreeIterCompareFunc (treeIterCompareFuncWrapper Nothing sort_func) - let user_data = castFunPtrToPtr sort_func' + sortFunc' <- mkTreeIterCompareFunc (treeIterCompareFuncWrapper Nothing sortFunc) + let userData = castFunPtrToPtr sortFunc' let destroy = safeFreeFunPtrPtr - gtk_tree_sortable_set_default_sort_func _obj' sort_func' user_data destroy + gtk_tree_sortable_set_default_sort_func _obj' sortFunc' userData destroy touchManagedPtr _obj return () +data TreeSortableSetDefaultSortFuncMethodInfo +instance (signature ~ (TreeIterCompareFunc -> m ()), MonadIO m, TreeSortableK a) => MethodInfo TreeSortableSetDefaultSortFuncMethodInfo a signature where + overloadedMethod _ = treeSortableSetDefaultSortFunc + -- method TreeSortable::set_sort_column_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -251,22 +331,25 @@ treeSortableSetSortColumnId :: (MonadIO m, TreeSortableK a) => - a -> -- _obj - Int32 -> -- sort_column_id - SortType -> -- order - m () -treeSortableSetSortColumnId _obj sort_column_id order = liftIO $ do + a -- _obj + -> Int32 -- sortColumnId + -> SortType -- order + -> m () -- result +treeSortableSetSortColumnId _obj sortColumnId order = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let order' = (fromIntegral . fromEnum) order - gtk_tree_sortable_set_sort_column_id _obj' sort_column_id order' + gtk_tree_sortable_set_sort_column_id _obj' sortColumnId order' touchManagedPtr _obj return () +data TreeSortableSetSortColumnIdMethodInfo +instance (signature ~ (Int32 -> SortType -> m ()), MonadIO m, TreeSortableK a) => MethodInfo TreeSortableSetSortColumnIdMethodInfo a signature where + overloadedMethod _ = treeSortableSetSortColumnId + -- method TreeSortable::set_sort_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -282,24 +365,27 @@ treeSortableSetSortFunc :: (MonadIO m, TreeSortableK a) => - a -> -- _obj - Int32 -> -- sort_column_id - TreeIterCompareFunc -> -- sort_func - m () -treeSortableSetSortFunc _obj sort_column_id sort_func = liftIO $ do + a -- _obj + -> Int32 -- sortColumnId + -> TreeIterCompareFunc -- sortFunc + -> m () -- result +treeSortableSetSortFunc _obj sortColumnId sortFunc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - sort_func' <- mkTreeIterCompareFunc (treeIterCompareFuncWrapper Nothing sort_func) - let user_data = castFunPtrToPtr sort_func' + sortFunc' <- mkTreeIterCompareFunc (treeIterCompareFuncWrapper Nothing sortFunc) + let userData = castFunPtrToPtr sortFunc' let destroy = safeFreeFunPtrPtr - gtk_tree_sortable_set_sort_func _obj' sort_column_id sort_func' user_data destroy + gtk_tree_sortable_set_sort_func _obj' sortColumnId sortFunc' userData destroy touchManagedPtr _obj return () +data TreeSortableSetSortFuncMethodInfo +instance (signature ~ (Int32 -> TreeIterCompareFunc -> m ()), MonadIO m, TreeSortableK a) => MethodInfo TreeSortableSetSortFuncMethodInfo a signature where + overloadedMethod _ = treeSortableSetSortFunc + -- method TreeSortable::sort_column_changed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -311,12 +397,16 @@ treeSortableSortColumnChanged :: (MonadIO m, TreeSortableK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result treeSortableSortColumnChanged _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_sortable_sort_column_changed _obj' touchManagedPtr _obj return () + +data TreeSortableSortColumnChangedMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeSortableK a) => MethodInfo TreeSortableSortColumnChangedMethodInfo a signature where + overloadedMethod _ = treeSortableSortColumnChanged diff --git a/GI/Gtk/Interfaces/TreeSortable.hs-boot b/GI/Gtk/Interfaces/TreeSortable.hs-boot --- a/GI/Gtk/Interfaces/TreeSortable.hs-boot +++ b/GI/Gtk/Interfaces/TreeSortable.hs-boot @@ -12,3 +12,9 @@ instance GObject TreeSortable where class GObject o => TreeSortableK o instance (GObject o, IsDescendantOf TreeSortable o) => TreeSortableK o +data TreeSortableGetSortColumnIdMethodInfo +data TreeSortableHasDefaultSortFuncMethodInfo +data TreeSortableSetDefaultSortFuncMethodInfo +data TreeSortableSetSortColumnIdMethodInfo +data TreeSortableSetSortFuncMethodInfo +data TreeSortableSortColumnChangedMethodInfo diff --git a/GI/Gtk/Objects.hs b/GI/Gtk/Objects.hs --- a/GI/Gtk/Objects.hs +++ b/GI/Gtk/Objects.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Gtk/Objects/AboutDialog.hs b/GI/Gtk/Objects/AboutDialog.hs --- a/GI/Gtk/Objects/AboutDialog.hs +++ b/GI/Gtk/Objects/AboutDialog.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,66 +18,82 @@ -- * Methods -- ** aboutDialogAddCreditSection + AboutDialogAddCreditSectionMethodInfo , aboutDialogAddCreditSection , -- ** aboutDialogGetArtists + AboutDialogGetArtistsMethodInfo , aboutDialogGetArtists , -- ** aboutDialogGetAuthors + AboutDialogGetAuthorsMethodInfo , aboutDialogGetAuthors , -- ** aboutDialogGetComments + AboutDialogGetCommentsMethodInfo , aboutDialogGetComments , -- ** aboutDialogGetCopyright + AboutDialogGetCopyrightMethodInfo , aboutDialogGetCopyright , -- ** aboutDialogGetDocumenters + AboutDialogGetDocumentersMethodInfo , aboutDialogGetDocumenters , -- ** aboutDialogGetLicense + AboutDialogGetLicenseMethodInfo , aboutDialogGetLicense , -- ** aboutDialogGetLicenseType + AboutDialogGetLicenseTypeMethodInfo , aboutDialogGetLicenseType , -- ** aboutDialogGetLogo + AboutDialogGetLogoMethodInfo , aboutDialogGetLogo , -- ** aboutDialogGetLogoIconName + AboutDialogGetLogoIconNameMethodInfo , aboutDialogGetLogoIconName , -- ** aboutDialogGetProgramName + AboutDialogGetProgramNameMethodInfo , aboutDialogGetProgramName , -- ** aboutDialogGetTranslatorCredits + AboutDialogGetTranslatorCreditsMethodInfo, aboutDialogGetTranslatorCredits , -- ** aboutDialogGetVersion + AboutDialogGetVersionMethodInfo , aboutDialogGetVersion , -- ** aboutDialogGetWebsite + AboutDialogGetWebsiteMethodInfo , aboutDialogGetWebsite , -- ** aboutDialogGetWebsiteLabel + AboutDialogGetWebsiteLabelMethodInfo , aboutDialogGetWebsiteLabel , -- ** aboutDialogGetWrapLicense + AboutDialogGetWrapLicenseMethodInfo , aboutDialogGetWrapLicense , @@ -85,62 +102,77 @@ -- ** aboutDialogSetArtists + AboutDialogSetArtistsMethodInfo , aboutDialogSetArtists , -- ** aboutDialogSetAuthors + AboutDialogSetAuthorsMethodInfo , aboutDialogSetAuthors , -- ** aboutDialogSetComments + AboutDialogSetCommentsMethodInfo , aboutDialogSetComments , -- ** aboutDialogSetCopyright + AboutDialogSetCopyrightMethodInfo , aboutDialogSetCopyright , -- ** aboutDialogSetDocumenters + AboutDialogSetDocumentersMethodInfo , aboutDialogSetDocumenters , -- ** aboutDialogSetLicense + AboutDialogSetLicenseMethodInfo , aboutDialogSetLicense , -- ** aboutDialogSetLicenseType + AboutDialogSetLicenseTypeMethodInfo , aboutDialogSetLicenseType , -- ** aboutDialogSetLogo + AboutDialogSetLogoMethodInfo , aboutDialogSetLogo , -- ** aboutDialogSetLogoIconName + AboutDialogSetLogoIconNameMethodInfo , aboutDialogSetLogoIconName , -- ** aboutDialogSetProgramName + AboutDialogSetProgramNameMethodInfo , aboutDialogSetProgramName , -- ** aboutDialogSetTranslatorCredits + AboutDialogSetTranslatorCreditsMethodInfo, aboutDialogSetTranslatorCredits , -- ** aboutDialogSetVersion + AboutDialogSetVersionMethodInfo , aboutDialogSetVersion , -- ** aboutDialogSetWebsite + AboutDialogSetWebsiteMethodInfo , aboutDialogSetWebsite , -- ** aboutDialogSetWebsiteLabel + AboutDialogSetWebsiteLabelMethodInfo , aboutDialogSetWebsiteLabel , -- ** aboutDialogSetWrapLicense + AboutDialogSetWrapLicenseMethodInfo , aboutDialogSetWrapLicense , @@ -305,6 +337,473 @@ noAboutDialog :: Maybe AboutDialog noAboutDialog = Nothing +type family ResolveAboutDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveAboutDialogMethod "activate" o = WidgetActivateMethodInfo + ResolveAboutDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveAboutDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveAboutDialogMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveAboutDialogMethod "add" o = ContainerAddMethodInfo + ResolveAboutDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveAboutDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveAboutDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo + ResolveAboutDialogMethod "addButton" o = DialogAddButtonMethodInfo + ResolveAboutDialogMethod "addChild" o = BuildableAddChildMethodInfo + ResolveAboutDialogMethod "addCreditSection" o = AboutDialogAddCreditSectionMethodInfo + ResolveAboutDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveAboutDialogMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveAboutDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveAboutDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveAboutDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveAboutDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveAboutDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveAboutDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAboutDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAboutDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveAboutDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveAboutDialogMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveAboutDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveAboutDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveAboutDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveAboutDialogMethod "childType" o = ContainerChildTypeMethodInfo + ResolveAboutDialogMethod "classPath" o = WidgetClassPathMethodInfo + ResolveAboutDialogMethod "close" o = WindowCloseMethodInfo + ResolveAboutDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveAboutDialogMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveAboutDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveAboutDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveAboutDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveAboutDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveAboutDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveAboutDialogMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveAboutDialogMethod "destroy" o = WidgetDestroyMethodInfo + ResolveAboutDialogMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveAboutDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveAboutDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveAboutDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveAboutDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveAboutDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveAboutDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveAboutDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveAboutDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveAboutDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveAboutDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveAboutDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveAboutDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveAboutDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveAboutDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveAboutDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveAboutDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveAboutDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveAboutDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveAboutDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveAboutDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveAboutDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveAboutDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveAboutDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveAboutDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveAboutDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveAboutDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveAboutDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveAboutDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveAboutDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveAboutDialogMethod "draw" o = WidgetDrawMethodInfo + ResolveAboutDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveAboutDialogMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveAboutDialogMethod "event" o = WidgetEventMethodInfo + ResolveAboutDialogMethod "forall" o = ContainerForallMethodInfo + ResolveAboutDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAboutDialogMethod "foreach" o = ContainerForeachMethodInfo + ResolveAboutDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveAboutDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAboutDialogMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveAboutDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveAboutDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveAboutDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveAboutDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveAboutDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveAboutDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveAboutDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveAboutDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveAboutDialogMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveAboutDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveAboutDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveAboutDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveAboutDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveAboutDialogMethod "hide" o = WidgetHideMethodInfo + ResolveAboutDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveAboutDialogMethod "iconify" o = WindowIconifyMethodInfo + ResolveAboutDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveAboutDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveAboutDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveAboutDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveAboutDialogMethod "intersect" o = WidgetIntersectMethodInfo + ResolveAboutDialogMethod "isActive" o = WindowIsActiveMethodInfo + ResolveAboutDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveAboutDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveAboutDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveAboutDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAboutDialogMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveAboutDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveAboutDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveAboutDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveAboutDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveAboutDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveAboutDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveAboutDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveAboutDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveAboutDialogMethod "map" o = WidgetMapMethodInfo + ResolveAboutDialogMethod "maximize" o = WindowMaximizeMethodInfo + ResolveAboutDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveAboutDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveAboutDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveAboutDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveAboutDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveAboutDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveAboutDialogMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveAboutDialogMethod "move" o = WindowMoveMethodInfo + ResolveAboutDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAboutDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAboutDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveAboutDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveAboutDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveAboutDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveAboutDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveAboutDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveAboutDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveAboutDialogMethod "path" o = WidgetPathMethodInfo + ResolveAboutDialogMethod "present" o = WindowPresentMethodInfo + ResolveAboutDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveAboutDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveAboutDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveAboutDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveAboutDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveAboutDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveAboutDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveAboutDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveAboutDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveAboutDialogMethod "realize" o = WidgetRealizeMethodInfo + ResolveAboutDialogMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAboutDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAboutDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveAboutDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveAboutDialogMethod "remove" o = ContainerRemoveMethodInfo + ResolveAboutDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveAboutDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveAboutDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveAboutDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveAboutDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveAboutDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveAboutDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveAboutDialogMethod "reparent" o = WidgetReparentMethodInfo + ResolveAboutDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAboutDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAboutDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveAboutDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveAboutDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveAboutDialogMethod "resize" o = WindowResizeMethodInfo + ResolveAboutDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveAboutDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveAboutDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveAboutDialogMethod "response" o = DialogResponseMethodInfo + ResolveAboutDialogMethod "run" o = DialogRunMethodInfo + ResolveAboutDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAboutDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveAboutDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveAboutDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveAboutDialogMethod "show" o = WidgetShowMethodInfo + ResolveAboutDialogMethod "showAll" o = WidgetShowAllMethodInfo + ResolveAboutDialogMethod "showNow" o = WidgetShowNowMethodInfo + ResolveAboutDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveAboutDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveAboutDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveAboutDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAboutDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAboutDialogMethod "stick" o = WindowStickMethodInfo + ResolveAboutDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveAboutDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveAboutDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveAboutDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAboutDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveAboutDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveAboutDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveAboutDialogMethod "unmap" o = WidgetUnmapMethodInfo + ResolveAboutDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveAboutDialogMethod "unparent" o = WidgetUnparentMethodInfo + ResolveAboutDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveAboutDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAboutDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveAboutDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveAboutDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveAboutDialogMethod "unstick" o = WindowUnstickMethodInfo + ResolveAboutDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAboutDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveAboutDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveAboutDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo + ResolveAboutDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveAboutDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveAboutDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveAboutDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveAboutDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveAboutDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveAboutDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveAboutDialogMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveAboutDialogMethod "getArtists" o = AboutDialogGetArtistsMethodInfo + ResolveAboutDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveAboutDialogMethod "getAuthors" o = AboutDialogGetAuthorsMethodInfo + ResolveAboutDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveAboutDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveAboutDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveAboutDialogMethod "getChild" o = BinGetChildMethodInfo + ResolveAboutDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveAboutDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveAboutDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveAboutDialogMethod "getClip" o = WidgetGetClipMethodInfo + ResolveAboutDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveAboutDialogMethod "getComments" o = AboutDialogGetCommentsMethodInfo + ResolveAboutDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveAboutDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo + ResolveAboutDialogMethod "getCopyright" o = AboutDialogGetCopyrightMethodInfo + ResolveAboutDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAboutDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveAboutDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveAboutDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveAboutDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveAboutDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveAboutDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveAboutDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveAboutDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveAboutDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveAboutDialogMethod "getDocumenters" o = AboutDialogGetDocumentersMethodInfo + ResolveAboutDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveAboutDialogMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveAboutDialogMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveAboutDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveAboutDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveAboutDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveAboutDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveAboutDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveAboutDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveAboutDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveAboutDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveAboutDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveAboutDialogMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveAboutDialogMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveAboutDialogMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveAboutDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveAboutDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveAboutDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveAboutDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo + ResolveAboutDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveAboutDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveAboutDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveAboutDialogMethod "getIcon" o = WindowGetIconMethodInfo + ResolveAboutDialogMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveAboutDialogMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveAboutDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveAboutDialogMethod "getLicense" o = AboutDialogGetLicenseMethodInfo + ResolveAboutDialogMethod "getLicenseType" o = AboutDialogGetLicenseTypeMethodInfo + ResolveAboutDialogMethod "getLogo" o = AboutDialogGetLogoMethodInfo + ResolveAboutDialogMethod "getLogoIconName" o = AboutDialogGetLogoIconNameMethodInfo + ResolveAboutDialogMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveAboutDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveAboutDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveAboutDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveAboutDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveAboutDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveAboutDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveAboutDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveAboutDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveAboutDialogMethod "getModal" o = WindowGetModalMethodInfo + ResolveAboutDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveAboutDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveAboutDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveAboutDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveAboutDialogMethod "getParent" o = WidgetGetParentMethodInfo + ResolveAboutDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveAboutDialogMethod "getPath" o = WidgetGetPathMethodInfo + ResolveAboutDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveAboutDialogMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveAboutDialogMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveAboutDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveAboutDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAboutDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveAboutDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveAboutDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveAboutDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveAboutDialogMethod "getProgramName" o = AboutDialogGetProgramNameMethodInfo + ResolveAboutDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAboutDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAboutDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveAboutDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveAboutDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveAboutDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveAboutDialogMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveAboutDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveAboutDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveAboutDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo + ResolveAboutDialogMethod "getRole" o = WindowGetRoleMethodInfo + ResolveAboutDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveAboutDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveAboutDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveAboutDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveAboutDialogMethod "getSize" o = WindowGetSizeMethodInfo + ResolveAboutDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveAboutDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveAboutDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveAboutDialogMethod "getState" o = WidgetGetStateMethodInfo + ResolveAboutDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveAboutDialogMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveAboutDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveAboutDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveAboutDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveAboutDialogMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveAboutDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveAboutDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveAboutDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveAboutDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveAboutDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveAboutDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveAboutDialogMethod "getTranslatorCredits" o = AboutDialogGetTranslatorCreditsMethodInfo + ResolveAboutDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveAboutDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveAboutDialogMethod "getValign" o = WidgetGetValignMethodInfo + ResolveAboutDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveAboutDialogMethod "getVersion" o = AboutDialogGetVersionMethodInfo + ResolveAboutDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveAboutDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveAboutDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveAboutDialogMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveAboutDialogMethod "getWebsite" o = AboutDialogGetWebsiteMethodInfo + ResolveAboutDialogMethod "getWebsiteLabel" o = AboutDialogGetWebsiteLabelMethodInfo + ResolveAboutDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo + ResolveAboutDialogMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveAboutDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveAboutDialogMethod "getWrapLicense" o = AboutDialogGetWrapLicenseMethodInfo + ResolveAboutDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveAboutDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveAboutDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveAboutDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo + ResolveAboutDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveAboutDialogMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveAboutDialogMethod "setArtists" o = AboutDialogSetArtistsMethodInfo + ResolveAboutDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveAboutDialogMethod "setAuthors" o = AboutDialogSetAuthorsMethodInfo + ResolveAboutDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveAboutDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveAboutDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveAboutDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveAboutDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveAboutDialogMethod "setClip" o = WidgetSetClipMethodInfo + ResolveAboutDialogMethod "setComments" o = AboutDialogSetCommentsMethodInfo + ResolveAboutDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveAboutDialogMethod "setCopyright" o = AboutDialogSetCopyrightMethodInfo + ResolveAboutDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAboutDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveAboutDialogMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveAboutDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveAboutDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo + ResolveAboutDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveAboutDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveAboutDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveAboutDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveAboutDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveAboutDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveAboutDialogMethod "setDocumenters" o = AboutDialogSetDocumentersMethodInfo + ResolveAboutDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveAboutDialogMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveAboutDialogMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveAboutDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveAboutDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveAboutDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveAboutDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveAboutDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveAboutDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveAboutDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveAboutDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveAboutDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveAboutDialogMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveAboutDialogMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveAboutDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveAboutDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveAboutDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveAboutDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveAboutDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveAboutDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveAboutDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveAboutDialogMethod "setIcon" o = WindowSetIconMethodInfo + ResolveAboutDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveAboutDialogMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveAboutDialogMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveAboutDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveAboutDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveAboutDialogMethod "setLicense" o = AboutDialogSetLicenseMethodInfo + ResolveAboutDialogMethod "setLicenseType" o = AboutDialogSetLicenseTypeMethodInfo + ResolveAboutDialogMethod "setLogo" o = AboutDialogSetLogoMethodInfo + ResolveAboutDialogMethod "setLogoIconName" o = AboutDialogSetLogoIconNameMethodInfo + ResolveAboutDialogMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveAboutDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveAboutDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveAboutDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveAboutDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveAboutDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveAboutDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveAboutDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveAboutDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveAboutDialogMethod "setModal" o = WindowSetModalMethodInfo + ResolveAboutDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveAboutDialogMethod "setParent" o = WidgetSetParentMethodInfo + ResolveAboutDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveAboutDialogMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveAboutDialogMethod "setProgramName" o = AboutDialogSetProgramNameMethodInfo + ResolveAboutDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAboutDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveAboutDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveAboutDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveAboutDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveAboutDialogMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveAboutDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveAboutDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo + ResolveAboutDialogMethod "setRole" o = WindowSetRoleMethodInfo + ResolveAboutDialogMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveAboutDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveAboutDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveAboutDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveAboutDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveAboutDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveAboutDialogMethod "setState" o = WidgetSetStateMethodInfo + ResolveAboutDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveAboutDialogMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveAboutDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveAboutDialogMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveAboutDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveAboutDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveAboutDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveAboutDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveAboutDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveAboutDialogMethod "setTranslatorCredits" o = AboutDialogSetTranslatorCreditsMethodInfo + ResolveAboutDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveAboutDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveAboutDialogMethod "setValign" o = WidgetSetValignMethodInfo + ResolveAboutDialogMethod "setVersion" o = AboutDialogSetVersionMethodInfo + ResolveAboutDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveAboutDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveAboutDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveAboutDialogMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveAboutDialogMethod "setWebsite" o = AboutDialogSetWebsiteMethodInfo + ResolveAboutDialogMethod "setWebsiteLabel" o = AboutDialogSetWebsiteLabelMethodInfo + ResolveAboutDialogMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveAboutDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveAboutDialogMethod "setWrapLicense" o = AboutDialogSetWrapLicenseMethodInfo + ResolveAboutDialogMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAboutDialogMethod t AboutDialog, MethodInfo info AboutDialog p) => IsLabelProxy t (AboutDialog -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAboutDialogMethod t AboutDialog, MethodInfo info AboutDialog p) => IsLabel t (AboutDialog -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal AboutDialog::activate-link type AboutDialogActivateLinkCallback = T.Text -> @@ -368,7 +867,7 @@ type AttrSetTypeConstraint AboutDialogArtistsPropertyInfo = (~) [T.Text] type AttrBaseTypeConstraint AboutDialogArtistsPropertyInfo = AboutDialogK type AttrGetType AboutDialogArtistsPropertyInfo = [T.Text] - type AttrLabel AboutDialogArtistsPropertyInfo = "AboutDialog::artists" + type AttrLabel AboutDialogArtistsPropertyInfo = "artists" attrGet _ = getAboutDialogArtists attrSet _ = setAboutDialogArtists attrConstruct _ = constructAboutDialogArtists @@ -392,7 +891,7 @@ type AttrSetTypeConstraint AboutDialogAuthorsPropertyInfo = (~) [T.Text] type AttrBaseTypeConstraint AboutDialogAuthorsPropertyInfo = AboutDialogK type AttrGetType AboutDialogAuthorsPropertyInfo = [T.Text] - type AttrLabel AboutDialogAuthorsPropertyInfo = "AboutDialog::authors" + type AttrLabel AboutDialogAuthorsPropertyInfo = "authors" attrGet _ = getAboutDialogAuthors attrSet _ = setAboutDialogAuthors attrConstruct _ = constructAboutDialogAuthors @@ -416,7 +915,7 @@ type AttrSetTypeConstraint AboutDialogCommentsPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogCommentsPropertyInfo = AboutDialogK type AttrGetType AboutDialogCommentsPropertyInfo = T.Text - type AttrLabel AboutDialogCommentsPropertyInfo = "AboutDialog::comments" + type AttrLabel AboutDialogCommentsPropertyInfo = "comments" attrGet _ = getAboutDialogComments attrSet _ = setAboutDialogComments attrConstruct _ = constructAboutDialogComments @@ -440,7 +939,7 @@ type AttrSetTypeConstraint AboutDialogCopyrightPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogCopyrightPropertyInfo = AboutDialogK type AttrGetType AboutDialogCopyrightPropertyInfo = T.Text - type AttrLabel AboutDialogCopyrightPropertyInfo = "AboutDialog::copyright" + type AttrLabel AboutDialogCopyrightPropertyInfo = "copyright" attrGet _ = getAboutDialogCopyright attrSet _ = setAboutDialogCopyright attrConstruct _ = constructAboutDialogCopyright @@ -464,7 +963,7 @@ type AttrSetTypeConstraint AboutDialogDocumentersPropertyInfo = (~) [T.Text] type AttrBaseTypeConstraint AboutDialogDocumentersPropertyInfo = AboutDialogK type AttrGetType AboutDialogDocumentersPropertyInfo = [T.Text] - type AttrLabel AboutDialogDocumentersPropertyInfo = "AboutDialog::documenters" + type AttrLabel AboutDialogDocumentersPropertyInfo = "documenters" attrGet _ = getAboutDialogDocumenters attrSet _ = setAboutDialogDocumenters attrConstruct _ = constructAboutDialogDocumenters @@ -488,7 +987,7 @@ type AttrSetTypeConstraint AboutDialogLicensePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogLicensePropertyInfo = AboutDialogK type AttrGetType AboutDialogLicensePropertyInfo = T.Text - type AttrLabel AboutDialogLicensePropertyInfo = "AboutDialog::license" + type AttrLabel AboutDialogLicensePropertyInfo = "license" attrGet _ = getAboutDialogLicense attrSet _ = setAboutDialogLicense attrConstruct _ = constructAboutDialogLicense @@ -512,7 +1011,7 @@ type AttrSetTypeConstraint AboutDialogLicenseTypePropertyInfo = (~) License type AttrBaseTypeConstraint AboutDialogLicenseTypePropertyInfo = AboutDialogK type AttrGetType AboutDialogLicenseTypePropertyInfo = License - type AttrLabel AboutDialogLicenseTypePropertyInfo = "AboutDialog::license-type" + type AttrLabel AboutDialogLicenseTypePropertyInfo = "license-type" attrGet _ = getAboutDialogLicenseType attrSet _ = setAboutDialogLicenseType attrConstruct _ = constructAboutDialogLicenseType @@ -536,7 +1035,7 @@ type AttrSetTypeConstraint AboutDialogLogoPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint AboutDialogLogoPropertyInfo = AboutDialogK type AttrGetType AboutDialogLogoPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel AboutDialogLogoPropertyInfo = "AboutDialog::logo" + type AttrLabel AboutDialogLogoPropertyInfo = "logo" attrGet _ = getAboutDialogLogo attrSet _ = setAboutDialogLogo attrConstruct _ = constructAboutDialogLogo @@ -560,7 +1059,7 @@ type AttrSetTypeConstraint AboutDialogLogoIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogLogoIconNamePropertyInfo = AboutDialogK type AttrGetType AboutDialogLogoIconNamePropertyInfo = T.Text - type AttrLabel AboutDialogLogoIconNamePropertyInfo = "AboutDialog::logo-icon-name" + type AttrLabel AboutDialogLogoIconNamePropertyInfo = "logo-icon-name" attrGet _ = getAboutDialogLogoIconName attrSet _ = setAboutDialogLogoIconName attrConstruct _ = constructAboutDialogLogoIconName @@ -584,7 +1083,7 @@ type AttrSetTypeConstraint AboutDialogProgramNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogProgramNamePropertyInfo = AboutDialogK type AttrGetType AboutDialogProgramNamePropertyInfo = T.Text - type AttrLabel AboutDialogProgramNamePropertyInfo = "AboutDialog::program-name" + type AttrLabel AboutDialogProgramNamePropertyInfo = "program-name" attrGet _ = getAboutDialogProgramName attrSet _ = setAboutDialogProgramName attrConstruct _ = constructAboutDialogProgramName @@ -608,7 +1107,7 @@ type AttrSetTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = AboutDialogK type AttrGetType AboutDialogTranslatorCreditsPropertyInfo = T.Text - type AttrLabel AboutDialogTranslatorCreditsPropertyInfo = "AboutDialog::translator-credits" + type AttrLabel AboutDialogTranslatorCreditsPropertyInfo = "translator-credits" attrGet _ = getAboutDialogTranslatorCredits attrSet _ = setAboutDialogTranslatorCredits attrConstruct _ = constructAboutDialogTranslatorCredits @@ -632,7 +1131,7 @@ type AttrSetTypeConstraint AboutDialogVersionPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogVersionPropertyInfo = AboutDialogK type AttrGetType AboutDialogVersionPropertyInfo = T.Text - type AttrLabel AboutDialogVersionPropertyInfo = "AboutDialog::version" + type AttrLabel AboutDialogVersionPropertyInfo = "version" attrGet _ = getAboutDialogVersion attrSet _ = setAboutDialogVersion attrConstruct _ = constructAboutDialogVersion @@ -656,7 +1155,7 @@ type AttrSetTypeConstraint AboutDialogWebsitePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogWebsitePropertyInfo = AboutDialogK type AttrGetType AboutDialogWebsitePropertyInfo = T.Text - type AttrLabel AboutDialogWebsitePropertyInfo = "AboutDialog::website" + type AttrLabel AboutDialogWebsitePropertyInfo = "website" attrGet _ = getAboutDialogWebsite attrSet _ = setAboutDialogWebsite attrConstruct _ = constructAboutDialogWebsite @@ -680,7 +1179,7 @@ type AttrSetTypeConstraint AboutDialogWebsiteLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogWebsiteLabelPropertyInfo = AboutDialogK type AttrGetType AboutDialogWebsiteLabelPropertyInfo = T.Text - type AttrLabel AboutDialogWebsiteLabelPropertyInfo = "AboutDialog::website-label" + type AttrLabel AboutDialogWebsiteLabelPropertyInfo = "website-label" attrGet _ = getAboutDialogWebsiteLabel attrSet _ = setAboutDialogWebsiteLabel attrConstruct _ = constructAboutDialogWebsiteLabel @@ -704,13 +1203,13 @@ type AttrSetTypeConstraint AboutDialogWrapLicensePropertyInfo = (~) Bool type AttrBaseTypeConstraint AboutDialogWrapLicensePropertyInfo = AboutDialogK type AttrGetType AboutDialogWrapLicensePropertyInfo = Bool - type AttrLabel AboutDialogWrapLicensePropertyInfo = "AboutDialog::wrap-license" + type AttrLabel AboutDialogWrapLicensePropertyInfo = "wrap-license" attrGet _ = getAboutDialogWrapLicense attrSet _ = setAboutDialogWrapLicense attrConstruct _ = constructAboutDialogWrapLicense type instance AttributeList AboutDialog = AboutDialogAttributeList -type AboutDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("artists", AboutDialogArtistsPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("authors", AboutDialogAuthorsPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("comments", AboutDialogCommentsPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("copyright", AboutDialogCopyrightPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("documenters", AboutDialogDocumentersPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("license", AboutDialogLicensePropertyInfo), '("license-type", AboutDialogLicenseTypePropertyInfo), '("logo", AboutDialogLogoPropertyInfo), '("logo-icon-name", AboutDialogLogoIconNamePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("program-name", AboutDialogProgramNamePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("translator-credits", AboutDialogTranslatorCreditsPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("version", AboutDialogVersionPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("website", AboutDialogWebsitePropertyInfo), '("website-label", AboutDialogWebsiteLabelPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo), '("wrap-license", AboutDialogWrapLicensePropertyInfo)] :: [(Symbol, *)]) +type AboutDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("artists", AboutDialogArtistsPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("authors", AboutDialogAuthorsPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("comments", AboutDialogCommentsPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("copyright", AboutDialogCopyrightPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("documenters", AboutDialogDocumentersPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("license", AboutDialogLicensePropertyInfo), '("licenseType", AboutDialogLicenseTypePropertyInfo), '("logo", AboutDialogLogoPropertyInfo), '("logoIconName", AboutDialogLogoIconNamePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("programName", AboutDialogProgramNamePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("translatorCredits", AboutDialogTranslatorCreditsPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("version", AboutDialogVersionPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("website", AboutDialogWebsitePropertyInfo), '("websiteLabel", AboutDialogWebsiteLabelPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo), '("wrapLicense", AboutDialogWrapLicensePropertyInfo)] :: [(Symbol, *)]) data AboutDialogActivateLinkSignalInfo instance SignalInfo AboutDialogActivateLinkSignalInfo where @@ -718,13 +1217,12 @@ connectSignal _ = connectAboutDialogActivateLink type instance SignalList AboutDialog = AboutDialogSignalList -type AboutDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("activate-link", AboutDialogActivateLinkSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AboutDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("activateLink", AboutDialogActivateLinkSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method AboutDialog::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "AboutDialog" -- throws : False -- Skip return : False @@ -735,7 +1233,7 @@ aboutDialogNew :: (MonadIO m) => - m AboutDialog + m AboutDialog -- result aboutDialogNew = liftIO $ do result <- gtk_about_dialog_new checkUnexpectedReturnNULL "gtk_about_dialog_new" result @@ -744,9 +1242,8 @@ -- method AboutDialog::add_credit_section -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "people", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "people", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "people", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -760,26 +1257,29 @@ aboutDialogAddCreditSection :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - T.Text -> -- section_name - [T.Text] -> -- people - m () -aboutDialogAddCreditSection _obj section_name people = liftIO $ do + a -- _obj + -> T.Text -- sectionName + -> [T.Text] -- people + -> m () -- result +aboutDialogAddCreditSection _obj sectionName people = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - section_name' <- textToCString section_name + sectionName' <- textToCString sectionName people' <- packZeroTerminatedUTF8CArray people - gtk_about_dialog_add_credit_section _obj' section_name' people' + gtk_about_dialog_add_credit_section _obj' sectionName' people' touchManagedPtr _obj - freeMem section_name' + freeMem sectionName' mapZeroTerminatedCArray freeMem people' freeMem people' return () +data AboutDialogAddCreditSectionMethodInfo +instance (signature ~ (T.Text -> [T.Text] -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogAddCreditSectionMethodInfo a signature where + overloadedMethod _ = aboutDialogAddCreditSection + -- method AboutDialog::get_artists -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -791,8 +1291,8 @@ aboutDialogGetArtists :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result aboutDialogGetArtists _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_artists _obj' @@ -801,11 +1301,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetArtistsMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetArtistsMethodInfo a signature where + overloadedMethod _ = aboutDialogGetArtists + -- method AboutDialog::get_authors -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -817,8 +1320,8 @@ aboutDialogGetAuthors :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result aboutDialogGetAuthors _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_authors _obj' @@ -827,11 +1330,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetAuthorsMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetAuthorsMethodInfo a signature where + overloadedMethod _ = aboutDialogGetAuthors + -- method AboutDialog::get_comments -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -843,8 +1349,8 @@ aboutDialogGetComments :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result aboutDialogGetComments _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_comments _obj' @@ -853,11 +1359,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetCommentsMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetCommentsMethodInfo a signature where + overloadedMethod _ = aboutDialogGetComments + -- method AboutDialog::get_copyright -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -869,8 +1378,8 @@ aboutDialogGetCopyright :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result aboutDialogGetCopyright _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_copyright _obj' @@ -879,11 +1388,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetCopyrightMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetCopyrightMethodInfo a signature where + overloadedMethod _ = aboutDialogGetCopyright + -- method AboutDialog::get_documenters -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -895,8 +1407,8 @@ aboutDialogGetDocumenters :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result aboutDialogGetDocumenters _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_documenters _obj' @@ -905,11 +1417,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetDocumentersMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetDocumentersMethodInfo a signature where + overloadedMethod _ = aboutDialogGetDocumenters + -- method AboutDialog::get_license -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -921,8 +1436,8 @@ aboutDialogGetLicense :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result aboutDialogGetLicense _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_license _obj' @@ -931,11 +1446,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetLicenseMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetLicenseMethodInfo a signature where + overloadedMethod _ = aboutDialogGetLicense + -- method AboutDialog::get_license_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "License" -- throws : False -- Skip return : False @@ -947,8 +1465,8 @@ aboutDialogGetLicenseType :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m License + a -- _obj + -> m License -- result aboutDialogGetLicenseType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_license_type _obj' @@ -956,11 +1474,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetLicenseTypeMethodInfo +instance (signature ~ (m License), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetLicenseTypeMethodInfo a signature where + overloadedMethod _ = aboutDialogGetLicenseType + -- method AboutDialog::get_logo -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -972,8 +1493,8 @@ aboutDialogGetLogo :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m GdkPixbuf.Pixbuf + a -- _obj + -> m GdkPixbuf.Pixbuf -- result aboutDialogGetLogo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_logo _obj' @@ -982,11 +1503,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetLogoMethodInfo +instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetLogoMethodInfo a signature where + overloadedMethod _ = aboutDialogGetLogo + -- method AboutDialog::get_logo_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -998,8 +1522,8 @@ aboutDialogGetLogoIconName :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result aboutDialogGetLogoIconName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_logo_icon_name _obj' @@ -1008,11 +1532,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetLogoIconNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetLogoIconNameMethodInfo a signature where + overloadedMethod _ = aboutDialogGetLogoIconName + -- method AboutDialog::get_program_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1024,8 +1551,8 @@ aboutDialogGetProgramName :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result aboutDialogGetProgramName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_program_name _obj' @@ -1034,11 +1561,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetProgramNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetProgramNameMethodInfo a signature where + overloadedMethod _ = aboutDialogGetProgramName + -- method AboutDialog::get_translator_credits -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1050,8 +1580,8 @@ aboutDialogGetTranslatorCredits :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result aboutDialogGetTranslatorCredits _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_translator_credits _obj' @@ -1060,11 +1590,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetTranslatorCreditsMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetTranslatorCreditsMethodInfo a signature where + overloadedMethod _ = aboutDialogGetTranslatorCredits + -- method AboutDialog::get_version -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1076,8 +1609,8 @@ aboutDialogGetVersion :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result aboutDialogGetVersion _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_version _obj' @@ -1086,11 +1619,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetVersionMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetVersionMethodInfo a signature where + overloadedMethod _ = aboutDialogGetVersion + -- method AboutDialog::get_website -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1102,8 +1638,8 @@ aboutDialogGetWebsite :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result aboutDialogGetWebsite _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_website _obj' @@ -1112,11 +1648,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetWebsiteMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetWebsiteMethodInfo a signature where + overloadedMethod _ = aboutDialogGetWebsite + -- method AboutDialog::get_website_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1128,8 +1667,8 @@ aboutDialogGetWebsiteLabel :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result aboutDialogGetWebsiteLabel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_website_label _obj' @@ -1138,11 +1677,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetWebsiteLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetWebsiteLabelMethodInfo a signature where + overloadedMethod _ = aboutDialogGetWebsiteLabel + -- method AboutDialog::get_wrap_license -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1154,8 +1696,8 @@ aboutDialogGetWrapLicense :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result aboutDialogGetWrapLicense _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_about_dialog_get_wrap_license _obj' @@ -1163,11 +1705,14 @@ touchManagedPtr _obj return result' +data AboutDialogGetWrapLicenseMethodInfo +instance (signature ~ (m Bool), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogGetWrapLicenseMethodInfo a signature where + overloadedMethod _ = aboutDialogGetWrapLicense + -- method AboutDialog::set_artists -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "artists", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "artists", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "artists", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1180,9 +1725,9 @@ aboutDialogSetArtists :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - [T.Text] -> -- artists - m () + a -- _obj + -> [T.Text] -- artists + -> m () -- result aboutDialogSetArtists _obj artists = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj artists' <- packZeroTerminatedUTF8CArray artists @@ -1192,11 +1737,14 @@ freeMem artists' return () +data AboutDialogSetArtistsMethodInfo +instance (signature ~ ([T.Text] -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetArtistsMethodInfo a signature where + overloadedMethod _ = aboutDialogSetArtists + -- method AboutDialog::set_authors -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "authors", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "authors", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "authors", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1209,9 +1757,9 @@ aboutDialogSetAuthors :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - [T.Text] -> -- authors - m () + a -- _obj + -> [T.Text] -- authors + -> m () -- result aboutDialogSetAuthors _obj authors = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj authors' <- packZeroTerminatedUTF8CArray authors @@ -1221,11 +1769,14 @@ freeMem authors' return () +data AboutDialogSetAuthorsMethodInfo +instance (signature ~ ([T.Text] -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetAuthorsMethodInfo a signature where + overloadedMethod _ = aboutDialogSetAuthors + -- method AboutDialog::set_comments -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comments", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "comments", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comments", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1238,9 +1789,9 @@ aboutDialogSetComments :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - Maybe (T.Text) -> -- comments - m () + a -- _obj + -> Maybe (T.Text) -- comments + -> m () -- result aboutDialogSetComments _obj comments = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeComments <- case comments of @@ -1253,11 +1804,14 @@ freeMem maybeComments return () +data AboutDialogSetCommentsMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetCommentsMethodInfo a signature where + overloadedMethod _ = aboutDialogSetComments + -- method AboutDialog::set_copyright -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copyright", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "copyright", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copyright", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1270,9 +1824,9 @@ aboutDialogSetCopyright :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - Maybe (T.Text) -> -- copyright - m () + a -- _obj + -> Maybe (T.Text) -- copyright + -> m () -- result aboutDialogSetCopyright _obj copyright = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCopyright <- case copyright of @@ -1285,11 +1839,14 @@ freeMem maybeCopyright return () +data AboutDialogSetCopyrightMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetCopyrightMethodInfo a signature where + overloadedMethod _ = aboutDialogSetCopyright + -- method AboutDialog::set_documenters -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "documenters", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "documenters", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "documenters", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1302,9 +1859,9 @@ aboutDialogSetDocumenters :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - [T.Text] -> -- documenters - m () + a -- _obj + -> [T.Text] -- documenters + -> m () -- result aboutDialogSetDocumenters _obj documenters = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj documenters' <- packZeroTerminatedUTF8CArray documenters @@ -1314,11 +1871,14 @@ freeMem documenters' return () +data AboutDialogSetDocumentersMethodInfo +instance (signature ~ ([T.Text] -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetDocumentersMethodInfo a signature where + overloadedMethod _ = aboutDialogSetDocumenters + -- method AboutDialog::set_license -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "license", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "license", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "license", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1331,9 +1891,9 @@ aboutDialogSetLicense :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - Maybe (T.Text) -> -- license - m () + a -- _obj + -> Maybe (T.Text) -- license + -> m () -- result aboutDialogSetLicense _obj license = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLicense <- case license of @@ -1346,11 +1906,14 @@ freeMem maybeLicense return () +data AboutDialogSetLicenseMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetLicenseMethodInfo a signature where + overloadedMethod _ = aboutDialogSetLicense + -- method AboutDialog::set_license_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "license_type", argType = TInterface "Gtk" "License", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "license_type", argType = TInterface "Gtk" "License", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "license_type", argType = TInterface "Gtk" "License", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1363,21 +1926,24 @@ aboutDialogSetLicenseType :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - License -> -- license_type - m () -aboutDialogSetLicenseType _obj license_type = liftIO $ do + a -- _obj + -> License -- licenseType + -> m () -- result +aboutDialogSetLicenseType _obj licenseType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let license_type' = (fromIntegral . fromEnum) license_type - gtk_about_dialog_set_license_type _obj' license_type' + let licenseType' = (fromIntegral . fromEnum) licenseType + gtk_about_dialog_set_license_type _obj' licenseType' touchManagedPtr _obj return () +data AboutDialogSetLicenseTypeMethodInfo +instance (signature ~ (License -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetLicenseTypeMethodInfo a signature where + overloadedMethod _ = aboutDialogSetLicenseType + -- method AboutDialog::set_logo -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logo", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "logo", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logo", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1390,9 +1956,9 @@ aboutDialogSetLogo :: (MonadIO m, AboutDialogK a, GdkPixbuf.PixbufK b) => - a -> -- _obj - Maybe (b) -> -- logo - m () + a -- _obj + -> Maybe (b) -- logo + -> m () -- result aboutDialogSetLogo _obj logo = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLogo <- case logo of @@ -1405,11 +1971,14 @@ whenJust logo touchManagedPtr return () +data AboutDialogSetLogoMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, AboutDialogK a, GdkPixbuf.PixbufK b) => MethodInfo AboutDialogSetLogoMethodInfo a signature where + overloadedMethod _ = aboutDialogSetLogo + -- method AboutDialog::set_logo_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1422,26 +1991,29 @@ aboutDialogSetLogoIconName :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - Maybe (T.Text) -> -- icon_name - m () -aboutDialogSetLogoIconName _obj icon_name = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- iconName + -> m () -- result +aboutDialogSetLogoIconName _obj iconName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon_name <- case icon_name of + maybeIconName <- case iconName of Nothing -> return nullPtr - Just jIcon_name -> do - jIcon_name' <- textToCString jIcon_name - return jIcon_name' - gtk_about_dialog_set_logo_icon_name _obj' maybeIcon_name + Just jIconName -> do + jIconName' <- textToCString jIconName + return jIconName' + gtk_about_dialog_set_logo_icon_name _obj' maybeIconName touchManagedPtr _obj - freeMem maybeIcon_name + freeMem maybeIconName return () +data AboutDialogSetLogoIconNameMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetLogoIconNameMethodInfo a signature where + overloadedMethod _ = aboutDialogSetLogoIconName + -- method AboutDialog::set_program_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1454,9 +2026,9 @@ aboutDialogSetProgramName :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - T.Text -> -- name - m () + a -- _obj + -> T.Text -- name + -> m () -- result aboutDialogSetProgramName _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -1465,11 +2037,14 @@ freeMem name' return () +data AboutDialogSetProgramNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetProgramNameMethodInfo a signature where + overloadedMethod _ = aboutDialogSetProgramName + -- method AboutDialog::set_translator_credits -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translator_credits", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translator_credits", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translator_credits", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1482,26 +2057,29 @@ aboutDialogSetTranslatorCredits :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - Maybe (T.Text) -> -- translator_credits - m () -aboutDialogSetTranslatorCredits _obj translator_credits = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- translatorCredits + -> m () -- result +aboutDialogSetTranslatorCredits _obj translatorCredits = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeTranslator_credits <- case translator_credits of + maybeTranslatorCredits <- case translatorCredits of Nothing -> return nullPtr - Just jTranslator_credits -> do - jTranslator_credits' <- textToCString jTranslator_credits - return jTranslator_credits' - gtk_about_dialog_set_translator_credits _obj' maybeTranslator_credits + Just jTranslatorCredits -> do + jTranslatorCredits' <- textToCString jTranslatorCredits + return jTranslatorCredits' + gtk_about_dialog_set_translator_credits _obj' maybeTranslatorCredits touchManagedPtr _obj - freeMem maybeTranslator_credits + freeMem maybeTranslatorCredits return () +data AboutDialogSetTranslatorCreditsMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetTranslatorCreditsMethodInfo a signature where + overloadedMethod _ = aboutDialogSetTranslatorCredits + -- method AboutDialog::set_version -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1514,9 +2092,9 @@ aboutDialogSetVersion :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - Maybe (T.Text) -> -- version - m () + a -- _obj + -> Maybe (T.Text) -- version + -> m () -- result aboutDialogSetVersion _obj version = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeVersion <- case version of @@ -1529,11 +2107,14 @@ freeMem maybeVersion return () +data AboutDialogSetVersionMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetVersionMethodInfo a signature where + overloadedMethod _ = aboutDialogSetVersion + -- method AboutDialog::set_website -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "website", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "website", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "website", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1546,9 +2127,9 @@ aboutDialogSetWebsite :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - Maybe (T.Text) -> -- website - m () + a -- _obj + -> Maybe (T.Text) -- website + -> m () -- result aboutDialogSetWebsite _obj website = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeWebsite <- case website of @@ -1561,11 +2142,14 @@ freeMem maybeWebsite return () +data AboutDialogSetWebsiteMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetWebsiteMethodInfo a signature where + overloadedMethod _ = aboutDialogSetWebsite + -- method AboutDialog::set_website_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "website_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "website_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "website_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1578,22 +2162,25 @@ aboutDialogSetWebsiteLabel :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - T.Text -> -- website_label - m () -aboutDialogSetWebsiteLabel _obj website_label = liftIO $ do + a -- _obj + -> T.Text -- websiteLabel + -> m () -- result +aboutDialogSetWebsiteLabel _obj websiteLabel = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - website_label' <- textToCString website_label - gtk_about_dialog_set_website_label _obj' website_label' + websiteLabel' <- textToCString websiteLabel + gtk_about_dialog_set_website_label _obj' websiteLabel' touchManagedPtr _obj - freeMem website_label' + freeMem websiteLabel' return () +data AboutDialogSetWebsiteLabelMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetWebsiteLabelMethodInfo a signature where + overloadedMethod _ = aboutDialogSetWebsiteLabel + -- method AboutDialog::set_wrap_license -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_license", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap_license", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_license", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1606,14 +2193,18 @@ aboutDialogSetWrapLicense :: (MonadIO m, AboutDialogK a) => - a -> -- _obj - Bool -> -- wrap_license - m () -aboutDialogSetWrapLicense _obj wrap_license = liftIO $ do + a -- _obj + -> Bool -- wrapLicense + -> m () -- result +aboutDialogSetWrapLicense _obj wrapLicense = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let wrap_license' = (fromIntegral . fromEnum) wrap_license - gtk_about_dialog_set_wrap_license _obj' wrap_license' + let wrapLicense' = (fromIntegral . fromEnum) wrapLicense + gtk_about_dialog_set_wrap_license _obj' wrapLicense' touchManagedPtr _obj return () + +data AboutDialogSetWrapLicenseMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, AboutDialogK a) => MethodInfo AboutDialogSetWrapLicenseMethodInfo a signature where + overloadedMethod _ = aboutDialogSetWrapLicense diff --git a/GI/Gtk/Objects/AboutDialog.hs-boot b/GI/Gtk/Objects/AboutDialog.hs-boot --- a/GI/Gtk/Objects/AboutDialog.hs-boot +++ b/GI/Gtk/Objects/AboutDialog.hs-boot @@ -27,3 +27,34 @@ data AboutDialogWebsiteLabelPropertyInfo data AboutDialogWrapLicensePropertyInfo data AboutDialogActivateLinkSignalInfo +data AboutDialogAddCreditSectionMethodInfo +data AboutDialogGetArtistsMethodInfo +data AboutDialogGetAuthorsMethodInfo +data AboutDialogGetCommentsMethodInfo +data AboutDialogGetCopyrightMethodInfo +data AboutDialogGetDocumentersMethodInfo +data AboutDialogGetLicenseMethodInfo +data AboutDialogGetLicenseTypeMethodInfo +data AboutDialogGetLogoMethodInfo +data AboutDialogGetLogoIconNameMethodInfo +data AboutDialogGetProgramNameMethodInfo +data AboutDialogGetTranslatorCreditsMethodInfo +data AboutDialogGetVersionMethodInfo +data AboutDialogGetWebsiteMethodInfo +data AboutDialogGetWebsiteLabelMethodInfo +data AboutDialogGetWrapLicenseMethodInfo +data AboutDialogSetArtistsMethodInfo +data AboutDialogSetAuthorsMethodInfo +data AboutDialogSetCommentsMethodInfo +data AboutDialogSetCopyrightMethodInfo +data AboutDialogSetDocumentersMethodInfo +data AboutDialogSetLicenseMethodInfo +data AboutDialogSetLicenseTypeMethodInfo +data AboutDialogSetLogoMethodInfo +data AboutDialogSetLogoIconNameMethodInfo +data AboutDialogSetProgramNameMethodInfo +data AboutDialogSetTranslatorCreditsMethodInfo +data AboutDialogSetVersionMethodInfo +data AboutDialogSetWebsiteMethodInfo +data AboutDialogSetWebsiteLabelMethodInfo +data AboutDialogSetWrapLicenseMethodInfo diff --git a/GI/Gtk/Objects/AccelGroup.hs b/GI/Gtk/Objects/AccelGroup.hs --- a/GI/Gtk/Objects/AccelGroup.hs +++ b/GI/Gtk/Objects/AccelGroup.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** accelGroupActivate + AccelGroupActivateMethodInfo , accelGroupActivate , -- ** accelGroupConnect + AccelGroupConnectMethodInfo , accelGroupConnect , -- ** accelGroupConnectByPath + AccelGroupConnectByPathMethodInfo , accelGroupConnectByPath , -- ** accelGroupDisconnect + AccelGroupDisconnectMethodInfo , accelGroupDisconnect , -- ** accelGroupDisconnectKey + AccelGroupDisconnectKeyMethodInfo , accelGroupDisconnectKey , -- ** accelGroupFind + AccelGroupFindMethodInfo , accelGroupFind , @@ -45,14 +52,17 @@ -- ** accelGroupGetIsLocked + AccelGroupGetIsLockedMethodInfo , accelGroupGetIsLocked , -- ** accelGroupGetModifierMask + AccelGroupGetModifierMaskMethodInfo , accelGroupGetModifierMask , -- ** accelGroupLock + AccelGroupLockMethodInfo , accelGroupLock , @@ -61,10 +71,12 @@ -- ** accelGroupQuery + AccelGroupQueryMethodInfo , accelGroupQuery , -- ** accelGroupUnlock + AccelGroupUnlockMethodInfo , accelGroupUnlock , @@ -145,6 +157,50 @@ noAccelGroup :: Maybe AccelGroup noAccelGroup = Nothing +type family ResolveAccelGroupMethod (t :: Symbol) (o :: *) :: * where + ResolveAccelGroupMethod "activate" o = AccelGroupActivateMethodInfo + ResolveAccelGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAccelGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAccelGroupMethod "connect" o = AccelGroupConnectMethodInfo + ResolveAccelGroupMethod "connectByPath" o = AccelGroupConnectByPathMethodInfo + ResolveAccelGroupMethod "disconnect" o = AccelGroupDisconnectMethodInfo + ResolveAccelGroupMethod "disconnectKey" o = AccelGroupDisconnectKeyMethodInfo + ResolveAccelGroupMethod "find" o = AccelGroupFindMethodInfo + ResolveAccelGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAccelGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAccelGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAccelGroupMethod "lock" o = AccelGroupLockMethodInfo + ResolveAccelGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAccelGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAccelGroupMethod "query" o = AccelGroupQueryMethodInfo + ResolveAccelGroupMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAccelGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAccelGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAccelGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAccelGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAccelGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAccelGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAccelGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAccelGroupMethod "unlock" o = AccelGroupUnlockMethodInfo + ResolveAccelGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAccelGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAccelGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAccelGroupMethod "getIsLocked" o = AccelGroupGetIsLockedMethodInfo + ResolveAccelGroupMethod "getModifierMask" o = AccelGroupGetModifierMaskMethodInfo + ResolveAccelGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAccelGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAccelGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAccelGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAccelGroupMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAccelGroupMethod t AccelGroup, MethodInfo info AccelGroup p) => IsLabelProxy t (AccelGroup -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAccelGroupMethod t AccelGroup, MethodInfo info AccelGroup p) => IsLabel t (AccelGroup -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal AccelGroup::accel-activate type AccelGroupAccelActivateCallback = GObject.Object -> @@ -229,10 +285,10 @@ Ptr Closure -> Ptr () -> IO () -accelGroupAccelChangedCallbackWrapper _cb _ keyval modifier accel_closure _ = do +accelGroupAccelChangedCallbackWrapper _cb _ keyval modifier accelClosure _ = do let modifier' = wordToGFlags modifier - accel_closure' <- (newBoxed Closure) accel_closure - _cb keyval modifier' accel_closure' + accelClosure' <- (newBoxed Closure) accelClosure + _cb keyval modifier' accelClosure' onAccelGroupAccelChanged :: (GObject a, MonadIO m) => a -> AccelGroupAccelChangedCallback -> m SignalHandlerId onAccelGroupAccelChanged obj cb = liftIO $ connectAccelGroupAccelChanged obj cb SignalConnectBefore @@ -258,7 +314,7 @@ type AttrSetTypeConstraint AccelGroupIsLockedPropertyInfo = (~) () type AttrBaseTypeConstraint AccelGroupIsLockedPropertyInfo = AccelGroupK type AttrGetType AccelGroupIsLockedPropertyInfo = Bool - type AttrLabel AccelGroupIsLockedPropertyInfo = "AccelGroup::is-locked" + type AttrLabel AccelGroupIsLockedPropertyInfo = "is-locked" attrGet _ = getAccelGroupIsLocked attrSet _ = undefined attrConstruct _ = undefined @@ -276,13 +332,13 @@ type AttrSetTypeConstraint AccelGroupModifierMaskPropertyInfo = (~) () type AttrBaseTypeConstraint AccelGroupModifierMaskPropertyInfo = AccelGroupK type AttrGetType AccelGroupModifierMaskPropertyInfo = [Gdk.ModifierType] - type AttrLabel AccelGroupModifierMaskPropertyInfo = "AccelGroup::modifier-mask" + type AttrLabel AccelGroupModifierMaskPropertyInfo = "modifier-mask" attrGet _ = getAccelGroupModifierMask attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList AccelGroup = AccelGroupAttributeList -type AccelGroupAttributeList = ('[ '("is-locked", AccelGroupIsLockedPropertyInfo), '("modifier-mask", AccelGroupModifierMaskPropertyInfo)] :: [(Symbol, *)]) +type AccelGroupAttributeList = ('[ '("isLocked", AccelGroupIsLockedPropertyInfo), '("modifierMask", AccelGroupModifierMaskPropertyInfo)] :: [(Symbol, *)]) data AccelGroupAccelActivateSignalInfo instance SignalInfo AccelGroupAccelActivateSignalInfo where @@ -295,13 +351,12 @@ connectSignal _ = connectAccelGroupAccelChanged type instance SignalList AccelGroup = AccelGroupSignalList -type AccelGroupSignalList = ('[ '("accel-activate", AccelGroupAccelActivateSignalInfo), '("accel-changed", AccelGroupAccelChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AccelGroupSignalList = ('[ '("accelActivate", AccelGroupAccelActivateSignalInfo), '("accelChanged", AccelGroupAccelChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method AccelGroup::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "AccelGroup" -- throws : False -- Skip return : False @@ -312,7 +367,7 @@ accelGroupNew :: (MonadIO m) => - m AccelGroup + m AccelGroup -- result accelGroupNew = liftIO $ do result <- gtk_accel_group_new checkUnexpectedReturnNULL "gtk_accel_group_new" result @@ -321,9 +376,8 @@ -- method AccelGroup::activate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "acceleratable", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "acceleratable", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "acceleratable", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -339,27 +393,30 @@ accelGroupActivate :: (MonadIO m, AccelGroupK a, GObject.ObjectK b) => - a -> -- _obj - Word32 -> -- accel_quark - b -> -- acceleratable - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - m Bool -accelGroupActivate _obj accel_quark acceleratable accel_key accel_mods = liftIO $ do + a -- _obj + -> Word32 -- accelQuark + -> b -- acceleratable + -> Word32 -- accelKey + -> [Gdk.ModifierType] -- accelMods + -> m Bool -- result +accelGroupActivate _obj accelQuark acceleratable accelKey accelMods = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let acceleratable' = unsafeManagedPtrCastPtr acceleratable - let accel_mods' = gflagsToWord accel_mods - result <- gtk_accel_group_activate _obj' accel_quark acceleratable' accel_key accel_mods' + let accelMods' = gflagsToWord accelMods + result <- gtk_accel_group_activate _obj' accelQuark acceleratable' accelKey accelMods' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr acceleratable return result' +data AccelGroupActivateMethodInfo +instance (signature ~ (Word32 -> b -> Word32 -> [Gdk.ModifierType] -> m Bool), MonadIO m, AccelGroupK a, GObject.ObjectK b) => MethodInfo AccelGroupActivateMethodInfo a signature where + overloadedMethod _ = accelGroupActivate + -- method AccelGroup::connect -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -375,27 +432,30 @@ accelGroupConnect :: (MonadIO m, AccelGroupK a) => - a -> -- _obj - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - [AccelFlags] -> -- accel_flags - Closure -> -- closure - m () -accelGroupConnect _obj accel_key accel_mods accel_flags closure = liftIO $ do + a -- _obj + -> Word32 -- accelKey + -> [Gdk.ModifierType] -- accelMods + -> [AccelFlags] -- accelFlags + -> Closure -- closure + -> m () -- result +accelGroupConnect _obj accelKey accelMods accelFlags closure = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let accel_mods' = gflagsToWord accel_mods - let accel_flags' = gflagsToWord accel_flags + let accelMods' = gflagsToWord accelMods + let accelFlags' = gflagsToWord accelFlags let closure' = unsafeManagedPtrGetPtr closure - gtk_accel_group_connect _obj' accel_key accel_mods' accel_flags' closure' + gtk_accel_group_connect _obj' accelKey accelMods' accelFlags' closure' touchManagedPtr _obj touchManagedPtr closure return () +data AccelGroupConnectMethodInfo +instance (signature ~ (Word32 -> [Gdk.ModifierType] -> [AccelFlags] -> Closure -> m ()), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupConnectMethodInfo a signature where + overloadedMethod _ = accelGroupConnect + -- method AccelGroup::connect_by_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -409,25 +469,28 @@ accelGroupConnectByPath :: (MonadIO m, AccelGroupK a) => - a -> -- _obj - T.Text -> -- accel_path - Closure -> -- closure - m () -accelGroupConnectByPath _obj accel_path closure = liftIO $ do + a -- _obj + -> T.Text -- accelPath + -> Closure -- closure + -> m () -- result +accelGroupConnectByPath _obj accelPath closure = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - accel_path' <- textToCString accel_path + accelPath' <- textToCString accelPath let closure' = unsafeManagedPtrGetPtr closure - gtk_accel_group_connect_by_path _obj' accel_path' closure' + gtk_accel_group_connect_by_path _obj' accelPath' closure' touchManagedPtr _obj touchManagedPtr closure - freeMem accel_path' + freeMem accelPath' return () +data AccelGroupConnectByPathMethodInfo +instance (signature ~ (T.Text -> Closure -> m ()), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupConnectByPathMethodInfo a signature where + overloadedMethod _ = accelGroupConnectByPath + -- method AccelGroup::disconnect -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -440,9 +503,9 @@ accelGroupDisconnect :: (MonadIO m, AccelGroupK a) => - a -> -- _obj - Maybe (Closure) -> -- closure - m Bool + a -- _obj + -> Maybe (Closure) -- closure + -> m Bool -- result accelGroupDisconnect _obj closure = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeClosure <- case closure of @@ -456,11 +519,14 @@ whenJust closure touchManagedPtr return result' +data AccelGroupDisconnectMethodInfo +instance (signature ~ (Maybe (Closure) -> m Bool), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupDisconnectMethodInfo a signature where + overloadedMethod _ = accelGroupDisconnect + -- method AccelGroup::disconnect_key -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -474,23 +540,26 @@ accelGroupDisconnectKey :: (MonadIO m, AccelGroupK a) => - a -> -- _obj - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - m Bool -accelGroupDisconnectKey _obj accel_key accel_mods = liftIO $ do + a -- _obj + -> Word32 -- accelKey + -> [Gdk.ModifierType] -- accelMods + -> m Bool -- result +accelGroupDisconnectKey _obj accelKey accelMods = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let accel_mods' = gflagsToWord accel_mods - result <- gtk_accel_group_disconnect_key _obj' accel_key accel_mods' + let accelMods' = gflagsToWord accelMods + result <- gtk_accel_group_disconnect_key _obj' accelKey accelMods' let result' = (/= 0) result touchManagedPtr _obj return result' +data AccelGroupDisconnectKeyMethodInfo +instance (signature ~ (Word32 -> [Gdk.ModifierType] -> m Bool), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupDisconnectKeyMethodInfo a signature where + overloadedMethod _ = accelGroupDisconnectKey + -- method AccelGroup::find -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_func", argType = TInterface "Gtk" "AccelGroupFindFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_func", argType = TInterface "Gtk" "AccelGroupFindFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_func", argType = TInterface "Gtk" "AccelGroupFindFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "AccelKey" -- throws : False -- Skip return : False @@ -504,25 +573,28 @@ accelGroupFind :: (MonadIO m, AccelGroupK a) => - a -> -- _obj - AccelGroupFindFunc -> -- find_func - m AccelKey -accelGroupFind _obj find_func = liftIO $ do + a -- _obj + -> AccelGroupFindFunc -- findFunc + -> m AccelKey -- result +accelGroupFind _obj findFunc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - find_func' <- mkAccelGroupFindFunc (accelGroupFindFuncWrapper Nothing find_func) + findFunc' <- mkAccelGroupFindFunc (accelGroupFindFuncWrapper Nothing findFunc) let data_ = nullPtr - result <- gtk_accel_group_find _obj' find_func' data_ + result <- gtk_accel_group_find _obj' findFunc' data_ checkUnexpectedReturnNULL "gtk_accel_group_find" result result' <- (newPtr 12 AccelKey) result - safeFreeFunPtr $ castFunPtrToPtr find_func' + safeFreeFunPtr $ castFunPtrToPtr findFunc' touchManagedPtr _obj return result' +data AccelGroupFindMethodInfo +instance (signature ~ (AccelGroupFindFunc -> m AccelKey), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupFindMethodInfo a signature where + overloadedMethod _ = accelGroupFind + -- method AccelGroup::get_is_locked -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -534,8 +606,8 @@ accelGroupGetIsLocked :: (MonadIO m, AccelGroupK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result accelGroupGetIsLocked _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_accel_group_get_is_locked _obj' @@ -543,11 +615,14 @@ touchManagedPtr _obj return result' +data AccelGroupGetIsLockedMethodInfo +instance (signature ~ (m Bool), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupGetIsLockedMethodInfo a signature where + overloadedMethod _ = accelGroupGetIsLocked + -- method AccelGroup::get_modifier_mask -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "ModifierType" -- throws : False -- Skip return : False @@ -559,8 +634,8 @@ accelGroupGetModifierMask :: (MonadIO m, AccelGroupK a) => - a -> -- _obj - m [Gdk.ModifierType] + a -- _obj + -> m [Gdk.ModifierType] -- result accelGroupGetModifierMask _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_accel_group_get_modifier_mask _obj' @@ -568,11 +643,14 @@ touchManagedPtr _obj return result' +data AccelGroupGetModifierMaskMethodInfo +instance (signature ~ (m [Gdk.ModifierType]), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupGetModifierMaskMethodInfo a signature where + overloadedMethod _ = accelGroupGetModifierMask + -- method AccelGroup::lock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -584,19 +662,22 @@ accelGroupLock :: (MonadIO m, AccelGroupK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result accelGroupLock _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_accel_group_lock _obj' touchManagedPtr _obj return () +data AccelGroupLockMethodInfo +instance (signature ~ (m ()), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupLockMethodInfo a signature where + overloadedMethod _ = accelGroupLock + -- method AccelGroup::query -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_entries", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_entries", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TCArray False (-1) 3 (TInterface "Gtk" "AccelGroupEntry") -- throws : False -- Skip return : False @@ -611,28 +692,31 @@ accelGroupQuery :: (MonadIO m, AccelGroupK a) => - a -> -- _obj - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - m [AccelGroupEntry] -accelGroupQuery _obj accel_key accel_mods = liftIO $ do + a -- _obj + -> Word32 -- accelKey + -> [Gdk.ModifierType] -- accelMods + -> m [AccelGroupEntry] -- result +accelGroupQuery _obj accelKey accelMods = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let accel_mods' = gflagsToWord accel_mods - n_entries <- allocMem :: IO (Ptr Word32) - result <- gtk_accel_group_query _obj' accel_key accel_mods' n_entries - n_entries' <- peek n_entries + let accelMods' = gflagsToWord accelMods + nEntries <- allocMem :: IO (Ptr Word32) + result <- gtk_accel_group_query _obj' accelKey accelMods' nEntries + nEntries' <- peek nEntries checkUnexpectedReturnNULL "gtk_accel_group_query" result - result' <- (unpackBlockArrayWithLength 32 n_entries') result + result' <- (unpackBlockArrayWithLength 32 nEntries') result result'' <- mapM (newPtr 32 AccelGroupEntry) result' touchManagedPtr _obj - freeMem n_entries + freeMem nEntries return result'' +data AccelGroupQueryMethodInfo +instance (signature ~ (Word32 -> [Gdk.ModifierType] -> m [AccelGroupEntry]), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupQueryMethodInfo a signature where + overloadedMethod _ = accelGroupQuery + -- method AccelGroup::unlock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -644,19 +728,22 @@ accelGroupUnlock :: (MonadIO m, AccelGroupK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result accelGroupUnlock _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_accel_group_unlock _obj' touchManagedPtr _obj return () +data AccelGroupUnlockMethodInfo +instance (signature ~ (m ()), MonadIO m, AccelGroupK a) => MethodInfo AccelGroupUnlockMethodInfo a signature where + overloadedMethod _ = accelGroupUnlock + -- method AccelGroup::from_accel_closure -- method type : MemberFunction --- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "AccelGroup" -- throws : False -- Skip return : False @@ -668,8 +755,8 @@ accelGroupFromAccelClosure :: (MonadIO m) => - Closure -> -- closure - m AccelGroup + Closure -- closure + -> m AccelGroup -- result accelGroupFromAccelClosure closure = liftIO $ do let closure' = unsafeManagedPtrGetPtr closure result <- gtk_accel_group_from_accel_closure closure' diff --git a/GI/Gtk/Objects/AccelGroup.hs-boot b/GI/Gtk/Objects/AccelGroup.hs-boot --- a/GI/Gtk/Objects/AccelGroup.hs-boot +++ b/GI/Gtk/Objects/AccelGroup.hs-boot @@ -15,3 +15,14 @@ data AccelGroupModifierMaskPropertyInfo data AccelGroupAccelActivateSignalInfo data AccelGroupAccelChangedSignalInfo +data AccelGroupActivateMethodInfo +data AccelGroupConnectMethodInfo +data AccelGroupConnectByPathMethodInfo +data AccelGroupDisconnectMethodInfo +data AccelGroupDisconnectKeyMethodInfo +data AccelGroupFindMethodInfo +data AccelGroupGetIsLockedMethodInfo +data AccelGroupGetModifierMaskMethodInfo +data AccelGroupLockMethodInfo +data AccelGroupQueryMethodInfo +data AccelGroupUnlockMethodInfo diff --git a/GI/Gtk/Objects/AccelLabel.hs b/GI/Gtk/Objects/AccelLabel.hs --- a/GI/Gtk/Objects/AccelLabel.hs +++ b/GI/Gtk/Objects/AccelLabel.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** accelLabelGetAccel + AccelLabelGetAccelMethodInfo , accelLabelGetAccel , -- ** accelLabelGetAccelWidget + AccelLabelGetAccelWidgetMethodInfo , accelLabelGetAccelWidget , -- ** accelLabelGetAccelWidth + AccelLabelGetAccelWidthMethodInfo , accelLabelGetAccelWidth , @@ -33,18 +37,22 @@ -- ** accelLabelRefetch + AccelLabelRefetchMethodInfo , accelLabelRefetch , -- ** accelLabelSetAccel + AccelLabelSetAccelMethodInfo , accelLabelSetAccel , -- ** accelLabelSetAccelClosure + AccelLabelSetAccelClosureMethodInfo , accelLabelSetAccelClosure , -- ** accelLabelSetAccelWidget + AccelLabelSetAccelWidgetMethodInfo , accelLabelSetAccelWidget , @@ -103,12 +111,367 @@ noAccelLabel :: Maybe AccelLabel noAccelLabel = Nothing +type family ResolveAccelLabelMethod (t :: Symbol) (o :: *) :: * where + ResolveAccelLabelMethod "activate" o = WidgetActivateMethodInfo + ResolveAccelLabelMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveAccelLabelMethod "addChild" o = BuildableAddChildMethodInfo + ResolveAccelLabelMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveAccelLabelMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveAccelLabelMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveAccelLabelMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveAccelLabelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAccelLabelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAccelLabelMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveAccelLabelMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveAccelLabelMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveAccelLabelMethod "classPath" o = WidgetClassPathMethodInfo + ResolveAccelLabelMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveAccelLabelMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveAccelLabelMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveAccelLabelMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveAccelLabelMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveAccelLabelMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveAccelLabelMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveAccelLabelMethod "destroy" o = WidgetDestroyMethodInfo + ResolveAccelLabelMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveAccelLabelMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveAccelLabelMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveAccelLabelMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveAccelLabelMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveAccelLabelMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveAccelLabelMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveAccelLabelMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveAccelLabelMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveAccelLabelMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveAccelLabelMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveAccelLabelMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveAccelLabelMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveAccelLabelMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveAccelLabelMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveAccelLabelMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveAccelLabelMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveAccelLabelMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveAccelLabelMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveAccelLabelMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveAccelLabelMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveAccelLabelMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveAccelLabelMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveAccelLabelMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveAccelLabelMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveAccelLabelMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveAccelLabelMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveAccelLabelMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveAccelLabelMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveAccelLabelMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveAccelLabelMethod "draw" o = WidgetDrawMethodInfo + ResolveAccelLabelMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveAccelLabelMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveAccelLabelMethod "event" o = WidgetEventMethodInfo + ResolveAccelLabelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAccelLabelMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveAccelLabelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAccelLabelMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveAccelLabelMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveAccelLabelMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveAccelLabelMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveAccelLabelMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveAccelLabelMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveAccelLabelMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveAccelLabelMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveAccelLabelMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveAccelLabelMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveAccelLabelMethod "hide" o = WidgetHideMethodInfo + ResolveAccelLabelMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveAccelLabelMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveAccelLabelMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveAccelLabelMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveAccelLabelMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveAccelLabelMethod "intersect" o = WidgetIntersectMethodInfo + ResolveAccelLabelMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveAccelLabelMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveAccelLabelMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveAccelLabelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAccelLabelMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveAccelLabelMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveAccelLabelMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveAccelLabelMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveAccelLabelMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveAccelLabelMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveAccelLabelMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveAccelLabelMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveAccelLabelMethod "map" o = WidgetMapMethodInfo + ResolveAccelLabelMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveAccelLabelMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveAccelLabelMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveAccelLabelMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveAccelLabelMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveAccelLabelMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveAccelLabelMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveAccelLabelMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveAccelLabelMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAccelLabelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAccelLabelMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveAccelLabelMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveAccelLabelMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveAccelLabelMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveAccelLabelMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveAccelLabelMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveAccelLabelMethod "path" o = WidgetPathMethodInfo + ResolveAccelLabelMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveAccelLabelMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveAccelLabelMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveAccelLabelMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveAccelLabelMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveAccelLabelMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveAccelLabelMethod "realize" o = WidgetRealizeMethodInfo + ResolveAccelLabelMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAccelLabelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAccelLabelMethod "refetch" o = AccelLabelRefetchMethodInfo + ResolveAccelLabelMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveAccelLabelMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveAccelLabelMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveAccelLabelMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveAccelLabelMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveAccelLabelMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveAccelLabelMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveAccelLabelMethod "reparent" o = WidgetReparentMethodInfo + ResolveAccelLabelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAccelLabelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAccelLabelMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveAccelLabelMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveAccelLabelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAccelLabelMethod "selectRegion" o = LabelSelectRegionMethodInfo + ResolveAccelLabelMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveAccelLabelMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveAccelLabelMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveAccelLabelMethod "show" o = WidgetShowMethodInfo + ResolveAccelLabelMethod "showAll" o = WidgetShowAllMethodInfo + ResolveAccelLabelMethod "showNow" o = WidgetShowNowMethodInfo + ResolveAccelLabelMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveAccelLabelMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveAccelLabelMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveAccelLabelMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAccelLabelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAccelLabelMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveAccelLabelMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveAccelLabelMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveAccelLabelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAccelLabelMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveAccelLabelMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveAccelLabelMethod "unmap" o = WidgetUnmapMethodInfo + ResolveAccelLabelMethod "unparent" o = WidgetUnparentMethodInfo + ResolveAccelLabelMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveAccelLabelMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAccelLabelMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveAccelLabelMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveAccelLabelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAccelLabelMethod "getAccel" o = AccelLabelGetAccelMethodInfo + ResolveAccelLabelMethod "getAccelWidget" o = AccelLabelGetAccelWidgetMethodInfo + ResolveAccelLabelMethod "getAccelWidth" o = AccelLabelGetAccelWidthMethodInfo + ResolveAccelLabelMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveAccelLabelMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveAccelLabelMethod "getAlignment" o = MiscGetAlignmentMethodInfo + ResolveAccelLabelMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveAccelLabelMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveAccelLabelMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveAccelLabelMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveAccelLabelMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveAccelLabelMethod "getAngle" o = LabelGetAngleMethodInfo + ResolveAccelLabelMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveAccelLabelMethod "getAttributes" o = LabelGetAttributesMethodInfo + ResolveAccelLabelMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveAccelLabelMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveAccelLabelMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveAccelLabelMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveAccelLabelMethod "getClip" o = WidgetGetClipMethodInfo + ResolveAccelLabelMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveAccelLabelMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveAccelLabelMethod "getCurrentUri" o = LabelGetCurrentUriMethodInfo + ResolveAccelLabelMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAccelLabelMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveAccelLabelMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveAccelLabelMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveAccelLabelMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveAccelLabelMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveAccelLabelMethod "getEllipsize" o = LabelGetEllipsizeMethodInfo + ResolveAccelLabelMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveAccelLabelMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveAccelLabelMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveAccelLabelMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveAccelLabelMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveAccelLabelMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveAccelLabelMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveAccelLabelMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveAccelLabelMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveAccelLabelMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveAccelLabelMethod "getJustify" o = LabelGetJustifyMethodInfo + ResolveAccelLabelMethod "getLabel" o = LabelGetLabelMethodInfo + ResolveAccelLabelMethod "getLayout" o = LabelGetLayoutMethodInfo + ResolveAccelLabelMethod "getLayoutOffsets" o = LabelGetLayoutOffsetsMethodInfo + ResolveAccelLabelMethod "getLineWrap" o = LabelGetLineWrapMethodInfo + ResolveAccelLabelMethod "getLineWrapMode" o = LabelGetLineWrapModeMethodInfo + ResolveAccelLabelMethod "getLines" o = LabelGetLinesMethodInfo + ResolveAccelLabelMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveAccelLabelMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveAccelLabelMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveAccelLabelMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveAccelLabelMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveAccelLabelMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveAccelLabelMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveAccelLabelMethod "getMaxWidthChars" o = LabelGetMaxWidthCharsMethodInfo + ResolveAccelLabelMethod "getMnemonicKeyval" o = LabelGetMnemonicKeyvalMethodInfo + ResolveAccelLabelMethod "getMnemonicWidget" o = LabelGetMnemonicWidgetMethodInfo + ResolveAccelLabelMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveAccelLabelMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveAccelLabelMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveAccelLabelMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveAccelLabelMethod "getPadding" o = MiscGetPaddingMethodInfo + ResolveAccelLabelMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveAccelLabelMethod "getParent" o = WidgetGetParentMethodInfo + ResolveAccelLabelMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveAccelLabelMethod "getPath" o = WidgetGetPathMethodInfo + ResolveAccelLabelMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveAccelLabelMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveAccelLabelMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAccelLabelMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveAccelLabelMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveAccelLabelMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveAccelLabelMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveAccelLabelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAccelLabelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAccelLabelMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveAccelLabelMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveAccelLabelMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveAccelLabelMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveAccelLabelMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveAccelLabelMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveAccelLabelMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveAccelLabelMethod "getSelectable" o = LabelGetSelectableMethodInfo + ResolveAccelLabelMethod "getSelectionBounds" o = LabelGetSelectionBoundsMethodInfo + ResolveAccelLabelMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveAccelLabelMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveAccelLabelMethod "getSingleLineMode" o = LabelGetSingleLineModeMethodInfo + ResolveAccelLabelMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveAccelLabelMethod "getState" o = WidgetGetStateMethodInfo + ResolveAccelLabelMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveAccelLabelMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveAccelLabelMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveAccelLabelMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveAccelLabelMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveAccelLabelMethod "getText" o = LabelGetTextMethodInfo + ResolveAccelLabelMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveAccelLabelMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveAccelLabelMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveAccelLabelMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveAccelLabelMethod "getTrackVisitedLinks" o = LabelGetTrackVisitedLinksMethodInfo + ResolveAccelLabelMethod "getUseMarkup" o = LabelGetUseMarkupMethodInfo + ResolveAccelLabelMethod "getUseUnderline" o = LabelGetUseUnderlineMethodInfo + ResolveAccelLabelMethod "getValign" o = WidgetGetValignMethodInfo + ResolveAccelLabelMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveAccelLabelMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveAccelLabelMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveAccelLabelMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveAccelLabelMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveAccelLabelMethod "getWidthChars" o = LabelGetWidthCharsMethodInfo + ResolveAccelLabelMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveAccelLabelMethod "getXalign" o = LabelGetXalignMethodInfo + ResolveAccelLabelMethod "getYalign" o = LabelGetYalignMethodInfo + ResolveAccelLabelMethod "setAccel" o = AccelLabelSetAccelMethodInfo + ResolveAccelLabelMethod "setAccelClosure" o = AccelLabelSetAccelClosureMethodInfo + ResolveAccelLabelMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveAccelLabelMethod "setAccelWidget" o = AccelLabelSetAccelWidgetMethodInfo + ResolveAccelLabelMethod "setAlignment" o = MiscSetAlignmentMethodInfo + ResolveAccelLabelMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveAccelLabelMethod "setAngle" o = LabelSetAngleMethodInfo + ResolveAccelLabelMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveAccelLabelMethod "setAttributes" o = LabelSetAttributesMethodInfo + ResolveAccelLabelMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveAccelLabelMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveAccelLabelMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveAccelLabelMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveAccelLabelMethod "setClip" o = WidgetSetClipMethodInfo + ResolveAccelLabelMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveAccelLabelMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAccelLabelMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveAccelLabelMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveAccelLabelMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveAccelLabelMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveAccelLabelMethod "setEllipsize" o = LabelSetEllipsizeMethodInfo + ResolveAccelLabelMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveAccelLabelMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveAccelLabelMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveAccelLabelMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveAccelLabelMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveAccelLabelMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveAccelLabelMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveAccelLabelMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveAccelLabelMethod "setJustify" o = LabelSetJustifyMethodInfo + ResolveAccelLabelMethod "setLabel" o = LabelSetLabelMethodInfo + ResolveAccelLabelMethod "setLineWrap" o = LabelSetLineWrapMethodInfo + ResolveAccelLabelMethod "setLineWrapMode" o = LabelSetLineWrapModeMethodInfo + ResolveAccelLabelMethod "setLines" o = LabelSetLinesMethodInfo + ResolveAccelLabelMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveAccelLabelMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveAccelLabelMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveAccelLabelMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveAccelLabelMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveAccelLabelMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveAccelLabelMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveAccelLabelMethod "setMarkup" o = LabelSetMarkupMethodInfo + ResolveAccelLabelMethod "setMarkupWithMnemonic" o = LabelSetMarkupWithMnemonicMethodInfo + ResolveAccelLabelMethod "setMaxWidthChars" o = LabelSetMaxWidthCharsMethodInfo + ResolveAccelLabelMethod "setMnemonicWidget" o = LabelSetMnemonicWidgetMethodInfo + ResolveAccelLabelMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveAccelLabelMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveAccelLabelMethod "setPadding" o = MiscSetPaddingMethodInfo + ResolveAccelLabelMethod "setParent" o = WidgetSetParentMethodInfo + ResolveAccelLabelMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveAccelLabelMethod "setPattern" o = LabelSetPatternMethodInfo + ResolveAccelLabelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAccelLabelMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveAccelLabelMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveAccelLabelMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveAccelLabelMethod "setSelectable" o = LabelSetSelectableMethodInfo + ResolveAccelLabelMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveAccelLabelMethod "setSingleLineMode" o = LabelSetSingleLineModeMethodInfo + ResolveAccelLabelMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveAccelLabelMethod "setState" o = WidgetSetStateMethodInfo + ResolveAccelLabelMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveAccelLabelMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveAccelLabelMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveAccelLabelMethod "setText" o = LabelSetTextMethodInfo + ResolveAccelLabelMethod "setTextWithMnemonic" o = LabelSetTextWithMnemonicMethodInfo + ResolveAccelLabelMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveAccelLabelMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveAccelLabelMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveAccelLabelMethod "setTrackVisitedLinks" o = LabelSetTrackVisitedLinksMethodInfo + ResolveAccelLabelMethod "setUseMarkup" o = LabelSetUseMarkupMethodInfo + ResolveAccelLabelMethod "setUseUnderline" o = LabelSetUseUnderlineMethodInfo + ResolveAccelLabelMethod "setValign" o = WidgetSetValignMethodInfo + ResolveAccelLabelMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveAccelLabelMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveAccelLabelMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveAccelLabelMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveAccelLabelMethod "setWidthChars" o = LabelSetWidthCharsMethodInfo + ResolveAccelLabelMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveAccelLabelMethod "setXalign" o = LabelSetXalignMethodInfo + ResolveAccelLabelMethod "setYalign" o = LabelSetYalignMethodInfo + ResolveAccelLabelMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAccelLabelMethod t AccelLabel, MethodInfo info AccelLabel p) => IsLabelProxy t (AccelLabel -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAccelLabelMethod t AccelLabel, MethodInfo info AccelLabel p) => IsLabel t (AccelLabel -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + --- XXX Duplicated object with different types: --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."})} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."}} --- XXX Duplicated object with different types: --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."})} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."}} -- VVV Prop "accel-closure" -- Type: TInterface "GObject" "Closure" -- Flags: [PropertyReadable,PropertyWritable] @@ -128,7 +491,7 @@ type AttrSetTypeConstraint AccelLabelAccelClosurePropertyInfo = (~) Closure type AttrBaseTypeConstraint AccelLabelAccelClosurePropertyInfo = AccelLabelK type AttrGetType AccelLabelAccelClosurePropertyInfo = Closure - type AttrLabel AccelLabelAccelClosurePropertyInfo = "AccelLabel::accel-closure" + type AttrLabel AccelLabelAccelClosurePropertyInfo = "accel-closure" attrGet _ = getAccelLabelAccelClosure attrSet _ = setAccelLabelAccelClosure attrConstruct _ = constructAccelLabelAccelClosure @@ -152,22 +515,21 @@ type AttrSetTypeConstraint AccelLabelAccelWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint AccelLabelAccelWidgetPropertyInfo = AccelLabelK type AttrGetType AccelLabelAccelWidgetPropertyInfo = Widget - type AttrLabel AccelLabelAccelWidgetPropertyInfo = "AccelLabel::accel-widget" + type AttrLabel AccelLabelAccelWidgetPropertyInfo = "accel-widget" attrGet _ = getAccelLabelAccelWidget attrSet _ = setAccelLabelAccelWidget attrConstruct _ = constructAccelLabelAccelWidget type instance AttributeList AccelLabel = AccelLabelAttributeList -type AccelLabelAttributeList = ('[ '("accel-closure", AccelLabelAccelClosurePropertyInfo), '("accel-widget", AccelLabelAccelWidgetPropertyInfo), '("angle", LabelAnglePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", LabelCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-width-chars", LabelMaxWidthCharsPropertyInfo), '("mnemonic-keyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonic-widget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selection-bound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("single-line-mode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("track-visited-links", LabelTrackVisitedLinksPropertyInfo), '("use-markup", LabelUseMarkupPropertyInfo), '("use-underline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", LabelWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrap-mode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +type AccelLabelAttributeList = ('[ '("accelClosure", AccelLabelAccelClosurePropertyInfo), '("accelWidget", AccelLabelAccelWidgetPropertyInfo), '("angle", LabelAnglePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", LabelCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxWidthChars", LabelMaxWidthCharsPropertyInfo), '("mnemonicKeyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonicWidget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selectionBound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("singleLineMode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("trackVisitedLinks", LabelTrackVisitedLinksPropertyInfo), '("useMarkup", LabelUseMarkupPropertyInfo), '("useUnderline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", LabelWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrapMode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) type instance SignalList AccelLabel = AccelLabelSignalList -type AccelLabelSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current-link", LabelActivateCurrentLinkSignalInfo), '("activate-link", LabelActivateLinkSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", LabelCopyClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", LabelMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", LabelPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AccelLabelSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrentLink", LabelActivateCurrentLinkSignalInfo), '("activateLink", LabelActivateLinkSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", LabelCopyClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", LabelMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("populatePopup", LabelPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method AccelLabel::new -- method type : Constructor --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "AccelLabel" -- throws : False -- Skip return : False @@ -179,8 +541,8 @@ accelLabelNew :: (MonadIO m) => - T.Text -> -- string - m AccelLabel + T.Text -- string + -> m AccelLabel -- result accelLabelNew string = liftIO $ do string' <- textToCString string result <- gtk_accel_label_new string' @@ -191,9 +553,8 @@ -- method AccelLabel::get_accel -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -207,26 +568,29 @@ accelLabelGetAccel :: (MonadIO m, AccelLabelK a) => - a -> -- _obj - m (Word32,[Gdk.ModifierType]) + a -- _obj + -> m (Word32,[Gdk.ModifierType]) -- result accelLabelGetAccel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - accelerator_key <- allocMem :: IO (Ptr Word32) - accelerator_mods <- allocMem :: IO (Ptr CUInt) - gtk_accel_label_get_accel _obj' accelerator_key accelerator_mods - accelerator_key' <- peek accelerator_key - accelerator_mods' <- peek accelerator_mods - let accelerator_mods'' = wordToGFlags accelerator_mods' + acceleratorKey <- allocMem :: IO (Ptr Word32) + acceleratorMods <- allocMem :: IO (Ptr CUInt) + gtk_accel_label_get_accel _obj' acceleratorKey acceleratorMods + acceleratorKey' <- peek acceleratorKey + acceleratorMods' <- peek acceleratorMods + let acceleratorMods'' = wordToGFlags acceleratorMods' touchManagedPtr _obj - freeMem accelerator_key - freeMem accelerator_mods - return (accelerator_key', accelerator_mods'') + freeMem acceleratorKey + freeMem acceleratorMods + return (acceleratorKey', acceleratorMods'') +data AccelLabelGetAccelMethodInfo +instance (signature ~ (m (Word32,[Gdk.ModifierType])), MonadIO m, AccelLabelK a) => MethodInfo AccelLabelGetAccelMethodInfo a signature where + overloadedMethod _ = accelLabelGetAccel + -- method AccelLabel::get_accel_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -238,8 +602,8 @@ accelLabelGetAccelWidget :: (MonadIO m, AccelLabelK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result accelLabelGetAccelWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_accel_label_get_accel_widget _obj' @@ -248,11 +612,14 @@ touchManagedPtr _obj return result' +data AccelLabelGetAccelWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, AccelLabelK a) => MethodInfo AccelLabelGetAccelWidgetMethodInfo a signature where + overloadedMethod _ = accelLabelGetAccelWidget + -- method AccelLabel::get_accel_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -264,19 +631,22 @@ accelLabelGetAccelWidth :: (MonadIO m, AccelLabelK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result accelLabelGetAccelWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_accel_label_get_accel_width _obj' touchManagedPtr _obj return result +data AccelLabelGetAccelWidthMethodInfo +instance (signature ~ (m Word32), MonadIO m, AccelLabelK a) => MethodInfo AccelLabelGetAccelWidthMethodInfo a signature where + overloadedMethod _ = accelLabelGetAccelWidth + -- method AccelLabel::refetch -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -288,8 +658,8 @@ accelLabelRefetch :: (MonadIO m, AccelLabelK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result accelLabelRefetch _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_accel_label_refetch _obj' @@ -297,11 +667,14 @@ touchManagedPtr _obj return result' +data AccelLabelRefetchMethodInfo +instance (signature ~ (m Bool), MonadIO m, AccelLabelK a) => MethodInfo AccelLabelRefetchMethodInfo a signature where + overloadedMethod _ = accelLabelRefetch + -- method AccelLabel::set_accel -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -315,22 +688,25 @@ accelLabelSetAccel :: (MonadIO m, AccelLabelK a) => - a -> -- _obj - Word32 -> -- accelerator_key - [Gdk.ModifierType] -> -- accelerator_mods - m () -accelLabelSetAccel _obj accelerator_key accelerator_mods = liftIO $ do + a -- _obj + -> Word32 -- acceleratorKey + -> [Gdk.ModifierType] -- acceleratorMods + -> m () -- result +accelLabelSetAccel _obj acceleratorKey acceleratorMods = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let accelerator_mods' = gflagsToWord accelerator_mods - gtk_accel_label_set_accel _obj' accelerator_key accelerator_mods' + let acceleratorMods' = gflagsToWord acceleratorMods + gtk_accel_label_set_accel _obj' acceleratorKey acceleratorMods' touchManagedPtr _obj return () +data AccelLabelSetAccelMethodInfo +instance (signature ~ (Word32 -> [Gdk.ModifierType] -> m ()), MonadIO m, AccelLabelK a) => MethodInfo AccelLabelSetAccelMethodInfo a signature where + overloadedMethod _ = accelLabelSetAccel + -- method AccelLabel::set_accel_closure -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -343,22 +719,25 @@ accelLabelSetAccelClosure :: (MonadIO m, AccelLabelK a) => - a -> -- _obj - Closure -> -- accel_closure - m () -accelLabelSetAccelClosure _obj accel_closure = liftIO $ do + a -- _obj + -> Closure -- accelClosure + -> m () -- result +accelLabelSetAccelClosure _obj accelClosure = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let accel_closure' = unsafeManagedPtrGetPtr accel_closure - gtk_accel_label_set_accel_closure _obj' accel_closure' + let accelClosure' = unsafeManagedPtrGetPtr accelClosure + gtk_accel_label_set_accel_closure _obj' accelClosure' touchManagedPtr _obj - touchManagedPtr accel_closure + touchManagedPtr accelClosure return () +data AccelLabelSetAccelClosureMethodInfo +instance (signature ~ (Closure -> m ()), MonadIO m, AccelLabelK a) => MethodInfo AccelLabelSetAccelClosureMethodInfo a signature where + overloadedMethod _ = accelLabelSetAccelClosure + -- method AccelLabel::set_accel_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -371,15 +750,19 @@ accelLabelSetAccelWidget :: (MonadIO m, AccelLabelK a, WidgetK b) => - a -> -- _obj - b -> -- accel_widget - m () -accelLabelSetAccelWidget _obj accel_widget = liftIO $ do + a -- _obj + -> b -- accelWidget + -> m () -- result +accelLabelSetAccelWidget _obj accelWidget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let accel_widget' = unsafeManagedPtrCastPtr accel_widget - gtk_accel_label_set_accel_widget _obj' accel_widget' + let accelWidget' = unsafeManagedPtrCastPtr accelWidget + gtk_accel_label_set_accel_widget _obj' accelWidget' touchManagedPtr _obj - touchManagedPtr accel_widget + touchManagedPtr accelWidget return () + +data AccelLabelSetAccelWidgetMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, AccelLabelK a, WidgetK b) => MethodInfo AccelLabelSetAccelWidgetMethodInfo a signature where + overloadedMethod _ = accelLabelSetAccelWidget diff --git a/GI/Gtk/Objects/AccelLabel.hs-boot b/GI/Gtk/Objects/AccelLabel.hs-boot --- a/GI/Gtk/Objects/AccelLabel.hs-boot +++ b/GI/Gtk/Objects/AccelLabel.hs-boot @@ -13,3 +13,10 @@ instance (GObject o, IsDescendantOf AccelLabel o) => AccelLabelK o data AccelLabelAccelClosurePropertyInfo data AccelLabelAccelWidgetPropertyInfo +data AccelLabelGetAccelMethodInfo +data AccelLabelGetAccelWidgetMethodInfo +data AccelLabelGetAccelWidthMethodInfo +data AccelLabelRefetchMethodInfo +data AccelLabelSetAccelMethodInfo +data AccelLabelSetAccelClosureMethodInfo +data AccelLabelSetAccelWidgetMethodInfo diff --git a/GI/Gtk/Objects/AccelMap.hs b/GI/Gtk/Objects/AccelMap.hs --- a/GI/Gtk/Objects/AccelMap.hs +++ b/GI/Gtk/Objects/AccelMap.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -125,6 +126,39 @@ noAccelMap :: Maybe AccelMap noAccelMap = Nothing +type family ResolveAccelMapMethod (t :: Symbol) (o :: *) :: * where + ResolveAccelMapMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAccelMapMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAccelMapMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAccelMapMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAccelMapMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAccelMapMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAccelMapMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAccelMapMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAccelMapMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAccelMapMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAccelMapMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAccelMapMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAccelMapMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAccelMapMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAccelMapMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAccelMapMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAccelMapMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAccelMapMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAccelMapMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAccelMapMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAccelMapMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAccelMapMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAccelMapMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAccelMapMethod t AccelMap, MethodInfo info AccelMap p) => IsLabelProxy t (AccelMap -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAccelMapMethod t AccelMap, MethodInfo info AccelMap p) => IsLabel t (AccelMap -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal AccelMap::changed type AccelMapChangedCallback = T.Text -> @@ -158,10 +192,10 @@ CUInt -> Ptr () -> IO () -accelMapChangedCallbackWrapper _cb _ accel_path accel_key accel_mods _ = do - accel_path' <- cstringToText accel_path - let accel_mods' = wordToGFlags accel_mods - _cb accel_path' accel_key accel_mods' +accelMapChangedCallbackWrapper _cb _ accelPath accelKey accelMods _ = do + accelPath' <- cstringToText accelPath + let accelMods' = wordToGFlags accelMods + _cb accelPath' accelKey accelMods' onAccelMapChanged :: (GObject a, MonadIO m) => a -> AccelMapChangedCallback -> m SignalHandlerId onAccelMapChanged obj cb = liftIO $ connectAccelMapChanged obj cb SignalConnectBefore @@ -183,13 +217,12 @@ connectSignal _ = connectAccelMapChanged type instance SignalList AccelMap = AccelMapSignalList -type AccelMapSignalList = ('[ '("changed", AccelMapChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AccelMapSignalList = ('[ '("changed", AccelMapChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method AccelMap::add_entry -- method type : MemberFunction --- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -203,22 +236,21 @@ accelMapAddEntry :: (MonadIO m) => - T.Text -> -- accel_path - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - m () -accelMapAddEntry accel_path accel_key accel_mods = liftIO $ do - accel_path' <- textToCString accel_path - let accel_mods' = gflagsToWord accel_mods - gtk_accel_map_add_entry accel_path' accel_key accel_mods' - freeMem accel_path' + T.Text -- accelPath + -> Word32 -- accelKey + -> [Gdk.ModifierType] -- accelMods + -> m () -- result +accelMapAddEntry accelPath accelKey accelMods = liftIO $ do + accelPath' <- textToCString accelPath + let accelMods' = gflagsToWord accelMods + gtk_accel_map_add_entry accelPath' accelKey accelMods' + freeMem accelPath' return () -- method AccelMap::add_filter -- method type : MemberFunction --- Args : [Arg {argName = "filter_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "filter_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "filter_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -230,19 +262,18 @@ accelMapAddFilter :: (MonadIO m) => - T.Text -> -- filter_pattern - m () -accelMapAddFilter filter_pattern = liftIO $ do - filter_pattern' <- textToCString filter_pattern - gtk_accel_map_add_filter filter_pattern' - freeMem filter_pattern' + T.Text -- filterPattern + -> m () -- result +accelMapAddFilter filterPattern = liftIO $ do + filterPattern' <- textToCString filterPattern + gtk_accel_map_add_filter filterPattern' + freeMem filterPattern' return () -- method AccelMap::change_entry -- method type : MemberFunction --- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -257,25 +288,24 @@ accelMapChangeEntry :: (MonadIO m) => - T.Text -> -- accel_path - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - Bool -> -- replace - m Bool -accelMapChangeEntry accel_path accel_key accel_mods replace = liftIO $ do - accel_path' <- textToCString accel_path - let accel_mods' = gflagsToWord accel_mods + T.Text -- accelPath + -> Word32 -- accelKey + -> [Gdk.ModifierType] -- accelMods + -> Bool -- replace + -> m Bool -- result +accelMapChangeEntry accelPath accelKey accelMods replace = liftIO $ do + accelPath' <- textToCString accelPath + let accelMods' = gflagsToWord accelMods let replace' = (fromIntegral . fromEnum) replace - result <- gtk_accel_map_change_entry accel_path' accel_key accel_mods' replace' + result <- gtk_accel_map_change_entry accelPath' accelKey accelMods' replace' let result' = (/= 0) result - freeMem accel_path' + freeMem accelPath' return result' -- method AccelMap::foreach -- method type : MemberFunction --- Args : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -288,24 +318,23 @@ accelMapForeach :: (MonadIO m) => - Maybe (Ptr ()) -> -- data - AccelMapForeach -> -- foreach_func - m () -accelMapForeach data_ foreach_func = liftIO $ do + Maybe (Ptr ()) -- data_ + -> AccelMapForeach -- foreachFunc + -> m () -- result +accelMapForeach data_ foreachFunc = liftIO $ do maybeData_ <- case data_ of Nothing -> return nullPtr Just jData_ -> do return jData_ - foreach_func' <- mkAccelMapForeach (accelMapForeachWrapper Nothing foreach_func) - gtk_accel_map_foreach maybeData_ foreach_func' - safeFreeFunPtr $ castFunPtrToPtr foreach_func' + foreachFunc' <- mkAccelMapForeach (accelMapForeachWrapper Nothing foreachFunc) + gtk_accel_map_foreach maybeData_ foreachFunc' + safeFreeFunPtr $ castFunPtrToPtr foreachFunc' return () -- method AccelMap::foreach_unfiltered -- method type : MemberFunction --- Args : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -318,20 +347,19 @@ accelMapForeachUnfiltered :: (MonadIO m) => - Ptr () -> -- data - AccelMapForeach -> -- foreach_func - m () -accelMapForeachUnfiltered data_ foreach_func = liftIO $ do - foreach_func' <- mkAccelMapForeach (accelMapForeachWrapper Nothing foreach_func) - gtk_accel_map_foreach_unfiltered data_ foreach_func' - safeFreeFunPtr $ castFunPtrToPtr foreach_func' + Ptr () -- data_ + -> AccelMapForeach -- foreachFunc + -> m () -- result +accelMapForeachUnfiltered data_ foreachFunc = liftIO $ do + foreachFunc' <- mkAccelMapForeach (accelMapForeachWrapper Nothing foreachFunc) + gtk_accel_map_foreach_unfiltered data_ foreachFunc' + safeFreeFunPtr $ castFunPtrToPtr foreachFunc' return () -- method AccelMap::get -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "AccelMap" -- throws : False -- Skip return : False @@ -342,7 +370,7 @@ accelMapGet :: (MonadIO m) => - m AccelMap + m AccelMap -- result accelMapGet = liftIO $ do result <- gtk_accel_map_get checkUnexpectedReturnNULL "gtk_accel_map_get" result @@ -351,9 +379,8 @@ -- method AccelMap::load -- method type : MemberFunction --- Args : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -365,19 +392,18 @@ accelMapLoad :: (MonadIO m) => - [Char] -> -- file_name - m () -accelMapLoad file_name = liftIO $ do - file_name' <- stringToCString file_name - gtk_accel_map_load file_name' - freeMem file_name' + [Char] -- fileName + -> m () -- result +accelMapLoad fileName = liftIO $ do + fileName' <- stringToCString fileName + gtk_accel_map_load fileName' + freeMem fileName' return () -- method AccelMap::load_fd -- method type : MemberFunction --- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -389,17 +415,16 @@ accelMapLoadFd :: (MonadIO m) => - Int32 -> -- fd - m () + Int32 -- fd + -> m () -- result accelMapLoadFd fd = liftIO $ do gtk_accel_map_load_fd fd return () -- method AccelMap::load_scanner -- method type : MemberFunction --- Args : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -411,8 +436,8 @@ accelMapLoadScanner :: (MonadIO m) => - GLib.Scanner -> -- scanner - m () + GLib.Scanner -- scanner + -> m () -- result accelMapLoadScanner scanner = liftIO $ do let scanner' = unsafeManagedPtrGetPtr scanner gtk_accel_map_load_scanner scanner' @@ -421,9 +446,8 @@ -- method AccelMap::lock_path -- method type : MemberFunction --- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -435,19 +459,18 @@ accelMapLockPath :: (MonadIO m) => - T.Text -> -- accel_path - m () -accelMapLockPath accel_path = liftIO $ do - accel_path' <- textToCString accel_path - gtk_accel_map_lock_path accel_path' - freeMem accel_path' + T.Text -- accelPath + -> m () -- result +accelMapLockPath accelPath = liftIO $ do + accelPath' <- textToCString accelPath + gtk_accel_map_lock_path accelPath' + freeMem accelPath' return () -- method AccelMap::lookup_entry -- method type : MemberFunction --- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TInterface "Gtk" "AccelKey", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TInterface "Gtk" "AccelKey", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -460,22 +483,21 @@ accelMapLookupEntry :: (MonadIO m) => - T.Text -> -- accel_path - m (Bool,AccelKey) -accelMapLookupEntry accel_path = liftIO $ do - accel_path' <- textToCString accel_path + T.Text -- accelPath + -> m (Bool,AccelKey) -- result +accelMapLookupEntry accelPath = liftIO $ do + accelPath' <- textToCString accelPath key <- callocBytes 12 :: IO (Ptr AccelKey) - result <- gtk_accel_map_lookup_entry accel_path' key + result <- gtk_accel_map_lookup_entry accelPath' key let result' = (/= 0) result key' <- (wrapPtr AccelKey) key - freeMem accel_path' + freeMem accelPath' return (result', key') -- method AccelMap::save -- method type : MemberFunction --- Args : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -487,19 +509,18 @@ accelMapSave :: (MonadIO m) => - [Char] -> -- file_name - m () -accelMapSave file_name = liftIO $ do - file_name' <- stringToCString file_name - gtk_accel_map_save file_name' - freeMem file_name' + [Char] -- fileName + -> m () -- result +accelMapSave fileName = liftIO $ do + fileName' <- stringToCString fileName + gtk_accel_map_save fileName' + freeMem fileName' return () -- method AccelMap::save_fd -- method type : MemberFunction --- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -511,17 +532,16 @@ accelMapSaveFd :: (MonadIO m) => - Int32 -> -- fd - m () + Int32 -- fd + -> m () -- result accelMapSaveFd fd = liftIO $ do gtk_accel_map_save_fd fd return () -- method AccelMap::unlock_path -- method type : MemberFunction --- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -533,12 +553,12 @@ accelMapUnlockPath :: (MonadIO m) => - T.Text -> -- accel_path - m () -accelMapUnlockPath accel_path = liftIO $ do - accel_path' <- textToCString accel_path - gtk_accel_map_unlock_path accel_path' - freeMem accel_path' + T.Text -- accelPath + -> m () -- result +accelMapUnlockPath accelPath = liftIO $ do + accelPath' <- textToCString accelPath + gtk_accel_map_unlock_path accelPath' + freeMem accelPath' return () diff --git a/GI/Gtk/Objects/Accessible.hs b/GI/Gtk/Objects/Accessible.hs --- a/GI/Gtk/Objects/Accessible.hs +++ b/GI/Gtk/Objects/Accessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** accessibleConnectWidgetDestroyed + AccessibleConnectWidgetDestroyedMethodInfo, accessibleConnectWidgetDestroyed , -- ** accessibleGetWidget + AccessibleGetWidgetMethodInfo , accessibleGetWidget , -- ** accessibleSetWidget + AccessibleSetWidgetMethodInfo , accessibleSetWidget , @@ -75,6 +79,65 @@ noAccessible :: Maybe Accessible noAccessible = Nothing +type family ResolveAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveAccessibleMethod "getLayer" o = Atk.ObjectGetLayerMethodInfo + ResolveAccessibleMethod "getMdiZorder" o = Atk.ObjectGetMdiZorderMethodInfo + ResolveAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAccessibleMethod t Accessible, MethodInfo info Accessible p) => IsLabelProxy t (Accessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAccessibleMethod t Accessible, MethodInfo info Accessible p) => IsLabel t (Accessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] @@ -94,22 +157,21 @@ type AttrSetTypeConstraint AccessibleWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint AccessibleWidgetPropertyInfo = AccessibleK type AttrGetType AccessibleWidgetPropertyInfo = Widget - type AttrLabel AccessibleWidgetPropertyInfo = "Accessible::widget" + type AttrLabel AccessibleWidgetPropertyInfo = "widget" attrGet _ = getAccessibleWidget attrSet _ = setAccessibleWidget attrConstruct _ = constructAccessibleWidget type instance AttributeList Accessible = AccessibleAttributeList -type AccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type AccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Accessible = AccessibleSignalList -type AccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) -- method Accessible::connect_widget_destroyed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -121,19 +183,22 @@ {-# DEPRECATED accessibleConnectWidgetDestroyed ["(Since version 3.4)","Use gtk_accessible_set_widget() and its vfuncs."]#-} accessibleConnectWidgetDestroyed :: (MonadIO m, AccessibleK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result accessibleConnectWidgetDestroyed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_accessible_connect_widget_destroyed _obj' touchManagedPtr _obj return () +data AccessibleConnectWidgetDestroyedMethodInfo +instance (signature ~ (m ()), MonadIO m, AccessibleK a) => MethodInfo AccessibleConnectWidgetDestroyedMethodInfo a signature where + overloadedMethod _ = accessibleConnectWidgetDestroyed + -- method Accessible::get_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -145,8 +210,8 @@ accessibleGetWidget :: (MonadIO m, AccessibleK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result accessibleGetWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_accessible_get_widget _obj' @@ -155,11 +220,14 @@ touchManagedPtr _obj return result' +data AccessibleGetWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, AccessibleK a) => MethodInfo AccessibleGetWidgetMethodInfo a signature where + overloadedMethod _ = accessibleGetWidget + -- method Accessible::set_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -172,9 +240,9 @@ accessibleSetWidget :: (MonadIO m, AccessibleK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- widget - m () + a -- _obj + -> Maybe (b) -- widget + -> m () -- result accessibleSetWidget _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeWidget <- case widget of @@ -186,5 +254,9 @@ touchManagedPtr _obj whenJust widget touchManagedPtr return () + +data AccessibleSetWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, AccessibleK a, WidgetK b) => MethodInfo AccessibleSetWidgetMethodInfo a signature where + overloadedMethod _ = accessibleSetWidget diff --git a/GI/Gtk/Objects/Accessible.hs-boot b/GI/Gtk/Objects/Accessible.hs-boot --- a/GI/Gtk/Objects/Accessible.hs-boot +++ b/GI/Gtk/Objects/Accessible.hs-boot @@ -12,3 +12,6 @@ class GObject o => AccessibleK o instance (GObject o, IsDescendantOf Accessible o) => AccessibleK o data AccessibleWidgetPropertyInfo +data AccessibleConnectWidgetDestroyedMethodInfo +data AccessibleGetWidgetMethodInfo +data AccessibleSetWidgetMethodInfo diff --git a/GI/Gtk/Objects/Action.hs b/GI/Gtk/Objects/Action.hs --- a/GI/Gtk/Objects/Action.hs +++ b/GI/Gtk/Objects/Action.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,106 +18,132 @@ -- * Methods -- ** actionActivate + ActionActivateMethodInfo , actionActivate , -- ** actionBlockActivate + ActionBlockActivateMethodInfo , actionBlockActivate , -- ** actionConnectAccelerator + ActionConnectAcceleratorMethodInfo , actionConnectAccelerator , -- ** actionCreateIcon + ActionCreateIconMethodInfo , actionCreateIcon , -- ** actionCreateMenu + ActionCreateMenuMethodInfo , actionCreateMenu , -- ** actionCreateMenuItem + ActionCreateMenuItemMethodInfo , actionCreateMenuItem , -- ** actionCreateToolItem + ActionCreateToolItemMethodInfo , actionCreateToolItem , -- ** actionDisconnectAccelerator + ActionDisconnectAcceleratorMethodInfo , actionDisconnectAccelerator , -- ** actionGetAccelClosure + ActionGetAccelClosureMethodInfo , actionGetAccelClosure , -- ** actionGetAccelPath + ActionGetAccelPathMethodInfo , actionGetAccelPath , -- ** actionGetAlwaysShowImage + ActionGetAlwaysShowImageMethodInfo , actionGetAlwaysShowImage , -- ** actionGetGicon + ActionGetGiconMethodInfo , actionGetGicon , -- ** actionGetIconName + ActionGetIconNameMethodInfo , actionGetIconName , -- ** actionGetIsImportant + ActionGetIsImportantMethodInfo , actionGetIsImportant , -- ** actionGetLabel + ActionGetLabelMethodInfo , actionGetLabel , -- ** actionGetName + ActionGetNameMethodInfo , actionGetName , -- ** actionGetProxies + ActionGetProxiesMethodInfo , actionGetProxies , -- ** actionGetSensitive + ActionGetSensitiveMethodInfo , actionGetSensitive , -- ** actionGetShortLabel + ActionGetShortLabelMethodInfo , actionGetShortLabel , -- ** actionGetStockId + ActionGetStockIdMethodInfo , actionGetStockId , -- ** actionGetTooltip + ActionGetTooltipMethodInfo , actionGetTooltip , -- ** actionGetVisible + ActionGetVisibleMethodInfo , actionGetVisible , -- ** actionGetVisibleHorizontal + ActionGetVisibleHorizontalMethodInfo , actionGetVisibleHorizontal , -- ** actionGetVisibleVertical + ActionGetVisibleVerticalMethodInfo , actionGetVisibleVertical , -- ** actionIsSensitive + ActionIsSensitiveMethodInfo , actionIsSensitive , -- ** actionIsVisible + ActionIsVisibleMethodInfo , actionIsVisible , @@ -125,62 +152,77 @@ -- ** actionSetAccelGroup + ActionSetAccelGroupMethodInfo , actionSetAccelGroup , -- ** actionSetAccelPath + ActionSetAccelPathMethodInfo , actionSetAccelPath , -- ** actionSetAlwaysShowImage + ActionSetAlwaysShowImageMethodInfo , actionSetAlwaysShowImage , -- ** actionSetGicon + ActionSetGiconMethodInfo , actionSetGicon , -- ** actionSetIconName + ActionSetIconNameMethodInfo , actionSetIconName , -- ** actionSetIsImportant + ActionSetIsImportantMethodInfo , actionSetIsImportant , -- ** actionSetLabel + ActionSetLabelMethodInfo , actionSetLabel , -- ** actionSetSensitive + ActionSetSensitiveMethodInfo , actionSetSensitive , -- ** actionSetShortLabel + ActionSetShortLabelMethodInfo , actionSetShortLabel , -- ** actionSetStockId + ActionSetStockIdMethodInfo , actionSetStockId , -- ** actionSetTooltip + ActionSetTooltipMethodInfo , actionSetTooltip , -- ** actionSetVisible + ActionSetVisibleMethodInfo , actionSetVisible , -- ** actionSetVisibleHorizontal + ActionSetVisibleHorizontalMethodInfo , actionSetVisibleHorizontal , -- ** actionSetVisibleVertical + ActionSetVisibleVerticalMethodInfo , actionSetVisibleVertical , -- ** actionUnblockActivate + ActionUnblockActivateMethodInfo , actionUnblockActivate , @@ -350,6 +392,88 @@ noAction :: Maybe Action noAction = Nothing +type family ResolveActionMethod (t :: Symbol) (o :: *) :: * where + ResolveActionMethod "activate" o = ActionActivateMethodInfo + ResolveActionMethod "addChild" o = BuildableAddChildMethodInfo + ResolveActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveActionMethod "blockActivate" o = ActionBlockActivateMethodInfo + ResolveActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo + ResolveActionMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveActionMethod "createIcon" o = ActionCreateIconMethodInfo + ResolveActionMethod "createMenu" o = ActionCreateMenuMethodInfo + ResolveActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo + ResolveActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo + ResolveActionMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveActionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveActionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo + ResolveActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo + ResolveActionMethod "isVisible" o = ActionIsVisibleMethodInfo + ResolveActionMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveActionMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveActionMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo + ResolveActionMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo + ResolveActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo + ResolveActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo + ResolveActionMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveActionMethod "getGicon" o = ActionGetGiconMethodInfo + ResolveActionMethod "getIconName" o = ActionGetIconNameMethodInfo + ResolveActionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo + ResolveActionMethod "getLabel" o = ActionGetLabelMethodInfo + ResolveActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveActionMethod "getProxies" o = ActionGetProxiesMethodInfo + ResolveActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo + ResolveActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo + ResolveActionMethod "getStockId" o = ActionGetStockIdMethodInfo + ResolveActionMethod "getTooltip" o = ActionGetTooltipMethodInfo + ResolveActionMethod "getVisible" o = ActionGetVisibleMethodInfo + ResolveActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo + ResolveActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo + ResolveActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo + ResolveActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo + ResolveActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo + ResolveActionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveActionMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveActionMethod "setGicon" o = ActionSetGiconMethodInfo + ResolveActionMethod "setIconName" o = ActionSetIconNameMethodInfo + ResolveActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo + ResolveActionMethod "setLabel" o = ActionSetLabelMethodInfo + ResolveActionMethod "setName" o = BuildableSetNameMethodInfo + ResolveActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo + ResolveActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo + ResolveActionMethod "setStockId" o = ActionSetStockIdMethodInfo + ResolveActionMethod "setTooltip" o = ActionSetTooltipMethodInfo + ResolveActionMethod "setVisible" o = ActionSetVisibleMethodInfo + ResolveActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo + ResolveActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo + ResolveActionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabelProxy t (Action -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabel t (Action -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Action::activate type ActionActivateCallback = IO () @@ -407,7 +531,7 @@ type AttrSetTypeConstraint ActionActionGroupPropertyInfo = ActionGroupK type AttrBaseTypeConstraint ActionActionGroupPropertyInfo = ActionK type AttrGetType ActionActionGroupPropertyInfo = ActionGroup - type AttrLabel ActionActionGroupPropertyInfo = "Action::action-group" + type AttrLabel ActionActionGroupPropertyInfo = "action-group" attrGet _ = getActionActionGroup attrSet _ = setActionActionGroup attrConstruct _ = constructActionActionGroup @@ -431,7 +555,7 @@ type AttrSetTypeConstraint ActionAlwaysShowImagePropertyInfo = (~) Bool type AttrBaseTypeConstraint ActionAlwaysShowImagePropertyInfo = ActionK type AttrGetType ActionAlwaysShowImagePropertyInfo = Bool - type AttrLabel ActionAlwaysShowImagePropertyInfo = "Action::always-show-image" + type AttrLabel ActionAlwaysShowImagePropertyInfo = "always-show-image" attrGet _ = getActionAlwaysShowImage attrSet _ = setActionAlwaysShowImage attrConstruct _ = constructActionAlwaysShowImage @@ -455,7 +579,7 @@ type AttrSetTypeConstraint ActionGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint ActionGiconPropertyInfo = ActionK type AttrGetType ActionGiconPropertyInfo = Gio.Icon - type AttrLabel ActionGiconPropertyInfo = "Action::gicon" + type AttrLabel ActionGiconPropertyInfo = "gicon" attrGet _ = getActionGicon attrSet _ = setActionGicon attrConstruct _ = constructActionGicon @@ -479,7 +603,7 @@ type AttrSetTypeConstraint ActionHideIfEmptyPropertyInfo = (~) Bool type AttrBaseTypeConstraint ActionHideIfEmptyPropertyInfo = ActionK type AttrGetType ActionHideIfEmptyPropertyInfo = Bool - type AttrLabel ActionHideIfEmptyPropertyInfo = "Action::hide-if-empty" + type AttrLabel ActionHideIfEmptyPropertyInfo = "hide-if-empty" attrGet _ = getActionHideIfEmpty attrSet _ = setActionHideIfEmpty attrConstruct _ = constructActionHideIfEmpty @@ -503,7 +627,7 @@ type AttrSetTypeConstraint ActionIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ActionIconNamePropertyInfo = ActionK type AttrGetType ActionIconNamePropertyInfo = T.Text - type AttrLabel ActionIconNamePropertyInfo = "Action::icon-name" + type AttrLabel ActionIconNamePropertyInfo = "icon-name" attrGet _ = getActionIconName attrSet _ = setActionIconName attrConstruct _ = constructActionIconName @@ -527,7 +651,7 @@ type AttrSetTypeConstraint ActionIsImportantPropertyInfo = (~) Bool type AttrBaseTypeConstraint ActionIsImportantPropertyInfo = ActionK type AttrGetType ActionIsImportantPropertyInfo = Bool - type AttrLabel ActionIsImportantPropertyInfo = "Action::is-important" + type AttrLabel ActionIsImportantPropertyInfo = "is-important" attrGet _ = getActionIsImportant attrSet _ = setActionIsImportant attrConstruct _ = constructActionIsImportant @@ -551,7 +675,7 @@ type AttrSetTypeConstraint ActionLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ActionLabelPropertyInfo = ActionK type AttrGetType ActionLabelPropertyInfo = T.Text - type AttrLabel ActionLabelPropertyInfo = "Action::label" + type AttrLabel ActionLabelPropertyInfo = "label" attrGet _ = getActionLabel attrSet _ = setActionLabel attrConstruct _ = constructActionLabel @@ -572,7 +696,7 @@ type AttrSetTypeConstraint ActionNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ActionNamePropertyInfo = ActionK type AttrGetType ActionNamePropertyInfo = T.Text - type AttrLabel ActionNamePropertyInfo = "Action::name" + type AttrLabel ActionNamePropertyInfo = "name" attrGet _ = getActionName attrSet _ = undefined attrConstruct _ = constructActionName @@ -596,7 +720,7 @@ type AttrSetTypeConstraint ActionSensitivePropertyInfo = (~) Bool type AttrBaseTypeConstraint ActionSensitivePropertyInfo = ActionK type AttrGetType ActionSensitivePropertyInfo = Bool - type AttrLabel ActionSensitivePropertyInfo = "Action::sensitive" + type AttrLabel ActionSensitivePropertyInfo = "sensitive" attrGet _ = getActionSensitive attrSet _ = setActionSensitive attrConstruct _ = constructActionSensitive @@ -620,7 +744,7 @@ type AttrSetTypeConstraint ActionShortLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ActionShortLabelPropertyInfo = ActionK type AttrGetType ActionShortLabelPropertyInfo = T.Text - type AttrLabel ActionShortLabelPropertyInfo = "Action::short-label" + type AttrLabel ActionShortLabelPropertyInfo = "short-label" attrGet _ = getActionShortLabel attrSet _ = setActionShortLabel attrConstruct _ = constructActionShortLabel @@ -644,7 +768,7 @@ type AttrSetTypeConstraint ActionStockIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ActionStockIdPropertyInfo = ActionK type AttrGetType ActionStockIdPropertyInfo = T.Text - type AttrLabel ActionStockIdPropertyInfo = "Action::stock-id" + type AttrLabel ActionStockIdPropertyInfo = "stock-id" attrGet _ = getActionStockId attrSet _ = setActionStockId attrConstruct _ = constructActionStockId @@ -668,7 +792,7 @@ type AttrSetTypeConstraint ActionTooltipPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ActionTooltipPropertyInfo = ActionK type AttrGetType ActionTooltipPropertyInfo = T.Text - type AttrLabel ActionTooltipPropertyInfo = "Action::tooltip" + type AttrLabel ActionTooltipPropertyInfo = "tooltip" attrGet _ = getActionTooltip attrSet _ = setActionTooltip attrConstruct _ = constructActionTooltip @@ -692,7 +816,7 @@ type AttrSetTypeConstraint ActionVisiblePropertyInfo = (~) Bool type AttrBaseTypeConstraint ActionVisiblePropertyInfo = ActionK type AttrGetType ActionVisiblePropertyInfo = Bool - type AttrLabel ActionVisiblePropertyInfo = "Action::visible" + type AttrLabel ActionVisiblePropertyInfo = "visible" attrGet _ = getActionVisible attrSet _ = setActionVisible attrConstruct _ = constructActionVisible @@ -716,7 +840,7 @@ type AttrSetTypeConstraint ActionVisibleHorizontalPropertyInfo = (~) Bool type AttrBaseTypeConstraint ActionVisibleHorizontalPropertyInfo = ActionK type AttrGetType ActionVisibleHorizontalPropertyInfo = Bool - type AttrLabel ActionVisibleHorizontalPropertyInfo = "Action::visible-horizontal" + type AttrLabel ActionVisibleHorizontalPropertyInfo = "visible-horizontal" attrGet _ = getActionVisibleHorizontal attrSet _ = setActionVisibleHorizontal attrConstruct _ = constructActionVisibleHorizontal @@ -740,7 +864,7 @@ type AttrSetTypeConstraint ActionVisibleOverflownPropertyInfo = (~) Bool type AttrBaseTypeConstraint ActionVisibleOverflownPropertyInfo = ActionK type AttrGetType ActionVisibleOverflownPropertyInfo = Bool - type AttrLabel ActionVisibleOverflownPropertyInfo = "Action::visible-overflown" + type AttrLabel ActionVisibleOverflownPropertyInfo = "visible-overflown" attrGet _ = getActionVisibleOverflown attrSet _ = setActionVisibleOverflown attrConstruct _ = constructActionVisibleOverflown @@ -764,13 +888,13 @@ type AttrSetTypeConstraint ActionVisibleVerticalPropertyInfo = (~) Bool type AttrBaseTypeConstraint ActionVisibleVerticalPropertyInfo = ActionK type AttrGetType ActionVisibleVerticalPropertyInfo = Bool - type AttrLabel ActionVisibleVerticalPropertyInfo = "Action::visible-vertical" + type AttrLabel ActionVisibleVerticalPropertyInfo = "visible-vertical" attrGet _ = getActionVisibleVertical attrSet _ = setActionVisibleVertical attrConstruct _ = constructActionVisibleVertical type instance AttributeList Action = ActionAttributeList -type ActionAttributeList = ('[ '("action-group", ActionActionGroupPropertyInfo), '("always-show-image", ActionAlwaysShowImagePropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hide-if-empty", ActionHideIfEmptyPropertyInfo), '("icon-name", ActionIconNamePropertyInfo), '("is-important", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("short-label", ActionShortLabelPropertyInfo), '("stock-id", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visible-horizontal", ActionVisibleHorizontalPropertyInfo), '("visible-overflown", ActionVisibleOverflownPropertyInfo), '("visible-vertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) +type ActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) data ActionActivateSignalInfo instance SignalInfo ActionActivateSignalInfo where @@ -778,13 +902,12 @@ connectSignal _ = connectActionActivate type instance SignalList Action = ActionSignalList -type ActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Action::new -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Action" -- throws : False -- Skip return : False @@ -799,12 +922,12 @@ {-# DEPRECATED actionNew ["(Since version 3.10)","Use #GAction instead, associating it to a widget with","#GtkActionable or creating a #GtkMenu with gtk_menu_new_from_model()"]#-} actionNew :: (MonadIO m) => - T.Text -> -- name - Maybe (T.Text) -> -- label - Maybe (T.Text) -> -- tooltip - Maybe (T.Text) -> -- stock_id - m Action -actionNew name label tooltip stock_id = liftIO $ do + T.Text -- name + -> Maybe (T.Text) -- label + -> Maybe (T.Text) -- tooltip + -> Maybe (T.Text) -- stockId + -> m Action -- result +actionNew name label tooltip stockId = liftIO $ do name' <- textToCString name maybeLabel <- case label of Nothing -> return nullPtr @@ -816,25 +939,24 @@ Just jTooltip -> do jTooltip' <- textToCString jTooltip return jTooltip' - maybeStock_id <- case stock_id of + maybeStockId <- case stockId of Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - result <- gtk_action_new name' maybeLabel maybeTooltip maybeStock_id + Just jStockId -> do + jStockId' <- textToCString jStockId + return jStockId' + result <- gtk_action_new name' maybeLabel maybeTooltip maybeStockId checkUnexpectedReturnNULL "gtk_action_new" result result' <- (wrapObject Action) result freeMem name' freeMem maybeLabel freeMem maybeTooltip - freeMem maybeStock_id + freeMem maybeStockId return result' -- method Action::activate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -846,19 +968,22 @@ {-# DEPRECATED actionActivate ["(Since version 3.10)","Use g_action_group_activate_action() on a #GAction instead"]#-} actionActivate :: (MonadIO m, ActionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result actionActivate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_action_activate _obj' touchManagedPtr _obj return () +data ActionActivateMethodInfo +instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionActivateMethodInfo a signature where + overloadedMethod _ = actionActivate + -- method Action::block_activate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -870,19 +995,22 @@ {-# DEPRECATED actionBlockActivate ["(Since version 3.10)","Use g_simple_action_set_enabled() to disable the","#GSimpleAction instead"]#-} actionBlockActivate :: (MonadIO m, ActionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result actionBlockActivate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_action_block_activate _obj' touchManagedPtr _obj return () +data ActionBlockActivateMethodInfo +instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionBlockActivateMethodInfo a signature where + overloadedMethod _ = actionBlockActivate + -- method Action::connect_accelerator -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -894,19 +1022,22 @@ {-# DEPRECATED actionConnectAccelerator ["(Since version 3.10)","Use #GAction and the accelerator group on an associated","#GtkMenu instead"]#-} actionConnectAccelerator :: (MonadIO m, ActionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result actionConnectAccelerator _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_action_connect_accelerator _obj' touchManagedPtr _obj return () +data ActionConnectAcceleratorMethodInfo +instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionConnectAcceleratorMethodInfo a signature where + overloadedMethod _ = actionConnectAccelerator + -- method Action::create_icon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -919,22 +1050,25 @@ {-# DEPRECATED actionCreateIcon ["(Since version 3.10)","Use g_menu_item_set_icon() to set an icon on a #GMenuItem,","or gtk_container_add() to add a #GtkImage to a #GtkButton"]#-} actionCreateIcon :: (MonadIO m, ActionK a) => - a -> -- _obj - Int32 -> -- icon_size - m Widget -actionCreateIcon _obj icon_size = liftIO $ do + a -- _obj + -> Int32 -- iconSize + -> m Widget -- result +actionCreateIcon _obj iconSize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_create_icon _obj' icon_size + result <- gtk_action_create_icon _obj' iconSize checkUnexpectedReturnNULL "gtk_action_create_icon" result result' <- (newObject Widget) result touchManagedPtr _obj return result' +data ActionCreateIconMethodInfo +instance (signature ~ (Int32 -> m Widget), MonadIO m, ActionK a) => MethodInfo ActionCreateIconMethodInfo a signature where + overloadedMethod _ = actionCreateIcon + -- method Action::create_menu -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -946,8 +1080,8 @@ {-# DEPRECATED actionCreateMenu ["(Since version 3.10)","Use #GAction and #GMenuModel instead, and create a","#GtkMenu with gtk_menu_new_from_model()"]#-} actionCreateMenu :: (MonadIO m, ActionK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result actionCreateMenu _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_create_menu _obj' @@ -956,11 +1090,14 @@ touchManagedPtr _obj return result' +data ActionCreateMenuMethodInfo +instance (signature ~ (m Widget), MonadIO m, ActionK a) => MethodInfo ActionCreateMenuMethodInfo a signature where + overloadedMethod _ = actionCreateMenu + -- method Action::create_menu_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -972,8 +1109,8 @@ {-# DEPRECATED actionCreateMenuItem ["(Since version 3.10)","Use g_menu_item_new() and associate it with a #GAction","instead."]#-} actionCreateMenuItem :: (MonadIO m, ActionK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result actionCreateMenuItem _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_create_menu_item _obj' @@ -982,11 +1119,14 @@ touchManagedPtr _obj return result' +data ActionCreateMenuItemMethodInfo +instance (signature ~ (m Widget), MonadIO m, ActionK a) => MethodInfo ActionCreateMenuItemMethodInfo a signature where + overloadedMethod _ = actionCreateMenuItem + -- method Action::create_tool_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -998,8 +1138,8 @@ {-# DEPRECATED actionCreateToolItem ["(Since version 3.10)","Use a #GtkToolItem and associate it with a #GAction using","gtk_actionable_set_action_name() instead"]#-} actionCreateToolItem :: (MonadIO m, ActionK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result actionCreateToolItem _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_create_tool_item _obj' @@ -1008,11 +1148,14 @@ touchManagedPtr _obj return result' +data ActionCreateToolItemMethodInfo +instance (signature ~ (m Widget), MonadIO m, ActionK a) => MethodInfo ActionCreateToolItemMethodInfo a signature where + overloadedMethod _ = actionCreateToolItem + -- method Action::disconnect_accelerator -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1024,19 +1167,22 @@ {-# DEPRECATED actionDisconnectAccelerator ["(Since version 3.10)","Use #GAction and the accelerator group on an associated","#GtkMenu instead"]#-} actionDisconnectAccelerator :: (MonadIO m, ActionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result actionDisconnectAccelerator _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_action_disconnect_accelerator _obj' touchManagedPtr _obj return () +data ActionDisconnectAcceleratorMethodInfo +instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionDisconnectAcceleratorMethodInfo a signature where + overloadedMethod _ = actionDisconnectAccelerator + -- method Action::get_accel_closure -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "Closure" -- throws : False -- Skip return : False @@ -1048,8 +1194,8 @@ {-# DEPRECATED actionGetAccelClosure ["(Since version 3.10)","Use #GAction and #GtkMenu instead, which have no","equivalent for getting the accel closure"]#-} actionGetAccelClosure :: (MonadIO m, ActionK a) => - a -> -- _obj - m Closure + a -- _obj + -> m Closure -- result actionGetAccelClosure _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_accel_closure _obj' @@ -1058,11 +1204,14 @@ touchManagedPtr _obj return result' +data ActionGetAccelClosureMethodInfo +instance (signature ~ (m Closure), MonadIO m, ActionK a) => MethodInfo ActionGetAccelClosureMethodInfo a signature where + overloadedMethod _ = actionGetAccelClosure + -- method Action::get_accel_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1074,8 +1223,8 @@ {-# DEPRECATED actionGetAccelPath ["(Since version 3.10)","Use #GAction and the accelerator path on an associated","#GtkMenu instead"]#-} actionGetAccelPath :: (MonadIO m, ActionK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result actionGetAccelPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_accel_path _obj' @@ -1084,11 +1233,14 @@ touchManagedPtr _obj return result' +data ActionGetAccelPathMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetAccelPathMethodInfo a signature where + overloadedMethod _ = actionGetAccelPath + -- method Action::get_always_show_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1100,8 +1252,8 @@ {-# DEPRECATED actionGetAlwaysShowImage ["(Since version 3.10)","Use g_menu_item_get_attribute_value() on a #GMenuItem","instead"]#-} actionGetAlwaysShowImage :: (MonadIO m, ActionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result actionGetAlwaysShowImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_always_show_image _obj' @@ -1109,11 +1261,14 @@ touchManagedPtr _obj return result' +data ActionGetAlwaysShowImageMethodInfo +instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetAlwaysShowImageMethodInfo a signature where + overloadedMethod _ = actionGetAlwaysShowImage + -- method Action::get_gicon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -1125,8 +1280,8 @@ {-# DEPRECATED actionGetGicon ["(Since version 3.10)","Use #GAction instead, and","g_menu_item_get_attribute_value() to get an icon from a #GMenuItem","associated with a #GAction"]#-} actionGetGicon :: (MonadIO m, ActionK a) => - a -> -- _obj - m Gio.Icon + a -- _obj + -> m Gio.Icon -- result actionGetGicon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_gicon _obj' @@ -1135,11 +1290,14 @@ touchManagedPtr _obj return result' +data ActionGetGiconMethodInfo +instance (signature ~ (m Gio.Icon), MonadIO m, ActionK a) => MethodInfo ActionGetGiconMethodInfo a signature where + overloadedMethod _ = actionGetGicon + -- method Action::get_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1151,8 +1309,8 @@ {-# DEPRECATED actionGetIconName ["(Since version 3.10)","Use #GAction instead, and","g_menu_item_get_attribute_value() to get an icon from a #GMenuItem","associated with a #GAction"]#-} actionGetIconName :: (MonadIO m, ActionK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result actionGetIconName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_icon_name _obj' @@ -1161,11 +1319,14 @@ touchManagedPtr _obj return result' +data ActionGetIconNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetIconNameMethodInfo a signature where + overloadedMethod _ = actionGetIconName + -- method Action::get_is_important -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1177,8 +1338,8 @@ {-# DEPRECATED actionGetIsImportant ["(Since version 3.10)","Use #GAction instead, and control and monitor whether","labels are shown directly"]#-} actionGetIsImportant :: (MonadIO m, ActionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result actionGetIsImportant _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_is_important _obj' @@ -1186,11 +1347,14 @@ touchManagedPtr _obj return result' +data ActionGetIsImportantMethodInfo +instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetIsImportantMethodInfo a signature where + overloadedMethod _ = actionGetIsImportant + -- method Action::get_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1202,8 +1366,8 @@ {-# DEPRECATED actionGetLabel ["(Since version 3.10)","Use #GAction instead, and get a label from a menu item","with g_menu_item_get_attribute_value(). For #GtkActionable widgets, use the","widget-specific API to get a label"]#-} actionGetLabel :: (MonadIO m, ActionK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result actionGetLabel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_label _obj' @@ -1212,11 +1376,14 @@ touchManagedPtr _obj return result' +data ActionGetLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetLabelMethodInfo a signature where + overloadedMethod _ = actionGetLabel + -- method Action::get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1228,8 +1395,8 @@ {-# DEPRECATED actionGetName ["(Since version 3.10)","Use g_action_get_name() on a #GAction instead"]#-} actionGetName :: (MonadIO m, ActionK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result actionGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_name _obj' @@ -1238,11 +1405,14 @@ touchManagedPtr _obj return result' +data ActionGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetNameMethodInfo a signature where + overloadedMethod _ = actionGetName + -- method Action::get_proxies -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1254,8 +1424,8 @@ {-# DEPRECATED actionGetProxies ["(Since version 3.10)"]#-} actionGetProxies :: (MonadIO m, ActionK a) => - a -> -- _obj - m [Widget] + a -- _obj + -> m [Widget] -- result actionGetProxies _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_proxies _obj' @@ -1265,11 +1435,14 @@ touchManagedPtr _obj return result'' +data ActionGetProxiesMethodInfo +instance (signature ~ (m [Widget]), MonadIO m, ActionK a) => MethodInfo ActionGetProxiesMethodInfo a signature where + overloadedMethod _ = actionGetProxies + -- method Action::get_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1281,8 +1454,8 @@ {-# DEPRECATED actionGetSensitive ["(Since version 3.10)","Use g_action_get_enabled() on a #GAction","instead"]#-} actionGetSensitive :: (MonadIO m, ActionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result actionGetSensitive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_sensitive _obj' @@ -1290,11 +1463,14 @@ touchManagedPtr _obj return result' +data ActionGetSensitiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetSensitiveMethodInfo a signature where + overloadedMethod _ = actionGetSensitive + -- method Action::get_short_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1306,8 +1482,8 @@ {-# DEPRECATED actionGetShortLabel ["(Since version 3.10)","Use #GAction instead, which has no equivalent of short","labels"]#-} actionGetShortLabel :: (MonadIO m, ActionK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result actionGetShortLabel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_short_label _obj' @@ -1316,11 +1492,14 @@ touchManagedPtr _obj return result' +data ActionGetShortLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetShortLabelMethodInfo a signature where + overloadedMethod _ = actionGetShortLabel + -- method Action::get_stock_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1332,8 +1511,8 @@ {-# DEPRECATED actionGetStockId ["(Since version 3.10)","Use #GAction instead, which has no equivalent of stock","items"]#-} actionGetStockId :: (MonadIO m, ActionK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result actionGetStockId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_stock_id _obj' @@ -1342,11 +1521,14 @@ touchManagedPtr _obj return result' +data ActionGetStockIdMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetStockIdMethodInfo a signature where + overloadedMethod _ = actionGetStockId + -- method Action::get_tooltip -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1358,8 +1540,8 @@ {-# DEPRECATED actionGetTooltip ["(Since version 3.10)","Use #GAction instead, and get tooltips from associated","#GtkActionable widgets with gtk_widget_get_tooltip_text()"]#-} actionGetTooltip :: (MonadIO m, ActionK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result actionGetTooltip _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_tooltip _obj' @@ -1368,11 +1550,14 @@ touchManagedPtr _obj return result' +data ActionGetTooltipMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetTooltipMethodInfo a signature where + overloadedMethod _ = actionGetTooltip + -- method Action::get_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1384,8 +1569,8 @@ {-# DEPRECATED actionGetVisible ["(Since version 3.10)","Use #GAction instead, and control and monitor the state of","#GtkActionable widgets directly"]#-} actionGetVisible :: (MonadIO m, ActionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result actionGetVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_visible _obj' @@ -1393,11 +1578,14 @@ touchManagedPtr _obj return result' +data ActionGetVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetVisibleMethodInfo a signature where + overloadedMethod _ = actionGetVisible + -- method Action::get_visible_horizontal -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1409,8 +1597,8 @@ {-# DEPRECATED actionGetVisibleHorizontal ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-} actionGetVisibleHorizontal :: (MonadIO m, ActionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result actionGetVisibleHorizontal _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_visible_horizontal _obj' @@ -1418,11 +1606,14 @@ touchManagedPtr _obj return result' +data ActionGetVisibleHorizontalMethodInfo +instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetVisibleHorizontalMethodInfo a signature where + overloadedMethod _ = actionGetVisibleHorizontal + -- method Action::get_visible_vertical -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1434,8 +1625,8 @@ {-# DEPRECATED actionGetVisibleVertical ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-} actionGetVisibleVertical :: (MonadIO m, ActionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result actionGetVisibleVertical _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_visible_vertical _obj' @@ -1443,11 +1634,14 @@ touchManagedPtr _obj return result' +data ActionGetVisibleVerticalMethodInfo +instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetVisibleVerticalMethodInfo a signature where + overloadedMethod _ = actionGetVisibleVertical + -- method Action::is_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1459,8 +1653,8 @@ {-# DEPRECATED actionIsSensitive ["(Since version 3.10)","Use g_action_get_enabled() on a #GAction","instead"]#-} actionIsSensitive :: (MonadIO m, ActionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result actionIsSensitive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_is_sensitive _obj' @@ -1468,11 +1662,14 @@ touchManagedPtr _obj return result' +data ActionIsSensitiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionIsSensitiveMethodInfo a signature where + overloadedMethod _ = actionIsSensitive + -- method Action::is_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1484,8 +1681,8 @@ {-# DEPRECATED actionIsVisible ["(Since version 3.10)","Use #GAction instead, and control and monitor the state of","#GtkActionable widgets directly"]#-} actionIsVisible :: (MonadIO m, ActionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result actionIsVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_is_visible _obj' @@ -1493,11 +1690,14 @@ touchManagedPtr _obj return result' +data ActionIsVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionIsVisibleMethodInfo a signature where + overloadedMethod _ = actionIsVisible + -- method Action::set_accel_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1510,26 +1710,29 @@ {-# DEPRECATED actionSetAccelGroup ["(Since version 3.10)","Use #GAction and the accelerator group on an associated","#GtkMenu instead"]#-} actionSetAccelGroup :: (MonadIO m, ActionK a, AccelGroupK b) => - a -> -- _obj - Maybe (b) -> -- accel_group - m () -actionSetAccelGroup _obj accel_group = liftIO $ do + a -- _obj + -> Maybe (b) -- accelGroup + -> m () -- result +actionSetAccelGroup _obj accelGroup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccel_group <- case accel_group of + maybeAccelGroup <- case accelGroup of Nothing -> return nullPtr - Just jAccel_group -> do - let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group - return jAccel_group' - gtk_action_set_accel_group _obj' maybeAccel_group + Just jAccelGroup -> do + let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup + return jAccelGroup' + gtk_action_set_accel_group _obj' maybeAccelGroup touchManagedPtr _obj - whenJust accel_group touchManagedPtr + whenJust accelGroup touchManagedPtr return () +data ActionSetAccelGroupMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ActionK a, AccelGroupK b) => MethodInfo ActionSetAccelGroupMethodInfo a signature where + overloadedMethod _ = actionSetAccelGroup + -- method Action::set_accel_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1542,22 +1745,25 @@ {-# DEPRECATED actionSetAccelPath ["(Since version 3.10)","Use #GAction and the accelerator path on an associated","#GtkMenu instead"]#-} actionSetAccelPath :: (MonadIO m, ActionK a) => - a -> -- _obj - T.Text -> -- accel_path - m () -actionSetAccelPath _obj accel_path = liftIO $ do + a -- _obj + -> T.Text -- accelPath + -> m () -- result +actionSetAccelPath _obj accelPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - accel_path' <- textToCString accel_path - gtk_action_set_accel_path _obj' accel_path' + accelPath' <- textToCString accelPath + gtk_action_set_accel_path _obj' accelPath' touchManagedPtr _obj - freeMem accel_path' + freeMem accelPath' return () +data ActionSetAccelPathMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetAccelPathMethodInfo a signature where + overloadedMethod _ = actionSetAccelPath + -- method Action::set_always_show_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1570,21 +1776,24 @@ {-# DEPRECATED actionSetAlwaysShowImage ["(Since version 3.10)","Use g_menu_item_set_icon() on a #GMenuItem instead, if the","item should have an image"]#-} actionSetAlwaysShowImage :: (MonadIO m, ActionK a) => - a -> -- _obj - Bool -> -- always_show - m () -actionSetAlwaysShowImage _obj always_show = liftIO $ do + a -- _obj + -> Bool -- alwaysShow + -> m () -- result +actionSetAlwaysShowImage _obj alwaysShow = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let always_show' = (fromIntegral . fromEnum) always_show - gtk_action_set_always_show_image _obj' always_show' + let alwaysShow' = (fromIntegral . fromEnum) alwaysShow + gtk_action_set_always_show_image _obj' alwaysShow' touchManagedPtr _obj return () +data ActionSetAlwaysShowImageMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetAlwaysShowImageMethodInfo a signature where + overloadedMethod _ = actionSetAlwaysShowImage + -- method Action::set_gicon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1597,9 +1806,9 @@ {-# DEPRECATED actionSetGicon ["(Since version 3.10)","Use #GAction instead, and g_menu_item_set_icon() to set an","icon on a #GMenuItem associated with a #GAction, or gtk_container_add() to","add a #GtkImage to a #GtkButton"]#-} actionSetGicon :: (MonadIO m, ActionK a, Gio.IconK b) => - a -> -- _obj - b -> -- icon - m () + a -- _obj + -> b -- icon + -> m () -- result actionSetGicon _obj icon = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let icon' = unsafeManagedPtrCastPtr icon @@ -1608,11 +1817,14 @@ touchManagedPtr icon return () +data ActionSetGiconMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ActionK a, Gio.IconK b) => MethodInfo ActionSetGiconMethodInfo a signature where + overloadedMethod _ = actionSetGicon + -- method Action::set_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1625,22 +1837,25 @@ {-# DEPRECATED actionSetIconName ["(Since version 3.10)","Use #GAction instead, and g_menu_item_set_icon() to set an","icon on a #GMenuItem associated with a #GAction, or gtk_container_add() to","add a #GtkImage to a #GtkButton"]#-} actionSetIconName :: (MonadIO m, ActionK a) => - a -> -- _obj - T.Text -> -- icon_name - m () -actionSetIconName _obj icon_name = liftIO $ do + a -- _obj + -> T.Text -- iconName + -> m () -- result +actionSetIconName _obj iconName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - gtk_action_set_icon_name _obj' icon_name' + iconName' <- textToCString iconName + gtk_action_set_icon_name _obj' iconName' touchManagedPtr _obj - freeMem icon_name' + freeMem iconName' return () +data ActionSetIconNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetIconNameMethodInfo a signature where + overloadedMethod _ = actionSetIconName + -- method Action::set_is_important -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1653,21 +1868,24 @@ {-# DEPRECATED actionSetIsImportant ["(Since version 3.10)","Use #GAction instead, and control and monitor whether","labels are shown directly"]#-} actionSetIsImportant :: (MonadIO m, ActionK a) => - a -> -- _obj - Bool -> -- is_important - m () -actionSetIsImportant _obj is_important = liftIO $ do + a -- _obj + -> Bool -- isImportant + -> m () -- result +actionSetIsImportant _obj isImportant = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let is_important' = (fromIntegral . fromEnum) is_important - gtk_action_set_is_important _obj' is_important' + let isImportant' = (fromIntegral . fromEnum) isImportant + gtk_action_set_is_important _obj' isImportant' touchManagedPtr _obj return () +data ActionSetIsImportantMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetIsImportantMethodInfo a signature where + overloadedMethod _ = actionSetIsImportant + -- method Action::set_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1680,9 +1898,9 @@ {-# DEPRECATED actionSetLabel ["(Since version 3.10)","Use #GAction instead, and set a label on a menu item with","g_menu_item_set_label(). For #GtkActionable widgets, use the widget-specific","API to set a label"]#-} actionSetLabel :: (MonadIO m, ActionK a) => - a -> -- _obj - T.Text -> -- label - m () + a -- _obj + -> T.Text -- label + -> m () -- result actionSetLabel _obj label = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj label' <- textToCString label @@ -1691,11 +1909,14 @@ freeMem label' return () +data ActionSetLabelMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetLabelMethodInfo a signature where + overloadedMethod _ = actionSetLabel + -- method Action::set_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1708,9 +1929,9 @@ {-# DEPRECATED actionSetSensitive ["(Since version 3.10)","Use g_simple_action_set_enabled() on a #GSimpleAction","instead"]#-} actionSetSensitive :: (MonadIO m, ActionK a) => - a -> -- _obj - Bool -> -- sensitive - m () + a -- _obj + -> Bool -- sensitive + -> m () -- result actionSetSensitive _obj sensitive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sensitive' = (fromIntegral . fromEnum) sensitive @@ -1718,11 +1939,14 @@ touchManagedPtr _obj return () +data ActionSetSensitiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetSensitiveMethodInfo a signature where + overloadedMethod _ = actionSetSensitive + -- method Action::set_short_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "short_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "short_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "short_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1735,22 +1959,25 @@ {-# DEPRECATED actionSetShortLabel ["(Since version 3.10)","Use #GAction instead, which has no equivalent of short","labels"]#-} actionSetShortLabel :: (MonadIO m, ActionK a) => - a -> -- _obj - T.Text -> -- short_label - m () -actionSetShortLabel _obj short_label = liftIO $ do + a -- _obj + -> T.Text -- shortLabel + -> m () -- result +actionSetShortLabel _obj shortLabel = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - short_label' <- textToCString short_label - gtk_action_set_short_label _obj' short_label' + shortLabel' <- textToCString shortLabel + gtk_action_set_short_label _obj' shortLabel' touchManagedPtr _obj - freeMem short_label' + freeMem shortLabel' return () +data ActionSetShortLabelMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetShortLabelMethodInfo a signature where + overloadedMethod _ = actionSetShortLabel + -- method Action::set_stock_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1763,22 +1990,25 @@ {-# DEPRECATED actionSetStockId ["(Since version 3.10)","Use #GAction instead, which has no equivalent of stock","items"]#-} actionSetStockId :: (MonadIO m, ActionK a) => - a -> -- _obj - T.Text -> -- stock_id - m () -actionSetStockId _obj stock_id = liftIO $ do + a -- _obj + -> T.Text -- stockId + -> m () -- result +actionSetStockId _obj stockId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - gtk_action_set_stock_id _obj' stock_id' + stockId' <- textToCString stockId + gtk_action_set_stock_id _obj' stockId' touchManagedPtr _obj - freeMem stock_id' + freeMem stockId' return () +data ActionSetStockIdMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetStockIdMethodInfo a signature where + overloadedMethod _ = actionSetStockId + -- method Action::set_tooltip -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1791,9 +2021,9 @@ {-# DEPRECATED actionSetTooltip ["(Since version 3.10)","Use #GAction instead, and set tooltips on associated","#GtkActionable widgets with gtk_widget_set_tooltip_text()"]#-} actionSetTooltip :: (MonadIO m, ActionK a) => - a -> -- _obj - T.Text -> -- tooltip - m () + a -- _obj + -> T.Text -- tooltip + -> m () -- result actionSetTooltip _obj tooltip = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj tooltip' <- textToCString tooltip @@ -1802,11 +2032,14 @@ freeMem tooltip' return () +data ActionSetTooltipMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetTooltipMethodInfo a signature where + overloadedMethod _ = actionSetTooltip + -- method Action::set_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1819,9 +2052,9 @@ {-# DEPRECATED actionSetVisible ["(Since version 3.10)","Use #GAction instead, and control and monitor the state of","#GtkActionable widgets directly"]#-} actionSetVisible :: (MonadIO m, ActionK a) => - a -> -- _obj - Bool -> -- visible - m () + a -- _obj + -> Bool -- visible + -> m () -- result actionSetVisible _obj visible = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let visible' = (fromIntegral . fromEnum) visible @@ -1829,11 +2062,14 @@ touchManagedPtr _obj return () +data ActionSetVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetVisibleMethodInfo a signature where + overloadedMethod _ = actionSetVisible + -- method Action::set_visible_horizontal -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1846,21 +2082,24 @@ {-# DEPRECATED actionSetVisibleHorizontal ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-} actionSetVisibleHorizontal :: (MonadIO m, ActionK a) => - a -> -- _obj - Bool -> -- visible_horizontal - m () -actionSetVisibleHorizontal _obj visible_horizontal = liftIO $ do + a -- _obj + -> Bool -- visibleHorizontal + -> m () -- result +actionSetVisibleHorizontal _obj visibleHorizontal = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let visible_horizontal' = (fromIntegral . fromEnum) visible_horizontal - gtk_action_set_visible_horizontal _obj' visible_horizontal' + let visibleHorizontal' = (fromIntegral . fromEnum) visibleHorizontal + gtk_action_set_visible_horizontal _obj' visibleHorizontal' touchManagedPtr _obj return () +data ActionSetVisibleHorizontalMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetVisibleHorizontalMethodInfo a signature where + overloadedMethod _ = actionSetVisibleHorizontal + -- method Action::set_visible_vertical -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1873,21 +2112,24 @@ {-# DEPRECATED actionSetVisibleVertical ["(Since version 3.10)","Use #GAction instead, and control and monitor the","visibility of associated widgets and menu items directly"]#-} actionSetVisibleVertical :: (MonadIO m, ActionK a) => - a -> -- _obj - Bool -> -- visible_vertical - m () -actionSetVisibleVertical _obj visible_vertical = liftIO $ do + a -- _obj + -> Bool -- visibleVertical + -> m () -- result +actionSetVisibleVertical _obj visibleVertical = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let visible_vertical' = (fromIntegral . fromEnum) visible_vertical - gtk_action_set_visible_vertical _obj' visible_vertical' + let visibleVertical' = (fromIntegral . fromEnum) visibleVertical + gtk_action_set_visible_vertical _obj' visibleVertical' touchManagedPtr _obj return () +data ActionSetVisibleVerticalMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ActionK a) => MethodInfo ActionSetVisibleVerticalMethodInfo a signature where + overloadedMethod _ = actionSetVisibleVertical + -- method Action::unblock_activate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1899,12 +2141,16 @@ {-# DEPRECATED actionUnblockActivate ["(Since version 3.10)","Use g_simple_action_set_enabled() to enable the","#GSimpleAction instead"]#-} actionUnblockActivate :: (MonadIO m, ActionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result actionUnblockActivate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_action_unblock_activate _obj' touchManagedPtr _obj return () + +data ActionUnblockActivateMethodInfo +instance (signature ~ (m ()), MonadIO m, ActionK a) => MethodInfo ActionUnblockActivateMethodInfo a signature where + overloadedMethod _ = actionUnblockActivate diff --git a/GI/Gtk/Objects/Action.hs-boot b/GI/Gtk/Objects/Action.hs-boot --- a/GI/Gtk/Objects/Action.hs-boot +++ b/GI/Gtk/Objects/Action.hs-boot @@ -28,3 +28,44 @@ data ActionVisibleOverflownPropertyInfo data ActionVisibleVerticalPropertyInfo data ActionActivateSignalInfo +data ActionActivateMethodInfo +data ActionBlockActivateMethodInfo +data ActionConnectAcceleratorMethodInfo +data ActionCreateIconMethodInfo +data ActionCreateMenuMethodInfo +data ActionCreateMenuItemMethodInfo +data ActionCreateToolItemMethodInfo +data ActionDisconnectAcceleratorMethodInfo +data ActionGetAccelClosureMethodInfo +data ActionGetAccelPathMethodInfo +data ActionGetAlwaysShowImageMethodInfo +data ActionGetGiconMethodInfo +data ActionGetIconNameMethodInfo +data ActionGetIsImportantMethodInfo +data ActionGetLabelMethodInfo +data ActionGetNameMethodInfo +data ActionGetProxiesMethodInfo +data ActionGetSensitiveMethodInfo +data ActionGetShortLabelMethodInfo +data ActionGetStockIdMethodInfo +data ActionGetTooltipMethodInfo +data ActionGetVisibleMethodInfo +data ActionGetVisibleHorizontalMethodInfo +data ActionGetVisibleVerticalMethodInfo +data ActionIsSensitiveMethodInfo +data ActionIsVisibleMethodInfo +data ActionSetAccelGroupMethodInfo +data ActionSetAccelPathMethodInfo +data ActionSetAlwaysShowImageMethodInfo +data ActionSetGiconMethodInfo +data ActionSetIconNameMethodInfo +data ActionSetIsImportantMethodInfo +data ActionSetLabelMethodInfo +data ActionSetSensitiveMethodInfo +data ActionSetShortLabelMethodInfo +data ActionSetStockIdMethodInfo +data ActionSetTooltipMethodInfo +data ActionSetVisibleMethodInfo +data ActionSetVisibleHorizontalMethodInfo +data ActionSetVisibleVerticalMethodInfo +data ActionUnblockActivateMethodInfo diff --git a/GI/Gtk/Objects/ActionBar.hs b/GI/Gtk/Objects/ActionBar.hs --- a/GI/Gtk/Objects/ActionBar.hs +++ b/GI/Gtk/Objects/ActionBar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** actionBarGetCenterWidget + ActionBarGetCenterWidgetMethodInfo , actionBarGetCenterWidget , @@ -25,14 +27,17 @@ -- ** actionBarPackEnd + ActionBarPackEndMethodInfo , actionBarPackEnd , -- ** actionBarPackStart + ActionBarPackStartMethodInfo , actionBarPackStart , -- ** actionBarSetCenterWidget + ActionBarSetCenterWidgetMethodInfo , actionBarSetCenterWidget , @@ -73,17 +78,343 @@ noActionBar :: Maybe ActionBar noActionBar = Nothing +type family ResolveActionBarMethod (t :: Symbol) (o :: *) :: * where + ResolveActionBarMethod "activate" o = WidgetActivateMethodInfo + ResolveActionBarMethod "add" o = ContainerAddMethodInfo + ResolveActionBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveActionBarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveActionBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveActionBarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveActionBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveActionBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveActionBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveActionBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveActionBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveActionBarMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveActionBarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveActionBarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveActionBarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveActionBarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveActionBarMethod "childType" o = ContainerChildTypeMethodInfo + ResolveActionBarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveActionBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveActionBarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveActionBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveActionBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveActionBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveActionBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveActionBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveActionBarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveActionBarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveActionBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveActionBarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveActionBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveActionBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveActionBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveActionBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveActionBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveActionBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveActionBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveActionBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveActionBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveActionBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveActionBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveActionBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveActionBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveActionBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveActionBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveActionBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveActionBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveActionBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveActionBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveActionBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveActionBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveActionBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveActionBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveActionBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveActionBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveActionBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveActionBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveActionBarMethod "draw" o = WidgetDrawMethodInfo + ResolveActionBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveActionBarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveActionBarMethod "event" o = WidgetEventMethodInfo + ResolveActionBarMethod "forall" o = ContainerForallMethodInfo + ResolveActionBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveActionBarMethod "foreach" o = ContainerForeachMethodInfo + ResolveActionBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveActionBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveActionBarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveActionBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveActionBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveActionBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveActionBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveActionBarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveActionBarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveActionBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveActionBarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveActionBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveActionBarMethod "hide" o = WidgetHideMethodInfo + ResolveActionBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveActionBarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveActionBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveActionBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveActionBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveActionBarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveActionBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveActionBarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveActionBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveActionBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveActionBarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveActionBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveActionBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveActionBarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveActionBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveActionBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveActionBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveActionBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveActionBarMethod "map" o = WidgetMapMethodInfo + ResolveActionBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveActionBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveActionBarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveActionBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveActionBarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveActionBarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveActionBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveActionBarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveActionBarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveActionBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveActionBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveActionBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveActionBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveActionBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveActionBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveActionBarMethod "packEnd" o = ActionBarPackEndMethodInfo + ResolveActionBarMethod "packStart" o = ActionBarPackStartMethodInfo + ResolveActionBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveActionBarMethod "path" o = WidgetPathMethodInfo + ResolveActionBarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveActionBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveActionBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveActionBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveActionBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveActionBarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveActionBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveActionBarMethod "realize" o = WidgetRealizeMethodInfo + ResolveActionBarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveActionBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveActionBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveActionBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveActionBarMethod "remove" o = ContainerRemoveMethodInfo + ResolveActionBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveActionBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveActionBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveActionBarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveActionBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveActionBarMethod "reparent" o = WidgetReparentMethodInfo + ResolveActionBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveActionBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveActionBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveActionBarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveActionBarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveActionBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveActionBarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveActionBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveActionBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveActionBarMethod "show" o = WidgetShowMethodInfo + ResolveActionBarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveActionBarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveActionBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveActionBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveActionBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveActionBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveActionBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveActionBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveActionBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveActionBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveActionBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveActionBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveActionBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveActionBarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveActionBarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveActionBarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveActionBarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveActionBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveActionBarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveActionBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveActionBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveActionBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveActionBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveActionBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveActionBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveActionBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveActionBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveActionBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveActionBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveActionBarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveActionBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveActionBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveActionBarMethod "getCenterWidget" o = ActionBarGetCenterWidgetMethodInfo + ResolveActionBarMethod "getChild" o = BinGetChildMethodInfo + ResolveActionBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveActionBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveActionBarMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveActionBarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveActionBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveActionBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveActionBarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveActionBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveActionBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveActionBarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveActionBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveActionBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveActionBarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveActionBarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveActionBarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveActionBarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveActionBarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveActionBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveActionBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveActionBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveActionBarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveActionBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveActionBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveActionBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveActionBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveActionBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveActionBarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveActionBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveActionBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveActionBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveActionBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveActionBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveActionBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveActionBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveActionBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveActionBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveActionBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveActionBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveActionBarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveActionBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveActionBarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveActionBarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveActionBarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveActionBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveActionBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveActionBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveActionBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveActionBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveActionBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveActionBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveActionBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveActionBarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveActionBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveActionBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveActionBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveActionBarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveActionBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveActionBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveActionBarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveActionBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveActionBarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveActionBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveActionBarMethod "getState" o = WidgetGetStateMethodInfo + ResolveActionBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveActionBarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveActionBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveActionBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveActionBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveActionBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveActionBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveActionBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveActionBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveActionBarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveActionBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveActionBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveActionBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveActionBarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveActionBarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveActionBarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveActionBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveActionBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveActionBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveActionBarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveActionBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveActionBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveActionBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveActionBarMethod "setCenterWidget" o = ActionBarSetCenterWidgetMethodInfo + ResolveActionBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveActionBarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveActionBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveActionBarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveActionBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveActionBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveActionBarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveActionBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveActionBarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveActionBarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveActionBarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveActionBarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveActionBarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveActionBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveActionBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveActionBarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveActionBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveActionBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveActionBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveActionBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveActionBarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveActionBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveActionBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveActionBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveActionBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveActionBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveActionBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveActionBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveActionBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveActionBarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveActionBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveActionBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveActionBarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveActionBarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveActionBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveActionBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveActionBarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveActionBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveActionBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveActionBarMethod "setState" o = WidgetSetStateMethodInfo + ResolveActionBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveActionBarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveActionBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveActionBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveActionBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveActionBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveActionBarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveActionBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveActionBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveActionBarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveActionBarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveActionBarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveActionBarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveActionBarMethod t ActionBar, MethodInfo info ActionBar p) => IsLabelProxy t (ActionBar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveActionBarMethod t ActionBar, MethodInfo info ActionBar p) => IsLabel t (ActionBar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ActionBar = ActionBarAttributeList -type ActionBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ActionBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ActionBar = ActionBarSignalList -type ActionBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ActionBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ActionBar::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ActionBar" -- throws : False -- Skip return : False @@ -94,7 +425,7 @@ actionBarNew :: (MonadIO m) => - m ActionBar + m ActionBar -- result actionBarNew = liftIO $ do result <- gtk_action_bar_new checkUnexpectedReturnNULL "gtk_action_bar_new" result @@ -103,9 +434,8 @@ -- method ActionBar::get_center_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -117,8 +447,8 @@ actionBarGetCenterWidget :: (MonadIO m, ActionBarK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result actionBarGetCenterWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_bar_get_center_widget _obj' @@ -127,11 +457,14 @@ touchManagedPtr _obj return result' +data ActionBarGetCenterWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, ActionBarK a) => MethodInfo ActionBarGetCenterWidgetMethodInfo a signature where + overloadedMethod _ = actionBarGetCenterWidget + -- method ActionBar::pack_end -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -144,9 +477,9 @@ actionBarPackEnd :: (MonadIO m, ActionBarK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result actionBarPackEnd _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -155,11 +488,14 @@ touchManagedPtr child return () +data ActionBarPackEndMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ActionBarK a, WidgetK b) => MethodInfo ActionBarPackEndMethodInfo a signature where + overloadedMethod _ = actionBarPackEnd + -- method ActionBar::pack_start -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -172,9 +508,9 @@ actionBarPackStart :: (MonadIO m, ActionBarK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result actionBarPackStart _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -183,11 +519,14 @@ touchManagedPtr child return () +data ActionBarPackStartMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ActionBarK a, WidgetK b) => MethodInfo ActionBarPackStartMethodInfo a signature where + overloadedMethod _ = actionBarPackStart + -- method ActionBar::set_center_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "center_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "center_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "center_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -200,19 +539,23 @@ actionBarSetCenterWidget :: (MonadIO m, ActionBarK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- center_widget - m () -actionBarSetCenterWidget _obj center_widget = liftIO $ do + a -- _obj + -> Maybe (b) -- centerWidget + -> m () -- result +actionBarSetCenterWidget _obj centerWidget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeCenter_widget <- case center_widget of + maybeCenterWidget <- case centerWidget of Nothing -> return nullPtr - Just jCenter_widget -> do - let jCenter_widget' = unsafeManagedPtrCastPtr jCenter_widget - return jCenter_widget' - gtk_action_bar_set_center_widget _obj' maybeCenter_widget + Just jCenterWidget -> do + let jCenterWidget' = unsafeManagedPtrCastPtr jCenterWidget + return jCenterWidget' + gtk_action_bar_set_center_widget _obj' maybeCenterWidget touchManagedPtr _obj - whenJust center_widget touchManagedPtr + whenJust centerWidget touchManagedPtr return () + +data ActionBarSetCenterWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ActionBarK a, WidgetK b) => MethodInfo ActionBarSetCenterWidgetMethodInfo a signature where + overloadedMethod _ = actionBarSetCenterWidget diff --git a/GI/Gtk/Objects/ActionBar.hs-boot b/GI/Gtk/Objects/ActionBar.hs-boot --- a/GI/Gtk/Objects/ActionBar.hs-boot +++ b/GI/Gtk/Objects/ActionBar.hs-boot @@ -11,3 +11,7 @@ instance GObject ActionBar where class GObject o => ActionBarK o instance (GObject o, IsDescendantOf ActionBar o) => ActionBarK o +data ActionBarGetCenterWidgetMethodInfo +data ActionBarPackEndMethodInfo +data ActionBarPackStartMethodInfo +data ActionBarSetCenterWidgetMethodInfo diff --git a/GI/Gtk/Objects/ActionGroup.hs b/GI/Gtk/Objects/ActionGroup.hs --- a/GI/Gtk/Objects/ActionGroup.hs +++ b/GI/Gtk/Objects/ActionGroup.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * Methods -- ** actionGroupAddAction + ActionGroupAddActionMethodInfo , actionGroupAddAction , -- ** actionGroupAddActionWithAccel + ActionGroupAddActionWithAccelMethodInfo , actionGroupAddActionWithAccel , -- ** actionGroupGetAccelGroup + ActionGroupGetAccelGroupMethodInfo , actionGroupGetAccelGroup , -- ** actionGroupGetAction + ActionGroupGetActionMethodInfo , actionGroupGetAction , -- ** actionGroupGetName + ActionGroupGetNameMethodInfo , actionGroupGetName , -- ** actionGroupGetSensitive + ActionGroupGetSensitiveMethodInfo , actionGroupGetSensitive , -- ** actionGroupGetVisible + ActionGroupGetVisibleMethodInfo , actionGroupGetVisible , -- ** actionGroupListActions + ActionGroupListActionsMethodInfo , actionGroupListActions , @@ -53,30 +62,37 @@ -- ** actionGroupRemoveAction + ActionGroupRemoveActionMethodInfo , actionGroupRemoveAction , -- ** actionGroupSetAccelGroup + ActionGroupSetAccelGroupMethodInfo , actionGroupSetAccelGroup , -- ** actionGroupSetSensitive + ActionGroupSetSensitiveMethodInfo , actionGroupSetSensitive , -- ** actionGroupSetTranslateFunc + ActionGroupSetTranslateFuncMethodInfo , actionGroupSetTranslateFunc , -- ** actionGroupSetTranslationDomain + ActionGroupSetTranslationDomainMethodInfo, actionGroupSetTranslationDomain , -- ** actionGroupSetVisible + ActionGroupSetVisibleMethodInfo , actionGroupSetVisible , -- ** actionGroupTranslateString + ActionGroupTranslateStringMethodInfo , actionGroupTranslateString , @@ -198,6 +214,62 @@ noActionGroup :: Maybe ActionGroup noActionGroup = Nothing +type family ResolveActionGroupMethod (t :: Symbol) (o :: *) :: * where + ResolveActionGroupMethod "addAction" o = ActionGroupAddActionMethodInfo + ResolveActionGroupMethod "addActionWithAccel" o = ActionGroupAddActionWithAccelMethodInfo + ResolveActionGroupMethod "addChild" o = BuildableAddChildMethodInfo + ResolveActionGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveActionGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveActionGroupMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveActionGroupMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveActionGroupMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveActionGroupMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveActionGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveActionGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveActionGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveActionGroupMethod "listActions" o = ActionGroupListActionsMethodInfo + ResolveActionGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveActionGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveActionGroupMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveActionGroupMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveActionGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveActionGroupMethod "removeAction" o = ActionGroupRemoveActionMethodInfo + ResolveActionGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveActionGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveActionGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveActionGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveActionGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveActionGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveActionGroupMethod "translateString" o = ActionGroupTranslateStringMethodInfo + ResolveActionGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveActionGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveActionGroupMethod "getAccelGroup" o = ActionGroupGetAccelGroupMethodInfo + ResolveActionGroupMethod "getAction" o = ActionGroupGetActionMethodInfo + ResolveActionGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveActionGroupMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveActionGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveActionGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveActionGroupMethod "getSensitive" o = ActionGroupGetSensitiveMethodInfo + ResolveActionGroupMethod "getVisible" o = ActionGroupGetVisibleMethodInfo + ResolveActionGroupMethod "setAccelGroup" o = ActionGroupSetAccelGroupMethodInfo + ResolveActionGroupMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveActionGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveActionGroupMethod "setName" o = BuildableSetNameMethodInfo + ResolveActionGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveActionGroupMethod "setSensitive" o = ActionGroupSetSensitiveMethodInfo + ResolveActionGroupMethod "setTranslateFunc" o = ActionGroupSetTranslateFuncMethodInfo + ResolveActionGroupMethod "setTranslationDomain" o = ActionGroupSetTranslationDomainMethodInfo + ResolveActionGroupMethod "setVisible" o = ActionGroupSetVisibleMethodInfo + ResolveActionGroupMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveActionGroupMethod t ActionGroup, MethodInfo info ActionGroup p) => IsLabelProxy t (ActionGroup -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveActionGroupMethod t ActionGroup, MethodInfo info ActionGroup p) => IsLabel t (ActionGroup -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ActionGroup::connect-proxy type ActionGroupConnectProxyCallback = Action -> @@ -393,7 +465,7 @@ type AttrSetTypeConstraint ActionGroupAccelGroupPropertyInfo = AccelGroupK type AttrBaseTypeConstraint ActionGroupAccelGroupPropertyInfo = ActionGroupK type AttrGetType ActionGroupAccelGroupPropertyInfo = AccelGroup - type AttrLabel ActionGroupAccelGroupPropertyInfo = "ActionGroup::accel-group" + type AttrLabel ActionGroupAccelGroupPropertyInfo = "accel-group" attrGet _ = getActionGroupAccelGroup attrSet _ = setActionGroupAccelGroup attrConstruct _ = constructActionGroupAccelGroup @@ -414,7 +486,7 @@ type AttrSetTypeConstraint ActionGroupNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ActionGroupNamePropertyInfo = ActionGroupK type AttrGetType ActionGroupNamePropertyInfo = T.Text - type AttrLabel ActionGroupNamePropertyInfo = "ActionGroup::name" + type AttrLabel ActionGroupNamePropertyInfo = "name" attrGet _ = getActionGroupName attrSet _ = undefined attrConstruct _ = constructActionGroupName @@ -438,7 +510,7 @@ type AttrSetTypeConstraint ActionGroupSensitivePropertyInfo = (~) Bool type AttrBaseTypeConstraint ActionGroupSensitivePropertyInfo = ActionGroupK type AttrGetType ActionGroupSensitivePropertyInfo = Bool - type AttrLabel ActionGroupSensitivePropertyInfo = "ActionGroup::sensitive" + type AttrLabel ActionGroupSensitivePropertyInfo = "sensitive" attrGet _ = getActionGroupSensitive attrSet _ = setActionGroupSensitive attrConstruct _ = constructActionGroupSensitive @@ -462,13 +534,13 @@ type AttrSetTypeConstraint ActionGroupVisiblePropertyInfo = (~) Bool type AttrBaseTypeConstraint ActionGroupVisiblePropertyInfo = ActionGroupK type AttrGetType ActionGroupVisiblePropertyInfo = Bool - type AttrLabel ActionGroupVisiblePropertyInfo = "ActionGroup::visible" + type AttrLabel ActionGroupVisiblePropertyInfo = "visible" attrGet _ = getActionGroupVisible attrSet _ = setActionGroupVisible attrConstruct _ = constructActionGroupVisible type instance AttributeList ActionGroup = ActionGroupAttributeList -type ActionGroupAttributeList = ('[ '("accel-group", ActionGroupAccelGroupPropertyInfo), '("name", ActionGroupNamePropertyInfo), '("sensitive", ActionGroupSensitivePropertyInfo), '("visible", ActionGroupVisiblePropertyInfo)] :: [(Symbol, *)]) +type ActionGroupAttributeList = ('[ '("accelGroup", ActionGroupAccelGroupPropertyInfo), '("name", ActionGroupNamePropertyInfo), '("sensitive", ActionGroupSensitivePropertyInfo), '("visible", ActionGroupVisiblePropertyInfo)] :: [(Symbol, *)]) data ActionGroupConnectProxySignalInfo instance SignalInfo ActionGroupConnectProxySignalInfo where @@ -491,13 +563,12 @@ connectSignal _ = connectActionGroupPreActivate type instance SignalList ActionGroup = ActionGroupSignalList -type ActionGroupSignalList = ('[ '("connect-proxy", ActionGroupConnectProxySignalInfo), '("disconnect-proxy", ActionGroupDisconnectProxySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("post-activate", ActionGroupPostActivateSignalInfo), '("pre-activate", ActionGroupPreActivateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ActionGroupSignalList = ('[ '("connectProxy", ActionGroupConnectProxySignalInfo), '("disconnectProxy", ActionGroupDisconnectProxySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("postActivate", ActionGroupPostActivateSignalInfo), '("preActivate", ActionGroupPreActivateSignalInfo)] :: [(Symbol, *)]) -- method ActionGroup::new -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ActionGroup" -- throws : False -- Skip return : False @@ -509,8 +580,8 @@ {-# DEPRECATED actionGroupNew ["(Since version 3.10)"]#-} actionGroupNew :: (MonadIO m) => - T.Text -> -- name - m ActionGroup + T.Text -- name + -> m ActionGroup -- result actionGroupNew name = liftIO $ do name' <- textToCString name result <- gtk_action_group_new name' @@ -521,9 +592,8 @@ -- method ActionGroup::add_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -536,9 +606,9 @@ {-# DEPRECATED actionGroupAddAction ["(Since version 3.10)"]#-} actionGroupAddAction :: (MonadIO m, ActionGroupK a, ActionK b) => - a -> -- _obj - b -> -- action - m () + a -- _obj + -> b -- action + -> m () -- result actionGroupAddAction _obj action = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let action' = unsafeManagedPtrCastPtr action @@ -547,11 +617,14 @@ touchManagedPtr action return () +data ActionGroupAddActionMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ActionGroupK a, ActionK b) => MethodInfo ActionGroupAddActionMethodInfo a signature where + overloadedMethod _ = actionGroupAddAction + -- method ActionGroup::add_action_with_accel -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -565,10 +638,10 @@ {-# DEPRECATED actionGroupAddActionWithAccel ["(Since version 3.10)"]#-} actionGroupAddActionWithAccel :: (MonadIO m, ActionGroupK a, ActionK b) => - a -> -- _obj - b -> -- action - Maybe (T.Text) -> -- accelerator - m () + a -- _obj + -> b -- action + -> Maybe (T.Text) -- accelerator + -> m () -- result actionGroupAddActionWithAccel _obj action accelerator = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let action' = unsafeManagedPtrCastPtr action @@ -583,11 +656,14 @@ freeMem maybeAccelerator return () +data ActionGroupAddActionWithAccelMethodInfo +instance (signature ~ (b -> Maybe (T.Text) -> m ()), MonadIO m, ActionGroupK a, ActionK b) => MethodInfo ActionGroupAddActionWithAccelMethodInfo a signature where + overloadedMethod _ = actionGroupAddActionWithAccel + -- method ActionGroup::get_accel_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "AccelGroup" -- throws : False -- Skip return : False @@ -599,8 +675,8 @@ {-# DEPRECATED actionGroupGetAccelGroup ["(Since version 3.10)"]#-} actionGroupGetAccelGroup :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - m AccelGroup + a -- _obj + -> m AccelGroup -- result actionGroupGetAccelGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_group_get_accel_group _obj' @@ -609,11 +685,14 @@ touchManagedPtr _obj return result' +data ActionGroupGetAccelGroupMethodInfo +instance (signature ~ (m AccelGroup), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetAccelGroupMethodInfo a signature where + overloadedMethod _ = actionGroupGetAccelGroup + -- method ActionGroup::get_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Action" -- throws : False -- Skip return : False @@ -626,24 +705,27 @@ {-# DEPRECATED actionGroupGetAction ["(Since version 3.10)"]#-} actionGroupGetAction :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - m Action -actionGroupGetAction _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m Action -- result +actionGroupGetAction _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - result <- gtk_action_group_get_action _obj' action_name' + actionName' <- textToCString actionName + result <- gtk_action_group_get_action _obj' actionName' checkUnexpectedReturnNULL "gtk_action_group_get_action" result result' <- (newObject Action) result touchManagedPtr _obj - freeMem action_name' + freeMem actionName' return result' +data ActionGroupGetActionMethodInfo +instance (signature ~ (T.Text -> m Action), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionMethodInfo a signature where + overloadedMethod _ = actionGroupGetAction + -- method ActionGroup::get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -655,8 +737,8 @@ {-# DEPRECATED actionGroupGetName ["(Since version 3.10)"]#-} actionGroupGetName :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result actionGroupGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_group_get_name _obj' @@ -665,11 +747,14 @@ touchManagedPtr _obj return result' +data ActionGroupGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetNameMethodInfo a signature where + overloadedMethod _ = actionGroupGetName + -- method ActionGroup::get_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -681,8 +766,8 @@ {-# DEPRECATED actionGroupGetSensitive ["(Since version 3.10)"]#-} actionGroupGetSensitive :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result actionGroupGetSensitive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_group_get_sensitive _obj' @@ -690,11 +775,14 @@ touchManagedPtr _obj return result' +data ActionGroupGetSensitiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetSensitiveMethodInfo a signature where + overloadedMethod _ = actionGroupGetSensitive + -- method ActionGroup::get_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -706,8 +794,8 @@ {-# DEPRECATED actionGroupGetVisible ["(Since version 3.10)"]#-} actionGroupGetVisible :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result actionGroupGetVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_group_get_visible _obj' @@ -715,11 +803,14 @@ touchManagedPtr _obj return result' +data ActionGroupGetVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetVisibleMethodInfo a signature where + overloadedMethod _ = actionGroupGetVisible + -- method ActionGroup::list_actions -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "Action") -- throws : False -- Skip return : False @@ -731,8 +822,8 @@ {-# DEPRECATED actionGroupListActions ["(Since version 3.10)"]#-} actionGroupListActions :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - m [Action] + a -- _obj + -> m [Action] -- result actionGroupListActions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_group_list_actions _obj' @@ -743,11 +834,14 @@ touchManagedPtr _obj return result'' +data ActionGroupListActionsMethodInfo +instance (signature ~ (m [Action]), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupListActionsMethodInfo a signature where + overloadedMethod _ = actionGroupListActions + -- method ActionGroup::remove_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -760,9 +854,9 @@ {-# DEPRECATED actionGroupRemoveAction ["(Since version 3.10)"]#-} actionGroupRemoveAction :: (MonadIO m, ActionGroupK a, ActionK b) => - a -> -- _obj - b -> -- action - m () + a -- _obj + -> b -- action + -> m () -- result actionGroupRemoveAction _obj action = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let action' = unsafeManagedPtrCastPtr action @@ -771,11 +865,14 @@ touchManagedPtr action return () +data ActionGroupRemoveActionMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ActionGroupK a, ActionK b) => MethodInfo ActionGroupRemoveActionMethodInfo a signature where + overloadedMethod _ = actionGroupRemoveAction + -- method ActionGroup::set_accel_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -788,26 +885,29 @@ {-# DEPRECATED actionGroupSetAccelGroup ["(Since version 3.10)"]#-} actionGroupSetAccelGroup :: (MonadIO m, ActionGroupK a, AccelGroupK b) => - a -> -- _obj - Maybe (b) -> -- accel_group - m () -actionGroupSetAccelGroup _obj accel_group = liftIO $ do + a -- _obj + -> Maybe (b) -- accelGroup + -> m () -- result +actionGroupSetAccelGroup _obj accelGroup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccel_group <- case accel_group of + maybeAccelGroup <- case accelGroup of Nothing -> return nullPtr - Just jAccel_group -> do - let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group - return jAccel_group' - gtk_action_group_set_accel_group _obj' maybeAccel_group + Just jAccelGroup -> do + let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup + return jAccelGroup' + gtk_action_group_set_accel_group _obj' maybeAccelGroup touchManagedPtr _obj - whenJust accel_group touchManagedPtr + whenJust accelGroup touchManagedPtr return () +data ActionGroupSetAccelGroupMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ActionGroupK a, AccelGroupK b) => MethodInfo ActionGroupSetAccelGroupMethodInfo a signature where + overloadedMethod _ = actionGroupSetAccelGroup + -- method ActionGroup::set_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -820,9 +920,9 @@ {-# DEPRECATED actionGroupSetSensitive ["(Since version 3.10)"]#-} actionGroupSetSensitive :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - Bool -> -- sensitive - m () + a -- _obj + -> Bool -- sensitive + -> m () -- result actionGroupSetSensitive _obj sensitive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sensitive' = (fromIntegral . fromEnum) sensitive @@ -830,11 +930,14 @@ touchManagedPtr _obj return () +data ActionGroupSetSensitiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupSetSensitiveMethodInfo a signature where + overloadedMethod _ = actionGroupSetSensitive + -- method ActionGroup::set_translate_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -849,9 +952,9 @@ {-# DEPRECATED actionGroupSetTranslateFunc ["(Since version 3.10)"]#-} actionGroupSetTranslateFunc :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - TranslateFunc -> -- func - m () + a -- _obj + -> TranslateFunc -- func + -> m () -- result actionGroupSetTranslateFunc _obj func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj func' <- mkTranslateFunc (translateFuncWrapper Nothing func) @@ -861,11 +964,14 @@ touchManagedPtr _obj return () +data ActionGroupSetTranslateFuncMethodInfo +instance (signature ~ (TranslateFunc -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupSetTranslateFuncMethodInfo a signature where + overloadedMethod _ = actionGroupSetTranslateFunc + -- method ActionGroup::set_translation_domain -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -878,9 +984,9 @@ {-# DEPRECATED actionGroupSetTranslationDomain ["(Since version 3.10)"]#-} actionGroupSetTranslationDomain :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - Maybe (T.Text) -> -- domain - m () + a -- _obj + -> Maybe (T.Text) -- domain + -> m () -- result actionGroupSetTranslationDomain _obj domain = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeDomain <- case domain of @@ -893,11 +999,14 @@ freeMem maybeDomain return () +data ActionGroupSetTranslationDomainMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupSetTranslationDomainMethodInfo a signature where + overloadedMethod _ = actionGroupSetTranslationDomain + -- method ActionGroup::set_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -910,9 +1019,9 @@ {-# DEPRECATED actionGroupSetVisible ["(Since version 3.10)"]#-} actionGroupSetVisible :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - Bool -> -- visible - m () + a -- _obj + -> Bool -- visible + -> m () -- result actionGroupSetVisible _obj visible = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let visible' = (fromIntegral . fromEnum) visible @@ -920,11 +1029,14 @@ touchManagedPtr _obj return () +data ActionGroupSetVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupSetVisibleMethodInfo a signature where + overloadedMethod _ = actionGroupSetVisible + -- method ActionGroup::translate_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -937,9 +1049,9 @@ {-# DEPRECATED actionGroupTranslateString ["(Since version 3.10)"]#-} actionGroupTranslateString :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- string - m T.Text + a -- _obj + -> T.Text -- string + -> m T.Text -- result actionGroupTranslateString _obj string = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj string' <- textToCString string @@ -949,5 +1061,9 @@ touchManagedPtr _obj freeMem string' return result' + +data ActionGroupTranslateStringMethodInfo +instance (signature ~ (T.Text -> m T.Text), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupTranslateStringMethodInfo a signature where + overloadedMethod _ = actionGroupTranslateString diff --git a/GI/Gtk/Objects/ActionGroup.hs-boot b/GI/Gtk/Objects/ActionGroup.hs-boot --- a/GI/Gtk/Objects/ActionGroup.hs-boot +++ b/GI/Gtk/Objects/ActionGroup.hs-boot @@ -19,3 +19,18 @@ data ActionGroupDisconnectProxySignalInfo data ActionGroupPostActivateSignalInfo data ActionGroupPreActivateSignalInfo +data ActionGroupAddActionMethodInfo +data ActionGroupAddActionWithAccelMethodInfo +data ActionGroupGetAccelGroupMethodInfo +data ActionGroupGetActionMethodInfo +data ActionGroupGetNameMethodInfo +data ActionGroupGetSensitiveMethodInfo +data ActionGroupGetVisibleMethodInfo +data ActionGroupListActionsMethodInfo +data ActionGroupRemoveActionMethodInfo +data ActionGroupSetAccelGroupMethodInfo +data ActionGroupSetSensitiveMethodInfo +data ActionGroupSetTranslateFuncMethodInfo +data ActionGroupSetTranslationDomainMethodInfo +data ActionGroupSetVisibleMethodInfo +data ActionGroupTranslateStringMethodInfo diff --git a/GI/Gtk/Objects/Adjustment.hs b/GI/Gtk/Objects/Adjustment.hs --- a/GI/Gtk/Objects/Adjustment.hs +++ b/GI/Gtk/Objects/Adjustment.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,42 +18,52 @@ -- * Methods -- ** adjustmentChanged + AdjustmentChangedMethodInfo , adjustmentChanged , -- ** adjustmentClampPage + AdjustmentClampPageMethodInfo , adjustmentClampPage , -- ** adjustmentConfigure + AdjustmentConfigureMethodInfo , adjustmentConfigure , -- ** adjustmentGetLower + AdjustmentGetLowerMethodInfo , adjustmentGetLower , -- ** adjustmentGetMinimumIncrement + AdjustmentGetMinimumIncrementMethodInfo , adjustmentGetMinimumIncrement , -- ** adjustmentGetPageIncrement + AdjustmentGetPageIncrementMethodInfo , adjustmentGetPageIncrement , -- ** adjustmentGetPageSize + AdjustmentGetPageSizeMethodInfo , adjustmentGetPageSize , -- ** adjustmentGetStepIncrement + AdjustmentGetStepIncrementMethodInfo , adjustmentGetStepIncrement , -- ** adjustmentGetUpper + AdjustmentGetUpperMethodInfo , adjustmentGetUpper , -- ** adjustmentGetValue + AdjustmentGetValueMethodInfo , adjustmentGetValue , @@ -61,30 +72,37 @@ -- ** adjustmentSetLower + AdjustmentSetLowerMethodInfo , adjustmentSetLower , -- ** adjustmentSetPageIncrement + AdjustmentSetPageIncrementMethodInfo , adjustmentSetPageIncrement , -- ** adjustmentSetPageSize + AdjustmentSetPageSizeMethodInfo , adjustmentSetPageSize , -- ** adjustmentSetStepIncrement + AdjustmentSetStepIncrementMethodInfo , adjustmentSetStepIncrement , -- ** adjustmentSetUpper + AdjustmentSetUpperMethodInfo , adjustmentSetUpper , -- ** adjustmentSetValue + AdjustmentSetValueMethodInfo , adjustmentSetValue , -- ** adjustmentValueChanged + AdjustmentValueChangedMethodInfo , adjustmentValueChanged , @@ -196,6 +214,56 @@ noAdjustment :: Maybe Adjustment noAdjustment = Nothing +type family ResolveAdjustmentMethod (t :: Symbol) (o :: *) :: * where + ResolveAdjustmentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAdjustmentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAdjustmentMethod "changed" o = AdjustmentChangedMethodInfo + ResolveAdjustmentMethod "clampPage" o = AdjustmentClampPageMethodInfo + ResolveAdjustmentMethod "configure" o = AdjustmentConfigureMethodInfo + ResolveAdjustmentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAdjustmentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAdjustmentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAdjustmentMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAdjustmentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAdjustmentMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAdjustmentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAdjustmentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAdjustmentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAdjustmentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAdjustmentMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAdjustmentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAdjustmentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAdjustmentMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAdjustmentMethod "valueChanged" o = AdjustmentValueChangedMethodInfo + ResolveAdjustmentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAdjustmentMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAdjustmentMethod "getLower" o = AdjustmentGetLowerMethodInfo + ResolveAdjustmentMethod "getMinimumIncrement" o = AdjustmentGetMinimumIncrementMethodInfo + ResolveAdjustmentMethod "getPageIncrement" o = AdjustmentGetPageIncrementMethodInfo + ResolveAdjustmentMethod "getPageSize" o = AdjustmentGetPageSizeMethodInfo + ResolveAdjustmentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAdjustmentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAdjustmentMethod "getStepIncrement" o = AdjustmentGetStepIncrementMethodInfo + ResolveAdjustmentMethod "getUpper" o = AdjustmentGetUpperMethodInfo + ResolveAdjustmentMethod "getValue" o = AdjustmentGetValueMethodInfo + ResolveAdjustmentMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAdjustmentMethod "setLower" o = AdjustmentSetLowerMethodInfo + ResolveAdjustmentMethod "setPageIncrement" o = AdjustmentSetPageIncrementMethodInfo + ResolveAdjustmentMethod "setPageSize" o = AdjustmentSetPageSizeMethodInfo + ResolveAdjustmentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAdjustmentMethod "setStepIncrement" o = AdjustmentSetStepIncrementMethodInfo + ResolveAdjustmentMethod "setUpper" o = AdjustmentSetUpperMethodInfo + ResolveAdjustmentMethod "setValue" o = AdjustmentSetValueMethodInfo + ResolveAdjustmentMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAdjustmentMethod t Adjustment, MethodInfo info Adjustment p) => IsLabelProxy t (Adjustment -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAdjustmentMethod t Adjustment, MethodInfo info Adjustment p) => IsLabel t (Adjustment -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Adjustment::changed type AdjustmentChangedCallback = IO () @@ -291,7 +359,7 @@ type AttrSetTypeConstraint AdjustmentLowerPropertyInfo = (~) Double type AttrBaseTypeConstraint AdjustmentLowerPropertyInfo = AdjustmentK type AttrGetType AdjustmentLowerPropertyInfo = Double - type AttrLabel AdjustmentLowerPropertyInfo = "Adjustment::lower" + type AttrLabel AdjustmentLowerPropertyInfo = "lower" attrGet _ = getAdjustmentLower attrSet _ = setAdjustmentLower attrConstruct _ = constructAdjustmentLower @@ -315,7 +383,7 @@ type AttrSetTypeConstraint AdjustmentPageIncrementPropertyInfo = (~) Double type AttrBaseTypeConstraint AdjustmentPageIncrementPropertyInfo = AdjustmentK type AttrGetType AdjustmentPageIncrementPropertyInfo = Double - type AttrLabel AdjustmentPageIncrementPropertyInfo = "Adjustment::page-increment" + type AttrLabel AdjustmentPageIncrementPropertyInfo = "page-increment" attrGet _ = getAdjustmentPageIncrement attrSet _ = setAdjustmentPageIncrement attrConstruct _ = constructAdjustmentPageIncrement @@ -339,7 +407,7 @@ type AttrSetTypeConstraint AdjustmentPageSizePropertyInfo = (~) Double type AttrBaseTypeConstraint AdjustmentPageSizePropertyInfo = AdjustmentK type AttrGetType AdjustmentPageSizePropertyInfo = Double - type AttrLabel AdjustmentPageSizePropertyInfo = "Adjustment::page-size" + type AttrLabel AdjustmentPageSizePropertyInfo = "page-size" attrGet _ = getAdjustmentPageSize attrSet _ = setAdjustmentPageSize attrConstruct _ = constructAdjustmentPageSize @@ -363,7 +431,7 @@ type AttrSetTypeConstraint AdjustmentStepIncrementPropertyInfo = (~) Double type AttrBaseTypeConstraint AdjustmentStepIncrementPropertyInfo = AdjustmentK type AttrGetType AdjustmentStepIncrementPropertyInfo = Double - type AttrLabel AdjustmentStepIncrementPropertyInfo = "Adjustment::step-increment" + type AttrLabel AdjustmentStepIncrementPropertyInfo = "step-increment" attrGet _ = getAdjustmentStepIncrement attrSet _ = setAdjustmentStepIncrement attrConstruct _ = constructAdjustmentStepIncrement @@ -387,7 +455,7 @@ type AttrSetTypeConstraint AdjustmentUpperPropertyInfo = (~) Double type AttrBaseTypeConstraint AdjustmentUpperPropertyInfo = AdjustmentK type AttrGetType AdjustmentUpperPropertyInfo = Double - type AttrLabel AdjustmentUpperPropertyInfo = "Adjustment::upper" + type AttrLabel AdjustmentUpperPropertyInfo = "upper" attrGet _ = getAdjustmentUpper attrSet _ = setAdjustmentUpper attrConstruct _ = constructAdjustmentUpper @@ -411,13 +479,13 @@ type AttrSetTypeConstraint AdjustmentValuePropertyInfo = (~) Double type AttrBaseTypeConstraint AdjustmentValuePropertyInfo = AdjustmentK type AttrGetType AdjustmentValuePropertyInfo = Double - type AttrLabel AdjustmentValuePropertyInfo = "Adjustment::value" + type AttrLabel AdjustmentValuePropertyInfo = "value" attrGet _ = getAdjustmentValue attrSet _ = setAdjustmentValue attrConstruct _ = constructAdjustmentValue type instance AttributeList Adjustment = AdjustmentAttributeList -type AdjustmentAttributeList = ('[ '("lower", AdjustmentLowerPropertyInfo), '("page-increment", AdjustmentPageIncrementPropertyInfo), '("page-size", AdjustmentPageSizePropertyInfo), '("step-increment", AdjustmentStepIncrementPropertyInfo), '("upper", AdjustmentUpperPropertyInfo), '("value", AdjustmentValuePropertyInfo)] :: [(Symbol, *)]) +type AdjustmentAttributeList = ('[ '("lower", AdjustmentLowerPropertyInfo), '("pageIncrement", AdjustmentPageIncrementPropertyInfo), '("pageSize", AdjustmentPageSizePropertyInfo), '("stepIncrement", AdjustmentStepIncrementPropertyInfo), '("upper", AdjustmentUpperPropertyInfo), '("value", AdjustmentValuePropertyInfo)] :: [(Symbol, *)]) data AdjustmentChangedSignalInfo instance SignalInfo AdjustmentChangedSignalInfo where @@ -430,13 +498,12 @@ connectSignal _ = connectAdjustmentValueChanged type instance SignalList Adjustment = AdjustmentSignalList -type AdjustmentSignalList = ('[ '("changed", AdjustmentChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("value-changed", AdjustmentValueChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AdjustmentSignalList = ('[ '("changed", AdjustmentChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("valueChanged", AdjustmentValueChangedSignalInfo)] :: [(Symbol, *)]) -- method Adjustment::new -- method type : Constructor --- Args : [Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -453,30 +520,29 @@ adjustmentNew :: (MonadIO m) => - Double -> -- value - Double -> -- lower - Double -> -- upper - Double -> -- step_increment - Double -> -- page_increment - Double -> -- page_size - m Adjustment -adjustmentNew value lower upper step_increment page_increment page_size = liftIO $ do + Double -- value + -> Double -- lower + -> Double -- upper + -> Double -- stepIncrement + -> Double -- pageIncrement + -> Double -- pageSize + -> m Adjustment -- result +adjustmentNew value lower upper stepIncrement pageIncrement pageSize = liftIO $ do let value' = realToFrac value let lower' = realToFrac lower let upper' = realToFrac upper - let step_increment' = realToFrac step_increment - let page_increment' = realToFrac page_increment - let page_size' = realToFrac page_size - result <- gtk_adjustment_new value' lower' upper' step_increment' page_increment' page_size' + let stepIncrement' = realToFrac stepIncrement + let pageIncrement' = realToFrac pageIncrement + let pageSize' = realToFrac pageSize + result <- gtk_adjustment_new value' lower' upper' stepIncrement' pageIncrement' pageSize' checkUnexpectedReturnNULL "gtk_adjustment_new" result result' <- (newObject Adjustment) result return result' -- method Adjustment::changed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -488,19 +554,22 @@ {-# DEPRECATED adjustmentChanged ["(Since version 3.18)","GTK+ emits #GtkAdjustment::changed itself whenever any"," of the properties (other than value) change"]#-} adjustmentChanged :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result adjustmentChanged _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_adjustment_changed _obj' touchManagedPtr _obj return () +data AdjustmentChangedMethodInfo +instance (signature ~ (m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentChangedMethodInfo a signature where + overloadedMethod _ = adjustmentChanged + -- method Adjustment::clamp_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -514,10 +583,10 @@ adjustmentClampPage :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - Double -> -- lower - Double -> -- upper - m () + a -- _obj + -> Double -- lower + -> Double -- upper + -> m () -- result adjustmentClampPage _obj lower upper = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let lower' = realToFrac lower @@ -526,11 +595,14 @@ touchManagedPtr _obj return () +data AdjustmentClampPageMethodInfo +instance (signature ~ (Double -> Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentClampPageMethodInfo a signature where + overloadedMethod _ = adjustmentClampPage + -- method Adjustment::configure -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -548,31 +620,34 @@ adjustmentConfigure :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - Double -> -- value - Double -> -- lower - Double -> -- upper - Double -> -- step_increment - Double -> -- page_increment - Double -> -- page_size - m () -adjustmentConfigure _obj value lower upper step_increment page_increment page_size = liftIO $ do + a -- _obj + -> Double -- value + -> Double -- lower + -> Double -- upper + -> Double -- stepIncrement + -> Double -- pageIncrement + -> Double -- pageSize + -> m () -- result +adjustmentConfigure _obj value lower upper stepIncrement pageIncrement pageSize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = realToFrac value let lower' = realToFrac lower let upper' = realToFrac upper - let step_increment' = realToFrac step_increment - let page_increment' = realToFrac page_increment - let page_size' = realToFrac page_size - gtk_adjustment_configure _obj' value' lower' upper' step_increment' page_increment' page_size' + let stepIncrement' = realToFrac stepIncrement + let pageIncrement' = realToFrac pageIncrement + let pageSize' = realToFrac pageSize + gtk_adjustment_configure _obj' value' lower' upper' stepIncrement' pageIncrement' pageSize' touchManagedPtr _obj return () +data AdjustmentConfigureMethodInfo +instance (signature ~ (Double -> Double -> Double -> Double -> Double -> Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentConfigureMethodInfo a signature where + overloadedMethod _ = adjustmentConfigure + -- method Adjustment::get_lower -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -584,8 +659,8 @@ adjustmentGetLower :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result adjustmentGetLower _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_adjustment_get_lower _obj' @@ -593,11 +668,14 @@ touchManagedPtr _obj return result' +data AdjustmentGetLowerMethodInfo +instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetLowerMethodInfo a signature where + overloadedMethod _ = adjustmentGetLower + -- method Adjustment::get_minimum_increment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -609,8 +687,8 @@ adjustmentGetMinimumIncrement :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result adjustmentGetMinimumIncrement _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_adjustment_get_minimum_increment _obj' @@ -618,11 +696,14 @@ touchManagedPtr _obj return result' +data AdjustmentGetMinimumIncrementMethodInfo +instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetMinimumIncrementMethodInfo a signature where + overloadedMethod _ = adjustmentGetMinimumIncrement + -- method Adjustment::get_page_increment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -634,8 +715,8 @@ adjustmentGetPageIncrement :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result adjustmentGetPageIncrement _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_adjustment_get_page_increment _obj' @@ -643,11 +724,14 @@ touchManagedPtr _obj return result' +data AdjustmentGetPageIncrementMethodInfo +instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetPageIncrementMethodInfo a signature where + overloadedMethod _ = adjustmentGetPageIncrement + -- method Adjustment::get_page_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -659,8 +743,8 @@ adjustmentGetPageSize :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result adjustmentGetPageSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_adjustment_get_page_size _obj' @@ -668,11 +752,14 @@ touchManagedPtr _obj return result' +data AdjustmentGetPageSizeMethodInfo +instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetPageSizeMethodInfo a signature where + overloadedMethod _ = adjustmentGetPageSize + -- method Adjustment::get_step_increment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -684,8 +771,8 @@ adjustmentGetStepIncrement :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result adjustmentGetStepIncrement _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_adjustment_get_step_increment _obj' @@ -693,11 +780,14 @@ touchManagedPtr _obj return result' +data AdjustmentGetStepIncrementMethodInfo +instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetStepIncrementMethodInfo a signature where + overloadedMethod _ = adjustmentGetStepIncrement + -- method Adjustment::get_upper -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -709,8 +799,8 @@ adjustmentGetUpper :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result adjustmentGetUpper _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_adjustment_get_upper _obj' @@ -718,11 +808,14 @@ touchManagedPtr _obj return result' +data AdjustmentGetUpperMethodInfo +instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetUpperMethodInfo a signature where + overloadedMethod _ = adjustmentGetUpper + -- method Adjustment::get_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -734,8 +827,8 @@ adjustmentGetValue :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result adjustmentGetValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_adjustment_get_value _obj' @@ -743,11 +836,14 @@ touchManagedPtr _obj return result' +data AdjustmentGetValueMethodInfo +instance (signature ~ (m Double), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentGetValueMethodInfo a signature where + overloadedMethod _ = adjustmentGetValue + -- method Adjustment::set_lower -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -760,9 +856,9 @@ adjustmentSetLower :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - Double -> -- lower - m () + a -- _obj + -> Double -- lower + -> m () -- result adjustmentSetLower _obj lower = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let lower' = realToFrac lower @@ -770,11 +866,14 @@ touchManagedPtr _obj return () +data AdjustmentSetLowerMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentSetLowerMethodInfo a signature where + overloadedMethod _ = adjustmentSetLower + -- method Adjustment::set_page_increment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -787,21 +886,24 @@ adjustmentSetPageIncrement :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - Double -> -- page_increment - m () -adjustmentSetPageIncrement _obj page_increment = liftIO $ do + a -- _obj + -> Double -- pageIncrement + -> m () -- result +adjustmentSetPageIncrement _obj pageIncrement = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let page_increment' = realToFrac page_increment - gtk_adjustment_set_page_increment _obj' page_increment' + let pageIncrement' = realToFrac pageIncrement + gtk_adjustment_set_page_increment _obj' pageIncrement' touchManagedPtr _obj return () +data AdjustmentSetPageIncrementMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentSetPageIncrementMethodInfo a signature where + overloadedMethod _ = adjustmentSetPageIncrement + -- method Adjustment::set_page_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -814,21 +916,24 @@ adjustmentSetPageSize :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - Double -> -- page_size - m () -adjustmentSetPageSize _obj page_size = liftIO $ do + a -- _obj + -> Double -- pageSize + -> m () -- result +adjustmentSetPageSize _obj pageSize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let page_size' = realToFrac page_size - gtk_adjustment_set_page_size _obj' page_size' + let pageSize' = realToFrac pageSize + gtk_adjustment_set_page_size _obj' pageSize' touchManagedPtr _obj return () +data AdjustmentSetPageSizeMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentSetPageSizeMethodInfo a signature where + overloadedMethod _ = adjustmentSetPageSize + -- method Adjustment::set_step_increment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -841,21 +946,24 @@ adjustmentSetStepIncrement :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - Double -> -- step_increment - m () -adjustmentSetStepIncrement _obj step_increment = liftIO $ do + a -- _obj + -> Double -- stepIncrement + -> m () -- result +adjustmentSetStepIncrement _obj stepIncrement = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let step_increment' = realToFrac step_increment - gtk_adjustment_set_step_increment _obj' step_increment' + let stepIncrement' = realToFrac stepIncrement + gtk_adjustment_set_step_increment _obj' stepIncrement' touchManagedPtr _obj return () +data AdjustmentSetStepIncrementMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentSetStepIncrementMethodInfo a signature where + overloadedMethod _ = adjustmentSetStepIncrement + -- method Adjustment::set_upper -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -868,9 +976,9 @@ adjustmentSetUpper :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - Double -> -- upper - m () + a -- _obj + -> Double -- upper + -> m () -- result adjustmentSetUpper _obj upper = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let upper' = realToFrac upper @@ -878,11 +986,14 @@ touchManagedPtr _obj return () +data AdjustmentSetUpperMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentSetUpperMethodInfo a signature where + overloadedMethod _ = adjustmentSetUpper + -- method Adjustment::set_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -895,9 +1006,9 @@ adjustmentSetValue :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - Double -> -- value - m () + a -- _obj + -> Double -- value + -> m () -- result adjustmentSetValue _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = realToFrac value @@ -905,11 +1016,14 @@ touchManagedPtr _obj return () +data AdjustmentSetValueMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentSetValueMethodInfo a signature where + overloadedMethod _ = adjustmentSetValue + -- method Adjustment::value_changed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -921,12 +1035,16 @@ {-# DEPRECATED adjustmentValueChanged ["(Since version 3.18)","GTK+ emits #GtkAdjustment::value-changed itself whenever"," the value changes"]#-} adjustmentValueChanged :: (MonadIO m, AdjustmentK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result adjustmentValueChanged _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_adjustment_value_changed _obj' touchManagedPtr _obj return () + +data AdjustmentValueChangedMethodInfo +instance (signature ~ (m ()), MonadIO m, AdjustmentK a) => MethodInfo AdjustmentValueChangedMethodInfo a signature where + overloadedMethod _ = adjustmentValueChanged diff --git a/GI/Gtk/Objects/Adjustment.hs-boot b/GI/Gtk/Objects/Adjustment.hs-boot --- a/GI/Gtk/Objects/Adjustment.hs-boot +++ b/GI/Gtk/Objects/Adjustment.hs-boot @@ -19,3 +19,20 @@ data AdjustmentValuePropertyInfo data AdjustmentChangedSignalInfo data AdjustmentValueChangedSignalInfo +data AdjustmentChangedMethodInfo +data AdjustmentClampPageMethodInfo +data AdjustmentConfigureMethodInfo +data AdjustmentGetLowerMethodInfo +data AdjustmentGetMinimumIncrementMethodInfo +data AdjustmentGetPageIncrementMethodInfo +data AdjustmentGetPageSizeMethodInfo +data AdjustmentGetStepIncrementMethodInfo +data AdjustmentGetUpperMethodInfo +data AdjustmentGetValueMethodInfo +data AdjustmentSetLowerMethodInfo +data AdjustmentSetPageIncrementMethodInfo +data AdjustmentSetPageSizeMethodInfo +data AdjustmentSetStepIncrementMethodInfo +data AdjustmentSetUpperMethodInfo +data AdjustmentSetValueMethodInfo +data AdjustmentValueChangedMethodInfo diff --git a/GI/Gtk/Objects/Alignment.hs b/GI/Gtk/Objects/Alignment.hs --- a/GI/Gtk/Objects/Alignment.hs +++ b/GI/Gtk/Objects/Alignment.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** alignmentGetPadding + AlignmentGetPaddingMethodInfo , alignmentGetPadding , @@ -25,10 +27,12 @@ -- ** alignmentSet + AlignmentSetMethodInfo , alignmentSet , -- ** alignmentSetPadding + AlignmentSetPaddingMethodInfo , alignmentSetPadding , @@ -128,6 +132,332 @@ noAlignment :: Maybe Alignment noAlignment = Nothing +type family ResolveAlignmentMethod (t :: Symbol) (o :: *) :: * where + ResolveAlignmentMethod "activate" o = WidgetActivateMethodInfo + ResolveAlignmentMethod "add" o = ContainerAddMethodInfo + ResolveAlignmentMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveAlignmentMethod "addChild" o = BuildableAddChildMethodInfo + ResolveAlignmentMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveAlignmentMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveAlignmentMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveAlignmentMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveAlignmentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAlignmentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAlignmentMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveAlignmentMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveAlignmentMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveAlignmentMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveAlignmentMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveAlignmentMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveAlignmentMethod "childType" o = ContainerChildTypeMethodInfo + ResolveAlignmentMethod "classPath" o = WidgetClassPathMethodInfo + ResolveAlignmentMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveAlignmentMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveAlignmentMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveAlignmentMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveAlignmentMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveAlignmentMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveAlignmentMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveAlignmentMethod "destroy" o = WidgetDestroyMethodInfo + ResolveAlignmentMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveAlignmentMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveAlignmentMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveAlignmentMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveAlignmentMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveAlignmentMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveAlignmentMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveAlignmentMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveAlignmentMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveAlignmentMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveAlignmentMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveAlignmentMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveAlignmentMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveAlignmentMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveAlignmentMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveAlignmentMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveAlignmentMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveAlignmentMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveAlignmentMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveAlignmentMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveAlignmentMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveAlignmentMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveAlignmentMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveAlignmentMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveAlignmentMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveAlignmentMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveAlignmentMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveAlignmentMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveAlignmentMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveAlignmentMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveAlignmentMethod "draw" o = WidgetDrawMethodInfo + ResolveAlignmentMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveAlignmentMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveAlignmentMethod "event" o = WidgetEventMethodInfo + ResolveAlignmentMethod "forall" o = ContainerForallMethodInfo + ResolveAlignmentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAlignmentMethod "foreach" o = ContainerForeachMethodInfo + ResolveAlignmentMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveAlignmentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAlignmentMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveAlignmentMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveAlignmentMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveAlignmentMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveAlignmentMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveAlignmentMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveAlignmentMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveAlignmentMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveAlignmentMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveAlignmentMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveAlignmentMethod "hide" o = WidgetHideMethodInfo + ResolveAlignmentMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveAlignmentMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveAlignmentMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveAlignmentMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveAlignmentMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveAlignmentMethod "intersect" o = WidgetIntersectMethodInfo + ResolveAlignmentMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveAlignmentMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveAlignmentMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveAlignmentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAlignmentMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveAlignmentMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveAlignmentMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveAlignmentMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveAlignmentMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveAlignmentMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveAlignmentMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveAlignmentMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveAlignmentMethod "map" o = WidgetMapMethodInfo + ResolveAlignmentMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveAlignmentMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveAlignmentMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveAlignmentMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveAlignmentMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveAlignmentMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveAlignmentMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveAlignmentMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveAlignmentMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAlignmentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAlignmentMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveAlignmentMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveAlignmentMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveAlignmentMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveAlignmentMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveAlignmentMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveAlignmentMethod "path" o = WidgetPathMethodInfo + ResolveAlignmentMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveAlignmentMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveAlignmentMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveAlignmentMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveAlignmentMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveAlignmentMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveAlignmentMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveAlignmentMethod "realize" o = WidgetRealizeMethodInfo + ResolveAlignmentMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAlignmentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAlignmentMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveAlignmentMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveAlignmentMethod "remove" o = ContainerRemoveMethodInfo + ResolveAlignmentMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveAlignmentMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveAlignmentMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveAlignmentMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveAlignmentMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveAlignmentMethod "reparent" o = WidgetReparentMethodInfo + ResolveAlignmentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAlignmentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAlignmentMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveAlignmentMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveAlignmentMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveAlignmentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAlignmentMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveAlignmentMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveAlignmentMethod "set" o = AlignmentSetMethodInfo + ResolveAlignmentMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveAlignmentMethod "show" o = WidgetShowMethodInfo + ResolveAlignmentMethod "showAll" o = WidgetShowAllMethodInfo + ResolveAlignmentMethod "showNow" o = WidgetShowNowMethodInfo + ResolveAlignmentMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveAlignmentMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveAlignmentMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveAlignmentMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAlignmentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAlignmentMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveAlignmentMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveAlignmentMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveAlignmentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAlignmentMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveAlignmentMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveAlignmentMethod "unmap" o = WidgetUnmapMethodInfo + ResolveAlignmentMethod "unparent" o = WidgetUnparentMethodInfo + ResolveAlignmentMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveAlignmentMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAlignmentMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveAlignmentMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveAlignmentMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveAlignmentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAlignmentMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveAlignmentMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveAlignmentMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveAlignmentMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveAlignmentMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveAlignmentMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveAlignmentMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveAlignmentMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveAlignmentMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveAlignmentMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveAlignmentMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveAlignmentMethod "getChild" o = BinGetChildMethodInfo + ResolveAlignmentMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveAlignmentMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveAlignmentMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveAlignmentMethod "getClip" o = WidgetGetClipMethodInfo + ResolveAlignmentMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveAlignmentMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveAlignmentMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAlignmentMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveAlignmentMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveAlignmentMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveAlignmentMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveAlignmentMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveAlignmentMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveAlignmentMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveAlignmentMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveAlignmentMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveAlignmentMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveAlignmentMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveAlignmentMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveAlignmentMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveAlignmentMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveAlignmentMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveAlignmentMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveAlignmentMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveAlignmentMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveAlignmentMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveAlignmentMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveAlignmentMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveAlignmentMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveAlignmentMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveAlignmentMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveAlignmentMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveAlignmentMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveAlignmentMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveAlignmentMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveAlignmentMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveAlignmentMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveAlignmentMethod "getPadding" o = AlignmentGetPaddingMethodInfo + ResolveAlignmentMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveAlignmentMethod "getParent" o = WidgetGetParentMethodInfo + ResolveAlignmentMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveAlignmentMethod "getPath" o = WidgetGetPathMethodInfo + ResolveAlignmentMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveAlignmentMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveAlignmentMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveAlignmentMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAlignmentMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveAlignmentMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveAlignmentMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveAlignmentMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveAlignmentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAlignmentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAlignmentMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveAlignmentMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveAlignmentMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveAlignmentMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveAlignmentMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveAlignmentMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveAlignmentMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveAlignmentMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveAlignmentMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveAlignmentMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveAlignmentMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveAlignmentMethod "getState" o = WidgetGetStateMethodInfo + ResolveAlignmentMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveAlignmentMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveAlignmentMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveAlignmentMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveAlignmentMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveAlignmentMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveAlignmentMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveAlignmentMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveAlignmentMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveAlignmentMethod "getValign" o = WidgetGetValignMethodInfo + ResolveAlignmentMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveAlignmentMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveAlignmentMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveAlignmentMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveAlignmentMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveAlignmentMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveAlignmentMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveAlignmentMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveAlignmentMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveAlignmentMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveAlignmentMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveAlignmentMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveAlignmentMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveAlignmentMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveAlignmentMethod "setClip" o = WidgetSetClipMethodInfo + ResolveAlignmentMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveAlignmentMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAlignmentMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveAlignmentMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveAlignmentMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveAlignmentMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveAlignmentMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveAlignmentMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveAlignmentMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveAlignmentMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveAlignmentMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveAlignmentMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveAlignmentMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveAlignmentMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveAlignmentMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveAlignmentMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveAlignmentMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveAlignmentMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveAlignmentMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveAlignmentMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveAlignmentMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveAlignmentMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveAlignmentMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveAlignmentMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveAlignmentMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveAlignmentMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveAlignmentMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveAlignmentMethod "setPadding" o = AlignmentSetPaddingMethodInfo + ResolveAlignmentMethod "setParent" o = WidgetSetParentMethodInfo + ResolveAlignmentMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveAlignmentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAlignmentMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveAlignmentMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveAlignmentMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveAlignmentMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveAlignmentMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveAlignmentMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveAlignmentMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveAlignmentMethod "setState" o = WidgetSetStateMethodInfo + ResolveAlignmentMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveAlignmentMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveAlignmentMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveAlignmentMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveAlignmentMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveAlignmentMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveAlignmentMethod "setValign" o = WidgetSetValignMethodInfo + ResolveAlignmentMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveAlignmentMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveAlignmentMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveAlignmentMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveAlignmentMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveAlignmentMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAlignmentMethod t Alignment, MethodInfo info Alignment p) => IsLabelProxy t (Alignment -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAlignmentMethod t Alignment, MethodInfo info Alignment p) => IsLabel t (Alignment -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "bottom-padding" -- Type: TBasicType TUInt32 -- Flags: [PropertyReadable,PropertyWritable] @@ -147,7 +477,7 @@ type AttrSetTypeConstraint AlignmentBottomPaddingPropertyInfo = (~) Word32 type AttrBaseTypeConstraint AlignmentBottomPaddingPropertyInfo = AlignmentK type AttrGetType AlignmentBottomPaddingPropertyInfo = Word32 - type AttrLabel AlignmentBottomPaddingPropertyInfo = "Alignment::bottom-padding" + type AttrLabel AlignmentBottomPaddingPropertyInfo = "bottom-padding" attrGet _ = getAlignmentBottomPadding attrSet _ = setAlignmentBottomPadding attrConstruct _ = constructAlignmentBottomPadding @@ -171,7 +501,7 @@ type AttrSetTypeConstraint AlignmentLeftPaddingPropertyInfo = (~) Word32 type AttrBaseTypeConstraint AlignmentLeftPaddingPropertyInfo = AlignmentK type AttrGetType AlignmentLeftPaddingPropertyInfo = Word32 - type AttrLabel AlignmentLeftPaddingPropertyInfo = "Alignment::left-padding" + type AttrLabel AlignmentLeftPaddingPropertyInfo = "left-padding" attrGet _ = getAlignmentLeftPadding attrSet _ = setAlignmentLeftPadding attrConstruct _ = constructAlignmentLeftPadding @@ -195,7 +525,7 @@ type AttrSetTypeConstraint AlignmentRightPaddingPropertyInfo = (~) Word32 type AttrBaseTypeConstraint AlignmentRightPaddingPropertyInfo = AlignmentK type AttrGetType AlignmentRightPaddingPropertyInfo = Word32 - type AttrLabel AlignmentRightPaddingPropertyInfo = "Alignment::right-padding" + type AttrLabel AlignmentRightPaddingPropertyInfo = "right-padding" attrGet _ = getAlignmentRightPadding attrSet _ = setAlignmentRightPadding attrConstruct _ = constructAlignmentRightPadding @@ -219,7 +549,7 @@ type AttrSetTypeConstraint AlignmentTopPaddingPropertyInfo = (~) Word32 type AttrBaseTypeConstraint AlignmentTopPaddingPropertyInfo = AlignmentK type AttrGetType AlignmentTopPaddingPropertyInfo = Word32 - type AttrLabel AlignmentTopPaddingPropertyInfo = "Alignment::top-padding" + type AttrLabel AlignmentTopPaddingPropertyInfo = "top-padding" attrGet _ = getAlignmentTopPadding attrSet _ = setAlignmentTopPadding attrConstruct _ = constructAlignmentTopPadding @@ -243,7 +573,7 @@ type AttrSetTypeConstraint AlignmentXalignPropertyInfo = (~) Float type AttrBaseTypeConstraint AlignmentXalignPropertyInfo = AlignmentK type AttrGetType AlignmentXalignPropertyInfo = Float - type AttrLabel AlignmentXalignPropertyInfo = "Alignment::xalign" + type AttrLabel AlignmentXalignPropertyInfo = "xalign" attrGet _ = getAlignmentXalign attrSet _ = setAlignmentXalign attrConstruct _ = constructAlignmentXalign @@ -267,7 +597,7 @@ type AttrSetTypeConstraint AlignmentXscalePropertyInfo = (~) Float type AttrBaseTypeConstraint AlignmentXscalePropertyInfo = AlignmentK type AttrGetType AlignmentXscalePropertyInfo = Float - type AttrLabel AlignmentXscalePropertyInfo = "Alignment::xscale" + type AttrLabel AlignmentXscalePropertyInfo = "xscale" attrGet _ = getAlignmentXscale attrSet _ = setAlignmentXscale attrConstruct _ = constructAlignmentXscale @@ -291,7 +621,7 @@ type AttrSetTypeConstraint AlignmentYalignPropertyInfo = (~) Float type AttrBaseTypeConstraint AlignmentYalignPropertyInfo = AlignmentK type AttrGetType AlignmentYalignPropertyInfo = Float - type AttrLabel AlignmentYalignPropertyInfo = "Alignment::yalign" + type AttrLabel AlignmentYalignPropertyInfo = "yalign" attrGet _ = getAlignmentYalign attrSet _ = setAlignmentYalign attrConstruct _ = constructAlignmentYalign @@ -315,22 +645,21 @@ type AttrSetTypeConstraint AlignmentYscalePropertyInfo = (~) Float type AttrBaseTypeConstraint AlignmentYscalePropertyInfo = AlignmentK type AttrGetType AlignmentYscalePropertyInfo = Float - type AttrLabel AlignmentYscalePropertyInfo = "Alignment::yscale" + type AttrLabel AlignmentYscalePropertyInfo = "yscale" attrGet _ = getAlignmentYscale attrSet _ = setAlignmentYscale attrConstruct _ = constructAlignmentYscale type instance AttributeList Alignment = AlignmentAttributeList -type AlignmentAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("bottom-padding", AlignmentBottomPaddingPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("left-padding", AlignmentLeftPaddingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-padding", AlignmentRightPaddingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("top-padding", AlignmentTopPaddingPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AlignmentXalignPropertyInfo), '("xscale", AlignmentXscalePropertyInfo), '("yalign", AlignmentYalignPropertyInfo), '("yscale", AlignmentYscalePropertyInfo)] :: [(Symbol, *)]) +type AlignmentAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("bottomPadding", AlignmentBottomPaddingPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("leftPadding", AlignmentLeftPaddingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightPadding", AlignmentRightPaddingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("topPadding", AlignmentTopPaddingPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AlignmentXalignPropertyInfo), '("xscale", AlignmentXscalePropertyInfo), '("yalign", AlignmentYalignPropertyInfo), '("yscale", AlignmentYscalePropertyInfo)] :: [(Symbol, *)]) type instance SignalList Alignment = AlignmentSignalList -type AlignmentSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AlignmentSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Alignment::new -- method type : Constructor --- Args : [Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Alignment" -- throws : False -- Skip return : False @@ -345,11 +674,11 @@ {-# DEPRECATED alignmentNew ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-} alignmentNew :: (MonadIO m) => - Float -> -- xalign - Float -> -- yalign - Float -> -- xscale - Float -> -- yscale - m Alignment + Float -- xalign + -> Float -- yalign + -> Float -- xscale + -> Float -- yscale + -> m Alignment -- result alignmentNew xalign yalign xscale yscale = liftIO $ do let xalign' = realToFrac xalign let yalign' = realToFrac yalign @@ -362,9 +691,8 @@ -- method Alignment::get_padding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_top", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding_left", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding_right", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_left", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_right", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -380,31 +708,34 @@ {-# DEPRECATED alignmentGetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-} alignmentGetPadding :: (MonadIO m, AlignmentK a) => - a -> -- _obj - m (Word32,Word32,Word32,Word32) + a -- _obj + -> m (Word32,Word32,Word32,Word32) -- result alignmentGetPadding _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - padding_top <- allocMem :: IO (Ptr Word32) - padding_bottom <- allocMem :: IO (Ptr Word32) - padding_left <- allocMem :: IO (Ptr Word32) - padding_right <- allocMem :: IO (Ptr Word32) - gtk_alignment_get_padding _obj' padding_top padding_bottom padding_left padding_right - padding_top' <- peek padding_top - padding_bottom' <- peek padding_bottom - padding_left' <- peek padding_left - padding_right' <- peek padding_right + paddingTop <- allocMem :: IO (Ptr Word32) + paddingBottom <- allocMem :: IO (Ptr Word32) + paddingLeft <- allocMem :: IO (Ptr Word32) + paddingRight <- allocMem :: IO (Ptr Word32) + gtk_alignment_get_padding _obj' paddingTop paddingBottom paddingLeft paddingRight + paddingTop' <- peek paddingTop + paddingBottom' <- peek paddingBottom + paddingLeft' <- peek paddingLeft + paddingRight' <- peek paddingRight touchManagedPtr _obj - freeMem padding_top - freeMem padding_bottom - freeMem padding_left - freeMem padding_right - return (padding_top', padding_bottom', padding_left', padding_right') + freeMem paddingTop + freeMem paddingBottom + freeMem paddingLeft + freeMem paddingRight + return (paddingTop', paddingBottom', paddingLeft', paddingRight') +data AlignmentGetPaddingMethodInfo +instance (signature ~ (m (Word32,Word32,Word32,Word32)), MonadIO m, AlignmentK a) => MethodInfo AlignmentGetPaddingMethodInfo a signature where + overloadedMethod _ = alignmentGetPadding + -- method Alignment::set -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -420,12 +751,12 @@ {-# DEPRECATED alignmentSet ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-} alignmentSet :: (MonadIO m, AlignmentK a) => - a -> -- _obj - Float -> -- xalign - Float -> -- yalign - Float -> -- xscale - Float -> -- yscale - m () + a -- _obj + -> Float -- xalign + -> Float -- yalign + -> Float -- xscale + -> Float -- yscale + -> m () -- result alignmentSet _obj xalign yalign xscale yscale = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let xalign' = realToFrac xalign @@ -436,11 +767,14 @@ touchManagedPtr _obj return () +data AlignmentSetMethodInfo +instance (signature ~ (Float -> Float -> Float -> Float -> m ()), MonadIO m, AlignmentK a) => MethodInfo AlignmentSetMethodInfo a signature where + overloadedMethod _ = alignmentSet + -- method Alignment::set_padding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_top", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_left", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_right", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_left", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_right", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_top", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_left", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_right", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -456,16 +790,20 @@ {-# DEPRECATED alignmentSetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-} alignmentSetPadding :: (MonadIO m, AlignmentK a) => - a -> -- _obj - Word32 -> -- padding_top - Word32 -> -- padding_bottom - Word32 -> -- padding_left - Word32 -> -- padding_right - m () -alignmentSetPadding _obj padding_top padding_bottom padding_left padding_right = liftIO $ do + a -- _obj + -> Word32 -- paddingTop + -> Word32 -- paddingBottom + -> Word32 -- paddingLeft + -> Word32 -- paddingRight + -> m () -- result +alignmentSetPadding _obj paddingTop paddingBottom paddingLeft paddingRight = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_alignment_set_padding _obj' padding_top padding_bottom padding_left padding_right + gtk_alignment_set_padding _obj' paddingTop paddingBottom paddingLeft paddingRight touchManagedPtr _obj return () + +data AlignmentSetPaddingMethodInfo +instance (signature ~ (Word32 -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m, AlignmentK a) => MethodInfo AlignmentSetPaddingMethodInfo a signature where + overloadedMethod _ = alignmentSetPadding diff --git a/GI/Gtk/Objects/Alignment.hs-boot b/GI/Gtk/Objects/Alignment.hs-boot --- a/GI/Gtk/Objects/Alignment.hs-boot +++ b/GI/Gtk/Objects/Alignment.hs-boot @@ -19,3 +19,6 @@ data AlignmentXscalePropertyInfo data AlignmentYalignPropertyInfo data AlignmentYscalePropertyInfo +data AlignmentGetPaddingMethodInfo +data AlignmentSetMethodInfo +data AlignmentSetPaddingMethodInfo diff --git a/GI/Gtk/Objects/AppChooserButton.hs b/GI/Gtk/Objects/AppChooserButton.hs --- a/GI/Gtk/Objects/AppChooserButton.hs +++ b/GI/Gtk/Objects/AppChooserButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** appChooserButtonAppendCustomItem + AppChooserButtonAppendCustomItemMethodInfo, appChooserButtonAppendCustomItem , -- ** appChooserButtonAppendSeparator + AppChooserButtonAppendSeparatorMethodInfo, appChooserButtonAppendSeparator , -- ** appChooserButtonGetHeading + AppChooserButtonGetHeadingMethodInfo , appChooserButtonGetHeading , -- ** appChooserButtonGetShowDefaultItem + AppChooserButtonGetShowDefaultItemMethodInfo, appChooserButtonGetShowDefaultItem , -- ** appChooserButtonGetShowDialogItem + AppChooserButtonGetShowDialogItemMethodInfo, appChooserButtonGetShowDialogItem , @@ -41,18 +47,22 @@ -- ** appChooserButtonSetActiveCustomItem + AppChooserButtonSetActiveCustomItemMethodInfo, appChooserButtonSetActiveCustomItem , -- ** appChooserButtonSetHeading + AppChooserButtonSetHeadingMethodInfo , appChooserButtonSetHeading , -- ** appChooserButtonSetShowDefaultItem + AppChooserButtonSetShowDefaultItemMethodInfo, appChooserButtonSetShowDefaultItem , -- ** appChooserButtonSetShowDialogItem + AppChooserButtonSetShowDialogItemMethodInfo, appChooserButtonSetShowDialogItem , @@ -133,6 +143,387 @@ noAppChooserButton :: Maybe AppChooserButton noAppChooserButton = Nothing +type family ResolveAppChooserButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveAppChooserButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveAppChooserButtonMethod "add" o = ContainerAddMethodInfo + ResolveAppChooserButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveAppChooserButtonMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo + ResolveAppChooserButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveAppChooserButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveAppChooserButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveAppChooserButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveAppChooserButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveAppChooserButtonMethod "appendCustomItem" o = AppChooserButtonAppendCustomItemMethodInfo + ResolveAppChooserButtonMethod "appendSeparator" o = AppChooserButtonAppendSeparatorMethodInfo + ResolveAppChooserButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAppChooserButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAppChooserButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveAppChooserButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveAppChooserButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveAppChooserButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveAppChooserButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveAppChooserButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveAppChooserButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveAppChooserButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveAppChooserButtonMethod "clear" o = CellLayoutClearMethodInfo + ResolveAppChooserButtonMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo + ResolveAppChooserButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveAppChooserButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveAppChooserButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveAppChooserButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveAppChooserButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveAppChooserButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveAppChooserButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveAppChooserButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveAppChooserButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveAppChooserButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveAppChooserButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveAppChooserButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveAppChooserButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveAppChooserButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveAppChooserButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveAppChooserButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveAppChooserButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveAppChooserButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveAppChooserButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveAppChooserButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveAppChooserButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveAppChooserButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveAppChooserButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveAppChooserButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveAppChooserButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveAppChooserButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveAppChooserButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveAppChooserButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveAppChooserButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveAppChooserButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveAppChooserButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveAppChooserButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveAppChooserButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveAppChooserButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveAppChooserButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveAppChooserButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveAppChooserButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveAppChooserButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveAppChooserButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveAppChooserButtonMethod "editingDone" o = CellEditableEditingDoneMethodInfo + ResolveAppChooserButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveAppChooserButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveAppChooserButtonMethod "event" o = WidgetEventMethodInfo + ResolveAppChooserButtonMethod "forall" o = ContainerForallMethodInfo + ResolveAppChooserButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAppChooserButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveAppChooserButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveAppChooserButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAppChooserButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveAppChooserButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveAppChooserButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveAppChooserButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveAppChooserButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveAppChooserButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveAppChooserButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveAppChooserButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveAppChooserButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveAppChooserButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveAppChooserButtonMethod "hide" o = WidgetHideMethodInfo + ResolveAppChooserButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveAppChooserButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveAppChooserButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveAppChooserButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveAppChooserButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveAppChooserButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveAppChooserButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveAppChooserButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveAppChooserButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveAppChooserButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAppChooserButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveAppChooserButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveAppChooserButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveAppChooserButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveAppChooserButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveAppChooserButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveAppChooserButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveAppChooserButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveAppChooserButtonMethod "map" o = WidgetMapMethodInfo + ResolveAppChooserButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveAppChooserButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveAppChooserButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveAppChooserButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveAppChooserButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveAppChooserButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveAppChooserButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveAppChooserButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveAppChooserButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAppChooserButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAppChooserButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveAppChooserButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveAppChooserButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveAppChooserButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveAppChooserButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveAppChooserButtonMethod "packEnd" o = CellLayoutPackEndMethodInfo + ResolveAppChooserButtonMethod "packStart" o = CellLayoutPackStartMethodInfo + ResolveAppChooserButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveAppChooserButtonMethod "path" o = WidgetPathMethodInfo + ResolveAppChooserButtonMethod "popdown" o = ComboBoxPopdownMethodInfo + ResolveAppChooserButtonMethod "popup" o = ComboBoxPopupMethodInfo + ResolveAppChooserButtonMethod "popupForDevice" o = ComboBoxPopupForDeviceMethodInfo + ResolveAppChooserButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveAppChooserButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveAppChooserButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveAppChooserButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveAppChooserButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveAppChooserButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveAppChooserButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveAppChooserButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveAppChooserButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAppChooserButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAppChooserButtonMethod "refresh" o = AppChooserRefreshMethodInfo + ResolveAppChooserButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveAppChooserButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveAppChooserButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveAppChooserButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveAppChooserButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveAppChooserButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveAppChooserButtonMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo + ResolveAppChooserButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveAppChooserButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveAppChooserButtonMethod "reorder" o = CellLayoutReorderMethodInfo + ResolveAppChooserButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveAppChooserButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAppChooserButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAppChooserButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveAppChooserButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveAppChooserButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveAppChooserButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAppChooserButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveAppChooserButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveAppChooserButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveAppChooserButtonMethod "show" o = WidgetShowMethodInfo + ResolveAppChooserButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveAppChooserButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveAppChooserButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveAppChooserButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveAppChooserButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveAppChooserButtonMethod "startEditing" o = CellEditableStartEditingMethodInfo + ResolveAppChooserButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAppChooserButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAppChooserButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveAppChooserButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveAppChooserButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveAppChooserButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAppChooserButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveAppChooserButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveAppChooserButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveAppChooserButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveAppChooserButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveAppChooserButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAppChooserButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveAppChooserButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveAppChooserButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveAppChooserButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAppChooserButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveAppChooserButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveAppChooserButtonMethod "getActive" o = ComboBoxGetActiveMethodInfo + ResolveAppChooserButtonMethod "getActiveId" o = ComboBoxGetActiveIdMethodInfo + ResolveAppChooserButtonMethod "getActiveIter" o = ComboBoxGetActiveIterMethodInfo + ResolveAppChooserButtonMethod "getAddTearoffs" o = ComboBoxGetAddTearoffsMethodInfo + ResolveAppChooserButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveAppChooserButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveAppChooserButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveAppChooserButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveAppChooserButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveAppChooserButtonMethod "getAppInfo" o = AppChooserGetAppInfoMethodInfo + ResolveAppChooserButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveAppChooserButtonMethod "getArea" o = CellLayoutGetAreaMethodInfo + ResolveAppChooserButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveAppChooserButtonMethod "getButtonSensitivity" o = ComboBoxGetButtonSensitivityMethodInfo + ResolveAppChooserButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveAppChooserButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveAppChooserButtonMethod "getCells" o = CellLayoutGetCellsMethodInfo + ResolveAppChooserButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveAppChooserButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveAppChooserButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveAppChooserButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveAppChooserButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveAppChooserButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveAppChooserButtonMethod "getColumnSpanColumn" o = ComboBoxGetColumnSpanColumnMethodInfo + ResolveAppChooserButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveAppChooserButtonMethod "getContentType" o = AppChooserGetContentTypeMethodInfo + ResolveAppChooserButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAppChooserButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveAppChooserButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveAppChooserButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveAppChooserButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveAppChooserButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveAppChooserButtonMethod "getEntryTextColumn" o = ComboBoxGetEntryTextColumnMethodInfo + ResolveAppChooserButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveAppChooserButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveAppChooserButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveAppChooserButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveAppChooserButtonMethod "getFocusOnClick" o = ComboBoxGetFocusOnClickMethodInfo + ResolveAppChooserButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveAppChooserButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveAppChooserButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveAppChooserButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveAppChooserButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveAppChooserButtonMethod "getHasEntry" o = ComboBoxGetHasEntryMethodInfo + ResolveAppChooserButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveAppChooserButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveAppChooserButtonMethod "getHeading" o = AppChooserButtonGetHeadingMethodInfo + ResolveAppChooserButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveAppChooserButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveAppChooserButtonMethod "getIdColumn" o = ComboBoxGetIdColumnMethodInfo + ResolveAppChooserButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveAppChooserButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveAppChooserButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveAppChooserButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveAppChooserButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveAppChooserButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveAppChooserButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveAppChooserButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveAppChooserButtonMethod "getModel" o = ComboBoxGetModelMethodInfo + ResolveAppChooserButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveAppChooserButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveAppChooserButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveAppChooserButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveAppChooserButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveAppChooserButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveAppChooserButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveAppChooserButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveAppChooserButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveAppChooserButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveAppChooserButtonMethod "getPopupAccessible" o = ComboBoxGetPopupAccessibleMethodInfo + ResolveAppChooserButtonMethod "getPopupFixedWidth" o = ComboBoxGetPopupFixedWidthMethodInfo + ResolveAppChooserButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveAppChooserButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAppChooserButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveAppChooserButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveAppChooserButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveAppChooserButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveAppChooserButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAppChooserButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAppChooserButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveAppChooserButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveAppChooserButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveAppChooserButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveAppChooserButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveAppChooserButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveAppChooserButtonMethod "getRowSpanColumn" o = ComboBoxGetRowSpanColumnMethodInfo + ResolveAppChooserButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveAppChooserButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveAppChooserButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveAppChooserButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveAppChooserButtonMethod "getShowDefaultItem" o = AppChooserButtonGetShowDefaultItemMethodInfo + ResolveAppChooserButtonMethod "getShowDialogItem" o = AppChooserButtonGetShowDialogItemMethodInfo + ResolveAppChooserButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveAppChooserButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveAppChooserButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveAppChooserButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveAppChooserButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveAppChooserButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveAppChooserButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveAppChooserButtonMethod "getTitle" o = ComboBoxGetTitleMethodInfo + ResolveAppChooserButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveAppChooserButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveAppChooserButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveAppChooserButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveAppChooserButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveAppChooserButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveAppChooserButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveAppChooserButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveAppChooserButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveAppChooserButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveAppChooserButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveAppChooserButtonMethod "getWrapWidth" o = ComboBoxGetWrapWidthMethodInfo + ResolveAppChooserButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveAppChooserButtonMethod "setActive" o = ComboBoxSetActiveMethodInfo + ResolveAppChooserButtonMethod "setActiveCustomItem" o = AppChooserButtonSetActiveCustomItemMethodInfo + ResolveAppChooserButtonMethod "setActiveId" o = ComboBoxSetActiveIdMethodInfo + ResolveAppChooserButtonMethod "setActiveIter" o = ComboBoxSetActiveIterMethodInfo + ResolveAppChooserButtonMethod "setAddTearoffs" o = ComboBoxSetAddTearoffsMethodInfo + ResolveAppChooserButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveAppChooserButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveAppChooserButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveAppChooserButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveAppChooserButtonMethod "setButtonSensitivity" o = ComboBoxSetButtonSensitivityMethodInfo + ResolveAppChooserButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveAppChooserButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveAppChooserButtonMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo + ResolveAppChooserButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveAppChooserButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveAppChooserButtonMethod "setColumnSpanColumn" o = ComboBoxSetColumnSpanColumnMethodInfo + ResolveAppChooserButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveAppChooserButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAppChooserButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveAppChooserButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveAppChooserButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveAppChooserButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveAppChooserButtonMethod "setEntryTextColumn" o = ComboBoxSetEntryTextColumnMethodInfo + ResolveAppChooserButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveAppChooserButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveAppChooserButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveAppChooserButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveAppChooserButtonMethod "setFocusOnClick" o = ComboBoxSetFocusOnClickMethodInfo + ResolveAppChooserButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveAppChooserButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveAppChooserButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveAppChooserButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveAppChooserButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveAppChooserButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveAppChooserButtonMethod "setHeading" o = AppChooserButtonSetHeadingMethodInfo + ResolveAppChooserButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveAppChooserButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveAppChooserButtonMethod "setIdColumn" o = ComboBoxSetIdColumnMethodInfo + ResolveAppChooserButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveAppChooserButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveAppChooserButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveAppChooserButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveAppChooserButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveAppChooserButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveAppChooserButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveAppChooserButtonMethod "setModel" o = ComboBoxSetModelMethodInfo + ResolveAppChooserButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveAppChooserButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveAppChooserButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveAppChooserButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveAppChooserButtonMethod "setPopupFixedWidth" o = ComboBoxSetPopupFixedWidthMethodInfo + ResolveAppChooserButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAppChooserButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveAppChooserButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveAppChooserButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveAppChooserButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveAppChooserButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveAppChooserButtonMethod "setRowSeparatorFunc" o = ComboBoxSetRowSeparatorFuncMethodInfo + ResolveAppChooserButtonMethod "setRowSpanColumn" o = ComboBoxSetRowSpanColumnMethodInfo + ResolveAppChooserButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveAppChooserButtonMethod "setShowDefaultItem" o = AppChooserButtonSetShowDefaultItemMethodInfo + ResolveAppChooserButtonMethod "setShowDialogItem" o = AppChooserButtonSetShowDialogItemMethodInfo + ResolveAppChooserButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveAppChooserButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveAppChooserButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveAppChooserButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveAppChooserButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveAppChooserButtonMethod "setTitle" o = ComboBoxSetTitleMethodInfo + ResolveAppChooserButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveAppChooserButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveAppChooserButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveAppChooserButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveAppChooserButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveAppChooserButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveAppChooserButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveAppChooserButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveAppChooserButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveAppChooserButtonMethod "setWrapWidth" o = ComboBoxSetWrapWidthMethodInfo + ResolveAppChooserButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAppChooserButtonMethod t AppChooserButton, MethodInfo info AppChooserButton p) => IsLabelProxy t (AppChooserButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAppChooserButtonMethod t AppChooserButton, MethodInfo info AppChooserButton p) => IsLabel t (AppChooserButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal AppChooserButton::custom-item-activated type AppChooserButtonCustomItemActivatedCallback = T.Text -> @@ -160,9 +551,9 @@ CString -> Ptr () -> IO () -appChooserButtonCustomItemActivatedCallbackWrapper _cb _ item_name _ = do - item_name' <- cstringToText item_name - _cb item_name' +appChooserButtonCustomItemActivatedCallbackWrapper _cb _ itemName _ = do + itemName' <- cstringToText itemName + _cb itemName' onAppChooserButtonCustomItemActivated :: (GObject a, MonadIO m) => a -> AppChooserButtonCustomItemActivatedCallback -> m SignalHandlerId onAppChooserButtonCustomItemActivated obj cb = liftIO $ connectAppChooserButtonCustomItemActivated obj cb SignalConnectBefore @@ -194,7 +585,7 @@ type AttrSetTypeConstraint AppChooserButtonHeadingPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AppChooserButtonHeadingPropertyInfo = AppChooserButtonK type AttrGetType AppChooserButtonHeadingPropertyInfo = T.Text - type AttrLabel AppChooserButtonHeadingPropertyInfo = "AppChooserButton::heading" + type AttrLabel AppChooserButtonHeadingPropertyInfo = "heading" attrGet _ = getAppChooserButtonHeading attrSet _ = setAppChooserButtonHeading attrConstruct _ = constructAppChooserButtonHeading @@ -218,7 +609,7 @@ type AttrSetTypeConstraint AppChooserButtonShowDefaultItemPropertyInfo = (~) Bool type AttrBaseTypeConstraint AppChooserButtonShowDefaultItemPropertyInfo = AppChooserButtonK type AttrGetType AppChooserButtonShowDefaultItemPropertyInfo = Bool - type AttrLabel AppChooserButtonShowDefaultItemPropertyInfo = "AppChooserButton::show-default-item" + type AttrLabel AppChooserButtonShowDefaultItemPropertyInfo = "show-default-item" attrGet _ = getAppChooserButtonShowDefaultItem attrSet _ = setAppChooserButtonShowDefaultItem attrConstruct _ = constructAppChooserButtonShowDefaultItem @@ -242,13 +633,13 @@ type AttrSetTypeConstraint AppChooserButtonShowDialogItemPropertyInfo = (~) Bool type AttrBaseTypeConstraint AppChooserButtonShowDialogItemPropertyInfo = AppChooserButtonK type AttrGetType AppChooserButtonShowDialogItemPropertyInfo = Bool - type AttrLabel AppChooserButtonShowDialogItemPropertyInfo = "AppChooserButton::show-dialog-item" + type AttrLabel AppChooserButtonShowDialogItemPropertyInfo = "show-dialog-item" attrGet _ = getAppChooserButtonShowDialogItem attrSet _ = setAppChooserButtonShowDialogItem attrConstruct _ = constructAppChooserButtonShowDialogItem type instance AttributeList AppChooserButton = AppChooserButtonAttributeList -type AppChooserButtonAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("active-id", ComboBoxActiveIdPropertyInfo), '("add-tearoffs", ComboBoxAddTearoffsPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("button-sensitivity", ComboBoxButtonSensitivityPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-span-column", ComboBoxColumnSpanColumnPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("content-type", AppChooserContentTypePropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("entry-text-column", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-entry", ComboBoxHasEntryPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", ComboBoxHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("heading", AppChooserButtonHeadingPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("id-column", ComboBoxIdColumnPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popup-fixed-width", ComboBoxPopupFixedWidthPropertyInfo), '("popup-shown", ComboBoxPopupShownPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-span-column", ComboBoxRowSpanColumnPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-default-item", AppChooserButtonShowDefaultItemPropertyInfo), '("show-dialog-item", AppChooserButtonShowDialogItemPropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoff-title", ComboBoxTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap-width", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) +type AppChooserButtonAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("activeId", ComboBoxActiveIdPropertyInfo), '("addTearoffs", ComboBoxAddTearoffsPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttonSensitivity", ComboBoxButtonSensitivityPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpanColumn", ComboBoxColumnSpanColumnPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("entryTextColumn", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasEntry", ComboBoxHasEntryPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", ComboBoxHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heading", AppChooserButtonHeadingPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("idColumn", ComboBoxIdColumnPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popupFixedWidth", ComboBoxPopupFixedWidthPropertyInfo), '("popupShown", ComboBoxPopupShownPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpanColumn", ComboBoxRowSpanColumnPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showDefaultItem", AppChooserButtonShowDefaultItemPropertyInfo), '("showDialogItem", AppChooserButtonShowDialogItemPropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoffTitle", ComboBoxTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapWidth", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) data AppChooserButtonCustomItemActivatedSignalInfo instance SignalInfo AppChooserButtonCustomItemActivatedSignalInfo where @@ -256,13 +647,12 @@ connectSignal _ = connectAppChooserButtonCustomItemActivated type instance SignalList AppChooserButton = AppChooserButtonSignalList -type AppChooserButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("custom-item-activated", AppChooserButtonCustomItemActivatedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-entry-text", ComboBoxFormatEntryTextSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-active", ComboBoxMoveActiveSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AppChooserButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("customItemActivated", AppChooserButtonCustomItemActivatedSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("formatEntryText", ComboBoxFormatEntryTextSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveActive", ComboBoxMoveActiveSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method AppChooserButton::new -- method type : Constructor --- Args : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "AppChooserButton" -- throws : False -- Skip return : False @@ -274,21 +664,20 @@ appChooserButtonNew :: (MonadIO m) => - T.Text -> -- content_type - m AppChooserButton -appChooserButtonNew content_type = liftIO $ do - content_type' <- textToCString content_type - result <- gtk_app_chooser_button_new content_type' + T.Text -- contentType + -> m AppChooserButton -- result +appChooserButtonNew contentType = liftIO $ do + contentType' <- textToCString contentType + result <- gtk_app_chooser_button_new contentType' checkUnexpectedReturnNULL "gtk_app_chooser_button_new" result result' <- (newObject AppChooserButton) result - freeMem content_type' + freeMem contentType' return result' -- method AppChooserButton::append_custom_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -303,11 +692,11 @@ appChooserButtonAppendCustomItem :: (MonadIO m, AppChooserButtonK a, Gio.IconK b) => - a -> -- _obj - T.Text -> -- name - T.Text -> -- label - b -> -- icon - m () + a -- _obj + -> T.Text -- name + -> T.Text -- label + -> b -- icon + -> m () -- result appChooserButtonAppendCustomItem _obj name label icon = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -320,11 +709,14 @@ freeMem label' return () +data AppChooserButtonAppendCustomItemMethodInfo +instance (signature ~ (T.Text -> T.Text -> b -> m ()), MonadIO m, AppChooserButtonK a, Gio.IconK b) => MethodInfo AppChooserButtonAppendCustomItemMethodInfo a signature where + overloadedMethod _ = appChooserButtonAppendCustomItem + -- method AppChooserButton::append_separator -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -336,19 +728,22 @@ appChooserButtonAppendSeparator :: (MonadIO m, AppChooserButtonK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result appChooserButtonAppendSeparator _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_app_chooser_button_append_separator _obj' touchManagedPtr _obj return () +data AppChooserButtonAppendSeparatorMethodInfo +instance (signature ~ (m ()), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonAppendSeparatorMethodInfo a signature where + overloadedMethod _ = appChooserButtonAppendSeparator + -- method AppChooserButton::get_heading -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -360,8 +755,8 @@ appChooserButtonGetHeading :: (MonadIO m, AppChooserButtonK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result appChooserButtonGetHeading _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_button_get_heading _obj' @@ -370,11 +765,14 @@ touchManagedPtr _obj return result' +data AppChooserButtonGetHeadingMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonGetHeadingMethodInfo a signature where + overloadedMethod _ = appChooserButtonGetHeading + -- method AppChooserButton::get_show_default_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -386,8 +784,8 @@ appChooserButtonGetShowDefaultItem :: (MonadIO m, AppChooserButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result appChooserButtonGetShowDefaultItem _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_button_get_show_default_item _obj' @@ -395,11 +793,14 @@ touchManagedPtr _obj return result' +data AppChooserButtonGetShowDefaultItemMethodInfo +instance (signature ~ (m Bool), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonGetShowDefaultItemMethodInfo a signature where + overloadedMethod _ = appChooserButtonGetShowDefaultItem + -- method AppChooserButton::get_show_dialog_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -411,8 +812,8 @@ appChooserButtonGetShowDialogItem :: (MonadIO m, AppChooserButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result appChooserButtonGetShowDialogItem _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_button_get_show_dialog_item _obj' @@ -420,11 +821,14 @@ touchManagedPtr _obj return result' +data AppChooserButtonGetShowDialogItemMethodInfo +instance (signature ~ (m Bool), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonGetShowDialogItemMethodInfo a signature where + overloadedMethod _ = appChooserButtonGetShowDialogItem + -- method AppChooserButton::set_active_custom_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -437,9 +841,9 @@ appChooserButtonSetActiveCustomItem :: (MonadIO m, AppChooserButtonK a) => - a -> -- _obj - T.Text -> -- name - m () + a -- _obj + -> T.Text -- name + -> m () -- result appChooserButtonSetActiveCustomItem _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -448,11 +852,14 @@ freeMem name' return () +data AppChooserButtonSetActiveCustomItemMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonSetActiveCustomItemMethodInfo a signature where + overloadedMethod _ = appChooserButtonSetActiveCustomItem + -- method AppChooserButton::set_heading -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -465,9 +872,9 @@ appChooserButtonSetHeading :: (MonadIO m, AppChooserButtonK a) => - a -> -- _obj - T.Text -> -- heading - m () + a -- _obj + -> T.Text -- heading + -> m () -- result appChooserButtonSetHeading _obj heading = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj heading' <- textToCString heading @@ -476,11 +883,14 @@ freeMem heading' return () +data AppChooserButtonSetHeadingMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonSetHeadingMethodInfo a signature where + overloadedMethod _ = appChooserButtonSetHeading + -- method AppChooserButton::set_show_default_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -493,9 +903,9 @@ appChooserButtonSetShowDefaultItem :: (MonadIO m, AppChooserButtonK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result appChooserButtonSetShowDefaultItem _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -503,11 +913,14 @@ touchManagedPtr _obj return () +data AppChooserButtonSetShowDefaultItemMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonSetShowDefaultItemMethodInfo a signature where + overloadedMethod _ = appChooserButtonSetShowDefaultItem + -- method AppChooserButton::set_show_dialog_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -520,14 +933,18 @@ appChooserButtonSetShowDialogItem :: (MonadIO m, AppChooserButtonK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result appChooserButtonSetShowDialogItem _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting gtk_app_chooser_button_set_show_dialog_item _obj' setting' touchManagedPtr _obj return () + +data AppChooserButtonSetShowDialogItemMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserButtonK a) => MethodInfo AppChooserButtonSetShowDialogItemMethodInfo a signature where + overloadedMethod _ = appChooserButtonSetShowDialogItem diff --git a/GI/Gtk/Objects/AppChooserButton.hs-boot b/GI/Gtk/Objects/AppChooserButton.hs-boot --- a/GI/Gtk/Objects/AppChooserButton.hs-boot +++ b/GI/Gtk/Objects/AppChooserButton.hs-boot @@ -15,3 +15,12 @@ data AppChooserButtonShowDefaultItemPropertyInfo data AppChooserButtonShowDialogItemPropertyInfo data AppChooserButtonCustomItemActivatedSignalInfo +data AppChooserButtonAppendCustomItemMethodInfo +data AppChooserButtonAppendSeparatorMethodInfo +data AppChooserButtonGetHeadingMethodInfo +data AppChooserButtonGetShowDefaultItemMethodInfo +data AppChooserButtonGetShowDialogItemMethodInfo +data AppChooserButtonSetActiveCustomItemMethodInfo +data AppChooserButtonSetHeadingMethodInfo +data AppChooserButtonSetShowDefaultItemMethodInfo +data AppChooserButtonSetShowDialogItemMethodInfo diff --git a/GI/Gtk/Objects/AppChooserDialog.hs b/GI/Gtk/Objects/AppChooserDialog.hs --- a/GI/Gtk/Objects/AppChooserDialog.hs +++ b/GI/Gtk/Objects/AppChooserDialog.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** appChooserDialogGetHeading + AppChooserDialogGetHeadingMethodInfo , appChooserDialogGetHeading , -- ** appChooserDialogGetWidget + AppChooserDialogGetWidgetMethodInfo , appChooserDialogGetWidget , @@ -33,6 +36,7 @@ -- ** appChooserDialogSetHeading + AppChooserDialogSetHeadingMethodInfo , appChooserDialogSetHeading , @@ -90,6 +94,448 @@ noAppChooserDialog :: Maybe AppChooserDialog noAppChooserDialog = Nothing +type family ResolveAppChooserDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveAppChooserDialogMethod "activate" o = WidgetActivateMethodInfo + ResolveAppChooserDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveAppChooserDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveAppChooserDialogMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveAppChooserDialogMethod "add" o = ContainerAddMethodInfo + ResolveAppChooserDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveAppChooserDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveAppChooserDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo + ResolveAppChooserDialogMethod "addButton" o = DialogAddButtonMethodInfo + ResolveAppChooserDialogMethod "addChild" o = BuildableAddChildMethodInfo + ResolveAppChooserDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveAppChooserDialogMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveAppChooserDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveAppChooserDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveAppChooserDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveAppChooserDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveAppChooserDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveAppChooserDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAppChooserDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAppChooserDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveAppChooserDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveAppChooserDialogMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveAppChooserDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveAppChooserDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveAppChooserDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveAppChooserDialogMethod "childType" o = ContainerChildTypeMethodInfo + ResolveAppChooserDialogMethod "classPath" o = WidgetClassPathMethodInfo + ResolveAppChooserDialogMethod "close" o = WindowCloseMethodInfo + ResolveAppChooserDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveAppChooserDialogMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveAppChooserDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveAppChooserDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveAppChooserDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveAppChooserDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveAppChooserDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveAppChooserDialogMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveAppChooserDialogMethod "destroy" o = WidgetDestroyMethodInfo + ResolveAppChooserDialogMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveAppChooserDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveAppChooserDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveAppChooserDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveAppChooserDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveAppChooserDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveAppChooserDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveAppChooserDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveAppChooserDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveAppChooserDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveAppChooserDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveAppChooserDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveAppChooserDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveAppChooserDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveAppChooserDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveAppChooserDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveAppChooserDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveAppChooserDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveAppChooserDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveAppChooserDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveAppChooserDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveAppChooserDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveAppChooserDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveAppChooserDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveAppChooserDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveAppChooserDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveAppChooserDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveAppChooserDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveAppChooserDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveAppChooserDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveAppChooserDialogMethod "draw" o = WidgetDrawMethodInfo + ResolveAppChooserDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveAppChooserDialogMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveAppChooserDialogMethod "event" o = WidgetEventMethodInfo + ResolveAppChooserDialogMethod "forall" o = ContainerForallMethodInfo + ResolveAppChooserDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAppChooserDialogMethod "foreach" o = ContainerForeachMethodInfo + ResolveAppChooserDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveAppChooserDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAppChooserDialogMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveAppChooserDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveAppChooserDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveAppChooserDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveAppChooserDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveAppChooserDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveAppChooserDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveAppChooserDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveAppChooserDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveAppChooserDialogMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveAppChooserDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveAppChooserDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveAppChooserDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveAppChooserDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveAppChooserDialogMethod "hide" o = WidgetHideMethodInfo + ResolveAppChooserDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveAppChooserDialogMethod "iconify" o = WindowIconifyMethodInfo + ResolveAppChooserDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveAppChooserDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveAppChooserDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveAppChooserDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveAppChooserDialogMethod "intersect" o = WidgetIntersectMethodInfo + ResolveAppChooserDialogMethod "isActive" o = WindowIsActiveMethodInfo + ResolveAppChooserDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveAppChooserDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveAppChooserDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveAppChooserDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAppChooserDialogMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveAppChooserDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveAppChooserDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveAppChooserDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveAppChooserDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveAppChooserDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveAppChooserDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveAppChooserDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveAppChooserDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveAppChooserDialogMethod "map" o = WidgetMapMethodInfo + ResolveAppChooserDialogMethod "maximize" o = WindowMaximizeMethodInfo + ResolveAppChooserDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveAppChooserDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveAppChooserDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveAppChooserDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveAppChooserDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveAppChooserDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveAppChooserDialogMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveAppChooserDialogMethod "move" o = WindowMoveMethodInfo + ResolveAppChooserDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAppChooserDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAppChooserDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveAppChooserDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveAppChooserDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveAppChooserDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveAppChooserDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveAppChooserDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveAppChooserDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveAppChooserDialogMethod "path" o = WidgetPathMethodInfo + ResolveAppChooserDialogMethod "present" o = WindowPresentMethodInfo + ResolveAppChooserDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveAppChooserDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveAppChooserDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveAppChooserDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveAppChooserDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveAppChooserDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveAppChooserDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveAppChooserDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveAppChooserDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveAppChooserDialogMethod "realize" o = WidgetRealizeMethodInfo + ResolveAppChooserDialogMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAppChooserDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAppChooserDialogMethod "refresh" o = AppChooserRefreshMethodInfo + ResolveAppChooserDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveAppChooserDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveAppChooserDialogMethod "remove" o = ContainerRemoveMethodInfo + ResolveAppChooserDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveAppChooserDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveAppChooserDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveAppChooserDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveAppChooserDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveAppChooserDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveAppChooserDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveAppChooserDialogMethod "reparent" o = WidgetReparentMethodInfo + ResolveAppChooserDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAppChooserDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAppChooserDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveAppChooserDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveAppChooserDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveAppChooserDialogMethod "resize" o = WindowResizeMethodInfo + ResolveAppChooserDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveAppChooserDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveAppChooserDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveAppChooserDialogMethod "response" o = DialogResponseMethodInfo + ResolveAppChooserDialogMethod "run" o = DialogRunMethodInfo + ResolveAppChooserDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAppChooserDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveAppChooserDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveAppChooserDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveAppChooserDialogMethod "show" o = WidgetShowMethodInfo + ResolveAppChooserDialogMethod "showAll" o = WidgetShowAllMethodInfo + ResolveAppChooserDialogMethod "showNow" o = WidgetShowNowMethodInfo + ResolveAppChooserDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveAppChooserDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveAppChooserDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveAppChooserDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAppChooserDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAppChooserDialogMethod "stick" o = WindowStickMethodInfo + ResolveAppChooserDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveAppChooserDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveAppChooserDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveAppChooserDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAppChooserDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveAppChooserDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveAppChooserDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveAppChooserDialogMethod "unmap" o = WidgetUnmapMethodInfo + ResolveAppChooserDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveAppChooserDialogMethod "unparent" o = WidgetUnparentMethodInfo + ResolveAppChooserDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveAppChooserDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAppChooserDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveAppChooserDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveAppChooserDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveAppChooserDialogMethod "unstick" o = WindowUnstickMethodInfo + ResolveAppChooserDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAppChooserDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveAppChooserDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveAppChooserDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo + ResolveAppChooserDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveAppChooserDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveAppChooserDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveAppChooserDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveAppChooserDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveAppChooserDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveAppChooserDialogMethod "getAppInfo" o = AppChooserGetAppInfoMethodInfo + ResolveAppChooserDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveAppChooserDialogMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveAppChooserDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveAppChooserDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveAppChooserDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveAppChooserDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveAppChooserDialogMethod "getChild" o = BinGetChildMethodInfo + ResolveAppChooserDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveAppChooserDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveAppChooserDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveAppChooserDialogMethod "getClip" o = WidgetGetClipMethodInfo + ResolveAppChooserDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveAppChooserDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveAppChooserDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo + ResolveAppChooserDialogMethod "getContentType" o = AppChooserGetContentTypeMethodInfo + ResolveAppChooserDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAppChooserDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveAppChooserDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveAppChooserDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveAppChooserDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveAppChooserDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveAppChooserDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveAppChooserDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveAppChooserDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveAppChooserDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveAppChooserDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveAppChooserDialogMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveAppChooserDialogMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveAppChooserDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveAppChooserDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveAppChooserDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveAppChooserDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveAppChooserDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveAppChooserDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveAppChooserDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveAppChooserDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveAppChooserDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveAppChooserDialogMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveAppChooserDialogMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveAppChooserDialogMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveAppChooserDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveAppChooserDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveAppChooserDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveAppChooserDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo + ResolveAppChooserDialogMethod "getHeading" o = AppChooserDialogGetHeadingMethodInfo + ResolveAppChooserDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveAppChooserDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveAppChooserDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveAppChooserDialogMethod "getIcon" o = WindowGetIconMethodInfo + ResolveAppChooserDialogMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveAppChooserDialogMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveAppChooserDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveAppChooserDialogMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveAppChooserDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveAppChooserDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveAppChooserDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveAppChooserDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveAppChooserDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveAppChooserDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveAppChooserDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveAppChooserDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveAppChooserDialogMethod "getModal" o = WindowGetModalMethodInfo + ResolveAppChooserDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveAppChooserDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveAppChooserDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveAppChooserDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveAppChooserDialogMethod "getParent" o = WidgetGetParentMethodInfo + ResolveAppChooserDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveAppChooserDialogMethod "getPath" o = WidgetGetPathMethodInfo + ResolveAppChooserDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveAppChooserDialogMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveAppChooserDialogMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveAppChooserDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveAppChooserDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAppChooserDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveAppChooserDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveAppChooserDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveAppChooserDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveAppChooserDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAppChooserDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAppChooserDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveAppChooserDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveAppChooserDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveAppChooserDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveAppChooserDialogMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveAppChooserDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveAppChooserDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveAppChooserDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo + ResolveAppChooserDialogMethod "getRole" o = WindowGetRoleMethodInfo + ResolveAppChooserDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveAppChooserDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveAppChooserDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveAppChooserDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveAppChooserDialogMethod "getSize" o = WindowGetSizeMethodInfo + ResolveAppChooserDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveAppChooserDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveAppChooserDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveAppChooserDialogMethod "getState" o = WidgetGetStateMethodInfo + ResolveAppChooserDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveAppChooserDialogMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveAppChooserDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveAppChooserDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveAppChooserDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveAppChooserDialogMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveAppChooserDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveAppChooserDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveAppChooserDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveAppChooserDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveAppChooserDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveAppChooserDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveAppChooserDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveAppChooserDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveAppChooserDialogMethod "getValign" o = WidgetGetValignMethodInfo + ResolveAppChooserDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveAppChooserDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveAppChooserDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveAppChooserDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveAppChooserDialogMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveAppChooserDialogMethod "getWidget" o = AppChooserDialogGetWidgetMethodInfo + ResolveAppChooserDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo + ResolveAppChooserDialogMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveAppChooserDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveAppChooserDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveAppChooserDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveAppChooserDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveAppChooserDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo + ResolveAppChooserDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveAppChooserDialogMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveAppChooserDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveAppChooserDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveAppChooserDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveAppChooserDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveAppChooserDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveAppChooserDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveAppChooserDialogMethod "setClip" o = WidgetSetClipMethodInfo + ResolveAppChooserDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveAppChooserDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAppChooserDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveAppChooserDialogMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveAppChooserDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveAppChooserDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo + ResolveAppChooserDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveAppChooserDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveAppChooserDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveAppChooserDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveAppChooserDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveAppChooserDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveAppChooserDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveAppChooserDialogMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveAppChooserDialogMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveAppChooserDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveAppChooserDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveAppChooserDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveAppChooserDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveAppChooserDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveAppChooserDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveAppChooserDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveAppChooserDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveAppChooserDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveAppChooserDialogMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveAppChooserDialogMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveAppChooserDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveAppChooserDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveAppChooserDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveAppChooserDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveAppChooserDialogMethod "setHeading" o = AppChooserDialogSetHeadingMethodInfo + ResolveAppChooserDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveAppChooserDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveAppChooserDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveAppChooserDialogMethod "setIcon" o = WindowSetIconMethodInfo + ResolveAppChooserDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveAppChooserDialogMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveAppChooserDialogMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveAppChooserDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveAppChooserDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveAppChooserDialogMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveAppChooserDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveAppChooserDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveAppChooserDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveAppChooserDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveAppChooserDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveAppChooserDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveAppChooserDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveAppChooserDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveAppChooserDialogMethod "setModal" o = WindowSetModalMethodInfo + ResolveAppChooserDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveAppChooserDialogMethod "setParent" o = WidgetSetParentMethodInfo + ResolveAppChooserDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveAppChooserDialogMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveAppChooserDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAppChooserDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveAppChooserDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveAppChooserDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveAppChooserDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveAppChooserDialogMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveAppChooserDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveAppChooserDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo + ResolveAppChooserDialogMethod "setRole" o = WindowSetRoleMethodInfo + ResolveAppChooserDialogMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveAppChooserDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveAppChooserDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveAppChooserDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveAppChooserDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveAppChooserDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveAppChooserDialogMethod "setState" o = WidgetSetStateMethodInfo + ResolveAppChooserDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveAppChooserDialogMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveAppChooserDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveAppChooserDialogMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveAppChooserDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveAppChooserDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveAppChooserDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveAppChooserDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveAppChooserDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveAppChooserDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveAppChooserDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveAppChooserDialogMethod "setValign" o = WidgetSetValignMethodInfo + ResolveAppChooserDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveAppChooserDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveAppChooserDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveAppChooserDialogMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveAppChooserDialogMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveAppChooserDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveAppChooserDialogMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAppChooserDialogMethod t AppChooserDialog, MethodInfo info AppChooserDialog p) => IsLabelProxy t (AppChooserDialog -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAppChooserDialogMethod t AppChooserDialog, MethodInfo info AppChooserDialog p) => IsLabel t (AppChooserDialog -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "gfile" -- Type: TInterface "Gio" "File" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] @@ -106,7 +552,7 @@ type AttrSetTypeConstraint AppChooserDialogGfilePropertyInfo = Gio.FileK type AttrBaseTypeConstraint AppChooserDialogGfilePropertyInfo = AppChooserDialogK type AttrGetType AppChooserDialogGfilePropertyInfo = Gio.File - type AttrLabel AppChooserDialogGfilePropertyInfo = "AppChooserDialog::gfile" + type AttrLabel AppChooserDialogGfilePropertyInfo = "gfile" attrGet _ = getAppChooserDialogGfile attrSet _ = undefined attrConstruct _ = constructAppChooserDialogGfile @@ -130,22 +576,21 @@ type AttrSetTypeConstraint AppChooserDialogHeadingPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AppChooserDialogHeadingPropertyInfo = AppChooserDialogK type AttrGetType AppChooserDialogHeadingPropertyInfo = T.Text - type AttrLabel AppChooserDialogHeadingPropertyInfo = "AppChooserDialog::heading" + type AttrLabel AppChooserDialogHeadingPropertyInfo = "heading" attrGet _ = getAppChooserDialogHeading attrSet _ = setAppChooserDialogHeading attrConstruct _ = constructAppChooserDialogHeading type instance AttributeList AppChooserDialog = AppChooserDialogAttributeList -type AppChooserDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("content-type", AppChooserContentTypePropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gfile", AppChooserDialogGfilePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("heading", AppChooserDialogHeadingPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type AppChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gfile", AppChooserDialogGfilePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heading", AppChooserDialogHeadingPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) type instance SignalList AppChooserDialog = AppChooserDialogSignalList -type AppChooserDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AppChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method AppChooserDialog::new -- method type : Constructor --- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "AppChooserDialog" -- throws : False -- Skip return : False @@ -159,10 +604,10 @@ appChooserDialogNew :: (MonadIO m, WindowK a, Gio.FileK b) => - Maybe (a) -> -- parent - [DialogFlags] -> -- flags - b -> -- file - m AppChooserDialog + Maybe (a) -- parent + -> [DialogFlags] -- flags + -> b -- file + -> m AppChooserDialog -- result appChooserDialogNew parent flags file = liftIO $ do maybeParent <- case parent of Nothing -> return nullPtr @@ -180,9 +625,8 @@ -- method AppChooserDialog::new_for_content_type -- method type : Constructor --- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "AppChooserDialog" -- throws : False -- Skip return : False @@ -196,30 +640,29 @@ appChooserDialogNewForContentType :: (MonadIO m, WindowK a) => - Maybe (a) -> -- parent - [DialogFlags] -> -- flags - T.Text -> -- content_type - m AppChooserDialog -appChooserDialogNewForContentType parent flags content_type = liftIO $ do + Maybe (a) -- parent + -> [DialogFlags] -- flags + -> T.Text -- contentType + -> m AppChooserDialog -- result +appChooserDialogNewForContentType parent flags contentType = liftIO $ do maybeParent <- case parent of Nothing -> return nullPtr Just jParent -> do let jParent' = unsafeManagedPtrCastPtr jParent return jParent' let flags' = gflagsToWord flags - content_type' <- textToCString content_type - result <- gtk_app_chooser_dialog_new_for_content_type maybeParent flags' content_type' + contentType' <- textToCString contentType + result <- gtk_app_chooser_dialog_new_for_content_type maybeParent flags' contentType' checkUnexpectedReturnNULL "gtk_app_chooser_dialog_new_for_content_type" result result' <- (newObject AppChooserDialog) result whenJust parent touchManagedPtr - freeMem content_type' + freeMem contentType' return result' -- method AppChooserDialog::get_heading -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -231,8 +674,8 @@ appChooserDialogGetHeading :: (MonadIO m, AppChooserDialogK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result appChooserDialogGetHeading _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_dialog_get_heading _obj' @@ -241,11 +684,14 @@ touchManagedPtr _obj return result' +data AppChooserDialogGetHeadingMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AppChooserDialogK a) => MethodInfo AppChooserDialogGetHeadingMethodInfo a signature where + overloadedMethod _ = appChooserDialogGetHeading + -- method AppChooserDialog::get_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -257,8 +703,8 @@ appChooserDialogGetWidget :: (MonadIO m, AppChooserDialogK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result appChooserDialogGetWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_dialog_get_widget _obj' @@ -267,11 +713,14 @@ touchManagedPtr _obj return result' +data AppChooserDialogGetWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, AppChooserDialogK a) => MethodInfo AppChooserDialogGetWidgetMethodInfo a signature where + overloadedMethod _ = appChooserDialogGetWidget + -- method AppChooserDialog::set_heading -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -284,9 +733,9 @@ appChooserDialogSetHeading :: (MonadIO m, AppChooserDialogK a) => - a -> -- _obj - T.Text -> -- heading - m () + a -- _obj + -> T.Text -- heading + -> m () -- result appChooserDialogSetHeading _obj heading = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj heading' <- textToCString heading @@ -294,5 +743,9 @@ touchManagedPtr _obj freeMem heading' return () + +data AppChooserDialogSetHeadingMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, AppChooserDialogK a) => MethodInfo AppChooserDialogSetHeadingMethodInfo a signature where + overloadedMethod _ = appChooserDialogSetHeading diff --git a/GI/Gtk/Objects/AppChooserDialog.hs-boot b/GI/Gtk/Objects/AppChooserDialog.hs-boot --- a/GI/Gtk/Objects/AppChooserDialog.hs-boot +++ b/GI/Gtk/Objects/AppChooserDialog.hs-boot @@ -13,3 +13,6 @@ instance (GObject o, IsDescendantOf AppChooserDialog o) => AppChooserDialogK o data AppChooserDialogGfilePropertyInfo data AppChooserDialogHeadingPropertyInfo +data AppChooserDialogGetHeadingMethodInfo +data AppChooserDialogGetWidgetMethodInfo +data AppChooserDialogSetHeadingMethodInfo diff --git a/GI/Gtk/Objects/AppChooserWidget.hs b/GI/Gtk/Objects/AppChooserWidget.hs --- a/GI/Gtk/Objects/AppChooserWidget.hs +++ b/GI/Gtk/Objects/AppChooserWidget.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** appChooserWidgetGetDefaultText + AppChooserWidgetGetDefaultTextMethodInfo, appChooserWidgetGetDefaultText , -- ** appChooserWidgetGetShowAll + AppChooserWidgetGetShowAllMethodInfo , appChooserWidgetGetShowAll , -- ** appChooserWidgetGetShowDefault + AppChooserWidgetGetShowDefaultMethodInfo, appChooserWidgetGetShowDefault , -- ** appChooserWidgetGetShowFallback + AppChooserWidgetGetShowFallbackMethodInfo, appChooserWidgetGetShowFallback , -- ** appChooserWidgetGetShowOther + AppChooserWidgetGetShowOtherMethodInfo , appChooserWidgetGetShowOther , -- ** appChooserWidgetGetShowRecommended + AppChooserWidgetGetShowRecommendedMethodInfo, appChooserWidgetGetShowRecommended , @@ -45,26 +52,32 @@ -- ** appChooserWidgetSetDefaultText + AppChooserWidgetSetDefaultTextMethodInfo, appChooserWidgetSetDefaultText , -- ** appChooserWidgetSetShowAll + AppChooserWidgetSetShowAllMethodInfo , appChooserWidgetSetShowAll , -- ** appChooserWidgetSetShowDefault + AppChooserWidgetSetShowDefaultMethodInfo, appChooserWidgetSetShowDefault , -- ** appChooserWidgetSetShowFallback + AppChooserWidgetSetShowFallbackMethodInfo, appChooserWidgetSetShowFallback , -- ** appChooserWidgetSetShowOther + AppChooserWidgetSetShowOtherMethodInfo , appChooserWidgetSetShowOther , -- ** appChooserWidgetSetShowRecommended + AppChooserWidgetSetShowRecommendedMethodInfo, appChooserWidgetSetShowRecommended , @@ -190,6 +203,358 @@ noAppChooserWidget :: Maybe AppChooserWidget noAppChooserWidget = Nothing +type family ResolveAppChooserWidgetMethod (t :: Symbol) (o :: *) :: * where + ResolveAppChooserWidgetMethod "activate" o = WidgetActivateMethodInfo + ResolveAppChooserWidgetMethod "add" o = ContainerAddMethodInfo + ResolveAppChooserWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveAppChooserWidgetMethod "addChild" o = BuildableAddChildMethodInfo + ResolveAppChooserWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveAppChooserWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveAppChooserWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveAppChooserWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveAppChooserWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAppChooserWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAppChooserWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveAppChooserWidgetMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveAppChooserWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveAppChooserWidgetMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveAppChooserWidgetMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveAppChooserWidgetMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveAppChooserWidgetMethod "childType" o = ContainerChildTypeMethodInfo + ResolveAppChooserWidgetMethod "classPath" o = WidgetClassPathMethodInfo + ResolveAppChooserWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveAppChooserWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveAppChooserWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveAppChooserWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveAppChooserWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveAppChooserWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveAppChooserWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveAppChooserWidgetMethod "destroy" o = WidgetDestroyMethodInfo + ResolveAppChooserWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveAppChooserWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveAppChooserWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveAppChooserWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveAppChooserWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveAppChooserWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveAppChooserWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveAppChooserWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveAppChooserWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveAppChooserWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveAppChooserWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveAppChooserWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveAppChooserWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveAppChooserWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveAppChooserWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveAppChooserWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveAppChooserWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveAppChooserWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveAppChooserWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveAppChooserWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveAppChooserWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveAppChooserWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveAppChooserWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveAppChooserWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveAppChooserWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveAppChooserWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveAppChooserWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveAppChooserWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveAppChooserWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveAppChooserWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveAppChooserWidgetMethod "draw" o = WidgetDrawMethodInfo + ResolveAppChooserWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveAppChooserWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveAppChooserWidgetMethod "event" o = WidgetEventMethodInfo + ResolveAppChooserWidgetMethod "forall" o = ContainerForallMethodInfo + ResolveAppChooserWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAppChooserWidgetMethod "foreach" o = ContainerForeachMethodInfo + ResolveAppChooserWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveAppChooserWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAppChooserWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveAppChooserWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveAppChooserWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveAppChooserWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveAppChooserWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveAppChooserWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveAppChooserWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveAppChooserWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveAppChooserWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveAppChooserWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveAppChooserWidgetMethod "hide" o = WidgetHideMethodInfo + ResolveAppChooserWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveAppChooserWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveAppChooserWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveAppChooserWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveAppChooserWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveAppChooserWidgetMethod "intersect" o = WidgetIntersectMethodInfo + ResolveAppChooserWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveAppChooserWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveAppChooserWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveAppChooserWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAppChooserWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveAppChooserWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveAppChooserWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveAppChooserWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveAppChooserWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveAppChooserWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveAppChooserWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveAppChooserWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveAppChooserWidgetMethod "map" o = WidgetMapMethodInfo + ResolveAppChooserWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveAppChooserWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveAppChooserWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveAppChooserWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveAppChooserWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveAppChooserWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveAppChooserWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveAppChooserWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveAppChooserWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAppChooserWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAppChooserWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveAppChooserWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveAppChooserWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveAppChooserWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveAppChooserWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveAppChooserWidgetMethod "packEnd" o = BoxPackEndMethodInfo + ResolveAppChooserWidgetMethod "packStart" o = BoxPackStartMethodInfo + ResolveAppChooserWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveAppChooserWidgetMethod "path" o = WidgetPathMethodInfo + ResolveAppChooserWidgetMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveAppChooserWidgetMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveAppChooserWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveAppChooserWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveAppChooserWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveAppChooserWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveAppChooserWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveAppChooserWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveAppChooserWidgetMethod "realize" o = WidgetRealizeMethodInfo + ResolveAppChooserWidgetMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAppChooserWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAppChooserWidgetMethod "refresh" o = AppChooserRefreshMethodInfo + ResolveAppChooserWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveAppChooserWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveAppChooserWidgetMethod "remove" o = ContainerRemoveMethodInfo + ResolveAppChooserWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveAppChooserWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveAppChooserWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveAppChooserWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveAppChooserWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveAppChooserWidgetMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveAppChooserWidgetMethod "reparent" o = WidgetReparentMethodInfo + ResolveAppChooserWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAppChooserWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAppChooserWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveAppChooserWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveAppChooserWidgetMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveAppChooserWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAppChooserWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveAppChooserWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveAppChooserWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveAppChooserWidgetMethod "show" o = WidgetShowMethodInfo + ResolveAppChooserWidgetMethod "showAll" o = WidgetShowAllMethodInfo + ResolveAppChooserWidgetMethod "showNow" o = WidgetShowNowMethodInfo + ResolveAppChooserWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveAppChooserWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveAppChooserWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveAppChooserWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAppChooserWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAppChooserWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveAppChooserWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveAppChooserWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveAppChooserWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAppChooserWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveAppChooserWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveAppChooserWidgetMethod "unmap" o = WidgetUnmapMethodInfo + ResolveAppChooserWidgetMethod "unparent" o = WidgetUnparentMethodInfo + ResolveAppChooserWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveAppChooserWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAppChooserWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveAppChooserWidgetMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveAppChooserWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveAppChooserWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAppChooserWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveAppChooserWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveAppChooserWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveAppChooserWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveAppChooserWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveAppChooserWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveAppChooserWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveAppChooserWidgetMethod "getAppInfo" o = AppChooserGetAppInfoMethodInfo + ResolveAppChooserWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveAppChooserWidgetMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveAppChooserWidgetMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveAppChooserWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveAppChooserWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveAppChooserWidgetMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveAppChooserWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveAppChooserWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveAppChooserWidgetMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveAppChooserWidgetMethod "getClip" o = WidgetGetClipMethodInfo + ResolveAppChooserWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveAppChooserWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveAppChooserWidgetMethod "getContentType" o = AppChooserGetContentTypeMethodInfo + ResolveAppChooserWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAppChooserWidgetMethod "getDefaultText" o = AppChooserWidgetGetDefaultTextMethodInfo + ResolveAppChooserWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveAppChooserWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveAppChooserWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveAppChooserWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveAppChooserWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveAppChooserWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveAppChooserWidgetMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveAppChooserWidgetMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveAppChooserWidgetMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveAppChooserWidgetMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveAppChooserWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveAppChooserWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveAppChooserWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveAppChooserWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveAppChooserWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveAppChooserWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveAppChooserWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveAppChooserWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveAppChooserWidgetMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveAppChooserWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveAppChooserWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveAppChooserWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveAppChooserWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveAppChooserWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveAppChooserWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveAppChooserWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveAppChooserWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveAppChooserWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveAppChooserWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveAppChooserWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveAppChooserWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveAppChooserWidgetMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveAppChooserWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveAppChooserWidgetMethod "getParent" o = WidgetGetParentMethodInfo + ResolveAppChooserWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveAppChooserWidgetMethod "getPath" o = WidgetGetPathMethodInfo + ResolveAppChooserWidgetMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveAppChooserWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveAppChooserWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveAppChooserWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAppChooserWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveAppChooserWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveAppChooserWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveAppChooserWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveAppChooserWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAppChooserWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAppChooserWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveAppChooserWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveAppChooserWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveAppChooserWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveAppChooserWidgetMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveAppChooserWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveAppChooserWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveAppChooserWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveAppChooserWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveAppChooserWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveAppChooserWidgetMethod "getShowAll" o = AppChooserWidgetGetShowAllMethodInfo + ResolveAppChooserWidgetMethod "getShowDefault" o = AppChooserWidgetGetShowDefaultMethodInfo + ResolveAppChooserWidgetMethod "getShowFallback" o = AppChooserWidgetGetShowFallbackMethodInfo + ResolveAppChooserWidgetMethod "getShowOther" o = AppChooserWidgetGetShowOtherMethodInfo + ResolveAppChooserWidgetMethod "getShowRecommended" o = AppChooserWidgetGetShowRecommendedMethodInfo + ResolveAppChooserWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveAppChooserWidgetMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveAppChooserWidgetMethod "getState" o = WidgetGetStateMethodInfo + ResolveAppChooserWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveAppChooserWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveAppChooserWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveAppChooserWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveAppChooserWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveAppChooserWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveAppChooserWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveAppChooserWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveAppChooserWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveAppChooserWidgetMethod "getValign" o = WidgetGetValignMethodInfo + ResolveAppChooserWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveAppChooserWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveAppChooserWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveAppChooserWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveAppChooserWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveAppChooserWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveAppChooserWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveAppChooserWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveAppChooserWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveAppChooserWidgetMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveAppChooserWidgetMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveAppChooserWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveAppChooserWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveAppChooserWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveAppChooserWidgetMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveAppChooserWidgetMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveAppChooserWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveAppChooserWidgetMethod "setClip" o = WidgetSetClipMethodInfo + ResolveAppChooserWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveAppChooserWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAppChooserWidgetMethod "setDefaultText" o = AppChooserWidgetSetDefaultTextMethodInfo + ResolveAppChooserWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveAppChooserWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveAppChooserWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveAppChooserWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveAppChooserWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveAppChooserWidgetMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveAppChooserWidgetMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveAppChooserWidgetMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveAppChooserWidgetMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveAppChooserWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveAppChooserWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveAppChooserWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveAppChooserWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveAppChooserWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveAppChooserWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveAppChooserWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveAppChooserWidgetMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveAppChooserWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveAppChooserWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveAppChooserWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveAppChooserWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveAppChooserWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveAppChooserWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveAppChooserWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveAppChooserWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveAppChooserWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveAppChooserWidgetMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveAppChooserWidgetMethod "setParent" o = WidgetSetParentMethodInfo + ResolveAppChooserWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveAppChooserWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAppChooserWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveAppChooserWidgetMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveAppChooserWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveAppChooserWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveAppChooserWidgetMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveAppChooserWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveAppChooserWidgetMethod "setShowAll" o = AppChooserWidgetSetShowAllMethodInfo + ResolveAppChooserWidgetMethod "setShowDefault" o = AppChooserWidgetSetShowDefaultMethodInfo + ResolveAppChooserWidgetMethod "setShowFallback" o = AppChooserWidgetSetShowFallbackMethodInfo + ResolveAppChooserWidgetMethod "setShowOther" o = AppChooserWidgetSetShowOtherMethodInfo + ResolveAppChooserWidgetMethod "setShowRecommended" o = AppChooserWidgetSetShowRecommendedMethodInfo + ResolveAppChooserWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveAppChooserWidgetMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveAppChooserWidgetMethod "setState" o = WidgetSetStateMethodInfo + ResolveAppChooserWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveAppChooserWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveAppChooserWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveAppChooserWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveAppChooserWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveAppChooserWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveAppChooserWidgetMethod "setValign" o = WidgetSetValignMethodInfo + ResolveAppChooserWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveAppChooserWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveAppChooserWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveAppChooserWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveAppChooserWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveAppChooserWidgetMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAppChooserWidgetMethod t AppChooserWidget, MethodInfo info AppChooserWidget p) => IsLabelProxy t (AppChooserWidget -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAppChooserWidgetMethod t AppChooserWidget, MethodInfo info AppChooserWidget p) => IsLabel t (AppChooserWidget -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal AppChooserWidget::application-activated type AppChooserWidgetApplicationActivatedCallback = Gio.AppInfo -> @@ -339,7 +704,7 @@ type AttrSetTypeConstraint AppChooserWidgetDefaultTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AppChooserWidgetDefaultTextPropertyInfo = AppChooserWidgetK type AttrGetType AppChooserWidgetDefaultTextPropertyInfo = T.Text - type AttrLabel AppChooserWidgetDefaultTextPropertyInfo = "AppChooserWidget::default-text" + type AttrLabel AppChooserWidgetDefaultTextPropertyInfo = "default-text" attrGet _ = getAppChooserWidgetDefaultText attrSet _ = setAppChooserWidgetDefaultText attrConstruct _ = constructAppChooserWidgetDefaultText @@ -363,7 +728,7 @@ type AttrSetTypeConstraint AppChooserWidgetShowAllPropertyInfo = (~) Bool type AttrBaseTypeConstraint AppChooserWidgetShowAllPropertyInfo = AppChooserWidgetK type AttrGetType AppChooserWidgetShowAllPropertyInfo = Bool - type AttrLabel AppChooserWidgetShowAllPropertyInfo = "AppChooserWidget::show-all" + type AttrLabel AppChooserWidgetShowAllPropertyInfo = "show-all" attrGet _ = getAppChooserWidgetShowAll attrSet _ = setAppChooserWidgetShowAll attrConstruct _ = constructAppChooserWidgetShowAll @@ -387,7 +752,7 @@ type AttrSetTypeConstraint AppChooserWidgetShowDefaultPropertyInfo = (~) Bool type AttrBaseTypeConstraint AppChooserWidgetShowDefaultPropertyInfo = AppChooserWidgetK type AttrGetType AppChooserWidgetShowDefaultPropertyInfo = Bool - type AttrLabel AppChooserWidgetShowDefaultPropertyInfo = "AppChooserWidget::show-default" + type AttrLabel AppChooserWidgetShowDefaultPropertyInfo = "show-default" attrGet _ = getAppChooserWidgetShowDefault attrSet _ = setAppChooserWidgetShowDefault attrConstruct _ = constructAppChooserWidgetShowDefault @@ -411,7 +776,7 @@ type AttrSetTypeConstraint AppChooserWidgetShowFallbackPropertyInfo = (~) Bool type AttrBaseTypeConstraint AppChooserWidgetShowFallbackPropertyInfo = AppChooserWidgetK type AttrGetType AppChooserWidgetShowFallbackPropertyInfo = Bool - type AttrLabel AppChooserWidgetShowFallbackPropertyInfo = "AppChooserWidget::show-fallback" + type AttrLabel AppChooserWidgetShowFallbackPropertyInfo = "show-fallback" attrGet _ = getAppChooserWidgetShowFallback attrSet _ = setAppChooserWidgetShowFallback attrConstruct _ = constructAppChooserWidgetShowFallback @@ -435,7 +800,7 @@ type AttrSetTypeConstraint AppChooserWidgetShowOtherPropertyInfo = (~) Bool type AttrBaseTypeConstraint AppChooserWidgetShowOtherPropertyInfo = AppChooserWidgetK type AttrGetType AppChooserWidgetShowOtherPropertyInfo = Bool - type AttrLabel AppChooserWidgetShowOtherPropertyInfo = "AppChooserWidget::show-other" + type AttrLabel AppChooserWidgetShowOtherPropertyInfo = "show-other" attrGet _ = getAppChooserWidgetShowOther attrSet _ = setAppChooserWidgetShowOther attrConstruct _ = constructAppChooserWidgetShowOther @@ -459,13 +824,13 @@ type AttrSetTypeConstraint AppChooserWidgetShowRecommendedPropertyInfo = (~) Bool type AttrBaseTypeConstraint AppChooserWidgetShowRecommendedPropertyInfo = AppChooserWidgetK type AttrGetType AppChooserWidgetShowRecommendedPropertyInfo = Bool - type AttrLabel AppChooserWidgetShowRecommendedPropertyInfo = "AppChooserWidget::show-recommended" + type AttrLabel AppChooserWidgetShowRecommendedPropertyInfo = "show-recommended" attrGet _ = getAppChooserWidgetShowRecommended attrSet _ = setAppChooserWidgetShowRecommended attrConstruct _ = constructAppChooserWidgetShowRecommended type instance AttributeList AppChooserWidget = AppChooserWidgetAttributeList -type AppChooserWidgetAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("content-type", AppChooserContentTypePropertyInfo), '("default-text", AppChooserWidgetDefaultTextPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-all", AppChooserWidgetShowAllPropertyInfo), '("show-default", AppChooserWidgetShowDefaultPropertyInfo), '("show-fallback", AppChooserWidgetShowFallbackPropertyInfo), '("show-other", AppChooserWidgetShowOtherPropertyInfo), '("show-recommended", AppChooserWidgetShowRecommendedPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type AppChooserWidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("defaultText", AppChooserWidgetDefaultTextPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showAll", AppChooserWidgetShowAllPropertyInfo), '("showDefault", AppChooserWidgetShowDefaultPropertyInfo), '("showFallback", AppChooserWidgetShowFallbackPropertyInfo), '("showOther", AppChooserWidgetShowOtherPropertyInfo), '("showRecommended", AppChooserWidgetShowRecommendedPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data AppChooserWidgetApplicationActivatedSignalInfo instance SignalInfo AppChooserWidgetApplicationActivatedSignalInfo where @@ -483,13 +848,12 @@ connectSignal _ = connectAppChooserWidgetPopulatePopup type instance SignalList AppChooserWidget = AppChooserWidgetSignalList -type AppChooserWidgetSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("application-activated", AppChooserWidgetApplicationActivatedSignalInfo), '("application-selected", AppChooserWidgetApplicationSelectedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", AppChooserWidgetPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AppChooserWidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("applicationActivated", AppChooserWidgetApplicationActivatedSignalInfo), '("applicationSelected", AppChooserWidgetApplicationSelectedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("populatePopup", AppChooserWidgetPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method AppChooserWidget::new -- method type : Constructor --- Args : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "AppChooserWidget" -- throws : False -- Skip return : False @@ -501,21 +865,20 @@ appChooserWidgetNew :: (MonadIO m) => - T.Text -> -- content_type - m AppChooserWidget -appChooserWidgetNew content_type = liftIO $ do - content_type' <- textToCString content_type - result <- gtk_app_chooser_widget_new content_type' + T.Text -- contentType + -> m AppChooserWidget -- result +appChooserWidgetNew contentType = liftIO $ do + contentType' <- textToCString contentType + result <- gtk_app_chooser_widget_new contentType' checkUnexpectedReturnNULL "gtk_app_chooser_widget_new" result result' <- (newObject AppChooserWidget) result - freeMem content_type' + freeMem contentType' return result' -- method AppChooserWidget::get_default_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -527,8 +890,8 @@ appChooserWidgetGetDefaultText :: (MonadIO m, AppChooserWidgetK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result appChooserWidgetGetDefaultText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_widget_get_default_text _obj' @@ -537,11 +900,14 @@ touchManagedPtr _obj return result' +data AppChooserWidgetGetDefaultTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetGetDefaultTextMethodInfo a signature where + overloadedMethod _ = appChooserWidgetGetDefaultText + -- method AppChooserWidget::get_show_all -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -553,8 +919,8 @@ appChooserWidgetGetShowAll :: (MonadIO m, AppChooserWidgetK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result appChooserWidgetGetShowAll _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_widget_get_show_all _obj' @@ -562,11 +928,14 @@ touchManagedPtr _obj return result' +data AppChooserWidgetGetShowAllMethodInfo +instance (signature ~ (m Bool), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetGetShowAllMethodInfo a signature where + overloadedMethod _ = appChooserWidgetGetShowAll + -- method AppChooserWidget::get_show_default -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -578,8 +947,8 @@ appChooserWidgetGetShowDefault :: (MonadIO m, AppChooserWidgetK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result appChooserWidgetGetShowDefault _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_widget_get_show_default _obj' @@ -587,11 +956,14 @@ touchManagedPtr _obj return result' +data AppChooserWidgetGetShowDefaultMethodInfo +instance (signature ~ (m Bool), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetGetShowDefaultMethodInfo a signature where + overloadedMethod _ = appChooserWidgetGetShowDefault + -- method AppChooserWidget::get_show_fallback -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -603,8 +975,8 @@ appChooserWidgetGetShowFallback :: (MonadIO m, AppChooserWidgetK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result appChooserWidgetGetShowFallback _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_widget_get_show_fallback _obj' @@ -612,11 +984,14 @@ touchManagedPtr _obj return result' +data AppChooserWidgetGetShowFallbackMethodInfo +instance (signature ~ (m Bool), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetGetShowFallbackMethodInfo a signature where + overloadedMethod _ = appChooserWidgetGetShowFallback + -- method AppChooserWidget::get_show_other -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -628,8 +1003,8 @@ appChooserWidgetGetShowOther :: (MonadIO m, AppChooserWidgetK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result appChooserWidgetGetShowOther _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_widget_get_show_other _obj' @@ -637,11 +1012,14 @@ touchManagedPtr _obj return result' +data AppChooserWidgetGetShowOtherMethodInfo +instance (signature ~ (m Bool), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetGetShowOtherMethodInfo a signature where + overloadedMethod _ = appChooserWidgetGetShowOther + -- method AppChooserWidget::get_show_recommended -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -653,8 +1031,8 @@ appChooserWidgetGetShowRecommended :: (MonadIO m, AppChooserWidgetK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result appChooserWidgetGetShowRecommended _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_app_chooser_widget_get_show_recommended _obj' @@ -662,11 +1040,14 @@ touchManagedPtr _obj return result' +data AppChooserWidgetGetShowRecommendedMethodInfo +instance (signature ~ (m Bool), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetGetShowRecommendedMethodInfo a signature where + overloadedMethod _ = appChooserWidgetGetShowRecommended + -- method AppChooserWidget::set_default_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -679,9 +1060,9 @@ appChooserWidgetSetDefaultText :: (MonadIO m, AppChooserWidgetK a) => - a -> -- _obj - T.Text -> -- text - m () + a -- _obj + -> T.Text -- text + -> m () -- result appChooserWidgetSetDefaultText _obj text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text @@ -690,11 +1071,14 @@ freeMem text' return () +data AppChooserWidgetSetDefaultTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetSetDefaultTextMethodInfo a signature where + overloadedMethod _ = appChooserWidgetSetDefaultText + -- method AppChooserWidget::set_show_all -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -707,9 +1091,9 @@ appChooserWidgetSetShowAll :: (MonadIO m, AppChooserWidgetK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result appChooserWidgetSetShowAll _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -717,11 +1101,14 @@ touchManagedPtr _obj return () +data AppChooserWidgetSetShowAllMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetSetShowAllMethodInfo a signature where + overloadedMethod _ = appChooserWidgetSetShowAll + -- method AppChooserWidget::set_show_default -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -734,9 +1121,9 @@ appChooserWidgetSetShowDefault :: (MonadIO m, AppChooserWidgetK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result appChooserWidgetSetShowDefault _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -744,11 +1131,14 @@ touchManagedPtr _obj return () +data AppChooserWidgetSetShowDefaultMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetSetShowDefaultMethodInfo a signature where + overloadedMethod _ = appChooserWidgetSetShowDefault + -- method AppChooserWidget::set_show_fallback -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -761,9 +1151,9 @@ appChooserWidgetSetShowFallback :: (MonadIO m, AppChooserWidgetK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result appChooserWidgetSetShowFallback _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -771,11 +1161,14 @@ touchManagedPtr _obj return () +data AppChooserWidgetSetShowFallbackMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetSetShowFallbackMethodInfo a signature where + overloadedMethod _ = appChooserWidgetSetShowFallback + -- method AppChooserWidget::set_show_other -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -788,9 +1181,9 @@ appChooserWidgetSetShowOther :: (MonadIO m, AppChooserWidgetK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result appChooserWidgetSetShowOther _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -798,11 +1191,14 @@ touchManagedPtr _obj return () +data AppChooserWidgetSetShowOtherMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetSetShowOtherMethodInfo a signature where + overloadedMethod _ = appChooserWidgetSetShowOther + -- method AppChooserWidget::set_show_recommended -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -815,14 +1211,18 @@ appChooserWidgetSetShowRecommended :: (MonadIO m, AppChooserWidgetK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result appChooserWidgetSetShowRecommended _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting gtk_app_chooser_widget_set_show_recommended _obj' setting' touchManagedPtr _obj return () + +data AppChooserWidgetSetShowRecommendedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, AppChooserWidgetK a) => MethodInfo AppChooserWidgetSetShowRecommendedMethodInfo a signature where + overloadedMethod _ = appChooserWidgetSetShowRecommended diff --git a/GI/Gtk/Objects/AppChooserWidget.hs-boot b/GI/Gtk/Objects/AppChooserWidget.hs-boot --- a/GI/Gtk/Objects/AppChooserWidget.hs-boot +++ b/GI/Gtk/Objects/AppChooserWidget.hs-boot @@ -20,3 +20,15 @@ data AppChooserWidgetApplicationActivatedSignalInfo data AppChooserWidgetApplicationSelectedSignalInfo data AppChooserWidgetPopulatePopupSignalInfo +data AppChooserWidgetGetDefaultTextMethodInfo +data AppChooserWidgetGetShowAllMethodInfo +data AppChooserWidgetGetShowDefaultMethodInfo +data AppChooserWidgetGetShowFallbackMethodInfo +data AppChooserWidgetGetShowOtherMethodInfo +data AppChooserWidgetGetShowRecommendedMethodInfo +data AppChooserWidgetSetDefaultTextMethodInfo +data AppChooserWidgetSetShowAllMethodInfo +data AppChooserWidgetSetShowDefaultMethodInfo +data AppChooserWidgetSetShowFallbackMethodInfo +data AppChooserWidgetSetShowOtherMethodInfo +data AppChooserWidgetSetShowRecommendedMethodInfo diff --git a/GI/Gtk/Objects/Application.hs b/GI/Gtk/Objects/Application.hs --- a/GI/Gtk/Objects/Application.hs +++ b/GI/Gtk/Objects/Application.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,54 +18,67 @@ -- * Methods -- ** applicationAddAccelerator + ApplicationAddAcceleratorMethodInfo , applicationAddAccelerator , -- ** applicationAddWindow + ApplicationAddWindowMethodInfo , applicationAddWindow , -- ** applicationGetAccelsForAction + ApplicationGetAccelsForActionMethodInfo , applicationGetAccelsForAction , -- ** applicationGetActionsForAccel + ApplicationGetActionsForAccelMethodInfo , applicationGetActionsForAccel , -- ** applicationGetActiveWindow + ApplicationGetActiveWindowMethodInfo , applicationGetActiveWindow , -- ** applicationGetAppMenu + ApplicationGetAppMenuMethodInfo , applicationGetAppMenu , -- ** applicationGetMenuById + ApplicationGetMenuByIdMethodInfo , applicationGetMenuById , -- ** applicationGetMenubar + ApplicationGetMenubarMethodInfo , applicationGetMenubar , -- ** applicationGetWindowById + ApplicationGetWindowByIdMethodInfo , applicationGetWindowById , -- ** applicationGetWindows + ApplicationGetWindowsMethodInfo , applicationGetWindows , -- ** applicationInhibit + ApplicationInhibitMethodInfo , applicationInhibit , -- ** applicationIsInhibited + ApplicationIsInhibitedMethodInfo , applicationIsInhibited , -- ** applicationListActionDescriptions + ApplicationListActionDescriptionsMethodInfo, applicationListActionDescriptions , @@ -73,30 +87,37 @@ -- ** applicationPrefersAppMenu + ApplicationPrefersAppMenuMethodInfo , applicationPrefersAppMenu , -- ** applicationRemoveAccelerator + ApplicationRemoveAcceleratorMethodInfo , applicationRemoveAccelerator , -- ** applicationRemoveWindow + ApplicationRemoveWindowMethodInfo , applicationRemoveWindow , -- ** applicationSetAccelsForAction + ApplicationSetAccelsForActionMethodInfo , applicationSetAccelsForAction , -- ** applicationSetAppMenu + ApplicationSetAppMenuMethodInfo , applicationSetAppMenu , -- ** applicationSetMenubar + ApplicationSetMenubarMethodInfo , applicationSetMenubar , -- ** applicationUninhibit + ApplicationUninhibitMethodInfo , applicationUninhibit , @@ -193,6 +214,108 @@ noApplication :: Maybe Application noApplication = Nothing +type family ResolveApplicationMethod (t :: Symbol) (o :: *) :: * where + ResolveApplicationMethod "actionAdded" o = Gio.ActionGroupActionAddedMethodInfo + ResolveApplicationMethod "actionEnabledChanged" o = Gio.ActionGroupActionEnabledChangedMethodInfo + ResolveApplicationMethod "actionRemoved" o = Gio.ActionGroupActionRemovedMethodInfo + ResolveApplicationMethod "actionStateChanged" o = Gio.ActionGroupActionStateChangedMethodInfo + ResolveApplicationMethod "activate" o = Gio.ApplicationActivateMethodInfo + ResolveApplicationMethod "activateAction" o = Gio.ActionGroupActivateActionMethodInfo + ResolveApplicationMethod "addAccelerator" o = ApplicationAddAcceleratorMethodInfo + ResolveApplicationMethod "addAction" o = Gio.ActionMapAddActionMethodInfo + ResolveApplicationMethod "addActionEntries" o = Gio.ActionMapAddActionEntriesMethodInfo + ResolveApplicationMethod "addMainOption" o = Gio.ApplicationAddMainOptionMethodInfo + ResolveApplicationMethod "addMainOptionEntries" o = Gio.ApplicationAddMainOptionEntriesMethodInfo + ResolveApplicationMethod "addOptionGroup" o = Gio.ApplicationAddOptionGroupMethodInfo + ResolveApplicationMethod "addWindow" o = ApplicationAddWindowMethodInfo + ResolveApplicationMethod "bindBusyProperty" o = Gio.ApplicationBindBusyPropertyMethodInfo + ResolveApplicationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveApplicationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveApplicationMethod "changeActionState" o = Gio.ActionGroupChangeActionStateMethodInfo + ResolveApplicationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveApplicationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveApplicationMethod "hasAction" o = Gio.ActionGroupHasActionMethodInfo + ResolveApplicationMethod "hold" o = Gio.ApplicationHoldMethodInfo + ResolveApplicationMethod "inhibit" o = ApplicationInhibitMethodInfo + ResolveApplicationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveApplicationMethod "isInhibited" o = ApplicationIsInhibitedMethodInfo + ResolveApplicationMethod "listActionDescriptions" o = ApplicationListActionDescriptionsMethodInfo + ResolveApplicationMethod "listActions" o = Gio.ActionGroupListActionsMethodInfo + ResolveApplicationMethod "lookupAction" o = Gio.ActionMapLookupActionMethodInfo + ResolveApplicationMethod "markBusy" o = Gio.ApplicationMarkBusyMethodInfo + ResolveApplicationMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveApplicationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveApplicationMethod "open" o = Gio.ApplicationOpenMethodInfo + ResolveApplicationMethod "prefersAppMenu" o = ApplicationPrefersAppMenuMethodInfo + ResolveApplicationMethod "queryAction" o = Gio.ActionGroupQueryActionMethodInfo + ResolveApplicationMethod "quit" o = Gio.ApplicationQuitMethodInfo + ResolveApplicationMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveApplicationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveApplicationMethod "register" o = Gio.ApplicationRegisterMethodInfo + ResolveApplicationMethod "release" o = Gio.ApplicationReleaseMethodInfo + ResolveApplicationMethod "removeAccelerator" o = ApplicationRemoveAcceleratorMethodInfo + ResolveApplicationMethod "removeAction" o = Gio.ActionMapRemoveActionMethodInfo + ResolveApplicationMethod "removeWindow" o = ApplicationRemoveWindowMethodInfo + ResolveApplicationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveApplicationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveApplicationMethod "run" o = Gio.ApplicationRunMethodInfo + ResolveApplicationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveApplicationMethod "sendNotification" o = Gio.ApplicationSendNotificationMethodInfo + ResolveApplicationMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveApplicationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveApplicationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveApplicationMethod "unbindBusyProperty" o = Gio.ApplicationUnbindBusyPropertyMethodInfo + ResolveApplicationMethod "uninhibit" o = ApplicationUninhibitMethodInfo + ResolveApplicationMethod "unmarkBusy" o = Gio.ApplicationUnmarkBusyMethodInfo + ResolveApplicationMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveApplicationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveApplicationMethod "withdrawNotification" o = Gio.ApplicationWithdrawNotificationMethodInfo + ResolveApplicationMethod "getAccelsForAction" o = ApplicationGetAccelsForActionMethodInfo + ResolveApplicationMethod "getActionEnabled" o = Gio.ActionGroupGetActionEnabledMethodInfo + ResolveApplicationMethod "getActionParameterType" o = Gio.ActionGroupGetActionParameterTypeMethodInfo + ResolveApplicationMethod "getActionState" o = Gio.ActionGroupGetActionStateMethodInfo + ResolveApplicationMethod "getActionStateHint" o = Gio.ActionGroupGetActionStateHintMethodInfo + ResolveApplicationMethod "getActionStateType" o = Gio.ActionGroupGetActionStateTypeMethodInfo + ResolveApplicationMethod "getActionsForAccel" o = ApplicationGetActionsForAccelMethodInfo + ResolveApplicationMethod "getActiveWindow" o = ApplicationGetActiveWindowMethodInfo + ResolveApplicationMethod "getAppMenu" o = ApplicationGetAppMenuMethodInfo + ResolveApplicationMethod "getApplicationId" o = Gio.ApplicationGetApplicationIdMethodInfo + ResolveApplicationMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveApplicationMethod "getDbusConnection" o = Gio.ApplicationGetDbusConnectionMethodInfo + ResolveApplicationMethod "getDbusObjectPath" o = Gio.ApplicationGetDbusObjectPathMethodInfo + ResolveApplicationMethod "getFlags" o = Gio.ApplicationGetFlagsMethodInfo + ResolveApplicationMethod "getInactivityTimeout" o = Gio.ApplicationGetInactivityTimeoutMethodInfo + ResolveApplicationMethod "getIsBusy" o = Gio.ApplicationGetIsBusyMethodInfo + ResolveApplicationMethod "getIsRegistered" o = Gio.ApplicationGetIsRegisteredMethodInfo + ResolveApplicationMethod "getIsRemote" o = Gio.ApplicationGetIsRemoteMethodInfo + ResolveApplicationMethod "getMenuById" o = ApplicationGetMenuByIdMethodInfo + ResolveApplicationMethod "getMenubar" o = ApplicationGetMenubarMethodInfo + ResolveApplicationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveApplicationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveApplicationMethod "getResourceBasePath" o = Gio.ApplicationGetResourceBasePathMethodInfo + ResolveApplicationMethod "getWindowById" o = ApplicationGetWindowByIdMethodInfo + ResolveApplicationMethod "getWindows" o = ApplicationGetWindowsMethodInfo + ResolveApplicationMethod "setAccelsForAction" o = ApplicationSetAccelsForActionMethodInfo + ResolveApplicationMethod "setActionGroup" o = Gio.ApplicationSetActionGroupMethodInfo + ResolveApplicationMethod "setAppMenu" o = ApplicationSetAppMenuMethodInfo + ResolveApplicationMethod "setApplicationId" o = Gio.ApplicationSetApplicationIdMethodInfo + ResolveApplicationMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveApplicationMethod "setDefault" o = Gio.ApplicationSetDefaultMethodInfo + ResolveApplicationMethod "setFlags" o = Gio.ApplicationSetFlagsMethodInfo + ResolveApplicationMethod "setInactivityTimeout" o = Gio.ApplicationSetInactivityTimeoutMethodInfo + ResolveApplicationMethod "setMenubar" o = ApplicationSetMenubarMethodInfo + ResolveApplicationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveApplicationMethod "setResourceBasePath" o = Gio.ApplicationSetResourceBasePathMethodInfo + ResolveApplicationMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveApplicationMethod t Application, MethodInfo info Application p) => IsLabelProxy t (Application -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveApplicationMethod t Application, MethodInfo info Application p) => IsLabel t (Application -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Application::window-added type ApplicationWindowAddedCallback = Window -> @@ -290,7 +413,7 @@ type AttrSetTypeConstraint ApplicationActiveWindowPropertyInfo = (~) () type AttrBaseTypeConstraint ApplicationActiveWindowPropertyInfo = ApplicationK type AttrGetType ApplicationActiveWindowPropertyInfo = Window - type AttrLabel ApplicationActiveWindowPropertyInfo = "Application::active-window" + type AttrLabel ApplicationActiveWindowPropertyInfo = "active-window" attrGet _ = getApplicationActiveWindow attrSet _ = undefined attrConstruct _ = undefined @@ -314,7 +437,7 @@ type AttrSetTypeConstraint ApplicationAppMenuPropertyInfo = Gio.MenuModelK type AttrBaseTypeConstraint ApplicationAppMenuPropertyInfo = ApplicationK type AttrGetType ApplicationAppMenuPropertyInfo = Gio.MenuModel - type AttrLabel ApplicationAppMenuPropertyInfo = "Application::app-menu" + type AttrLabel ApplicationAppMenuPropertyInfo = "app-menu" attrGet _ = getApplicationAppMenu attrSet _ = setApplicationAppMenu attrConstruct _ = constructApplicationAppMenu @@ -338,7 +461,7 @@ type AttrSetTypeConstraint ApplicationMenubarPropertyInfo = Gio.MenuModelK type AttrBaseTypeConstraint ApplicationMenubarPropertyInfo = ApplicationK type AttrGetType ApplicationMenubarPropertyInfo = Gio.MenuModel - type AttrLabel ApplicationMenubarPropertyInfo = "Application::menubar" + type AttrLabel ApplicationMenubarPropertyInfo = "menubar" attrGet _ = getApplicationMenubar attrSet _ = setApplicationMenubar attrConstruct _ = constructApplicationMenubar @@ -362,13 +485,13 @@ type AttrSetTypeConstraint ApplicationRegisterSessionPropertyInfo = (~) Bool type AttrBaseTypeConstraint ApplicationRegisterSessionPropertyInfo = ApplicationK type AttrGetType ApplicationRegisterSessionPropertyInfo = Bool - type AttrLabel ApplicationRegisterSessionPropertyInfo = "Application::register-session" + type AttrLabel ApplicationRegisterSessionPropertyInfo = "register-session" attrGet _ = getApplicationRegisterSession attrSet _ = setApplicationRegisterSession attrConstruct _ = constructApplicationRegisterSession type instance AttributeList Application = ApplicationAttributeList -type ApplicationAttributeList = ('[ '("action-group", Gio.ApplicationActionGroupPropertyInfo), '("active-window", ApplicationActiveWindowPropertyInfo), '("app-menu", ApplicationAppMenuPropertyInfo), '("application-id", Gio.ApplicationApplicationIdPropertyInfo), '("flags", Gio.ApplicationFlagsPropertyInfo), '("inactivity-timeout", Gio.ApplicationInactivityTimeoutPropertyInfo), '("is-busy", Gio.ApplicationIsBusyPropertyInfo), '("is-registered", Gio.ApplicationIsRegisteredPropertyInfo), '("is-remote", Gio.ApplicationIsRemotePropertyInfo), '("menubar", ApplicationMenubarPropertyInfo), '("register-session", ApplicationRegisterSessionPropertyInfo), '("resource-base-path", Gio.ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)]) +type ApplicationAttributeList = ('[ '("actionGroup", Gio.ApplicationActionGroupPropertyInfo), '("activeWindow", ApplicationActiveWindowPropertyInfo), '("appMenu", ApplicationAppMenuPropertyInfo), '("applicationId", Gio.ApplicationApplicationIdPropertyInfo), '("flags", Gio.ApplicationFlagsPropertyInfo), '("inactivityTimeout", Gio.ApplicationInactivityTimeoutPropertyInfo), '("isBusy", Gio.ApplicationIsBusyPropertyInfo), '("isRegistered", Gio.ApplicationIsRegisteredPropertyInfo), '("isRemote", Gio.ApplicationIsRemotePropertyInfo), '("menubar", ApplicationMenubarPropertyInfo), '("registerSession", ApplicationRegisterSessionPropertyInfo), '("resourceBasePath", Gio.ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)]) data ApplicationWindowAddedSignalInfo instance SignalInfo ApplicationWindowAddedSignalInfo where @@ -381,13 +504,12 @@ connectSignal _ = connectApplicationWindowRemoved type instance SignalList Application = ApplicationSignalList -type ApplicationSignalList = ('[ '("action-added", Gio.ActionGroupActionAddedSignalInfo), '("action-enabled-changed", Gio.ActionGroupActionEnabledChangedSignalInfo), '("action-removed", Gio.ActionGroupActionRemovedSignalInfo), '("action-state-changed", Gio.ActionGroupActionStateChangedSignalInfo), '("activate", Gio.ApplicationActivateSignalInfo), '("command-line", Gio.ApplicationCommandLineSignalInfo), '("handle-local-options", Gio.ApplicationHandleLocalOptionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open", Gio.ApplicationOpenSignalInfo), '("shutdown", Gio.ApplicationShutdownSignalInfo), '("startup", Gio.ApplicationStartupSignalInfo), '("window-added", ApplicationWindowAddedSignalInfo), '("window-removed", ApplicationWindowRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ApplicationSignalList = ('[ '("actionAdded", Gio.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroupActionStateChangedSignalInfo), '("activate", Gio.ApplicationActivateSignalInfo), '("commandLine", Gio.ApplicationCommandLineSignalInfo), '("handleLocalOptions", Gio.ApplicationHandleLocalOptionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open", Gio.ApplicationOpenSignalInfo), '("shutdown", Gio.ApplicationShutdownSignalInfo), '("startup", Gio.ApplicationStartupSignalInfo), '("windowAdded", ApplicationWindowAddedSignalInfo), '("windowRemoved", ApplicationWindowRemovedSignalInfo)] :: [(Symbol, *)]) -- method Application::new -- method type : Constructor --- Args : [Arg {argName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Application" -- throws : False -- Skip return : False @@ -400,27 +522,26 @@ applicationNew :: (MonadIO m) => - Maybe (T.Text) -> -- application_id - [Gio.ApplicationFlags] -> -- flags - m Application -applicationNew application_id flags = liftIO $ do - maybeApplication_id <- case application_id of + Maybe (T.Text) -- applicationId + -> [Gio.ApplicationFlags] -- flags + -> m Application -- result +applicationNew applicationId flags = liftIO $ do + maybeApplicationId <- case applicationId of Nothing -> return nullPtr - Just jApplication_id -> do - jApplication_id' <- textToCString jApplication_id - return jApplication_id' + Just jApplicationId -> do + jApplicationId' <- textToCString jApplicationId + return jApplicationId' let flags' = gflagsToWord flags - result <- gtk_application_new maybeApplication_id flags' + result <- gtk_application_new maybeApplicationId flags' checkUnexpectedReturnNULL "gtk_application_new" result result' <- (wrapObject Application) result - freeMem maybeApplication_id + freeMem maybeApplicationId return result' -- method Application::add_accelerator -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -435,31 +556,34 @@ {-# DEPRECATED applicationAddAccelerator ["(Since version 3.14)","Use gtk_application_set_accels_for_action() instead"]#-} applicationAddAccelerator :: (MonadIO m, ApplicationK a) => - a -> -- _obj - T.Text -> -- accelerator - T.Text -> -- action_name - Maybe (GVariant) -> -- parameter - m () -applicationAddAccelerator _obj accelerator action_name parameter = liftIO $ do + a -- _obj + -> T.Text -- accelerator + -> T.Text -- actionName + -> Maybe (GVariant) -- parameter + -> m () -- result +applicationAddAccelerator _obj accelerator actionName parameter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj accelerator' <- textToCString accelerator - action_name' <- textToCString action_name + actionName' <- textToCString actionName maybeParameter <- case parameter of Nothing -> return nullPtr Just jParameter -> do let jParameter' = unsafeManagedPtrGetPtr jParameter return jParameter' - gtk_application_add_accelerator _obj' accelerator' action_name' maybeParameter + gtk_application_add_accelerator _obj' accelerator' actionName' maybeParameter touchManagedPtr _obj freeMem accelerator' - freeMem action_name' + freeMem actionName' return () +data ApplicationAddAcceleratorMethodInfo +instance (signature ~ (T.Text -> T.Text -> Maybe (GVariant) -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationAddAcceleratorMethodInfo a signature where + overloadedMethod _ = applicationAddAccelerator + -- method Application::add_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -472,9 +596,9 @@ applicationAddWindow :: (MonadIO m, ApplicationK a, WindowK b) => - a -> -- _obj - b -> -- window - m () + a -- _obj + -> b -- window + -> m () -- result applicationAddWindow _obj window = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let window' = unsafeManagedPtrCastPtr window @@ -483,11 +607,14 @@ touchManagedPtr window return () +data ApplicationAddWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ApplicationK a, WindowK b) => MethodInfo ApplicationAddWindowMethodInfo a signature where + overloadedMethod _ = applicationAddWindow + -- method Application::get_accels_for_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -500,26 +627,29 @@ applicationGetAccelsForAction :: (MonadIO m, ApplicationK a) => - a -> -- _obj - T.Text -> -- detailed_action_name - m [T.Text] -applicationGetAccelsForAction _obj detailed_action_name = liftIO $ do + a -- _obj + -> T.Text -- detailedActionName + -> m [T.Text] -- result +applicationGetAccelsForAction _obj detailedActionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - detailed_action_name' <- textToCString detailed_action_name - result <- gtk_application_get_accels_for_action _obj' detailed_action_name' + detailedActionName' <- textToCString detailedActionName + result <- gtk_application_get_accels_for_action _obj' detailedActionName' checkUnexpectedReturnNULL "gtk_application_get_accels_for_action" result result' <- unpackZeroTerminatedUTF8CArray result mapZeroTerminatedCArray freeMem result freeMem result touchManagedPtr _obj - freeMem detailed_action_name' + freeMem detailedActionName' return result' +data ApplicationGetAccelsForActionMethodInfo +instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetAccelsForActionMethodInfo a signature where + overloadedMethod _ = applicationGetAccelsForAction + -- method Application::get_actions_for_accel -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -532,9 +662,9 @@ applicationGetActionsForAccel :: (MonadIO m, ApplicationK a) => - a -> -- _obj - T.Text -> -- accel - m [T.Text] + a -- _obj + -> T.Text -- accel + -> m [T.Text] -- result applicationGetActionsForAccel _obj accel = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj accel' <- textToCString accel @@ -547,11 +677,14 @@ freeMem accel' return result' +data ApplicationGetActionsForAccelMethodInfo +instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetActionsForAccelMethodInfo a signature where + overloadedMethod _ = applicationGetActionsForAccel + -- method Application::get_active_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Window" -- throws : False -- Skip return : False @@ -563,8 +696,8 @@ applicationGetActiveWindow :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m Window + a -- _obj + -> m Window -- result applicationGetActiveWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_application_get_active_window _obj' @@ -573,11 +706,14 @@ touchManagedPtr _obj return result' +data ApplicationGetActiveWindowMethodInfo +instance (signature ~ (m Window), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetActiveWindowMethodInfo a signature where + overloadedMethod _ = applicationGetActiveWindow + -- method Application::get_app_menu -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MenuModel" -- throws : False -- Skip return : False @@ -589,8 +725,8 @@ applicationGetAppMenu :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m Gio.MenuModel + a -- _obj + -> m Gio.MenuModel -- result applicationGetAppMenu _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_application_get_app_menu _obj' @@ -599,11 +735,14 @@ touchManagedPtr _obj return result' +data ApplicationGetAppMenuMethodInfo +instance (signature ~ (m Gio.MenuModel), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetAppMenuMethodInfo a signature where + overloadedMethod _ = applicationGetAppMenu + -- method Application::get_menu_by_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Menu" -- throws : False -- Skip return : False @@ -616,9 +755,9 @@ applicationGetMenuById :: (MonadIO m, ApplicationK a) => - a -> -- _obj - T.Text -> -- id - m Gio.Menu + a -- _obj + -> T.Text -- id + -> m Gio.Menu -- result applicationGetMenuById _obj id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj id' <- textToCString id @@ -629,11 +768,14 @@ freeMem id' return result' +data ApplicationGetMenuByIdMethodInfo +instance (signature ~ (T.Text -> m Gio.Menu), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetMenuByIdMethodInfo a signature where + overloadedMethod _ = applicationGetMenuById + -- method Application::get_menubar -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MenuModel" -- throws : False -- Skip return : False @@ -645,8 +787,8 @@ applicationGetMenubar :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m Gio.MenuModel + a -- _obj + -> m Gio.MenuModel -- result applicationGetMenubar _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_application_get_menubar _obj' @@ -655,11 +797,14 @@ touchManagedPtr _obj return result' +data ApplicationGetMenubarMethodInfo +instance (signature ~ (m Gio.MenuModel), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetMenubarMethodInfo a signature where + overloadedMethod _ = applicationGetMenubar + -- method Application::get_window_by_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Window" -- throws : False -- Skip return : False @@ -672,9 +817,9 @@ applicationGetWindowById :: (MonadIO m, ApplicationK a) => - a -> -- _obj - Word32 -> -- id - m Window + a -- _obj + -> Word32 -- id + -> m Window -- result applicationGetWindowById _obj id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_application_get_window_by_id _obj' id @@ -683,11 +828,14 @@ touchManagedPtr _obj return result' +data ApplicationGetWindowByIdMethodInfo +instance (signature ~ (Word32 -> m Window), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetWindowByIdMethodInfo a signature where + overloadedMethod _ = applicationGetWindowById + -- method Application::get_windows -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "Window") -- throws : False -- Skip return : False @@ -699,8 +847,8 @@ applicationGetWindows :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m [Window] + a -- _obj + -> m [Window] -- result applicationGetWindows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_application_get_windows _obj' @@ -710,11 +858,14 @@ touchManagedPtr _obj return result'' +data ApplicationGetWindowsMethodInfo +instance (signature ~ (m [Window]), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetWindowsMethodInfo a signature where + overloadedMethod _ = applicationGetWindows + -- method Application::inhibit -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reason", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -729,11 +880,11 @@ applicationInhibit :: (MonadIO m, ApplicationK a, WindowK b) => - a -> -- _obj - Maybe (b) -> -- window - [ApplicationInhibitFlags] -> -- flags - Maybe (T.Text) -> -- reason - m Word32 + a -- _obj + -> Maybe (b) -- window + -> [ApplicationInhibitFlags] -- flags + -> Maybe (T.Text) -- reason + -> m Word32 -- result applicationInhibit _obj window flags reason = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeWindow <- case window of @@ -753,11 +904,14 @@ freeMem maybeReason return result +data ApplicationInhibitMethodInfo +instance (signature ~ (Maybe (b) -> [ApplicationInhibitFlags] -> Maybe (T.Text) -> m Word32), MonadIO m, ApplicationK a, WindowK b) => MethodInfo ApplicationInhibitMethodInfo a signature where + overloadedMethod _ = applicationInhibit + -- method Application::is_inhibited -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -770,9 +924,9 @@ applicationIsInhibited :: (MonadIO m, ApplicationK a) => - a -> -- _obj - [ApplicationInhibitFlags] -> -- flags - m Bool + a -- _obj + -> [ApplicationInhibitFlags] -- flags + -> m Bool -- result applicationIsInhibited _obj flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let flags' = gflagsToWord flags @@ -781,11 +935,14 @@ touchManagedPtr _obj return result' +data ApplicationIsInhibitedMethodInfo +instance (signature ~ ([ApplicationInhibitFlags] -> m Bool), MonadIO m, ApplicationK a) => MethodInfo ApplicationIsInhibitedMethodInfo a signature where + overloadedMethod _ = applicationIsInhibited + -- method Application::list_action_descriptions -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -797,8 +954,8 @@ applicationListActionDescriptions :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result applicationListActionDescriptions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_application_list_action_descriptions _obj' @@ -809,11 +966,14 @@ touchManagedPtr _obj return result' +data ApplicationListActionDescriptionsMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, ApplicationK a) => MethodInfo ApplicationListActionDescriptionsMethodInfo a signature where + overloadedMethod _ = applicationListActionDescriptions + -- method Application::prefers_app_menu -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -825,8 +985,8 @@ applicationPrefersAppMenu :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result applicationPrefersAppMenu _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_application_prefers_app_menu _obj' @@ -834,11 +994,14 @@ touchManagedPtr _obj return result' +data ApplicationPrefersAppMenuMethodInfo +instance (signature ~ (m Bool), MonadIO m, ApplicationK a) => MethodInfo ApplicationPrefersAppMenuMethodInfo a signature where + overloadedMethod _ = applicationPrefersAppMenu + -- method Application::remove_accelerator -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -852,28 +1015,31 @@ {-# DEPRECATED applicationRemoveAccelerator ["(Since version 3.14)","Use gtk_application_set_accels_for_action() instead"]#-} applicationRemoveAccelerator :: (MonadIO m, ApplicationK a) => - a -> -- _obj - T.Text -> -- action_name - Maybe (GVariant) -> -- parameter - m () -applicationRemoveAccelerator _obj action_name parameter = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> Maybe (GVariant) -- parameter + -> m () -- result +applicationRemoveAccelerator _obj actionName parameter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name + actionName' <- textToCString actionName maybeParameter <- case parameter of Nothing -> return nullPtr Just jParameter -> do let jParameter' = unsafeManagedPtrGetPtr jParameter return jParameter' - gtk_application_remove_accelerator _obj' action_name' maybeParameter + gtk_application_remove_accelerator _obj' actionName' maybeParameter touchManagedPtr _obj - freeMem action_name' + freeMem actionName' return () +data ApplicationRemoveAcceleratorMethodInfo +instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationRemoveAcceleratorMethodInfo a signature where + overloadedMethod _ = applicationRemoveAccelerator + -- method Application::remove_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -886,9 +1052,9 @@ applicationRemoveWindow :: (MonadIO m, ApplicationK a, WindowK b) => - a -> -- _obj - b -> -- window - m () + a -- _obj + -> b -- window + -> m () -- result applicationRemoveWindow _obj window = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let window' = unsafeManagedPtrCastPtr window @@ -897,11 +1063,14 @@ touchManagedPtr window return () +data ApplicationRemoveWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ApplicationK a, WindowK b) => MethodInfo ApplicationRemoveWindowMethodInfo a signature where + overloadedMethod _ = applicationRemoveWindow + -- method Application::set_accels_for_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accels", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accels", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accels", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -915,26 +1084,29 @@ applicationSetAccelsForAction :: (MonadIO m, ApplicationK a) => - a -> -- _obj - T.Text -> -- detailed_action_name - [T.Text] -> -- accels - m () -applicationSetAccelsForAction _obj detailed_action_name accels = liftIO $ do + a -- _obj + -> T.Text -- detailedActionName + -> [T.Text] -- accels + -> m () -- result +applicationSetAccelsForAction _obj detailedActionName accels = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - detailed_action_name' <- textToCString detailed_action_name + detailedActionName' <- textToCString detailedActionName accels' <- packZeroTerminatedUTF8CArray accels - gtk_application_set_accels_for_action _obj' detailed_action_name' accels' + gtk_application_set_accels_for_action _obj' detailedActionName' accels' touchManagedPtr _obj - freeMem detailed_action_name' + freeMem detailedActionName' mapZeroTerminatedCArray freeMem accels' freeMem accels' return () +data ApplicationSetAccelsForActionMethodInfo +instance (signature ~ (T.Text -> [T.Text] -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationSetAccelsForActionMethodInfo a signature where + overloadedMethod _ = applicationSetAccelsForAction + -- method Application::set_app_menu -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -947,26 +1119,29 @@ applicationSetAppMenu :: (MonadIO m, ApplicationK a, Gio.MenuModelK b) => - a -> -- _obj - Maybe (b) -> -- app_menu - m () -applicationSetAppMenu _obj app_menu = liftIO $ do + a -- _obj + -> Maybe (b) -- appMenu + -> m () -- result +applicationSetAppMenu _obj appMenu = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeApp_menu <- case app_menu of + maybeAppMenu <- case appMenu of Nothing -> return nullPtr - Just jApp_menu -> do - let jApp_menu' = unsafeManagedPtrCastPtr jApp_menu - return jApp_menu' - gtk_application_set_app_menu _obj' maybeApp_menu + Just jAppMenu -> do + let jAppMenu' = unsafeManagedPtrCastPtr jAppMenu + return jAppMenu' + gtk_application_set_app_menu _obj' maybeAppMenu touchManagedPtr _obj - whenJust app_menu touchManagedPtr + whenJust appMenu touchManagedPtr return () +data ApplicationSetAppMenuMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ApplicationK a, Gio.MenuModelK b) => MethodInfo ApplicationSetAppMenuMethodInfo a signature where + overloadedMethod _ = applicationSetAppMenu + -- method Application::set_menubar -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menubar", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menubar", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menubar", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -979,9 +1154,9 @@ applicationSetMenubar :: (MonadIO m, ApplicationK a, Gio.MenuModelK b) => - a -> -- _obj - Maybe (b) -> -- menubar - m () + a -- _obj + -> Maybe (b) -- menubar + -> m () -- result applicationSetMenubar _obj menubar = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeMenubar <- case menubar of @@ -994,11 +1169,14 @@ whenJust menubar touchManagedPtr return () +data ApplicationSetMenubarMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ApplicationK a, Gio.MenuModelK b) => MethodInfo ApplicationSetMenubarMethodInfo a signature where + overloadedMethod _ = applicationSetMenubar + -- method Application::uninhibit -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1011,13 +1189,17 @@ applicationUninhibit :: (MonadIO m, ApplicationK a) => - a -> -- _obj - Word32 -> -- cookie - m () + a -- _obj + -> Word32 -- cookie + -> m () -- result applicationUninhibit _obj cookie = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_application_uninhibit _obj' cookie touchManagedPtr _obj return () + +data ApplicationUninhibitMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationUninhibitMethodInfo a signature where + overloadedMethod _ = applicationUninhibit diff --git a/GI/Gtk/Objects/Application.hs-boot b/GI/Gtk/Objects/Application.hs-boot --- a/GI/Gtk/Objects/Application.hs-boot +++ b/GI/Gtk/Objects/Application.hs-boot @@ -17,3 +17,23 @@ data ApplicationRegisterSessionPropertyInfo data ApplicationWindowAddedSignalInfo data ApplicationWindowRemovedSignalInfo +data ApplicationAddAcceleratorMethodInfo +data ApplicationAddWindowMethodInfo +data ApplicationGetAccelsForActionMethodInfo +data ApplicationGetActionsForAccelMethodInfo +data ApplicationGetActiveWindowMethodInfo +data ApplicationGetAppMenuMethodInfo +data ApplicationGetMenuByIdMethodInfo +data ApplicationGetMenubarMethodInfo +data ApplicationGetWindowByIdMethodInfo +data ApplicationGetWindowsMethodInfo +data ApplicationInhibitMethodInfo +data ApplicationIsInhibitedMethodInfo +data ApplicationListActionDescriptionsMethodInfo +data ApplicationPrefersAppMenuMethodInfo +data ApplicationRemoveAcceleratorMethodInfo +data ApplicationRemoveWindowMethodInfo +data ApplicationSetAccelsForActionMethodInfo +data ApplicationSetAppMenuMethodInfo +data ApplicationSetMenubarMethodInfo +data ApplicationUninhibitMethodInfo diff --git a/GI/Gtk/Objects/ApplicationWindow.hs b/GI/Gtk/Objects/ApplicationWindow.hs --- a/GI/Gtk/Objects/ApplicationWindow.hs +++ b/GI/Gtk/Objects/ApplicationWindow.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** applicationWindowGetId + ApplicationWindowGetIdMethodInfo , applicationWindowGetId , -- ** applicationWindowGetShowMenubar + ApplicationWindowGetShowMenubarMethodInfo, applicationWindowGetShowMenubar , @@ -29,6 +32,7 @@ -- ** applicationWindowSetShowMenubar + ApplicationWindowSetShowMenubarMethodInfo, applicationWindowSetShowMenubar , @@ -80,6 +84,451 @@ noApplicationWindow :: Maybe ApplicationWindow noApplicationWindow = Nothing +type family ResolveApplicationWindowMethod (t :: Symbol) (o :: *) :: * where + ResolveApplicationWindowMethod "actionAdded" o = Gio.ActionGroupActionAddedMethodInfo + ResolveApplicationWindowMethod "actionEnabledChanged" o = Gio.ActionGroupActionEnabledChangedMethodInfo + ResolveApplicationWindowMethod "actionRemoved" o = Gio.ActionGroupActionRemovedMethodInfo + ResolveApplicationWindowMethod "actionStateChanged" o = Gio.ActionGroupActionStateChangedMethodInfo + ResolveApplicationWindowMethod "activate" o = WidgetActivateMethodInfo + ResolveApplicationWindowMethod "activateAction" o = Gio.ActionGroupActivateActionMethodInfo + ResolveApplicationWindowMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveApplicationWindowMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveApplicationWindowMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveApplicationWindowMethod "add" o = ContainerAddMethodInfo + ResolveApplicationWindowMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveApplicationWindowMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveApplicationWindowMethod "addAction" o = Gio.ActionMapAddActionMethodInfo + ResolveApplicationWindowMethod "addActionEntries" o = Gio.ActionMapAddActionEntriesMethodInfo + ResolveApplicationWindowMethod "addChild" o = BuildableAddChildMethodInfo + ResolveApplicationWindowMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveApplicationWindowMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveApplicationWindowMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveApplicationWindowMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveApplicationWindowMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveApplicationWindowMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveApplicationWindowMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveApplicationWindowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveApplicationWindowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveApplicationWindowMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveApplicationWindowMethod "changeActionState" o = Gio.ActionGroupChangeActionStateMethodInfo + ResolveApplicationWindowMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveApplicationWindowMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveApplicationWindowMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveApplicationWindowMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveApplicationWindowMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveApplicationWindowMethod "childType" o = ContainerChildTypeMethodInfo + ResolveApplicationWindowMethod "classPath" o = WidgetClassPathMethodInfo + ResolveApplicationWindowMethod "close" o = WindowCloseMethodInfo + ResolveApplicationWindowMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveApplicationWindowMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveApplicationWindowMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveApplicationWindowMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveApplicationWindowMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveApplicationWindowMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveApplicationWindowMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveApplicationWindowMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveApplicationWindowMethod "destroy" o = WidgetDestroyMethodInfo + ResolveApplicationWindowMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveApplicationWindowMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveApplicationWindowMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveApplicationWindowMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveApplicationWindowMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveApplicationWindowMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveApplicationWindowMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveApplicationWindowMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveApplicationWindowMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveApplicationWindowMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveApplicationWindowMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveApplicationWindowMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveApplicationWindowMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveApplicationWindowMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveApplicationWindowMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveApplicationWindowMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveApplicationWindowMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveApplicationWindowMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveApplicationWindowMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveApplicationWindowMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveApplicationWindowMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveApplicationWindowMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveApplicationWindowMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveApplicationWindowMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveApplicationWindowMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveApplicationWindowMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveApplicationWindowMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveApplicationWindowMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveApplicationWindowMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveApplicationWindowMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveApplicationWindowMethod "draw" o = WidgetDrawMethodInfo + ResolveApplicationWindowMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveApplicationWindowMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveApplicationWindowMethod "event" o = WidgetEventMethodInfo + ResolveApplicationWindowMethod "forall" o = ContainerForallMethodInfo + ResolveApplicationWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveApplicationWindowMethod "foreach" o = ContainerForeachMethodInfo + ResolveApplicationWindowMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveApplicationWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveApplicationWindowMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveApplicationWindowMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveApplicationWindowMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveApplicationWindowMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveApplicationWindowMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveApplicationWindowMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveApplicationWindowMethod "hasAction" o = Gio.ActionGroupHasActionMethodInfo + ResolveApplicationWindowMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveApplicationWindowMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveApplicationWindowMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveApplicationWindowMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveApplicationWindowMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveApplicationWindowMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveApplicationWindowMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveApplicationWindowMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveApplicationWindowMethod "hide" o = WidgetHideMethodInfo + ResolveApplicationWindowMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveApplicationWindowMethod "iconify" o = WindowIconifyMethodInfo + ResolveApplicationWindowMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveApplicationWindowMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveApplicationWindowMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveApplicationWindowMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveApplicationWindowMethod "intersect" o = WidgetIntersectMethodInfo + ResolveApplicationWindowMethod "isActive" o = WindowIsActiveMethodInfo + ResolveApplicationWindowMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveApplicationWindowMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveApplicationWindowMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveApplicationWindowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveApplicationWindowMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveApplicationWindowMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveApplicationWindowMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveApplicationWindowMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveApplicationWindowMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveApplicationWindowMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveApplicationWindowMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveApplicationWindowMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveApplicationWindowMethod "listActions" o = Gio.ActionGroupListActionsMethodInfo + ResolveApplicationWindowMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveApplicationWindowMethod "lookupAction" o = Gio.ActionMapLookupActionMethodInfo + ResolveApplicationWindowMethod "map" o = WidgetMapMethodInfo + ResolveApplicationWindowMethod "maximize" o = WindowMaximizeMethodInfo + ResolveApplicationWindowMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveApplicationWindowMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveApplicationWindowMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveApplicationWindowMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveApplicationWindowMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveApplicationWindowMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveApplicationWindowMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveApplicationWindowMethod "move" o = WindowMoveMethodInfo + ResolveApplicationWindowMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveApplicationWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveApplicationWindowMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveApplicationWindowMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveApplicationWindowMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveApplicationWindowMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveApplicationWindowMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveApplicationWindowMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveApplicationWindowMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveApplicationWindowMethod "path" o = WidgetPathMethodInfo + ResolveApplicationWindowMethod "present" o = WindowPresentMethodInfo + ResolveApplicationWindowMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveApplicationWindowMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveApplicationWindowMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveApplicationWindowMethod "queryAction" o = Gio.ActionGroupQueryActionMethodInfo + ResolveApplicationWindowMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveApplicationWindowMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveApplicationWindowMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveApplicationWindowMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveApplicationWindowMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveApplicationWindowMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveApplicationWindowMethod "realize" o = WidgetRealizeMethodInfo + ResolveApplicationWindowMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveApplicationWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveApplicationWindowMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveApplicationWindowMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveApplicationWindowMethod "remove" o = ContainerRemoveMethodInfo + ResolveApplicationWindowMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveApplicationWindowMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveApplicationWindowMethod "removeAction" o = Gio.ActionMapRemoveActionMethodInfo + ResolveApplicationWindowMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveApplicationWindowMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveApplicationWindowMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveApplicationWindowMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveApplicationWindowMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveApplicationWindowMethod "reparent" o = WidgetReparentMethodInfo + ResolveApplicationWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveApplicationWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveApplicationWindowMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveApplicationWindowMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveApplicationWindowMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveApplicationWindowMethod "resize" o = WindowResizeMethodInfo + ResolveApplicationWindowMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveApplicationWindowMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveApplicationWindowMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveApplicationWindowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveApplicationWindowMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveApplicationWindowMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveApplicationWindowMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveApplicationWindowMethod "show" o = WidgetShowMethodInfo + ResolveApplicationWindowMethod "showAll" o = WidgetShowAllMethodInfo + ResolveApplicationWindowMethod "showNow" o = WidgetShowNowMethodInfo + ResolveApplicationWindowMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveApplicationWindowMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveApplicationWindowMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveApplicationWindowMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveApplicationWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveApplicationWindowMethod "stick" o = WindowStickMethodInfo + ResolveApplicationWindowMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveApplicationWindowMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveApplicationWindowMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveApplicationWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveApplicationWindowMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveApplicationWindowMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveApplicationWindowMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveApplicationWindowMethod "unmap" o = WidgetUnmapMethodInfo + ResolveApplicationWindowMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveApplicationWindowMethod "unparent" o = WidgetUnparentMethodInfo + ResolveApplicationWindowMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveApplicationWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveApplicationWindowMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveApplicationWindowMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveApplicationWindowMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveApplicationWindowMethod "unstick" o = WindowUnstickMethodInfo + ResolveApplicationWindowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveApplicationWindowMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveApplicationWindowMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveApplicationWindowMethod "getActionEnabled" o = Gio.ActionGroupGetActionEnabledMethodInfo + ResolveApplicationWindowMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveApplicationWindowMethod "getActionParameterType" o = Gio.ActionGroupGetActionParameterTypeMethodInfo + ResolveApplicationWindowMethod "getActionState" o = Gio.ActionGroupGetActionStateMethodInfo + ResolveApplicationWindowMethod "getActionStateHint" o = Gio.ActionGroupGetActionStateHintMethodInfo + ResolveApplicationWindowMethod "getActionStateType" o = Gio.ActionGroupGetActionStateTypeMethodInfo + ResolveApplicationWindowMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveApplicationWindowMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveApplicationWindowMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveApplicationWindowMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveApplicationWindowMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveApplicationWindowMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveApplicationWindowMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveApplicationWindowMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveApplicationWindowMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveApplicationWindowMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveApplicationWindowMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveApplicationWindowMethod "getChild" o = BinGetChildMethodInfo + ResolveApplicationWindowMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveApplicationWindowMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveApplicationWindowMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveApplicationWindowMethod "getClip" o = WidgetGetClipMethodInfo + ResolveApplicationWindowMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveApplicationWindowMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveApplicationWindowMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveApplicationWindowMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveApplicationWindowMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveApplicationWindowMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveApplicationWindowMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveApplicationWindowMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveApplicationWindowMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveApplicationWindowMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveApplicationWindowMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveApplicationWindowMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveApplicationWindowMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveApplicationWindowMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveApplicationWindowMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveApplicationWindowMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveApplicationWindowMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveApplicationWindowMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveApplicationWindowMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveApplicationWindowMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveApplicationWindowMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveApplicationWindowMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveApplicationWindowMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveApplicationWindowMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveApplicationWindowMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveApplicationWindowMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveApplicationWindowMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveApplicationWindowMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveApplicationWindowMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveApplicationWindowMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveApplicationWindowMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveApplicationWindowMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveApplicationWindowMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveApplicationWindowMethod "getIcon" o = WindowGetIconMethodInfo + ResolveApplicationWindowMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveApplicationWindowMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveApplicationWindowMethod "getId" o = ApplicationWindowGetIdMethodInfo + ResolveApplicationWindowMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveApplicationWindowMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveApplicationWindowMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveApplicationWindowMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveApplicationWindowMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveApplicationWindowMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveApplicationWindowMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveApplicationWindowMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveApplicationWindowMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveApplicationWindowMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveApplicationWindowMethod "getModal" o = WindowGetModalMethodInfo + ResolveApplicationWindowMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveApplicationWindowMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveApplicationWindowMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveApplicationWindowMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveApplicationWindowMethod "getParent" o = WidgetGetParentMethodInfo + ResolveApplicationWindowMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveApplicationWindowMethod "getPath" o = WidgetGetPathMethodInfo + ResolveApplicationWindowMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveApplicationWindowMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveApplicationWindowMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveApplicationWindowMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveApplicationWindowMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveApplicationWindowMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveApplicationWindowMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveApplicationWindowMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveApplicationWindowMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveApplicationWindowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveApplicationWindowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveApplicationWindowMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveApplicationWindowMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveApplicationWindowMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveApplicationWindowMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveApplicationWindowMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveApplicationWindowMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveApplicationWindowMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveApplicationWindowMethod "getRole" o = WindowGetRoleMethodInfo + ResolveApplicationWindowMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveApplicationWindowMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveApplicationWindowMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveApplicationWindowMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveApplicationWindowMethod "getShowMenubar" o = ApplicationWindowGetShowMenubarMethodInfo + ResolveApplicationWindowMethod "getSize" o = WindowGetSizeMethodInfo + ResolveApplicationWindowMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveApplicationWindowMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveApplicationWindowMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveApplicationWindowMethod "getState" o = WidgetGetStateMethodInfo + ResolveApplicationWindowMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveApplicationWindowMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveApplicationWindowMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveApplicationWindowMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveApplicationWindowMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveApplicationWindowMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveApplicationWindowMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveApplicationWindowMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveApplicationWindowMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveApplicationWindowMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveApplicationWindowMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveApplicationWindowMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveApplicationWindowMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveApplicationWindowMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveApplicationWindowMethod "getValign" o = WidgetGetValignMethodInfo + ResolveApplicationWindowMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveApplicationWindowMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveApplicationWindowMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveApplicationWindowMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveApplicationWindowMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveApplicationWindowMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveApplicationWindowMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveApplicationWindowMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveApplicationWindowMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveApplicationWindowMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveApplicationWindowMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveApplicationWindowMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveApplicationWindowMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveApplicationWindowMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveApplicationWindowMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveApplicationWindowMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveApplicationWindowMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveApplicationWindowMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveApplicationWindowMethod "setClip" o = WidgetSetClipMethodInfo + ResolveApplicationWindowMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveApplicationWindowMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveApplicationWindowMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveApplicationWindowMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveApplicationWindowMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveApplicationWindowMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveApplicationWindowMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveApplicationWindowMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveApplicationWindowMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveApplicationWindowMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveApplicationWindowMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveApplicationWindowMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveApplicationWindowMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveApplicationWindowMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveApplicationWindowMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveApplicationWindowMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveApplicationWindowMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveApplicationWindowMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveApplicationWindowMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveApplicationWindowMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveApplicationWindowMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveApplicationWindowMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveApplicationWindowMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveApplicationWindowMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveApplicationWindowMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveApplicationWindowMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveApplicationWindowMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveApplicationWindowMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveApplicationWindowMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveApplicationWindowMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveApplicationWindowMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveApplicationWindowMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveApplicationWindowMethod "setIcon" o = WindowSetIconMethodInfo + ResolveApplicationWindowMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveApplicationWindowMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveApplicationWindowMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveApplicationWindowMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveApplicationWindowMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveApplicationWindowMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveApplicationWindowMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveApplicationWindowMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveApplicationWindowMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveApplicationWindowMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveApplicationWindowMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveApplicationWindowMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveApplicationWindowMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveApplicationWindowMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveApplicationWindowMethod "setModal" o = WindowSetModalMethodInfo + ResolveApplicationWindowMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveApplicationWindowMethod "setParent" o = WidgetSetParentMethodInfo + ResolveApplicationWindowMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveApplicationWindowMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveApplicationWindowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveApplicationWindowMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveApplicationWindowMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveApplicationWindowMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveApplicationWindowMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveApplicationWindowMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveApplicationWindowMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveApplicationWindowMethod "setRole" o = WindowSetRoleMethodInfo + ResolveApplicationWindowMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveApplicationWindowMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveApplicationWindowMethod "setShowMenubar" o = ApplicationWindowSetShowMenubarMethodInfo + ResolveApplicationWindowMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveApplicationWindowMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveApplicationWindowMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveApplicationWindowMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveApplicationWindowMethod "setState" o = WidgetSetStateMethodInfo + ResolveApplicationWindowMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveApplicationWindowMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveApplicationWindowMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveApplicationWindowMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveApplicationWindowMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveApplicationWindowMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveApplicationWindowMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveApplicationWindowMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveApplicationWindowMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveApplicationWindowMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveApplicationWindowMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveApplicationWindowMethod "setValign" o = WidgetSetValignMethodInfo + ResolveApplicationWindowMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveApplicationWindowMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveApplicationWindowMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveApplicationWindowMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveApplicationWindowMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveApplicationWindowMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveApplicationWindowMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveApplicationWindowMethod t ApplicationWindow, MethodInfo info ApplicationWindow p) => IsLabelProxy t (ApplicationWindow -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveApplicationWindowMethod t ApplicationWindow, MethodInfo info ApplicationWindow p) => IsLabel t (ApplicationWindow -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "show-menubar" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] @@ -99,22 +548,21 @@ type AttrSetTypeConstraint ApplicationWindowShowMenubarPropertyInfo = (~) Bool type AttrBaseTypeConstraint ApplicationWindowShowMenubarPropertyInfo = ApplicationWindowK type AttrGetType ApplicationWindowShowMenubarPropertyInfo = Bool - type AttrLabel ApplicationWindowShowMenubarPropertyInfo = "ApplicationWindow::show-menubar" + type AttrLabel ApplicationWindowShowMenubarPropertyInfo = "show-menubar" attrGet _ = getApplicationWindowShowMenubar attrSet _ = setApplicationWindowShowMenubar attrConstruct _ = constructApplicationWindowShowMenubar type instance AttributeList ApplicationWindow = ApplicationWindowAttributeList -type ApplicationWindowAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-menubar", ApplicationWindowShowMenubarPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type ApplicationWindowAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showMenubar", ApplicationWindowShowMenubarPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ApplicationWindow = ApplicationWindowSignalList -type ApplicationWindowSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("action-added", Gio.ActionGroupActionAddedSignalInfo), '("action-enabled-changed", Gio.ActionGroupActionEnabledChangedSignalInfo), '("action-removed", Gio.ActionGroupActionRemovedSignalInfo), '("action-state-changed", Gio.ActionGroupActionStateChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ApplicationWindowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("actionAdded", Gio.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroupActionStateChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ApplicationWindow::new -- method type : Constructor --- Args : [Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ApplicationWindow" -- throws : False -- Skip return : False @@ -126,8 +574,8 @@ applicationWindowNew :: (MonadIO m, ApplicationK a) => - a -> -- application - m ApplicationWindow + a -- application + -> m ApplicationWindow -- result applicationWindowNew application = liftIO $ do let application' = unsafeManagedPtrCastPtr application result <- gtk_application_window_new application' @@ -138,9 +586,8 @@ -- method ApplicationWindow::get_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -152,19 +599,22 @@ applicationWindowGetId :: (MonadIO m, ApplicationWindowK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result applicationWindowGetId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_application_window_get_id _obj' touchManagedPtr _obj return result +data ApplicationWindowGetIdMethodInfo +instance (signature ~ (m Word32), MonadIO m, ApplicationWindowK a) => MethodInfo ApplicationWindowGetIdMethodInfo a signature where + overloadedMethod _ = applicationWindowGetId + -- method ApplicationWindow::get_show_menubar -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -176,8 +626,8 @@ applicationWindowGetShowMenubar :: (MonadIO m, ApplicationWindowK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result applicationWindowGetShowMenubar _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_application_window_get_show_menubar _obj' @@ -185,11 +635,14 @@ touchManagedPtr _obj return result' +data ApplicationWindowGetShowMenubarMethodInfo +instance (signature ~ (m Bool), MonadIO m, ApplicationWindowK a) => MethodInfo ApplicationWindowGetShowMenubarMethodInfo a signature where + overloadedMethod _ = applicationWindowGetShowMenubar + -- method ApplicationWindow::set_show_menubar -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_menubar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_menubar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_menubar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -202,14 +655,18 @@ applicationWindowSetShowMenubar :: (MonadIO m, ApplicationWindowK a) => - a -> -- _obj - Bool -> -- show_menubar - m () -applicationWindowSetShowMenubar _obj show_menubar = liftIO $ do + a -- _obj + -> Bool -- showMenubar + -> m () -- result +applicationWindowSetShowMenubar _obj showMenubar = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_menubar' = (fromIntegral . fromEnum) show_menubar - gtk_application_window_set_show_menubar _obj' show_menubar' + let showMenubar' = (fromIntegral . fromEnum) showMenubar + gtk_application_window_set_show_menubar _obj' showMenubar' touchManagedPtr _obj return () + +data ApplicationWindowSetShowMenubarMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ApplicationWindowK a) => MethodInfo ApplicationWindowSetShowMenubarMethodInfo a signature where + overloadedMethod _ = applicationWindowSetShowMenubar diff --git a/GI/Gtk/Objects/ApplicationWindow.hs-boot b/GI/Gtk/Objects/ApplicationWindow.hs-boot --- a/GI/Gtk/Objects/ApplicationWindow.hs-boot +++ b/GI/Gtk/Objects/ApplicationWindow.hs-boot @@ -12,3 +12,6 @@ class GObject o => ApplicationWindowK o instance (GObject o, IsDescendantOf ApplicationWindow o) => ApplicationWindowK o data ApplicationWindowShowMenubarPropertyInfo +data ApplicationWindowGetIdMethodInfo +data ApplicationWindowGetShowMenubarMethodInfo +data ApplicationWindowSetShowMenubarMethodInfo diff --git a/GI/Gtk/Objects/Arrow.hs b/GI/Gtk/Objects/Arrow.hs --- a/GI/Gtk/Objects/Arrow.hs +++ b/GI/Gtk/Objects/Arrow.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,6 +22,7 @@ -- ** arrowSet + ArrowSetMethodInfo , arrowSet , @@ -78,6 +80,307 @@ noArrow :: Maybe Arrow noArrow = Nothing +type family ResolveArrowMethod (t :: Symbol) (o :: *) :: * where + ResolveArrowMethod "activate" o = WidgetActivateMethodInfo + ResolveArrowMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveArrowMethod "addChild" o = BuildableAddChildMethodInfo + ResolveArrowMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveArrowMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveArrowMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveArrowMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveArrowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveArrowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveArrowMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveArrowMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveArrowMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveArrowMethod "classPath" o = WidgetClassPathMethodInfo + ResolveArrowMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveArrowMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveArrowMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveArrowMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveArrowMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveArrowMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveArrowMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveArrowMethod "destroy" o = WidgetDestroyMethodInfo + ResolveArrowMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveArrowMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveArrowMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveArrowMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveArrowMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveArrowMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveArrowMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveArrowMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveArrowMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveArrowMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveArrowMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveArrowMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveArrowMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveArrowMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveArrowMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveArrowMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveArrowMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveArrowMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveArrowMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveArrowMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveArrowMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveArrowMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveArrowMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveArrowMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveArrowMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveArrowMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveArrowMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveArrowMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveArrowMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveArrowMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveArrowMethod "draw" o = WidgetDrawMethodInfo + ResolveArrowMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveArrowMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveArrowMethod "event" o = WidgetEventMethodInfo + ResolveArrowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveArrowMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveArrowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveArrowMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveArrowMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveArrowMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveArrowMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveArrowMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveArrowMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveArrowMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveArrowMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveArrowMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveArrowMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveArrowMethod "hide" o = WidgetHideMethodInfo + ResolveArrowMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveArrowMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveArrowMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveArrowMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveArrowMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveArrowMethod "intersect" o = WidgetIntersectMethodInfo + ResolveArrowMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveArrowMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveArrowMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveArrowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveArrowMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveArrowMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveArrowMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveArrowMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveArrowMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveArrowMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveArrowMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveArrowMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveArrowMethod "map" o = WidgetMapMethodInfo + ResolveArrowMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveArrowMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveArrowMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveArrowMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveArrowMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveArrowMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveArrowMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveArrowMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveArrowMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveArrowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveArrowMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveArrowMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveArrowMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveArrowMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveArrowMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveArrowMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveArrowMethod "path" o = WidgetPathMethodInfo + ResolveArrowMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveArrowMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveArrowMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveArrowMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveArrowMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveArrowMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveArrowMethod "realize" o = WidgetRealizeMethodInfo + ResolveArrowMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveArrowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveArrowMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveArrowMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveArrowMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveArrowMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveArrowMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveArrowMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveArrowMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveArrowMethod "reparent" o = WidgetReparentMethodInfo + ResolveArrowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveArrowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveArrowMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveArrowMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveArrowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveArrowMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveArrowMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveArrowMethod "set" o = ArrowSetMethodInfo + ResolveArrowMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveArrowMethod "show" o = WidgetShowMethodInfo + ResolveArrowMethod "showAll" o = WidgetShowAllMethodInfo + ResolveArrowMethod "showNow" o = WidgetShowNowMethodInfo + ResolveArrowMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveArrowMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveArrowMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveArrowMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveArrowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveArrowMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveArrowMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveArrowMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveArrowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveArrowMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveArrowMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveArrowMethod "unmap" o = WidgetUnmapMethodInfo + ResolveArrowMethod "unparent" o = WidgetUnparentMethodInfo + ResolveArrowMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveArrowMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveArrowMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveArrowMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveArrowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveArrowMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveArrowMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveArrowMethod "getAlignment" o = MiscGetAlignmentMethodInfo + ResolveArrowMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveArrowMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveArrowMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveArrowMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveArrowMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveArrowMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveArrowMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveArrowMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveArrowMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveArrowMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveArrowMethod "getClip" o = WidgetGetClipMethodInfo + ResolveArrowMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveArrowMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveArrowMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveArrowMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveArrowMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveArrowMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveArrowMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveArrowMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveArrowMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveArrowMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveArrowMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveArrowMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveArrowMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveArrowMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveArrowMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveArrowMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveArrowMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveArrowMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveArrowMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveArrowMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveArrowMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveArrowMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveArrowMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveArrowMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveArrowMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveArrowMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveArrowMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveArrowMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveArrowMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveArrowMethod "getPadding" o = MiscGetPaddingMethodInfo + ResolveArrowMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveArrowMethod "getParent" o = WidgetGetParentMethodInfo + ResolveArrowMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveArrowMethod "getPath" o = WidgetGetPathMethodInfo + ResolveArrowMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveArrowMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveArrowMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveArrowMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveArrowMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveArrowMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveArrowMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveArrowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveArrowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveArrowMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveArrowMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveArrowMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveArrowMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveArrowMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveArrowMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveArrowMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveArrowMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveArrowMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveArrowMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveArrowMethod "getState" o = WidgetGetStateMethodInfo + ResolveArrowMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveArrowMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveArrowMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveArrowMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveArrowMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveArrowMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveArrowMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveArrowMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveArrowMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveArrowMethod "getValign" o = WidgetGetValignMethodInfo + ResolveArrowMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveArrowMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveArrowMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveArrowMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveArrowMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveArrowMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveArrowMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveArrowMethod "setAlignment" o = MiscSetAlignmentMethodInfo + ResolveArrowMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveArrowMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveArrowMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveArrowMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveArrowMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveArrowMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveArrowMethod "setClip" o = WidgetSetClipMethodInfo + ResolveArrowMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveArrowMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveArrowMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveArrowMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveArrowMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveArrowMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveArrowMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveArrowMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveArrowMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveArrowMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveArrowMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveArrowMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveArrowMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveArrowMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveArrowMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveArrowMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveArrowMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveArrowMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveArrowMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveArrowMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveArrowMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveArrowMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveArrowMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveArrowMethod "setPadding" o = MiscSetPaddingMethodInfo + ResolveArrowMethod "setParent" o = WidgetSetParentMethodInfo + ResolveArrowMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveArrowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveArrowMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveArrowMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveArrowMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveArrowMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveArrowMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveArrowMethod "setState" o = WidgetSetStateMethodInfo + ResolveArrowMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveArrowMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveArrowMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveArrowMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveArrowMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveArrowMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveArrowMethod "setValign" o = WidgetSetValignMethodInfo + ResolveArrowMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveArrowMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveArrowMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveArrowMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveArrowMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveArrowMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveArrowMethod t Arrow, MethodInfo info Arrow p) => IsLabelProxy t (Arrow -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveArrowMethod t Arrow, MethodInfo info Arrow p) => IsLabel t (Arrow -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "arrow-type" -- Type: TInterface "Gtk" "ArrowType" -- Flags: [PropertyReadable,PropertyWritable] @@ -97,7 +400,7 @@ type AttrSetTypeConstraint ArrowArrowTypePropertyInfo = (~) ArrowType type AttrBaseTypeConstraint ArrowArrowTypePropertyInfo = ArrowK type AttrGetType ArrowArrowTypePropertyInfo = ArrowType - type AttrLabel ArrowArrowTypePropertyInfo = "Arrow::arrow-type" + type AttrLabel ArrowArrowTypePropertyInfo = "arrow-type" attrGet _ = getArrowArrowType attrSet _ = setArrowArrowType attrConstruct _ = constructArrowArrowType @@ -121,22 +424,21 @@ type AttrSetTypeConstraint ArrowShadowTypePropertyInfo = (~) ShadowType type AttrBaseTypeConstraint ArrowShadowTypePropertyInfo = ArrowK type AttrGetType ArrowShadowTypePropertyInfo = ShadowType - type AttrLabel ArrowShadowTypePropertyInfo = "Arrow::shadow-type" + type AttrLabel ArrowShadowTypePropertyInfo = "shadow-type" attrGet _ = getArrowShadowType attrSet _ = setArrowShadowType attrConstruct _ = constructArrowShadowType type instance AttributeList Arrow = ArrowAttributeList -type ArrowAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("arrow-type", ArrowArrowTypePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ArrowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +type ArrowAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("arrowType", ArrowArrowTypePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ArrowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Arrow = ArrowSignalList -type ArrowSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ArrowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Arrow::new -- method type : Constructor --- Args : [Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Arrow" -- throws : False -- Skip return : False @@ -149,22 +451,21 @@ {-# DEPRECATED arrowNew ["(Since version 3.14)","Use a #GtkImage with a suitable icon."]#-} arrowNew :: (MonadIO m) => - ArrowType -> -- arrow_type - ShadowType -> -- shadow_type - m Arrow -arrowNew arrow_type shadow_type = liftIO $ do - let arrow_type' = (fromIntegral . fromEnum) arrow_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - result <- gtk_arrow_new arrow_type' shadow_type' + ArrowType -- arrowType + -> ShadowType -- shadowType + -> m Arrow -- result +arrowNew arrowType shadowType = liftIO $ do + let arrowType' = (fromIntegral . fromEnum) arrowType + let shadowType' = (fromIntegral . fromEnum) shadowType + result <- gtk_arrow_new arrowType' shadowType' checkUnexpectedReturnNULL "gtk_arrow_new" result result' <- (newObject Arrow) result return result' -- method Arrow::set -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Arrow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Arrow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Arrow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -178,16 +479,20 @@ {-# DEPRECATED arrowSet ["(Since version 3.14)","Use a #GtkImage with a suitable icon."]#-} arrowSet :: (MonadIO m, ArrowK a) => - a -> -- _obj - ArrowType -> -- arrow_type - ShadowType -> -- shadow_type - m () -arrowSet _obj arrow_type shadow_type = liftIO $ do + a -- _obj + -> ArrowType -- arrowType + -> ShadowType -- shadowType + -> m () -- result +arrowSet _obj arrowType shadowType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let arrow_type' = (fromIntegral . fromEnum) arrow_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - gtk_arrow_set _obj' arrow_type' shadow_type' + let arrowType' = (fromIntegral . fromEnum) arrowType + let shadowType' = (fromIntegral . fromEnum) shadowType + gtk_arrow_set _obj' arrowType' shadowType' touchManagedPtr _obj return () + +data ArrowSetMethodInfo +instance (signature ~ (ArrowType -> ShadowType -> m ()), MonadIO m, ArrowK a) => MethodInfo ArrowSetMethodInfo a signature where + overloadedMethod _ = arrowSet diff --git a/GI/Gtk/Objects/Arrow.hs-boot b/GI/Gtk/Objects/Arrow.hs-boot --- a/GI/Gtk/Objects/Arrow.hs-boot +++ b/GI/Gtk/Objects/Arrow.hs-boot @@ -13,3 +13,4 @@ instance (GObject o, IsDescendantOf Arrow o) => ArrowK o data ArrowArrowTypePropertyInfo data ArrowShadowTypePropertyInfo +data ArrowSetMethodInfo diff --git a/GI/Gtk/Objects/ArrowAccessible.hs b/GI/Gtk/Objects/ArrowAccessible.hs --- a/GI/Gtk/Objects/ArrowAccessible.hs +++ b/GI/Gtk/Objects/ArrowAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,83 @@ noArrowAccessible :: Maybe ArrowAccessible noArrowAccessible = Nothing +type family ResolveArrowAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveArrowAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveArrowAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveArrowAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveArrowAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveArrowAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveArrowAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveArrowAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveArrowAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveArrowAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveArrowAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveArrowAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveArrowAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveArrowAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveArrowAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveArrowAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveArrowAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveArrowAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveArrowAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveArrowAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveArrowAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveArrowAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveArrowAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveArrowAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveArrowAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveArrowAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveArrowAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveArrowAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveArrowAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveArrowAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveArrowAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveArrowAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveArrowAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveArrowAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveArrowAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveArrowAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveArrowAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveArrowAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo + ResolveArrowAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo + ResolveArrowAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo + ResolveArrowAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo + ResolveArrowAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveArrowAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveArrowAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveArrowAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveArrowAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveArrowAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveArrowAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveArrowAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveArrowAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveArrowAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveArrowAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveArrowAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveArrowAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveArrowAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveArrowAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo + ResolveArrowAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveArrowAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveArrowAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveArrowAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveArrowAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveArrowAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveArrowAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveArrowAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveArrowAccessibleMethod t ArrowAccessible, MethodInfo info ArrowAccessible p) => IsLabelProxy t (ArrowAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveArrowAccessibleMethod t ArrowAccessible, MethodInfo info ArrowAccessible p) => IsLabel t (ArrowAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ArrowAccessible = ArrowAccessibleAttributeList -type ArrowAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ArrowAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ArrowAccessible = ArrowAccessibleSignalList -type ArrowAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ArrowAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/AspectFrame.hs b/GI/Gtk/Objects/AspectFrame.hs --- a/GI/Gtk/Objects/AspectFrame.hs +++ b/GI/Gtk/Objects/AspectFrame.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,6 +22,7 @@ -- ** aspectFrameSet + AspectFrameSetMethodInfo , aspectFrameSet , @@ -92,6 +94,338 @@ noAspectFrame :: Maybe AspectFrame noAspectFrame = Nothing +type family ResolveAspectFrameMethod (t :: Symbol) (o :: *) :: * where + ResolveAspectFrameMethod "activate" o = WidgetActivateMethodInfo + ResolveAspectFrameMethod "add" o = ContainerAddMethodInfo + ResolveAspectFrameMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveAspectFrameMethod "addChild" o = BuildableAddChildMethodInfo + ResolveAspectFrameMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveAspectFrameMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveAspectFrameMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveAspectFrameMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveAspectFrameMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAspectFrameMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAspectFrameMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveAspectFrameMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveAspectFrameMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveAspectFrameMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveAspectFrameMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveAspectFrameMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveAspectFrameMethod "childType" o = ContainerChildTypeMethodInfo + ResolveAspectFrameMethod "classPath" o = WidgetClassPathMethodInfo + ResolveAspectFrameMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveAspectFrameMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveAspectFrameMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveAspectFrameMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveAspectFrameMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveAspectFrameMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveAspectFrameMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveAspectFrameMethod "destroy" o = WidgetDestroyMethodInfo + ResolveAspectFrameMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveAspectFrameMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveAspectFrameMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveAspectFrameMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveAspectFrameMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveAspectFrameMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveAspectFrameMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveAspectFrameMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveAspectFrameMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveAspectFrameMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveAspectFrameMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveAspectFrameMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveAspectFrameMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveAspectFrameMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveAspectFrameMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveAspectFrameMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveAspectFrameMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveAspectFrameMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveAspectFrameMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveAspectFrameMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveAspectFrameMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveAspectFrameMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveAspectFrameMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveAspectFrameMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveAspectFrameMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveAspectFrameMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveAspectFrameMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveAspectFrameMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveAspectFrameMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveAspectFrameMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveAspectFrameMethod "draw" o = WidgetDrawMethodInfo + ResolveAspectFrameMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveAspectFrameMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveAspectFrameMethod "event" o = WidgetEventMethodInfo + ResolveAspectFrameMethod "forall" o = ContainerForallMethodInfo + ResolveAspectFrameMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAspectFrameMethod "foreach" o = ContainerForeachMethodInfo + ResolveAspectFrameMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveAspectFrameMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAspectFrameMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveAspectFrameMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveAspectFrameMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveAspectFrameMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveAspectFrameMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveAspectFrameMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveAspectFrameMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveAspectFrameMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveAspectFrameMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveAspectFrameMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveAspectFrameMethod "hide" o = WidgetHideMethodInfo + ResolveAspectFrameMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveAspectFrameMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveAspectFrameMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveAspectFrameMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveAspectFrameMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveAspectFrameMethod "intersect" o = WidgetIntersectMethodInfo + ResolveAspectFrameMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveAspectFrameMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveAspectFrameMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveAspectFrameMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAspectFrameMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveAspectFrameMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveAspectFrameMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveAspectFrameMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveAspectFrameMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveAspectFrameMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveAspectFrameMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveAspectFrameMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveAspectFrameMethod "map" o = WidgetMapMethodInfo + ResolveAspectFrameMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveAspectFrameMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveAspectFrameMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveAspectFrameMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveAspectFrameMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveAspectFrameMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveAspectFrameMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveAspectFrameMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveAspectFrameMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAspectFrameMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAspectFrameMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveAspectFrameMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveAspectFrameMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveAspectFrameMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveAspectFrameMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveAspectFrameMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveAspectFrameMethod "path" o = WidgetPathMethodInfo + ResolveAspectFrameMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveAspectFrameMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveAspectFrameMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveAspectFrameMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveAspectFrameMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveAspectFrameMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveAspectFrameMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveAspectFrameMethod "realize" o = WidgetRealizeMethodInfo + ResolveAspectFrameMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAspectFrameMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAspectFrameMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveAspectFrameMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveAspectFrameMethod "remove" o = ContainerRemoveMethodInfo + ResolveAspectFrameMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveAspectFrameMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveAspectFrameMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveAspectFrameMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveAspectFrameMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveAspectFrameMethod "reparent" o = WidgetReparentMethodInfo + ResolveAspectFrameMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAspectFrameMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAspectFrameMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveAspectFrameMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveAspectFrameMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveAspectFrameMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAspectFrameMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveAspectFrameMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveAspectFrameMethod "set" o = AspectFrameSetMethodInfo + ResolveAspectFrameMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveAspectFrameMethod "show" o = WidgetShowMethodInfo + ResolveAspectFrameMethod "showAll" o = WidgetShowAllMethodInfo + ResolveAspectFrameMethod "showNow" o = WidgetShowNowMethodInfo + ResolveAspectFrameMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveAspectFrameMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveAspectFrameMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveAspectFrameMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAspectFrameMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAspectFrameMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveAspectFrameMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveAspectFrameMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveAspectFrameMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAspectFrameMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveAspectFrameMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveAspectFrameMethod "unmap" o = WidgetUnmapMethodInfo + ResolveAspectFrameMethod "unparent" o = WidgetUnparentMethodInfo + ResolveAspectFrameMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveAspectFrameMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAspectFrameMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveAspectFrameMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveAspectFrameMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveAspectFrameMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAspectFrameMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveAspectFrameMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveAspectFrameMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveAspectFrameMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveAspectFrameMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveAspectFrameMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveAspectFrameMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveAspectFrameMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveAspectFrameMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveAspectFrameMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveAspectFrameMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveAspectFrameMethod "getChild" o = BinGetChildMethodInfo + ResolveAspectFrameMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveAspectFrameMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveAspectFrameMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveAspectFrameMethod "getClip" o = WidgetGetClipMethodInfo + ResolveAspectFrameMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveAspectFrameMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveAspectFrameMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAspectFrameMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveAspectFrameMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveAspectFrameMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveAspectFrameMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveAspectFrameMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveAspectFrameMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveAspectFrameMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveAspectFrameMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveAspectFrameMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveAspectFrameMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveAspectFrameMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveAspectFrameMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveAspectFrameMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveAspectFrameMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveAspectFrameMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveAspectFrameMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveAspectFrameMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveAspectFrameMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveAspectFrameMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveAspectFrameMethod "getLabel" o = FrameGetLabelMethodInfo + ResolveAspectFrameMethod "getLabelAlign" o = FrameGetLabelAlignMethodInfo + ResolveAspectFrameMethod "getLabelWidget" o = FrameGetLabelWidgetMethodInfo + ResolveAspectFrameMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveAspectFrameMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveAspectFrameMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveAspectFrameMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveAspectFrameMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveAspectFrameMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveAspectFrameMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveAspectFrameMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveAspectFrameMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveAspectFrameMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveAspectFrameMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveAspectFrameMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveAspectFrameMethod "getParent" o = WidgetGetParentMethodInfo + ResolveAspectFrameMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveAspectFrameMethod "getPath" o = WidgetGetPathMethodInfo + ResolveAspectFrameMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveAspectFrameMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveAspectFrameMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveAspectFrameMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAspectFrameMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveAspectFrameMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveAspectFrameMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveAspectFrameMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveAspectFrameMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAspectFrameMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAspectFrameMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveAspectFrameMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveAspectFrameMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveAspectFrameMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveAspectFrameMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveAspectFrameMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveAspectFrameMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveAspectFrameMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveAspectFrameMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveAspectFrameMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveAspectFrameMethod "getShadowType" o = FrameGetShadowTypeMethodInfo + ResolveAspectFrameMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveAspectFrameMethod "getState" o = WidgetGetStateMethodInfo + ResolveAspectFrameMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveAspectFrameMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveAspectFrameMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveAspectFrameMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveAspectFrameMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveAspectFrameMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveAspectFrameMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveAspectFrameMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveAspectFrameMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveAspectFrameMethod "getValign" o = WidgetGetValignMethodInfo + ResolveAspectFrameMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveAspectFrameMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveAspectFrameMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveAspectFrameMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveAspectFrameMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveAspectFrameMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveAspectFrameMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveAspectFrameMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveAspectFrameMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveAspectFrameMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveAspectFrameMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveAspectFrameMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveAspectFrameMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveAspectFrameMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveAspectFrameMethod "setClip" o = WidgetSetClipMethodInfo + ResolveAspectFrameMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveAspectFrameMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAspectFrameMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveAspectFrameMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveAspectFrameMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveAspectFrameMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveAspectFrameMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveAspectFrameMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveAspectFrameMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveAspectFrameMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveAspectFrameMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveAspectFrameMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveAspectFrameMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveAspectFrameMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveAspectFrameMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveAspectFrameMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveAspectFrameMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveAspectFrameMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveAspectFrameMethod "setLabel" o = FrameSetLabelMethodInfo + ResolveAspectFrameMethod "setLabelAlign" o = FrameSetLabelAlignMethodInfo + ResolveAspectFrameMethod "setLabelWidget" o = FrameSetLabelWidgetMethodInfo + ResolveAspectFrameMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveAspectFrameMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveAspectFrameMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveAspectFrameMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveAspectFrameMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveAspectFrameMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveAspectFrameMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveAspectFrameMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveAspectFrameMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveAspectFrameMethod "setParent" o = WidgetSetParentMethodInfo + ResolveAspectFrameMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveAspectFrameMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAspectFrameMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveAspectFrameMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveAspectFrameMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveAspectFrameMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveAspectFrameMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveAspectFrameMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveAspectFrameMethod "setShadowType" o = FrameSetShadowTypeMethodInfo + ResolveAspectFrameMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveAspectFrameMethod "setState" o = WidgetSetStateMethodInfo + ResolveAspectFrameMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveAspectFrameMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveAspectFrameMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveAspectFrameMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveAspectFrameMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveAspectFrameMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveAspectFrameMethod "setValign" o = WidgetSetValignMethodInfo + ResolveAspectFrameMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveAspectFrameMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveAspectFrameMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveAspectFrameMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveAspectFrameMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveAspectFrameMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAspectFrameMethod t AspectFrame, MethodInfo info AspectFrame p) => IsLabelProxy t (AspectFrame -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAspectFrameMethod t AspectFrame, MethodInfo info AspectFrame p) => IsLabel t (AspectFrame -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "obey-child" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -111,7 +445,7 @@ type AttrSetTypeConstraint AspectFrameObeyChildPropertyInfo = (~) Bool type AttrBaseTypeConstraint AspectFrameObeyChildPropertyInfo = AspectFrameK type AttrGetType AspectFrameObeyChildPropertyInfo = Bool - type AttrLabel AspectFrameObeyChildPropertyInfo = "AspectFrame::obey-child" + type AttrLabel AspectFrameObeyChildPropertyInfo = "obey-child" attrGet _ = getAspectFrameObeyChild attrSet _ = setAspectFrameObeyChild attrConstruct _ = constructAspectFrameObeyChild @@ -135,7 +469,7 @@ type AttrSetTypeConstraint AspectFrameRatioPropertyInfo = (~) Float type AttrBaseTypeConstraint AspectFrameRatioPropertyInfo = AspectFrameK type AttrGetType AspectFrameRatioPropertyInfo = Float - type AttrLabel AspectFrameRatioPropertyInfo = "AspectFrame::ratio" + type AttrLabel AspectFrameRatioPropertyInfo = "ratio" attrGet _ = getAspectFrameRatio attrSet _ = setAspectFrameRatio attrConstruct _ = constructAspectFrameRatio @@ -159,7 +493,7 @@ type AttrSetTypeConstraint AspectFrameXalignPropertyInfo = (~) Float type AttrBaseTypeConstraint AspectFrameXalignPropertyInfo = AspectFrameK type AttrGetType AspectFrameXalignPropertyInfo = Float - type AttrLabel AspectFrameXalignPropertyInfo = "AspectFrame::xalign" + type AttrLabel AspectFrameXalignPropertyInfo = "xalign" attrGet _ = getAspectFrameXalign attrSet _ = setAspectFrameXalign attrConstruct _ = constructAspectFrameXalign @@ -183,22 +517,21 @@ type AttrSetTypeConstraint AspectFrameYalignPropertyInfo = (~) Float type AttrBaseTypeConstraint AspectFrameYalignPropertyInfo = AspectFrameK type AttrGetType AspectFrameYalignPropertyInfo = Float - type AttrLabel AspectFrameYalignPropertyInfo = "AspectFrame::yalign" + type AttrLabel AspectFrameYalignPropertyInfo = "yalign" attrGet _ = getAspectFrameYalign attrSet _ = setAspectFrameYalign attrConstruct _ = constructAspectFrameYalign type instance AttributeList AspectFrame = AspectFrameAttributeList -type AspectFrameAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("label-widget", FrameLabelWidgetPropertyInfo), '("label-xalign", FrameLabelXalignPropertyInfo), '("label-yalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("obey-child", AspectFrameObeyChildPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("ratio", AspectFrameRatioPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AspectFrameXalignPropertyInfo), '("yalign", AspectFrameYalignPropertyInfo)] :: [(Symbol, *)]) +type AspectFrameAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("labelWidget", FrameLabelWidgetPropertyInfo), '("labelXalign", FrameLabelXalignPropertyInfo), '("labelYalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("obeyChild", AspectFrameObeyChildPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("ratio", AspectFrameRatioPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AspectFrameXalignPropertyInfo), '("yalign", AspectFrameYalignPropertyInfo)] :: [(Symbol, *)]) type instance SignalList AspectFrame = AspectFrameSignalList -type AspectFrameSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AspectFrameSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method AspectFrame::new -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "AspectFrame" -- throws : False -- Skip return : False @@ -214,13 +547,13 @@ aspectFrameNew :: (MonadIO m) => - Maybe (T.Text) -> -- label - Float -> -- xalign - Float -> -- yalign - Float -> -- ratio - Bool -> -- obey_child - m AspectFrame -aspectFrameNew label xalign yalign ratio obey_child = liftIO $ do + Maybe (T.Text) -- label + -> Float -- xalign + -> Float -- yalign + -> Float -- ratio + -> Bool -- obeyChild + -> m AspectFrame -- result +aspectFrameNew label xalign yalign ratio obeyChild = liftIO $ do maybeLabel <- case label of Nothing -> return nullPtr Just jLabel -> do @@ -229,8 +562,8 @@ let xalign' = realToFrac xalign let yalign' = realToFrac yalign let ratio' = realToFrac ratio - let obey_child' = (fromIntegral . fromEnum) obey_child - result <- gtk_aspect_frame_new maybeLabel xalign' yalign' ratio' obey_child' + let obeyChild' = (fromIntegral . fromEnum) obeyChild + result <- gtk_aspect_frame_new maybeLabel xalign' yalign' ratio' obeyChild' checkUnexpectedReturnNULL "gtk_aspect_frame_new" result result' <- (newObject AspectFrame) result freeMem maybeLabel @@ -238,9 +571,8 @@ -- method AspectFrame::set -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AspectFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AspectFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AspectFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -256,20 +588,24 @@ aspectFrameSet :: (MonadIO m, AspectFrameK a) => - a -> -- _obj - Float -> -- xalign - Float -> -- yalign - Float -> -- ratio - Bool -> -- obey_child - m () -aspectFrameSet _obj xalign yalign ratio obey_child = liftIO $ do + a -- _obj + -> Float -- xalign + -> Float -- yalign + -> Float -- ratio + -> Bool -- obeyChild + -> m () -- result +aspectFrameSet _obj xalign yalign ratio obeyChild = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let xalign' = realToFrac xalign let yalign' = realToFrac yalign let ratio' = realToFrac ratio - let obey_child' = (fromIntegral . fromEnum) obey_child - gtk_aspect_frame_set _obj' xalign' yalign' ratio' obey_child' + let obeyChild' = (fromIntegral . fromEnum) obeyChild + gtk_aspect_frame_set _obj' xalign' yalign' ratio' obeyChild' touchManagedPtr _obj return () + +data AspectFrameSetMethodInfo +instance (signature ~ (Float -> Float -> Float -> Bool -> m ()), MonadIO m, AspectFrameK a) => MethodInfo AspectFrameSetMethodInfo a signature where + overloadedMethod _ = aspectFrameSet diff --git a/GI/Gtk/Objects/AspectFrame.hs-boot b/GI/Gtk/Objects/AspectFrame.hs-boot --- a/GI/Gtk/Objects/AspectFrame.hs-boot +++ b/GI/Gtk/Objects/AspectFrame.hs-boot @@ -15,3 +15,4 @@ data AspectFrameRatioPropertyInfo data AspectFrameXalignPropertyInfo data AspectFrameYalignPropertyInfo +data AspectFrameSetMethodInfo diff --git a/GI/Gtk/Objects/Assistant.hs b/GI/Gtk/Objects/Assistant.hs --- a/GI/Gtk/Objects/Assistant.hs +++ b/GI/Gtk/Objects/Assistant.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,54 +18,67 @@ -- * Methods -- ** assistantAddActionWidget + AssistantAddActionWidgetMethodInfo , assistantAddActionWidget , -- ** assistantAppendPage + AssistantAppendPageMethodInfo , assistantAppendPage , -- ** assistantCommit + AssistantCommitMethodInfo , assistantCommit , -- ** assistantGetCurrentPage + AssistantGetCurrentPageMethodInfo , assistantGetCurrentPage , -- ** assistantGetNPages + AssistantGetNPagesMethodInfo , assistantGetNPages , -- ** assistantGetNthPage + AssistantGetNthPageMethodInfo , assistantGetNthPage , -- ** assistantGetPageComplete + AssistantGetPageCompleteMethodInfo , assistantGetPageComplete , -- ** assistantGetPageHasPadding + AssistantGetPageHasPaddingMethodInfo , assistantGetPageHasPadding , -- ** assistantGetPageHeaderImage + AssistantGetPageHeaderImageMethodInfo , assistantGetPageHeaderImage , -- ** assistantGetPageSideImage + AssistantGetPageSideImageMethodInfo , assistantGetPageSideImage , -- ** assistantGetPageTitle + AssistantGetPageTitleMethodInfo , assistantGetPageTitle , -- ** assistantGetPageType + AssistantGetPageTypeMethodInfo , assistantGetPageType , -- ** assistantInsertPage + AssistantInsertPageMethodInfo , assistantInsertPage , @@ -73,58 +87,72 @@ -- ** assistantNextPage + AssistantNextPageMethodInfo , assistantNextPage , -- ** assistantPrependPage + AssistantPrependPageMethodInfo , assistantPrependPage , -- ** assistantPreviousPage + AssistantPreviousPageMethodInfo , assistantPreviousPage , -- ** assistantRemoveActionWidget + AssistantRemoveActionWidgetMethodInfo , assistantRemoveActionWidget , -- ** assistantRemovePage + AssistantRemovePageMethodInfo , assistantRemovePage , -- ** assistantSetCurrentPage + AssistantSetCurrentPageMethodInfo , assistantSetCurrentPage , -- ** assistantSetForwardPageFunc + AssistantSetForwardPageFuncMethodInfo , assistantSetForwardPageFunc , -- ** assistantSetPageComplete + AssistantSetPageCompleteMethodInfo , assistantSetPageComplete , -- ** assistantSetPageHasPadding + AssistantSetPageHasPaddingMethodInfo , assistantSetPageHasPadding , -- ** assistantSetPageHeaderImage + AssistantSetPageHeaderImageMethodInfo , assistantSetPageHeaderImage , -- ** assistantSetPageSideImage + AssistantSetPageSideImageMethodInfo , assistantSetPageSideImage , -- ** assistantSetPageTitle + AssistantSetPageTitleMethodInfo , assistantSetPageTitle , -- ** assistantSetPageType + AssistantSetPageTypeMethodInfo , assistantSetPageType , -- ** assistantUpdateButtonsState + AssistantUpdateButtonsStateMethodInfo , assistantUpdateButtonsState , @@ -239,6 +267,457 @@ noAssistant :: Maybe Assistant noAssistant = Nothing +type family ResolveAssistantMethod (t :: Symbol) (o :: *) :: * where + ResolveAssistantMethod "activate" o = WidgetActivateMethodInfo + ResolveAssistantMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveAssistantMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveAssistantMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveAssistantMethod "add" o = ContainerAddMethodInfo + ResolveAssistantMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveAssistantMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveAssistantMethod "addActionWidget" o = AssistantAddActionWidgetMethodInfo + ResolveAssistantMethod "addChild" o = BuildableAddChildMethodInfo + ResolveAssistantMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveAssistantMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveAssistantMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveAssistantMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveAssistantMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveAssistantMethod "appendPage" o = AssistantAppendPageMethodInfo + ResolveAssistantMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveAssistantMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveAssistantMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveAssistantMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveAssistantMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveAssistantMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveAssistantMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveAssistantMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveAssistantMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveAssistantMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveAssistantMethod "childType" o = ContainerChildTypeMethodInfo + ResolveAssistantMethod "classPath" o = WidgetClassPathMethodInfo + ResolveAssistantMethod "close" o = WindowCloseMethodInfo + ResolveAssistantMethod "commit" o = AssistantCommitMethodInfo + ResolveAssistantMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveAssistantMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveAssistantMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveAssistantMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveAssistantMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveAssistantMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveAssistantMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveAssistantMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveAssistantMethod "destroy" o = WidgetDestroyMethodInfo + ResolveAssistantMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveAssistantMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveAssistantMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveAssistantMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveAssistantMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveAssistantMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveAssistantMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveAssistantMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveAssistantMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveAssistantMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveAssistantMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveAssistantMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveAssistantMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveAssistantMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveAssistantMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveAssistantMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveAssistantMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveAssistantMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveAssistantMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveAssistantMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveAssistantMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveAssistantMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveAssistantMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveAssistantMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveAssistantMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveAssistantMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveAssistantMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveAssistantMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveAssistantMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveAssistantMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveAssistantMethod "draw" o = WidgetDrawMethodInfo + ResolveAssistantMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveAssistantMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveAssistantMethod "event" o = WidgetEventMethodInfo + ResolveAssistantMethod "forall" o = ContainerForallMethodInfo + ResolveAssistantMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveAssistantMethod "foreach" o = ContainerForeachMethodInfo + ResolveAssistantMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveAssistantMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveAssistantMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveAssistantMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveAssistantMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveAssistantMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveAssistantMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveAssistantMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveAssistantMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveAssistantMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveAssistantMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveAssistantMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveAssistantMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveAssistantMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveAssistantMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveAssistantMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveAssistantMethod "hide" o = WidgetHideMethodInfo + ResolveAssistantMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveAssistantMethod "iconify" o = WindowIconifyMethodInfo + ResolveAssistantMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveAssistantMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveAssistantMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveAssistantMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveAssistantMethod "insertPage" o = AssistantInsertPageMethodInfo + ResolveAssistantMethod "intersect" o = WidgetIntersectMethodInfo + ResolveAssistantMethod "isActive" o = WindowIsActiveMethodInfo + ResolveAssistantMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveAssistantMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveAssistantMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveAssistantMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveAssistantMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveAssistantMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveAssistantMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveAssistantMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveAssistantMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveAssistantMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveAssistantMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveAssistantMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveAssistantMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveAssistantMethod "map" o = WidgetMapMethodInfo + ResolveAssistantMethod "maximize" o = WindowMaximizeMethodInfo + ResolveAssistantMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveAssistantMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveAssistantMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveAssistantMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveAssistantMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveAssistantMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveAssistantMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveAssistantMethod "move" o = WindowMoveMethodInfo + ResolveAssistantMethod "nextPage" o = AssistantNextPageMethodInfo + ResolveAssistantMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveAssistantMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveAssistantMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveAssistantMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveAssistantMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveAssistantMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveAssistantMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveAssistantMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveAssistantMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveAssistantMethod "path" o = WidgetPathMethodInfo + ResolveAssistantMethod "prependPage" o = AssistantPrependPageMethodInfo + ResolveAssistantMethod "present" o = WindowPresentMethodInfo + ResolveAssistantMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveAssistantMethod "previousPage" o = AssistantPreviousPageMethodInfo + ResolveAssistantMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveAssistantMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveAssistantMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveAssistantMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveAssistantMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveAssistantMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveAssistantMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveAssistantMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveAssistantMethod "realize" o = WidgetRealizeMethodInfo + ResolveAssistantMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveAssistantMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveAssistantMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveAssistantMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveAssistantMethod "remove" o = ContainerRemoveMethodInfo + ResolveAssistantMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveAssistantMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveAssistantMethod "removeActionWidget" o = AssistantRemoveActionWidgetMethodInfo + ResolveAssistantMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveAssistantMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveAssistantMethod "removePage" o = AssistantRemovePageMethodInfo + ResolveAssistantMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveAssistantMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveAssistantMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveAssistantMethod "reparent" o = WidgetReparentMethodInfo + ResolveAssistantMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveAssistantMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveAssistantMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveAssistantMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveAssistantMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveAssistantMethod "resize" o = WindowResizeMethodInfo + ResolveAssistantMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveAssistantMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveAssistantMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveAssistantMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveAssistantMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveAssistantMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveAssistantMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveAssistantMethod "show" o = WidgetShowMethodInfo + ResolveAssistantMethod "showAll" o = WidgetShowAllMethodInfo + ResolveAssistantMethod "showNow" o = WidgetShowNowMethodInfo + ResolveAssistantMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveAssistantMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveAssistantMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveAssistantMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveAssistantMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveAssistantMethod "stick" o = WindowStickMethodInfo + ResolveAssistantMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveAssistantMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveAssistantMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveAssistantMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveAssistantMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveAssistantMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveAssistantMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveAssistantMethod "unmap" o = WidgetUnmapMethodInfo + ResolveAssistantMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveAssistantMethod "unparent" o = WidgetUnparentMethodInfo + ResolveAssistantMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveAssistantMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveAssistantMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveAssistantMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveAssistantMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveAssistantMethod "unstick" o = WindowUnstickMethodInfo + ResolveAssistantMethod "updateButtonsState" o = AssistantUpdateButtonsStateMethodInfo + ResolveAssistantMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveAssistantMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveAssistantMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveAssistantMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveAssistantMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveAssistantMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveAssistantMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveAssistantMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveAssistantMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveAssistantMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveAssistantMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveAssistantMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveAssistantMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveAssistantMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveAssistantMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveAssistantMethod "getChild" o = BinGetChildMethodInfo + ResolveAssistantMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveAssistantMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveAssistantMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveAssistantMethod "getClip" o = WidgetGetClipMethodInfo + ResolveAssistantMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveAssistantMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveAssistantMethod "getCurrentPage" o = AssistantGetCurrentPageMethodInfo + ResolveAssistantMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveAssistantMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveAssistantMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveAssistantMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveAssistantMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveAssistantMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveAssistantMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveAssistantMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveAssistantMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveAssistantMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveAssistantMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveAssistantMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveAssistantMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveAssistantMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveAssistantMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveAssistantMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveAssistantMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveAssistantMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveAssistantMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveAssistantMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveAssistantMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveAssistantMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveAssistantMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveAssistantMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveAssistantMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveAssistantMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveAssistantMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveAssistantMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveAssistantMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveAssistantMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveAssistantMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveAssistantMethod "getIcon" o = WindowGetIconMethodInfo + ResolveAssistantMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveAssistantMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveAssistantMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveAssistantMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveAssistantMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveAssistantMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveAssistantMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveAssistantMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveAssistantMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveAssistantMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveAssistantMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveAssistantMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveAssistantMethod "getModal" o = WindowGetModalMethodInfo + ResolveAssistantMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveAssistantMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveAssistantMethod "getNPages" o = AssistantGetNPagesMethodInfo + ResolveAssistantMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveAssistantMethod "getNthPage" o = AssistantGetNthPageMethodInfo + ResolveAssistantMethod "getPageComplete" o = AssistantGetPageCompleteMethodInfo + ResolveAssistantMethod "getPageHasPadding" o = AssistantGetPageHasPaddingMethodInfo + ResolveAssistantMethod "getPageHeaderImage" o = AssistantGetPageHeaderImageMethodInfo + ResolveAssistantMethod "getPageSideImage" o = AssistantGetPageSideImageMethodInfo + ResolveAssistantMethod "getPageTitle" o = AssistantGetPageTitleMethodInfo + ResolveAssistantMethod "getPageType" o = AssistantGetPageTypeMethodInfo + ResolveAssistantMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveAssistantMethod "getParent" o = WidgetGetParentMethodInfo + ResolveAssistantMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveAssistantMethod "getPath" o = WidgetGetPathMethodInfo + ResolveAssistantMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveAssistantMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveAssistantMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveAssistantMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveAssistantMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveAssistantMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveAssistantMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveAssistantMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveAssistantMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveAssistantMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveAssistantMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveAssistantMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveAssistantMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveAssistantMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveAssistantMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveAssistantMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveAssistantMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveAssistantMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveAssistantMethod "getRole" o = WindowGetRoleMethodInfo + ResolveAssistantMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveAssistantMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveAssistantMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveAssistantMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveAssistantMethod "getSize" o = WindowGetSizeMethodInfo + ResolveAssistantMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveAssistantMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveAssistantMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveAssistantMethod "getState" o = WidgetGetStateMethodInfo + ResolveAssistantMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveAssistantMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveAssistantMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveAssistantMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveAssistantMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveAssistantMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveAssistantMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveAssistantMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveAssistantMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveAssistantMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveAssistantMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveAssistantMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveAssistantMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveAssistantMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveAssistantMethod "getValign" o = WidgetGetValignMethodInfo + ResolveAssistantMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveAssistantMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveAssistantMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveAssistantMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveAssistantMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveAssistantMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveAssistantMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveAssistantMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveAssistantMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveAssistantMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveAssistantMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveAssistantMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveAssistantMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveAssistantMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveAssistantMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveAssistantMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveAssistantMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveAssistantMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveAssistantMethod "setClip" o = WidgetSetClipMethodInfo + ResolveAssistantMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveAssistantMethod "setCurrentPage" o = AssistantSetCurrentPageMethodInfo + ResolveAssistantMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveAssistantMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveAssistantMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveAssistantMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveAssistantMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveAssistantMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveAssistantMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveAssistantMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveAssistantMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveAssistantMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveAssistantMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveAssistantMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveAssistantMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveAssistantMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveAssistantMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveAssistantMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveAssistantMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveAssistantMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveAssistantMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveAssistantMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveAssistantMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveAssistantMethod "setForwardPageFunc" o = AssistantSetForwardPageFuncMethodInfo + ResolveAssistantMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveAssistantMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveAssistantMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveAssistantMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveAssistantMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveAssistantMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveAssistantMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveAssistantMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveAssistantMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveAssistantMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveAssistantMethod "setIcon" o = WindowSetIconMethodInfo + ResolveAssistantMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveAssistantMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveAssistantMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveAssistantMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveAssistantMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveAssistantMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveAssistantMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveAssistantMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveAssistantMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveAssistantMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveAssistantMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveAssistantMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveAssistantMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveAssistantMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveAssistantMethod "setModal" o = WindowSetModalMethodInfo + ResolveAssistantMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveAssistantMethod "setPageComplete" o = AssistantSetPageCompleteMethodInfo + ResolveAssistantMethod "setPageHasPadding" o = AssistantSetPageHasPaddingMethodInfo + ResolveAssistantMethod "setPageHeaderImage" o = AssistantSetPageHeaderImageMethodInfo + ResolveAssistantMethod "setPageSideImage" o = AssistantSetPageSideImageMethodInfo + ResolveAssistantMethod "setPageTitle" o = AssistantSetPageTitleMethodInfo + ResolveAssistantMethod "setPageType" o = AssistantSetPageTypeMethodInfo + ResolveAssistantMethod "setParent" o = WidgetSetParentMethodInfo + ResolveAssistantMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveAssistantMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveAssistantMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveAssistantMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveAssistantMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveAssistantMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveAssistantMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveAssistantMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveAssistantMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveAssistantMethod "setRole" o = WindowSetRoleMethodInfo + ResolveAssistantMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveAssistantMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveAssistantMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveAssistantMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveAssistantMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveAssistantMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveAssistantMethod "setState" o = WidgetSetStateMethodInfo + ResolveAssistantMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveAssistantMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveAssistantMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveAssistantMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveAssistantMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveAssistantMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveAssistantMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveAssistantMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveAssistantMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveAssistantMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveAssistantMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveAssistantMethod "setValign" o = WidgetSetValignMethodInfo + ResolveAssistantMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveAssistantMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveAssistantMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveAssistantMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveAssistantMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveAssistantMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveAssistantMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAssistantMethod t Assistant, MethodInfo info Assistant p) => IsLabelProxy t (Assistant -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAssistantMethod t Assistant, MethodInfo info Assistant p) => IsLabel t (Assistant -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Assistant::apply type AssistantApplyCallback = IO () @@ -449,13 +928,13 @@ type AttrSetTypeConstraint AssistantUseHeaderBarPropertyInfo = (~) Int32 type AttrBaseTypeConstraint AssistantUseHeaderBarPropertyInfo = AssistantK type AttrGetType AssistantUseHeaderBarPropertyInfo = Int32 - type AttrLabel AssistantUseHeaderBarPropertyInfo = "Assistant::use-header-bar" + type AttrLabel AssistantUseHeaderBarPropertyInfo = "use-header-bar" attrGet _ = getAssistantUseHeaderBar attrSet _ = undefined attrConstruct _ = constructAssistantUseHeaderBar type instance AttributeList Assistant = AssistantAttributeList -type AssistantAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", AssistantUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type AssistantAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", AssistantUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) data AssistantApplySignalInfo instance SignalInfo AssistantApplySignalInfo where @@ -483,13 +962,12 @@ connectSignal _ = connectAssistantPrepare type instance SignalList Assistant = AssistantSignalList -type AssistantSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("apply", AssistantApplySignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", AssistantCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", AssistantCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("escape", AssistantEscapeSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("prepare", AssistantPrepareSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AssistantSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("apply", AssistantApplySignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", AssistantCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", AssistantCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("escape", AssistantEscapeSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("prepare", AssistantPrepareSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Assistant::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Assistant" -- throws : False -- Skip return : False @@ -500,7 +978,7 @@ assistantNew :: (MonadIO m) => - m Assistant + m Assistant -- result assistantNew = liftIO $ do result <- gtk_assistant_new checkUnexpectedReturnNULL "gtk_assistant_new" result @@ -509,9 +987,8 @@ -- method Assistant::add_action_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -524,9 +1001,9 @@ assistantAddActionWidget :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result assistantAddActionWidget _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -535,11 +1012,14 @@ touchManagedPtr child return () +data AssistantAddActionWidgetMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantAddActionWidgetMethodInfo a signature where + overloadedMethod _ = assistantAddActionWidget + -- method Assistant::append_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -552,9 +1032,9 @@ assistantAppendPage :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - m Int32 + a -- _obj + -> b -- page + -> m Int32 -- result assistantAppendPage _obj page = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -563,11 +1043,14 @@ touchManagedPtr page return result +data AssistantAppendPageMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantAppendPageMethodInfo a signature where + overloadedMethod _ = assistantAppendPage + -- method Assistant::commit -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -579,19 +1062,22 @@ assistantCommit :: (MonadIO m, AssistantK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result assistantCommit _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_assistant_commit _obj' touchManagedPtr _obj return () +data AssistantCommitMethodInfo +instance (signature ~ (m ()), MonadIO m, AssistantK a) => MethodInfo AssistantCommitMethodInfo a signature where + overloadedMethod _ = assistantCommit + -- method Assistant::get_current_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -603,19 +1089,22 @@ assistantGetCurrentPage :: (MonadIO m, AssistantK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result assistantGetCurrentPage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_assistant_get_current_page _obj' touchManagedPtr _obj return result +data AssistantGetCurrentPageMethodInfo +instance (signature ~ (m Int32), MonadIO m, AssistantK a) => MethodInfo AssistantGetCurrentPageMethodInfo a signature where + overloadedMethod _ = assistantGetCurrentPage + -- method Assistant::get_n_pages -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -627,19 +1116,22 @@ assistantGetNPages :: (MonadIO m, AssistantK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result assistantGetNPages _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_assistant_get_n_pages _obj' touchManagedPtr _obj return result +data AssistantGetNPagesMethodInfo +instance (signature ~ (m Int32), MonadIO m, AssistantK a) => MethodInfo AssistantGetNPagesMethodInfo a signature where + overloadedMethod _ = assistantGetNPages + -- method Assistant::get_nth_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -652,22 +1144,25 @@ assistantGetNthPage :: (MonadIO m, AssistantK a) => - a -> -- _obj - Int32 -> -- page_num - m Widget -assistantGetNthPage _obj page_num = liftIO $ do + a -- _obj + -> Int32 -- pageNum + -> m Widget -- result +assistantGetNthPage _obj pageNum = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_assistant_get_nth_page _obj' page_num + result <- gtk_assistant_get_nth_page _obj' pageNum checkUnexpectedReturnNULL "gtk_assistant_get_nth_page" result result' <- (newObject Widget) result touchManagedPtr _obj return result' +data AssistantGetNthPageMethodInfo +instance (signature ~ (Int32 -> m Widget), MonadIO m, AssistantK a) => MethodInfo AssistantGetNthPageMethodInfo a signature where + overloadedMethod _ = assistantGetNthPage + -- method Assistant::get_page_complete -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -680,9 +1175,9 @@ assistantGetPageComplete :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - m Bool + a -- _obj + -> b -- page + -> m Bool -- result assistantGetPageComplete _obj page = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -692,11 +1187,14 @@ touchManagedPtr page return result' +data AssistantGetPageCompleteMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantGetPageCompleteMethodInfo a signature where + overloadedMethod _ = assistantGetPageComplete + -- method Assistant::get_page_has_padding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -709,9 +1207,9 @@ assistantGetPageHasPadding :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - m Bool + a -- _obj + -> b -- page + -> m Bool -- result assistantGetPageHasPadding _obj page = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -721,11 +1219,14 @@ touchManagedPtr page return result' +data AssistantGetPageHasPaddingMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantGetPageHasPaddingMethodInfo a signature where + overloadedMethod _ = assistantGetPageHasPadding + -- method Assistant::get_page_header_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -738,9 +1239,9 @@ {-# DEPRECATED assistantGetPageHeaderImage ["(Since version 3.2)","Since GTK+ 3.2, a header is no longer shown;"," add your header decoration to the page content instead."]#-} assistantGetPageHeaderImage :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - m GdkPixbuf.Pixbuf + a -- _obj + -> b -- page + -> m GdkPixbuf.Pixbuf -- result assistantGetPageHeaderImage _obj page = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -751,11 +1252,14 @@ touchManagedPtr page return result' +data AssistantGetPageHeaderImageMethodInfo +instance (signature ~ (b -> m GdkPixbuf.Pixbuf), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantGetPageHeaderImageMethodInfo a signature where + overloadedMethod _ = assistantGetPageHeaderImage + -- method Assistant::get_page_side_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -768,9 +1272,9 @@ {-# DEPRECATED assistantGetPageSideImage ["(Since version 3.2)","Since GTK+ 3.2, sidebar images are not"," shown anymore."]#-} assistantGetPageSideImage :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - m GdkPixbuf.Pixbuf + a -- _obj + -> b -- page + -> m GdkPixbuf.Pixbuf -- result assistantGetPageSideImage _obj page = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -781,11 +1285,14 @@ touchManagedPtr page return result' +data AssistantGetPageSideImageMethodInfo +instance (signature ~ (b -> m GdkPixbuf.Pixbuf), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantGetPageSideImageMethodInfo a signature where + overloadedMethod _ = assistantGetPageSideImage + -- method Assistant::get_page_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -798,9 +1305,9 @@ assistantGetPageTitle :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - m T.Text + a -- _obj + -> b -- page + -> m T.Text -- result assistantGetPageTitle _obj page = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -811,11 +1318,14 @@ touchManagedPtr page return result' +data AssistantGetPageTitleMethodInfo +instance (signature ~ (b -> m T.Text), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantGetPageTitleMethodInfo a signature where + overloadedMethod _ = assistantGetPageTitle + -- method Assistant::get_page_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "AssistantPageType" -- throws : False -- Skip return : False @@ -828,9 +1338,9 @@ assistantGetPageType :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - m AssistantPageType + a -- _obj + -> b -- page + -> m AssistantPageType -- result assistantGetPageType _obj page = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -840,11 +1350,14 @@ touchManagedPtr page return result' +data AssistantGetPageTypeMethodInfo +instance (signature ~ (b -> m AssistantPageType), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantGetPageTypeMethodInfo a signature where + overloadedMethod _ = assistantGetPageType + -- method Assistant::insert_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -858,10 +1371,10 @@ assistantInsertPage :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - Int32 -> -- position - m Int32 + a -- _obj + -> b -- page + -> Int32 -- position + -> m Int32 -- result assistantInsertPage _obj page position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -870,11 +1383,14 @@ touchManagedPtr page return result +data AssistantInsertPageMethodInfo +instance (signature ~ (b -> Int32 -> m Int32), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantInsertPageMethodInfo a signature where + overloadedMethod _ = assistantInsertPage + -- method Assistant::next_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -886,19 +1402,22 @@ assistantNextPage :: (MonadIO m, AssistantK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result assistantNextPage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_assistant_next_page _obj' touchManagedPtr _obj return () +data AssistantNextPageMethodInfo +instance (signature ~ (m ()), MonadIO m, AssistantK a) => MethodInfo AssistantNextPageMethodInfo a signature where + overloadedMethod _ = assistantNextPage + -- method Assistant::prepend_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -911,9 +1430,9 @@ assistantPrependPage :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - m Int32 + a -- _obj + -> b -- page + -> m Int32 -- result assistantPrependPage _obj page = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -922,11 +1441,14 @@ touchManagedPtr page return result +data AssistantPrependPageMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantPrependPageMethodInfo a signature where + overloadedMethod _ = assistantPrependPage + -- method Assistant::previous_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -938,19 +1460,22 @@ assistantPreviousPage :: (MonadIO m, AssistantK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result assistantPreviousPage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_assistant_previous_page _obj' touchManagedPtr _obj return () +data AssistantPreviousPageMethodInfo +instance (signature ~ (m ()), MonadIO m, AssistantK a) => MethodInfo AssistantPreviousPageMethodInfo a signature where + overloadedMethod _ = assistantPreviousPage + -- method Assistant::remove_action_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -963,9 +1488,9 @@ assistantRemoveActionWidget :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result assistantRemoveActionWidget _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -974,11 +1499,14 @@ touchManagedPtr child return () +data AssistantRemoveActionWidgetMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantRemoveActionWidgetMethodInfo a signature where + overloadedMethod _ = assistantRemoveActionWidget + -- method Assistant::remove_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -991,20 +1519,23 @@ assistantRemovePage :: (MonadIO m, AssistantK a) => - a -> -- _obj - Int32 -> -- page_num - m () -assistantRemovePage _obj page_num = liftIO $ do + a -- _obj + -> Int32 -- pageNum + -> m () -- result +assistantRemovePage _obj pageNum = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_remove_page _obj' page_num + gtk_assistant_remove_page _obj' pageNum touchManagedPtr _obj return () +data AssistantRemovePageMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, AssistantK a) => MethodInfo AssistantRemovePageMethodInfo a signature where + overloadedMethod _ = assistantRemovePage + -- method Assistant::set_current_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1017,20 +1548,23 @@ assistantSetCurrentPage :: (MonadIO m, AssistantK a) => - a -> -- _obj - Int32 -> -- page_num - m () -assistantSetCurrentPage _obj page_num = liftIO $ do + a -- _obj + -> Int32 -- pageNum + -> m () -- result +assistantSetCurrentPage _obj pageNum = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_set_current_page _obj' page_num + gtk_assistant_set_current_page _obj' pageNum touchManagedPtr _obj return () +data AssistantSetCurrentPageMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, AssistantK a) => MethodInfo AssistantSetCurrentPageMethodInfo a signature where + overloadedMethod _ = assistantSetCurrentPage + -- method Assistant::set_forward_page_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_func", argType = TInterface "Gtk" "AssistantPageFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_func", argType = TInterface "Gtk" "AssistantPageFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_func", argType = TInterface "Gtk" "AssistantPageFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1045,27 +1579,30 @@ assistantSetForwardPageFunc :: (MonadIO m, AssistantK a) => - a -> -- _obj - Maybe (AssistantPageFunc) -> -- page_func - m () -assistantSetForwardPageFunc _obj page_func = liftIO $ do + a -- _obj + -> Maybe (AssistantPageFunc) -- pageFunc + -> m () -- result +assistantSetForwardPageFunc _obj pageFunc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybePage_func <- case page_func of + maybePageFunc <- case pageFunc of Nothing -> return (castPtrToFunPtr nullPtr) - Just jPage_func -> do - jPage_func' <- mkAssistantPageFunc (assistantPageFuncWrapper Nothing jPage_func) - return jPage_func' - let data_ = castFunPtrToPtr maybePage_func + Just jPageFunc -> do + jPageFunc' <- mkAssistantPageFunc (assistantPageFuncWrapper Nothing jPageFunc) + return jPageFunc' + let data_ = castFunPtrToPtr maybePageFunc let destroy = safeFreeFunPtrPtr - gtk_assistant_set_forward_page_func _obj' maybePage_func data_ destroy + gtk_assistant_set_forward_page_func _obj' maybePageFunc data_ destroy touchManagedPtr _obj return () +data AssistantSetForwardPageFuncMethodInfo +instance (signature ~ (Maybe (AssistantPageFunc) -> m ()), MonadIO m, AssistantK a) => MethodInfo AssistantSetForwardPageFuncMethodInfo a signature where + overloadedMethod _ = assistantSetForwardPageFunc + -- method Assistant::set_page_complete -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "complete", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "complete", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "complete", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1079,10 +1616,10 @@ assistantSetPageComplete :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - Bool -> -- complete - m () + a -- _obj + -> b -- page + -> Bool -- complete + -> m () -- result assistantSetPageComplete _obj page complete = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -1092,11 +1629,14 @@ touchManagedPtr page return () +data AssistantSetPageCompleteMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantSetPageCompleteMethodInfo a signature where + overloadedMethod _ = assistantSetPageComplete + -- method Assistant::set_page_has_padding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_padding", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_padding", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_padding", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1110,24 +1650,27 @@ assistantSetPageHasPadding :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - Bool -> -- has_padding - m () -assistantSetPageHasPadding _obj page has_padding = liftIO $ do + a -- _obj + -> b -- page + -> Bool -- hasPadding + -> m () -- result +assistantSetPageHasPadding _obj page hasPadding = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page - let has_padding' = (fromIntegral . fromEnum) has_padding - gtk_assistant_set_page_has_padding _obj' page' has_padding' + let hasPadding' = (fromIntegral . fromEnum) hasPadding + gtk_assistant_set_page_has_padding _obj' page' hasPadding' touchManagedPtr _obj touchManagedPtr page return () +data AssistantSetPageHasPaddingMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantSetPageHasPaddingMethodInfo a signature where + overloadedMethod _ = assistantSetPageHasPadding + -- method Assistant::set_page_header_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1141,10 +1684,10 @@ {-# DEPRECATED assistantSetPageHeaderImage ["(Since version 3.2)","Since GTK+ 3.2, a header is no longer shown;"," add your header decoration to the page content instead."]#-} assistantSetPageHeaderImage :: (MonadIO m, AssistantK a, WidgetK b, GdkPixbuf.PixbufK c) => - a -> -- _obj - b -> -- page - Maybe (c) -> -- pixbuf - m () + a -- _obj + -> b -- page + -> Maybe (c) -- pixbuf + -> m () -- result assistantSetPageHeaderImage _obj page pixbuf = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -1159,11 +1702,14 @@ whenJust pixbuf touchManagedPtr return () +data AssistantSetPageHeaderImageMethodInfo +instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, AssistantK a, WidgetK b, GdkPixbuf.PixbufK c) => MethodInfo AssistantSetPageHeaderImageMethodInfo a signature where + overloadedMethod _ = assistantSetPageHeaderImage + -- method Assistant::set_page_side_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1177,10 +1723,10 @@ {-# DEPRECATED assistantSetPageSideImage ["(Since version 3.2)","Since GTK+ 3.2, sidebar images are not"," shown anymore."]#-} assistantSetPageSideImage :: (MonadIO m, AssistantK a, WidgetK b, GdkPixbuf.PixbufK c) => - a -> -- _obj - b -> -- page - Maybe (c) -> -- pixbuf - m () + a -- _obj + -> b -- page + -> Maybe (c) -- pixbuf + -> m () -- result assistantSetPageSideImage _obj page pixbuf = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -1195,11 +1741,14 @@ whenJust pixbuf touchManagedPtr return () +data AssistantSetPageSideImageMethodInfo +instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, AssistantK a, WidgetK b, GdkPixbuf.PixbufK c) => MethodInfo AssistantSetPageSideImageMethodInfo a signature where + overloadedMethod _ = assistantSetPageSideImage + -- method Assistant::set_page_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1213,10 +1762,10 @@ assistantSetPageTitle :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - T.Text -> -- title - m () + a -- _obj + -> b -- page + -> T.Text -- title + -> m () -- result assistantSetPageTitle _obj page title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -1227,11 +1776,14 @@ freeMem title' return () +data AssistantSetPageTitleMethodInfo +instance (signature ~ (b -> T.Text -> m ()), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantSetPageTitleMethodInfo a signature where + overloadedMethod _ = assistantSetPageTitle + -- method Assistant::set_page_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "AssistantPageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "AssistantPageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "AssistantPageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1245,10 +1797,10 @@ assistantSetPageType :: (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - AssistantPageType -> -- type - m () + a -- _obj + -> b -- page + -> AssistantPageType -- type_ + -> m () -- result assistantSetPageType _obj page type_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let page' = unsafeManagedPtrCastPtr page @@ -1258,11 +1810,14 @@ touchManagedPtr page return () +data AssistantSetPageTypeMethodInfo +instance (signature ~ (b -> AssistantPageType -> m ()), MonadIO m, AssistantK a, WidgetK b) => MethodInfo AssistantSetPageTypeMethodInfo a signature where + overloadedMethod _ = assistantSetPageType + -- method Assistant::update_buttons_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1274,12 +1829,16 @@ assistantUpdateButtonsState :: (MonadIO m, AssistantK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result assistantUpdateButtonsState _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_assistant_update_buttons_state _obj' touchManagedPtr _obj return () + +data AssistantUpdateButtonsStateMethodInfo +instance (signature ~ (m ()), MonadIO m, AssistantK a) => MethodInfo AssistantUpdateButtonsStateMethodInfo a signature where + overloadedMethod _ = assistantUpdateButtonsState diff --git a/GI/Gtk/Objects/Assistant.hs-boot b/GI/Gtk/Objects/Assistant.hs-boot --- a/GI/Gtk/Objects/Assistant.hs-boot +++ b/GI/Gtk/Objects/Assistant.hs-boot @@ -17,3 +17,30 @@ data AssistantCloseSignalInfo data AssistantEscapeSignalInfo data AssistantPrepareSignalInfo +data AssistantAddActionWidgetMethodInfo +data AssistantAppendPageMethodInfo +data AssistantCommitMethodInfo +data AssistantGetCurrentPageMethodInfo +data AssistantGetNPagesMethodInfo +data AssistantGetNthPageMethodInfo +data AssistantGetPageCompleteMethodInfo +data AssistantGetPageHasPaddingMethodInfo +data AssistantGetPageHeaderImageMethodInfo +data AssistantGetPageSideImageMethodInfo +data AssistantGetPageTitleMethodInfo +data AssistantGetPageTypeMethodInfo +data AssistantInsertPageMethodInfo +data AssistantNextPageMethodInfo +data AssistantPrependPageMethodInfo +data AssistantPreviousPageMethodInfo +data AssistantRemoveActionWidgetMethodInfo +data AssistantRemovePageMethodInfo +data AssistantSetCurrentPageMethodInfo +data AssistantSetForwardPageFuncMethodInfo +data AssistantSetPageCompleteMethodInfo +data AssistantSetPageHasPaddingMethodInfo +data AssistantSetPageHeaderImageMethodInfo +data AssistantSetPageSideImageMethodInfo +data AssistantSetPageTitleMethodInfo +data AssistantSetPageTypeMethodInfo +data AssistantUpdateButtonsStateMethodInfo diff --git a/GI/Gtk/Objects/Bin.hs b/GI/Gtk/Objects/Bin.hs --- a/GI/Gtk/Objects/Bin.hs +++ b/GI/Gtk/Objects/Bin.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** binGetChild + BinGetChildMethodInfo , binGetChild , @@ -57,17 +59,339 @@ noBin :: Maybe Bin noBin = Nothing +type family ResolveBinMethod (t :: Symbol) (o :: *) :: * where + ResolveBinMethod "activate" o = WidgetActivateMethodInfo + ResolveBinMethod "add" o = ContainerAddMethodInfo + ResolveBinMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveBinMethod "addChild" o = BuildableAddChildMethodInfo + ResolveBinMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveBinMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveBinMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveBinMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveBinMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveBinMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveBinMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveBinMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveBinMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveBinMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveBinMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveBinMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveBinMethod "childType" o = ContainerChildTypeMethodInfo + ResolveBinMethod "classPath" o = WidgetClassPathMethodInfo + ResolveBinMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveBinMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveBinMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveBinMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveBinMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveBinMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveBinMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveBinMethod "destroy" o = WidgetDestroyMethodInfo + ResolveBinMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveBinMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveBinMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveBinMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveBinMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveBinMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveBinMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveBinMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveBinMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveBinMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveBinMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveBinMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveBinMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveBinMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveBinMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveBinMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveBinMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveBinMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveBinMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveBinMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveBinMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveBinMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveBinMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveBinMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveBinMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveBinMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveBinMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveBinMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveBinMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveBinMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveBinMethod "draw" o = WidgetDrawMethodInfo + ResolveBinMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveBinMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveBinMethod "event" o = WidgetEventMethodInfo + ResolveBinMethod "forall" o = ContainerForallMethodInfo + ResolveBinMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveBinMethod "foreach" o = ContainerForeachMethodInfo + ResolveBinMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveBinMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveBinMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveBinMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveBinMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveBinMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveBinMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveBinMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveBinMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveBinMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveBinMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveBinMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveBinMethod "hide" o = WidgetHideMethodInfo + ResolveBinMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveBinMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveBinMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveBinMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveBinMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveBinMethod "intersect" o = WidgetIntersectMethodInfo + ResolveBinMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveBinMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveBinMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveBinMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveBinMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveBinMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveBinMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveBinMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveBinMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveBinMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveBinMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveBinMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveBinMethod "map" o = WidgetMapMethodInfo + ResolveBinMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveBinMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveBinMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveBinMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveBinMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveBinMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveBinMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveBinMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveBinMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveBinMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveBinMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveBinMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveBinMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveBinMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveBinMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveBinMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveBinMethod "path" o = WidgetPathMethodInfo + ResolveBinMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveBinMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveBinMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveBinMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveBinMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveBinMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveBinMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveBinMethod "realize" o = WidgetRealizeMethodInfo + ResolveBinMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveBinMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveBinMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveBinMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveBinMethod "remove" o = ContainerRemoveMethodInfo + ResolveBinMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveBinMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveBinMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveBinMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveBinMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveBinMethod "reparent" o = WidgetReparentMethodInfo + ResolveBinMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveBinMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveBinMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveBinMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveBinMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveBinMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveBinMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveBinMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveBinMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveBinMethod "show" o = WidgetShowMethodInfo + ResolveBinMethod "showAll" o = WidgetShowAllMethodInfo + ResolveBinMethod "showNow" o = WidgetShowNowMethodInfo + ResolveBinMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveBinMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveBinMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveBinMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveBinMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveBinMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveBinMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveBinMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveBinMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveBinMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveBinMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveBinMethod "unmap" o = WidgetUnmapMethodInfo + ResolveBinMethod "unparent" o = WidgetUnparentMethodInfo + ResolveBinMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveBinMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveBinMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveBinMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveBinMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveBinMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveBinMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveBinMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveBinMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveBinMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveBinMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveBinMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveBinMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveBinMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveBinMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveBinMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveBinMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveBinMethod "getChild" o = BinGetChildMethodInfo + ResolveBinMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveBinMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveBinMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveBinMethod "getClip" o = WidgetGetClipMethodInfo + ResolveBinMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveBinMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveBinMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveBinMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveBinMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveBinMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveBinMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveBinMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveBinMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveBinMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveBinMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveBinMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveBinMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveBinMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveBinMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveBinMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveBinMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveBinMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveBinMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveBinMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveBinMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveBinMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveBinMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveBinMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveBinMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveBinMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveBinMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveBinMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveBinMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveBinMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveBinMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveBinMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveBinMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveBinMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveBinMethod "getParent" o = WidgetGetParentMethodInfo + ResolveBinMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveBinMethod "getPath" o = WidgetGetPathMethodInfo + ResolveBinMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveBinMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveBinMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveBinMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveBinMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveBinMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveBinMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveBinMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveBinMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveBinMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveBinMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveBinMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveBinMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveBinMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveBinMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveBinMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveBinMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveBinMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveBinMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveBinMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveBinMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveBinMethod "getState" o = WidgetGetStateMethodInfo + ResolveBinMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveBinMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveBinMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveBinMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveBinMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveBinMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveBinMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveBinMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveBinMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveBinMethod "getValign" o = WidgetGetValignMethodInfo + ResolveBinMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveBinMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveBinMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveBinMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveBinMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveBinMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveBinMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveBinMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveBinMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveBinMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveBinMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveBinMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveBinMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveBinMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveBinMethod "setClip" o = WidgetSetClipMethodInfo + ResolveBinMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveBinMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveBinMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveBinMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveBinMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveBinMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveBinMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveBinMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveBinMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveBinMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveBinMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveBinMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveBinMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveBinMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveBinMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveBinMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveBinMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveBinMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveBinMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveBinMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveBinMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveBinMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveBinMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveBinMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveBinMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveBinMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveBinMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveBinMethod "setParent" o = WidgetSetParentMethodInfo + ResolveBinMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveBinMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveBinMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveBinMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveBinMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveBinMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveBinMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveBinMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveBinMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveBinMethod "setState" o = WidgetSetStateMethodInfo + ResolveBinMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveBinMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveBinMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveBinMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveBinMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveBinMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveBinMethod "setValign" o = WidgetSetValignMethodInfo + ResolveBinMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveBinMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveBinMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveBinMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveBinMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveBinMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveBinMethod t Bin, MethodInfo info Bin p) => IsLabelProxy t (Bin -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveBinMethod t Bin, MethodInfo info Bin p) => IsLabel t (Bin -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList Bin = BinAttributeList -type BinAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type BinAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Bin = BinSignalList -type BinSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type BinSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Bin::get_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -79,8 +403,8 @@ binGetChild :: (MonadIO m, BinK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result binGetChild _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_bin_get_child _obj' @@ -88,5 +412,9 @@ result' <- (newObject Widget) result touchManagedPtr _obj return result' + +data BinGetChildMethodInfo +instance (signature ~ (m Widget), MonadIO m, BinK a) => MethodInfo BinGetChildMethodInfo a signature where + overloadedMethod _ = binGetChild diff --git a/GI/Gtk/Objects/Bin.hs-boot b/GI/Gtk/Objects/Bin.hs-boot --- a/GI/Gtk/Objects/Bin.hs-boot +++ b/GI/Gtk/Objects/Bin.hs-boot @@ -11,3 +11,4 @@ instance GObject Bin where class GObject o => BinK o instance (GObject o, IsDescendantOf Bin o) => BinK o +data BinGetChildMethodInfo diff --git a/GI/Gtk/Objects/BooleanCellAccessible.hs b/GI/Gtk/Objects/BooleanCellAccessible.hs --- a/GI/Gtk/Objects/BooleanCellAccessible.hs +++ b/GI/Gtk/Objects/BooleanCellAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,79 @@ noBooleanCellAccessible :: Maybe BooleanCellAccessible noBooleanCellAccessible = Nothing +type family ResolveBooleanCellAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveBooleanCellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveBooleanCellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveBooleanCellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveBooleanCellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveBooleanCellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveBooleanCellAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveBooleanCellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveBooleanCellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveBooleanCellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveBooleanCellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveBooleanCellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveBooleanCellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveBooleanCellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveBooleanCellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveBooleanCellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveBooleanCellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveBooleanCellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveBooleanCellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveBooleanCellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveBooleanCellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveBooleanCellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveBooleanCellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveBooleanCellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveBooleanCellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveBooleanCellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveBooleanCellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveBooleanCellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveBooleanCellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveBooleanCellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveBooleanCellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveBooleanCellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveBooleanCellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveBooleanCellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveBooleanCellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveBooleanCellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveBooleanCellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveBooleanCellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveBooleanCellAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveBooleanCellAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveBooleanCellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveBooleanCellAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveBooleanCellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveBooleanCellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveBooleanCellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveBooleanCellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveBooleanCellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveBooleanCellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveBooleanCellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveBooleanCellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveBooleanCellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveBooleanCellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveBooleanCellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveBooleanCellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveBooleanCellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveBooleanCellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveBooleanCellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveBooleanCellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveBooleanCellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveBooleanCellAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveBooleanCellAccessibleMethod t BooleanCellAccessible, MethodInfo info BooleanCellAccessible p) => IsLabelProxy t (BooleanCellAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveBooleanCellAccessibleMethod t BooleanCellAccessible, MethodInfo info BooleanCellAccessible p) => IsLabel t (BooleanCellAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList BooleanCellAccessible = BooleanCellAccessibleAttributeList -type BooleanCellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type BooleanCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList BooleanCellAccessible = BooleanCellAccessibleSignalList -type BooleanCellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type BooleanCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/Box.hs b/GI/Gtk/Objects/Box.hs --- a/GI/Gtk/Objects/Box.hs +++ b/GI/Gtk/Objects/Box.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** boxGetBaselinePosition + BoxGetBaselinePositionMethodInfo , boxGetBaselinePosition , -- ** boxGetCenterWidget + BoxGetCenterWidgetMethodInfo , boxGetCenterWidget , -- ** boxGetHomogeneous + BoxGetHomogeneousMethodInfo , boxGetHomogeneous , -- ** boxGetSpacing + BoxGetSpacingMethodInfo , boxGetSpacing , @@ -37,38 +42,47 @@ -- ** boxPackEnd + BoxPackEndMethodInfo , boxPackEnd , -- ** boxPackStart + BoxPackStartMethodInfo , boxPackStart , -- ** boxQueryChildPacking + BoxQueryChildPackingMethodInfo , boxQueryChildPacking , -- ** boxReorderChild + BoxReorderChildMethodInfo , boxReorderChild , -- ** boxSetBaselinePosition + BoxSetBaselinePositionMethodInfo , boxSetBaselinePosition , -- ** boxSetCenterWidget + BoxSetCenterWidgetMethodInfo , boxSetCenterWidget , -- ** boxSetChildPacking + BoxSetChildPackingMethodInfo , boxSetChildPacking , -- ** boxSetHomogeneous + BoxSetHomogeneousMethodInfo , boxSetHomogeneous , -- ** boxSetSpacing + BoxSetSpacingMethodInfo , boxSetSpacing , @@ -133,6 +147,343 @@ noBox :: Maybe Box noBox = Nothing +type family ResolveBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveBoxMethod "activate" o = WidgetActivateMethodInfo + ResolveBoxMethod "add" o = ContainerAddMethodInfo + ResolveBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveBoxMethod "addChild" o = BuildableAddChildMethodInfo + ResolveBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveBoxMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveBoxMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveBoxMethod "childType" o = ContainerChildTypeMethodInfo + ResolveBoxMethod "classPath" o = WidgetClassPathMethodInfo + ResolveBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveBoxMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveBoxMethod "destroy" o = WidgetDestroyMethodInfo + ResolveBoxMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveBoxMethod "draw" o = WidgetDrawMethodInfo + ResolveBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveBoxMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveBoxMethod "event" o = WidgetEventMethodInfo + ResolveBoxMethod "forall" o = ContainerForallMethodInfo + ResolveBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveBoxMethod "foreach" o = ContainerForeachMethodInfo + ResolveBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveBoxMethod "hide" o = WidgetHideMethodInfo + ResolveBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveBoxMethod "intersect" o = WidgetIntersectMethodInfo + ResolveBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveBoxMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveBoxMethod "map" o = WidgetMapMethodInfo + ResolveBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveBoxMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveBoxMethod "packEnd" o = BoxPackEndMethodInfo + ResolveBoxMethod "packStart" o = BoxPackStartMethodInfo + ResolveBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveBoxMethod "path" o = WidgetPathMethodInfo + ResolveBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveBoxMethod "realize" o = WidgetRealizeMethodInfo + ResolveBoxMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveBoxMethod "remove" o = ContainerRemoveMethodInfo + ResolveBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveBoxMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveBoxMethod "reparent" o = WidgetReparentMethodInfo + ResolveBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveBoxMethod "show" o = WidgetShowMethodInfo + ResolveBoxMethod "showAll" o = WidgetShowAllMethodInfo + ResolveBoxMethod "showNow" o = WidgetShowNowMethodInfo + ResolveBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveBoxMethod "unmap" o = WidgetUnmapMethodInfo + ResolveBoxMethod "unparent" o = WidgetUnparentMethodInfo + ResolveBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveBoxMethod "getClip" o = WidgetGetClipMethodInfo + ResolveBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveBoxMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveBoxMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveBoxMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveBoxMethod "getParent" o = WidgetGetParentMethodInfo + ResolveBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveBoxMethod "getPath" o = WidgetGetPathMethodInfo + ResolveBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveBoxMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveBoxMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveBoxMethod "getState" o = WidgetGetStateMethodInfo + ResolveBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveBoxMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveBoxMethod "getValign" o = WidgetGetValignMethodInfo + ResolveBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveBoxMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveBoxMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveBoxMethod "setClip" o = WidgetSetClipMethodInfo + ResolveBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveBoxMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveBoxMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveBoxMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveBoxMethod "setParent" o = WidgetSetParentMethodInfo + ResolveBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveBoxMethod "setState" o = WidgetSetStateMethodInfo + ResolveBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveBoxMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveBoxMethod "setValign" o = WidgetSetValignMethodInfo + ResolveBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveBoxMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveBoxMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveBoxMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveBoxMethod t Box, MethodInfo info Box p) => IsLabelProxy t (Box -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveBoxMethod t Box, MethodInfo info Box p) => IsLabel t (Box -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "baseline-position" -- Type: TInterface "Gtk" "BaselinePosition" -- Flags: [PropertyReadable,PropertyWritable] @@ -152,7 +503,7 @@ type AttrSetTypeConstraint BoxBaselinePositionPropertyInfo = (~) BaselinePosition type AttrBaseTypeConstraint BoxBaselinePositionPropertyInfo = BoxK type AttrGetType BoxBaselinePositionPropertyInfo = BaselinePosition - type AttrLabel BoxBaselinePositionPropertyInfo = "Box::baseline-position" + type AttrLabel BoxBaselinePositionPropertyInfo = "baseline-position" attrGet _ = getBoxBaselinePosition attrSet _ = setBoxBaselinePosition attrConstruct _ = constructBoxBaselinePosition @@ -176,7 +527,7 @@ type AttrSetTypeConstraint BoxHomogeneousPropertyInfo = (~) Bool type AttrBaseTypeConstraint BoxHomogeneousPropertyInfo = BoxK type AttrGetType BoxHomogeneousPropertyInfo = Bool - type AttrLabel BoxHomogeneousPropertyInfo = "Box::homogeneous" + type AttrLabel BoxHomogeneousPropertyInfo = "homogeneous" attrGet _ = getBoxHomogeneous attrSet _ = setBoxHomogeneous attrConstruct _ = constructBoxHomogeneous @@ -200,22 +551,21 @@ type AttrSetTypeConstraint BoxSpacingPropertyInfo = (~) Int32 type AttrBaseTypeConstraint BoxSpacingPropertyInfo = BoxK type AttrGetType BoxSpacingPropertyInfo = Int32 - type AttrLabel BoxSpacingPropertyInfo = "Box::spacing" + type AttrLabel BoxSpacingPropertyInfo = "spacing" attrGet _ = getBoxSpacing attrSet _ = setBoxSpacing attrConstruct _ = constructBoxSpacing type instance AttributeList Box = BoxAttributeList -type BoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type BoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Box = BoxSignalList -type BoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type BoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Box::new -- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Box" -- throws : False -- Skip return : False @@ -228,9 +578,9 @@ boxNew :: (MonadIO m) => - Orientation -> -- orientation - Int32 -> -- spacing - m Box + Orientation -- orientation + -> Int32 -- spacing + -> m Box -- result boxNew orientation spacing = liftIO $ do let orientation' = (fromIntegral . fromEnum) orientation result <- gtk_box_new orientation' spacing @@ -240,9 +590,8 @@ -- method Box::get_baseline_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "BaselinePosition" -- throws : False -- Skip return : False @@ -254,8 +603,8 @@ boxGetBaselinePosition :: (MonadIO m, BoxK a) => - a -> -- _obj - m BaselinePosition + a -- _obj + -> m BaselinePosition -- result boxGetBaselinePosition _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_box_get_baseline_position _obj' @@ -263,11 +612,14 @@ touchManagedPtr _obj return result' +data BoxGetBaselinePositionMethodInfo +instance (signature ~ (m BaselinePosition), MonadIO m, BoxK a) => MethodInfo BoxGetBaselinePositionMethodInfo a signature where + overloadedMethod _ = boxGetBaselinePosition + -- method Box::get_center_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -279,8 +631,8 @@ boxGetCenterWidget :: (MonadIO m, BoxK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result boxGetCenterWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_box_get_center_widget _obj' @@ -289,11 +641,14 @@ touchManagedPtr _obj return result' +data BoxGetCenterWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, BoxK a) => MethodInfo BoxGetCenterWidgetMethodInfo a signature where + overloadedMethod _ = boxGetCenterWidget + -- method Box::get_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -305,8 +660,8 @@ boxGetHomogeneous :: (MonadIO m, BoxK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result boxGetHomogeneous _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_box_get_homogeneous _obj' @@ -314,11 +669,14 @@ touchManagedPtr _obj return result' +data BoxGetHomogeneousMethodInfo +instance (signature ~ (m Bool), MonadIO m, BoxK a) => MethodInfo BoxGetHomogeneousMethodInfo a signature where + overloadedMethod _ = boxGetHomogeneous + -- method Box::get_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -330,19 +688,22 @@ boxGetSpacing :: (MonadIO m, BoxK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result boxGetSpacing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_box_get_spacing _obj' touchManagedPtr _obj return result +data BoxGetSpacingMethodInfo +instance (signature ~ (m Int32), MonadIO m, BoxK a) => MethodInfo BoxGetSpacingMethodInfo a signature where + overloadedMethod _ = boxGetSpacing + -- method Box::pack_end -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -358,12 +719,12 @@ boxPackEnd :: (MonadIO m, BoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - Bool -> -- expand - Bool -> -- fill - Word32 -> -- padding - m () + a -- _obj + -> b -- child + -> Bool -- expand + -> Bool -- fill + -> Word32 -- padding + -> m () -- result boxPackEnd _obj child expand fill padding = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -374,11 +735,14 @@ touchManagedPtr child return () +data BoxPackEndMethodInfo +instance (signature ~ (b -> Bool -> Bool -> Word32 -> m ()), MonadIO m, BoxK a, WidgetK b) => MethodInfo BoxPackEndMethodInfo a signature where + overloadedMethod _ = boxPackEnd + -- method Box::pack_start -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -394,12 +758,12 @@ boxPackStart :: (MonadIO m, BoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - Bool -> -- expand - Bool -> -- fill - Word32 -> -- padding - m () + a -- _obj + -> b -- child + -> Bool -- expand + -> Bool -- fill + -> Word32 -- padding + -> m () -- result boxPackStart _obj child expand fill padding = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -410,11 +774,14 @@ touchManagedPtr child return () +data BoxPackStartMethodInfo +instance (signature ~ (b -> Bool -> Bool -> Word32 -> m ()), MonadIO m, BoxK a, WidgetK b) => MethodInfo BoxPackStartMethodInfo a signature where + overloadedMethod _ = boxPackStart + -- method Box::query_child_packing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -431,37 +798,40 @@ boxQueryChildPacking :: (MonadIO m, BoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - m (Bool,Bool,Word32,PackType) + a -- _obj + -> b -- child + -> m (Bool,Bool,Word32,PackType) -- result boxQueryChildPacking _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child expand <- allocMem :: IO (Ptr CInt) fill <- allocMem :: IO (Ptr CInt) padding <- allocMem :: IO (Ptr Word32) - pack_type <- allocMem :: IO (Ptr CUInt) - gtk_box_query_child_packing _obj' child' expand fill padding pack_type + packType <- allocMem :: IO (Ptr CUInt) + gtk_box_query_child_packing _obj' child' expand fill padding packType expand' <- peek expand let expand'' = (/= 0) expand' fill' <- peek fill let fill'' = (/= 0) fill' padding' <- peek padding - pack_type' <- peek pack_type - let pack_type'' = (toEnum . fromIntegral) pack_type' + packType' <- peek packType + let packType'' = (toEnum . fromIntegral) packType' touchManagedPtr _obj touchManagedPtr child freeMem expand freeMem fill freeMem padding - freeMem pack_type - return (expand'', fill'', padding', pack_type'') + freeMem packType + return (expand'', fill'', padding', packType'') +data BoxQueryChildPackingMethodInfo +instance (signature ~ (b -> m (Bool,Bool,Word32,PackType)), MonadIO m, BoxK a, WidgetK b) => MethodInfo BoxQueryChildPackingMethodInfo a signature where + overloadedMethod _ = boxQueryChildPacking + -- method Box::reorder_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -475,10 +845,10 @@ boxReorderChild :: (MonadIO m, BoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- position - m () + a -- _obj + -> b -- child + -> Int32 -- position + -> m () -- result boxReorderChild _obj child position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -487,11 +857,14 @@ touchManagedPtr child return () +data BoxReorderChildMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, BoxK a, WidgetK b) => MethodInfo BoxReorderChildMethodInfo a signature where + overloadedMethod _ = boxReorderChild + -- method Box::set_baseline_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -504,9 +877,9 @@ boxSetBaselinePosition :: (MonadIO m, BoxK a) => - a -> -- _obj - BaselinePosition -> -- position - m () + a -- _obj + -> BaselinePosition -- position + -> m () -- result boxSetBaselinePosition _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let position' = (fromIntegral . fromEnum) position @@ -514,11 +887,14 @@ touchManagedPtr _obj return () +data BoxSetBaselinePositionMethodInfo +instance (signature ~ (BaselinePosition -> m ()), MonadIO m, BoxK a) => MethodInfo BoxSetBaselinePositionMethodInfo a signature where + overloadedMethod _ = boxSetBaselinePosition + -- method Box::set_center_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -531,9 +907,9 @@ boxSetCenterWidget :: (MonadIO m, BoxK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- widget - m () + a -- _obj + -> Maybe (b) -- widget + -> m () -- result boxSetCenterWidget _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeWidget <- case widget of @@ -546,11 +922,14 @@ whenJust widget touchManagedPtr return () +data BoxSetCenterWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, BoxK a, WidgetK b) => MethodInfo BoxSetCenterWidgetMethodInfo a signature where + overloadedMethod _ = boxSetCenterWidget + -- method Box::set_child_packing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -567,29 +946,32 @@ boxSetChildPacking :: (MonadIO m, BoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - Bool -> -- expand - Bool -> -- fill - Word32 -> -- padding - PackType -> -- pack_type - m () -boxSetChildPacking _obj child expand fill padding pack_type = liftIO $ do + a -- _obj + -> b -- child + -> Bool -- expand + -> Bool -- fill + -> Word32 -- padding + -> PackType -- packType + -> m () -- result +boxSetChildPacking _obj child expand fill padding packType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child let expand' = (fromIntegral . fromEnum) expand let fill' = (fromIntegral . fromEnum) fill - let pack_type' = (fromIntegral . fromEnum) pack_type - gtk_box_set_child_packing _obj' child' expand' fill' padding pack_type' + let packType' = (fromIntegral . fromEnum) packType + gtk_box_set_child_packing _obj' child' expand' fill' padding packType' touchManagedPtr _obj touchManagedPtr child return () +data BoxSetChildPackingMethodInfo +instance (signature ~ (b -> Bool -> Bool -> Word32 -> PackType -> m ()), MonadIO m, BoxK a, WidgetK b) => MethodInfo BoxSetChildPackingMethodInfo a signature where + overloadedMethod _ = boxSetChildPacking + -- method Box::set_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -602,9 +984,9 @@ boxSetHomogeneous :: (MonadIO m, BoxK a) => - a -> -- _obj - Bool -> -- homogeneous - m () + a -- _obj + -> Bool -- homogeneous + -> m () -- result boxSetHomogeneous _obj homogeneous = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let homogeneous' = (fromIntegral . fromEnum) homogeneous @@ -612,11 +994,14 @@ touchManagedPtr _obj return () +data BoxSetHomogeneousMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, BoxK a) => MethodInfo BoxSetHomogeneousMethodInfo a signature where + overloadedMethod _ = boxSetHomogeneous + -- method Box::set_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -629,13 +1014,17 @@ boxSetSpacing :: (MonadIO m, BoxK a) => - a -> -- _obj - Int32 -> -- spacing - m () + a -- _obj + -> Int32 -- spacing + -> m () -- result boxSetSpacing _obj spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_box_set_spacing _obj' spacing touchManagedPtr _obj return () + +data BoxSetSpacingMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, BoxK a) => MethodInfo BoxSetSpacingMethodInfo a signature where + overloadedMethod _ = boxSetSpacing diff --git a/GI/Gtk/Objects/Box.hs-boot b/GI/Gtk/Objects/Box.hs-boot --- a/GI/Gtk/Objects/Box.hs-boot +++ b/GI/Gtk/Objects/Box.hs-boot @@ -14,3 +14,16 @@ data BoxBaselinePositionPropertyInfo data BoxHomogeneousPropertyInfo data BoxSpacingPropertyInfo +data BoxGetBaselinePositionMethodInfo +data BoxGetCenterWidgetMethodInfo +data BoxGetHomogeneousMethodInfo +data BoxGetSpacingMethodInfo +data BoxPackEndMethodInfo +data BoxPackStartMethodInfo +data BoxQueryChildPackingMethodInfo +data BoxReorderChildMethodInfo +data BoxSetBaselinePositionMethodInfo +data BoxSetCenterWidgetMethodInfo +data BoxSetChildPackingMethodInfo +data BoxSetHomogeneousMethodInfo +data BoxSetSpacingMethodInfo diff --git a/GI/Gtk/Objects/Builder.hs b/GI/Gtk/Objects/Builder.hs --- a/GI/Gtk/Objects/Builder.hs +++ b/GI/Gtk/Objects/Builder.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,62 +18,77 @@ -- * Methods -- ** builderAddCallbackSymbol + BuilderAddCallbackSymbolMethodInfo , builderAddCallbackSymbol , -- ** builderAddFromFile + BuilderAddFromFileMethodInfo , builderAddFromFile , -- ** builderAddFromResource + BuilderAddFromResourceMethodInfo , builderAddFromResource , -- ** builderAddFromString + BuilderAddFromStringMethodInfo , builderAddFromString , -- ** builderAddObjectsFromFile + BuilderAddObjectsFromFileMethodInfo , builderAddObjectsFromFile , -- ** builderAddObjectsFromResource + BuilderAddObjectsFromResourceMethodInfo , builderAddObjectsFromResource , -- ** builderAddObjectsFromString + BuilderAddObjectsFromStringMethodInfo , builderAddObjectsFromString , -- ** builderConnectSignals + BuilderConnectSignalsMethodInfo , builderConnectSignals , -- ** builderConnectSignalsFull + BuilderConnectSignalsFullMethodInfo , builderConnectSignalsFull , -- ** builderExposeObject + BuilderExposeObjectMethodInfo , builderExposeObject , -- ** builderGetApplication + BuilderGetApplicationMethodInfo , builderGetApplication , -- ** builderGetObject + BuilderGetObjectMethodInfo , builderGetObject , -- ** builderGetObjects + BuilderGetObjectsMethodInfo , builderGetObjects , -- ** builderGetTranslationDomain + BuilderGetTranslationDomainMethodInfo , builderGetTranslationDomain , -- ** builderGetTypeFromName + BuilderGetTypeFromNameMethodInfo , builderGetTypeFromName , @@ -93,18 +109,22 @@ -- ** builderSetApplication + BuilderSetApplicationMethodInfo , builderSetApplication , -- ** builderSetTranslationDomain + BuilderSetTranslationDomainMethodInfo , builderSetTranslationDomain , -- ** builderValueFromString + BuilderValueFromStringMethodInfo , builderValueFromString , -- ** builderValueFromStringType + BuilderValueFromStringTypeMethodInfo , builderValueFromStringType , @@ -154,6 +174,58 @@ noBuilder :: Maybe Builder noBuilder = Nothing +type family ResolveBuilderMethod (t :: Symbol) (o :: *) :: * where + ResolveBuilderMethod "addCallbackSymbol" o = BuilderAddCallbackSymbolMethodInfo + ResolveBuilderMethod "addFromFile" o = BuilderAddFromFileMethodInfo + ResolveBuilderMethod "addFromResource" o = BuilderAddFromResourceMethodInfo + ResolveBuilderMethod "addFromString" o = BuilderAddFromStringMethodInfo + ResolveBuilderMethod "addObjectsFromFile" o = BuilderAddObjectsFromFileMethodInfo + ResolveBuilderMethod "addObjectsFromResource" o = BuilderAddObjectsFromResourceMethodInfo + ResolveBuilderMethod "addObjectsFromString" o = BuilderAddObjectsFromStringMethodInfo + ResolveBuilderMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveBuilderMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveBuilderMethod "connectSignals" o = BuilderConnectSignalsMethodInfo + ResolveBuilderMethod "connectSignalsFull" o = BuilderConnectSignalsFullMethodInfo + ResolveBuilderMethod "exposeObject" o = BuilderExposeObjectMethodInfo + ResolveBuilderMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveBuilderMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveBuilderMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveBuilderMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveBuilderMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveBuilderMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveBuilderMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveBuilderMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveBuilderMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveBuilderMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveBuilderMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveBuilderMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveBuilderMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveBuilderMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveBuilderMethod "valueFromString" o = BuilderValueFromStringMethodInfo + ResolveBuilderMethod "valueFromStringType" o = BuilderValueFromStringTypeMethodInfo + ResolveBuilderMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveBuilderMethod "getApplication" o = BuilderGetApplicationMethodInfo + ResolveBuilderMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveBuilderMethod "getObject" o = BuilderGetObjectMethodInfo + ResolveBuilderMethod "getObjects" o = BuilderGetObjectsMethodInfo + ResolveBuilderMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveBuilderMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveBuilderMethod "getTranslationDomain" o = BuilderGetTranslationDomainMethodInfo + ResolveBuilderMethod "getTypeFromName" o = BuilderGetTypeFromNameMethodInfo + ResolveBuilderMethod "setApplication" o = BuilderSetApplicationMethodInfo + ResolveBuilderMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveBuilderMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveBuilderMethod "setTranslationDomain" o = BuilderSetTranslationDomainMethodInfo + ResolveBuilderMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveBuilderMethod t Builder, MethodInfo info Builder p) => IsLabelProxy t (Builder -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveBuilderMethod t Builder, MethodInfo info Builder p) => IsLabel t (Builder -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "translation-domain" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] @@ -173,22 +245,21 @@ type AttrSetTypeConstraint BuilderTranslationDomainPropertyInfo = (~) T.Text type AttrBaseTypeConstraint BuilderTranslationDomainPropertyInfo = BuilderK type AttrGetType BuilderTranslationDomainPropertyInfo = T.Text - type AttrLabel BuilderTranslationDomainPropertyInfo = "Builder::translation-domain" + type AttrLabel BuilderTranslationDomainPropertyInfo = "translation-domain" attrGet _ = getBuilderTranslationDomain attrSet _ = setBuilderTranslationDomain attrConstruct _ = constructBuilderTranslationDomain type instance AttributeList Builder = BuilderAttributeList -type BuilderAttributeList = ('[ '("translation-domain", BuilderTranslationDomainPropertyInfo)] :: [(Symbol, *)]) +type BuilderAttributeList = ('[ '("translationDomain", BuilderTranslationDomainPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Builder = BuilderSignalList -type BuilderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type BuilderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Builder::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Builder" -- throws : False -- Skip return : False @@ -199,7 +270,7 @@ builderNew :: (MonadIO m) => - m Builder + m Builder -- result builderNew = liftIO $ do result <- gtk_builder_new checkUnexpectedReturnNULL "gtk_builder_new" result @@ -208,9 +279,8 @@ -- method Builder::new_from_file -- method type : Constructor --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Builder" -- throws : False -- Skip return : False @@ -222,8 +292,8 @@ builderNewFromFile :: (MonadIO m) => - T.Text -> -- filename - m Builder + T.Text -- filename + -> m Builder -- result builderNewFromFile filename = liftIO $ do filename' <- textToCString filename result <- gtk_builder_new_from_file filename' @@ -234,9 +304,8 @@ -- method Builder::new_from_resource -- method type : Constructor --- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Builder" -- throws : False -- Skip return : False @@ -248,21 +317,20 @@ builderNewFromResource :: (MonadIO m) => - T.Text -> -- resource_path - m Builder -builderNewFromResource resource_path = liftIO $ do - resource_path' <- textToCString resource_path - result <- gtk_builder_new_from_resource resource_path' + T.Text -- resourcePath + -> m Builder -- result +builderNewFromResource resourcePath = liftIO $ do + resourcePath' <- textToCString resourcePath + result <- gtk_builder_new_from_resource resourcePath' checkUnexpectedReturnNULL "gtk_builder_new_from_resource" result result' <- (wrapObject Builder) result - freeMem resource_path' + freeMem resourcePath' return result' -- method Builder::new_from_string -- method type : Constructor --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Builder" -- throws : False -- Skip return : False @@ -275,9 +343,9 @@ builderNewFromString :: (MonadIO m) => - T.Text -> -- string - Int64 -> -- length - m Builder + T.Text -- string + -> Int64 -- length_ + -> m Builder -- result builderNewFromString string length_ = liftIO $ do string' <- textToCString string result <- gtk_builder_new_from_string string' length_ @@ -288,9 +356,8 @@ -- method Builder::add_callback_symbol -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_symbol", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_symbol", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_symbol", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -304,26 +371,29 @@ builderAddCallbackSymbol :: (MonadIO m, BuilderK a) => - a -> -- _obj - T.Text -> -- callback_name - GObject.Callback -> -- callback_symbol - m () -builderAddCallbackSymbol _obj callback_name callback_symbol = liftIO $ do + a -- _obj + -> T.Text -- callbackName + -> GObject.Callback -- callbackSymbol + -> m () -- result +builderAddCallbackSymbol _obj callbackName callbackSymbol = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - callback_name' <- textToCString callback_name - ptrcallback_symbol <- callocMem :: IO (Ptr (FunPtr GObject.CallbackC)) - callback_symbol' <- GObject.mkCallback (GObject.callbackWrapper (Just ptrcallback_symbol) callback_symbol) - poke ptrcallback_symbol callback_symbol' - gtk_builder_add_callback_symbol _obj' callback_name' callback_symbol' + callbackName' <- textToCString callbackName + ptrcallbackSymbol <- callocMem :: IO (Ptr (FunPtr GObject.CallbackC)) + callbackSymbol' <- GObject.mkCallback (GObject.callbackWrapper (Just ptrcallbackSymbol) callbackSymbol) + poke ptrcallbackSymbol callbackSymbol' + gtk_builder_add_callback_symbol _obj' callbackName' callbackSymbol' touchManagedPtr _obj - freeMem callback_name' + freeMem callbackName' return () +data BuilderAddCallbackSymbolMethodInfo +instance (signature ~ (T.Text -> GObject.Callback -> m ()), MonadIO m, BuilderK a) => MethodInfo BuilderAddCallbackSymbolMethodInfo a signature where + overloadedMethod _ = builderAddCallbackSymbol + -- method Builder::add_from_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : True -- Skip return : False @@ -337,9 +407,9 @@ builderAddFromFile :: (MonadIO m, BuilderK a) => - a -> -- _obj - T.Text -> -- filename - m Word32 + a -- _obj + -> T.Text -- filename + -> m Word32 -- result builderAddFromFile _obj filename = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj filename' <- textToCString filename @@ -352,11 +422,14 @@ freeMem filename' ) +data BuilderAddFromFileMethodInfo +instance (signature ~ (T.Text -> m Word32), MonadIO m, BuilderK a) => MethodInfo BuilderAddFromFileMethodInfo a signature where + overloadedMethod _ = builderAddFromFile + -- method Builder::add_from_resource -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : True -- Skip return : False @@ -370,26 +443,29 @@ builderAddFromResource :: (MonadIO m, BuilderK a) => - a -> -- _obj - T.Text -> -- resource_path - m Word32 -builderAddFromResource _obj resource_path = liftIO $ do + a -- _obj + -> T.Text -- resourcePath + -> m Word32 -- result +builderAddFromResource _obj resourcePath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - resource_path' <- textToCString resource_path + resourcePath' <- textToCString resourcePath onException (do - result <- propagateGError $ gtk_builder_add_from_resource _obj' resource_path' + result <- propagateGError $ gtk_builder_add_from_resource _obj' resourcePath' touchManagedPtr _obj - freeMem resource_path' + freeMem resourcePath' return result ) (do - freeMem resource_path' + freeMem resourcePath' ) +data BuilderAddFromResourceMethodInfo +instance (signature ~ (T.Text -> m Word32), MonadIO m, BuilderK a) => MethodInfo BuilderAddFromResourceMethodInfo a signature where + overloadedMethod _ = builderAddFromResource + -- method Builder::add_from_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : True -- Skip return : False @@ -404,10 +480,10 @@ builderAddFromString :: (MonadIO m, BuilderK a) => - a -> -- _obj - T.Text -> -- buffer - Word64 -> -- length - m Word32 + a -- _obj + -> T.Text -- buffer + -> Word64 -- length_ + -> m Word32 -- result builderAddFromString _obj buffer length_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj buffer' <- textToCString buffer @@ -420,11 +496,14 @@ freeMem buffer' ) +data BuilderAddFromStringMethodInfo +instance (signature ~ (T.Text -> Word64 -> m Word32), MonadIO m, BuilderK a) => MethodInfo BuilderAddFromStringMethodInfo a signature where + overloadedMethod _ = builderAddFromString + -- method Builder::add_objects_from_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : True -- Skip return : False @@ -439,32 +518,35 @@ builderAddObjectsFromFile :: (MonadIO m, BuilderK a) => - a -> -- _obj - T.Text -> -- filename - [T.Text] -> -- object_ids - m Word32 -builderAddObjectsFromFile _obj filename object_ids = liftIO $ do + a -- _obj + -> T.Text -- filename + -> [T.Text] -- objectIds + -> m Word32 -- result +builderAddObjectsFromFile _obj filename objectIds = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj filename' <- textToCString filename - object_ids' <- packZeroTerminatedUTF8CArray object_ids + objectIds' <- packZeroTerminatedUTF8CArray objectIds onException (do - result <- propagateGError $ gtk_builder_add_objects_from_file _obj' filename' object_ids' + result <- propagateGError $ gtk_builder_add_objects_from_file _obj' filename' objectIds' touchManagedPtr _obj freeMem filename' - mapZeroTerminatedCArray freeMem object_ids' - freeMem object_ids' + mapZeroTerminatedCArray freeMem objectIds' + freeMem objectIds' return result ) (do freeMem filename' - mapZeroTerminatedCArray freeMem object_ids' - freeMem object_ids' + mapZeroTerminatedCArray freeMem objectIds' + freeMem objectIds' ) +data BuilderAddObjectsFromFileMethodInfo +instance (signature ~ (T.Text -> [T.Text] -> m Word32), MonadIO m, BuilderK a) => MethodInfo BuilderAddObjectsFromFileMethodInfo a signature where + overloadedMethod _ = builderAddObjectsFromFile + -- method Builder::add_objects_from_resource -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : True -- Skip return : False @@ -479,32 +561,35 @@ builderAddObjectsFromResource :: (MonadIO m, BuilderK a) => - a -> -- _obj - T.Text -> -- resource_path - [T.Text] -> -- object_ids - m Word32 -builderAddObjectsFromResource _obj resource_path object_ids = liftIO $ do + a -- _obj + -> T.Text -- resourcePath + -> [T.Text] -- objectIds + -> m Word32 -- result +builderAddObjectsFromResource _obj resourcePath objectIds = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - resource_path' <- textToCString resource_path - object_ids' <- packZeroTerminatedUTF8CArray object_ids + resourcePath' <- textToCString resourcePath + objectIds' <- packZeroTerminatedUTF8CArray objectIds onException (do - result <- propagateGError $ gtk_builder_add_objects_from_resource _obj' resource_path' object_ids' + result <- propagateGError $ gtk_builder_add_objects_from_resource _obj' resourcePath' objectIds' touchManagedPtr _obj - freeMem resource_path' - mapZeroTerminatedCArray freeMem object_ids' - freeMem object_ids' + freeMem resourcePath' + mapZeroTerminatedCArray freeMem objectIds' + freeMem objectIds' return result ) (do - freeMem resource_path' - mapZeroTerminatedCArray freeMem object_ids' - freeMem object_ids' + freeMem resourcePath' + mapZeroTerminatedCArray freeMem objectIds' + freeMem objectIds' ) +data BuilderAddObjectsFromResourceMethodInfo +instance (signature ~ (T.Text -> [T.Text] -> m Word32), MonadIO m, BuilderK a) => MethodInfo BuilderAddObjectsFromResourceMethodInfo a signature where + overloadedMethod _ = builderAddObjectsFromResource + -- method Builder::add_objects_from_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : True -- Skip return : False @@ -520,33 +605,36 @@ builderAddObjectsFromString :: (MonadIO m, BuilderK a) => - a -> -- _obj - T.Text -> -- buffer - Word64 -> -- length - [T.Text] -> -- object_ids - m Word32 -builderAddObjectsFromString _obj buffer length_ object_ids = liftIO $ do + a -- _obj + -> T.Text -- buffer + -> Word64 -- length_ + -> [T.Text] -- objectIds + -> m Word32 -- result +builderAddObjectsFromString _obj buffer length_ objectIds = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj buffer' <- textToCString buffer - object_ids' <- packZeroTerminatedUTF8CArray object_ids + objectIds' <- packZeroTerminatedUTF8CArray objectIds onException (do - result <- propagateGError $ gtk_builder_add_objects_from_string _obj' buffer' length_ object_ids' + result <- propagateGError $ gtk_builder_add_objects_from_string _obj' buffer' length_ objectIds' touchManagedPtr _obj freeMem buffer' - mapZeroTerminatedCArray freeMem object_ids' - freeMem object_ids' + mapZeroTerminatedCArray freeMem objectIds' + freeMem objectIds' return result ) (do freeMem buffer' - mapZeroTerminatedCArray freeMem object_ids' - freeMem object_ids' + mapZeroTerminatedCArray freeMem objectIds' + freeMem objectIds' ) +data BuilderAddObjectsFromStringMethodInfo +instance (signature ~ (T.Text -> Word64 -> [T.Text] -> m Word32), MonadIO m, BuilderK a) => MethodInfo BuilderAddObjectsFromStringMethodInfo a signature where + overloadedMethod _ = builderAddObjectsFromString + -- method Builder::connect_signals -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -559,20 +647,23 @@ builderConnectSignals :: (MonadIO m, BuilderK a) => - a -> -- _obj - Ptr () -> -- user_data - m () -builderConnectSignals _obj user_data = liftIO $ do + a -- _obj + -> Ptr () -- userData + -> m () -- result +builderConnectSignals _obj userData = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_builder_connect_signals _obj' user_data + gtk_builder_connect_signals _obj' userData touchManagedPtr _obj return () +data BuilderConnectSignalsMethodInfo +instance (signature ~ (Ptr () -> m ()), MonadIO m, BuilderK a) => MethodInfo BuilderConnectSignalsMethodInfo a signature where + overloadedMethod _ = builderConnectSignals + -- method Builder::connect_signals_full -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "BuilderConnectFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "BuilderConnectFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "BuilderConnectFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -586,23 +677,26 @@ builderConnectSignalsFull :: (MonadIO m, BuilderK a) => - a -> -- _obj - BuilderConnectFunc -> -- func - m () + a -- _obj + -> BuilderConnectFunc -- func + -> m () -- result builderConnectSignalsFull _obj func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj func' <- mkBuilderConnectFunc (builderConnectFuncWrapper Nothing func) - let user_data = nullPtr - gtk_builder_connect_signals_full _obj' func' user_data + let userData = nullPtr + gtk_builder_connect_signals_full _obj' func' userData safeFreeFunPtr $ castFunPtrToPtr func' touchManagedPtr _obj return () +data BuilderConnectSignalsFullMethodInfo +instance (signature ~ (BuilderConnectFunc -> m ()), MonadIO m, BuilderK a) => MethodInfo BuilderConnectSignalsFullMethodInfo a signature where + overloadedMethod _ = builderConnectSignalsFull + -- method Builder::expose_object -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -616,10 +710,10 @@ builderExposeObject :: (MonadIO m, BuilderK a, GObject.ObjectK b) => - a -> -- _obj - T.Text -> -- name - b -> -- object - m () + a -- _obj + -> T.Text -- name + -> b -- object + -> m () -- result builderExposeObject _obj name object = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -630,11 +724,14 @@ freeMem name' return () +data BuilderExposeObjectMethodInfo +instance (signature ~ (T.Text -> b -> m ()), MonadIO m, BuilderK a, GObject.ObjectK b) => MethodInfo BuilderExposeObjectMethodInfo a signature where + overloadedMethod _ = builderExposeObject + -- method Builder::get_application -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Application" -- throws : False -- Skip return : False @@ -646,8 +743,8 @@ builderGetApplication :: (MonadIO m, BuilderK a) => - a -> -- _obj - m Application + a -- _obj + -> m Application -- result builderGetApplication _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_builder_get_application _obj' @@ -656,11 +753,14 @@ touchManagedPtr _obj return result' +data BuilderGetApplicationMethodInfo +instance (signature ~ (m Application), MonadIO m, BuilderK a) => MethodInfo BuilderGetApplicationMethodInfo a signature where + overloadedMethod _ = builderGetApplication + -- method Builder::get_object -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "Object" -- throws : False -- Skip return : False @@ -673,9 +773,9 @@ builderGetObject :: (MonadIO m, BuilderK a) => - a -> -- _obj - T.Text -> -- name - m GObject.Object + a -- _obj + -> T.Text -- name + -> m GObject.Object -- result builderGetObject _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -686,11 +786,14 @@ freeMem name' return result' +data BuilderGetObjectMethodInfo +instance (signature ~ (T.Text -> m GObject.Object), MonadIO m, BuilderK a) => MethodInfo BuilderGetObjectMethodInfo a signature where + overloadedMethod _ = builderGetObject + -- method Builder::get_objects -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TInterface "GObject" "Object") -- throws : False -- Skip return : False @@ -702,8 +805,8 @@ builderGetObjects :: (MonadIO m, BuilderK a) => - a -> -- _obj - m [GObject.Object] + a -- _obj + -> m [GObject.Object] -- result builderGetObjects _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_builder_get_objects _obj' @@ -714,11 +817,14 @@ touchManagedPtr _obj return result'' +data BuilderGetObjectsMethodInfo +instance (signature ~ (m [GObject.Object]), MonadIO m, BuilderK a) => MethodInfo BuilderGetObjectsMethodInfo a signature where + overloadedMethod _ = builderGetObjects + -- method Builder::get_translation_domain -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -730,8 +836,8 @@ builderGetTranslationDomain :: (MonadIO m, BuilderK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result builderGetTranslationDomain _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_builder_get_translation_domain _obj' @@ -740,11 +846,14 @@ touchManagedPtr _obj return result' +data BuilderGetTranslationDomainMethodInfo +instance (signature ~ (m T.Text), MonadIO m, BuilderK a) => MethodInfo BuilderGetTranslationDomainMethodInfo a signature where + overloadedMethod _ = builderGetTranslationDomain + -- method Builder::get_type_from_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -757,23 +866,26 @@ builderGetTypeFromName :: (MonadIO m, BuilderK a) => - a -> -- _obj - T.Text -> -- type_name - m GType -builderGetTypeFromName _obj type_name = liftIO $ do + a -- _obj + -> T.Text -- typeName + -> m GType -- result +builderGetTypeFromName _obj typeName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - type_name' <- textToCString type_name - result <- gtk_builder_get_type_from_name _obj' type_name' + typeName' <- textToCString typeName + result <- gtk_builder_get_type_from_name _obj' typeName' let result' = GType result touchManagedPtr _obj - freeMem type_name' + freeMem typeName' return result' +data BuilderGetTypeFromNameMethodInfo +instance (signature ~ (T.Text -> m GType), MonadIO m, BuilderK a) => MethodInfo BuilderGetTypeFromNameMethodInfo a signature where + overloadedMethod _ = builderGetTypeFromName + -- method Builder::set_application -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -786,9 +898,9 @@ builderSetApplication :: (MonadIO m, BuilderK a, ApplicationK b) => - a -> -- _obj - b -> -- application - m () + a -- _obj + -> b -- application + -> m () -- result builderSetApplication _obj application = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let application' = unsafeManagedPtrCastPtr application @@ -797,11 +909,14 @@ touchManagedPtr application return () +data BuilderSetApplicationMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, BuilderK a, ApplicationK b) => MethodInfo BuilderSetApplicationMethodInfo a signature where + overloadedMethod _ = builderSetApplication + -- method Builder::set_translation_domain -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -814,9 +929,9 @@ builderSetTranslationDomain :: (MonadIO m, BuilderK a) => - a -> -- _obj - Maybe (T.Text) -> -- domain - m () + a -- _obj + -> Maybe (T.Text) -- domain + -> m () -- result builderSetTranslationDomain _obj domain = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeDomain <- case domain of @@ -829,11 +944,14 @@ freeMem maybeDomain return () +data BuilderSetTranslationDomainMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, BuilderK a) => MethodInfo BuilderSetTranslationDomainMethodInfo a signature where + overloadedMethod _ = builderSetTranslationDomain + -- method Builder::value_from_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -849,10 +967,10 @@ builderValueFromString :: (MonadIO m, BuilderK a) => - a -> -- _obj - GParamSpec -> -- pspec - T.Text -> -- string - m (GValue) + a -- _obj + -> GParamSpec -- pspec + -> T.Text -- string + -> m (GValue) -- result builderValueFromString _obj pspec string = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let pspec' = unsafeManagedPtrGetPtr pspec @@ -869,11 +987,14 @@ freeMem value ) +data BuilderValueFromStringMethodInfo +instance (signature ~ (GParamSpec -> T.Text -> m (GValue)), MonadIO m, BuilderK a) => MethodInfo BuilderValueFromStringMethodInfo a signature where + overloadedMethod _ = builderValueFromString + -- method Builder::value_from_string_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -889,10 +1010,10 @@ builderValueFromStringType :: (MonadIO m, BuilderK a) => - a -> -- _obj - GType -> -- type - T.Text -> -- string - m (GValue) + a -- _obj + -> GType -- type_ + -> T.Text -- string + -> m (GValue) -- result builderValueFromStringType _obj type_ string = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let type_' = gtypeToCGType type_ @@ -908,5 +1029,9 @@ freeMem string' freeMem value ) + +data BuilderValueFromStringTypeMethodInfo +instance (signature ~ (GType -> T.Text -> m (GValue)), MonadIO m, BuilderK a) => MethodInfo BuilderValueFromStringTypeMethodInfo a signature where + overloadedMethod _ = builderValueFromStringType diff --git a/GI/Gtk/Objects/Builder.hs-boot b/GI/Gtk/Objects/Builder.hs-boot --- a/GI/Gtk/Objects/Builder.hs-boot +++ b/GI/Gtk/Objects/Builder.hs-boot @@ -12,3 +12,22 @@ class GObject o => BuilderK o instance (GObject o, IsDescendantOf Builder o) => BuilderK o data BuilderTranslationDomainPropertyInfo +data BuilderAddCallbackSymbolMethodInfo +data BuilderAddFromFileMethodInfo +data BuilderAddFromResourceMethodInfo +data BuilderAddFromStringMethodInfo +data BuilderAddObjectsFromFileMethodInfo +data BuilderAddObjectsFromResourceMethodInfo +data BuilderAddObjectsFromStringMethodInfo +data BuilderConnectSignalsMethodInfo +data BuilderConnectSignalsFullMethodInfo +data BuilderExposeObjectMethodInfo +data BuilderGetApplicationMethodInfo +data BuilderGetObjectMethodInfo +data BuilderGetObjectsMethodInfo +data BuilderGetTranslationDomainMethodInfo +data BuilderGetTypeFromNameMethodInfo +data BuilderSetApplicationMethodInfo +data BuilderSetTranslationDomainMethodInfo +data BuilderValueFromStringMethodInfo +data BuilderValueFromStringTypeMethodInfo diff --git a/GI/Gtk/Objects/Button.hs b/GI/Gtk/Objects/Button.hs --- a/GI/Gtk/Objects/Button.hs +++ b/GI/Gtk/Objects/Button.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,54 +18,67 @@ -- * Methods -- ** buttonClicked + ButtonClickedMethodInfo , buttonClicked , -- ** buttonEnter + ButtonEnterMethodInfo , buttonEnter , -- ** buttonGetAlignment + ButtonGetAlignmentMethodInfo , buttonGetAlignment , -- ** buttonGetAlwaysShowImage + ButtonGetAlwaysShowImageMethodInfo , buttonGetAlwaysShowImage , -- ** buttonGetEventWindow + ButtonGetEventWindowMethodInfo , buttonGetEventWindow , -- ** buttonGetFocusOnClick + ButtonGetFocusOnClickMethodInfo , buttonGetFocusOnClick , -- ** buttonGetImage + ButtonGetImageMethodInfo , buttonGetImage , -- ** buttonGetImagePosition + ButtonGetImagePositionMethodInfo , buttonGetImagePosition , -- ** buttonGetLabel + ButtonGetLabelMethodInfo , buttonGetLabel , -- ** buttonGetRelief + ButtonGetReliefMethodInfo , buttonGetRelief , -- ** buttonGetUseStock + ButtonGetUseStockMethodInfo , buttonGetUseStock , -- ** buttonGetUseUnderline + ButtonGetUseUnderlineMethodInfo , buttonGetUseUnderline , -- ** buttonLeave + ButtonLeaveMethodInfo , buttonLeave , @@ -89,46 +103,57 @@ -- ** buttonPressed + ButtonPressedMethodInfo , buttonPressed , -- ** buttonReleased + ButtonReleasedMethodInfo , buttonReleased , -- ** buttonSetAlignment + ButtonSetAlignmentMethodInfo , buttonSetAlignment , -- ** buttonSetAlwaysShowImage + ButtonSetAlwaysShowImageMethodInfo , buttonSetAlwaysShowImage , -- ** buttonSetFocusOnClick + ButtonSetFocusOnClickMethodInfo , buttonSetFocusOnClick , -- ** buttonSetImage + ButtonSetImageMethodInfo , buttonSetImage , -- ** buttonSetImagePosition + ButtonSetImagePositionMethodInfo , buttonSetImagePosition , -- ** buttonSetLabel + ButtonSetLabelMethodInfo , buttonSetLabel , -- ** buttonSetRelief + ButtonSetReliefMethodInfo , buttonSetRelief , -- ** buttonSetUseStock + ButtonSetUseStockMethodInfo , buttonSetUseStock , -- ** buttonSetUseUnderline + ButtonSetUseUnderlineMethodInfo , buttonSetUseUnderline , @@ -318,6 +343,364 @@ noButton :: Maybe Button noButton = Nothing +type family ResolveButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveButtonMethod "add" o = ContainerAddMethodInfo + ResolveButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveButtonMethod "clicked" o = ButtonClickedMethodInfo + ResolveButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveButtonMethod "enter" o = ButtonEnterMethodInfo + ResolveButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveButtonMethod "event" o = WidgetEventMethodInfo + ResolveButtonMethod "forall" o = ContainerForallMethodInfo + ResolveButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveButtonMethod "hide" o = WidgetHideMethodInfo + ResolveButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveButtonMethod "leave" o = ButtonLeaveMethodInfo + ResolveButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveButtonMethod "map" o = WidgetMapMethodInfo + ResolveButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveButtonMethod "path" o = WidgetPathMethodInfo + ResolveButtonMethod "pressed" o = ButtonPressedMethodInfo + ResolveButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveButtonMethod "released" o = ButtonReleasedMethodInfo + ResolveButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveButtonMethod "show" o = WidgetShowMethodInfo + ResolveButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo + ResolveButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo + ResolveButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo + ResolveButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo + ResolveButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveButtonMethod "getImage" o = ButtonGetImageMethodInfo + ResolveButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo + ResolveButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveButtonMethod "getLabel" o = ButtonGetLabelMethodInfo + ResolveButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveButtonMethod "getRelief" o = ButtonGetReliefMethodInfo + ResolveButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo + ResolveButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo + ResolveButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo + ResolveButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo + ResolveButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo + ResolveButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveButtonMethod "setImage" o = ButtonSetImageMethodInfo + ResolveButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo + ResolveButtonMethod "setLabel" o = ButtonSetLabelMethodInfo + ResolveButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveButtonMethod "setRelief" o = ButtonSetReliefMethodInfo + ResolveButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo + ResolveButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo + ResolveButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveButtonMethod t Button, MethodInfo info Button p) => IsLabelProxy t (Button -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveButtonMethod t Button, MethodInfo info Button p) => IsLabel t (Button -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Button::activate type ButtonActivateCallback = IO () @@ -565,7 +948,7 @@ type AttrSetTypeConstraint ButtonAlwaysShowImagePropertyInfo = (~) Bool type AttrBaseTypeConstraint ButtonAlwaysShowImagePropertyInfo = ButtonK type AttrGetType ButtonAlwaysShowImagePropertyInfo = Bool - type AttrLabel ButtonAlwaysShowImagePropertyInfo = "Button::always-show-image" + type AttrLabel ButtonAlwaysShowImagePropertyInfo = "always-show-image" attrGet _ = getButtonAlwaysShowImage attrSet _ = setButtonAlwaysShowImage attrConstruct _ = constructButtonAlwaysShowImage @@ -589,7 +972,7 @@ type AttrSetTypeConstraint ButtonFocusOnClickPropertyInfo = (~) Bool type AttrBaseTypeConstraint ButtonFocusOnClickPropertyInfo = ButtonK type AttrGetType ButtonFocusOnClickPropertyInfo = Bool - type AttrLabel ButtonFocusOnClickPropertyInfo = "Button::focus-on-click" + type AttrLabel ButtonFocusOnClickPropertyInfo = "focus-on-click" attrGet _ = getButtonFocusOnClick attrSet _ = setButtonFocusOnClick attrConstruct _ = constructButtonFocusOnClick @@ -613,7 +996,7 @@ type AttrSetTypeConstraint ButtonImagePropertyInfo = WidgetK type AttrBaseTypeConstraint ButtonImagePropertyInfo = ButtonK type AttrGetType ButtonImagePropertyInfo = Widget - type AttrLabel ButtonImagePropertyInfo = "Button::image" + type AttrLabel ButtonImagePropertyInfo = "image" attrGet _ = getButtonImage attrSet _ = setButtonImage attrConstruct _ = constructButtonImage @@ -637,7 +1020,7 @@ type AttrSetTypeConstraint ButtonImagePositionPropertyInfo = (~) PositionType type AttrBaseTypeConstraint ButtonImagePositionPropertyInfo = ButtonK type AttrGetType ButtonImagePositionPropertyInfo = PositionType - type AttrLabel ButtonImagePositionPropertyInfo = "Button::image-position" + type AttrLabel ButtonImagePositionPropertyInfo = "image-position" attrGet _ = getButtonImagePosition attrSet _ = setButtonImagePosition attrConstruct _ = constructButtonImagePosition @@ -661,7 +1044,7 @@ type AttrSetTypeConstraint ButtonLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ButtonLabelPropertyInfo = ButtonK type AttrGetType ButtonLabelPropertyInfo = T.Text - type AttrLabel ButtonLabelPropertyInfo = "Button::label" + type AttrLabel ButtonLabelPropertyInfo = "label" attrGet _ = getButtonLabel attrSet _ = setButtonLabel attrConstruct _ = constructButtonLabel @@ -685,7 +1068,7 @@ type AttrSetTypeConstraint ButtonReliefPropertyInfo = (~) ReliefStyle type AttrBaseTypeConstraint ButtonReliefPropertyInfo = ButtonK type AttrGetType ButtonReliefPropertyInfo = ReliefStyle - type AttrLabel ButtonReliefPropertyInfo = "Button::relief" + type AttrLabel ButtonReliefPropertyInfo = "relief" attrGet _ = getButtonRelief attrSet _ = setButtonRelief attrConstruct _ = constructButtonRelief @@ -709,7 +1092,7 @@ type AttrSetTypeConstraint ButtonUseStockPropertyInfo = (~) Bool type AttrBaseTypeConstraint ButtonUseStockPropertyInfo = ButtonK type AttrGetType ButtonUseStockPropertyInfo = Bool - type AttrLabel ButtonUseStockPropertyInfo = "Button::use-stock" + type AttrLabel ButtonUseStockPropertyInfo = "use-stock" attrGet _ = getButtonUseStock attrSet _ = setButtonUseStock attrConstruct _ = constructButtonUseStock @@ -733,7 +1116,7 @@ type AttrSetTypeConstraint ButtonUseUnderlinePropertyInfo = (~) Bool type AttrBaseTypeConstraint ButtonUseUnderlinePropertyInfo = ButtonK type AttrGetType ButtonUseUnderlinePropertyInfo = Bool - type AttrLabel ButtonUseUnderlinePropertyInfo = "Button::use-underline" + type AttrLabel ButtonUseUnderlinePropertyInfo = "use-underline" attrGet _ = getButtonUseUnderline attrSet _ = setButtonUseUnderline attrConstruct _ = constructButtonUseUnderline @@ -757,7 +1140,7 @@ type AttrSetTypeConstraint ButtonXalignPropertyInfo = (~) Float type AttrBaseTypeConstraint ButtonXalignPropertyInfo = ButtonK type AttrGetType ButtonXalignPropertyInfo = Float - type AttrLabel ButtonXalignPropertyInfo = "Button::xalign" + type AttrLabel ButtonXalignPropertyInfo = "xalign" attrGet _ = getButtonXalign attrSet _ = setButtonXalign attrConstruct _ = constructButtonXalign @@ -781,13 +1164,13 @@ type AttrSetTypeConstraint ButtonYalignPropertyInfo = (~) Float type AttrBaseTypeConstraint ButtonYalignPropertyInfo = ButtonK type AttrGetType ButtonYalignPropertyInfo = Float - type AttrLabel ButtonYalignPropertyInfo = "Button::yalign" + type AttrLabel ButtonYalignPropertyInfo = "yalign" attrGet _ = getButtonYalign attrSet _ = setButtonYalign attrConstruct _ = constructButtonYalign type instance AttributeList Button = ButtonAttributeList -type ButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +type ButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) data ButtonActivateSignalInfo instance SignalInfo ButtonActivateSignalInfo where @@ -820,13 +1203,12 @@ connectSignal _ = connectButtonReleased type instance SignalList Button = ButtonSignalList -type ButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Button::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Button" -- throws : False -- Skip return : False @@ -837,7 +1219,7 @@ buttonNew :: (MonadIO m) => - m Button + m Button -- result buttonNew = liftIO $ do result <- gtk_button_new checkUnexpectedReturnNULL "gtk_button_new" result @@ -846,9 +1228,8 @@ -- method Button::new_from_icon_name -- method type : Constructor --- Args : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Button" -- throws : False -- Skip return : False @@ -861,22 +1242,21 @@ buttonNewFromIconName :: (MonadIO m) => - T.Text -> -- icon_name - Int32 -> -- size - m Button -buttonNewFromIconName icon_name size = liftIO $ do - icon_name' <- textToCString icon_name - result <- gtk_button_new_from_icon_name icon_name' size + T.Text -- iconName + -> Int32 -- size + -> m Button -- result +buttonNewFromIconName iconName size = liftIO $ do + iconName' <- textToCString iconName + result <- gtk_button_new_from_icon_name iconName' size checkUnexpectedReturnNULL "gtk_button_new_from_icon_name" result result' <- (newObject Button) result - freeMem icon_name' + freeMem iconName' return result' -- method Button::new_from_stock -- method type : Constructor --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Button" -- throws : False -- Skip return : False @@ -888,21 +1268,20 @@ {-# DEPRECATED buttonNewFromStock ["(Since version 3.10)","Use gtk_button_new_with_label() instead."]#-} buttonNewFromStock :: (MonadIO m) => - T.Text -> -- stock_id - m Button -buttonNewFromStock stock_id = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_button_new_from_stock stock_id' + T.Text -- stockId + -> m Button -- result +buttonNewFromStock stockId = liftIO $ do + stockId' <- textToCString stockId + result <- gtk_button_new_from_stock stockId' checkUnexpectedReturnNULL "gtk_button_new_from_stock" result result' <- (newObject Button) result - freeMem stock_id' + freeMem stockId' return result' -- method Button::new_with_label -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Button" -- throws : False -- Skip return : False @@ -914,8 +1293,8 @@ buttonNewWithLabel :: (MonadIO m) => - T.Text -> -- label - m Button + T.Text -- label + -> m Button -- result buttonNewWithLabel label = liftIO $ do label' <- textToCString label result <- gtk_button_new_with_label label' @@ -926,9 +1305,8 @@ -- method Button::new_with_mnemonic -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Button" -- throws : False -- Skip return : False @@ -940,8 +1318,8 @@ buttonNewWithMnemonic :: (MonadIO m) => - T.Text -> -- label - m Button + T.Text -- label + -> m Button -- result buttonNewWithMnemonic label = liftIO $ do label' <- textToCString label result <- gtk_button_new_with_mnemonic label' @@ -952,9 +1330,8 @@ -- method Button::clicked -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -966,19 +1343,22 @@ buttonClicked :: (MonadIO m, ButtonK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result buttonClicked _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_button_clicked _obj' touchManagedPtr _obj return () +data ButtonClickedMethodInfo +instance (signature ~ (m ()), MonadIO m, ButtonK a) => MethodInfo ButtonClickedMethodInfo a signature where + overloadedMethod _ = buttonClicked + -- method Button::enter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -990,19 +1370,22 @@ {-# DEPRECATED buttonEnter ["(Since version 2.20)","Use the #GtkWidget::enter-notify-event signal."]#-} buttonEnter :: (MonadIO m, ButtonK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result buttonEnter _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_button_enter _obj' touchManagedPtr _obj return () +data ButtonEnterMethodInfo +instance (signature ~ (m ()), MonadIO m, ButtonK a) => MethodInfo ButtonEnterMethodInfo a signature where + overloadedMethod _ = buttonEnter + -- method Button::get_alignment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1016,8 +1399,8 @@ {-# DEPRECATED buttonGetAlignment ["(Since version 3.14)","Access the child widget directly if you need to control","its alignment."]#-} buttonGetAlignment :: (MonadIO m, ButtonK a) => - a -> -- _obj - m (Float,Float) + a -- _obj + -> m (Float,Float) -- result buttonGetAlignment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj xalign <- allocMem :: IO (Ptr CFloat) @@ -1032,11 +1415,14 @@ freeMem yalign return (xalign'', yalign'') +data ButtonGetAlignmentMethodInfo +instance (signature ~ (m (Float,Float)), MonadIO m, ButtonK a) => MethodInfo ButtonGetAlignmentMethodInfo a signature where + overloadedMethod _ = buttonGetAlignment + -- method Button::get_always_show_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1048,8 +1434,8 @@ buttonGetAlwaysShowImage :: (MonadIO m, ButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result buttonGetAlwaysShowImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_button_get_always_show_image _obj' @@ -1057,11 +1443,14 @@ touchManagedPtr _obj return result' +data ButtonGetAlwaysShowImageMethodInfo +instance (signature ~ (m Bool), MonadIO m, ButtonK a) => MethodInfo ButtonGetAlwaysShowImageMethodInfo a signature where + overloadedMethod _ = buttonGetAlwaysShowImage + -- method Button::get_event_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False @@ -1073,8 +1462,8 @@ buttonGetEventWindow :: (MonadIO m, ButtonK a) => - a -> -- _obj - m Gdk.Window + a -- _obj + -> m Gdk.Window -- result buttonGetEventWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_button_get_event_window _obj' @@ -1083,11 +1472,14 @@ touchManagedPtr _obj return result' +data ButtonGetEventWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, ButtonK a) => MethodInfo ButtonGetEventWindowMethodInfo a signature where + overloadedMethod _ = buttonGetEventWindow + -- method Button::get_focus_on_click -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1099,8 +1491,8 @@ buttonGetFocusOnClick :: (MonadIO m, ButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result buttonGetFocusOnClick _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_button_get_focus_on_click _obj' @@ -1108,11 +1500,14 @@ touchManagedPtr _obj return result' +data ButtonGetFocusOnClickMethodInfo +instance (signature ~ (m Bool), MonadIO m, ButtonK a) => MethodInfo ButtonGetFocusOnClickMethodInfo a signature where + overloadedMethod _ = buttonGetFocusOnClick + -- method Button::get_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -1124,8 +1519,8 @@ buttonGetImage :: (MonadIO m, ButtonK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result buttonGetImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_button_get_image _obj' @@ -1134,11 +1529,14 @@ touchManagedPtr _obj return result' +data ButtonGetImageMethodInfo +instance (signature ~ (m Widget), MonadIO m, ButtonK a) => MethodInfo ButtonGetImageMethodInfo a signature where + overloadedMethod _ = buttonGetImage + -- method Button::get_image_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PositionType" -- throws : False -- Skip return : False @@ -1150,8 +1548,8 @@ buttonGetImagePosition :: (MonadIO m, ButtonK a) => - a -> -- _obj - m PositionType + a -- _obj + -> m PositionType -- result buttonGetImagePosition _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_button_get_image_position _obj' @@ -1159,11 +1557,14 @@ touchManagedPtr _obj return result' +data ButtonGetImagePositionMethodInfo +instance (signature ~ (m PositionType), MonadIO m, ButtonK a) => MethodInfo ButtonGetImagePositionMethodInfo a signature where + overloadedMethod _ = buttonGetImagePosition + -- method Button::get_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1175,8 +1576,8 @@ buttonGetLabel :: (MonadIO m, ButtonK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result buttonGetLabel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_button_get_label _obj' @@ -1185,11 +1586,14 @@ touchManagedPtr _obj return result' +data ButtonGetLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ButtonK a) => MethodInfo ButtonGetLabelMethodInfo a signature where + overloadedMethod _ = buttonGetLabel + -- method Button::get_relief -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ReliefStyle" -- throws : False -- Skip return : False @@ -1201,8 +1605,8 @@ buttonGetRelief :: (MonadIO m, ButtonK a) => - a -> -- _obj - m ReliefStyle + a -- _obj + -> m ReliefStyle -- result buttonGetRelief _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_button_get_relief _obj' @@ -1210,11 +1614,14 @@ touchManagedPtr _obj return result' +data ButtonGetReliefMethodInfo +instance (signature ~ (m ReliefStyle), MonadIO m, ButtonK a) => MethodInfo ButtonGetReliefMethodInfo a signature where + overloadedMethod _ = buttonGetRelief + -- method Button::get_use_stock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1226,8 +1633,8 @@ {-# DEPRECATED buttonGetUseStock ["(Since version 3.10)"]#-} buttonGetUseStock :: (MonadIO m, ButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result buttonGetUseStock _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_button_get_use_stock _obj' @@ -1235,11 +1642,14 @@ touchManagedPtr _obj return result' +data ButtonGetUseStockMethodInfo +instance (signature ~ (m Bool), MonadIO m, ButtonK a) => MethodInfo ButtonGetUseStockMethodInfo a signature where + overloadedMethod _ = buttonGetUseStock + -- method Button::get_use_underline -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1251,8 +1661,8 @@ buttonGetUseUnderline :: (MonadIO m, ButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result buttonGetUseUnderline _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_button_get_use_underline _obj' @@ -1260,11 +1670,14 @@ touchManagedPtr _obj return result' +data ButtonGetUseUnderlineMethodInfo +instance (signature ~ (m Bool), MonadIO m, ButtonK a) => MethodInfo ButtonGetUseUnderlineMethodInfo a signature where + overloadedMethod _ = buttonGetUseUnderline + -- method Button::leave -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1276,19 +1689,22 @@ {-# DEPRECATED buttonLeave ["(Since version 2.20)","Use the #GtkWidget::leave-notify-event signal."]#-} buttonLeave :: (MonadIO m, ButtonK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result buttonLeave _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_button_leave _obj' touchManagedPtr _obj return () +data ButtonLeaveMethodInfo +instance (signature ~ (m ()), MonadIO m, ButtonK a) => MethodInfo ButtonLeaveMethodInfo a signature where + overloadedMethod _ = buttonLeave + -- method Button::pressed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1300,19 +1716,22 @@ {-# DEPRECATED buttonPressed ["(Since version 2.20)","Use the #GtkWidget::button-press-event signal."]#-} buttonPressed :: (MonadIO m, ButtonK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result buttonPressed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_button_pressed _obj' touchManagedPtr _obj return () +data ButtonPressedMethodInfo +instance (signature ~ (m ()), MonadIO m, ButtonK a) => MethodInfo ButtonPressedMethodInfo a signature where + overloadedMethod _ = buttonPressed + -- method Button::released -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1324,19 +1743,22 @@ {-# DEPRECATED buttonReleased ["(Since version 2.20)","Use the #GtkWidget::button-release-event signal."]#-} buttonReleased :: (MonadIO m, ButtonK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result buttonReleased _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_button_released _obj' touchManagedPtr _obj return () +data ButtonReleasedMethodInfo +instance (signature ~ (m ()), MonadIO m, ButtonK a) => MethodInfo ButtonReleasedMethodInfo a signature where + overloadedMethod _ = buttonReleased + -- method Button::set_alignment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1350,10 +1772,10 @@ {-# DEPRECATED buttonSetAlignment ["(Since version 3.14)","Access the child widget directly if you need to control","its alignment."]#-} buttonSetAlignment :: (MonadIO m, ButtonK a) => - a -> -- _obj - Float -> -- xalign - Float -> -- yalign - m () + a -- _obj + -> Float -- xalign + -> Float -- yalign + -> m () -- result buttonSetAlignment _obj xalign yalign = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let xalign' = realToFrac xalign @@ -1362,11 +1784,14 @@ touchManagedPtr _obj return () +data ButtonSetAlignmentMethodInfo +instance (signature ~ (Float -> Float -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetAlignmentMethodInfo a signature where + overloadedMethod _ = buttonSetAlignment + -- method Button::set_always_show_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1379,21 +1804,24 @@ buttonSetAlwaysShowImage :: (MonadIO m, ButtonK a) => - a -> -- _obj - Bool -> -- always_show - m () -buttonSetAlwaysShowImage _obj always_show = liftIO $ do + a -- _obj + -> Bool -- alwaysShow + -> m () -- result +buttonSetAlwaysShowImage _obj alwaysShow = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let always_show' = (fromIntegral . fromEnum) always_show - gtk_button_set_always_show_image _obj' always_show' + let alwaysShow' = (fromIntegral . fromEnum) alwaysShow + gtk_button_set_always_show_image _obj' alwaysShow' touchManagedPtr _obj return () +data ButtonSetAlwaysShowImageMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetAlwaysShowImageMethodInfo a signature where + overloadedMethod _ = buttonSetAlwaysShowImage + -- method Button::set_focus_on_click -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1406,21 +1834,24 @@ buttonSetFocusOnClick :: (MonadIO m, ButtonK a) => - a -> -- _obj - Bool -> -- focus_on_click - m () -buttonSetFocusOnClick _obj focus_on_click = liftIO $ do + a -- _obj + -> Bool -- focusOnClick + -> m () -- result +buttonSetFocusOnClick _obj focusOnClick = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let focus_on_click' = (fromIntegral . fromEnum) focus_on_click - gtk_button_set_focus_on_click _obj' focus_on_click' + let focusOnClick' = (fromIntegral . fromEnum) focusOnClick + gtk_button_set_focus_on_click _obj' focusOnClick' touchManagedPtr _obj return () +data ButtonSetFocusOnClickMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetFocusOnClickMethodInfo a signature where + overloadedMethod _ = buttonSetFocusOnClick + -- method Button::set_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1433,9 +1864,9 @@ buttonSetImage :: (MonadIO m, ButtonK a, WidgetK b) => - a -> -- _obj - b -> -- image - m () + a -- _obj + -> b -- image + -> m () -- result buttonSetImage _obj image = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let image' = unsafeManagedPtrCastPtr image @@ -1444,11 +1875,14 @@ touchManagedPtr image return () +data ButtonSetImageMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ButtonK a, WidgetK b) => MethodInfo ButtonSetImageMethodInfo a signature where + overloadedMethod _ = buttonSetImage + -- method Button::set_image_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1461,9 +1895,9 @@ buttonSetImagePosition :: (MonadIO m, ButtonK a) => - a -> -- _obj - PositionType -> -- position - m () + a -- _obj + -> PositionType -- position + -> m () -- result buttonSetImagePosition _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let position' = (fromIntegral . fromEnum) position @@ -1471,11 +1905,14 @@ touchManagedPtr _obj return () +data ButtonSetImagePositionMethodInfo +instance (signature ~ (PositionType -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetImagePositionMethodInfo a signature where + overloadedMethod _ = buttonSetImagePosition + -- method Button::set_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1488,9 +1925,9 @@ buttonSetLabel :: (MonadIO m, ButtonK a) => - a -> -- _obj - T.Text -> -- label - m () + a -- _obj + -> T.Text -- label + -> m () -- result buttonSetLabel _obj label = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj label' <- textToCString label @@ -1499,11 +1936,14 @@ freeMem label' return () +data ButtonSetLabelMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetLabelMethodInfo a signature where + overloadedMethod _ = buttonSetLabel + -- method Button::set_relief -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relief", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relief", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relief", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1516,9 +1956,9 @@ buttonSetRelief :: (MonadIO m, ButtonK a) => - a -> -- _obj - ReliefStyle -> -- relief - m () + a -- _obj + -> ReliefStyle -- relief + -> m () -- result buttonSetRelief _obj relief = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let relief' = (fromIntegral . fromEnum) relief @@ -1526,11 +1966,14 @@ touchManagedPtr _obj return () +data ButtonSetReliefMethodInfo +instance (signature ~ (ReliefStyle -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetReliefMethodInfo a signature where + overloadedMethod _ = buttonSetRelief + -- method Button::set_use_stock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1543,21 +1986,24 @@ {-# DEPRECATED buttonSetUseStock ["(Since version 3.10)"]#-} buttonSetUseStock :: (MonadIO m, ButtonK a) => - a -> -- _obj - Bool -> -- use_stock - m () -buttonSetUseStock _obj use_stock = liftIO $ do + a -- _obj + -> Bool -- useStock + -> m () -- result +buttonSetUseStock _obj useStock = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_stock' = (fromIntegral . fromEnum) use_stock - gtk_button_set_use_stock _obj' use_stock' + let useStock' = (fromIntegral . fromEnum) useStock + gtk_button_set_use_stock _obj' useStock' touchManagedPtr _obj return () +data ButtonSetUseStockMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetUseStockMethodInfo a signature where + overloadedMethod _ = buttonSetUseStock + -- method Button::set_use_underline -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1570,14 +2016,18 @@ buttonSetUseUnderline :: (MonadIO m, ButtonK a) => - a -> -- _obj - Bool -> -- use_underline - m () -buttonSetUseUnderline _obj use_underline = liftIO $ do + a -- _obj + -> Bool -- useUnderline + -> m () -- result +buttonSetUseUnderline _obj useUnderline = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_underline' = (fromIntegral . fromEnum) use_underline - gtk_button_set_use_underline _obj' use_underline' + let useUnderline' = (fromIntegral . fromEnum) useUnderline + gtk_button_set_use_underline _obj' useUnderline' touchManagedPtr _obj return () + +data ButtonSetUseUnderlineMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ButtonK a) => MethodInfo ButtonSetUseUnderlineMethodInfo a signature where + overloadedMethod _ = buttonSetUseUnderline diff --git a/GI/Gtk/Objects/Button.hs-boot b/GI/Gtk/Objects/Button.hs-boot --- a/GI/Gtk/Objects/Button.hs-boot +++ b/GI/Gtk/Objects/Button.hs-boot @@ -27,3 +27,27 @@ data ButtonLeaveSignalInfo data ButtonPressedSignalInfo data ButtonReleasedSignalInfo +data ButtonClickedMethodInfo +data ButtonEnterMethodInfo +data ButtonGetAlignmentMethodInfo +data ButtonGetAlwaysShowImageMethodInfo +data ButtonGetEventWindowMethodInfo +data ButtonGetFocusOnClickMethodInfo +data ButtonGetImageMethodInfo +data ButtonGetImagePositionMethodInfo +data ButtonGetLabelMethodInfo +data ButtonGetReliefMethodInfo +data ButtonGetUseStockMethodInfo +data ButtonGetUseUnderlineMethodInfo +data ButtonLeaveMethodInfo +data ButtonPressedMethodInfo +data ButtonReleasedMethodInfo +data ButtonSetAlignmentMethodInfo +data ButtonSetAlwaysShowImageMethodInfo +data ButtonSetFocusOnClickMethodInfo +data ButtonSetImageMethodInfo +data ButtonSetImagePositionMethodInfo +data ButtonSetLabelMethodInfo +data ButtonSetReliefMethodInfo +data ButtonSetUseStockMethodInfo +data ButtonSetUseUnderlineMethodInfo diff --git a/GI/Gtk/Objects/ButtonAccessible.hs b/GI/Gtk/Objects/ButtonAccessible.hs --- a/GI/Gtk/Objects/ButtonAccessible.hs +++ b/GI/Gtk/Objects/ButtonAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,84 @@ noButtonAccessible :: Maybe ButtonAccessible noButtonAccessible = Nothing +type family ResolveButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo + ResolveButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo + ResolveButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo + ResolveButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo + ResolveButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo + ResolveButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveButtonAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveButtonAccessibleMethod t ButtonAccessible, MethodInfo info ButtonAccessible p) => IsLabelProxy t (ButtonAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveButtonAccessibleMethod t ButtonAccessible, MethodInfo info ButtonAccessible p) => IsLabel t (ButtonAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ButtonAccessible = ButtonAccessibleAttributeList -type ButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ButtonAccessible = ButtonAccessibleSignalList -type ButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/ButtonBox.hs b/GI/Gtk/Objects/ButtonBox.hs --- a/GI/Gtk/Objects/ButtonBox.hs +++ b/GI/Gtk/Objects/ButtonBox.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** buttonBoxGetChildNonHomogeneous + ButtonBoxGetChildNonHomogeneousMethodInfo, buttonBoxGetChildNonHomogeneous , -- ** buttonBoxGetChildSecondary + ButtonBoxGetChildSecondaryMethodInfo , buttonBoxGetChildSecondary , -- ** buttonBoxGetLayout + ButtonBoxGetLayoutMethodInfo , buttonBoxGetLayout , @@ -33,14 +37,17 @@ -- ** buttonBoxSetChildNonHomogeneous + ButtonBoxSetChildNonHomogeneousMethodInfo, buttonBoxSetChildNonHomogeneous , -- ** buttonBoxSetChildSecondary + ButtonBoxSetChildSecondaryMethodInfo , buttonBoxSetChildSecondary , -- ** buttonBoxSetLayout + ButtonBoxSetLayoutMethodInfo , buttonBoxSetLayout , @@ -91,6 +98,349 @@ noButtonBox :: Maybe ButtonBox noButtonBox = Nothing +type family ResolveButtonBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveButtonBoxMethod "activate" o = WidgetActivateMethodInfo + ResolveButtonBoxMethod "add" o = ContainerAddMethodInfo + ResolveButtonBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveButtonBoxMethod "addChild" o = BuildableAddChildMethodInfo + ResolveButtonBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveButtonBoxMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveButtonBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveButtonBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveButtonBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveButtonBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveButtonBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveButtonBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveButtonBoxMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveButtonBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveButtonBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveButtonBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveButtonBoxMethod "childType" o = ContainerChildTypeMethodInfo + ResolveButtonBoxMethod "classPath" o = WidgetClassPathMethodInfo + ResolveButtonBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveButtonBoxMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveButtonBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveButtonBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveButtonBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveButtonBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveButtonBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveButtonBoxMethod "destroy" o = WidgetDestroyMethodInfo + ResolveButtonBoxMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveButtonBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveButtonBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveButtonBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveButtonBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveButtonBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveButtonBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveButtonBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveButtonBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveButtonBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveButtonBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveButtonBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveButtonBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveButtonBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveButtonBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveButtonBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveButtonBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveButtonBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveButtonBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveButtonBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveButtonBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveButtonBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveButtonBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveButtonBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveButtonBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveButtonBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveButtonBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveButtonBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveButtonBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveButtonBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveButtonBoxMethod "draw" o = WidgetDrawMethodInfo + ResolveButtonBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveButtonBoxMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveButtonBoxMethod "event" o = WidgetEventMethodInfo + ResolveButtonBoxMethod "forall" o = ContainerForallMethodInfo + ResolveButtonBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveButtonBoxMethod "foreach" o = ContainerForeachMethodInfo + ResolveButtonBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveButtonBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveButtonBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveButtonBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveButtonBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveButtonBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveButtonBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveButtonBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveButtonBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveButtonBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveButtonBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveButtonBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveButtonBoxMethod "hide" o = WidgetHideMethodInfo + ResolveButtonBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveButtonBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveButtonBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveButtonBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveButtonBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveButtonBoxMethod "intersect" o = WidgetIntersectMethodInfo + ResolveButtonBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveButtonBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveButtonBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveButtonBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveButtonBoxMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveButtonBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveButtonBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveButtonBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveButtonBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveButtonBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveButtonBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveButtonBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveButtonBoxMethod "map" o = WidgetMapMethodInfo + ResolveButtonBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveButtonBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveButtonBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveButtonBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveButtonBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveButtonBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveButtonBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveButtonBoxMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveButtonBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveButtonBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveButtonBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveButtonBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveButtonBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveButtonBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveButtonBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveButtonBoxMethod "packEnd" o = BoxPackEndMethodInfo + ResolveButtonBoxMethod "packStart" o = BoxPackStartMethodInfo + ResolveButtonBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveButtonBoxMethod "path" o = WidgetPathMethodInfo + ResolveButtonBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveButtonBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveButtonBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveButtonBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveButtonBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveButtonBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveButtonBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveButtonBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveButtonBoxMethod "realize" o = WidgetRealizeMethodInfo + ResolveButtonBoxMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveButtonBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveButtonBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveButtonBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveButtonBoxMethod "remove" o = ContainerRemoveMethodInfo + ResolveButtonBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveButtonBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveButtonBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveButtonBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveButtonBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveButtonBoxMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveButtonBoxMethod "reparent" o = WidgetReparentMethodInfo + ResolveButtonBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveButtonBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveButtonBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveButtonBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveButtonBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveButtonBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveButtonBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveButtonBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveButtonBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveButtonBoxMethod "show" o = WidgetShowMethodInfo + ResolveButtonBoxMethod "showAll" o = WidgetShowAllMethodInfo + ResolveButtonBoxMethod "showNow" o = WidgetShowNowMethodInfo + ResolveButtonBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveButtonBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveButtonBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveButtonBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveButtonBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveButtonBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveButtonBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveButtonBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveButtonBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveButtonBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveButtonBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveButtonBoxMethod "unmap" o = WidgetUnmapMethodInfo + ResolveButtonBoxMethod "unparent" o = WidgetUnparentMethodInfo + ResolveButtonBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveButtonBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveButtonBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveButtonBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveButtonBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveButtonBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveButtonBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveButtonBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveButtonBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveButtonBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveButtonBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveButtonBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveButtonBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveButtonBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveButtonBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveButtonBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveButtonBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveButtonBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveButtonBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveButtonBoxMethod "getChildNonHomogeneous" o = ButtonBoxGetChildNonHomogeneousMethodInfo + ResolveButtonBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveButtonBoxMethod "getChildSecondary" o = ButtonBoxGetChildSecondaryMethodInfo + ResolveButtonBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveButtonBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveButtonBoxMethod "getClip" o = WidgetGetClipMethodInfo + ResolveButtonBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveButtonBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveButtonBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveButtonBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveButtonBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveButtonBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveButtonBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveButtonBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveButtonBoxMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveButtonBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveButtonBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveButtonBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveButtonBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveButtonBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveButtonBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveButtonBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveButtonBoxMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveButtonBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveButtonBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveButtonBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveButtonBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveButtonBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveButtonBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveButtonBoxMethod "getLayout" o = ButtonBoxGetLayoutMethodInfo + ResolveButtonBoxMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveButtonBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveButtonBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveButtonBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveButtonBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveButtonBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveButtonBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveButtonBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveButtonBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveButtonBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveButtonBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveButtonBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveButtonBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveButtonBoxMethod "getParent" o = WidgetGetParentMethodInfo + ResolveButtonBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveButtonBoxMethod "getPath" o = WidgetGetPathMethodInfo + ResolveButtonBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveButtonBoxMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveButtonBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveButtonBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveButtonBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveButtonBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveButtonBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveButtonBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveButtonBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveButtonBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveButtonBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveButtonBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveButtonBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveButtonBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveButtonBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveButtonBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveButtonBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveButtonBoxMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveButtonBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveButtonBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveButtonBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveButtonBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveButtonBoxMethod "getState" o = WidgetGetStateMethodInfo + ResolveButtonBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveButtonBoxMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveButtonBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveButtonBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveButtonBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveButtonBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveButtonBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveButtonBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveButtonBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveButtonBoxMethod "getValign" o = WidgetGetValignMethodInfo + ResolveButtonBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveButtonBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveButtonBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveButtonBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveButtonBoxMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveButtonBoxMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveButtonBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveButtonBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveButtonBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveButtonBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveButtonBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveButtonBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveButtonBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveButtonBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveButtonBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveButtonBoxMethod "setChildNonHomogeneous" o = ButtonBoxSetChildNonHomogeneousMethodInfo + ResolveButtonBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveButtonBoxMethod "setChildSecondary" o = ButtonBoxSetChildSecondaryMethodInfo + ResolveButtonBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveButtonBoxMethod "setClip" o = WidgetSetClipMethodInfo + ResolveButtonBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveButtonBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveButtonBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveButtonBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveButtonBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveButtonBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveButtonBoxMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveButtonBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveButtonBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveButtonBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveButtonBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveButtonBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveButtonBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveButtonBoxMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveButtonBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveButtonBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveButtonBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveButtonBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveButtonBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveButtonBoxMethod "setLayout" o = ButtonBoxSetLayoutMethodInfo + ResolveButtonBoxMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveButtonBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveButtonBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveButtonBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveButtonBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveButtonBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveButtonBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveButtonBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveButtonBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveButtonBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveButtonBoxMethod "setParent" o = WidgetSetParentMethodInfo + ResolveButtonBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveButtonBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveButtonBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveButtonBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveButtonBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveButtonBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveButtonBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveButtonBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveButtonBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveButtonBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveButtonBoxMethod "setState" o = WidgetSetStateMethodInfo + ResolveButtonBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveButtonBoxMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveButtonBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveButtonBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveButtonBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveButtonBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveButtonBoxMethod "setValign" o = WidgetSetValignMethodInfo + ResolveButtonBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveButtonBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveButtonBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveButtonBoxMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveButtonBoxMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveButtonBoxMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveButtonBoxMethod t ButtonBox, MethodInfo info ButtonBox p) => IsLabelProxy t (ButtonBox -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveButtonBoxMethod t ButtonBox, MethodInfo info ButtonBox p) => IsLabel t (ButtonBox -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "layout-style" -- Type: TInterface "Gtk" "ButtonBoxStyle" -- Flags: [PropertyReadable,PropertyWritable] @@ -110,22 +460,21 @@ type AttrSetTypeConstraint ButtonBoxLayoutStylePropertyInfo = (~) ButtonBoxStyle type AttrBaseTypeConstraint ButtonBoxLayoutStylePropertyInfo = ButtonBoxK type AttrGetType ButtonBoxLayoutStylePropertyInfo = ButtonBoxStyle - type AttrLabel ButtonBoxLayoutStylePropertyInfo = "ButtonBox::layout-style" + type AttrLabel ButtonBoxLayoutStylePropertyInfo = "layout-style" attrGet _ = getButtonBoxLayoutStyle attrSet _ = setButtonBoxLayoutStyle attrConstruct _ = constructButtonBoxLayoutStyle type instance AttributeList ButtonBox = ButtonBoxAttributeList -type ButtonBoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("layout-style", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ButtonBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("layoutStyle", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ButtonBox = ButtonBoxSignalList -type ButtonBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ButtonBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ButtonBox::new -- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ButtonBox" -- throws : False -- Skip return : False @@ -137,8 +486,8 @@ buttonBoxNew :: (MonadIO m) => - Orientation -> -- orientation - m ButtonBox + Orientation -- orientation + -> m ButtonBox -- result buttonBoxNew orientation = liftIO $ do let orientation' = (fromIntegral . fromEnum) orientation result <- gtk_button_box_new orientation' @@ -148,9 +497,8 @@ -- method ButtonBox::get_child_non_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -163,9 +511,9 @@ buttonBoxGetChildNonHomogeneous :: (MonadIO m, ButtonBoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - m Bool + a -- _obj + -> b -- child + -> m Bool -- result buttonBoxGetChildNonHomogeneous _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -175,11 +523,14 @@ touchManagedPtr child return result' +data ButtonBoxGetChildNonHomogeneousMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, ButtonBoxK a, WidgetK b) => MethodInfo ButtonBoxGetChildNonHomogeneousMethodInfo a signature where + overloadedMethod _ = buttonBoxGetChildNonHomogeneous + -- method ButtonBox::get_child_secondary -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -192,9 +543,9 @@ buttonBoxGetChildSecondary :: (MonadIO m, ButtonBoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - m Bool + a -- _obj + -> b -- child + -> m Bool -- result buttonBoxGetChildSecondary _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -204,11 +555,14 @@ touchManagedPtr child return result' +data ButtonBoxGetChildSecondaryMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, ButtonBoxK a, WidgetK b) => MethodInfo ButtonBoxGetChildSecondaryMethodInfo a signature where + overloadedMethod _ = buttonBoxGetChildSecondary + -- method ButtonBox::get_layout -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ButtonBoxStyle" -- throws : False -- Skip return : False @@ -220,8 +574,8 @@ buttonBoxGetLayout :: (MonadIO m, ButtonBoxK a) => - a -> -- _obj - m ButtonBoxStyle + a -- _obj + -> m ButtonBoxStyle -- result buttonBoxGetLayout _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_button_box_get_layout _obj' @@ -229,11 +583,14 @@ touchManagedPtr _obj return result' +data ButtonBoxGetLayoutMethodInfo +instance (signature ~ (m ButtonBoxStyle), MonadIO m, ButtonBoxK a) => MethodInfo ButtonBoxGetLayoutMethodInfo a signature where + overloadedMethod _ = buttonBoxGetLayout + -- method ButtonBox::set_child_non_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "non_homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "non_homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "non_homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -247,24 +604,27 @@ buttonBoxSetChildNonHomogeneous :: (MonadIO m, ButtonBoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - Bool -> -- non_homogeneous - m () -buttonBoxSetChildNonHomogeneous _obj child non_homogeneous = liftIO $ do + a -- _obj + -> b -- child + -> Bool -- nonHomogeneous + -> m () -- result +buttonBoxSetChildNonHomogeneous _obj child nonHomogeneous = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child - let non_homogeneous' = (fromIntegral . fromEnum) non_homogeneous - gtk_button_box_set_child_non_homogeneous _obj' child' non_homogeneous' + let nonHomogeneous' = (fromIntegral . fromEnum) nonHomogeneous + gtk_button_box_set_child_non_homogeneous _obj' child' nonHomogeneous' touchManagedPtr _obj touchManagedPtr child return () +data ButtonBoxSetChildNonHomogeneousMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, ButtonBoxK a, WidgetK b) => MethodInfo ButtonBoxSetChildNonHomogeneousMethodInfo a signature where + overloadedMethod _ = buttonBoxSetChildNonHomogeneous + -- method ButtonBox::set_child_secondary -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_secondary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_secondary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_secondary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -278,24 +638,27 @@ buttonBoxSetChildSecondary :: (MonadIO m, ButtonBoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - Bool -> -- is_secondary - m () -buttonBoxSetChildSecondary _obj child is_secondary = liftIO $ do + a -- _obj + -> b -- child + -> Bool -- isSecondary + -> m () -- result +buttonBoxSetChildSecondary _obj child isSecondary = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child - let is_secondary' = (fromIntegral . fromEnum) is_secondary - gtk_button_box_set_child_secondary _obj' child' is_secondary' + let isSecondary' = (fromIntegral . fromEnum) isSecondary + gtk_button_box_set_child_secondary _obj' child' isSecondary' touchManagedPtr _obj touchManagedPtr child return () +data ButtonBoxSetChildSecondaryMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, ButtonBoxK a, WidgetK b) => MethodInfo ButtonBoxSetChildSecondaryMethodInfo a signature where + overloadedMethod _ = buttonBoxSetChildSecondary + -- method ButtonBox::set_layout -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout_style", argType = TInterface "Gtk" "ButtonBoxStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout_style", argType = TInterface "Gtk" "ButtonBoxStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout_style", argType = TInterface "Gtk" "ButtonBoxStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -308,14 +671,18 @@ buttonBoxSetLayout :: (MonadIO m, ButtonBoxK a) => - a -> -- _obj - ButtonBoxStyle -> -- layout_style - m () -buttonBoxSetLayout _obj layout_style = liftIO $ do + a -- _obj + -> ButtonBoxStyle -- layoutStyle + -> m () -- result +buttonBoxSetLayout _obj layoutStyle = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let layout_style' = (fromIntegral . fromEnum) layout_style - gtk_button_box_set_layout _obj' layout_style' + let layoutStyle' = (fromIntegral . fromEnum) layoutStyle + gtk_button_box_set_layout _obj' layoutStyle' touchManagedPtr _obj return () + +data ButtonBoxSetLayoutMethodInfo +instance (signature ~ (ButtonBoxStyle -> m ()), MonadIO m, ButtonBoxK a) => MethodInfo ButtonBoxSetLayoutMethodInfo a signature where + overloadedMethod _ = buttonBoxSetLayout diff --git a/GI/Gtk/Objects/ButtonBox.hs-boot b/GI/Gtk/Objects/ButtonBox.hs-boot --- a/GI/Gtk/Objects/ButtonBox.hs-boot +++ b/GI/Gtk/Objects/ButtonBox.hs-boot @@ -12,3 +12,9 @@ class GObject o => ButtonBoxK o instance (GObject o, IsDescendantOf ButtonBox o) => ButtonBoxK o data ButtonBoxLayoutStylePropertyInfo +data ButtonBoxGetChildNonHomogeneousMethodInfo +data ButtonBoxGetChildSecondaryMethodInfo +data ButtonBoxGetLayoutMethodInfo +data ButtonBoxSetChildNonHomogeneousMethodInfo +data ButtonBoxSetChildSecondaryMethodInfo +data ButtonBoxSetLayoutMethodInfo diff --git a/GI/Gtk/Objects/Calendar.hs b/GI/Gtk/Objects/Calendar.hs --- a/GI/Gtk/Objects/Calendar.hs +++ b/GI/Gtk/Objects/Calendar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,30 +18,37 @@ -- * Methods -- ** calendarClearMarks + CalendarClearMarksMethodInfo , calendarClearMarks , -- ** calendarGetDate + CalendarGetDateMethodInfo , calendarGetDate , -- ** calendarGetDayIsMarked + CalendarGetDayIsMarkedMethodInfo , calendarGetDayIsMarked , -- ** calendarGetDetailHeightRows + CalendarGetDetailHeightRowsMethodInfo , calendarGetDetailHeightRows , -- ** calendarGetDetailWidthChars + CalendarGetDetailWidthCharsMethodInfo , calendarGetDetailWidthChars , -- ** calendarGetDisplayOptions + CalendarGetDisplayOptionsMethodInfo , calendarGetDisplayOptions , -- ** calendarMarkDay + CalendarMarkDayMethodInfo , calendarMarkDay , @@ -49,30 +57,37 @@ -- ** calendarSelectDay + CalendarSelectDayMethodInfo , calendarSelectDay , -- ** calendarSelectMonth + CalendarSelectMonthMethodInfo , calendarSelectMonth , -- ** calendarSetDetailFunc + CalendarSetDetailFuncMethodInfo , calendarSetDetailFunc , -- ** calendarSetDetailHeightRows + CalendarSetDetailHeightRowsMethodInfo , calendarSetDetailHeightRows , -- ** calendarSetDetailWidthChars + CalendarSetDetailWidthCharsMethodInfo , calendarSetDetailWidthChars , -- ** calendarSetDisplayOptions + CalendarSetDisplayOptionsMethodInfo , calendarSetDisplayOptions , -- ** calendarUnmarkDay + CalendarUnmarkDayMethodInfo , calendarUnmarkDay , @@ -274,6 +289,316 @@ noCalendar :: Maybe Calendar noCalendar = Nothing +type family ResolveCalendarMethod (t :: Symbol) (o :: *) :: * where + ResolveCalendarMethod "activate" o = WidgetActivateMethodInfo + ResolveCalendarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveCalendarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveCalendarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveCalendarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveCalendarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveCalendarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveCalendarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCalendarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCalendarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveCalendarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveCalendarMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveCalendarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveCalendarMethod "clearMarks" o = CalendarClearMarksMethodInfo + ResolveCalendarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveCalendarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveCalendarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveCalendarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveCalendarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveCalendarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveCalendarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveCalendarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveCalendarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveCalendarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveCalendarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveCalendarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveCalendarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveCalendarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveCalendarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveCalendarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveCalendarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveCalendarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveCalendarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveCalendarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveCalendarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveCalendarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveCalendarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveCalendarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveCalendarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveCalendarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveCalendarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveCalendarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveCalendarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveCalendarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveCalendarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveCalendarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveCalendarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveCalendarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveCalendarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveCalendarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveCalendarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveCalendarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveCalendarMethod "draw" o = WidgetDrawMethodInfo + ResolveCalendarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveCalendarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveCalendarMethod "event" o = WidgetEventMethodInfo + ResolveCalendarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCalendarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveCalendarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCalendarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveCalendarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveCalendarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveCalendarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveCalendarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveCalendarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveCalendarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveCalendarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveCalendarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveCalendarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveCalendarMethod "hide" o = WidgetHideMethodInfo + ResolveCalendarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveCalendarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveCalendarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveCalendarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveCalendarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveCalendarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveCalendarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveCalendarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveCalendarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveCalendarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCalendarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveCalendarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveCalendarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveCalendarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveCalendarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveCalendarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveCalendarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveCalendarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveCalendarMethod "map" o = WidgetMapMethodInfo + ResolveCalendarMethod "markDay" o = CalendarMarkDayMethodInfo + ResolveCalendarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveCalendarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveCalendarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveCalendarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveCalendarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveCalendarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveCalendarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveCalendarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveCalendarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCalendarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCalendarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveCalendarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveCalendarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveCalendarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveCalendarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveCalendarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveCalendarMethod "path" o = WidgetPathMethodInfo + ResolveCalendarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveCalendarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveCalendarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveCalendarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveCalendarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveCalendarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveCalendarMethod "realize" o = WidgetRealizeMethodInfo + ResolveCalendarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCalendarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCalendarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveCalendarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveCalendarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveCalendarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveCalendarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveCalendarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveCalendarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveCalendarMethod "reparent" o = WidgetReparentMethodInfo + ResolveCalendarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCalendarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCalendarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveCalendarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveCalendarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCalendarMethod "selectDay" o = CalendarSelectDayMethodInfo + ResolveCalendarMethod "selectMonth" o = CalendarSelectMonthMethodInfo + ResolveCalendarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveCalendarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveCalendarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveCalendarMethod "show" o = WidgetShowMethodInfo + ResolveCalendarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveCalendarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveCalendarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveCalendarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveCalendarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveCalendarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCalendarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCalendarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveCalendarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveCalendarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveCalendarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCalendarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveCalendarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveCalendarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveCalendarMethod "unmarkDay" o = CalendarUnmarkDayMethodInfo + ResolveCalendarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveCalendarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveCalendarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCalendarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveCalendarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveCalendarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCalendarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveCalendarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveCalendarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveCalendarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveCalendarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveCalendarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveCalendarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveCalendarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveCalendarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveCalendarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveCalendarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveCalendarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveCalendarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveCalendarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveCalendarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveCalendarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCalendarMethod "getDate" o = CalendarGetDateMethodInfo + ResolveCalendarMethod "getDayIsMarked" o = CalendarGetDayIsMarkedMethodInfo + ResolveCalendarMethod "getDetailHeightRows" o = CalendarGetDetailHeightRowsMethodInfo + ResolveCalendarMethod "getDetailWidthChars" o = CalendarGetDetailWidthCharsMethodInfo + ResolveCalendarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveCalendarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveCalendarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveCalendarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveCalendarMethod "getDisplayOptions" o = CalendarGetDisplayOptionsMethodInfo + ResolveCalendarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveCalendarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveCalendarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveCalendarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveCalendarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveCalendarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveCalendarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveCalendarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveCalendarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveCalendarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveCalendarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveCalendarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveCalendarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveCalendarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveCalendarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveCalendarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveCalendarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveCalendarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveCalendarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveCalendarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveCalendarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveCalendarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveCalendarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveCalendarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveCalendarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveCalendarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveCalendarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveCalendarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveCalendarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveCalendarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveCalendarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveCalendarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveCalendarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveCalendarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCalendarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCalendarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveCalendarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveCalendarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveCalendarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveCalendarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveCalendarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveCalendarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveCalendarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveCalendarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveCalendarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveCalendarMethod "getState" o = WidgetGetStateMethodInfo + ResolveCalendarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveCalendarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveCalendarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveCalendarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveCalendarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveCalendarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveCalendarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveCalendarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveCalendarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveCalendarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveCalendarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveCalendarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveCalendarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveCalendarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveCalendarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveCalendarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveCalendarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveCalendarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveCalendarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveCalendarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveCalendarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveCalendarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveCalendarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveCalendarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveCalendarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveCalendarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCalendarMethod "setDetailFunc" o = CalendarSetDetailFuncMethodInfo + ResolveCalendarMethod "setDetailHeightRows" o = CalendarSetDetailHeightRowsMethodInfo + ResolveCalendarMethod "setDetailWidthChars" o = CalendarSetDetailWidthCharsMethodInfo + ResolveCalendarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveCalendarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveCalendarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveCalendarMethod "setDisplayOptions" o = CalendarSetDisplayOptionsMethodInfo + ResolveCalendarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveCalendarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveCalendarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveCalendarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveCalendarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveCalendarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveCalendarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveCalendarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveCalendarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveCalendarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveCalendarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveCalendarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveCalendarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveCalendarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveCalendarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveCalendarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveCalendarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveCalendarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveCalendarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveCalendarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveCalendarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCalendarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveCalendarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveCalendarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveCalendarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveCalendarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveCalendarMethod "setState" o = WidgetSetStateMethodInfo + ResolveCalendarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveCalendarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveCalendarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveCalendarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveCalendarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveCalendarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveCalendarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveCalendarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveCalendarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveCalendarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveCalendarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveCalendarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveCalendarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCalendarMethod t Calendar, MethodInfo info Calendar p) => IsLabelProxy t (Calendar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCalendarMethod t Calendar, MethodInfo info Calendar p) => IsLabel t (Calendar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Calendar::day-selected type CalendarDaySelectedCallback = IO () @@ -559,7 +884,7 @@ type AttrSetTypeConstraint CalendarDayPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CalendarDayPropertyInfo = CalendarK type AttrGetType CalendarDayPropertyInfo = Int32 - type AttrLabel CalendarDayPropertyInfo = "Calendar::day" + type AttrLabel CalendarDayPropertyInfo = "day" attrGet _ = getCalendarDay attrSet _ = setCalendarDay attrConstruct _ = constructCalendarDay @@ -583,7 +908,7 @@ type AttrSetTypeConstraint CalendarDetailHeightRowsPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CalendarDetailHeightRowsPropertyInfo = CalendarK type AttrGetType CalendarDetailHeightRowsPropertyInfo = Int32 - type AttrLabel CalendarDetailHeightRowsPropertyInfo = "Calendar::detail-height-rows" + type AttrLabel CalendarDetailHeightRowsPropertyInfo = "detail-height-rows" attrGet _ = getCalendarDetailHeightRows attrSet _ = setCalendarDetailHeightRows attrConstruct _ = constructCalendarDetailHeightRows @@ -607,7 +932,7 @@ type AttrSetTypeConstraint CalendarDetailWidthCharsPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CalendarDetailWidthCharsPropertyInfo = CalendarK type AttrGetType CalendarDetailWidthCharsPropertyInfo = Int32 - type AttrLabel CalendarDetailWidthCharsPropertyInfo = "Calendar::detail-width-chars" + type AttrLabel CalendarDetailWidthCharsPropertyInfo = "detail-width-chars" attrGet _ = getCalendarDetailWidthChars attrSet _ = setCalendarDetailWidthChars attrConstruct _ = constructCalendarDetailWidthChars @@ -631,7 +956,7 @@ type AttrSetTypeConstraint CalendarMonthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CalendarMonthPropertyInfo = CalendarK type AttrGetType CalendarMonthPropertyInfo = Int32 - type AttrLabel CalendarMonthPropertyInfo = "Calendar::month" + type AttrLabel CalendarMonthPropertyInfo = "month" attrGet _ = getCalendarMonth attrSet _ = setCalendarMonth attrConstruct _ = constructCalendarMonth @@ -655,7 +980,7 @@ type AttrSetTypeConstraint CalendarNoMonthChangePropertyInfo = (~) Bool type AttrBaseTypeConstraint CalendarNoMonthChangePropertyInfo = CalendarK type AttrGetType CalendarNoMonthChangePropertyInfo = Bool - type AttrLabel CalendarNoMonthChangePropertyInfo = "Calendar::no-month-change" + type AttrLabel CalendarNoMonthChangePropertyInfo = "no-month-change" attrGet _ = getCalendarNoMonthChange attrSet _ = setCalendarNoMonthChange attrConstruct _ = constructCalendarNoMonthChange @@ -679,7 +1004,7 @@ type AttrSetTypeConstraint CalendarShowDayNamesPropertyInfo = (~) Bool type AttrBaseTypeConstraint CalendarShowDayNamesPropertyInfo = CalendarK type AttrGetType CalendarShowDayNamesPropertyInfo = Bool - type AttrLabel CalendarShowDayNamesPropertyInfo = "Calendar::show-day-names" + type AttrLabel CalendarShowDayNamesPropertyInfo = "show-day-names" attrGet _ = getCalendarShowDayNames attrSet _ = setCalendarShowDayNames attrConstruct _ = constructCalendarShowDayNames @@ -703,7 +1028,7 @@ type AttrSetTypeConstraint CalendarShowDetailsPropertyInfo = (~) Bool type AttrBaseTypeConstraint CalendarShowDetailsPropertyInfo = CalendarK type AttrGetType CalendarShowDetailsPropertyInfo = Bool - type AttrLabel CalendarShowDetailsPropertyInfo = "Calendar::show-details" + type AttrLabel CalendarShowDetailsPropertyInfo = "show-details" attrGet _ = getCalendarShowDetails attrSet _ = setCalendarShowDetails attrConstruct _ = constructCalendarShowDetails @@ -727,7 +1052,7 @@ type AttrSetTypeConstraint CalendarShowHeadingPropertyInfo = (~) Bool type AttrBaseTypeConstraint CalendarShowHeadingPropertyInfo = CalendarK type AttrGetType CalendarShowHeadingPropertyInfo = Bool - type AttrLabel CalendarShowHeadingPropertyInfo = "Calendar::show-heading" + type AttrLabel CalendarShowHeadingPropertyInfo = "show-heading" attrGet _ = getCalendarShowHeading attrSet _ = setCalendarShowHeading attrConstruct _ = constructCalendarShowHeading @@ -751,7 +1076,7 @@ type AttrSetTypeConstraint CalendarShowWeekNumbersPropertyInfo = (~) Bool type AttrBaseTypeConstraint CalendarShowWeekNumbersPropertyInfo = CalendarK type AttrGetType CalendarShowWeekNumbersPropertyInfo = Bool - type AttrLabel CalendarShowWeekNumbersPropertyInfo = "Calendar::show-week-numbers" + type AttrLabel CalendarShowWeekNumbersPropertyInfo = "show-week-numbers" attrGet _ = getCalendarShowWeekNumbers attrSet _ = setCalendarShowWeekNumbers attrConstruct _ = constructCalendarShowWeekNumbers @@ -775,13 +1100,13 @@ type AttrSetTypeConstraint CalendarYearPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CalendarYearPropertyInfo = CalendarK type AttrGetType CalendarYearPropertyInfo = Int32 - type AttrLabel CalendarYearPropertyInfo = "Calendar::year" + type AttrLabel CalendarYearPropertyInfo = "year" attrGet _ = getCalendarYear attrSet _ = setCalendarYear attrConstruct _ = constructCalendarYear type instance AttributeList Calendar = CalendarAttributeList -type CalendarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("day", CalendarDayPropertyInfo), '("detail-height-rows", CalendarDetailHeightRowsPropertyInfo), '("detail-width-chars", CalendarDetailWidthCharsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("month", CalendarMonthPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-month-change", CalendarNoMonthChangePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-day-names", CalendarShowDayNamesPropertyInfo), '("show-details", CalendarShowDetailsPropertyInfo), '("show-heading", CalendarShowHeadingPropertyInfo), '("show-week-numbers", CalendarShowWeekNumbersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("year", CalendarYearPropertyInfo)] :: [(Symbol, *)]) +type CalendarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("day", CalendarDayPropertyInfo), '("detailHeightRows", CalendarDetailHeightRowsPropertyInfo), '("detailWidthChars", CalendarDetailWidthCharsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("month", CalendarMonthPropertyInfo), '("name", WidgetNamePropertyInfo), '("noMonthChange", CalendarNoMonthChangePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showDayNames", CalendarShowDayNamesPropertyInfo), '("showDetails", CalendarShowDetailsPropertyInfo), '("showHeading", CalendarShowHeadingPropertyInfo), '("showWeekNumbers", CalendarShowWeekNumbersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("year", CalendarYearPropertyInfo)] :: [(Symbol, *)]) data CalendarDaySelectedSignalInfo instance SignalInfo CalendarDaySelectedSignalInfo where @@ -819,13 +1144,12 @@ connectSignal _ = connectCalendarPrevYear type instance SignalList Calendar = CalendarSignalList -type CalendarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("day-selected", CalendarDaySelectedSignalInfo), '("day-selected-double-click", CalendarDaySelectedDoubleClickSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("month-changed", CalendarMonthChangedSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("next-month", CalendarNextMonthSignalInfo), '("next-year", CalendarNextYearSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("prev-month", CalendarPrevMonthSignalInfo), '("prev-year", CalendarPrevYearSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CalendarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("daySelected", CalendarDaySelectedSignalInfo), '("daySelectedDoubleClick", CalendarDaySelectedDoubleClickSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("monthChanged", CalendarMonthChangedSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("nextMonth", CalendarNextMonthSignalInfo), '("nextYear", CalendarNextYearSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("prevMonth", CalendarPrevMonthSignalInfo), '("prevYear", CalendarPrevYearSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Calendar::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Calendar" -- throws : False -- Skip return : False @@ -836,7 +1160,7 @@ calendarNew :: (MonadIO m) => - m Calendar + m Calendar -- result calendarNew = liftIO $ do result <- gtk_calendar_new checkUnexpectedReturnNULL "gtk_calendar_new" result @@ -845,9 +1169,8 @@ -- method Calendar::clear_marks -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -859,19 +1182,22 @@ calendarClearMarks :: (MonadIO m, CalendarK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result calendarClearMarks _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_calendar_clear_marks _obj' touchManagedPtr _obj return () +data CalendarClearMarksMethodInfo +instance (signature ~ (m ()), MonadIO m, CalendarK a) => MethodInfo CalendarClearMarksMethodInfo a signature where + overloadedMethod _ = calendarClearMarks + -- method Calendar::get_date -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "month", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "month", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -886,8 +1212,8 @@ calendarGetDate :: (MonadIO m, CalendarK a) => - a -> -- _obj - m (Word32,Word32,Word32) + a -- _obj + -> m (Word32,Word32,Word32) -- result calendarGetDate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj year <- allocMem :: IO (Ptr Word32) @@ -903,11 +1229,14 @@ freeMem day return (year', month', day') +data CalendarGetDateMethodInfo +instance (signature ~ (m (Word32,Word32,Word32)), MonadIO m, CalendarK a) => MethodInfo CalendarGetDateMethodInfo a signature where + overloadedMethod _ = calendarGetDate + -- method Calendar::get_day_is_marked -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -920,9 +1249,9 @@ calendarGetDayIsMarked :: (MonadIO m, CalendarK a) => - a -> -- _obj - Word32 -> -- day - m Bool + a -- _obj + -> Word32 -- day + -> m Bool -- result calendarGetDayIsMarked _obj day = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_calendar_get_day_is_marked _obj' day @@ -930,11 +1259,14 @@ touchManagedPtr _obj return result' +data CalendarGetDayIsMarkedMethodInfo +instance (signature ~ (Word32 -> m Bool), MonadIO m, CalendarK a) => MethodInfo CalendarGetDayIsMarkedMethodInfo a signature where + overloadedMethod _ = calendarGetDayIsMarked + -- method Calendar::get_detail_height_rows -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -946,19 +1278,22 @@ calendarGetDetailHeightRows :: (MonadIO m, CalendarK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result calendarGetDetailHeightRows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_calendar_get_detail_height_rows _obj' touchManagedPtr _obj return result +data CalendarGetDetailHeightRowsMethodInfo +instance (signature ~ (m Int32), MonadIO m, CalendarK a) => MethodInfo CalendarGetDetailHeightRowsMethodInfo a signature where + overloadedMethod _ = calendarGetDetailHeightRows + -- method Calendar::get_detail_width_chars -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -970,19 +1305,22 @@ calendarGetDetailWidthChars :: (MonadIO m, CalendarK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result calendarGetDetailWidthChars _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_calendar_get_detail_width_chars _obj' touchManagedPtr _obj return result +data CalendarGetDetailWidthCharsMethodInfo +instance (signature ~ (m Int32), MonadIO m, CalendarK a) => MethodInfo CalendarGetDetailWidthCharsMethodInfo a signature where + overloadedMethod _ = calendarGetDetailWidthChars + -- method Calendar::get_display_options -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CalendarDisplayOptions" -- throws : False -- Skip return : False @@ -994,8 +1332,8 @@ calendarGetDisplayOptions :: (MonadIO m, CalendarK a) => - a -> -- _obj - m [CalendarDisplayOptions] + a -- _obj + -> m [CalendarDisplayOptions] -- result calendarGetDisplayOptions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_calendar_get_display_options _obj' @@ -1003,11 +1341,14 @@ touchManagedPtr _obj return result' +data CalendarGetDisplayOptionsMethodInfo +instance (signature ~ (m [CalendarDisplayOptions]), MonadIO m, CalendarK a) => MethodInfo CalendarGetDisplayOptionsMethodInfo a signature where + overloadedMethod _ = calendarGetDisplayOptions + -- method Calendar::mark_day -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1020,20 +1361,23 @@ calendarMarkDay :: (MonadIO m, CalendarK a) => - a -> -- _obj - Word32 -> -- day - m () + a -- _obj + -> Word32 -- day + -> m () -- result calendarMarkDay _obj day = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_calendar_mark_day _obj' day touchManagedPtr _obj return () +data CalendarMarkDayMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarMarkDayMethodInfo a signature where + overloadedMethod _ = calendarMarkDay + -- method Calendar::select_day -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1046,20 +1390,23 @@ calendarSelectDay :: (MonadIO m, CalendarK a) => - a -> -- _obj - Word32 -> -- day - m () + a -- _obj + -> Word32 -- day + -> m () -- result calendarSelectDay _obj day = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_calendar_select_day _obj' day touchManagedPtr _obj return () +data CalendarSelectDayMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarSelectDayMethodInfo a signature where + overloadedMethod _ = calendarSelectDay + -- method Calendar::select_month -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1073,21 +1420,24 @@ calendarSelectMonth :: (MonadIO m, CalendarK a) => - a -> -- _obj - Word32 -> -- month - Word32 -> -- year - m () + a -- _obj + -> Word32 -- month + -> Word32 -- year + -> m () -- result calendarSelectMonth _obj month year = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_calendar_select_month _obj' month year touchManagedPtr _obj return () +data CalendarSelectMonthMethodInfo +instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarSelectMonthMethodInfo a signature where + overloadedMethod _ = calendarSelectMonth + -- method Calendar::set_detail_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "CalendarDetailFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "CalendarDetailFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "CalendarDetailFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1102,9 +1452,9 @@ calendarSetDetailFunc :: (MonadIO m, CalendarK a) => - a -> -- _obj - CalendarDetailFunc -> -- func - m () + a -- _obj + -> CalendarDetailFunc -- func + -> m () -- result calendarSetDetailFunc _obj func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj func' <- mkCalendarDetailFunc (calendarDetailFuncWrapper Nothing func) @@ -1114,11 +1464,14 @@ touchManagedPtr _obj return () +data CalendarSetDetailFuncMethodInfo +instance (signature ~ (CalendarDetailFunc -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarSetDetailFuncMethodInfo a signature where + overloadedMethod _ = calendarSetDetailFunc + -- method Calendar::set_detail_height_rows -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1131,20 +1484,23 @@ calendarSetDetailHeightRows :: (MonadIO m, CalendarK a) => - a -> -- _obj - Int32 -> -- rows - m () + a -- _obj + -> Int32 -- rows + -> m () -- result calendarSetDetailHeightRows _obj rows = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_calendar_set_detail_height_rows _obj' rows touchManagedPtr _obj return () +data CalendarSetDetailHeightRowsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarSetDetailHeightRowsMethodInfo a signature where + overloadedMethod _ = calendarSetDetailHeightRows + -- method Calendar::set_detail_width_chars -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1157,20 +1513,23 @@ calendarSetDetailWidthChars :: (MonadIO m, CalendarK a) => - a -> -- _obj - Int32 -> -- chars - m () + a -- _obj + -> Int32 -- chars + -> m () -- result calendarSetDetailWidthChars _obj chars = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_calendar_set_detail_width_chars _obj' chars touchManagedPtr _obj return () +data CalendarSetDetailWidthCharsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarSetDetailWidthCharsMethodInfo a signature where + overloadedMethod _ = calendarSetDetailWidthChars + -- method Calendar::set_display_options -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CalendarDisplayOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CalendarDisplayOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CalendarDisplayOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1183,9 +1542,9 @@ calendarSetDisplayOptions :: (MonadIO m, CalendarK a) => - a -> -- _obj - [CalendarDisplayOptions] -> -- flags - m () + a -- _obj + -> [CalendarDisplayOptions] -- flags + -> m () -- result calendarSetDisplayOptions _obj flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let flags' = gflagsToWord flags @@ -1193,11 +1552,14 @@ touchManagedPtr _obj return () +data CalendarSetDisplayOptionsMethodInfo +instance (signature ~ ([CalendarDisplayOptions] -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarSetDisplayOptionsMethodInfo a signature where + overloadedMethod _ = calendarSetDisplayOptions + -- method Calendar::unmark_day -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1210,13 +1572,17 @@ calendarUnmarkDay :: (MonadIO m, CalendarK a) => - a -> -- _obj - Word32 -> -- day - m () + a -- _obj + -> Word32 -- day + -> m () -- result calendarUnmarkDay _obj day = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_calendar_unmark_day _obj' day touchManagedPtr _obj return () + +data CalendarUnmarkDayMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, CalendarK a) => MethodInfo CalendarUnmarkDayMethodInfo a signature where + overloadedMethod _ = calendarUnmarkDay diff --git a/GI/Gtk/Objects/Calendar.hs-boot b/GI/Gtk/Objects/Calendar.hs-boot --- a/GI/Gtk/Objects/Calendar.hs-boot +++ b/GI/Gtk/Objects/Calendar.hs-boot @@ -28,3 +28,17 @@ data CalendarNextYearSignalInfo data CalendarPrevMonthSignalInfo data CalendarPrevYearSignalInfo +data CalendarClearMarksMethodInfo +data CalendarGetDateMethodInfo +data CalendarGetDayIsMarkedMethodInfo +data CalendarGetDetailHeightRowsMethodInfo +data CalendarGetDetailWidthCharsMethodInfo +data CalendarGetDisplayOptionsMethodInfo +data CalendarMarkDayMethodInfo +data CalendarSelectDayMethodInfo +data CalendarSelectMonthMethodInfo +data CalendarSetDetailFuncMethodInfo +data CalendarSetDetailHeightRowsMethodInfo +data CalendarSetDetailWidthCharsMethodInfo +data CalendarSetDisplayOptionsMethodInfo +data CalendarUnmarkDayMethodInfo diff --git a/GI/Gtk/Objects/CellAccessible.hs b/GI/Gtk/Objects/CellAccessible.hs --- a/GI/Gtk/Objects/CellAccessible.hs +++ b/GI/Gtk/Objects/CellAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,79 @@ noCellAccessible :: Maybe CellAccessible noCellAccessible = Nothing +type family ResolveCellAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveCellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveCellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveCellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveCellAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveCellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveCellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveCellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveCellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveCellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveCellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveCellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveCellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveCellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveCellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveCellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveCellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveCellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveCellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveCellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveCellAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveCellAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveCellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveCellAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveCellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveCellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveCellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveCellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveCellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveCellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveCellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveCellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveCellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveCellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveCellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveCellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveCellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveCellAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellAccessibleMethod t CellAccessible, MethodInfo info CellAccessible p) => IsLabelProxy t (CellAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellAccessibleMethod t CellAccessible, MethodInfo info CellAccessible p) => IsLabel t (CellAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList CellAccessible = CellAccessibleAttributeList -type CellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type CellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList CellAccessible = CellAccessibleSignalList -type CellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/CellArea.hs b/GI/Gtk/Objects/CellArea.hs --- a/GI/Gtk/Objects/CellArea.hs +++ b/GI/Gtk/Objects/CellArea.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,158 +18,197 @@ -- * Methods -- ** cellAreaActivate + CellAreaActivateMethodInfo , cellAreaActivate , -- ** cellAreaActivateCell + CellAreaActivateCellMethodInfo , cellAreaActivateCell , -- ** cellAreaAdd + CellAreaAddMethodInfo , cellAreaAdd , -- ** cellAreaAddFocusSibling + CellAreaAddFocusSiblingMethodInfo , cellAreaAddFocusSibling , -- ** cellAreaApplyAttributes + CellAreaApplyAttributesMethodInfo , cellAreaApplyAttributes , -- ** cellAreaAttributeConnect + CellAreaAttributeConnectMethodInfo , cellAreaAttributeConnect , -- ** cellAreaAttributeDisconnect + CellAreaAttributeDisconnectMethodInfo , cellAreaAttributeDisconnect , -- ** cellAreaAttributeGetColumn + CellAreaAttributeGetColumnMethodInfo , cellAreaAttributeGetColumn , -- ** cellAreaCellGetProperty + CellAreaCellGetPropertyMethodInfo , cellAreaCellGetProperty , -- ** cellAreaCellSetProperty + CellAreaCellSetPropertyMethodInfo , cellAreaCellSetProperty , -- ** cellAreaCopyContext + CellAreaCopyContextMethodInfo , cellAreaCopyContext , -- ** cellAreaCreateContext + CellAreaCreateContextMethodInfo , cellAreaCreateContext , -- ** cellAreaEvent + CellAreaEventMethodInfo , cellAreaEvent , -- ** cellAreaFocus + CellAreaFocusMethodInfo , cellAreaFocus , -- ** cellAreaForeach + CellAreaForeachMethodInfo , cellAreaForeach , -- ** cellAreaForeachAlloc + CellAreaForeachAllocMethodInfo , cellAreaForeachAlloc , -- ** cellAreaGetCellAllocation + CellAreaGetCellAllocationMethodInfo , cellAreaGetCellAllocation , -- ** cellAreaGetCellAtPosition + CellAreaGetCellAtPositionMethodInfo , cellAreaGetCellAtPosition , -- ** cellAreaGetCurrentPathString + CellAreaGetCurrentPathStringMethodInfo , cellAreaGetCurrentPathString , -- ** cellAreaGetEditWidget + CellAreaGetEditWidgetMethodInfo , cellAreaGetEditWidget , -- ** cellAreaGetEditedCell + CellAreaGetEditedCellMethodInfo , cellAreaGetEditedCell , -- ** cellAreaGetFocusCell + CellAreaGetFocusCellMethodInfo , cellAreaGetFocusCell , -- ** cellAreaGetFocusFromSibling + CellAreaGetFocusFromSiblingMethodInfo , cellAreaGetFocusFromSibling , -- ** cellAreaGetFocusSiblings + CellAreaGetFocusSiblingsMethodInfo , cellAreaGetFocusSiblings , -- ** cellAreaGetPreferredHeight + CellAreaGetPreferredHeightMethodInfo , cellAreaGetPreferredHeight , -- ** cellAreaGetPreferredHeightForWidth + CellAreaGetPreferredHeightForWidthMethodInfo, cellAreaGetPreferredHeightForWidth , -- ** cellAreaGetPreferredWidth + CellAreaGetPreferredWidthMethodInfo , cellAreaGetPreferredWidth , -- ** cellAreaGetPreferredWidthForHeight + CellAreaGetPreferredWidthForHeightMethodInfo, cellAreaGetPreferredWidthForHeight , -- ** cellAreaGetRequestMode + CellAreaGetRequestModeMethodInfo , cellAreaGetRequestMode , -- ** cellAreaHasRenderer + CellAreaHasRendererMethodInfo , cellAreaHasRenderer , -- ** cellAreaInnerCellArea + CellAreaInnerCellAreaMethodInfo , cellAreaInnerCellArea , -- ** cellAreaIsActivatable + CellAreaIsActivatableMethodInfo , cellAreaIsActivatable , -- ** cellAreaIsFocusSibling + CellAreaIsFocusSiblingMethodInfo , cellAreaIsFocusSibling , -- ** cellAreaRemove + CellAreaRemoveMethodInfo , cellAreaRemove , -- ** cellAreaRemoveFocusSibling + CellAreaRemoveFocusSiblingMethodInfo , cellAreaRemoveFocusSibling , -- ** cellAreaRender + CellAreaRenderMethodInfo , cellAreaRender , -- ** cellAreaRequestRenderer + CellAreaRequestRendererMethodInfo , cellAreaRequestRenderer , -- ** cellAreaSetFocusCell + CellAreaSetFocusCellMethodInfo , cellAreaSetFocusCell , -- ** cellAreaStopEditing + CellAreaStopEditingMethodInfo , cellAreaStopEditing , @@ -281,6 +321,97 @@ noCellArea :: Maybe CellArea noCellArea = Nothing +type family ResolveCellAreaMethod (t :: Symbol) (o :: *) :: * where + ResolveCellAreaMethod "activate" o = CellAreaActivateMethodInfo + ResolveCellAreaMethod "activateCell" o = CellAreaActivateCellMethodInfo + ResolveCellAreaMethod "add" o = CellAreaAddMethodInfo + ResolveCellAreaMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo + ResolveCellAreaMethod "addChild" o = BuildableAddChildMethodInfo + ResolveCellAreaMethod "addFocusSibling" o = CellAreaAddFocusSiblingMethodInfo + ResolveCellAreaMethod "applyAttributes" o = CellAreaApplyAttributesMethodInfo + ResolveCellAreaMethod "attributeConnect" o = CellAreaAttributeConnectMethodInfo + ResolveCellAreaMethod "attributeDisconnect" o = CellAreaAttributeDisconnectMethodInfo + ResolveCellAreaMethod "attributeGetColumn" o = CellAreaAttributeGetColumnMethodInfo + ResolveCellAreaMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellAreaMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellAreaMethod "cellGetProperty" o = CellAreaCellGetPropertyMethodInfo + ResolveCellAreaMethod "cellSetProperty" o = CellAreaCellSetPropertyMethodInfo + ResolveCellAreaMethod "clear" o = CellLayoutClearMethodInfo + ResolveCellAreaMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo + ResolveCellAreaMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveCellAreaMethod "copyContext" o = CellAreaCopyContextMethodInfo + ResolveCellAreaMethod "createContext" o = CellAreaCreateContextMethodInfo + ResolveCellAreaMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveCellAreaMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveCellAreaMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveCellAreaMethod "event" o = CellAreaEventMethodInfo + ResolveCellAreaMethod "focus" o = CellAreaFocusMethodInfo + ResolveCellAreaMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellAreaMethod "foreach" o = CellAreaForeachMethodInfo + ResolveCellAreaMethod "foreachAlloc" o = CellAreaForeachAllocMethodInfo + ResolveCellAreaMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellAreaMethod "hasRenderer" o = CellAreaHasRendererMethodInfo + ResolveCellAreaMethod "innerCellArea" o = CellAreaInnerCellAreaMethodInfo + ResolveCellAreaMethod "isActivatable" o = CellAreaIsActivatableMethodInfo + ResolveCellAreaMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellAreaMethod "isFocusSibling" o = CellAreaIsFocusSiblingMethodInfo + ResolveCellAreaMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellAreaMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellAreaMethod "packEnd" o = CellLayoutPackEndMethodInfo + ResolveCellAreaMethod "packStart" o = CellLayoutPackStartMethodInfo + ResolveCellAreaMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveCellAreaMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellAreaMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellAreaMethod "remove" o = CellAreaRemoveMethodInfo + ResolveCellAreaMethod "removeFocusSibling" o = CellAreaRemoveFocusSiblingMethodInfo + ResolveCellAreaMethod "render" o = CellAreaRenderMethodInfo + ResolveCellAreaMethod "reorder" o = CellLayoutReorderMethodInfo + ResolveCellAreaMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellAreaMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellAreaMethod "requestRenderer" o = CellAreaRequestRendererMethodInfo + ResolveCellAreaMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellAreaMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellAreaMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellAreaMethod "stopEditing" o = CellAreaStopEditingMethodInfo + ResolveCellAreaMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellAreaMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellAreaMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellAreaMethod "getArea" o = CellLayoutGetAreaMethodInfo + ResolveCellAreaMethod "getCellAllocation" o = CellAreaGetCellAllocationMethodInfo + ResolveCellAreaMethod "getCellAtPosition" o = CellAreaGetCellAtPositionMethodInfo + ResolveCellAreaMethod "getCells" o = CellLayoutGetCellsMethodInfo + ResolveCellAreaMethod "getCurrentPathString" o = CellAreaGetCurrentPathStringMethodInfo + ResolveCellAreaMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellAreaMethod "getEditWidget" o = CellAreaGetEditWidgetMethodInfo + ResolveCellAreaMethod "getEditedCell" o = CellAreaGetEditedCellMethodInfo + ResolveCellAreaMethod "getFocusCell" o = CellAreaGetFocusCellMethodInfo + ResolveCellAreaMethod "getFocusFromSibling" o = CellAreaGetFocusFromSiblingMethodInfo + ResolveCellAreaMethod "getFocusSiblings" o = CellAreaGetFocusSiblingsMethodInfo + ResolveCellAreaMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveCellAreaMethod "getName" o = BuildableGetNameMethodInfo + ResolveCellAreaMethod "getPreferredHeight" o = CellAreaGetPreferredHeightMethodInfo + ResolveCellAreaMethod "getPreferredHeightForWidth" o = CellAreaGetPreferredHeightForWidthMethodInfo + ResolveCellAreaMethod "getPreferredWidth" o = CellAreaGetPreferredWidthMethodInfo + ResolveCellAreaMethod "getPreferredWidthForHeight" o = CellAreaGetPreferredWidthForHeightMethodInfo + ResolveCellAreaMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellAreaMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellAreaMethod "getRequestMode" o = CellAreaGetRequestModeMethodInfo + ResolveCellAreaMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveCellAreaMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo + ResolveCellAreaMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellAreaMethod "setFocusCell" o = CellAreaSetFocusCellMethodInfo + ResolveCellAreaMethod "setName" o = BuildableSetNameMethodInfo + ResolveCellAreaMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellAreaMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellAreaMethod t CellArea, MethodInfo info CellArea p) => IsLabelProxy t (CellArea -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellAreaMethod t CellArea, MethodInfo info CellArea p) => IsLabel t (CellArea -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal CellArea::add-editable type CellAreaAddEditableCallback = CellRenderer -> @@ -317,12 +448,12 @@ CString -> Ptr () -> IO () -cellAreaAddEditableCallbackWrapper _cb _ renderer editable cell_area path _ = do +cellAreaAddEditableCallbackWrapper _cb _ renderer editable cellArea path _ = do renderer' <- (newObject CellRenderer) renderer editable' <- (newObject CellEditable) editable - cell_area' <- (newBoxed Gdk.Rectangle) cell_area + cellArea' <- (newBoxed Gdk.Rectangle) cellArea path' <- cstringToText path - _cb renderer' editable' cell_area' path' + _cb renderer' editable' cellArea' path' onCellAreaAddEditable :: (GObject a, MonadIO m) => a -> CellAreaAddEditableCallback -> m SignalHandlerId onCellAreaAddEditable obj cb = liftIO $ connectCellAreaAddEditable obj cb SignalConnectBefore @@ -371,12 +502,12 @@ CInt -> Ptr () -> IO () -cellAreaApplyAttributesCallbackWrapper _cb _ model iter is_expander is_expanded _ = do +cellAreaApplyAttributesCallbackWrapper _cb _ model iter isExpander isExpanded _ = do model' <- (newObject TreeModel) model iter' <- (newBoxed TreeIter) iter - let is_expander' = (/= 0) is_expander - let is_expanded' = (/= 0) is_expanded - _cb model' iter' is_expander' is_expanded' + let isExpander' = (/= 0) isExpander + let isExpanded' = (/= 0) isExpanded + _cb model' iter' isExpander' isExpanded' onCellAreaApplyAttributes :: (GObject a, MonadIO m) => a -> CellAreaApplyAttributesCallback -> m SignalHandlerId onCellAreaApplyAttributes obj cb = liftIO $ connectCellAreaApplyAttributes obj cb SignalConnectBefore @@ -494,7 +625,7 @@ type AttrSetTypeConstraint CellAreaEditWidgetPropertyInfo = (~) () type AttrBaseTypeConstraint CellAreaEditWidgetPropertyInfo = CellAreaK type AttrGetType CellAreaEditWidgetPropertyInfo = CellEditable - type AttrLabel CellAreaEditWidgetPropertyInfo = "CellArea::edit-widget" + type AttrLabel CellAreaEditWidgetPropertyInfo = "edit-widget" attrGet _ = getCellAreaEditWidget attrSet _ = undefined attrConstruct _ = undefined @@ -512,7 +643,7 @@ type AttrSetTypeConstraint CellAreaEditedCellPropertyInfo = (~) () type AttrBaseTypeConstraint CellAreaEditedCellPropertyInfo = CellAreaK type AttrGetType CellAreaEditedCellPropertyInfo = CellRenderer - type AttrLabel CellAreaEditedCellPropertyInfo = "CellArea::edited-cell" + type AttrLabel CellAreaEditedCellPropertyInfo = "edited-cell" attrGet _ = getCellAreaEditedCell attrSet _ = undefined attrConstruct _ = undefined @@ -536,13 +667,13 @@ type AttrSetTypeConstraint CellAreaFocusCellPropertyInfo = CellRendererK type AttrBaseTypeConstraint CellAreaFocusCellPropertyInfo = CellAreaK type AttrGetType CellAreaFocusCellPropertyInfo = CellRenderer - type AttrLabel CellAreaFocusCellPropertyInfo = "CellArea::focus-cell" + type AttrLabel CellAreaFocusCellPropertyInfo = "focus-cell" attrGet _ = getCellAreaFocusCell attrSet _ = setCellAreaFocusCell attrConstruct _ = constructCellAreaFocusCell type instance AttributeList CellArea = CellAreaAttributeList -type CellAreaAttributeList = ('[ '("edit-widget", CellAreaEditWidgetPropertyInfo), '("edited-cell", CellAreaEditedCellPropertyInfo), '("focus-cell", CellAreaFocusCellPropertyInfo)] :: [(Symbol, *)]) +type CellAreaAttributeList = ('[ '("editWidget", CellAreaEditWidgetPropertyInfo), '("editedCell", CellAreaEditedCellPropertyInfo), '("focusCell", CellAreaFocusCellPropertyInfo)] :: [(Symbol, *)]) data CellAreaAddEditableSignalInfo instance SignalInfo CellAreaAddEditableSignalInfo where @@ -565,13 +696,12 @@ connectSignal _ = connectCellAreaRemoveEditable type instance SignalList CellArea = CellAreaSignalList -type CellAreaSignalList = ('[ '("add-editable", CellAreaAddEditableSignalInfo), '("apply-attributes", CellAreaApplyAttributesSignalInfo), '("focus-changed", CellAreaFocusChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("remove-editable", CellAreaRemoveEditableSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellAreaSignalList = ('[ '("addEditable", CellAreaAddEditableSignalInfo), '("applyAttributes", CellAreaApplyAttributesSignalInfo), '("focusChanged", CellAreaFocusChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("removeEditable", CellAreaRemoveEditableSignalInfo)] :: [(Symbol, *)]) -- method CellArea::activate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edit_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edit_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edit_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -588,33 +718,36 @@ cellAreaActivate :: (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - Gdk.Rectangle -> -- cell_area - [CellRendererState] -> -- flags - Bool -> -- edit_only - m Bool -cellAreaActivate _obj context widget cell_area flags edit_only = liftIO $ do + a -- _obj + -> b -- context + -> c -- widget + -> Gdk.Rectangle -- cellArea + -> [CellRendererState] -- flags + -> Bool -- editOnly + -> m Bool -- result +cellAreaActivate _obj context widget cellArea flags editOnly = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context let widget' = unsafeManagedPtrCastPtr widget - let cell_area' = unsafeManagedPtrGetPtr cell_area + let cellArea' = unsafeManagedPtrGetPtr cellArea let flags' = gflagsToWord flags - let edit_only' = (fromIntegral . fromEnum) edit_only - result <- gtk_cell_area_activate _obj' context' widget' cell_area' flags' edit_only' + let editOnly' = (fromIntegral . fromEnum) editOnly + result <- gtk_cell_area_activate _obj' context' widget' cellArea' flags' editOnly' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr context touchManagedPtr widget - touchManagedPtr cell_area + touchManagedPtr cellArea return result' +data CellAreaActivateMethodInfo +instance (signature ~ (b -> c -> Gdk.Rectangle -> [CellRendererState] -> Bool -> m Bool), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaActivateMethodInfo a signature where + overloadedMethod _ = cellAreaActivate + -- method CellArea::activate_cell -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -631,34 +764,37 @@ cellAreaActivateCell :: (MonadIO m, CellAreaK a, WidgetK b, CellRendererK c) => - a -> -- _obj - b -> -- widget - c -> -- renderer - Gdk.Event -> -- event - Gdk.Rectangle -> -- cell_area - [CellRendererState] -> -- flags - m Bool -cellAreaActivateCell _obj widget renderer event cell_area flags = liftIO $ do + a -- _obj + -> b -- widget + -> c -- renderer + -> Gdk.Event -- event + -> Gdk.Rectangle -- cellArea + -> [CellRendererState] -- flags + -> m Bool -- result +cellAreaActivateCell _obj widget renderer event cellArea flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget let renderer' = unsafeManagedPtrCastPtr renderer let event' = unsafeManagedPtrGetPtr event - let cell_area' = unsafeManagedPtrGetPtr cell_area + let cellArea' = unsafeManagedPtrGetPtr cellArea let flags' = gflagsToWord flags - result <- gtk_cell_area_activate_cell _obj' widget' renderer' event' cell_area' flags' + result <- gtk_cell_area_activate_cell _obj' widget' renderer' event' cellArea' flags' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr widget touchManagedPtr renderer touchManagedPtr event - touchManagedPtr cell_area + touchManagedPtr cellArea return result' +data CellAreaActivateCellMethodInfo +instance (signature ~ (b -> c -> Gdk.Event -> Gdk.Rectangle -> [CellRendererState] -> m Bool), MonadIO m, CellAreaK a, WidgetK b, CellRendererK c) => MethodInfo CellAreaActivateCellMethodInfo a signature where + overloadedMethod _ = cellAreaActivateCell + -- method CellArea::add -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -671,9 +807,9 @@ cellAreaAdd :: (MonadIO m, CellAreaK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - m () + a -- _obj + -> b -- renderer + -> m () -- result cellAreaAdd _obj renderer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -682,11 +818,14 @@ touchManagedPtr renderer return () +data CellAreaAddMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaAddMethodInfo a signature where + overloadedMethod _ = cellAreaAdd + -- method CellArea::add_focus_sibling -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -700,10 +839,10 @@ cellAreaAddFocusSibling :: (MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) => - a -> -- _obj - b -> -- renderer - c -> -- sibling - m () + a -- _obj + -> b -- renderer + -> c -- sibling + -> m () -- result cellAreaAddFocusSibling _obj renderer sibling = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -714,11 +853,14 @@ touchManagedPtr sibling return () +data CellAreaAddFocusSiblingMethodInfo +instance (signature ~ (b -> c -> m ()), MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) => MethodInfo CellAreaAddFocusSiblingMethodInfo a signature where + overloadedMethod _ = cellAreaAddFocusSibling + -- method CellArea::apply_attributes -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -734,29 +876,32 @@ cellAreaApplyAttributes :: (MonadIO m, CellAreaK a, TreeModelK b) => - a -> -- _obj - b -> -- tree_model - TreeIter -> -- iter - Bool -> -- is_expander - Bool -> -- is_expanded - m () -cellAreaApplyAttributes _obj tree_model iter is_expander is_expanded = liftIO $ do + a -- _obj + -> b -- treeModel + -> TreeIter -- iter + -> Bool -- isExpander + -> Bool -- isExpanded + -> m () -- result +cellAreaApplyAttributes _obj treeModel iter isExpander isExpanded = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let tree_model' = unsafeManagedPtrCastPtr tree_model + let treeModel' = unsafeManagedPtrCastPtr treeModel let iter' = unsafeManagedPtrGetPtr iter - let is_expander' = (fromIntegral . fromEnum) is_expander - let is_expanded' = (fromIntegral . fromEnum) is_expanded - gtk_cell_area_apply_attributes _obj' tree_model' iter' is_expander' is_expanded' + let isExpander' = (fromIntegral . fromEnum) isExpander + let isExpanded' = (fromIntegral . fromEnum) isExpanded + gtk_cell_area_apply_attributes _obj' treeModel' iter' isExpander' isExpanded' touchManagedPtr _obj - touchManagedPtr tree_model + touchManagedPtr treeModel touchManagedPtr iter return () +data CellAreaApplyAttributesMethodInfo +instance (signature ~ (b -> TreeIter -> Bool -> Bool -> m ()), MonadIO m, CellAreaK a, TreeModelK b) => MethodInfo CellAreaApplyAttributesMethodInfo a signature where + overloadedMethod _ = cellAreaApplyAttributes + -- method CellArea::attribute_connect -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -771,11 +916,11 @@ cellAreaAttributeConnect :: (MonadIO m, CellAreaK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - T.Text -> -- attribute - Int32 -> -- column - m () + a -- _obj + -> b -- renderer + -> T.Text -- attribute + -> Int32 -- column + -> m () -- result cellAreaAttributeConnect _obj renderer attribute column = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -786,11 +931,14 @@ freeMem attribute' return () +data CellAreaAttributeConnectMethodInfo +instance (signature ~ (b -> T.Text -> Int32 -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaAttributeConnectMethodInfo a signature where + overloadedMethod _ = cellAreaAttributeConnect + -- method CellArea::attribute_disconnect -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -804,10 +952,10 @@ cellAreaAttributeDisconnect :: (MonadIO m, CellAreaK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - T.Text -> -- attribute - m () + a -- _obj + -> b -- renderer + -> T.Text -- attribute + -> m () -- result cellAreaAttributeDisconnect _obj renderer attribute = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -818,11 +966,14 @@ freeMem attribute' return () +data CellAreaAttributeDisconnectMethodInfo +instance (signature ~ (b -> T.Text -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaAttributeDisconnectMethodInfo a signature where + overloadedMethod _ = cellAreaAttributeDisconnect + -- method CellArea::attribute_get_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -836,10 +987,10 @@ cellAreaAttributeGetColumn :: (MonadIO m, CellAreaK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - T.Text -> -- attribute - m Int32 + a -- _obj + -> b -- renderer + -> T.Text -- attribute + -> m Int32 -- result cellAreaAttributeGetColumn _obj renderer attribute = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -850,11 +1001,14 @@ freeMem attribute' return result +data CellAreaAttributeGetColumnMethodInfo +instance (signature ~ (b -> T.Text -> m Int32), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaAttributeGetColumnMethodInfo a signature where + overloadedMethod _ = cellAreaAttributeGetColumn + -- method CellArea::cell_get_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -869,28 +1023,31 @@ cellAreaCellGetProperty :: (MonadIO m, CellAreaK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - T.Text -> -- property_name - GValue -> -- value - m () -cellAreaCellGetProperty _obj renderer property_name value = liftIO $ do + a -- _obj + -> b -- renderer + -> T.Text -- propertyName + -> GValue -- value + -> m () -- result +cellAreaCellGetProperty _obj renderer propertyName value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer - property_name' <- textToCString property_name + propertyName' <- textToCString propertyName let value' = unsafeManagedPtrGetPtr value - gtk_cell_area_cell_get_property _obj' renderer' property_name' value' + gtk_cell_area_cell_get_property _obj' renderer' propertyName' value' touchManagedPtr _obj touchManagedPtr renderer touchManagedPtr value - freeMem property_name' + freeMem propertyName' return () +data CellAreaCellGetPropertyMethodInfo +instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaCellGetPropertyMethodInfo a signature where + overloadedMethod _ = cellAreaCellGetProperty + -- method CellArea::cell_set_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -905,28 +1062,31 @@ cellAreaCellSetProperty :: (MonadIO m, CellAreaK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - T.Text -> -- property_name - GValue -> -- value - m () -cellAreaCellSetProperty _obj renderer property_name value = liftIO $ do + a -- _obj + -> b -- renderer + -> T.Text -- propertyName + -> GValue -- value + -> m () -- result +cellAreaCellSetProperty _obj renderer propertyName value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer - property_name' <- textToCString property_name + propertyName' <- textToCString propertyName let value' = unsafeManagedPtrGetPtr value - gtk_cell_area_cell_set_property _obj' renderer' property_name' value' + gtk_cell_area_cell_set_property _obj' renderer' propertyName' value' touchManagedPtr _obj touchManagedPtr renderer touchManagedPtr value - freeMem property_name' + freeMem propertyName' return () +data CellAreaCellSetPropertyMethodInfo +instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaCellSetPropertyMethodInfo a signature where + overloadedMethod _ = cellAreaCellSetProperty + -- method CellArea::copy_context -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellAreaContext" -- throws : False -- Skip return : False @@ -939,9 +1099,9 @@ cellAreaCopyContext :: (MonadIO m, CellAreaK a, CellAreaContextK b) => - a -> -- _obj - b -> -- context - m CellAreaContext + a -- _obj + -> b -- context + -> m CellAreaContext -- result cellAreaCopyContext _obj context = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context @@ -952,11 +1112,14 @@ touchManagedPtr context return result' +data CellAreaCopyContextMethodInfo +instance (signature ~ (b -> m CellAreaContext), MonadIO m, CellAreaK a, CellAreaContextK b) => MethodInfo CellAreaCopyContextMethodInfo a signature where + overloadedMethod _ = cellAreaCopyContext + -- method CellArea::create_context -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellAreaContext" -- throws : False -- Skip return : False @@ -968,8 +1131,8 @@ cellAreaCreateContext :: (MonadIO m, CellAreaK a) => - a -> -- _obj - m CellAreaContext + a -- _obj + -> m CellAreaContext -- result cellAreaCreateContext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_area_create_context _obj' @@ -978,11 +1141,14 @@ touchManagedPtr _obj return result' +data CellAreaCreateContextMethodInfo +instance (signature ~ (m CellAreaContext), MonadIO m, CellAreaK a) => MethodInfo CellAreaCreateContextMethodInfo a signature where + overloadedMethod _ = cellAreaCreateContext + -- method CellArea::event -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -999,33 +1165,36 @@ cellAreaEvent :: (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - Gdk.Event -> -- event - Gdk.Rectangle -> -- cell_area - [CellRendererState] -> -- flags - m Int32 -cellAreaEvent _obj context widget event cell_area flags = liftIO $ do + a -- _obj + -> b -- context + -> c -- widget + -> Gdk.Event -- event + -> Gdk.Rectangle -- cellArea + -> [CellRendererState] -- flags + -> m Int32 -- result +cellAreaEvent _obj context widget event cellArea flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context let widget' = unsafeManagedPtrCastPtr widget let event' = unsafeManagedPtrGetPtr event - let cell_area' = unsafeManagedPtrGetPtr cell_area + let cellArea' = unsafeManagedPtrGetPtr cellArea let flags' = gflagsToWord flags - result <- gtk_cell_area_event _obj' context' widget' event' cell_area' flags' + result <- gtk_cell_area_event _obj' context' widget' event' cellArea' flags' touchManagedPtr _obj touchManagedPtr context touchManagedPtr widget touchManagedPtr event - touchManagedPtr cell_area + touchManagedPtr cellArea return result +data CellAreaEventMethodInfo +instance (signature ~ (b -> c -> Gdk.Event -> Gdk.Rectangle -> [CellRendererState] -> m Int32), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaEventMethodInfo a signature where + overloadedMethod _ = cellAreaEvent + -- method CellArea::focus -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1038,9 +1207,9 @@ cellAreaFocus :: (MonadIO m, CellAreaK a) => - a -> -- _obj - DirectionType -> -- direction - m Bool + a -- _obj + -> DirectionType -- direction + -> m Bool -- result cellAreaFocus _obj direction = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let direction' = (fromIntegral . fromEnum) direction @@ -1049,11 +1218,14 @@ touchManagedPtr _obj return result' +data CellAreaFocusMethodInfo +instance (signature ~ (DirectionType -> m Bool), MonadIO m, CellAreaK a) => MethodInfo CellAreaFocusMethodInfo a signature where + overloadedMethod _ = cellAreaFocus + -- method CellArea::foreach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "CellCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "CellCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "CellCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1067,23 +1239,26 @@ cellAreaForeach :: (MonadIO m, CellAreaK a) => - a -> -- _obj - CellCallback -> -- callback - m () + a -- _obj + -> CellCallback -- callback + -> m () -- result cellAreaForeach _obj callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj callback' <- mkCellCallback (cellCallbackWrapper Nothing callback) - let callback_data = nullPtr - gtk_cell_area_foreach _obj' callback' callback_data + let callbackData = nullPtr + gtk_cell_area_foreach _obj' callback' callbackData safeFreeFunPtr $ castFunPtrToPtr callback' touchManagedPtr _obj return () +data CellAreaForeachMethodInfo +instance (signature ~ (CellCallback -> m ()), MonadIO m, CellAreaK a) => MethodInfo CellAreaForeachMethodInfo a signature where + overloadedMethod _ = cellAreaForeach + -- method CellArea::foreach_alloc -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "CellAllocCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "CellAllocCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "CellAllocCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1101,35 +1276,38 @@ cellAreaForeachAlloc :: (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - Gdk.Rectangle -> -- cell_area - Gdk.Rectangle -> -- background_area - CellAllocCallback -> -- callback - m () -cellAreaForeachAlloc _obj context widget cell_area background_area callback = liftIO $ do + a -- _obj + -> b -- context + -> c -- widget + -> Gdk.Rectangle -- cellArea + -> Gdk.Rectangle -- backgroundArea + -> CellAllocCallback -- callback + -> m () -- result +cellAreaForeachAlloc _obj context widget cellArea backgroundArea callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context let widget' = unsafeManagedPtrCastPtr widget - let cell_area' = unsafeManagedPtrGetPtr cell_area - let background_area' = unsafeManagedPtrGetPtr background_area + let cellArea' = unsafeManagedPtrGetPtr cellArea + let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea callback' <- mkCellAllocCallback (cellAllocCallbackWrapper Nothing callback) - let callback_data = nullPtr - gtk_cell_area_foreach_alloc _obj' context' widget' cell_area' background_area' callback' callback_data + let callbackData = nullPtr + gtk_cell_area_foreach_alloc _obj' context' widget' cellArea' backgroundArea' callback' callbackData safeFreeFunPtr $ castFunPtrToPtr callback' touchManagedPtr _obj touchManagedPtr context touchManagedPtr widget - touchManagedPtr cell_area - touchManagedPtr background_area + touchManagedPtr cellArea + touchManagedPtr backgroundArea return () +data CellAreaForeachAllocMethodInfo +instance (signature ~ (b -> c -> Gdk.Rectangle -> Gdk.Rectangle -> CellAllocCallback -> m ()), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaForeachAllocMethodInfo a signature where + overloadedMethod _ = cellAreaForeachAlloc + -- method CellArea::get_cell_allocation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1146,33 +1324,36 @@ cellAreaGetCellAllocation :: (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c, CellRendererK d) => - a -> -- _obj - b -> -- context - c -> -- widget - d -> -- renderer - Gdk.Rectangle -> -- cell_area - m (Gdk.Rectangle) -cellAreaGetCellAllocation _obj context widget renderer cell_area = liftIO $ do + a -- _obj + -> b -- context + -> c -- widget + -> d -- renderer + -> Gdk.Rectangle -- cellArea + -> m (Gdk.Rectangle) -- result +cellAreaGetCellAllocation _obj context widget renderer cellArea = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context let widget' = unsafeManagedPtrCastPtr widget let renderer' = unsafeManagedPtrCastPtr renderer - let cell_area' = unsafeManagedPtrGetPtr cell_area + let cellArea' = unsafeManagedPtrGetPtr cellArea allocation <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_cell_area_get_cell_allocation _obj' context' widget' renderer' cell_area' allocation + gtk_cell_area_get_cell_allocation _obj' context' widget' renderer' cellArea' allocation allocation' <- (wrapBoxed Gdk.Rectangle) allocation touchManagedPtr _obj touchManagedPtr context touchManagedPtr widget touchManagedPtr renderer - touchManagedPtr cell_area + touchManagedPtr cellArea return allocation' +data CellAreaGetCellAllocationMethodInfo +instance (signature ~ (b -> c -> d -> Gdk.Rectangle -> m (Gdk.Rectangle)), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c, CellRendererK d) => MethodInfo CellAreaGetCellAllocationMethodInfo a signature where + overloadedMethod _ = cellAreaGetCellAllocation + -- method CellArea::get_cell_at_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alloc_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alloc_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellRenderer" -- throws : False -- Skip return : False @@ -1190,34 +1371,37 @@ cellAreaGetCellAtPosition :: (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - Gdk.Rectangle -> -- cell_area - Int32 -> -- x - Int32 -> -- y - m (CellRenderer,Gdk.Rectangle) -cellAreaGetCellAtPosition _obj context widget cell_area x y = liftIO $ do + a -- _obj + -> b -- context + -> c -- widget + -> Gdk.Rectangle -- cellArea + -> Int32 -- x + -> Int32 -- y + -> m (CellRenderer,Gdk.Rectangle) -- result +cellAreaGetCellAtPosition _obj context widget cellArea x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context let widget' = unsafeManagedPtrCastPtr widget - let cell_area' = unsafeManagedPtrGetPtr cell_area - alloc_area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - result <- gtk_cell_area_get_cell_at_position _obj' context' widget' cell_area' x y alloc_area + let cellArea' = unsafeManagedPtrGetPtr cellArea + allocArea <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + result <- gtk_cell_area_get_cell_at_position _obj' context' widget' cellArea' x y allocArea checkUnexpectedReturnNULL "gtk_cell_area_get_cell_at_position" result result' <- (newObject CellRenderer) result - alloc_area' <- (wrapBoxed Gdk.Rectangle) alloc_area + allocArea' <- (wrapBoxed Gdk.Rectangle) allocArea touchManagedPtr _obj touchManagedPtr context touchManagedPtr widget - touchManagedPtr cell_area - return (result', alloc_area') + touchManagedPtr cellArea + return (result', allocArea') +data CellAreaGetCellAtPositionMethodInfo +instance (signature ~ (b -> c -> Gdk.Rectangle -> Int32 -> Int32 -> m (CellRenderer,Gdk.Rectangle)), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaGetCellAtPositionMethodInfo a signature where + overloadedMethod _ = cellAreaGetCellAtPosition + -- method CellArea::get_current_path_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1229,8 +1413,8 @@ cellAreaGetCurrentPathString :: (MonadIO m, CellAreaK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result cellAreaGetCurrentPathString _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_area_get_current_path_string _obj' @@ -1239,11 +1423,14 @@ touchManagedPtr _obj return result' +data CellAreaGetCurrentPathStringMethodInfo +instance (signature ~ (m T.Text), MonadIO m, CellAreaK a) => MethodInfo CellAreaGetCurrentPathStringMethodInfo a signature where + overloadedMethod _ = cellAreaGetCurrentPathString + -- method CellArea::get_edit_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellEditable" -- throws : False -- Skip return : False @@ -1255,8 +1442,8 @@ cellAreaGetEditWidget :: (MonadIO m, CellAreaK a) => - a -> -- _obj - m CellEditable + a -- _obj + -> m CellEditable -- result cellAreaGetEditWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_area_get_edit_widget _obj' @@ -1265,11 +1452,14 @@ touchManagedPtr _obj return result' +data CellAreaGetEditWidgetMethodInfo +instance (signature ~ (m CellEditable), MonadIO m, CellAreaK a) => MethodInfo CellAreaGetEditWidgetMethodInfo a signature where + overloadedMethod _ = cellAreaGetEditWidget + -- method CellArea::get_edited_cell -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellRenderer" -- throws : False -- Skip return : False @@ -1281,8 +1471,8 @@ cellAreaGetEditedCell :: (MonadIO m, CellAreaK a) => - a -> -- _obj - m CellRenderer + a -- _obj + -> m CellRenderer -- result cellAreaGetEditedCell _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_area_get_edited_cell _obj' @@ -1291,11 +1481,14 @@ touchManagedPtr _obj return result' +data CellAreaGetEditedCellMethodInfo +instance (signature ~ (m CellRenderer), MonadIO m, CellAreaK a) => MethodInfo CellAreaGetEditedCellMethodInfo a signature where + overloadedMethod _ = cellAreaGetEditedCell + -- method CellArea::get_focus_cell -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellRenderer" -- throws : False -- Skip return : False @@ -1307,8 +1500,8 @@ cellAreaGetFocusCell :: (MonadIO m, CellAreaK a) => - a -> -- _obj - m CellRenderer + a -- _obj + -> m CellRenderer -- result cellAreaGetFocusCell _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_area_get_focus_cell _obj' @@ -1317,11 +1510,14 @@ touchManagedPtr _obj return result' +data CellAreaGetFocusCellMethodInfo +instance (signature ~ (m CellRenderer), MonadIO m, CellAreaK a) => MethodInfo CellAreaGetFocusCellMethodInfo a signature where + overloadedMethod _ = cellAreaGetFocusCell + -- method CellArea::get_focus_from_sibling -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellRenderer" -- throws : False -- Skip return : False @@ -1334,9 +1530,9 @@ cellAreaGetFocusFromSibling :: (MonadIO m, CellAreaK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - m CellRenderer + a -- _obj + -> b -- renderer + -> m CellRenderer -- result cellAreaGetFocusFromSibling _obj renderer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -1347,11 +1543,14 @@ touchManagedPtr renderer return result' +data CellAreaGetFocusFromSiblingMethodInfo +instance (signature ~ (b -> m CellRenderer), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaGetFocusFromSiblingMethodInfo a signature where + overloadedMethod _ = cellAreaGetFocusFromSibling + -- method CellArea::get_focus_siblings -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "CellRenderer") -- throws : False -- Skip return : False @@ -1364,9 +1563,9 @@ cellAreaGetFocusSiblings :: (MonadIO m, CellAreaK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - m [CellRenderer] + a -- _obj + -> b -- renderer + -> m [CellRenderer] -- result cellAreaGetFocusSiblings _obj renderer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -1378,11 +1577,14 @@ touchManagedPtr renderer return result'' +data CellAreaGetFocusSiblingsMethodInfo +instance (signature ~ (b -> m [CellRenderer]), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaGetFocusSiblingsMethodInfo a signature where + overloadedMethod _ = cellAreaGetFocusSiblings + -- method CellArea::get_preferred_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1398,31 +1600,34 @@ cellAreaGetPreferredHeight :: (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - m (Int32,Int32) + a -- _obj + -> b -- context + -> c -- widget + -> m (Int32,Int32) -- result cellAreaGetPreferredHeight _obj context widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context let widget' = unsafeManagedPtrCastPtr widget - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_cell_area_get_preferred_height _obj' context' widget' minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height + minimumHeight <- allocMem :: IO (Ptr Int32) + naturalHeight <- allocMem :: IO (Ptr Int32) + gtk_cell_area_get_preferred_height _obj' context' widget' minimumHeight naturalHeight + minimumHeight' <- peek minimumHeight + naturalHeight' <- peek naturalHeight touchManagedPtr _obj touchManagedPtr context touchManagedPtr widget - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') + freeMem minimumHeight + freeMem naturalHeight + return (minimumHeight', naturalHeight') +data CellAreaGetPreferredHeightMethodInfo +instance (signature ~ (b -> c -> m (Int32,Int32)), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaGetPreferredHeightMethodInfo a signature where + overloadedMethod _ = cellAreaGetPreferredHeight + -- method CellArea::get_preferred_height_for_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1439,32 +1644,35 @@ cellAreaGetPreferredHeightForWidth :: (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - Int32 -> -- width - m (Int32,Int32) + a -- _obj + -> b -- context + -> c -- widget + -> Int32 -- width + -> m (Int32,Int32) -- result cellAreaGetPreferredHeightForWidth _obj context widget width = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context let widget' = unsafeManagedPtrCastPtr widget - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_cell_area_get_preferred_height_for_width _obj' context' widget' width minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height + minimumHeight <- allocMem :: IO (Ptr Int32) + naturalHeight <- allocMem :: IO (Ptr Int32) + gtk_cell_area_get_preferred_height_for_width _obj' context' widget' width minimumHeight naturalHeight + minimumHeight' <- peek minimumHeight + naturalHeight' <- peek naturalHeight touchManagedPtr _obj touchManagedPtr context touchManagedPtr widget - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') + freeMem minimumHeight + freeMem naturalHeight + return (minimumHeight', naturalHeight') +data CellAreaGetPreferredHeightForWidthMethodInfo +instance (signature ~ (b -> c -> Int32 -> m (Int32,Int32)), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaGetPreferredHeightForWidthMethodInfo a signature where + overloadedMethod _ = cellAreaGetPreferredHeightForWidth + -- method CellArea::get_preferred_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1480,31 +1688,34 @@ cellAreaGetPreferredWidth :: (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - m (Int32,Int32) + a -- _obj + -> b -- context + -> c -- widget + -> m (Int32,Int32) -- result cellAreaGetPreferredWidth _obj context widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context let widget' = unsafeManagedPtrCastPtr widget - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_cell_area_get_preferred_width _obj' context' widget' minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width + minimumWidth <- allocMem :: IO (Ptr Int32) + naturalWidth <- allocMem :: IO (Ptr Int32) + gtk_cell_area_get_preferred_width _obj' context' widget' minimumWidth naturalWidth + minimumWidth' <- peek minimumWidth + naturalWidth' <- peek naturalWidth touchManagedPtr _obj touchManagedPtr context touchManagedPtr widget - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') + freeMem minimumWidth + freeMem naturalWidth + return (minimumWidth', naturalWidth') +data CellAreaGetPreferredWidthMethodInfo +instance (signature ~ (b -> c -> m (Int32,Int32)), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaGetPreferredWidthMethodInfo a signature where + overloadedMethod _ = cellAreaGetPreferredWidth + -- method CellArea::get_preferred_width_for_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1521,32 +1732,35 @@ cellAreaGetPreferredWidthForHeight :: (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - Int32 -> -- height - m (Int32,Int32) + a -- _obj + -> b -- context + -> c -- widget + -> Int32 -- height + -> m (Int32,Int32) -- result cellAreaGetPreferredWidthForHeight _obj context widget height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context let widget' = unsafeManagedPtrCastPtr widget - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_cell_area_get_preferred_width_for_height _obj' context' widget' height minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width + minimumWidth <- allocMem :: IO (Ptr Int32) + naturalWidth <- allocMem :: IO (Ptr Int32) + gtk_cell_area_get_preferred_width_for_height _obj' context' widget' height minimumWidth naturalWidth + minimumWidth' <- peek minimumWidth + naturalWidth' <- peek naturalWidth touchManagedPtr _obj touchManagedPtr context touchManagedPtr widget - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') + freeMem minimumWidth + freeMem naturalWidth + return (minimumWidth', naturalWidth') +data CellAreaGetPreferredWidthForHeightMethodInfo +instance (signature ~ (b -> c -> Int32 -> m (Int32,Int32)), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaGetPreferredWidthForHeightMethodInfo a signature where + overloadedMethod _ = cellAreaGetPreferredWidthForHeight + -- method CellArea::get_request_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SizeRequestMode" -- throws : False -- Skip return : False @@ -1558,8 +1772,8 @@ cellAreaGetRequestMode :: (MonadIO m, CellAreaK a) => - a -> -- _obj - m SizeRequestMode + a -- _obj + -> m SizeRequestMode -- result cellAreaGetRequestMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_area_get_request_mode _obj' @@ -1567,11 +1781,14 @@ touchManagedPtr _obj return result' +data CellAreaGetRequestModeMethodInfo +instance (signature ~ (m SizeRequestMode), MonadIO m, CellAreaK a) => MethodInfo CellAreaGetRequestModeMethodInfo a signature where + overloadedMethod _ = cellAreaGetRequestMode + -- method CellArea::has_renderer -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1584,9 +1801,9 @@ cellAreaHasRenderer :: (MonadIO m, CellAreaK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - m Bool + a -- _obj + -> b -- renderer + -> m Bool -- result cellAreaHasRenderer _obj renderer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -1596,11 +1813,14 @@ touchManagedPtr renderer return result' +data CellAreaHasRendererMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaHasRendererMethodInfo a signature where + overloadedMethod _ = cellAreaHasRenderer + -- method CellArea::inner_cell_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inner_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inner_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1615,27 +1835,30 @@ cellAreaInnerCellArea :: (MonadIO m, CellAreaK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Gdk.Rectangle -> -- cell_area - m (Gdk.Rectangle) -cellAreaInnerCellArea _obj widget cell_area = liftIO $ do + a -- _obj + -> b -- widget + -> Gdk.Rectangle -- cellArea + -> m (Gdk.Rectangle) -- result +cellAreaInnerCellArea _obj widget cellArea = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget - let cell_area' = unsafeManagedPtrGetPtr cell_area - inner_area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_cell_area_inner_cell_area _obj' widget' cell_area' inner_area - inner_area' <- (wrapBoxed Gdk.Rectangle) inner_area + let cellArea' = unsafeManagedPtrGetPtr cellArea + innerArea <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_cell_area_inner_cell_area _obj' widget' cellArea' innerArea + innerArea' <- (wrapBoxed Gdk.Rectangle) innerArea touchManagedPtr _obj touchManagedPtr widget - touchManagedPtr cell_area - return inner_area' + touchManagedPtr cellArea + return innerArea' +data CellAreaInnerCellAreaMethodInfo +instance (signature ~ (b -> Gdk.Rectangle -> m (Gdk.Rectangle)), MonadIO m, CellAreaK a, WidgetK b) => MethodInfo CellAreaInnerCellAreaMethodInfo a signature where + overloadedMethod _ = cellAreaInnerCellArea + -- method CellArea::is_activatable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1647,8 +1870,8 @@ cellAreaIsActivatable :: (MonadIO m, CellAreaK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result cellAreaIsActivatable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_area_is_activatable _obj' @@ -1656,11 +1879,14 @@ touchManagedPtr _obj return result' +data CellAreaIsActivatableMethodInfo +instance (signature ~ (m Bool), MonadIO m, CellAreaK a) => MethodInfo CellAreaIsActivatableMethodInfo a signature where + overloadedMethod _ = cellAreaIsActivatable + -- method CellArea::is_focus_sibling -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1674,10 +1900,10 @@ cellAreaIsFocusSibling :: (MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) => - a -> -- _obj - b -> -- renderer - c -> -- sibling - m Bool + a -- _obj + -> b -- renderer + -> c -- sibling + -> m Bool -- result cellAreaIsFocusSibling _obj renderer sibling = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -1689,11 +1915,14 @@ touchManagedPtr sibling return result' +data CellAreaIsFocusSiblingMethodInfo +instance (signature ~ (b -> c -> m Bool), MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) => MethodInfo CellAreaIsFocusSiblingMethodInfo a signature where + overloadedMethod _ = cellAreaIsFocusSibling + -- method CellArea::remove -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1706,9 +1935,9 @@ cellAreaRemove :: (MonadIO m, CellAreaK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - m () + a -- _obj + -> b -- renderer + -> m () -- result cellAreaRemove _obj renderer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -1717,11 +1946,14 @@ touchManagedPtr renderer return () +data CellAreaRemoveMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaRemoveMethodInfo a signature where + overloadedMethod _ = cellAreaRemove + -- method CellArea::remove_focus_sibling -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1735,10 +1967,10 @@ cellAreaRemoveFocusSibling :: (MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) => - a -> -- _obj - b -> -- renderer - c -> -- sibling - m () + a -- _obj + -> b -- renderer + -> c -- sibling + -> m () -- result cellAreaRemoveFocusSibling _obj renderer sibling = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -1749,11 +1981,14 @@ touchManagedPtr sibling return () +data CellAreaRemoveFocusSiblingMethodInfo +instance (signature ~ (b -> c -> m ()), MonadIO m, CellAreaK a, CellRendererK b, CellRendererK c) => MethodInfo CellAreaRemoveFocusSiblingMethodInfo a signature where + overloadedMethod _ = cellAreaRemoveFocusSibling + -- method CellArea::render -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paint_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paint_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paint_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1772,38 +2007,41 @@ cellAreaRender :: (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - Cairo.Context -> -- cr - Gdk.Rectangle -> -- background_area - Gdk.Rectangle -> -- cell_area - [CellRendererState] -> -- flags - Bool -> -- paint_focus - m () -cellAreaRender _obj context widget cr background_area cell_area flags paint_focus = liftIO $ do + a -- _obj + -> b -- context + -> c -- widget + -> Cairo.Context -- cr + -> Gdk.Rectangle -- backgroundArea + -> Gdk.Rectangle -- cellArea + -> [CellRendererState] -- flags + -> Bool -- paintFocus + -> m () -- result +cellAreaRender _obj context widget cr backgroundArea cellArea flags paintFocus = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context let widget' = unsafeManagedPtrCastPtr widget let cr' = unsafeManagedPtrGetPtr cr - let background_area' = unsafeManagedPtrGetPtr background_area - let cell_area' = unsafeManagedPtrGetPtr cell_area + let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea + let cellArea' = unsafeManagedPtrGetPtr cellArea let flags' = gflagsToWord flags - let paint_focus' = (fromIntegral . fromEnum) paint_focus - gtk_cell_area_render _obj' context' widget' cr' background_area' cell_area' flags' paint_focus' + let paintFocus' = (fromIntegral . fromEnum) paintFocus + gtk_cell_area_render _obj' context' widget' cr' backgroundArea' cellArea' flags' paintFocus' touchManagedPtr _obj touchManagedPtr context touchManagedPtr widget touchManagedPtr cr - touchManagedPtr background_area - touchManagedPtr cell_area + touchManagedPtr backgroundArea + touchManagedPtr cellArea return () +data CellAreaRenderMethodInfo +instance (signature ~ (b -> c -> Cairo.Context -> Gdk.Rectangle -> Gdk.Rectangle -> [CellRendererState] -> Bool -> m ()), MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => MethodInfo CellAreaRenderMethodInfo a signature where + overloadedMethod _ = cellAreaRender + -- method CellArea::request_renderer -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1821,34 +2059,37 @@ cellAreaRequestRenderer :: (MonadIO m, CellAreaK a, CellRendererK b, WidgetK c) => - a -> -- _obj - b -> -- renderer - Orientation -> -- orientation - c -> -- widget - Int32 -> -- for_size - m (Int32,Int32) -cellAreaRequestRenderer _obj renderer orientation widget for_size = liftIO $ do + a -- _obj + -> b -- renderer + -> Orientation -- orientation + -> c -- widget + -> Int32 -- forSize + -> m (Int32,Int32) -- result +cellAreaRequestRenderer _obj renderer orientation widget forSize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer let orientation' = (fromIntegral . fromEnum) orientation let widget' = unsafeManagedPtrCastPtr widget - minimum_size <- allocMem :: IO (Ptr Int32) - natural_size <- allocMem :: IO (Ptr Int32) - gtk_cell_area_request_renderer _obj' renderer' orientation' widget' for_size minimum_size natural_size - minimum_size' <- peek minimum_size - natural_size' <- peek natural_size + minimumSize <- allocMem :: IO (Ptr Int32) + naturalSize <- allocMem :: IO (Ptr Int32) + gtk_cell_area_request_renderer _obj' renderer' orientation' widget' forSize minimumSize naturalSize + minimumSize' <- peek minimumSize + naturalSize' <- peek naturalSize touchManagedPtr _obj touchManagedPtr renderer touchManagedPtr widget - freeMem minimum_size - freeMem natural_size - return (minimum_size', natural_size') + freeMem minimumSize + freeMem naturalSize + return (minimumSize', naturalSize') +data CellAreaRequestRendererMethodInfo +instance (signature ~ (b -> Orientation -> c -> Int32 -> m (Int32,Int32)), MonadIO m, CellAreaK a, CellRendererK b, WidgetK c) => MethodInfo CellAreaRequestRendererMethodInfo a signature where + overloadedMethod _ = cellAreaRequestRenderer + -- method CellArea::set_focus_cell -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1861,9 +2102,9 @@ cellAreaSetFocusCell :: (MonadIO m, CellAreaK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - m () + a -- _obj + -> b -- renderer + -> m () -- result cellAreaSetFocusCell _obj renderer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -1872,11 +2113,14 @@ touchManagedPtr renderer return () +data CellAreaSetFocusCellMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, CellAreaK a, CellRendererK b) => MethodInfo CellAreaSetFocusCellMethodInfo a signature where + overloadedMethod _ = cellAreaSetFocusCell + -- method CellArea::stop_editing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1889,14 +2133,18 @@ cellAreaStopEditing :: (MonadIO m, CellAreaK a) => - a -> -- _obj - Bool -> -- canceled - m () + a -- _obj + -> Bool -- canceled + -> m () -- result cellAreaStopEditing _obj canceled = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let canceled' = (fromIntegral . fromEnum) canceled gtk_cell_area_stop_editing _obj' canceled' touchManagedPtr _obj return () + +data CellAreaStopEditingMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, CellAreaK a) => MethodInfo CellAreaStopEditingMethodInfo a signature where + overloadedMethod _ = cellAreaStopEditing diff --git a/GI/Gtk/Objects/CellArea.hs-boot b/GI/Gtk/Objects/CellArea.hs-boot --- a/GI/Gtk/Objects/CellArea.hs-boot +++ b/GI/Gtk/Objects/CellArea.hs-boot @@ -18,3 +18,42 @@ data CellAreaApplyAttributesSignalInfo data CellAreaFocusChangedSignalInfo data CellAreaRemoveEditableSignalInfo +data CellAreaActivateMethodInfo +data CellAreaActivateCellMethodInfo +data CellAreaAddMethodInfo +data CellAreaAddFocusSiblingMethodInfo +data CellAreaApplyAttributesMethodInfo +data CellAreaAttributeConnectMethodInfo +data CellAreaAttributeDisconnectMethodInfo +data CellAreaAttributeGetColumnMethodInfo +data CellAreaCellGetPropertyMethodInfo +data CellAreaCellSetPropertyMethodInfo +data CellAreaCopyContextMethodInfo +data CellAreaCreateContextMethodInfo +data CellAreaEventMethodInfo +data CellAreaFocusMethodInfo +data CellAreaForeachMethodInfo +data CellAreaForeachAllocMethodInfo +data CellAreaGetCellAllocationMethodInfo +data CellAreaGetCellAtPositionMethodInfo +data CellAreaGetCurrentPathStringMethodInfo +data CellAreaGetEditWidgetMethodInfo +data CellAreaGetEditedCellMethodInfo +data CellAreaGetFocusCellMethodInfo +data CellAreaGetFocusFromSiblingMethodInfo +data CellAreaGetFocusSiblingsMethodInfo +data CellAreaGetPreferredHeightMethodInfo +data CellAreaGetPreferredHeightForWidthMethodInfo +data CellAreaGetPreferredWidthMethodInfo +data CellAreaGetPreferredWidthForHeightMethodInfo +data CellAreaGetRequestModeMethodInfo +data CellAreaHasRendererMethodInfo +data CellAreaInnerCellAreaMethodInfo +data CellAreaIsActivatableMethodInfo +data CellAreaIsFocusSiblingMethodInfo +data CellAreaRemoveMethodInfo +data CellAreaRemoveFocusSiblingMethodInfo +data CellAreaRenderMethodInfo +data CellAreaRequestRendererMethodInfo +data CellAreaSetFocusCellMethodInfo +data CellAreaStopEditingMethodInfo diff --git a/GI/Gtk/Objects/CellAreaBox.hs b/GI/Gtk/Objects/CellAreaBox.hs --- a/GI/Gtk/Objects/CellAreaBox.hs +++ b/GI/Gtk/Objects/CellAreaBox.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** cellAreaBoxGetSpacing + CellAreaBoxGetSpacingMethodInfo , cellAreaBoxGetSpacing , @@ -25,14 +27,17 @@ -- ** cellAreaBoxPackEnd + CellAreaBoxPackEndMethodInfo , cellAreaBoxPackEnd , -- ** cellAreaBoxPackStart + CellAreaBoxPackStartMethodInfo , cellAreaBoxPackStart , -- ** cellAreaBoxSetSpacing + CellAreaBoxSetSpacingMethodInfo , cellAreaBoxSetSpacing , @@ -82,6 +87,99 @@ noCellAreaBox :: Maybe CellAreaBox noCellAreaBox = Nothing +type family ResolveCellAreaBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveCellAreaBoxMethod "activate" o = CellAreaActivateMethodInfo + ResolveCellAreaBoxMethod "activateCell" o = CellAreaActivateCellMethodInfo + ResolveCellAreaBoxMethod "add" o = CellAreaAddMethodInfo + ResolveCellAreaBoxMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo + ResolveCellAreaBoxMethod "addChild" o = BuildableAddChildMethodInfo + ResolveCellAreaBoxMethod "addFocusSibling" o = CellAreaAddFocusSiblingMethodInfo + ResolveCellAreaBoxMethod "applyAttributes" o = CellAreaApplyAttributesMethodInfo + ResolveCellAreaBoxMethod "attributeConnect" o = CellAreaAttributeConnectMethodInfo + ResolveCellAreaBoxMethod "attributeDisconnect" o = CellAreaAttributeDisconnectMethodInfo + ResolveCellAreaBoxMethod "attributeGetColumn" o = CellAreaAttributeGetColumnMethodInfo + ResolveCellAreaBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellAreaBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellAreaBoxMethod "cellGetProperty" o = CellAreaCellGetPropertyMethodInfo + ResolveCellAreaBoxMethod "cellSetProperty" o = CellAreaCellSetPropertyMethodInfo + ResolveCellAreaBoxMethod "clear" o = CellLayoutClearMethodInfo + ResolveCellAreaBoxMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo + ResolveCellAreaBoxMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveCellAreaBoxMethod "copyContext" o = CellAreaCopyContextMethodInfo + ResolveCellAreaBoxMethod "createContext" o = CellAreaCreateContextMethodInfo + ResolveCellAreaBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveCellAreaBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveCellAreaBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveCellAreaBoxMethod "event" o = CellAreaEventMethodInfo + ResolveCellAreaBoxMethod "focus" o = CellAreaFocusMethodInfo + ResolveCellAreaBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellAreaBoxMethod "foreach" o = CellAreaForeachMethodInfo + ResolveCellAreaBoxMethod "foreachAlloc" o = CellAreaForeachAllocMethodInfo + ResolveCellAreaBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellAreaBoxMethod "hasRenderer" o = CellAreaHasRendererMethodInfo + ResolveCellAreaBoxMethod "innerCellArea" o = CellAreaInnerCellAreaMethodInfo + ResolveCellAreaBoxMethod "isActivatable" o = CellAreaIsActivatableMethodInfo + ResolveCellAreaBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellAreaBoxMethod "isFocusSibling" o = CellAreaIsFocusSiblingMethodInfo + ResolveCellAreaBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellAreaBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellAreaBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveCellAreaBoxMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellAreaBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellAreaBoxMethod "remove" o = CellAreaRemoveMethodInfo + ResolveCellAreaBoxMethod "removeFocusSibling" o = CellAreaRemoveFocusSiblingMethodInfo + ResolveCellAreaBoxMethod "render" o = CellAreaRenderMethodInfo + ResolveCellAreaBoxMethod "reorder" o = CellLayoutReorderMethodInfo + ResolveCellAreaBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellAreaBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellAreaBoxMethod "requestRenderer" o = CellAreaRequestRendererMethodInfo + ResolveCellAreaBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellAreaBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellAreaBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellAreaBoxMethod "stopEditing" o = CellAreaStopEditingMethodInfo + ResolveCellAreaBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellAreaBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellAreaBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellAreaBoxMethod "getArea" o = CellLayoutGetAreaMethodInfo + ResolveCellAreaBoxMethod "getCellAllocation" o = CellAreaGetCellAllocationMethodInfo + ResolveCellAreaBoxMethod "getCellAtPosition" o = CellAreaGetCellAtPositionMethodInfo + ResolveCellAreaBoxMethod "getCells" o = CellLayoutGetCellsMethodInfo + ResolveCellAreaBoxMethod "getCurrentPathString" o = CellAreaGetCurrentPathStringMethodInfo + ResolveCellAreaBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellAreaBoxMethod "getEditWidget" o = CellAreaGetEditWidgetMethodInfo + ResolveCellAreaBoxMethod "getEditedCell" o = CellAreaGetEditedCellMethodInfo + ResolveCellAreaBoxMethod "getFocusCell" o = CellAreaGetFocusCellMethodInfo + ResolveCellAreaBoxMethod "getFocusFromSibling" o = CellAreaGetFocusFromSiblingMethodInfo + ResolveCellAreaBoxMethod "getFocusSiblings" o = CellAreaGetFocusSiblingsMethodInfo + ResolveCellAreaBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveCellAreaBoxMethod "getName" o = BuildableGetNameMethodInfo + ResolveCellAreaBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveCellAreaBoxMethod "getPreferredHeight" o = CellAreaGetPreferredHeightMethodInfo + ResolveCellAreaBoxMethod "getPreferredHeightForWidth" o = CellAreaGetPreferredHeightForWidthMethodInfo + ResolveCellAreaBoxMethod "getPreferredWidth" o = CellAreaGetPreferredWidthMethodInfo + ResolveCellAreaBoxMethod "getPreferredWidthForHeight" o = CellAreaGetPreferredWidthForHeightMethodInfo + ResolveCellAreaBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellAreaBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellAreaBoxMethod "getRequestMode" o = CellAreaGetRequestModeMethodInfo + ResolveCellAreaBoxMethod "getSpacing" o = CellAreaBoxGetSpacingMethodInfo + ResolveCellAreaBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveCellAreaBoxMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo + ResolveCellAreaBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellAreaBoxMethod "setFocusCell" o = CellAreaSetFocusCellMethodInfo + ResolveCellAreaBoxMethod "setName" o = BuildableSetNameMethodInfo + ResolveCellAreaBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveCellAreaBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellAreaBoxMethod "setSpacing" o = CellAreaBoxSetSpacingMethodInfo + ResolveCellAreaBoxMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellAreaBoxMethod t CellAreaBox, MethodInfo info CellAreaBox p) => IsLabelProxy t (CellAreaBox -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellAreaBoxMethod t CellAreaBox, MethodInfo info CellAreaBox p) => IsLabel t (CellAreaBox -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "spacing" -- Type: TBasicType TInt32 -- Flags: [PropertyReadable,PropertyWritable] @@ -101,22 +199,21 @@ type AttrSetTypeConstraint CellAreaBoxSpacingPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellAreaBoxSpacingPropertyInfo = CellAreaBoxK type AttrGetType CellAreaBoxSpacingPropertyInfo = Int32 - type AttrLabel CellAreaBoxSpacingPropertyInfo = "CellAreaBox::spacing" + type AttrLabel CellAreaBoxSpacingPropertyInfo = "spacing" attrGet _ = getCellAreaBoxSpacing attrSet _ = setCellAreaBoxSpacing attrConstruct _ = constructCellAreaBoxSpacing type instance AttributeList CellAreaBox = CellAreaBoxAttributeList -type CellAreaBoxAttributeList = ('[ '("edit-widget", CellAreaEditWidgetPropertyInfo), '("edited-cell", CellAreaEditedCellPropertyInfo), '("focus-cell", CellAreaFocusCellPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("spacing", CellAreaBoxSpacingPropertyInfo)] :: [(Symbol, *)]) +type CellAreaBoxAttributeList = ('[ '("editWidget", CellAreaEditWidgetPropertyInfo), '("editedCell", CellAreaEditedCellPropertyInfo), '("focusCell", CellAreaFocusCellPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("spacing", CellAreaBoxSpacingPropertyInfo)] :: [(Symbol, *)]) type instance SignalList CellAreaBox = CellAreaBoxSignalList -type CellAreaBoxSignalList = ('[ '("add-editable", CellAreaAddEditableSignalInfo), '("apply-attributes", CellAreaApplyAttributesSignalInfo), '("focus-changed", CellAreaFocusChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("remove-editable", CellAreaRemoveEditableSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellAreaBoxSignalList = ('[ '("addEditable", CellAreaAddEditableSignalInfo), '("applyAttributes", CellAreaApplyAttributesSignalInfo), '("focusChanged", CellAreaFocusChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("removeEditable", CellAreaRemoveEditableSignalInfo)] :: [(Symbol, *)]) -- method CellAreaBox::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CellAreaBox" -- throws : False -- Skip return : False @@ -127,7 +224,7 @@ cellAreaBoxNew :: (MonadIO m) => - m CellAreaBox + m CellAreaBox -- result cellAreaBoxNew = liftIO $ do result <- gtk_cell_area_box_new checkUnexpectedReturnNULL "gtk_cell_area_box_new" result @@ -136,9 +233,8 @@ -- method CellAreaBox::get_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -150,19 +246,22 @@ cellAreaBoxGetSpacing :: (MonadIO m, CellAreaBoxK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result cellAreaBoxGetSpacing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_area_box_get_spacing _obj' touchManagedPtr _obj return result +data CellAreaBoxGetSpacingMethodInfo +instance (signature ~ (m Int32), MonadIO m, CellAreaBoxK a) => MethodInfo CellAreaBoxGetSpacingMethodInfo a signature where + overloadedMethod _ = cellAreaBoxGetSpacing + -- method CellAreaBox::pack_end -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -178,12 +277,12 @@ cellAreaBoxPackEnd :: (MonadIO m, CellAreaBoxK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - Bool -> -- expand - Bool -> -- align - Bool -> -- fixed - m () + a -- _obj + -> b -- renderer + -> Bool -- expand + -> Bool -- align + -> Bool -- fixed + -> m () -- result cellAreaBoxPackEnd _obj renderer expand align fixed = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -195,11 +294,14 @@ touchManagedPtr renderer return () +data CellAreaBoxPackEndMethodInfo +instance (signature ~ (b -> Bool -> Bool -> Bool -> m ()), MonadIO m, CellAreaBoxK a, CellRendererK b) => MethodInfo CellAreaBoxPackEndMethodInfo a signature where + overloadedMethod _ = cellAreaBoxPackEnd + -- method CellAreaBox::pack_start -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -215,12 +317,12 @@ cellAreaBoxPackStart :: (MonadIO m, CellAreaBoxK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - Bool -> -- expand - Bool -> -- align - Bool -> -- fixed - m () + a -- _obj + -> b -- renderer + -> Bool -- expand + -> Bool -- align + -> Bool -- fixed + -> m () -- result cellAreaBoxPackStart _obj renderer expand align fixed = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer @@ -232,11 +334,14 @@ touchManagedPtr renderer return () +data CellAreaBoxPackStartMethodInfo +instance (signature ~ (b -> Bool -> Bool -> Bool -> m ()), MonadIO m, CellAreaBoxK a, CellRendererK b) => MethodInfo CellAreaBoxPackStartMethodInfo a signature where + overloadedMethod _ = cellAreaBoxPackStart + -- method CellAreaBox::set_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -249,13 +354,17 @@ cellAreaBoxSetSpacing :: (MonadIO m, CellAreaBoxK a) => - a -> -- _obj - Int32 -> -- spacing - m () + a -- _obj + -> Int32 -- spacing + -> m () -- result cellAreaBoxSetSpacing _obj spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_cell_area_box_set_spacing _obj' spacing touchManagedPtr _obj return () + +data CellAreaBoxSetSpacingMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, CellAreaBoxK a) => MethodInfo CellAreaBoxSetSpacingMethodInfo a signature where + overloadedMethod _ = cellAreaBoxSetSpacing diff --git a/GI/Gtk/Objects/CellAreaBox.hs-boot b/GI/Gtk/Objects/CellAreaBox.hs-boot --- a/GI/Gtk/Objects/CellAreaBox.hs-boot +++ b/GI/Gtk/Objects/CellAreaBox.hs-boot @@ -12,3 +12,7 @@ class GObject o => CellAreaBoxK o instance (GObject o, IsDescendantOf CellAreaBox o) => CellAreaBoxK o data CellAreaBoxSpacingPropertyInfo +data CellAreaBoxGetSpacingMethodInfo +data CellAreaBoxPackEndMethodInfo +data CellAreaBoxPackStartMethodInfo +data CellAreaBoxSetSpacingMethodInfo diff --git a/GI/Gtk/Objects/CellAreaContext.hs b/GI/Gtk/Objects/CellAreaContext.hs --- a/GI/Gtk/Objects/CellAreaContext.hs +++ b/GI/Gtk/Objects/CellAreaContext.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,42 +18,52 @@ -- * Methods -- ** cellAreaContextAllocate + CellAreaContextAllocateMethodInfo , cellAreaContextAllocate , -- ** cellAreaContextGetAllocation + CellAreaContextGetAllocationMethodInfo , cellAreaContextGetAllocation , -- ** cellAreaContextGetArea + CellAreaContextGetAreaMethodInfo , cellAreaContextGetArea , -- ** cellAreaContextGetPreferredHeight + CellAreaContextGetPreferredHeightMethodInfo, cellAreaContextGetPreferredHeight , -- ** cellAreaContextGetPreferredHeightForWidth + CellAreaContextGetPreferredHeightForWidthMethodInfo, cellAreaContextGetPreferredHeightForWidth, -- ** cellAreaContextGetPreferredWidth + CellAreaContextGetPreferredWidthMethodInfo, cellAreaContextGetPreferredWidth , -- ** cellAreaContextGetPreferredWidthForHeight + CellAreaContextGetPreferredWidthForHeightMethodInfo, cellAreaContextGetPreferredWidthForHeight, -- ** cellAreaContextPushPreferredHeight + CellAreaContextPushPreferredHeightMethodInfo, cellAreaContextPushPreferredHeight , -- ** cellAreaContextPushPreferredWidth + CellAreaContextPushPreferredWidthMethodInfo, cellAreaContextPushPreferredWidth , -- ** cellAreaContextReset + CellAreaContextResetMethodInfo , cellAreaContextReset , @@ -121,6 +132,49 @@ noCellAreaContext :: Maybe CellAreaContext noCellAreaContext = Nothing +type family ResolveCellAreaContextMethod (t :: Symbol) (o :: *) :: * where + ResolveCellAreaContextMethod "allocate" o = CellAreaContextAllocateMethodInfo + ResolveCellAreaContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellAreaContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellAreaContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellAreaContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellAreaContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellAreaContextMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellAreaContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellAreaContextMethod "pushPreferredHeight" o = CellAreaContextPushPreferredHeightMethodInfo + ResolveCellAreaContextMethod "pushPreferredWidth" o = CellAreaContextPushPreferredWidthMethodInfo + ResolveCellAreaContextMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellAreaContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellAreaContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellAreaContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellAreaContextMethod "reset" o = CellAreaContextResetMethodInfo + ResolveCellAreaContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellAreaContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellAreaContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellAreaContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellAreaContextMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellAreaContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellAreaContextMethod "getAllocation" o = CellAreaContextGetAllocationMethodInfo + ResolveCellAreaContextMethod "getArea" o = CellAreaContextGetAreaMethodInfo + ResolveCellAreaContextMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellAreaContextMethod "getPreferredHeight" o = CellAreaContextGetPreferredHeightMethodInfo + ResolveCellAreaContextMethod "getPreferredHeightForWidth" o = CellAreaContextGetPreferredHeightForWidthMethodInfo + ResolveCellAreaContextMethod "getPreferredWidth" o = CellAreaContextGetPreferredWidthMethodInfo + ResolveCellAreaContextMethod "getPreferredWidthForHeight" o = CellAreaContextGetPreferredWidthForHeightMethodInfo + ResolveCellAreaContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellAreaContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellAreaContextMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellAreaContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellAreaContextMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellAreaContextMethod t CellAreaContext, MethodInfo info CellAreaContext p) => IsLabelProxy t (CellAreaContext -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellAreaContextMethod t CellAreaContext, MethodInfo info CellAreaContext p) => IsLabel t (CellAreaContext -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] @@ -137,7 +191,7 @@ type AttrSetTypeConstraint CellAreaContextAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint CellAreaContextAreaPropertyInfo = CellAreaContextK type AttrGetType CellAreaContextAreaPropertyInfo = CellArea - type AttrLabel CellAreaContextAreaPropertyInfo = "CellAreaContext::area" + type AttrLabel CellAreaContextAreaPropertyInfo = "area" attrGet _ = getCellAreaContextArea attrSet _ = undefined attrConstruct _ = constructCellAreaContextArea @@ -155,7 +209,7 @@ type AttrSetTypeConstraint CellAreaContextMinimumHeightPropertyInfo = (~) () type AttrBaseTypeConstraint CellAreaContextMinimumHeightPropertyInfo = CellAreaContextK type AttrGetType CellAreaContextMinimumHeightPropertyInfo = Int32 - type AttrLabel CellAreaContextMinimumHeightPropertyInfo = "CellAreaContext::minimum-height" + type AttrLabel CellAreaContextMinimumHeightPropertyInfo = "minimum-height" attrGet _ = getCellAreaContextMinimumHeight attrSet _ = undefined attrConstruct _ = undefined @@ -173,7 +227,7 @@ type AttrSetTypeConstraint CellAreaContextMinimumWidthPropertyInfo = (~) () type AttrBaseTypeConstraint CellAreaContextMinimumWidthPropertyInfo = CellAreaContextK type AttrGetType CellAreaContextMinimumWidthPropertyInfo = Int32 - type AttrLabel CellAreaContextMinimumWidthPropertyInfo = "CellAreaContext::minimum-width" + type AttrLabel CellAreaContextMinimumWidthPropertyInfo = "minimum-width" attrGet _ = getCellAreaContextMinimumWidth attrSet _ = undefined attrConstruct _ = undefined @@ -191,7 +245,7 @@ type AttrSetTypeConstraint CellAreaContextNaturalHeightPropertyInfo = (~) () type AttrBaseTypeConstraint CellAreaContextNaturalHeightPropertyInfo = CellAreaContextK type AttrGetType CellAreaContextNaturalHeightPropertyInfo = Int32 - type AttrLabel CellAreaContextNaturalHeightPropertyInfo = "CellAreaContext::natural-height" + type AttrLabel CellAreaContextNaturalHeightPropertyInfo = "natural-height" attrGet _ = getCellAreaContextNaturalHeight attrSet _ = undefined attrConstruct _ = undefined @@ -209,22 +263,21 @@ type AttrSetTypeConstraint CellAreaContextNaturalWidthPropertyInfo = (~) () type AttrBaseTypeConstraint CellAreaContextNaturalWidthPropertyInfo = CellAreaContextK type AttrGetType CellAreaContextNaturalWidthPropertyInfo = Int32 - type AttrLabel CellAreaContextNaturalWidthPropertyInfo = "CellAreaContext::natural-width" + type AttrLabel CellAreaContextNaturalWidthPropertyInfo = "natural-width" attrGet _ = getCellAreaContextNaturalWidth attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList CellAreaContext = CellAreaContextAttributeList -type CellAreaContextAttributeList = ('[ '("area", CellAreaContextAreaPropertyInfo), '("minimum-height", CellAreaContextMinimumHeightPropertyInfo), '("minimum-width", CellAreaContextMinimumWidthPropertyInfo), '("natural-height", CellAreaContextNaturalHeightPropertyInfo), '("natural-width", CellAreaContextNaturalWidthPropertyInfo)] :: [(Symbol, *)]) +type CellAreaContextAttributeList = ('[ '("area", CellAreaContextAreaPropertyInfo), '("minimumHeight", CellAreaContextMinimumHeightPropertyInfo), '("minimumWidth", CellAreaContextMinimumWidthPropertyInfo), '("naturalHeight", CellAreaContextNaturalHeightPropertyInfo), '("naturalWidth", CellAreaContextNaturalWidthPropertyInfo)] :: [(Symbol, *)]) type instance SignalList CellAreaContext = CellAreaContextSignalList -type CellAreaContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellAreaContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method CellAreaContext::allocate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -238,21 +291,24 @@ cellAreaContextAllocate :: (MonadIO m, CellAreaContextK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () + a -- _obj + -> Int32 -- width + -> Int32 -- height + -> m () -- result cellAreaContextAllocate _obj width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_cell_area_context_allocate _obj' width height touchManagedPtr _obj return () +data CellAreaContextAllocateMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextAllocateMethodInfo a signature where + overloadedMethod _ = cellAreaContextAllocate + -- method CellAreaContext::get_allocation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -266,8 +322,8 @@ cellAreaContextGetAllocation :: (MonadIO m, CellAreaContextK a) => - a -> -- _obj - m (Int32,Int32) + a -- _obj + -> m (Int32,Int32) -- result cellAreaContextGetAllocation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj width <- allocMem :: IO (Ptr Int32) @@ -280,11 +336,14 @@ freeMem height return (width', height') +data CellAreaContextGetAllocationMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextGetAllocationMethodInfo a signature where + overloadedMethod _ = cellAreaContextGetAllocation + -- method CellAreaContext::get_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellArea" -- throws : False -- Skip return : False @@ -296,8 +355,8 @@ cellAreaContextGetArea :: (MonadIO m, CellAreaContextK a) => - a -> -- _obj - m CellArea + a -- _obj + -> m CellArea -- result cellAreaContextGetArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_area_context_get_area _obj' @@ -306,11 +365,14 @@ touchManagedPtr _obj return result' +data CellAreaContextGetAreaMethodInfo +instance (signature ~ (m CellArea), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextGetAreaMethodInfo a signature where + overloadedMethod _ = cellAreaContextGetArea + -- method CellAreaContext::get_preferred_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -324,25 +386,28 @@ cellAreaContextGetPreferredHeight :: (MonadIO m, CellAreaContextK a) => - a -> -- _obj - m (Int32,Int32) + a -- _obj + -> m (Int32,Int32) -- result cellAreaContextGetPreferredHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_preferred_height _obj' minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height + minimumHeight <- allocMem :: IO (Ptr Int32) + naturalHeight <- allocMem :: IO (Ptr Int32) + gtk_cell_area_context_get_preferred_height _obj' minimumHeight naturalHeight + minimumHeight' <- peek minimumHeight + naturalHeight' <- peek naturalHeight touchManagedPtr _obj - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') + freeMem minimumHeight + freeMem naturalHeight + return (minimumHeight', naturalHeight') +data CellAreaContextGetPreferredHeightMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextGetPreferredHeightMethodInfo a signature where + overloadedMethod _ = cellAreaContextGetPreferredHeight + -- method CellAreaContext::get_preferred_height_for_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -357,26 +422,29 @@ cellAreaContextGetPreferredHeightForWidth :: (MonadIO m, CellAreaContextK a) => - a -> -- _obj - Int32 -> -- width - m (Int32,Int32) + a -- _obj + -> Int32 -- width + -> m (Int32,Int32) -- result cellAreaContextGetPreferredHeightForWidth _obj width = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_preferred_height_for_width _obj' width minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height + minimumHeight <- allocMem :: IO (Ptr Int32) + naturalHeight <- allocMem :: IO (Ptr Int32) + gtk_cell_area_context_get_preferred_height_for_width _obj' width minimumHeight naturalHeight + minimumHeight' <- peek minimumHeight + naturalHeight' <- peek naturalHeight touchManagedPtr _obj - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') + freeMem minimumHeight + freeMem naturalHeight + return (minimumHeight', naturalHeight') +data CellAreaContextGetPreferredHeightForWidthMethodInfo +instance (signature ~ (Int32 -> m (Int32,Int32)), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextGetPreferredHeightForWidthMethodInfo a signature where + overloadedMethod _ = cellAreaContextGetPreferredHeightForWidth + -- method CellAreaContext::get_preferred_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -390,25 +458,28 @@ cellAreaContextGetPreferredWidth :: (MonadIO m, CellAreaContextK a) => - a -> -- _obj - m (Int32,Int32) + a -- _obj + -> m (Int32,Int32) -- result cellAreaContextGetPreferredWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_preferred_width _obj' minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width + minimumWidth <- allocMem :: IO (Ptr Int32) + naturalWidth <- allocMem :: IO (Ptr Int32) + gtk_cell_area_context_get_preferred_width _obj' minimumWidth naturalWidth + minimumWidth' <- peek minimumWidth + naturalWidth' <- peek naturalWidth touchManagedPtr _obj - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') + freeMem minimumWidth + freeMem naturalWidth + return (minimumWidth', naturalWidth') +data CellAreaContextGetPreferredWidthMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextGetPreferredWidthMethodInfo a signature where + overloadedMethod _ = cellAreaContextGetPreferredWidth + -- method CellAreaContext::get_preferred_width_for_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -423,26 +494,29 @@ cellAreaContextGetPreferredWidthForHeight :: (MonadIO m, CellAreaContextK a) => - a -> -- _obj - Int32 -> -- height - m (Int32,Int32) + a -- _obj + -> Int32 -- height + -> m (Int32,Int32) -- result cellAreaContextGetPreferredWidthForHeight _obj height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_preferred_width_for_height _obj' height minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width + minimumWidth <- allocMem :: IO (Ptr Int32) + naturalWidth <- allocMem :: IO (Ptr Int32) + gtk_cell_area_context_get_preferred_width_for_height _obj' height minimumWidth naturalWidth + minimumWidth' <- peek minimumWidth + naturalWidth' <- peek naturalWidth touchManagedPtr _obj - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') + freeMem minimumWidth + freeMem naturalWidth + return (minimumWidth', naturalWidth') +data CellAreaContextGetPreferredWidthForHeightMethodInfo +instance (signature ~ (Int32 -> m (Int32,Int32)), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextGetPreferredWidthForHeightMethodInfo a signature where + overloadedMethod _ = cellAreaContextGetPreferredWidthForHeight + -- method CellAreaContext::push_preferred_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -456,21 +530,24 @@ cellAreaContextPushPreferredHeight :: (MonadIO m, CellAreaContextK a) => - a -> -- _obj - Int32 -> -- minimum_height - Int32 -> -- natural_height - m () -cellAreaContextPushPreferredHeight _obj minimum_height natural_height = liftIO $ do + a -- _obj + -> Int32 -- minimumHeight + -> Int32 -- naturalHeight + -> m () -- result +cellAreaContextPushPreferredHeight _obj minimumHeight naturalHeight = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_area_context_push_preferred_height _obj' minimum_height natural_height + gtk_cell_area_context_push_preferred_height _obj' minimumHeight naturalHeight touchManagedPtr _obj return () +data CellAreaContextPushPreferredHeightMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextPushPreferredHeightMethodInfo a signature where + overloadedMethod _ = cellAreaContextPushPreferredHeight + -- method CellAreaContext::push_preferred_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -484,21 +561,24 @@ cellAreaContextPushPreferredWidth :: (MonadIO m, CellAreaContextK a) => - a -> -- _obj - Int32 -> -- minimum_width - Int32 -> -- natural_width - m () -cellAreaContextPushPreferredWidth _obj minimum_width natural_width = liftIO $ do + a -- _obj + -> Int32 -- minimumWidth + -> Int32 -- naturalWidth + -> m () -- result +cellAreaContextPushPreferredWidth _obj minimumWidth naturalWidth = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_area_context_push_preferred_width _obj' minimum_width natural_width + gtk_cell_area_context_push_preferred_width _obj' minimumWidth naturalWidth touchManagedPtr _obj return () +data CellAreaContextPushPreferredWidthMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextPushPreferredWidthMethodInfo a signature where + overloadedMethod _ = cellAreaContextPushPreferredWidth + -- method CellAreaContext::reset -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -510,12 +590,16 @@ cellAreaContextReset :: (MonadIO m, CellAreaContextK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result cellAreaContextReset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_cell_area_context_reset _obj' touchManagedPtr _obj return () + +data CellAreaContextResetMethodInfo +instance (signature ~ (m ()), MonadIO m, CellAreaContextK a) => MethodInfo CellAreaContextResetMethodInfo a signature where + overloadedMethod _ = cellAreaContextReset diff --git a/GI/Gtk/Objects/CellAreaContext.hs-boot b/GI/Gtk/Objects/CellAreaContext.hs-boot --- a/GI/Gtk/Objects/CellAreaContext.hs-boot +++ b/GI/Gtk/Objects/CellAreaContext.hs-boot @@ -16,3 +16,13 @@ data CellAreaContextMinimumWidthPropertyInfo data CellAreaContextNaturalHeightPropertyInfo data CellAreaContextNaturalWidthPropertyInfo +data CellAreaContextAllocateMethodInfo +data CellAreaContextGetAllocationMethodInfo +data CellAreaContextGetAreaMethodInfo +data CellAreaContextGetPreferredHeightMethodInfo +data CellAreaContextGetPreferredHeightForWidthMethodInfo +data CellAreaContextGetPreferredWidthMethodInfo +data CellAreaContextGetPreferredWidthForHeightMethodInfo +data CellAreaContextPushPreferredHeightMethodInfo +data CellAreaContextPushPreferredWidthMethodInfo +data CellAreaContextResetMethodInfo diff --git a/GI/Gtk/Objects/CellRenderer.hs b/GI/Gtk/Objects/CellRenderer.hs --- a/GI/Gtk/Objects/CellRenderer.hs +++ b/GI/Gtk/Objects/CellRenderer.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,98 +18,122 @@ -- * Methods -- ** cellRendererActivate + CellRendererActivateMethodInfo , cellRendererActivate , -- ** cellRendererGetAlignedArea + CellRendererGetAlignedAreaMethodInfo , cellRendererGetAlignedArea , -- ** cellRendererGetAlignment + CellRendererGetAlignmentMethodInfo , cellRendererGetAlignment , -- ** cellRendererGetFixedSize + CellRendererGetFixedSizeMethodInfo , cellRendererGetFixedSize , -- ** cellRendererGetPadding + CellRendererGetPaddingMethodInfo , cellRendererGetPadding , -- ** cellRendererGetPreferredHeight + CellRendererGetPreferredHeightMethodInfo, cellRendererGetPreferredHeight , -- ** cellRendererGetPreferredHeightForWidth + CellRendererGetPreferredHeightForWidthMethodInfo, cellRendererGetPreferredHeightForWidth , -- ** cellRendererGetPreferredSize + CellRendererGetPreferredSizeMethodInfo , cellRendererGetPreferredSize , -- ** cellRendererGetPreferredWidth + CellRendererGetPreferredWidthMethodInfo , cellRendererGetPreferredWidth , -- ** cellRendererGetPreferredWidthForHeight + CellRendererGetPreferredWidthForHeightMethodInfo, cellRendererGetPreferredWidthForHeight , -- ** cellRendererGetRequestMode + CellRendererGetRequestModeMethodInfo , cellRendererGetRequestMode , -- ** cellRendererGetSensitive + CellRendererGetSensitiveMethodInfo , cellRendererGetSensitive , -- ** cellRendererGetSize + CellRendererGetSizeMethodInfo , cellRendererGetSize , -- ** cellRendererGetState + CellRendererGetStateMethodInfo , cellRendererGetState , -- ** cellRendererGetVisible + CellRendererGetVisibleMethodInfo , cellRendererGetVisible , -- ** cellRendererIsActivatable + CellRendererIsActivatableMethodInfo , cellRendererIsActivatable , -- ** cellRendererRender + CellRendererRenderMethodInfo , cellRendererRender , -- ** cellRendererSetAlignment + CellRendererSetAlignmentMethodInfo , cellRendererSetAlignment , -- ** cellRendererSetFixedSize + CellRendererSetFixedSizeMethodInfo , cellRendererSetFixedSize , -- ** cellRendererSetPadding + CellRendererSetPaddingMethodInfo , cellRendererSetPadding , -- ** cellRendererSetSensitive + CellRendererSetSensitiveMethodInfo , cellRendererSetSensitive , -- ** cellRendererSetVisible + CellRendererSetVisibleMethodInfo , cellRendererSetVisible , -- ** cellRendererStartEditing + CellRendererStartEditingMethodInfo , cellRendererStartEditing , -- ** cellRendererStopEditing + CellRendererStopEditingMethodInfo , cellRendererStopEditing , @@ -289,6 +314,63 @@ noCellRenderer :: Maybe CellRenderer noCellRenderer = Nothing +type family ResolveCellRendererMethod (t :: Symbol) (o :: *) :: * where + ResolveCellRendererMethod "activate" o = CellRendererActivateMethodInfo + ResolveCellRendererMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellRendererMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellRendererMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellRendererMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellRendererMethod "isActivatable" o = CellRendererIsActivatableMethodInfo + ResolveCellRendererMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellRendererMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellRendererMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellRendererMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellRendererMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellRendererMethod "render" o = CellRendererRenderMethodInfo + ResolveCellRendererMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellRendererMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellRendererMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellRendererMethod "startEditing" o = CellRendererStartEditingMethodInfo + ResolveCellRendererMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellRendererMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellRendererMethod "stopEditing" o = CellRendererStopEditingMethodInfo + ResolveCellRendererMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellRendererMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellRendererMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellRendererMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo + ResolveCellRendererMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo + ResolveCellRendererMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellRendererMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo + ResolveCellRendererMethod "getPadding" o = CellRendererGetPaddingMethodInfo + ResolveCellRendererMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo + ResolveCellRendererMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo + ResolveCellRendererMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo + ResolveCellRendererMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo + ResolveCellRendererMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo + ResolveCellRendererMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellRendererMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellRendererMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo + ResolveCellRendererMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo + ResolveCellRendererMethod "getSize" o = CellRendererGetSizeMethodInfo + ResolveCellRendererMethod "getState" o = CellRendererGetStateMethodInfo + ResolveCellRendererMethod "getVisible" o = CellRendererGetVisibleMethodInfo + ResolveCellRendererMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo + ResolveCellRendererMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellRendererMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo + ResolveCellRendererMethod "setPadding" o = CellRendererSetPaddingMethodInfo + ResolveCellRendererMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellRendererMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo + ResolveCellRendererMethod "setVisible" o = CellRendererSetVisibleMethodInfo + ResolveCellRendererMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellRendererMethod t CellRenderer, MethodInfo info CellRenderer p) => IsLabelProxy t (CellRenderer -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellRendererMethod t CellRenderer, MethodInfo info CellRenderer p) => IsLabel t (CellRenderer -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal CellRenderer::editing-canceled type CellRendererEditingCanceledCallback = IO () @@ -389,7 +471,7 @@ type AttrSetTypeConstraint CellRendererCellBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererCellBackgroundPropertyInfo = CellRendererK type AttrGetType CellRendererCellBackgroundPropertyInfo = () - type AttrLabel CellRendererCellBackgroundPropertyInfo = "CellRenderer::cell-background" + type AttrLabel CellRendererCellBackgroundPropertyInfo = "cell-background" attrGet _ = undefined attrSet _ = setCellRendererCellBackground attrConstruct _ = constructCellRendererCellBackground @@ -413,7 +495,7 @@ type AttrSetTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = CellRendererK type AttrGetType CellRendererCellBackgroundGdkPropertyInfo = Gdk.Color - type AttrLabel CellRendererCellBackgroundGdkPropertyInfo = "CellRenderer::cell-background-gdk" + type AttrLabel CellRendererCellBackgroundGdkPropertyInfo = "cell-background-gdk" attrGet _ = getCellRendererCellBackgroundGdk attrSet _ = setCellRendererCellBackgroundGdk attrConstruct _ = constructCellRendererCellBackgroundGdk @@ -437,7 +519,7 @@ type AttrSetTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = CellRendererK type AttrGetType CellRendererCellBackgroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel CellRendererCellBackgroundRgbaPropertyInfo = "CellRenderer::cell-background-rgba" + type AttrLabel CellRendererCellBackgroundRgbaPropertyInfo = "cell-background-rgba" attrGet _ = getCellRendererCellBackgroundRgba attrSet _ = setCellRendererCellBackgroundRgba attrConstruct _ = constructCellRendererCellBackgroundRgba @@ -461,7 +543,7 @@ type AttrSetTypeConstraint CellRendererCellBackgroundSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererCellBackgroundSetPropertyInfo = CellRendererK type AttrGetType CellRendererCellBackgroundSetPropertyInfo = Bool - type AttrLabel CellRendererCellBackgroundSetPropertyInfo = "CellRenderer::cell-background-set" + type AttrLabel CellRendererCellBackgroundSetPropertyInfo = "cell-background-set" attrGet _ = getCellRendererCellBackgroundSet attrSet _ = setCellRendererCellBackgroundSet attrConstruct _ = constructCellRendererCellBackgroundSet @@ -479,7 +561,7 @@ type AttrSetTypeConstraint CellRendererEditingPropertyInfo = (~) () type AttrBaseTypeConstraint CellRendererEditingPropertyInfo = CellRendererK type AttrGetType CellRendererEditingPropertyInfo = Bool - type AttrLabel CellRendererEditingPropertyInfo = "CellRenderer::editing" + type AttrLabel CellRendererEditingPropertyInfo = "editing" attrGet _ = getCellRendererEditing attrSet _ = undefined attrConstruct _ = undefined @@ -503,7 +585,7 @@ type AttrSetTypeConstraint CellRendererHeightPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellRendererHeightPropertyInfo = CellRendererK type AttrGetType CellRendererHeightPropertyInfo = Int32 - type AttrLabel CellRendererHeightPropertyInfo = "CellRenderer::height" + type AttrLabel CellRendererHeightPropertyInfo = "height" attrGet _ = getCellRendererHeight attrSet _ = setCellRendererHeight attrConstruct _ = constructCellRendererHeight @@ -527,7 +609,7 @@ type AttrSetTypeConstraint CellRendererIsExpandedPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererIsExpandedPropertyInfo = CellRendererK type AttrGetType CellRendererIsExpandedPropertyInfo = Bool - type AttrLabel CellRendererIsExpandedPropertyInfo = "CellRenderer::is-expanded" + type AttrLabel CellRendererIsExpandedPropertyInfo = "is-expanded" attrGet _ = getCellRendererIsExpanded attrSet _ = setCellRendererIsExpanded attrConstruct _ = constructCellRendererIsExpanded @@ -551,7 +633,7 @@ type AttrSetTypeConstraint CellRendererIsExpanderPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererIsExpanderPropertyInfo = CellRendererK type AttrGetType CellRendererIsExpanderPropertyInfo = Bool - type AttrLabel CellRendererIsExpanderPropertyInfo = "CellRenderer::is-expander" + type AttrLabel CellRendererIsExpanderPropertyInfo = "is-expander" attrGet _ = getCellRendererIsExpander attrSet _ = setCellRendererIsExpander attrConstruct _ = constructCellRendererIsExpander @@ -575,7 +657,7 @@ type AttrSetTypeConstraint CellRendererModePropertyInfo = (~) CellRendererMode type AttrBaseTypeConstraint CellRendererModePropertyInfo = CellRendererK type AttrGetType CellRendererModePropertyInfo = CellRendererMode - type AttrLabel CellRendererModePropertyInfo = "CellRenderer::mode" + type AttrLabel CellRendererModePropertyInfo = "mode" attrGet _ = getCellRendererMode attrSet _ = setCellRendererMode attrConstruct _ = constructCellRendererMode @@ -599,7 +681,7 @@ type AttrSetTypeConstraint CellRendererSensitivePropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererSensitivePropertyInfo = CellRendererK type AttrGetType CellRendererSensitivePropertyInfo = Bool - type AttrLabel CellRendererSensitivePropertyInfo = "CellRenderer::sensitive" + type AttrLabel CellRendererSensitivePropertyInfo = "sensitive" attrGet _ = getCellRendererSensitive attrSet _ = setCellRendererSensitive attrConstruct _ = constructCellRendererSensitive @@ -623,7 +705,7 @@ type AttrSetTypeConstraint CellRendererVisiblePropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererVisiblePropertyInfo = CellRendererK type AttrGetType CellRendererVisiblePropertyInfo = Bool - type AttrLabel CellRendererVisiblePropertyInfo = "CellRenderer::visible" + type AttrLabel CellRendererVisiblePropertyInfo = "visible" attrGet _ = getCellRendererVisible attrSet _ = setCellRendererVisible attrConstruct _ = constructCellRendererVisible @@ -647,7 +729,7 @@ type AttrSetTypeConstraint CellRendererWidthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellRendererWidthPropertyInfo = CellRendererK type AttrGetType CellRendererWidthPropertyInfo = Int32 - type AttrLabel CellRendererWidthPropertyInfo = "CellRenderer::width" + type AttrLabel CellRendererWidthPropertyInfo = "width" attrGet _ = getCellRendererWidth attrSet _ = setCellRendererWidth attrConstruct _ = constructCellRendererWidth @@ -671,7 +753,7 @@ type AttrSetTypeConstraint CellRendererXalignPropertyInfo = (~) Float type AttrBaseTypeConstraint CellRendererXalignPropertyInfo = CellRendererK type AttrGetType CellRendererXalignPropertyInfo = Float - type AttrLabel CellRendererXalignPropertyInfo = "CellRenderer::xalign" + type AttrLabel CellRendererXalignPropertyInfo = "xalign" attrGet _ = getCellRendererXalign attrSet _ = setCellRendererXalign attrConstruct _ = constructCellRendererXalign @@ -695,7 +777,7 @@ type AttrSetTypeConstraint CellRendererXpadPropertyInfo = (~) Word32 type AttrBaseTypeConstraint CellRendererXpadPropertyInfo = CellRendererK type AttrGetType CellRendererXpadPropertyInfo = Word32 - type AttrLabel CellRendererXpadPropertyInfo = "CellRenderer::xpad" + type AttrLabel CellRendererXpadPropertyInfo = "xpad" attrGet _ = getCellRendererXpad attrSet _ = setCellRendererXpad attrConstruct _ = constructCellRendererXpad @@ -719,7 +801,7 @@ type AttrSetTypeConstraint CellRendererYalignPropertyInfo = (~) Float type AttrBaseTypeConstraint CellRendererYalignPropertyInfo = CellRendererK type AttrGetType CellRendererYalignPropertyInfo = Float - type AttrLabel CellRendererYalignPropertyInfo = "CellRenderer::yalign" + type AttrLabel CellRendererYalignPropertyInfo = "yalign" attrGet _ = getCellRendererYalign attrSet _ = setCellRendererYalign attrConstruct _ = constructCellRendererYalign @@ -743,13 +825,13 @@ type AttrSetTypeConstraint CellRendererYpadPropertyInfo = (~) Word32 type AttrBaseTypeConstraint CellRendererYpadPropertyInfo = CellRendererK type AttrGetType CellRendererYpadPropertyInfo = Word32 - type AttrLabel CellRendererYpadPropertyInfo = "CellRenderer::ypad" + type AttrLabel CellRendererYpadPropertyInfo = "ypad" attrGet _ = getCellRendererYpad attrSet _ = setCellRendererYpad attrConstruct _ = constructCellRendererYpad type instance AttributeList CellRenderer = CellRendererAttributeList -type CellRendererAttributeList = ('[ '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +type CellRendererAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) data CellRendererEditingCanceledSignalInfo instance SignalInfo CellRendererEditingCanceledSignalInfo where @@ -762,13 +844,12 @@ connectSignal _ = connectCellRendererEditingStarted type instance SignalList CellRenderer = CellRendererSignalList -type CellRendererSignalList = ('[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellRendererSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method CellRenderer::activate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -786,37 +867,40 @@ cellRendererActivate :: (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - Gdk.Event -> -- event - b -> -- widget - T.Text -> -- path - Gdk.Rectangle -> -- background_area - Gdk.Rectangle -> -- cell_area - [CellRendererState] -> -- flags - m Bool -cellRendererActivate _obj event widget path background_area cell_area flags = liftIO $ do + a -- _obj + -> Gdk.Event -- event + -> b -- widget + -> T.Text -- path + -> Gdk.Rectangle -- backgroundArea + -> Gdk.Rectangle -- cellArea + -> [CellRendererState] -- flags + -> m Bool -- result +cellRendererActivate _obj event widget path backgroundArea cellArea flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let event' = unsafeManagedPtrGetPtr event let widget' = unsafeManagedPtrCastPtr widget path' <- textToCString path - let background_area' = unsafeManagedPtrGetPtr background_area - let cell_area' = unsafeManagedPtrGetPtr cell_area + let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea + let cellArea' = unsafeManagedPtrGetPtr cellArea let flags' = gflagsToWord flags - result <- gtk_cell_renderer_activate _obj' event' widget' path' background_area' cell_area' flags' + result <- gtk_cell_renderer_activate _obj' event' widget' path' backgroundArea' cellArea' flags' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr event touchManagedPtr widget - touchManagedPtr background_area - touchManagedPtr cell_area + touchManagedPtr backgroundArea + touchManagedPtr cellArea freeMem path' return result' +data CellRendererActivateMethodInfo +instance (signature ~ (Gdk.Event -> b -> T.Text -> Gdk.Rectangle -> Gdk.Rectangle -> [CellRendererState] -> m Bool), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererActivateMethodInfo a signature where + overloadedMethod _ = cellRendererActivate + -- method CellRenderer::get_aligned_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "aligned_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "aligned_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -832,29 +916,32 @@ cellRendererGetAlignedArea :: (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - [CellRendererState] -> -- flags - Gdk.Rectangle -> -- cell_area - m (Gdk.Rectangle) -cellRendererGetAlignedArea _obj widget flags cell_area = liftIO $ do + a -- _obj + -> b -- widget + -> [CellRendererState] -- flags + -> Gdk.Rectangle -- cellArea + -> m (Gdk.Rectangle) -- result +cellRendererGetAlignedArea _obj widget flags cellArea = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget let flags' = gflagsToWord flags - let cell_area' = unsafeManagedPtrGetPtr cell_area - aligned_area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_cell_renderer_get_aligned_area _obj' widget' flags' cell_area' aligned_area - aligned_area' <- (wrapBoxed Gdk.Rectangle) aligned_area + let cellArea' = unsafeManagedPtrGetPtr cellArea + alignedArea <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_cell_renderer_get_aligned_area _obj' widget' flags' cellArea' alignedArea + alignedArea' <- (wrapBoxed Gdk.Rectangle) alignedArea touchManagedPtr _obj touchManagedPtr widget - touchManagedPtr cell_area - return aligned_area' + touchManagedPtr cellArea + return alignedArea' +data CellRendererGetAlignedAreaMethodInfo +instance (signature ~ (b -> [CellRendererState] -> Gdk.Rectangle -> m (Gdk.Rectangle)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetAlignedAreaMethodInfo a signature where + overloadedMethod _ = cellRendererGetAlignedArea + -- method CellRenderer::get_alignment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -868,8 +955,8 @@ cellRendererGetAlignment :: (MonadIO m, CellRendererK a) => - a -> -- _obj - m (Float,Float) + a -- _obj + -> m (Float,Float) -- result cellRendererGetAlignment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj xalign <- allocMem :: IO (Ptr CFloat) @@ -884,11 +971,14 @@ freeMem yalign return (xalign'', yalign'') +data CellRendererGetAlignmentMethodInfo +instance (signature ~ (m (Float,Float)), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetAlignmentMethodInfo a signature where + overloadedMethod _ = cellRendererGetAlignment + -- method CellRenderer::get_fixed_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -902,8 +992,8 @@ cellRendererGetFixedSize :: (MonadIO m, CellRendererK a) => - a -> -- _obj - m (Int32,Int32) + a -- _obj + -> m (Int32,Int32) -- result cellRendererGetFixedSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj width <- allocMem :: IO (Ptr Int32) @@ -916,11 +1006,14 @@ freeMem height return (width', height') +data CellRendererGetFixedSizeMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetFixedSizeMethodInfo a signature where + overloadedMethod _ = cellRendererGetFixedSize + -- method CellRenderer::get_padding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -934,8 +1027,8 @@ cellRendererGetPadding :: (MonadIO m, CellRendererK a) => - a -> -- _obj - m (Int32,Int32) + a -- _obj + -> m (Int32,Int32) -- result cellRendererGetPadding _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj xpad <- allocMem :: IO (Ptr Int32) @@ -948,11 +1041,14 @@ freeMem ypad return (xpad', ypad') +data CellRendererGetPaddingMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetPaddingMethodInfo a signature where + overloadedMethod _ = cellRendererGetPadding + -- method CellRenderer::get_preferred_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -967,28 +1063,31 @@ cellRendererGetPreferredHeight :: (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - m (Int32,Int32) + a -- _obj + -> b -- widget + -> m (Int32,Int32) -- result cellRendererGetPreferredHeight _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget - minimum_size <- allocMem :: IO (Ptr Int32) - natural_size <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_preferred_height _obj' widget' minimum_size natural_size - minimum_size' <- peek minimum_size - natural_size' <- peek natural_size + minimumSize <- allocMem :: IO (Ptr Int32) + naturalSize <- allocMem :: IO (Ptr Int32) + gtk_cell_renderer_get_preferred_height _obj' widget' minimumSize naturalSize + minimumSize' <- peek minimumSize + naturalSize' <- peek naturalSize touchManagedPtr _obj touchManagedPtr widget - freeMem minimum_size - freeMem natural_size - return (minimum_size', natural_size') + freeMem minimumSize + freeMem naturalSize + return (minimumSize', naturalSize') +data CellRendererGetPreferredHeightMethodInfo +instance (signature ~ (b -> m (Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredHeightMethodInfo a signature where + overloadedMethod _ = cellRendererGetPreferredHeight + -- method CellRenderer::get_preferred_height_for_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1004,29 +1103,32 @@ cellRendererGetPreferredHeightForWidth :: (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Int32 -> -- width - m (Int32,Int32) + a -- _obj + -> b -- widget + -> Int32 -- width + -> m (Int32,Int32) -- result cellRendererGetPreferredHeightForWidth _obj widget width = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_preferred_height_for_width _obj' widget' width minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height + minimumHeight <- allocMem :: IO (Ptr Int32) + naturalHeight <- allocMem :: IO (Ptr Int32) + gtk_cell_renderer_get_preferred_height_for_width _obj' widget' width minimumHeight naturalHeight + minimumHeight' <- peek minimumHeight + naturalHeight' <- peek naturalHeight touchManagedPtr _obj touchManagedPtr widget - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') + freeMem minimumHeight + freeMem naturalHeight + return (minimumHeight', naturalHeight') +data CellRendererGetPreferredHeightForWidthMethodInfo +instance (signature ~ (b -> Int32 -> m (Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredHeightForWidthMethodInfo a signature where + overloadedMethod _ = cellRendererGetPreferredHeightForWidth + -- method CellRenderer::get_preferred_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1041,26 +1143,29 @@ cellRendererGetPreferredSize :: (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - m (Requisition,Requisition) + a -- _obj + -> b -- widget + -> m (Requisition,Requisition) -- result cellRendererGetPreferredSize _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget - minimum_size <- callocBoxedBytes 8 :: IO (Ptr Requisition) - natural_size <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_cell_renderer_get_preferred_size _obj' widget' minimum_size natural_size - minimum_size' <- (wrapBoxed Requisition) minimum_size - natural_size' <- (wrapBoxed Requisition) natural_size + minimumSize <- callocBoxedBytes 8 :: IO (Ptr Requisition) + naturalSize <- callocBoxedBytes 8 :: IO (Ptr Requisition) + gtk_cell_renderer_get_preferred_size _obj' widget' minimumSize naturalSize + minimumSize' <- (wrapBoxed Requisition) minimumSize + naturalSize' <- (wrapBoxed Requisition) naturalSize touchManagedPtr _obj touchManagedPtr widget - return (minimum_size', natural_size') + return (minimumSize', naturalSize') +data CellRendererGetPreferredSizeMethodInfo +instance (signature ~ (b -> m (Requisition,Requisition)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredSizeMethodInfo a signature where + overloadedMethod _ = cellRendererGetPreferredSize + -- method CellRenderer::get_preferred_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1075,28 +1180,31 @@ cellRendererGetPreferredWidth :: (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - m (Int32,Int32) + a -- _obj + -> b -- widget + -> m (Int32,Int32) -- result cellRendererGetPreferredWidth _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget - minimum_size <- allocMem :: IO (Ptr Int32) - natural_size <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_preferred_width _obj' widget' minimum_size natural_size - minimum_size' <- peek minimum_size - natural_size' <- peek natural_size + minimumSize <- allocMem :: IO (Ptr Int32) + naturalSize <- allocMem :: IO (Ptr Int32) + gtk_cell_renderer_get_preferred_width _obj' widget' minimumSize naturalSize + minimumSize' <- peek minimumSize + naturalSize' <- peek naturalSize touchManagedPtr _obj touchManagedPtr widget - freeMem minimum_size - freeMem natural_size - return (minimum_size', natural_size') + freeMem minimumSize + freeMem naturalSize + return (minimumSize', naturalSize') +data CellRendererGetPreferredWidthMethodInfo +instance (signature ~ (b -> m (Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredWidthMethodInfo a signature where + overloadedMethod _ = cellRendererGetPreferredWidth + -- method CellRenderer::get_preferred_width_for_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1112,29 +1220,32 @@ cellRendererGetPreferredWidthForHeight :: (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Int32 -> -- height - m (Int32,Int32) + a -- _obj + -> b -- widget + -> Int32 -- height + -> m (Int32,Int32) -- result cellRendererGetPreferredWidthForHeight _obj widget height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_preferred_width_for_height _obj' widget' height minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width + minimumWidth <- allocMem :: IO (Ptr Int32) + naturalWidth <- allocMem :: IO (Ptr Int32) + gtk_cell_renderer_get_preferred_width_for_height _obj' widget' height minimumWidth naturalWidth + minimumWidth' <- peek minimumWidth + naturalWidth' <- peek naturalWidth touchManagedPtr _obj touchManagedPtr widget - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') + freeMem minimumWidth + freeMem naturalWidth + return (minimumWidth', naturalWidth') +data CellRendererGetPreferredWidthForHeightMethodInfo +instance (signature ~ (b -> Int32 -> m (Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetPreferredWidthForHeightMethodInfo a signature where + overloadedMethod _ = cellRendererGetPreferredWidthForHeight + -- method CellRenderer::get_request_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SizeRequestMode" -- throws : False -- Skip return : False @@ -1146,8 +1257,8 @@ cellRendererGetRequestMode :: (MonadIO m, CellRendererK a) => - a -> -- _obj - m SizeRequestMode + a -- _obj + -> m SizeRequestMode -- result cellRendererGetRequestMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_renderer_get_request_mode _obj' @@ -1155,11 +1266,14 @@ touchManagedPtr _obj return result' +data CellRendererGetRequestModeMethodInfo +instance (signature ~ (m SizeRequestMode), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetRequestModeMethodInfo a signature where + overloadedMethod _ = cellRendererGetRequestMode + -- method CellRenderer::get_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1171,8 +1285,8 @@ cellRendererGetSensitive :: (MonadIO m, CellRendererK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result cellRendererGetSensitive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_renderer_get_sensitive _obj' @@ -1180,11 +1294,14 @@ touchManagedPtr _obj return result' +data CellRendererGetSensitiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetSensitiveMethodInfo a signature where + overloadedMethod _ = cellRendererGetSensitive + -- method CellRenderer::get_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1202,41 +1319,44 @@ {-# DEPRECATED cellRendererGetSize ["(Since version 3.0)","Use gtk_cell_renderer_get_preferred_size() instead."]#-} cellRendererGetSize :: (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Maybe (Gdk.Rectangle) -> -- cell_area - m (Int32,Int32,Int32,Int32) -cellRendererGetSize _obj widget cell_area = liftIO $ do + a -- _obj + -> b -- widget + -> Maybe (Gdk.Rectangle) -- cellArea + -> m (Int32,Int32,Int32,Int32) -- result +cellRendererGetSize _obj widget cellArea = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget - maybeCell_area <- case cell_area of + maybeCellArea <- case cellArea of Nothing -> return nullPtr - Just jCell_area -> do - let jCell_area' = unsafeManagedPtrGetPtr jCell_area - return jCell_area' - x_offset <- allocMem :: IO (Ptr Int32) - y_offset <- allocMem :: IO (Ptr Int32) + Just jCellArea -> do + let jCellArea' = unsafeManagedPtrGetPtr jCellArea + return jCellArea' + xOffset <- allocMem :: IO (Ptr Int32) + yOffset <- allocMem :: IO (Ptr Int32) width <- allocMem :: IO (Ptr Int32) height <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_size _obj' widget' maybeCell_area x_offset y_offset width height - x_offset' <- peek x_offset - y_offset' <- peek y_offset + gtk_cell_renderer_get_size _obj' widget' maybeCellArea xOffset yOffset width height + xOffset' <- peek xOffset + yOffset' <- peek yOffset width' <- peek width height' <- peek height touchManagedPtr _obj touchManagedPtr widget - whenJust cell_area touchManagedPtr - freeMem x_offset - freeMem y_offset + whenJust cellArea touchManagedPtr + freeMem xOffset + freeMem yOffset freeMem width freeMem height - return (x_offset', y_offset', width', height') + return (xOffset', yOffset', width', height') +data CellRendererGetSizeMethodInfo +instance (signature ~ (b -> Maybe (Gdk.Rectangle) -> m (Int32,Int32,Int32,Int32)), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetSizeMethodInfo a signature where + overloadedMethod _ = cellRendererGetSize + -- method CellRenderer::get_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_state", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_state", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_state", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StateFlags" -- throws : False -- Skip return : False @@ -1250,25 +1370,28 @@ cellRendererGetState :: (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - [CellRendererState] -> -- cell_state - m [StateFlags] -cellRendererGetState _obj widget cell_state = liftIO $ do + a -- _obj + -> b -- widget + -> [CellRendererState] -- cellState + -> m [StateFlags] -- result +cellRendererGetState _obj widget cellState = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget - let cell_state' = gflagsToWord cell_state - result <- gtk_cell_renderer_get_state _obj' widget' cell_state' + let cellState' = gflagsToWord cellState + result <- gtk_cell_renderer_get_state _obj' widget' cellState' let result' = wordToGFlags result touchManagedPtr _obj touchManagedPtr widget return result' +data CellRendererGetStateMethodInfo +instance (signature ~ (b -> [CellRendererState] -> m [StateFlags]), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererGetStateMethodInfo a signature where + overloadedMethod _ = cellRendererGetState + -- method CellRenderer::get_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1280,8 +1403,8 @@ cellRendererGetVisible :: (MonadIO m, CellRendererK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result cellRendererGetVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_renderer_get_visible _obj' @@ -1289,11 +1412,14 @@ touchManagedPtr _obj return result' +data CellRendererGetVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, CellRendererK a) => MethodInfo CellRendererGetVisibleMethodInfo a signature where + overloadedMethod _ = cellRendererGetVisible + -- method CellRenderer::is_activatable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1305,8 +1431,8 @@ cellRendererIsActivatable :: (MonadIO m, CellRendererK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result cellRendererIsActivatable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_renderer_is_activatable _obj' @@ -1314,11 +1440,14 @@ touchManagedPtr _obj return result' +data CellRendererIsActivatableMethodInfo +instance (signature ~ (m Bool), MonadIO m, CellRendererK a) => MethodInfo CellRendererIsActivatableMethodInfo a signature where + overloadedMethod _ = cellRendererIsActivatable + -- method CellRenderer::render -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1335,33 +1464,36 @@ cellRendererRender :: (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - Cairo.Context -> -- cr - b -> -- widget - Gdk.Rectangle -> -- background_area - Gdk.Rectangle -> -- cell_area - [CellRendererState] -> -- flags - m () -cellRendererRender _obj cr widget background_area cell_area flags = liftIO $ do + a -- _obj + -> Cairo.Context -- cr + -> b -- widget + -> Gdk.Rectangle -- backgroundArea + -> Gdk.Rectangle -- cellArea + -> [CellRendererState] -- flags + -> m () -- result +cellRendererRender _obj cr widget backgroundArea cellArea flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cr' = unsafeManagedPtrGetPtr cr let widget' = unsafeManagedPtrCastPtr widget - let background_area' = unsafeManagedPtrGetPtr background_area - let cell_area' = unsafeManagedPtrGetPtr cell_area + let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea + let cellArea' = unsafeManagedPtrGetPtr cellArea let flags' = gflagsToWord flags - gtk_cell_renderer_render _obj' cr' widget' background_area' cell_area' flags' + gtk_cell_renderer_render _obj' cr' widget' backgroundArea' cellArea' flags' touchManagedPtr _obj touchManagedPtr cr touchManagedPtr widget - touchManagedPtr background_area - touchManagedPtr cell_area + touchManagedPtr backgroundArea + touchManagedPtr cellArea return () +data CellRendererRenderMethodInfo +instance (signature ~ (Cairo.Context -> b -> Gdk.Rectangle -> Gdk.Rectangle -> [CellRendererState] -> m ()), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererRenderMethodInfo a signature where + overloadedMethod _ = cellRendererRender + -- method CellRenderer::set_alignment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1375,10 +1507,10 @@ cellRendererSetAlignment :: (MonadIO m, CellRendererK a) => - a -> -- _obj - Float -> -- xalign - Float -> -- yalign - m () + a -- _obj + -> Float -- xalign + -> Float -- yalign + -> m () -- result cellRendererSetAlignment _obj xalign yalign = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let xalign' = realToFrac xalign @@ -1387,11 +1519,14 @@ touchManagedPtr _obj return () +data CellRendererSetAlignmentMethodInfo +instance (signature ~ (Float -> Float -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetAlignmentMethodInfo a signature where + overloadedMethod _ = cellRendererSetAlignment + -- method CellRenderer::set_fixed_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1405,21 +1540,24 @@ cellRendererSetFixedSize :: (MonadIO m, CellRendererK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () + a -- _obj + -> Int32 -- width + -> Int32 -- height + -> m () -- result cellRendererSetFixedSize _obj width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_cell_renderer_set_fixed_size _obj' width height touchManagedPtr _obj return () +data CellRendererSetFixedSizeMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetFixedSizeMethodInfo a signature where + overloadedMethod _ = cellRendererSetFixedSize + -- method CellRenderer::set_padding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1433,21 +1571,24 @@ cellRendererSetPadding :: (MonadIO m, CellRendererK a) => - a -> -- _obj - Int32 -> -- xpad - Int32 -> -- ypad - m () + a -- _obj + -> Int32 -- xpad + -> Int32 -- ypad + -> m () -- result cellRendererSetPadding _obj xpad ypad = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_cell_renderer_set_padding _obj' xpad ypad touchManagedPtr _obj return () +data CellRendererSetPaddingMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetPaddingMethodInfo a signature where + overloadedMethod _ = cellRendererSetPadding + -- method CellRenderer::set_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1460,9 +1601,9 @@ cellRendererSetSensitive :: (MonadIO m, CellRendererK a) => - a -> -- _obj - Bool -> -- sensitive - m () + a -- _obj + -> Bool -- sensitive + -> m () -- result cellRendererSetSensitive _obj sensitive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sensitive' = (fromIntegral . fromEnum) sensitive @@ -1470,11 +1611,14 @@ touchManagedPtr _obj return () +data CellRendererSetSensitiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetSensitiveMethodInfo a signature where + overloadedMethod _ = cellRendererSetSensitive + -- method CellRenderer::set_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1487,9 +1631,9 @@ cellRendererSetVisible :: (MonadIO m, CellRendererK a) => - a -> -- _obj - Bool -> -- visible - m () + a -- _obj + -> Bool -- visible + -> m () -- result cellRendererSetVisible _obj visible = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let visible' = (fromIntegral . fromEnum) visible @@ -1497,11 +1641,14 @@ touchManagedPtr _obj return () +data CellRendererSetVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererSetVisibleMethodInfo a signature where + overloadedMethod _ = cellRendererSetVisible + -- method CellRenderer::start_editing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellEditable" -- throws : False -- Skip return : False @@ -1519,38 +1666,41 @@ cellRendererStartEditing :: (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - Gdk.Event -> -- event - b -> -- widget - T.Text -> -- path - Gdk.Rectangle -> -- background_area - Gdk.Rectangle -> -- cell_area - [CellRendererState] -> -- flags - m CellEditable -cellRendererStartEditing _obj event widget path background_area cell_area flags = liftIO $ do + a -- _obj + -> Gdk.Event -- event + -> b -- widget + -> T.Text -- path + -> Gdk.Rectangle -- backgroundArea + -> Gdk.Rectangle -- cellArea + -> [CellRendererState] -- flags + -> m CellEditable -- result +cellRendererStartEditing _obj event widget path backgroundArea cellArea flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let event' = unsafeManagedPtrGetPtr event let widget' = unsafeManagedPtrCastPtr widget path' <- textToCString path - let background_area' = unsafeManagedPtrGetPtr background_area - let cell_area' = unsafeManagedPtrGetPtr cell_area + let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea + let cellArea' = unsafeManagedPtrGetPtr cellArea let flags' = gflagsToWord flags - result <- gtk_cell_renderer_start_editing _obj' event' widget' path' background_area' cell_area' flags' + result <- gtk_cell_renderer_start_editing _obj' event' widget' path' backgroundArea' cellArea' flags' checkUnexpectedReturnNULL "gtk_cell_renderer_start_editing" result result' <- (newObject CellEditable) result touchManagedPtr _obj touchManagedPtr event touchManagedPtr widget - touchManagedPtr background_area - touchManagedPtr cell_area + touchManagedPtr backgroundArea + touchManagedPtr cellArea freeMem path' return result' +data CellRendererStartEditingMethodInfo +instance (signature ~ (Gdk.Event -> b -> T.Text -> Gdk.Rectangle -> Gdk.Rectangle -> [CellRendererState] -> m CellEditable), MonadIO m, CellRendererK a, WidgetK b) => MethodInfo CellRendererStartEditingMethodInfo a signature where + overloadedMethod _ = cellRendererStartEditing + -- method CellRenderer::stop_editing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1563,14 +1713,18 @@ cellRendererStopEditing :: (MonadIO m, CellRendererK a) => - a -> -- _obj - Bool -> -- canceled - m () + a -- _obj + -> Bool -- canceled + -> m () -- result cellRendererStopEditing _obj canceled = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let canceled' = (fromIntegral . fromEnum) canceled gtk_cell_renderer_stop_editing _obj' canceled' touchManagedPtr _obj return () + +data CellRendererStopEditingMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererK a) => MethodInfo CellRendererStopEditingMethodInfo a signature where + overloadedMethod _ = cellRendererStopEditing diff --git a/GI/Gtk/Objects/CellRenderer.hs-boot b/GI/Gtk/Objects/CellRenderer.hs-boot --- a/GI/Gtk/Objects/CellRenderer.hs-boot +++ b/GI/Gtk/Objects/CellRenderer.hs-boot @@ -29,3 +29,27 @@ data CellRendererYpadPropertyInfo data CellRendererEditingCanceledSignalInfo data CellRendererEditingStartedSignalInfo +data CellRendererActivateMethodInfo +data CellRendererGetAlignedAreaMethodInfo +data CellRendererGetAlignmentMethodInfo +data CellRendererGetFixedSizeMethodInfo +data CellRendererGetPaddingMethodInfo +data CellRendererGetPreferredHeightMethodInfo +data CellRendererGetPreferredHeightForWidthMethodInfo +data CellRendererGetPreferredSizeMethodInfo +data CellRendererGetPreferredWidthMethodInfo +data CellRendererGetPreferredWidthForHeightMethodInfo +data CellRendererGetRequestModeMethodInfo +data CellRendererGetSensitiveMethodInfo +data CellRendererGetSizeMethodInfo +data CellRendererGetStateMethodInfo +data CellRendererGetVisibleMethodInfo +data CellRendererIsActivatableMethodInfo +data CellRendererRenderMethodInfo +data CellRendererSetAlignmentMethodInfo +data CellRendererSetFixedSizeMethodInfo +data CellRendererSetPaddingMethodInfo +data CellRendererSetSensitiveMethodInfo +data CellRendererSetVisibleMethodInfo +data CellRendererStartEditingMethodInfo +data CellRendererStopEditingMethodInfo diff --git a/GI/Gtk/Objects/CellRendererAccel.hs b/GI/Gtk/Objects/CellRendererAccel.hs --- a/GI/Gtk/Objects/CellRendererAccel.hs +++ b/GI/Gtk/Objects/CellRendererAccel.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -115,6 +116,64 @@ noCellRendererAccel :: Maybe CellRendererAccel noCellRendererAccel = Nothing +type family ResolveCellRendererAccelMethod (t :: Symbol) (o :: *) :: * where + ResolveCellRendererAccelMethod "activate" o = CellRendererActivateMethodInfo + ResolveCellRendererAccelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellRendererAccelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellRendererAccelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellRendererAccelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellRendererAccelMethod "isActivatable" o = CellRendererIsActivatableMethodInfo + ResolveCellRendererAccelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellRendererAccelMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellRendererAccelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellRendererAccelMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellRendererAccelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellRendererAccelMethod "render" o = CellRendererRenderMethodInfo + ResolveCellRendererAccelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellRendererAccelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellRendererAccelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellRendererAccelMethod "startEditing" o = CellRendererStartEditingMethodInfo + ResolveCellRendererAccelMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellRendererAccelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellRendererAccelMethod "stopEditing" o = CellRendererStopEditingMethodInfo + ResolveCellRendererAccelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellRendererAccelMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellRendererAccelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellRendererAccelMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo + ResolveCellRendererAccelMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo + ResolveCellRendererAccelMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellRendererAccelMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo + ResolveCellRendererAccelMethod "getPadding" o = CellRendererGetPaddingMethodInfo + ResolveCellRendererAccelMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo + ResolveCellRendererAccelMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo + ResolveCellRendererAccelMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo + ResolveCellRendererAccelMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo + ResolveCellRendererAccelMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo + ResolveCellRendererAccelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellRendererAccelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellRendererAccelMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo + ResolveCellRendererAccelMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo + ResolveCellRendererAccelMethod "getSize" o = CellRendererGetSizeMethodInfo + ResolveCellRendererAccelMethod "getState" o = CellRendererGetStateMethodInfo + ResolveCellRendererAccelMethod "getVisible" o = CellRendererGetVisibleMethodInfo + ResolveCellRendererAccelMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo + ResolveCellRendererAccelMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellRendererAccelMethod "setFixedHeightFromFont" o = CellRendererTextSetFixedHeightFromFontMethodInfo + ResolveCellRendererAccelMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo + ResolveCellRendererAccelMethod "setPadding" o = CellRendererSetPaddingMethodInfo + ResolveCellRendererAccelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellRendererAccelMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo + ResolveCellRendererAccelMethod "setVisible" o = CellRendererSetVisibleMethodInfo + ResolveCellRendererAccelMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellRendererAccelMethod t CellRendererAccel, MethodInfo info CellRendererAccel p) => IsLabelProxy t (CellRendererAccel -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellRendererAccelMethod t CellRendererAccel, MethodInfo info CellRendererAccel p) => IsLabel t (CellRendererAccel -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal CellRendererAccel::accel-cleared type CellRendererAccelAccelClearedCallback = T.Text -> @@ -142,9 +201,9 @@ CString -> Ptr () -> IO () -cellRendererAccelAccelClearedCallbackWrapper _cb _ path_string _ = do - path_string' <- cstringToText path_string - _cb path_string' +cellRendererAccelAccelClearedCallbackWrapper _cb _ pathString _ = do + pathString' <- cstringToText pathString + _cb pathString' onCellRendererAccelAccelCleared :: (GObject a, MonadIO m) => a -> CellRendererAccelAccelClearedCallback -> m SignalHandlerId onCellRendererAccelAccelCleared obj cb = liftIO $ connectCellRendererAccelAccelCleared obj cb SignalConnectBefore @@ -193,10 +252,10 @@ Word32 -> Ptr () -> IO () -cellRendererAccelAccelEditedCallbackWrapper _cb _ path_string accel_key accel_mods hardware_keycode _ = do - path_string' <- cstringToText path_string - let accel_mods' = wordToGFlags accel_mods - _cb path_string' accel_key accel_mods' hardware_keycode +cellRendererAccelAccelEditedCallbackWrapper _cb _ pathString accelKey accelMods hardwareKeycode _ = do + pathString' <- cstringToText pathString + let accelMods' = wordToGFlags accelMods + _cb pathString' accelKey accelMods' hardwareKeycode onCellRendererAccelAccelEdited :: (GObject a, MonadIO m) => a -> CellRendererAccelAccelEditedCallback -> m SignalHandlerId onCellRendererAccelAccelEdited obj cb = liftIO $ connectCellRendererAccelAccelEdited obj cb SignalConnectBefore @@ -228,7 +287,7 @@ type AttrSetTypeConstraint CellRendererAccelAccelKeyPropertyInfo = (~) Word32 type AttrBaseTypeConstraint CellRendererAccelAccelKeyPropertyInfo = CellRendererAccelK type AttrGetType CellRendererAccelAccelKeyPropertyInfo = Word32 - type AttrLabel CellRendererAccelAccelKeyPropertyInfo = "CellRendererAccel::accel-key" + type AttrLabel CellRendererAccelAccelKeyPropertyInfo = "accel-key" attrGet _ = getCellRendererAccelAccelKey attrSet _ = setCellRendererAccelAccelKey attrConstruct _ = constructCellRendererAccelAccelKey @@ -252,7 +311,7 @@ type AttrSetTypeConstraint CellRendererAccelAccelModePropertyInfo = (~) CellRendererAccelMode type AttrBaseTypeConstraint CellRendererAccelAccelModePropertyInfo = CellRendererAccelK type AttrGetType CellRendererAccelAccelModePropertyInfo = CellRendererAccelMode - type AttrLabel CellRendererAccelAccelModePropertyInfo = "CellRendererAccel::accel-mode" + type AttrLabel CellRendererAccelAccelModePropertyInfo = "accel-mode" attrGet _ = getCellRendererAccelAccelMode attrSet _ = setCellRendererAccelAccelMode attrConstruct _ = constructCellRendererAccelAccelMode @@ -276,7 +335,7 @@ type AttrSetTypeConstraint CellRendererAccelAccelModsPropertyInfo = (~) [Gdk.ModifierType] type AttrBaseTypeConstraint CellRendererAccelAccelModsPropertyInfo = CellRendererAccelK type AttrGetType CellRendererAccelAccelModsPropertyInfo = [Gdk.ModifierType] - type AttrLabel CellRendererAccelAccelModsPropertyInfo = "CellRendererAccel::accel-mods" + type AttrLabel CellRendererAccelAccelModsPropertyInfo = "accel-mods" attrGet _ = getCellRendererAccelAccelMods attrSet _ = setCellRendererAccelAccelMods attrConstruct _ = constructCellRendererAccelAccelMods @@ -300,13 +359,13 @@ type AttrSetTypeConstraint CellRendererAccelKeycodePropertyInfo = (~) Word32 type AttrBaseTypeConstraint CellRendererAccelKeycodePropertyInfo = CellRendererAccelK type AttrGetType CellRendererAccelKeycodePropertyInfo = Word32 - type AttrLabel CellRendererAccelKeycodePropertyInfo = "CellRendererAccel::keycode" + type AttrLabel CellRendererAccelKeycodePropertyInfo = "keycode" attrGet _ = getCellRendererAccelKeycode attrSet _ = setCellRendererAccelKeycode attrConstruct _ = constructCellRendererAccelKeycode type instance AttributeList CellRendererAccel = CellRendererAccelAttributeList -type CellRendererAccelAttributeList = ('[ '("accel-key", CellRendererAccelAccelKeyPropertyInfo), '("accel-mode", CellRendererAccelAccelModePropertyInfo), '("accel-mods", CellRendererAccelAccelModsPropertyInfo), '("align-set", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("background-gdk", CellRendererTextBackgroundGdkPropertyInfo), '("background-rgba", CellRendererTextBackgroundRgbaPropertyInfo), '("background-set", CellRendererTextBackgroundSetPropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editable-set", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsize-set", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("family-set", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("font-desc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foreground-gdk", CellRendererTextForegroundGdkPropertyInfo), '("foreground-rgba", CellRendererTextForegroundRgbaPropertyInfo), '("foreground-set", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("keycode", CellRendererAccelKeycodePropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("language-set", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("max-width-chars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholder-text", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("rise-set", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scale-set", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("single-paragraph-mode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("size-points", CellRendererTextSizePointsPropertyInfo), '("size-set", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretch-set", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethrough-set", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("style-set", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underline-set", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variant-set", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weight-set", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("width-chars", CellRendererTextWidthCharsPropertyInfo), '("wrap-mode", CellRendererTextWrapModePropertyInfo), '("wrap-width", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +type CellRendererAccelAttributeList = ('[ '("accelKey", CellRendererAccelAccelKeyPropertyInfo), '("accelMode", CellRendererAccelAccelModePropertyInfo), '("accelMods", CellRendererAccelAccelModsPropertyInfo), '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("keycode", CellRendererAccelKeycodePropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) data CellRendererAccelAccelClearedSignalInfo instance SignalInfo CellRendererAccelAccelClearedSignalInfo where @@ -319,13 +378,12 @@ connectSignal _ = connectCellRendererAccelAccelEdited type instance SignalList CellRendererAccel = CellRendererAccelSignalList -type CellRendererAccelSignalList = ('[ '("accel-cleared", CellRendererAccelAccelClearedSignalInfo), '("accel-edited", CellRendererAccelAccelEditedSignalInfo), '("edited", CellRendererTextEditedSignalInfo), '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellRendererAccelSignalList = ('[ '("accelCleared", CellRendererAccelAccelClearedSignalInfo), '("accelEdited", CellRendererAccelAccelEditedSignalInfo), '("edited", CellRendererTextEditedSignalInfo), '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method CellRendererAccel::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CellRendererAccel" -- throws : False -- Skip return : False @@ -336,7 +394,7 @@ cellRendererAccelNew :: (MonadIO m) => - m CellRendererAccel + m CellRendererAccel -- result cellRendererAccelNew = liftIO $ do result <- gtk_cell_renderer_accel_new checkUnexpectedReturnNULL "gtk_cell_renderer_accel_new" result diff --git a/GI/Gtk/Objects/CellRendererCombo.hs b/GI/Gtk/Objects/CellRendererCombo.hs --- a/GI/Gtk/Objects/CellRendererCombo.hs +++ b/GI/Gtk/Objects/CellRendererCombo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -95,6 +96,64 @@ noCellRendererCombo :: Maybe CellRendererCombo noCellRendererCombo = Nothing +type family ResolveCellRendererComboMethod (t :: Symbol) (o :: *) :: * where + ResolveCellRendererComboMethod "activate" o = CellRendererActivateMethodInfo + ResolveCellRendererComboMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellRendererComboMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellRendererComboMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellRendererComboMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellRendererComboMethod "isActivatable" o = CellRendererIsActivatableMethodInfo + ResolveCellRendererComboMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellRendererComboMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellRendererComboMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellRendererComboMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellRendererComboMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellRendererComboMethod "render" o = CellRendererRenderMethodInfo + ResolveCellRendererComboMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellRendererComboMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellRendererComboMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellRendererComboMethod "startEditing" o = CellRendererStartEditingMethodInfo + ResolveCellRendererComboMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellRendererComboMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellRendererComboMethod "stopEditing" o = CellRendererStopEditingMethodInfo + ResolveCellRendererComboMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellRendererComboMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellRendererComboMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellRendererComboMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo + ResolveCellRendererComboMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo + ResolveCellRendererComboMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellRendererComboMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo + ResolveCellRendererComboMethod "getPadding" o = CellRendererGetPaddingMethodInfo + ResolveCellRendererComboMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo + ResolveCellRendererComboMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo + ResolveCellRendererComboMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo + ResolveCellRendererComboMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo + ResolveCellRendererComboMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo + ResolveCellRendererComboMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellRendererComboMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellRendererComboMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo + ResolveCellRendererComboMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo + ResolveCellRendererComboMethod "getSize" o = CellRendererGetSizeMethodInfo + ResolveCellRendererComboMethod "getState" o = CellRendererGetStateMethodInfo + ResolveCellRendererComboMethod "getVisible" o = CellRendererGetVisibleMethodInfo + ResolveCellRendererComboMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo + ResolveCellRendererComboMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellRendererComboMethod "setFixedHeightFromFont" o = CellRendererTextSetFixedHeightFromFontMethodInfo + ResolveCellRendererComboMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo + ResolveCellRendererComboMethod "setPadding" o = CellRendererSetPaddingMethodInfo + ResolveCellRendererComboMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellRendererComboMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo + ResolveCellRendererComboMethod "setVisible" o = CellRendererSetVisibleMethodInfo + ResolveCellRendererComboMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellRendererComboMethod t CellRendererCombo, MethodInfo info CellRendererCombo p) => IsLabelProxy t (CellRendererCombo -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellRendererComboMethod t CellRendererCombo, MethodInfo info CellRendererCombo p) => IsLabel t (CellRendererCombo -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal CellRendererCombo::changed type CellRendererComboChangedCallback = T.Text -> @@ -125,10 +184,10 @@ Ptr TreeIter -> Ptr () -> IO () -cellRendererComboChangedCallbackWrapper _cb _ path_string new_iter _ = do - path_string' <- cstringToText path_string - new_iter' <- (newBoxed TreeIter) new_iter - _cb path_string' new_iter' +cellRendererComboChangedCallbackWrapper _cb _ pathString newIter _ = do + pathString' <- cstringToText pathString + newIter' <- (newBoxed TreeIter) newIter + _cb pathString' newIter' onCellRendererComboChanged :: (GObject a, MonadIO m) => a -> CellRendererComboChangedCallback -> m SignalHandlerId onCellRendererComboChanged obj cb = liftIO $ connectCellRendererComboChanged obj cb SignalConnectBefore @@ -160,7 +219,7 @@ type AttrSetTypeConstraint CellRendererComboHasEntryPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererComboHasEntryPropertyInfo = CellRendererComboK type AttrGetType CellRendererComboHasEntryPropertyInfo = Bool - type AttrLabel CellRendererComboHasEntryPropertyInfo = "CellRendererCombo::has-entry" + type AttrLabel CellRendererComboHasEntryPropertyInfo = "has-entry" attrGet _ = getCellRendererComboHasEntry attrSet _ = setCellRendererComboHasEntry attrConstruct _ = constructCellRendererComboHasEntry @@ -184,7 +243,7 @@ type AttrSetTypeConstraint CellRendererComboModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint CellRendererComboModelPropertyInfo = CellRendererComboK type AttrGetType CellRendererComboModelPropertyInfo = TreeModel - type AttrLabel CellRendererComboModelPropertyInfo = "CellRendererCombo::model" + type AttrLabel CellRendererComboModelPropertyInfo = "model" attrGet _ = getCellRendererComboModel attrSet _ = setCellRendererComboModel attrConstruct _ = constructCellRendererComboModel @@ -208,13 +267,13 @@ type AttrSetTypeConstraint CellRendererComboTextColumnPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellRendererComboTextColumnPropertyInfo = CellRendererComboK type AttrGetType CellRendererComboTextColumnPropertyInfo = Int32 - type AttrLabel CellRendererComboTextColumnPropertyInfo = "CellRendererCombo::text-column" + type AttrLabel CellRendererComboTextColumnPropertyInfo = "text-column" attrGet _ = getCellRendererComboTextColumn attrSet _ = setCellRendererComboTextColumn attrConstruct _ = constructCellRendererComboTextColumn type instance AttributeList CellRendererCombo = CellRendererComboAttributeList -type CellRendererComboAttributeList = ('[ '("align-set", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("background-gdk", CellRendererTextBackgroundGdkPropertyInfo), '("background-rgba", CellRendererTextBackgroundRgbaPropertyInfo), '("background-set", CellRendererTextBackgroundSetPropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editable-set", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsize-set", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("family-set", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("font-desc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foreground-gdk", CellRendererTextForegroundGdkPropertyInfo), '("foreground-rgba", CellRendererTextForegroundRgbaPropertyInfo), '("foreground-set", CellRendererTextForegroundSetPropertyInfo), '("has-entry", CellRendererComboHasEntryPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("language-set", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("max-width-chars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("model", CellRendererComboModelPropertyInfo), '("placeholder-text", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("rise-set", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scale-set", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("single-paragraph-mode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("size-points", CellRendererTextSizePointsPropertyInfo), '("size-set", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretch-set", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethrough-set", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("style-set", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("text-column", CellRendererComboTextColumnPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underline-set", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variant-set", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weight-set", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("width-chars", CellRendererTextWidthCharsPropertyInfo), '("wrap-mode", CellRendererTextWrapModePropertyInfo), '("wrap-width", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +type CellRendererComboAttributeList = ('[ '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("hasEntry", CellRendererComboHasEntryPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("model", CellRendererComboModelPropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("textColumn", CellRendererComboTextColumnPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) data CellRendererComboChangedSignalInfo instance SignalInfo CellRendererComboChangedSignalInfo where @@ -222,13 +281,12 @@ connectSignal _ = connectCellRendererComboChanged type instance SignalList CellRendererCombo = CellRendererComboSignalList -type CellRendererComboSignalList = ('[ '("changed", CellRendererComboChangedSignalInfo), '("edited", CellRendererTextEditedSignalInfo), '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellRendererComboSignalList = ('[ '("changed", CellRendererComboChangedSignalInfo), '("edited", CellRendererTextEditedSignalInfo), '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method CellRendererCombo::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CellRendererCombo" -- throws : False -- Skip return : False @@ -239,7 +297,7 @@ cellRendererComboNew :: (MonadIO m) => - m CellRendererCombo + m CellRendererCombo -- result cellRendererComboNew = liftIO $ do result <- gtk_cell_renderer_combo_new checkUnexpectedReturnNULL "gtk_cell_renderer_combo_new" result diff --git a/GI/Gtk/Objects/CellRendererPixbuf.hs b/GI/Gtk/Objects/CellRendererPixbuf.hs --- a/GI/Gtk/Objects/CellRendererPixbuf.hs +++ b/GI/Gtk/Objects/CellRendererPixbuf.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -132,6 +133,63 @@ noCellRendererPixbuf :: Maybe CellRendererPixbuf noCellRendererPixbuf = Nothing +type family ResolveCellRendererPixbufMethod (t :: Symbol) (o :: *) :: * where + ResolveCellRendererPixbufMethod "activate" o = CellRendererActivateMethodInfo + ResolveCellRendererPixbufMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellRendererPixbufMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellRendererPixbufMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellRendererPixbufMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellRendererPixbufMethod "isActivatable" o = CellRendererIsActivatableMethodInfo + ResolveCellRendererPixbufMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellRendererPixbufMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellRendererPixbufMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellRendererPixbufMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellRendererPixbufMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellRendererPixbufMethod "render" o = CellRendererRenderMethodInfo + ResolveCellRendererPixbufMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellRendererPixbufMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellRendererPixbufMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellRendererPixbufMethod "startEditing" o = CellRendererStartEditingMethodInfo + ResolveCellRendererPixbufMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellRendererPixbufMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellRendererPixbufMethod "stopEditing" o = CellRendererStopEditingMethodInfo + ResolveCellRendererPixbufMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellRendererPixbufMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellRendererPixbufMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellRendererPixbufMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo + ResolveCellRendererPixbufMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo + ResolveCellRendererPixbufMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellRendererPixbufMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo + ResolveCellRendererPixbufMethod "getPadding" o = CellRendererGetPaddingMethodInfo + ResolveCellRendererPixbufMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo + ResolveCellRendererPixbufMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo + ResolveCellRendererPixbufMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo + ResolveCellRendererPixbufMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo + ResolveCellRendererPixbufMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo + ResolveCellRendererPixbufMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellRendererPixbufMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellRendererPixbufMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo + ResolveCellRendererPixbufMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo + ResolveCellRendererPixbufMethod "getSize" o = CellRendererGetSizeMethodInfo + ResolveCellRendererPixbufMethod "getState" o = CellRendererGetStateMethodInfo + ResolveCellRendererPixbufMethod "getVisible" o = CellRendererGetVisibleMethodInfo + ResolveCellRendererPixbufMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo + ResolveCellRendererPixbufMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellRendererPixbufMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo + ResolveCellRendererPixbufMethod "setPadding" o = CellRendererSetPaddingMethodInfo + ResolveCellRendererPixbufMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellRendererPixbufMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo + ResolveCellRendererPixbufMethod "setVisible" o = CellRendererSetVisibleMethodInfo + ResolveCellRendererPixbufMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellRendererPixbufMethod t CellRendererPixbuf, MethodInfo info CellRendererPixbuf p) => IsLabelProxy t (CellRendererPixbuf -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellRendererPixbufMethod t CellRendererPixbuf, MethodInfo info CellRendererPixbuf p) => IsLabel t (CellRendererPixbuf -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "follow-state" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -151,7 +209,7 @@ type AttrSetTypeConstraint CellRendererPixbufFollowStatePropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererPixbufFollowStatePropertyInfo = CellRendererPixbufK type AttrGetType CellRendererPixbufFollowStatePropertyInfo = Bool - type AttrLabel CellRendererPixbufFollowStatePropertyInfo = "CellRendererPixbuf::follow-state" + type AttrLabel CellRendererPixbufFollowStatePropertyInfo = "follow-state" attrGet _ = getCellRendererPixbufFollowState attrSet _ = setCellRendererPixbufFollowState attrConstruct _ = constructCellRendererPixbufFollowState @@ -175,7 +233,7 @@ type AttrSetTypeConstraint CellRendererPixbufGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint CellRendererPixbufGiconPropertyInfo = CellRendererPixbufK type AttrGetType CellRendererPixbufGiconPropertyInfo = Gio.Icon - type AttrLabel CellRendererPixbufGiconPropertyInfo = "CellRendererPixbuf::gicon" + type AttrLabel CellRendererPixbufGiconPropertyInfo = "gicon" attrGet _ = getCellRendererPixbufGicon attrSet _ = setCellRendererPixbufGicon attrConstruct _ = constructCellRendererPixbufGicon @@ -199,7 +257,7 @@ type AttrSetTypeConstraint CellRendererPixbufIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererPixbufIconNamePropertyInfo = CellRendererPixbufK type AttrGetType CellRendererPixbufIconNamePropertyInfo = T.Text - type AttrLabel CellRendererPixbufIconNamePropertyInfo = "CellRendererPixbuf::icon-name" + type AttrLabel CellRendererPixbufIconNamePropertyInfo = "icon-name" attrGet _ = getCellRendererPixbufIconName attrSet _ = setCellRendererPixbufIconName attrConstruct _ = constructCellRendererPixbufIconName @@ -223,7 +281,7 @@ type AttrSetTypeConstraint CellRendererPixbufPixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint CellRendererPixbufPixbufPropertyInfo = CellRendererPixbufK type AttrGetType CellRendererPixbufPixbufPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel CellRendererPixbufPixbufPropertyInfo = "CellRendererPixbuf::pixbuf" + type AttrLabel CellRendererPixbufPixbufPropertyInfo = "pixbuf" attrGet _ = getCellRendererPixbufPixbuf attrSet _ = setCellRendererPixbufPixbuf attrConstruct _ = constructCellRendererPixbufPixbuf @@ -247,7 +305,7 @@ type AttrSetTypeConstraint CellRendererPixbufPixbufExpanderClosedPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint CellRendererPixbufPixbufExpanderClosedPropertyInfo = CellRendererPixbufK type AttrGetType CellRendererPixbufPixbufExpanderClosedPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel CellRendererPixbufPixbufExpanderClosedPropertyInfo = "CellRendererPixbuf::pixbuf-expander-closed" + type AttrLabel CellRendererPixbufPixbufExpanderClosedPropertyInfo = "pixbuf-expander-closed" attrGet _ = getCellRendererPixbufPixbufExpanderClosed attrSet _ = setCellRendererPixbufPixbufExpanderClosed attrConstruct _ = constructCellRendererPixbufPixbufExpanderClosed @@ -271,7 +329,7 @@ type AttrSetTypeConstraint CellRendererPixbufPixbufExpanderOpenPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint CellRendererPixbufPixbufExpanderOpenPropertyInfo = CellRendererPixbufK type AttrGetType CellRendererPixbufPixbufExpanderOpenPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel CellRendererPixbufPixbufExpanderOpenPropertyInfo = "CellRendererPixbuf::pixbuf-expander-open" + type AttrLabel CellRendererPixbufPixbufExpanderOpenPropertyInfo = "pixbuf-expander-open" attrGet _ = getCellRendererPixbufPixbufExpanderOpen attrSet _ = setCellRendererPixbufPixbufExpanderOpen attrConstruct _ = constructCellRendererPixbufPixbufExpanderOpen @@ -295,7 +353,7 @@ type AttrSetTypeConstraint CellRendererPixbufStockDetailPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererPixbufStockDetailPropertyInfo = CellRendererPixbufK type AttrGetType CellRendererPixbufStockDetailPropertyInfo = T.Text - type AttrLabel CellRendererPixbufStockDetailPropertyInfo = "CellRendererPixbuf::stock-detail" + type AttrLabel CellRendererPixbufStockDetailPropertyInfo = "stock-detail" attrGet _ = getCellRendererPixbufStockDetail attrSet _ = setCellRendererPixbufStockDetail attrConstruct _ = constructCellRendererPixbufStockDetail @@ -319,7 +377,7 @@ type AttrSetTypeConstraint CellRendererPixbufStockIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererPixbufStockIdPropertyInfo = CellRendererPixbufK type AttrGetType CellRendererPixbufStockIdPropertyInfo = T.Text - type AttrLabel CellRendererPixbufStockIdPropertyInfo = "CellRendererPixbuf::stock-id" + type AttrLabel CellRendererPixbufStockIdPropertyInfo = "stock-id" attrGet _ = getCellRendererPixbufStockId attrSet _ = setCellRendererPixbufStockId attrConstruct _ = constructCellRendererPixbufStockId @@ -343,7 +401,7 @@ type AttrSetTypeConstraint CellRendererPixbufStockSizePropertyInfo = (~) Word32 type AttrBaseTypeConstraint CellRendererPixbufStockSizePropertyInfo = CellRendererPixbufK type AttrGetType CellRendererPixbufStockSizePropertyInfo = Word32 - type AttrLabel CellRendererPixbufStockSizePropertyInfo = "CellRendererPixbuf::stock-size" + type AttrLabel CellRendererPixbufStockSizePropertyInfo = "stock-size" attrGet _ = getCellRendererPixbufStockSize attrSet _ = setCellRendererPixbufStockSize attrConstruct _ = constructCellRendererPixbufStockSize @@ -367,22 +425,21 @@ type AttrSetTypeConstraint CellRendererPixbufSurfacePropertyInfo = (~) Cairo.Surface type AttrBaseTypeConstraint CellRendererPixbufSurfacePropertyInfo = CellRendererPixbufK type AttrGetType CellRendererPixbufSurfacePropertyInfo = Cairo.Surface - type AttrLabel CellRendererPixbufSurfacePropertyInfo = "CellRendererPixbuf::surface" + type AttrLabel CellRendererPixbufSurfacePropertyInfo = "surface" attrGet _ = getCellRendererPixbufSurface attrSet _ = setCellRendererPixbufSurface attrConstruct _ = constructCellRendererPixbufSurface type instance AttributeList CellRendererPixbuf = CellRendererPixbufAttributeList -type CellRendererPixbufAttributeList = ('[ '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("follow-state", CellRendererPixbufFollowStatePropertyInfo), '("gicon", CellRendererPixbufGiconPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("icon-name", CellRendererPixbufIconNamePropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pixbuf", CellRendererPixbufPixbufPropertyInfo), '("pixbuf-expander-closed", CellRendererPixbufPixbufExpanderClosedPropertyInfo), '("pixbuf-expander-open", CellRendererPixbufPixbufExpanderOpenPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("stock-detail", CellRendererPixbufStockDetailPropertyInfo), '("stock-id", CellRendererPixbufStockIdPropertyInfo), '("stock-size", CellRendererPixbufStockSizePropertyInfo), '("surface", CellRendererPixbufSurfacePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +type CellRendererPixbufAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("followState", CellRendererPixbufFollowStatePropertyInfo), '("gicon", CellRendererPixbufGiconPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("iconName", CellRendererPixbufIconNamePropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pixbuf", CellRendererPixbufPixbufPropertyInfo), '("pixbufExpanderClosed", CellRendererPixbufPixbufExpanderClosedPropertyInfo), '("pixbufExpanderOpen", CellRendererPixbufPixbufExpanderOpenPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("stockDetail", CellRendererPixbufStockDetailPropertyInfo), '("stockId", CellRendererPixbufStockIdPropertyInfo), '("stockSize", CellRendererPixbufStockSizePropertyInfo), '("surface", CellRendererPixbufSurfacePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) type instance SignalList CellRendererPixbuf = CellRendererPixbufSignalList -type CellRendererPixbufSignalList = ('[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellRendererPixbufSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method CellRendererPixbuf::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CellRendererPixbuf" -- throws : False -- Skip return : False @@ -393,7 +450,7 @@ cellRendererPixbufNew :: (MonadIO m) => - m CellRendererPixbuf + m CellRendererPixbuf -- result cellRendererPixbufNew = liftIO $ do result <- gtk_cell_renderer_pixbuf_new checkUnexpectedReturnNULL "gtk_cell_renderer_pixbuf_new" result diff --git a/GI/Gtk/Objects/CellRendererProgress.hs b/GI/Gtk/Objects/CellRendererProgress.hs --- a/GI/Gtk/Objects/CellRendererProgress.hs +++ b/GI/Gtk/Objects/CellRendererProgress.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -101,6 +102,65 @@ noCellRendererProgress :: Maybe CellRendererProgress noCellRendererProgress = Nothing +type family ResolveCellRendererProgressMethod (t :: Symbol) (o :: *) :: * where + ResolveCellRendererProgressMethod "activate" o = CellRendererActivateMethodInfo + ResolveCellRendererProgressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellRendererProgressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellRendererProgressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellRendererProgressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellRendererProgressMethod "isActivatable" o = CellRendererIsActivatableMethodInfo + ResolveCellRendererProgressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellRendererProgressMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellRendererProgressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellRendererProgressMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellRendererProgressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellRendererProgressMethod "render" o = CellRendererRenderMethodInfo + ResolveCellRendererProgressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellRendererProgressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellRendererProgressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellRendererProgressMethod "startEditing" o = CellRendererStartEditingMethodInfo + ResolveCellRendererProgressMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellRendererProgressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellRendererProgressMethod "stopEditing" o = CellRendererStopEditingMethodInfo + ResolveCellRendererProgressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellRendererProgressMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellRendererProgressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellRendererProgressMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo + ResolveCellRendererProgressMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo + ResolveCellRendererProgressMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellRendererProgressMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo + ResolveCellRendererProgressMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveCellRendererProgressMethod "getPadding" o = CellRendererGetPaddingMethodInfo + ResolveCellRendererProgressMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo + ResolveCellRendererProgressMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo + ResolveCellRendererProgressMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo + ResolveCellRendererProgressMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo + ResolveCellRendererProgressMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo + ResolveCellRendererProgressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellRendererProgressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellRendererProgressMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo + ResolveCellRendererProgressMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo + ResolveCellRendererProgressMethod "getSize" o = CellRendererGetSizeMethodInfo + ResolveCellRendererProgressMethod "getState" o = CellRendererGetStateMethodInfo + ResolveCellRendererProgressMethod "getVisible" o = CellRendererGetVisibleMethodInfo + ResolveCellRendererProgressMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo + ResolveCellRendererProgressMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellRendererProgressMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo + ResolveCellRendererProgressMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveCellRendererProgressMethod "setPadding" o = CellRendererSetPaddingMethodInfo + ResolveCellRendererProgressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellRendererProgressMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo + ResolveCellRendererProgressMethod "setVisible" o = CellRendererSetVisibleMethodInfo + ResolveCellRendererProgressMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellRendererProgressMethod t CellRendererProgress, MethodInfo info CellRendererProgress p) => IsLabelProxy t (CellRendererProgress -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellRendererProgressMethod t CellRendererProgress, MethodInfo info CellRendererProgress p) => IsLabel t (CellRendererProgress -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "inverted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -120,7 +180,7 @@ type AttrSetTypeConstraint CellRendererProgressInvertedPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererProgressInvertedPropertyInfo = CellRendererProgressK type AttrGetType CellRendererProgressInvertedPropertyInfo = Bool - type AttrLabel CellRendererProgressInvertedPropertyInfo = "CellRendererProgress::inverted" + type AttrLabel CellRendererProgressInvertedPropertyInfo = "inverted" attrGet _ = getCellRendererProgressInverted attrSet _ = setCellRendererProgressInverted attrConstruct _ = constructCellRendererProgressInverted @@ -144,7 +204,7 @@ type AttrSetTypeConstraint CellRendererProgressPulsePropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellRendererProgressPulsePropertyInfo = CellRendererProgressK type AttrGetType CellRendererProgressPulsePropertyInfo = Int32 - type AttrLabel CellRendererProgressPulsePropertyInfo = "CellRendererProgress::pulse" + type AttrLabel CellRendererProgressPulsePropertyInfo = "pulse" attrGet _ = getCellRendererProgressPulse attrSet _ = setCellRendererProgressPulse attrConstruct _ = constructCellRendererProgressPulse @@ -168,7 +228,7 @@ type AttrSetTypeConstraint CellRendererProgressTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererProgressTextPropertyInfo = CellRendererProgressK type AttrGetType CellRendererProgressTextPropertyInfo = T.Text - type AttrLabel CellRendererProgressTextPropertyInfo = "CellRendererProgress::text" + type AttrLabel CellRendererProgressTextPropertyInfo = "text" attrGet _ = getCellRendererProgressText attrSet _ = setCellRendererProgressText attrConstruct _ = constructCellRendererProgressText @@ -192,7 +252,7 @@ type AttrSetTypeConstraint CellRendererProgressTextXalignPropertyInfo = (~) Float type AttrBaseTypeConstraint CellRendererProgressTextXalignPropertyInfo = CellRendererProgressK type AttrGetType CellRendererProgressTextXalignPropertyInfo = Float - type AttrLabel CellRendererProgressTextXalignPropertyInfo = "CellRendererProgress::text-xalign" + type AttrLabel CellRendererProgressTextXalignPropertyInfo = "text-xalign" attrGet _ = getCellRendererProgressTextXalign attrSet _ = setCellRendererProgressTextXalign attrConstruct _ = constructCellRendererProgressTextXalign @@ -216,7 +276,7 @@ type AttrSetTypeConstraint CellRendererProgressTextYalignPropertyInfo = (~) Float type AttrBaseTypeConstraint CellRendererProgressTextYalignPropertyInfo = CellRendererProgressK type AttrGetType CellRendererProgressTextYalignPropertyInfo = Float - type AttrLabel CellRendererProgressTextYalignPropertyInfo = "CellRendererProgress::text-yalign" + type AttrLabel CellRendererProgressTextYalignPropertyInfo = "text-yalign" attrGet _ = getCellRendererProgressTextYalign attrSet _ = setCellRendererProgressTextYalign attrConstruct _ = constructCellRendererProgressTextYalign @@ -240,22 +300,21 @@ type AttrSetTypeConstraint CellRendererProgressValuePropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellRendererProgressValuePropertyInfo = CellRendererProgressK type AttrGetType CellRendererProgressValuePropertyInfo = Int32 - type AttrLabel CellRendererProgressValuePropertyInfo = "CellRendererProgress::value" + type AttrLabel CellRendererProgressValuePropertyInfo = "value" attrGet _ = getCellRendererProgressValue attrSet _ = setCellRendererProgressValue attrConstruct _ = constructCellRendererProgressValue type instance AttributeList CellRendererProgress = CellRendererProgressAttributeList -type CellRendererProgressAttributeList = ('[ '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inverted", CellRendererProgressInvertedPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("pulse", CellRendererProgressPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("text", CellRendererProgressTextPropertyInfo), '("text-xalign", CellRendererProgressTextXalignPropertyInfo), '("text-yalign", CellRendererProgressTextYalignPropertyInfo), '("value", CellRendererProgressValuePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +type CellRendererProgressAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inverted", CellRendererProgressInvertedPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("pulse", CellRendererProgressPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("text", CellRendererProgressTextPropertyInfo), '("textXalign", CellRendererProgressTextXalignPropertyInfo), '("textYalign", CellRendererProgressTextYalignPropertyInfo), '("value", CellRendererProgressValuePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) type instance SignalList CellRendererProgress = CellRendererProgressSignalList -type CellRendererProgressSignalList = ('[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellRendererProgressSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method CellRendererProgress::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CellRendererProgress" -- throws : False -- Skip return : False @@ -266,7 +325,7 @@ cellRendererProgressNew :: (MonadIO m) => - m CellRendererProgress + m CellRendererProgress -- result cellRendererProgressNew = liftIO $ do result <- gtk_cell_renderer_progress_new checkUnexpectedReturnNULL "gtk_cell_renderer_progress_new" result diff --git a/GI/Gtk/Objects/CellRendererSpin.hs b/GI/Gtk/Objects/CellRendererSpin.hs --- a/GI/Gtk/Objects/CellRendererSpin.hs +++ b/GI/Gtk/Objects/CellRendererSpin.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -80,6 +81,64 @@ noCellRendererSpin :: Maybe CellRendererSpin noCellRendererSpin = Nothing +type family ResolveCellRendererSpinMethod (t :: Symbol) (o :: *) :: * where + ResolveCellRendererSpinMethod "activate" o = CellRendererActivateMethodInfo + ResolveCellRendererSpinMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellRendererSpinMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellRendererSpinMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellRendererSpinMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellRendererSpinMethod "isActivatable" o = CellRendererIsActivatableMethodInfo + ResolveCellRendererSpinMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellRendererSpinMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellRendererSpinMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellRendererSpinMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellRendererSpinMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellRendererSpinMethod "render" o = CellRendererRenderMethodInfo + ResolveCellRendererSpinMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellRendererSpinMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellRendererSpinMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellRendererSpinMethod "startEditing" o = CellRendererStartEditingMethodInfo + ResolveCellRendererSpinMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellRendererSpinMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellRendererSpinMethod "stopEditing" o = CellRendererStopEditingMethodInfo + ResolveCellRendererSpinMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellRendererSpinMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellRendererSpinMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellRendererSpinMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo + ResolveCellRendererSpinMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo + ResolveCellRendererSpinMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellRendererSpinMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo + ResolveCellRendererSpinMethod "getPadding" o = CellRendererGetPaddingMethodInfo + ResolveCellRendererSpinMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo + ResolveCellRendererSpinMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo + ResolveCellRendererSpinMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo + ResolveCellRendererSpinMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo + ResolveCellRendererSpinMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo + ResolveCellRendererSpinMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellRendererSpinMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellRendererSpinMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo + ResolveCellRendererSpinMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo + ResolveCellRendererSpinMethod "getSize" o = CellRendererGetSizeMethodInfo + ResolveCellRendererSpinMethod "getState" o = CellRendererGetStateMethodInfo + ResolveCellRendererSpinMethod "getVisible" o = CellRendererGetVisibleMethodInfo + ResolveCellRendererSpinMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo + ResolveCellRendererSpinMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellRendererSpinMethod "setFixedHeightFromFont" o = CellRendererTextSetFixedHeightFromFontMethodInfo + ResolveCellRendererSpinMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo + ResolveCellRendererSpinMethod "setPadding" o = CellRendererSetPaddingMethodInfo + ResolveCellRendererSpinMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellRendererSpinMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo + ResolveCellRendererSpinMethod "setVisible" o = CellRendererSetVisibleMethodInfo + ResolveCellRendererSpinMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellRendererSpinMethod t CellRendererSpin, MethodInfo info CellRendererSpin p) => IsLabelProxy t (CellRendererSpin -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellRendererSpinMethod t CellRendererSpin, MethodInfo info CellRendererSpin p) => IsLabel t (CellRendererSpin -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "adjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable] @@ -99,7 +158,7 @@ type AttrSetTypeConstraint CellRendererSpinAdjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint CellRendererSpinAdjustmentPropertyInfo = CellRendererSpinK type AttrGetType CellRendererSpinAdjustmentPropertyInfo = Adjustment - type AttrLabel CellRendererSpinAdjustmentPropertyInfo = "CellRendererSpin::adjustment" + type AttrLabel CellRendererSpinAdjustmentPropertyInfo = "adjustment" attrGet _ = getCellRendererSpinAdjustment attrSet _ = setCellRendererSpinAdjustment attrConstruct _ = constructCellRendererSpinAdjustment @@ -123,7 +182,7 @@ type AttrSetTypeConstraint CellRendererSpinClimbRatePropertyInfo = (~) Double type AttrBaseTypeConstraint CellRendererSpinClimbRatePropertyInfo = CellRendererSpinK type AttrGetType CellRendererSpinClimbRatePropertyInfo = Double - type AttrLabel CellRendererSpinClimbRatePropertyInfo = "CellRendererSpin::climb-rate" + type AttrLabel CellRendererSpinClimbRatePropertyInfo = "climb-rate" attrGet _ = getCellRendererSpinClimbRate attrSet _ = setCellRendererSpinClimbRate attrConstruct _ = constructCellRendererSpinClimbRate @@ -147,22 +206,21 @@ type AttrSetTypeConstraint CellRendererSpinDigitsPropertyInfo = (~) Word32 type AttrBaseTypeConstraint CellRendererSpinDigitsPropertyInfo = CellRendererSpinK type AttrGetType CellRendererSpinDigitsPropertyInfo = Word32 - type AttrLabel CellRendererSpinDigitsPropertyInfo = "CellRendererSpin::digits" + type AttrLabel CellRendererSpinDigitsPropertyInfo = "digits" attrGet _ = getCellRendererSpinDigits attrSet _ = setCellRendererSpinDigits attrConstruct _ = constructCellRendererSpinDigits type instance AttributeList CellRendererSpin = CellRendererSpinAttributeList -type CellRendererSpinAttributeList = ('[ '("adjustment", CellRendererSpinAdjustmentPropertyInfo), '("align-set", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("background-gdk", CellRendererTextBackgroundGdkPropertyInfo), '("background-rgba", CellRendererTextBackgroundRgbaPropertyInfo), '("background-set", CellRendererTextBackgroundSetPropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("climb-rate", CellRendererSpinClimbRatePropertyInfo), '("digits", CellRendererSpinDigitsPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editable-set", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsize-set", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("family-set", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("font-desc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foreground-gdk", CellRendererTextForegroundGdkPropertyInfo), '("foreground-rgba", CellRendererTextForegroundRgbaPropertyInfo), '("foreground-set", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("language-set", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("max-width-chars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholder-text", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("rise-set", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scale-set", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("single-paragraph-mode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("size-points", CellRendererTextSizePointsPropertyInfo), '("size-set", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretch-set", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethrough-set", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("style-set", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underline-set", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variant-set", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weight-set", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("width-chars", CellRendererTextWidthCharsPropertyInfo), '("wrap-mode", CellRendererTextWrapModePropertyInfo), '("wrap-width", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +type CellRendererSpinAttributeList = ('[ '("adjustment", CellRendererSpinAdjustmentPropertyInfo), '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("climbRate", CellRendererSpinClimbRatePropertyInfo), '("digits", CellRendererSpinDigitsPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) type instance SignalList CellRendererSpin = CellRendererSpinSignalList -type CellRendererSpinSignalList = ('[ '("edited", CellRendererTextEditedSignalInfo), '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellRendererSpinSignalList = ('[ '("edited", CellRendererTextEditedSignalInfo), '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method CellRendererSpin::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CellRendererSpin" -- throws : False -- Skip return : False @@ -173,7 +231,7 @@ cellRendererSpinNew :: (MonadIO m) => - m CellRendererSpin + m CellRendererSpin -- result cellRendererSpinNew = liftIO $ do result <- gtk_cell_renderer_spin_new checkUnexpectedReturnNULL "gtk_cell_renderer_spin_new" result diff --git a/GI/Gtk/Objects/CellRendererSpinner.hs b/GI/Gtk/Objects/CellRendererSpinner.hs --- a/GI/Gtk/Objects/CellRendererSpinner.hs +++ b/GI/Gtk/Objects/CellRendererSpinner.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -80,6 +81,63 @@ noCellRendererSpinner :: Maybe CellRendererSpinner noCellRendererSpinner = Nothing +type family ResolveCellRendererSpinnerMethod (t :: Symbol) (o :: *) :: * where + ResolveCellRendererSpinnerMethod "activate" o = CellRendererActivateMethodInfo + ResolveCellRendererSpinnerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellRendererSpinnerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellRendererSpinnerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellRendererSpinnerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellRendererSpinnerMethod "isActivatable" o = CellRendererIsActivatableMethodInfo + ResolveCellRendererSpinnerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellRendererSpinnerMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellRendererSpinnerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellRendererSpinnerMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellRendererSpinnerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellRendererSpinnerMethod "render" o = CellRendererRenderMethodInfo + ResolveCellRendererSpinnerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellRendererSpinnerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellRendererSpinnerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellRendererSpinnerMethod "startEditing" o = CellRendererStartEditingMethodInfo + ResolveCellRendererSpinnerMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellRendererSpinnerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellRendererSpinnerMethod "stopEditing" o = CellRendererStopEditingMethodInfo + ResolveCellRendererSpinnerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellRendererSpinnerMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellRendererSpinnerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellRendererSpinnerMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo + ResolveCellRendererSpinnerMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo + ResolveCellRendererSpinnerMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellRendererSpinnerMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo + ResolveCellRendererSpinnerMethod "getPadding" o = CellRendererGetPaddingMethodInfo + ResolveCellRendererSpinnerMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo + ResolveCellRendererSpinnerMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo + ResolveCellRendererSpinnerMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo + ResolveCellRendererSpinnerMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo + ResolveCellRendererSpinnerMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo + ResolveCellRendererSpinnerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellRendererSpinnerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellRendererSpinnerMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo + ResolveCellRendererSpinnerMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo + ResolveCellRendererSpinnerMethod "getSize" o = CellRendererGetSizeMethodInfo + ResolveCellRendererSpinnerMethod "getState" o = CellRendererGetStateMethodInfo + ResolveCellRendererSpinnerMethod "getVisible" o = CellRendererGetVisibleMethodInfo + ResolveCellRendererSpinnerMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo + ResolveCellRendererSpinnerMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellRendererSpinnerMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo + ResolveCellRendererSpinnerMethod "setPadding" o = CellRendererSetPaddingMethodInfo + ResolveCellRendererSpinnerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellRendererSpinnerMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo + ResolveCellRendererSpinnerMethod "setVisible" o = CellRendererSetVisibleMethodInfo + ResolveCellRendererSpinnerMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellRendererSpinnerMethod t CellRendererSpinner, MethodInfo info CellRendererSpinner p) => IsLabelProxy t (CellRendererSpinner -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellRendererSpinnerMethod t CellRendererSpinner, MethodInfo info CellRendererSpinner p) => IsLabel t (CellRendererSpinner -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -99,7 +157,7 @@ type AttrSetTypeConstraint CellRendererSpinnerActivePropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererSpinnerActivePropertyInfo = CellRendererSpinnerK type AttrGetType CellRendererSpinnerActivePropertyInfo = Bool - type AttrLabel CellRendererSpinnerActivePropertyInfo = "CellRendererSpinner::active" + type AttrLabel CellRendererSpinnerActivePropertyInfo = "active" attrGet _ = getCellRendererSpinnerActive attrSet _ = setCellRendererSpinnerActive attrConstruct _ = constructCellRendererSpinnerActive @@ -123,7 +181,7 @@ type AttrSetTypeConstraint CellRendererSpinnerPulsePropertyInfo = (~) Word32 type AttrBaseTypeConstraint CellRendererSpinnerPulsePropertyInfo = CellRendererSpinnerK type AttrGetType CellRendererSpinnerPulsePropertyInfo = Word32 - type AttrLabel CellRendererSpinnerPulsePropertyInfo = "CellRendererSpinner::pulse" + type AttrLabel CellRendererSpinnerPulsePropertyInfo = "pulse" attrGet _ = getCellRendererSpinnerPulse attrSet _ = setCellRendererSpinnerPulse attrConstruct _ = constructCellRendererSpinnerPulse @@ -147,22 +205,21 @@ type AttrSetTypeConstraint CellRendererSpinnerSizePropertyInfo = (~) IconSize type AttrBaseTypeConstraint CellRendererSpinnerSizePropertyInfo = CellRendererSpinnerK type AttrGetType CellRendererSpinnerSizePropertyInfo = IconSize - type AttrLabel CellRendererSpinnerSizePropertyInfo = "CellRendererSpinner::size" + type AttrLabel CellRendererSpinnerSizePropertyInfo = "size" attrGet _ = getCellRendererSpinnerSize attrSet _ = setCellRendererSpinnerSize attrConstruct _ = constructCellRendererSpinnerSize type instance AttributeList CellRendererSpinner = CellRendererSpinnerAttributeList -type CellRendererSpinnerAttributeList = ('[ '("active", CellRendererSpinnerActivePropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pulse", CellRendererSpinnerPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("size", CellRendererSpinnerSizePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +type CellRendererSpinnerAttributeList = ('[ '("active", CellRendererSpinnerActivePropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pulse", CellRendererSpinnerPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("size", CellRendererSpinnerSizePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) type instance SignalList CellRendererSpinner = CellRendererSpinnerSignalList -type CellRendererSpinnerSignalList = ('[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellRendererSpinnerSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method CellRendererSpinner::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CellRendererSpinner" -- throws : False -- Skip return : False @@ -173,7 +230,7 @@ cellRendererSpinnerNew :: (MonadIO m) => - m CellRendererSpinner + m CellRendererSpinner -- result cellRendererSpinnerNew = liftIO $ do result <- gtk_cell_renderer_spinner_new checkUnexpectedReturnNULL "gtk_cell_renderer_spinner_new" result diff --git a/GI/Gtk/Objects/CellRendererText.hs b/GI/Gtk/Objects/CellRendererText.hs --- a/GI/Gtk/Objects/CellRendererText.hs +++ b/GI/Gtk/Objects/CellRendererText.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,6 +22,7 @@ -- ** cellRendererTextSetFixedHeightFromFont + CellRendererTextSetFixedHeightFromFontMethodInfo, cellRendererTextSetFixedHeightFromFont , @@ -413,6 +415,64 @@ noCellRendererText :: Maybe CellRendererText noCellRendererText = Nothing +type family ResolveCellRendererTextMethod (t :: Symbol) (o :: *) :: * where + ResolveCellRendererTextMethod "activate" o = CellRendererActivateMethodInfo + ResolveCellRendererTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellRendererTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellRendererTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellRendererTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellRendererTextMethod "isActivatable" o = CellRendererIsActivatableMethodInfo + ResolveCellRendererTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellRendererTextMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellRendererTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellRendererTextMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellRendererTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellRendererTextMethod "render" o = CellRendererRenderMethodInfo + ResolveCellRendererTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellRendererTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellRendererTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellRendererTextMethod "startEditing" o = CellRendererStartEditingMethodInfo + ResolveCellRendererTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellRendererTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellRendererTextMethod "stopEditing" o = CellRendererStopEditingMethodInfo + ResolveCellRendererTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellRendererTextMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellRendererTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellRendererTextMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo + ResolveCellRendererTextMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo + ResolveCellRendererTextMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellRendererTextMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo + ResolveCellRendererTextMethod "getPadding" o = CellRendererGetPaddingMethodInfo + ResolveCellRendererTextMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo + ResolveCellRendererTextMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo + ResolveCellRendererTextMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo + ResolveCellRendererTextMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo + ResolveCellRendererTextMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo + ResolveCellRendererTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellRendererTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellRendererTextMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo + ResolveCellRendererTextMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo + ResolveCellRendererTextMethod "getSize" o = CellRendererGetSizeMethodInfo + ResolveCellRendererTextMethod "getState" o = CellRendererGetStateMethodInfo + ResolveCellRendererTextMethod "getVisible" o = CellRendererGetVisibleMethodInfo + ResolveCellRendererTextMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo + ResolveCellRendererTextMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellRendererTextMethod "setFixedHeightFromFont" o = CellRendererTextSetFixedHeightFromFontMethodInfo + ResolveCellRendererTextMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo + ResolveCellRendererTextMethod "setPadding" o = CellRendererSetPaddingMethodInfo + ResolveCellRendererTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellRendererTextMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo + ResolveCellRendererTextMethod "setVisible" o = CellRendererSetVisibleMethodInfo + ResolveCellRendererTextMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellRendererTextMethod t CellRendererText, MethodInfo info CellRendererText p) => IsLabelProxy t (CellRendererText -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellRendererTextMethod t CellRendererText, MethodInfo info CellRendererText p) => IsLabel t (CellRendererText -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal CellRendererText::edited type CellRendererTextEditedCallback = T.Text -> @@ -443,10 +503,10 @@ CString -> Ptr () -> IO () -cellRendererTextEditedCallbackWrapper _cb _ path new_text _ = do +cellRendererTextEditedCallbackWrapper _cb _ path newText _ = do path' <- cstringToText path - new_text' <- cstringToText new_text - _cb path' new_text' + newText' <- cstringToText newText + _cb path' newText' onCellRendererTextEdited :: (GObject a, MonadIO m) => a -> CellRendererTextEditedCallback -> m SignalHandlerId onCellRendererTextEdited obj cb = liftIO $ connectCellRendererTextEdited obj cb SignalConnectBefore @@ -478,7 +538,7 @@ type AttrSetTypeConstraint CellRendererTextAlignSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextAlignSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextAlignSetPropertyInfo = Bool - type AttrLabel CellRendererTextAlignSetPropertyInfo = "CellRendererText::align-set" + type AttrLabel CellRendererTextAlignSetPropertyInfo = "align-set" attrGet _ = getCellRendererTextAlignSet attrSet _ = setCellRendererTextAlignSet attrConstruct _ = constructCellRendererTextAlignSet @@ -502,7 +562,7 @@ type AttrSetTypeConstraint CellRendererTextAlignmentPropertyInfo = (~) Pango.Alignment type AttrBaseTypeConstraint CellRendererTextAlignmentPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextAlignmentPropertyInfo = Pango.Alignment - type AttrLabel CellRendererTextAlignmentPropertyInfo = "CellRendererText::alignment" + type AttrLabel CellRendererTextAlignmentPropertyInfo = "alignment" attrGet _ = getCellRendererTextAlignment attrSet _ = setCellRendererTextAlignment attrConstruct _ = constructCellRendererTextAlignment @@ -526,7 +586,7 @@ type AttrSetTypeConstraint CellRendererTextAttributesPropertyInfo = (~) Pango.AttrList type AttrBaseTypeConstraint CellRendererTextAttributesPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextAttributesPropertyInfo = Pango.AttrList - type AttrLabel CellRendererTextAttributesPropertyInfo = "CellRendererText::attributes" + type AttrLabel CellRendererTextAttributesPropertyInfo = "attributes" attrGet _ = getCellRendererTextAttributes attrSet _ = setCellRendererTextAttributes attrConstruct _ = constructCellRendererTextAttributes @@ -547,7 +607,7 @@ type AttrSetTypeConstraint CellRendererTextBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextBackgroundPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextBackgroundPropertyInfo = () - type AttrLabel CellRendererTextBackgroundPropertyInfo = "CellRendererText::background" + type AttrLabel CellRendererTextBackgroundPropertyInfo = "background" attrGet _ = undefined attrSet _ = setCellRendererTextBackground attrConstruct _ = constructCellRendererTextBackground @@ -571,7 +631,7 @@ type AttrSetTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextBackgroundGdkPropertyInfo = Gdk.Color - type AttrLabel CellRendererTextBackgroundGdkPropertyInfo = "CellRendererText::background-gdk" + type AttrLabel CellRendererTextBackgroundGdkPropertyInfo = "background-gdk" attrGet _ = getCellRendererTextBackgroundGdk attrSet _ = setCellRendererTextBackgroundGdk attrConstruct _ = constructCellRendererTextBackgroundGdk @@ -595,7 +655,7 @@ type AttrSetTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextBackgroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel CellRendererTextBackgroundRgbaPropertyInfo = "CellRendererText::background-rgba" + type AttrLabel CellRendererTextBackgroundRgbaPropertyInfo = "background-rgba" attrGet _ = getCellRendererTextBackgroundRgba attrSet _ = setCellRendererTextBackgroundRgba attrConstruct _ = constructCellRendererTextBackgroundRgba @@ -619,7 +679,7 @@ type AttrSetTypeConstraint CellRendererTextBackgroundSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextBackgroundSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextBackgroundSetPropertyInfo = Bool - type AttrLabel CellRendererTextBackgroundSetPropertyInfo = "CellRendererText::background-set" + type AttrLabel CellRendererTextBackgroundSetPropertyInfo = "background-set" attrGet _ = getCellRendererTextBackgroundSet attrSet _ = setCellRendererTextBackgroundSet attrConstruct _ = constructCellRendererTextBackgroundSet @@ -643,7 +703,7 @@ type AttrSetTypeConstraint CellRendererTextEditablePropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextEditablePropertyInfo = CellRendererTextK type AttrGetType CellRendererTextEditablePropertyInfo = Bool - type AttrLabel CellRendererTextEditablePropertyInfo = "CellRendererText::editable" + type AttrLabel CellRendererTextEditablePropertyInfo = "editable" attrGet _ = getCellRendererTextEditable attrSet _ = setCellRendererTextEditable attrConstruct _ = constructCellRendererTextEditable @@ -667,7 +727,7 @@ type AttrSetTypeConstraint CellRendererTextEditableSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextEditableSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextEditableSetPropertyInfo = Bool - type AttrLabel CellRendererTextEditableSetPropertyInfo = "CellRendererText::editable-set" + type AttrLabel CellRendererTextEditableSetPropertyInfo = "editable-set" attrGet _ = getCellRendererTextEditableSet attrSet _ = setCellRendererTextEditableSet attrConstruct _ = constructCellRendererTextEditableSet @@ -691,7 +751,7 @@ type AttrSetTypeConstraint CellRendererTextEllipsizePropertyInfo = (~) Pango.EllipsizeMode type AttrBaseTypeConstraint CellRendererTextEllipsizePropertyInfo = CellRendererTextK type AttrGetType CellRendererTextEllipsizePropertyInfo = Pango.EllipsizeMode - type AttrLabel CellRendererTextEllipsizePropertyInfo = "CellRendererText::ellipsize" + type AttrLabel CellRendererTextEllipsizePropertyInfo = "ellipsize" attrGet _ = getCellRendererTextEllipsize attrSet _ = setCellRendererTextEllipsize attrConstruct _ = constructCellRendererTextEllipsize @@ -715,7 +775,7 @@ type AttrSetTypeConstraint CellRendererTextEllipsizeSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextEllipsizeSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextEllipsizeSetPropertyInfo = Bool - type AttrLabel CellRendererTextEllipsizeSetPropertyInfo = "CellRendererText::ellipsize-set" + type AttrLabel CellRendererTextEllipsizeSetPropertyInfo = "ellipsize-set" attrGet _ = getCellRendererTextEllipsizeSet attrSet _ = setCellRendererTextEllipsizeSet attrConstruct _ = constructCellRendererTextEllipsizeSet @@ -739,7 +799,7 @@ type AttrSetTypeConstraint CellRendererTextFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextFamilyPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextFamilyPropertyInfo = T.Text - type AttrLabel CellRendererTextFamilyPropertyInfo = "CellRendererText::family" + type AttrLabel CellRendererTextFamilyPropertyInfo = "family" attrGet _ = getCellRendererTextFamily attrSet _ = setCellRendererTextFamily attrConstruct _ = constructCellRendererTextFamily @@ -763,7 +823,7 @@ type AttrSetTypeConstraint CellRendererTextFamilySetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextFamilySetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextFamilySetPropertyInfo = Bool - type AttrLabel CellRendererTextFamilySetPropertyInfo = "CellRendererText::family-set" + type AttrLabel CellRendererTextFamilySetPropertyInfo = "family-set" attrGet _ = getCellRendererTextFamilySet attrSet _ = setCellRendererTextFamilySet attrConstruct _ = constructCellRendererTextFamilySet @@ -787,7 +847,7 @@ type AttrSetTypeConstraint CellRendererTextFontPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextFontPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextFontPropertyInfo = T.Text - type AttrLabel CellRendererTextFontPropertyInfo = "CellRendererText::font" + type AttrLabel CellRendererTextFontPropertyInfo = "font" attrGet _ = getCellRendererTextFont attrSet _ = setCellRendererTextFont attrConstruct _ = constructCellRendererTextFont @@ -811,7 +871,7 @@ type AttrSetTypeConstraint CellRendererTextFontDescPropertyInfo = (~) Pango.FontDescription type AttrBaseTypeConstraint CellRendererTextFontDescPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextFontDescPropertyInfo = Pango.FontDescription - type AttrLabel CellRendererTextFontDescPropertyInfo = "CellRendererText::font-desc" + type AttrLabel CellRendererTextFontDescPropertyInfo = "font-desc" attrGet _ = getCellRendererTextFontDesc attrSet _ = setCellRendererTextFontDesc attrConstruct _ = constructCellRendererTextFontDesc @@ -832,7 +892,7 @@ type AttrSetTypeConstraint CellRendererTextForegroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextForegroundPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextForegroundPropertyInfo = () - type AttrLabel CellRendererTextForegroundPropertyInfo = "CellRendererText::foreground" + type AttrLabel CellRendererTextForegroundPropertyInfo = "foreground" attrGet _ = undefined attrSet _ = setCellRendererTextForeground attrConstruct _ = constructCellRendererTextForeground @@ -856,7 +916,7 @@ type AttrSetTypeConstraint CellRendererTextForegroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint CellRendererTextForegroundGdkPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextForegroundGdkPropertyInfo = Gdk.Color - type AttrLabel CellRendererTextForegroundGdkPropertyInfo = "CellRendererText::foreground-gdk" + type AttrLabel CellRendererTextForegroundGdkPropertyInfo = "foreground-gdk" attrGet _ = getCellRendererTextForegroundGdk attrSet _ = setCellRendererTextForegroundGdk attrConstruct _ = constructCellRendererTextForegroundGdk @@ -880,7 +940,7 @@ type AttrSetTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextForegroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel CellRendererTextForegroundRgbaPropertyInfo = "CellRendererText::foreground-rgba" + type AttrLabel CellRendererTextForegroundRgbaPropertyInfo = "foreground-rgba" attrGet _ = getCellRendererTextForegroundRgba attrSet _ = setCellRendererTextForegroundRgba attrConstruct _ = constructCellRendererTextForegroundRgba @@ -904,7 +964,7 @@ type AttrSetTypeConstraint CellRendererTextForegroundSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextForegroundSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextForegroundSetPropertyInfo = Bool - type AttrLabel CellRendererTextForegroundSetPropertyInfo = "CellRendererText::foreground-set" + type AttrLabel CellRendererTextForegroundSetPropertyInfo = "foreground-set" attrGet _ = getCellRendererTextForegroundSet attrSet _ = setCellRendererTextForegroundSet attrConstruct _ = constructCellRendererTextForegroundSet @@ -928,7 +988,7 @@ type AttrSetTypeConstraint CellRendererTextLanguagePropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextLanguagePropertyInfo = CellRendererTextK type AttrGetType CellRendererTextLanguagePropertyInfo = T.Text - type AttrLabel CellRendererTextLanguagePropertyInfo = "CellRendererText::language" + type AttrLabel CellRendererTextLanguagePropertyInfo = "language" attrGet _ = getCellRendererTextLanguage attrSet _ = setCellRendererTextLanguage attrConstruct _ = constructCellRendererTextLanguage @@ -952,7 +1012,7 @@ type AttrSetTypeConstraint CellRendererTextLanguageSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextLanguageSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextLanguageSetPropertyInfo = Bool - type AttrLabel CellRendererTextLanguageSetPropertyInfo = "CellRendererText::language-set" + type AttrLabel CellRendererTextLanguageSetPropertyInfo = "language-set" attrGet _ = getCellRendererTextLanguageSet attrSet _ = setCellRendererTextLanguageSet attrConstruct _ = constructCellRendererTextLanguageSet @@ -973,7 +1033,7 @@ type AttrSetTypeConstraint CellRendererTextMarkupPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextMarkupPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextMarkupPropertyInfo = () - type AttrLabel CellRendererTextMarkupPropertyInfo = "CellRendererText::markup" + type AttrLabel CellRendererTextMarkupPropertyInfo = "markup" attrGet _ = undefined attrSet _ = setCellRendererTextMarkup attrConstruct _ = constructCellRendererTextMarkup @@ -997,7 +1057,7 @@ type AttrSetTypeConstraint CellRendererTextMaxWidthCharsPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellRendererTextMaxWidthCharsPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextMaxWidthCharsPropertyInfo = Int32 - type AttrLabel CellRendererTextMaxWidthCharsPropertyInfo = "CellRendererText::max-width-chars" + type AttrLabel CellRendererTextMaxWidthCharsPropertyInfo = "max-width-chars" attrGet _ = getCellRendererTextMaxWidthChars attrSet _ = setCellRendererTextMaxWidthChars attrConstruct _ = constructCellRendererTextMaxWidthChars @@ -1021,7 +1081,7 @@ type AttrSetTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextPlaceholderTextPropertyInfo = T.Text - type AttrLabel CellRendererTextPlaceholderTextPropertyInfo = "CellRendererText::placeholder-text" + type AttrLabel CellRendererTextPlaceholderTextPropertyInfo = "placeholder-text" attrGet _ = getCellRendererTextPlaceholderText attrSet _ = setCellRendererTextPlaceholderText attrConstruct _ = constructCellRendererTextPlaceholderText @@ -1045,7 +1105,7 @@ type AttrSetTypeConstraint CellRendererTextRisePropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellRendererTextRisePropertyInfo = CellRendererTextK type AttrGetType CellRendererTextRisePropertyInfo = Int32 - type AttrLabel CellRendererTextRisePropertyInfo = "CellRendererText::rise" + type AttrLabel CellRendererTextRisePropertyInfo = "rise" attrGet _ = getCellRendererTextRise attrSet _ = setCellRendererTextRise attrConstruct _ = constructCellRendererTextRise @@ -1069,7 +1129,7 @@ type AttrSetTypeConstraint CellRendererTextRiseSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextRiseSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextRiseSetPropertyInfo = Bool - type AttrLabel CellRendererTextRiseSetPropertyInfo = "CellRendererText::rise-set" + type AttrLabel CellRendererTextRiseSetPropertyInfo = "rise-set" attrGet _ = getCellRendererTextRiseSet attrSet _ = setCellRendererTextRiseSet attrConstruct _ = constructCellRendererTextRiseSet @@ -1093,7 +1153,7 @@ type AttrSetTypeConstraint CellRendererTextScalePropertyInfo = (~) Double type AttrBaseTypeConstraint CellRendererTextScalePropertyInfo = CellRendererTextK type AttrGetType CellRendererTextScalePropertyInfo = Double - type AttrLabel CellRendererTextScalePropertyInfo = "CellRendererText::scale" + type AttrLabel CellRendererTextScalePropertyInfo = "scale" attrGet _ = getCellRendererTextScale attrSet _ = setCellRendererTextScale attrConstruct _ = constructCellRendererTextScale @@ -1117,7 +1177,7 @@ type AttrSetTypeConstraint CellRendererTextScaleSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextScaleSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextScaleSetPropertyInfo = Bool - type AttrLabel CellRendererTextScaleSetPropertyInfo = "CellRendererText::scale-set" + type AttrLabel CellRendererTextScaleSetPropertyInfo = "scale-set" attrGet _ = getCellRendererTextScaleSet attrSet _ = setCellRendererTextScaleSet attrConstruct _ = constructCellRendererTextScaleSet @@ -1141,7 +1201,7 @@ type AttrSetTypeConstraint CellRendererTextSingleParagraphModePropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextSingleParagraphModePropertyInfo = CellRendererTextK type AttrGetType CellRendererTextSingleParagraphModePropertyInfo = Bool - type AttrLabel CellRendererTextSingleParagraphModePropertyInfo = "CellRendererText::single-paragraph-mode" + type AttrLabel CellRendererTextSingleParagraphModePropertyInfo = "single-paragraph-mode" attrGet _ = getCellRendererTextSingleParagraphMode attrSet _ = setCellRendererTextSingleParagraphMode attrConstruct _ = constructCellRendererTextSingleParagraphMode @@ -1165,7 +1225,7 @@ type AttrSetTypeConstraint CellRendererTextSizePropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellRendererTextSizePropertyInfo = CellRendererTextK type AttrGetType CellRendererTextSizePropertyInfo = Int32 - type AttrLabel CellRendererTextSizePropertyInfo = "CellRendererText::size" + type AttrLabel CellRendererTextSizePropertyInfo = "size" attrGet _ = getCellRendererTextSize attrSet _ = setCellRendererTextSize attrConstruct _ = constructCellRendererTextSize @@ -1189,7 +1249,7 @@ type AttrSetTypeConstraint CellRendererTextSizePointsPropertyInfo = (~) Double type AttrBaseTypeConstraint CellRendererTextSizePointsPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextSizePointsPropertyInfo = Double - type AttrLabel CellRendererTextSizePointsPropertyInfo = "CellRendererText::size-points" + type AttrLabel CellRendererTextSizePointsPropertyInfo = "size-points" attrGet _ = getCellRendererTextSizePoints attrSet _ = setCellRendererTextSizePoints attrConstruct _ = constructCellRendererTextSizePoints @@ -1213,7 +1273,7 @@ type AttrSetTypeConstraint CellRendererTextSizeSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextSizeSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextSizeSetPropertyInfo = Bool - type AttrLabel CellRendererTextSizeSetPropertyInfo = "CellRendererText::size-set" + type AttrLabel CellRendererTextSizeSetPropertyInfo = "size-set" attrGet _ = getCellRendererTextSizeSet attrSet _ = setCellRendererTextSizeSet attrConstruct _ = constructCellRendererTextSizeSet @@ -1237,7 +1297,7 @@ type AttrSetTypeConstraint CellRendererTextStretchPropertyInfo = (~) Pango.Stretch type AttrBaseTypeConstraint CellRendererTextStretchPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextStretchPropertyInfo = Pango.Stretch - type AttrLabel CellRendererTextStretchPropertyInfo = "CellRendererText::stretch" + type AttrLabel CellRendererTextStretchPropertyInfo = "stretch" attrGet _ = getCellRendererTextStretch attrSet _ = setCellRendererTextStretch attrConstruct _ = constructCellRendererTextStretch @@ -1261,7 +1321,7 @@ type AttrSetTypeConstraint CellRendererTextStretchSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextStretchSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextStretchSetPropertyInfo = Bool - type AttrLabel CellRendererTextStretchSetPropertyInfo = "CellRendererText::stretch-set" + type AttrLabel CellRendererTextStretchSetPropertyInfo = "stretch-set" attrGet _ = getCellRendererTextStretchSet attrSet _ = setCellRendererTextStretchSet attrConstruct _ = constructCellRendererTextStretchSet @@ -1285,7 +1345,7 @@ type AttrSetTypeConstraint CellRendererTextStrikethroughPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextStrikethroughPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextStrikethroughPropertyInfo = Bool - type AttrLabel CellRendererTextStrikethroughPropertyInfo = "CellRendererText::strikethrough" + type AttrLabel CellRendererTextStrikethroughPropertyInfo = "strikethrough" attrGet _ = getCellRendererTextStrikethrough attrSet _ = setCellRendererTextStrikethrough attrConstruct _ = constructCellRendererTextStrikethrough @@ -1309,7 +1369,7 @@ type AttrSetTypeConstraint CellRendererTextStrikethroughSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextStrikethroughSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextStrikethroughSetPropertyInfo = Bool - type AttrLabel CellRendererTextStrikethroughSetPropertyInfo = "CellRendererText::strikethrough-set" + type AttrLabel CellRendererTextStrikethroughSetPropertyInfo = "strikethrough-set" attrGet _ = getCellRendererTextStrikethroughSet attrSet _ = setCellRendererTextStrikethroughSet attrConstruct _ = constructCellRendererTextStrikethroughSet @@ -1333,7 +1393,7 @@ type AttrSetTypeConstraint CellRendererTextStylePropertyInfo = (~) Pango.Style type AttrBaseTypeConstraint CellRendererTextStylePropertyInfo = CellRendererTextK type AttrGetType CellRendererTextStylePropertyInfo = Pango.Style - type AttrLabel CellRendererTextStylePropertyInfo = "CellRendererText::style" + type AttrLabel CellRendererTextStylePropertyInfo = "style" attrGet _ = getCellRendererTextStyle attrSet _ = setCellRendererTextStyle attrConstruct _ = constructCellRendererTextStyle @@ -1357,7 +1417,7 @@ type AttrSetTypeConstraint CellRendererTextStyleSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextStyleSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextStyleSetPropertyInfo = Bool - type AttrLabel CellRendererTextStyleSetPropertyInfo = "CellRendererText::style-set" + type AttrLabel CellRendererTextStyleSetPropertyInfo = "style-set" attrGet _ = getCellRendererTextStyleSet attrSet _ = setCellRendererTextStyleSet attrConstruct _ = constructCellRendererTextStyleSet @@ -1381,7 +1441,7 @@ type AttrSetTypeConstraint CellRendererTextTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextTextPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextTextPropertyInfo = T.Text - type AttrLabel CellRendererTextTextPropertyInfo = "CellRendererText::text" + type AttrLabel CellRendererTextTextPropertyInfo = "text" attrGet _ = getCellRendererTextText attrSet _ = setCellRendererTextText attrConstruct _ = constructCellRendererTextText @@ -1405,7 +1465,7 @@ type AttrSetTypeConstraint CellRendererTextUnderlinePropertyInfo = (~) Pango.Underline type AttrBaseTypeConstraint CellRendererTextUnderlinePropertyInfo = CellRendererTextK type AttrGetType CellRendererTextUnderlinePropertyInfo = Pango.Underline - type AttrLabel CellRendererTextUnderlinePropertyInfo = "CellRendererText::underline" + type AttrLabel CellRendererTextUnderlinePropertyInfo = "underline" attrGet _ = getCellRendererTextUnderline attrSet _ = setCellRendererTextUnderline attrConstruct _ = constructCellRendererTextUnderline @@ -1429,7 +1489,7 @@ type AttrSetTypeConstraint CellRendererTextUnderlineSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextUnderlineSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextUnderlineSetPropertyInfo = Bool - type AttrLabel CellRendererTextUnderlineSetPropertyInfo = "CellRendererText::underline-set" + type AttrLabel CellRendererTextUnderlineSetPropertyInfo = "underline-set" attrGet _ = getCellRendererTextUnderlineSet attrSet _ = setCellRendererTextUnderlineSet attrConstruct _ = constructCellRendererTextUnderlineSet @@ -1453,7 +1513,7 @@ type AttrSetTypeConstraint CellRendererTextVariantPropertyInfo = (~) Pango.Variant type AttrBaseTypeConstraint CellRendererTextVariantPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextVariantPropertyInfo = Pango.Variant - type AttrLabel CellRendererTextVariantPropertyInfo = "CellRendererText::variant" + type AttrLabel CellRendererTextVariantPropertyInfo = "variant" attrGet _ = getCellRendererTextVariant attrSet _ = setCellRendererTextVariant attrConstruct _ = constructCellRendererTextVariant @@ -1477,7 +1537,7 @@ type AttrSetTypeConstraint CellRendererTextVariantSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextVariantSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextVariantSetPropertyInfo = Bool - type AttrLabel CellRendererTextVariantSetPropertyInfo = "CellRendererText::variant-set" + type AttrLabel CellRendererTextVariantSetPropertyInfo = "variant-set" attrGet _ = getCellRendererTextVariantSet attrSet _ = setCellRendererTextVariantSet attrConstruct _ = constructCellRendererTextVariantSet @@ -1501,7 +1561,7 @@ type AttrSetTypeConstraint CellRendererTextWeightPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellRendererTextWeightPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextWeightPropertyInfo = Int32 - type AttrLabel CellRendererTextWeightPropertyInfo = "CellRendererText::weight" + type AttrLabel CellRendererTextWeightPropertyInfo = "weight" attrGet _ = getCellRendererTextWeight attrSet _ = setCellRendererTextWeight attrConstruct _ = constructCellRendererTextWeight @@ -1525,7 +1585,7 @@ type AttrSetTypeConstraint CellRendererTextWeightSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererTextWeightSetPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextWeightSetPropertyInfo = Bool - type AttrLabel CellRendererTextWeightSetPropertyInfo = "CellRendererText::weight-set" + type AttrLabel CellRendererTextWeightSetPropertyInfo = "weight-set" attrGet _ = getCellRendererTextWeightSet attrSet _ = setCellRendererTextWeightSet attrConstruct _ = constructCellRendererTextWeightSet @@ -1549,7 +1609,7 @@ type AttrSetTypeConstraint CellRendererTextWidthCharsPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellRendererTextWidthCharsPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextWidthCharsPropertyInfo = Int32 - type AttrLabel CellRendererTextWidthCharsPropertyInfo = "CellRendererText::width-chars" + type AttrLabel CellRendererTextWidthCharsPropertyInfo = "width-chars" attrGet _ = getCellRendererTextWidthChars attrSet _ = setCellRendererTextWidthChars attrConstruct _ = constructCellRendererTextWidthChars @@ -1573,7 +1633,7 @@ type AttrSetTypeConstraint CellRendererTextWrapModePropertyInfo = (~) Pango.WrapMode type AttrBaseTypeConstraint CellRendererTextWrapModePropertyInfo = CellRendererTextK type AttrGetType CellRendererTextWrapModePropertyInfo = Pango.WrapMode - type AttrLabel CellRendererTextWrapModePropertyInfo = "CellRendererText::wrap-mode" + type AttrLabel CellRendererTextWrapModePropertyInfo = "wrap-mode" attrGet _ = getCellRendererTextWrapMode attrSet _ = setCellRendererTextWrapMode attrConstruct _ = constructCellRendererTextWrapMode @@ -1597,13 +1657,13 @@ type AttrSetTypeConstraint CellRendererTextWrapWidthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellRendererTextWrapWidthPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextWrapWidthPropertyInfo = Int32 - type AttrLabel CellRendererTextWrapWidthPropertyInfo = "CellRendererText::wrap-width" + type AttrLabel CellRendererTextWrapWidthPropertyInfo = "wrap-width" attrGet _ = getCellRendererTextWrapWidth attrSet _ = setCellRendererTextWrapWidth attrConstruct _ = constructCellRendererTextWrapWidth type instance AttributeList CellRendererText = CellRendererTextAttributeList -type CellRendererTextAttributeList = ('[ '("align-set", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("background-gdk", CellRendererTextBackgroundGdkPropertyInfo), '("background-rgba", CellRendererTextBackgroundRgbaPropertyInfo), '("background-set", CellRendererTextBackgroundSetPropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editable-set", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsize-set", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("family-set", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("font-desc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foreground-gdk", CellRendererTextForegroundGdkPropertyInfo), '("foreground-rgba", CellRendererTextForegroundRgbaPropertyInfo), '("foreground-set", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("language-set", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("max-width-chars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholder-text", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("rise-set", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scale-set", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("single-paragraph-mode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("size-points", CellRendererTextSizePointsPropertyInfo), '("size-set", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretch-set", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethrough-set", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("style-set", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underline-set", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variant-set", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weight-set", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("width-chars", CellRendererTextWidthCharsPropertyInfo), '("wrap-mode", CellRendererTextWrapModePropertyInfo), '("wrap-width", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +type CellRendererTextAttributeList = ('[ '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) data CellRendererTextEditedSignalInfo instance SignalInfo CellRendererTextEditedSignalInfo where @@ -1611,13 +1671,12 @@ connectSignal _ = connectCellRendererTextEdited type instance SignalList CellRendererText = CellRendererTextSignalList -type CellRendererTextSignalList = ('[ '("edited", CellRendererTextEditedSignalInfo), '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellRendererTextSignalList = ('[ '("edited", CellRendererTextEditedSignalInfo), '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method CellRendererText::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CellRendererText" -- throws : False -- Skip return : False @@ -1628,7 +1687,7 @@ cellRendererTextNew :: (MonadIO m) => - m CellRendererText + m CellRendererText -- result cellRendererTextNew = liftIO $ do result <- gtk_cell_renderer_text_new checkUnexpectedReturnNULL "gtk_cell_renderer_text_new" result @@ -1637,9 +1696,8 @@ -- method CellRendererText::set_fixed_height_from_font -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_of_rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_of_rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_of_rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1652,13 +1710,17 @@ cellRendererTextSetFixedHeightFromFont :: (MonadIO m, CellRendererTextK a) => - a -> -- _obj - Int32 -> -- number_of_rows - m () -cellRendererTextSetFixedHeightFromFont _obj number_of_rows = liftIO $ do + a -- _obj + -> Int32 -- numberOfRows + -> m () -- result +cellRendererTextSetFixedHeightFromFont _obj numberOfRows = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_renderer_text_set_fixed_height_from_font _obj' number_of_rows + gtk_cell_renderer_text_set_fixed_height_from_font _obj' numberOfRows touchManagedPtr _obj return () + +data CellRendererTextSetFixedHeightFromFontMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, CellRendererTextK a) => MethodInfo CellRendererTextSetFixedHeightFromFontMethodInfo a signature where + overloadedMethod _ = cellRendererTextSetFixedHeightFromFont diff --git a/GI/Gtk/Objects/CellRendererText.hs-boot b/GI/Gtk/Objects/CellRendererText.hs-boot --- a/GI/Gtk/Objects/CellRendererText.hs-boot +++ b/GI/Gtk/Objects/CellRendererText.hs-boot @@ -60,3 +60,4 @@ data CellRendererTextWrapModePropertyInfo data CellRendererTextWrapWidthPropertyInfo data CellRendererTextEditedSignalInfo +data CellRendererTextSetFixedHeightFromFontMethodInfo diff --git a/GI/Gtk/Objects/CellRendererToggle.hs b/GI/Gtk/Objects/CellRendererToggle.hs --- a/GI/Gtk/Objects/CellRendererToggle.hs +++ b/GI/Gtk/Objects/CellRendererToggle.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** cellRendererToggleGetActivatable + CellRendererToggleGetActivatableMethodInfo, cellRendererToggleGetActivatable , -- ** cellRendererToggleGetActive + CellRendererToggleGetActiveMethodInfo , cellRendererToggleGetActive , -- ** cellRendererToggleGetRadio + CellRendererToggleGetRadioMethodInfo , cellRendererToggleGetRadio , @@ -33,14 +37,17 @@ -- ** cellRendererToggleSetActivatable + CellRendererToggleSetActivatableMethodInfo, cellRendererToggleSetActivatable , -- ** cellRendererToggleSetActive + CellRendererToggleSetActiveMethodInfo , cellRendererToggleSetActive , -- ** cellRendererToggleSetRadio + CellRendererToggleSetRadioMethodInfo , cellRendererToggleSetRadio , @@ -133,6 +140,69 @@ noCellRendererToggle :: Maybe CellRendererToggle noCellRendererToggle = Nothing +type family ResolveCellRendererToggleMethod (t :: Symbol) (o :: *) :: * where + ResolveCellRendererToggleMethod "activate" o = CellRendererActivateMethodInfo + ResolveCellRendererToggleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellRendererToggleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellRendererToggleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellRendererToggleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellRendererToggleMethod "isActivatable" o = CellRendererIsActivatableMethodInfo + ResolveCellRendererToggleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellRendererToggleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellRendererToggleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellRendererToggleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellRendererToggleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellRendererToggleMethod "render" o = CellRendererRenderMethodInfo + ResolveCellRendererToggleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellRendererToggleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellRendererToggleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellRendererToggleMethod "startEditing" o = CellRendererStartEditingMethodInfo + ResolveCellRendererToggleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellRendererToggleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellRendererToggleMethod "stopEditing" o = CellRendererStopEditingMethodInfo + ResolveCellRendererToggleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellRendererToggleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellRendererToggleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellRendererToggleMethod "getActivatable" o = CellRendererToggleGetActivatableMethodInfo + ResolveCellRendererToggleMethod "getActive" o = CellRendererToggleGetActiveMethodInfo + ResolveCellRendererToggleMethod "getAlignedArea" o = CellRendererGetAlignedAreaMethodInfo + ResolveCellRendererToggleMethod "getAlignment" o = CellRendererGetAlignmentMethodInfo + ResolveCellRendererToggleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellRendererToggleMethod "getFixedSize" o = CellRendererGetFixedSizeMethodInfo + ResolveCellRendererToggleMethod "getPadding" o = CellRendererGetPaddingMethodInfo + ResolveCellRendererToggleMethod "getPreferredHeight" o = CellRendererGetPreferredHeightMethodInfo + ResolveCellRendererToggleMethod "getPreferredHeightForWidth" o = CellRendererGetPreferredHeightForWidthMethodInfo + ResolveCellRendererToggleMethod "getPreferredSize" o = CellRendererGetPreferredSizeMethodInfo + ResolveCellRendererToggleMethod "getPreferredWidth" o = CellRendererGetPreferredWidthMethodInfo + ResolveCellRendererToggleMethod "getPreferredWidthForHeight" o = CellRendererGetPreferredWidthForHeightMethodInfo + ResolveCellRendererToggleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellRendererToggleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellRendererToggleMethod "getRadio" o = CellRendererToggleGetRadioMethodInfo + ResolveCellRendererToggleMethod "getRequestMode" o = CellRendererGetRequestModeMethodInfo + ResolveCellRendererToggleMethod "getSensitive" o = CellRendererGetSensitiveMethodInfo + ResolveCellRendererToggleMethod "getSize" o = CellRendererGetSizeMethodInfo + ResolveCellRendererToggleMethod "getState" o = CellRendererGetStateMethodInfo + ResolveCellRendererToggleMethod "getVisible" o = CellRendererGetVisibleMethodInfo + ResolveCellRendererToggleMethod "setActivatable" o = CellRendererToggleSetActivatableMethodInfo + ResolveCellRendererToggleMethod "setActive" o = CellRendererToggleSetActiveMethodInfo + ResolveCellRendererToggleMethod "setAlignment" o = CellRendererSetAlignmentMethodInfo + ResolveCellRendererToggleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellRendererToggleMethod "setFixedSize" o = CellRendererSetFixedSizeMethodInfo + ResolveCellRendererToggleMethod "setPadding" o = CellRendererSetPaddingMethodInfo + ResolveCellRendererToggleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellRendererToggleMethod "setRadio" o = CellRendererToggleSetRadioMethodInfo + ResolveCellRendererToggleMethod "setSensitive" o = CellRendererSetSensitiveMethodInfo + ResolveCellRendererToggleMethod "setVisible" o = CellRendererSetVisibleMethodInfo + ResolveCellRendererToggleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellRendererToggleMethod t CellRendererToggle, MethodInfo info CellRendererToggle p) => IsLabelProxy t (CellRendererToggle -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellRendererToggleMethod t CellRendererToggle, MethodInfo info CellRendererToggle p) => IsLabel t (CellRendererToggle -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal CellRendererToggle::toggled type CellRendererToggleToggledCallback = T.Text -> @@ -194,7 +264,7 @@ type AttrSetTypeConstraint CellRendererToggleActivatablePropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererToggleActivatablePropertyInfo = CellRendererToggleK type AttrGetType CellRendererToggleActivatablePropertyInfo = Bool - type AttrLabel CellRendererToggleActivatablePropertyInfo = "CellRendererToggle::activatable" + type AttrLabel CellRendererToggleActivatablePropertyInfo = "activatable" attrGet _ = getCellRendererToggleActivatable attrSet _ = setCellRendererToggleActivatable attrConstruct _ = constructCellRendererToggleActivatable @@ -218,7 +288,7 @@ type AttrSetTypeConstraint CellRendererToggleActivePropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererToggleActivePropertyInfo = CellRendererToggleK type AttrGetType CellRendererToggleActivePropertyInfo = Bool - type AttrLabel CellRendererToggleActivePropertyInfo = "CellRendererToggle::active" + type AttrLabel CellRendererToggleActivePropertyInfo = "active" attrGet _ = getCellRendererToggleActive attrSet _ = setCellRendererToggleActive attrConstruct _ = constructCellRendererToggleActive @@ -242,7 +312,7 @@ type AttrSetTypeConstraint CellRendererToggleInconsistentPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererToggleInconsistentPropertyInfo = CellRendererToggleK type AttrGetType CellRendererToggleInconsistentPropertyInfo = Bool - type AttrLabel CellRendererToggleInconsistentPropertyInfo = "CellRendererToggle::inconsistent" + type AttrLabel CellRendererToggleInconsistentPropertyInfo = "inconsistent" attrGet _ = getCellRendererToggleInconsistent attrSet _ = setCellRendererToggleInconsistent attrConstruct _ = constructCellRendererToggleInconsistent @@ -266,7 +336,7 @@ type AttrSetTypeConstraint CellRendererToggleIndicatorSizePropertyInfo = (~) Int32 type AttrBaseTypeConstraint CellRendererToggleIndicatorSizePropertyInfo = CellRendererToggleK type AttrGetType CellRendererToggleIndicatorSizePropertyInfo = Int32 - type AttrLabel CellRendererToggleIndicatorSizePropertyInfo = "CellRendererToggle::indicator-size" + type AttrLabel CellRendererToggleIndicatorSizePropertyInfo = "indicator-size" attrGet _ = getCellRendererToggleIndicatorSize attrSet _ = setCellRendererToggleIndicatorSize attrConstruct _ = constructCellRendererToggleIndicatorSize @@ -290,13 +360,13 @@ type AttrSetTypeConstraint CellRendererToggleRadioPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellRendererToggleRadioPropertyInfo = CellRendererToggleK type AttrGetType CellRendererToggleRadioPropertyInfo = Bool - type AttrLabel CellRendererToggleRadioPropertyInfo = "CellRendererToggle::radio" + type AttrLabel CellRendererToggleRadioPropertyInfo = "radio" attrGet _ = getCellRendererToggleRadio attrSet _ = setCellRendererToggleRadio attrConstruct _ = constructCellRendererToggleRadio type instance AttributeList CellRendererToggle = CellRendererToggleAttributeList -type CellRendererToggleAttributeList = ('[ '("activatable", CellRendererToggleActivatablePropertyInfo), '("active", CellRendererToggleActivePropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inconsistent", CellRendererToggleInconsistentPropertyInfo), '("indicator-size", CellRendererToggleIndicatorSizePropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("radio", CellRendererToggleRadioPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +type CellRendererToggleAttributeList = ('[ '("activatable", CellRendererToggleActivatablePropertyInfo), '("active", CellRendererToggleActivePropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inconsistent", CellRendererToggleInconsistentPropertyInfo), '("indicatorSize", CellRendererToggleIndicatorSizePropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("radio", CellRendererToggleRadioPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) data CellRendererToggleToggledSignalInfo instance SignalInfo CellRendererToggleToggledSignalInfo where @@ -304,13 +374,12 @@ connectSignal _ = connectCellRendererToggleToggled type instance SignalList CellRendererToggle = CellRendererToggleSignalList -type CellRendererToggleSignalList = ('[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", CellRendererToggleToggledSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellRendererToggleSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", CellRendererToggleToggledSignalInfo)] :: [(Symbol, *)]) -- method CellRendererToggle::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CellRendererToggle" -- throws : False -- Skip return : False @@ -321,7 +390,7 @@ cellRendererToggleNew :: (MonadIO m) => - m CellRendererToggle + m CellRendererToggle -- result cellRendererToggleNew = liftIO $ do result <- gtk_cell_renderer_toggle_new checkUnexpectedReturnNULL "gtk_cell_renderer_toggle_new" result @@ -330,9 +399,8 @@ -- method CellRendererToggle::get_activatable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -344,8 +412,8 @@ cellRendererToggleGetActivatable :: (MonadIO m, CellRendererToggleK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result cellRendererToggleGetActivatable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_renderer_toggle_get_activatable _obj' @@ -353,11 +421,14 @@ touchManagedPtr _obj return result' +data CellRendererToggleGetActivatableMethodInfo +instance (signature ~ (m Bool), MonadIO m, CellRendererToggleK a) => MethodInfo CellRendererToggleGetActivatableMethodInfo a signature where + overloadedMethod _ = cellRendererToggleGetActivatable + -- method CellRendererToggle::get_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -369,8 +440,8 @@ cellRendererToggleGetActive :: (MonadIO m, CellRendererToggleK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result cellRendererToggleGetActive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_renderer_toggle_get_active _obj' @@ -378,11 +449,14 @@ touchManagedPtr _obj return result' +data CellRendererToggleGetActiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, CellRendererToggleK a) => MethodInfo CellRendererToggleGetActiveMethodInfo a signature where + overloadedMethod _ = cellRendererToggleGetActive + -- method CellRendererToggle::get_radio -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -394,8 +468,8 @@ cellRendererToggleGetRadio :: (MonadIO m, CellRendererToggleK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result cellRendererToggleGetRadio _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_renderer_toggle_get_radio _obj' @@ -403,11 +477,14 @@ touchManagedPtr _obj return result' +data CellRendererToggleGetRadioMethodInfo +instance (signature ~ (m Bool), MonadIO m, CellRendererToggleK a) => MethodInfo CellRendererToggleGetRadioMethodInfo a signature where + overloadedMethod _ = cellRendererToggleGetRadio + -- method CellRendererToggle::set_activatable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -420,9 +497,9 @@ cellRendererToggleSetActivatable :: (MonadIO m, CellRendererToggleK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result cellRendererToggleSetActivatable _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -430,11 +507,14 @@ touchManagedPtr _obj return () +data CellRendererToggleSetActivatableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererToggleK a) => MethodInfo CellRendererToggleSetActivatableMethodInfo a signature where + overloadedMethod _ = cellRendererToggleSetActivatable + -- method CellRendererToggle::set_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -447,9 +527,9 @@ cellRendererToggleSetActive :: (MonadIO m, CellRendererToggleK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result cellRendererToggleSetActive _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -457,11 +537,14 @@ touchManagedPtr _obj return () +data CellRendererToggleSetActiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererToggleK a) => MethodInfo CellRendererToggleSetActiveMethodInfo a signature where + overloadedMethod _ = cellRendererToggleSetActive + -- method CellRendererToggle::set_radio -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -474,14 +557,18 @@ cellRendererToggleSetRadio :: (MonadIO m, CellRendererToggleK a) => - a -> -- _obj - Bool -> -- radio - m () + a -- _obj + -> Bool -- radio + -> m () -- result cellRendererToggleSetRadio _obj radio = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let radio' = (fromIntegral . fromEnum) radio gtk_cell_renderer_toggle_set_radio _obj' radio' touchManagedPtr _obj return () + +data CellRendererToggleSetRadioMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, CellRendererToggleK a) => MethodInfo CellRendererToggleSetRadioMethodInfo a signature where + overloadedMethod _ = cellRendererToggleSetRadio diff --git a/GI/Gtk/Objects/CellRendererToggle.hs-boot b/GI/Gtk/Objects/CellRendererToggle.hs-boot --- a/GI/Gtk/Objects/CellRendererToggle.hs-boot +++ b/GI/Gtk/Objects/CellRendererToggle.hs-boot @@ -17,3 +17,9 @@ data CellRendererToggleIndicatorSizePropertyInfo data CellRendererToggleRadioPropertyInfo data CellRendererToggleToggledSignalInfo +data CellRendererToggleGetActivatableMethodInfo +data CellRendererToggleGetActiveMethodInfo +data CellRendererToggleGetRadioMethodInfo +data CellRendererToggleSetActivatableMethodInfo +data CellRendererToggleSetActiveMethodInfo +data CellRendererToggleSetRadioMethodInfo diff --git a/GI/Gtk/Objects/CellView.hs b/GI/Gtk/Objects/CellView.hs --- a/GI/Gtk/Objects/CellView.hs +++ b/GI/Gtk/Objects/CellView.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** cellViewGetDisplayedRow + CellViewGetDisplayedRowMethodInfo , cellViewGetDisplayedRow , -- ** cellViewGetDrawSensitive + CellViewGetDrawSensitiveMethodInfo , cellViewGetDrawSensitive , -- ** cellViewGetFitModel + CellViewGetFitModelMethodInfo , cellViewGetFitModel , -- ** cellViewGetModel + CellViewGetModelMethodInfo , cellViewGetModel , -- ** cellViewGetSizeOfRow + CellViewGetSizeOfRowMethodInfo , cellViewGetSizeOfRow , @@ -57,26 +63,32 @@ -- ** cellViewSetBackgroundColor + CellViewSetBackgroundColorMethodInfo , cellViewSetBackgroundColor , -- ** cellViewSetBackgroundRgba + CellViewSetBackgroundRgbaMethodInfo , cellViewSetBackgroundRgba , -- ** cellViewSetDisplayedRow + CellViewSetDisplayedRowMethodInfo , cellViewSetDisplayedRow , -- ** cellViewSetDrawSensitive + CellViewSetDrawSensitiveMethodInfo , cellViewSetDrawSensitive , -- ** cellViewSetFitModel + CellViewSetFitModelMethodInfo , cellViewSetFitModel , -- ** cellViewSetModel + CellViewSetModelMethodInfo , cellViewSetModel , @@ -182,6 +194,324 @@ noCellView :: Maybe CellView noCellView = Nothing +type family ResolveCellViewMethod (t :: Symbol) (o :: *) :: * where + ResolveCellViewMethod "activate" o = WidgetActivateMethodInfo + ResolveCellViewMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveCellViewMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo + ResolveCellViewMethod "addChild" o = BuildableAddChildMethodInfo + ResolveCellViewMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveCellViewMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveCellViewMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveCellViewMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveCellViewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCellViewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCellViewMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveCellViewMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveCellViewMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveCellViewMethod "classPath" o = WidgetClassPathMethodInfo + ResolveCellViewMethod "clear" o = CellLayoutClearMethodInfo + ResolveCellViewMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo + ResolveCellViewMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveCellViewMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveCellViewMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveCellViewMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveCellViewMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveCellViewMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveCellViewMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveCellViewMethod "destroy" o = WidgetDestroyMethodInfo + ResolveCellViewMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveCellViewMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveCellViewMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveCellViewMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveCellViewMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveCellViewMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveCellViewMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveCellViewMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveCellViewMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveCellViewMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveCellViewMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveCellViewMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveCellViewMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveCellViewMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveCellViewMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveCellViewMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveCellViewMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveCellViewMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveCellViewMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveCellViewMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveCellViewMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveCellViewMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveCellViewMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveCellViewMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveCellViewMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveCellViewMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveCellViewMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveCellViewMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveCellViewMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveCellViewMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveCellViewMethod "draw" o = WidgetDrawMethodInfo + ResolveCellViewMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveCellViewMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveCellViewMethod "event" o = WidgetEventMethodInfo + ResolveCellViewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCellViewMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveCellViewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCellViewMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveCellViewMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveCellViewMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveCellViewMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveCellViewMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveCellViewMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveCellViewMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveCellViewMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveCellViewMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveCellViewMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveCellViewMethod "hide" o = WidgetHideMethodInfo + ResolveCellViewMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveCellViewMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveCellViewMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveCellViewMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveCellViewMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveCellViewMethod "intersect" o = WidgetIntersectMethodInfo + ResolveCellViewMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveCellViewMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveCellViewMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveCellViewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCellViewMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveCellViewMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveCellViewMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveCellViewMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveCellViewMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveCellViewMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveCellViewMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveCellViewMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveCellViewMethod "map" o = WidgetMapMethodInfo + ResolveCellViewMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveCellViewMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveCellViewMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveCellViewMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveCellViewMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveCellViewMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveCellViewMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveCellViewMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveCellViewMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCellViewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCellViewMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveCellViewMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveCellViewMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveCellViewMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveCellViewMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveCellViewMethod "packEnd" o = CellLayoutPackEndMethodInfo + ResolveCellViewMethod "packStart" o = CellLayoutPackStartMethodInfo + ResolveCellViewMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveCellViewMethod "path" o = WidgetPathMethodInfo + ResolveCellViewMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveCellViewMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveCellViewMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveCellViewMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveCellViewMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveCellViewMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveCellViewMethod "realize" o = WidgetRealizeMethodInfo + ResolveCellViewMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCellViewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCellViewMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveCellViewMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveCellViewMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveCellViewMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveCellViewMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveCellViewMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveCellViewMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveCellViewMethod "reorder" o = CellLayoutReorderMethodInfo + ResolveCellViewMethod "reparent" o = WidgetReparentMethodInfo + ResolveCellViewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCellViewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCellViewMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveCellViewMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveCellViewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCellViewMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveCellViewMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveCellViewMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveCellViewMethod "show" o = WidgetShowMethodInfo + ResolveCellViewMethod "showAll" o = WidgetShowAllMethodInfo + ResolveCellViewMethod "showNow" o = WidgetShowNowMethodInfo + ResolveCellViewMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveCellViewMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveCellViewMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveCellViewMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCellViewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCellViewMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveCellViewMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveCellViewMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveCellViewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCellViewMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveCellViewMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveCellViewMethod "unmap" o = WidgetUnmapMethodInfo + ResolveCellViewMethod "unparent" o = WidgetUnparentMethodInfo + ResolveCellViewMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveCellViewMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCellViewMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveCellViewMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveCellViewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCellViewMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveCellViewMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveCellViewMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveCellViewMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveCellViewMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveCellViewMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveCellViewMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveCellViewMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveCellViewMethod "getArea" o = CellLayoutGetAreaMethodInfo + ResolveCellViewMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveCellViewMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveCellViewMethod "getCells" o = CellLayoutGetCellsMethodInfo + ResolveCellViewMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveCellViewMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveCellViewMethod "getClip" o = WidgetGetClipMethodInfo + ResolveCellViewMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveCellViewMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveCellViewMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCellViewMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveCellViewMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveCellViewMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveCellViewMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveCellViewMethod "getDisplayedRow" o = CellViewGetDisplayedRowMethodInfo + ResolveCellViewMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveCellViewMethod "getDrawSensitive" o = CellViewGetDrawSensitiveMethodInfo + ResolveCellViewMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveCellViewMethod "getFitModel" o = CellViewGetFitModelMethodInfo + ResolveCellViewMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveCellViewMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveCellViewMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveCellViewMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveCellViewMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveCellViewMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveCellViewMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveCellViewMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveCellViewMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveCellViewMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveCellViewMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveCellViewMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveCellViewMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveCellViewMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveCellViewMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveCellViewMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveCellViewMethod "getModel" o = CellViewGetModelMethodInfo + ResolveCellViewMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveCellViewMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveCellViewMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveCellViewMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveCellViewMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveCellViewMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveCellViewMethod "getParent" o = WidgetGetParentMethodInfo + ResolveCellViewMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveCellViewMethod "getPath" o = WidgetGetPathMethodInfo + ResolveCellViewMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveCellViewMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveCellViewMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveCellViewMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveCellViewMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveCellViewMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveCellViewMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveCellViewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCellViewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCellViewMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveCellViewMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveCellViewMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveCellViewMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveCellViewMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveCellViewMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveCellViewMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveCellViewMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveCellViewMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveCellViewMethod "getSizeOfRow" o = CellViewGetSizeOfRowMethodInfo + ResolveCellViewMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveCellViewMethod "getState" o = WidgetGetStateMethodInfo + ResolveCellViewMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveCellViewMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveCellViewMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveCellViewMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveCellViewMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveCellViewMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveCellViewMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveCellViewMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveCellViewMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveCellViewMethod "getValign" o = WidgetGetValignMethodInfo + ResolveCellViewMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveCellViewMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveCellViewMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveCellViewMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveCellViewMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveCellViewMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveCellViewMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveCellViewMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveCellViewMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveCellViewMethod "setBackgroundColor" o = CellViewSetBackgroundColorMethodInfo + ResolveCellViewMethod "setBackgroundRgba" o = CellViewSetBackgroundRgbaMethodInfo + ResolveCellViewMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveCellViewMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveCellViewMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveCellViewMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo + ResolveCellViewMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveCellViewMethod "setClip" o = WidgetSetClipMethodInfo + ResolveCellViewMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveCellViewMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCellViewMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveCellViewMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveCellViewMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveCellViewMethod "setDisplayedRow" o = CellViewSetDisplayedRowMethodInfo + ResolveCellViewMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveCellViewMethod "setDrawSensitive" o = CellViewSetDrawSensitiveMethodInfo + ResolveCellViewMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveCellViewMethod "setFitModel" o = CellViewSetFitModelMethodInfo + ResolveCellViewMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveCellViewMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveCellViewMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveCellViewMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveCellViewMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveCellViewMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveCellViewMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveCellViewMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveCellViewMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveCellViewMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveCellViewMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveCellViewMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveCellViewMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveCellViewMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveCellViewMethod "setModel" o = CellViewSetModelMethodInfo + ResolveCellViewMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveCellViewMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveCellViewMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveCellViewMethod "setParent" o = WidgetSetParentMethodInfo + ResolveCellViewMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveCellViewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCellViewMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveCellViewMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveCellViewMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveCellViewMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveCellViewMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveCellViewMethod "setState" o = WidgetSetStateMethodInfo + ResolveCellViewMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveCellViewMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveCellViewMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveCellViewMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveCellViewMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveCellViewMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveCellViewMethod "setValign" o = WidgetSetValignMethodInfo + ResolveCellViewMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveCellViewMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveCellViewMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveCellViewMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveCellViewMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveCellViewMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCellViewMethod t CellView, MethodInfo info CellView p) => IsLabelProxy t (CellView -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCellViewMethod t CellView, MethodInfo info CellView p) => IsLabel t (CellView -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "background" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] @@ -198,7 +528,7 @@ type AttrSetTypeConstraint CellViewBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellViewBackgroundPropertyInfo = CellViewK type AttrGetType CellViewBackgroundPropertyInfo = () - type AttrLabel CellViewBackgroundPropertyInfo = "CellView::background" + type AttrLabel CellViewBackgroundPropertyInfo = "background" attrGet _ = undefined attrSet _ = setCellViewBackground attrConstruct _ = constructCellViewBackground @@ -222,7 +552,7 @@ type AttrSetTypeConstraint CellViewBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint CellViewBackgroundGdkPropertyInfo = CellViewK type AttrGetType CellViewBackgroundGdkPropertyInfo = Gdk.Color - type AttrLabel CellViewBackgroundGdkPropertyInfo = "CellView::background-gdk" + type AttrLabel CellViewBackgroundGdkPropertyInfo = "background-gdk" attrGet _ = getCellViewBackgroundGdk attrSet _ = setCellViewBackgroundGdk attrConstruct _ = constructCellViewBackgroundGdk @@ -246,7 +576,7 @@ type AttrSetTypeConstraint CellViewBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint CellViewBackgroundRgbaPropertyInfo = CellViewK type AttrGetType CellViewBackgroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel CellViewBackgroundRgbaPropertyInfo = "CellView::background-rgba" + type AttrLabel CellViewBackgroundRgbaPropertyInfo = "background-rgba" attrGet _ = getCellViewBackgroundRgba attrSet _ = setCellViewBackgroundRgba attrConstruct _ = constructCellViewBackgroundRgba @@ -270,7 +600,7 @@ type AttrSetTypeConstraint CellViewBackgroundSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellViewBackgroundSetPropertyInfo = CellViewK type AttrGetType CellViewBackgroundSetPropertyInfo = Bool - type AttrLabel CellViewBackgroundSetPropertyInfo = "CellView::background-set" + type AttrLabel CellViewBackgroundSetPropertyInfo = "background-set" attrGet _ = getCellViewBackgroundSet attrSet _ = setCellViewBackgroundSet attrConstruct _ = constructCellViewBackgroundSet @@ -291,7 +621,7 @@ type AttrSetTypeConstraint CellViewCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint CellViewCellAreaPropertyInfo = CellViewK type AttrGetType CellViewCellAreaPropertyInfo = CellArea - type AttrLabel CellViewCellAreaPropertyInfo = "CellView::cell-area" + type AttrLabel CellViewCellAreaPropertyInfo = "cell-area" attrGet _ = getCellViewCellArea attrSet _ = undefined attrConstruct _ = constructCellViewCellArea @@ -312,7 +642,7 @@ type AttrSetTypeConstraint CellViewCellAreaContextPropertyInfo = CellAreaContextK type AttrBaseTypeConstraint CellViewCellAreaContextPropertyInfo = CellViewK type AttrGetType CellViewCellAreaContextPropertyInfo = CellAreaContext - type AttrLabel CellViewCellAreaContextPropertyInfo = "CellView::cell-area-context" + type AttrLabel CellViewCellAreaContextPropertyInfo = "cell-area-context" attrGet _ = getCellViewCellAreaContext attrSet _ = undefined attrConstruct _ = constructCellViewCellAreaContext @@ -336,7 +666,7 @@ type AttrSetTypeConstraint CellViewDrawSensitivePropertyInfo = (~) Bool type AttrBaseTypeConstraint CellViewDrawSensitivePropertyInfo = CellViewK type AttrGetType CellViewDrawSensitivePropertyInfo = Bool - type AttrLabel CellViewDrawSensitivePropertyInfo = "CellView::draw-sensitive" + type AttrLabel CellViewDrawSensitivePropertyInfo = "draw-sensitive" attrGet _ = getCellViewDrawSensitive attrSet _ = setCellViewDrawSensitive attrConstruct _ = constructCellViewDrawSensitive @@ -360,7 +690,7 @@ type AttrSetTypeConstraint CellViewFitModelPropertyInfo = (~) Bool type AttrBaseTypeConstraint CellViewFitModelPropertyInfo = CellViewK type AttrGetType CellViewFitModelPropertyInfo = Bool - type AttrLabel CellViewFitModelPropertyInfo = "CellView::fit-model" + type AttrLabel CellViewFitModelPropertyInfo = "fit-model" attrGet _ = getCellViewFitModel attrSet _ = setCellViewFitModel attrConstruct _ = constructCellViewFitModel @@ -384,22 +714,21 @@ type AttrSetTypeConstraint CellViewModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint CellViewModelPropertyInfo = CellViewK type AttrGetType CellViewModelPropertyInfo = TreeModel - type AttrLabel CellViewModelPropertyInfo = "CellView::model" + type AttrLabel CellViewModelPropertyInfo = "model" attrGet _ = getCellViewModel attrSet _ = setCellViewModel attrConstruct _ = constructCellViewModel type instance AttributeList CellView = CellViewAttributeList -type CellViewAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("background", CellViewBackgroundPropertyInfo), '("background-gdk", CellViewBackgroundGdkPropertyInfo), '("background-rgba", CellViewBackgroundRgbaPropertyInfo), '("background-set", CellViewBackgroundSetPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", CellViewCellAreaPropertyInfo), '("cell-area-context", CellViewCellAreaContextPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-sensitive", CellViewDrawSensitivePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fit-model", CellViewFitModelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", CellViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type CellViewAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("background", CellViewBackgroundPropertyInfo), '("backgroundGdk", CellViewBackgroundGdkPropertyInfo), '("backgroundRgba", CellViewBackgroundRgbaPropertyInfo), '("backgroundSet", CellViewBackgroundSetPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", CellViewCellAreaPropertyInfo), '("cellAreaContext", CellViewCellAreaContextPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawSensitive", CellViewDrawSensitivePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fitModel", CellViewFitModelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", CellViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList CellView = CellViewSignalList -type CellViewSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CellViewSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method CellView::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CellView" -- throws : False -- Skip return : False @@ -410,7 +739,7 @@ cellViewNew :: (MonadIO m) => - m CellView + m CellView -- result cellViewNew = liftIO $ do result <- gtk_cell_view_new checkUnexpectedReturnNULL "gtk_cell_view_new" result @@ -419,9 +748,8 @@ -- method CellView::new_with_context -- method type : Constructor --- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellView" -- throws : False -- Skip return : False @@ -434,9 +762,9 @@ cellViewNewWithContext :: (MonadIO m, CellAreaK a, CellAreaContextK b) => - a -> -- area - b -> -- context - m CellView + a -- area + -> b -- context + -> m CellView -- result cellViewNewWithContext area context = liftIO $ do let area' = unsafeManagedPtrCastPtr area let context' = unsafeManagedPtrCastPtr context @@ -449,9 +777,8 @@ -- method CellView::new_with_markup -- method type : Constructor --- Args : [Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellView" -- throws : False -- Skip return : False @@ -463,8 +790,8 @@ cellViewNewWithMarkup :: (MonadIO m) => - T.Text -> -- markup - m CellView + T.Text -- markup + -> m CellView -- result cellViewNewWithMarkup markup = liftIO $ do markup' <- textToCString markup result <- gtk_cell_view_new_with_markup markup' @@ -475,9 +802,8 @@ -- method CellView::new_with_pixbuf -- method type : Constructor --- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellView" -- throws : False -- Skip return : False @@ -489,8 +815,8 @@ cellViewNewWithPixbuf :: (MonadIO m, GdkPixbuf.PixbufK a) => - a -> -- pixbuf - m CellView + a -- pixbuf + -> m CellView -- result cellViewNewWithPixbuf pixbuf = liftIO $ do let pixbuf' = unsafeManagedPtrCastPtr pixbuf result <- gtk_cell_view_new_with_pixbuf pixbuf' @@ -501,9 +827,8 @@ -- method CellView::new_with_text -- method type : Constructor --- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CellView" -- throws : False -- Skip return : False @@ -515,8 +840,8 @@ cellViewNewWithText :: (MonadIO m) => - T.Text -> -- text - m CellView + T.Text -- text + -> m CellView -- result cellViewNewWithText text = liftIO $ do text' <- textToCString text result <- gtk_cell_view_new_with_text text' @@ -527,9 +852,8 @@ -- method CellView::get_displayed_row -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreePath" -- throws : False -- Skip return : False @@ -541,8 +865,8 @@ cellViewGetDisplayedRow :: (MonadIO m, CellViewK a) => - a -> -- _obj - m TreePath + a -- _obj + -> m TreePath -- result cellViewGetDisplayedRow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_view_get_displayed_row _obj' @@ -551,11 +875,14 @@ touchManagedPtr _obj return result' +data CellViewGetDisplayedRowMethodInfo +instance (signature ~ (m TreePath), MonadIO m, CellViewK a) => MethodInfo CellViewGetDisplayedRowMethodInfo a signature where + overloadedMethod _ = cellViewGetDisplayedRow + -- method CellView::get_draw_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -567,8 +894,8 @@ cellViewGetDrawSensitive :: (MonadIO m, CellViewK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result cellViewGetDrawSensitive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_view_get_draw_sensitive _obj' @@ -576,11 +903,14 @@ touchManagedPtr _obj return result' +data CellViewGetDrawSensitiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, CellViewK a) => MethodInfo CellViewGetDrawSensitiveMethodInfo a signature where + overloadedMethod _ = cellViewGetDrawSensitive + -- method CellView::get_fit_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -592,8 +922,8 @@ cellViewGetFitModel :: (MonadIO m, CellViewK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result cellViewGetFitModel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_view_get_fit_model _obj' @@ -601,11 +931,14 @@ touchManagedPtr _obj return result' +data CellViewGetFitModelMethodInfo +instance (signature ~ (m Bool), MonadIO m, CellViewK a) => MethodInfo CellViewGetFitModelMethodInfo a signature where + overloadedMethod _ = cellViewGetFitModel + -- method CellView::get_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeModel" -- throws : False -- Skip return : False @@ -617,8 +950,8 @@ cellViewGetModel :: (MonadIO m, CellViewK a) => - a -> -- _obj - m TreeModel + a -- _obj + -> m TreeModel -- result cellViewGetModel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_view_get_model _obj' @@ -627,11 +960,14 @@ touchManagedPtr _obj return result' +data CellViewGetModelMethodInfo +instance (signature ~ (m TreeModel), MonadIO m, CellViewK a) => MethodInfo CellViewGetModelMethodInfo a signature where + overloadedMethod _ = cellViewGetModel + -- method CellView::get_size_of_row -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -645,9 +981,9 @@ {-# DEPRECATED cellViewGetSizeOfRow ["(Since version 3.0)","Combo box formerly used this to calculate the","sizes for cellviews, now you can achieve this by either using","the #GtkCellView:fit-model property or by setting the currently","displayed row of the #GtkCellView and using gtk_widget_get_preferred_size()."]#-} cellViewGetSizeOfRow :: (MonadIO m, CellViewK a) => - a -> -- _obj - TreePath -> -- path - m (Bool,Requisition) + a -- _obj + -> TreePath -- path + -> m (Bool,Requisition) -- result cellViewGetSizeOfRow _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -659,11 +995,14 @@ touchManagedPtr path return (result', requisition') +data CellViewGetSizeOfRowMethodInfo +instance (signature ~ (TreePath -> m (Bool,Requisition)), MonadIO m, CellViewK a) => MethodInfo CellViewGetSizeOfRowMethodInfo a signature where + overloadedMethod _ = cellViewGetSizeOfRow + -- method CellView::set_background_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -676,9 +1015,9 @@ {-# DEPRECATED cellViewSetBackgroundColor ["(Since version 3.4)","Use gtk_cell_view_set_background_rgba() instead."]#-} cellViewSetBackgroundColor :: (MonadIO m, CellViewK a) => - a -> -- _obj - Gdk.Color -> -- color - m () + a -- _obj + -> Gdk.Color -- color + -> m () -- result cellViewSetBackgroundColor _obj color = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let color' = unsafeManagedPtrGetPtr color @@ -687,11 +1026,14 @@ touchManagedPtr color return () +data CellViewSetBackgroundColorMethodInfo +instance (signature ~ (Gdk.Color -> m ()), MonadIO m, CellViewK a) => MethodInfo CellViewSetBackgroundColorMethodInfo a signature where + overloadedMethod _ = cellViewSetBackgroundColor + -- method CellView::set_background_rgba -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -704,9 +1046,9 @@ cellViewSetBackgroundRgba :: (MonadIO m, CellViewK a) => - a -> -- _obj - Gdk.RGBA -> -- rgba - m () + a -- _obj + -> Gdk.RGBA -- rgba + -> m () -- result cellViewSetBackgroundRgba _obj rgba = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let rgba' = unsafeManagedPtrGetPtr rgba @@ -715,11 +1057,14 @@ touchManagedPtr rgba return () +data CellViewSetBackgroundRgbaMethodInfo +instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, CellViewK a) => MethodInfo CellViewSetBackgroundRgbaMethodInfo a signature where + overloadedMethod _ = cellViewSetBackgroundRgba + -- method CellView::set_displayed_row -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -732,9 +1077,9 @@ cellViewSetDisplayedRow :: (MonadIO m, CellViewK a) => - a -> -- _obj - Maybe (TreePath) -> -- path - m () + a -- _obj + -> Maybe (TreePath) -- path + -> m () -- result cellViewSetDisplayedRow _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybePath <- case path of @@ -747,11 +1092,14 @@ whenJust path touchManagedPtr return () +data CellViewSetDisplayedRowMethodInfo +instance (signature ~ (Maybe (TreePath) -> m ()), MonadIO m, CellViewK a) => MethodInfo CellViewSetDisplayedRowMethodInfo a signature where + overloadedMethod _ = cellViewSetDisplayedRow + -- method CellView::set_draw_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -764,21 +1112,24 @@ cellViewSetDrawSensitive :: (MonadIO m, CellViewK a) => - a -> -- _obj - Bool -> -- draw_sensitive - m () -cellViewSetDrawSensitive _obj draw_sensitive = liftIO $ do + a -- _obj + -> Bool -- drawSensitive + -> m () -- result +cellViewSetDrawSensitive _obj drawSensitive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let draw_sensitive' = (fromIntegral . fromEnum) draw_sensitive - gtk_cell_view_set_draw_sensitive _obj' draw_sensitive' + let drawSensitive' = (fromIntegral . fromEnum) drawSensitive + gtk_cell_view_set_draw_sensitive _obj' drawSensitive' touchManagedPtr _obj return () +data CellViewSetDrawSensitiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, CellViewK a) => MethodInfo CellViewSetDrawSensitiveMethodInfo a signature where + overloadedMethod _ = cellViewSetDrawSensitive + -- method CellView::set_fit_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fit_model", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fit_model", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fit_model", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -791,21 +1142,24 @@ cellViewSetFitModel :: (MonadIO m, CellViewK a) => - a -> -- _obj - Bool -> -- fit_model - m () -cellViewSetFitModel _obj fit_model = liftIO $ do + a -- _obj + -> Bool -- fitModel + -> m () -- result +cellViewSetFitModel _obj fitModel = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let fit_model' = (fromIntegral . fromEnum) fit_model - gtk_cell_view_set_fit_model _obj' fit_model' + let fitModel' = (fromIntegral . fromEnum) fitModel + gtk_cell_view_set_fit_model _obj' fitModel' touchManagedPtr _obj return () +data CellViewSetFitModelMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, CellViewK a) => MethodInfo CellViewSetFitModelMethodInfo a signature where + overloadedMethod _ = cellViewSetFitModel + -- method CellView::set_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -818,9 +1172,9 @@ cellViewSetModel :: (MonadIO m, CellViewK a, TreeModelK b) => - a -> -- _obj - Maybe (b) -> -- model - m () + a -- _obj + -> Maybe (b) -- model + -> m () -- result cellViewSetModel _obj model = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeModel <- case model of @@ -832,5 +1186,9 @@ touchManagedPtr _obj whenJust model touchManagedPtr return () + +data CellViewSetModelMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, CellViewK a, TreeModelK b) => MethodInfo CellViewSetModelMethodInfo a signature where + overloadedMethod _ = cellViewSetModel diff --git a/GI/Gtk/Objects/CellView.hs-boot b/GI/Gtk/Objects/CellView.hs-boot --- a/GI/Gtk/Objects/CellView.hs-boot +++ b/GI/Gtk/Objects/CellView.hs-boot @@ -20,3 +20,14 @@ data CellViewDrawSensitivePropertyInfo data CellViewFitModelPropertyInfo data CellViewModelPropertyInfo +data CellViewGetDisplayedRowMethodInfo +data CellViewGetDrawSensitiveMethodInfo +data CellViewGetFitModelMethodInfo +data CellViewGetModelMethodInfo +data CellViewGetSizeOfRowMethodInfo +data CellViewSetBackgroundColorMethodInfo +data CellViewSetBackgroundRgbaMethodInfo +data CellViewSetDisplayedRowMethodInfo +data CellViewSetDrawSensitiveMethodInfo +data CellViewSetFitModelMethodInfo +data CellViewSetModelMethodInfo diff --git a/GI/Gtk/Objects/CheckButton.hs b/GI/Gtk/Objects/CheckButton.hs --- a/GI/Gtk/Objects/CheckButton.hs +++ b/GI/Gtk/Objects/CheckButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -65,17 +66,381 @@ noCheckButton :: Maybe CheckButton noCheckButton = Nothing +type family ResolveCheckButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveCheckButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveCheckButtonMethod "add" o = ContainerAddMethodInfo + ResolveCheckButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveCheckButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveCheckButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveCheckButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveCheckButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveCheckButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveCheckButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCheckButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCheckButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveCheckButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveCheckButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveCheckButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveCheckButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveCheckButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveCheckButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveCheckButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveCheckButtonMethod "clicked" o = ButtonClickedMethodInfo + ResolveCheckButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveCheckButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveCheckButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveCheckButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveCheckButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveCheckButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveCheckButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveCheckButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveCheckButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveCheckButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveCheckButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveCheckButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveCheckButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveCheckButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveCheckButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveCheckButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveCheckButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveCheckButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveCheckButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveCheckButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveCheckButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveCheckButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveCheckButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveCheckButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveCheckButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveCheckButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveCheckButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveCheckButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveCheckButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveCheckButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveCheckButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveCheckButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveCheckButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveCheckButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveCheckButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveCheckButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveCheckButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveCheckButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveCheckButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveCheckButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveCheckButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveCheckButtonMethod "enter" o = ButtonEnterMethodInfo + ResolveCheckButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveCheckButtonMethod "event" o = WidgetEventMethodInfo + ResolveCheckButtonMethod "forall" o = ContainerForallMethodInfo + ResolveCheckButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCheckButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveCheckButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveCheckButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCheckButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveCheckButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveCheckButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveCheckButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveCheckButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveCheckButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveCheckButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveCheckButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveCheckButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveCheckButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveCheckButtonMethod "hide" o = WidgetHideMethodInfo + ResolveCheckButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveCheckButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveCheckButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveCheckButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveCheckButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveCheckButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveCheckButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveCheckButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveCheckButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveCheckButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCheckButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveCheckButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveCheckButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveCheckButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveCheckButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveCheckButtonMethod "leave" o = ButtonLeaveMethodInfo + ResolveCheckButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveCheckButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveCheckButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveCheckButtonMethod "map" o = WidgetMapMethodInfo + ResolveCheckButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveCheckButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveCheckButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveCheckButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveCheckButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveCheckButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveCheckButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveCheckButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveCheckButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCheckButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCheckButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveCheckButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveCheckButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveCheckButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveCheckButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveCheckButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveCheckButtonMethod "path" o = WidgetPathMethodInfo + ResolveCheckButtonMethod "pressed" o = ButtonPressedMethodInfo + ResolveCheckButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveCheckButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveCheckButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveCheckButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveCheckButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveCheckButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveCheckButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveCheckButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveCheckButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCheckButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCheckButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveCheckButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveCheckButtonMethod "released" o = ButtonReleasedMethodInfo + ResolveCheckButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveCheckButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveCheckButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveCheckButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveCheckButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveCheckButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveCheckButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveCheckButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCheckButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCheckButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveCheckButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveCheckButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveCheckButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCheckButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveCheckButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveCheckButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveCheckButtonMethod "show" o = WidgetShowMethodInfo + ResolveCheckButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveCheckButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveCheckButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveCheckButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveCheckButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveCheckButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCheckButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCheckButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveCheckButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveCheckButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveCheckButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveCheckButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCheckButtonMethod "toggled" o = ToggleButtonToggledMethodInfo + ResolveCheckButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveCheckButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveCheckButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveCheckButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveCheckButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveCheckButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCheckButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveCheckButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveCheckButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveCheckButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCheckButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveCheckButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveCheckButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveCheckButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveCheckButtonMethod "getActive" o = ToggleButtonGetActiveMethodInfo + ResolveCheckButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo + ResolveCheckButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveCheckButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveCheckButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveCheckButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveCheckButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo + ResolveCheckButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveCheckButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveCheckButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveCheckButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveCheckButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveCheckButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveCheckButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveCheckButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveCheckButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveCheckButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveCheckButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveCheckButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveCheckButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCheckButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveCheckButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveCheckButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveCheckButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveCheckButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveCheckButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo + ResolveCheckButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveCheckButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveCheckButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveCheckButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveCheckButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo + ResolveCheckButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveCheckButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveCheckButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveCheckButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveCheckButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveCheckButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveCheckButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveCheckButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveCheckButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveCheckButtonMethod "getImage" o = ButtonGetImageMethodInfo + ResolveCheckButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo + ResolveCheckButtonMethod "getInconsistent" o = ToggleButtonGetInconsistentMethodInfo + ResolveCheckButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveCheckButtonMethod "getLabel" o = ButtonGetLabelMethodInfo + ResolveCheckButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveCheckButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveCheckButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveCheckButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveCheckButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveCheckButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveCheckButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveCheckButtonMethod "getMode" o = ToggleButtonGetModeMethodInfo + ResolveCheckButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveCheckButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveCheckButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveCheckButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveCheckButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveCheckButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveCheckButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveCheckButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveCheckButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveCheckButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveCheckButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveCheckButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveCheckButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveCheckButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveCheckButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveCheckButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveCheckButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCheckButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCheckButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveCheckButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveCheckButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveCheckButtonMethod "getRelief" o = ButtonGetReliefMethodInfo + ResolveCheckButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveCheckButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveCheckButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveCheckButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveCheckButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveCheckButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveCheckButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveCheckButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveCheckButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveCheckButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveCheckButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveCheckButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveCheckButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveCheckButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveCheckButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveCheckButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveCheckButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveCheckButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveCheckButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveCheckButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveCheckButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo + ResolveCheckButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo + ResolveCheckButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveCheckButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveCheckButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveCheckButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveCheckButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveCheckButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveCheckButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveCheckButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveCheckButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveCheckButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveCheckButtonMethod "setActive" o = ToggleButtonSetActiveMethodInfo + ResolveCheckButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo + ResolveCheckButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveCheckButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo + ResolveCheckButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveCheckButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveCheckButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveCheckButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveCheckButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveCheckButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveCheckButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveCheckButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveCheckButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCheckButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveCheckButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveCheckButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveCheckButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveCheckButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveCheckButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveCheckButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveCheckButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveCheckButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveCheckButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo + ResolveCheckButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveCheckButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveCheckButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveCheckButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveCheckButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveCheckButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveCheckButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveCheckButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveCheckButtonMethod "setImage" o = ButtonSetImageMethodInfo + ResolveCheckButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo + ResolveCheckButtonMethod "setInconsistent" o = ToggleButtonSetInconsistentMethodInfo + ResolveCheckButtonMethod "setLabel" o = ButtonSetLabelMethodInfo + ResolveCheckButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveCheckButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveCheckButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveCheckButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveCheckButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveCheckButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveCheckButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveCheckButtonMethod "setMode" o = ToggleButtonSetModeMethodInfo + ResolveCheckButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveCheckButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveCheckButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveCheckButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveCheckButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCheckButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveCheckButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveCheckButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveCheckButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveCheckButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveCheckButtonMethod "setRelief" o = ButtonSetReliefMethodInfo + ResolveCheckButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveCheckButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveCheckButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveCheckButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveCheckButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveCheckButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveCheckButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveCheckButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveCheckButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveCheckButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveCheckButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveCheckButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo + ResolveCheckButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo + ResolveCheckButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveCheckButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveCheckButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveCheckButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveCheckButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveCheckButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveCheckButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCheckButtonMethod t CheckButton, MethodInfo info CheckButton p) => IsLabelProxy t (CheckButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCheckButtonMethod t CheckButton, MethodInfo info CheckButton p) => IsLabel t (CheckButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList CheckButton = CheckButtonAttributeList -type CheckButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-indicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +type CheckButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) type instance SignalList CheckButton = CheckButtonSignalList -type CheckButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CheckButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method CheckButton::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CheckButton" -- throws : False -- Skip return : False @@ -86,7 +451,7 @@ checkButtonNew :: (MonadIO m) => - m CheckButton + m CheckButton -- result checkButtonNew = liftIO $ do result <- gtk_check_button_new checkUnexpectedReturnNULL "gtk_check_button_new" result @@ -95,9 +460,8 @@ -- method CheckButton::new_with_label -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CheckButton" -- throws : False -- Skip return : False @@ -109,8 +473,8 @@ checkButtonNewWithLabel :: (MonadIO m) => - T.Text -> -- label - m CheckButton + T.Text -- label + -> m CheckButton -- result checkButtonNewWithLabel label = liftIO $ do label' <- textToCString label result <- gtk_check_button_new_with_label label' @@ -121,9 +485,8 @@ -- method CheckButton::new_with_mnemonic -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CheckButton" -- throws : False -- Skip return : False @@ -135,8 +498,8 @@ checkButtonNewWithMnemonic :: (MonadIO m) => - T.Text -> -- label - m CheckButton + T.Text -- label + -> m CheckButton -- result checkButtonNewWithMnemonic label = liftIO $ do label' <- textToCString label result <- gtk_check_button_new_with_mnemonic label' diff --git a/GI/Gtk/Objects/CheckMenuItem.hs b/GI/Gtk/Objects/CheckMenuItem.hs --- a/GI/Gtk/Objects/CheckMenuItem.hs +++ b/GI/Gtk/Objects/CheckMenuItem.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** checkMenuItemGetActive + CheckMenuItemGetActiveMethodInfo , checkMenuItemGetActive , -- ** checkMenuItemGetDrawAsRadio + CheckMenuItemGetDrawAsRadioMethodInfo , checkMenuItemGetDrawAsRadio , -- ** checkMenuItemGetInconsistent + CheckMenuItemGetInconsistentMethodInfo , checkMenuItemGetInconsistent , @@ -41,18 +45,22 @@ -- ** checkMenuItemSetActive + CheckMenuItemSetActiveMethodInfo , checkMenuItemSetActive , -- ** checkMenuItemSetDrawAsRadio + CheckMenuItemSetDrawAsRadioMethodInfo , checkMenuItemSetDrawAsRadio , -- ** checkMenuItemSetInconsistent + CheckMenuItemSetInconsistentMethodInfo , checkMenuItemSetInconsistent , -- ** checkMenuItemToggled + CheckMenuItemToggledMethodInfo , checkMenuItemToggled , @@ -132,6 +140,360 @@ noCheckMenuItem :: Maybe CheckMenuItem noCheckMenuItem = Nothing +type family ResolveCheckMenuItemMethod (t :: Symbol) (o :: *) :: * where + ResolveCheckMenuItemMethod "add" o = ContainerAddMethodInfo + ResolveCheckMenuItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveCheckMenuItemMethod "addChild" o = BuildableAddChildMethodInfo + ResolveCheckMenuItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveCheckMenuItemMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveCheckMenuItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveCheckMenuItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveCheckMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCheckMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCheckMenuItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveCheckMenuItemMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveCheckMenuItemMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveCheckMenuItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveCheckMenuItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveCheckMenuItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveCheckMenuItemMethod "childType" o = ContainerChildTypeMethodInfo + ResolveCheckMenuItemMethod "classPath" o = WidgetClassPathMethodInfo + ResolveCheckMenuItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveCheckMenuItemMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveCheckMenuItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveCheckMenuItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveCheckMenuItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveCheckMenuItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveCheckMenuItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveCheckMenuItemMethod "deselect" o = MenuItemDeselectMethodInfo + ResolveCheckMenuItemMethod "destroy" o = WidgetDestroyMethodInfo + ResolveCheckMenuItemMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveCheckMenuItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveCheckMenuItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveCheckMenuItemMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveCheckMenuItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveCheckMenuItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveCheckMenuItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveCheckMenuItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveCheckMenuItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveCheckMenuItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveCheckMenuItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveCheckMenuItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveCheckMenuItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveCheckMenuItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveCheckMenuItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveCheckMenuItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveCheckMenuItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveCheckMenuItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveCheckMenuItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveCheckMenuItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveCheckMenuItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveCheckMenuItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveCheckMenuItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveCheckMenuItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveCheckMenuItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveCheckMenuItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveCheckMenuItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveCheckMenuItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveCheckMenuItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveCheckMenuItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveCheckMenuItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveCheckMenuItemMethod "draw" o = WidgetDrawMethodInfo + ResolveCheckMenuItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveCheckMenuItemMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveCheckMenuItemMethod "event" o = WidgetEventMethodInfo + ResolveCheckMenuItemMethod "forall" o = ContainerForallMethodInfo + ResolveCheckMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCheckMenuItemMethod "foreach" o = ContainerForeachMethodInfo + ResolveCheckMenuItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveCheckMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCheckMenuItemMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveCheckMenuItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveCheckMenuItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveCheckMenuItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveCheckMenuItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveCheckMenuItemMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveCheckMenuItemMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveCheckMenuItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveCheckMenuItemMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveCheckMenuItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveCheckMenuItemMethod "hide" o = WidgetHideMethodInfo + ResolveCheckMenuItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveCheckMenuItemMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveCheckMenuItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveCheckMenuItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveCheckMenuItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveCheckMenuItemMethod "intersect" o = WidgetIntersectMethodInfo + ResolveCheckMenuItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveCheckMenuItemMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveCheckMenuItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveCheckMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCheckMenuItemMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveCheckMenuItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveCheckMenuItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveCheckMenuItemMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveCheckMenuItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveCheckMenuItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveCheckMenuItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveCheckMenuItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveCheckMenuItemMethod "map" o = WidgetMapMethodInfo + ResolveCheckMenuItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveCheckMenuItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveCheckMenuItemMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveCheckMenuItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveCheckMenuItemMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveCheckMenuItemMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveCheckMenuItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveCheckMenuItemMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveCheckMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCheckMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCheckMenuItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveCheckMenuItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveCheckMenuItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveCheckMenuItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveCheckMenuItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveCheckMenuItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveCheckMenuItemMethod "path" o = WidgetPathMethodInfo + ResolveCheckMenuItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveCheckMenuItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveCheckMenuItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveCheckMenuItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveCheckMenuItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveCheckMenuItemMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveCheckMenuItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveCheckMenuItemMethod "realize" o = WidgetRealizeMethodInfo + ResolveCheckMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCheckMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCheckMenuItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveCheckMenuItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveCheckMenuItemMethod "remove" o = ContainerRemoveMethodInfo + ResolveCheckMenuItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveCheckMenuItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveCheckMenuItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveCheckMenuItemMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveCheckMenuItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveCheckMenuItemMethod "reparent" o = WidgetReparentMethodInfo + ResolveCheckMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCheckMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCheckMenuItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveCheckMenuItemMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveCheckMenuItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveCheckMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCheckMenuItemMethod "select" o = MenuItemSelectMethodInfo + ResolveCheckMenuItemMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveCheckMenuItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveCheckMenuItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveCheckMenuItemMethod "show" o = WidgetShowMethodInfo + ResolveCheckMenuItemMethod "showAll" o = WidgetShowAllMethodInfo + ResolveCheckMenuItemMethod "showNow" o = WidgetShowNowMethodInfo + ResolveCheckMenuItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveCheckMenuItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveCheckMenuItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveCheckMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCheckMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCheckMenuItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveCheckMenuItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveCheckMenuItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveCheckMenuItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveCheckMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCheckMenuItemMethod "toggleSizeAllocate" o = MenuItemToggleSizeAllocateMethodInfo + ResolveCheckMenuItemMethod "toggleSizeRequest" o = MenuItemToggleSizeRequestMethodInfo + ResolveCheckMenuItemMethod "toggled" o = CheckMenuItemToggledMethodInfo + ResolveCheckMenuItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveCheckMenuItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveCheckMenuItemMethod "unmap" o = WidgetUnmapMethodInfo + ResolveCheckMenuItemMethod "unparent" o = WidgetUnparentMethodInfo + ResolveCheckMenuItemMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveCheckMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCheckMenuItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveCheckMenuItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveCheckMenuItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveCheckMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCheckMenuItemMethod "getAccelPath" o = MenuItemGetAccelPathMethodInfo + ResolveCheckMenuItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveCheckMenuItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveCheckMenuItemMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveCheckMenuItemMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveCheckMenuItemMethod "getActive" o = CheckMenuItemGetActiveMethodInfo + ResolveCheckMenuItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveCheckMenuItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveCheckMenuItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveCheckMenuItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveCheckMenuItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveCheckMenuItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveCheckMenuItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveCheckMenuItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveCheckMenuItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveCheckMenuItemMethod "getChild" o = BinGetChildMethodInfo + ResolveCheckMenuItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveCheckMenuItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveCheckMenuItemMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveCheckMenuItemMethod "getClip" o = WidgetGetClipMethodInfo + ResolveCheckMenuItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveCheckMenuItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveCheckMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCheckMenuItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveCheckMenuItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveCheckMenuItemMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveCheckMenuItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveCheckMenuItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveCheckMenuItemMethod "getDrawAsRadio" o = CheckMenuItemGetDrawAsRadioMethodInfo + ResolveCheckMenuItemMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveCheckMenuItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveCheckMenuItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveCheckMenuItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveCheckMenuItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveCheckMenuItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveCheckMenuItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveCheckMenuItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveCheckMenuItemMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveCheckMenuItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveCheckMenuItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveCheckMenuItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveCheckMenuItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveCheckMenuItemMethod "getInconsistent" o = CheckMenuItemGetInconsistentMethodInfo + ResolveCheckMenuItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveCheckMenuItemMethod "getLabel" o = MenuItemGetLabelMethodInfo + ResolveCheckMenuItemMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveCheckMenuItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveCheckMenuItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveCheckMenuItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveCheckMenuItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveCheckMenuItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveCheckMenuItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveCheckMenuItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveCheckMenuItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveCheckMenuItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveCheckMenuItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveCheckMenuItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveCheckMenuItemMethod "getParent" o = WidgetGetParentMethodInfo + ResolveCheckMenuItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveCheckMenuItemMethod "getPath" o = WidgetGetPathMethodInfo + ResolveCheckMenuItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveCheckMenuItemMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveCheckMenuItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveCheckMenuItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveCheckMenuItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveCheckMenuItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveCheckMenuItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveCheckMenuItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveCheckMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCheckMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCheckMenuItemMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveCheckMenuItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveCheckMenuItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveCheckMenuItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveCheckMenuItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveCheckMenuItemMethod "getReserveIndicator" o = MenuItemGetReserveIndicatorMethodInfo + ResolveCheckMenuItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveCheckMenuItemMethod "getRightJustified" o = MenuItemGetRightJustifiedMethodInfo + ResolveCheckMenuItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveCheckMenuItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveCheckMenuItemMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveCheckMenuItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveCheckMenuItemMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveCheckMenuItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveCheckMenuItemMethod "getState" o = WidgetGetStateMethodInfo + ResolveCheckMenuItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveCheckMenuItemMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveCheckMenuItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveCheckMenuItemMethod "getSubmenu" o = MenuItemGetSubmenuMethodInfo + ResolveCheckMenuItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveCheckMenuItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveCheckMenuItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveCheckMenuItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveCheckMenuItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveCheckMenuItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveCheckMenuItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveCheckMenuItemMethod "getUseUnderline" o = MenuItemGetUseUnderlineMethodInfo + ResolveCheckMenuItemMethod "getValign" o = WidgetGetValignMethodInfo + ResolveCheckMenuItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveCheckMenuItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveCheckMenuItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveCheckMenuItemMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveCheckMenuItemMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveCheckMenuItemMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveCheckMenuItemMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveCheckMenuItemMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveCheckMenuItemMethod "setActive" o = CheckMenuItemSetActiveMethodInfo + ResolveCheckMenuItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveCheckMenuItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveCheckMenuItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveCheckMenuItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveCheckMenuItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveCheckMenuItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveCheckMenuItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveCheckMenuItemMethod "setClip" o = WidgetSetClipMethodInfo + ResolveCheckMenuItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveCheckMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCheckMenuItemMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveCheckMenuItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveCheckMenuItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveCheckMenuItemMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveCheckMenuItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveCheckMenuItemMethod "setDrawAsRadio" o = CheckMenuItemSetDrawAsRadioMethodInfo + ResolveCheckMenuItemMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveCheckMenuItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveCheckMenuItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveCheckMenuItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveCheckMenuItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveCheckMenuItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveCheckMenuItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveCheckMenuItemMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveCheckMenuItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveCheckMenuItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveCheckMenuItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveCheckMenuItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveCheckMenuItemMethod "setInconsistent" o = CheckMenuItemSetInconsistentMethodInfo + ResolveCheckMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo + ResolveCheckMenuItemMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveCheckMenuItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveCheckMenuItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveCheckMenuItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveCheckMenuItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveCheckMenuItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveCheckMenuItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveCheckMenuItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveCheckMenuItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveCheckMenuItemMethod "setParent" o = WidgetSetParentMethodInfo + ResolveCheckMenuItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveCheckMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCheckMenuItemMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveCheckMenuItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveCheckMenuItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveCheckMenuItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveCheckMenuItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveCheckMenuItemMethod "setReserveIndicator" o = MenuItemSetReserveIndicatorMethodInfo + ResolveCheckMenuItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveCheckMenuItemMethod "setRightJustified" o = MenuItemSetRightJustifiedMethodInfo + ResolveCheckMenuItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveCheckMenuItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveCheckMenuItemMethod "setState" o = WidgetSetStateMethodInfo + ResolveCheckMenuItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveCheckMenuItemMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveCheckMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo + ResolveCheckMenuItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveCheckMenuItemMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveCheckMenuItemMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveCheckMenuItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveCheckMenuItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveCheckMenuItemMethod "setUseUnderline" o = MenuItemSetUseUnderlineMethodInfo + ResolveCheckMenuItemMethod "setValign" o = WidgetSetValignMethodInfo + ResolveCheckMenuItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveCheckMenuItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveCheckMenuItemMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveCheckMenuItemMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveCheckMenuItemMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveCheckMenuItemMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCheckMenuItemMethod t CheckMenuItem, MethodInfo info CheckMenuItem p) => IsLabelProxy t (CheckMenuItem -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCheckMenuItemMethod t CheckMenuItem, MethodInfo info CheckMenuItem p) => IsLabel t (CheckMenuItem -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal CheckMenuItem::toggled type CheckMenuItemToggledCallback = IO () @@ -189,7 +551,7 @@ type AttrSetTypeConstraint CheckMenuItemActivePropertyInfo = (~) Bool type AttrBaseTypeConstraint CheckMenuItemActivePropertyInfo = CheckMenuItemK type AttrGetType CheckMenuItemActivePropertyInfo = Bool - type AttrLabel CheckMenuItemActivePropertyInfo = "CheckMenuItem::active" + type AttrLabel CheckMenuItemActivePropertyInfo = "active" attrGet _ = getCheckMenuItemActive attrSet _ = setCheckMenuItemActive attrConstruct _ = constructCheckMenuItemActive @@ -213,7 +575,7 @@ type AttrSetTypeConstraint CheckMenuItemDrawAsRadioPropertyInfo = (~) Bool type AttrBaseTypeConstraint CheckMenuItemDrawAsRadioPropertyInfo = CheckMenuItemK type AttrGetType CheckMenuItemDrawAsRadioPropertyInfo = Bool - type AttrLabel CheckMenuItemDrawAsRadioPropertyInfo = "CheckMenuItem::draw-as-radio" + type AttrLabel CheckMenuItemDrawAsRadioPropertyInfo = "draw-as-radio" attrGet _ = getCheckMenuItemDrawAsRadio attrSet _ = setCheckMenuItemDrawAsRadio attrConstruct _ = constructCheckMenuItemDrawAsRadio @@ -237,13 +599,13 @@ type AttrSetTypeConstraint CheckMenuItemInconsistentPropertyInfo = (~) Bool type AttrBaseTypeConstraint CheckMenuItemInconsistentPropertyInfo = CheckMenuItemK type AttrGetType CheckMenuItemInconsistentPropertyInfo = Bool - type AttrLabel CheckMenuItemInconsistentPropertyInfo = "CheckMenuItem::inconsistent" + type AttrLabel CheckMenuItemInconsistentPropertyInfo = "inconsistent" attrGet _ = getCheckMenuItemInconsistent attrSet _ = setCheckMenuItemInconsistent attrConstruct _ = constructCheckMenuItemInconsistent type instance AttributeList CheckMenuItem = CheckMenuItemAttributeList -type CheckMenuItemAttributeList = ('[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-as-radio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type CheckMenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawAsRadio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data CheckMenuItemToggledSignalInfo instance SignalInfo CheckMenuItemToggledSignalInfo where @@ -251,13 +613,12 @@ connectSignal _ = connectCheckMenuItemToggled type instance SignalList CheckMenuItem = CheckMenuItemSignalList -type CheckMenuItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("toggled", CheckMenuItemToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CheckMenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("toggled", CheckMenuItemToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method CheckMenuItem::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CheckMenuItem" -- throws : False -- Skip return : False @@ -268,7 +629,7 @@ checkMenuItemNew :: (MonadIO m) => - m CheckMenuItem + m CheckMenuItem -- result checkMenuItemNew = liftIO $ do result <- gtk_check_menu_item_new checkUnexpectedReturnNULL "gtk_check_menu_item_new" result @@ -277,9 +638,8 @@ -- method CheckMenuItem::new_with_label -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CheckMenuItem" -- throws : False -- Skip return : False @@ -291,8 +651,8 @@ checkMenuItemNewWithLabel :: (MonadIO m) => - T.Text -> -- label - m CheckMenuItem + T.Text -- label + -> m CheckMenuItem -- result checkMenuItemNewWithLabel label = liftIO $ do label' <- textToCString label result <- gtk_check_menu_item_new_with_label label' @@ -303,9 +663,8 @@ -- method CheckMenuItem::new_with_mnemonic -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CheckMenuItem" -- throws : False -- Skip return : False @@ -317,8 +676,8 @@ checkMenuItemNewWithMnemonic :: (MonadIO m) => - T.Text -> -- label - m CheckMenuItem + T.Text -- label + -> m CheckMenuItem -- result checkMenuItemNewWithMnemonic label = liftIO $ do label' <- textToCString label result <- gtk_check_menu_item_new_with_mnemonic label' @@ -329,9 +688,8 @@ -- method CheckMenuItem::get_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -343,8 +701,8 @@ checkMenuItemGetActive :: (MonadIO m, CheckMenuItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result checkMenuItemGetActive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_check_menu_item_get_active _obj' @@ -352,11 +710,14 @@ touchManagedPtr _obj return result' +data CheckMenuItemGetActiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemGetActiveMethodInfo a signature where + overloadedMethod _ = checkMenuItemGetActive + -- method CheckMenuItem::get_draw_as_radio -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -368,8 +729,8 @@ checkMenuItemGetDrawAsRadio :: (MonadIO m, CheckMenuItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result checkMenuItemGetDrawAsRadio _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_check_menu_item_get_draw_as_radio _obj' @@ -377,11 +738,14 @@ touchManagedPtr _obj return result' +data CheckMenuItemGetDrawAsRadioMethodInfo +instance (signature ~ (m Bool), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemGetDrawAsRadioMethodInfo a signature where + overloadedMethod _ = checkMenuItemGetDrawAsRadio + -- method CheckMenuItem::get_inconsistent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -393,8 +757,8 @@ checkMenuItemGetInconsistent :: (MonadIO m, CheckMenuItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result checkMenuItemGetInconsistent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_check_menu_item_get_inconsistent _obj' @@ -402,11 +766,14 @@ touchManagedPtr _obj return result' +data CheckMenuItemGetInconsistentMethodInfo +instance (signature ~ (m Bool), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemGetInconsistentMethodInfo a signature where + overloadedMethod _ = checkMenuItemGetInconsistent + -- method CheckMenuItem::set_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -419,21 +786,24 @@ checkMenuItemSetActive :: (MonadIO m, CheckMenuItemK a) => - a -> -- _obj - Bool -> -- is_active - m () -checkMenuItemSetActive _obj is_active = liftIO $ do + a -- _obj + -> Bool -- isActive + -> m () -- result +checkMenuItemSetActive _obj isActive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let is_active' = (fromIntegral . fromEnum) is_active - gtk_check_menu_item_set_active _obj' is_active' + let isActive' = (fromIntegral . fromEnum) isActive + gtk_check_menu_item_set_active _obj' isActive' touchManagedPtr _obj return () +data CheckMenuItemSetActiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemSetActiveMethodInfo a signature where + overloadedMethod _ = checkMenuItemSetActive + -- method CheckMenuItem::set_draw_as_radio -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -446,21 +816,24 @@ checkMenuItemSetDrawAsRadio :: (MonadIO m, CheckMenuItemK a) => - a -> -- _obj - Bool -> -- draw_as_radio - m () -checkMenuItemSetDrawAsRadio _obj draw_as_radio = liftIO $ do + a -- _obj + -> Bool -- drawAsRadio + -> m () -- result +checkMenuItemSetDrawAsRadio _obj drawAsRadio = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let draw_as_radio' = (fromIntegral . fromEnum) draw_as_radio - gtk_check_menu_item_set_draw_as_radio _obj' draw_as_radio' + let drawAsRadio' = (fromIntegral . fromEnum) drawAsRadio + gtk_check_menu_item_set_draw_as_radio _obj' drawAsRadio' touchManagedPtr _obj return () +data CheckMenuItemSetDrawAsRadioMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemSetDrawAsRadioMethodInfo a signature where + overloadedMethod _ = checkMenuItemSetDrawAsRadio + -- method CheckMenuItem::set_inconsistent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -473,9 +846,9 @@ checkMenuItemSetInconsistent :: (MonadIO m, CheckMenuItemK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result checkMenuItemSetInconsistent _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -483,11 +856,14 @@ touchManagedPtr _obj return () +data CheckMenuItemSetInconsistentMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemSetInconsistentMethodInfo a signature where + overloadedMethod _ = checkMenuItemSetInconsistent + -- method CheckMenuItem::toggled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -499,12 +875,16 @@ checkMenuItemToggled :: (MonadIO m, CheckMenuItemK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result checkMenuItemToggled _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_check_menu_item_toggled _obj' touchManagedPtr _obj return () + +data CheckMenuItemToggledMethodInfo +instance (signature ~ (m ()), MonadIO m, CheckMenuItemK a) => MethodInfo CheckMenuItemToggledMethodInfo a signature where + overloadedMethod _ = checkMenuItemToggled diff --git a/GI/Gtk/Objects/CheckMenuItem.hs-boot b/GI/Gtk/Objects/CheckMenuItem.hs-boot --- a/GI/Gtk/Objects/CheckMenuItem.hs-boot +++ b/GI/Gtk/Objects/CheckMenuItem.hs-boot @@ -15,3 +15,10 @@ data CheckMenuItemDrawAsRadioPropertyInfo data CheckMenuItemInconsistentPropertyInfo data CheckMenuItemToggledSignalInfo +data CheckMenuItemGetActiveMethodInfo +data CheckMenuItemGetDrawAsRadioMethodInfo +data CheckMenuItemGetInconsistentMethodInfo +data CheckMenuItemSetActiveMethodInfo +data CheckMenuItemSetDrawAsRadioMethodInfo +data CheckMenuItemSetInconsistentMethodInfo +data CheckMenuItemToggledMethodInfo diff --git a/GI/Gtk/Objects/CheckMenuItemAccessible.hs b/GI/Gtk/Objects/CheckMenuItemAccessible.hs --- a/GI/Gtk/Objects/CheckMenuItemAccessible.hs +++ b/GI/Gtk/Objects/CheckMenuItemAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,86 @@ noCheckMenuItemAccessible :: Maybe CheckMenuItemAccessible noCheckMenuItemAccessible = Nothing +type family ResolveCheckMenuItemAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveCheckMenuItemAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveCheckMenuItemAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo + ResolveCheckMenuItemAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCheckMenuItemAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCheckMenuItemAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo + ResolveCheckMenuItemAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveCheckMenuItemAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveCheckMenuItemAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveCheckMenuItemAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCheckMenuItemAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCheckMenuItemAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveCheckMenuItemAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveCheckMenuItemAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo + ResolveCheckMenuItemAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCheckMenuItemAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCheckMenuItemAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCheckMenuItemAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveCheckMenuItemAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveCheckMenuItemAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCheckMenuItemAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveCheckMenuItemAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveCheckMenuItemAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveCheckMenuItemAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo + ResolveCheckMenuItemAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCheckMenuItemAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveCheckMenuItemAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveCheckMenuItemAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveCheckMenuItemAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveCheckMenuItemAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo + ResolveCheckMenuItemAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCheckMenuItemAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCheckMenuItemAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCheckMenuItemAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo + ResolveCheckMenuItemAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCheckMenuItemAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCheckMenuItemAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCheckMenuItemAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCheckMenuItemAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCheckMenuItemAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveCheckMenuItemAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveCheckMenuItemAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCheckMenuItemAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveCheckMenuItemAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveCheckMenuItemAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveCheckMenuItemAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveCheckMenuItemAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveCheckMenuItemAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveCheckMenuItemAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveCheckMenuItemAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveCheckMenuItemAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveCheckMenuItemAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCheckMenuItemAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCheckMenuItemAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveCheckMenuItemAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo + ResolveCheckMenuItemAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveCheckMenuItemAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveCheckMenuItemAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCheckMenuItemAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveCheckMenuItemAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveCheckMenuItemAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveCheckMenuItemAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveCheckMenuItemAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCheckMenuItemAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveCheckMenuItemAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveCheckMenuItemAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveCheckMenuItemAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCheckMenuItemAccessibleMethod t CheckMenuItemAccessible, MethodInfo info CheckMenuItemAccessible p) => IsLabelProxy t (CheckMenuItemAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCheckMenuItemAccessibleMethod t CheckMenuItemAccessible, MethodInfo info CheckMenuItemAccessible p) => IsLabel t (CheckMenuItemAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList CheckMenuItemAccessible = CheckMenuItemAccessibleAttributeList -type CheckMenuItemAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type CheckMenuItemAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList CheckMenuItemAccessible = CheckMenuItemAccessibleSignalList -type CheckMenuItemAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CheckMenuItemAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/Clipboard.hs b/GI/Gtk/Objects/Clipboard.hs --- a/GI/Gtk/Objects/Clipboard.hs +++ b/GI/Gtk/Objects/Clipboard.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** clipboardClear + ClipboardClearMethodInfo , clipboardClear , @@ -29,6 +31,7 @@ -- ** clipboardGetDisplay + ClipboardGetDisplayMethodInfo , clipboardGetDisplay , @@ -37,90 +40,112 @@ -- ** clipboardGetOwner + ClipboardGetOwnerMethodInfo , clipboardGetOwner , -- ** clipboardRequestContents + ClipboardRequestContentsMethodInfo , clipboardRequestContents , -- ** clipboardRequestImage + ClipboardRequestImageMethodInfo , clipboardRequestImage , -- ** clipboardRequestRichText + ClipboardRequestRichTextMethodInfo , clipboardRequestRichText , -- ** clipboardRequestTargets + ClipboardRequestTargetsMethodInfo , clipboardRequestTargets , -- ** clipboardRequestText + ClipboardRequestTextMethodInfo , clipboardRequestText , -- ** clipboardRequestUris + ClipboardRequestUrisMethodInfo , clipboardRequestUris , -- ** clipboardSetCanStore + ClipboardSetCanStoreMethodInfo , clipboardSetCanStore , -- ** clipboardSetImage + ClipboardSetImageMethodInfo , clipboardSetImage , -- ** clipboardSetText + ClipboardSetTextMethodInfo , clipboardSetText , -- ** clipboardStore + ClipboardStoreMethodInfo , clipboardStore , -- ** clipboardWaitForContents + ClipboardWaitForContentsMethodInfo , clipboardWaitForContents , -- ** clipboardWaitForImage + ClipboardWaitForImageMethodInfo , clipboardWaitForImage , -- ** clipboardWaitForRichText + ClipboardWaitForRichTextMethodInfo , clipboardWaitForRichText , -- ** clipboardWaitForTargets + ClipboardWaitForTargetsMethodInfo , clipboardWaitForTargets , -- ** clipboardWaitForText + ClipboardWaitForTextMethodInfo , clipboardWaitForText , -- ** clipboardWaitForUris + ClipboardWaitForUrisMethodInfo , clipboardWaitForUris , -- ** clipboardWaitIsImageAvailable + ClipboardWaitIsImageAvailableMethodInfo , clipboardWaitIsImageAvailable , -- ** clipboardWaitIsRichTextAvailable + ClipboardWaitIsRichTextAvailableMethodInfo, clipboardWaitIsRichTextAvailable , -- ** clipboardWaitIsTargetAvailable + ClipboardWaitIsTargetAvailableMethodInfo, clipboardWaitIsTargetAvailable , -- ** clipboardWaitIsTextAvailable + ClipboardWaitIsTextAvailableMethodInfo , clipboardWaitIsTextAvailable , -- ** clipboardWaitIsUrisAvailable + ClipboardWaitIsUrisAvailableMethodInfo , clipboardWaitIsUrisAvailable , @@ -177,6 +202,63 @@ noClipboard :: Maybe Clipboard noClipboard = Nothing +type family ResolveClipboardMethod (t :: Symbol) (o :: *) :: * where + ResolveClipboardMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveClipboardMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveClipboardMethod "clear" o = ClipboardClearMethodInfo + ResolveClipboardMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveClipboardMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveClipboardMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveClipboardMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveClipboardMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveClipboardMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveClipboardMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveClipboardMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveClipboardMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveClipboardMethod "requestContents" o = ClipboardRequestContentsMethodInfo + ResolveClipboardMethod "requestImage" o = ClipboardRequestImageMethodInfo + ResolveClipboardMethod "requestRichText" o = ClipboardRequestRichTextMethodInfo + ResolveClipboardMethod "requestTargets" o = ClipboardRequestTargetsMethodInfo + ResolveClipboardMethod "requestText" o = ClipboardRequestTextMethodInfo + ResolveClipboardMethod "requestUris" o = ClipboardRequestUrisMethodInfo + ResolveClipboardMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveClipboardMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveClipboardMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveClipboardMethod "store" o = ClipboardStoreMethodInfo + ResolveClipboardMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveClipboardMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveClipboardMethod "waitForContents" o = ClipboardWaitForContentsMethodInfo + ResolveClipboardMethod "waitForImage" o = ClipboardWaitForImageMethodInfo + ResolveClipboardMethod "waitForRichText" o = ClipboardWaitForRichTextMethodInfo + ResolveClipboardMethod "waitForTargets" o = ClipboardWaitForTargetsMethodInfo + ResolveClipboardMethod "waitForText" o = ClipboardWaitForTextMethodInfo + ResolveClipboardMethod "waitForUris" o = ClipboardWaitForUrisMethodInfo + ResolveClipboardMethod "waitIsImageAvailable" o = ClipboardWaitIsImageAvailableMethodInfo + ResolveClipboardMethod "waitIsRichTextAvailable" o = ClipboardWaitIsRichTextAvailableMethodInfo + ResolveClipboardMethod "waitIsTargetAvailable" o = ClipboardWaitIsTargetAvailableMethodInfo + ResolveClipboardMethod "waitIsTextAvailable" o = ClipboardWaitIsTextAvailableMethodInfo + ResolveClipboardMethod "waitIsUrisAvailable" o = ClipboardWaitIsUrisAvailableMethodInfo + ResolveClipboardMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveClipboardMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveClipboardMethod "getDisplay" o = ClipboardGetDisplayMethodInfo + ResolveClipboardMethod "getOwner" o = ClipboardGetOwnerMethodInfo + ResolveClipboardMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveClipboardMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveClipboardMethod "setCanStore" o = ClipboardSetCanStoreMethodInfo + ResolveClipboardMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveClipboardMethod "setImage" o = ClipboardSetImageMethodInfo + ResolveClipboardMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveClipboardMethod "setText" o = ClipboardSetTextMethodInfo + ResolveClipboardMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveClipboardMethod t Clipboard, MethodInfo info Clipboard p) => IsLabelProxy t (Clipboard -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveClipboardMethod t Clipboard, MethodInfo info Clipboard p) => IsLabel t (Clipboard -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Clipboard::owner-change type ClipboardOwnerChangeCallback = Gdk.EventOwnerChange -> @@ -228,13 +310,12 @@ connectSignal _ = connectClipboardOwnerChange type instance SignalList Clipboard = ClipboardSignalList -type ClipboardSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("owner-change", ClipboardOwnerChangeSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ClipboardSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("ownerChange", ClipboardOwnerChangeSignalInfo)] :: [(Symbol, *)]) -- method Clipboard::clear -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -246,19 +327,22 @@ clipboardClear :: (MonadIO m, ClipboardK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result clipboardClear _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_clipboard_clear _obj' touchManagedPtr _obj return () +data ClipboardClearMethodInfo +instance (signature ~ (m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardClearMethodInfo a signature where + overloadedMethod _ = clipboardClear + -- method Clipboard::get_display -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False @@ -270,8 +354,8 @@ clipboardGetDisplay :: (MonadIO m, ClipboardK a) => - a -> -- _obj - m Gdk.Display + a -- _obj + -> m Gdk.Display -- result clipboardGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_get_display _obj' @@ -280,11 +364,14 @@ touchManagedPtr _obj return result' +data ClipboardGetDisplayMethodInfo +instance (signature ~ (m Gdk.Display), MonadIO m, ClipboardK a) => MethodInfo ClipboardGetDisplayMethodInfo a signature where + overloadedMethod _ = clipboardGetDisplay + -- method Clipboard::get_owner -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "Object" -- throws : False -- Skip return : False @@ -296,8 +383,8 @@ clipboardGetOwner :: (MonadIO m, ClipboardK a) => - a -> -- _obj - m GObject.Object + a -- _obj + -> m GObject.Object -- result clipboardGetOwner _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_get_owner _obj' @@ -306,11 +393,14 @@ touchManagedPtr _obj return result' +data ClipboardGetOwnerMethodInfo +instance (signature ~ (m GObject.Object), MonadIO m, ClipboardK a) => MethodInfo ClipboardGetOwnerMethodInfo a signature where + overloadedMethod _ = clipboardGetOwner + -- method Clipboard::request_contents -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -325,27 +415,30 @@ clipboardRequestContents :: (MonadIO m, ClipboardK a) => - a -> -- _obj - Gdk.Atom -> -- target - ClipboardReceivedFunc -> -- callback - m () + a -- _obj + -> Gdk.Atom -- target + -> ClipboardReceivedFunc -- callback + -> m () -- result clipboardRequestContents _obj target callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let target' = unsafeManagedPtrGetPtr target ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardReceivedFuncC)) callback' <- mkClipboardReceivedFunc (clipboardReceivedFuncWrapper (Just ptrcallback) callback) poke ptrcallback callback' - let user_data = nullPtr - gtk_clipboard_request_contents _obj' target' callback' user_data + let userData = nullPtr + gtk_clipboard_request_contents _obj' target' callback' userData touchManagedPtr _obj touchManagedPtr target return () +data ClipboardRequestContentsMethodInfo +instance (signature ~ (Gdk.Atom -> ClipboardReceivedFunc -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardRequestContentsMethodInfo a signature where + overloadedMethod _ = clipboardRequestContents + -- method Clipboard::request_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardImageReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardImageReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardImageReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -359,24 +452,27 @@ clipboardRequestImage :: (MonadIO m, ClipboardK a) => - a -> -- _obj - ClipboardImageReceivedFunc -> -- callback - m () + a -- _obj + -> ClipboardImageReceivedFunc -- callback + -> m () -- result clipboardRequestImage _obj callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardImageReceivedFuncC)) callback' <- mkClipboardImageReceivedFunc (clipboardImageReceivedFuncWrapper (Just ptrcallback) callback) poke ptrcallback callback' - let user_data = nullPtr - gtk_clipboard_request_image _obj' callback' user_data + let userData = nullPtr + gtk_clipboard_request_image _obj' callback' userData touchManagedPtr _obj return () +data ClipboardRequestImageMethodInfo +instance (signature ~ (ClipboardImageReceivedFunc -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardRequestImageMethodInfo a signature where + overloadedMethod _ = clipboardRequestImage + -- method Clipboard::request_rich_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardRichTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardRichTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardRichTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -391,27 +487,30 @@ clipboardRequestRichText :: (MonadIO m, ClipboardK a, TextBufferK b) => - a -> -- _obj - b -> -- buffer - ClipboardRichTextReceivedFunc -> -- callback - m () + a -- _obj + -> b -- buffer + -> ClipboardRichTextReceivedFunc -- callback + -> m () -- result clipboardRequestRichText _obj buffer callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let buffer' = unsafeManagedPtrCastPtr buffer ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardRichTextReceivedFuncC)) callback' <- mkClipboardRichTextReceivedFunc (clipboardRichTextReceivedFuncWrapper (Just ptrcallback) callback) poke ptrcallback callback' - let user_data = nullPtr - gtk_clipboard_request_rich_text _obj' buffer' callback' user_data + let userData = nullPtr + gtk_clipboard_request_rich_text _obj' buffer' callback' userData touchManagedPtr _obj touchManagedPtr buffer return () +data ClipboardRequestRichTextMethodInfo +instance (signature ~ (b -> ClipboardRichTextReceivedFunc -> m ()), MonadIO m, ClipboardK a, TextBufferK b) => MethodInfo ClipboardRequestRichTextMethodInfo a signature where + overloadedMethod _ = clipboardRequestRichText + -- method Clipboard::request_targets -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardTargetsReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardTargetsReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardTargetsReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -425,24 +524,27 @@ clipboardRequestTargets :: (MonadIO m, ClipboardK a) => - a -> -- _obj - ClipboardTargetsReceivedFunc -> -- callback - m () + a -- _obj + -> ClipboardTargetsReceivedFunc -- callback + -> m () -- result clipboardRequestTargets _obj callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardTargetsReceivedFuncC)) callback' <- mkClipboardTargetsReceivedFunc (clipboardTargetsReceivedFuncWrapper (Just ptrcallback) callback) poke ptrcallback callback' - let user_data = nullPtr - gtk_clipboard_request_targets _obj' callback' user_data + let userData = nullPtr + gtk_clipboard_request_targets _obj' callback' userData touchManagedPtr _obj return () +data ClipboardRequestTargetsMethodInfo +instance (signature ~ (ClipboardTargetsReceivedFunc -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardRequestTargetsMethodInfo a signature where + overloadedMethod _ = clipboardRequestTargets + -- method Clipboard::request_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -456,24 +558,27 @@ clipboardRequestText :: (MonadIO m, ClipboardK a) => - a -> -- _obj - ClipboardTextReceivedFunc -> -- callback - m () + a -- _obj + -> ClipboardTextReceivedFunc -- callback + -> m () -- result clipboardRequestText _obj callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardTextReceivedFuncC)) callback' <- mkClipboardTextReceivedFunc (clipboardTextReceivedFuncWrapper (Just ptrcallback) callback) poke ptrcallback callback' - let user_data = nullPtr - gtk_clipboard_request_text _obj' callback' user_data + let userData = nullPtr + gtk_clipboard_request_text _obj' callback' userData touchManagedPtr _obj return () +data ClipboardRequestTextMethodInfo +instance (signature ~ (ClipboardTextReceivedFunc -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardRequestTextMethodInfo a signature where + overloadedMethod _ = clipboardRequestText + -- method Clipboard::request_uris -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardURIReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardURIReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardURIReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -487,24 +592,27 @@ clipboardRequestUris :: (MonadIO m, ClipboardK a) => - a -> -- _obj - ClipboardURIReceivedFunc -> -- callback - m () + a -- _obj + -> ClipboardURIReceivedFunc -- callback + -> m () -- result clipboardRequestUris _obj callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj ptrcallback <- callocMem :: IO (Ptr (FunPtr ClipboardURIReceivedFuncC)) callback' <- mkClipboardURIReceivedFunc (clipboardURIReceivedFuncWrapper (Just ptrcallback) callback) poke ptrcallback callback' - let user_data = nullPtr - gtk_clipboard_request_uris _obj' callback' user_data + let userData = nullPtr + gtk_clipboard_request_uris _obj' callback' userData touchManagedPtr _obj return () +data ClipboardRequestUrisMethodInfo +instance (signature ~ (ClipboardURIReceivedFunc -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardRequestUrisMethodInfo a signature where + overloadedMethod _ = clipboardRequestUris + -- method Clipboard::set_can_store -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -518,11 +626,11 @@ clipboardSetCanStore :: (MonadIO m, ClipboardK a) => - a -> -- _obj - Maybe ([TargetEntry]) -> -- targets - m () + a -- _obj + -> Maybe ([TargetEntry]) -- targets + -> m () -- result clipboardSetCanStore _obj targets = liftIO $ do - let n_targets = case targets of + let nTargets = case targets of Nothing -> 0 Just jTargets -> fromIntegral $ length jTargets let _obj' = unsafeManagedPtrCastPtr _obj @@ -532,17 +640,20 @@ let jTargets' = map unsafeManagedPtrGetPtr jTargets jTargets'' <- packBlockArray 16 jTargets' return jTargets'' - gtk_clipboard_set_can_store _obj' maybeTargets n_targets + gtk_clipboard_set_can_store _obj' maybeTargets nTargets touchManagedPtr _obj whenJust targets (mapM_ touchManagedPtr) freeMem maybeTargets return () +data ClipboardSetCanStoreMethodInfo +instance (signature ~ (Maybe ([TargetEntry]) -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardSetCanStoreMethodInfo a signature where + overloadedMethod _ = clipboardSetCanStore + -- method Clipboard::set_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -555,9 +666,9 @@ clipboardSetImage :: (MonadIO m, ClipboardK a, GdkPixbuf.PixbufK b) => - a -> -- _obj - b -> -- pixbuf - m () + a -- _obj + -> b -- pixbuf + -> m () -- result clipboardSetImage _obj pixbuf = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let pixbuf' = unsafeManagedPtrCastPtr pixbuf @@ -566,11 +677,14 @@ touchManagedPtr pixbuf return () +data ClipboardSetImageMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ClipboardK a, GdkPixbuf.PixbufK b) => MethodInfo ClipboardSetImageMethodInfo a signature where + overloadedMethod _ = clipboardSetImage + -- method Clipboard::set_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -584,10 +698,10 @@ clipboardSetText :: (MonadIO m, ClipboardK a) => - a -> -- _obj - T.Text -> -- text - Int32 -> -- len - m () + a -- _obj + -> T.Text -- text + -> Int32 -- len + -> m () -- result clipboardSetText _obj text len = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text @@ -596,11 +710,14 @@ freeMem text' return () +data ClipboardSetTextMethodInfo +instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardSetTextMethodInfo a signature where + overloadedMethod _ = clipboardSetText + -- method Clipboard::store -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -612,19 +729,22 @@ clipboardStore :: (MonadIO m, ClipboardK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result clipboardStore _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_clipboard_store _obj' touchManagedPtr _obj return () +data ClipboardStoreMethodInfo +instance (signature ~ (m ()), MonadIO m, ClipboardK a) => MethodInfo ClipboardStoreMethodInfo a signature where + overloadedMethod _ = clipboardStore + -- method Clipboard::wait_for_contents -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SelectionData" -- throws : False -- Skip return : False @@ -637,9 +757,9 @@ clipboardWaitForContents :: (MonadIO m, ClipboardK a) => - a -> -- _obj - Gdk.Atom -> -- target - m SelectionData + a -- _obj + -> Gdk.Atom -- target + -> m SelectionData -- result clipboardWaitForContents _obj target = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let target' = unsafeManagedPtrGetPtr target @@ -650,11 +770,14 @@ touchManagedPtr target return result' +data ClipboardWaitForContentsMethodInfo +instance (signature ~ (Gdk.Atom -> m SelectionData), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForContentsMethodInfo a signature where + overloadedMethod _ = clipboardWaitForContents + -- method Clipboard::wait_for_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -666,8 +789,8 @@ clipboardWaitForImage :: (MonadIO m, ClipboardK a) => - a -> -- _obj - m GdkPixbuf.Pixbuf + a -- _obj + -> m GdkPixbuf.Pixbuf -- result clipboardWaitForImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_wait_for_image _obj' @@ -676,11 +799,14 @@ touchManagedPtr _obj return result' +data ClipboardWaitForImageMethodInfo +instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForImageMethodInfo a signature where + overloadedMethod _ = clipboardWaitForImage + -- method Clipboard::wait_for_rich_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TCArray False (-1) 3 (TBasicType TUInt8) -- throws : False -- Skip return : False @@ -695,9 +821,9 @@ clipboardWaitForRichText :: (MonadIO m, ClipboardK a, TextBufferK b) => - a -> -- _obj - b -> -- buffer - m (ByteString,Gdk.Atom) + a -- _obj + -> b -- buffer + -> m (ByteString,Gdk.Atom) -- result clipboardWaitForRichText _obj buffer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let buffer' = unsafeManagedPtrCastPtr buffer @@ -717,11 +843,14 @@ freeMem length_ return (result', format'') +data ClipboardWaitForRichTextMethodInfo +instance (signature ~ (b -> m (ByteString,Gdk.Atom)), MonadIO m, ClipboardK a, TextBufferK b) => MethodInfo ClipboardWaitForRichTextMethodInfo a signature where + overloadedMethod _ = clipboardWaitForRichText + -- method Clipboard::wait_for_targets -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -735,30 +864,33 @@ clipboardWaitForTargets :: (MonadIO m, ClipboardK a) => - a -> -- _obj - m (Bool,[Gdk.Atom]) + a -- _obj + -> m (Bool,[Gdk.Atom]) -- result clipboardWaitForTargets _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj targets <- allocMem :: IO (Ptr (Ptr (Ptr Gdk.Atom))) - n_targets <- allocMem :: IO (Ptr Int32) - result <- gtk_clipboard_wait_for_targets _obj' targets n_targets - n_targets' <- peek n_targets + nTargets <- allocMem :: IO (Ptr Int32) + result <- gtk_clipboard_wait_for_targets _obj' targets nTargets + nTargets' <- peek nTargets let result' = (/= 0) result targets' <- peek targets -- XXX Wrapping a foreign struct/union with no known destructor, leak? - targets'' <- (unpackPtrArrayWithLength n_targets') targets' + targets'' <- (unpackPtrArrayWithLength nTargets') targets' targets''' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) targets'' freeMem targets' touchManagedPtr _obj freeMem targets - freeMem n_targets + freeMem nTargets return (result', targets''') +data ClipboardWaitForTargetsMethodInfo +instance (signature ~ (m (Bool,[Gdk.Atom])), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForTargetsMethodInfo a signature where + overloadedMethod _ = clipboardWaitForTargets + -- method Clipboard::wait_for_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -770,8 +902,8 @@ clipboardWaitForText :: (MonadIO m, ClipboardK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result clipboardWaitForText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_wait_for_text _obj' @@ -781,11 +913,14 @@ touchManagedPtr _obj return result' +data ClipboardWaitForTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForTextMethodInfo a signature where + overloadedMethod _ = clipboardWaitForText + -- method Clipboard::wait_for_uris -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -797,8 +932,8 @@ clipboardWaitForUris :: (MonadIO m, ClipboardK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result clipboardWaitForUris _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_wait_for_uris _obj' @@ -809,11 +944,14 @@ touchManagedPtr _obj return result' +data ClipboardWaitForUrisMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForUrisMethodInfo a signature where + overloadedMethod _ = clipboardWaitForUris + -- method Clipboard::wait_is_image_available -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -825,8 +963,8 @@ clipboardWaitIsImageAvailable :: (MonadIO m, ClipboardK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result clipboardWaitIsImageAvailable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_wait_is_image_available _obj' @@ -834,11 +972,14 @@ touchManagedPtr _obj return result' +data ClipboardWaitIsImageAvailableMethodInfo +instance (signature ~ (m Bool), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitIsImageAvailableMethodInfo a signature where + overloadedMethod _ = clipboardWaitIsImageAvailable + -- method Clipboard::wait_is_rich_text_available -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -851,9 +992,9 @@ clipboardWaitIsRichTextAvailable :: (MonadIO m, ClipboardK a, TextBufferK b) => - a -> -- _obj - b -> -- buffer - m Bool + a -- _obj + -> b -- buffer + -> m Bool -- result clipboardWaitIsRichTextAvailable _obj buffer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let buffer' = unsafeManagedPtrCastPtr buffer @@ -863,11 +1004,14 @@ touchManagedPtr buffer return result' +data ClipboardWaitIsRichTextAvailableMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, ClipboardK a, TextBufferK b) => MethodInfo ClipboardWaitIsRichTextAvailableMethodInfo a signature where + overloadedMethod _ = clipboardWaitIsRichTextAvailable + -- method Clipboard::wait_is_target_available -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -880,9 +1024,9 @@ clipboardWaitIsTargetAvailable :: (MonadIO m, ClipboardK a) => - a -> -- _obj - Gdk.Atom -> -- target - m Bool + a -- _obj + -> Gdk.Atom -- target + -> m Bool -- result clipboardWaitIsTargetAvailable _obj target = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let target' = unsafeManagedPtrGetPtr target @@ -892,11 +1036,14 @@ touchManagedPtr target return result' +data ClipboardWaitIsTargetAvailableMethodInfo +instance (signature ~ (Gdk.Atom -> m Bool), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitIsTargetAvailableMethodInfo a signature where + overloadedMethod _ = clipboardWaitIsTargetAvailable + -- method Clipboard::wait_is_text_available -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -908,8 +1055,8 @@ clipboardWaitIsTextAvailable :: (MonadIO m, ClipboardK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result clipboardWaitIsTextAvailable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_wait_is_text_available _obj' @@ -917,11 +1064,14 @@ touchManagedPtr _obj return result' +data ClipboardWaitIsTextAvailableMethodInfo +instance (signature ~ (m Bool), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitIsTextAvailableMethodInfo a signature where + overloadedMethod _ = clipboardWaitIsTextAvailable + -- method Clipboard::wait_is_uris_available -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -933,8 +1083,8 @@ clipboardWaitIsUrisAvailable :: (MonadIO m, ClipboardK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result clipboardWaitIsUrisAvailable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_wait_is_uris_available _obj' @@ -942,11 +1092,14 @@ touchManagedPtr _obj return result' +data ClipboardWaitIsUrisAvailableMethodInfo +instance (signature ~ (m Bool), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitIsUrisAvailableMethodInfo a signature where + overloadedMethod _ = clipboardWaitIsUrisAvailable + -- method Clipboard::get -- method type : MemberFunction --- Args : [Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Clipboard" -- throws : False -- Skip return : False @@ -958,8 +1111,8 @@ clipboardGet :: (MonadIO m) => - Gdk.Atom -> -- selection - m Clipboard + Gdk.Atom -- selection + -> m Clipboard -- result clipboardGet selection = liftIO $ do let selection' = unsafeManagedPtrGetPtr selection result <- gtk_clipboard_get selection' @@ -970,9 +1123,8 @@ -- method Clipboard::get_default -- method type : MemberFunction --- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Clipboard" -- throws : False -- Skip return : False @@ -984,8 +1136,8 @@ clipboardGetDefault :: (MonadIO m, Gdk.DisplayK a) => - a -> -- display - m Clipboard + a -- display + -> m Clipboard -- result clipboardGetDefault display = liftIO $ do let display' = unsafeManagedPtrCastPtr display result <- gtk_clipboard_get_default display' @@ -996,9 +1148,8 @@ -- method Clipboard::get_for_display -- method type : MemberFunction --- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Clipboard" -- throws : False -- Skip return : False @@ -1011,9 +1162,9 @@ clipboardGetForDisplay :: (MonadIO m, Gdk.DisplayK a) => - a -> -- display - Gdk.Atom -> -- selection - m Clipboard + a -- display + -> Gdk.Atom -- selection + -> m Clipboard -- result clipboardGetForDisplay display selection = liftIO $ do let display' = unsafeManagedPtrCastPtr display let selection' = unsafeManagedPtrGetPtr selection diff --git a/GI/Gtk/Objects/Clipboard.hs-boot b/GI/Gtk/Objects/Clipboard.hs-boot --- a/GI/Gtk/Objects/Clipboard.hs-boot +++ b/GI/Gtk/Objects/Clipboard.hs-boot @@ -12,3 +12,27 @@ class GObject o => ClipboardK o instance (GObject o, IsDescendantOf Clipboard o) => ClipboardK o data ClipboardOwnerChangeSignalInfo +data ClipboardClearMethodInfo +data ClipboardGetDisplayMethodInfo +data ClipboardGetOwnerMethodInfo +data ClipboardRequestContentsMethodInfo +data ClipboardRequestImageMethodInfo +data ClipboardRequestRichTextMethodInfo +data ClipboardRequestTargetsMethodInfo +data ClipboardRequestTextMethodInfo +data ClipboardRequestUrisMethodInfo +data ClipboardSetCanStoreMethodInfo +data ClipboardSetImageMethodInfo +data ClipboardSetTextMethodInfo +data ClipboardStoreMethodInfo +data ClipboardWaitForContentsMethodInfo +data ClipboardWaitForImageMethodInfo +data ClipboardWaitForRichTextMethodInfo +data ClipboardWaitForTargetsMethodInfo +data ClipboardWaitForTextMethodInfo +data ClipboardWaitForUrisMethodInfo +data ClipboardWaitIsImageAvailableMethodInfo +data ClipboardWaitIsRichTextAvailableMethodInfo +data ClipboardWaitIsTargetAvailableMethodInfo +data ClipboardWaitIsTextAvailableMethodInfo +data ClipboardWaitIsUrisAvailableMethodInfo diff --git a/GI/Gtk/Objects/ColorButton.hs b/GI/Gtk/Objects/ColorButton.hs --- a/GI/Gtk/Objects/ColorButton.hs +++ b/GI/Gtk/Objects/ColorButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** colorButtonGetAlpha + ColorButtonGetAlphaMethodInfo , colorButtonGetAlpha , -- ** colorButtonGetColor + ColorButtonGetColorMethodInfo , colorButtonGetColor , -- ** colorButtonGetTitle + ColorButtonGetTitleMethodInfo , colorButtonGetTitle , -- ** colorButtonGetUseAlpha + ColorButtonGetUseAlphaMethodInfo , colorButtonGetUseAlpha , @@ -45,18 +50,22 @@ -- ** colorButtonSetAlpha + ColorButtonSetAlphaMethodInfo , colorButtonSetAlpha , -- ** colorButtonSetColor + ColorButtonSetColorMethodInfo , colorButtonSetColor , -- ** colorButtonSetTitle + ColorButtonSetTitleMethodInfo , colorButtonSetTitle , -- ** colorButtonSetUseAlpha + ColorButtonSetUseAlphaMethodInfo , colorButtonSetUseAlpha , @@ -151,6 +160,373 @@ noColorButton :: Maybe ColorButton noColorButton = Nothing +type family ResolveColorButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveColorButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveColorButtonMethod "add" o = ContainerAddMethodInfo + ResolveColorButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveColorButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveColorButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveColorButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveColorButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveColorButtonMethod "addPalette" o = ColorChooserAddPaletteMethodInfo + ResolveColorButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveColorButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveColorButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveColorButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveColorButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveColorButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveColorButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveColorButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveColorButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveColorButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveColorButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveColorButtonMethod "clicked" o = ButtonClickedMethodInfo + ResolveColorButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveColorButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveColorButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveColorButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveColorButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveColorButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveColorButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveColorButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveColorButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveColorButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveColorButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveColorButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveColorButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveColorButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveColorButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveColorButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveColorButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveColorButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveColorButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveColorButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveColorButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveColorButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveColorButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveColorButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveColorButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveColorButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveColorButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveColorButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveColorButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveColorButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveColorButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveColorButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveColorButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveColorButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveColorButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveColorButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveColorButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveColorButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveColorButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveColorButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveColorButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveColorButtonMethod "enter" o = ButtonEnterMethodInfo + ResolveColorButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveColorButtonMethod "event" o = WidgetEventMethodInfo + ResolveColorButtonMethod "forall" o = ContainerForallMethodInfo + ResolveColorButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveColorButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveColorButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveColorButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveColorButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveColorButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveColorButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveColorButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveColorButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveColorButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveColorButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveColorButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveColorButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveColorButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveColorButtonMethod "hide" o = WidgetHideMethodInfo + ResolveColorButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveColorButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveColorButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveColorButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveColorButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveColorButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveColorButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveColorButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveColorButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveColorButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveColorButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveColorButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveColorButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveColorButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveColorButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveColorButtonMethod "leave" o = ButtonLeaveMethodInfo + ResolveColorButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveColorButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveColorButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveColorButtonMethod "map" o = WidgetMapMethodInfo + ResolveColorButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveColorButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveColorButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveColorButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveColorButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveColorButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveColorButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveColorButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveColorButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveColorButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveColorButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveColorButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveColorButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveColorButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveColorButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveColorButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveColorButtonMethod "path" o = WidgetPathMethodInfo + ResolveColorButtonMethod "pressed" o = ButtonPressedMethodInfo + ResolveColorButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveColorButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveColorButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveColorButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveColorButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveColorButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveColorButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveColorButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveColorButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveColorButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveColorButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveColorButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveColorButtonMethod "released" o = ButtonReleasedMethodInfo + ResolveColorButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveColorButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveColorButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveColorButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveColorButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveColorButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveColorButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveColorButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveColorButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveColorButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveColorButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveColorButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveColorButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveColorButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveColorButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveColorButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveColorButtonMethod "show" o = WidgetShowMethodInfo + ResolveColorButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveColorButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveColorButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveColorButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveColorButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveColorButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveColorButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveColorButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveColorButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveColorButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveColorButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveColorButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveColorButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveColorButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveColorButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveColorButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveColorButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveColorButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveColorButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveColorButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveColorButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveColorButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveColorButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveColorButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveColorButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveColorButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveColorButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo + ResolveColorButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveColorButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveColorButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveColorButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveColorButtonMethod "getAlpha" o = ColorButtonGetAlphaMethodInfo + ResolveColorButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo + ResolveColorButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveColorButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveColorButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveColorButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveColorButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveColorButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveColorButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveColorButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveColorButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveColorButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveColorButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveColorButtonMethod "getColor" o = ColorButtonGetColorMethodInfo + ResolveColorButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveColorButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveColorButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveColorButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveColorButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveColorButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveColorButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveColorButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo + ResolveColorButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveColorButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveColorButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveColorButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveColorButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo + ResolveColorButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveColorButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveColorButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveColorButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveColorButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveColorButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveColorButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveColorButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveColorButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveColorButtonMethod "getImage" o = ButtonGetImageMethodInfo + ResolveColorButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo + ResolveColorButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveColorButtonMethod "getLabel" o = ButtonGetLabelMethodInfo + ResolveColorButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveColorButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveColorButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveColorButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveColorButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveColorButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveColorButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveColorButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveColorButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveColorButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveColorButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveColorButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveColorButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveColorButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveColorButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveColorButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveColorButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveColorButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveColorButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveColorButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveColorButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveColorButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveColorButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveColorButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveColorButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveColorButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveColorButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveColorButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveColorButtonMethod "getRelief" o = ButtonGetReliefMethodInfo + ResolveColorButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveColorButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveColorButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveColorButtonMethod "getRgba" o = ColorChooserGetRgbaMethodInfo + ResolveColorButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveColorButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveColorButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveColorButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveColorButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveColorButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveColorButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveColorButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveColorButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveColorButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveColorButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveColorButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveColorButtonMethod "getTitle" o = ColorButtonGetTitleMethodInfo + ResolveColorButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveColorButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveColorButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveColorButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveColorButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveColorButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo + ResolveColorButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo + ResolveColorButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveColorButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveColorButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveColorButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveColorButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveColorButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveColorButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveColorButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveColorButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveColorButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveColorButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo + ResolveColorButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveColorButtonMethod "setAlpha" o = ColorButtonSetAlphaMethodInfo + ResolveColorButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo + ResolveColorButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveColorButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveColorButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveColorButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveColorButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveColorButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveColorButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveColorButtonMethod "setColor" o = ColorButtonSetColorMethodInfo + ResolveColorButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveColorButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveColorButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveColorButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveColorButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveColorButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveColorButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveColorButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveColorButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveColorButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveColorButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveColorButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo + ResolveColorButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveColorButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveColorButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveColorButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveColorButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveColorButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveColorButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveColorButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveColorButtonMethod "setImage" o = ButtonSetImageMethodInfo + ResolveColorButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo + ResolveColorButtonMethod "setLabel" o = ButtonSetLabelMethodInfo + ResolveColorButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveColorButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveColorButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveColorButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveColorButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveColorButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveColorButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveColorButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveColorButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveColorButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveColorButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveColorButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveColorButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveColorButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveColorButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveColorButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveColorButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveColorButtonMethod "setRelief" o = ButtonSetReliefMethodInfo + ResolveColorButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveColorButtonMethod "setRgba" o = ColorChooserSetRgbaMethodInfo + ResolveColorButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveColorButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveColorButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveColorButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveColorButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveColorButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveColorButtonMethod "setTitle" o = ColorButtonSetTitleMethodInfo + ResolveColorButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveColorButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveColorButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveColorButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveColorButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo + ResolveColorButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo + ResolveColorButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveColorButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveColorButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveColorButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveColorButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveColorButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveColorButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveColorButtonMethod t ColorButton, MethodInfo info ColorButton p) => IsLabelProxy t (ColorButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveColorButtonMethod t ColorButton, MethodInfo info ColorButton p) => IsLabel t (ColorButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ColorButton::color-set type ColorButtonColorSetCallback = IO () @@ -208,7 +584,7 @@ type AttrSetTypeConstraint ColorButtonAlphaPropertyInfo = (~) Word32 type AttrBaseTypeConstraint ColorButtonAlphaPropertyInfo = ColorButtonK type AttrGetType ColorButtonAlphaPropertyInfo = Word32 - type AttrLabel ColorButtonAlphaPropertyInfo = "ColorButton::alpha" + type AttrLabel ColorButtonAlphaPropertyInfo = "alpha" attrGet _ = getColorButtonAlpha attrSet _ = setColorButtonAlpha attrConstruct _ = constructColorButtonAlpha @@ -232,7 +608,7 @@ type AttrSetTypeConstraint ColorButtonColorPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint ColorButtonColorPropertyInfo = ColorButtonK type AttrGetType ColorButtonColorPropertyInfo = Gdk.Color - type AttrLabel ColorButtonColorPropertyInfo = "ColorButton::color" + type AttrLabel ColorButtonColorPropertyInfo = "color" attrGet _ = getColorButtonColor attrSet _ = setColorButtonColor attrConstruct _ = constructColorButtonColor @@ -256,7 +632,7 @@ type AttrSetTypeConstraint ColorButtonRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint ColorButtonRgbaPropertyInfo = ColorButtonK type AttrGetType ColorButtonRgbaPropertyInfo = Gdk.RGBA - type AttrLabel ColorButtonRgbaPropertyInfo = "ColorButton::rgba" + type AttrLabel ColorButtonRgbaPropertyInfo = "rgba" attrGet _ = getColorButtonRgba attrSet _ = setColorButtonRgba attrConstruct _ = constructColorButtonRgba @@ -280,7 +656,7 @@ type AttrSetTypeConstraint ColorButtonTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ColorButtonTitlePropertyInfo = ColorButtonK type AttrGetType ColorButtonTitlePropertyInfo = T.Text - type AttrLabel ColorButtonTitlePropertyInfo = "ColorButton::title" + type AttrLabel ColorButtonTitlePropertyInfo = "title" attrGet _ = getColorButtonTitle attrSet _ = setColorButtonTitle attrConstruct _ = constructColorButtonTitle @@ -304,13 +680,13 @@ type AttrSetTypeConstraint ColorButtonUseAlphaPropertyInfo = (~) Bool type AttrBaseTypeConstraint ColorButtonUseAlphaPropertyInfo = ColorButtonK type AttrGetType ColorButtonUseAlphaPropertyInfo = Bool - type AttrLabel ColorButtonUseAlphaPropertyInfo = "ColorButton::use-alpha" + type AttrLabel ColorButtonUseAlphaPropertyInfo = "use-alpha" attrGet _ = getColorButtonUseAlpha attrSet _ = setColorButtonUseAlpha attrConstruct _ = constructColorButtonUseAlpha type instance AttributeList ColorButton = ColorButtonAttributeList -type ColorButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("alpha", ColorButtonAlphaPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("color", ColorButtonColorPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("rgba", ColorButtonRgbaPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", ColorButtonTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-alpha", ColorButtonUseAlphaPropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +type ColorButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alpha", ColorButtonAlphaPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("color", ColorButtonColorPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rgba", ColorButtonRgbaPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", ColorButtonTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useAlpha", ColorButtonUseAlphaPropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) data ColorButtonColorSetSignalInfo instance SignalInfo ColorButtonColorSetSignalInfo where @@ -318,13 +694,12 @@ connectSignal _ = connectColorButtonColorSet type instance SignalList ColorButton = ColorButtonSignalList -type ColorButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("color-activated", ColorChooserColorActivatedSignalInfo), '("color-set", ColorButtonColorSetSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ColorButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("colorActivated", ColorChooserColorActivatedSignalInfo), '("colorSet", ColorButtonColorSetSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ColorButton::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ColorButton" -- throws : False -- Skip return : False @@ -335,7 +710,7 @@ colorButtonNew :: (MonadIO m) => - m ColorButton + m ColorButton -- result colorButtonNew = liftIO $ do result <- gtk_color_button_new checkUnexpectedReturnNULL "gtk_color_button_new" result @@ -344,9 +719,8 @@ -- method ColorButton::new_with_color -- method type : Constructor --- Args : [Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ColorButton" -- throws : False -- Skip return : False @@ -358,8 +732,8 @@ {-# DEPRECATED colorButtonNewWithColor ["(Since version 3.4)","Use gtk_color_button_new_with_rgba() instead."]#-} colorButtonNewWithColor :: (MonadIO m) => - Gdk.Color -> -- color - m ColorButton + Gdk.Color -- color + -> m ColorButton -- result colorButtonNewWithColor color = liftIO $ do let color' = unsafeManagedPtrGetPtr color result <- gtk_color_button_new_with_color color' @@ -370,9 +744,8 @@ -- method ColorButton::new_with_rgba -- method type : Constructor --- Args : [Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ColorButton" -- throws : False -- Skip return : False @@ -384,8 +757,8 @@ colorButtonNewWithRgba :: (MonadIO m) => - Gdk.RGBA -> -- rgba - m ColorButton + Gdk.RGBA -- rgba + -> m ColorButton -- result colorButtonNewWithRgba rgba = liftIO $ do let rgba' = unsafeManagedPtrGetPtr rgba result <- gtk_color_button_new_with_rgba rgba' @@ -396,9 +769,8 @@ -- method ColorButton::get_alpha -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt16 -- throws : False -- Skip return : False @@ -410,19 +782,22 @@ {-# DEPRECATED colorButtonGetAlpha ["(Since version 3.4)","Use gtk_color_chooser_get_rgba() instead."]#-} colorButtonGetAlpha :: (MonadIO m, ColorButtonK a) => - a -> -- _obj - m Word16 + a -- _obj + -> m Word16 -- result colorButtonGetAlpha _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_color_button_get_alpha _obj' touchManagedPtr _obj return result +data ColorButtonGetAlphaMethodInfo +instance (signature ~ (m Word16), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonGetAlphaMethodInfo a signature where + overloadedMethod _ = colorButtonGetAlpha + -- method ColorButton::get_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -435,8 +810,8 @@ {-# DEPRECATED colorButtonGetColor ["(Since version 3.4)","Use gtk_color_chooser_get_rgba() instead."]#-} colorButtonGetColor :: (MonadIO m, ColorButtonK a) => - a -> -- _obj - m (Gdk.Color) + a -- _obj + -> m (Gdk.Color) -- result colorButtonGetColor _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color) @@ -445,11 +820,14 @@ touchManagedPtr _obj return color' +data ColorButtonGetColorMethodInfo +instance (signature ~ (m (Gdk.Color)), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonGetColorMethodInfo a signature where + overloadedMethod _ = colorButtonGetColor + -- method ColorButton::get_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -461,8 +839,8 @@ colorButtonGetTitle :: (MonadIO m, ColorButtonK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result colorButtonGetTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_color_button_get_title _obj' @@ -471,11 +849,14 @@ touchManagedPtr _obj return result' +data ColorButtonGetTitleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonGetTitleMethodInfo a signature where + overloadedMethod _ = colorButtonGetTitle + -- method ColorButton::get_use_alpha -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -487,8 +868,8 @@ {-# DEPRECATED colorButtonGetUseAlpha ["(Since version 3.4)","Use gtk_color_chooser_get_use_alpha() instead."]#-} colorButtonGetUseAlpha :: (MonadIO m, ColorButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result colorButtonGetUseAlpha _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_color_button_get_use_alpha _obj' @@ -496,11 +877,14 @@ touchManagedPtr _obj return result' +data ColorButtonGetUseAlphaMethodInfo +instance (signature ~ (m Bool), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonGetUseAlphaMethodInfo a signature where + overloadedMethod _ = colorButtonGetUseAlpha + -- method ColorButton::set_alpha -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -513,20 +897,23 @@ {-# DEPRECATED colorButtonSetAlpha ["(Since version 3.4)","Use gtk_color_chooser_set_rgba() instead."]#-} colorButtonSetAlpha :: (MonadIO m, ColorButtonK a) => - a -> -- _obj - Word16 -> -- alpha - m () + a -- _obj + -> Word16 -- alpha + -> m () -- result colorButtonSetAlpha _obj alpha = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_color_button_set_alpha _obj' alpha touchManagedPtr _obj return () +data ColorButtonSetAlphaMethodInfo +instance (signature ~ (Word16 -> m ()), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonSetAlphaMethodInfo a signature where + overloadedMethod _ = colorButtonSetAlpha + -- method ColorButton::set_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -539,9 +926,9 @@ {-# DEPRECATED colorButtonSetColor ["Use gtk_color_chooser_set_rgba() instead."]#-} colorButtonSetColor :: (MonadIO m, ColorButtonK a) => - a -> -- _obj - Gdk.Color -> -- color - m () + a -- _obj + -> Gdk.Color -- color + -> m () -- result colorButtonSetColor _obj color = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let color' = unsafeManagedPtrGetPtr color @@ -550,11 +937,14 @@ touchManagedPtr color return () +data ColorButtonSetColorMethodInfo +instance (signature ~ (Gdk.Color -> m ()), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonSetColorMethodInfo a signature where + overloadedMethod _ = colorButtonSetColor + -- method ColorButton::set_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -567,9 +957,9 @@ colorButtonSetTitle :: (MonadIO m, ColorButtonK a) => - a -> -- _obj - T.Text -> -- title - m () + a -- _obj + -> T.Text -- title + -> m () -- result colorButtonSetTitle _obj title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj title' <- textToCString title @@ -578,11 +968,14 @@ freeMem title' return () +data ColorButtonSetTitleMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonSetTitleMethodInfo a signature where + overloadedMethod _ = colorButtonSetTitle + -- method ColorButton::set_use_alpha -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -595,14 +988,18 @@ {-# DEPRECATED colorButtonSetUseAlpha ["(Since version 3.4)","Use gtk_color_chooser_set_use_alpha() instead."]#-} colorButtonSetUseAlpha :: (MonadIO m, ColorButtonK a) => - a -> -- _obj - Bool -> -- use_alpha - m () -colorButtonSetUseAlpha _obj use_alpha = liftIO $ do + a -- _obj + -> Bool -- useAlpha + -> m () -- result +colorButtonSetUseAlpha _obj useAlpha = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_alpha' = (fromIntegral . fromEnum) use_alpha - gtk_color_button_set_use_alpha _obj' use_alpha' + let useAlpha' = (fromIntegral . fromEnum) useAlpha + gtk_color_button_set_use_alpha _obj' useAlpha' touchManagedPtr _obj return () + +data ColorButtonSetUseAlphaMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ColorButtonK a) => MethodInfo ColorButtonSetUseAlphaMethodInfo a signature where + overloadedMethod _ = colorButtonSetUseAlpha diff --git a/GI/Gtk/Objects/ColorButton.hs-boot b/GI/Gtk/Objects/ColorButton.hs-boot --- a/GI/Gtk/Objects/ColorButton.hs-boot +++ b/GI/Gtk/Objects/ColorButton.hs-boot @@ -17,3 +17,11 @@ data ColorButtonTitlePropertyInfo data ColorButtonUseAlphaPropertyInfo data ColorButtonColorSetSignalInfo +data ColorButtonGetAlphaMethodInfo +data ColorButtonGetColorMethodInfo +data ColorButtonGetTitleMethodInfo +data ColorButtonGetUseAlphaMethodInfo +data ColorButtonSetAlphaMethodInfo +data ColorButtonSetColorMethodInfo +data ColorButtonSetTitleMethodInfo +data ColorButtonSetUseAlphaMethodInfo diff --git a/GI/Gtk/Objects/ColorChooserDialog.hs b/GI/Gtk/Objects/ColorChooserDialog.hs --- a/GI/Gtk/Objects/ColorChooserDialog.hs +++ b/GI/Gtk/Objects/ColorChooserDialog.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -67,6 +68,447 @@ noColorChooserDialog :: Maybe ColorChooserDialog noColorChooserDialog = Nothing +type family ResolveColorChooserDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveColorChooserDialogMethod "activate" o = WidgetActivateMethodInfo + ResolveColorChooserDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveColorChooserDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveColorChooserDialogMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveColorChooserDialogMethod "add" o = ContainerAddMethodInfo + ResolveColorChooserDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveColorChooserDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveColorChooserDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo + ResolveColorChooserDialogMethod "addButton" o = DialogAddButtonMethodInfo + ResolveColorChooserDialogMethod "addChild" o = BuildableAddChildMethodInfo + ResolveColorChooserDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveColorChooserDialogMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveColorChooserDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveColorChooserDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveColorChooserDialogMethod "addPalette" o = ColorChooserAddPaletteMethodInfo + ResolveColorChooserDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveColorChooserDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveColorChooserDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveColorChooserDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveColorChooserDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveColorChooserDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveColorChooserDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveColorChooserDialogMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveColorChooserDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveColorChooserDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveColorChooserDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveColorChooserDialogMethod "childType" o = ContainerChildTypeMethodInfo + ResolveColorChooserDialogMethod "classPath" o = WidgetClassPathMethodInfo + ResolveColorChooserDialogMethod "close" o = WindowCloseMethodInfo + ResolveColorChooserDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveColorChooserDialogMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveColorChooserDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveColorChooserDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveColorChooserDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveColorChooserDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveColorChooserDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveColorChooserDialogMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveColorChooserDialogMethod "destroy" o = WidgetDestroyMethodInfo + ResolveColorChooserDialogMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveColorChooserDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveColorChooserDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveColorChooserDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveColorChooserDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveColorChooserDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveColorChooserDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveColorChooserDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveColorChooserDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveColorChooserDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveColorChooserDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveColorChooserDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveColorChooserDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveColorChooserDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveColorChooserDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveColorChooserDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveColorChooserDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveColorChooserDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveColorChooserDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveColorChooserDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveColorChooserDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveColorChooserDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveColorChooserDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveColorChooserDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveColorChooserDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveColorChooserDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveColorChooserDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveColorChooserDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveColorChooserDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveColorChooserDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveColorChooserDialogMethod "draw" o = WidgetDrawMethodInfo + ResolveColorChooserDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveColorChooserDialogMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveColorChooserDialogMethod "event" o = WidgetEventMethodInfo + ResolveColorChooserDialogMethod "forall" o = ContainerForallMethodInfo + ResolveColorChooserDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveColorChooserDialogMethod "foreach" o = ContainerForeachMethodInfo + ResolveColorChooserDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveColorChooserDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveColorChooserDialogMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveColorChooserDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveColorChooserDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveColorChooserDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveColorChooserDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveColorChooserDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveColorChooserDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveColorChooserDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveColorChooserDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveColorChooserDialogMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveColorChooserDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveColorChooserDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveColorChooserDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveColorChooserDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveColorChooserDialogMethod "hide" o = WidgetHideMethodInfo + ResolveColorChooserDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveColorChooserDialogMethod "iconify" o = WindowIconifyMethodInfo + ResolveColorChooserDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveColorChooserDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveColorChooserDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveColorChooserDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveColorChooserDialogMethod "intersect" o = WidgetIntersectMethodInfo + ResolveColorChooserDialogMethod "isActive" o = WindowIsActiveMethodInfo + ResolveColorChooserDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveColorChooserDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveColorChooserDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveColorChooserDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveColorChooserDialogMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveColorChooserDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveColorChooserDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveColorChooserDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveColorChooserDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveColorChooserDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveColorChooserDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveColorChooserDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveColorChooserDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveColorChooserDialogMethod "map" o = WidgetMapMethodInfo + ResolveColorChooserDialogMethod "maximize" o = WindowMaximizeMethodInfo + ResolveColorChooserDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveColorChooserDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveColorChooserDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveColorChooserDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveColorChooserDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveColorChooserDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveColorChooserDialogMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveColorChooserDialogMethod "move" o = WindowMoveMethodInfo + ResolveColorChooserDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveColorChooserDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveColorChooserDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveColorChooserDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveColorChooserDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveColorChooserDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveColorChooserDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveColorChooserDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveColorChooserDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveColorChooserDialogMethod "path" o = WidgetPathMethodInfo + ResolveColorChooserDialogMethod "present" o = WindowPresentMethodInfo + ResolveColorChooserDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveColorChooserDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveColorChooserDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveColorChooserDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveColorChooserDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveColorChooserDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveColorChooserDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveColorChooserDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveColorChooserDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveColorChooserDialogMethod "realize" o = WidgetRealizeMethodInfo + ResolveColorChooserDialogMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveColorChooserDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveColorChooserDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveColorChooserDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveColorChooserDialogMethod "remove" o = ContainerRemoveMethodInfo + ResolveColorChooserDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveColorChooserDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveColorChooserDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveColorChooserDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveColorChooserDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveColorChooserDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveColorChooserDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveColorChooserDialogMethod "reparent" o = WidgetReparentMethodInfo + ResolveColorChooserDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveColorChooserDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveColorChooserDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveColorChooserDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveColorChooserDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveColorChooserDialogMethod "resize" o = WindowResizeMethodInfo + ResolveColorChooserDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveColorChooserDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveColorChooserDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveColorChooserDialogMethod "response" o = DialogResponseMethodInfo + ResolveColorChooserDialogMethod "run" o = DialogRunMethodInfo + ResolveColorChooserDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveColorChooserDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveColorChooserDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveColorChooserDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveColorChooserDialogMethod "show" o = WidgetShowMethodInfo + ResolveColorChooserDialogMethod "showAll" o = WidgetShowAllMethodInfo + ResolveColorChooserDialogMethod "showNow" o = WidgetShowNowMethodInfo + ResolveColorChooserDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveColorChooserDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveColorChooserDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveColorChooserDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveColorChooserDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveColorChooserDialogMethod "stick" o = WindowStickMethodInfo + ResolveColorChooserDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveColorChooserDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveColorChooserDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveColorChooserDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveColorChooserDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveColorChooserDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveColorChooserDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveColorChooserDialogMethod "unmap" o = WidgetUnmapMethodInfo + ResolveColorChooserDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveColorChooserDialogMethod "unparent" o = WidgetUnparentMethodInfo + ResolveColorChooserDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveColorChooserDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveColorChooserDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveColorChooserDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveColorChooserDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveColorChooserDialogMethod "unstick" o = WindowUnstickMethodInfo + ResolveColorChooserDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveColorChooserDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveColorChooserDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveColorChooserDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo + ResolveColorChooserDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveColorChooserDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveColorChooserDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveColorChooserDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveColorChooserDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveColorChooserDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveColorChooserDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveColorChooserDialogMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveColorChooserDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveColorChooserDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveColorChooserDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveColorChooserDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveColorChooserDialogMethod "getChild" o = BinGetChildMethodInfo + ResolveColorChooserDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveColorChooserDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveColorChooserDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveColorChooserDialogMethod "getClip" o = WidgetGetClipMethodInfo + ResolveColorChooserDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveColorChooserDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveColorChooserDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo + ResolveColorChooserDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveColorChooserDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveColorChooserDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveColorChooserDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveColorChooserDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveColorChooserDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveColorChooserDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveColorChooserDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveColorChooserDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveColorChooserDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveColorChooserDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveColorChooserDialogMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveColorChooserDialogMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveColorChooserDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveColorChooserDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveColorChooserDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveColorChooserDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveColorChooserDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveColorChooserDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveColorChooserDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveColorChooserDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveColorChooserDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveColorChooserDialogMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveColorChooserDialogMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveColorChooserDialogMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveColorChooserDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveColorChooserDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveColorChooserDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveColorChooserDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo + ResolveColorChooserDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveColorChooserDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveColorChooserDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveColorChooserDialogMethod "getIcon" o = WindowGetIconMethodInfo + ResolveColorChooserDialogMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveColorChooserDialogMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveColorChooserDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveColorChooserDialogMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveColorChooserDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveColorChooserDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveColorChooserDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveColorChooserDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveColorChooserDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveColorChooserDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveColorChooserDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveColorChooserDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveColorChooserDialogMethod "getModal" o = WindowGetModalMethodInfo + ResolveColorChooserDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveColorChooserDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveColorChooserDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveColorChooserDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveColorChooserDialogMethod "getParent" o = WidgetGetParentMethodInfo + ResolveColorChooserDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveColorChooserDialogMethod "getPath" o = WidgetGetPathMethodInfo + ResolveColorChooserDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveColorChooserDialogMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveColorChooserDialogMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveColorChooserDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveColorChooserDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveColorChooserDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveColorChooserDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveColorChooserDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveColorChooserDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveColorChooserDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveColorChooserDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveColorChooserDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveColorChooserDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveColorChooserDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveColorChooserDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveColorChooserDialogMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveColorChooserDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveColorChooserDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveColorChooserDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo + ResolveColorChooserDialogMethod "getRgba" o = ColorChooserGetRgbaMethodInfo + ResolveColorChooserDialogMethod "getRole" o = WindowGetRoleMethodInfo + ResolveColorChooserDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveColorChooserDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveColorChooserDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveColorChooserDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveColorChooserDialogMethod "getSize" o = WindowGetSizeMethodInfo + ResolveColorChooserDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveColorChooserDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveColorChooserDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveColorChooserDialogMethod "getState" o = WidgetGetStateMethodInfo + ResolveColorChooserDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveColorChooserDialogMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveColorChooserDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveColorChooserDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveColorChooserDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveColorChooserDialogMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveColorChooserDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveColorChooserDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveColorChooserDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveColorChooserDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveColorChooserDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveColorChooserDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveColorChooserDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveColorChooserDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveColorChooserDialogMethod "getUseAlpha" o = ColorChooserGetUseAlphaMethodInfo + ResolveColorChooserDialogMethod "getValign" o = WidgetGetValignMethodInfo + ResolveColorChooserDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveColorChooserDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveColorChooserDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveColorChooserDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveColorChooserDialogMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveColorChooserDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo + ResolveColorChooserDialogMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveColorChooserDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveColorChooserDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveColorChooserDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveColorChooserDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveColorChooserDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo + ResolveColorChooserDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveColorChooserDialogMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveColorChooserDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveColorChooserDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveColorChooserDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveColorChooserDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveColorChooserDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveColorChooserDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveColorChooserDialogMethod "setClip" o = WidgetSetClipMethodInfo + ResolveColorChooserDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveColorChooserDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveColorChooserDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveColorChooserDialogMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveColorChooserDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveColorChooserDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo + ResolveColorChooserDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveColorChooserDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveColorChooserDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveColorChooserDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveColorChooserDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveColorChooserDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveColorChooserDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveColorChooserDialogMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveColorChooserDialogMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveColorChooserDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveColorChooserDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveColorChooserDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveColorChooserDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveColorChooserDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveColorChooserDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveColorChooserDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveColorChooserDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveColorChooserDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveColorChooserDialogMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveColorChooserDialogMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveColorChooserDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveColorChooserDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveColorChooserDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveColorChooserDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveColorChooserDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveColorChooserDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveColorChooserDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveColorChooserDialogMethod "setIcon" o = WindowSetIconMethodInfo + ResolveColorChooserDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveColorChooserDialogMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveColorChooserDialogMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveColorChooserDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveColorChooserDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveColorChooserDialogMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveColorChooserDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveColorChooserDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveColorChooserDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveColorChooserDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveColorChooserDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveColorChooserDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveColorChooserDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveColorChooserDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveColorChooserDialogMethod "setModal" o = WindowSetModalMethodInfo + ResolveColorChooserDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveColorChooserDialogMethod "setParent" o = WidgetSetParentMethodInfo + ResolveColorChooserDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveColorChooserDialogMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveColorChooserDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveColorChooserDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveColorChooserDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveColorChooserDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveColorChooserDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveColorChooserDialogMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveColorChooserDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveColorChooserDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo + ResolveColorChooserDialogMethod "setRgba" o = ColorChooserSetRgbaMethodInfo + ResolveColorChooserDialogMethod "setRole" o = WindowSetRoleMethodInfo + ResolveColorChooserDialogMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveColorChooserDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveColorChooserDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveColorChooserDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveColorChooserDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveColorChooserDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveColorChooserDialogMethod "setState" o = WidgetSetStateMethodInfo + ResolveColorChooserDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveColorChooserDialogMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveColorChooserDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveColorChooserDialogMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveColorChooserDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveColorChooserDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveColorChooserDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveColorChooserDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveColorChooserDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveColorChooserDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveColorChooserDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveColorChooserDialogMethod "setUseAlpha" o = ColorChooserSetUseAlphaMethodInfo + ResolveColorChooserDialogMethod "setValign" o = WidgetSetValignMethodInfo + ResolveColorChooserDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveColorChooserDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveColorChooserDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveColorChooserDialogMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveColorChooserDialogMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveColorChooserDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveColorChooserDialogMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveColorChooserDialogMethod t ColorChooserDialog, MethodInfo info ColorChooserDialog p) => IsLabelProxy t (ColorChooserDialog -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveColorChooserDialogMethod t ColorChooserDialog, MethodInfo info ColorChooserDialog p) => IsLabel t (ColorChooserDialog -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "show-editor" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -86,22 +528,21 @@ type AttrSetTypeConstraint ColorChooserDialogShowEditorPropertyInfo = (~) Bool type AttrBaseTypeConstraint ColorChooserDialogShowEditorPropertyInfo = ColorChooserDialogK type AttrGetType ColorChooserDialogShowEditorPropertyInfo = Bool - type AttrLabel ColorChooserDialogShowEditorPropertyInfo = "ColorChooserDialog::show-editor" + type AttrLabel ColorChooserDialogShowEditorPropertyInfo = "show-editor" attrGet _ = getColorChooserDialogShowEditor attrSet _ = setColorChooserDialogShowEditor attrConstruct _ = constructColorChooserDialogShowEditor type instance AttributeList ColorChooserDialog = ColorChooserDialogAttributeList -type ColorChooserDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-editor", ColorChooserDialogShowEditorPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-alpha", ColorChooserUseAlphaPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type ColorChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showEditor", ColorChooserDialogShowEditorPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ColorChooserDialog = ColorChooserDialogSignalList -type ColorChooserDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("color-activated", ColorChooserColorActivatedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ColorChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("colorActivated", ColorChooserColorActivatedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ColorChooserDialog::new -- method type : Constructor --- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ColorChooserDialog" -- throws : False -- Skip return : False @@ -114,9 +555,9 @@ colorChooserDialogNew :: (MonadIO m, WindowK a) => - Maybe (T.Text) -> -- title - Maybe (a) -> -- parent - m ColorChooserDialog + Maybe (T.Text) -- title + -> Maybe (a) -- parent + -> m ColorChooserDialog -- result colorChooserDialogNew title parent = liftIO $ do maybeTitle <- case title of Nothing -> return nullPtr diff --git a/GI/Gtk/Objects/ColorChooserWidget.hs b/GI/Gtk/Objects/ColorChooserWidget.hs --- a/GI/Gtk/Objects/ColorChooserWidget.hs +++ b/GI/Gtk/Objects/ColorChooserWidget.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -67,6 +68,348 @@ noColorChooserWidget :: Maybe ColorChooserWidget noColorChooserWidget = Nothing +type family ResolveColorChooserWidgetMethod (t :: Symbol) (o :: *) :: * where + ResolveColorChooserWidgetMethod "activate" o = WidgetActivateMethodInfo + ResolveColorChooserWidgetMethod "add" o = ContainerAddMethodInfo + ResolveColorChooserWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveColorChooserWidgetMethod "addChild" o = BuildableAddChildMethodInfo + ResolveColorChooserWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveColorChooserWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveColorChooserWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveColorChooserWidgetMethod "addPalette" o = ColorChooserAddPaletteMethodInfo + ResolveColorChooserWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveColorChooserWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveColorChooserWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveColorChooserWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveColorChooserWidgetMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveColorChooserWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveColorChooserWidgetMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveColorChooserWidgetMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveColorChooserWidgetMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveColorChooserWidgetMethod "childType" o = ContainerChildTypeMethodInfo + ResolveColorChooserWidgetMethod "classPath" o = WidgetClassPathMethodInfo + ResolveColorChooserWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveColorChooserWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveColorChooserWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveColorChooserWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveColorChooserWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveColorChooserWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveColorChooserWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveColorChooserWidgetMethod "destroy" o = WidgetDestroyMethodInfo + ResolveColorChooserWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveColorChooserWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveColorChooserWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveColorChooserWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveColorChooserWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveColorChooserWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveColorChooserWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveColorChooserWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveColorChooserWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveColorChooserWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveColorChooserWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveColorChooserWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveColorChooserWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveColorChooserWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveColorChooserWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveColorChooserWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveColorChooserWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveColorChooserWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveColorChooserWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveColorChooserWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveColorChooserWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveColorChooserWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveColorChooserWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveColorChooserWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveColorChooserWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveColorChooserWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveColorChooserWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveColorChooserWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveColorChooserWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveColorChooserWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveColorChooserWidgetMethod "draw" o = WidgetDrawMethodInfo + ResolveColorChooserWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveColorChooserWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveColorChooserWidgetMethod "event" o = WidgetEventMethodInfo + ResolveColorChooserWidgetMethod "forall" o = ContainerForallMethodInfo + ResolveColorChooserWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveColorChooserWidgetMethod "foreach" o = ContainerForeachMethodInfo + ResolveColorChooserWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveColorChooserWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveColorChooserWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveColorChooserWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveColorChooserWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveColorChooserWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveColorChooserWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveColorChooserWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveColorChooserWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveColorChooserWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveColorChooserWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveColorChooserWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveColorChooserWidgetMethod "hide" o = WidgetHideMethodInfo + ResolveColorChooserWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveColorChooserWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveColorChooserWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveColorChooserWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveColorChooserWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveColorChooserWidgetMethod "intersect" o = WidgetIntersectMethodInfo + ResolveColorChooserWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveColorChooserWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveColorChooserWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveColorChooserWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveColorChooserWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveColorChooserWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveColorChooserWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveColorChooserWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveColorChooserWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveColorChooserWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveColorChooserWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveColorChooserWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveColorChooserWidgetMethod "map" o = WidgetMapMethodInfo + ResolveColorChooserWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveColorChooserWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveColorChooserWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveColorChooserWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveColorChooserWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveColorChooserWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveColorChooserWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveColorChooserWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveColorChooserWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveColorChooserWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveColorChooserWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveColorChooserWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveColorChooserWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveColorChooserWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveColorChooserWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveColorChooserWidgetMethod "packEnd" o = BoxPackEndMethodInfo + ResolveColorChooserWidgetMethod "packStart" o = BoxPackStartMethodInfo + ResolveColorChooserWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveColorChooserWidgetMethod "path" o = WidgetPathMethodInfo + ResolveColorChooserWidgetMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveColorChooserWidgetMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveColorChooserWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveColorChooserWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveColorChooserWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveColorChooserWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveColorChooserWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveColorChooserWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveColorChooserWidgetMethod "realize" o = WidgetRealizeMethodInfo + ResolveColorChooserWidgetMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveColorChooserWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveColorChooserWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveColorChooserWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveColorChooserWidgetMethod "remove" o = ContainerRemoveMethodInfo + ResolveColorChooserWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveColorChooserWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveColorChooserWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveColorChooserWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveColorChooserWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveColorChooserWidgetMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveColorChooserWidgetMethod "reparent" o = WidgetReparentMethodInfo + ResolveColorChooserWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveColorChooserWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveColorChooserWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveColorChooserWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveColorChooserWidgetMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveColorChooserWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveColorChooserWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveColorChooserWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveColorChooserWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveColorChooserWidgetMethod "show" o = WidgetShowMethodInfo + ResolveColorChooserWidgetMethod "showAll" o = WidgetShowAllMethodInfo + ResolveColorChooserWidgetMethod "showNow" o = WidgetShowNowMethodInfo + ResolveColorChooserWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveColorChooserWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveColorChooserWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveColorChooserWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveColorChooserWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveColorChooserWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveColorChooserWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveColorChooserWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveColorChooserWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveColorChooserWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveColorChooserWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveColorChooserWidgetMethod "unmap" o = WidgetUnmapMethodInfo + ResolveColorChooserWidgetMethod "unparent" o = WidgetUnparentMethodInfo + ResolveColorChooserWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveColorChooserWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveColorChooserWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveColorChooserWidgetMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveColorChooserWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveColorChooserWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveColorChooserWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveColorChooserWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveColorChooserWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveColorChooserWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveColorChooserWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveColorChooserWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveColorChooserWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveColorChooserWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveColorChooserWidgetMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveColorChooserWidgetMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveColorChooserWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveColorChooserWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveColorChooserWidgetMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveColorChooserWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveColorChooserWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveColorChooserWidgetMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveColorChooserWidgetMethod "getClip" o = WidgetGetClipMethodInfo + ResolveColorChooserWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveColorChooserWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveColorChooserWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveColorChooserWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveColorChooserWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveColorChooserWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveColorChooserWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveColorChooserWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveColorChooserWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveColorChooserWidgetMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveColorChooserWidgetMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveColorChooserWidgetMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveColorChooserWidgetMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveColorChooserWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveColorChooserWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveColorChooserWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveColorChooserWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveColorChooserWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveColorChooserWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveColorChooserWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveColorChooserWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveColorChooserWidgetMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveColorChooserWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveColorChooserWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveColorChooserWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveColorChooserWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveColorChooserWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveColorChooserWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveColorChooserWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveColorChooserWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveColorChooserWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveColorChooserWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveColorChooserWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveColorChooserWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveColorChooserWidgetMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveColorChooserWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveColorChooserWidgetMethod "getParent" o = WidgetGetParentMethodInfo + ResolveColorChooserWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveColorChooserWidgetMethod "getPath" o = WidgetGetPathMethodInfo + ResolveColorChooserWidgetMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveColorChooserWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveColorChooserWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveColorChooserWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveColorChooserWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveColorChooserWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveColorChooserWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveColorChooserWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveColorChooserWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveColorChooserWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveColorChooserWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveColorChooserWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveColorChooserWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveColorChooserWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveColorChooserWidgetMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveColorChooserWidgetMethod "getRgba" o = ColorChooserGetRgbaMethodInfo + ResolveColorChooserWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveColorChooserWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveColorChooserWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveColorChooserWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveColorChooserWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveColorChooserWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveColorChooserWidgetMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveColorChooserWidgetMethod "getState" o = WidgetGetStateMethodInfo + ResolveColorChooserWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveColorChooserWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveColorChooserWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveColorChooserWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveColorChooserWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveColorChooserWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveColorChooserWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveColorChooserWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveColorChooserWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveColorChooserWidgetMethod "getUseAlpha" o = ColorChooserGetUseAlphaMethodInfo + ResolveColorChooserWidgetMethod "getValign" o = WidgetGetValignMethodInfo + ResolveColorChooserWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveColorChooserWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveColorChooserWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveColorChooserWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveColorChooserWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveColorChooserWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveColorChooserWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveColorChooserWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveColorChooserWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveColorChooserWidgetMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveColorChooserWidgetMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveColorChooserWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveColorChooserWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveColorChooserWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveColorChooserWidgetMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveColorChooserWidgetMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveColorChooserWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveColorChooserWidgetMethod "setClip" o = WidgetSetClipMethodInfo + ResolveColorChooserWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveColorChooserWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveColorChooserWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveColorChooserWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveColorChooserWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveColorChooserWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveColorChooserWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveColorChooserWidgetMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveColorChooserWidgetMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveColorChooserWidgetMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveColorChooserWidgetMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveColorChooserWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveColorChooserWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveColorChooserWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveColorChooserWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveColorChooserWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveColorChooserWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveColorChooserWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveColorChooserWidgetMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveColorChooserWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveColorChooserWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveColorChooserWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveColorChooserWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveColorChooserWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveColorChooserWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveColorChooserWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveColorChooserWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveColorChooserWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveColorChooserWidgetMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveColorChooserWidgetMethod "setParent" o = WidgetSetParentMethodInfo + ResolveColorChooserWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveColorChooserWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveColorChooserWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveColorChooserWidgetMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveColorChooserWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveColorChooserWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveColorChooserWidgetMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveColorChooserWidgetMethod "setRgba" o = ColorChooserSetRgbaMethodInfo + ResolveColorChooserWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveColorChooserWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveColorChooserWidgetMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveColorChooserWidgetMethod "setState" o = WidgetSetStateMethodInfo + ResolveColorChooserWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveColorChooserWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveColorChooserWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveColorChooserWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveColorChooserWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveColorChooserWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveColorChooserWidgetMethod "setUseAlpha" o = ColorChooserSetUseAlphaMethodInfo + ResolveColorChooserWidgetMethod "setValign" o = WidgetSetValignMethodInfo + ResolveColorChooserWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveColorChooserWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveColorChooserWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveColorChooserWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveColorChooserWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveColorChooserWidgetMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveColorChooserWidgetMethod t ColorChooserWidget, MethodInfo info ColorChooserWidget p) => IsLabelProxy t (ColorChooserWidget -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveColorChooserWidgetMethod t ColorChooserWidget, MethodInfo info ColorChooserWidget p) => IsLabel t (ColorChooserWidget -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "show-editor" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -86,22 +429,21 @@ type AttrSetTypeConstraint ColorChooserWidgetShowEditorPropertyInfo = (~) Bool type AttrBaseTypeConstraint ColorChooserWidgetShowEditorPropertyInfo = ColorChooserWidgetK type AttrGetType ColorChooserWidgetShowEditorPropertyInfo = Bool - type AttrLabel ColorChooserWidgetShowEditorPropertyInfo = "ColorChooserWidget::show-editor" + type AttrLabel ColorChooserWidgetShowEditorPropertyInfo = "show-editor" attrGet _ = getColorChooserWidgetShowEditor attrSet _ = setColorChooserWidgetShowEditor attrConstruct _ = constructColorChooserWidgetShowEditor type instance AttributeList ColorChooserWidget = ColorChooserWidgetAttributeList -type ColorChooserWidgetAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-editor", ColorChooserWidgetShowEditorPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-alpha", ColorChooserUseAlphaPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ColorChooserWidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showEditor", ColorChooserWidgetShowEditorPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ColorChooserWidget = ColorChooserWidgetSignalList -type ColorChooserWidgetSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("color-activated", ColorChooserColorActivatedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ColorChooserWidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("colorActivated", ColorChooserColorActivatedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ColorChooserWidget::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ColorChooserWidget" -- throws : False -- Skip return : False @@ -112,7 +454,7 @@ colorChooserWidgetNew :: (MonadIO m) => - m ColorChooserWidget + m ColorChooserWidget -- result colorChooserWidgetNew = liftIO $ do result <- gtk_color_chooser_widget_new checkUnexpectedReturnNULL "gtk_color_chooser_widget_new" result diff --git a/GI/Gtk/Objects/ColorSelection.hs b/GI/Gtk/Objects/ColorSelection.hs --- a/GI/Gtk/Objects/ColorSelection.hs +++ b/GI/Gtk/Objects/ColorSelection.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,38 +18,47 @@ -- * Methods -- ** colorSelectionGetCurrentAlpha + ColorSelectionGetCurrentAlphaMethodInfo , colorSelectionGetCurrentAlpha , -- ** colorSelectionGetCurrentColor + ColorSelectionGetCurrentColorMethodInfo , colorSelectionGetCurrentColor , -- ** colorSelectionGetCurrentRgba + ColorSelectionGetCurrentRgbaMethodInfo , colorSelectionGetCurrentRgba , -- ** colorSelectionGetHasOpacityControl + ColorSelectionGetHasOpacityControlMethodInfo, colorSelectionGetHasOpacityControl , -- ** colorSelectionGetHasPalette + ColorSelectionGetHasPaletteMethodInfo , colorSelectionGetHasPalette , -- ** colorSelectionGetPreviousAlpha + ColorSelectionGetPreviousAlphaMethodInfo, colorSelectionGetPreviousAlpha , -- ** colorSelectionGetPreviousColor + ColorSelectionGetPreviousColorMethodInfo, colorSelectionGetPreviousColor , -- ** colorSelectionGetPreviousRgba + ColorSelectionGetPreviousRgbaMethodInfo , colorSelectionGetPreviousRgba , -- ** colorSelectionIsAdjusting + ColorSelectionIsAdjustingMethodInfo , colorSelectionIsAdjusting , @@ -65,34 +75,42 @@ -- ** colorSelectionSetCurrentAlpha + ColorSelectionSetCurrentAlphaMethodInfo , colorSelectionSetCurrentAlpha , -- ** colorSelectionSetCurrentColor + ColorSelectionSetCurrentColorMethodInfo , colorSelectionSetCurrentColor , -- ** colorSelectionSetCurrentRgba + ColorSelectionSetCurrentRgbaMethodInfo , colorSelectionSetCurrentRgba , -- ** colorSelectionSetHasOpacityControl + ColorSelectionSetHasOpacityControlMethodInfo, colorSelectionSetHasOpacityControl , -- ** colorSelectionSetHasPalette + ColorSelectionSetHasPaletteMethodInfo , colorSelectionSetHasPalette , -- ** colorSelectionSetPreviousAlpha + ColorSelectionSetPreviousAlphaMethodInfo, colorSelectionSetPreviousAlpha , -- ** colorSelectionSetPreviousColor + ColorSelectionSetPreviousColorMethodInfo, colorSelectionSetPreviousColor , -- ** colorSelectionSetPreviousRgba + ColorSelectionSetPreviousRgbaMethodInfo , colorSelectionSetPreviousRgba , @@ -187,6 +205,360 @@ noColorSelection :: Maybe ColorSelection noColorSelection = Nothing +type family ResolveColorSelectionMethod (t :: Symbol) (o :: *) :: * where + ResolveColorSelectionMethod "activate" o = WidgetActivateMethodInfo + ResolveColorSelectionMethod "add" o = ContainerAddMethodInfo + ResolveColorSelectionMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveColorSelectionMethod "addChild" o = BuildableAddChildMethodInfo + ResolveColorSelectionMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveColorSelectionMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveColorSelectionMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveColorSelectionMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveColorSelectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveColorSelectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveColorSelectionMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveColorSelectionMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveColorSelectionMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveColorSelectionMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveColorSelectionMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveColorSelectionMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveColorSelectionMethod "childType" o = ContainerChildTypeMethodInfo + ResolveColorSelectionMethod "classPath" o = WidgetClassPathMethodInfo + ResolveColorSelectionMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveColorSelectionMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveColorSelectionMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveColorSelectionMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveColorSelectionMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveColorSelectionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveColorSelectionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveColorSelectionMethod "destroy" o = WidgetDestroyMethodInfo + ResolveColorSelectionMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveColorSelectionMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveColorSelectionMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveColorSelectionMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveColorSelectionMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveColorSelectionMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveColorSelectionMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveColorSelectionMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveColorSelectionMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveColorSelectionMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveColorSelectionMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveColorSelectionMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveColorSelectionMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveColorSelectionMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveColorSelectionMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveColorSelectionMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveColorSelectionMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveColorSelectionMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveColorSelectionMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveColorSelectionMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveColorSelectionMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveColorSelectionMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveColorSelectionMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveColorSelectionMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveColorSelectionMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveColorSelectionMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveColorSelectionMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveColorSelectionMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveColorSelectionMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveColorSelectionMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveColorSelectionMethod "draw" o = WidgetDrawMethodInfo + ResolveColorSelectionMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveColorSelectionMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveColorSelectionMethod "event" o = WidgetEventMethodInfo + ResolveColorSelectionMethod "forall" o = ContainerForallMethodInfo + ResolveColorSelectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveColorSelectionMethod "foreach" o = ContainerForeachMethodInfo + ResolveColorSelectionMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveColorSelectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveColorSelectionMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveColorSelectionMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveColorSelectionMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveColorSelectionMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveColorSelectionMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveColorSelectionMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveColorSelectionMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveColorSelectionMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveColorSelectionMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveColorSelectionMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveColorSelectionMethod "hide" o = WidgetHideMethodInfo + ResolveColorSelectionMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveColorSelectionMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveColorSelectionMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveColorSelectionMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveColorSelectionMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveColorSelectionMethod "intersect" o = WidgetIntersectMethodInfo + ResolveColorSelectionMethod "isAdjusting" o = ColorSelectionIsAdjustingMethodInfo + ResolveColorSelectionMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveColorSelectionMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveColorSelectionMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveColorSelectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveColorSelectionMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveColorSelectionMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveColorSelectionMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveColorSelectionMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveColorSelectionMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveColorSelectionMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveColorSelectionMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveColorSelectionMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveColorSelectionMethod "map" o = WidgetMapMethodInfo + ResolveColorSelectionMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveColorSelectionMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveColorSelectionMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveColorSelectionMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveColorSelectionMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveColorSelectionMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveColorSelectionMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveColorSelectionMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveColorSelectionMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveColorSelectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveColorSelectionMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveColorSelectionMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveColorSelectionMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveColorSelectionMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveColorSelectionMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveColorSelectionMethod "packEnd" o = BoxPackEndMethodInfo + ResolveColorSelectionMethod "packStart" o = BoxPackStartMethodInfo + ResolveColorSelectionMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveColorSelectionMethod "path" o = WidgetPathMethodInfo + ResolveColorSelectionMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveColorSelectionMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveColorSelectionMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveColorSelectionMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveColorSelectionMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveColorSelectionMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveColorSelectionMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveColorSelectionMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveColorSelectionMethod "realize" o = WidgetRealizeMethodInfo + ResolveColorSelectionMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveColorSelectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveColorSelectionMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveColorSelectionMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveColorSelectionMethod "remove" o = ContainerRemoveMethodInfo + ResolveColorSelectionMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveColorSelectionMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveColorSelectionMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveColorSelectionMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveColorSelectionMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveColorSelectionMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveColorSelectionMethod "reparent" o = WidgetReparentMethodInfo + ResolveColorSelectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveColorSelectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveColorSelectionMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveColorSelectionMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveColorSelectionMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveColorSelectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveColorSelectionMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveColorSelectionMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveColorSelectionMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveColorSelectionMethod "show" o = WidgetShowMethodInfo + ResolveColorSelectionMethod "showAll" o = WidgetShowAllMethodInfo + ResolveColorSelectionMethod "showNow" o = WidgetShowNowMethodInfo + ResolveColorSelectionMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveColorSelectionMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveColorSelectionMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveColorSelectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveColorSelectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveColorSelectionMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveColorSelectionMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveColorSelectionMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveColorSelectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveColorSelectionMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveColorSelectionMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveColorSelectionMethod "unmap" o = WidgetUnmapMethodInfo + ResolveColorSelectionMethod "unparent" o = WidgetUnparentMethodInfo + ResolveColorSelectionMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveColorSelectionMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveColorSelectionMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveColorSelectionMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveColorSelectionMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveColorSelectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveColorSelectionMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveColorSelectionMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveColorSelectionMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveColorSelectionMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveColorSelectionMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveColorSelectionMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveColorSelectionMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveColorSelectionMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveColorSelectionMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveColorSelectionMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveColorSelectionMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveColorSelectionMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveColorSelectionMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveColorSelectionMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveColorSelectionMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveColorSelectionMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveColorSelectionMethod "getClip" o = WidgetGetClipMethodInfo + ResolveColorSelectionMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveColorSelectionMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveColorSelectionMethod "getCurrentAlpha" o = ColorSelectionGetCurrentAlphaMethodInfo + ResolveColorSelectionMethod "getCurrentColor" o = ColorSelectionGetCurrentColorMethodInfo + ResolveColorSelectionMethod "getCurrentRgba" o = ColorSelectionGetCurrentRgbaMethodInfo + ResolveColorSelectionMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveColorSelectionMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveColorSelectionMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveColorSelectionMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveColorSelectionMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveColorSelectionMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveColorSelectionMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveColorSelectionMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveColorSelectionMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveColorSelectionMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveColorSelectionMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveColorSelectionMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveColorSelectionMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveColorSelectionMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveColorSelectionMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveColorSelectionMethod "getHasOpacityControl" o = ColorSelectionGetHasOpacityControlMethodInfo + ResolveColorSelectionMethod "getHasPalette" o = ColorSelectionGetHasPaletteMethodInfo + ResolveColorSelectionMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveColorSelectionMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveColorSelectionMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveColorSelectionMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveColorSelectionMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveColorSelectionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveColorSelectionMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveColorSelectionMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveColorSelectionMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveColorSelectionMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveColorSelectionMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveColorSelectionMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveColorSelectionMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveColorSelectionMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveColorSelectionMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveColorSelectionMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveColorSelectionMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveColorSelectionMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveColorSelectionMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveColorSelectionMethod "getParent" o = WidgetGetParentMethodInfo + ResolveColorSelectionMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveColorSelectionMethod "getPath" o = WidgetGetPathMethodInfo + ResolveColorSelectionMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveColorSelectionMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveColorSelectionMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveColorSelectionMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveColorSelectionMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveColorSelectionMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveColorSelectionMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveColorSelectionMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveColorSelectionMethod "getPreviousAlpha" o = ColorSelectionGetPreviousAlphaMethodInfo + ResolveColorSelectionMethod "getPreviousColor" o = ColorSelectionGetPreviousColorMethodInfo + ResolveColorSelectionMethod "getPreviousRgba" o = ColorSelectionGetPreviousRgbaMethodInfo + ResolveColorSelectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveColorSelectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveColorSelectionMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveColorSelectionMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveColorSelectionMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveColorSelectionMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveColorSelectionMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveColorSelectionMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveColorSelectionMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveColorSelectionMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveColorSelectionMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveColorSelectionMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveColorSelectionMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveColorSelectionMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveColorSelectionMethod "getState" o = WidgetGetStateMethodInfo + ResolveColorSelectionMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveColorSelectionMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveColorSelectionMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveColorSelectionMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveColorSelectionMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveColorSelectionMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveColorSelectionMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveColorSelectionMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveColorSelectionMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveColorSelectionMethod "getValign" o = WidgetGetValignMethodInfo + ResolveColorSelectionMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveColorSelectionMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveColorSelectionMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveColorSelectionMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveColorSelectionMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveColorSelectionMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveColorSelectionMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveColorSelectionMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveColorSelectionMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveColorSelectionMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveColorSelectionMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveColorSelectionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveColorSelectionMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveColorSelectionMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveColorSelectionMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveColorSelectionMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveColorSelectionMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveColorSelectionMethod "setClip" o = WidgetSetClipMethodInfo + ResolveColorSelectionMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveColorSelectionMethod "setCurrentAlpha" o = ColorSelectionSetCurrentAlphaMethodInfo + ResolveColorSelectionMethod "setCurrentColor" o = ColorSelectionSetCurrentColorMethodInfo + ResolveColorSelectionMethod "setCurrentRgba" o = ColorSelectionSetCurrentRgbaMethodInfo + ResolveColorSelectionMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveColorSelectionMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveColorSelectionMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveColorSelectionMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveColorSelectionMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveColorSelectionMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveColorSelectionMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveColorSelectionMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveColorSelectionMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveColorSelectionMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveColorSelectionMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveColorSelectionMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveColorSelectionMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveColorSelectionMethod "setHasOpacityControl" o = ColorSelectionSetHasOpacityControlMethodInfo + ResolveColorSelectionMethod "setHasPalette" o = ColorSelectionSetHasPaletteMethodInfo + ResolveColorSelectionMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveColorSelectionMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveColorSelectionMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveColorSelectionMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveColorSelectionMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveColorSelectionMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveColorSelectionMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveColorSelectionMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveColorSelectionMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveColorSelectionMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveColorSelectionMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveColorSelectionMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveColorSelectionMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveColorSelectionMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveColorSelectionMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveColorSelectionMethod "setParent" o = WidgetSetParentMethodInfo + ResolveColorSelectionMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveColorSelectionMethod "setPreviousAlpha" o = ColorSelectionSetPreviousAlphaMethodInfo + ResolveColorSelectionMethod "setPreviousColor" o = ColorSelectionSetPreviousColorMethodInfo + ResolveColorSelectionMethod "setPreviousRgba" o = ColorSelectionSetPreviousRgbaMethodInfo + ResolveColorSelectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveColorSelectionMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveColorSelectionMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveColorSelectionMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveColorSelectionMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveColorSelectionMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveColorSelectionMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveColorSelectionMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveColorSelectionMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveColorSelectionMethod "setState" o = WidgetSetStateMethodInfo + ResolveColorSelectionMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveColorSelectionMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveColorSelectionMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveColorSelectionMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveColorSelectionMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveColorSelectionMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveColorSelectionMethod "setValign" o = WidgetSetValignMethodInfo + ResolveColorSelectionMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveColorSelectionMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveColorSelectionMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveColorSelectionMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveColorSelectionMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveColorSelectionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveColorSelectionMethod t ColorSelection, MethodInfo info ColorSelection p) => IsLabelProxy t (ColorSelection -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveColorSelectionMethod t ColorSelection, MethodInfo info ColorSelection p) => IsLabel t (ColorSelection -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ColorSelection::color-changed type ColorSelectionColorChangedCallback = IO () @@ -244,7 +616,7 @@ type AttrSetTypeConstraint ColorSelectionCurrentAlphaPropertyInfo = (~) Word32 type AttrBaseTypeConstraint ColorSelectionCurrentAlphaPropertyInfo = ColorSelectionK type AttrGetType ColorSelectionCurrentAlphaPropertyInfo = Word32 - type AttrLabel ColorSelectionCurrentAlphaPropertyInfo = "ColorSelection::current-alpha" + type AttrLabel ColorSelectionCurrentAlphaPropertyInfo = "current-alpha" attrGet _ = getColorSelectionCurrentAlpha attrSet _ = setColorSelectionCurrentAlpha attrConstruct _ = constructColorSelectionCurrentAlpha @@ -268,7 +640,7 @@ type AttrSetTypeConstraint ColorSelectionCurrentColorPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint ColorSelectionCurrentColorPropertyInfo = ColorSelectionK type AttrGetType ColorSelectionCurrentColorPropertyInfo = Gdk.Color - type AttrLabel ColorSelectionCurrentColorPropertyInfo = "ColorSelection::current-color" + type AttrLabel ColorSelectionCurrentColorPropertyInfo = "current-color" attrGet _ = getColorSelectionCurrentColor attrSet _ = setColorSelectionCurrentColor attrConstruct _ = constructColorSelectionCurrentColor @@ -292,7 +664,7 @@ type AttrSetTypeConstraint ColorSelectionCurrentRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint ColorSelectionCurrentRgbaPropertyInfo = ColorSelectionK type AttrGetType ColorSelectionCurrentRgbaPropertyInfo = Gdk.RGBA - type AttrLabel ColorSelectionCurrentRgbaPropertyInfo = "ColorSelection::current-rgba" + type AttrLabel ColorSelectionCurrentRgbaPropertyInfo = "current-rgba" attrGet _ = getColorSelectionCurrentRgba attrSet _ = setColorSelectionCurrentRgba attrConstruct _ = constructColorSelectionCurrentRgba @@ -316,7 +688,7 @@ type AttrSetTypeConstraint ColorSelectionHasOpacityControlPropertyInfo = (~) Bool type AttrBaseTypeConstraint ColorSelectionHasOpacityControlPropertyInfo = ColorSelectionK type AttrGetType ColorSelectionHasOpacityControlPropertyInfo = Bool - type AttrLabel ColorSelectionHasOpacityControlPropertyInfo = "ColorSelection::has-opacity-control" + type AttrLabel ColorSelectionHasOpacityControlPropertyInfo = "has-opacity-control" attrGet _ = getColorSelectionHasOpacityControl attrSet _ = setColorSelectionHasOpacityControl attrConstruct _ = constructColorSelectionHasOpacityControl @@ -340,13 +712,13 @@ type AttrSetTypeConstraint ColorSelectionHasPalettePropertyInfo = (~) Bool type AttrBaseTypeConstraint ColorSelectionHasPalettePropertyInfo = ColorSelectionK type AttrGetType ColorSelectionHasPalettePropertyInfo = Bool - type AttrLabel ColorSelectionHasPalettePropertyInfo = "ColorSelection::has-palette" + type AttrLabel ColorSelectionHasPalettePropertyInfo = "has-palette" attrGet _ = getColorSelectionHasPalette attrSet _ = setColorSelectionHasPalette attrConstruct _ = constructColorSelectionHasPalette type instance AttributeList ColorSelection = ColorSelectionAttributeList -type ColorSelectionAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("current-alpha", ColorSelectionCurrentAlphaPropertyInfo), '("current-color", ColorSelectionCurrentColorPropertyInfo), '("current-rgba", ColorSelectionCurrentRgbaPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-opacity-control", ColorSelectionHasOpacityControlPropertyInfo), '("has-palette", ColorSelectionHasPalettePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ColorSelectionAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("currentAlpha", ColorSelectionCurrentAlphaPropertyInfo), '("currentColor", ColorSelectionCurrentColorPropertyInfo), '("currentRgba", ColorSelectionCurrentRgbaPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasOpacityControl", ColorSelectionHasOpacityControlPropertyInfo), '("hasPalette", ColorSelectionHasPalettePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data ColorSelectionColorChangedSignalInfo instance SignalInfo ColorSelectionColorChangedSignalInfo where @@ -354,13 +726,12 @@ connectSignal _ = connectColorSelectionColorChanged type instance SignalList ColorSelection = ColorSelectionSignalList -type ColorSelectionSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("color-changed", ColorSelectionColorChangedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ColorSelectionSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("colorChanged", ColorSelectionColorChangedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ColorSelection::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ColorSelection" -- throws : False -- Skip return : False @@ -371,7 +742,7 @@ colorSelectionNew :: (MonadIO m) => - m ColorSelection + m ColorSelection -- result colorSelectionNew = liftIO $ do result <- gtk_color_selection_new checkUnexpectedReturnNULL "gtk_color_selection_new" result @@ -380,9 +751,8 @@ -- method ColorSelection::get_current_alpha -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt16 -- throws : False -- Skip return : False @@ -394,19 +764,22 @@ colorSelectionGetCurrentAlpha :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - m Word16 + a -- _obj + -> m Word16 -- result colorSelectionGetCurrentAlpha _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_color_selection_get_current_alpha _obj' touchManagedPtr _obj return result +data ColorSelectionGetCurrentAlphaMethodInfo +instance (signature ~ (m Word16), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetCurrentAlphaMethodInfo a signature where + overloadedMethod _ = colorSelectionGetCurrentAlpha + -- method ColorSelection::get_current_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -419,8 +792,8 @@ {-# DEPRECATED colorSelectionGetCurrentColor ["(Since version 3.4)","Use gtk_color_selection_get_current_rgba() instead."]#-} colorSelectionGetCurrentColor :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - m (Gdk.Color) + a -- _obj + -> m (Gdk.Color) -- result colorSelectionGetCurrentColor _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color) @@ -429,11 +802,14 @@ touchManagedPtr _obj return color' +data ColorSelectionGetCurrentColorMethodInfo +instance (signature ~ (m (Gdk.Color)), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetCurrentColorMethodInfo a signature where + overloadedMethod _ = colorSelectionGetCurrentColor + -- method ColorSelection::get_current_rgba -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -446,8 +822,8 @@ colorSelectionGetCurrentRgba :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - m (Gdk.RGBA) + a -- _obj + -> m (Gdk.RGBA) -- result colorSelectionGetCurrentRgba _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) @@ -456,11 +832,14 @@ touchManagedPtr _obj return rgba' +data ColorSelectionGetCurrentRgbaMethodInfo +instance (signature ~ (m (Gdk.RGBA)), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetCurrentRgbaMethodInfo a signature where + overloadedMethod _ = colorSelectionGetCurrentRgba + -- method ColorSelection::get_has_opacity_control -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -472,8 +851,8 @@ colorSelectionGetHasOpacityControl :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result colorSelectionGetHasOpacityControl _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_color_selection_get_has_opacity_control _obj' @@ -481,11 +860,14 @@ touchManagedPtr _obj return result' +data ColorSelectionGetHasOpacityControlMethodInfo +instance (signature ~ (m Bool), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetHasOpacityControlMethodInfo a signature where + overloadedMethod _ = colorSelectionGetHasOpacityControl + -- method ColorSelection::get_has_palette -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -497,8 +879,8 @@ colorSelectionGetHasPalette :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result colorSelectionGetHasPalette _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_color_selection_get_has_palette _obj' @@ -506,11 +888,14 @@ touchManagedPtr _obj return result' +data ColorSelectionGetHasPaletteMethodInfo +instance (signature ~ (m Bool), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetHasPaletteMethodInfo a signature where + overloadedMethod _ = colorSelectionGetHasPalette + -- method ColorSelection::get_previous_alpha -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt16 -- throws : False -- Skip return : False @@ -522,19 +907,22 @@ colorSelectionGetPreviousAlpha :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - m Word16 + a -- _obj + -> m Word16 -- result colorSelectionGetPreviousAlpha _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_color_selection_get_previous_alpha _obj' touchManagedPtr _obj return result +data ColorSelectionGetPreviousAlphaMethodInfo +instance (signature ~ (m Word16), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetPreviousAlphaMethodInfo a signature where + overloadedMethod _ = colorSelectionGetPreviousAlpha + -- method ColorSelection::get_previous_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -547,8 +935,8 @@ {-# DEPRECATED colorSelectionGetPreviousColor ["(Since version 3.4)","Use gtk_color_selection_get_previous_rgba() instead."]#-} colorSelectionGetPreviousColor :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - m (Gdk.Color) + a -- _obj + -> m (Gdk.Color) -- result colorSelectionGetPreviousColor _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color) @@ -557,11 +945,14 @@ touchManagedPtr _obj return color' +data ColorSelectionGetPreviousColorMethodInfo +instance (signature ~ (m (Gdk.Color)), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetPreviousColorMethodInfo a signature where + overloadedMethod _ = colorSelectionGetPreviousColor + -- method ColorSelection::get_previous_rgba -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -574,8 +965,8 @@ colorSelectionGetPreviousRgba :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - m (Gdk.RGBA) + a -- _obj + -> m (Gdk.RGBA) -- result colorSelectionGetPreviousRgba _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) @@ -584,11 +975,14 @@ touchManagedPtr _obj return rgba' +data ColorSelectionGetPreviousRgbaMethodInfo +instance (signature ~ (m (Gdk.RGBA)), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionGetPreviousRgbaMethodInfo a signature where + overloadedMethod _ = colorSelectionGetPreviousRgba + -- method ColorSelection::is_adjusting -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -600,8 +994,8 @@ colorSelectionIsAdjusting :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result colorSelectionIsAdjusting _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_color_selection_is_adjusting _obj' @@ -609,11 +1003,14 @@ touchManagedPtr _obj return result' +data ColorSelectionIsAdjustingMethodInfo +instance (signature ~ (m Bool), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionIsAdjustingMethodInfo a signature where + overloadedMethod _ = colorSelectionIsAdjusting + -- method ColorSelection::set_current_alpha -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -626,20 +1023,23 @@ colorSelectionSetCurrentAlpha :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - Word16 -> -- alpha - m () + a -- _obj + -> Word16 -- alpha + -> m () -- result colorSelectionSetCurrentAlpha _obj alpha = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_color_selection_set_current_alpha _obj' alpha touchManagedPtr _obj return () +data ColorSelectionSetCurrentAlphaMethodInfo +instance (signature ~ (Word16 -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetCurrentAlphaMethodInfo a signature where + overloadedMethod _ = colorSelectionSetCurrentAlpha + -- method ColorSelection::set_current_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -652,9 +1052,9 @@ {-# DEPRECATED colorSelectionSetCurrentColor ["(Since version 3.4)","Use gtk_color_selection_set_current_rgba() instead."]#-} colorSelectionSetCurrentColor :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - Gdk.Color -> -- color - m () + a -- _obj + -> Gdk.Color -- color + -> m () -- result colorSelectionSetCurrentColor _obj color = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let color' = unsafeManagedPtrGetPtr color @@ -663,11 +1063,14 @@ touchManagedPtr color return () +data ColorSelectionSetCurrentColorMethodInfo +instance (signature ~ (Gdk.Color -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetCurrentColorMethodInfo a signature where + overloadedMethod _ = colorSelectionSetCurrentColor + -- method ColorSelection::set_current_rgba -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -680,9 +1083,9 @@ colorSelectionSetCurrentRgba :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - Gdk.RGBA -> -- rgba - m () + a -- _obj + -> Gdk.RGBA -- rgba + -> m () -- result colorSelectionSetCurrentRgba _obj rgba = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let rgba' = unsafeManagedPtrGetPtr rgba @@ -691,11 +1094,14 @@ touchManagedPtr rgba return () +data ColorSelectionSetCurrentRgbaMethodInfo +instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetCurrentRgbaMethodInfo a signature where + overloadedMethod _ = colorSelectionSetCurrentRgba + -- method ColorSelection::set_has_opacity_control -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_opacity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_opacity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_opacity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -708,21 +1114,24 @@ colorSelectionSetHasOpacityControl :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - Bool -> -- has_opacity - m () -colorSelectionSetHasOpacityControl _obj has_opacity = liftIO $ do + a -- _obj + -> Bool -- hasOpacity + -> m () -- result +colorSelectionSetHasOpacityControl _obj hasOpacity = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let has_opacity' = (fromIntegral . fromEnum) has_opacity - gtk_color_selection_set_has_opacity_control _obj' has_opacity' + let hasOpacity' = (fromIntegral . fromEnum) hasOpacity + gtk_color_selection_set_has_opacity_control _obj' hasOpacity' touchManagedPtr _obj return () +data ColorSelectionSetHasOpacityControlMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetHasOpacityControlMethodInfo a signature where + overloadedMethod _ = colorSelectionSetHasOpacityControl + -- method ColorSelection::set_has_palette -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_palette", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_palette", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_palette", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -735,21 +1144,24 @@ colorSelectionSetHasPalette :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - Bool -> -- has_palette - m () -colorSelectionSetHasPalette _obj has_palette = liftIO $ do + a -- _obj + -> Bool -- hasPalette + -> m () -- result +colorSelectionSetHasPalette _obj hasPalette = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let has_palette' = (fromIntegral . fromEnum) has_palette - gtk_color_selection_set_has_palette _obj' has_palette' + let hasPalette' = (fromIntegral . fromEnum) hasPalette + gtk_color_selection_set_has_palette _obj' hasPalette' touchManagedPtr _obj return () +data ColorSelectionSetHasPaletteMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetHasPaletteMethodInfo a signature where + overloadedMethod _ = colorSelectionSetHasPalette + -- method ColorSelection::set_previous_alpha -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -762,20 +1174,23 @@ colorSelectionSetPreviousAlpha :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - Word16 -> -- alpha - m () + a -- _obj + -> Word16 -- alpha + -> m () -- result colorSelectionSetPreviousAlpha _obj alpha = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_color_selection_set_previous_alpha _obj' alpha touchManagedPtr _obj return () +data ColorSelectionSetPreviousAlphaMethodInfo +instance (signature ~ (Word16 -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetPreviousAlphaMethodInfo a signature where + overloadedMethod _ = colorSelectionSetPreviousAlpha + -- method ColorSelection::set_previous_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -788,9 +1203,9 @@ {-# DEPRECATED colorSelectionSetPreviousColor ["(Since version 3.4)","Use gtk_color_selection_set_previous_rgba() instead."]#-} colorSelectionSetPreviousColor :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - Gdk.Color -> -- color - m () + a -- _obj + -> Gdk.Color -- color + -> m () -- result colorSelectionSetPreviousColor _obj color = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let color' = unsafeManagedPtrGetPtr color @@ -799,11 +1214,14 @@ touchManagedPtr color return () +data ColorSelectionSetPreviousColorMethodInfo +instance (signature ~ (Gdk.Color -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetPreviousColorMethodInfo a signature where + overloadedMethod _ = colorSelectionSetPreviousColor + -- method ColorSelection::set_previous_rgba -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -816,9 +1234,9 @@ colorSelectionSetPreviousRgba :: (MonadIO m, ColorSelectionK a) => - a -> -- _obj - Gdk.RGBA -> -- rgba - m () + a -- _obj + -> Gdk.RGBA -- rgba + -> m () -- result colorSelectionSetPreviousRgba _obj rgba = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let rgba' = unsafeManagedPtrGetPtr rgba @@ -827,11 +1245,14 @@ touchManagedPtr rgba return () +data ColorSelectionSetPreviousRgbaMethodInfo +instance (signature ~ (Gdk.RGBA -> m ()), MonadIO m, ColorSelectionK a) => MethodInfo ColorSelectionSetPreviousRgbaMethodInfo a signature where + overloadedMethod _ = colorSelectionSetPreviousRgba + -- method ColorSelection::palette_from_string -- method type : MemberFunction --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors", argType = TCArray False (-1) 2 (TInterface "Gdk" "Color"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 2 (TInterface "Gdk" "Color"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -845,29 +1266,28 @@ colorSelectionPaletteFromString :: (MonadIO m) => - T.Text -> -- str - m (Bool,[Gdk.Color]) + T.Text -- str + -> m (Bool,[Gdk.Color]) -- result colorSelectionPaletteFromString str = liftIO $ do str' <- textToCString str colors <- allocMem :: IO (Ptr (Ptr Gdk.Color)) - n_colors <- allocMem :: IO (Ptr Int32) - result <- gtk_color_selection_palette_from_string str' colors n_colors - n_colors' <- peek n_colors + nColors <- allocMem :: IO (Ptr Int32) + result <- gtk_color_selection_palette_from_string str' colors nColors + nColors' <- peek nColors let result' = (/= 0) result colors' <- peek colors - colors'' <- (unpackBoxedArrayWithLength 12 n_colors') colors' + colors'' <- (unpackBoxedArrayWithLength 12 nColors') colors' colors''' <- mapM (wrapBoxed Gdk.Color) colors'' freeMem colors' freeMem str' freeMem colors - freeMem n_colors + freeMem nColors return (result', colors''') -- method ColorSelection::palette_to_string -- method type : MemberFunction --- Args : [Arg {argName = "colors", argType = TCArray False (-1) 1 (TInterface "Gdk" "Color"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "colors", argType = TCArray False (-1) 1 (TInterface "Gdk" "Color"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "colors", argType = TCArray False (-1) 1 (TInterface "Gdk" "Color"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -880,13 +1300,13 @@ colorSelectionPaletteToString :: (MonadIO m) => - [Gdk.Color] -> -- colors - m T.Text + [Gdk.Color] -- colors + -> m T.Text -- result colorSelectionPaletteToString colors = liftIO $ do - let n_colors = fromIntegral $ length colors + let nColors = fromIntegral $ length colors let colors' = map unsafeManagedPtrGetPtr colors colors'' <- packBlockArray 12 colors' - result <- gtk_color_selection_palette_to_string colors'' n_colors + result <- gtk_color_selection_palette_to_string colors'' nColors checkUnexpectedReturnNULL "gtk_color_selection_palette_to_string" result result' <- cstringToText result freeMem result diff --git a/GI/Gtk/Objects/ColorSelection.hs-boot b/GI/Gtk/Objects/ColorSelection.hs-boot --- a/GI/Gtk/Objects/ColorSelection.hs-boot +++ b/GI/Gtk/Objects/ColorSelection.hs-boot @@ -17,3 +17,20 @@ data ColorSelectionHasOpacityControlPropertyInfo data ColorSelectionHasPalettePropertyInfo data ColorSelectionColorChangedSignalInfo +data ColorSelectionGetCurrentAlphaMethodInfo +data ColorSelectionGetCurrentColorMethodInfo +data ColorSelectionGetCurrentRgbaMethodInfo +data ColorSelectionGetHasOpacityControlMethodInfo +data ColorSelectionGetHasPaletteMethodInfo +data ColorSelectionGetPreviousAlphaMethodInfo +data ColorSelectionGetPreviousColorMethodInfo +data ColorSelectionGetPreviousRgbaMethodInfo +data ColorSelectionIsAdjustingMethodInfo +data ColorSelectionSetCurrentAlphaMethodInfo +data ColorSelectionSetCurrentColorMethodInfo +data ColorSelectionSetCurrentRgbaMethodInfo +data ColorSelectionSetHasOpacityControlMethodInfo +data ColorSelectionSetHasPaletteMethodInfo +data ColorSelectionSetPreviousAlphaMethodInfo +data ColorSelectionSetPreviousColorMethodInfo +data ColorSelectionSetPreviousRgbaMethodInfo diff --git a/GI/Gtk/Objects/ColorSelectionDialog.hs b/GI/Gtk/Objects/ColorSelectionDialog.hs --- a/GI/Gtk/Objects/ColorSelectionDialog.hs +++ b/GI/Gtk/Objects/ColorSelectionDialog.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** colorSelectionDialogGetColorSelection + ColorSelectionDialogGetColorSelectionMethodInfo, colorSelectionDialogGetColorSelection , @@ -84,6 +86,443 @@ noColorSelectionDialog :: Maybe ColorSelectionDialog noColorSelectionDialog = Nothing +type family ResolveColorSelectionDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveColorSelectionDialogMethod "activate" o = WidgetActivateMethodInfo + ResolveColorSelectionDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveColorSelectionDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveColorSelectionDialogMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveColorSelectionDialogMethod "add" o = ContainerAddMethodInfo + ResolveColorSelectionDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveColorSelectionDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveColorSelectionDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo + ResolveColorSelectionDialogMethod "addButton" o = DialogAddButtonMethodInfo + ResolveColorSelectionDialogMethod "addChild" o = BuildableAddChildMethodInfo + ResolveColorSelectionDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveColorSelectionDialogMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveColorSelectionDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveColorSelectionDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveColorSelectionDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveColorSelectionDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveColorSelectionDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveColorSelectionDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveColorSelectionDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveColorSelectionDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveColorSelectionDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveColorSelectionDialogMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveColorSelectionDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveColorSelectionDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveColorSelectionDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveColorSelectionDialogMethod "childType" o = ContainerChildTypeMethodInfo + ResolveColorSelectionDialogMethod "classPath" o = WidgetClassPathMethodInfo + ResolveColorSelectionDialogMethod "close" o = WindowCloseMethodInfo + ResolveColorSelectionDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveColorSelectionDialogMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveColorSelectionDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveColorSelectionDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveColorSelectionDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveColorSelectionDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveColorSelectionDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveColorSelectionDialogMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveColorSelectionDialogMethod "destroy" o = WidgetDestroyMethodInfo + ResolveColorSelectionDialogMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveColorSelectionDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveColorSelectionDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveColorSelectionDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveColorSelectionDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveColorSelectionDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveColorSelectionDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveColorSelectionDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveColorSelectionDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveColorSelectionDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveColorSelectionDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveColorSelectionDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveColorSelectionDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveColorSelectionDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveColorSelectionDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveColorSelectionDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveColorSelectionDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveColorSelectionDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveColorSelectionDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveColorSelectionDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveColorSelectionDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveColorSelectionDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveColorSelectionDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveColorSelectionDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveColorSelectionDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveColorSelectionDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveColorSelectionDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveColorSelectionDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveColorSelectionDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveColorSelectionDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveColorSelectionDialogMethod "draw" o = WidgetDrawMethodInfo + ResolveColorSelectionDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveColorSelectionDialogMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveColorSelectionDialogMethod "event" o = WidgetEventMethodInfo + ResolveColorSelectionDialogMethod "forall" o = ContainerForallMethodInfo + ResolveColorSelectionDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveColorSelectionDialogMethod "foreach" o = ContainerForeachMethodInfo + ResolveColorSelectionDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveColorSelectionDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveColorSelectionDialogMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveColorSelectionDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveColorSelectionDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveColorSelectionDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveColorSelectionDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveColorSelectionDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveColorSelectionDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveColorSelectionDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveColorSelectionDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveColorSelectionDialogMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveColorSelectionDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveColorSelectionDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveColorSelectionDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveColorSelectionDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveColorSelectionDialogMethod "hide" o = WidgetHideMethodInfo + ResolveColorSelectionDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveColorSelectionDialogMethod "iconify" o = WindowIconifyMethodInfo + ResolveColorSelectionDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveColorSelectionDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveColorSelectionDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveColorSelectionDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveColorSelectionDialogMethod "intersect" o = WidgetIntersectMethodInfo + ResolveColorSelectionDialogMethod "isActive" o = WindowIsActiveMethodInfo + ResolveColorSelectionDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveColorSelectionDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveColorSelectionDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveColorSelectionDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveColorSelectionDialogMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveColorSelectionDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveColorSelectionDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveColorSelectionDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveColorSelectionDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveColorSelectionDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveColorSelectionDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveColorSelectionDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveColorSelectionDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveColorSelectionDialogMethod "map" o = WidgetMapMethodInfo + ResolveColorSelectionDialogMethod "maximize" o = WindowMaximizeMethodInfo + ResolveColorSelectionDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveColorSelectionDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveColorSelectionDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveColorSelectionDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveColorSelectionDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveColorSelectionDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveColorSelectionDialogMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveColorSelectionDialogMethod "move" o = WindowMoveMethodInfo + ResolveColorSelectionDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveColorSelectionDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveColorSelectionDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveColorSelectionDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveColorSelectionDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveColorSelectionDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveColorSelectionDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveColorSelectionDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveColorSelectionDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveColorSelectionDialogMethod "path" o = WidgetPathMethodInfo + ResolveColorSelectionDialogMethod "present" o = WindowPresentMethodInfo + ResolveColorSelectionDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveColorSelectionDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveColorSelectionDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveColorSelectionDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveColorSelectionDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveColorSelectionDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveColorSelectionDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveColorSelectionDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveColorSelectionDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveColorSelectionDialogMethod "realize" o = WidgetRealizeMethodInfo + ResolveColorSelectionDialogMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveColorSelectionDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveColorSelectionDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveColorSelectionDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveColorSelectionDialogMethod "remove" o = ContainerRemoveMethodInfo + ResolveColorSelectionDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveColorSelectionDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveColorSelectionDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveColorSelectionDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveColorSelectionDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveColorSelectionDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveColorSelectionDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveColorSelectionDialogMethod "reparent" o = WidgetReparentMethodInfo + ResolveColorSelectionDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveColorSelectionDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveColorSelectionDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveColorSelectionDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveColorSelectionDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveColorSelectionDialogMethod "resize" o = WindowResizeMethodInfo + ResolveColorSelectionDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveColorSelectionDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveColorSelectionDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveColorSelectionDialogMethod "response" o = DialogResponseMethodInfo + ResolveColorSelectionDialogMethod "run" o = DialogRunMethodInfo + ResolveColorSelectionDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveColorSelectionDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveColorSelectionDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveColorSelectionDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveColorSelectionDialogMethod "show" o = WidgetShowMethodInfo + ResolveColorSelectionDialogMethod "showAll" o = WidgetShowAllMethodInfo + ResolveColorSelectionDialogMethod "showNow" o = WidgetShowNowMethodInfo + ResolveColorSelectionDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveColorSelectionDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveColorSelectionDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveColorSelectionDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveColorSelectionDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveColorSelectionDialogMethod "stick" o = WindowStickMethodInfo + ResolveColorSelectionDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveColorSelectionDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveColorSelectionDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveColorSelectionDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveColorSelectionDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveColorSelectionDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveColorSelectionDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveColorSelectionDialogMethod "unmap" o = WidgetUnmapMethodInfo + ResolveColorSelectionDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveColorSelectionDialogMethod "unparent" o = WidgetUnparentMethodInfo + ResolveColorSelectionDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveColorSelectionDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveColorSelectionDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveColorSelectionDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveColorSelectionDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveColorSelectionDialogMethod "unstick" o = WindowUnstickMethodInfo + ResolveColorSelectionDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveColorSelectionDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveColorSelectionDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveColorSelectionDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo + ResolveColorSelectionDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveColorSelectionDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveColorSelectionDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveColorSelectionDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveColorSelectionDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveColorSelectionDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveColorSelectionDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveColorSelectionDialogMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveColorSelectionDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveColorSelectionDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveColorSelectionDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveColorSelectionDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveColorSelectionDialogMethod "getChild" o = BinGetChildMethodInfo + ResolveColorSelectionDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveColorSelectionDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveColorSelectionDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveColorSelectionDialogMethod "getClip" o = WidgetGetClipMethodInfo + ResolveColorSelectionDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveColorSelectionDialogMethod "getColorSelection" o = ColorSelectionDialogGetColorSelectionMethodInfo + ResolveColorSelectionDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveColorSelectionDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo + ResolveColorSelectionDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveColorSelectionDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveColorSelectionDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveColorSelectionDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveColorSelectionDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveColorSelectionDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveColorSelectionDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveColorSelectionDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveColorSelectionDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveColorSelectionDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveColorSelectionDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveColorSelectionDialogMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveColorSelectionDialogMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveColorSelectionDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveColorSelectionDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveColorSelectionDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveColorSelectionDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveColorSelectionDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveColorSelectionDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveColorSelectionDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveColorSelectionDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveColorSelectionDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveColorSelectionDialogMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveColorSelectionDialogMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveColorSelectionDialogMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveColorSelectionDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveColorSelectionDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveColorSelectionDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveColorSelectionDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo + ResolveColorSelectionDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveColorSelectionDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveColorSelectionDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveColorSelectionDialogMethod "getIcon" o = WindowGetIconMethodInfo + ResolveColorSelectionDialogMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveColorSelectionDialogMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveColorSelectionDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveColorSelectionDialogMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveColorSelectionDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveColorSelectionDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveColorSelectionDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveColorSelectionDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveColorSelectionDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveColorSelectionDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveColorSelectionDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveColorSelectionDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveColorSelectionDialogMethod "getModal" o = WindowGetModalMethodInfo + ResolveColorSelectionDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveColorSelectionDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveColorSelectionDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveColorSelectionDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveColorSelectionDialogMethod "getParent" o = WidgetGetParentMethodInfo + ResolveColorSelectionDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveColorSelectionDialogMethod "getPath" o = WidgetGetPathMethodInfo + ResolveColorSelectionDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveColorSelectionDialogMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveColorSelectionDialogMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveColorSelectionDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveColorSelectionDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveColorSelectionDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveColorSelectionDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveColorSelectionDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveColorSelectionDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveColorSelectionDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveColorSelectionDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveColorSelectionDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveColorSelectionDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveColorSelectionDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveColorSelectionDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveColorSelectionDialogMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveColorSelectionDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveColorSelectionDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveColorSelectionDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo + ResolveColorSelectionDialogMethod "getRole" o = WindowGetRoleMethodInfo + ResolveColorSelectionDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveColorSelectionDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveColorSelectionDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveColorSelectionDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveColorSelectionDialogMethod "getSize" o = WindowGetSizeMethodInfo + ResolveColorSelectionDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveColorSelectionDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveColorSelectionDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveColorSelectionDialogMethod "getState" o = WidgetGetStateMethodInfo + ResolveColorSelectionDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveColorSelectionDialogMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveColorSelectionDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveColorSelectionDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveColorSelectionDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveColorSelectionDialogMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveColorSelectionDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveColorSelectionDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveColorSelectionDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveColorSelectionDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveColorSelectionDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveColorSelectionDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveColorSelectionDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveColorSelectionDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveColorSelectionDialogMethod "getValign" o = WidgetGetValignMethodInfo + ResolveColorSelectionDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveColorSelectionDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveColorSelectionDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveColorSelectionDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveColorSelectionDialogMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveColorSelectionDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo + ResolveColorSelectionDialogMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveColorSelectionDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveColorSelectionDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveColorSelectionDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveColorSelectionDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveColorSelectionDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo + ResolveColorSelectionDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveColorSelectionDialogMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveColorSelectionDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveColorSelectionDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveColorSelectionDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveColorSelectionDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveColorSelectionDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveColorSelectionDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveColorSelectionDialogMethod "setClip" o = WidgetSetClipMethodInfo + ResolveColorSelectionDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveColorSelectionDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveColorSelectionDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveColorSelectionDialogMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveColorSelectionDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveColorSelectionDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo + ResolveColorSelectionDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveColorSelectionDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveColorSelectionDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveColorSelectionDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveColorSelectionDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveColorSelectionDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveColorSelectionDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveColorSelectionDialogMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveColorSelectionDialogMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveColorSelectionDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveColorSelectionDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveColorSelectionDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveColorSelectionDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveColorSelectionDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveColorSelectionDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveColorSelectionDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveColorSelectionDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveColorSelectionDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveColorSelectionDialogMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveColorSelectionDialogMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveColorSelectionDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveColorSelectionDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveColorSelectionDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveColorSelectionDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveColorSelectionDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveColorSelectionDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveColorSelectionDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveColorSelectionDialogMethod "setIcon" o = WindowSetIconMethodInfo + ResolveColorSelectionDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveColorSelectionDialogMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveColorSelectionDialogMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveColorSelectionDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveColorSelectionDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveColorSelectionDialogMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveColorSelectionDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveColorSelectionDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveColorSelectionDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveColorSelectionDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveColorSelectionDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveColorSelectionDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveColorSelectionDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveColorSelectionDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveColorSelectionDialogMethod "setModal" o = WindowSetModalMethodInfo + ResolveColorSelectionDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveColorSelectionDialogMethod "setParent" o = WidgetSetParentMethodInfo + ResolveColorSelectionDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveColorSelectionDialogMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveColorSelectionDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveColorSelectionDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveColorSelectionDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveColorSelectionDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveColorSelectionDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveColorSelectionDialogMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveColorSelectionDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveColorSelectionDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo + ResolveColorSelectionDialogMethod "setRole" o = WindowSetRoleMethodInfo + ResolveColorSelectionDialogMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveColorSelectionDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveColorSelectionDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveColorSelectionDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveColorSelectionDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveColorSelectionDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveColorSelectionDialogMethod "setState" o = WidgetSetStateMethodInfo + ResolveColorSelectionDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveColorSelectionDialogMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveColorSelectionDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveColorSelectionDialogMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveColorSelectionDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveColorSelectionDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveColorSelectionDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveColorSelectionDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveColorSelectionDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveColorSelectionDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveColorSelectionDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveColorSelectionDialogMethod "setValign" o = WidgetSetValignMethodInfo + ResolveColorSelectionDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveColorSelectionDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveColorSelectionDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveColorSelectionDialogMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveColorSelectionDialogMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveColorSelectionDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveColorSelectionDialogMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveColorSelectionDialogMethod t ColorSelectionDialog, MethodInfo info ColorSelectionDialog p) => IsLabelProxy t (ColorSelectionDialog -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveColorSelectionDialogMethod t ColorSelectionDialog, MethodInfo info ColorSelectionDialog p) => IsLabel t (ColorSelectionDialog -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "cancel-button" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable] @@ -97,7 +536,7 @@ type AttrSetTypeConstraint ColorSelectionDialogCancelButtonPropertyInfo = (~) () type AttrBaseTypeConstraint ColorSelectionDialogCancelButtonPropertyInfo = ColorSelectionDialogK type AttrGetType ColorSelectionDialogCancelButtonPropertyInfo = Widget - type AttrLabel ColorSelectionDialogCancelButtonPropertyInfo = "ColorSelectionDialog::cancel-button" + type AttrLabel ColorSelectionDialogCancelButtonPropertyInfo = "cancel-button" attrGet _ = getColorSelectionDialogCancelButton attrSet _ = undefined attrConstruct _ = undefined @@ -115,7 +554,7 @@ type AttrSetTypeConstraint ColorSelectionDialogColorSelectionPropertyInfo = (~) () type AttrBaseTypeConstraint ColorSelectionDialogColorSelectionPropertyInfo = ColorSelectionDialogK type AttrGetType ColorSelectionDialogColorSelectionPropertyInfo = Widget - type AttrLabel ColorSelectionDialogColorSelectionPropertyInfo = "ColorSelectionDialog::color-selection" + type AttrLabel ColorSelectionDialogColorSelectionPropertyInfo = "color-selection" attrGet _ = getColorSelectionDialogColorSelection attrSet _ = undefined attrConstruct _ = undefined @@ -133,7 +572,7 @@ type AttrSetTypeConstraint ColorSelectionDialogHelpButtonPropertyInfo = (~) () type AttrBaseTypeConstraint ColorSelectionDialogHelpButtonPropertyInfo = ColorSelectionDialogK type AttrGetType ColorSelectionDialogHelpButtonPropertyInfo = Widget - type AttrLabel ColorSelectionDialogHelpButtonPropertyInfo = "ColorSelectionDialog::help-button" + type AttrLabel ColorSelectionDialogHelpButtonPropertyInfo = "help-button" attrGet _ = getColorSelectionDialogHelpButton attrSet _ = undefined attrConstruct _ = undefined @@ -151,22 +590,21 @@ type AttrSetTypeConstraint ColorSelectionDialogOkButtonPropertyInfo = (~) () type AttrBaseTypeConstraint ColorSelectionDialogOkButtonPropertyInfo = ColorSelectionDialogK type AttrGetType ColorSelectionDialogOkButtonPropertyInfo = Widget - type AttrLabel ColorSelectionDialogOkButtonPropertyInfo = "ColorSelectionDialog::ok-button" + type AttrLabel ColorSelectionDialogOkButtonPropertyInfo = "ok-button" attrGet _ = getColorSelectionDialogOkButton attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList ColorSelectionDialog = ColorSelectionDialogAttributeList -type ColorSelectionDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cancel-button", ColorSelectionDialogCancelButtonPropertyInfo), '("child", ContainerChildPropertyInfo), '("color-selection", ColorSelectionDialogColorSelectionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("help-button", ColorSelectionDialogHelpButtonPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("ok-button", ColorSelectionDialogOkButtonPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type ColorSelectionDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cancelButton", ColorSelectionDialogCancelButtonPropertyInfo), '("child", ContainerChildPropertyInfo), '("colorSelection", ColorSelectionDialogColorSelectionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("helpButton", ColorSelectionDialogHelpButtonPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("okButton", ColorSelectionDialogOkButtonPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ColorSelectionDialog = ColorSelectionDialogSignalList -type ColorSelectionDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ColorSelectionDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ColorSelectionDialog::new -- method type : Constructor --- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ColorSelectionDialog" -- throws : False -- Skip return : False @@ -178,8 +616,8 @@ colorSelectionDialogNew :: (MonadIO m) => - T.Text -> -- title - m ColorSelectionDialog + T.Text -- title + -> m ColorSelectionDialog -- result colorSelectionDialogNew title = liftIO $ do title' <- textToCString title result <- gtk_color_selection_dialog_new title' @@ -190,9 +628,8 @@ -- method ColorSelectionDialog::get_color_selection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -204,8 +641,8 @@ colorSelectionDialogGetColorSelection :: (MonadIO m, ColorSelectionDialogK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result colorSelectionDialogGetColorSelection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_color_selection_dialog_get_color_selection _obj' @@ -213,5 +650,9 @@ result' <- (newObject Widget) result touchManagedPtr _obj return result' + +data ColorSelectionDialogGetColorSelectionMethodInfo +instance (signature ~ (m Widget), MonadIO m, ColorSelectionDialogK a) => MethodInfo ColorSelectionDialogGetColorSelectionMethodInfo a signature where + overloadedMethod _ = colorSelectionDialogGetColorSelection diff --git a/GI/Gtk/Objects/ColorSelectionDialog.hs-boot b/GI/Gtk/Objects/ColorSelectionDialog.hs-boot --- a/GI/Gtk/Objects/ColorSelectionDialog.hs-boot +++ b/GI/Gtk/Objects/ColorSelectionDialog.hs-boot @@ -15,3 +15,4 @@ data ColorSelectionDialogColorSelectionPropertyInfo data ColorSelectionDialogHelpButtonPropertyInfo data ColorSelectionDialogOkButtonPropertyInfo +data ColorSelectionDialogGetColorSelectionMethodInfo diff --git a/GI/Gtk/Objects/ComboBox.hs b/GI/Gtk/Objects/ComboBox.hs --- a/GI/Gtk/Objects/ComboBox.hs +++ b/GI/Gtk/Objects/ComboBox.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,66 +18,82 @@ -- * Methods -- ** comboBoxGetActive + ComboBoxGetActiveMethodInfo , comboBoxGetActive , -- ** comboBoxGetActiveId + ComboBoxGetActiveIdMethodInfo , comboBoxGetActiveId , -- ** comboBoxGetActiveIter + ComboBoxGetActiveIterMethodInfo , comboBoxGetActiveIter , -- ** comboBoxGetAddTearoffs + ComboBoxGetAddTearoffsMethodInfo , comboBoxGetAddTearoffs , -- ** comboBoxGetButtonSensitivity + ComboBoxGetButtonSensitivityMethodInfo , comboBoxGetButtonSensitivity , -- ** comboBoxGetColumnSpanColumn + ComboBoxGetColumnSpanColumnMethodInfo , comboBoxGetColumnSpanColumn , -- ** comboBoxGetEntryTextColumn + ComboBoxGetEntryTextColumnMethodInfo , comboBoxGetEntryTextColumn , -- ** comboBoxGetFocusOnClick + ComboBoxGetFocusOnClickMethodInfo , comboBoxGetFocusOnClick , -- ** comboBoxGetHasEntry + ComboBoxGetHasEntryMethodInfo , comboBoxGetHasEntry , -- ** comboBoxGetIdColumn + ComboBoxGetIdColumnMethodInfo , comboBoxGetIdColumn , -- ** comboBoxGetModel + ComboBoxGetModelMethodInfo , comboBoxGetModel , -- ** comboBoxGetPopupAccessible + ComboBoxGetPopupAccessibleMethodInfo , comboBoxGetPopupAccessible , -- ** comboBoxGetPopupFixedWidth + ComboBoxGetPopupFixedWidthMethodInfo , comboBoxGetPopupFixedWidth , -- ** comboBoxGetRowSpanColumn + ComboBoxGetRowSpanColumnMethodInfo , comboBoxGetRowSpanColumn , -- ** comboBoxGetTitle + ComboBoxGetTitleMethodInfo , comboBoxGetTitle , -- ** comboBoxGetWrapWidth + ComboBoxGetWrapWidthMethodInfo , comboBoxGetWrapWidth , @@ -105,74 +122,92 @@ -- ** comboBoxPopdown + ComboBoxPopdownMethodInfo , comboBoxPopdown , -- ** comboBoxPopup + ComboBoxPopupMethodInfo , comboBoxPopup , -- ** comboBoxPopupForDevice + ComboBoxPopupForDeviceMethodInfo , comboBoxPopupForDevice , -- ** comboBoxSetActive + ComboBoxSetActiveMethodInfo , comboBoxSetActive , -- ** comboBoxSetActiveId + ComboBoxSetActiveIdMethodInfo , comboBoxSetActiveId , -- ** comboBoxSetActiveIter + ComboBoxSetActiveIterMethodInfo , comboBoxSetActiveIter , -- ** comboBoxSetAddTearoffs + ComboBoxSetAddTearoffsMethodInfo , comboBoxSetAddTearoffs , -- ** comboBoxSetButtonSensitivity + ComboBoxSetButtonSensitivityMethodInfo , comboBoxSetButtonSensitivity , -- ** comboBoxSetColumnSpanColumn + ComboBoxSetColumnSpanColumnMethodInfo , comboBoxSetColumnSpanColumn , -- ** comboBoxSetEntryTextColumn + ComboBoxSetEntryTextColumnMethodInfo , comboBoxSetEntryTextColumn , -- ** comboBoxSetFocusOnClick + ComboBoxSetFocusOnClickMethodInfo , comboBoxSetFocusOnClick , -- ** comboBoxSetIdColumn + ComboBoxSetIdColumnMethodInfo , comboBoxSetIdColumn , -- ** comboBoxSetModel + ComboBoxSetModelMethodInfo , comboBoxSetModel , -- ** comboBoxSetPopupFixedWidth + ComboBoxSetPopupFixedWidthMethodInfo , comboBoxSetPopupFixedWidth , -- ** comboBoxSetRowSeparatorFunc + ComboBoxSetRowSeparatorFuncMethodInfo , comboBoxSetRowSeparatorFunc , -- ** comboBoxSetRowSpanColumn + ComboBoxSetRowSpanColumnMethodInfo , comboBoxSetRowSpanColumn , -- ** comboBoxSetTitle + ComboBoxSetTitleMethodInfo , comboBoxSetTitle , -- ** comboBoxSetWrapWidth + ComboBoxSetWrapWidthMethodInfo , comboBoxSetWrapWidth , @@ -396,6 +431,375 @@ noComboBox :: Maybe ComboBox noComboBox = Nothing +type family ResolveComboBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveComboBoxMethod "activate" o = WidgetActivateMethodInfo + ResolveComboBoxMethod "add" o = ContainerAddMethodInfo + ResolveComboBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveComboBoxMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo + ResolveComboBoxMethod "addChild" o = BuildableAddChildMethodInfo + ResolveComboBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveComboBoxMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveComboBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveComboBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveComboBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveComboBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveComboBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveComboBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveComboBoxMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveComboBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveComboBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveComboBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveComboBoxMethod "childType" o = ContainerChildTypeMethodInfo + ResolveComboBoxMethod "classPath" o = WidgetClassPathMethodInfo + ResolveComboBoxMethod "clear" o = CellLayoutClearMethodInfo + ResolveComboBoxMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo + ResolveComboBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveComboBoxMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveComboBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveComboBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveComboBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveComboBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveComboBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveComboBoxMethod "destroy" o = WidgetDestroyMethodInfo + ResolveComboBoxMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveComboBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveComboBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveComboBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveComboBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveComboBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveComboBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveComboBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveComboBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveComboBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveComboBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveComboBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveComboBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveComboBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveComboBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveComboBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveComboBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveComboBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveComboBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveComboBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveComboBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveComboBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveComboBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveComboBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveComboBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveComboBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveComboBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveComboBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveComboBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveComboBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveComboBoxMethod "draw" o = WidgetDrawMethodInfo + ResolveComboBoxMethod "editingDone" o = CellEditableEditingDoneMethodInfo + ResolveComboBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveComboBoxMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveComboBoxMethod "event" o = WidgetEventMethodInfo + ResolveComboBoxMethod "forall" o = ContainerForallMethodInfo + ResolveComboBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveComboBoxMethod "foreach" o = ContainerForeachMethodInfo + ResolveComboBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveComboBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveComboBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveComboBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveComboBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveComboBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveComboBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveComboBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveComboBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveComboBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveComboBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveComboBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveComboBoxMethod "hide" o = WidgetHideMethodInfo + ResolveComboBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveComboBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveComboBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveComboBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveComboBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveComboBoxMethod "intersect" o = WidgetIntersectMethodInfo + ResolveComboBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveComboBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveComboBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveComboBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveComboBoxMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveComboBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveComboBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveComboBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveComboBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveComboBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveComboBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveComboBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveComboBoxMethod "map" o = WidgetMapMethodInfo + ResolveComboBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveComboBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveComboBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveComboBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveComboBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveComboBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveComboBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveComboBoxMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveComboBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveComboBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveComboBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveComboBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveComboBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveComboBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveComboBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveComboBoxMethod "packEnd" o = CellLayoutPackEndMethodInfo + ResolveComboBoxMethod "packStart" o = CellLayoutPackStartMethodInfo + ResolveComboBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveComboBoxMethod "path" o = WidgetPathMethodInfo + ResolveComboBoxMethod "popdown" o = ComboBoxPopdownMethodInfo + ResolveComboBoxMethod "popup" o = ComboBoxPopupMethodInfo + ResolveComboBoxMethod "popupForDevice" o = ComboBoxPopupForDeviceMethodInfo + ResolveComboBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveComboBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveComboBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveComboBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveComboBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveComboBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveComboBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveComboBoxMethod "realize" o = WidgetRealizeMethodInfo + ResolveComboBoxMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveComboBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveComboBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveComboBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveComboBoxMethod "remove" o = ContainerRemoveMethodInfo + ResolveComboBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveComboBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveComboBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveComboBoxMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo + ResolveComboBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveComboBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveComboBoxMethod "reorder" o = CellLayoutReorderMethodInfo + ResolveComboBoxMethod "reparent" o = WidgetReparentMethodInfo + ResolveComboBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveComboBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveComboBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveComboBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveComboBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveComboBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveComboBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveComboBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveComboBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveComboBoxMethod "show" o = WidgetShowMethodInfo + ResolveComboBoxMethod "showAll" o = WidgetShowAllMethodInfo + ResolveComboBoxMethod "showNow" o = WidgetShowNowMethodInfo + ResolveComboBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveComboBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveComboBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveComboBoxMethod "startEditing" o = CellEditableStartEditingMethodInfo + ResolveComboBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveComboBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveComboBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveComboBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveComboBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveComboBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveComboBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveComboBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveComboBoxMethod "unmap" o = WidgetUnmapMethodInfo + ResolveComboBoxMethod "unparent" o = WidgetUnparentMethodInfo + ResolveComboBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveComboBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveComboBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveComboBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveComboBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveComboBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveComboBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveComboBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveComboBoxMethod "getActive" o = ComboBoxGetActiveMethodInfo + ResolveComboBoxMethod "getActiveId" o = ComboBoxGetActiveIdMethodInfo + ResolveComboBoxMethod "getActiveIter" o = ComboBoxGetActiveIterMethodInfo + ResolveComboBoxMethod "getAddTearoffs" o = ComboBoxGetAddTearoffsMethodInfo + ResolveComboBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveComboBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveComboBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveComboBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveComboBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveComboBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveComboBoxMethod "getArea" o = CellLayoutGetAreaMethodInfo + ResolveComboBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveComboBoxMethod "getButtonSensitivity" o = ComboBoxGetButtonSensitivityMethodInfo + ResolveComboBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveComboBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveComboBoxMethod "getCells" o = CellLayoutGetCellsMethodInfo + ResolveComboBoxMethod "getChild" o = BinGetChildMethodInfo + ResolveComboBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveComboBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveComboBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveComboBoxMethod "getClip" o = WidgetGetClipMethodInfo + ResolveComboBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveComboBoxMethod "getColumnSpanColumn" o = ComboBoxGetColumnSpanColumnMethodInfo + ResolveComboBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveComboBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveComboBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveComboBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveComboBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveComboBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveComboBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveComboBoxMethod "getEntryTextColumn" o = ComboBoxGetEntryTextColumnMethodInfo + ResolveComboBoxMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveComboBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveComboBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveComboBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveComboBoxMethod "getFocusOnClick" o = ComboBoxGetFocusOnClickMethodInfo + ResolveComboBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveComboBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveComboBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveComboBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveComboBoxMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveComboBoxMethod "getHasEntry" o = ComboBoxGetHasEntryMethodInfo + ResolveComboBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveComboBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveComboBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveComboBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveComboBoxMethod "getIdColumn" o = ComboBoxGetIdColumnMethodInfo + ResolveComboBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveComboBoxMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveComboBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveComboBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveComboBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveComboBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveComboBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveComboBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveComboBoxMethod "getModel" o = ComboBoxGetModelMethodInfo + ResolveComboBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveComboBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveComboBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveComboBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveComboBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveComboBoxMethod "getParent" o = WidgetGetParentMethodInfo + ResolveComboBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveComboBoxMethod "getPath" o = WidgetGetPathMethodInfo + ResolveComboBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveComboBoxMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveComboBoxMethod "getPopupAccessible" o = ComboBoxGetPopupAccessibleMethodInfo + ResolveComboBoxMethod "getPopupFixedWidth" o = ComboBoxGetPopupFixedWidthMethodInfo + ResolveComboBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveComboBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveComboBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveComboBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveComboBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveComboBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveComboBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveComboBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveComboBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveComboBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveComboBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveComboBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveComboBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveComboBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveComboBoxMethod "getRowSpanColumn" o = ComboBoxGetRowSpanColumnMethodInfo + ResolveComboBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveComboBoxMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveComboBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveComboBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveComboBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveComboBoxMethod "getState" o = WidgetGetStateMethodInfo + ResolveComboBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveComboBoxMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveComboBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveComboBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveComboBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveComboBoxMethod "getTitle" o = ComboBoxGetTitleMethodInfo + ResolveComboBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveComboBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveComboBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveComboBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveComboBoxMethod "getValign" o = WidgetGetValignMethodInfo + ResolveComboBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveComboBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveComboBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveComboBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveComboBoxMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveComboBoxMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveComboBoxMethod "getWrapWidth" o = ComboBoxGetWrapWidthMethodInfo + ResolveComboBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveComboBoxMethod "setActive" o = ComboBoxSetActiveMethodInfo + ResolveComboBoxMethod "setActiveId" o = ComboBoxSetActiveIdMethodInfo + ResolveComboBoxMethod "setActiveIter" o = ComboBoxSetActiveIterMethodInfo + ResolveComboBoxMethod "setAddTearoffs" o = ComboBoxSetAddTearoffsMethodInfo + ResolveComboBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveComboBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveComboBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveComboBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveComboBoxMethod "setButtonSensitivity" o = ComboBoxSetButtonSensitivityMethodInfo + ResolveComboBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveComboBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveComboBoxMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo + ResolveComboBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveComboBoxMethod "setClip" o = WidgetSetClipMethodInfo + ResolveComboBoxMethod "setColumnSpanColumn" o = ComboBoxSetColumnSpanColumnMethodInfo + ResolveComboBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveComboBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveComboBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveComboBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveComboBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveComboBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveComboBoxMethod "setEntryTextColumn" o = ComboBoxSetEntryTextColumnMethodInfo + ResolveComboBoxMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveComboBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveComboBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveComboBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveComboBoxMethod "setFocusOnClick" o = ComboBoxSetFocusOnClickMethodInfo + ResolveComboBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveComboBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveComboBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveComboBoxMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveComboBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveComboBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveComboBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveComboBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveComboBoxMethod "setIdColumn" o = ComboBoxSetIdColumnMethodInfo + ResolveComboBoxMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveComboBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveComboBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveComboBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveComboBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveComboBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveComboBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveComboBoxMethod "setModel" o = ComboBoxSetModelMethodInfo + ResolveComboBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveComboBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveComboBoxMethod "setParent" o = WidgetSetParentMethodInfo + ResolveComboBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveComboBoxMethod "setPopupFixedWidth" o = ComboBoxSetPopupFixedWidthMethodInfo + ResolveComboBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveComboBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveComboBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveComboBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveComboBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveComboBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveComboBoxMethod "setRowSeparatorFunc" o = ComboBoxSetRowSeparatorFuncMethodInfo + ResolveComboBoxMethod "setRowSpanColumn" o = ComboBoxSetRowSpanColumnMethodInfo + ResolveComboBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveComboBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveComboBoxMethod "setState" o = WidgetSetStateMethodInfo + ResolveComboBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveComboBoxMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveComboBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveComboBoxMethod "setTitle" o = ComboBoxSetTitleMethodInfo + ResolveComboBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveComboBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveComboBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveComboBoxMethod "setValign" o = WidgetSetValignMethodInfo + ResolveComboBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveComboBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveComboBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveComboBoxMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveComboBoxMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveComboBoxMethod "setWrapWidth" o = ComboBoxSetWrapWidthMethodInfo + ResolveComboBoxMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveComboBoxMethod t ComboBox, MethodInfo info ComboBox p) => IsLabelProxy t (ComboBox -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveComboBoxMethod t ComboBox, MethodInfo info ComboBox p) => IsLabel t (ComboBox -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ComboBox::changed type ComboBoxChangedCallback = IO () @@ -505,9 +909,9 @@ CUInt -> Ptr () -> IO () -comboBoxMoveActiveCallbackWrapper _cb _ scroll_type _ = do - let scroll_type' = (toEnum . fromIntegral) scroll_type - _cb scroll_type' +comboBoxMoveActiveCallbackWrapper _cb _ scrollType _ = do + let scrollType' = (toEnum . fromIntegral) scrollType + _cb scrollType' onComboBoxMoveActive :: (GObject a, MonadIO m) => a -> ComboBoxMoveActiveCallback -> m SignalHandlerId onComboBoxMoveActive obj cb = liftIO $ connectComboBoxMoveActive obj cb SignalConnectBefore @@ -617,7 +1021,7 @@ type AttrSetTypeConstraint ComboBoxActivePropertyInfo = (~) Int32 type AttrBaseTypeConstraint ComboBoxActivePropertyInfo = ComboBoxK type AttrGetType ComboBoxActivePropertyInfo = Int32 - type AttrLabel ComboBoxActivePropertyInfo = "ComboBox::active" + type AttrLabel ComboBoxActivePropertyInfo = "active" attrGet _ = getComboBoxActive attrSet _ = setComboBoxActive attrConstruct _ = constructComboBoxActive @@ -641,7 +1045,7 @@ type AttrSetTypeConstraint ComboBoxActiveIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ComboBoxActiveIdPropertyInfo = ComboBoxK type AttrGetType ComboBoxActiveIdPropertyInfo = T.Text - type AttrLabel ComboBoxActiveIdPropertyInfo = "ComboBox::active-id" + type AttrLabel ComboBoxActiveIdPropertyInfo = "active-id" attrGet _ = getComboBoxActiveId attrSet _ = setComboBoxActiveId attrConstruct _ = constructComboBoxActiveId @@ -665,7 +1069,7 @@ type AttrSetTypeConstraint ComboBoxAddTearoffsPropertyInfo = (~) Bool type AttrBaseTypeConstraint ComboBoxAddTearoffsPropertyInfo = ComboBoxK type AttrGetType ComboBoxAddTearoffsPropertyInfo = Bool - type AttrLabel ComboBoxAddTearoffsPropertyInfo = "ComboBox::add-tearoffs" + type AttrLabel ComboBoxAddTearoffsPropertyInfo = "add-tearoffs" attrGet _ = getComboBoxAddTearoffs attrSet _ = setComboBoxAddTearoffs attrConstruct _ = constructComboBoxAddTearoffs @@ -689,7 +1093,7 @@ type AttrSetTypeConstraint ComboBoxButtonSensitivityPropertyInfo = (~) SensitivityType type AttrBaseTypeConstraint ComboBoxButtonSensitivityPropertyInfo = ComboBoxK type AttrGetType ComboBoxButtonSensitivityPropertyInfo = SensitivityType - type AttrLabel ComboBoxButtonSensitivityPropertyInfo = "ComboBox::button-sensitivity" + type AttrLabel ComboBoxButtonSensitivityPropertyInfo = "button-sensitivity" attrGet _ = getComboBoxButtonSensitivity attrSet _ = setComboBoxButtonSensitivity attrConstruct _ = constructComboBoxButtonSensitivity @@ -710,7 +1114,7 @@ type AttrSetTypeConstraint ComboBoxCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint ComboBoxCellAreaPropertyInfo = ComboBoxK type AttrGetType ComboBoxCellAreaPropertyInfo = CellArea - type AttrLabel ComboBoxCellAreaPropertyInfo = "ComboBox::cell-area" + type AttrLabel ComboBoxCellAreaPropertyInfo = "cell-area" attrGet _ = getComboBoxCellArea attrSet _ = undefined attrConstruct _ = constructComboBoxCellArea @@ -734,7 +1138,7 @@ type AttrSetTypeConstraint ComboBoxColumnSpanColumnPropertyInfo = (~) Int32 type AttrBaseTypeConstraint ComboBoxColumnSpanColumnPropertyInfo = ComboBoxK type AttrGetType ComboBoxColumnSpanColumnPropertyInfo = Int32 - type AttrLabel ComboBoxColumnSpanColumnPropertyInfo = "ComboBox::column-span-column" + type AttrLabel ComboBoxColumnSpanColumnPropertyInfo = "column-span-column" attrGet _ = getComboBoxColumnSpanColumn attrSet _ = setComboBoxColumnSpanColumn attrConstruct _ = constructComboBoxColumnSpanColumn @@ -758,7 +1162,7 @@ type AttrSetTypeConstraint ComboBoxEntryTextColumnPropertyInfo = (~) Int32 type AttrBaseTypeConstraint ComboBoxEntryTextColumnPropertyInfo = ComboBoxK type AttrGetType ComboBoxEntryTextColumnPropertyInfo = Int32 - type AttrLabel ComboBoxEntryTextColumnPropertyInfo = "ComboBox::entry-text-column" + type AttrLabel ComboBoxEntryTextColumnPropertyInfo = "entry-text-column" attrGet _ = getComboBoxEntryTextColumn attrSet _ = setComboBoxEntryTextColumn attrConstruct _ = constructComboBoxEntryTextColumn @@ -782,7 +1186,7 @@ type AttrSetTypeConstraint ComboBoxFocusOnClickPropertyInfo = (~) Bool type AttrBaseTypeConstraint ComboBoxFocusOnClickPropertyInfo = ComboBoxK type AttrGetType ComboBoxFocusOnClickPropertyInfo = Bool - type AttrLabel ComboBoxFocusOnClickPropertyInfo = "ComboBox::focus-on-click" + type AttrLabel ComboBoxFocusOnClickPropertyInfo = "focus-on-click" attrGet _ = getComboBoxFocusOnClick attrSet _ = setComboBoxFocusOnClick attrConstruct _ = constructComboBoxFocusOnClick @@ -803,7 +1207,7 @@ type AttrSetTypeConstraint ComboBoxHasEntryPropertyInfo = (~) Bool type AttrBaseTypeConstraint ComboBoxHasEntryPropertyInfo = ComboBoxK type AttrGetType ComboBoxHasEntryPropertyInfo = Bool - type AttrLabel ComboBoxHasEntryPropertyInfo = "ComboBox::has-entry" + type AttrLabel ComboBoxHasEntryPropertyInfo = "has-entry" attrGet _ = getComboBoxHasEntry attrSet _ = undefined attrConstruct _ = constructComboBoxHasEntry @@ -827,7 +1231,7 @@ type AttrSetTypeConstraint ComboBoxHasFramePropertyInfo = (~) Bool type AttrBaseTypeConstraint ComboBoxHasFramePropertyInfo = ComboBoxK type AttrGetType ComboBoxHasFramePropertyInfo = Bool - type AttrLabel ComboBoxHasFramePropertyInfo = "ComboBox::has-frame" + type AttrLabel ComboBoxHasFramePropertyInfo = "has-frame" attrGet _ = getComboBoxHasFrame attrSet _ = setComboBoxHasFrame attrConstruct _ = constructComboBoxHasFrame @@ -851,7 +1255,7 @@ type AttrSetTypeConstraint ComboBoxIdColumnPropertyInfo = (~) Int32 type AttrBaseTypeConstraint ComboBoxIdColumnPropertyInfo = ComboBoxK type AttrGetType ComboBoxIdColumnPropertyInfo = Int32 - type AttrLabel ComboBoxIdColumnPropertyInfo = "ComboBox::id-column" + type AttrLabel ComboBoxIdColumnPropertyInfo = "id-column" attrGet _ = getComboBoxIdColumn attrSet _ = setComboBoxIdColumn attrConstruct _ = constructComboBoxIdColumn @@ -875,7 +1279,7 @@ type AttrSetTypeConstraint ComboBoxModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint ComboBoxModelPropertyInfo = ComboBoxK type AttrGetType ComboBoxModelPropertyInfo = TreeModel - type AttrLabel ComboBoxModelPropertyInfo = "ComboBox::model" + type AttrLabel ComboBoxModelPropertyInfo = "model" attrGet _ = getComboBoxModel attrSet _ = setComboBoxModel attrConstruct _ = constructComboBoxModel @@ -899,7 +1303,7 @@ type AttrSetTypeConstraint ComboBoxPopupFixedWidthPropertyInfo = (~) Bool type AttrBaseTypeConstraint ComboBoxPopupFixedWidthPropertyInfo = ComboBoxK type AttrGetType ComboBoxPopupFixedWidthPropertyInfo = Bool - type AttrLabel ComboBoxPopupFixedWidthPropertyInfo = "ComboBox::popup-fixed-width" + type AttrLabel ComboBoxPopupFixedWidthPropertyInfo = "popup-fixed-width" attrGet _ = getComboBoxPopupFixedWidth attrSet _ = setComboBoxPopupFixedWidth attrConstruct _ = constructComboBoxPopupFixedWidth @@ -917,7 +1321,7 @@ type AttrSetTypeConstraint ComboBoxPopupShownPropertyInfo = (~) () type AttrBaseTypeConstraint ComboBoxPopupShownPropertyInfo = ComboBoxK type AttrGetType ComboBoxPopupShownPropertyInfo = Bool - type AttrLabel ComboBoxPopupShownPropertyInfo = "ComboBox::popup-shown" + type AttrLabel ComboBoxPopupShownPropertyInfo = "popup-shown" attrGet _ = getComboBoxPopupShown attrSet _ = undefined attrConstruct _ = undefined @@ -941,7 +1345,7 @@ type AttrSetTypeConstraint ComboBoxRowSpanColumnPropertyInfo = (~) Int32 type AttrBaseTypeConstraint ComboBoxRowSpanColumnPropertyInfo = ComboBoxK type AttrGetType ComboBoxRowSpanColumnPropertyInfo = Int32 - type AttrLabel ComboBoxRowSpanColumnPropertyInfo = "ComboBox::row-span-column" + type AttrLabel ComboBoxRowSpanColumnPropertyInfo = "row-span-column" attrGet _ = getComboBoxRowSpanColumn attrSet _ = setComboBoxRowSpanColumn attrConstruct _ = constructComboBoxRowSpanColumn @@ -965,7 +1369,7 @@ type AttrSetTypeConstraint ComboBoxTearoffTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ComboBoxTearoffTitlePropertyInfo = ComboBoxK type AttrGetType ComboBoxTearoffTitlePropertyInfo = T.Text - type AttrLabel ComboBoxTearoffTitlePropertyInfo = "ComboBox::tearoff-title" + type AttrLabel ComboBoxTearoffTitlePropertyInfo = "tearoff-title" attrGet _ = getComboBoxTearoffTitle attrSet _ = setComboBoxTearoffTitle attrConstruct _ = constructComboBoxTearoffTitle @@ -989,13 +1393,13 @@ type AttrSetTypeConstraint ComboBoxWrapWidthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint ComboBoxWrapWidthPropertyInfo = ComboBoxK type AttrGetType ComboBoxWrapWidthPropertyInfo = Int32 - type AttrLabel ComboBoxWrapWidthPropertyInfo = "ComboBox::wrap-width" + type AttrLabel ComboBoxWrapWidthPropertyInfo = "wrap-width" attrGet _ = getComboBoxWrapWidth attrSet _ = setComboBoxWrapWidth attrConstruct _ = constructComboBoxWrapWidth type instance AttributeList ComboBox = ComboBoxAttributeList -type ComboBoxAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("active-id", ComboBoxActiveIdPropertyInfo), '("add-tearoffs", ComboBoxAddTearoffsPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("button-sensitivity", ComboBoxButtonSensitivityPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-span-column", ComboBoxColumnSpanColumnPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("entry-text-column", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-entry", ComboBoxHasEntryPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", ComboBoxHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("id-column", ComboBoxIdColumnPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popup-fixed-width", ComboBoxPopupFixedWidthPropertyInfo), '("popup-shown", ComboBoxPopupShownPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-span-column", ComboBoxRowSpanColumnPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoff-title", ComboBoxTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap-width", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) +type ComboBoxAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("activeId", ComboBoxActiveIdPropertyInfo), '("addTearoffs", ComboBoxAddTearoffsPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttonSensitivity", ComboBoxButtonSensitivityPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpanColumn", ComboBoxColumnSpanColumnPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("entryTextColumn", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasEntry", ComboBoxHasEntryPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", ComboBoxHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("idColumn", ComboBoxIdColumnPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popupFixedWidth", ComboBoxPopupFixedWidthPropertyInfo), '("popupShown", ComboBoxPopupShownPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpanColumn", ComboBoxRowSpanColumnPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoffTitle", ComboBoxTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapWidth", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) data ComboBoxChangedSignalInfo instance SignalInfo ComboBoxChangedSignalInfo where @@ -1023,13 +1427,12 @@ connectSignal _ = connectComboBoxPopup type instance SignalList ComboBox = ComboBoxSignalList -type ComboBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-entry-text", ComboBoxFormatEntryTextSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-active", ComboBoxMoveActiveSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ComboBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("formatEntryText", ComboBoxFormatEntryTextSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveActive", ComboBoxMoveActiveSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ComboBox::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ComboBox" -- throws : False -- Skip return : False @@ -1040,7 +1443,7 @@ comboBoxNew :: (MonadIO m) => - m ComboBox + m ComboBox -- result comboBoxNew = liftIO $ do result <- gtk_combo_box_new checkUnexpectedReturnNULL "gtk_combo_box_new" result @@ -1049,9 +1452,8 @@ -- method ComboBox::new_with_area -- method type : Constructor --- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ComboBox" -- throws : False -- Skip return : False @@ -1063,8 +1465,8 @@ comboBoxNewWithArea :: (MonadIO m, CellAreaK a) => - a -> -- area - m ComboBox + a -- area + -> m ComboBox -- result comboBoxNewWithArea area = liftIO $ do let area' = unsafeManagedPtrCastPtr area result <- gtk_combo_box_new_with_area area' @@ -1075,9 +1477,8 @@ -- method ComboBox::new_with_area_and_entry -- method type : Constructor --- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ComboBox" -- throws : False -- Skip return : False @@ -1089,8 +1490,8 @@ comboBoxNewWithAreaAndEntry :: (MonadIO m, CellAreaK a) => - a -> -- area - m ComboBox + a -- area + -> m ComboBox -- result comboBoxNewWithAreaAndEntry area = liftIO $ do let area' = unsafeManagedPtrCastPtr area result <- gtk_combo_box_new_with_area_and_entry area' @@ -1103,7 +1504,6 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ComboBox" -- throws : False -- Skip return : False @@ -1114,7 +1514,7 @@ comboBoxNewWithEntry :: (MonadIO m) => - m ComboBox + m ComboBox -- result comboBoxNewWithEntry = liftIO $ do result <- gtk_combo_box_new_with_entry checkUnexpectedReturnNULL "gtk_combo_box_new_with_entry" result @@ -1123,9 +1523,8 @@ -- method ComboBox::new_with_model -- method type : Constructor --- Args : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ComboBox" -- throws : False -- Skip return : False @@ -1137,8 +1536,8 @@ comboBoxNewWithModel :: (MonadIO m, TreeModelK a) => - a -> -- model - m ComboBox + a -- model + -> m ComboBox -- result comboBoxNewWithModel model = liftIO $ do let model' = unsafeManagedPtrCastPtr model result <- gtk_combo_box_new_with_model model' @@ -1149,9 +1548,8 @@ -- method ComboBox::new_with_model_and_entry -- method type : Constructor --- Args : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ComboBox" -- throws : False -- Skip return : False @@ -1163,8 +1561,8 @@ comboBoxNewWithModelAndEntry :: (MonadIO m, TreeModelK a) => - a -> -- model - m ComboBox + a -- model + -> m ComboBox -- result comboBoxNewWithModelAndEntry model = liftIO $ do let model' = unsafeManagedPtrCastPtr model result <- gtk_combo_box_new_with_model_and_entry model' @@ -1175,9 +1573,8 @@ -- method ComboBox::get_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1189,19 +1586,22 @@ comboBoxGetActive :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result comboBoxGetActive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_active _obj' touchManagedPtr _obj return result +data ComboBoxGetActiveMethodInfo +instance (signature ~ (m Int32), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetActiveMethodInfo a signature where + overloadedMethod _ = comboBoxGetActive + -- method ComboBox::get_active_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1213,8 +1613,8 @@ comboBoxGetActiveId :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result comboBoxGetActiveId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_active_id _obj' @@ -1223,11 +1623,14 @@ touchManagedPtr _obj return result' +data ComboBoxGetActiveIdMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetActiveIdMethodInfo a signature where + overloadedMethod _ = comboBoxGetActiveId + -- method ComboBox::get_active_iter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1240,8 +1643,8 @@ comboBoxGetActiveIter :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m (Bool,TreeIter) + a -- _obj + -> m (Bool,TreeIter) -- result comboBoxGetActiveIter _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -1251,11 +1654,14 @@ touchManagedPtr _obj return (result', iter') +data ComboBoxGetActiveIterMethodInfo +instance (signature ~ (m (Bool,TreeIter)), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetActiveIterMethodInfo a signature where + overloadedMethod _ = comboBoxGetActiveIter + -- method ComboBox::get_add_tearoffs -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1267,8 +1673,8 @@ {-# DEPRECATED comboBoxGetAddTearoffs ["(Since version 3.10)"]#-} comboBoxGetAddTearoffs :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result comboBoxGetAddTearoffs _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_add_tearoffs _obj' @@ -1276,11 +1682,14 @@ touchManagedPtr _obj return result' +data ComboBoxGetAddTearoffsMethodInfo +instance (signature ~ (m Bool), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetAddTearoffsMethodInfo a signature where + overloadedMethod _ = comboBoxGetAddTearoffs + -- method ComboBox::get_button_sensitivity -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SensitivityType" -- throws : False -- Skip return : False @@ -1292,8 +1701,8 @@ comboBoxGetButtonSensitivity :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m SensitivityType + a -- _obj + -> m SensitivityType -- result comboBoxGetButtonSensitivity _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_button_sensitivity _obj' @@ -1301,11 +1710,14 @@ touchManagedPtr _obj return result' +data ComboBoxGetButtonSensitivityMethodInfo +instance (signature ~ (m SensitivityType), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetButtonSensitivityMethodInfo a signature where + overloadedMethod _ = comboBoxGetButtonSensitivity + -- method ComboBox::get_column_span_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1317,19 +1729,22 @@ comboBoxGetColumnSpanColumn :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result comboBoxGetColumnSpanColumn _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_column_span_column _obj' touchManagedPtr _obj return result +data ComboBoxGetColumnSpanColumnMethodInfo +instance (signature ~ (m Int32), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetColumnSpanColumnMethodInfo a signature where + overloadedMethod _ = comboBoxGetColumnSpanColumn + -- method ComboBox::get_entry_text_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1341,19 +1756,22 @@ comboBoxGetEntryTextColumn :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result comboBoxGetEntryTextColumn _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_entry_text_column _obj' touchManagedPtr _obj return result +data ComboBoxGetEntryTextColumnMethodInfo +instance (signature ~ (m Int32), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetEntryTextColumnMethodInfo a signature where + overloadedMethod _ = comboBoxGetEntryTextColumn + -- method ComboBox::get_focus_on_click -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1365,8 +1783,8 @@ comboBoxGetFocusOnClick :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result comboBoxGetFocusOnClick _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_focus_on_click _obj' @@ -1374,11 +1792,14 @@ touchManagedPtr _obj return result' +data ComboBoxGetFocusOnClickMethodInfo +instance (signature ~ (m Bool), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetFocusOnClickMethodInfo a signature where + overloadedMethod _ = comboBoxGetFocusOnClick + -- method ComboBox::get_has_entry -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1390,8 +1811,8 @@ comboBoxGetHasEntry :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result comboBoxGetHasEntry _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_has_entry _obj' @@ -1399,11 +1820,14 @@ touchManagedPtr _obj return result' +data ComboBoxGetHasEntryMethodInfo +instance (signature ~ (m Bool), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetHasEntryMethodInfo a signature where + overloadedMethod _ = comboBoxGetHasEntry + -- method ComboBox::get_id_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1415,19 +1839,22 @@ comboBoxGetIdColumn :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result comboBoxGetIdColumn _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_id_column _obj' touchManagedPtr _obj return result +data ComboBoxGetIdColumnMethodInfo +instance (signature ~ (m Int32), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetIdColumnMethodInfo a signature where + overloadedMethod _ = comboBoxGetIdColumn + -- method ComboBox::get_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeModel" -- throws : False -- Skip return : False @@ -1439,8 +1866,8 @@ comboBoxGetModel :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m TreeModel + a -- _obj + -> m TreeModel -- result comboBoxGetModel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_model _obj' @@ -1449,11 +1876,14 @@ touchManagedPtr _obj return result' +data ComboBoxGetModelMethodInfo +instance (signature ~ (m TreeModel), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetModelMethodInfo a signature where + overloadedMethod _ = comboBoxGetModel + -- method ComboBox::get_popup_accessible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False @@ -1465,8 +1895,8 @@ comboBoxGetPopupAccessible :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m Atk.Object + a -- _obj + -> m Atk.Object -- result comboBoxGetPopupAccessible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_popup_accessible _obj' @@ -1475,11 +1905,14 @@ touchManagedPtr _obj return result' +data ComboBoxGetPopupAccessibleMethodInfo +instance (signature ~ (m Atk.Object), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetPopupAccessibleMethodInfo a signature where + overloadedMethod _ = comboBoxGetPopupAccessible + -- method ComboBox::get_popup_fixed_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1491,8 +1924,8 @@ comboBoxGetPopupFixedWidth :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result comboBoxGetPopupFixedWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_popup_fixed_width _obj' @@ -1500,11 +1933,14 @@ touchManagedPtr _obj return result' +data ComboBoxGetPopupFixedWidthMethodInfo +instance (signature ~ (m Bool), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetPopupFixedWidthMethodInfo a signature where + overloadedMethod _ = comboBoxGetPopupFixedWidth + -- method ComboBox::get_row_span_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1516,19 +1952,22 @@ comboBoxGetRowSpanColumn :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result comboBoxGetRowSpanColumn _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_row_span_column _obj' touchManagedPtr _obj return result +data ComboBoxGetRowSpanColumnMethodInfo +instance (signature ~ (m Int32), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetRowSpanColumnMethodInfo a signature where + overloadedMethod _ = comboBoxGetRowSpanColumn + -- method ComboBox::get_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1540,8 +1979,8 @@ {-# DEPRECATED comboBoxGetTitle ["(Since version 3.10)"]#-} comboBoxGetTitle :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result comboBoxGetTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_title _obj' @@ -1550,11 +1989,14 @@ touchManagedPtr _obj return result' +data ComboBoxGetTitleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetTitleMethodInfo a signature where + overloadedMethod _ = comboBoxGetTitle + -- method ComboBox::get_wrap_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1566,19 +2008,22 @@ comboBoxGetWrapWidth :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result comboBoxGetWrapWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_wrap_width _obj' touchManagedPtr _obj return result +data ComboBoxGetWrapWidthMethodInfo +instance (signature ~ (m Int32), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetWrapWidthMethodInfo a signature where + overloadedMethod _ = comboBoxGetWrapWidth + -- method ComboBox::popdown -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1590,19 +2035,22 @@ comboBoxPopdown :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result comboBoxPopdown _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_combo_box_popdown _obj' touchManagedPtr _obj return () +data ComboBoxPopdownMethodInfo +instance (signature ~ (m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxPopdownMethodInfo a signature where + overloadedMethod _ = comboBoxPopdown + -- method ComboBox::popup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1614,19 +2062,22 @@ comboBoxPopup :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result comboBoxPopup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_combo_box_popup _obj' touchManagedPtr _obj return () +data ComboBoxPopupMethodInfo +instance (signature ~ (m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxPopupMethodInfo a signature where + overloadedMethod _ = comboBoxPopup + -- method ComboBox::popup_for_device -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1639,9 +2090,9 @@ comboBoxPopupForDevice :: (MonadIO m, ComboBoxK a, Gdk.DeviceK b) => - a -> -- _obj - b -> -- device - m () + a -- _obj + -> b -- device + -> m () -- result comboBoxPopupForDevice _obj device = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device @@ -1650,11 +2101,14 @@ touchManagedPtr device return () +data ComboBoxPopupForDeviceMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ComboBoxK a, Gdk.DeviceK b) => MethodInfo ComboBoxPopupForDeviceMethodInfo a signature where + overloadedMethod _ = comboBoxPopupForDevice + -- method ComboBox::set_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1667,20 +2121,23 @@ comboBoxSetActive :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - Int32 -> -- index_ - m () -comboBoxSetActive _obj index_ = liftIO $ do + a -- _obj + -> Int32 -- index + -> m () -- result +comboBoxSetActive _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_active _obj' index_ + gtk_combo_box_set_active _obj' index touchManagedPtr _obj return () +data ComboBoxSetActiveMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetActiveMethodInfo a signature where + overloadedMethod _ = comboBoxSetActive + -- method ComboBox::set_active_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "active_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "active_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "active_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1693,27 +2150,30 @@ comboBoxSetActiveId :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - Maybe (T.Text) -> -- active_id - m Bool -comboBoxSetActiveId _obj active_id = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- activeId + -> m Bool -- result +comboBoxSetActiveId _obj activeId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeActive_id <- case active_id of + maybeActiveId <- case activeId of Nothing -> return nullPtr - Just jActive_id -> do - jActive_id' <- textToCString jActive_id - return jActive_id' - result <- gtk_combo_box_set_active_id _obj' maybeActive_id + Just jActiveId -> do + jActiveId' <- textToCString jActiveId + return jActiveId' + result <- gtk_combo_box_set_active_id _obj' maybeActiveId let result' = (/= 0) result touchManagedPtr _obj - freeMem maybeActive_id + freeMem maybeActiveId return result' +data ComboBoxSetActiveIdMethodInfo +instance (signature ~ (Maybe (T.Text) -> m Bool), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetActiveIdMethodInfo a signature where + overloadedMethod _ = comboBoxSetActiveId + -- method ComboBox::set_active_iter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1726,9 +2186,9 @@ comboBoxSetActiveIter :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - Maybe (TreeIter) -> -- iter - m () + a -- _obj + -> Maybe (TreeIter) -- iter + -> m () -- result comboBoxSetActiveIter _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeIter <- case iter of @@ -1741,11 +2201,14 @@ whenJust iter touchManagedPtr return () +data ComboBoxSetActiveIterMethodInfo +instance (signature ~ (Maybe (TreeIter) -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetActiveIterMethodInfo a signature where + overloadedMethod _ = comboBoxSetActiveIter + -- method ComboBox::set_add_tearoffs -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1758,21 +2221,24 @@ {-# DEPRECATED comboBoxSetAddTearoffs ["(Since version 3.10)"]#-} comboBoxSetAddTearoffs :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - Bool -> -- add_tearoffs - m () -comboBoxSetAddTearoffs _obj add_tearoffs = liftIO $ do + a -- _obj + -> Bool -- addTearoffs + -> m () -- result +comboBoxSetAddTearoffs _obj addTearoffs = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let add_tearoffs' = (fromIntegral . fromEnum) add_tearoffs - gtk_combo_box_set_add_tearoffs _obj' add_tearoffs' + let addTearoffs' = (fromIntegral . fromEnum) addTearoffs + gtk_combo_box_set_add_tearoffs _obj' addTearoffs' touchManagedPtr _obj return () +data ComboBoxSetAddTearoffsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetAddTearoffsMethodInfo a signature where + overloadedMethod _ = comboBoxSetAddTearoffs + -- method ComboBox::set_button_sensitivity -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1785,9 +2251,9 @@ comboBoxSetButtonSensitivity :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - SensitivityType -> -- sensitivity - m () + a -- _obj + -> SensitivityType -- sensitivity + -> m () -- result comboBoxSetButtonSensitivity _obj sensitivity = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sensitivity' = (fromIntegral . fromEnum) sensitivity @@ -1795,11 +2261,14 @@ touchManagedPtr _obj return () +data ComboBoxSetButtonSensitivityMethodInfo +instance (signature ~ (SensitivityType -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetButtonSensitivityMethodInfo a signature where + overloadedMethod _ = comboBoxSetButtonSensitivity + -- method ComboBox::set_column_span_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1812,20 +2281,23 @@ comboBoxSetColumnSpanColumn :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - Int32 -> -- column_span - m () -comboBoxSetColumnSpanColumn _obj column_span = liftIO $ do + a -- _obj + -> Int32 -- columnSpan + -> m () -- result +comboBoxSetColumnSpanColumn _obj columnSpan = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_column_span_column _obj' column_span + gtk_combo_box_set_column_span_column _obj' columnSpan touchManagedPtr _obj return () +data ComboBoxSetColumnSpanColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetColumnSpanColumnMethodInfo a signature where + overloadedMethod _ = comboBoxSetColumnSpanColumn + -- method ComboBox::set_entry_text_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1838,20 +2310,23 @@ comboBoxSetEntryTextColumn :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - Int32 -> -- text_column - m () -comboBoxSetEntryTextColumn _obj text_column = liftIO $ do + a -- _obj + -> Int32 -- textColumn + -> m () -- result +comboBoxSetEntryTextColumn _obj textColumn = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_entry_text_column _obj' text_column + gtk_combo_box_set_entry_text_column _obj' textColumn touchManagedPtr _obj return () +data ComboBoxSetEntryTextColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetEntryTextColumnMethodInfo a signature where + overloadedMethod _ = comboBoxSetEntryTextColumn + -- method ComboBox::set_focus_on_click -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1864,21 +2339,24 @@ comboBoxSetFocusOnClick :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - Bool -> -- focus_on_click - m () -comboBoxSetFocusOnClick _obj focus_on_click = liftIO $ do + a -- _obj + -> Bool -- focusOnClick + -> m () -- result +comboBoxSetFocusOnClick _obj focusOnClick = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let focus_on_click' = (fromIntegral . fromEnum) focus_on_click - gtk_combo_box_set_focus_on_click _obj' focus_on_click' + let focusOnClick' = (fromIntegral . fromEnum) focusOnClick + gtk_combo_box_set_focus_on_click _obj' focusOnClick' touchManagedPtr _obj return () +data ComboBoxSetFocusOnClickMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetFocusOnClickMethodInfo a signature where + overloadedMethod _ = comboBoxSetFocusOnClick + -- method ComboBox::set_id_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1891,20 +2369,23 @@ comboBoxSetIdColumn :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - Int32 -> -- id_column - m () -comboBoxSetIdColumn _obj id_column = liftIO $ do + a -- _obj + -> Int32 -- idColumn + -> m () -- result +comboBoxSetIdColumn _obj idColumn = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_id_column _obj' id_column + gtk_combo_box_set_id_column _obj' idColumn touchManagedPtr _obj return () +data ComboBoxSetIdColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetIdColumnMethodInfo a signature where + overloadedMethod _ = comboBoxSetIdColumn + -- method ComboBox::set_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1917,9 +2398,9 @@ comboBoxSetModel :: (MonadIO m, ComboBoxK a, TreeModelK b) => - a -> -- _obj - Maybe (b) -> -- model - m () + a -- _obj + -> Maybe (b) -- model + -> m () -- result comboBoxSetModel _obj model = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeModel <- case model of @@ -1932,11 +2413,14 @@ whenJust model touchManagedPtr return () +data ComboBoxSetModelMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ComboBoxK a, TreeModelK b) => MethodInfo ComboBoxSetModelMethodInfo a signature where + overloadedMethod _ = comboBoxSetModel + -- method ComboBox::set_popup_fixed_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1949,9 +2433,9 @@ comboBoxSetPopupFixedWidth :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - Bool -> -- fixed - m () + a -- _obj + -> Bool -- fixed + -> m () -- result comboBoxSetPopupFixedWidth _obj fixed = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let fixed' = (fromIntegral . fromEnum) fixed @@ -1959,11 +2443,14 @@ touchManagedPtr _obj return () +data ComboBoxSetPopupFixedWidthMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetPopupFixedWidthMethodInfo a signature where + overloadedMethod _ = comboBoxSetPopupFixedWidth + -- method ComboBox::set_row_separator_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1978,9 +2465,9 @@ comboBoxSetRowSeparatorFunc :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - TreeViewRowSeparatorFunc -> -- func - m () + a -- _obj + -> TreeViewRowSeparatorFunc -- func + -> m () -- result comboBoxSetRowSeparatorFunc _obj func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj func' <- mkTreeViewRowSeparatorFunc (treeViewRowSeparatorFuncWrapper Nothing func) @@ -1990,11 +2477,14 @@ touchManagedPtr _obj return () +data ComboBoxSetRowSeparatorFuncMethodInfo +instance (signature ~ (TreeViewRowSeparatorFunc -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetRowSeparatorFuncMethodInfo a signature where + overloadedMethod _ = comboBoxSetRowSeparatorFunc + -- method ComboBox::set_row_span_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2007,20 +2497,23 @@ comboBoxSetRowSpanColumn :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - Int32 -> -- row_span - m () -comboBoxSetRowSpanColumn _obj row_span = liftIO $ do + a -- _obj + -> Int32 -- rowSpan + -> m () -- result +comboBoxSetRowSpanColumn _obj rowSpan = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_row_span_column _obj' row_span + gtk_combo_box_set_row_span_column _obj' rowSpan touchManagedPtr _obj return () +data ComboBoxSetRowSpanColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetRowSpanColumnMethodInfo a signature where + overloadedMethod _ = comboBoxSetRowSpanColumn + -- method ComboBox::set_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2033,9 +2526,9 @@ {-# DEPRECATED comboBoxSetTitle ["(Since version 3.10)"]#-} comboBoxSetTitle :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - T.Text -> -- title - m () + a -- _obj + -> T.Text -- title + -> m () -- result comboBoxSetTitle _obj title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj title' <- textToCString title @@ -2044,11 +2537,14 @@ freeMem title' return () +data ComboBoxSetTitleMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetTitleMethodInfo a signature where + overloadedMethod _ = comboBoxSetTitle + -- method ComboBox::set_wrap_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2061,13 +2557,17 @@ comboBoxSetWrapWidth :: (MonadIO m, ComboBoxK a) => - a -> -- _obj - Int32 -> -- width - m () + a -- _obj + -> Int32 -- width + -> m () -- result comboBoxSetWrapWidth _obj width = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_combo_box_set_wrap_width _obj' width touchManagedPtr _obj return () + +data ComboBoxSetWrapWidthMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxSetWrapWidthMethodInfo a signature where + overloadedMethod _ = comboBoxSetWrapWidth diff --git a/GI/Gtk/Objects/ComboBox.hs-boot b/GI/Gtk/Objects/ComboBox.hs-boot --- a/GI/Gtk/Objects/ComboBox.hs-boot +++ b/GI/Gtk/Objects/ComboBox.hs-boot @@ -33,3 +33,37 @@ data ComboBoxMoveActiveSignalInfo data ComboBoxPopdownSignalInfo data ComboBoxPopupSignalInfo +data ComboBoxGetActiveMethodInfo +data ComboBoxGetActiveIdMethodInfo +data ComboBoxGetActiveIterMethodInfo +data ComboBoxGetAddTearoffsMethodInfo +data ComboBoxGetButtonSensitivityMethodInfo +data ComboBoxGetColumnSpanColumnMethodInfo +data ComboBoxGetEntryTextColumnMethodInfo +data ComboBoxGetFocusOnClickMethodInfo +data ComboBoxGetHasEntryMethodInfo +data ComboBoxGetIdColumnMethodInfo +data ComboBoxGetModelMethodInfo +data ComboBoxGetPopupAccessibleMethodInfo +data ComboBoxGetPopupFixedWidthMethodInfo +data ComboBoxGetRowSpanColumnMethodInfo +data ComboBoxGetTitleMethodInfo +data ComboBoxGetWrapWidthMethodInfo +data ComboBoxPopdownMethodInfo +data ComboBoxPopupMethodInfo +data ComboBoxPopupForDeviceMethodInfo +data ComboBoxSetActiveMethodInfo +data ComboBoxSetActiveIdMethodInfo +data ComboBoxSetActiveIterMethodInfo +data ComboBoxSetAddTearoffsMethodInfo +data ComboBoxSetButtonSensitivityMethodInfo +data ComboBoxSetColumnSpanColumnMethodInfo +data ComboBoxSetEntryTextColumnMethodInfo +data ComboBoxSetFocusOnClickMethodInfo +data ComboBoxSetIdColumnMethodInfo +data ComboBoxSetModelMethodInfo +data ComboBoxSetPopupFixedWidthMethodInfo +data ComboBoxSetRowSeparatorFuncMethodInfo +data ComboBoxSetRowSpanColumnMethodInfo +data ComboBoxSetTitleMethodInfo +data ComboBoxSetWrapWidthMethodInfo diff --git a/GI/Gtk/Objects/ComboBoxAccessible.hs b/GI/Gtk/Objects/ComboBoxAccessible.hs --- a/GI/Gtk/Objects/ComboBoxAccessible.hs +++ b/GI/Gtk/Objects/ComboBoxAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,86 @@ noComboBoxAccessible :: Maybe ComboBoxAccessible noComboBoxAccessible = Nothing +type family ResolveComboBoxAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveComboBoxAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveComboBoxAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo + ResolveComboBoxAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveComboBoxAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveComboBoxAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo + ResolveComboBoxAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveComboBoxAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveComboBoxAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveComboBoxAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveComboBoxAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveComboBoxAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveComboBoxAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveComboBoxAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo + ResolveComboBoxAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveComboBoxAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveComboBoxAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveComboBoxAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveComboBoxAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveComboBoxAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveComboBoxAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveComboBoxAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveComboBoxAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveComboBoxAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo + ResolveComboBoxAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveComboBoxAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveComboBoxAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveComboBoxAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveComboBoxAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveComboBoxAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo + ResolveComboBoxAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveComboBoxAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveComboBoxAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveComboBoxAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo + ResolveComboBoxAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveComboBoxAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveComboBoxAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveComboBoxAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveComboBoxAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveComboBoxAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveComboBoxAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveComboBoxAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveComboBoxAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveComboBoxAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveComboBoxAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveComboBoxAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveComboBoxAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveComboBoxAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveComboBoxAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveComboBoxAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveComboBoxAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveComboBoxAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveComboBoxAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveComboBoxAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveComboBoxAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo + ResolveComboBoxAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveComboBoxAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveComboBoxAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveComboBoxAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveComboBoxAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveComboBoxAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveComboBoxAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveComboBoxAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveComboBoxAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveComboBoxAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveComboBoxAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveComboBoxAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveComboBoxAccessibleMethod t ComboBoxAccessible, MethodInfo info ComboBoxAccessible p) => IsLabelProxy t (ComboBoxAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveComboBoxAccessibleMethod t ComboBoxAccessible, MethodInfo info ComboBoxAccessible p) => IsLabel t (ComboBoxAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ComboBoxAccessible = ComboBoxAccessibleAttributeList -type ComboBoxAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ComboBoxAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ComboBoxAccessible = ComboBoxAccessibleSignalList -type ComboBoxAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ComboBoxAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/ComboBoxText.hs b/GI/Gtk/Objects/ComboBoxText.hs --- a/GI/Gtk/Objects/ComboBoxText.hs +++ b/GI/Gtk/Objects/ComboBoxText.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** comboBoxTextAppend + ComboBoxTextAppendMethodInfo , comboBoxTextAppend , -- ** comboBoxTextAppendText + ComboBoxTextAppendTextMethodInfo , comboBoxTextAppendText , -- ** comboBoxTextGetActiveText + ComboBoxTextGetActiveTextMethodInfo , comboBoxTextGetActiveText , -- ** comboBoxTextInsert + ComboBoxTextInsertMethodInfo , comboBoxTextInsert , -- ** comboBoxTextInsertText + ComboBoxTextInsertTextMethodInfo , comboBoxTextInsertText , @@ -45,18 +51,22 @@ -- ** comboBoxTextPrepend + ComboBoxTextPrependMethodInfo , comboBoxTextPrepend , -- ** comboBoxTextPrependText + ComboBoxTextPrependTextMethodInfo , comboBoxTextPrependText , -- ** comboBoxTextRemove + ComboBoxTextRemoveMethodInfo , comboBoxTextRemove , -- ** comboBoxTextRemoveAll + ComboBoxTextRemoveAllMethodInfo , comboBoxTextRemoveAll , @@ -97,17 +107,392 @@ noComboBoxText :: Maybe ComboBoxText noComboBoxText = Nothing +type family ResolveComboBoxTextMethod (t :: Symbol) (o :: *) :: * where + ResolveComboBoxTextMethod "activate" o = WidgetActivateMethodInfo + ResolveComboBoxTextMethod "add" o = ContainerAddMethodInfo + ResolveComboBoxTextMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveComboBoxTextMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo + ResolveComboBoxTextMethod "addChild" o = BuildableAddChildMethodInfo + ResolveComboBoxTextMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveComboBoxTextMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveComboBoxTextMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveComboBoxTextMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveComboBoxTextMethod "append" o = ComboBoxTextAppendMethodInfo + ResolveComboBoxTextMethod "appendText" o = ComboBoxTextAppendTextMethodInfo + ResolveComboBoxTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveComboBoxTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveComboBoxTextMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveComboBoxTextMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveComboBoxTextMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveComboBoxTextMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveComboBoxTextMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveComboBoxTextMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveComboBoxTextMethod "childType" o = ContainerChildTypeMethodInfo + ResolveComboBoxTextMethod "classPath" o = WidgetClassPathMethodInfo + ResolveComboBoxTextMethod "clear" o = CellLayoutClearMethodInfo + ResolveComboBoxTextMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo + ResolveComboBoxTextMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveComboBoxTextMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveComboBoxTextMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveComboBoxTextMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveComboBoxTextMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveComboBoxTextMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveComboBoxTextMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveComboBoxTextMethod "destroy" o = WidgetDestroyMethodInfo + ResolveComboBoxTextMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveComboBoxTextMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveComboBoxTextMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveComboBoxTextMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveComboBoxTextMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveComboBoxTextMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveComboBoxTextMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveComboBoxTextMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveComboBoxTextMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveComboBoxTextMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveComboBoxTextMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveComboBoxTextMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveComboBoxTextMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveComboBoxTextMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveComboBoxTextMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveComboBoxTextMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveComboBoxTextMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveComboBoxTextMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveComboBoxTextMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveComboBoxTextMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveComboBoxTextMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveComboBoxTextMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveComboBoxTextMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveComboBoxTextMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveComboBoxTextMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveComboBoxTextMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveComboBoxTextMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveComboBoxTextMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveComboBoxTextMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveComboBoxTextMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveComboBoxTextMethod "draw" o = WidgetDrawMethodInfo + ResolveComboBoxTextMethod "editingDone" o = CellEditableEditingDoneMethodInfo + ResolveComboBoxTextMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveComboBoxTextMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveComboBoxTextMethod "event" o = WidgetEventMethodInfo + ResolveComboBoxTextMethod "forall" o = ContainerForallMethodInfo + ResolveComboBoxTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveComboBoxTextMethod "foreach" o = ContainerForeachMethodInfo + ResolveComboBoxTextMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveComboBoxTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveComboBoxTextMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveComboBoxTextMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveComboBoxTextMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveComboBoxTextMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveComboBoxTextMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveComboBoxTextMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveComboBoxTextMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveComboBoxTextMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveComboBoxTextMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveComboBoxTextMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveComboBoxTextMethod "hide" o = WidgetHideMethodInfo + ResolveComboBoxTextMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveComboBoxTextMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveComboBoxTextMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveComboBoxTextMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveComboBoxTextMethod "insert" o = ComboBoxTextInsertMethodInfo + ResolveComboBoxTextMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveComboBoxTextMethod "insertText" o = ComboBoxTextInsertTextMethodInfo + ResolveComboBoxTextMethod "intersect" o = WidgetIntersectMethodInfo + ResolveComboBoxTextMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveComboBoxTextMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveComboBoxTextMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveComboBoxTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveComboBoxTextMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveComboBoxTextMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveComboBoxTextMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveComboBoxTextMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveComboBoxTextMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveComboBoxTextMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveComboBoxTextMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveComboBoxTextMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveComboBoxTextMethod "map" o = WidgetMapMethodInfo + ResolveComboBoxTextMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveComboBoxTextMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveComboBoxTextMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveComboBoxTextMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveComboBoxTextMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveComboBoxTextMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveComboBoxTextMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveComboBoxTextMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveComboBoxTextMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveComboBoxTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveComboBoxTextMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveComboBoxTextMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveComboBoxTextMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveComboBoxTextMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveComboBoxTextMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveComboBoxTextMethod "packEnd" o = CellLayoutPackEndMethodInfo + ResolveComboBoxTextMethod "packStart" o = CellLayoutPackStartMethodInfo + ResolveComboBoxTextMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveComboBoxTextMethod "path" o = WidgetPathMethodInfo + ResolveComboBoxTextMethod "popdown" o = ComboBoxPopdownMethodInfo + ResolveComboBoxTextMethod "popup" o = ComboBoxPopupMethodInfo + ResolveComboBoxTextMethod "popupForDevice" o = ComboBoxPopupForDeviceMethodInfo + ResolveComboBoxTextMethod "prepend" o = ComboBoxTextPrependMethodInfo + ResolveComboBoxTextMethod "prependText" o = ComboBoxTextPrependTextMethodInfo + ResolveComboBoxTextMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveComboBoxTextMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveComboBoxTextMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveComboBoxTextMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveComboBoxTextMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveComboBoxTextMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveComboBoxTextMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveComboBoxTextMethod "realize" o = WidgetRealizeMethodInfo + ResolveComboBoxTextMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveComboBoxTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveComboBoxTextMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveComboBoxTextMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveComboBoxTextMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveComboBoxTextMethod "removeAll" o = ComboBoxTextRemoveAllMethodInfo + ResolveComboBoxTextMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveComboBoxTextMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveComboBoxTextMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo + ResolveComboBoxTextMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveComboBoxTextMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveComboBoxTextMethod "reorder" o = CellLayoutReorderMethodInfo + ResolveComboBoxTextMethod "reparent" o = WidgetReparentMethodInfo + ResolveComboBoxTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveComboBoxTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveComboBoxTextMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveComboBoxTextMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveComboBoxTextMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveComboBoxTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveComboBoxTextMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveComboBoxTextMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveComboBoxTextMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveComboBoxTextMethod "show" o = WidgetShowMethodInfo + ResolveComboBoxTextMethod "showAll" o = WidgetShowAllMethodInfo + ResolveComboBoxTextMethod "showNow" o = WidgetShowNowMethodInfo + ResolveComboBoxTextMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveComboBoxTextMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveComboBoxTextMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveComboBoxTextMethod "startEditing" o = CellEditableStartEditingMethodInfo + ResolveComboBoxTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveComboBoxTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveComboBoxTextMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveComboBoxTextMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveComboBoxTextMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveComboBoxTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveComboBoxTextMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveComboBoxTextMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveComboBoxTextMethod "unmap" o = WidgetUnmapMethodInfo + ResolveComboBoxTextMethod "unparent" o = WidgetUnparentMethodInfo + ResolveComboBoxTextMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveComboBoxTextMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveComboBoxTextMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveComboBoxTextMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveComboBoxTextMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveComboBoxTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveComboBoxTextMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveComboBoxTextMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveComboBoxTextMethod "getActive" o = ComboBoxGetActiveMethodInfo + ResolveComboBoxTextMethod "getActiveId" o = ComboBoxGetActiveIdMethodInfo + ResolveComboBoxTextMethod "getActiveIter" o = ComboBoxGetActiveIterMethodInfo + ResolveComboBoxTextMethod "getActiveText" o = ComboBoxTextGetActiveTextMethodInfo + ResolveComboBoxTextMethod "getAddTearoffs" o = ComboBoxGetAddTearoffsMethodInfo + ResolveComboBoxTextMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveComboBoxTextMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveComboBoxTextMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveComboBoxTextMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveComboBoxTextMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveComboBoxTextMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveComboBoxTextMethod "getArea" o = CellLayoutGetAreaMethodInfo + ResolveComboBoxTextMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveComboBoxTextMethod "getButtonSensitivity" o = ComboBoxGetButtonSensitivityMethodInfo + ResolveComboBoxTextMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveComboBoxTextMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveComboBoxTextMethod "getCells" o = CellLayoutGetCellsMethodInfo + ResolveComboBoxTextMethod "getChild" o = BinGetChildMethodInfo + ResolveComboBoxTextMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveComboBoxTextMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveComboBoxTextMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveComboBoxTextMethod "getClip" o = WidgetGetClipMethodInfo + ResolveComboBoxTextMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveComboBoxTextMethod "getColumnSpanColumn" o = ComboBoxGetColumnSpanColumnMethodInfo + ResolveComboBoxTextMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveComboBoxTextMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveComboBoxTextMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveComboBoxTextMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveComboBoxTextMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveComboBoxTextMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveComboBoxTextMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveComboBoxTextMethod "getEntryTextColumn" o = ComboBoxGetEntryTextColumnMethodInfo + ResolveComboBoxTextMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveComboBoxTextMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveComboBoxTextMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveComboBoxTextMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveComboBoxTextMethod "getFocusOnClick" o = ComboBoxGetFocusOnClickMethodInfo + ResolveComboBoxTextMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveComboBoxTextMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveComboBoxTextMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveComboBoxTextMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveComboBoxTextMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveComboBoxTextMethod "getHasEntry" o = ComboBoxGetHasEntryMethodInfo + ResolveComboBoxTextMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveComboBoxTextMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveComboBoxTextMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveComboBoxTextMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveComboBoxTextMethod "getIdColumn" o = ComboBoxGetIdColumnMethodInfo + ResolveComboBoxTextMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveComboBoxTextMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveComboBoxTextMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveComboBoxTextMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveComboBoxTextMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveComboBoxTextMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveComboBoxTextMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveComboBoxTextMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveComboBoxTextMethod "getModel" o = ComboBoxGetModelMethodInfo + ResolveComboBoxTextMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveComboBoxTextMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveComboBoxTextMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveComboBoxTextMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveComboBoxTextMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveComboBoxTextMethod "getParent" o = WidgetGetParentMethodInfo + ResolveComboBoxTextMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveComboBoxTextMethod "getPath" o = WidgetGetPathMethodInfo + ResolveComboBoxTextMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveComboBoxTextMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveComboBoxTextMethod "getPopupAccessible" o = ComboBoxGetPopupAccessibleMethodInfo + ResolveComboBoxTextMethod "getPopupFixedWidth" o = ComboBoxGetPopupFixedWidthMethodInfo + ResolveComboBoxTextMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveComboBoxTextMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveComboBoxTextMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveComboBoxTextMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveComboBoxTextMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveComboBoxTextMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveComboBoxTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveComboBoxTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveComboBoxTextMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveComboBoxTextMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveComboBoxTextMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveComboBoxTextMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveComboBoxTextMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveComboBoxTextMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveComboBoxTextMethod "getRowSpanColumn" o = ComboBoxGetRowSpanColumnMethodInfo + ResolveComboBoxTextMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveComboBoxTextMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveComboBoxTextMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveComboBoxTextMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveComboBoxTextMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveComboBoxTextMethod "getState" o = WidgetGetStateMethodInfo + ResolveComboBoxTextMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveComboBoxTextMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveComboBoxTextMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveComboBoxTextMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveComboBoxTextMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveComboBoxTextMethod "getTitle" o = ComboBoxGetTitleMethodInfo + ResolveComboBoxTextMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveComboBoxTextMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveComboBoxTextMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveComboBoxTextMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveComboBoxTextMethod "getValign" o = WidgetGetValignMethodInfo + ResolveComboBoxTextMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveComboBoxTextMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveComboBoxTextMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveComboBoxTextMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveComboBoxTextMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveComboBoxTextMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveComboBoxTextMethod "getWrapWidth" o = ComboBoxGetWrapWidthMethodInfo + ResolveComboBoxTextMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveComboBoxTextMethod "setActive" o = ComboBoxSetActiveMethodInfo + ResolveComboBoxTextMethod "setActiveId" o = ComboBoxSetActiveIdMethodInfo + ResolveComboBoxTextMethod "setActiveIter" o = ComboBoxSetActiveIterMethodInfo + ResolveComboBoxTextMethod "setAddTearoffs" o = ComboBoxSetAddTearoffsMethodInfo + ResolveComboBoxTextMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveComboBoxTextMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveComboBoxTextMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveComboBoxTextMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveComboBoxTextMethod "setButtonSensitivity" o = ComboBoxSetButtonSensitivityMethodInfo + ResolveComboBoxTextMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveComboBoxTextMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveComboBoxTextMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo + ResolveComboBoxTextMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveComboBoxTextMethod "setClip" o = WidgetSetClipMethodInfo + ResolveComboBoxTextMethod "setColumnSpanColumn" o = ComboBoxSetColumnSpanColumnMethodInfo + ResolveComboBoxTextMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveComboBoxTextMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveComboBoxTextMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveComboBoxTextMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveComboBoxTextMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveComboBoxTextMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveComboBoxTextMethod "setEntryTextColumn" o = ComboBoxSetEntryTextColumnMethodInfo + ResolveComboBoxTextMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveComboBoxTextMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveComboBoxTextMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveComboBoxTextMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveComboBoxTextMethod "setFocusOnClick" o = ComboBoxSetFocusOnClickMethodInfo + ResolveComboBoxTextMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveComboBoxTextMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveComboBoxTextMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveComboBoxTextMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveComboBoxTextMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveComboBoxTextMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveComboBoxTextMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveComboBoxTextMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveComboBoxTextMethod "setIdColumn" o = ComboBoxSetIdColumnMethodInfo + ResolveComboBoxTextMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveComboBoxTextMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveComboBoxTextMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveComboBoxTextMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveComboBoxTextMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveComboBoxTextMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveComboBoxTextMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveComboBoxTextMethod "setModel" o = ComboBoxSetModelMethodInfo + ResolveComboBoxTextMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveComboBoxTextMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveComboBoxTextMethod "setParent" o = WidgetSetParentMethodInfo + ResolveComboBoxTextMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveComboBoxTextMethod "setPopupFixedWidth" o = ComboBoxSetPopupFixedWidthMethodInfo + ResolveComboBoxTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveComboBoxTextMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveComboBoxTextMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveComboBoxTextMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveComboBoxTextMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveComboBoxTextMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveComboBoxTextMethod "setRowSeparatorFunc" o = ComboBoxSetRowSeparatorFuncMethodInfo + ResolveComboBoxTextMethod "setRowSpanColumn" o = ComboBoxSetRowSpanColumnMethodInfo + ResolveComboBoxTextMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveComboBoxTextMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveComboBoxTextMethod "setState" o = WidgetSetStateMethodInfo + ResolveComboBoxTextMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveComboBoxTextMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveComboBoxTextMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveComboBoxTextMethod "setTitle" o = ComboBoxSetTitleMethodInfo + ResolveComboBoxTextMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveComboBoxTextMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveComboBoxTextMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveComboBoxTextMethod "setValign" o = WidgetSetValignMethodInfo + ResolveComboBoxTextMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveComboBoxTextMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveComboBoxTextMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveComboBoxTextMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveComboBoxTextMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveComboBoxTextMethod "setWrapWidth" o = ComboBoxSetWrapWidthMethodInfo + ResolveComboBoxTextMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveComboBoxTextMethod t ComboBoxText, MethodInfo info ComboBoxText p) => IsLabelProxy t (ComboBoxText -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveComboBoxTextMethod t ComboBoxText, MethodInfo info ComboBoxText p) => IsLabel t (ComboBoxText -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ComboBoxText = ComboBoxTextAttributeList -type ComboBoxTextAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("active-id", ComboBoxActiveIdPropertyInfo), '("add-tearoffs", ComboBoxAddTearoffsPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("button-sensitivity", ComboBoxButtonSensitivityPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-span-column", ComboBoxColumnSpanColumnPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("entry-text-column", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-entry", ComboBoxHasEntryPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", ComboBoxHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("id-column", ComboBoxIdColumnPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popup-fixed-width", ComboBoxPopupFixedWidthPropertyInfo), '("popup-shown", ComboBoxPopupShownPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-span-column", ComboBoxRowSpanColumnPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoff-title", ComboBoxTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap-width", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) +type ComboBoxTextAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("activeId", ComboBoxActiveIdPropertyInfo), '("addTearoffs", ComboBoxAddTearoffsPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttonSensitivity", ComboBoxButtonSensitivityPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpanColumn", ComboBoxColumnSpanColumnPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("entryTextColumn", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasEntry", ComboBoxHasEntryPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", ComboBoxHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("idColumn", ComboBoxIdColumnPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popupFixedWidth", ComboBoxPopupFixedWidthPropertyInfo), '("popupShown", ComboBoxPopupShownPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpanColumn", ComboBoxRowSpanColumnPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoffTitle", ComboBoxTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapWidth", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ComboBoxText = ComboBoxTextSignalList -type ComboBoxTextSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-entry-text", ComboBoxFormatEntryTextSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-active", ComboBoxMoveActiveSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ComboBoxTextSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("formatEntryText", ComboBoxFormatEntryTextSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveActive", ComboBoxMoveActiveSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ComboBoxText::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ComboBoxText" -- throws : False -- Skip return : False @@ -118,7 +503,7 @@ comboBoxTextNew :: (MonadIO m) => - m ComboBoxText + m ComboBoxText -- result comboBoxTextNew = liftIO $ do result <- gtk_combo_box_text_new checkUnexpectedReturnNULL "gtk_combo_box_text_new" result @@ -129,7 +514,6 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ComboBoxText" -- throws : False -- Skip return : False @@ -140,7 +524,7 @@ comboBoxTextNewWithEntry :: (MonadIO m) => - m ComboBoxText + m ComboBoxText -- result comboBoxTextNewWithEntry = liftIO $ do result <- gtk_combo_box_text_new_with_entry checkUnexpectedReturnNULL "gtk_combo_box_text_new_with_entry" result @@ -149,9 +533,8 @@ -- method ComboBoxText::append -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -165,10 +548,10 @@ comboBoxTextAppend :: (MonadIO m, ComboBoxTextK a) => - a -> -- _obj - Maybe (T.Text) -> -- id - T.Text -> -- text - m () + a -- _obj + -> Maybe (T.Text) -- id + -> T.Text -- text + -> m () -- result comboBoxTextAppend _obj id text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeId <- case id of @@ -183,11 +566,14 @@ freeMem text' return () +data ComboBoxTextAppendMethodInfo +instance (signature ~ (Maybe (T.Text) -> T.Text -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextAppendMethodInfo a signature where + overloadedMethod _ = comboBoxTextAppend + -- method ComboBoxText::append_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -200,9 +586,9 @@ comboBoxTextAppendText :: (MonadIO m, ComboBoxTextK a) => - a -> -- _obj - T.Text -> -- text - m () + a -- _obj + -> T.Text -- text + -> m () -- result comboBoxTextAppendText _obj text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text @@ -211,11 +597,14 @@ freeMem text' return () +data ComboBoxTextAppendTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextAppendTextMethodInfo a signature where + overloadedMethod _ = comboBoxTextAppendText + -- method ComboBoxText::get_active_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -227,8 +616,8 @@ comboBoxTextGetActiveText :: (MonadIO m, ComboBoxTextK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result comboBoxTextGetActiveText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_text_get_active_text _obj' @@ -238,11 +627,14 @@ touchManagedPtr _obj return result' +data ComboBoxTextGetActiveTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextGetActiveTextMethodInfo a signature where + overloadedMethod _ = comboBoxTextGetActiveText + -- method ComboBoxText::insert -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -257,11 +649,11 @@ comboBoxTextInsert :: (MonadIO m, ComboBoxTextK a) => - a -> -- _obj - Int32 -> -- position - Maybe (T.Text) -> -- id - T.Text -> -- text - m () + a -- _obj + -> Int32 -- position + -> Maybe (T.Text) -- id + -> T.Text -- text + -> m () -- result comboBoxTextInsert _obj position id text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeId <- case id of @@ -276,11 +668,14 @@ freeMem text' return () +data ComboBoxTextInsertMethodInfo +instance (signature ~ (Int32 -> Maybe (T.Text) -> T.Text -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextInsertMethodInfo a signature where + overloadedMethod _ = comboBoxTextInsert + -- method ComboBoxText::insert_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -294,10 +689,10 @@ comboBoxTextInsertText :: (MonadIO m, ComboBoxTextK a) => - a -> -- _obj - Int32 -> -- position - T.Text -> -- text - m () + a -- _obj + -> Int32 -- position + -> T.Text -- text + -> m () -- result comboBoxTextInsertText _obj position text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text @@ -306,11 +701,14 @@ freeMem text' return () +data ComboBoxTextInsertTextMethodInfo +instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextInsertTextMethodInfo a signature where + overloadedMethod _ = comboBoxTextInsertText + -- method ComboBoxText::prepend -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -324,10 +722,10 @@ comboBoxTextPrepend :: (MonadIO m, ComboBoxTextK a) => - a -> -- _obj - Maybe (T.Text) -> -- id - T.Text -> -- text - m () + a -- _obj + -> Maybe (T.Text) -- id + -> T.Text -- text + -> m () -- result comboBoxTextPrepend _obj id text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeId <- case id of @@ -342,11 +740,14 @@ freeMem text' return () +data ComboBoxTextPrependMethodInfo +instance (signature ~ (Maybe (T.Text) -> T.Text -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextPrependMethodInfo a signature where + overloadedMethod _ = comboBoxTextPrepend + -- method ComboBoxText::prepend_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -359,9 +760,9 @@ comboBoxTextPrependText :: (MonadIO m, ComboBoxTextK a) => - a -> -- _obj - T.Text -> -- text - m () + a -- _obj + -> T.Text -- text + -> m () -- result comboBoxTextPrependText _obj text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text @@ -370,11 +771,14 @@ freeMem text' return () +data ComboBoxTextPrependTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextPrependTextMethodInfo a signature where + overloadedMethod _ = comboBoxTextPrependText + -- method ComboBoxText::remove -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -387,20 +791,23 @@ comboBoxTextRemove :: (MonadIO m, ComboBoxTextK a) => - a -> -- _obj - Int32 -> -- position - m () + a -- _obj + -> Int32 -- position + -> m () -- result comboBoxTextRemove _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_combo_box_text_remove _obj' position touchManagedPtr _obj return () +data ComboBoxTextRemoveMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextRemoveMethodInfo a signature where + overloadedMethod _ = comboBoxTextRemove + -- method ComboBoxText::remove_all -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -412,12 +819,16 @@ comboBoxTextRemoveAll :: (MonadIO m, ComboBoxTextK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result comboBoxTextRemoveAll _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_combo_box_text_remove_all _obj' touchManagedPtr _obj return () + +data ComboBoxTextRemoveAllMethodInfo +instance (signature ~ (m ()), MonadIO m, ComboBoxTextK a) => MethodInfo ComboBoxTextRemoveAllMethodInfo a signature where + overloadedMethod _ = comboBoxTextRemoveAll diff --git a/GI/Gtk/Objects/ComboBoxText.hs-boot b/GI/Gtk/Objects/ComboBoxText.hs-boot --- a/GI/Gtk/Objects/ComboBoxText.hs-boot +++ b/GI/Gtk/Objects/ComboBoxText.hs-boot @@ -11,3 +11,12 @@ instance GObject ComboBoxText where class GObject o => ComboBoxTextK o instance (GObject o, IsDescendantOf ComboBoxText o) => ComboBoxTextK o +data ComboBoxTextAppendMethodInfo +data ComboBoxTextAppendTextMethodInfo +data ComboBoxTextGetActiveTextMethodInfo +data ComboBoxTextInsertMethodInfo +data ComboBoxTextInsertTextMethodInfo +data ComboBoxTextPrependMethodInfo +data ComboBoxTextPrependTextMethodInfo +data ComboBoxTextRemoveMethodInfo +data ComboBoxTextRemoveAllMethodInfo diff --git a/GI/Gtk/Objects/Container.hs b/GI/Gtk/Objects/Container.hs --- a/GI/Gtk/Objects/Container.hs +++ b/GI/Gtk/Objects/Container.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,114 +18,142 @@ -- * Methods -- ** containerAdd + ContainerAddMethodInfo , containerAdd , -- ** containerCheckResize + ContainerCheckResizeMethodInfo , containerCheckResize , -- ** containerChildGetProperty + ContainerChildGetPropertyMethodInfo , containerChildGetProperty , -- ** containerChildNotify + ContainerChildNotifyMethodInfo , containerChildNotify , -- ** containerChildNotifyByPspec + ContainerChildNotifyByPspecMethodInfo , containerChildNotifyByPspec , -- ** containerChildSetProperty + ContainerChildSetPropertyMethodInfo , containerChildSetProperty , -- ** containerChildType + ContainerChildTypeMethodInfo , containerChildType , -- ** containerForall + ContainerForallMethodInfo , containerForall , -- ** containerForeach + ContainerForeachMethodInfo , containerForeach , -- ** containerGetBorderWidth + ContainerGetBorderWidthMethodInfo , containerGetBorderWidth , -- ** containerGetChildren + ContainerGetChildrenMethodInfo , containerGetChildren , -- ** containerGetFocusChain + ContainerGetFocusChainMethodInfo , containerGetFocusChain , -- ** containerGetFocusChild + ContainerGetFocusChildMethodInfo , containerGetFocusChild , -- ** containerGetFocusHadjustment + ContainerGetFocusHadjustmentMethodInfo , containerGetFocusHadjustment , -- ** containerGetFocusVadjustment + ContainerGetFocusVadjustmentMethodInfo , containerGetFocusVadjustment , -- ** containerGetPathForChild + ContainerGetPathForChildMethodInfo , containerGetPathForChild , -- ** containerGetResizeMode + ContainerGetResizeModeMethodInfo , containerGetResizeMode , -- ** containerPropagateDraw + ContainerPropagateDrawMethodInfo , containerPropagateDraw , -- ** containerRemove + ContainerRemoveMethodInfo , containerRemove , -- ** containerResizeChildren + ContainerResizeChildrenMethodInfo , containerResizeChildren , -- ** containerSetBorderWidth + ContainerSetBorderWidthMethodInfo , containerSetBorderWidth , -- ** containerSetFocusChain + ContainerSetFocusChainMethodInfo , containerSetFocusChain , -- ** containerSetFocusChild + ContainerSetFocusChildMethodInfo , containerSetFocusChild , -- ** containerSetFocusHadjustment + ContainerSetFocusHadjustmentMethodInfo , containerSetFocusHadjustment , -- ** containerSetFocusVadjustment + ContainerSetFocusVadjustmentMethodInfo , containerSetFocusVadjustment , -- ** containerSetReallocateRedraws + ContainerSetReallocateRedrawsMethodInfo , containerSetReallocateRedraws , -- ** containerSetResizeMode + ContainerSetResizeModeMethodInfo , containerSetResizeMode , -- ** containerUnsetFocusChain + ContainerUnsetFocusChainMethodInfo , containerUnsetFocusChain , @@ -240,6 +269,328 @@ noContainer :: Maybe Container noContainer = Nothing +type family ResolveContainerMethod (t :: Symbol) (o :: *) :: * where + ResolveContainerMethod "activate" o = WidgetActivateMethodInfo + ResolveContainerMethod "add" o = ContainerAddMethodInfo + ResolveContainerMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveContainerMethod "addChild" o = BuildableAddChildMethodInfo + ResolveContainerMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveContainerMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveContainerMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveContainerMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveContainerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveContainerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveContainerMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveContainerMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveContainerMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveContainerMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveContainerMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveContainerMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveContainerMethod "childType" o = ContainerChildTypeMethodInfo + ResolveContainerMethod "classPath" o = WidgetClassPathMethodInfo + ResolveContainerMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveContainerMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveContainerMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveContainerMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveContainerMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveContainerMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveContainerMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveContainerMethod "destroy" o = WidgetDestroyMethodInfo + ResolveContainerMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveContainerMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveContainerMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveContainerMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveContainerMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveContainerMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveContainerMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveContainerMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveContainerMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveContainerMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveContainerMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveContainerMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveContainerMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveContainerMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveContainerMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveContainerMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveContainerMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveContainerMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveContainerMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveContainerMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveContainerMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveContainerMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveContainerMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveContainerMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveContainerMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveContainerMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveContainerMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveContainerMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveContainerMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveContainerMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveContainerMethod "draw" o = WidgetDrawMethodInfo + ResolveContainerMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveContainerMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveContainerMethod "event" o = WidgetEventMethodInfo + ResolveContainerMethod "forall" o = ContainerForallMethodInfo + ResolveContainerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveContainerMethod "foreach" o = ContainerForeachMethodInfo + ResolveContainerMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveContainerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveContainerMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveContainerMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveContainerMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveContainerMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveContainerMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveContainerMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveContainerMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveContainerMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveContainerMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveContainerMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveContainerMethod "hide" o = WidgetHideMethodInfo + ResolveContainerMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveContainerMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveContainerMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveContainerMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveContainerMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveContainerMethod "intersect" o = WidgetIntersectMethodInfo + ResolveContainerMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveContainerMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveContainerMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveContainerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveContainerMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveContainerMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveContainerMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveContainerMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveContainerMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveContainerMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveContainerMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveContainerMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveContainerMethod "map" o = WidgetMapMethodInfo + ResolveContainerMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveContainerMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveContainerMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveContainerMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveContainerMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveContainerMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveContainerMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveContainerMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveContainerMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveContainerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveContainerMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveContainerMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveContainerMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveContainerMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveContainerMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveContainerMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveContainerMethod "path" o = WidgetPathMethodInfo + ResolveContainerMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveContainerMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveContainerMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveContainerMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveContainerMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveContainerMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveContainerMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveContainerMethod "realize" o = WidgetRealizeMethodInfo + ResolveContainerMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveContainerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveContainerMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveContainerMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveContainerMethod "remove" o = ContainerRemoveMethodInfo + ResolveContainerMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveContainerMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveContainerMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveContainerMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveContainerMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveContainerMethod "reparent" o = WidgetReparentMethodInfo + ResolveContainerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveContainerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveContainerMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveContainerMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveContainerMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveContainerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveContainerMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveContainerMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveContainerMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveContainerMethod "show" o = WidgetShowMethodInfo + ResolveContainerMethod "showAll" o = WidgetShowAllMethodInfo + ResolveContainerMethod "showNow" o = WidgetShowNowMethodInfo + ResolveContainerMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveContainerMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveContainerMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveContainerMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveContainerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveContainerMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveContainerMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveContainerMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveContainerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveContainerMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveContainerMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveContainerMethod "unmap" o = WidgetUnmapMethodInfo + ResolveContainerMethod "unparent" o = WidgetUnparentMethodInfo + ResolveContainerMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveContainerMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveContainerMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveContainerMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveContainerMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveContainerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveContainerMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveContainerMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveContainerMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveContainerMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveContainerMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveContainerMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveContainerMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveContainerMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveContainerMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveContainerMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveContainerMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveContainerMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveContainerMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveContainerMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveContainerMethod "getClip" o = WidgetGetClipMethodInfo + ResolveContainerMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveContainerMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveContainerMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveContainerMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveContainerMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveContainerMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveContainerMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveContainerMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveContainerMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveContainerMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveContainerMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveContainerMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveContainerMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveContainerMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveContainerMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveContainerMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveContainerMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveContainerMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveContainerMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveContainerMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveContainerMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveContainerMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveContainerMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveContainerMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveContainerMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveContainerMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveContainerMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveContainerMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveContainerMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveContainerMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveContainerMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveContainerMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveContainerMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveContainerMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveContainerMethod "getParent" o = WidgetGetParentMethodInfo + ResolveContainerMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveContainerMethod "getPath" o = WidgetGetPathMethodInfo + ResolveContainerMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveContainerMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveContainerMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveContainerMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveContainerMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveContainerMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveContainerMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveContainerMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveContainerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveContainerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveContainerMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveContainerMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveContainerMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveContainerMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveContainerMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveContainerMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveContainerMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveContainerMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveContainerMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveContainerMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveContainerMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveContainerMethod "getState" o = WidgetGetStateMethodInfo + ResolveContainerMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveContainerMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveContainerMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveContainerMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveContainerMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveContainerMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveContainerMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveContainerMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveContainerMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveContainerMethod "getValign" o = WidgetGetValignMethodInfo + ResolveContainerMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveContainerMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveContainerMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveContainerMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveContainerMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveContainerMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveContainerMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveContainerMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveContainerMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveContainerMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveContainerMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveContainerMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveContainerMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveContainerMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveContainerMethod "setClip" o = WidgetSetClipMethodInfo + ResolveContainerMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveContainerMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveContainerMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveContainerMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveContainerMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveContainerMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveContainerMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveContainerMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveContainerMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveContainerMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveContainerMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveContainerMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveContainerMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveContainerMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveContainerMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveContainerMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveContainerMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveContainerMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveContainerMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveContainerMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveContainerMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveContainerMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveContainerMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveContainerMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveContainerMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveContainerMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveContainerMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveContainerMethod "setParent" o = WidgetSetParentMethodInfo + ResolveContainerMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveContainerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveContainerMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveContainerMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveContainerMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveContainerMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveContainerMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveContainerMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveContainerMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveContainerMethod "setState" o = WidgetSetStateMethodInfo + ResolveContainerMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveContainerMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveContainerMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveContainerMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveContainerMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveContainerMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveContainerMethod "setValign" o = WidgetSetValignMethodInfo + ResolveContainerMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveContainerMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveContainerMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveContainerMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveContainerMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveContainerMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveContainerMethod t Container, MethodInfo info Container p) => IsLabelProxy t (Container -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveContainerMethod t Container, MethodInfo info Container p) => IsLabel t (Container -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Container::add type ContainerAddCallback = Widget -> @@ -423,7 +774,7 @@ type AttrSetTypeConstraint ContainerBorderWidthPropertyInfo = (~) Word32 type AttrBaseTypeConstraint ContainerBorderWidthPropertyInfo = ContainerK type AttrGetType ContainerBorderWidthPropertyInfo = Word32 - type AttrLabel ContainerBorderWidthPropertyInfo = "Container::border-width" + type AttrLabel ContainerBorderWidthPropertyInfo = "border-width" attrGet _ = getContainerBorderWidth attrSet _ = setContainerBorderWidth attrConstruct _ = constructContainerBorderWidth @@ -444,7 +795,7 @@ type AttrSetTypeConstraint ContainerChildPropertyInfo = WidgetK type AttrBaseTypeConstraint ContainerChildPropertyInfo = ContainerK type AttrGetType ContainerChildPropertyInfo = () - type AttrLabel ContainerChildPropertyInfo = "Container::child" + type AttrLabel ContainerChildPropertyInfo = "child" attrGet _ = undefined attrSet _ = setContainerChild attrConstruct _ = constructContainerChild @@ -468,13 +819,13 @@ type AttrSetTypeConstraint ContainerResizeModePropertyInfo = (~) ResizeMode type AttrBaseTypeConstraint ContainerResizeModePropertyInfo = ContainerK type AttrGetType ContainerResizeModePropertyInfo = ResizeMode - type AttrLabel ContainerResizeModePropertyInfo = "Container::resize-mode" + type AttrLabel ContainerResizeModePropertyInfo = "resize-mode" attrGet _ = getContainerResizeMode attrSet _ = setContainerResizeMode attrConstruct _ = constructContainerResizeMode type instance AttributeList Container = ContainerAttributeList -type ContainerAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ContainerAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data ContainerAddSignalInfo instance SignalInfo ContainerAddSignalInfo where @@ -497,13 +848,12 @@ connectSignal _ = connectContainerSetFocusChild type instance SignalList Container = ContainerSignalList -type ContainerSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ContainerSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Container::add -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -516,9 +866,9 @@ containerAdd :: (MonadIO m, ContainerK a, WidgetK b) => - a -> -- _obj - b -> -- widget - m () + a -- _obj + -> b -- widget + -> m () -- result containerAdd _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget @@ -527,11 +877,14 @@ touchManagedPtr widget return () +data ContainerAddMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerAddMethodInfo a signature where + overloadedMethod _ = containerAdd + -- method Container::check_resize -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -543,19 +896,22 @@ containerCheckResize :: (MonadIO m, ContainerK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result containerCheckResize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_container_check_resize _obj' touchManagedPtr _obj return () +data ContainerCheckResizeMethodInfo +instance (signature ~ (m ()), MonadIO m, ContainerK a) => MethodInfo ContainerCheckResizeMethodInfo a signature where + overloadedMethod _ = containerCheckResize + -- method Container::child_get_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -570,28 +926,31 @@ containerChildGetProperty :: (MonadIO m, ContainerK a, WidgetK b) => - a -> -- _obj - b -> -- child - T.Text -> -- property_name - GValue -> -- value - m () -containerChildGetProperty _obj child property_name value = liftIO $ do + a -- _obj + -> b -- child + -> T.Text -- propertyName + -> GValue -- value + -> m () -- result +containerChildGetProperty _obj child propertyName value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child - property_name' <- textToCString property_name + propertyName' <- textToCString propertyName let value' = unsafeManagedPtrGetPtr value - gtk_container_child_get_property _obj' child' property_name' value' + gtk_container_child_get_property _obj' child' propertyName' value' touchManagedPtr _obj touchManagedPtr child touchManagedPtr value - freeMem property_name' + freeMem propertyName' return () +data ContainerChildGetPropertyMethodInfo +instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerChildGetPropertyMethodInfo a signature where + overloadedMethod _ = containerChildGetProperty + -- method Container::child_notify -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -605,25 +964,28 @@ containerChildNotify :: (MonadIO m, ContainerK a, WidgetK b) => - a -> -- _obj - b -> -- child - T.Text -> -- child_property - m () -containerChildNotify _obj child child_property = liftIO $ do + a -- _obj + -> b -- child + -> T.Text -- childProperty + -> m () -- result +containerChildNotify _obj child childProperty = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child - child_property' <- textToCString child_property - gtk_container_child_notify _obj' child' child_property' + childProperty' <- textToCString childProperty + gtk_container_child_notify _obj' child' childProperty' touchManagedPtr _obj touchManagedPtr child - freeMem child_property' + freeMem childProperty' return () +data ContainerChildNotifyMethodInfo +instance (signature ~ (b -> T.Text -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerChildNotifyMethodInfo a signature where + overloadedMethod _ = containerChildNotify + -- method Container::child_notify_by_pspec -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -637,10 +999,10 @@ containerChildNotifyByPspec :: (MonadIO m, ContainerK a, WidgetK b) => - a -> -- _obj - b -> -- child - GParamSpec -> -- pspec - m () + a -- _obj + -> b -- child + -> GParamSpec -- pspec + -> m () -- result containerChildNotifyByPspec _obj child pspec = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -650,11 +1012,14 @@ touchManagedPtr child return () +data ContainerChildNotifyByPspecMethodInfo +instance (signature ~ (b -> GParamSpec -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerChildNotifyByPspecMethodInfo a signature where + overloadedMethod _ = containerChildNotifyByPspec + -- method Container::child_set_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -669,28 +1034,31 @@ containerChildSetProperty :: (MonadIO m, ContainerK a, WidgetK b) => - a -> -- _obj - b -> -- child - T.Text -> -- property_name - GValue -> -- value - m () -containerChildSetProperty _obj child property_name value = liftIO $ do + a -- _obj + -> b -- child + -> T.Text -- propertyName + -> GValue -- value + -> m () -- result +containerChildSetProperty _obj child propertyName value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child - property_name' <- textToCString property_name + propertyName' <- textToCString propertyName let value' = unsafeManagedPtrGetPtr value - gtk_container_child_set_property _obj' child' property_name' value' + gtk_container_child_set_property _obj' child' propertyName' value' touchManagedPtr _obj touchManagedPtr child touchManagedPtr value - freeMem property_name' + freeMem propertyName' return () +data ContainerChildSetPropertyMethodInfo +instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerChildSetPropertyMethodInfo a signature where + overloadedMethod _ = containerChildSetProperty + -- method Container::child_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -702,8 +1070,8 @@ containerChildType :: (MonadIO m, ContainerK a) => - a -> -- _obj - m GType + a -- _obj + -> m GType -- result containerChildType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_container_child_type _obj' @@ -711,11 +1079,14 @@ touchManagedPtr _obj return result' +data ContainerChildTypeMethodInfo +instance (signature ~ (m GType), MonadIO m, ContainerK a) => MethodInfo ContainerChildTypeMethodInfo a signature where + overloadedMethod _ = containerChildType + -- method Container::forall -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -729,23 +1100,26 @@ containerForall :: (MonadIO m, ContainerK a) => - a -> -- _obj - Callback -> -- callback - m () + a -- _obj + -> Callback -- callback + -> m () -- result containerForall _obj callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj callback' <- mkCallback (callbackWrapper Nothing callback) - let callback_data = nullPtr - gtk_container_forall _obj' callback' callback_data + let callbackData = nullPtr + gtk_container_forall _obj' callback' callbackData safeFreeFunPtr $ castFunPtrToPtr callback' touchManagedPtr _obj return () +data ContainerForallMethodInfo +instance (signature ~ (Callback -> m ()), MonadIO m, ContainerK a) => MethodInfo ContainerForallMethodInfo a signature where + overloadedMethod _ = containerForall + -- method Container::foreach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -759,23 +1133,26 @@ containerForeach :: (MonadIO m, ContainerK a) => - a -> -- _obj - Callback -> -- callback - m () + a -- _obj + -> Callback -- callback + -> m () -- result containerForeach _obj callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj callback' <- mkCallback (callbackWrapper Nothing callback) - let callback_data = nullPtr - gtk_container_foreach _obj' callback' callback_data + let callbackData = nullPtr + gtk_container_foreach _obj' callback' callbackData safeFreeFunPtr $ castFunPtrToPtr callback' touchManagedPtr _obj return () +data ContainerForeachMethodInfo +instance (signature ~ (Callback -> m ()), MonadIO m, ContainerK a) => MethodInfo ContainerForeachMethodInfo a signature where + overloadedMethod _ = containerForeach + -- method Container::get_border_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -787,19 +1164,22 @@ containerGetBorderWidth :: (MonadIO m, ContainerK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result containerGetBorderWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_container_get_border_width _obj' touchManagedPtr _obj return result +data ContainerGetBorderWidthMethodInfo +instance (signature ~ (m Word32), MonadIO m, ContainerK a) => MethodInfo ContainerGetBorderWidthMethodInfo a signature where + overloadedMethod _ = containerGetBorderWidth + -- method Container::get_children -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -811,8 +1191,8 @@ containerGetChildren :: (MonadIO m, ContainerK a) => - a -> -- _obj - m [Widget] + a -- _obj + -> m [Widget] -- result containerGetChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_container_get_children _obj' @@ -823,11 +1203,14 @@ touchManagedPtr _obj return result'' +data ContainerGetChildrenMethodInfo +instance (signature ~ (m [Widget]), MonadIO m, ContainerK a) => MethodInfo ContainerGetChildrenMethodInfo a signature where + overloadedMethod _ = containerGetChildren + -- method Container::get_focus_chain -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -840,26 +1223,29 @@ containerGetFocusChain :: (MonadIO m, ContainerK a) => - a -> -- _obj - m (Bool,[Widget]) + a -- _obj + -> m (Bool,[Widget]) -- result containerGetFocusChain _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - focusable_widgets <- allocMem :: IO (Ptr (Ptr (GList (Ptr Widget)))) - result <- gtk_container_get_focus_chain _obj' focusable_widgets + focusableWidgets <- allocMem :: IO (Ptr (Ptr (GList (Ptr Widget)))) + result <- gtk_container_get_focus_chain _obj' focusableWidgets let result' = (/= 0) result - focusable_widgets' <- peek focusable_widgets - focusable_widgets'' <- unpackGList focusable_widgets' - focusable_widgets''' <- mapM (newObject Widget) focusable_widgets'' - g_list_free focusable_widgets' + focusableWidgets' <- peek focusableWidgets + focusableWidgets'' <- unpackGList focusableWidgets' + focusableWidgets''' <- mapM (newObject Widget) focusableWidgets'' + g_list_free focusableWidgets' touchManagedPtr _obj - freeMem focusable_widgets - return (result', focusable_widgets''') + freeMem focusableWidgets + return (result', focusableWidgets''') +data ContainerGetFocusChainMethodInfo +instance (signature ~ (m (Bool,[Widget])), MonadIO m, ContainerK a) => MethodInfo ContainerGetFocusChainMethodInfo a signature where + overloadedMethod _ = containerGetFocusChain + -- method Container::get_focus_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -871,8 +1257,8 @@ containerGetFocusChild :: (MonadIO m, ContainerK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result containerGetFocusChild _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_container_get_focus_child _obj' @@ -881,11 +1267,14 @@ touchManagedPtr _obj return result' +data ContainerGetFocusChildMethodInfo +instance (signature ~ (m Widget), MonadIO m, ContainerK a) => MethodInfo ContainerGetFocusChildMethodInfo a signature where + overloadedMethod _ = containerGetFocusChild + -- method Container::get_focus_hadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -897,8 +1286,8 @@ containerGetFocusHadjustment :: (MonadIO m, ContainerK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result containerGetFocusHadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_container_get_focus_hadjustment _obj' @@ -907,11 +1296,14 @@ touchManagedPtr _obj return result' +data ContainerGetFocusHadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, ContainerK a) => MethodInfo ContainerGetFocusHadjustmentMethodInfo a signature where + overloadedMethod _ = containerGetFocusHadjustment + -- method Container::get_focus_vadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -923,8 +1315,8 @@ containerGetFocusVadjustment :: (MonadIO m, ContainerK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result containerGetFocusVadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_container_get_focus_vadjustment _obj' @@ -933,11 +1325,14 @@ touchManagedPtr _obj return result' +data ContainerGetFocusVadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, ContainerK a) => MethodInfo ContainerGetFocusVadjustmentMethodInfo a signature where + overloadedMethod _ = containerGetFocusVadjustment + -- method Container::get_path_for_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "WidgetPath" -- throws : False -- Skip return : False @@ -950,9 +1345,9 @@ containerGetPathForChild :: (MonadIO m, ContainerK a, WidgetK b) => - a -> -- _obj - b -> -- child - m WidgetPath + a -- _obj + -> b -- child + -> m WidgetPath -- result containerGetPathForChild _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -963,11 +1358,14 @@ touchManagedPtr child return result' +data ContainerGetPathForChildMethodInfo +instance (signature ~ (b -> m WidgetPath), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerGetPathForChildMethodInfo a signature where + overloadedMethod _ = containerGetPathForChild + -- method Container::get_resize_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ResizeMode" -- throws : False -- Skip return : False @@ -979,8 +1377,8 @@ {-# DEPRECATED containerGetResizeMode ["(Since version 3.12)","Resize modes are deprecated. They aren\8217t necessary"," anymore since frame clocks and might introduce obscure bugs if"," used."]#-} containerGetResizeMode :: (MonadIO m, ContainerK a) => - a -> -- _obj - m ResizeMode + a -- _obj + -> m ResizeMode -- result containerGetResizeMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_container_get_resize_mode _obj' @@ -988,11 +1386,14 @@ touchManagedPtr _obj return result' +data ContainerGetResizeModeMethodInfo +instance (signature ~ (m ResizeMode), MonadIO m, ContainerK a) => MethodInfo ContainerGetResizeModeMethodInfo a signature where + overloadedMethod _ = containerGetResizeMode + -- method Container::propagate_draw -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1006,10 +1407,10 @@ containerPropagateDraw :: (MonadIO m, ContainerK a, WidgetK b) => - a -> -- _obj - b -> -- child - Cairo.Context -> -- cr - m () + a -- _obj + -> b -- child + -> Cairo.Context -- cr + -> m () -- result containerPropagateDraw _obj child cr = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -1020,11 +1421,14 @@ touchManagedPtr cr return () +data ContainerPropagateDrawMethodInfo +instance (signature ~ (b -> Cairo.Context -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerPropagateDrawMethodInfo a signature where + overloadedMethod _ = containerPropagateDraw + -- method Container::remove -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1037,9 +1441,9 @@ containerRemove :: (MonadIO m, ContainerK a, WidgetK b) => - a -> -- _obj - b -> -- widget - m () + a -- _obj + -> b -- widget + -> m () -- result containerRemove _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget @@ -1048,11 +1452,14 @@ touchManagedPtr widget return () +data ContainerRemoveMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerRemoveMethodInfo a signature where + overloadedMethod _ = containerRemove + -- method Container::resize_children -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1064,19 +1471,22 @@ {-# DEPRECATED containerResizeChildren ["(Since version 3.10)"]#-} containerResizeChildren :: (MonadIO m, ContainerK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result containerResizeChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_container_resize_children _obj' touchManagedPtr _obj return () +data ContainerResizeChildrenMethodInfo +instance (signature ~ (m ()), MonadIO m, ContainerK a) => MethodInfo ContainerResizeChildrenMethodInfo a signature where + overloadedMethod _ = containerResizeChildren + -- method Container::set_border_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border_width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border_width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1089,20 +1499,23 @@ containerSetBorderWidth :: (MonadIO m, ContainerK a) => - a -> -- _obj - Word32 -> -- border_width - m () -containerSetBorderWidth _obj border_width = liftIO $ do + a -- _obj + -> Word32 -- borderWidth + -> m () -- result +containerSetBorderWidth _obj borderWidth = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_container_set_border_width _obj' border_width + gtk_container_set_border_width _obj' borderWidth touchManagedPtr _obj return () +data ContainerSetBorderWidthMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, ContainerK a) => MethodInfo ContainerSetBorderWidthMethodInfo a signature where + overloadedMethod _ = containerSetBorderWidth + -- method Container::set_focus_chain -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1115,24 +1528,27 @@ containerSetFocusChain :: (MonadIO m, ContainerK a, WidgetK b) => - a -> -- _obj - [b] -> -- focusable_widgets - m () -containerSetFocusChain _obj focusable_widgets = liftIO $ do + a -- _obj + -> [b] -- focusableWidgets + -> m () -- result +containerSetFocusChain _obj focusableWidgets = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let focusable_widgets' = map unsafeManagedPtrCastPtr focusable_widgets - focusable_widgets'' <- packGList focusable_widgets' - gtk_container_set_focus_chain _obj' focusable_widgets'' + let focusableWidgets' = map unsafeManagedPtrCastPtr focusableWidgets + focusableWidgets'' <- packGList focusableWidgets' + gtk_container_set_focus_chain _obj' focusableWidgets'' touchManagedPtr _obj - mapM_ touchManagedPtr focusable_widgets - g_list_free focusable_widgets'' + mapM_ touchManagedPtr focusableWidgets + g_list_free focusableWidgets'' return () +data ContainerSetFocusChainMethodInfo +instance (signature ~ ([b] -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerSetFocusChainMethodInfo a signature where + overloadedMethod _ = containerSetFocusChain + -- method Container::set_focus_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1145,9 +1561,9 @@ containerSetFocusChild :: (MonadIO m, ContainerK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- child - m () + a -- _obj + -> Maybe (b) -- child + -> m () -- result containerSetFocusChild _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeChild <- case child of @@ -1160,11 +1576,14 @@ whenJust child touchManagedPtr return () +data ContainerSetFocusChildMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ContainerK a, WidgetK b) => MethodInfo ContainerSetFocusChildMethodInfo a signature where + overloadedMethod _ = containerSetFocusChild + -- method Container::set_focus_hadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1177,9 +1596,9 @@ containerSetFocusHadjustment :: (MonadIO m, ContainerK a, AdjustmentK b) => - a -> -- _obj - b -> -- adjustment - m () + a -- _obj + -> b -- adjustment + -> m () -- result containerSetFocusHadjustment _obj adjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let adjustment' = unsafeManagedPtrCastPtr adjustment @@ -1188,11 +1607,14 @@ touchManagedPtr adjustment return () +data ContainerSetFocusHadjustmentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ContainerK a, AdjustmentK b) => MethodInfo ContainerSetFocusHadjustmentMethodInfo a signature where + overloadedMethod _ = containerSetFocusHadjustment + -- method Container::set_focus_vadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1205,9 +1627,9 @@ containerSetFocusVadjustment :: (MonadIO m, ContainerK a, AdjustmentK b) => - a -> -- _obj - b -> -- adjustment - m () + a -- _obj + -> b -- adjustment + -> m () -- result containerSetFocusVadjustment _obj adjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let adjustment' = unsafeManagedPtrCastPtr adjustment @@ -1216,11 +1638,14 @@ touchManagedPtr adjustment return () +data ContainerSetFocusVadjustmentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ContainerK a, AdjustmentK b) => MethodInfo ContainerSetFocusVadjustmentMethodInfo a signature where + overloadedMethod _ = containerSetFocusVadjustment + -- method Container::set_reallocate_redraws -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needs_redraws", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needs_redraws", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needs_redraws", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1233,21 +1658,24 @@ {-# DEPRECATED containerSetReallocateRedraws ["(Since version 3.14)","Call gtk_widget_queue_draw() in your size_allocate handler."]#-} containerSetReallocateRedraws :: (MonadIO m, ContainerK a) => - a -> -- _obj - Bool -> -- needs_redraws - m () -containerSetReallocateRedraws _obj needs_redraws = liftIO $ do + a -- _obj + -> Bool -- needsRedraws + -> m () -- result +containerSetReallocateRedraws _obj needsRedraws = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let needs_redraws' = (fromIntegral . fromEnum) needs_redraws - gtk_container_set_reallocate_redraws _obj' needs_redraws' + let needsRedraws' = (fromIntegral . fromEnum) needsRedraws + gtk_container_set_reallocate_redraws _obj' needsRedraws' touchManagedPtr _obj return () +data ContainerSetReallocateRedrawsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ContainerK a) => MethodInfo ContainerSetReallocateRedrawsMethodInfo a signature where + overloadedMethod _ = containerSetReallocateRedraws + -- method Container::set_resize_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize_mode", argType = TInterface "Gtk" "ResizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize_mode", argType = TInterface "Gtk" "ResizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize_mode", argType = TInterface "Gtk" "ResizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1260,21 +1688,24 @@ {-# DEPRECATED containerSetResizeMode ["(Since version 3.12)","Resize modes are deprecated. They aren\8217t necessary"," anymore since frame clocks and might introduce obscure bugs if"," used."]#-} containerSetResizeMode :: (MonadIO m, ContainerK a) => - a -> -- _obj - ResizeMode -> -- resize_mode - m () -containerSetResizeMode _obj resize_mode = liftIO $ do + a -- _obj + -> ResizeMode -- resizeMode + -> m () -- result +containerSetResizeMode _obj resizeMode = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let resize_mode' = (fromIntegral . fromEnum) resize_mode - gtk_container_set_resize_mode _obj' resize_mode' + let resizeMode' = (fromIntegral . fromEnum) resizeMode + gtk_container_set_resize_mode _obj' resizeMode' touchManagedPtr _obj return () +data ContainerSetResizeModeMethodInfo +instance (signature ~ (ResizeMode -> m ()), MonadIO m, ContainerK a) => MethodInfo ContainerSetResizeModeMethodInfo a signature where + overloadedMethod _ = containerSetResizeMode + -- method Container::unset_focus_chain -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1286,12 +1717,16 @@ containerUnsetFocusChain :: (MonadIO m, ContainerK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result containerUnsetFocusChain _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_container_unset_focus_chain _obj' touchManagedPtr _obj return () + +data ContainerUnsetFocusChainMethodInfo +instance (signature ~ (m ()), MonadIO m, ContainerK a) => MethodInfo ContainerUnsetFocusChainMethodInfo a signature where + overloadedMethod _ = containerUnsetFocusChain diff --git a/GI/Gtk/Objects/Container.hs-boot b/GI/Gtk/Objects/Container.hs-boot --- a/GI/Gtk/Objects/Container.hs-boot +++ b/GI/Gtk/Objects/Container.hs-boot @@ -18,3 +18,31 @@ data ContainerCheckResizeSignalInfo data ContainerRemoveSignalInfo data ContainerSetFocusChildSignalInfo +data ContainerAddMethodInfo +data ContainerCheckResizeMethodInfo +data ContainerChildGetPropertyMethodInfo +data ContainerChildNotifyMethodInfo +data ContainerChildNotifyByPspecMethodInfo +data ContainerChildSetPropertyMethodInfo +data ContainerChildTypeMethodInfo +data ContainerForallMethodInfo +data ContainerForeachMethodInfo +data ContainerGetBorderWidthMethodInfo +data ContainerGetChildrenMethodInfo +data ContainerGetFocusChainMethodInfo +data ContainerGetFocusChildMethodInfo +data ContainerGetFocusHadjustmentMethodInfo +data ContainerGetFocusVadjustmentMethodInfo +data ContainerGetPathForChildMethodInfo +data ContainerGetResizeModeMethodInfo +data ContainerPropagateDrawMethodInfo +data ContainerRemoveMethodInfo +data ContainerResizeChildrenMethodInfo +data ContainerSetBorderWidthMethodInfo +data ContainerSetFocusChainMethodInfo +data ContainerSetFocusChildMethodInfo +data ContainerSetFocusHadjustmentMethodInfo +data ContainerSetFocusVadjustmentMethodInfo +data ContainerSetReallocateRedrawsMethodInfo +data ContainerSetResizeModeMethodInfo +data ContainerUnsetFocusChainMethodInfo diff --git a/GI/Gtk/Objects/ContainerAccessible.hs b/GI/Gtk/Objects/ContainerAccessible.hs --- a/GI/Gtk/Objects/ContainerAccessible.hs +++ b/GI/Gtk/Objects/ContainerAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,78 @@ noContainerAccessible :: Maybe ContainerAccessible noContainerAccessible = Nothing +type family ResolveContainerAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveContainerAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveContainerAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveContainerAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveContainerAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveContainerAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveContainerAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveContainerAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveContainerAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveContainerAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveContainerAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveContainerAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveContainerAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveContainerAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveContainerAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveContainerAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveContainerAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveContainerAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveContainerAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveContainerAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveContainerAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveContainerAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveContainerAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveContainerAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveContainerAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveContainerAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveContainerAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveContainerAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveContainerAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveContainerAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveContainerAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveContainerAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveContainerAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveContainerAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveContainerAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveContainerAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveContainerAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveContainerAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveContainerAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveContainerAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveContainerAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveContainerAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveContainerAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveContainerAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveContainerAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveContainerAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveContainerAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveContainerAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveContainerAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveContainerAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveContainerAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveContainerAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveContainerAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveContainerAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveContainerAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveContainerAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveContainerAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveContainerAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveContainerAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveContainerAccessibleMethod t ContainerAccessible, MethodInfo info ContainerAccessible p) => IsLabelProxy t (ContainerAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveContainerAccessibleMethod t ContainerAccessible, MethodInfo info ContainerAccessible p) => IsLabel t (ContainerAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ContainerAccessible = ContainerAccessibleAttributeList -type ContainerAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ContainerAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ContainerAccessible = ContainerAccessibleSignalList -type ContainerAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ContainerAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/ContainerCellAccessible.hs b/GI/Gtk/Objects/ContainerCellAccessible.hs --- a/GI/Gtk/Objects/ContainerCellAccessible.hs +++ b/GI/Gtk/Objects/ContainerCellAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** containerCellAccessibleAddChild + ContainerCellAccessibleAddChildMethodInfo, containerCellAccessibleAddChild , -- ** containerCellAccessibleGetChildren + ContainerCellAccessibleGetChildrenMethodInfo, containerCellAccessibleGetChildren , @@ -29,6 +32,7 @@ -- ** containerCellAccessibleRemoveChild + ContainerCellAccessibleRemoveChildMethodInfo, containerCellAccessibleRemoveChild , @@ -69,17 +73,88 @@ noContainerCellAccessible :: Maybe ContainerCellAccessible noContainerCellAccessible = Nothing +type family ResolveContainerCellAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveContainerCellAccessibleMethod "addChild" o = ContainerCellAccessibleAddChildMethodInfo + ResolveContainerCellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveContainerCellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveContainerCellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveContainerCellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveContainerCellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveContainerCellAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveContainerCellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveContainerCellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveContainerCellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveContainerCellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveContainerCellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveContainerCellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveContainerCellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveContainerCellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveContainerCellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveContainerCellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveContainerCellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveContainerCellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveContainerCellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveContainerCellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveContainerCellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveContainerCellAccessibleMethod "removeChild" o = ContainerCellAccessibleRemoveChildMethodInfo + ResolveContainerCellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveContainerCellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveContainerCellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveContainerCellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveContainerCellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveContainerCellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveContainerCellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveContainerCellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveContainerCellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveContainerCellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveContainerCellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveContainerCellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveContainerCellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveContainerCellAccessibleMethod "getChildren" o = ContainerCellAccessibleGetChildrenMethodInfo + ResolveContainerCellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveContainerCellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveContainerCellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveContainerCellAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveContainerCellAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveContainerCellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveContainerCellAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveContainerCellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveContainerCellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveContainerCellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveContainerCellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveContainerCellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveContainerCellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveContainerCellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveContainerCellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveContainerCellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveContainerCellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveContainerCellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveContainerCellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveContainerCellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveContainerCellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveContainerCellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveContainerCellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveContainerCellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveContainerCellAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveContainerCellAccessibleMethod t ContainerCellAccessible, MethodInfo info ContainerCellAccessible p) => IsLabelProxy t (ContainerCellAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveContainerCellAccessibleMethod t ContainerCellAccessible, MethodInfo info ContainerCellAccessible p) => IsLabel t (ContainerCellAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ContainerCellAccessible = ContainerCellAccessibleAttributeList -type ContainerCellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ContainerCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ContainerCellAccessible = ContainerCellAccessibleSignalList -type ContainerCellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ContainerCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) -- method ContainerCellAccessible::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ContainerCellAccessible" -- throws : False -- Skip return : False @@ -90,7 +165,7 @@ containerCellAccessibleNew :: (MonadIO m) => - m ContainerCellAccessible + m ContainerCellAccessible -- result containerCellAccessibleNew = liftIO $ do result <- gtk_container_cell_accessible_new checkUnexpectedReturnNULL "gtk_container_cell_accessible_new" result @@ -99,9 +174,8 @@ -- method ContainerCellAccessible::add_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -114,9 +188,9 @@ containerCellAccessibleAddChild :: (MonadIO m, ContainerCellAccessibleK a, CellAccessibleK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result containerCellAccessibleAddChild _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -125,11 +199,14 @@ touchManagedPtr child return () +data ContainerCellAccessibleAddChildMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ContainerCellAccessibleK a, CellAccessibleK b) => MethodInfo ContainerCellAccessibleAddChildMethodInfo a signature where + overloadedMethod _ = containerCellAccessibleAddChild + -- method ContainerCellAccessible::get_children -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "CellAccessible") -- throws : False -- Skip return : False @@ -141,8 +218,8 @@ containerCellAccessibleGetChildren :: (MonadIO m, ContainerCellAccessibleK a) => - a -> -- _obj - m [CellAccessible] + a -- _obj + -> m [CellAccessible] -- result containerCellAccessibleGetChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_container_cell_accessible_get_children _obj' @@ -152,11 +229,14 @@ touchManagedPtr _obj return result'' +data ContainerCellAccessibleGetChildrenMethodInfo +instance (signature ~ (m [CellAccessible]), MonadIO m, ContainerCellAccessibleK a) => MethodInfo ContainerCellAccessibleGetChildrenMethodInfo a signature where + overloadedMethod _ = containerCellAccessibleGetChildren + -- method ContainerCellAccessible::remove_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -169,9 +249,9 @@ containerCellAccessibleRemoveChild :: (MonadIO m, ContainerCellAccessibleK a, CellAccessibleK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result containerCellAccessibleRemoveChild _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -179,5 +259,9 @@ touchManagedPtr _obj touchManagedPtr child return () + +data ContainerCellAccessibleRemoveChildMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ContainerCellAccessibleK a, CellAccessibleK b) => MethodInfo ContainerCellAccessibleRemoveChildMethodInfo a signature where + overloadedMethod _ = containerCellAccessibleRemoveChild diff --git a/GI/Gtk/Objects/ContainerCellAccessible.hs-boot b/GI/Gtk/Objects/ContainerCellAccessible.hs-boot --- a/GI/Gtk/Objects/ContainerCellAccessible.hs-boot +++ b/GI/Gtk/Objects/ContainerCellAccessible.hs-boot @@ -11,3 +11,6 @@ instance GObject ContainerCellAccessible where class GObject o => ContainerCellAccessibleK o instance (GObject o, IsDescendantOf ContainerCellAccessible o) => ContainerCellAccessibleK o +data ContainerCellAccessibleAddChildMethodInfo +data ContainerCellAccessibleGetChildrenMethodInfo +data ContainerCellAccessibleRemoveChildMethodInfo diff --git a/GI/Gtk/Objects/CssProvider.hs b/GI/Gtk/Objects/CssProvider.hs --- a/GI/Gtk/Objects/CssProvider.hs +++ b/GI/Gtk/Objects/CssProvider.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -25,18 +26,22 @@ -- ** cssProviderLoadFromData + CssProviderLoadFromDataMethodInfo , cssProviderLoadFromData , -- ** cssProviderLoadFromFile + CssProviderLoadFromFileMethodInfo , cssProviderLoadFromFile , -- ** cssProviderLoadFromPath + CssProviderLoadFromPathMethodInfo , cssProviderLoadFromPath , -- ** cssProviderLoadFromResource + CssProviderLoadFromResourceMethodInfo , cssProviderLoadFromResource , @@ -45,6 +50,7 @@ -- ** cssProviderToString + CssProviderToStringMethodInfo , cssProviderToString , @@ -100,6 +106,47 @@ noCssProvider :: Maybe CssProvider noCssProvider = Nothing +type family ResolveCssProviderMethod (t :: Symbol) (o :: *) :: * where + ResolveCssProviderMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveCssProviderMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveCssProviderMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveCssProviderMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveCssProviderMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveCssProviderMethod "loadFromData" o = CssProviderLoadFromDataMethodInfo + ResolveCssProviderMethod "loadFromFile" o = CssProviderLoadFromFileMethodInfo + ResolveCssProviderMethod "loadFromPath" o = CssProviderLoadFromPathMethodInfo + ResolveCssProviderMethod "loadFromResource" o = CssProviderLoadFromResourceMethodInfo + ResolveCssProviderMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveCssProviderMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveCssProviderMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveCssProviderMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveCssProviderMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveCssProviderMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveCssProviderMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveCssProviderMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveCssProviderMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveCssProviderMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveCssProviderMethod "toString" o = CssProviderToStringMethodInfo + ResolveCssProviderMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveCssProviderMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveCssProviderMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveCssProviderMethod "getIconFactory" o = StyleProviderGetIconFactoryMethodInfo + ResolveCssProviderMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveCssProviderMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveCssProviderMethod "getStyle" o = StyleProviderGetStyleMethodInfo + ResolveCssProviderMethod "getStyleProperty" o = StyleProviderGetStylePropertyMethodInfo + ResolveCssProviderMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveCssProviderMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveCssProviderMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCssProviderMethod t CssProvider, MethodInfo info CssProvider p) => IsLabelProxy t (CssProvider -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCssProviderMethod t CssProvider, MethodInfo info CssProvider p) => IsLabel t (CssProvider -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal CssProvider::parsing-error type CssProviderParsingErrorCallback = CssSection -> @@ -155,13 +202,12 @@ connectSignal _ = connectCssProviderParsingError type instance SignalList CssProvider = CssProviderSignalList -type CssProviderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("parsing-error", CssProviderParsingErrorSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CssProviderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("parsingError", CssProviderParsingErrorSignalInfo)] :: [(Symbol, *)]) -- method CssProvider::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CssProvider" -- throws : False -- Skip return : False @@ -172,7 +218,7 @@ cssProviderNew :: (MonadIO m) => - m CssProvider + m CssProvider -- result cssProviderNew = liftIO $ do result <- gtk_css_provider_new checkUnexpectedReturnNULL "gtk_css_provider_new" result @@ -181,9 +227,8 @@ -- method CssProvider::load_from_data -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -198,9 +243,9 @@ cssProviderLoadFromData :: (MonadIO m, CssProviderK a) => - a -> -- _obj - ByteString -> -- data - m () + a -- _obj + -> ByteString -- data_ + -> m () -- result cssProviderLoadFromData _obj data_ = liftIO $ do let length_ = fromIntegral $ B.length data_ let _obj' = unsafeManagedPtrCastPtr _obj @@ -214,11 +259,14 @@ freeMem data_' ) +data CssProviderLoadFromDataMethodInfo +instance (signature ~ (ByteString -> m ()), MonadIO m, CssProviderK a) => MethodInfo CssProviderLoadFromDataMethodInfo a signature where + overloadedMethod _ = cssProviderLoadFromData + -- method CssProvider::load_from_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -232,9 +280,9 @@ cssProviderLoadFromFile :: (MonadIO m, CssProviderK a, Gio.FileK b) => - a -> -- _obj - b -> -- file - m () + a -- _obj + -> b -- file + -> m () -- result cssProviderLoadFromFile _obj file = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let file' = unsafeManagedPtrCastPtr file @@ -247,11 +295,14 @@ return () ) +data CssProviderLoadFromFileMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, CssProviderK a, Gio.FileK b) => MethodInfo CssProviderLoadFromFileMethodInfo a signature where + overloadedMethod _ = cssProviderLoadFromFile + -- method CssProvider::load_from_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -265,9 +316,9 @@ cssProviderLoadFromPath :: (MonadIO m, CssProviderK a) => - a -> -- _obj - T.Text -> -- path - m () + a -- _obj + -> T.Text -- path + -> m () -- result cssProviderLoadFromPath _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path' <- textToCString path @@ -280,11 +331,14 @@ freeMem path' ) +data CssProviderLoadFromPathMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, CssProviderK a) => MethodInfo CssProviderLoadFromPathMethodInfo a signature where + overloadedMethod _ = cssProviderLoadFromPath + -- method CssProvider::load_from_resource -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -297,22 +351,25 @@ cssProviderLoadFromResource :: (MonadIO m, CssProviderK a) => - a -> -- _obj - T.Text -> -- resource_path - m () -cssProviderLoadFromResource _obj resource_path = liftIO $ do + a -- _obj + -> T.Text -- resourcePath + -> m () -- result +cssProviderLoadFromResource _obj resourcePath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - resource_path' <- textToCString resource_path - gtk_css_provider_load_from_resource _obj' resource_path' + resourcePath' <- textToCString resourcePath + gtk_css_provider_load_from_resource _obj' resourcePath' touchManagedPtr _obj - freeMem resource_path' + freeMem resourcePath' return () +data CssProviderLoadFromResourceMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, CssProviderK a) => MethodInfo CssProviderLoadFromResourceMethodInfo a signature where + overloadedMethod _ = cssProviderLoadFromResource + -- method CssProvider::to_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -324,8 +381,8 @@ cssProviderToString :: (MonadIO m, CssProviderK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result cssProviderToString _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_css_provider_to_string _obj' @@ -335,11 +392,14 @@ touchManagedPtr _obj return result' +data CssProviderToStringMethodInfo +instance (signature ~ (m T.Text), MonadIO m, CssProviderK a) => MethodInfo CssProviderToStringMethodInfo a signature where + overloadedMethod _ = cssProviderToString + -- method CssProvider::get_default -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "CssProvider" -- throws : False -- Skip return : False @@ -350,7 +410,7 @@ cssProviderGetDefault :: (MonadIO m) => - m CssProvider + m CssProvider -- result cssProviderGetDefault = liftIO $ do result <- gtk_css_provider_get_default checkUnexpectedReturnNULL "gtk_css_provider_get_default" result @@ -359,9 +419,8 @@ -- method CssProvider::get_named -- method type : MemberFunction --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variant", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variant", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variant", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CssProvider" -- throws : False -- Skip return : False @@ -374,9 +433,9 @@ cssProviderGetNamed :: (MonadIO m) => - T.Text -> -- name - Maybe (T.Text) -> -- variant - m CssProvider + T.Text -- name + -> Maybe (T.Text) -- variant + -> m CssProvider -- result cssProviderGetNamed name variant = liftIO $ do name' <- textToCString name maybeVariant <- case variant of diff --git a/GI/Gtk/Objects/CssProvider.hs-boot b/GI/Gtk/Objects/CssProvider.hs-boot --- a/GI/Gtk/Objects/CssProvider.hs-boot +++ b/GI/Gtk/Objects/CssProvider.hs-boot @@ -12,3 +12,8 @@ class GObject o => CssProviderK o instance (GObject o, IsDescendantOf CssProvider o) => CssProviderK o data CssProviderParsingErrorSignalInfo +data CssProviderLoadFromDataMethodInfo +data CssProviderLoadFromFileMethodInfo +data CssProviderLoadFromPathMethodInfo +data CssProviderLoadFromResourceMethodInfo +data CssProviderToStringMethodInfo diff --git a/GI/Gtk/Objects/Dialog.hs b/GI/Gtk/Objects/Dialog.hs --- a/GI/Gtk/Objects/Dialog.hs +++ b/GI/Gtk/Objects/Dialog.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,30 +18,37 @@ -- * Methods -- ** dialogAddActionWidget + DialogAddActionWidgetMethodInfo , dialogAddActionWidget , -- ** dialogAddButton + DialogAddButtonMethodInfo , dialogAddButton , -- ** dialogGetActionArea + DialogGetActionAreaMethodInfo , dialogGetActionArea , -- ** dialogGetContentArea + DialogGetContentAreaMethodInfo , dialogGetContentArea , -- ** dialogGetHeaderBar + DialogGetHeaderBarMethodInfo , dialogGetHeaderBar , -- ** dialogGetResponseForWidget + DialogGetResponseForWidgetMethodInfo , dialogGetResponseForWidget , -- ** dialogGetWidgetForResponse + DialogGetWidgetForResponseMethodInfo , dialogGetWidgetForResponse , @@ -49,22 +57,27 @@ -- ** dialogResponse + DialogResponseMethodInfo , dialogResponse , -- ** dialogRun + DialogRunMethodInfo , dialogRun , -- ** dialogSetAlternativeButtonOrderFromArray + DialogSetAlternativeButtonOrderFromArrayMethodInfo, dialogSetAlternativeButtonOrderFromArray, -- ** dialogSetDefaultResponse + DialogSetDefaultResponseMethodInfo , dialogSetDefaultResponse , -- ** dialogSetResponseSensitive + DialogSetResponseSensitiveMethodInfo , dialogSetResponseSensitive , @@ -141,6 +154,442 @@ noDialog :: Maybe Dialog noDialog = Nothing +type family ResolveDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveDialogMethod "activate" o = WidgetActivateMethodInfo + ResolveDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveDialogMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveDialogMethod "add" o = ContainerAddMethodInfo + ResolveDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo + ResolveDialogMethod "addButton" o = DialogAddButtonMethodInfo + ResolveDialogMethod "addChild" o = BuildableAddChildMethodInfo + ResolveDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveDialogMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveDialogMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveDialogMethod "childType" o = ContainerChildTypeMethodInfo + ResolveDialogMethod "classPath" o = WidgetClassPathMethodInfo + ResolveDialogMethod "close" o = WindowCloseMethodInfo + ResolveDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveDialogMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveDialogMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveDialogMethod "destroy" o = WidgetDestroyMethodInfo + ResolveDialogMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveDialogMethod "draw" o = WidgetDrawMethodInfo + ResolveDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveDialogMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveDialogMethod "event" o = WidgetEventMethodInfo + ResolveDialogMethod "forall" o = ContainerForallMethodInfo + ResolveDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveDialogMethod "foreach" o = ContainerForeachMethodInfo + ResolveDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveDialogMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveDialogMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveDialogMethod "hide" o = WidgetHideMethodInfo + ResolveDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveDialogMethod "iconify" o = WindowIconifyMethodInfo + ResolveDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveDialogMethod "intersect" o = WidgetIntersectMethodInfo + ResolveDialogMethod "isActive" o = WindowIsActiveMethodInfo + ResolveDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveDialogMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveDialogMethod "map" o = WidgetMapMethodInfo + ResolveDialogMethod "maximize" o = WindowMaximizeMethodInfo + ResolveDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveDialogMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveDialogMethod "move" o = WindowMoveMethodInfo + ResolveDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveDialogMethod "path" o = WidgetPathMethodInfo + ResolveDialogMethod "present" o = WindowPresentMethodInfo + ResolveDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveDialogMethod "realize" o = WidgetRealizeMethodInfo + ResolveDialogMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveDialogMethod "remove" o = ContainerRemoveMethodInfo + ResolveDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveDialogMethod "reparent" o = WidgetReparentMethodInfo + ResolveDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveDialogMethod "resize" o = WindowResizeMethodInfo + ResolveDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveDialogMethod "response" o = DialogResponseMethodInfo + ResolveDialogMethod "run" o = DialogRunMethodInfo + ResolveDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveDialogMethod "show" o = WidgetShowMethodInfo + ResolveDialogMethod "showAll" o = WidgetShowAllMethodInfo + ResolveDialogMethod "showNow" o = WidgetShowNowMethodInfo + ResolveDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveDialogMethod "stick" o = WindowStickMethodInfo + ResolveDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveDialogMethod "unmap" o = WidgetUnmapMethodInfo + ResolveDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveDialogMethod "unparent" o = WidgetUnparentMethodInfo + ResolveDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveDialogMethod "unstick" o = WindowUnstickMethodInfo + ResolveDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo + ResolveDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveDialogMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveDialogMethod "getChild" o = BinGetChildMethodInfo + ResolveDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveDialogMethod "getClip" o = WidgetGetClipMethodInfo + ResolveDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo + ResolveDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveDialogMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveDialogMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveDialogMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveDialogMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveDialogMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo + ResolveDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveDialogMethod "getIcon" o = WindowGetIconMethodInfo + ResolveDialogMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveDialogMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveDialogMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveDialogMethod "getModal" o = WindowGetModalMethodInfo + ResolveDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveDialogMethod "getParent" o = WidgetGetParentMethodInfo + ResolveDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveDialogMethod "getPath" o = WidgetGetPathMethodInfo + ResolveDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveDialogMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveDialogMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveDialogMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo + ResolveDialogMethod "getRole" o = WindowGetRoleMethodInfo + ResolveDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveDialogMethod "getSize" o = WindowGetSizeMethodInfo + ResolveDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveDialogMethod "getState" o = WidgetGetStateMethodInfo + ResolveDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveDialogMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveDialogMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveDialogMethod "getValign" o = WidgetGetValignMethodInfo + ResolveDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveDialogMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo + ResolveDialogMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo + ResolveDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveDialogMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveDialogMethod "setClip" o = WidgetSetClipMethodInfo + ResolveDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveDialogMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo + ResolveDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveDialogMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveDialogMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveDialogMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveDialogMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveDialogMethod "setIcon" o = WindowSetIconMethodInfo + ResolveDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveDialogMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveDialogMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveDialogMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveDialogMethod "setModal" o = WindowSetModalMethodInfo + ResolveDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveDialogMethod "setParent" o = WidgetSetParentMethodInfo + ResolveDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveDialogMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveDialogMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo + ResolveDialogMethod "setRole" o = WindowSetRoleMethodInfo + ResolveDialogMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveDialogMethod "setState" o = WidgetSetStateMethodInfo + ResolveDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveDialogMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveDialogMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveDialogMethod "setValign" o = WidgetSetValignMethodInfo + ResolveDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveDialogMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveDialogMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveDialogMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveDialogMethod t Dialog, MethodInfo info Dialog p) => IsLabelProxy t (Dialog -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveDialogMethod t Dialog, MethodInfo info Dialog p) => IsLabel t (Dialog -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Dialog::close type DialogCloseCallback = IO () @@ -206,8 +655,8 @@ Int32 -> Ptr () -> IO () -dialogResponseCallbackWrapper _cb _ response_id _ = do - _cb response_id +dialogResponseCallbackWrapper _cb _ responseId _ = do + _cb responseId onDialogResponse :: (GObject a, MonadIO m) => a -> DialogResponseCallback -> m SignalHandlerId onDialogResponse obj cb = liftIO $ connectDialogResponse obj cb SignalConnectBefore @@ -236,13 +685,13 @@ type AttrSetTypeConstraint DialogUseHeaderBarPropertyInfo = (~) Int32 type AttrBaseTypeConstraint DialogUseHeaderBarPropertyInfo = DialogK type AttrGetType DialogUseHeaderBarPropertyInfo = Int32 - type AttrLabel DialogUseHeaderBarPropertyInfo = "Dialog::use-header-bar" + type AttrLabel DialogUseHeaderBarPropertyInfo = "use-header-bar" attrGet _ = getDialogUseHeaderBar attrSet _ = undefined attrConstruct _ = constructDialogUseHeaderBar type instance AttributeList Dialog = DialogAttributeList -type DialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type DialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) data DialogCloseSignalInfo instance SignalInfo DialogCloseSignalInfo where @@ -255,13 +704,12 @@ connectSignal _ = connectDialogResponse type instance SignalList Dialog = DialogSignalList -type DialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Dialog::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Dialog" -- throws : False -- Skip return : False @@ -272,7 +720,7 @@ dialogNew :: (MonadIO m) => - m Dialog + m Dialog -- result dialogNew = liftIO $ do result <- gtk_dialog_new checkUnexpectedReturnNULL "gtk_dialog_new" result @@ -281,9 +729,8 @@ -- method Dialog::add_action_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -297,23 +744,26 @@ dialogAddActionWidget :: (MonadIO m, DialogK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- response_id - m () -dialogAddActionWidget _obj child response_id = liftIO $ do + a -- _obj + -> b -- child + -> Int32 -- responseId + -> m () -- result +dialogAddActionWidget _obj child responseId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child - gtk_dialog_add_action_widget _obj' child' response_id + gtk_dialog_add_action_widget _obj' child' responseId touchManagedPtr _obj touchManagedPtr child return () +data DialogAddActionWidgetMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, DialogK a, WidgetK b) => MethodInfo DialogAddActionWidgetMethodInfo a signature where + overloadedMethod _ = dialogAddActionWidget + -- method Dialog::add_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -327,25 +777,28 @@ dialogAddButton :: (MonadIO m, DialogK a) => - a -> -- _obj - T.Text -> -- button_text - Int32 -> -- response_id - m Widget -dialogAddButton _obj button_text response_id = liftIO $ do + a -- _obj + -> T.Text -- buttonText + -> Int32 -- responseId + -> m Widget -- result +dialogAddButton _obj buttonText responseId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - button_text' <- textToCString button_text - result <- gtk_dialog_add_button _obj' button_text' response_id + buttonText' <- textToCString buttonText + result <- gtk_dialog_add_button _obj' buttonText' responseId checkUnexpectedReturnNULL "gtk_dialog_add_button" result result' <- (newObject Widget) result touchManagedPtr _obj - freeMem button_text' + freeMem buttonText' return result' +data DialogAddButtonMethodInfo +instance (signature ~ (T.Text -> Int32 -> m Widget), MonadIO m, DialogK a) => MethodInfo DialogAddButtonMethodInfo a signature where + overloadedMethod _ = dialogAddButton + -- method Dialog::get_action_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -357,8 +810,8 @@ {-# DEPRECATED dialogGetActionArea ["(Since version 3.12)","Direct access to the action area"," is discouraged; use gtk_dialog_add_button(), etc."]#-} dialogGetActionArea :: (MonadIO m, DialogK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result dialogGetActionArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_dialog_get_action_area _obj' @@ -367,11 +820,14 @@ touchManagedPtr _obj return result' +data DialogGetActionAreaMethodInfo +instance (signature ~ (m Widget), MonadIO m, DialogK a) => MethodInfo DialogGetActionAreaMethodInfo a signature where + overloadedMethod _ = dialogGetActionArea + -- method Dialog::get_content_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Box" -- throws : False -- Skip return : False @@ -383,8 +839,8 @@ dialogGetContentArea :: (MonadIO m, DialogK a) => - a -> -- _obj - m Box + a -- _obj + -> m Box -- result dialogGetContentArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_dialog_get_content_area _obj' @@ -393,11 +849,14 @@ touchManagedPtr _obj return result' +data DialogGetContentAreaMethodInfo +instance (signature ~ (m Box), MonadIO m, DialogK a) => MethodInfo DialogGetContentAreaMethodInfo a signature where + overloadedMethod _ = dialogGetContentArea + -- method Dialog::get_header_bar -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -409,8 +868,8 @@ dialogGetHeaderBar :: (MonadIO m, DialogK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result dialogGetHeaderBar _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_dialog_get_header_bar _obj' @@ -419,11 +878,14 @@ touchManagedPtr _obj return result' +data DialogGetHeaderBarMethodInfo +instance (signature ~ (m Widget), MonadIO m, DialogK a) => MethodInfo DialogGetHeaderBarMethodInfo a signature where + overloadedMethod _ = dialogGetHeaderBar + -- method Dialog::get_response_for_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -436,9 +898,9 @@ dialogGetResponseForWidget :: (MonadIO m, DialogK a, WidgetK b) => - a -> -- _obj - b -> -- widget - m Int32 + a -- _obj + -> b -- widget + -> m Int32 -- result dialogGetResponseForWidget _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget @@ -447,11 +909,14 @@ touchManagedPtr widget return result +data DialogGetResponseForWidgetMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, DialogK a, WidgetK b) => MethodInfo DialogGetResponseForWidgetMethodInfo a signature where + overloadedMethod _ = dialogGetResponseForWidget + -- method Dialog::get_widget_for_response -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -464,22 +929,25 @@ dialogGetWidgetForResponse :: (MonadIO m, DialogK a) => - a -> -- _obj - Int32 -> -- response_id - m Widget -dialogGetWidgetForResponse _obj response_id = liftIO $ do + a -- _obj + -> Int32 -- responseId + -> m Widget -- result +dialogGetWidgetForResponse _obj responseId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_dialog_get_widget_for_response _obj' response_id + result <- gtk_dialog_get_widget_for_response _obj' responseId checkUnexpectedReturnNULL "gtk_dialog_get_widget_for_response" result result' <- (newObject Widget) result touchManagedPtr _obj return result' +data DialogGetWidgetForResponseMethodInfo +instance (signature ~ (Int32 -> m Widget), MonadIO m, DialogK a) => MethodInfo DialogGetWidgetForResponseMethodInfo a signature where + overloadedMethod _ = dialogGetWidgetForResponse + -- method Dialog::response -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -492,20 +960,23 @@ dialogResponse :: (MonadIO m, DialogK a) => - a -> -- _obj - Int32 -> -- response_id - m () -dialogResponse _obj response_id = liftIO $ do + a -- _obj + -> Int32 -- responseId + -> m () -- result +dialogResponse _obj responseId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_dialog_response _obj' response_id + gtk_dialog_response _obj' responseId touchManagedPtr _obj return () +data DialogResponseMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, DialogK a) => MethodInfo DialogResponseMethodInfo a signature where + overloadedMethod _ = dialogResponse + -- method Dialog::run -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -517,19 +988,22 @@ dialogRun :: (MonadIO m, DialogK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result dialogRun _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_dialog_run _obj' touchManagedPtr _obj return result +data DialogRunMethodInfo +instance (signature ~ (m Int32), MonadIO m, DialogK a) => MethodInfo DialogRunMethodInfo a signature where + overloadedMethod _ = dialogRun + -- method Dialog::set_alternative_button_order_from_array -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -543,23 +1017,26 @@ {-# DEPRECATED dialogSetAlternativeButtonOrderFromArray ["(Since version 3.10)","Deprecated"]#-} dialogSetAlternativeButtonOrderFromArray :: (MonadIO m, DialogK a) => - a -> -- _obj - [Int32] -> -- new_order - m () -dialogSetAlternativeButtonOrderFromArray _obj new_order = liftIO $ do - let n_params = fromIntegral $ length new_order + a -- _obj + -> [Int32] -- newOrder + -> m () -- result +dialogSetAlternativeButtonOrderFromArray _obj newOrder = liftIO $ do + let nParams = fromIntegral $ length newOrder let _obj' = unsafeManagedPtrCastPtr _obj - new_order' <- packStorableArray new_order - gtk_dialog_set_alternative_button_order_from_array _obj' n_params new_order' + newOrder' <- packStorableArray newOrder + gtk_dialog_set_alternative_button_order_from_array _obj' nParams newOrder' touchManagedPtr _obj - freeMem new_order' + freeMem newOrder' return () +data DialogSetAlternativeButtonOrderFromArrayMethodInfo +instance (signature ~ ([Int32] -> m ()), MonadIO m, DialogK a) => MethodInfo DialogSetAlternativeButtonOrderFromArrayMethodInfo a signature where + overloadedMethod _ = dialogSetAlternativeButtonOrderFromArray + -- method Dialog::set_default_response -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -572,20 +1049,23 @@ dialogSetDefaultResponse :: (MonadIO m, DialogK a) => - a -> -- _obj - Int32 -> -- response_id - m () -dialogSetDefaultResponse _obj response_id = liftIO $ do + a -- _obj + -> Int32 -- responseId + -> m () -- result +dialogSetDefaultResponse _obj responseId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_dialog_set_default_response _obj' response_id + gtk_dialog_set_default_response _obj' responseId touchManagedPtr _obj return () +data DialogSetDefaultResponseMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, DialogK a) => MethodInfo DialogSetDefaultResponseMethodInfo a signature where + overloadedMethod _ = dialogSetDefaultResponse + -- method Dialog::set_response_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -599,15 +1079,19 @@ dialogSetResponseSensitive :: (MonadIO m, DialogK a) => - a -> -- _obj - Int32 -> -- response_id - Bool -> -- setting - m () -dialogSetResponseSensitive _obj response_id setting = liftIO $ do + a -- _obj + -> Int32 -- responseId + -> Bool -- setting + -> m () -- result +dialogSetResponseSensitive _obj responseId setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting - gtk_dialog_set_response_sensitive _obj' response_id setting' + gtk_dialog_set_response_sensitive _obj' responseId setting' touchManagedPtr _obj return () + +data DialogSetResponseSensitiveMethodInfo +instance (signature ~ (Int32 -> Bool -> m ()), MonadIO m, DialogK a) => MethodInfo DialogSetResponseSensitiveMethodInfo a signature where + overloadedMethod _ = dialogSetResponseSensitive diff --git a/GI/Gtk/Objects/Dialog.hs-boot b/GI/Gtk/Objects/Dialog.hs-boot --- a/GI/Gtk/Objects/Dialog.hs-boot +++ b/GI/Gtk/Objects/Dialog.hs-boot @@ -14,3 +14,15 @@ data DialogUseHeaderBarPropertyInfo data DialogCloseSignalInfo data DialogResponseSignalInfo +data DialogAddActionWidgetMethodInfo +data DialogAddButtonMethodInfo +data DialogGetActionAreaMethodInfo +data DialogGetContentAreaMethodInfo +data DialogGetHeaderBarMethodInfo +data DialogGetResponseForWidgetMethodInfo +data DialogGetWidgetForResponseMethodInfo +data DialogResponseMethodInfo +data DialogRunMethodInfo +data DialogSetAlternativeButtonOrderFromArrayMethodInfo +data DialogSetDefaultResponseMethodInfo +data DialogSetResponseSensitiveMethodInfo diff --git a/GI/Gtk/Objects/DrawingArea.hs b/GI/Gtk/Objects/DrawingArea.hs --- a/GI/Gtk/Objects/DrawingArea.hs +++ b/GI/Gtk/Objects/DrawingArea.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,312 @@ noDrawingArea :: Maybe DrawingArea noDrawingArea = Nothing +type family ResolveDrawingAreaMethod (t :: Symbol) (o :: *) :: * where + ResolveDrawingAreaMethod "activate" o = WidgetActivateMethodInfo + ResolveDrawingAreaMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveDrawingAreaMethod "addChild" o = BuildableAddChildMethodInfo + ResolveDrawingAreaMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveDrawingAreaMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveDrawingAreaMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveDrawingAreaMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveDrawingAreaMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveDrawingAreaMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveDrawingAreaMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveDrawingAreaMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveDrawingAreaMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveDrawingAreaMethod "classPath" o = WidgetClassPathMethodInfo + ResolveDrawingAreaMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveDrawingAreaMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveDrawingAreaMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveDrawingAreaMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveDrawingAreaMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveDrawingAreaMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveDrawingAreaMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveDrawingAreaMethod "destroy" o = WidgetDestroyMethodInfo + ResolveDrawingAreaMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveDrawingAreaMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveDrawingAreaMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveDrawingAreaMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveDrawingAreaMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveDrawingAreaMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveDrawingAreaMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveDrawingAreaMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveDrawingAreaMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveDrawingAreaMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveDrawingAreaMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveDrawingAreaMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveDrawingAreaMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveDrawingAreaMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveDrawingAreaMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveDrawingAreaMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveDrawingAreaMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveDrawingAreaMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveDrawingAreaMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveDrawingAreaMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveDrawingAreaMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveDrawingAreaMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveDrawingAreaMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveDrawingAreaMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveDrawingAreaMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveDrawingAreaMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveDrawingAreaMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveDrawingAreaMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveDrawingAreaMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveDrawingAreaMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveDrawingAreaMethod "draw" o = WidgetDrawMethodInfo + ResolveDrawingAreaMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveDrawingAreaMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveDrawingAreaMethod "event" o = WidgetEventMethodInfo + ResolveDrawingAreaMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveDrawingAreaMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveDrawingAreaMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveDrawingAreaMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveDrawingAreaMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveDrawingAreaMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveDrawingAreaMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveDrawingAreaMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveDrawingAreaMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveDrawingAreaMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveDrawingAreaMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveDrawingAreaMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveDrawingAreaMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveDrawingAreaMethod "hide" o = WidgetHideMethodInfo + ResolveDrawingAreaMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveDrawingAreaMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveDrawingAreaMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveDrawingAreaMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveDrawingAreaMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveDrawingAreaMethod "intersect" o = WidgetIntersectMethodInfo + ResolveDrawingAreaMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveDrawingAreaMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveDrawingAreaMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveDrawingAreaMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveDrawingAreaMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveDrawingAreaMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveDrawingAreaMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveDrawingAreaMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveDrawingAreaMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveDrawingAreaMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveDrawingAreaMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveDrawingAreaMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveDrawingAreaMethod "map" o = WidgetMapMethodInfo + ResolveDrawingAreaMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveDrawingAreaMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveDrawingAreaMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveDrawingAreaMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveDrawingAreaMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveDrawingAreaMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveDrawingAreaMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveDrawingAreaMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveDrawingAreaMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveDrawingAreaMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveDrawingAreaMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveDrawingAreaMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveDrawingAreaMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveDrawingAreaMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveDrawingAreaMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveDrawingAreaMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveDrawingAreaMethod "path" o = WidgetPathMethodInfo + ResolveDrawingAreaMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveDrawingAreaMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveDrawingAreaMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveDrawingAreaMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveDrawingAreaMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveDrawingAreaMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveDrawingAreaMethod "realize" o = WidgetRealizeMethodInfo + ResolveDrawingAreaMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveDrawingAreaMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveDrawingAreaMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveDrawingAreaMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveDrawingAreaMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveDrawingAreaMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveDrawingAreaMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveDrawingAreaMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveDrawingAreaMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveDrawingAreaMethod "reparent" o = WidgetReparentMethodInfo + ResolveDrawingAreaMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveDrawingAreaMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveDrawingAreaMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveDrawingAreaMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveDrawingAreaMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveDrawingAreaMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveDrawingAreaMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveDrawingAreaMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveDrawingAreaMethod "show" o = WidgetShowMethodInfo + ResolveDrawingAreaMethod "showAll" o = WidgetShowAllMethodInfo + ResolveDrawingAreaMethod "showNow" o = WidgetShowNowMethodInfo + ResolveDrawingAreaMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveDrawingAreaMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveDrawingAreaMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveDrawingAreaMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveDrawingAreaMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveDrawingAreaMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveDrawingAreaMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveDrawingAreaMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveDrawingAreaMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveDrawingAreaMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveDrawingAreaMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveDrawingAreaMethod "unmap" o = WidgetUnmapMethodInfo + ResolveDrawingAreaMethod "unparent" o = WidgetUnparentMethodInfo + ResolveDrawingAreaMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveDrawingAreaMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveDrawingAreaMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveDrawingAreaMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveDrawingAreaMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveDrawingAreaMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveDrawingAreaMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveDrawingAreaMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveDrawingAreaMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveDrawingAreaMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveDrawingAreaMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveDrawingAreaMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveDrawingAreaMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveDrawingAreaMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveDrawingAreaMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveDrawingAreaMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveDrawingAreaMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveDrawingAreaMethod "getClip" o = WidgetGetClipMethodInfo + ResolveDrawingAreaMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveDrawingAreaMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveDrawingAreaMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveDrawingAreaMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveDrawingAreaMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveDrawingAreaMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveDrawingAreaMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveDrawingAreaMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveDrawingAreaMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveDrawingAreaMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveDrawingAreaMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveDrawingAreaMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveDrawingAreaMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveDrawingAreaMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveDrawingAreaMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveDrawingAreaMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveDrawingAreaMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveDrawingAreaMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveDrawingAreaMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveDrawingAreaMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveDrawingAreaMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveDrawingAreaMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveDrawingAreaMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveDrawingAreaMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveDrawingAreaMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveDrawingAreaMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveDrawingAreaMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveDrawingAreaMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveDrawingAreaMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveDrawingAreaMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveDrawingAreaMethod "getParent" o = WidgetGetParentMethodInfo + ResolveDrawingAreaMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveDrawingAreaMethod "getPath" o = WidgetGetPathMethodInfo + ResolveDrawingAreaMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveDrawingAreaMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveDrawingAreaMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveDrawingAreaMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveDrawingAreaMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveDrawingAreaMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveDrawingAreaMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveDrawingAreaMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveDrawingAreaMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveDrawingAreaMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveDrawingAreaMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveDrawingAreaMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveDrawingAreaMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveDrawingAreaMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveDrawingAreaMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveDrawingAreaMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveDrawingAreaMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveDrawingAreaMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveDrawingAreaMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveDrawingAreaMethod "getState" o = WidgetGetStateMethodInfo + ResolveDrawingAreaMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveDrawingAreaMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveDrawingAreaMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveDrawingAreaMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveDrawingAreaMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveDrawingAreaMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveDrawingAreaMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveDrawingAreaMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveDrawingAreaMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveDrawingAreaMethod "getValign" o = WidgetGetValignMethodInfo + ResolveDrawingAreaMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveDrawingAreaMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveDrawingAreaMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveDrawingAreaMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveDrawingAreaMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveDrawingAreaMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveDrawingAreaMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveDrawingAreaMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveDrawingAreaMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveDrawingAreaMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveDrawingAreaMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveDrawingAreaMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveDrawingAreaMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveDrawingAreaMethod "setClip" o = WidgetSetClipMethodInfo + ResolveDrawingAreaMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveDrawingAreaMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveDrawingAreaMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveDrawingAreaMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveDrawingAreaMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveDrawingAreaMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveDrawingAreaMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveDrawingAreaMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveDrawingAreaMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveDrawingAreaMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveDrawingAreaMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveDrawingAreaMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveDrawingAreaMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveDrawingAreaMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveDrawingAreaMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveDrawingAreaMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveDrawingAreaMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveDrawingAreaMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveDrawingAreaMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveDrawingAreaMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveDrawingAreaMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveDrawingAreaMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveDrawingAreaMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveDrawingAreaMethod "setParent" o = WidgetSetParentMethodInfo + ResolveDrawingAreaMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveDrawingAreaMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveDrawingAreaMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveDrawingAreaMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveDrawingAreaMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveDrawingAreaMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveDrawingAreaMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveDrawingAreaMethod "setState" o = WidgetSetStateMethodInfo + ResolveDrawingAreaMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveDrawingAreaMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveDrawingAreaMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveDrawingAreaMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveDrawingAreaMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveDrawingAreaMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveDrawingAreaMethod "setValign" o = WidgetSetValignMethodInfo + ResolveDrawingAreaMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveDrawingAreaMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveDrawingAreaMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveDrawingAreaMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveDrawingAreaMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveDrawingAreaMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveDrawingAreaMethod t DrawingArea, MethodInfo info DrawingArea p) => IsLabelProxy t (DrawingArea -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveDrawingAreaMethod t DrawingArea, MethodInfo info DrawingArea p) => IsLabel t (DrawingArea -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList DrawingArea = DrawingAreaAttributeList -type DrawingAreaAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type DrawingAreaAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList DrawingArea = DrawingAreaSignalList -type DrawingAreaSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DrawingAreaSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method DrawingArea::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "DrawingArea" -- throws : False -- Skip return : False @@ -78,7 +374,7 @@ drawingAreaNew :: (MonadIO m) => - m DrawingArea + m DrawingArea -- result drawingAreaNew = liftIO $ do result <- gtk_drawing_area_new checkUnexpectedReturnNULL "gtk_drawing_area_new" result diff --git a/GI/Gtk/Objects/Entry.hs b/GI/Gtk/Objects/Entry.hs --- a/GI/Gtk/Objects/Entry.hs +++ b/GI/Gtk/Objects/Entry.hs @@ -1,4698 +1,5387 @@ -{- | -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.Objects.Entry - ( - --- * Exported types - Entry(..) , - EntryK , - toEntry , - noEntry , - - - -- * Methods --- ** entryGetActivatesDefault - entryGetActivatesDefault , - - --- ** entryGetAlignment - entryGetAlignment , - - --- ** entryGetAttributes - entryGetAttributes , - - --- ** entryGetBuffer - entryGetBuffer , - - --- ** entryGetCompletion - entryGetCompletion , - - --- ** entryGetCurrentIconDragSource - entryGetCurrentIconDragSource , - - --- ** entryGetCursorHadjustment - entryGetCursorHadjustment , - - --- ** entryGetHasFrame - entryGetHasFrame , - - --- ** entryGetIconActivatable - entryGetIconActivatable , - - --- ** entryGetIconArea - entryGetIconArea , - - --- ** entryGetIconAtPos - entryGetIconAtPos , - - --- ** entryGetIconGicon - entryGetIconGicon , - - --- ** entryGetIconName - entryGetIconName , - - --- ** entryGetIconPixbuf - entryGetIconPixbuf , - - --- ** entryGetIconSensitive - entryGetIconSensitive , - - --- ** entryGetIconStock - entryGetIconStock , - - --- ** entryGetIconStorageType - entryGetIconStorageType , - - --- ** entryGetIconTooltipMarkup - entryGetIconTooltipMarkup , - - --- ** entryGetIconTooltipText - entryGetIconTooltipText , - - --- ** entryGetInnerBorder - entryGetInnerBorder , - - --- ** entryGetInputHints - entryGetInputHints , - - --- ** entryGetInputPurpose - entryGetInputPurpose , - - --- ** entryGetInvisibleChar - entryGetInvisibleChar , - - --- ** entryGetLayout - entryGetLayout , - - --- ** entryGetLayoutOffsets - entryGetLayoutOffsets , - - --- ** entryGetMaxLength - entryGetMaxLength , - - --- ** entryGetMaxWidthChars - entryGetMaxWidthChars , - - --- ** entryGetOverwriteMode - entryGetOverwriteMode , - - --- ** entryGetPlaceholderText - entryGetPlaceholderText , - - --- ** entryGetProgressFraction - entryGetProgressFraction , - - --- ** entryGetProgressPulseStep - entryGetProgressPulseStep , - - --- ** entryGetTabs - entryGetTabs , - - --- ** entryGetText - entryGetText , - - --- ** entryGetTextArea - entryGetTextArea , - - --- ** entryGetTextLength - entryGetTextLength , - - --- ** entryGetVisibility - entryGetVisibility , - - --- ** entryGetWidthChars - entryGetWidthChars , - - --- ** entryGrabFocusWithoutSelecting - entryGrabFocusWithoutSelecting , - - --- ** entryImContextFilterKeypress - entryImContextFilterKeypress , - - --- ** entryLayoutIndexToTextIndex - entryLayoutIndexToTextIndex , - - --- ** entryNew - entryNew , - - --- ** entryNewWithBuffer - entryNewWithBuffer , - - --- ** entryProgressPulse - entryProgressPulse , - - --- ** entryResetImContext - entryResetImContext , - - --- ** entrySetActivatesDefault - entrySetActivatesDefault , - - --- ** entrySetAlignment - entrySetAlignment , - - --- ** entrySetAttributes - entrySetAttributes , - - --- ** entrySetBuffer - entrySetBuffer , - - --- ** entrySetCompletion - entrySetCompletion , - - --- ** entrySetCursorHadjustment - entrySetCursorHadjustment , - - --- ** entrySetHasFrame - entrySetHasFrame , - - --- ** entrySetIconActivatable - entrySetIconActivatable , - - --- ** entrySetIconDragSource - entrySetIconDragSource , - - --- ** entrySetIconFromGicon - entrySetIconFromGicon , - - --- ** entrySetIconFromIconName - entrySetIconFromIconName , - - --- ** entrySetIconFromPixbuf - entrySetIconFromPixbuf , - - --- ** entrySetIconFromStock - entrySetIconFromStock , - - --- ** entrySetIconSensitive - entrySetIconSensitive , - - --- ** entrySetIconTooltipMarkup - entrySetIconTooltipMarkup , - - --- ** entrySetIconTooltipText - entrySetIconTooltipText , - - --- ** entrySetInnerBorder - entrySetInnerBorder , - - --- ** entrySetInputHints - entrySetInputHints , - - --- ** entrySetInputPurpose - entrySetInputPurpose , - - --- ** entrySetInvisibleChar - entrySetInvisibleChar , - - --- ** entrySetMaxLength - entrySetMaxLength , - - --- ** entrySetMaxWidthChars - entrySetMaxWidthChars , - - --- ** entrySetOverwriteMode - entrySetOverwriteMode , - - --- ** entrySetPlaceholderText - entrySetPlaceholderText , - - --- ** entrySetProgressFraction - entrySetProgressFraction , - - --- ** entrySetProgressPulseStep - entrySetProgressPulseStep , - - --- ** entrySetTabs - entrySetTabs , - - --- ** entrySetText - entrySetText , - - --- ** entrySetVisibility - entrySetVisibility , - - --- ** entrySetWidthChars - entrySetWidthChars , - - --- ** entryTextIndexToLayoutIndex - entryTextIndexToLayoutIndex , - - --- ** entryUnsetInvisibleChar - entryUnsetInvisibleChar , - - - - - -- * Properties --- ** ActivatesDefault - EntryActivatesDefaultPropertyInfo , - constructEntryActivatesDefault , - getEntryActivatesDefault , - setEntryActivatesDefault , - - --- ** Attributes - EntryAttributesPropertyInfo , - constructEntryAttributes , - getEntryAttributes , - setEntryAttributes , - - --- ** Buffer - EntryBufferPropertyInfo , - constructEntryBuffer , - getEntryBuffer , - setEntryBuffer , - - --- ** CapsLockWarning - EntryCapsLockWarningPropertyInfo , - constructEntryCapsLockWarning , - getEntryCapsLockWarning , - setEntryCapsLockWarning , - - --- ** Completion - EntryCompletionPropertyInfo , - constructEntryCompletion , - getEntryCompletion , - setEntryCompletion , - - --- ** CursorPosition - EntryCursorPositionPropertyInfo , - getEntryCursorPosition , - - --- ** Editable - EntryEditablePropertyInfo , - constructEntryEditable , - getEntryEditable , - setEntryEditable , - - --- ** HasFrame - EntryHasFramePropertyInfo , - constructEntryHasFrame , - getEntryHasFrame , - setEntryHasFrame , - - --- ** ImModule - EntryImModulePropertyInfo , - constructEntryImModule , - getEntryImModule , - setEntryImModule , - - --- ** InnerBorder - EntryInnerBorderPropertyInfo , - constructEntryInnerBorder , - getEntryInnerBorder , - setEntryInnerBorder , - - --- ** InputHints - EntryInputHintsPropertyInfo , - constructEntryInputHints , - getEntryInputHints , - setEntryInputHints , - - --- ** InputPurpose - EntryInputPurposePropertyInfo , - constructEntryInputPurpose , - getEntryInputPurpose , - setEntryInputPurpose , - - --- ** InvisibleChar - EntryInvisibleCharPropertyInfo , - constructEntryInvisibleChar , - getEntryInvisibleChar , - setEntryInvisibleChar , - - --- ** InvisibleCharSet - EntryInvisibleCharSetPropertyInfo , - constructEntryInvisibleCharSet , - getEntryInvisibleCharSet , - setEntryInvisibleCharSet , - - --- ** MaxLength - EntryMaxLengthPropertyInfo , - constructEntryMaxLength , - getEntryMaxLength , - setEntryMaxLength , - - --- ** MaxWidthChars - EntryMaxWidthCharsPropertyInfo , - constructEntryMaxWidthChars , - getEntryMaxWidthChars , - setEntryMaxWidthChars , - - --- ** OverwriteMode - EntryOverwriteModePropertyInfo , - constructEntryOverwriteMode , - getEntryOverwriteMode , - setEntryOverwriteMode , - - --- ** PlaceholderText - EntryPlaceholderTextPropertyInfo , - constructEntryPlaceholderText , - getEntryPlaceholderText , - setEntryPlaceholderText , - - --- ** PopulateAll - EntryPopulateAllPropertyInfo , - constructEntryPopulateAll , - getEntryPopulateAll , - setEntryPopulateAll , - - --- ** PrimaryIconActivatable - EntryPrimaryIconActivatablePropertyInfo , - constructEntryPrimaryIconActivatable , - getEntryPrimaryIconActivatable , - setEntryPrimaryIconActivatable , - - --- ** PrimaryIconGicon - EntryPrimaryIconGiconPropertyInfo , - constructEntryPrimaryIconGicon , - getEntryPrimaryIconGicon , - setEntryPrimaryIconGicon , - - --- ** PrimaryIconName - EntryPrimaryIconNamePropertyInfo , - constructEntryPrimaryIconName , - getEntryPrimaryIconName , - setEntryPrimaryIconName , - - --- ** PrimaryIconPixbuf - EntryPrimaryIconPixbufPropertyInfo , - constructEntryPrimaryIconPixbuf , - getEntryPrimaryIconPixbuf , - setEntryPrimaryIconPixbuf , - - --- ** PrimaryIconSensitive - EntryPrimaryIconSensitivePropertyInfo , - constructEntryPrimaryIconSensitive , - getEntryPrimaryIconSensitive , - setEntryPrimaryIconSensitive , - - --- ** PrimaryIconStock - EntryPrimaryIconStockPropertyInfo , - constructEntryPrimaryIconStock , - getEntryPrimaryIconStock , - setEntryPrimaryIconStock , - - --- ** PrimaryIconStorageType - EntryPrimaryIconStorageTypePropertyInfo , - getEntryPrimaryIconStorageType , - - --- ** PrimaryIconTooltipMarkup - EntryPrimaryIconTooltipMarkupPropertyInfo, - constructEntryPrimaryIconTooltipMarkup , - getEntryPrimaryIconTooltipMarkup , - setEntryPrimaryIconTooltipMarkup , - - --- ** PrimaryIconTooltipText - EntryPrimaryIconTooltipTextPropertyInfo , - constructEntryPrimaryIconTooltipText , - getEntryPrimaryIconTooltipText , - setEntryPrimaryIconTooltipText , - - --- ** ProgressFraction - EntryProgressFractionPropertyInfo , - constructEntryProgressFraction , - getEntryProgressFraction , - setEntryProgressFraction , - - --- ** ProgressPulseStep - EntryProgressPulseStepPropertyInfo , - constructEntryProgressPulseStep , - getEntryProgressPulseStep , - setEntryProgressPulseStep , - - --- ** ScrollOffset - EntryScrollOffsetPropertyInfo , - getEntryScrollOffset , - - --- ** SecondaryIconActivatable - EntrySecondaryIconActivatablePropertyInfo, - constructEntrySecondaryIconActivatable , - getEntrySecondaryIconActivatable , - setEntrySecondaryIconActivatable , - - --- ** SecondaryIconGicon - EntrySecondaryIconGiconPropertyInfo , - constructEntrySecondaryIconGicon , - getEntrySecondaryIconGicon , - setEntrySecondaryIconGicon , - - --- ** SecondaryIconName - EntrySecondaryIconNamePropertyInfo , - constructEntrySecondaryIconName , - getEntrySecondaryIconName , - setEntrySecondaryIconName , - - --- ** SecondaryIconPixbuf - EntrySecondaryIconPixbufPropertyInfo , - constructEntrySecondaryIconPixbuf , - getEntrySecondaryIconPixbuf , - setEntrySecondaryIconPixbuf , - - --- ** SecondaryIconSensitive - EntrySecondaryIconSensitivePropertyInfo , - constructEntrySecondaryIconSensitive , - getEntrySecondaryIconSensitive , - setEntrySecondaryIconSensitive , - - --- ** SecondaryIconStock - EntrySecondaryIconStockPropertyInfo , - constructEntrySecondaryIconStock , - getEntrySecondaryIconStock , - setEntrySecondaryIconStock , - - --- ** SecondaryIconStorageType - EntrySecondaryIconStorageTypePropertyInfo, - getEntrySecondaryIconStorageType , - - --- ** SecondaryIconTooltipMarkup - EntrySecondaryIconTooltipMarkupPropertyInfo, - constructEntrySecondaryIconTooltipMarkup, - getEntrySecondaryIconTooltipMarkup , - setEntrySecondaryIconTooltipMarkup , - - --- ** SecondaryIconTooltipText - EntrySecondaryIconTooltipTextPropertyInfo, - constructEntrySecondaryIconTooltipText , - getEntrySecondaryIconTooltipText , - setEntrySecondaryIconTooltipText , - - --- ** SelectionBound - EntrySelectionBoundPropertyInfo , - getEntrySelectionBound , - - --- ** ShadowType - EntryShadowTypePropertyInfo , - constructEntryShadowType , - getEntryShadowType , - setEntryShadowType , - - --- ** Tabs - EntryTabsPropertyInfo , - constructEntryTabs , - getEntryTabs , - setEntryTabs , - - --- ** Text - EntryTextPropertyInfo , - constructEntryText , - getEntryText , - setEntryText , - - --- ** TextLength - EntryTextLengthPropertyInfo , - getEntryTextLength , - - --- ** TruncateMultiline - EntryTruncateMultilinePropertyInfo , - constructEntryTruncateMultiline , - getEntryTruncateMultiline , - setEntryTruncateMultiline , - - --- ** Visibility - EntryVisibilityPropertyInfo , - constructEntryVisibility , - getEntryVisibility , - setEntryVisibility , - - --- ** WidthChars - EntryWidthCharsPropertyInfo , - constructEntryWidthChars , - getEntryWidthChars , - setEntryWidthChars , - - --- ** Xalign - EntryXalignPropertyInfo , - constructEntryXalign , - getEntryXalign , - setEntryXalign , - - - - - -- * Signals --- ** Activate - EntryActivateCallback , - EntryActivateCallbackC , - EntryActivateSignalInfo , - afterEntryActivate , - entryActivateCallbackWrapper , - entryActivateClosure , - mkEntryActivateCallback , - noEntryActivateCallback , - onEntryActivate , - - --- ** Backspace - EntryBackspaceCallback , - EntryBackspaceCallbackC , - EntryBackspaceSignalInfo , - afterEntryBackspace , - entryBackspaceCallbackWrapper , - entryBackspaceClosure , - mkEntryBackspaceCallback , - noEntryBackspaceCallback , - onEntryBackspace , - - --- ** CopyClipboard - EntryCopyClipboardCallback , - EntryCopyClipboardCallbackC , - EntryCopyClipboardSignalInfo , - afterEntryCopyClipboard , - entryCopyClipboardCallbackWrapper , - entryCopyClipboardClosure , - mkEntryCopyClipboardCallback , - noEntryCopyClipboardCallback , - onEntryCopyClipboard , - - --- ** CutClipboard - EntryCutClipboardCallback , - EntryCutClipboardCallbackC , - EntryCutClipboardSignalInfo , - afterEntryCutClipboard , - entryCutClipboardCallbackWrapper , - entryCutClipboardClosure , - mkEntryCutClipboardCallback , - noEntryCutClipboardCallback , - onEntryCutClipboard , - - --- ** DeleteFromCursor - EntryDeleteFromCursorCallback , - EntryDeleteFromCursorCallbackC , - EntryDeleteFromCursorSignalInfo , - afterEntryDeleteFromCursor , - entryDeleteFromCursorCallbackWrapper , - entryDeleteFromCursorClosure , - mkEntryDeleteFromCursorCallback , - noEntryDeleteFromCursorCallback , - onEntryDeleteFromCursor , - - --- ** IconPress - EntryIconPressCallback , - EntryIconPressCallbackC , - EntryIconPressSignalInfo , - afterEntryIconPress , - entryIconPressCallbackWrapper , - entryIconPressClosure , - mkEntryIconPressCallback , - noEntryIconPressCallback , - onEntryIconPress , - - --- ** IconRelease - EntryIconReleaseCallback , - EntryIconReleaseCallbackC , - EntryIconReleaseSignalInfo , - afterEntryIconRelease , - entryIconReleaseCallbackWrapper , - entryIconReleaseClosure , - mkEntryIconReleaseCallback , - noEntryIconReleaseCallback , - onEntryIconRelease , - - --- ** InsertAtCursor - EntryInsertAtCursorCallback , - EntryInsertAtCursorCallbackC , - EntryInsertAtCursorSignalInfo , - afterEntryInsertAtCursor , - entryInsertAtCursorCallbackWrapper , - entryInsertAtCursorClosure , - mkEntryInsertAtCursorCallback , - noEntryInsertAtCursorCallback , - onEntryInsertAtCursor , - - --- ** MoveCursor - EntryMoveCursorCallback , - EntryMoveCursorCallbackC , - EntryMoveCursorSignalInfo , - afterEntryMoveCursor , - entryMoveCursorCallbackWrapper , - entryMoveCursorClosure , - mkEntryMoveCursorCallback , - noEntryMoveCursorCallback , - onEntryMoveCursor , - - --- ** PasteClipboard - EntryPasteClipboardCallback , - EntryPasteClipboardCallbackC , - EntryPasteClipboardSignalInfo , - afterEntryPasteClipboard , - entryPasteClipboardCallbackWrapper , - entryPasteClipboardClosure , - mkEntryPasteClipboardCallback , - noEntryPasteClipboardCallback , - onEntryPasteClipboard , - - --- ** PopulatePopup - EntryPopulatePopupCallback , - EntryPopulatePopupCallbackC , - EntryPopulatePopupSignalInfo , - afterEntryPopulatePopup , - entryPopulatePopupCallbackWrapper , - entryPopulatePopupClosure , - mkEntryPopulatePopupCallback , - noEntryPopulatePopupCallback , - onEntryPopulatePopup , - - --- ** PreeditChanged - EntryPreeditChangedCallback , - EntryPreeditChangedCallbackC , - EntryPreeditChangedSignalInfo , - afterEntryPreeditChanged , - entryPreeditChangedCallbackWrapper , - entryPreeditChangedClosure , - mkEntryPreeditChangedCallback , - noEntryPreeditChangedCallback , - onEntryPreeditChanged , - - --- ** ToggleOverwrite - EntryToggleOverwriteCallback , - EntryToggleOverwriteCallbackC , - EntryToggleOverwriteSignalInfo , - afterEntryToggleOverwrite , - entryToggleOverwriteCallbackWrapper , - entryToggleOverwriteClosure , - mkEntryToggleOverwriteCallback , - noEntryToggleOverwriteCallback , - onEntryToggleOverwrite , - - - - - ) 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.Atk as Atk -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 - -newtype Entry = Entry (ForeignPtr Entry) -foreign import ccall "gtk_entry_get_type" - c_gtk_entry_get_type :: IO GType - -type instance ParentTypes Entry = EntryParentTypes -type EntryParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, Editable] - -instance GObject Entry where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_entry_get_type - - -class GObject o => EntryK o -instance (GObject o, IsDescendantOf Entry o) => EntryK o - -toEntry :: EntryK o => o -> IO Entry -toEntry = unsafeCastTo Entry - -noEntry :: Maybe Entry -noEntry = Nothing - --- signal Entry::activate -type EntryActivateCallback = - IO () - -noEntryActivateCallback :: Maybe EntryActivateCallback -noEntryActivateCallback = Nothing - -type EntryActivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryActivateCallback :: EntryActivateCallbackC -> IO (FunPtr EntryActivateCallbackC) - -entryActivateClosure :: EntryActivateCallback -> IO Closure -entryActivateClosure cb = newCClosure =<< mkEntryActivateCallback wrapped - where wrapped = entryActivateCallbackWrapper cb - -entryActivateCallbackWrapper :: - EntryActivateCallback -> - Ptr () -> - Ptr () -> - IO () -entryActivateCallbackWrapper _cb _ _ = do - _cb - -onEntryActivate :: (GObject a, MonadIO m) => a -> EntryActivateCallback -> m SignalHandlerId -onEntryActivate obj cb = liftIO $ connectEntryActivate obj cb SignalConnectBefore -afterEntryActivate :: (GObject a, MonadIO m) => a -> EntryActivateCallback -> m SignalHandlerId -afterEntryActivate obj cb = connectEntryActivate obj cb SignalConnectAfter - -connectEntryActivate :: (GObject a, MonadIO m) => - a -> EntryActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryActivate obj cb after = liftIO $ do - cb' <- mkEntryActivateCallback (entryActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - --- signal Entry::backspace -type EntryBackspaceCallback = - IO () - -noEntryBackspaceCallback :: Maybe EntryBackspaceCallback -noEntryBackspaceCallback = Nothing - -type EntryBackspaceCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryBackspaceCallback :: EntryBackspaceCallbackC -> IO (FunPtr EntryBackspaceCallbackC) - -entryBackspaceClosure :: EntryBackspaceCallback -> IO Closure -entryBackspaceClosure cb = newCClosure =<< mkEntryBackspaceCallback wrapped - where wrapped = entryBackspaceCallbackWrapper cb - -entryBackspaceCallbackWrapper :: - EntryBackspaceCallback -> - Ptr () -> - Ptr () -> - IO () -entryBackspaceCallbackWrapper _cb _ _ = do - _cb - -onEntryBackspace :: (GObject a, MonadIO m) => a -> EntryBackspaceCallback -> m SignalHandlerId -onEntryBackspace obj cb = liftIO $ connectEntryBackspace obj cb SignalConnectBefore -afterEntryBackspace :: (GObject a, MonadIO m) => a -> EntryBackspaceCallback -> m SignalHandlerId -afterEntryBackspace obj cb = connectEntryBackspace obj cb SignalConnectAfter - -connectEntryBackspace :: (GObject a, MonadIO m) => - a -> EntryBackspaceCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryBackspace obj cb after = liftIO $ do - cb' <- mkEntryBackspaceCallback (entryBackspaceCallbackWrapper cb) - connectSignalFunPtr obj "backspace" cb' after - --- signal Entry::copy-clipboard -type EntryCopyClipboardCallback = - IO () - -noEntryCopyClipboardCallback :: Maybe EntryCopyClipboardCallback -noEntryCopyClipboardCallback = Nothing - -type EntryCopyClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryCopyClipboardCallback :: EntryCopyClipboardCallbackC -> IO (FunPtr EntryCopyClipboardCallbackC) - -entryCopyClipboardClosure :: EntryCopyClipboardCallback -> IO Closure -entryCopyClipboardClosure cb = newCClosure =<< mkEntryCopyClipboardCallback wrapped - where wrapped = entryCopyClipboardCallbackWrapper cb - -entryCopyClipboardCallbackWrapper :: - EntryCopyClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -entryCopyClipboardCallbackWrapper _cb _ _ = do - _cb - -onEntryCopyClipboard :: (GObject a, MonadIO m) => a -> EntryCopyClipboardCallback -> m SignalHandlerId -onEntryCopyClipboard obj cb = liftIO $ connectEntryCopyClipboard obj cb SignalConnectBefore -afterEntryCopyClipboard :: (GObject a, MonadIO m) => a -> EntryCopyClipboardCallback -> m SignalHandlerId -afterEntryCopyClipboard obj cb = connectEntryCopyClipboard obj cb SignalConnectAfter - -connectEntryCopyClipboard :: (GObject a, MonadIO m) => - a -> EntryCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryCopyClipboard obj cb after = liftIO $ do - cb' <- mkEntryCopyClipboardCallback (entryCopyClipboardCallbackWrapper cb) - connectSignalFunPtr obj "copy-clipboard" cb' after - --- signal Entry::cut-clipboard -type EntryCutClipboardCallback = - IO () - -noEntryCutClipboardCallback :: Maybe EntryCutClipboardCallback -noEntryCutClipboardCallback = Nothing - -type EntryCutClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryCutClipboardCallback :: EntryCutClipboardCallbackC -> IO (FunPtr EntryCutClipboardCallbackC) - -entryCutClipboardClosure :: EntryCutClipboardCallback -> IO Closure -entryCutClipboardClosure cb = newCClosure =<< mkEntryCutClipboardCallback wrapped - where wrapped = entryCutClipboardCallbackWrapper cb - -entryCutClipboardCallbackWrapper :: - EntryCutClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -entryCutClipboardCallbackWrapper _cb _ _ = do - _cb - -onEntryCutClipboard :: (GObject a, MonadIO m) => a -> EntryCutClipboardCallback -> m SignalHandlerId -onEntryCutClipboard obj cb = liftIO $ connectEntryCutClipboard obj cb SignalConnectBefore -afterEntryCutClipboard :: (GObject a, MonadIO m) => a -> EntryCutClipboardCallback -> m SignalHandlerId -afterEntryCutClipboard obj cb = connectEntryCutClipboard obj cb SignalConnectAfter - -connectEntryCutClipboard :: (GObject a, MonadIO m) => - a -> EntryCutClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryCutClipboard obj cb after = liftIO $ do - cb' <- mkEntryCutClipboardCallback (entryCutClipboardCallbackWrapper cb) - connectSignalFunPtr obj "cut-clipboard" cb' after - --- signal Entry::delete-from-cursor -type EntryDeleteFromCursorCallback = - DeleteType -> - Int32 -> - IO () - -noEntryDeleteFromCursorCallback :: Maybe EntryDeleteFromCursorCallback -noEntryDeleteFromCursorCallback = Nothing - -type EntryDeleteFromCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryDeleteFromCursorCallback :: EntryDeleteFromCursorCallbackC -> IO (FunPtr EntryDeleteFromCursorCallbackC) - -entryDeleteFromCursorClosure :: EntryDeleteFromCursorCallback -> IO Closure -entryDeleteFromCursorClosure cb = newCClosure =<< mkEntryDeleteFromCursorCallback wrapped - where wrapped = entryDeleteFromCursorCallbackWrapper cb - -entryDeleteFromCursorCallbackWrapper :: - EntryDeleteFromCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - Ptr () -> - IO () -entryDeleteFromCursorCallbackWrapper _cb _ type_ count _ = do - let type_' = (toEnum . fromIntegral) type_ - _cb type_' count - -onEntryDeleteFromCursor :: (GObject a, MonadIO m) => a -> EntryDeleteFromCursorCallback -> m SignalHandlerId -onEntryDeleteFromCursor obj cb = liftIO $ connectEntryDeleteFromCursor obj cb SignalConnectBefore -afterEntryDeleteFromCursor :: (GObject a, MonadIO m) => a -> EntryDeleteFromCursorCallback -> m SignalHandlerId -afterEntryDeleteFromCursor obj cb = connectEntryDeleteFromCursor obj cb SignalConnectAfter - -connectEntryDeleteFromCursor :: (GObject a, MonadIO m) => - a -> EntryDeleteFromCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryDeleteFromCursor obj cb after = liftIO $ do - cb' <- mkEntryDeleteFromCursorCallback (entryDeleteFromCursorCallbackWrapper cb) - connectSignalFunPtr obj "delete-from-cursor" cb' after - --- signal Entry::icon-press -type EntryIconPressCallback = - EntryIconPosition -> - Gdk.EventButton -> - IO () - -noEntryIconPressCallback :: Maybe EntryIconPressCallback -noEntryIconPressCallback = Nothing - -type EntryIconPressCallbackC = - Ptr () -> -- object - CUInt -> - Ptr Gdk.EventButton -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryIconPressCallback :: EntryIconPressCallbackC -> IO (FunPtr EntryIconPressCallbackC) - -entryIconPressClosure :: EntryIconPressCallback -> IO Closure -entryIconPressClosure cb = newCClosure =<< mkEntryIconPressCallback wrapped - where wrapped = entryIconPressCallbackWrapper cb - -entryIconPressCallbackWrapper :: - EntryIconPressCallback -> - Ptr () -> - CUInt -> - Ptr Gdk.EventButton -> - Ptr () -> - IO () -entryIconPressCallbackWrapper _cb _ icon_pos event _ = do - let icon_pos' = (toEnum . fromIntegral) icon_pos - event' <- (newPtr 80 Gdk.EventButton) event - _cb icon_pos' event' - -onEntryIconPress :: (GObject a, MonadIO m) => a -> EntryIconPressCallback -> m SignalHandlerId -onEntryIconPress obj cb = liftIO $ connectEntryIconPress obj cb SignalConnectBefore -afterEntryIconPress :: (GObject a, MonadIO m) => a -> EntryIconPressCallback -> m SignalHandlerId -afterEntryIconPress obj cb = connectEntryIconPress obj cb SignalConnectAfter - -connectEntryIconPress :: (GObject a, MonadIO m) => - a -> EntryIconPressCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryIconPress obj cb after = liftIO $ do - cb' <- mkEntryIconPressCallback (entryIconPressCallbackWrapper cb) - connectSignalFunPtr obj "icon-press" cb' after - --- signal Entry::icon-release -type EntryIconReleaseCallback = - EntryIconPosition -> - Gdk.EventButton -> - IO () - -noEntryIconReleaseCallback :: Maybe EntryIconReleaseCallback -noEntryIconReleaseCallback = Nothing - -type EntryIconReleaseCallbackC = - Ptr () -> -- object - CUInt -> - Ptr Gdk.EventButton -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryIconReleaseCallback :: EntryIconReleaseCallbackC -> IO (FunPtr EntryIconReleaseCallbackC) - -entryIconReleaseClosure :: EntryIconReleaseCallback -> IO Closure -entryIconReleaseClosure cb = newCClosure =<< mkEntryIconReleaseCallback wrapped - where wrapped = entryIconReleaseCallbackWrapper cb - -entryIconReleaseCallbackWrapper :: - EntryIconReleaseCallback -> - Ptr () -> - CUInt -> - Ptr Gdk.EventButton -> - Ptr () -> - IO () -entryIconReleaseCallbackWrapper _cb _ icon_pos event _ = do - let icon_pos' = (toEnum . fromIntegral) icon_pos - event' <- (newPtr 80 Gdk.EventButton) event - _cb icon_pos' event' - -onEntryIconRelease :: (GObject a, MonadIO m) => a -> EntryIconReleaseCallback -> m SignalHandlerId -onEntryIconRelease obj cb = liftIO $ connectEntryIconRelease obj cb SignalConnectBefore -afterEntryIconRelease :: (GObject a, MonadIO m) => a -> EntryIconReleaseCallback -> m SignalHandlerId -afterEntryIconRelease obj cb = connectEntryIconRelease obj cb SignalConnectAfter - -connectEntryIconRelease :: (GObject a, MonadIO m) => - a -> EntryIconReleaseCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryIconRelease obj cb after = liftIO $ do - cb' <- mkEntryIconReleaseCallback (entryIconReleaseCallbackWrapper cb) - connectSignalFunPtr obj "icon-release" cb' after - --- signal Entry::insert-at-cursor -type EntryInsertAtCursorCallback = - T.Text -> - IO () - -noEntryInsertAtCursorCallback :: Maybe EntryInsertAtCursorCallback -noEntryInsertAtCursorCallback = Nothing - -type EntryInsertAtCursorCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryInsertAtCursorCallback :: EntryInsertAtCursorCallbackC -> IO (FunPtr EntryInsertAtCursorCallbackC) - -entryInsertAtCursorClosure :: EntryInsertAtCursorCallback -> IO Closure -entryInsertAtCursorClosure cb = newCClosure =<< mkEntryInsertAtCursorCallback wrapped - where wrapped = entryInsertAtCursorCallbackWrapper cb - -entryInsertAtCursorCallbackWrapper :: - EntryInsertAtCursorCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -entryInsertAtCursorCallbackWrapper _cb _ string _ = do - string' <- cstringToText string - _cb string' - -onEntryInsertAtCursor :: (GObject a, MonadIO m) => a -> EntryInsertAtCursorCallback -> m SignalHandlerId -onEntryInsertAtCursor obj cb = liftIO $ connectEntryInsertAtCursor obj cb SignalConnectBefore -afterEntryInsertAtCursor :: (GObject a, MonadIO m) => a -> EntryInsertAtCursorCallback -> m SignalHandlerId -afterEntryInsertAtCursor obj cb = connectEntryInsertAtCursor obj cb SignalConnectAfter - -connectEntryInsertAtCursor :: (GObject a, MonadIO m) => - a -> EntryInsertAtCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryInsertAtCursor obj cb after = liftIO $ do - cb' <- mkEntryInsertAtCursorCallback (entryInsertAtCursorCallbackWrapper cb) - connectSignalFunPtr obj "insert-at-cursor" cb' after - --- signal Entry::move-cursor -type EntryMoveCursorCallback = - MovementStep -> - Int32 -> - Bool -> - IO () - -noEntryMoveCursorCallback :: Maybe EntryMoveCursorCallback -noEntryMoveCursorCallback = Nothing - -type EntryMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryMoveCursorCallback :: EntryMoveCursorCallbackC -> IO (FunPtr EntryMoveCursorCallbackC) - -entryMoveCursorClosure :: EntryMoveCursorCallback -> IO Closure -entryMoveCursorClosure cb = newCClosure =<< mkEntryMoveCursorCallback wrapped - where wrapped = entryMoveCursorCallbackWrapper cb - -entryMoveCursorCallbackWrapper :: - EntryMoveCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - CInt -> - Ptr () -> - IO () -entryMoveCursorCallbackWrapper _cb _ step count extend_selection _ = do - let step' = (toEnum . fromIntegral) step - let extend_selection' = (/= 0) extend_selection - _cb step' count extend_selection' - -onEntryMoveCursor :: (GObject a, MonadIO m) => a -> EntryMoveCursorCallback -> m SignalHandlerId -onEntryMoveCursor obj cb = liftIO $ connectEntryMoveCursor obj cb SignalConnectBefore -afterEntryMoveCursor :: (GObject a, MonadIO m) => a -> EntryMoveCursorCallback -> m SignalHandlerId -afterEntryMoveCursor obj cb = connectEntryMoveCursor obj cb SignalConnectAfter - -connectEntryMoveCursor :: (GObject a, MonadIO m) => - a -> EntryMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryMoveCursor obj cb after = liftIO $ do - cb' <- mkEntryMoveCursorCallback (entryMoveCursorCallbackWrapper cb) - connectSignalFunPtr obj "move-cursor" cb' after - --- signal Entry::paste-clipboard -type EntryPasteClipboardCallback = - IO () - -noEntryPasteClipboardCallback :: Maybe EntryPasteClipboardCallback -noEntryPasteClipboardCallback = Nothing - -type EntryPasteClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryPasteClipboardCallback :: EntryPasteClipboardCallbackC -> IO (FunPtr EntryPasteClipboardCallbackC) - -entryPasteClipboardClosure :: EntryPasteClipboardCallback -> IO Closure -entryPasteClipboardClosure cb = newCClosure =<< mkEntryPasteClipboardCallback wrapped - where wrapped = entryPasteClipboardCallbackWrapper cb - -entryPasteClipboardCallbackWrapper :: - EntryPasteClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -entryPasteClipboardCallbackWrapper _cb _ _ = do - _cb - -onEntryPasteClipboard :: (GObject a, MonadIO m) => a -> EntryPasteClipboardCallback -> m SignalHandlerId -onEntryPasteClipboard obj cb = liftIO $ connectEntryPasteClipboard obj cb SignalConnectBefore -afterEntryPasteClipboard :: (GObject a, MonadIO m) => a -> EntryPasteClipboardCallback -> m SignalHandlerId -afterEntryPasteClipboard obj cb = connectEntryPasteClipboard obj cb SignalConnectAfter - -connectEntryPasteClipboard :: (GObject a, MonadIO m) => - a -> EntryPasteClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryPasteClipboard obj cb after = liftIO $ do - cb' <- mkEntryPasteClipboardCallback (entryPasteClipboardCallbackWrapper cb) - connectSignalFunPtr obj "paste-clipboard" cb' after - --- signal Entry::populate-popup -type EntryPopulatePopupCallback = - Widget -> - IO () - -noEntryPopulatePopupCallback :: Maybe EntryPopulatePopupCallback -noEntryPopulatePopupCallback = Nothing - -type EntryPopulatePopupCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryPopulatePopupCallback :: EntryPopulatePopupCallbackC -> IO (FunPtr EntryPopulatePopupCallbackC) - -entryPopulatePopupClosure :: EntryPopulatePopupCallback -> IO Closure -entryPopulatePopupClosure cb = newCClosure =<< mkEntryPopulatePopupCallback wrapped - where wrapped = entryPopulatePopupCallbackWrapper cb - -entryPopulatePopupCallbackWrapper :: - EntryPopulatePopupCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -entryPopulatePopupCallbackWrapper _cb _ popup _ = do - popup' <- (newObject Widget) popup - _cb popup' - -onEntryPopulatePopup :: (GObject a, MonadIO m) => a -> EntryPopulatePopupCallback -> m SignalHandlerId -onEntryPopulatePopup obj cb = liftIO $ connectEntryPopulatePopup obj cb SignalConnectBefore -afterEntryPopulatePopup :: (GObject a, MonadIO m) => a -> EntryPopulatePopupCallback -> m SignalHandlerId -afterEntryPopulatePopup obj cb = connectEntryPopulatePopup obj cb SignalConnectAfter - -connectEntryPopulatePopup :: (GObject a, MonadIO m) => - a -> EntryPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryPopulatePopup obj cb after = liftIO $ do - cb' <- mkEntryPopulatePopupCallback (entryPopulatePopupCallbackWrapper cb) - connectSignalFunPtr obj "populate-popup" cb' after - --- signal Entry::preedit-changed -type EntryPreeditChangedCallback = - T.Text -> - IO () - -noEntryPreeditChangedCallback :: Maybe EntryPreeditChangedCallback -noEntryPreeditChangedCallback = Nothing - -type EntryPreeditChangedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryPreeditChangedCallback :: EntryPreeditChangedCallbackC -> IO (FunPtr EntryPreeditChangedCallbackC) - -entryPreeditChangedClosure :: EntryPreeditChangedCallback -> IO Closure -entryPreeditChangedClosure cb = newCClosure =<< mkEntryPreeditChangedCallback wrapped - where wrapped = entryPreeditChangedCallbackWrapper cb - -entryPreeditChangedCallbackWrapper :: - EntryPreeditChangedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -entryPreeditChangedCallbackWrapper _cb _ preedit _ = do - preedit' <- cstringToText preedit - _cb preedit' - -onEntryPreeditChanged :: (GObject a, MonadIO m) => a -> EntryPreeditChangedCallback -> m SignalHandlerId -onEntryPreeditChanged obj cb = liftIO $ connectEntryPreeditChanged obj cb SignalConnectBefore -afterEntryPreeditChanged :: (GObject a, MonadIO m) => a -> EntryPreeditChangedCallback -> m SignalHandlerId -afterEntryPreeditChanged obj cb = connectEntryPreeditChanged obj cb SignalConnectAfter - -connectEntryPreeditChanged :: (GObject a, MonadIO m) => - a -> EntryPreeditChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryPreeditChanged obj cb after = liftIO $ do - cb' <- mkEntryPreeditChangedCallback (entryPreeditChangedCallbackWrapper cb) - connectSignalFunPtr obj "preedit-changed" cb' after - --- signal Entry::toggle-overwrite -type EntryToggleOverwriteCallback = - IO () - -noEntryToggleOverwriteCallback :: Maybe EntryToggleOverwriteCallback -noEntryToggleOverwriteCallback = Nothing - -type EntryToggleOverwriteCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkEntryToggleOverwriteCallback :: EntryToggleOverwriteCallbackC -> IO (FunPtr EntryToggleOverwriteCallbackC) - -entryToggleOverwriteClosure :: EntryToggleOverwriteCallback -> IO Closure -entryToggleOverwriteClosure cb = newCClosure =<< mkEntryToggleOverwriteCallback wrapped - where wrapped = entryToggleOverwriteCallbackWrapper cb - -entryToggleOverwriteCallbackWrapper :: - EntryToggleOverwriteCallback -> - Ptr () -> - Ptr () -> - IO () -entryToggleOverwriteCallbackWrapper _cb _ _ = do - _cb - -onEntryToggleOverwrite :: (GObject a, MonadIO m) => a -> EntryToggleOverwriteCallback -> m SignalHandlerId -onEntryToggleOverwrite obj cb = liftIO $ connectEntryToggleOverwrite obj cb SignalConnectBefore -afterEntryToggleOverwrite :: (GObject a, MonadIO m) => a -> EntryToggleOverwriteCallback -> m SignalHandlerId -afterEntryToggleOverwrite obj cb = connectEntryToggleOverwrite obj cb SignalConnectAfter - -connectEntryToggleOverwrite :: (GObject a, MonadIO m) => - a -> EntryToggleOverwriteCallback -> SignalConnectMode -> m SignalHandlerId -connectEntryToggleOverwrite obj cb after = liftIO $ do - cb' <- mkEntryToggleOverwriteCallback (entryToggleOverwriteCallbackWrapper cb) - connectSignalFunPtr obj "toggle-overwrite" cb' after - --- VVV Prop "activates-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryActivatesDefault :: (MonadIO m, EntryK o) => o -> m Bool -getEntryActivatesDefault obj = liftIO $ getObjectPropertyBool obj "activates-default" - -setEntryActivatesDefault :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryActivatesDefault obj val = liftIO $ setObjectPropertyBool obj "activates-default" val - -constructEntryActivatesDefault :: Bool -> IO ([Char], GValue) -constructEntryActivatesDefault val = constructObjectPropertyBool "activates-default" val - -data EntryActivatesDefaultPropertyInfo -instance AttrInfo EntryActivatesDefaultPropertyInfo where - type AttrAllowedOps EntryActivatesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryActivatesDefaultPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryActivatesDefaultPropertyInfo = EntryK - type AttrGetType EntryActivatesDefaultPropertyInfo = Bool - type AttrLabel EntryActivatesDefaultPropertyInfo = "Entry::activates-default" - attrGet _ = getEntryActivatesDefault - attrSet _ = setEntryActivatesDefault - attrConstruct _ = constructEntryActivatesDefault - --- VVV Prop "attributes" - -- Type: TInterface "Pango" "AttrList" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryAttributes :: (MonadIO m, EntryK o) => o -> m Pango.AttrList -getEntryAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList - -setEntryAttributes :: (MonadIO m, EntryK o) => o -> Pango.AttrList -> m () -setEntryAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val - -constructEntryAttributes :: Pango.AttrList -> IO ([Char], GValue) -constructEntryAttributes val = constructObjectPropertyBoxed "attributes" val - -data EntryAttributesPropertyInfo -instance AttrInfo EntryAttributesPropertyInfo where - type AttrAllowedOps EntryAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryAttributesPropertyInfo = (~) Pango.AttrList - type AttrBaseTypeConstraint EntryAttributesPropertyInfo = EntryK - type AttrGetType EntryAttributesPropertyInfo = Pango.AttrList - type AttrLabel EntryAttributesPropertyInfo = "Entry::attributes" - attrGet _ = getEntryAttributes - attrSet _ = setEntryAttributes - attrConstruct _ = constructEntryAttributes - --- VVV Prop "buffer" - -- Type: TInterface "Gtk" "EntryBuffer" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getEntryBuffer :: (MonadIO m, EntryK o) => o -> m EntryBuffer -getEntryBuffer obj = liftIO $ getObjectPropertyObject obj "buffer" EntryBuffer - -setEntryBuffer :: (MonadIO m, EntryK o, EntryBufferK a) => o -> a -> m () -setEntryBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" val - -constructEntryBuffer :: (EntryBufferK a) => a -> IO ([Char], GValue) -constructEntryBuffer val = constructObjectPropertyObject "buffer" val - -data EntryBufferPropertyInfo -instance AttrInfo EntryBufferPropertyInfo where - type AttrAllowedOps EntryBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryBufferPropertyInfo = EntryBufferK - type AttrBaseTypeConstraint EntryBufferPropertyInfo = EntryK - type AttrGetType EntryBufferPropertyInfo = EntryBuffer - type AttrLabel EntryBufferPropertyInfo = "Entry::buffer" - attrGet _ = getEntryBuffer - attrSet _ = setEntryBuffer - attrConstruct _ = constructEntryBuffer - --- VVV Prop "caps-lock-warning" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryCapsLockWarning :: (MonadIO m, EntryK o) => o -> m Bool -getEntryCapsLockWarning obj = liftIO $ getObjectPropertyBool obj "caps-lock-warning" - -setEntryCapsLockWarning :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryCapsLockWarning obj val = liftIO $ setObjectPropertyBool obj "caps-lock-warning" val - -constructEntryCapsLockWarning :: Bool -> IO ([Char], GValue) -constructEntryCapsLockWarning val = constructObjectPropertyBool "caps-lock-warning" val - -data EntryCapsLockWarningPropertyInfo -instance AttrInfo EntryCapsLockWarningPropertyInfo where - type AttrAllowedOps EntryCapsLockWarningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCapsLockWarningPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryCapsLockWarningPropertyInfo = EntryK - type AttrGetType EntryCapsLockWarningPropertyInfo = Bool - type AttrLabel EntryCapsLockWarningPropertyInfo = "Entry::caps-lock-warning" - attrGet _ = getEntryCapsLockWarning - attrSet _ = setEntryCapsLockWarning - attrConstruct _ = constructEntryCapsLockWarning - --- VVV Prop "completion" - -- Type: TInterface "Gtk" "EntryCompletion" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryCompletion :: (MonadIO m, EntryK o) => o -> m EntryCompletion -getEntryCompletion obj = liftIO $ getObjectPropertyObject obj "completion" EntryCompletion - -setEntryCompletion :: (MonadIO m, EntryK o, EntryCompletionK a) => o -> a -> m () -setEntryCompletion obj val = liftIO $ setObjectPropertyObject obj "completion" val - -constructEntryCompletion :: (EntryCompletionK a) => a -> IO ([Char], GValue) -constructEntryCompletion val = constructObjectPropertyObject "completion" val - -data EntryCompletionPropertyInfo -instance AttrInfo EntryCompletionPropertyInfo where - type AttrAllowedOps EntryCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCompletionPropertyInfo = EntryCompletionK - type AttrBaseTypeConstraint EntryCompletionPropertyInfo = EntryK - type AttrGetType EntryCompletionPropertyInfo = EntryCompletion - type AttrLabel EntryCompletionPropertyInfo = "Entry::completion" - attrGet _ = getEntryCompletion - attrSet _ = setEntryCompletion - attrConstruct _ = constructEntryCompletion - --- VVV Prop "cursor-position" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getEntryCursorPosition :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position" - -data EntryCursorPositionPropertyInfo -instance AttrInfo EntryCursorPositionPropertyInfo where - type AttrAllowedOps EntryCursorPositionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntryCursorPositionPropertyInfo = (~) () - type AttrBaseTypeConstraint EntryCursorPositionPropertyInfo = EntryK - type AttrGetType EntryCursorPositionPropertyInfo = Int32 - type AttrLabel EntryCursorPositionPropertyInfo = "Entry::cursor-position" - attrGet _ = getEntryCursorPosition - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryEditable :: (MonadIO m, EntryK o) => o -> m Bool -getEntryEditable obj = liftIO $ getObjectPropertyBool obj "editable" - -setEntryEditable :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val - -constructEntryEditable :: Bool -> IO ([Char], GValue) -constructEntryEditable val = constructObjectPropertyBool "editable" val - -data EntryEditablePropertyInfo -instance AttrInfo EntryEditablePropertyInfo where - type AttrAllowedOps EntryEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryEditablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryEditablePropertyInfo = EntryK - type AttrGetType EntryEditablePropertyInfo = Bool - type AttrLabel EntryEditablePropertyInfo = "Entry::editable" - attrGet _ = getEntryEditable - attrSet _ = setEntryEditable - attrConstruct _ = constructEntryEditable - --- VVV Prop "has-frame" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryHasFrame :: (MonadIO m, EntryK o) => o -> m Bool -getEntryHasFrame obj = liftIO $ getObjectPropertyBool obj "has-frame" - -setEntryHasFrame :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryHasFrame obj val = liftIO $ setObjectPropertyBool obj "has-frame" val - -constructEntryHasFrame :: Bool -> IO ([Char], GValue) -constructEntryHasFrame val = constructObjectPropertyBool "has-frame" val - -data EntryHasFramePropertyInfo -instance AttrInfo EntryHasFramePropertyInfo where - type AttrAllowedOps EntryHasFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryHasFramePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryHasFramePropertyInfo = EntryK - type AttrGetType EntryHasFramePropertyInfo = Bool - type AttrLabel EntryHasFramePropertyInfo = "Entry::has-frame" - attrGet _ = getEntryHasFrame - attrSet _ = setEntryHasFrame - attrConstruct _ = constructEntryHasFrame - --- VVV Prop "im-module" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryImModule :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryImModule obj = liftIO $ getObjectPropertyString obj "im-module" - -setEntryImModule :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryImModule obj val = liftIO $ setObjectPropertyString obj "im-module" val - -constructEntryImModule :: T.Text -> IO ([Char], GValue) -constructEntryImModule val = constructObjectPropertyString "im-module" val - -data EntryImModulePropertyInfo -instance AttrInfo EntryImModulePropertyInfo where - type AttrAllowedOps EntryImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryImModulePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryImModulePropertyInfo = EntryK - type AttrGetType EntryImModulePropertyInfo = T.Text - type AttrLabel EntryImModulePropertyInfo = "Entry::im-module" - attrGet _ = getEntryImModule - attrSet _ = setEntryImModule - attrConstruct _ = constructEntryImModule - --- VVV Prop "inner-border" - -- Type: TInterface "Gtk" "Border" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m Border -getEntryInnerBorder obj = liftIO $ getObjectPropertyBoxed obj "inner-border" Border - -setEntryInnerBorder :: (MonadIO m, EntryK o) => o -> Border -> m () -setEntryInnerBorder obj val = liftIO $ setObjectPropertyBoxed obj "inner-border" val - -constructEntryInnerBorder :: Border -> IO ([Char], GValue) -constructEntryInnerBorder val = constructObjectPropertyBoxed "inner-border" val - -data EntryInnerBorderPropertyInfo -instance AttrInfo EntryInnerBorderPropertyInfo where - type AttrAllowedOps EntryInnerBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryInnerBorderPropertyInfo = (~) Border - type AttrBaseTypeConstraint EntryInnerBorderPropertyInfo = EntryK - type AttrGetType EntryInnerBorderPropertyInfo = Border - type AttrLabel EntryInnerBorderPropertyInfo = "Entry::inner-border" - attrGet _ = getEntryInnerBorder - attrSet _ = setEntryInnerBorder - attrConstruct _ = constructEntryInnerBorder - --- VVV Prop "input-hints" - -- Type: TInterface "Gtk" "InputHints" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryInputHints :: (MonadIO m, EntryK o) => o -> m [InputHints] -getEntryInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints" - -setEntryInputHints :: (MonadIO m, EntryK o) => o -> [InputHints] -> m () -setEntryInputHints obj val = liftIO $ setObjectPropertyFlags obj "input-hints" val - -constructEntryInputHints :: [InputHints] -> IO ([Char], GValue) -constructEntryInputHints val = constructObjectPropertyFlags "input-hints" val - -data EntryInputHintsPropertyInfo -instance AttrInfo EntryInputHintsPropertyInfo where - type AttrAllowedOps EntryInputHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryInputHintsPropertyInfo = (~) [InputHints] - type AttrBaseTypeConstraint EntryInputHintsPropertyInfo = EntryK - type AttrGetType EntryInputHintsPropertyInfo = [InputHints] - type AttrLabel EntryInputHintsPropertyInfo = "Entry::input-hints" - attrGet _ = getEntryInputHints - attrSet _ = setEntryInputHints - attrConstruct _ = constructEntryInputHints - --- VVV Prop "input-purpose" - -- Type: TInterface "Gtk" "InputPurpose" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryInputPurpose :: (MonadIO m, EntryK o) => o -> m InputPurpose -getEntryInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose" - -setEntryInputPurpose :: (MonadIO m, EntryK o) => o -> InputPurpose -> m () -setEntryInputPurpose obj val = liftIO $ setObjectPropertyEnum obj "input-purpose" val - -constructEntryInputPurpose :: InputPurpose -> IO ([Char], GValue) -constructEntryInputPurpose val = constructObjectPropertyEnum "input-purpose" val - -data EntryInputPurposePropertyInfo -instance AttrInfo EntryInputPurposePropertyInfo where - type AttrAllowedOps EntryInputPurposePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryInputPurposePropertyInfo = (~) InputPurpose - type AttrBaseTypeConstraint EntryInputPurposePropertyInfo = EntryK - type AttrGetType EntryInputPurposePropertyInfo = InputPurpose - type AttrLabel EntryInputPurposePropertyInfo = "Entry::input-purpose" - attrGet _ = getEntryInputPurpose - attrSet _ = setEntryInputPurpose - attrConstruct _ = constructEntryInputPurpose - --- VVV Prop "invisible-char" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> m Word32 -getEntryInvisibleChar obj = liftIO $ getObjectPropertyCUInt obj "invisible-char" - -setEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> Word32 -> m () -setEntryInvisibleChar obj val = liftIO $ setObjectPropertyCUInt obj "invisible-char" val - -constructEntryInvisibleChar :: Word32 -> IO ([Char], GValue) -constructEntryInvisibleChar val = constructObjectPropertyCUInt "invisible-char" val - -data EntryInvisibleCharPropertyInfo -instance AttrInfo EntryInvisibleCharPropertyInfo where - type AttrAllowedOps EntryInvisibleCharPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryInvisibleCharPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint EntryInvisibleCharPropertyInfo = EntryK - type AttrGetType EntryInvisibleCharPropertyInfo = Word32 - type AttrLabel EntryInvisibleCharPropertyInfo = "Entry::invisible-char" - attrGet _ = getEntryInvisibleChar - attrSet _ = setEntryInvisibleChar - attrConstruct _ = constructEntryInvisibleChar - --- VVV Prop "invisible-char-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryInvisibleCharSet :: (MonadIO m, EntryK o) => o -> m Bool -getEntryInvisibleCharSet obj = liftIO $ getObjectPropertyBool obj "invisible-char-set" - -setEntryInvisibleCharSet :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryInvisibleCharSet obj val = liftIO $ setObjectPropertyBool obj "invisible-char-set" val - -constructEntryInvisibleCharSet :: Bool -> IO ([Char], GValue) -constructEntryInvisibleCharSet val = constructObjectPropertyBool "invisible-char-set" val - -data EntryInvisibleCharSetPropertyInfo -instance AttrInfo EntryInvisibleCharSetPropertyInfo where - type AttrAllowedOps EntryInvisibleCharSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryInvisibleCharSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryInvisibleCharSetPropertyInfo = EntryK - type AttrGetType EntryInvisibleCharSetPropertyInfo = Bool - type AttrLabel EntryInvisibleCharSetPropertyInfo = "Entry::invisible-char-set" - attrGet _ = getEntryInvisibleCharSet - attrSet _ = setEntryInvisibleCharSet - attrConstruct _ = constructEntryInvisibleCharSet - --- VVV Prop "max-length" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryMaxLength :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryMaxLength obj = liftIO $ getObjectPropertyCInt obj "max-length" - -setEntryMaxLength :: (MonadIO m, EntryK o) => o -> Int32 -> m () -setEntryMaxLength obj val = liftIO $ setObjectPropertyCInt obj "max-length" val - -constructEntryMaxLength :: Int32 -> IO ([Char], GValue) -constructEntryMaxLength val = constructObjectPropertyCInt "max-length" val - -data EntryMaxLengthPropertyInfo -instance AttrInfo EntryMaxLengthPropertyInfo where - type AttrAllowedOps EntryMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryMaxLengthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint EntryMaxLengthPropertyInfo = EntryK - type AttrGetType EntryMaxLengthPropertyInfo = Int32 - type AttrLabel EntryMaxLengthPropertyInfo = "Entry::max-length" - attrGet _ = getEntryMaxLength - attrSet _ = setEntryMaxLength - attrConstruct _ = constructEntryMaxLength - --- VVV Prop "max-width-chars" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" - -setEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m () -setEntryMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val - -constructEntryMaxWidthChars :: Int32 -> IO ([Char], GValue) -constructEntryMaxWidthChars val = constructObjectPropertyCInt "max-width-chars" val - -data EntryMaxWidthCharsPropertyInfo -instance AttrInfo EntryMaxWidthCharsPropertyInfo where - type AttrAllowedOps EntryMaxWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryMaxWidthCharsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint EntryMaxWidthCharsPropertyInfo = EntryK - type AttrGetType EntryMaxWidthCharsPropertyInfo = Int32 - type AttrLabel EntryMaxWidthCharsPropertyInfo = "Entry::max-width-chars" - attrGet _ = getEntryMaxWidthChars - attrSet _ = setEntryMaxWidthChars - attrConstruct _ = constructEntryMaxWidthChars - --- VVV Prop "overwrite-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryOverwriteMode :: (MonadIO m, EntryK o) => o -> m Bool -getEntryOverwriteMode obj = liftIO $ getObjectPropertyBool obj "overwrite-mode" - -setEntryOverwriteMode :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryOverwriteMode obj val = liftIO $ setObjectPropertyBool obj "overwrite-mode" val - -constructEntryOverwriteMode :: Bool -> IO ([Char], GValue) -constructEntryOverwriteMode val = constructObjectPropertyBool "overwrite-mode" val - -data EntryOverwriteModePropertyInfo -instance AttrInfo EntryOverwriteModePropertyInfo where - type AttrAllowedOps EntryOverwriteModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryOverwriteModePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryOverwriteModePropertyInfo = EntryK - type AttrGetType EntryOverwriteModePropertyInfo = Bool - type AttrLabel EntryOverwriteModePropertyInfo = "Entry::overwrite-mode" - attrGet _ = getEntryOverwriteMode - attrSet _ = setEntryOverwriteMode - attrConstruct _ = constructEntryOverwriteMode - --- VVV Prop "placeholder-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryPlaceholderText obj = liftIO $ getObjectPropertyString obj "placeholder-text" - -setEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" val - -constructEntryPlaceholderText :: T.Text -> IO ([Char], GValue) -constructEntryPlaceholderText val = constructObjectPropertyString "placeholder-text" val - -data EntryPlaceholderTextPropertyInfo -instance AttrInfo EntryPlaceholderTextPropertyInfo where - type AttrAllowedOps EntryPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPlaceholderTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPlaceholderTextPropertyInfo = EntryK - type AttrGetType EntryPlaceholderTextPropertyInfo = T.Text - type AttrLabel EntryPlaceholderTextPropertyInfo = "Entry::placeholder-text" - attrGet _ = getEntryPlaceholderText - attrSet _ = setEntryPlaceholderText - attrConstruct _ = constructEntryPlaceholderText - --- VVV Prop "populate-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPopulateAll :: (MonadIO m, EntryK o) => o -> m Bool -getEntryPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all" - -setEntryPopulateAll :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryPopulateAll obj val = liftIO $ setObjectPropertyBool obj "populate-all" val - -constructEntryPopulateAll :: Bool -> IO ([Char], GValue) -constructEntryPopulateAll val = constructObjectPropertyBool "populate-all" val - -data EntryPopulateAllPropertyInfo -instance AttrInfo EntryPopulateAllPropertyInfo where - type AttrAllowedOps EntryPopulateAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPopulateAllPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryPopulateAllPropertyInfo = EntryK - type AttrGetType EntryPopulateAllPropertyInfo = Bool - type AttrLabel EntryPopulateAllPropertyInfo = "Entry::populate-all" - attrGet _ = getEntryPopulateAll - attrSet _ = setEntryPopulateAll - attrConstruct _ = constructEntryPopulateAll - --- VVV Prop "primary-icon-activatable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconActivatable :: (MonadIO m, EntryK o) => o -> m Bool -getEntryPrimaryIconActivatable obj = liftIO $ getObjectPropertyBool obj "primary-icon-activatable" - -setEntryPrimaryIconActivatable :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryPrimaryIconActivatable obj val = liftIO $ setObjectPropertyBool obj "primary-icon-activatable" val - -constructEntryPrimaryIconActivatable :: Bool -> IO ([Char], GValue) -constructEntryPrimaryIconActivatable val = constructObjectPropertyBool "primary-icon-activatable" val - -data EntryPrimaryIconActivatablePropertyInfo -instance AttrInfo EntryPrimaryIconActivatablePropertyInfo where - type AttrAllowedOps EntryPrimaryIconActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconActivatablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryPrimaryIconActivatablePropertyInfo = EntryK - type AttrGetType EntryPrimaryIconActivatablePropertyInfo = Bool - type AttrLabel EntryPrimaryIconActivatablePropertyInfo = "Entry::primary-icon-activatable" - attrGet _ = getEntryPrimaryIconActivatable - attrSet _ = setEntryPrimaryIconActivatable - attrConstruct _ = constructEntryPrimaryIconActivatable - --- VVV Prop "primary-icon-gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m Gio.Icon -getEntryPrimaryIconGicon obj = liftIO $ getObjectPropertyObject obj "primary-icon-gicon" Gio.Icon - -setEntryPrimaryIconGicon :: (MonadIO m, EntryK o, Gio.IconK a) => o -> a -> m () -setEntryPrimaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "primary-icon-gicon" val - -constructEntryPrimaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructEntryPrimaryIconGicon val = constructObjectPropertyObject "primary-icon-gicon" val - -data EntryPrimaryIconGiconPropertyInfo -instance AttrInfo EntryPrimaryIconGiconPropertyInfo where - type AttrAllowedOps EntryPrimaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint EntryPrimaryIconGiconPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconGiconPropertyInfo = Gio.Icon - type AttrLabel EntryPrimaryIconGiconPropertyInfo = "Entry::primary-icon-gicon" - attrGet _ = getEntryPrimaryIconGicon - attrSet _ = setEntryPrimaryIconGicon - attrConstruct _ = constructEntryPrimaryIconGicon - --- VVV Prop "primary-icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryPrimaryIconName obj = liftIO $ getObjectPropertyString obj "primary-icon-name" - -setEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPrimaryIconName obj val = liftIO $ setObjectPropertyString obj "primary-icon-name" val - -constructEntryPrimaryIconName :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconName val = constructObjectPropertyString "primary-icon-name" val - -data EntryPrimaryIconNamePropertyInfo -instance AttrInfo EntryPrimaryIconNamePropertyInfo where - type AttrAllowedOps EntryPrimaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPrimaryIconNamePropertyInfo = EntryK - type AttrGetType EntryPrimaryIconNamePropertyInfo = T.Text - type AttrLabel EntryPrimaryIconNamePropertyInfo = "Entry::primary-icon-name" - attrGet _ = getEntryPrimaryIconName - attrSet _ = setEntryPrimaryIconName - attrConstruct _ = constructEntryPrimaryIconName - --- VVV Prop "primary-icon-pixbuf" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m GdkPixbuf.Pixbuf -getEntryPrimaryIconPixbuf obj = liftIO $ getObjectPropertyObject obj "primary-icon-pixbuf" GdkPixbuf.Pixbuf - -setEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setEntryPrimaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "primary-icon-pixbuf" val - -constructEntryPrimaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructEntryPrimaryIconPixbuf val = constructObjectPropertyObject "primary-icon-pixbuf" val - -data EntryPrimaryIconPixbufPropertyInfo -instance AttrInfo EntryPrimaryIconPixbufPropertyInfo where - type AttrAllowedOps EntryPrimaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint EntryPrimaryIconPixbufPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel EntryPrimaryIconPixbufPropertyInfo = "Entry::primary-icon-pixbuf" - attrGet _ = getEntryPrimaryIconPixbuf - attrSet _ = setEntryPrimaryIconPixbuf - attrConstruct _ = constructEntryPrimaryIconPixbuf - --- VVV Prop "primary-icon-sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconSensitive :: (MonadIO m, EntryK o) => o -> m Bool -getEntryPrimaryIconSensitive obj = liftIO $ getObjectPropertyBool obj "primary-icon-sensitive" - -setEntryPrimaryIconSensitive :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryPrimaryIconSensitive obj val = liftIO $ setObjectPropertyBool obj "primary-icon-sensitive" val - -constructEntryPrimaryIconSensitive :: Bool -> IO ([Char], GValue) -constructEntryPrimaryIconSensitive val = constructObjectPropertyBool "primary-icon-sensitive" val - -data EntryPrimaryIconSensitivePropertyInfo -instance AttrInfo EntryPrimaryIconSensitivePropertyInfo where - type AttrAllowedOps EntryPrimaryIconSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconSensitivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryPrimaryIconSensitivePropertyInfo = EntryK - type AttrGetType EntryPrimaryIconSensitivePropertyInfo = Bool - type AttrLabel EntryPrimaryIconSensitivePropertyInfo = "Entry::primary-icon-sensitive" - attrGet _ = getEntryPrimaryIconSensitive - attrSet _ = setEntryPrimaryIconSensitive - attrConstruct _ = constructEntryPrimaryIconSensitive - --- VVV Prop "primary-icon-stock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryPrimaryIconStock obj = liftIO $ getObjectPropertyString obj "primary-icon-stock" - -setEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPrimaryIconStock obj val = liftIO $ setObjectPropertyString obj "primary-icon-stock" val - -constructEntryPrimaryIconStock :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconStock val = constructObjectPropertyString "primary-icon-stock" val - -data EntryPrimaryIconStockPropertyInfo -instance AttrInfo EntryPrimaryIconStockPropertyInfo where - type AttrAllowedOps EntryPrimaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconStockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPrimaryIconStockPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconStockPropertyInfo = T.Text - type AttrLabel EntryPrimaryIconStockPropertyInfo = "Entry::primary-icon-stock" - attrGet _ = getEntryPrimaryIconStock - attrSet _ = setEntryPrimaryIconStock - attrConstruct _ = constructEntryPrimaryIconStock - --- VVV Prop "primary-icon-storage-type" - -- Type: TInterface "Gtk" "ImageType" - -- Flags: [PropertyReadable] - -getEntryPrimaryIconStorageType :: (MonadIO m, EntryK o) => o -> m ImageType -getEntryPrimaryIconStorageType obj = liftIO $ getObjectPropertyEnum obj "primary-icon-storage-type" - -data EntryPrimaryIconStorageTypePropertyInfo -instance AttrInfo EntryPrimaryIconStorageTypePropertyInfo where - type AttrAllowedOps EntryPrimaryIconStorageTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconStorageTypePropertyInfo = (~) () - type AttrBaseTypeConstraint EntryPrimaryIconStorageTypePropertyInfo = EntryK - type AttrGetType EntryPrimaryIconStorageTypePropertyInfo = ImageType - type AttrLabel EntryPrimaryIconStorageTypePropertyInfo = "Entry::primary-icon-storage-type" - attrGet _ = getEntryPrimaryIconStorageType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "primary-icon-tooltip-markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryPrimaryIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "primary-icon-tooltip-markup" - -setEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPrimaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-markup" val - -constructEntryPrimaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconTooltipMarkup val = constructObjectPropertyString "primary-icon-tooltip-markup" val - -data EntryPrimaryIconTooltipMarkupPropertyInfo -instance AttrInfo EntryPrimaryIconTooltipMarkupPropertyInfo where - type AttrAllowedOps EntryPrimaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconTooltipMarkupPropertyInfo = T.Text - type AttrLabel EntryPrimaryIconTooltipMarkupPropertyInfo = "Entry::primary-icon-tooltip-markup" - attrGet _ = getEntryPrimaryIconTooltipMarkup - attrSet _ = setEntryPrimaryIconTooltipMarkup - attrConstruct _ = constructEntryPrimaryIconTooltipMarkup - --- VVV Prop "primary-icon-tooltip-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryPrimaryIconTooltipText obj = liftIO $ getObjectPropertyString obj "primary-icon-tooltip-text" - -setEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPrimaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-text" val - -constructEntryPrimaryIconTooltipText :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconTooltipText val = constructObjectPropertyString "primary-icon-tooltip-text" val - -data EntryPrimaryIconTooltipTextPropertyInfo -instance AttrInfo EntryPrimaryIconTooltipTextPropertyInfo where - type AttrAllowedOps EntryPrimaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconTooltipTextPropertyInfo = T.Text - type AttrLabel EntryPrimaryIconTooltipTextPropertyInfo = "Entry::primary-icon-tooltip-text" - attrGet _ = getEntryPrimaryIconTooltipText - attrSet _ = setEntryPrimaryIconTooltipText - attrConstruct _ = constructEntryPrimaryIconTooltipText - --- VVV Prop "progress-fraction" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryProgressFraction :: (MonadIO m, EntryK o) => o -> m Double -getEntryProgressFraction obj = liftIO $ getObjectPropertyDouble obj "progress-fraction" - -setEntryProgressFraction :: (MonadIO m, EntryK o) => o -> Double -> m () -setEntryProgressFraction obj val = liftIO $ setObjectPropertyDouble obj "progress-fraction" val - -constructEntryProgressFraction :: Double -> IO ([Char], GValue) -constructEntryProgressFraction val = constructObjectPropertyDouble "progress-fraction" val - -data EntryProgressFractionPropertyInfo -instance AttrInfo EntryProgressFractionPropertyInfo where - type AttrAllowedOps EntryProgressFractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryProgressFractionPropertyInfo = (~) Double - type AttrBaseTypeConstraint EntryProgressFractionPropertyInfo = EntryK - type AttrGetType EntryProgressFractionPropertyInfo = Double - type AttrLabel EntryProgressFractionPropertyInfo = "Entry::progress-fraction" - attrGet _ = getEntryProgressFraction - attrSet _ = setEntryProgressFraction - attrConstruct _ = constructEntryProgressFraction - --- VVV Prop "progress-pulse-step" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryProgressPulseStep :: (MonadIO m, EntryK o) => o -> m Double -getEntryProgressPulseStep obj = liftIO $ getObjectPropertyDouble obj "progress-pulse-step" - -setEntryProgressPulseStep :: (MonadIO m, EntryK o) => o -> Double -> m () -setEntryProgressPulseStep obj val = liftIO $ setObjectPropertyDouble obj "progress-pulse-step" val - -constructEntryProgressPulseStep :: Double -> IO ([Char], GValue) -constructEntryProgressPulseStep val = constructObjectPropertyDouble "progress-pulse-step" val - -data EntryProgressPulseStepPropertyInfo -instance AttrInfo EntryProgressPulseStepPropertyInfo where - type AttrAllowedOps EntryProgressPulseStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryProgressPulseStepPropertyInfo = (~) Double - type AttrBaseTypeConstraint EntryProgressPulseStepPropertyInfo = EntryK - type AttrGetType EntryProgressPulseStepPropertyInfo = Double - type AttrLabel EntryProgressPulseStepPropertyInfo = "Entry::progress-pulse-step" - attrGet _ = getEntryProgressPulseStep - attrSet _ = setEntryProgressPulseStep - attrConstruct _ = constructEntryProgressPulseStep - --- VVV Prop "scroll-offset" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getEntryScrollOffset :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryScrollOffset obj = liftIO $ getObjectPropertyCInt obj "scroll-offset" - -data EntryScrollOffsetPropertyInfo -instance AttrInfo EntryScrollOffsetPropertyInfo where - type AttrAllowedOps EntryScrollOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntryScrollOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint EntryScrollOffsetPropertyInfo = EntryK - type AttrGetType EntryScrollOffsetPropertyInfo = Int32 - type AttrLabel EntryScrollOffsetPropertyInfo = "Entry::scroll-offset" - attrGet _ = getEntryScrollOffset - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "secondary-icon-activatable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconActivatable :: (MonadIO m, EntryK o) => o -> m Bool -getEntrySecondaryIconActivatable obj = liftIO $ getObjectPropertyBool obj "secondary-icon-activatable" - -setEntrySecondaryIconActivatable :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntrySecondaryIconActivatable obj val = liftIO $ setObjectPropertyBool obj "secondary-icon-activatable" val - -constructEntrySecondaryIconActivatable :: Bool -> IO ([Char], GValue) -constructEntrySecondaryIconActivatable val = constructObjectPropertyBool "secondary-icon-activatable" val - -data EntrySecondaryIconActivatablePropertyInfo -instance AttrInfo EntrySecondaryIconActivatablePropertyInfo where - type AttrAllowedOps EntrySecondaryIconActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconActivatablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntrySecondaryIconActivatablePropertyInfo = EntryK - type AttrGetType EntrySecondaryIconActivatablePropertyInfo = Bool - type AttrLabel EntrySecondaryIconActivatablePropertyInfo = "Entry::secondary-icon-activatable" - attrGet _ = getEntrySecondaryIconActivatable - attrSet _ = setEntrySecondaryIconActivatable - attrConstruct _ = constructEntrySecondaryIconActivatable - --- VVV Prop "secondary-icon-gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m Gio.Icon -getEntrySecondaryIconGicon obj = liftIO $ getObjectPropertyObject obj "secondary-icon-gicon" Gio.Icon - -setEntrySecondaryIconGicon :: (MonadIO m, EntryK o, Gio.IconK a) => o -> a -> m () -setEntrySecondaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-gicon" val - -constructEntrySecondaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructEntrySecondaryIconGicon val = constructObjectPropertyObject "secondary-icon-gicon" val - -data EntrySecondaryIconGiconPropertyInfo -instance AttrInfo EntrySecondaryIconGiconPropertyInfo where - type AttrAllowedOps EntrySecondaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint EntrySecondaryIconGiconPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconGiconPropertyInfo = Gio.Icon - type AttrLabel EntrySecondaryIconGiconPropertyInfo = "Entry::secondary-icon-gicon" - attrGet _ = getEntrySecondaryIconGicon - attrSet _ = setEntrySecondaryIconGicon - attrConstruct _ = constructEntrySecondaryIconGicon - --- VVV Prop "secondary-icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m T.Text -getEntrySecondaryIconName obj = liftIO $ getObjectPropertyString obj "secondary-icon-name" - -setEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntrySecondaryIconName obj val = liftIO $ setObjectPropertyString obj "secondary-icon-name" val - -constructEntrySecondaryIconName :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconName val = constructObjectPropertyString "secondary-icon-name" val - -data EntrySecondaryIconNamePropertyInfo -instance AttrInfo EntrySecondaryIconNamePropertyInfo where - type AttrAllowedOps EntrySecondaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntrySecondaryIconNamePropertyInfo = EntryK - type AttrGetType EntrySecondaryIconNamePropertyInfo = T.Text - type AttrLabel EntrySecondaryIconNamePropertyInfo = "Entry::secondary-icon-name" - attrGet _ = getEntrySecondaryIconName - attrSet _ = setEntrySecondaryIconName - attrConstruct _ = constructEntrySecondaryIconName - --- VVV Prop "secondary-icon-pixbuf" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m GdkPixbuf.Pixbuf -getEntrySecondaryIconPixbuf obj = liftIO $ getObjectPropertyObject obj "secondary-icon-pixbuf" GdkPixbuf.Pixbuf - -setEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setEntrySecondaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-pixbuf" val - -constructEntrySecondaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructEntrySecondaryIconPixbuf val = constructObjectPropertyObject "secondary-icon-pixbuf" val - -data EntrySecondaryIconPixbufPropertyInfo -instance AttrInfo EntrySecondaryIconPixbufPropertyInfo where - type AttrAllowedOps EntrySecondaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint EntrySecondaryIconPixbufPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel EntrySecondaryIconPixbufPropertyInfo = "Entry::secondary-icon-pixbuf" - attrGet _ = getEntrySecondaryIconPixbuf - attrSet _ = setEntrySecondaryIconPixbuf - attrConstruct _ = constructEntrySecondaryIconPixbuf - --- VVV Prop "secondary-icon-sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconSensitive :: (MonadIO m, EntryK o) => o -> m Bool -getEntrySecondaryIconSensitive obj = liftIO $ getObjectPropertyBool obj "secondary-icon-sensitive" - -setEntrySecondaryIconSensitive :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntrySecondaryIconSensitive obj val = liftIO $ setObjectPropertyBool obj "secondary-icon-sensitive" val - -constructEntrySecondaryIconSensitive :: Bool -> IO ([Char], GValue) -constructEntrySecondaryIconSensitive val = constructObjectPropertyBool "secondary-icon-sensitive" val - -data EntrySecondaryIconSensitivePropertyInfo -instance AttrInfo EntrySecondaryIconSensitivePropertyInfo where - type AttrAllowedOps EntrySecondaryIconSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconSensitivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntrySecondaryIconSensitivePropertyInfo = EntryK - type AttrGetType EntrySecondaryIconSensitivePropertyInfo = Bool - type AttrLabel EntrySecondaryIconSensitivePropertyInfo = "Entry::secondary-icon-sensitive" - attrGet _ = getEntrySecondaryIconSensitive - attrSet _ = setEntrySecondaryIconSensitive - attrConstruct _ = constructEntrySecondaryIconSensitive - --- VVV Prop "secondary-icon-stock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m T.Text -getEntrySecondaryIconStock obj = liftIO $ getObjectPropertyString obj "secondary-icon-stock" - -setEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntrySecondaryIconStock obj val = liftIO $ setObjectPropertyString obj "secondary-icon-stock" val - -constructEntrySecondaryIconStock :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconStock val = constructObjectPropertyString "secondary-icon-stock" val - -data EntrySecondaryIconStockPropertyInfo -instance AttrInfo EntrySecondaryIconStockPropertyInfo where - type AttrAllowedOps EntrySecondaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconStockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntrySecondaryIconStockPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconStockPropertyInfo = T.Text - type AttrLabel EntrySecondaryIconStockPropertyInfo = "Entry::secondary-icon-stock" - attrGet _ = getEntrySecondaryIconStock - attrSet _ = setEntrySecondaryIconStock - attrConstruct _ = constructEntrySecondaryIconStock - --- VVV Prop "secondary-icon-storage-type" - -- Type: TInterface "Gtk" "ImageType" - -- Flags: [PropertyReadable] - -getEntrySecondaryIconStorageType :: (MonadIO m, EntryK o) => o -> m ImageType -getEntrySecondaryIconStorageType obj = liftIO $ getObjectPropertyEnum obj "secondary-icon-storage-type" - -data EntrySecondaryIconStorageTypePropertyInfo -instance AttrInfo EntrySecondaryIconStorageTypePropertyInfo where - type AttrAllowedOps EntrySecondaryIconStorageTypePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconStorageTypePropertyInfo = (~) () - type AttrBaseTypeConstraint EntrySecondaryIconStorageTypePropertyInfo = EntryK - type AttrGetType EntrySecondaryIconStorageTypePropertyInfo = ImageType - type AttrLabel EntrySecondaryIconStorageTypePropertyInfo = "Entry::secondary-icon-storage-type" - attrGet _ = getEntrySecondaryIconStorageType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "secondary-icon-tooltip-markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m T.Text -getEntrySecondaryIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "secondary-icon-tooltip-markup" - -setEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntrySecondaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-markup" val - -constructEntrySecondaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconTooltipMarkup val = constructObjectPropertyString "secondary-icon-tooltip-markup" val - -data EntrySecondaryIconTooltipMarkupPropertyInfo -instance AttrInfo EntrySecondaryIconTooltipMarkupPropertyInfo where - type AttrAllowedOps EntrySecondaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconTooltipMarkupPropertyInfo = T.Text - type AttrLabel EntrySecondaryIconTooltipMarkupPropertyInfo = "Entry::secondary-icon-tooltip-markup" - attrGet _ = getEntrySecondaryIconTooltipMarkup - attrSet _ = setEntrySecondaryIconTooltipMarkup - attrConstruct _ = constructEntrySecondaryIconTooltipMarkup - --- VVV Prop "secondary-icon-tooltip-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m T.Text -getEntrySecondaryIconTooltipText obj = liftIO $ getObjectPropertyString obj "secondary-icon-tooltip-text" - -setEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntrySecondaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-text" val - -constructEntrySecondaryIconTooltipText :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconTooltipText val = constructObjectPropertyString "secondary-icon-tooltip-text" val - -data EntrySecondaryIconTooltipTextPropertyInfo -instance AttrInfo EntrySecondaryIconTooltipTextPropertyInfo where - type AttrAllowedOps EntrySecondaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconTooltipTextPropertyInfo = T.Text - type AttrLabel EntrySecondaryIconTooltipTextPropertyInfo = "Entry::secondary-icon-tooltip-text" - attrGet _ = getEntrySecondaryIconTooltipText - attrSet _ = setEntrySecondaryIconTooltipText - attrConstruct _ = constructEntrySecondaryIconTooltipText - --- VVV Prop "selection-bound" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getEntrySelectionBound :: (MonadIO m, EntryK o) => o -> m Int32 -getEntrySelectionBound obj = liftIO $ getObjectPropertyCInt obj "selection-bound" - -data EntrySelectionBoundPropertyInfo -instance AttrInfo EntrySelectionBoundPropertyInfo where - type AttrAllowedOps EntrySelectionBoundPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntrySelectionBoundPropertyInfo = (~) () - type AttrBaseTypeConstraint EntrySelectionBoundPropertyInfo = EntryK - type AttrGetType EntrySelectionBoundPropertyInfo = Int32 - type AttrLabel EntrySelectionBoundPropertyInfo = "Entry::selection-bound" - attrGet _ = getEntrySelectionBound - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryShadowType :: (MonadIO m, EntryK o) => o -> m ShadowType -getEntryShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" - -setEntryShadowType :: (MonadIO m, EntryK o) => o -> ShadowType -> m () -setEntryShadowType obj val = liftIO $ setObjectPropertyEnum obj "shadow-type" val - -constructEntryShadowType :: ShadowType -> IO ([Char], GValue) -constructEntryShadowType val = constructObjectPropertyEnum "shadow-type" val - -data EntryShadowTypePropertyInfo -instance AttrInfo EntryShadowTypePropertyInfo where - type AttrAllowedOps EntryShadowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryShadowTypePropertyInfo = (~) ShadowType - type AttrBaseTypeConstraint EntryShadowTypePropertyInfo = EntryK - type AttrGetType EntryShadowTypePropertyInfo = ShadowType - type AttrLabel EntryShadowTypePropertyInfo = "Entry::shadow-type" - attrGet _ = getEntryShadowType - attrSet _ = setEntryShadowType - attrConstruct _ = constructEntryShadowType - --- VVV Prop "tabs" - -- Type: TInterface "Pango" "TabArray" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryTabs :: (MonadIO m, EntryK o) => o -> m Pango.TabArray -getEntryTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray - -setEntryTabs :: (MonadIO m, EntryK o) => o -> Pango.TabArray -> m () -setEntryTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" val - -constructEntryTabs :: Pango.TabArray -> IO ([Char], GValue) -constructEntryTabs val = constructObjectPropertyBoxed "tabs" val - -data EntryTabsPropertyInfo -instance AttrInfo EntryTabsPropertyInfo where - type AttrAllowedOps EntryTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryTabsPropertyInfo = (~) Pango.TabArray - type AttrBaseTypeConstraint EntryTabsPropertyInfo = EntryK - type AttrGetType EntryTabsPropertyInfo = Pango.TabArray - type AttrLabel EntryTabsPropertyInfo = "Entry::tabs" - attrGet _ = getEntryTabs - attrSet _ = setEntryTabs - attrConstruct _ = constructEntryTabs - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryText :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryText obj = liftIO $ getObjectPropertyString obj "text" - -setEntryText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructEntryText :: T.Text -> IO ([Char], GValue) -constructEntryText val = constructObjectPropertyString "text" val - -data EntryTextPropertyInfo -instance AttrInfo EntryTextPropertyInfo where - type AttrAllowedOps EntryTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryTextPropertyInfo = EntryK - type AttrGetType EntryTextPropertyInfo = T.Text - type AttrLabel EntryTextPropertyInfo = "Entry::text" - attrGet _ = getEntryText - attrSet _ = setEntryText - attrConstruct _ = constructEntryText - --- VVV Prop "text-length" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getEntryTextLength :: (MonadIO m, EntryK o) => o -> m Word32 -getEntryTextLength obj = liftIO $ getObjectPropertyCUInt obj "text-length" - -data EntryTextLengthPropertyInfo -instance AttrInfo EntryTextLengthPropertyInfo where - type AttrAllowedOps EntryTextLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint EntryTextLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint EntryTextLengthPropertyInfo = EntryK - type AttrGetType EntryTextLengthPropertyInfo = Word32 - type AttrLabel EntryTextLengthPropertyInfo = "Entry::text-length" - attrGet _ = getEntryTextLength - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "truncate-multiline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryTruncateMultiline :: (MonadIO m, EntryK o) => o -> m Bool -getEntryTruncateMultiline obj = liftIO $ getObjectPropertyBool obj "truncate-multiline" - -setEntryTruncateMultiline :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryTruncateMultiline obj val = liftIO $ setObjectPropertyBool obj "truncate-multiline" val - -constructEntryTruncateMultiline :: Bool -> IO ([Char], GValue) -constructEntryTruncateMultiline val = constructObjectPropertyBool "truncate-multiline" val - -data EntryTruncateMultilinePropertyInfo -instance AttrInfo EntryTruncateMultilinePropertyInfo where - type AttrAllowedOps EntryTruncateMultilinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryTruncateMultilinePropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryTruncateMultilinePropertyInfo = EntryK - type AttrGetType EntryTruncateMultilinePropertyInfo = Bool - type AttrLabel EntryTruncateMultilinePropertyInfo = "Entry::truncate-multiline" - attrGet _ = getEntryTruncateMultiline - attrSet _ = setEntryTruncateMultiline - attrConstruct _ = constructEntryTruncateMultiline - --- VVV Prop "visibility" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryVisibility :: (MonadIO m, EntryK o) => o -> m Bool -getEntryVisibility obj = liftIO $ getObjectPropertyBool obj "visibility" - -setEntryVisibility :: (MonadIO m, EntryK o) => o -> Bool -> m () -setEntryVisibility obj val = liftIO $ setObjectPropertyBool obj "visibility" val - -constructEntryVisibility :: Bool -> IO ([Char], GValue) -constructEntryVisibility val = constructObjectPropertyBool "visibility" val - -data EntryVisibilityPropertyInfo -instance AttrInfo EntryVisibilityPropertyInfo where - type AttrAllowedOps EntryVisibilityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryVisibilityPropertyInfo = (~) Bool - type AttrBaseTypeConstraint EntryVisibilityPropertyInfo = EntryK - type AttrGetType EntryVisibilityPropertyInfo = Bool - type AttrLabel EntryVisibilityPropertyInfo = "Entry::visibility" - attrGet _ = getEntryVisibility - attrSet _ = setEntryVisibility - attrConstruct _ = constructEntryVisibility - --- VVV Prop "width-chars" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryWidthChars :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" - -setEntryWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m () -setEntryWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val - -constructEntryWidthChars :: Int32 -> IO ([Char], GValue) -constructEntryWidthChars val = constructObjectPropertyCInt "width-chars" val - -data EntryWidthCharsPropertyInfo -instance AttrInfo EntryWidthCharsPropertyInfo where - type AttrAllowedOps EntryWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryWidthCharsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint EntryWidthCharsPropertyInfo = EntryK - type AttrGetType EntryWidthCharsPropertyInfo = Int32 - type AttrLabel EntryWidthCharsPropertyInfo = "Entry::width-chars" - attrGet _ = getEntryWidthChars - attrSet _ = setEntryWidthChars - attrConstruct _ = constructEntryWidthChars - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryXalign :: (MonadIO m, EntryK o) => o -> m Float -getEntryXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" - -setEntryXalign :: (MonadIO m, EntryK o) => o -> Float -> m () -setEntryXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val - -constructEntryXalign :: Float -> IO ([Char], GValue) -constructEntryXalign val = constructObjectPropertyFloat "xalign" val - -data EntryXalignPropertyInfo -instance AttrInfo EntryXalignPropertyInfo where - type AttrAllowedOps EntryXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryXalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint EntryXalignPropertyInfo = EntryK - type AttrGetType EntryXalignPropertyInfo = Float - type AttrLabel EntryXalignPropertyInfo = "Entry::xalign" - attrGet _ = getEntryXalign - attrSet _ = setEntryXalign - attrConstruct _ = constructEntryXalign - -type instance AttributeList Entry = EntryAttributeList -type EntryAttributeList = ('[ '("activates-default", EntryActivatesDefaultPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("caps-lock-warning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", EntryCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", EntryHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("im-module", EntryImModulePropertyInfo), '("inner-border", EntryInnerBorderPropertyInfo), '("input-hints", EntryInputHintsPropertyInfo), '("input-purpose", EntryInputPurposePropertyInfo), '("invisible-char", EntryInvisibleCharPropertyInfo), '("invisible-char-set", EntryInvisibleCharSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-length", EntryMaxLengthPropertyInfo), '("max-width-chars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite-mode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholder-text", EntryPlaceholderTextPropertyInfo), '("populate-all", EntryPopulateAllPropertyInfo), '("primary-icon-activatable", EntryPrimaryIconActivatablePropertyInfo), '("primary-icon-gicon", EntryPrimaryIconGiconPropertyInfo), '("primary-icon-name", EntryPrimaryIconNamePropertyInfo), '("primary-icon-pixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primary-icon-sensitive", EntryPrimaryIconSensitivePropertyInfo), '("primary-icon-stock", EntryPrimaryIconStockPropertyInfo), '("primary-icon-storage-type", EntryPrimaryIconStorageTypePropertyInfo), '("primary-icon-tooltip-markup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primary-icon-tooltip-text", EntryPrimaryIconTooltipTextPropertyInfo), '("progress-fraction", EntryProgressFractionPropertyInfo), '("progress-pulse-step", EntryProgressPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scroll-offset", EntryScrollOffsetPropertyInfo), '("secondary-icon-activatable", EntrySecondaryIconActivatablePropertyInfo), '("secondary-icon-gicon", EntrySecondaryIconGiconPropertyInfo), '("secondary-icon-name", EntrySecondaryIconNamePropertyInfo), '("secondary-icon-pixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondary-icon-sensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondary-icon-stock", EntrySecondaryIconStockPropertyInfo), '("secondary-icon-storage-type", EntrySecondaryIconStorageTypePropertyInfo), '("secondary-icon-tooltip-markup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondary-icon-tooltip-text", EntrySecondaryIconTooltipTextPropertyInfo), '("selection-bound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("text-length", EntryTextLengthPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("truncate-multiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", EntryWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) - -data EntryActivateSignalInfo -instance SignalInfo EntryActivateSignalInfo where - type HaskellCallbackType EntryActivateSignalInfo = EntryActivateCallback - connectSignal _ = connectEntryActivate - -data EntryBackspaceSignalInfo -instance SignalInfo EntryBackspaceSignalInfo where - type HaskellCallbackType EntryBackspaceSignalInfo = EntryBackspaceCallback - connectSignal _ = connectEntryBackspace - -data EntryCopyClipboardSignalInfo -instance SignalInfo EntryCopyClipboardSignalInfo where - type HaskellCallbackType EntryCopyClipboardSignalInfo = EntryCopyClipboardCallback - connectSignal _ = connectEntryCopyClipboard - -data EntryCutClipboardSignalInfo -instance SignalInfo EntryCutClipboardSignalInfo where - type HaskellCallbackType EntryCutClipboardSignalInfo = EntryCutClipboardCallback - connectSignal _ = connectEntryCutClipboard - -data EntryDeleteFromCursorSignalInfo -instance SignalInfo EntryDeleteFromCursorSignalInfo where - type HaskellCallbackType EntryDeleteFromCursorSignalInfo = EntryDeleteFromCursorCallback - connectSignal _ = connectEntryDeleteFromCursor - -data EntryIconPressSignalInfo -instance SignalInfo EntryIconPressSignalInfo where - type HaskellCallbackType EntryIconPressSignalInfo = EntryIconPressCallback - connectSignal _ = connectEntryIconPress - -data EntryIconReleaseSignalInfo -instance SignalInfo EntryIconReleaseSignalInfo where - type HaskellCallbackType EntryIconReleaseSignalInfo = EntryIconReleaseCallback - connectSignal _ = connectEntryIconRelease - -data EntryInsertAtCursorSignalInfo -instance SignalInfo EntryInsertAtCursorSignalInfo where - type HaskellCallbackType EntryInsertAtCursorSignalInfo = EntryInsertAtCursorCallback - connectSignal _ = connectEntryInsertAtCursor - -data EntryMoveCursorSignalInfo -instance SignalInfo EntryMoveCursorSignalInfo where - type HaskellCallbackType EntryMoveCursorSignalInfo = EntryMoveCursorCallback - connectSignal _ = connectEntryMoveCursor - -data EntryPasteClipboardSignalInfo -instance SignalInfo EntryPasteClipboardSignalInfo where - type HaskellCallbackType EntryPasteClipboardSignalInfo = EntryPasteClipboardCallback - connectSignal _ = connectEntryPasteClipboard - -data EntryPopulatePopupSignalInfo -instance SignalInfo EntryPopulatePopupSignalInfo where - type HaskellCallbackType EntryPopulatePopupSignalInfo = EntryPopulatePopupCallback - connectSignal _ = connectEntryPopulatePopup - -data EntryPreeditChangedSignalInfo -instance SignalInfo EntryPreeditChangedSignalInfo where - type HaskellCallbackType EntryPreeditChangedSignalInfo = EntryPreeditChangedCallback - connectSignal _ = connectEntryPreeditChanged - -data EntryToggleOverwriteSignalInfo -instance SignalInfo EntryToggleOverwriteSignalInfo where - type HaskellCallbackType EntryToggleOverwriteSignalInfo = EntryToggleOverwriteCallback - connectSignal _ = connectEntryToggleOverwrite - -type instance SignalList Entry = EntrySignalList -type EntrySignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", EditableChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", EntryCopyClipboardSignalInfo), '("cut-clipboard", EntryCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", EntryDeleteFromCursorSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("icon-press", EntryIconPressSignalInfo), '("icon-release", EntryIconReleaseSignalInfo), '("insert-at-cursor", EntryInsertAtCursorSignalInfo), '("insert-text", EditableInsertTextSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", EntryMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", EntryPasteClipboardSignalInfo), '("populate-popup", EntryPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", EntryPreeditChangedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-overwrite", EntryToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Entry::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Gtk" "Entry" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_new" gtk_entry_new :: - IO (Ptr Entry) - - -entryNew :: - (MonadIO m) => - m Entry -entryNew = liftIO $ do - result <- gtk_entry_new - checkUnexpectedReturnNULL "gtk_entry_new" result - result' <- (newObject Entry) result - return result' - --- method Entry::new_with_buffer --- method type : Constructor --- Args : [Arg {argName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Entry" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_new_with_buffer" gtk_entry_new_with_buffer :: - Ptr EntryBuffer -> -- buffer : TInterface "Gtk" "EntryBuffer" - IO (Ptr Entry) - - -entryNewWithBuffer :: - (MonadIO m, EntryBufferK a) => - a -> -- buffer - m Entry -entryNewWithBuffer buffer = liftIO $ do - let buffer' = unsafeManagedPtrCastPtr buffer - result <- gtk_entry_new_with_buffer buffer' - checkUnexpectedReturnNULL "gtk_entry_new_with_buffer" result - result' <- (newObject Entry) result - touchManagedPtr buffer - return result' - --- method Entry::get_activates_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_activates_default" gtk_entry_get_activates_default :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CInt - - -entryGetActivatesDefault :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Bool -entryGetActivatesDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_activates_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Entry::get_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TFloat --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_alignment" gtk_entry_get_alignment :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CFloat - - -entryGetAlignment :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Float -entryGetAlignment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_alignment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Entry::get_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "AttrList" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_attributes" gtk_entry_get_attributes :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr Pango.AttrList) - - -entryGetAttributes :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Pango.AttrList -entryGetAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_attributes _obj' - checkUnexpectedReturnNULL "gtk_entry_get_attributes" result - result' <- (newBoxed Pango.AttrList) result - touchManagedPtr _obj - return result' - --- method Entry::get_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "EntryBuffer" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_buffer" gtk_entry_get_buffer :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr EntryBuffer) - - -entryGetBuffer :: - (MonadIO m, EntryK a) => - a -> -- _obj - m EntryBuffer -entryGetBuffer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_buffer _obj' - checkUnexpectedReturnNULL "gtk_entry_get_buffer" result - result' <- (newObject EntryBuffer) result - touchManagedPtr _obj - return result' - --- method Entry::get_completion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "EntryCompletion" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_completion" gtk_entry_get_completion :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr EntryCompletion) - - -entryGetCompletion :: - (MonadIO m, EntryK a) => - a -> -- _obj - m EntryCompletion -entryGetCompletion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_completion _obj' - checkUnexpectedReturnNULL "gtk_entry_get_completion" result - result' <- (newObject EntryCompletion) result - touchManagedPtr _obj - return result' - --- method Entry::get_current_icon_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_current_icon_drag_source" gtk_entry_get_current_icon_drag_source :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO Int32 - - -entryGetCurrentIconDragSource :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Int32 -entryGetCurrentIconDragSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_current_icon_drag_source _obj' - touchManagedPtr _obj - return result - --- method Entry::get_cursor_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Adjustment" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_cursor_hadjustment" gtk_entry_get_cursor_hadjustment :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr Adjustment) - - -entryGetCursorHadjustment :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Adjustment -entryGetCursorHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_cursor_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_entry_get_cursor_hadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - --- method Entry::get_has_frame --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_has_frame" gtk_entry_get_has_frame :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CInt - - -entryGetHasFrame :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Bool -entryGetHasFrame _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_has_frame _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_activatable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_activatable" gtk_entry_get_icon_activatable :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CInt - - -entryGetIconActivatable :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - m Bool -entryGetIconActivatable _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_activatable _obj' icon_pos' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_area" gtk_entry_get_icon_area :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - Ptr Gdk.Rectangle -> -- icon_area : TInterface "Gdk" "Rectangle" - IO () - - -entryGetIconArea :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - m (Gdk.Rectangle) -entryGetIconArea _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - icon_area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_entry_get_icon_area _obj' icon_pos' icon_area - icon_area' <- (wrapBoxed Gdk.Rectangle) icon_area - touchManagedPtr _obj - return icon_area' - --- method Entry::get_icon_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_at_pos" gtk_entry_get_icon_at_pos :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - IO Int32 - - -entryGetIconAtPos :: - (MonadIO m, EntryK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m Int32 -entryGetIconAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_icon_at_pos _obj' x y - touchManagedPtr _obj - return result - --- method Entry::get_icon_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "Icon" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_gicon" gtk_entry_get_icon_gicon :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO (Ptr Gio.Icon) - - -entryGetIconGicon :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - m Gio.Icon -entryGetIconGicon _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_gicon _obj' icon_pos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_gicon" result - result' <- (newObject Gio.Icon) result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_name" gtk_entry_get_icon_name :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CString - - -entryGetIconName :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - m T.Text -entryGetIconName _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_name _obj' icon_pos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_pixbuf" gtk_entry_get_icon_pixbuf :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO (Ptr GdkPixbuf.Pixbuf) - - -entryGetIconPixbuf :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - m GdkPixbuf.Pixbuf -entryGetIconPixbuf _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_pixbuf _obj' icon_pos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_pixbuf" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_sensitive" gtk_entry_get_icon_sensitive :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CInt - - -entryGetIconSensitive :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - m Bool -entryGetIconSensitive _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_sensitive _obj' icon_pos' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_stock" gtk_entry_get_icon_stock :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CString - -{-# DEPRECATED entryGetIconStock ["(Since version 3.10)","Use gtk_entry_get_icon_name() instead."]#-} -entryGetIconStock :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - m T.Text -entryGetIconStock _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_stock _obj' icon_pos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_stock" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_storage_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "ImageType" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_storage_type" gtk_entry_get_icon_storage_type :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CUInt - - -entryGetIconStorageType :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - m ImageType -entryGetIconStorageType _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_storage_type _obj' icon_pos' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_tooltip_markup" gtk_entry_get_icon_tooltip_markup :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CString - - -entryGetIconTooltipMarkup :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - m T.Text -entryGetIconTooltipMarkup _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_tooltip_markup _obj' icon_pos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_markup" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_icon_tooltip_text" gtk_entry_get_icon_tooltip_text :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - IO CString - - -entryGetIconTooltipText :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - m T.Text -entryGetIconTooltipText _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_tooltip_text _obj' icon_pos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Entry::get_inner_border --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Border" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_inner_border" gtk_entry_get_inner_border :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr Border) - -{-# DEPRECATED entryGetInnerBorder ["(Since version 3.4)","Use the standard border and padding CSS properties (through"," objects like #GtkStyleContext and #GtkCssProvider); the value returned by"," this function is ignored by #GtkEntry."]#-} -entryGetInnerBorder :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Border -entryGetInnerBorder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_inner_border _obj' - checkUnexpectedReturnNULL "gtk_entry_get_inner_border" result - result' <- (newBoxed Border) result - touchManagedPtr _obj - return result' - --- method Entry::get_input_hints --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "InputHints" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_input_hints" gtk_entry_get_input_hints :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CUInt - - -entryGetInputHints :: - (MonadIO m, EntryK a) => - a -> -- _obj - m [InputHints] -entryGetInputHints _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_input_hints _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Entry::get_input_purpose --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "InputPurpose" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_input_purpose" gtk_entry_get_input_purpose :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CUInt - - -entryGetInputPurpose :: - (MonadIO m, EntryK a) => - a -> -- _obj - m InputPurpose -entryGetInputPurpose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_input_purpose _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Entry::get_invisible_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUniChar --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_invisible_char" gtk_entry_get_invisible_char :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CInt - - -entryGetInvisibleChar :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Char -entryGetInvisibleChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_invisible_char _obj' - let result' = (chr . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Entry::get_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "Layout" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_layout" gtk_entry_get_layout :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr Pango.Layout) - - -entryGetLayout :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Pango.Layout -entryGetLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_layout _obj' - checkUnexpectedReturnNULL "gtk_entry_get_layout" result - result' <- (newObject Pango.Layout) result - touchManagedPtr _obj - return result' - --- method Entry::get_layout_offsets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_layout_offsets" gtk_entry_get_layout_offsets :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - IO () - - -entryGetLayoutOffsets :: - (MonadIO m, EntryK a) => - a -> -- _obj - m (Int32,Int32) -entryGetLayoutOffsets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - gtk_entry_get_layout_offsets _obj' x y - x' <- peek x - y' <- peek y - touchManagedPtr _obj - freeMem x - freeMem y - return (x', y') - --- method Entry::get_max_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_max_length" gtk_entry_get_max_length :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO Int32 - - -entryGetMaxLength :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Int32 -entryGetMaxLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_max_length _obj' - touchManagedPtr _obj - return result - --- method Entry::get_max_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_max_width_chars" gtk_entry_get_max_width_chars :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO Int32 - - -entryGetMaxWidthChars :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Int32 -entryGetMaxWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_max_width_chars _obj' - touchManagedPtr _obj - return result - --- method Entry::get_overwrite_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_overwrite_mode" gtk_entry_get_overwrite_mode :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CInt - - -entryGetOverwriteMode :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Bool -entryGetOverwriteMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_overwrite_mode _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Entry::get_placeholder_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_placeholder_text" gtk_entry_get_placeholder_text :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CString - - -entryGetPlaceholderText :: - (MonadIO m, EntryK a) => - a -> -- _obj - m T.Text -entryGetPlaceholderText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_placeholder_text _obj' - checkUnexpectedReturnNULL "gtk_entry_get_placeholder_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Entry::get_progress_fraction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_progress_fraction" gtk_entry_get_progress_fraction :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CDouble - - -entryGetProgressFraction :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Double -entryGetProgressFraction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_progress_fraction _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Entry::get_progress_pulse_step --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_progress_pulse_step" gtk_entry_get_progress_pulse_step :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CDouble - - -entryGetProgressPulseStep :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Double -entryGetProgressPulseStep _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_progress_pulse_step _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Entry::get_tabs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "TabArray" --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_tabs" gtk_entry_get_tabs :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO (Ptr Pango.TabArray) - - -entryGetTabs :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Pango.TabArray -entryGetTabs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_tabs _obj' - checkUnexpectedReturnNULL "gtk_entry_get_tabs" result - result' <- (newBoxed Pango.TabArray) result - touchManagedPtr _obj - return result' - --- method Entry::get_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_text" gtk_entry_get_text :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CString - - -entryGetText :: - (MonadIO m, EntryK a) => - a -> -- _obj - m T.Text -entryGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_text _obj' - checkUnexpectedReturnNULL "gtk_entry_get_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Entry::get_text_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_text_area" gtk_entry_get_text_area :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Gdk.Rectangle -> -- text_area : TInterface "Gdk" "Rectangle" - IO () - - -entryGetTextArea :: - (MonadIO m, EntryK a) => - a -> -- _obj - m (Gdk.Rectangle) -entryGetTextArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text_area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_entry_get_text_area _obj' text_area - text_area' <- (wrapBoxed Gdk.Rectangle) text_area - touchManagedPtr _obj - return text_area' - --- method Entry::get_text_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt16 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_text_length" gtk_entry_get_text_length :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO Word16 - - -entryGetTextLength :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Word16 -entryGetTextLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_text_length _obj' - touchManagedPtr _obj - return result - --- method Entry::get_visibility --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_visibility" gtk_entry_get_visibility :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO CInt - - -entryGetVisibility :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Bool -entryGetVisibility _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_visibility _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Entry::get_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_get_width_chars" gtk_entry_get_width_chars :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO Int32 - - -entryGetWidthChars :: - (MonadIO m, EntryK a) => - a -> -- _obj - m Int32 -entryGetWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_width_chars _obj' - touchManagedPtr _obj - return result - --- method Entry::grab_focus_without_selecting --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_grab_focus_without_selecting" gtk_entry_grab_focus_without_selecting :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO () - - -entryGrabFocusWithoutSelecting :: - (MonadIO m, EntryK a) => - a -> -- _obj - m () -entryGrabFocusWithoutSelecting _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_grab_focus_without_selecting _obj' - touchManagedPtr _obj - return () - --- method Entry::im_context_filter_keypress --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_im_context_filter_keypress" gtk_entry_im_context_filter_keypress :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" - IO CInt - - -entryImContextFilterKeypress :: - (MonadIO m, EntryK a) => - a -> -- _obj - Gdk.EventKey -> -- event - m Bool -entryImContextFilterKeypress _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_entry_im_context_filter_keypress _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - --- method Entry::layout_index_to_text_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_layout_index_to_text_index" gtk_entry_layout_index_to_text_index :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- layout_index : TBasicType TInt32 - IO Int32 - - -entryLayoutIndexToTextIndex :: - (MonadIO m, EntryK a) => - a -> -- _obj - Int32 -> -- layout_index - m Int32 -entryLayoutIndexToTextIndex _obj layout_index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_layout_index_to_text_index _obj' layout_index - touchManagedPtr _obj - return result - --- method Entry::progress_pulse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_progress_pulse" gtk_entry_progress_pulse :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO () - - -entryProgressPulse :: - (MonadIO m, EntryK a) => - a -> -- _obj - m () -entryProgressPulse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_progress_pulse _obj' - touchManagedPtr _obj - return () - --- method Entry::reset_im_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_reset_im_context" gtk_entry_reset_im_context :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO () - - -entryResetImContext :: - (MonadIO m, EntryK a) => - a -> -- _obj - m () -entryResetImContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_reset_im_context _obj' - touchManagedPtr _obj - return () - --- method Entry::set_activates_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_activates_default" gtk_entry_set_activates_default :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CInt -> -- setting : TBasicType TBoolean - IO () - - -entrySetActivatesDefault :: - (MonadIO m, EntryK a) => - a -> -- _obj - Bool -> -- setting - m () -entrySetActivatesDefault _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_entry_set_activates_default _obj' setting' - touchManagedPtr _obj - return () - --- method Entry::set_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_alignment" gtk_entry_set_alignment :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CFloat -> -- xalign : TBasicType TFloat - IO () - - -entrySetAlignment :: - (MonadIO m, EntryK a) => - a -> -- _obj - Float -> -- xalign - m () -entrySetAlignment _obj xalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - gtk_entry_set_alignment _obj' xalign' - touchManagedPtr _obj - return () - --- method Entry::set_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_attributes" gtk_entry_set_attributes :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Pango.AttrList -> -- attrs : TInterface "Pango" "AttrList" - IO () - - -entrySetAttributes :: - (MonadIO m, EntryK a) => - a -> -- _obj - Pango.AttrList -> -- attrs - m () -entrySetAttributes _obj attrs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let attrs' = unsafeManagedPtrGetPtr attrs - gtk_entry_set_attributes _obj' attrs' - touchManagedPtr _obj - touchManagedPtr attrs - return () - --- method Entry::set_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_buffer" gtk_entry_set_buffer :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr EntryBuffer -> -- buffer : TInterface "Gtk" "EntryBuffer" - IO () - - -entrySetBuffer :: - (MonadIO m, EntryK a, EntryBufferK b) => - a -> -- _obj - b -> -- buffer - m () -entrySetBuffer _obj buffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let buffer' = unsafeManagedPtrCastPtr buffer - gtk_entry_set_buffer _obj' buffer' - touchManagedPtr _obj - touchManagedPtr buffer - return () - --- method Entry::set_completion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "completion", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "completion", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_completion" gtk_entry_set_completion :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr EntryCompletion -> -- completion : TInterface "Gtk" "EntryCompletion" - IO () - - -entrySetCompletion :: - (MonadIO m, EntryK a, EntryCompletionK b) => - a -> -- _obj - Maybe (b) -> -- completion - m () -entrySetCompletion _obj completion = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCompletion <- case completion of - Nothing -> return nullPtr - Just jCompletion -> do - let jCompletion' = unsafeManagedPtrCastPtr jCompletion - return jCompletion' - gtk_entry_set_completion _obj' maybeCompletion - touchManagedPtr _obj - whenJust completion touchManagedPtr - return () - --- method Entry::set_cursor_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_cursor_hadjustment" gtk_entry_set_cursor_hadjustment :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - - -entrySetCursorHadjustment :: - (MonadIO m, EntryK a, AdjustmentK b) => - a -> -- _obj - b -> -- adjustment - m () -entrySetCursorHadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let adjustment' = unsafeManagedPtrCastPtr adjustment - gtk_entry_set_cursor_hadjustment _obj' adjustment' - touchManagedPtr _obj - touchManagedPtr adjustment - return () - --- method Entry::set_has_frame --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_has_frame" gtk_entry_set_has_frame :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CInt -> -- setting : TBasicType TBoolean - IO () - - -entrySetHasFrame :: - (MonadIO m, EntryK a) => - a -> -- _obj - Bool -> -- setting - m () -entrySetHasFrame _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_entry_set_has_frame _obj' setting' - touchManagedPtr _obj - return () - --- method Entry::set_icon_activatable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_activatable" gtk_entry_set_icon_activatable :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - CInt -> -- activatable : TBasicType TBoolean - IO () - - -entrySetIconActivatable :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - Bool -> -- activatable - m () -entrySetIconActivatable _obj icon_pos activatable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - let activatable' = (fromIntegral . fromEnum) activatable - gtk_entry_set_icon_activatable _obj' icon_pos' activatable' - touchManagedPtr _obj - return () - --- method Entry::set_icon_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_drag_source" gtk_entry_set_icon_drag_source :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -entrySetIconDragSource :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - TargetList -> -- target_list - [Gdk.DragAction] -> -- actions - m () -entrySetIconDragSource _obj icon_pos target_list actions = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - let target_list' = unsafeManagedPtrGetPtr target_list - let actions' = gflagsToWord actions - gtk_entry_set_icon_drag_source _obj' icon_pos' target_list' actions' - touchManagedPtr _obj - touchManagedPtr target_list - return () - --- method Entry::set_icon_from_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_from_gicon" gtk_entry_set_icon_from_gicon :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - IO () - - -entrySetIconFromGicon :: - (MonadIO m, EntryK a, Gio.IconK b) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - Maybe (b) -> -- icon - m () -entrySetIconFromGicon _obj icon_pos icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - maybeIcon <- case icon of - Nothing -> return nullPtr - Just jIcon -> do - let jIcon' = unsafeManagedPtrCastPtr jIcon - return jIcon' - gtk_entry_set_icon_from_gicon _obj' icon_pos' maybeIcon - touchManagedPtr _obj - whenJust icon touchManagedPtr - return () - --- method Entry::set_icon_from_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_from_icon_name" gtk_entry_set_icon_from_icon_name :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - CString -> -- icon_name : TBasicType TUTF8 - IO () - - -entrySetIconFromIconName :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - Maybe (T.Text) -> -- icon_name - m () -entrySetIconFromIconName _obj icon_pos icon_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - maybeIcon_name <- case icon_name of - Nothing -> return nullPtr - Just jIcon_name -> do - jIcon_name' <- textToCString jIcon_name - return jIcon_name' - gtk_entry_set_icon_from_icon_name _obj' icon_pos' maybeIcon_name - touchManagedPtr _obj - freeMem maybeIcon_name - return () - --- method Entry::set_icon_from_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_from_pixbuf" gtk_entry_set_icon_from_pixbuf :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -entrySetIconFromPixbuf :: - (MonadIO m, EntryK a, GdkPixbuf.PixbufK b) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - Maybe (b) -> -- pixbuf - m () -entrySetIconFromPixbuf _obj icon_pos pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - maybePixbuf <- case pixbuf of - Nothing -> return nullPtr - Just jPixbuf -> do - let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf - return jPixbuf' - gtk_entry_set_icon_from_pixbuf _obj' icon_pos' maybePixbuf - touchManagedPtr _obj - whenJust pixbuf touchManagedPtr - return () - --- method Entry::set_icon_from_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_from_stock" gtk_entry_set_icon_from_stock :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - CString -> -- stock_id : TBasicType TUTF8 - IO () - -{-# DEPRECATED entrySetIconFromStock ["(Since version 3.10)","Use gtk_entry_set_icon_from_icon_name() instead."]#-} -entrySetIconFromStock :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - Maybe (T.Text) -> -- stock_id - m () -entrySetIconFromStock _obj icon_pos stock_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - maybeStock_id <- case stock_id of - Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - gtk_entry_set_icon_from_stock _obj' icon_pos' maybeStock_id - touchManagedPtr _obj - freeMem maybeStock_id - return () - --- method Entry::set_icon_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_sensitive" gtk_entry_set_icon_sensitive :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - CInt -> -- sensitive : TBasicType TBoolean - IO () - - -entrySetIconSensitive :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - Bool -> -- sensitive - m () -entrySetIconSensitive _obj icon_pos sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_entry_set_icon_sensitive _obj' icon_pos' sensitive' - touchManagedPtr _obj - return () - --- method Entry::set_icon_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_tooltip_markup" gtk_entry_set_icon_tooltip_markup :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - CString -> -- tooltip : TBasicType TUTF8 - IO () - - -entrySetIconTooltipMarkup :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - Maybe (T.Text) -> -- tooltip - m () -entrySetIconTooltipMarkup _obj icon_pos tooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - maybeTooltip <- case tooltip of - Nothing -> return nullPtr - Just jTooltip -> do - jTooltip' <- textToCString jTooltip - return jTooltip' - gtk_entry_set_icon_tooltip_markup _obj' icon_pos' maybeTooltip - touchManagedPtr _obj - freeMem maybeTooltip - return () - --- method Entry::set_icon_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_icon_tooltip_text" gtk_entry_set_icon_tooltip_text :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" - CString -> -- tooltip : TBasicType TUTF8 - IO () - - -entrySetIconTooltipText :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - Maybe (T.Text) -> -- tooltip - m () -entrySetIconTooltipText _obj icon_pos tooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - maybeTooltip <- case tooltip of - Nothing -> return nullPtr - Just jTooltip -> do - jTooltip' <- textToCString jTooltip - return jTooltip' - gtk_entry_set_icon_tooltip_text _obj' icon_pos' maybeTooltip - touchManagedPtr _obj - freeMem maybeTooltip - return () - --- method Entry::set_inner_border --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_inner_border" gtk_entry_set_inner_border :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Border -> -- border : TInterface "Gtk" "Border" - IO () - -{-# DEPRECATED entrySetInnerBorder ["(Since version 3.4)","Use the standard border and padding CSS properties (through"," objects like #GtkStyleContext and #GtkCssProvider); the value set with"," this function is ignored by #GtkEntry."]#-} -entrySetInnerBorder :: - (MonadIO m, EntryK a) => - a -> -- _obj - Maybe (Border) -> -- border - m () -entrySetInnerBorder _obj border = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBorder <- case border of - Nothing -> return nullPtr - Just jBorder -> do - let jBorder' = unsafeManagedPtrGetPtr jBorder - return jBorder' - gtk_entry_set_inner_border _obj' maybeBorder - touchManagedPtr _obj - whenJust border touchManagedPtr - return () - --- method Entry::set_input_hints --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_input_hints" gtk_entry_set_input_hints :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- hints : TInterface "Gtk" "InputHints" - IO () - - -entrySetInputHints :: - (MonadIO m, EntryK a) => - a -> -- _obj - [InputHints] -> -- hints - m () -entrySetInputHints _obj hints = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hints' = gflagsToWord hints - gtk_entry_set_input_hints _obj' hints' - touchManagedPtr _obj - return () - --- method Entry::set_input_purpose --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_input_purpose" gtk_entry_set_input_purpose :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CUInt -> -- purpose : TInterface "Gtk" "InputPurpose" - IO () - - -entrySetInputPurpose :: - (MonadIO m, EntryK a) => - a -> -- _obj - InputPurpose -> -- purpose - m () -entrySetInputPurpose _obj purpose = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let purpose' = (fromIntegral . fromEnum) purpose - gtk_entry_set_input_purpose _obj' purpose' - touchManagedPtr _obj - return () - --- method Entry::set_invisible_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_invisible_char" gtk_entry_set_invisible_char :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CInt -> -- ch : TBasicType TUniChar - IO () - - -entrySetInvisibleChar :: - (MonadIO m, EntryK a) => - a -> -- _obj - Char -> -- ch - m () -entrySetInvisibleChar _obj ch = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let ch' = (fromIntegral . ord) ch - gtk_entry_set_invisible_char _obj' ch' - touchManagedPtr _obj - return () - --- method Entry::set_max_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_max_length" gtk_entry_set_max_length :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- max : TBasicType TInt32 - IO () - - -entrySetMaxLength :: - (MonadIO m, EntryK a) => - a -> -- _obj - Int32 -> -- max - m () -entrySetMaxLength _obj max = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_set_max_length _obj' max - touchManagedPtr _obj - return () - --- method Entry::set_max_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_max_width_chars" gtk_entry_set_max_width_chars :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- n_chars : TBasicType TInt32 - IO () - - -entrySetMaxWidthChars :: - (MonadIO m, EntryK a) => - a -> -- _obj - Int32 -> -- n_chars - m () -entrySetMaxWidthChars _obj n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_set_max_width_chars _obj' n_chars - touchManagedPtr _obj - return () - --- method Entry::set_overwrite_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_overwrite_mode" gtk_entry_set_overwrite_mode :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CInt -> -- overwrite : TBasicType TBoolean - IO () - - -entrySetOverwriteMode :: - (MonadIO m, EntryK a) => - a -> -- _obj - Bool -> -- overwrite - m () -entrySetOverwriteMode _obj overwrite = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let overwrite' = (fromIntegral . fromEnum) overwrite - gtk_entry_set_overwrite_mode _obj' overwrite' - touchManagedPtr _obj - return () - --- method Entry::set_placeholder_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_placeholder_text" gtk_entry_set_placeholder_text :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CString -> -- text : TBasicType TUTF8 - IO () - - -entrySetPlaceholderText :: - (MonadIO m, EntryK a) => - a -> -- _obj - T.Text -> -- text - m () -entrySetPlaceholderText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_entry_set_placeholder_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - --- method Entry::set_progress_fraction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_progress_fraction" gtk_entry_set_progress_fraction :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CDouble -> -- fraction : TBasicType TDouble - IO () - - -entrySetProgressFraction :: - (MonadIO m, EntryK a) => - a -> -- _obj - Double -> -- fraction - m () -entrySetProgressFraction _obj fraction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fraction' = realToFrac fraction - gtk_entry_set_progress_fraction _obj' fraction' - touchManagedPtr _obj - return () - --- method Entry::set_progress_pulse_step --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_progress_pulse_step" gtk_entry_set_progress_pulse_step :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CDouble -> -- fraction : TBasicType TDouble - IO () - - -entrySetProgressPulseStep :: - (MonadIO m, EntryK a) => - a -> -- _obj - Double -> -- fraction - m () -entrySetProgressPulseStep _obj fraction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fraction' = realToFrac fraction - gtk_entry_set_progress_pulse_step _obj' fraction' - touchManagedPtr _obj - return () - --- method Entry::set_tabs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_tabs" gtk_entry_set_tabs :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Pango.TabArray -> -- tabs : TInterface "Pango" "TabArray" - IO () - - -entrySetTabs :: - (MonadIO m, EntryK a) => - a -> -- _obj - Pango.TabArray -> -- tabs - m () -entrySetTabs _obj tabs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tabs' = unsafeManagedPtrGetPtr tabs - gtk_entry_set_tabs _obj' tabs' - touchManagedPtr _obj - touchManagedPtr tabs - return () - --- method Entry::set_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_text" gtk_entry_set_text :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CString -> -- text : TBasicType TUTF8 - IO () - - -entrySetText :: - (MonadIO m, EntryK a) => - a -> -- _obj - T.Text -> -- text - m () -entrySetText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_entry_set_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - --- method Entry::set_visibility --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_visibility" gtk_entry_set_visibility :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - CInt -> -- visible : TBasicType TBoolean - IO () - - -entrySetVisibility :: - (MonadIO m, EntryK a) => - a -> -- _obj - Bool -> -- visible - m () -entrySetVisibility _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_entry_set_visibility _obj' visible' - touchManagedPtr _obj - return () - --- method Entry::set_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_width_chars" gtk_entry_set_width_chars :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- n_chars : TBasicType TInt32 - IO () - - -entrySetWidthChars :: - (MonadIO m, EntryK a) => - a -> -- _obj - Int32 -> -- n_chars - m () -entrySetWidthChars _obj n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_set_width_chars _obj' n_chars - touchManagedPtr _obj - return () - --- method Entry::text_index_to_layout_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_text_index_to_layout_index" gtk_entry_text_index_to_layout_index :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- text_index : TBasicType TInt32 - IO Int32 - - -entryTextIndexToLayoutIndex :: - (MonadIO m, EntryK a) => - a -> -- _obj - Int32 -> -- text_index - m Int32 -entryTextIndexToLayoutIndex _obj text_index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_text_index_to_layout_index _obj' text_index - touchManagedPtr _obj - return result - --- method Entry::unset_invisible_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_unset_invisible_char" gtk_entry_unset_invisible_char :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - IO () - - -entryUnsetInvisibleChar :: - (MonadIO m, EntryK a) => - a -> -- _obj - m () -entryUnsetInvisibleChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_unset_invisible_char _obj' - touchManagedPtr _obj - return () + +{- | +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.Objects.Entry + ( + +-- * Exported types + Entry(..) , + EntryK , + toEntry , + noEntry , + + + -- * Methods +-- ** entryGetActivatesDefault + EntryGetActivatesDefaultMethodInfo , + entryGetActivatesDefault , + + +-- ** entryGetAlignment + EntryGetAlignmentMethodInfo , + entryGetAlignment , + + +-- ** entryGetAttributes + EntryGetAttributesMethodInfo , + entryGetAttributes , + + +-- ** entryGetBuffer + EntryGetBufferMethodInfo , + entryGetBuffer , + + +-- ** entryGetCompletion + EntryGetCompletionMethodInfo , + entryGetCompletion , + + +-- ** entryGetCurrentIconDragSource + EntryGetCurrentIconDragSourceMethodInfo , + entryGetCurrentIconDragSource , + + +-- ** entryGetCursorHadjustment + EntryGetCursorHadjustmentMethodInfo , + entryGetCursorHadjustment , + + +-- ** entryGetHasFrame + EntryGetHasFrameMethodInfo , + entryGetHasFrame , + + +-- ** entryGetIconActivatable + EntryGetIconActivatableMethodInfo , + entryGetIconActivatable , + + +-- ** entryGetIconArea + EntryGetIconAreaMethodInfo , + entryGetIconArea , + + +-- ** entryGetIconAtPos + EntryGetIconAtPosMethodInfo , + entryGetIconAtPos , + + +-- ** entryGetIconGicon + EntryGetIconGiconMethodInfo , + entryGetIconGicon , + + +-- ** entryGetIconName + EntryGetIconNameMethodInfo , + entryGetIconName , + + +-- ** entryGetIconPixbuf + EntryGetIconPixbufMethodInfo , + entryGetIconPixbuf , + + +-- ** entryGetIconSensitive + EntryGetIconSensitiveMethodInfo , + entryGetIconSensitive , + + +-- ** entryGetIconStock + EntryGetIconStockMethodInfo , + entryGetIconStock , + + +-- ** entryGetIconStorageType + EntryGetIconStorageTypeMethodInfo , + entryGetIconStorageType , + + +-- ** entryGetIconTooltipMarkup + EntryGetIconTooltipMarkupMethodInfo , + entryGetIconTooltipMarkup , + + +-- ** entryGetIconTooltipText + EntryGetIconTooltipTextMethodInfo , + entryGetIconTooltipText , + + +-- ** entryGetInnerBorder + EntryGetInnerBorderMethodInfo , + entryGetInnerBorder , + + +-- ** entryGetInputHints + EntryGetInputHintsMethodInfo , + entryGetInputHints , + + +-- ** entryGetInputPurpose + EntryGetInputPurposeMethodInfo , + entryGetInputPurpose , + + +-- ** entryGetInvisibleChar + EntryGetInvisibleCharMethodInfo , + entryGetInvisibleChar , + + +-- ** entryGetLayout + EntryGetLayoutMethodInfo , + entryGetLayout , + + +-- ** entryGetLayoutOffsets + EntryGetLayoutOffsetsMethodInfo , + entryGetLayoutOffsets , + + +-- ** entryGetMaxLength + EntryGetMaxLengthMethodInfo , + entryGetMaxLength , + + +-- ** entryGetMaxWidthChars + EntryGetMaxWidthCharsMethodInfo , + entryGetMaxWidthChars , + + +-- ** entryGetOverwriteMode + EntryGetOverwriteModeMethodInfo , + entryGetOverwriteMode , + + +-- ** entryGetPlaceholderText + EntryGetPlaceholderTextMethodInfo , + entryGetPlaceholderText , + + +-- ** entryGetProgressFraction + EntryGetProgressFractionMethodInfo , + entryGetProgressFraction , + + +-- ** entryGetProgressPulseStep + EntryGetProgressPulseStepMethodInfo , + entryGetProgressPulseStep , + + +-- ** entryGetTabs + EntryGetTabsMethodInfo , + entryGetTabs , + + +-- ** entryGetText + EntryGetTextMethodInfo , + entryGetText , + + +-- ** entryGetTextArea + EntryGetTextAreaMethodInfo , + entryGetTextArea , + + +-- ** entryGetTextLength + EntryGetTextLengthMethodInfo , + entryGetTextLength , + + +-- ** entryGetVisibility + EntryGetVisibilityMethodInfo , + entryGetVisibility , + + +-- ** entryGetWidthChars + EntryGetWidthCharsMethodInfo , + entryGetWidthChars , + + +-- ** entryGrabFocusWithoutSelecting + EntryGrabFocusWithoutSelectingMethodInfo, + entryGrabFocusWithoutSelecting , + + +-- ** entryImContextFilterKeypress + EntryImContextFilterKeypressMethodInfo , + entryImContextFilterKeypress , + + +-- ** entryLayoutIndexToTextIndex + EntryLayoutIndexToTextIndexMethodInfo , + entryLayoutIndexToTextIndex , + + +-- ** entryNew + entryNew , + + +-- ** entryNewWithBuffer + entryNewWithBuffer , + + +-- ** entryProgressPulse + EntryProgressPulseMethodInfo , + entryProgressPulse , + + +-- ** entryResetImContext + EntryResetImContextMethodInfo , + entryResetImContext , + + +-- ** entrySetActivatesDefault + EntrySetActivatesDefaultMethodInfo , + entrySetActivatesDefault , + + +-- ** entrySetAlignment + EntrySetAlignmentMethodInfo , + entrySetAlignment , + + +-- ** entrySetAttributes + EntrySetAttributesMethodInfo , + entrySetAttributes , + + +-- ** entrySetBuffer + EntrySetBufferMethodInfo , + entrySetBuffer , + + +-- ** entrySetCompletion + EntrySetCompletionMethodInfo , + entrySetCompletion , + + +-- ** entrySetCursorHadjustment + EntrySetCursorHadjustmentMethodInfo , + entrySetCursorHadjustment , + + +-- ** entrySetHasFrame + EntrySetHasFrameMethodInfo , + entrySetHasFrame , + + +-- ** entrySetIconActivatable + EntrySetIconActivatableMethodInfo , + entrySetIconActivatable , + + +-- ** entrySetIconDragSource + EntrySetIconDragSourceMethodInfo , + entrySetIconDragSource , + + +-- ** entrySetIconFromGicon + EntrySetIconFromGiconMethodInfo , + entrySetIconFromGicon , + + +-- ** entrySetIconFromIconName + EntrySetIconFromIconNameMethodInfo , + entrySetIconFromIconName , + + +-- ** entrySetIconFromPixbuf + EntrySetIconFromPixbufMethodInfo , + entrySetIconFromPixbuf , + + +-- ** entrySetIconFromStock + EntrySetIconFromStockMethodInfo , + entrySetIconFromStock , + + +-- ** entrySetIconSensitive + EntrySetIconSensitiveMethodInfo , + entrySetIconSensitive , + + +-- ** entrySetIconTooltipMarkup + EntrySetIconTooltipMarkupMethodInfo , + entrySetIconTooltipMarkup , + + +-- ** entrySetIconTooltipText + EntrySetIconTooltipTextMethodInfo , + entrySetIconTooltipText , + + +-- ** entrySetInnerBorder + EntrySetInnerBorderMethodInfo , + entrySetInnerBorder , + + +-- ** entrySetInputHints + EntrySetInputHintsMethodInfo , + entrySetInputHints , + + +-- ** entrySetInputPurpose + EntrySetInputPurposeMethodInfo , + entrySetInputPurpose , + + +-- ** entrySetInvisibleChar + EntrySetInvisibleCharMethodInfo , + entrySetInvisibleChar , + + +-- ** entrySetMaxLength + EntrySetMaxLengthMethodInfo , + entrySetMaxLength , + + +-- ** entrySetMaxWidthChars + EntrySetMaxWidthCharsMethodInfo , + entrySetMaxWidthChars , + + +-- ** entrySetOverwriteMode + EntrySetOverwriteModeMethodInfo , + entrySetOverwriteMode , + + +-- ** entrySetPlaceholderText + EntrySetPlaceholderTextMethodInfo , + entrySetPlaceholderText , + + +-- ** entrySetProgressFraction + EntrySetProgressFractionMethodInfo , + entrySetProgressFraction , + + +-- ** entrySetProgressPulseStep + EntrySetProgressPulseStepMethodInfo , + entrySetProgressPulseStep , + + +-- ** entrySetTabs + EntrySetTabsMethodInfo , + entrySetTabs , + + +-- ** entrySetText + EntrySetTextMethodInfo , + entrySetText , + + +-- ** entrySetVisibility + EntrySetVisibilityMethodInfo , + entrySetVisibility , + + +-- ** entrySetWidthChars + EntrySetWidthCharsMethodInfo , + entrySetWidthChars , + + +-- ** entryTextIndexToLayoutIndex + EntryTextIndexToLayoutIndexMethodInfo , + entryTextIndexToLayoutIndex , + + +-- ** entryUnsetInvisibleChar + EntryUnsetInvisibleCharMethodInfo , + entryUnsetInvisibleChar , + + + + + -- * Properties +-- ** ActivatesDefault + EntryActivatesDefaultPropertyInfo , + constructEntryActivatesDefault , + getEntryActivatesDefault , + setEntryActivatesDefault , + + +-- ** Attributes + EntryAttributesPropertyInfo , + constructEntryAttributes , + getEntryAttributes , + setEntryAttributes , + + +-- ** Buffer + EntryBufferPropertyInfo , + constructEntryBuffer , + getEntryBuffer , + setEntryBuffer , + + +-- ** CapsLockWarning + EntryCapsLockWarningPropertyInfo , + constructEntryCapsLockWarning , + getEntryCapsLockWarning , + setEntryCapsLockWarning , + + +-- ** Completion + EntryCompletionPropertyInfo , + constructEntryCompletion , + getEntryCompletion , + setEntryCompletion , + + +-- ** CursorPosition + EntryCursorPositionPropertyInfo , + getEntryCursorPosition , + + +-- ** Editable + EntryEditablePropertyInfo , + constructEntryEditable , + getEntryEditable , + setEntryEditable , + + +-- ** HasFrame + EntryHasFramePropertyInfo , + constructEntryHasFrame , + getEntryHasFrame , + setEntryHasFrame , + + +-- ** ImModule + EntryImModulePropertyInfo , + constructEntryImModule , + getEntryImModule , + setEntryImModule , + + +-- ** InnerBorder + EntryInnerBorderPropertyInfo , + constructEntryInnerBorder , + getEntryInnerBorder , + setEntryInnerBorder , + + +-- ** InputHints + EntryInputHintsPropertyInfo , + constructEntryInputHints , + getEntryInputHints , + setEntryInputHints , + + +-- ** InputPurpose + EntryInputPurposePropertyInfo , + constructEntryInputPurpose , + getEntryInputPurpose , + setEntryInputPurpose , + + +-- ** InvisibleChar + EntryInvisibleCharPropertyInfo , + constructEntryInvisibleChar , + getEntryInvisibleChar , + setEntryInvisibleChar , + + +-- ** InvisibleCharSet + EntryInvisibleCharSetPropertyInfo , + constructEntryInvisibleCharSet , + getEntryInvisibleCharSet , + setEntryInvisibleCharSet , + + +-- ** MaxLength + EntryMaxLengthPropertyInfo , + constructEntryMaxLength , + getEntryMaxLength , + setEntryMaxLength , + + +-- ** MaxWidthChars + EntryMaxWidthCharsPropertyInfo , + constructEntryMaxWidthChars , + getEntryMaxWidthChars , + setEntryMaxWidthChars , + + +-- ** OverwriteMode + EntryOverwriteModePropertyInfo , + constructEntryOverwriteMode , + getEntryOverwriteMode , + setEntryOverwriteMode , + + +-- ** PlaceholderText + EntryPlaceholderTextPropertyInfo , + constructEntryPlaceholderText , + getEntryPlaceholderText , + setEntryPlaceholderText , + + +-- ** PopulateAll + EntryPopulateAllPropertyInfo , + constructEntryPopulateAll , + getEntryPopulateAll , + setEntryPopulateAll , + + +-- ** PrimaryIconActivatable + EntryPrimaryIconActivatablePropertyInfo , + constructEntryPrimaryIconActivatable , + getEntryPrimaryIconActivatable , + setEntryPrimaryIconActivatable , + + +-- ** PrimaryIconGicon + EntryPrimaryIconGiconPropertyInfo , + constructEntryPrimaryIconGicon , + getEntryPrimaryIconGicon , + setEntryPrimaryIconGicon , + + +-- ** PrimaryIconName + EntryPrimaryIconNamePropertyInfo , + constructEntryPrimaryIconName , + getEntryPrimaryIconName , + setEntryPrimaryIconName , + + +-- ** PrimaryIconPixbuf + EntryPrimaryIconPixbufPropertyInfo , + constructEntryPrimaryIconPixbuf , + getEntryPrimaryIconPixbuf , + setEntryPrimaryIconPixbuf , + + +-- ** PrimaryIconSensitive + EntryPrimaryIconSensitivePropertyInfo , + constructEntryPrimaryIconSensitive , + getEntryPrimaryIconSensitive , + setEntryPrimaryIconSensitive , + + +-- ** PrimaryIconStock + EntryPrimaryIconStockPropertyInfo , + constructEntryPrimaryIconStock , + getEntryPrimaryIconStock , + setEntryPrimaryIconStock , + + +-- ** PrimaryIconStorageType + EntryPrimaryIconStorageTypePropertyInfo , + getEntryPrimaryIconStorageType , + + +-- ** PrimaryIconTooltipMarkup + EntryPrimaryIconTooltipMarkupPropertyInfo, + constructEntryPrimaryIconTooltipMarkup , + getEntryPrimaryIconTooltipMarkup , + setEntryPrimaryIconTooltipMarkup , + + +-- ** PrimaryIconTooltipText + EntryPrimaryIconTooltipTextPropertyInfo , + constructEntryPrimaryIconTooltipText , + getEntryPrimaryIconTooltipText , + setEntryPrimaryIconTooltipText , + + +-- ** ProgressFraction + EntryProgressFractionPropertyInfo , + constructEntryProgressFraction , + getEntryProgressFraction , + setEntryProgressFraction , + + +-- ** ProgressPulseStep + EntryProgressPulseStepPropertyInfo , + constructEntryProgressPulseStep , + getEntryProgressPulseStep , + setEntryProgressPulseStep , + + +-- ** ScrollOffset + EntryScrollOffsetPropertyInfo , + getEntryScrollOffset , + + +-- ** SecondaryIconActivatable + EntrySecondaryIconActivatablePropertyInfo, + constructEntrySecondaryIconActivatable , + getEntrySecondaryIconActivatable , + setEntrySecondaryIconActivatable , + + +-- ** SecondaryIconGicon + EntrySecondaryIconGiconPropertyInfo , + constructEntrySecondaryIconGicon , + getEntrySecondaryIconGicon , + setEntrySecondaryIconGicon , + + +-- ** SecondaryIconName + EntrySecondaryIconNamePropertyInfo , + constructEntrySecondaryIconName , + getEntrySecondaryIconName , + setEntrySecondaryIconName , + + +-- ** SecondaryIconPixbuf + EntrySecondaryIconPixbufPropertyInfo , + constructEntrySecondaryIconPixbuf , + getEntrySecondaryIconPixbuf , + setEntrySecondaryIconPixbuf , + + +-- ** SecondaryIconSensitive + EntrySecondaryIconSensitivePropertyInfo , + constructEntrySecondaryIconSensitive , + getEntrySecondaryIconSensitive , + setEntrySecondaryIconSensitive , + + +-- ** SecondaryIconStock + EntrySecondaryIconStockPropertyInfo , + constructEntrySecondaryIconStock , + getEntrySecondaryIconStock , + setEntrySecondaryIconStock , + + +-- ** SecondaryIconStorageType + EntrySecondaryIconStorageTypePropertyInfo, + getEntrySecondaryIconStorageType , + + +-- ** SecondaryIconTooltipMarkup + EntrySecondaryIconTooltipMarkupPropertyInfo, + constructEntrySecondaryIconTooltipMarkup, + getEntrySecondaryIconTooltipMarkup , + setEntrySecondaryIconTooltipMarkup , + + +-- ** SecondaryIconTooltipText + EntrySecondaryIconTooltipTextPropertyInfo, + constructEntrySecondaryIconTooltipText , + getEntrySecondaryIconTooltipText , + setEntrySecondaryIconTooltipText , + + +-- ** SelectionBound + EntrySelectionBoundPropertyInfo , + getEntrySelectionBound , + + +-- ** ShadowType + EntryShadowTypePropertyInfo , + constructEntryShadowType , + getEntryShadowType , + setEntryShadowType , + + +-- ** Tabs + EntryTabsPropertyInfo , + constructEntryTabs , + getEntryTabs , + setEntryTabs , + + +-- ** Text + EntryTextPropertyInfo , + constructEntryText , + getEntryText , + setEntryText , + + +-- ** TextLength + EntryTextLengthPropertyInfo , + getEntryTextLength , + + +-- ** TruncateMultiline + EntryTruncateMultilinePropertyInfo , + constructEntryTruncateMultiline , + getEntryTruncateMultiline , + setEntryTruncateMultiline , + + +-- ** Visibility + EntryVisibilityPropertyInfo , + constructEntryVisibility , + getEntryVisibility , + setEntryVisibility , + + +-- ** WidthChars + EntryWidthCharsPropertyInfo , + constructEntryWidthChars , + getEntryWidthChars , + setEntryWidthChars , + + +-- ** Xalign + EntryXalignPropertyInfo , + constructEntryXalign , + getEntryXalign , + setEntryXalign , + + + + + -- * Signals +-- ** Activate + EntryActivateCallback , + EntryActivateCallbackC , + EntryActivateSignalInfo , + afterEntryActivate , + entryActivateCallbackWrapper , + entryActivateClosure , + mkEntryActivateCallback , + noEntryActivateCallback , + onEntryActivate , + + +-- ** Backspace + EntryBackspaceCallback , + EntryBackspaceCallbackC , + EntryBackspaceSignalInfo , + afterEntryBackspace , + entryBackspaceCallbackWrapper , + entryBackspaceClosure , + mkEntryBackspaceCallback , + noEntryBackspaceCallback , + onEntryBackspace , + + +-- ** CopyClipboard + EntryCopyClipboardCallback , + EntryCopyClipboardCallbackC , + EntryCopyClipboardSignalInfo , + afterEntryCopyClipboard , + entryCopyClipboardCallbackWrapper , + entryCopyClipboardClosure , + mkEntryCopyClipboardCallback , + noEntryCopyClipboardCallback , + onEntryCopyClipboard , + + +-- ** CutClipboard + EntryCutClipboardCallback , + EntryCutClipboardCallbackC , + EntryCutClipboardSignalInfo , + afterEntryCutClipboard , + entryCutClipboardCallbackWrapper , + entryCutClipboardClosure , + mkEntryCutClipboardCallback , + noEntryCutClipboardCallback , + onEntryCutClipboard , + + +-- ** DeleteFromCursor + EntryDeleteFromCursorCallback , + EntryDeleteFromCursorCallbackC , + EntryDeleteFromCursorSignalInfo , + afterEntryDeleteFromCursor , + entryDeleteFromCursorCallbackWrapper , + entryDeleteFromCursorClosure , + mkEntryDeleteFromCursorCallback , + noEntryDeleteFromCursorCallback , + onEntryDeleteFromCursor , + + +-- ** IconPress + EntryIconPressCallback , + EntryIconPressCallbackC , + EntryIconPressSignalInfo , + afterEntryIconPress , + entryIconPressCallbackWrapper , + entryIconPressClosure , + mkEntryIconPressCallback , + noEntryIconPressCallback , + onEntryIconPress , + + +-- ** IconRelease + EntryIconReleaseCallback , + EntryIconReleaseCallbackC , + EntryIconReleaseSignalInfo , + afterEntryIconRelease , + entryIconReleaseCallbackWrapper , + entryIconReleaseClosure , + mkEntryIconReleaseCallback , + noEntryIconReleaseCallback , + onEntryIconRelease , + + +-- ** InsertAtCursor + EntryInsertAtCursorCallback , + EntryInsertAtCursorCallbackC , + EntryInsertAtCursorSignalInfo , + afterEntryInsertAtCursor , + entryInsertAtCursorCallbackWrapper , + entryInsertAtCursorClosure , + mkEntryInsertAtCursorCallback , + noEntryInsertAtCursorCallback , + onEntryInsertAtCursor , + + +-- ** MoveCursor + EntryMoveCursorCallback , + EntryMoveCursorCallbackC , + EntryMoveCursorSignalInfo , + afterEntryMoveCursor , + entryMoveCursorCallbackWrapper , + entryMoveCursorClosure , + mkEntryMoveCursorCallback , + noEntryMoveCursorCallback , + onEntryMoveCursor , + + +-- ** PasteClipboard + EntryPasteClipboardCallback , + EntryPasteClipboardCallbackC , + EntryPasteClipboardSignalInfo , + afterEntryPasteClipboard , + entryPasteClipboardCallbackWrapper , + entryPasteClipboardClosure , + mkEntryPasteClipboardCallback , + noEntryPasteClipboardCallback , + onEntryPasteClipboard , + + +-- ** PopulatePopup + EntryPopulatePopupCallback , + EntryPopulatePopupCallbackC , + EntryPopulatePopupSignalInfo , + afterEntryPopulatePopup , + entryPopulatePopupCallbackWrapper , + entryPopulatePopupClosure , + mkEntryPopulatePopupCallback , + noEntryPopulatePopupCallback , + onEntryPopulatePopup , + + +-- ** PreeditChanged + EntryPreeditChangedCallback , + EntryPreeditChangedCallbackC , + EntryPreeditChangedSignalInfo , + afterEntryPreeditChanged , + entryPreeditChangedCallbackWrapper , + entryPreeditChangedClosure , + mkEntryPreeditChangedCallback , + noEntryPreeditChangedCallback , + onEntryPreeditChanged , + + +-- ** ToggleOverwrite + EntryToggleOverwriteCallback , + EntryToggleOverwriteCallbackC , + EntryToggleOverwriteSignalInfo , + afterEntryToggleOverwrite , + entryToggleOverwriteCallbackWrapper , + entryToggleOverwriteClosure , + mkEntryToggleOverwriteCallback , + noEntryToggleOverwriteCallback , + onEntryToggleOverwrite , + + + + + ) 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.Atk as Atk +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 + +newtype Entry = Entry (ForeignPtr Entry) +foreign import ccall "gtk_entry_get_type" + c_gtk_entry_get_type :: IO GType + +type instance ParentTypes Entry = EntryParentTypes +type EntryParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, Editable] + +instance GObject Entry where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_gtk_entry_get_type + + +class GObject o => EntryK o +instance (GObject o, IsDescendantOf Entry o) => EntryK o + +toEntry :: EntryK o => o -> IO Entry +toEntry = unsafeCastTo Entry + +noEntry :: Maybe Entry +noEntry = Nothing + +type family ResolveEntryMethod (t :: Symbol) (o :: *) :: * where + ResolveEntryMethod "activate" o = WidgetActivateMethodInfo + ResolveEntryMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveEntryMethod "addChild" o = BuildableAddChildMethodInfo + ResolveEntryMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveEntryMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveEntryMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveEntryMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveEntryMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveEntryMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveEntryMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveEntryMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveEntryMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveEntryMethod "classPath" o = WidgetClassPathMethodInfo + ResolveEntryMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveEntryMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveEntryMethod "copyClipboard" o = EditableCopyClipboardMethodInfo + ResolveEntryMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveEntryMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveEntryMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveEntryMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveEntryMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveEntryMethod "cutClipboard" o = EditableCutClipboardMethodInfo + ResolveEntryMethod "deleteSelection" o = EditableDeleteSelectionMethodInfo + ResolveEntryMethod "deleteText" o = EditableDeleteTextMethodInfo + ResolveEntryMethod "destroy" o = WidgetDestroyMethodInfo + ResolveEntryMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveEntryMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveEntryMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveEntryMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveEntryMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveEntryMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveEntryMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveEntryMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveEntryMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveEntryMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveEntryMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveEntryMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveEntryMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveEntryMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveEntryMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveEntryMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveEntryMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveEntryMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveEntryMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveEntryMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveEntryMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveEntryMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveEntryMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveEntryMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveEntryMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveEntryMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveEntryMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveEntryMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveEntryMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveEntryMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveEntryMethod "draw" o = WidgetDrawMethodInfo + ResolveEntryMethod "editingDone" o = CellEditableEditingDoneMethodInfo + ResolveEntryMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveEntryMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveEntryMethod "event" o = WidgetEventMethodInfo + ResolveEntryMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveEntryMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveEntryMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveEntryMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveEntryMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveEntryMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveEntryMethod "grabFocusWithoutSelecting" o = EntryGrabFocusWithoutSelectingMethodInfo + ResolveEntryMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveEntryMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveEntryMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveEntryMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveEntryMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveEntryMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveEntryMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveEntryMethod "hide" o = WidgetHideMethodInfo + ResolveEntryMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveEntryMethod "imContextFilterKeypress" o = EntryImContextFilterKeypressMethodInfo + ResolveEntryMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveEntryMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveEntryMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveEntryMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveEntryMethod "insertText" o = EditableInsertTextMethodInfo + ResolveEntryMethod "intersect" o = WidgetIntersectMethodInfo + ResolveEntryMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveEntryMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveEntryMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveEntryMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveEntryMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveEntryMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveEntryMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveEntryMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveEntryMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveEntryMethod "layoutIndexToTextIndex" o = EntryLayoutIndexToTextIndexMethodInfo + ResolveEntryMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveEntryMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveEntryMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveEntryMethod "map" o = WidgetMapMethodInfo + ResolveEntryMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveEntryMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveEntryMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveEntryMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveEntryMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveEntryMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveEntryMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveEntryMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveEntryMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveEntryMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveEntryMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveEntryMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveEntryMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveEntryMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveEntryMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveEntryMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveEntryMethod "pasteClipboard" o = EditablePasteClipboardMethodInfo + ResolveEntryMethod "path" o = WidgetPathMethodInfo + ResolveEntryMethod "progressPulse" o = EntryProgressPulseMethodInfo + ResolveEntryMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveEntryMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveEntryMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveEntryMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveEntryMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveEntryMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveEntryMethod "realize" o = WidgetRealizeMethodInfo + ResolveEntryMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveEntryMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveEntryMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveEntryMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveEntryMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveEntryMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveEntryMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveEntryMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo + ResolveEntryMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveEntryMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveEntryMethod "reparent" o = WidgetReparentMethodInfo + ResolveEntryMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveEntryMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveEntryMethod "resetImContext" o = EntryResetImContextMethodInfo + ResolveEntryMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveEntryMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveEntryMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveEntryMethod "selectRegion" o = EditableSelectRegionMethodInfo + ResolveEntryMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveEntryMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveEntryMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveEntryMethod "show" o = WidgetShowMethodInfo + ResolveEntryMethod "showAll" o = WidgetShowAllMethodInfo + ResolveEntryMethod "showNow" o = WidgetShowNowMethodInfo + ResolveEntryMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveEntryMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveEntryMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveEntryMethod "startEditing" o = CellEditableStartEditingMethodInfo + ResolveEntryMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveEntryMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveEntryMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveEntryMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveEntryMethod "textIndexToLayoutIndex" o = EntryTextIndexToLayoutIndexMethodInfo + ResolveEntryMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveEntryMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveEntryMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveEntryMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveEntryMethod "unmap" o = WidgetUnmapMethodInfo + ResolveEntryMethod "unparent" o = WidgetUnparentMethodInfo + ResolveEntryMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveEntryMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveEntryMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveEntryMethod "unsetInvisibleChar" o = EntryUnsetInvisibleCharMethodInfo + ResolveEntryMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveEntryMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveEntryMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveEntryMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveEntryMethod "getActivatesDefault" o = EntryGetActivatesDefaultMethodInfo + ResolveEntryMethod "getAlignment" o = EntryGetAlignmentMethodInfo + ResolveEntryMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveEntryMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveEntryMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveEntryMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveEntryMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveEntryMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveEntryMethod "getAttributes" o = EntryGetAttributesMethodInfo + ResolveEntryMethod "getBuffer" o = EntryGetBufferMethodInfo + ResolveEntryMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveEntryMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveEntryMethod "getChars" o = EditableGetCharsMethodInfo + ResolveEntryMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveEntryMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveEntryMethod "getClip" o = WidgetGetClipMethodInfo + ResolveEntryMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveEntryMethod "getCompletion" o = EntryGetCompletionMethodInfo + ResolveEntryMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveEntryMethod "getCurrentIconDragSource" o = EntryGetCurrentIconDragSourceMethodInfo + ResolveEntryMethod "getCursorHadjustment" o = EntryGetCursorHadjustmentMethodInfo + ResolveEntryMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveEntryMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveEntryMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveEntryMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveEntryMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveEntryMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveEntryMethod "getEditable" o = EditableGetEditableMethodInfo + ResolveEntryMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveEntryMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveEntryMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveEntryMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveEntryMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveEntryMethod "getHasFrame" o = EntryGetHasFrameMethodInfo + ResolveEntryMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveEntryMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveEntryMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveEntryMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveEntryMethod "getIconActivatable" o = EntryGetIconActivatableMethodInfo + ResolveEntryMethod "getIconArea" o = EntryGetIconAreaMethodInfo + ResolveEntryMethod "getIconAtPos" o = EntryGetIconAtPosMethodInfo + ResolveEntryMethod "getIconGicon" o = EntryGetIconGiconMethodInfo + ResolveEntryMethod "getIconName" o = EntryGetIconNameMethodInfo + ResolveEntryMethod "getIconPixbuf" o = EntryGetIconPixbufMethodInfo + ResolveEntryMethod "getIconSensitive" o = EntryGetIconSensitiveMethodInfo + ResolveEntryMethod "getIconStock" o = EntryGetIconStockMethodInfo + ResolveEntryMethod "getIconStorageType" o = EntryGetIconStorageTypeMethodInfo + ResolveEntryMethod "getIconTooltipMarkup" o = EntryGetIconTooltipMarkupMethodInfo + ResolveEntryMethod "getIconTooltipText" o = EntryGetIconTooltipTextMethodInfo + ResolveEntryMethod "getInnerBorder" o = EntryGetInnerBorderMethodInfo + ResolveEntryMethod "getInputHints" o = EntryGetInputHintsMethodInfo + ResolveEntryMethod "getInputPurpose" o = EntryGetInputPurposeMethodInfo + ResolveEntryMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveEntryMethod "getInvisibleChar" o = EntryGetInvisibleCharMethodInfo + ResolveEntryMethod "getLayout" o = EntryGetLayoutMethodInfo + ResolveEntryMethod "getLayoutOffsets" o = EntryGetLayoutOffsetsMethodInfo + ResolveEntryMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveEntryMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveEntryMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveEntryMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveEntryMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveEntryMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveEntryMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveEntryMethod "getMaxLength" o = EntryGetMaxLengthMethodInfo + ResolveEntryMethod "getMaxWidthChars" o = EntryGetMaxWidthCharsMethodInfo + ResolveEntryMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveEntryMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveEntryMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveEntryMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveEntryMethod "getOverwriteMode" o = EntryGetOverwriteModeMethodInfo + ResolveEntryMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveEntryMethod "getParent" o = WidgetGetParentMethodInfo + ResolveEntryMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveEntryMethod "getPath" o = WidgetGetPathMethodInfo + ResolveEntryMethod "getPlaceholderText" o = EntryGetPlaceholderTextMethodInfo + ResolveEntryMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveEntryMethod "getPosition" o = EditableGetPositionMethodInfo + ResolveEntryMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveEntryMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveEntryMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveEntryMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveEntryMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveEntryMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveEntryMethod "getProgressFraction" o = EntryGetProgressFractionMethodInfo + ResolveEntryMethod "getProgressPulseStep" o = EntryGetProgressPulseStepMethodInfo + ResolveEntryMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveEntryMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveEntryMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveEntryMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveEntryMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveEntryMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveEntryMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveEntryMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveEntryMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveEntryMethod "getSelectionBounds" o = EditableGetSelectionBoundsMethodInfo + ResolveEntryMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveEntryMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveEntryMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveEntryMethod "getState" o = WidgetGetStateMethodInfo + ResolveEntryMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveEntryMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveEntryMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveEntryMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveEntryMethod "getTabs" o = EntryGetTabsMethodInfo + ResolveEntryMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveEntryMethod "getText" o = EntryGetTextMethodInfo + ResolveEntryMethod "getTextArea" o = EntryGetTextAreaMethodInfo + ResolveEntryMethod "getTextLength" o = EntryGetTextLengthMethodInfo + ResolveEntryMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveEntryMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveEntryMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveEntryMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveEntryMethod "getValign" o = WidgetGetValignMethodInfo + ResolveEntryMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveEntryMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveEntryMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveEntryMethod "getVisibility" o = EntryGetVisibilityMethodInfo + ResolveEntryMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveEntryMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveEntryMethod "getWidthChars" o = EntryGetWidthCharsMethodInfo + ResolveEntryMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveEntryMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveEntryMethod "setActivatesDefault" o = EntrySetActivatesDefaultMethodInfo + ResolveEntryMethod "setAlignment" o = EntrySetAlignmentMethodInfo + ResolveEntryMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveEntryMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveEntryMethod "setAttributes" o = EntrySetAttributesMethodInfo + ResolveEntryMethod "setBuffer" o = EntrySetBufferMethodInfo + ResolveEntryMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveEntryMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveEntryMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveEntryMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveEntryMethod "setClip" o = WidgetSetClipMethodInfo + ResolveEntryMethod "setCompletion" o = EntrySetCompletionMethodInfo + ResolveEntryMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveEntryMethod "setCursorHadjustment" o = EntrySetCursorHadjustmentMethodInfo + ResolveEntryMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveEntryMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveEntryMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveEntryMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveEntryMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveEntryMethod "setEditable" o = EditableSetEditableMethodInfo + ResolveEntryMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveEntryMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveEntryMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveEntryMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveEntryMethod "setHasFrame" o = EntrySetHasFrameMethodInfo + ResolveEntryMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveEntryMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveEntryMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveEntryMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveEntryMethod "setIconActivatable" o = EntrySetIconActivatableMethodInfo + ResolveEntryMethod "setIconDragSource" o = EntrySetIconDragSourceMethodInfo + ResolveEntryMethod "setIconFromGicon" o = EntrySetIconFromGiconMethodInfo + ResolveEntryMethod "setIconFromIconName" o = EntrySetIconFromIconNameMethodInfo + ResolveEntryMethod "setIconFromPixbuf" o = EntrySetIconFromPixbufMethodInfo + ResolveEntryMethod "setIconFromStock" o = EntrySetIconFromStockMethodInfo + ResolveEntryMethod "setIconSensitive" o = EntrySetIconSensitiveMethodInfo + ResolveEntryMethod "setIconTooltipMarkup" o = EntrySetIconTooltipMarkupMethodInfo + ResolveEntryMethod "setIconTooltipText" o = EntrySetIconTooltipTextMethodInfo + ResolveEntryMethod "setInnerBorder" o = EntrySetInnerBorderMethodInfo + ResolveEntryMethod "setInputHints" o = EntrySetInputHintsMethodInfo + ResolveEntryMethod "setInputPurpose" o = EntrySetInputPurposeMethodInfo + ResolveEntryMethod "setInvisibleChar" o = EntrySetInvisibleCharMethodInfo + ResolveEntryMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveEntryMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveEntryMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveEntryMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveEntryMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveEntryMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveEntryMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveEntryMethod "setMaxLength" o = EntrySetMaxLengthMethodInfo + ResolveEntryMethod "setMaxWidthChars" o = EntrySetMaxWidthCharsMethodInfo + ResolveEntryMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveEntryMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveEntryMethod "setOverwriteMode" o = EntrySetOverwriteModeMethodInfo + ResolveEntryMethod "setParent" o = WidgetSetParentMethodInfo + ResolveEntryMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveEntryMethod "setPlaceholderText" o = EntrySetPlaceholderTextMethodInfo + ResolveEntryMethod "setPosition" o = EditableSetPositionMethodInfo + ResolveEntryMethod "setProgressFraction" o = EntrySetProgressFractionMethodInfo + ResolveEntryMethod "setProgressPulseStep" o = EntrySetProgressPulseStepMethodInfo + ResolveEntryMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveEntryMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveEntryMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveEntryMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveEntryMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveEntryMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveEntryMethod "setState" o = WidgetSetStateMethodInfo + ResolveEntryMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveEntryMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveEntryMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveEntryMethod "setTabs" o = EntrySetTabsMethodInfo + ResolveEntryMethod "setText" o = EntrySetTextMethodInfo + ResolveEntryMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveEntryMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveEntryMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveEntryMethod "setValign" o = WidgetSetValignMethodInfo + ResolveEntryMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveEntryMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveEntryMethod "setVisibility" o = EntrySetVisibilityMethodInfo + ResolveEntryMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveEntryMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveEntryMethod "setWidthChars" o = EntrySetWidthCharsMethodInfo + ResolveEntryMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveEntryMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveEntryMethod t Entry, MethodInfo info Entry p) => IsLabelProxy t (Entry -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveEntryMethod t Entry, MethodInfo info Entry p) => IsLabel t (Entry -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- signal Entry::activate +type EntryActivateCallback = + IO () + +noEntryActivateCallback :: Maybe EntryActivateCallback +noEntryActivateCallback = Nothing + +type EntryActivateCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryActivateCallback :: EntryActivateCallbackC -> IO (FunPtr EntryActivateCallbackC) + +entryActivateClosure :: EntryActivateCallback -> IO Closure +entryActivateClosure cb = newCClosure =<< mkEntryActivateCallback wrapped + where wrapped = entryActivateCallbackWrapper cb + +entryActivateCallbackWrapper :: + EntryActivateCallback -> + Ptr () -> + Ptr () -> + IO () +entryActivateCallbackWrapper _cb _ _ = do + _cb + +onEntryActivate :: (GObject a, MonadIO m) => a -> EntryActivateCallback -> m SignalHandlerId +onEntryActivate obj cb = liftIO $ connectEntryActivate obj cb SignalConnectBefore +afterEntryActivate :: (GObject a, MonadIO m) => a -> EntryActivateCallback -> m SignalHandlerId +afterEntryActivate obj cb = connectEntryActivate obj cb SignalConnectAfter + +connectEntryActivate :: (GObject a, MonadIO m) => + a -> EntryActivateCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryActivate obj cb after = liftIO $ do + cb' <- mkEntryActivateCallback (entryActivateCallbackWrapper cb) + connectSignalFunPtr obj "activate" cb' after + +-- signal Entry::backspace +type EntryBackspaceCallback = + IO () + +noEntryBackspaceCallback :: Maybe EntryBackspaceCallback +noEntryBackspaceCallback = Nothing + +type EntryBackspaceCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryBackspaceCallback :: EntryBackspaceCallbackC -> IO (FunPtr EntryBackspaceCallbackC) + +entryBackspaceClosure :: EntryBackspaceCallback -> IO Closure +entryBackspaceClosure cb = newCClosure =<< mkEntryBackspaceCallback wrapped + where wrapped = entryBackspaceCallbackWrapper cb + +entryBackspaceCallbackWrapper :: + EntryBackspaceCallback -> + Ptr () -> + Ptr () -> + IO () +entryBackspaceCallbackWrapper _cb _ _ = do + _cb + +onEntryBackspace :: (GObject a, MonadIO m) => a -> EntryBackspaceCallback -> m SignalHandlerId +onEntryBackspace obj cb = liftIO $ connectEntryBackspace obj cb SignalConnectBefore +afterEntryBackspace :: (GObject a, MonadIO m) => a -> EntryBackspaceCallback -> m SignalHandlerId +afterEntryBackspace obj cb = connectEntryBackspace obj cb SignalConnectAfter + +connectEntryBackspace :: (GObject a, MonadIO m) => + a -> EntryBackspaceCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryBackspace obj cb after = liftIO $ do + cb' <- mkEntryBackspaceCallback (entryBackspaceCallbackWrapper cb) + connectSignalFunPtr obj "backspace" cb' after + +-- signal Entry::copy-clipboard +type EntryCopyClipboardCallback = + IO () + +noEntryCopyClipboardCallback :: Maybe EntryCopyClipboardCallback +noEntryCopyClipboardCallback = Nothing + +type EntryCopyClipboardCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryCopyClipboardCallback :: EntryCopyClipboardCallbackC -> IO (FunPtr EntryCopyClipboardCallbackC) + +entryCopyClipboardClosure :: EntryCopyClipboardCallback -> IO Closure +entryCopyClipboardClosure cb = newCClosure =<< mkEntryCopyClipboardCallback wrapped + where wrapped = entryCopyClipboardCallbackWrapper cb + +entryCopyClipboardCallbackWrapper :: + EntryCopyClipboardCallback -> + Ptr () -> + Ptr () -> + IO () +entryCopyClipboardCallbackWrapper _cb _ _ = do + _cb + +onEntryCopyClipboard :: (GObject a, MonadIO m) => a -> EntryCopyClipboardCallback -> m SignalHandlerId +onEntryCopyClipboard obj cb = liftIO $ connectEntryCopyClipboard obj cb SignalConnectBefore +afterEntryCopyClipboard :: (GObject a, MonadIO m) => a -> EntryCopyClipboardCallback -> m SignalHandlerId +afterEntryCopyClipboard obj cb = connectEntryCopyClipboard obj cb SignalConnectAfter + +connectEntryCopyClipboard :: (GObject a, MonadIO m) => + a -> EntryCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryCopyClipboard obj cb after = liftIO $ do + cb' <- mkEntryCopyClipboardCallback (entryCopyClipboardCallbackWrapper cb) + connectSignalFunPtr obj "copy-clipboard" cb' after + +-- signal Entry::cut-clipboard +type EntryCutClipboardCallback = + IO () + +noEntryCutClipboardCallback :: Maybe EntryCutClipboardCallback +noEntryCutClipboardCallback = Nothing + +type EntryCutClipboardCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryCutClipboardCallback :: EntryCutClipboardCallbackC -> IO (FunPtr EntryCutClipboardCallbackC) + +entryCutClipboardClosure :: EntryCutClipboardCallback -> IO Closure +entryCutClipboardClosure cb = newCClosure =<< mkEntryCutClipboardCallback wrapped + where wrapped = entryCutClipboardCallbackWrapper cb + +entryCutClipboardCallbackWrapper :: + EntryCutClipboardCallback -> + Ptr () -> + Ptr () -> + IO () +entryCutClipboardCallbackWrapper _cb _ _ = do + _cb + +onEntryCutClipboard :: (GObject a, MonadIO m) => a -> EntryCutClipboardCallback -> m SignalHandlerId +onEntryCutClipboard obj cb = liftIO $ connectEntryCutClipboard obj cb SignalConnectBefore +afterEntryCutClipboard :: (GObject a, MonadIO m) => a -> EntryCutClipboardCallback -> m SignalHandlerId +afterEntryCutClipboard obj cb = connectEntryCutClipboard obj cb SignalConnectAfter + +connectEntryCutClipboard :: (GObject a, MonadIO m) => + a -> EntryCutClipboardCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryCutClipboard obj cb after = liftIO $ do + cb' <- mkEntryCutClipboardCallback (entryCutClipboardCallbackWrapper cb) + connectSignalFunPtr obj "cut-clipboard" cb' after + +-- signal Entry::delete-from-cursor +type EntryDeleteFromCursorCallback = + DeleteType -> + Int32 -> + IO () + +noEntryDeleteFromCursorCallback :: Maybe EntryDeleteFromCursorCallback +noEntryDeleteFromCursorCallback = Nothing + +type EntryDeleteFromCursorCallbackC = + Ptr () -> -- object + CUInt -> + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryDeleteFromCursorCallback :: EntryDeleteFromCursorCallbackC -> IO (FunPtr EntryDeleteFromCursorCallbackC) + +entryDeleteFromCursorClosure :: EntryDeleteFromCursorCallback -> IO Closure +entryDeleteFromCursorClosure cb = newCClosure =<< mkEntryDeleteFromCursorCallback wrapped + where wrapped = entryDeleteFromCursorCallbackWrapper cb + +entryDeleteFromCursorCallbackWrapper :: + EntryDeleteFromCursorCallback -> + Ptr () -> + CUInt -> + Int32 -> + Ptr () -> + IO () +entryDeleteFromCursorCallbackWrapper _cb _ type_ count _ = do + let type_' = (toEnum . fromIntegral) type_ + _cb type_' count + +onEntryDeleteFromCursor :: (GObject a, MonadIO m) => a -> EntryDeleteFromCursorCallback -> m SignalHandlerId +onEntryDeleteFromCursor obj cb = liftIO $ connectEntryDeleteFromCursor obj cb SignalConnectBefore +afterEntryDeleteFromCursor :: (GObject a, MonadIO m) => a -> EntryDeleteFromCursorCallback -> m SignalHandlerId +afterEntryDeleteFromCursor obj cb = connectEntryDeleteFromCursor obj cb SignalConnectAfter + +connectEntryDeleteFromCursor :: (GObject a, MonadIO m) => + a -> EntryDeleteFromCursorCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryDeleteFromCursor obj cb after = liftIO $ do + cb' <- mkEntryDeleteFromCursorCallback (entryDeleteFromCursorCallbackWrapper cb) + connectSignalFunPtr obj "delete-from-cursor" cb' after + +-- signal Entry::icon-press +type EntryIconPressCallback = + EntryIconPosition -> + Gdk.EventButton -> + IO () + +noEntryIconPressCallback :: Maybe EntryIconPressCallback +noEntryIconPressCallback = Nothing + +type EntryIconPressCallbackC = + Ptr () -> -- object + CUInt -> + Ptr Gdk.EventButton -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryIconPressCallback :: EntryIconPressCallbackC -> IO (FunPtr EntryIconPressCallbackC) + +entryIconPressClosure :: EntryIconPressCallback -> IO Closure +entryIconPressClosure cb = newCClosure =<< mkEntryIconPressCallback wrapped + where wrapped = entryIconPressCallbackWrapper cb + +entryIconPressCallbackWrapper :: + EntryIconPressCallback -> + Ptr () -> + CUInt -> + Ptr Gdk.EventButton -> + Ptr () -> + IO () +entryIconPressCallbackWrapper _cb _ iconPos event _ = do + let iconPos' = (toEnum . fromIntegral) iconPos + event' <- (newPtr 80 Gdk.EventButton) event + _cb iconPos' event' + +onEntryIconPress :: (GObject a, MonadIO m) => a -> EntryIconPressCallback -> m SignalHandlerId +onEntryIconPress obj cb = liftIO $ connectEntryIconPress obj cb SignalConnectBefore +afterEntryIconPress :: (GObject a, MonadIO m) => a -> EntryIconPressCallback -> m SignalHandlerId +afterEntryIconPress obj cb = connectEntryIconPress obj cb SignalConnectAfter + +connectEntryIconPress :: (GObject a, MonadIO m) => + a -> EntryIconPressCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryIconPress obj cb after = liftIO $ do + cb' <- mkEntryIconPressCallback (entryIconPressCallbackWrapper cb) + connectSignalFunPtr obj "icon-press" cb' after + +-- signal Entry::icon-release +type EntryIconReleaseCallback = + EntryIconPosition -> + Gdk.EventButton -> + IO () + +noEntryIconReleaseCallback :: Maybe EntryIconReleaseCallback +noEntryIconReleaseCallback = Nothing + +type EntryIconReleaseCallbackC = + Ptr () -> -- object + CUInt -> + Ptr Gdk.EventButton -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryIconReleaseCallback :: EntryIconReleaseCallbackC -> IO (FunPtr EntryIconReleaseCallbackC) + +entryIconReleaseClosure :: EntryIconReleaseCallback -> IO Closure +entryIconReleaseClosure cb = newCClosure =<< mkEntryIconReleaseCallback wrapped + where wrapped = entryIconReleaseCallbackWrapper cb + +entryIconReleaseCallbackWrapper :: + EntryIconReleaseCallback -> + Ptr () -> + CUInt -> + Ptr Gdk.EventButton -> + Ptr () -> + IO () +entryIconReleaseCallbackWrapper _cb _ iconPos event _ = do + let iconPos' = (toEnum . fromIntegral) iconPos + event' <- (newPtr 80 Gdk.EventButton) event + _cb iconPos' event' + +onEntryIconRelease :: (GObject a, MonadIO m) => a -> EntryIconReleaseCallback -> m SignalHandlerId +onEntryIconRelease obj cb = liftIO $ connectEntryIconRelease obj cb SignalConnectBefore +afterEntryIconRelease :: (GObject a, MonadIO m) => a -> EntryIconReleaseCallback -> m SignalHandlerId +afterEntryIconRelease obj cb = connectEntryIconRelease obj cb SignalConnectAfter + +connectEntryIconRelease :: (GObject a, MonadIO m) => + a -> EntryIconReleaseCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryIconRelease obj cb after = liftIO $ do + cb' <- mkEntryIconReleaseCallback (entryIconReleaseCallbackWrapper cb) + connectSignalFunPtr obj "icon-release" cb' after + +-- signal Entry::insert-at-cursor +type EntryInsertAtCursorCallback = + T.Text -> + IO () + +noEntryInsertAtCursorCallback :: Maybe EntryInsertAtCursorCallback +noEntryInsertAtCursorCallback = Nothing + +type EntryInsertAtCursorCallbackC = + Ptr () -> -- object + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryInsertAtCursorCallback :: EntryInsertAtCursorCallbackC -> IO (FunPtr EntryInsertAtCursorCallbackC) + +entryInsertAtCursorClosure :: EntryInsertAtCursorCallback -> IO Closure +entryInsertAtCursorClosure cb = newCClosure =<< mkEntryInsertAtCursorCallback wrapped + where wrapped = entryInsertAtCursorCallbackWrapper cb + +entryInsertAtCursorCallbackWrapper :: + EntryInsertAtCursorCallback -> + Ptr () -> + CString -> + Ptr () -> + IO () +entryInsertAtCursorCallbackWrapper _cb _ string _ = do + string' <- cstringToText string + _cb string' + +onEntryInsertAtCursor :: (GObject a, MonadIO m) => a -> EntryInsertAtCursorCallback -> m SignalHandlerId +onEntryInsertAtCursor obj cb = liftIO $ connectEntryInsertAtCursor obj cb SignalConnectBefore +afterEntryInsertAtCursor :: (GObject a, MonadIO m) => a -> EntryInsertAtCursorCallback -> m SignalHandlerId +afterEntryInsertAtCursor obj cb = connectEntryInsertAtCursor obj cb SignalConnectAfter + +connectEntryInsertAtCursor :: (GObject a, MonadIO m) => + a -> EntryInsertAtCursorCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryInsertAtCursor obj cb after = liftIO $ do + cb' <- mkEntryInsertAtCursorCallback (entryInsertAtCursorCallbackWrapper cb) + connectSignalFunPtr obj "insert-at-cursor" cb' after + +-- signal Entry::move-cursor +type EntryMoveCursorCallback = + MovementStep -> + Int32 -> + Bool -> + IO () + +noEntryMoveCursorCallback :: Maybe EntryMoveCursorCallback +noEntryMoveCursorCallback = Nothing + +type EntryMoveCursorCallbackC = + Ptr () -> -- object + CUInt -> + Int32 -> + CInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryMoveCursorCallback :: EntryMoveCursorCallbackC -> IO (FunPtr EntryMoveCursorCallbackC) + +entryMoveCursorClosure :: EntryMoveCursorCallback -> IO Closure +entryMoveCursorClosure cb = newCClosure =<< mkEntryMoveCursorCallback wrapped + where wrapped = entryMoveCursorCallbackWrapper cb + +entryMoveCursorCallbackWrapper :: + EntryMoveCursorCallback -> + Ptr () -> + CUInt -> + Int32 -> + CInt -> + Ptr () -> + IO () +entryMoveCursorCallbackWrapper _cb _ step count extendSelection _ = do + let step' = (toEnum . fromIntegral) step + let extendSelection' = (/= 0) extendSelection + _cb step' count extendSelection' + +onEntryMoveCursor :: (GObject a, MonadIO m) => a -> EntryMoveCursorCallback -> m SignalHandlerId +onEntryMoveCursor obj cb = liftIO $ connectEntryMoveCursor obj cb SignalConnectBefore +afterEntryMoveCursor :: (GObject a, MonadIO m) => a -> EntryMoveCursorCallback -> m SignalHandlerId +afterEntryMoveCursor obj cb = connectEntryMoveCursor obj cb SignalConnectAfter + +connectEntryMoveCursor :: (GObject a, MonadIO m) => + a -> EntryMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryMoveCursor obj cb after = liftIO $ do + cb' <- mkEntryMoveCursorCallback (entryMoveCursorCallbackWrapper cb) + connectSignalFunPtr obj "move-cursor" cb' after + +-- signal Entry::paste-clipboard +type EntryPasteClipboardCallback = + IO () + +noEntryPasteClipboardCallback :: Maybe EntryPasteClipboardCallback +noEntryPasteClipboardCallback = Nothing + +type EntryPasteClipboardCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryPasteClipboardCallback :: EntryPasteClipboardCallbackC -> IO (FunPtr EntryPasteClipboardCallbackC) + +entryPasteClipboardClosure :: EntryPasteClipboardCallback -> IO Closure +entryPasteClipboardClosure cb = newCClosure =<< mkEntryPasteClipboardCallback wrapped + where wrapped = entryPasteClipboardCallbackWrapper cb + +entryPasteClipboardCallbackWrapper :: + EntryPasteClipboardCallback -> + Ptr () -> + Ptr () -> + IO () +entryPasteClipboardCallbackWrapper _cb _ _ = do + _cb + +onEntryPasteClipboard :: (GObject a, MonadIO m) => a -> EntryPasteClipboardCallback -> m SignalHandlerId +onEntryPasteClipboard obj cb = liftIO $ connectEntryPasteClipboard obj cb SignalConnectBefore +afterEntryPasteClipboard :: (GObject a, MonadIO m) => a -> EntryPasteClipboardCallback -> m SignalHandlerId +afterEntryPasteClipboard obj cb = connectEntryPasteClipboard obj cb SignalConnectAfter + +connectEntryPasteClipboard :: (GObject a, MonadIO m) => + a -> EntryPasteClipboardCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryPasteClipboard obj cb after = liftIO $ do + cb' <- mkEntryPasteClipboardCallback (entryPasteClipboardCallbackWrapper cb) + connectSignalFunPtr obj "paste-clipboard" cb' after + +-- signal Entry::populate-popup +type EntryPopulatePopupCallback = + Widget -> + IO () + +noEntryPopulatePopupCallback :: Maybe EntryPopulatePopupCallback +noEntryPopulatePopupCallback = Nothing + +type EntryPopulatePopupCallbackC = + Ptr () -> -- object + Ptr Widget -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryPopulatePopupCallback :: EntryPopulatePopupCallbackC -> IO (FunPtr EntryPopulatePopupCallbackC) + +entryPopulatePopupClosure :: EntryPopulatePopupCallback -> IO Closure +entryPopulatePopupClosure cb = newCClosure =<< mkEntryPopulatePopupCallback wrapped + where wrapped = entryPopulatePopupCallbackWrapper cb + +entryPopulatePopupCallbackWrapper :: + EntryPopulatePopupCallback -> + Ptr () -> + Ptr Widget -> + Ptr () -> + IO () +entryPopulatePopupCallbackWrapper _cb _ popup _ = do + popup' <- (newObject Widget) popup + _cb popup' + +onEntryPopulatePopup :: (GObject a, MonadIO m) => a -> EntryPopulatePopupCallback -> m SignalHandlerId +onEntryPopulatePopup obj cb = liftIO $ connectEntryPopulatePopup obj cb SignalConnectBefore +afterEntryPopulatePopup :: (GObject a, MonadIO m) => a -> EntryPopulatePopupCallback -> m SignalHandlerId +afterEntryPopulatePopup obj cb = connectEntryPopulatePopup obj cb SignalConnectAfter + +connectEntryPopulatePopup :: (GObject a, MonadIO m) => + a -> EntryPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryPopulatePopup obj cb after = liftIO $ do + cb' <- mkEntryPopulatePopupCallback (entryPopulatePopupCallbackWrapper cb) + connectSignalFunPtr obj "populate-popup" cb' after + +-- signal Entry::preedit-changed +type EntryPreeditChangedCallback = + T.Text -> + IO () + +noEntryPreeditChangedCallback :: Maybe EntryPreeditChangedCallback +noEntryPreeditChangedCallback = Nothing + +type EntryPreeditChangedCallbackC = + Ptr () -> -- object + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryPreeditChangedCallback :: EntryPreeditChangedCallbackC -> IO (FunPtr EntryPreeditChangedCallbackC) + +entryPreeditChangedClosure :: EntryPreeditChangedCallback -> IO Closure +entryPreeditChangedClosure cb = newCClosure =<< mkEntryPreeditChangedCallback wrapped + where wrapped = entryPreeditChangedCallbackWrapper cb + +entryPreeditChangedCallbackWrapper :: + EntryPreeditChangedCallback -> + Ptr () -> + CString -> + Ptr () -> + IO () +entryPreeditChangedCallbackWrapper _cb _ preedit _ = do + preedit' <- cstringToText preedit + _cb preedit' + +onEntryPreeditChanged :: (GObject a, MonadIO m) => a -> EntryPreeditChangedCallback -> m SignalHandlerId +onEntryPreeditChanged obj cb = liftIO $ connectEntryPreeditChanged obj cb SignalConnectBefore +afterEntryPreeditChanged :: (GObject a, MonadIO m) => a -> EntryPreeditChangedCallback -> m SignalHandlerId +afterEntryPreeditChanged obj cb = connectEntryPreeditChanged obj cb SignalConnectAfter + +connectEntryPreeditChanged :: (GObject a, MonadIO m) => + a -> EntryPreeditChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryPreeditChanged obj cb after = liftIO $ do + cb' <- mkEntryPreeditChangedCallback (entryPreeditChangedCallbackWrapper cb) + connectSignalFunPtr obj "preedit-changed" cb' after + +-- signal Entry::toggle-overwrite +type EntryToggleOverwriteCallback = + IO () + +noEntryToggleOverwriteCallback :: Maybe EntryToggleOverwriteCallback +noEntryToggleOverwriteCallback = Nothing + +type EntryToggleOverwriteCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkEntryToggleOverwriteCallback :: EntryToggleOverwriteCallbackC -> IO (FunPtr EntryToggleOverwriteCallbackC) + +entryToggleOverwriteClosure :: EntryToggleOverwriteCallback -> IO Closure +entryToggleOverwriteClosure cb = newCClosure =<< mkEntryToggleOverwriteCallback wrapped + where wrapped = entryToggleOverwriteCallbackWrapper cb + +entryToggleOverwriteCallbackWrapper :: + EntryToggleOverwriteCallback -> + Ptr () -> + Ptr () -> + IO () +entryToggleOverwriteCallbackWrapper _cb _ _ = do + _cb + +onEntryToggleOverwrite :: (GObject a, MonadIO m) => a -> EntryToggleOverwriteCallback -> m SignalHandlerId +onEntryToggleOverwrite obj cb = liftIO $ connectEntryToggleOverwrite obj cb SignalConnectBefore +afterEntryToggleOverwrite :: (GObject a, MonadIO m) => a -> EntryToggleOverwriteCallback -> m SignalHandlerId +afterEntryToggleOverwrite obj cb = connectEntryToggleOverwrite obj cb SignalConnectAfter + +connectEntryToggleOverwrite :: (GObject a, MonadIO m) => + a -> EntryToggleOverwriteCallback -> SignalConnectMode -> m SignalHandlerId +connectEntryToggleOverwrite obj cb after = liftIO $ do + cb' <- mkEntryToggleOverwriteCallback (entryToggleOverwriteCallbackWrapper cb) + connectSignalFunPtr obj "toggle-overwrite" cb' after + +-- VVV Prop "activates-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryActivatesDefault :: (MonadIO m, EntryK o) => o -> m Bool +getEntryActivatesDefault obj = liftIO $ getObjectPropertyBool obj "activates-default" + +setEntryActivatesDefault :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntryActivatesDefault obj val = liftIO $ setObjectPropertyBool obj "activates-default" val + +constructEntryActivatesDefault :: Bool -> IO ([Char], GValue) +constructEntryActivatesDefault val = constructObjectPropertyBool "activates-default" val + +data EntryActivatesDefaultPropertyInfo +instance AttrInfo EntryActivatesDefaultPropertyInfo where + type AttrAllowedOps EntryActivatesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryActivatesDefaultPropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntryActivatesDefaultPropertyInfo = EntryK + type AttrGetType EntryActivatesDefaultPropertyInfo = Bool + type AttrLabel EntryActivatesDefaultPropertyInfo = "activates-default" + attrGet _ = getEntryActivatesDefault + attrSet _ = setEntryActivatesDefault + attrConstruct _ = constructEntryActivatesDefault + +-- VVV Prop "attributes" + -- Type: TInterface "Pango" "AttrList" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryAttributes :: (MonadIO m, EntryK o) => o -> m Pango.AttrList +getEntryAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList + +setEntryAttributes :: (MonadIO m, EntryK o) => o -> Pango.AttrList -> m () +setEntryAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val + +constructEntryAttributes :: Pango.AttrList -> IO ([Char], GValue) +constructEntryAttributes val = constructObjectPropertyBoxed "attributes" val + +data EntryAttributesPropertyInfo +instance AttrInfo EntryAttributesPropertyInfo where + type AttrAllowedOps EntryAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryAttributesPropertyInfo = (~) Pango.AttrList + type AttrBaseTypeConstraint EntryAttributesPropertyInfo = EntryK + type AttrGetType EntryAttributesPropertyInfo = Pango.AttrList + type AttrLabel EntryAttributesPropertyInfo = "attributes" + attrGet _ = getEntryAttributes + attrSet _ = setEntryAttributes + attrConstruct _ = constructEntryAttributes + +-- VVV Prop "buffer" + -- Type: TInterface "Gtk" "EntryBuffer" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getEntryBuffer :: (MonadIO m, EntryK o) => o -> m EntryBuffer +getEntryBuffer obj = liftIO $ getObjectPropertyObject obj "buffer" EntryBuffer + +setEntryBuffer :: (MonadIO m, EntryK o, EntryBufferK a) => o -> a -> m () +setEntryBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" val + +constructEntryBuffer :: (EntryBufferK a) => a -> IO ([Char], GValue) +constructEntryBuffer val = constructObjectPropertyObject "buffer" val + +data EntryBufferPropertyInfo +instance AttrInfo EntryBufferPropertyInfo where + type AttrAllowedOps EntryBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryBufferPropertyInfo = EntryBufferK + type AttrBaseTypeConstraint EntryBufferPropertyInfo = EntryK + type AttrGetType EntryBufferPropertyInfo = EntryBuffer + type AttrLabel EntryBufferPropertyInfo = "buffer" + attrGet _ = getEntryBuffer + attrSet _ = setEntryBuffer + attrConstruct _ = constructEntryBuffer + +-- VVV Prop "caps-lock-warning" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryCapsLockWarning :: (MonadIO m, EntryK o) => o -> m Bool +getEntryCapsLockWarning obj = liftIO $ getObjectPropertyBool obj "caps-lock-warning" + +setEntryCapsLockWarning :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntryCapsLockWarning obj val = liftIO $ setObjectPropertyBool obj "caps-lock-warning" val + +constructEntryCapsLockWarning :: Bool -> IO ([Char], GValue) +constructEntryCapsLockWarning val = constructObjectPropertyBool "caps-lock-warning" val + +data EntryCapsLockWarningPropertyInfo +instance AttrInfo EntryCapsLockWarningPropertyInfo where + type AttrAllowedOps EntryCapsLockWarningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryCapsLockWarningPropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntryCapsLockWarningPropertyInfo = EntryK + type AttrGetType EntryCapsLockWarningPropertyInfo = Bool + type AttrLabel EntryCapsLockWarningPropertyInfo = "caps-lock-warning" + attrGet _ = getEntryCapsLockWarning + attrSet _ = setEntryCapsLockWarning + attrConstruct _ = constructEntryCapsLockWarning + +-- VVV Prop "completion" + -- Type: TInterface "Gtk" "EntryCompletion" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryCompletion :: (MonadIO m, EntryK o) => o -> m EntryCompletion +getEntryCompletion obj = liftIO $ getObjectPropertyObject obj "completion" EntryCompletion + +setEntryCompletion :: (MonadIO m, EntryK o, EntryCompletionK a) => o -> a -> m () +setEntryCompletion obj val = liftIO $ setObjectPropertyObject obj "completion" val + +constructEntryCompletion :: (EntryCompletionK a) => a -> IO ([Char], GValue) +constructEntryCompletion val = constructObjectPropertyObject "completion" val + +data EntryCompletionPropertyInfo +instance AttrInfo EntryCompletionPropertyInfo where + type AttrAllowedOps EntryCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryCompletionPropertyInfo = EntryCompletionK + type AttrBaseTypeConstraint EntryCompletionPropertyInfo = EntryK + type AttrGetType EntryCompletionPropertyInfo = EntryCompletion + type AttrLabel EntryCompletionPropertyInfo = "completion" + attrGet _ = getEntryCompletion + attrSet _ = setEntryCompletion + attrConstruct _ = constructEntryCompletion + +-- VVV Prop "cursor-position" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getEntryCursorPosition :: (MonadIO m, EntryK o) => o -> m Int32 +getEntryCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position" + +data EntryCursorPositionPropertyInfo +instance AttrInfo EntryCursorPositionPropertyInfo where + type AttrAllowedOps EntryCursorPositionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint EntryCursorPositionPropertyInfo = (~) () + type AttrBaseTypeConstraint EntryCursorPositionPropertyInfo = EntryK + type AttrGetType EntryCursorPositionPropertyInfo = Int32 + type AttrLabel EntryCursorPositionPropertyInfo = "cursor-position" + attrGet _ = getEntryCursorPosition + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "editable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryEditable :: (MonadIO m, EntryK o) => o -> m Bool +getEntryEditable obj = liftIO $ getObjectPropertyBool obj "editable" + +setEntryEditable :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntryEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val + +constructEntryEditable :: Bool -> IO ([Char], GValue) +constructEntryEditable val = constructObjectPropertyBool "editable" val + +data EntryEditablePropertyInfo +instance AttrInfo EntryEditablePropertyInfo where + type AttrAllowedOps EntryEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryEditablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntryEditablePropertyInfo = EntryK + type AttrGetType EntryEditablePropertyInfo = Bool + type AttrLabel EntryEditablePropertyInfo = "editable" + attrGet _ = getEntryEditable + attrSet _ = setEntryEditable + attrConstruct _ = constructEntryEditable + +-- VVV Prop "has-frame" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryHasFrame :: (MonadIO m, EntryK o) => o -> m Bool +getEntryHasFrame obj = liftIO $ getObjectPropertyBool obj "has-frame" + +setEntryHasFrame :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntryHasFrame obj val = liftIO $ setObjectPropertyBool obj "has-frame" val + +constructEntryHasFrame :: Bool -> IO ([Char], GValue) +constructEntryHasFrame val = constructObjectPropertyBool "has-frame" val + +data EntryHasFramePropertyInfo +instance AttrInfo EntryHasFramePropertyInfo where + type AttrAllowedOps EntryHasFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryHasFramePropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntryHasFramePropertyInfo = EntryK + type AttrGetType EntryHasFramePropertyInfo = Bool + type AttrLabel EntryHasFramePropertyInfo = "has-frame" + attrGet _ = getEntryHasFrame + attrSet _ = setEntryHasFrame + attrConstruct _ = constructEntryHasFrame + +-- VVV Prop "im-module" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryImModule :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryImModule obj = liftIO $ getObjectPropertyString obj "im-module" + +setEntryImModule :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntryImModule obj val = liftIO $ setObjectPropertyString obj "im-module" val + +constructEntryImModule :: T.Text -> IO ([Char], GValue) +constructEntryImModule val = constructObjectPropertyString "im-module" val + +data EntryImModulePropertyInfo +instance AttrInfo EntryImModulePropertyInfo where + type AttrAllowedOps EntryImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryImModulePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryImModulePropertyInfo = EntryK + type AttrGetType EntryImModulePropertyInfo = T.Text + type AttrLabel EntryImModulePropertyInfo = "im-module" + attrGet _ = getEntryImModule + attrSet _ = setEntryImModule + attrConstruct _ = constructEntryImModule + +-- VVV Prop "inner-border" + -- Type: TInterface "Gtk" "Border" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m Border +getEntryInnerBorder obj = liftIO $ getObjectPropertyBoxed obj "inner-border" Border + +setEntryInnerBorder :: (MonadIO m, EntryK o) => o -> Border -> m () +setEntryInnerBorder obj val = liftIO $ setObjectPropertyBoxed obj "inner-border" val + +constructEntryInnerBorder :: Border -> IO ([Char], GValue) +constructEntryInnerBorder val = constructObjectPropertyBoxed "inner-border" val + +data EntryInnerBorderPropertyInfo +instance AttrInfo EntryInnerBorderPropertyInfo where + type AttrAllowedOps EntryInnerBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryInnerBorderPropertyInfo = (~) Border + type AttrBaseTypeConstraint EntryInnerBorderPropertyInfo = EntryK + type AttrGetType EntryInnerBorderPropertyInfo = Border + type AttrLabel EntryInnerBorderPropertyInfo = "inner-border" + attrGet _ = getEntryInnerBorder + attrSet _ = setEntryInnerBorder + attrConstruct _ = constructEntryInnerBorder + +-- VVV Prop "input-hints" + -- Type: TInterface "Gtk" "InputHints" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryInputHints :: (MonadIO m, EntryK o) => o -> m [InputHints] +getEntryInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints" + +setEntryInputHints :: (MonadIO m, EntryK o) => o -> [InputHints] -> m () +setEntryInputHints obj val = liftIO $ setObjectPropertyFlags obj "input-hints" val + +constructEntryInputHints :: [InputHints] -> IO ([Char], GValue) +constructEntryInputHints val = constructObjectPropertyFlags "input-hints" val + +data EntryInputHintsPropertyInfo +instance AttrInfo EntryInputHintsPropertyInfo where + type AttrAllowedOps EntryInputHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryInputHintsPropertyInfo = (~) [InputHints] + type AttrBaseTypeConstraint EntryInputHintsPropertyInfo = EntryK + type AttrGetType EntryInputHintsPropertyInfo = [InputHints] + type AttrLabel EntryInputHintsPropertyInfo = "input-hints" + attrGet _ = getEntryInputHints + attrSet _ = setEntryInputHints + attrConstruct _ = constructEntryInputHints + +-- VVV Prop "input-purpose" + -- Type: TInterface "Gtk" "InputPurpose" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryInputPurpose :: (MonadIO m, EntryK o) => o -> m InputPurpose +getEntryInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose" + +setEntryInputPurpose :: (MonadIO m, EntryK o) => o -> InputPurpose -> m () +setEntryInputPurpose obj val = liftIO $ setObjectPropertyEnum obj "input-purpose" val + +constructEntryInputPurpose :: InputPurpose -> IO ([Char], GValue) +constructEntryInputPurpose val = constructObjectPropertyEnum "input-purpose" val + +data EntryInputPurposePropertyInfo +instance AttrInfo EntryInputPurposePropertyInfo where + type AttrAllowedOps EntryInputPurposePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryInputPurposePropertyInfo = (~) InputPurpose + type AttrBaseTypeConstraint EntryInputPurposePropertyInfo = EntryK + type AttrGetType EntryInputPurposePropertyInfo = InputPurpose + type AttrLabel EntryInputPurposePropertyInfo = "input-purpose" + attrGet _ = getEntryInputPurpose + attrSet _ = setEntryInputPurpose + attrConstruct _ = constructEntryInputPurpose + +-- VVV Prop "invisible-char" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> m Word32 +getEntryInvisibleChar obj = liftIO $ getObjectPropertyCUInt obj "invisible-char" + +setEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> Word32 -> m () +setEntryInvisibleChar obj val = liftIO $ setObjectPropertyCUInt obj "invisible-char" val + +constructEntryInvisibleChar :: Word32 -> IO ([Char], GValue) +constructEntryInvisibleChar val = constructObjectPropertyCUInt "invisible-char" val + +data EntryInvisibleCharPropertyInfo +instance AttrInfo EntryInvisibleCharPropertyInfo where + type AttrAllowedOps EntryInvisibleCharPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryInvisibleCharPropertyInfo = (~) Word32 + type AttrBaseTypeConstraint EntryInvisibleCharPropertyInfo = EntryK + type AttrGetType EntryInvisibleCharPropertyInfo = Word32 + type AttrLabel EntryInvisibleCharPropertyInfo = "invisible-char" + attrGet _ = getEntryInvisibleChar + attrSet _ = setEntryInvisibleChar + attrConstruct _ = constructEntryInvisibleChar + +-- VVV Prop "invisible-char-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryInvisibleCharSet :: (MonadIO m, EntryK o) => o -> m Bool +getEntryInvisibleCharSet obj = liftIO $ getObjectPropertyBool obj "invisible-char-set" + +setEntryInvisibleCharSet :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntryInvisibleCharSet obj val = liftIO $ setObjectPropertyBool obj "invisible-char-set" val + +constructEntryInvisibleCharSet :: Bool -> IO ([Char], GValue) +constructEntryInvisibleCharSet val = constructObjectPropertyBool "invisible-char-set" val + +data EntryInvisibleCharSetPropertyInfo +instance AttrInfo EntryInvisibleCharSetPropertyInfo where + type AttrAllowedOps EntryInvisibleCharSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryInvisibleCharSetPropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntryInvisibleCharSetPropertyInfo = EntryK + type AttrGetType EntryInvisibleCharSetPropertyInfo = Bool + type AttrLabel EntryInvisibleCharSetPropertyInfo = "invisible-char-set" + attrGet _ = getEntryInvisibleCharSet + attrSet _ = setEntryInvisibleCharSet + attrConstruct _ = constructEntryInvisibleCharSet + +-- VVV Prop "max-length" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryMaxLength :: (MonadIO m, EntryK o) => o -> m Int32 +getEntryMaxLength obj = liftIO $ getObjectPropertyCInt obj "max-length" + +setEntryMaxLength :: (MonadIO m, EntryK o) => o -> Int32 -> m () +setEntryMaxLength obj val = liftIO $ setObjectPropertyCInt obj "max-length" val + +constructEntryMaxLength :: Int32 -> IO ([Char], GValue) +constructEntryMaxLength val = constructObjectPropertyCInt "max-length" val + +data EntryMaxLengthPropertyInfo +instance AttrInfo EntryMaxLengthPropertyInfo where + type AttrAllowedOps EntryMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryMaxLengthPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint EntryMaxLengthPropertyInfo = EntryK + type AttrGetType EntryMaxLengthPropertyInfo = Int32 + type AttrLabel EntryMaxLengthPropertyInfo = "max-length" + attrGet _ = getEntryMaxLength + attrSet _ = setEntryMaxLength + attrConstruct _ = constructEntryMaxLength + +-- VVV Prop "max-width-chars" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> m Int32 +getEntryMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" + +setEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m () +setEntryMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val + +constructEntryMaxWidthChars :: Int32 -> IO ([Char], GValue) +constructEntryMaxWidthChars val = constructObjectPropertyCInt "max-width-chars" val + +data EntryMaxWidthCharsPropertyInfo +instance AttrInfo EntryMaxWidthCharsPropertyInfo where + type AttrAllowedOps EntryMaxWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryMaxWidthCharsPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint EntryMaxWidthCharsPropertyInfo = EntryK + type AttrGetType EntryMaxWidthCharsPropertyInfo = Int32 + type AttrLabel EntryMaxWidthCharsPropertyInfo = "max-width-chars" + attrGet _ = getEntryMaxWidthChars + attrSet _ = setEntryMaxWidthChars + attrConstruct _ = constructEntryMaxWidthChars + +-- VVV Prop "overwrite-mode" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryOverwriteMode :: (MonadIO m, EntryK o) => o -> m Bool +getEntryOverwriteMode obj = liftIO $ getObjectPropertyBool obj "overwrite-mode" + +setEntryOverwriteMode :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntryOverwriteMode obj val = liftIO $ setObjectPropertyBool obj "overwrite-mode" val + +constructEntryOverwriteMode :: Bool -> IO ([Char], GValue) +constructEntryOverwriteMode val = constructObjectPropertyBool "overwrite-mode" val + +data EntryOverwriteModePropertyInfo +instance AttrInfo EntryOverwriteModePropertyInfo where + type AttrAllowedOps EntryOverwriteModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryOverwriteModePropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntryOverwriteModePropertyInfo = EntryK + type AttrGetType EntryOverwriteModePropertyInfo = Bool + type AttrLabel EntryOverwriteModePropertyInfo = "overwrite-mode" + attrGet _ = getEntryOverwriteMode + attrSet _ = setEntryOverwriteMode + attrConstruct _ = constructEntryOverwriteMode + +-- VVV Prop "placeholder-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryPlaceholderText obj = liftIO $ getObjectPropertyString obj "placeholder-text" + +setEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntryPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" val + +constructEntryPlaceholderText :: T.Text -> IO ([Char], GValue) +constructEntryPlaceholderText val = constructObjectPropertyString "placeholder-text" val + +data EntryPlaceholderTextPropertyInfo +instance AttrInfo EntryPlaceholderTextPropertyInfo where + type AttrAllowedOps EntryPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPlaceholderTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryPlaceholderTextPropertyInfo = EntryK + type AttrGetType EntryPlaceholderTextPropertyInfo = T.Text + type AttrLabel EntryPlaceholderTextPropertyInfo = "placeholder-text" + attrGet _ = getEntryPlaceholderText + attrSet _ = setEntryPlaceholderText + attrConstruct _ = constructEntryPlaceholderText + +-- VVV Prop "populate-all" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPopulateAll :: (MonadIO m, EntryK o) => o -> m Bool +getEntryPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all" + +setEntryPopulateAll :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntryPopulateAll obj val = liftIO $ setObjectPropertyBool obj "populate-all" val + +constructEntryPopulateAll :: Bool -> IO ([Char], GValue) +constructEntryPopulateAll val = constructObjectPropertyBool "populate-all" val + +data EntryPopulateAllPropertyInfo +instance AttrInfo EntryPopulateAllPropertyInfo where + type AttrAllowedOps EntryPopulateAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPopulateAllPropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntryPopulateAllPropertyInfo = EntryK + type AttrGetType EntryPopulateAllPropertyInfo = Bool + type AttrLabel EntryPopulateAllPropertyInfo = "populate-all" + attrGet _ = getEntryPopulateAll + attrSet _ = setEntryPopulateAll + attrConstruct _ = constructEntryPopulateAll + +-- VVV Prop "primary-icon-activatable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconActivatable :: (MonadIO m, EntryK o) => o -> m Bool +getEntryPrimaryIconActivatable obj = liftIO $ getObjectPropertyBool obj "primary-icon-activatable" + +setEntryPrimaryIconActivatable :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntryPrimaryIconActivatable obj val = liftIO $ setObjectPropertyBool obj "primary-icon-activatable" val + +constructEntryPrimaryIconActivatable :: Bool -> IO ([Char], GValue) +constructEntryPrimaryIconActivatable val = constructObjectPropertyBool "primary-icon-activatable" val + +data EntryPrimaryIconActivatablePropertyInfo +instance AttrInfo EntryPrimaryIconActivatablePropertyInfo where + type AttrAllowedOps EntryPrimaryIconActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconActivatablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntryPrimaryIconActivatablePropertyInfo = EntryK + type AttrGetType EntryPrimaryIconActivatablePropertyInfo = Bool + type AttrLabel EntryPrimaryIconActivatablePropertyInfo = "primary-icon-activatable" + attrGet _ = getEntryPrimaryIconActivatable + attrSet _ = setEntryPrimaryIconActivatable + attrConstruct _ = constructEntryPrimaryIconActivatable + +-- VVV Prop "primary-icon-gicon" + -- Type: TInterface "Gio" "Icon" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m Gio.Icon +getEntryPrimaryIconGicon obj = liftIO $ getObjectPropertyObject obj "primary-icon-gicon" Gio.Icon + +setEntryPrimaryIconGicon :: (MonadIO m, EntryK o, Gio.IconK a) => o -> a -> m () +setEntryPrimaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "primary-icon-gicon" val + +constructEntryPrimaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) +constructEntryPrimaryIconGicon val = constructObjectPropertyObject "primary-icon-gicon" val + +data EntryPrimaryIconGiconPropertyInfo +instance AttrInfo EntryPrimaryIconGiconPropertyInfo where + type AttrAllowedOps EntryPrimaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconGiconPropertyInfo = Gio.IconK + type AttrBaseTypeConstraint EntryPrimaryIconGiconPropertyInfo = EntryK + type AttrGetType EntryPrimaryIconGiconPropertyInfo = Gio.Icon + type AttrLabel EntryPrimaryIconGiconPropertyInfo = "primary-icon-gicon" + attrGet _ = getEntryPrimaryIconGicon + attrSet _ = setEntryPrimaryIconGicon + attrConstruct _ = constructEntryPrimaryIconGicon + +-- VVV Prop "primary-icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryPrimaryIconName obj = liftIO $ getObjectPropertyString obj "primary-icon-name" + +setEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntryPrimaryIconName obj val = liftIO $ setObjectPropertyString obj "primary-icon-name" val + +constructEntryPrimaryIconName :: T.Text -> IO ([Char], GValue) +constructEntryPrimaryIconName val = constructObjectPropertyString "primary-icon-name" val + +data EntryPrimaryIconNamePropertyInfo +instance AttrInfo EntryPrimaryIconNamePropertyInfo where + type AttrAllowedOps EntryPrimaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryPrimaryIconNamePropertyInfo = EntryK + type AttrGetType EntryPrimaryIconNamePropertyInfo = T.Text + type AttrLabel EntryPrimaryIconNamePropertyInfo = "primary-icon-name" + attrGet _ = getEntryPrimaryIconName + attrSet _ = setEntryPrimaryIconName + attrConstruct _ = constructEntryPrimaryIconName + +-- VVV Prop "primary-icon-pixbuf" + -- Type: TInterface "GdkPixbuf" "Pixbuf" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m GdkPixbuf.Pixbuf +getEntryPrimaryIconPixbuf obj = liftIO $ getObjectPropertyObject obj "primary-icon-pixbuf" GdkPixbuf.Pixbuf + +setEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o, GdkPixbuf.PixbufK a) => o -> a -> m () +setEntryPrimaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "primary-icon-pixbuf" val + +constructEntryPrimaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) +constructEntryPrimaryIconPixbuf val = constructObjectPropertyObject "primary-icon-pixbuf" val + +data EntryPrimaryIconPixbufPropertyInfo +instance AttrInfo EntryPrimaryIconPixbufPropertyInfo where + type AttrAllowedOps EntryPrimaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK + type AttrBaseTypeConstraint EntryPrimaryIconPixbufPropertyInfo = EntryK + type AttrGetType EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf + type AttrLabel EntryPrimaryIconPixbufPropertyInfo = "primary-icon-pixbuf" + attrGet _ = getEntryPrimaryIconPixbuf + attrSet _ = setEntryPrimaryIconPixbuf + attrConstruct _ = constructEntryPrimaryIconPixbuf + +-- VVV Prop "primary-icon-sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconSensitive :: (MonadIO m, EntryK o) => o -> m Bool +getEntryPrimaryIconSensitive obj = liftIO $ getObjectPropertyBool obj "primary-icon-sensitive" + +setEntryPrimaryIconSensitive :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntryPrimaryIconSensitive obj val = liftIO $ setObjectPropertyBool obj "primary-icon-sensitive" val + +constructEntryPrimaryIconSensitive :: Bool -> IO ([Char], GValue) +constructEntryPrimaryIconSensitive val = constructObjectPropertyBool "primary-icon-sensitive" val + +data EntryPrimaryIconSensitivePropertyInfo +instance AttrInfo EntryPrimaryIconSensitivePropertyInfo where + type AttrAllowedOps EntryPrimaryIconSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconSensitivePropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntryPrimaryIconSensitivePropertyInfo = EntryK + type AttrGetType EntryPrimaryIconSensitivePropertyInfo = Bool + type AttrLabel EntryPrimaryIconSensitivePropertyInfo = "primary-icon-sensitive" + attrGet _ = getEntryPrimaryIconSensitive + attrSet _ = setEntryPrimaryIconSensitive + attrConstruct _ = constructEntryPrimaryIconSensitive + +-- VVV Prop "primary-icon-stock" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryPrimaryIconStock obj = liftIO $ getObjectPropertyString obj "primary-icon-stock" + +setEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntryPrimaryIconStock obj val = liftIO $ setObjectPropertyString obj "primary-icon-stock" val + +constructEntryPrimaryIconStock :: T.Text -> IO ([Char], GValue) +constructEntryPrimaryIconStock val = constructObjectPropertyString "primary-icon-stock" val + +data EntryPrimaryIconStockPropertyInfo +instance AttrInfo EntryPrimaryIconStockPropertyInfo where + type AttrAllowedOps EntryPrimaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconStockPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryPrimaryIconStockPropertyInfo = EntryK + type AttrGetType EntryPrimaryIconStockPropertyInfo = T.Text + type AttrLabel EntryPrimaryIconStockPropertyInfo = "primary-icon-stock" + attrGet _ = getEntryPrimaryIconStock + attrSet _ = setEntryPrimaryIconStock + attrConstruct _ = constructEntryPrimaryIconStock + +-- VVV Prop "primary-icon-storage-type" + -- Type: TInterface "Gtk" "ImageType" + -- Flags: [PropertyReadable] + +getEntryPrimaryIconStorageType :: (MonadIO m, EntryK o) => o -> m ImageType +getEntryPrimaryIconStorageType obj = liftIO $ getObjectPropertyEnum obj "primary-icon-storage-type" + +data EntryPrimaryIconStorageTypePropertyInfo +instance AttrInfo EntryPrimaryIconStorageTypePropertyInfo where + type AttrAllowedOps EntryPrimaryIconStorageTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconStorageTypePropertyInfo = (~) () + type AttrBaseTypeConstraint EntryPrimaryIconStorageTypePropertyInfo = EntryK + type AttrGetType EntryPrimaryIconStorageTypePropertyInfo = ImageType + type AttrLabel EntryPrimaryIconStorageTypePropertyInfo = "primary-icon-storage-type" + attrGet _ = getEntryPrimaryIconStorageType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "primary-icon-tooltip-markup" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryPrimaryIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "primary-icon-tooltip-markup" + +setEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntryPrimaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-markup" val + +constructEntryPrimaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue) +constructEntryPrimaryIconTooltipMarkup val = constructObjectPropertyString "primary-icon-tooltip-markup" val + +data EntryPrimaryIconTooltipMarkupPropertyInfo +instance AttrInfo EntryPrimaryIconTooltipMarkupPropertyInfo where + type AttrAllowedOps EntryPrimaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = EntryK + type AttrGetType EntryPrimaryIconTooltipMarkupPropertyInfo = T.Text + type AttrLabel EntryPrimaryIconTooltipMarkupPropertyInfo = "primary-icon-tooltip-markup" + attrGet _ = getEntryPrimaryIconTooltipMarkup + attrSet _ = setEntryPrimaryIconTooltipMarkup + attrConstruct _ = constructEntryPrimaryIconTooltipMarkup + +-- VVV Prop "primary-icon-tooltip-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryPrimaryIconTooltipText obj = liftIO $ getObjectPropertyString obj "primary-icon-tooltip-text" + +setEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntryPrimaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-text" val + +constructEntryPrimaryIconTooltipText :: T.Text -> IO ([Char], GValue) +constructEntryPrimaryIconTooltipText val = constructObjectPropertyString "primary-icon-tooltip-text" val + +data EntryPrimaryIconTooltipTextPropertyInfo +instance AttrInfo EntryPrimaryIconTooltipTextPropertyInfo where + type AttrAllowedOps EntryPrimaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = EntryK + type AttrGetType EntryPrimaryIconTooltipTextPropertyInfo = T.Text + type AttrLabel EntryPrimaryIconTooltipTextPropertyInfo = "primary-icon-tooltip-text" + attrGet _ = getEntryPrimaryIconTooltipText + attrSet _ = setEntryPrimaryIconTooltipText + attrConstruct _ = constructEntryPrimaryIconTooltipText + +-- VVV Prop "progress-fraction" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryProgressFraction :: (MonadIO m, EntryK o) => o -> m Double +getEntryProgressFraction obj = liftIO $ getObjectPropertyDouble obj "progress-fraction" + +setEntryProgressFraction :: (MonadIO m, EntryK o) => o -> Double -> m () +setEntryProgressFraction obj val = liftIO $ setObjectPropertyDouble obj "progress-fraction" val + +constructEntryProgressFraction :: Double -> IO ([Char], GValue) +constructEntryProgressFraction val = constructObjectPropertyDouble "progress-fraction" val + +data EntryProgressFractionPropertyInfo +instance AttrInfo EntryProgressFractionPropertyInfo where + type AttrAllowedOps EntryProgressFractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryProgressFractionPropertyInfo = (~) Double + type AttrBaseTypeConstraint EntryProgressFractionPropertyInfo = EntryK + type AttrGetType EntryProgressFractionPropertyInfo = Double + type AttrLabel EntryProgressFractionPropertyInfo = "progress-fraction" + attrGet _ = getEntryProgressFraction + attrSet _ = setEntryProgressFraction + attrConstruct _ = constructEntryProgressFraction + +-- VVV Prop "progress-pulse-step" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryProgressPulseStep :: (MonadIO m, EntryK o) => o -> m Double +getEntryProgressPulseStep obj = liftIO $ getObjectPropertyDouble obj "progress-pulse-step" + +setEntryProgressPulseStep :: (MonadIO m, EntryK o) => o -> Double -> m () +setEntryProgressPulseStep obj val = liftIO $ setObjectPropertyDouble obj "progress-pulse-step" val + +constructEntryProgressPulseStep :: Double -> IO ([Char], GValue) +constructEntryProgressPulseStep val = constructObjectPropertyDouble "progress-pulse-step" val + +data EntryProgressPulseStepPropertyInfo +instance AttrInfo EntryProgressPulseStepPropertyInfo where + type AttrAllowedOps EntryProgressPulseStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryProgressPulseStepPropertyInfo = (~) Double + type AttrBaseTypeConstraint EntryProgressPulseStepPropertyInfo = EntryK + type AttrGetType EntryProgressPulseStepPropertyInfo = Double + type AttrLabel EntryProgressPulseStepPropertyInfo = "progress-pulse-step" + attrGet _ = getEntryProgressPulseStep + attrSet _ = setEntryProgressPulseStep + attrConstruct _ = constructEntryProgressPulseStep + +-- VVV Prop "scroll-offset" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getEntryScrollOffset :: (MonadIO m, EntryK o) => o -> m Int32 +getEntryScrollOffset obj = liftIO $ getObjectPropertyCInt obj "scroll-offset" + +data EntryScrollOffsetPropertyInfo +instance AttrInfo EntryScrollOffsetPropertyInfo where + type AttrAllowedOps EntryScrollOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint EntryScrollOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint EntryScrollOffsetPropertyInfo = EntryK + type AttrGetType EntryScrollOffsetPropertyInfo = Int32 + type AttrLabel EntryScrollOffsetPropertyInfo = "scroll-offset" + attrGet _ = getEntryScrollOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "secondary-icon-activatable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconActivatable :: (MonadIO m, EntryK o) => o -> m Bool +getEntrySecondaryIconActivatable obj = liftIO $ getObjectPropertyBool obj "secondary-icon-activatable" + +setEntrySecondaryIconActivatable :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntrySecondaryIconActivatable obj val = liftIO $ setObjectPropertyBool obj "secondary-icon-activatable" val + +constructEntrySecondaryIconActivatable :: Bool -> IO ([Char], GValue) +constructEntrySecondaryIconActivatable val = constructObjectPropertyBool "secondary-icon-activatable" val + +data EntrySecondaryIconActivatablePropertyInfo +instance AttrInfo EntrySecondaryIconActivatablePropertyInfo where + type AttrAllowedOps EntrySecondaryIconActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconActivatablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntrySecondaryIconActivatablePropertyInfo = EntryK + type AttrGetType EntrySecondaryIconActivatablePropertyInfo = Bool + type AttrLabel EntrySecondaryIconActivatablePropertyInfo = "secondary-icon-activatable" + attrGet _ = getEntrySecondaryIconActivatable + attrSet _ = setEntrySecondaryIconActivatable + attrConstruct _ = constructEntrySecondaryIconActivatable + +-- VVV Prop "secondary-icon-gicon" + -- Type: TInterface "Gio" "Icon" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m Gio.Icon +getEntrySecondaryIconGicon obj = liftIO $ getObjectPropertyObject obj "secondary-icon-gicon" Gio.Icon + +setEntrySecondaryIconGicon :: (MonadIO m, EntryK o, Gio.IconK a) => o -> a -> m () +setEntrySecondaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-gicon" val + +constructEntrySecondaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) +constructEntrySecondaryIconGicon val = constructObjectPropertyObject "secondary-icon-gicon" val + +data EntrySecondaryIconGiconPropertyInfo +instance AttrInfo EntrySecondaryIconGiconPropertyInfo where + type AttrAllowedOps EntrySecondaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconGiconPropertyInfo = Gio.IconK + type AttrBaseTypeConstraint EntrySecondaryIconGiconPropertyInfo = EntryK + type AttrGetType EntrySecondaryIconGiconPropertyInfo = Gio.Icon + type AttrLabel EntrySecondaryIconGiconPropertyInfo = "secondary-icon-gicon" + attrGet _ = getEntrySecondaryIconGicon + attrSet _ = setEntrySecondaryIconGicon + attrConstruct _ = constructEntrySecondaryIconGicon + +-- VVV Prop "secondary-icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m T.Text +getEntrySecondaryIconName obj = liftIO $ getObjectPropertyString obj "secondary-icon-name" + +setEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntrySecondaryIconName obj val = liftIO $ setObjectPropertyString obj "secondary-icon-name" val + +constructEntrySecondaryIconName :: T.Text -> IO ([Char], GValue) +constructEntrySecondaryIconName val = constructObjectPropertyString "secondary-icon-name" val + +data EntrySecondaryIconNamePropertyInfo +instance AttrInfo EntrySecondaryIconNamePropertyInfo where + type AttrAllowedOps EntrySecondaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntrySecondaryIconNamePropertyInfo = EntryK + type AttrGetType EntrySecondaryIconNamePropertyInfo = T.Text + type AttrLabel EntrySecondaryIconNamePropertyInfo = "secondary-icon-name" + attrGet _ = getEntrySecondaryIconName + attrSet _ = setEntrySecondaryIconName + attrConstruct _ = constructEntrySecondaryIconName + +-- VVV Prop "secondary-icon-pixbuf" + -- Type: TInterface "GdkPixbuf" "Pixbuf" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m GdkPixbuf.Pixbuf +getEntrySecondaryIconPixbuf obj = liftIO $ getObjectPropertyObject obj "secondary-icon-pixbuf" GdkPixbuf.Pixbuf + +setEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o, GdkPixbuf.PixbufK a) => o -> a -> m () +setEntrySecondaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-pixbuf" val + +constructEntrySecondaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) +constructEntrySecondaryIconPixbuf val = constructObjectPropertyObject "secondary-icon-pixbuf" val + +data EntrySecondaryIconPixbufPropertyInfo +instance AttrInfo EntrySecondaryIconPixbufPropertyInfo where + type AttrAllowedOps EntrySecondaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK + type AttrBaseTypeConstraint EntrySecondaryIconPixbufPropertyInfo = EntryK + type AttrGetType EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf + type AttrLabel EntrySecondaryIconPixbufPropertyInfo = "secondary-icon-pixbuf" + attrGet _ = getEntrySecondaryIconPixbuf + attrSet _ = setEntrySecondaryIconPixbuf + attrConstruct _ = constructEntrySecondaryIconPixbuf + +-- VVV Prop "secondary-icon-sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconSensitive :: (MonadIO m, EntryK o) => o -> m Bool +getEntrySecondaryIconSensitive obj = liftIO $ getObjectPropertyBool obj "secondary-icon-sensitive" + +setEntrySecondaryIconSensitive :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntrySecondaryIconSensitive obj val = liftIO $ setObjectPropertyBool obj "secondary-icon-sensitive" val + +constructEntrySecondaryIconSensitive :: Bool -> IO ([Char], GValue) +constructEntrySecondaryIconSensitive val = constructObjectPropertyBool "secondary-icon-sensitive" val + +data EntrySecondaryIconSensitivePropertyInfo +instance AttrInfo EntrySecondaryIconSensitivePropertyInfo where + type AttrAllowedOps EntrySecondaryIconSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconSensitivePropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntrySecondaryIconSensitivePropertyInfo = EntryK + type AttrGetType EntrySecondaryIconSensitivePropertyInfo = Bool + type AttrLabel EntrySecondaryIconSensitivePropertyInfo = "secondary-icon-sensitive" + attrGet _ = getEntrySecondaryIconSensitive + attrSet _ = setEntrySecondaryIconSensitive + attrConstruct _ = constructEntrySecondaryIconSensitive + +-- VVV Prop "secondary-icon-stock" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m T.Text +getEntrySecondaryIconStock obj = liftIO $ getObjectPropertyString obj "secondary-icon-stock" + +setEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntrySecondaryIconStock obj val = liftIO $ setObjectPropertyString obj "secondary-icon-stock" val + +constructEntrySecondaryIconStock :: T.Text -> IO ([Char], GValue) +constructEntrySecondaryIconStock val = constructObjectPropertyString "secondary-icon-stock" val + +data EntrySecondaryIconStockPropertyInfo +instance AttrInfo EntrySecondaryIconStockPropertyInfo where + type AttrAllowedOps EntrySecondaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconStockPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntrySecondaryIconStockPropertyInfo = EntryK + type AttrGetType EntrySecondaryIconStockPropertyInfo = T.Text + type AttrLabel EntrySecondaryIconStockPropertyInfo = "secondary-icon-stock" + attrGet _ = getEntrySecondaryIconStock + attrSet _ = setEntrySecondaryIconStock + attrConstruct _ = constructEntrySecondaryIconStock + +-- VVV Prop "secondary-icon-storage-type" + -- Type: TInterface "Gtk" "ImageType" + -- Flags: [PropertyReadable] + +getEntrySecondaryIconStorageType :: (MonadIO m, EntryK o) => o -> m ImageType +getEntrySecondaryIconStorageType obj = liftIO $ getObjectPropertyEnum obj "secondary-icon-storage-type" + +data EntrySecondaryIconStorageTypePropertyInfo +instance AttrInfo EntrySecondaryIconStorageTypePropertyInfo where + type AttrAllowedOps EntrySecondaryIconStorageTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconStorageTypePropertyInfo = (~) () + type AttrBaseTypeConstraint EntrySecondaryIconStorageTypePropertyInfo = EntryK + type AttrGetType EntrySecondaryIconStorageTypePropertyInfo = ImageType + type AttrLabel EntrySecondaryIconStorageTypePropertyInfo = "secondary-icon-storage-type" + attrGet _ = getEntrySecondaryIconStorageType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "secondary-icon-tooltip-markup" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m T.Text +getEntrySecondaryIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "secondary-icon-tooltip-markup" + +setEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntrySecondaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-markup" val + +constructEntrySecondaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue) +constructEntrySecondaryIconTooltipMarkup val = constructObjectPropertyString "secondary-icon-tooltip-markup" val + +data EntrySecondaryIconTooltipMarkupPropertyInfo +instance AttrInfo EntrySecondaryIconTooltipMarkupPropertyInfo where + type AttrAllowedOps EntrySecondaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = EntryK + type AttrGetType EntrySecondaryIconTooltipMarkupPropertyInfo = T.Text + type AttrLabel EntrySecondaryIconTooltipMarkupPropertyInfo = "secondary-icon-tooltip-markup" + attrGet _ = getEntrySecondaryIconTooltipMarkup + attrSet _ = setEntrySecondaryIconTooltipMarkup + attrConstruct _ = constructEntrySecondaryIconTooltipMarkup + +-- VVV Prop "secondary-icon-tooltip-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m T.Text +getEntrySecondaryIconTooltipText obj = liftIO $ getObjectPropertyString obj "secondary-icon-tooltip-text" + +setEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntrySecondaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-text" val + +constructEntrySecondaryIconTooltipText :: T.Text -> IO ([Char], GValue) +constructEntrySecondaryIconTooltipText val = constructObjectPropertyString "secondary-icon-tooltip-text" val + +data EntrySecondaryIconTooltipTextPropertyInfo +instance AttrInfo EntrySecondaryIconTooltipTextPropertyInfo where + type AttrAllowedOps EntrySecondaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = EntryK + type AttrGetType EntrySecondaryIconTooltipTextPropertyInfo = T.Text + type AttrLabel EntrySecondaryIconTooltipTextPropertyInfo = "secondary-icon-tooltip-text" + attrGet _ = getEntrySecondaryIconTooltipText + attrSet _ = setEntrySecondaryIconTooltipText + attrConstruct _ = constructEntrySecondaryIconTooltipText + +-- VVV Prop "selection-bound" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getEntrySelectionBound :: (MonadIO m, EntryK o) => o -> m Int32 +getEntrySelectionBound obj = liftIO $ getObjectPropertyCInt obj "selection-bound" + +data EntrySelectionBoundPropertyInfo +instance AttrInfo EntrySelectionBoundPropertyInfo where + type AttrAllowedOps EntrySelectionBoundPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint EntrySelectionBoundPropertyInfo = (~) () + type AttrBaseTypeConstraint EntrySelectionBoundPropertyInfo = EntryK + type AttrGetType EntrySelectionBoundPropertyInfo = Int32 + type AttrLabel EntrySelectionBoundPropertyInfo = "selection-bound" + attrGet _ = getEntrySelectionBound + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "shadow-type" + -- Type: TInterface "Gtk" "ShadowType" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryShadowType :: (MonadIO m, EntryK o) => o -> m ShadowType +getEntryShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" + +setEntryShadowType :: (MonadIO m, EntryK o) => o -> ShadowType -> m () +setEntryShadowType obj val = liftIO $ setObjectPropertyEnum obj "shadow-type" val + +constructEntryShadowType :: ShadowType -> IO ([Char], GValue) +constructEntryShadowType val = constructObjectPropertyEnum "shadow-type" val + +data EntryShadowTypePropertyInfo +instance AttrInfo EntryShadowTypePropertyInfo where + type AttrAllowedOps EntryShadowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryShadowTypePropertyInfo = (~) ShadowType + type AttrBaseTypeConstraint EntryShadowTypePropertyInfo = EntryK + type AttrGetType EntryShadowTypePropertyInfo = ShadowType + type AttrLabel EntryShadowTypePropertyInfo = "shadow-type" + attrGet _ = getEntryShadowType + attrSet _ = setEntryShadowType + attrConstruct _ = constructEntryShadowType + +-- VVV Prop "tabs" + -- Type: TInterface "Pango" "TabArray" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryTabs :: (MonadIO m, EntryK o) => o -> m Pango.TabArray +getEntryTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray + +setEntryTabs :: (MonadIO m, EntryK o) => o -> Pango.TabArray -> m () +setEntryTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" val + +constructEntryTabs :: Pango.TabArray -> IO ([Char], GValue) +constructEntryTabs val = constructObjectPropertyBoxed "tabs" val + +data EntryTabsPropertyInfo +instance AttrInfo EntryTabsPropertyInfo where + type AttrAllowedOps EntryTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryTabsPropertyInfo = (~) Pango.TabArray + type AttrBaseTypeConstraint EntryTabsPropertyInfo = EntryK + type AttrGetType EntryTabsPropertyInfo = Pango.TabArray + type AttrLabel EntryTabsPropertyInfo = "tabs" + attrGet _ = getEntryTabs + attrSet _ = setEntryTabs + attrConstruct _ = constructEntryTabs + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryText :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryText obj = liftIO $ getObjectPropertyString obj "text" + +setEntryText :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntryText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructEntryText :: T.Text -> IO ([Char], GValue) +constructEntryText val = constructObjectPropertyString "text" val + +data EntryTextPropertyInfo +instance AttrInfo EntryTextPropertyInfo where + type AttrAllowedOps EntryTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryTextPropertyInfo = EntryK + type AttrGetType EntryTextPropertyInfo = T.Text + type AttrLabel EntryTextPropertyInfo = "text" + attrGet _ = getEntryText + attrSet _ = setEntryText + attrConstruct _ = constructEntryText + +-- VVV Prop "text-length" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getEntryTextLength :: (MonadIO m, EntryK o) => o -> m Word32 +getEntryTextLength obj = liftIO $ getObjectPropertyCUInt obj "text-length" + +data EntryTextLengthPropertyInfo +instance AttrInfo EntryTextLengthPropertyInfo where + type AttrAllowedOps EntryTextLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint EntryTextLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint EntryTextLengthPropertyInfo = EntryK + type AttrGetType EntryTextLengthPropertyInfo = Word32 + type AttrLabel EntryTextLengthPropertyInfo = "text-length" + attrGet _ = getEntryTextLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "truncate-multiline" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryTruncateMultiline :: (MonadIO m, EntryK o) => o -> m Bool +getEntryTruncateMultiline obj = liftIO $ getObjectPropertyBool obj "truncate-multiline" + +setEntryTruncateMultiline :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntryTruncateMultiline obj val = liftIO $ setObjectPropertyBool obj "truncate-multiline" val + +constructEntryTruncateMultiline :: Bool -> IO ([Char], GValue) +constructEntryTruncateMultiline val = constructObjectPropertyBool "truncate-multiline" val + +data EntryTruncateMultilinePropertyInfo +instance AttrInfo EntryTruncateMultilinePropertyInfo where + type AttrAllowedOps EntryTruncateMultilinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryTruncateMultilinePropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntryTruncateMultilinePropertyInfo = EntryK + type AttrGetType EntryTruncateMultilinePropertyInfo = Bool + type AttrLabel EntryTruncateMultilinePropertyInfo = "truncate-multiline" + attrGet _ = getEntryTruncateMultiline + attrSet _ = setEntryTruncateMultiline + attrConstruct _ = constructEntryTruncateMultiline + +-- VVV Prop "visibility" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryVisibility :: (MonadIO m, EntryK o) => o -> m Bool +getEntryVisibility obj = liftIO $ getObjectPropertyBool obj "visibility" + +setEntryVisibility :: (MonadIO m, EntryK o) => o -> Bool -> m () +setEntryVisibility obj val = liftIO $ setObjectPropertyBool obj "visibility" val + +constructEntryVisibility :: Bool -> IO ([Char], GValue) +constructEntryVisibility val = constructObjectPropertyBool "visibility" val + +data EntryVisibilityPropertyInfo +instance AttrInfo EntryVisibilityPropertyInfo where + type AttrAllowedOps EntryVisibilityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryVisibilityPropertyInfo = (~) Bool + type AttrBaseTypeConstraint EntryVisibilityPropertyInfo = EntryK + type AttrGetType EntryVisibilityPropertyInfo = Bool + type AttrLabel EntryVisibilityPropertyInfo = "visibility" + attrGet _ = getEntryVisibility + attrSet _ = setEntryVisibility + attrConstruct _ = constructEntryVisibility + +-- VVV Prop "width-chars" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryWidthChars :: (MonadIO m, EntryK o) => o -> m Int32 +getEntryWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" + +setEntryWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m () +setEntryWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val + +constructEntryWidthChars :: Int32 -> IO ([Char], GValue) +constructEntryWidthChars val = constructObjectPropertyCInt "width-chars" val + +data EntryWidthCharsPropertyInfo +instance AttrInfo EntryWidthCharsPropertyInfo where + type AttrAllowedOps EntryWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryWidthCharsPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint EntryWidthCharsPropertyInfo = EntryK + type AttrGetType EntryWidthCharsPropertyInfo = Int32 + type AttrLabel EntryWidthCharsPropertyInfo = "width-chars" + attrGet _ = getEntryWidthChars + attrSet _ = setEntryWidthChars + attrConstruct _ = constructEntryWidthChars + +-- VVV Prop "xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryXalign :: (MonadIO m, EntryK o) => o -> m Float +getEntryXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" + +setEntryXalign :: (MonadIO m, EntryK o) => o -> Float -> m () +setEntryXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val + +constructEntryXalign :: Float -> IO ([Char], GValue) +constructEntryXalign val = constructObjectPropertyFloat "xalign" val + +data EntryXalignPropertyInfo +instance AttrInfo EntryXalignPropertyInfo where + type AttrAllowedOps EntryXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryXalignPropertyInfo = (~) Float + type AttrBaseTypeConstraint EntryXalignPropertyInfo = EntryK + type AttrGetType EntryXalignPropertyInfo = Float + type AttrLabel EntryXalignPropertyInfo = "xalign" + attrGet _ = getEntryXalign + attrSet _ = setEntryXalign + attrConstruct _ = constructEntryXalign + +type instance AttributeList Entry = EntryAttributeList +type EntryAttributeList = ('[ '("activatesDefault", EntryActivatesDefaultPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("capsLockWarning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", EntryCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", EntryHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("imModule", EntryImModulePropertyInfo), '("innerBorder", EntryInnerBorderPropertyInfo), '("inputHints", EntryInputHintsPropertyInfo), '("inputPurpose", EntryInputPurposePropertyInfo), '("invisibleChar", EntryInvisibleCharPropertyInfo), '("invisibleCharSet", EntryInvisibleCharSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxLength", EntryMaxLengthPropertyInfo), '("maxWidthChars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwriteMode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholderText", EntryPlaceholderTextPropertyInfo), '("populateAll", EntryPopulateAllPropertyInfo), '("primaryIconActivatable", EntryPrimaryIconActivatablePropertyInfo), '("primaryIconGicon", EntryPrimaryIconGiconPropertyInfo), '("primaryIconName", EntryPrimaryIconNamePropertyInfo), '("primaryIconPixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primaryIconSensitive", EntryPrimaryIconSensitivePropertyInfo), '("primaryIconStock", EntryPrimaryIconStockPropertyInfo), '("primaryIconStorageType", EntryPrimaryIconStorageTypePropertyInfo), '("primaryIconTooltipMarkup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primaryIconTooltipText", EntryPrimaryIconTooltipTextPropertyInfo), '("progressFraction", EntryProgressFractionPropertyInfo), '("progressPulseStep", EntryProgressPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollOffset", EntryScrollOffsetPropertyInfo), '("secondaryIconActivatable", EntrySecondaryIconActivatablePropertyInfo), '("secondaryIconGicon", EntrySecondaryIconGiconPropertyInfo), '("secondaryIconName", EntrySecondaryIconNamePropertyInfo), '("secondaryIconPixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondaryIconSensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondaryIconStock", EntrySecondaryIconStockPropertyInfo), '("secondaryIconStorageType", EntrySecondaryIconStorageTypePropertyInfo), '("secondaryIconTooltipMarkup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondaryIconTooltipText", EntrySecondaryIconTooltipTextPropertyInfo), '("selectionBound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("textLength", EntryTextLengthPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("truncateMultiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", EntryWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) + +data EntryActivateSignalInfo +instance SignalInfo EntryActivateSignalInfo where + type HaskellCallbackType EntryActivateSignalInfo = EntryActivateCallback + connectSignal _ = connectEntryActivate + +data EntryBackspaceSignalInfo +instance SignalInfo EntryBackspaceSignalInfo where + type HaskellCallbackType EntryBackspaceSignalInfo = EntryBackspaceCallback + connectSignal _ = connectEntryBackspace + +data EntryCopyClipboardSignalInfo +instance SignalInfo EntryCopyClipboardSignalInfo where + type HaskellCallbackType EntryCopyClipboardSignalInfo = EntryCopyClipboardCallback + connectSignal _ = connectEntryCopyClipboard + +data EntryCutClipboardSignalInfo +instance SignalInfo EntryCutClipboardSignalInfo where + type HaskellCallbackType EntryCutClipboardSignalInfo = EntryCutClipboardCallback + connectSignal _ = connectEntryCutClipboard + +data EntryDeleteFromCursorSignalInfo +instance SignalInfo EntryDeleteFromCursorSignalInfo where + type HaskellCallbackType EntryDeleteFromCursorSignalInfo = EntryDeleteFromCursorCallback + connectSignal _ = connectEntryDeleteFromCursor + +data EntryIconPressSignalInfo +instance SignalInfo EntryIconPressSignalInfo where + type HaskellCallbackType EntryIconPressSignalInfo = EntryIconPressCallback + connectSignal _ = connectEntryIconPress + +data EntryIconReleaseSignalInfo +instance SignalInfo EntryIconReleaseSignalInfo where + type HaskellCallbackType EntryIconReleaseSignalInfo = EntryIconReleaseCallback + connectSignal _ = connectEntryIconRelease + +data EntryInsertAtCursorSignalInfo +instance SignalInfo EntryInsertAtCursorSignalInfo where + type HaskellCallbackType EntryInsertAtCursorSignalInfo = EntryInsertAtCursorCallback + connectSignal _ = connectEntryInsertAtCursor + +data EntryMoveCursorSignalInfo +instance SignalInfo EntryMoveCursorSignalInfo where + type HaskellCallbackType EntryMoveCursorSignalInfo = EntryMoveCursorCallback + connectSignal _ = connectEntryMoveCursor + +data EntryPasteClipboardSignalInfo +instance SignalInfo EntryPasteClipboardSignalInfo where + type HaskellCallbackType EntryPasteClipboardSignalInfo = EntryPasteClipboardCallback + connectSignal _ = connectEntryPasteClipboard + +data EntryPopulatePopupSignalInfo +instance SignalInfo EntryPopulatePopupSignalInfo where + type HaskellCallbackType EntryPopulatePopupSignalInfo = EntryPopulatePopupCallback + connectSignal _ = connectEntryPopulatePopup + +data EntryPreeditChangedSignalInfo +instance SignalInfo EntryPreeditChangedSignalInfo where + type HaskellCallbackType EntryPreeditChangedSignalInfo = EntryPreeditChangedCallback + connectSignal _ = connectEntryPreeditChanged + +data EntryToggleOverwriteSignalInfo +instance SignalInfo EntryToggleOverwriteSignalInfo where + type HaskellCallbackType EntryToggleOverwriteSignalInfo = EntryToggleOverwriteCallback + connectSignal _ = connectEntryToggleOverwrite + +type instance SignalList Entry = EntrySignalList +type EntrySignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", EditableChangedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", EntryCopyClipboardSignalInfo), '("cutClipboard", EntryCutClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deleteFromCursor", EntryDeleteFromCursorSignalInfo), '("deleteText", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("iconPress", EntryIconPressSignalInfo), '("iconRelease", EntryIconReleaseSignalInfo), '("insertAtCursor", EntryInsertAtCursorSignalInfo), '("insertText", EditableInsertTextSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", EntryMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("pasteClipboard", EntryPasteClipboardSignalInfo), '("populatePopup", EntryPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("preeditChanged", EntryPreeditChangedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleOverwrite", EntryToggleOverwriteSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +-- method Entry::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Entry" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_new" gtk_entry_new :: + IO (Ptr Entry) + + +entryNew :: + (MonadIO m) => + m Entry -- result +entryNew = liftIO $ do + result <- gtk_entry_new + checkUnexpectedReturnNULL "gtk_entry_new" result + result' <- (newObject Entry) result + return result' + +-- method Entry::new_with_buffer +-- method type : Constructor +-- Args : [Arg {argCName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Entry" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_new_with_buffer" gtk_entry_new_with_buffer :: + Ptr EntryBuffer -> -- buffer : TInterface "Gtk" "EntryBuffer" + IO (Ptr Entry) + + +entryNewWithBuffer :: + (MonadIO m, EntryBufferK a) => + a -- buffer + -> m Entry -- result +entryNewWithBuffer buffer = liftIO $ do + let buffer' = unsafeManagedPtrCastPtr buffer + result <- gtk_entry_new_with_buffer buffer' + checkUnexpectedReturnNULL "gtk_entry_new_with_buffer" result + result' <- (newObject Entry) result + touchManagedPtr buffer + return result' + +-- method Entry::get_activates_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_activates_default" gtk_entry_get_activates_default :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO CInt + + +entryGetActivatesDefault :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Bool -- result +entryGetActivatesDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_activates_default _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data EntryGetActivatesDefaultMethodInfo +instance (signature ~ (m Bool), MonadIO m, EntryK a) => MethodInfo EntryGetActivatesDefaultMethodInfo a signature where + overloadedMethod _ = entryGetActivatesDefault + +-- method Entry::get_alignment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TFloat +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_alignment" gtk_entry_get_alignment :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO CFloat + + +entryGetAlignment :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Float -- result +entryGetAlignment _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_alignment _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data EntryGetAlignmentMethodInfo +instance (signature ~ (m Float), MonadIO m, EntryK a) => MethodInfo EntryGetAlignmentMethodInfo a signature where + overloadedMethod _ = entryGetAlignment + +-- method Entry::get_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "AttrList" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_attributes" gtk_entry_get_attributes :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO (Ptr Pango.AttrList) + + +entryGetAttributes :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Pango.AttrList -- result +entryGetAttributes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_attributes _obj' + checkUnexpectedReturnNULL "gtk_entry_get_attributes" result + result' <- (newBoxed Pango.AttrList) result + touchManagedPtr _obj + return result' + +data EntryGetAttributesMethodInfo +instance (signature ~ (m Pango.AttrList), MonadIO m, EntryK a) => MethodInfo EntryGetAttributesMethodInfo a signature where + overloadedMethod _ = entryGetAttributes + +-- method Entry::get_buffer +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "EntryBuffer" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_buffer" gtk_entry_get_buffer :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO (Ptr EntryBuffer) + + +entryGetBuffer :: + (MonadIO m, EntryK a) => + a -- _obj + -> m EntryBuffer -- result +entryGetBuffer _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_buffer _obj' + checkUnexpectedReturnNULL "gtk_entry_get_buffer" result + result' <- (newObject EntryBuffer) result + touchManagedPtr _obj + return result' + +data EntryGetBufferMethodInfo +instance (signature ~ (m EntryBuffer), MonadIO m, EntryK a) => MethodInfo EntryGetBufferMethodInfo a signature where + overloadedMethod _ = entryGetBuffer + +-- method Entry::get_completion +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "EntryCompletion" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_completion" gtk_entry_get_completion :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO (Ptr EntryCompletion) + + +entryGetCompletion :: + (MonadIO m, EntryK a) => + a -- _obj + -> m EntryCompletion -- result +entryGetCompletion _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_completion _obj' + checkUnexpectedReturnNULL "gtk_entry_get_completion" result + result' <- (newObject EntryCompletion) result + touchManagedPtr _obj + return result' + +data EntryGetCompletionMethodInfo +instance (signature ~ (m EntryCompletion), MonadIO m, EntryK a) => MethodInfo EntryGetCompletionMethodInfo a signature where + overloadedMethod _ = entryGetCompletion + +-- method Entry::get_current_icon_drag_source +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_current_icon_drag_source" gtk_entry_get_current_icon_drag_source :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO Int32 + + +entryGetCurrentIconDragSource :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Int32 -- result +entryGetCurrentIconDragSource _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_current_icon_drag_source _obj' + touchManagedPtr _obj + return result + +data EntryGetCurrentIconDragSourceMethodInfo +instance (signature ~ (m Int32), MonadIO m, EntryK a) => MethodInfo EntryGetCurrentIconDragSourceMethodInfo a signature where + overloadedMethod _ = entryGetCurrentIconDragSource + +-- method Entry::get_cursor_hadjustment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Adjustment" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_cursor_hadjustment" gtk_entry_get_cursor_hadjustment :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO (Ptr Adjustment) + + +entryGetCursorHadjustment :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Adjustment -- result +entryGetCursorHadjustment _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_cursor_hadjustment _obj' + checkUnexpectedReturnNULL "gtk_entry_get_cursor_hadjustment" result + result' <- (newObject Adjustment) result + touchManagedPtr _obj + return result' + +data EntryGetCursorHadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, EntryK a) => MethodInfo EntryGetCursorHadjustmentMethodInfo a signature where + overloadedMethod _ = entryGetCursorHadjustment + +-- method Entry::get_has_frame +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_has_frame" gtk_entry_get_has_frame :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO CInt + + +entryGetHasFrame :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Bool -- result +entryGetHasFrame _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_has_frame _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data EntryGetHasFrameMethodInfo +instance (signature ~ (m Bool), MonadIO m, EntryK a) => MethodInfo EntryGetHasFrameMethodInfo a signature where + overloadedMethod _ = entryGetHasFrame + +-- method Entry::get_icon_activatable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_icon_activatable" gtk_entry_get_icon_activatable :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + IO CInt + + +entryGetIconActivatable :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> m Bool -- result +entryGetIconActivatable _obj iconPos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + result <- gtk_entry_get_icon_activatable _obj' iconPos' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data EntryGetIconActivatableMethodInfo +instance (signature ~ (EntryIconPosition -> m Bool), MonadIO m, EntryK a) => MethodInfo EntryGetIconActivatableMethodInfo a signature where + overloadedMethod _ = entryGetIconActivatable + +-- method Entry::get_icon_area +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_icon_area" gtk_entry_get_icon_area :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + Ptr Gdk.Rectangle -> -- icon_area : TInterface "Gdk" "Rectangle" + IO () + + +entryGetIconArea :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> m (Gdk.Rectangle) -- result +entryGetIconArea _obj iconPos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + iconArea <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_entry_get_icon_area _obj' iconPos' iconArea + iconArea' <- (wrapBoxed Gdk.Rectangle) iconArea + touchManagedPtr _obj + return iconArea' + +data EntryGetIconAreaMethodInfo +instance (signature ~ (EntryIconPosition -> m (Gdk.Rectangle)), MonadIO m, EntryK a) => MethodInfo EntryGetIconAreaMethodInfo a signature where + overloadedMethod _ = entryGetIconArea + +-- method Entry::get_icon_at_pos +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_icon_at_pos" gtk_entry_get_icon_at_pos :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + IO Int32 + + +entryGetIconAtPos :: + (MonadIO m, EntryK a) => + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> m Int32 -- result +entryGetIconAtPos _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_icon_at_pos _obj' x y + touchManagedPtr _obj + return result + +data EntryGetIconAtPosMethodInfo +instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m, EntryK a) => MethodInfo EntryGetIconAtPosMethodInfo a signature where + overloadedMethod _ = entryGetIconAtPos + +-- method Entry::get_icon_gicon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "Icon" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_icon_gicon" gtk_entry_get_icon_gicon :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + IO (Ptr Gio.Icon) + + +entryGetIconGicon :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> m Gio.Icon -- result +entryGetIconGicon _obj iconPos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + result <- gtk_entry_get_icon_gicon _obj' iconPos' + checkUnexpectedReturnNULL "gtk_entry_get_icon_gicon" result + result' <- (newObject Gio.Icon) result + touchManagedPtr _obj + return result' + +data EntryGetIconGiconMethodInfo +instance (signature ~ (EntryIconPosition -> m Gio.Icon), MonadIO m, EntryK a) => MethodInfo EntryGetIconGiconMethodInfo a signature where + overloadedMethod _ = entryGetIconGicon + +-- method Entry::get_icon_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_icon_name" gtk_entry_get_icon_name :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + IO CString + + +entryGetIconName :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> m T.Text -- result +entryGetIconName _obj iconPos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + result <- gtk_entry_get_icon_name _obj' iconPos' + checkUnexpectedReturnNULL "gtk_entry_get_icon_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data EntryGetIconNameMethodInfo +instance (signature ~ (EntryIconPosition -> m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetIconNameMethodInfo a signature where + overloadedMethod _ = entryGetIconName + +-- method Entry::get_icon_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_icon_pixbuf" gtk_entry_get_icon_pixbuf :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + IO (Ptr GdkPixbuf.Pixbuf) + + +entryGetIconPixbuf :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> m GdkPixbuf.Pixbuf -- result +entryGetIconPixbuf _obj iconPos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + result <- gtk_entry_get_icon_pixbuf _obj' iconPos' + checkUnexpectedReturnNULL "gtk_entry_get_icon_pixbuf" result + result' <- (newObject GdkPixbuf.Pixbuf) result + touchManagedPtr _obj + return result' + +data EntryGetIconPixbufMethodInfo +instance (signature ~ (EntryIconPosition -> m GdkPixbuf.Pixbuf), MonadIO m, EntryK a) => MethodInfo EntryGetIconPixbufMethodInfo a signature where + overloadedMethod _ = entryGetIconPixbuf + +-- method Entry::get_icon_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_icon_sensitive" gtk_entry_get_icon_sensitive :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + IO CInt + + +entryGetIconSensitive :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> m Bool -- result +entryGetIconSensitive _obj iconPos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + result <- gtk_entry_get_icon_sensitive _obj' iconPos' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data EntryGetIconSensitiveMethodInfo +instance (signature ~ (EntryIconPosition -> m Bool), MonadIO m, EntryK a) => MethodInfo EntryGetIconSensitiveMethodInfo a signature where + overloadedMethod _ = entryGetIconSensitive + +-- method Entry::get_icon_stock +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_icon_stock" gtk_entry_get_icon_stock :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + IO CString + +{-# DEPRECATED entryGetIconStock ["(Since version 3.10)","Use gtk_entry_get_icon_name() instead."]#-} +entryGetIconStock :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> m T.Text -- result +entryGetIconStock _obj iconPos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + result <- gtk_entry_get_icon_stock _obj' iconPos' + checkUnexpectedReturnNULL "gtk_entry_get_icon_stock" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data EntryGetIconStockMethodInfo +instance (signature ~ (EntryIconPosition -> m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetIconStockMethodInfo a signature where + overloadedMethod _ = entryGetIconStock + +-- method Entry::get_icon_storage_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "ImageType" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_icon_storage_type" gtk_entry_get_icon_storage_type :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + IO CUInt + + +entryGetIconStorageType :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> m ImageType -- result +entryGetIconStorageType _obj iconPos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + result <- gtk_entry_get_icon_storage_type _obj' iconPos' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data EntryGetIconStorageTypeMethodInfo +instance (signature ~ (EntryIconPosition -> m ImageType), MonadIO m, EntryK a) => MethodInfo EntryGetIconStorageTypeMethodInfo a signature where + overloadedMethod _ = entryGetIconStorageType + +-- method Entry::get_icon_tooltip_markup +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_icon_tooltip_markup" gtk_entry_get_icon_tooltip_markup :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + IO CString + + +entryGetIconTooltipMarkup :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> m T.Text -- result +entryGetIconTooltipMarkup _obj iconPos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + result <- gtk_entry_get_icon_tooltip_markup _obj' iconPos' + checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_markup" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +data EntryGetIconTooltipMarkupMethodInfo +instance (signature ~ (EntryIconPosition -> m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetIconTooltipMarkupMethodInfo a signature where + overloadedMethod _ = entryGetIconTooltipMarkup + +-- method Entry::get_icon_tooltip_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_icon_tooltip_text" gtk_entry_get_icon_tooltip_text :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + IO CString + + +entryGetIconTooltipText :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> m T.Text -- result +entryGetIconTooltipText _obj iconPos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + result <- gtk_entry_get_icon_tooltip_text _obj' iconPos' + checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +data EntryGetIconTooltipTextMethodInfo +instance (signature ~ (EntryIconPosition -> m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetIconTooltipTextMethodInfo a signature where + overloadedMethod _ = entryGetIconTooltipText + +-- method Entry::get_inner_border +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Border" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_inner_border" gtk_entry_get_inner_border :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO (Ptr Border) + +{-# DEPRECATED entryGetInnerBorder ["(Since version 3.4)","Use the standard border and padding CSS properties (through"," objects like #GtkStyleContext and #GtkCssProvider); the value returned by"," this function is ignored by #GtkEntry."]#-} +entryGetInnerBorder :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Border -- result +entryGetInnerBorder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_inner_border _obj' + checkUnexpectedReturnNULL "gtk_entry_get_inner_border" result + result' <- (newBoxed Border) result + touchManagedPtr _obj + return result' + +data EntryGetInnerBorderMethodInfo +instance (signature ~ (m Border), MonadIO m, EntryK a) => MethodInfo EntryGetInnerBorderMethodInfo a signature where + overloadedMethod _ = entryGetInnerBorder + +-- method Entry::get_input_hints +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "InputHints" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_input_hints" gtk_entry_get_input_hints :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO CUInt + + +entryGetInputHints :: + (MonadIO m, EntryK a) => + a -- _obj + -> m [InputHints] -- result +entryGetInputHints _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_input_hints _obj' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +data EntryGetInputHintsMethodInfo +instance (signature ~ (m [InputHints]), MonadIO m, EntryK a) => MethodInfo EntryGetInputHintsMethodInfo a signature where + overloadedMethod _ = entryGetInputHints + +-- method Entry::get_input_purpose +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "InputPurpose" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_input_purpose" gtk_entry_get_input_purpose :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO CUInt + + +entryGetInputPurpose :: + (MonadIO m, EntryK a) => + a -- _obj + -> m InputPurpose -- result +entryGetInputPurpose _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_input_purpose _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data EntryGetInputPurposeMethodInfo +instance (signature ~ (m InputPurpose), MonadIO m, EntryK a) => MethodInfo EntryGetInputPurposeMethodInfo a signature where + overloadedMethod _ = entryGetInputPurpose + +-- method Entry::get_invisible_char +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUniChar +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_invisible_char" gtk_entry_get_invisible_char :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO CInt + + +entryGetInvisibleChar :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Char -- result +entryGetInvisibleChar _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_invisible_char _obj' + let result' = (chr . fromIntegral) result + touchManagedPtr _obj + return result' + +data EntryGetInvisibleCharMethodInfo +instance (signature ~ (m Char), MonadIO m, EntryK a) => MethodInfo EntryGetInvisibleCharMethodInfo a signature where + overloadedMethod _ = entryGetInvisibleChar + +-- method Entry::get_layout +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "Layout" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_layout" gtk_entry_get_layout :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO (Ptr Pango.Layout) + + +entryGetLayout :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Pango.Layout -- result +entryGetLayout _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_layout _obj' + checkUnexpectedReturnNULL "gtk_entry_get_layout" result + result' <- (newObject Pango.Layout) result + touchManagedPtr _obj + return result' + +data EntryGetLayoutMethodInfo +instance (signature ~ (m Pango.Layout), MonadIO m, EntryK a) => MethodInfo EntryGetLayoutMethodInfo a signature where + overloadedMethod _ = entryGetLayout + +-- method Entry::get_layout_offsets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_layout_offsets" gtk_entry_get_layout_offsets :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Ptr Int32 -> -- x : TBasicType TInt32 + Ptr Int32 -> -- y : TBasicType TInt32 + IO () + + +entryGetLayoutOffsets :: + (MonadIO m, EntryK a) => + a -- _obj + -> m (Int32,Int32) -- result +entryGetLayoutOffsets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + x <- allocMem :: IO (Ptr Int32) + y <- allocMem :: IO (Ptr Int32) + gtk_entry_get_layout_offsets _obj' x y + x' <- peek x + y' <- peek y + touchManagedPtr _obj + freeMem x + freeMem y + return (x', y') + +data EntryGetLayoutOffsetsMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, EntryK a) => MethodInfo EntryGetLayoutOffsetsMethodInfo a signature where + overloadedMethod _ = entryGetLayoutOffsets + +-- method Entry::get_max_length +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_max_length" gtk_entry_get_max_length :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO Int32 + + +entryGetMaxLength :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Int32 -- result +entryGetMaxLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_max_length _obj' + touchManagedPtr _obj + return result + +data EntryGetMaxLengthMethodInfo +instance (signature ~ (m Int32), MonadIO m, EntryK a) => MethodInfo EntryGetMaxLengthMethodInfo a signature where + overloadedMethod _ = entryGetMaxLength + +-- method Entry::get_max_width_chars +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_max_width_chars" gtk_entry_get_max_width_chars :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO Int32 + + +entryGetMaxWidthChars :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Int32 -- result +entryGetMaxWidthChars _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_max_width_chars _obj' + touchManagedPtr _obj + return result + +data EntryGetMaxWidthCharsMethodInfo +instance (signature ~ (m Int32), MonadIO m, EntryK a) => MethodInfo EntryGetMaxWidthCharsMethodInfo a signature where + overloadedMethod _ = entryGetMaxWidthChars + +-- method Entry::get_overwrite_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_overwrite_mode" gtk_entry_get_overwrite_mode :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO CInt + + +entryGetOverwriteMode :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Bool -- result +entryGetOverwriteMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_overwrite_mode _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data EntryGetOverwriteModeMethodInfo +instance (signature ~ (m Bool), MonadIO m, EntryK a) => MethodInfo EntryGetOverwriteModeMethodInfo a signature where + overloadedMethod _ = entryGetOverwriteMode + +-- method Entry::get_placeholder_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_placeholder_text" gtk_entry_get_placeholder_text :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO CString + + +entryGetPlaceholderText :: + (MonadIO m, EntryK a) => + a -- _obj + -> m T.Text -- result +entryGetPlaceholderText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_placeholder_text _obj' + checkUnexpectedReturnNULL "gtk_entry_get_placeholder_text" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data EntryGetPlaceholderTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetPlaceholderTextMethodInfo a signature where + overloadedMethod _ = entryGetPlaceholderText + +-- method Entry::get_progress_fraction +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_progress_fraction" gtk_entry_get_progress_fraction :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO CDouble + + +entryGetProgressFraction :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Double -- result +entryGetProgressFraction _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_progress_fraction _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data EntryGetProgressFractionMethodInfo +instance (signature ~ (m Double), MonadIO m, EntryK a) => MethodInfo EntryGetProgressFractionMethodInfo a signature where + overloadedMethod _ = entryGetProgressFraction + +-- method Entry::get_progress_pulse_step +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_progress_pulse_step" gtk_entry_get_progress_pulse_step :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO CDouble + + +entryGetProgressPulseStep :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Double -- result +entryGetProgressPulseStep _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_progress_pulse_step _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data EntryGetProgressPulseStepMethodInfo +instance (signature ~ (m Double), MonadIO m, EntryK a) => MethodInfo EntryGetProgressPulseStepMethodInfo a signature where + overloadedMethod _ = entryGetProgressPulseStep + +-- method Entry::get_tabs +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "TabArray" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_tabs" gtk_entry_get_tabs :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO (Ptr Pango.TabArray) + + +entryGetTabs :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Pango.TabArray -- result +entryGetTabs _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_tabs _obj' + checkUnexpectedReturnNULL "gtk_entry_get_tabs" result + result' <- (newBoxed Pango.TabArray) result + touchManagedPtr _obj + return result' + +data EntryGetTabsMethodInfo +instance (signature ~ (m Pango.TabArray), MonadIO m, EntryK a) => MethodInfo EntryGetTabsMethodInfo a signature where + overloadedMethod _ = entryGetTabs + +-- method Entry::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_text" gtk_entry_get_text :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO CString + + +entryGetText :: + (MonadIO m, EntryK a) => + a -- _obj + -> m T.Text -- result +entryGetText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_text _obj' + checkUnexpectedReturnNULL "gtk_entry_get_text" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data EntryGetTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetTextMethodInfo a signature where + overloadedMethod _ = entryGetText + +-- method Entry::get_text_area +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_text_area" gtk_entry_get_text_area :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Ptr Gdk.Rectangle -> -- text_area : TInterface "Gdk" "Rectangle" + IO () + + +entryGetTextArea :: + (MonadIO m, EntryK a) => + a -- _obj + -> m (Gdk.Rectangle) -- result +entryGetTextArea _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + textArea <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_entry_get_text_area _obj' textArea + textArea' <- (wrapBoxed Gdk.Rectangle) textArea + touchManagedPtr _obj + return textArea' + +data EntryGetTextAreaMethodInfo +instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, EntryK a) => MethodInfo EntryGetTextAreaMethodInfo a signature where + overloadedMethod _ = entryGetTextArea + +-- method Entry::get_text_length +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_text_length" gtk_entry_get_text_length :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO Word16 + + +entryGetTextLength :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Word16 -- result +entryGetTextLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_text_length _obj' + touchManagedPtr _obj + return result + +data EntryGetTextLengthMethodInfo +instance (signature ~ (m Word16), MonadIO m, EntryK a) => MethodInfo EntryGetTextLengthMethodInfo a signature where + overloadedMethod _ = entryGetTextLength + +-- method Entry::get_visibility +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_visibility" gtk_entry_get_visibility :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO CInt + + +entryGetVisibility :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Bool -- result +entryGetVisibility _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_visibility _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data EntryGetVisibilityMethodInfo +instance (signature ~ (m Bool), MonadIO m, EntryK a) => MethodInfo EntryGetVisibilityMethodInfo a signature where + overloadedMethod _ = entryGetVisibility + +-- method Entry::get_width_chars +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_get_width_chars" gtk_entry_get_width_chars :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO Int32 + + +entryGetWidthChars :: + (MonadIO m, EntryK a) => + a -- _obj + -> m Int32 -- result +entryGetWidthChars _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_get_width_chars _obj' + touchManagedPtr _obj + return result + +data EntryGetWidthCharsMethodInfo +instance (signature ~ (m Int32), MonadIO m, EntryK a) => MethodInfo EntryGetWidthCharsMethodInfo a signature where + overloadedMethod _ = entryGetWidthChars + +-- method Entry::grab_focus_without_selecting +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_grab_focus_without_selecting" gtk_entry_grab_focus_without_selecting :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO () + + +entryGrabFocusWithoutSelecting :: + (MonadIO m, EntryK a) => + a -- _obj + -> m () -- result +entryGrabFocusWithoutSelecting _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_entry_grab_focus_without_selecting _obj' + touchManagedPtr _obj + return () + +data EntryGrabFocusWithoutSelectingMethodInfo +instance (signature ~ (m ()), MonadIO m, EntryK a) => MethodInfo EntryGrabFocusWithoutSelectingMethodInfo a signature where + overloadedMethod _ = entryGrabFocusWithoutSelecting + +-- method Entry::im_context_filter_keypress +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_im_context_filter_keypress" gtk_entry_im_context_filter_keypress :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" + IO CInt + + +entryImContextFilterKeypress :: + (MonadIO m, EntryK a) => + a -- _obj + -> Gdk.EventKey -- event + -> m Bool -- result +entryImContextFilterKeypress _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrGetPtr event + result <- gtk_entry_im_context_filter_keypress _obj' event' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr event + return result' + +data EntryImContextFilterKeypressMethodInfo +instance (signature ~ (Gdk.EventKey -> m Bool), MonadIO m, EntryK a) => MethodInfo EntryImContextFilterKeypressMethodInfo a signature where + overloadedMethod _ = entryImContextFilterKeypress + +-- method Entry::layout_index_to_text_index +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_layout_index_to_text_index" gtk_entry_layout_index_to_text_index :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Int32 -> -- layout_index : TBasicType TInt32 + IO Int32 + + +entryLayoutIndexToTextIndex :: + (MonadIO m, EntryK a) => + a -- _obj + -> Int32 -- layoutIndex + -> m Int32 -- result +entryLayoutIndexToTextIndex _obj layoutIndex = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_layout_index_to_text_index _obj' layoutIndex + touchManagedPtr _obj + return result + +data EntryLayoutIndexToTextIndexMethodInfo +instance (signature ~ (Int32 -> m Int32), MonadIO m, EntryK a) => MethodInfo EntryLayoutIndexToTextIndexMethodInfo a signature where + overloadedMethod _ = entryLayoutIndexToTextIndex + +-- method Entry::progress_pulse +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_progress_pulse" gtk_entry_progress_pulse :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO () + + +entryProgressPulse :: + (MonadIO m, EntryK a) => + a -- _obj + -> m () -- result +entryProgressPulse _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_entry_progress_pulse _obj' + touchManagedPtr _obj + return () + +data EntryProgressPulseMethodInfo +instance (signature ~ (m ()), MonadIO m, EntryK a) => MethodInfo EntryProgressPulseMethodInfo a signature where + overloadedMethod _ = entryProgressPulse + +-- method Entry::reset_im_context +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_reset_im_context" gtk_entry_reset_im_context :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO () + + +entryResetImContext :: + (MonadIO m, EntryK a) => + a -- _obj + -> m () -- result +entryResetImContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_entry_reset_im_context _obj' + touchManagedPtr _obj + return () + +data EntryResetImContextMethodInfo +instance (signature ~ (m ()), MonadIO m, EntryK a) => MethodInfo EntryResetImContextMethodInfo a signature where + overloadedMethod _ = entryResetImContext + +-- method Entry::set_activates_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_activates_default" gtk_entry_set_activates_default :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CInt -> -- setting : TBasicType TBoolean + IO () + + +entrySetActivatesDefault :: + (MonadIO m, EntryK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +entrySetActivatesDefault _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_entry_set_activates_default _obj' setting' + touchManagedPtr _obj + return () + +data EntrySetActivatesDefaultMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetActivatesDefaultMethodInfo a signature where + overloadedMethod _ = entrySetActivatesDefault + +-- method Entry::set_alignment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_alignment" gtk_entry_set_alignment :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CFloat -> -- xalign : TBasicType TFloat + IO () + + +entrySetAlignment :: + (MonadIO m, EntryK a) => + a -- _obj + -> Float -- xalign + -> m () -- result +entrySetAlignment _obj xalign = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let xalign' = realToFrac xalign + gtk_entry_set_alignment _obj' xalign' + touchManagedPtr _obj + return () + +data EntrySetAlignmentMethodInfo +instance (signature ~ (Float -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetAlignmentMethodInfo a signature where + overloadedMethod _ = entrySetAlignment + +-- method Entry::set_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_attributes" gtk_entry_set_attributes :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Ptr Pango.AttrList -> -- attrs : TInterface "Pango" "AttrList" + IO () + + +entrySetAttributes :: + (MonadIO m, EntryK a) => + a -- _obj + -> Pango.AttrList -- attrs + -> m () -- result +entrySetAttributes _obj attrs = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let attrs' = unsafeManagedPtrGetPtr attrs + gtk_entry_set_attributes _obj' attrs' + touchManagedPtr _obj + touchManagedPtr attrs + return () + +data EntrySetAttributesMethodInfo +instance (signature ~ (Pango.AttrList -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetAttributesMethodInfo a signature where + overloadedMethod _ = entrySetAttributes + +-- method Entry::set_buffer +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_buffer" gtk_entry_set_buffer :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Ptr EntryBuffer -> -- buffer : TInterface "Gtk" "EntryBuffer" + IO () + + +entrySetBuffer :: + (MonadIO m, EntryK a, EntryBufferK b) => + a -- _obj + -> b -- buffer + -> m () -- result +entrySetBuffer _obj buffer = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let buffer' = unsafeManagedPtrCastPtr buffer + gtk_entry_set_buffer _obj' buffer' + touchManagedPtr _obj + touchManagedPtr buffer + return () + +data EntrySetBufferMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, EntryK a, EntryBufferK b) => MethodInfo EntrySetBufferMethodInfo a signature where + overloadedMethod _ = entrySetBuffer + +-- method Entry::set_completion +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "completion", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_completion" gtk_entry_set_completion :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Ptr EntryCompletion -> -- completion : TInterface "Gtk" "EntryCompletion" + IO () + + +entrySetCompletion :: + (MonadIO m, EntryK a, EntryCompletionK b) => + a -- _obj + -> Maybe (b) -- completion + -> m () -- result +entrySetCompletion _obj completion = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCompletion <- case completion of + Nothing -> return nullPtr + Just jCompletion -> do + let jCompletion' = unsafeManagedPtrCastPtr jCompletion + return jCompletion' + gtk_entry_set_completion _obj' maybeCompletion + touchManagedPtr _obj + whenJust completion touchManagedPtr + return () + +data EntrySetCompletionMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, EntryK a, EntryCompletionK b) => MethodInfo EntrySetCompletionMethodInfo a signature where + overloadedMethod _ = entrySetCompletion + +-- method Entry::set_cursor_hadjustment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_cursor_hadjustment" gtk_entry_set_cursor_hadjustment :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" + IO () + + +entrySetCursorHadjustment :: + (MonadIO m, EntryK a, AdjustmentK b) => + a -- _obj + -> Maybe (b) -- adjustment + -> m () -- result +entrySetCursorHadjustment _obj adjustment = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeAdjustment <- case adjustment of + Nothing -> return nullPtr + Just jAdjustment -> do + let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment + return jAdjustment' + gtk_entry_set_cursor_hadjustment _obj' maybeAdjustment + touchManagedPtr _obj + whenJust adjustment touchManagedPtr + return () + +data EntrySetCursorHadjustmentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, EntryK a, AdjustmentK b) => MethodInfo EntrySetCursorHadjustmentMethodInfo a signature where + overloadedMethod _ = entrySetCursorHadjustment + +-- method Entry::set_has_frame +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_has_frame" gtk_entry_set_has_frame :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CInt -> -- setting : TBasicType TBoolean + IO () + + +entrySetHasFrame :: + (MonadIO m, EntryK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +entrySetHasFrame _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_entry_set_has_frame _obj' setting' + touchManagedPtr _obj + return () + +data EntrySetHasFrameMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetHasFrameMethodInfo a signature where + overloadedMethod _ = entrySetHasFrame + +-- method Entry::set_icon_activatable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_icon_activatable" gtk_entry_set_icon_activatable :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + CInt -> -- activatable : TBasicType TBoolean + IO () + + +entrySetIconActivatable :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> Bool -- activatable + -> m () -- result +entrySetIconActivatable _obj iconPos activatable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + let activatable' = (fromIntegral . fromEnum) activatable + gtk_entry_set_icon_activatable _obj' iconPos' activatable' + touchManagedPtr _obj + return () + +data EntrySetIconActivatableMethodInfo +instance (signature ~ (EntryIconPosition -> Bool -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconActivatableMethodInfo a signature where + overloadedMethod _ = entrySetIconActivatable + +-- method Entry::set_icon_drag_source +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_icon_drag_source" gtk_entry_set_icon_drag_source :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" + CUInt -> -- actions : TInterface "Gdk" "DragAction" + IO () + + +entrySetIconDragSource :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> TargetList -- targetList + -> [Gdk.DragAction] -- actions + -> m () -- result +entrySetIconDragSource _obj iconPos targetList actions = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + let targetList' = unsafeManagedPtrGetPtr targetList + let actions' = gflagsToWord actions + gtk_entry_set_icon_drag_source _obj' iconPos' targetList' actions' + touchManagedPtr _obj + touchManagedPtr targetList + return () + +data EntrySetIconDragSourceMethodInfo +instance (signature ~ (EntryIconPosition -> TargetList -> [Gdk.DragAction] -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconDragSourceMethodInfo a signature where + overloadedMethod _ = entrySetIconDragSource + +-- method Entry::set_icon_from_gicon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_icon_from_gicon" gtk_entry_set_icon_from_gicon :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" + IO () + + +entrySetIconFromGicon :: + (MonadIO m, EntryK a, Gio.IconK b) => + a -- _obj + -> EntryIconPosition -- iconPos + -> Maybe (b) -- icon + -> m () -- result +entrySetIconFromGicon _obj iconPos icon = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + maybeIcon <- case icon of + Nothing -> return nullPtr + Just jIcon -> do + let jIcon' = unsafeManagedPtrCastPtr jIcon + return jIcon' + gtk_entry_set_icon_from_gicon _obj' iconPos' maybeIcon + touchManagedPtr _obj + whenJust icon touchManagedPtr + return () + +data EntrySetIconFromGiconMethodInfo +instance (signature ~ (EntryIconPosition -> Maybe (b) -> m ()), MonadIO m, EntryK a, Gio.IconK b) => MethodInfo EntrySetIconFromGiconMethodInfo a signature where + overloadedMethod _ = entrySetIconFromGicon + +-- method Entry::set_icon_from_icon_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_icon_from_icon_name" gtk_entry_set_icon_from_icon_name :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + CString -> -- icon_name : TBasicType TUTF8 + IO () + + +entrySetIconFromIconName :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> Maybe (T.Text) -- iconName + -> m () -- result +entrySetIconFromIconName _obj iconPos iconName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + maybeIconName <- case iconName of + Nothing -> return nullPtr + Just jIconName -> do + jIconName' <- textToCString jIconName + return jIconName' + gtk_entry_set_icon_from_icon_name _obj' iconPos' maybeIconName + touchManagedPtr _obj + freeMem maybeIconName + return () + +data EntrySetIconFromIconNameMethodInfo +instance (signature ~ (EntryIconPosition -> Maybe (T.Text) -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconFromIconNameMethodInfo a signature where + overloadedMethod _ = entrySetIconFromIconName + +-- method Entry::set_icon_from_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_icon_from_pixbuf" gtk_entry_set_icon_from_pixbuf :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" + IO () + + +entrySetIconFromPixbuf :: + (MonadIO m, EntryK a, GdkPixbuf.PixbufK b) => + a -- _obj + -> EntryIconPosition -- iconPos + -> Maybe (b) -- pixbuf + -> m () -- result +entrySetIconFromPixbuf _obj iconPos pixbuf = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + maybePixbuf <- case pixbuf of + Nothing -> return nullPtr + Just jPixbuf -> do + let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf + return jPixbuf' + gtk_entry_set_icon_from_pixbuf _obj' iconPos' maybePixbuf + touchManagedPtr _obj + whenJust pixbuf touchManagedPtr + return () + +data EntrySetIconFromPixbufMethodInfo +instance (signature ~ (EntryIconPosition -> Maybe (b) -> m ()), MonadIO m, EntryK a, GdkPixbuf.PixbufK b) => MethodInfo EntrySetIconFromPixbufMethodInfo a signature where + overloadedMethod _ = entrySetIconFromPixbuf + +-- method Entry::set_icon_from_stock +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_icon_from_stock" gtk_entry_set_icon_from_stock :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + CString -> -- stock_id : TBasicType TUTF8 + IO () + +{-# DEPRECATED entrySetIconFromStock ["(Since version 3.10)","Use gtk_entry_set_icon_from_icon_name() instead."]#-} +entrySetIconFromStock :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> Maybe (T.Text) -- stockId + -> m () -- result +entrySetIconFromStock _obj iconPos stockId = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + maybeStockId <- case stockId of + Nothing -> return nullPtr + Just jStockId -> do + jStockId' <- textToCString jStockId + return jStockId' + gtk_entry_set_icon_from_stock _obj' iconPos' maybeStockId + touchManagedPtr _obj + freeMem maybeStockId + return () + +data EntrySetIconFromStockMethodInfo +instance (signature ~ (EntryIconPosition -> Maybe (T.Text) -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconFromStockMethodInfo a signature where + overloadedMethod _ = entrySetIconFromStock + +-- method Entry::set_icon_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_icon_sensitive" gtk_entry_set_icon_sensitive :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + CInt -> -- sensitive : TBasicType TBoolean + IO () + + +entrySetIconSensitive :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> Bool -- sensitive + -> m () -- result +entrySetIconSensitive _obj iconPos sensitive = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + let sensitive' = (fromIntegral . fromEnum) sensitive + gtk_entry_set_icon_sensitive _obj' iconPos' sensitive' + touchManagedPtr _obj + return () + +data EntrySetIconSensitiveMethodInfo +instance (signature ~ (EntryIconPosition -> Bool -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconSensitiveMethodInfo a signature where + overloadedMethod _ = entrySetIconSensitive + +-- method Entry::set_icon_tooltip_markup +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_icon_tooltip_markup" gtk_entry_set_icon_tooltip_markup :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + CString -> -- tooltip : TBasicType TUTF8 + IO () + + +entrySetIconTooltipMarkup :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> Maybe (T.Text) -- tooltip + -> m () -- result +entrySetIconTooltipMarkup _obj iconPos tooltip = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + maybeTooltip <- case tooltip of + Nothing -> return nullPtr + Just jTooltip -> do + jTooltip' <- textToCString jTooltip + return jTooltip' + gtk_entry_set_icon_tooltip_markup _obj' iconPos' maybeTooltip + touchManagedPtr _obj + freeMem maybeTooltip + return () + +data EntrySetIconTooltipMarkupMethodInfo +instance (signature ~ (EntryIconPosition -> Maybe (T.Text) -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconTooltipMarkupMethodInfo a signature where + overloadedMethod _ = entrySetIconTooltipMarkup + +-- method Entry::set_icon_tooltip_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_icon_tooltip_text" gtk_entry_set_icon_tooltip_text :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- icon_pos : TInterface "Gtk" "EntryIconPosition" + CString -> -- tooltip : TBasicType TUTF8 + IO () + + +entrySetIconTooltipText :: + (MonadIO m, EntryK a) => + a -- _obj + -> EntryIconPosition -- iconPos + -> Maybe (T.Text) -- tooltip + -> m () -- result +entrySetIconTooltipText _obj iconPos tooltip = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iconPos' = (fromIntegral . fromEnum) iconPos + maybeTooltip <- case tooltip of + Nothing -> return nullPtr + Just jTooltip -> do + jTooltip' <- textToCString jTooltip + return jTooltip' + gtk_entry_set_icon_tooltip_text _obj' iconPos' maybeTooltip + touchManagedPtr _obj + freeMem maybeTooltip + return () + +data EntrySetIconTooltipTextMethodInfo +instance (signature ~ (EntryIconPosition -> Maybe (T.Text) -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetIconTooltipTextMethodInfo a signature where + overloadedMethod _ = entrySetIconTooltipText + +-- method Entry::set_inner_border +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_inner_border" gtk_entry_set_inner_border :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Ptr Border -> -- border : TInterface "Gtk" "Border" + IO () + +{-# DEPRECATED entrySetInnerBorder ["(Since version 3.4)","Use the standard border and padding CSS properties (through"," objects like #GtkStyleContext and #GtkCssProvider); the value set with"," this function is ignored by #GtkEntry."]#-} +entrySetInnerBorder :: + (MonadIO m, EntryK a) => + a -- _obj + -> Maybe (Border) -- border + -> m () -- result +entrySetInnerBorder _obj border = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeBorder <- case border of + Nothing -> return nullPtr + Just jBorder -> do + let jBorder' = unsafeManagedPtrGetPtr jBorder + return jBorder' + gtk_entry_set_inner_border _obj' maybeBorder + touchManagedPtr _obj + whenJust border touchManagedPtr + return () + +data EntrySetInnerBorderMethodInfo +instance (signature ~ (Maybe (Border) -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetInnerBorderMethodInfo a signature where + overloadedMethod _ = entrySetInnerBorder + +-- method Entry::set_input_hints +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_input_hints" gtk_entry_set_input_hints :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- hints : TInterface "Gtk" "InputHints" + IO () + + +entrySetInputHints :: + (MonadIO m, EntryK a) => + a -- _obj + -> [InputHints] -- hints + -> m () -- result +entrySetInputHints _obj hints = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let hints' = gflagsToWord hints + gtk_entry_set_input_hints _obj' hints' + touchManagedPtr _obj + return () + +data EntrySetInputHintsMethodInfo +instance (signature ~ ([InputHints] -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetInputHintsMethodInfo a signature where + overloadedMethod _ = entrySetInputHints + +-- method Entry::set_input_purpose +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_input_purpose" gtk_entry_set_input_purpose :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CUInt -> -- purpose : TInterface "Gtk" "InputPurpose" + IO () + + +entrySetInputPurpose :: + (MonadIO m, EntryK a) => + a -- _obj + -> InputPurpose -- purpose + -> m () -- result +entrySetInputPurpose _obj purpose = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let purpose' = (fromIntegral . fromEnum) purpose + gtk_entry_set_input_purpose _obj' purpose' + touchManagedPtr _obj + return () + +data EntrySetInputPurposeMethodInfo +instance (signature ~ (InputPurpose -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetInputPurposeMethodInfo a signature where + overloadedMethod _ = entrySetInputPurpose + +-- method Entry::set_invisible_char +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_invisible_char" gtk_entry_set_invisible_char :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CInt -> -- ch : TBasicType TUniChar + IO () + + +entrySetInvisibleChar :: + (MonadIO m, EntryK a) => + a -- _obj + -> Char -- ch + -> m () -- result +entrySetInvisibleChar _obj ch = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let ch' = (fromIntegral . ord) ch + gtk_entry_set_invisible_char _obj' ch' + touchManagedPtr _obj + return () + +data EntrySetInvisibleCharMethodInfo +instance (signature ~ (Char -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetInvisibleCharMethodInfo a signature where + overloadedMethod _ = entrySetInvisibleChar + +-- method Entry::set_max_length +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_max_length" gtk_entry_set_max_length :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Int32 -> -- max : TBasicType TInt32 + IO () + + +entrySetMaxLength :: + (MonadIO m, EntryK a) => + a -- _obj + -> Int32 -- max + -> m () -- result +entrySetMaxLength _obj max = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_entry_set_max_length _obj' max + touchManagedPtr _obj + return () + +data EntrySetMaxLengthMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetMaxLengthMethodInfo a signature where + overloadedMethod _ = entrySetMaxLength + +-- method Entry::set_max_width_chars +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_max_width_chars" gtk_entry_set_max_width_chars :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Int32 -> -- n_chars : TBasicType TInt32 + IO () + + +entrySetMaxWidthChars :: + (MonadIO m, EntryK a) => + a -- _obj + -> Int32 -- nChars + -> m () -- result +entrySetMaxWidthChars _obj nChars = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_entry_set_max_width_chars _obj' nChars + touchManagedPtr _obj + return () + +data EntrySetMaxWidthCharsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetMaxWidthCharsMethodInfo a signature where + overloadedMethod _ = entrySetMaxWidthChars + +-- method Entry::set_overwrite_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_overwrite_mode" gtk_entry_set_overwrite_mode :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CInt -> -- overwrite : TBasicType TBoolean + IO () + + +entrySetOverwriteMode :: + (MonadIO m, EntryK a) => + a -- _obj + -> Bool -- overwrite + -> m () -- result +entrySetOverwriteMode _obj overwrite = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let overwrite' = (fromIntegral . fromEnum) overwrite + gtk_entry_set_overwrite_mode _obj' overwrite' + touchManagedPtr _obj + return () + +data EntrySetOverwriteModeMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetOverwriteModeMethodInfo a signature where + overloadedMethod _ = entrySetOverwriteMode + +-- method Entry::set_placeholder_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_placeholder_text" gtk_entry_set_placeholder_text :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CString -> -- text : TBasicType TUTF8 + IO () + + +entrySetPlaceholderText :: + (MonadIO m, EntryK a) => + a -- _obj + -> Maybe (T.Text) -- text + -> m () -- result +entrySetPlaceholderText _obj text = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeText <- case text of + Nothing -> return nullPtr + Just jText -> do + jText' <- textToCString jText + return jText' + gtk_entry_set_placeholder_text _obj' maybeText + touchManagedPtr _obj + freeMem maybeText + return () + +data EntrySetPlaceholderTextMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetPlaceholderTextMethodInfo a signature where + overloadedMethod _ = entrySetPlaceholderText + +-- method Entry::set_progress_fraction +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_progress_fraction" gtk_entry_set_progress_fraction :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CDouble -> -- fraction : TBasicType TDouble + IO () + + +entrySetProgressFraction :: + (MonadIO m, EntryK a) => + a -- _obj + -> Double -- fraction + -> m () -- result +entrySetProgressFraction _obj fraction = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let fraction' = realToFrac fraction + gtk_entry_set_progress_fraction _obj' fraction' + touchManagedPtr _obj + return () + +data EntrySetProgressFractionMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetProgressFractionMethodInfo a signature where + overloadedMethod _ = entrySetProgressFraction + +-- method Entry::set_progress_pulse_step +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_progress_pulse_step" gtk_entry_set_progress_pulse_step :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CDouble -> -- fraction : TBasicType TDouble + IO () + + +entrySetProgressPulseStep :: + (MonadIO m, EntryK a) => + a -- _obj + -> Double -- fraction + -> m () -- result +entrySetProgressPulseStep _obj fraction = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let fraction' = realToFrac fraction + gtk_entry_set_progress_pulse_step _obj' fraction' + touchManagedPtr _obj + return () + +data EntrySetProgressPulseStepMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetProgressPulseStepMethodInfo a signature where + overloadedMethod _ = entrySetProgressPulseStep + +-- method Entry::set_tabs +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_tabs" gtk_entry_set_tabs :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Ptr Pango.TabArray -> -- tabs : TInterface "Pango" "TabArray" + IO () + + +entrySetTabs :: + (MonadIO m, EntryK a) => + a -- _obj + -> Pango.TabArray -- tabs + -> m () -- result +entrySetTabs _obj tabs = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let tabs' = unsafeManagedPtrGetPtr tabs + gtk_entry_set_tabs _obj' tabs' + touchManagedPtr _obj + touchManagedPtr tabs + return () + +data EntrySetTabsMethodInfo +instance (signature ~ (Pango.TabArray -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetTabsMethodInfo a signature where + overloadedMethod _ = entrySetTabs + +-- method Entry::set_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_text" gtk_entry_set_text :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CString -> -- text : TBasicType TUTF8 + IO () + + +entrySetText :: + (MonadIO m, EntryK a) => + a -- _obj + -> T.Text -- text + -> m () -- result +entrySetText _obj text = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + text' <- textToCString text + gtk_entry_set_text _obj' text' + touchManagedPtr _obj + freeMem text' + return () + +data EntrySetTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetTextMethodInfo a signature where + overloadedMethod _ = entrySetText + +-- method Entry::set_visibility +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_visibility" gtk_entry_set_visibility :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + CInt -> -- visible : TBasicType TBoolean + IO () + + +entrySetVisibility :: + (MonadIO m, EntryK a) => + a -- _obj + -> Bool -- visible + -> m () -- result +entrySetVisibility _obj visible = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let visible' = (fromIntegral . fromEnum) visible + gtk_entry_set_visibility _obj' visible' + touchManagedPtr _obj + return () + +data EntrySetVisibilityMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetVisibilityMethodInfo a signature where + overloadedMethod _ = entrySetVisibility + +-- method Entry::set_width_chars +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_set_width_chars" gtk_entry_set_width_chars :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Int32 -> -- n_chars : TBasicType TInt32 + IO () + + +entrySetWidthChars :: + (MonadIO m, EntryK a) => + a -- _obj + -> Int32 -- nChars + -> m () -- result +entrySetWidthChars _obj nChars = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_entry_set_width_chars _obj' nChars + touchManagedPtr _obj + return () + +data EntrySetWidthCharsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, EntryK a) => MethodInfo EntrySetWidthCharsMethodInfo a signature where + overloadedMethod _ = entrySetWidthChars + +-- method Entry::text_index_to_layout_index +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_text_index_to_layout_index" gtk_entry_text_index_to_layout_index :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + Int32 -> -- text_index : TBasicType TInt32 + IO Int32 + + +entryTextIndexToLayoutIndex :: + (MonadIO m, EntryK a) => + a -- _obj + -> Int32 -- textIndex + -> m Int32 -- result +entryTextIndexToLayoutIndex _obj textIndex = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_entry_text_index_to_layout_index _obj' textIndex + touchManagedPtr _obj + return result + +data EntryTextIndexToLayoutIndexMethodInfo +instance (signature ~ (Int32 -> m Int32), MonadIO m, EntryK a) => MethodInfo EntryTextIndexToLayoutIndexMethodInfo a signature where + overloadedMethod _ = entryTextIndexToLayoutIndex + +-- method Entry::unset_invisible_char +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_entry_unset_invisible_char" gtk_entry_unset_invisible_char :: + Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" + IO () + + +entryUnsetInvisibleChar :: + (MonadIO m, EntryK a) => + a -- _obj + -> m () -- result +entryUnsetInvisibleChar _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_entry_unset_invisible_char _obj' + touchManagedPtr _obj + return () + +data EntryUnsetInvisibleCharMethodInfo +instance (signature ~ (m ()), MonadIO m, EntryK a) => MethodInfo EntryUnsetInvisibleCharMethodInfo a signature where + overloadedMethod _ = entryUnsetInvisibleChar diff --git a/GI/Gtk/Objects/Entry.hs-boot b/GI/Gtk/Objects/Entry.hs-boot --- a/GI/Gtk/Objects/Entry.hs-boot +++ b/GI/Gtk/Objects/Entry.hs-boot @@ -73,3 +73,77 @@ data EntryPopulatePopupSignalInfo data EntryPreeditChangedSignalInfo data EntryToggleOverwriteSignalInfo +data EntryGetActivatesDefaultMethodInfo +data EntryGetAlignmentMethodInfo +data EntryGetAttributesMethodInfo +data EntryGetBufferMethodInfo +data EntryGetCompletionMethodInfo +data EntryGetCurrentIconDragSourceMethodInfo +data EntryGetCursorHadjustmentMethodInfo +data EntryGetHasFrameMethodInfo +data EntryGetIconActivatableMethodInfo +data EntryGetIconAreaMethodInfo +data EntryGetIconAtPosMethodInfo +data EntryGetIconGiconMethodInfo +data EntryGetIconNameMethodInfo +data EntryGetIconPixbufMethodInfo +data EntryGetIconSensitiveMethodInfo +data EntryGetIconStockMethodInfo +data EntryGetIconStorageTypeMethodInfo +data EntryGetIconTooltipMarkupMethodInfo +data EntryGetIconTooltipTextMethodInfo +data EntryGetInnerBorderMethodInfo +data EntryGetInputHintsMethodInfo +data EntryGetInputPurposeMethodInfo +data EntryGetInvisibleCharMethodInfo +data EntryGetLayoutMethodInfo +data EntryGetLayoutOffsetsMethodInfo +data EntryGetMaxLengthMethodInfo +data EntryGetMaxWidthCharsMethodInfo +data EntryGetOverwriteModeMethodInfo +data EntryGetPlaceholderTextMethodInfo +data EntryGetProgressFractionMethodInfo +data EntryGetProgressPulseStepMethodInfo +data EntryGetTabsMethodInfo +data EntryGetTextMethodInfo +data EntryGetTextAreaMethodInfo +data EntryGetTextLengthMethodInfo +data EntryGetVisibilityMethodInfo +data EntryGetWidthCharsMethodInfo +data EntryGrabFocusWithoutSelectingMethodInfo +data EntryImContextFilterKeypressMethodInfo +data EntryLayoutIndexToTextIndexMethodInfo +data EntryProgressPulseMethodInfo +data EntryResetImContextMethodInfo +data EntrySetActivatesDefaultMethodInfo +data EntrySetAlignmentMethodInfo +data EntrySetAttributesMethodInfo +data EntrySetBufferMethodInfo +data EntrySetCompletionMethodInfo +data EntrySetCursorHadjustmentMethodInfo +data EntrySetHasFrameMethodInfo +data EntrySetIconActivatableMethodInfo +data EntrySetIconDragSourceMethodInfo +data EntrySetIconFromGiconMethodInfo +data EntrySetIconFromIconNameMethodInfo +data EntrySetIconFromPixbufMethodInfo +data EntrySetIconFromStockMethodInfo +data EntrySetIconSensitiveMethodInfo +data EntrySetIconTooltipMarkupMethodInfo +data EntrySetIconTooltipTextMethodInfo +data EntrySetInnerBorderMethodInfo +data EntrySetInputHintsMethodInfo +data EntrySetInputPurposeMethodInfo +data EntrySetInvisibleCharMethodInfo +data EntrySetMaxLengthMethodInfo +data EntrySetMaxWidthCharsMethodInfo +data EntrySetOverwriteModeMethodInfo +data EntrySetPlaceholderTextMethodInfo +data EntrySetProgressFractionMethodInfo +data EntrySetProgressPulseStepMethodInfo +data EntrySetTabsMethodInfo +data EntrySetTextMethodInfo +data EntrySetVisibilityMethodInfo +data EntrySetWidthCharsMethodInfo +data EntryTextIndexToLayoutIndexMethodInfo +data EntryUnsetInvisibleCharMethodInfo diff --git a/GI/Gtk/Objects/EntryAccessible.hs b/GI/Gtk/Objects/EntryAccessible.hs --- a/GI/Gtk/Objects/EntryAccessible.hs +++ b/GI/Gtk/Objects/EntryAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,106 @@ noEntryAccessible :: Maybe EntryAccessible noEntryAccessible = Nothing +type family ResolveEntryAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveEntryAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveEntryAccessibleMethod "addSelection" o = Atk.TextAddSelectionMethodInfo + ResolveEntryAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveEntryAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveEntryAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveEntryAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveEntryAccessibleMethod "copyText" o = Atk.EditableTextCopyTextMethodInfo + ResolveEntryAccessibleMethod "cutText" o = Atk.EditableTextCutTextMethodInfo + ResolveEntryAccessibleMethod "deleteText" o = Atk.EditableTextDeleteTextMethodInfo + ResolveEntryAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveEntryAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveEntryAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveEntryAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveEntryAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveEntryAccessibleMethod "insertText" o = Atk.EditableTextInsertTextMethodInfo + ResolveEntryAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveEntryAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveEntryAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveEntryAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveEntryAccessibleMethod "pasteText" o = Atk.EditableTextPasteTextMethodInfo + ResolveEntryAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveEntryAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveEntryAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveEntryAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveEntryAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveEntryAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveEntryAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveEntryAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveEntryAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveEntryAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveEntryAccessibleMethod "removeSelection" o = Atk.TextRemoveSelectionMethodInfo + ResolveEntryAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveEntryAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveEntryAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveEntryAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveEntryAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveEntryAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveEntryAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveEntryAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveEntryAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveEntryAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveEntryAccessibleMethod "getBoundedRanges" o = Atk.TextGetBoundedRangesMethodInfo + ResolveEntryAccessibleMethod "getCaretOffset" o = Atk.TextGetCaretOffsetMethodInfo + ResolveEntryAccessibleMethod "getCharacterAtOffset" o = Atk.TextGetCharacterAtOffsetMethodInfo + ResolveEntryAccessibleMethod "getCharacterCount" o = Atk.TextGetCharacterCountMethodInfo + ResolveEntryAccessibleMethod "getCharacterExtents" o = Atk.TextGetCharacterExtentsMethodInfo + ResolveEntryAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveEntryAccessibleMethod "getDefaultAttributes" o = Atk.TextGetDefaultAttributesMethodInfo + ResolveEntryAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveEntryAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveEntryAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveEntryAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveEntryAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveEntryAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveEntryAccessibleMethod "getNSelections" o = Atk.TextGetNSelectionsMethodInfo + ResolveEntryAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveEntryAccessibleMethod "getOffsetAtPoint" o = Atk.TextGetOffsetAtPointMethodInfo + ResolveEntryAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveEntryAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveEntryAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveEntryAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveEntryAccessibleMethod "getRangeExtents" o = Atk.TextGetRangeExtentsMethodInfo + ResolveEntryAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveEntryAccessibleMethod "getRunAttributes" o = Atk.TextGetRunAttributesMethodInfo + ResolveEntryAccessibleMethod "getSelection" o = Atk.TextGetSelectionMethodInfo + ResolveEntryAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveEntryAccessibleMethod "getStringAtOffset" o = Atk.TextGetStringAtOffsetMethodInfo + ResolveEntryAccessibleMethod "getText" o = Atk.TextGetTextMethodInfo + ResolveEntryAccessibleMethod "getTextAfterOffset" o = Atk.TextGetTextAfterOffsetMethodInfo + ResolveEntryAccessibleMethod "getTextAtOffset" o = Atk.TextGetTextAtOffsetMethodInfo + ResolveEntryAccessibleMethod "getTextBeforeOffset" o = Atk.TextGetTextBeforeOffsetMethodInfo + ResolveEntryAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveEntryAccessibleMethod "setCaretOffset" o = Atk.TextSetCaretOffsetMethodInfo + ResolveEntryAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveEntryAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveEntryAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveEntryAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveEntryAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveEntryAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveEntryAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveEntryAccessibleMethod "setRunAttributes" o = Atk.EditableTextSetRunAttributesMethodInfo + ResolveEntryAccessibleMethod "setSelection" o = Atk.TextSetSelectionMethodInfo + ResolveEntryAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveEntryAccessibleMethod "setTextContents" o = Atk.EditableTextSetTextContentsMethodInfo + ResolveEntryAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveEntryAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveEntryAccessibleMethod t EntryAccessible, MethodInfo info EntryAccessible p) => IsLabelProxy t (EntryAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveEntryAccessibleMethod t EntryAccessible, MethodInfo info EntryAccessible p) => IsLabel t (EntryAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList EntryAccessible = EntryAccessibleAttributeList -type EntryAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type EntryAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList EntryAccessible = EntryAccessibleSignalList -type EntryAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type EntryAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("textAttributesChanged", Atk.TextTextAttributesChangedSignalInfo), '("textCaretMoved", Atk.TextTextCaretMovedSignalInfo), '("textChanged", Atk.TextTextChangedSignalInfo), '("textInsert", Atk.TextTextInsertSignalInfo), '("textRemove", Atk.TextTextRemoveSignalInfo), '("textSelectionChanged", Atk.TextTextSelectionChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/EntryBuffer.hs b/GI/Gtk/Objects/EntryBuffer.hs --- a/GI/Gtk/Objects/EntryBuffer.hs +++ b/GI/Gtk/Objects/EntryBuffer.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * Methods -- ** entryBufferDeleteText + EntryBufferDeleteTextMethodInfo , entryBufferDeleteText , -- ** entryBufferEmitDeletedText + EntryBufferEmitDeletedTextMethodInfo , entryBufferEmitDeletedText , -- ** entryBufferEmitInsertedText + EntryBufferEmitInsertedTextMethodInfo , entryBufferEmitInsertedText , -- ** entryBufferGetBytes + EntryBufferGetBytesMethodInfo , entryBufferGetBytes , -- ** entryBufferGetLength + EntryBufferGetLengthMethodInfo , entryBufferGetLength , -- ** entryBufferGetMaxLength + EntryBufferGetMaxLengthMethodInfo , entryBufferGetMaxLength , -- ** entryBufferGetText + EntryBufferGetTextMethodInfo , entryBufferGetText , -- ** entryBufferInsertText + EntryBufferInsertTextMethodInfo , entryBufferInsertText , @@ -53,10 +62,12 @@ -- ** entryBufferSetMaxLength + EntryBufferSetMaxLengthMethodInfo , entryBufferSetMaxLength , -- ** entryBufferSetText + EntryBufferSetTextMethodInfo , entryBufferSetText , @@ -145,6 +156,49 @@ noEntryBuffer :: Maybe EntryBuffer noEntryBuffer = Nothing +type family ResolveEntryBufferMethod (t :: Symbol) (o :: *) :: * where + ResolveEntryBufferMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveEntryBufferMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveEntryBufferMethod "deleteText" o = EntryBufferDeleteTextMethodInfo + ResolveEntryBufferMethod "emitDeletedText" o = EntryBufferEmitDeletedTextMethodInfo + ResolveEntryBufferMethod "emitInsertedText" o = EntryBufferEmitInsertedTextMethodInfo + ResolveEntryBufferMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveEntryBufferMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveEntryBufferMethod "insertText" o = EntryBufferInsertTextMethodInfo + ResolveEntryBufferMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveEntryBufferMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveEntryBufferMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveEntryBufferMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveEntryBufferMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveEntryBufferMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveEntryBufferMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveEntryBufferMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveEntryBufferMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveEntryBufferMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveEntryBufferMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveEntryBufferMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveEntryBufferMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveEntryBufferMethod "getBytes" o = EntryBufferGetBytesMethodInfo + ResolveEntryBufferMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveEntryBufferMethod "getLength" o = EntryBufferGetLengthMethodInfo + ResolveEntryBufferMethod "getMaxLength" o = EntryBufferGetMaxLengthMethodInfo + ResolveEntryBufferMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveEntryBufferMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveEntryBufferMethod "getText" o = EntryBufferGetTextMethodInfo + ResolveEntryBufferMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveEntryBufferMethod "setMaxLength" o = EntryBufferSetMaxLengthMethodInfo + ResolveEntryBufferMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveEntryBufferMethod "setText" o = EntryBufferSetTextMethodInfo + ResolveEntryBufferMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveEntryBufferMethod t EntryBuffer, MethodInfo info EntryBuffer p) => IsLabelProxy t (EntryBuffer -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveEntryBufferMethod t EntryBuffer, MethodInfo info EntryBuffer p) => IsLabel t (EntryBuffer -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal EntryBuffer::deleted-text type EntryBufferDeletedTextCallback = Word32 -> @@ -175,8 +229,8 @@ Word32 -> Ptr () -> IO () -entryBufferDeletedTextCallbackWrapper _cb _ position n_chars _ = do - _cb position n_chars +entryBufferDeletedTextCallbackWrapper _cb _ position nChars _ = do + _cb position nChars onEntryBufferDeletedText :: (GObject a, MonadIO m) => a -> EntryBufferDeletedTextCallback -> m SignalHandlerId onEntryBufferDeletedText obj cb = liftIO $ connectEntryBufferDeletedText obj cb SignalConnectBefore @@ -222,9 +276,9 @@ Word32 -> Ptr () -> IO () -entryBufferInsertedTextCallbackWrapper _cb _ position chars n_chars _ = do +entryBufferInsertedTextCallbackWrapper _cb _ position chars nChars _ = do chars' <- cstringToText chars - _cb position chars' n_chars + _cb position chars' nChars onEntryBufferInsertedText :: (GObject a, MonadIO m) => a -> EntryBufferInsertedTextCallback -> m SignalHandlerId onEntryBufferInsertedText obj cb = liftIO $ connectEntryBufferInsertedText obj cb SignalConnectBefore @@ -250,7 +304,7 @@ type AttrSetTypeConstraint EntryBufferLengthPropertyInfo = (~) () type AttrBaseTypeConstraint EntryBufferLengthPropertyInfo = EntryBufferK type AttrGetType EntryBufferLengthPropertyInfo = Word32 - type AttrLabel EntryBufferLengthPropertyInfo = "EntryBuffer::length" + type AttrLabel EntryBufferLengthPropertyInfo = "length" attrGet _ = getEntryBufferLength attrSet _ = undefined attrConstruct _ = undefined @@ -274,7 +328,7 @@ type AttrSetTypeConstraint EntryBufferMaxLengthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint EntryBufferMaxLengthPropertyInfo = EntryBufferK type AttrGetType EntryBufferMaxLengthPropertyInfo = Int32 - type AttrLabel EntryBufferMaxLengthPropertyInfo = "EntryBuffer::max-length" + type AttrLabel EntryBufferMaxLengthPropertyInfo = "max-length" attrGet _ = getEntryBufferMaxLength attrSet _ = setEntryBufferMaxLength attrConstruct _ = constructEntryBufferMaxLength @@ -298,13 +352,13 @@ type AttrSetTypeConstraint EntryBufferTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryBufferTextPropertyInfo = EntryBufferK type AttrGetType EntryBufferTextPropertyInfo = T.Text - type AttrLabel EntryBufferTextPropertyInfo = "EntryBuffer::text" + type AttrLabel EntryBufferTextPropertyInfo = "text" attrGet _ = getEntryBufferText attrSet _ = setEntryBufferText attrConstruct _ = constructEntryBufferText type instance AttributeList EntryBuffer = EntryBufferAttributeList -type EntryBufferAttributeList = ('[ '("length", EntryBufferLengthPropertyInfo), '("max-length", EntryBufferMaxLengthPropertyInfo), '("text", EntryBufferTextPropertyInfo)] :: [(Symbol, *)]) +type EntryBufferAttributeList = ('[ '("length", EntryBufferLengthPropertyInfo), '("maxLength", EntryBufferMaxLengthPropertyInfo), '("text", EntryBufferTextPropertyInfo)] :: [(Symbol, *)]) data EntryBufferDeletedTextSignalInfo instance SignalInfo EntryBufferDeletedTextSignalInfo where @@ -317,13 +371,12 @@ connectSignal _ = connectEntryBufferInsertedText type instance SignalList EntryBuffer = EntryBufferSignalList -type EntryBufferSignalList = ('[ '("deleted-text", EntryBufferDeletedTextSignalInfo), '("inserted-text", EntryBufferInsertedTextSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type EntryBufferSignalList = ('[ '("deletedText", EntryBufferDeletedTextSignalInfo), '("insertedText", EntryBufferInsertedTextSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method EntryBuffer::new -- method type : Constructor --- Args : [Arg {argName = "initial_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_initial_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "initial_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_initial_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "initial_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_initial_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "EntryBuffer" -- throws : False -- Skip return : False @@ -336,26 +389,25 @@ entryBufferNew :: (MonadIO m) => - Maybe (T.Text) -> -- initial_chars - Int32 -> -- n_initial_chars - m EntryBuffer -entryBufferNew initial_chars n_initial_chars = liftIO $ do - maybeInitial_chars <- case initial_chars of + Maybe (T.Text) -- initialChars + -> Int32 -- nInitialChars + -> m EntryBuffer -- result +entryBufferNew initialChars nInitialChars = liftIO $ do + maybeInitialChars <- case initialChars of Nothing -> return nullPtr - Just jInitial_chars -> do - jInitial_chars' <- textToCString jInitial_chars - return jInitial_chars' - result <- gtk_entry_buffer_new maybeInitial_chars n_initial_chars + Just jInitialChars -> do + jInitialChars' <- textToCString jInitialChars + return jInitialChars' + result <- gtk_entry_buffer_new maybeInitialChars nInitialChars checkUnexpectedReturnNULL "gtk_entry_buffer_new" result result' <- (wrapObject EntryBuffer) result - freeMem maybeInitial_chars + freeMem maybeInitialChars return result' -- method EntryBuffer::delete_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -369,21 +421,24 @@ entryBufferDeleteText :: (MonadIO m, EntryBufferK a) => - a -> -- _obj - Word32 -> -- position - Int32 -> -- n_chars - m Word32 -entryBufferDeleteText _obj position n_chars = liftIO $ do + a -- _obj + -> Word32 -- position + -> Int32 -- nChars + -> m Word32 -- result +entryBufferDeleteText _obj position nChars = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_buffer_delete_text _obj' position n_chars + result <- gtk_entry_buffer_delete_text _obj' position nChars touchManagedPtr _obj return result +data EntryBufferDeleteTextMethodInfo +instance (signature ~ (Word32 -> Int32 -> m Word32), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferDeleteTextMethodInfo a signature where + overloadedMethod _ = entryBufferDeleteText + -- method EntryBuffer::emit_deleted_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -397,21 +452,24 @@ entryBufferEmitDeletedText :: (MonadIO m, EntryBufferK a) => - a -> -- _obj - Word32 -> -- position - Word32 -> -- n_chars - m () -entryBufferEmitDeletedText _obj position n_chars = liftIO $ do + a -- _obj + -> Word32 -- position + -> Word32 -- nChars + -> m () -- result +entryBufferEmitDeletedText _obj position nChars = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_buffer_emit_deleted_text _obj' position n_chars + gtk_entry_buffer_emit_deleted_text _obj' position nChars touchManagedPtr _obj return () +data EntryBufferEmitDeletedTextMethodInfo +instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferEmitDeletedTextMethodInfo a signature where + overloadedMethod _ = entryBufferEmitDeletedText + -- method EntryBuffer::emit_inserted_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -426,24 +484,27 @@ entryBufferEmitInsertedText :: (MonadIO m, EntryBufferK a) => - a -> -- _obj - Word32 -> -- position - T.Text -> -- chars - Word32 -> -- n_chars - m () -entryBufferEmitInsertedText _obj position chars n_chars = liftIO $ do + a -- _obj + -> Word32 -- position + -> T.Text -- chars + -> Word32 -- nChars + -> m () -- result +entryBufferEmitInsertedText _obj position chars nChars = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj chars' <- textToCString chars - gtk_entry_buffer_emit_inserted_text _obj' position chars' n_chars + gtk_entry_buffer_emit_inserted_text _obj' position chars' nChars touchManagedPtr _obj freeMem chars' return () +data EntryBufferEmitInsertedTextMethodInfo +instance (signature ~ (Word32 -> T.Text -> Word32 -> m ()), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferEmitInsertedTextMethodInfo a signature where + overloadedMethod _ = entryBufferEmitInsertedText + -- method EntryBuffer::get_bytes -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -455,19 +516,22 @@ entryBufferGetBytes :: (MonadIO m, EntryBufferK a) => - a -> -- _obj - m Word64 + a -- _obj + -> m Word64 -- result entryBufferGetBytes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_buffer_get_bytes _obj' touchManagedPtr _obj return result +data EntryBufferGetBytesMethodInfo +instance (signature ~ (m Word64), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferGetBytesMethodInfo a signature where + overloadedMethod _ = entryBufferGetBytes + -- method EntryBuffer::get_length -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -479,19 +543,22 @@ entryBufferGetLength :: (MonadIO m, EntryBufferK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result entryBufferGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_buffer_get_length _obj' touchManagedPtr _obj return result +data EntryBufferGetLengthMethodInfo +instance (signature ~ (m Word32), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferGetLengthMethodInfo a signature where + overloadedMethod _ = entryBufferGetLength + -- method EntryBuffer::get_max_length -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -503,19 +570,22 @@ entryBufferGetMaxLength :: (MonadIO m, EntryBufferK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result entryBufferGetMaxLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_buffer_get_max_length _obj' touchManagedPtr _obj return result +data EntryBufferGetMaxLengthMethodInfo +instance (signature ~ (m Int32), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferGetMaxLengthMethodInfo a signature where + overloadedMethod _ = entryBufferGetMaxLength + -- method EntryBuffer::get_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -527,8 +597,8 @@ entryBufferGetText :: (MonadIO m, EntryBufferK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result entryBufferGetText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_buffer_get_text _obj' @@ -537,11 +607,14 @@ touchManagedPtr _obj return result' +data EntryBufferGetTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferGetTextMethodInfo a signature where + overloadedMethod _ = entryBufferGetText + -- method EntryBuffer::insert_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -556,24 +629,27 @@ entryBufferInsertText :: (MonadIO m, EntryBufferK a) => - a -> -- _obj - Word32 -> -- position - T.Text -> -- chars - Int32 -> -- n_chars - m Word32 -entryBufferInsertText _obj position chars n_chars = liftIO $ do + a -- _obj + -> Word32 -- position + -> T.Text -- chars + -> Int32 -- nChars + -> m Word32 -- result +entryBufferInsertText _obj position chars nChars = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj chars' <- textToCString chars - result <- gtk_entry_buffer_insert_text _obj' position chars' n_chars + result <- gtk_entry_buffer_insert_text _obj' position chars' nChars touchManagedPtr _obj freeMem chars' return result +data EntryBufferInsertTextMethodInfo +instance (signature ~ (Word32 -> T.Text -> Int32 -> m Word32), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferInsertTextMethodInfo a signature where + overloadedMethod _ = entryBufferInsertText + -- method EntryBuffer::set_max_length -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -586,20 +662,23 @@ entryBufferSetMaxLength :: (MonadIO m, EntryBufferK a) => - a -> -- _obj - Int32 -> -- max_length - m () -entryBufferSetMaxLength _obj max_length = liftIO $ do + a -- _obj + -> Int32 -- maxLength + -> m () -- result +entryBufferSetMaxLength _obj maxLength = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_buffer_set_max_length _obj' max_length + gtk_entry_buffer_set_max_length _obj' maxLength touchManagedPtr _obj return () +data EntryBufferSetMaxLengthMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferSetMaxLengthMethodInfo a signature where + overloadedMethod _ = entryBufferSetMaxLength + -- method EntryBuffer::set_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -613,16 +692,20 @@ entryBufferSetText :: (MonadIO m, EntryBufferK a) => - a -> -- _obj - T.Text -> -- chars - Int32 -> -- n_chars - m () -entryBufferSetText _obj chars n_chars = liftIO $ do + a -- _obj + -> T.Text -- chars + -> Int32 -- nChars + -> m () -- result +entryBufferSetText _obj chars nChars = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj chars' <- textToCString chars - gtk_entry_buffer_set_text _obj' chars' n_chars + gtk_entry_buffer_set_text _obj' chars' nChars touchManagedPtr _obj freeMem chars' return () + +data EntryBufferSetTextMethodInfo +instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, EntryBufferK a) => MethodInfo EntryBufferSetTextMethodInfo a signature where + overloadedMethod _ = entryBufferSetText diff --git a/GI/Gtk/Objects/EntryBuffer.hs-boot b/GI/Gtk/Objects/EntryBuffer.hs-boot --- a/GI/Gtk/Objects/EntryBuffer.hs-boot +++ b/GI/Gtk/Objects/EntryBuffer.hs-boot @@ -16,3 +16,13 @@ data EntryBufferTextPropertyInfo data EntryBufferDeletedTextSignalInfo data EntryBufferInsertedTextSignalInfo +data EntryBufferDeleteTextMethodInfo +data EntryBufferEmitDeletedTextMethodInfo +data EntryBufferEmitInsertedTextMethodInfo +data EntryBufferGetBytesMethodInfo +data EntryBufferGetLengthMethodInfo +data EntryBufferGetMaxLengthMethodInfo +data EntryBufferGetTextMethodInfo +data EntryBufferInsertTextMethodInfo +data EntryBufferSetMaxLengthMethodInfo +data EntryBufferSetTextMethodInfo diff --git a/GI/Gtk/Objects/EntryCompletion.hs b/GI/Gtk/Objects/EntryCompletion.hs --- a/GI/Gtk/Objects/EntryCompletion.hs +++ b/GI/Gtk/Objects/EntryCompletion.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,66 +18,82 @@ -- * Methods -- ** entryCompletionComplete + EntryCompletionCompleteMethodInfo , entryCompletionComplete , -- ** entryCompletionComputePrefix + EntryCompletionComputePrefixMethodInfo , entryCompletionComputePrefix , -- ** entryCompletionDeleteAction + EntryCompletionDeleteActionMethodInfo , entryCompletionDeleteAction , -- ** entryCompletionGetCompletionPrefix + EntryCompletionGetCompletionPrefixMethodInfo, entryCompletionGetCompletionPrefix , -- ** entryCompletionGetEntry + EntryCompletionGetEntryMethodInfo , entryCompletionGetEntry , -- ** entryCompletionGetInlineCompletion + EntryCompletionGetInlineCompletionMethodInfo, entryCompletionGetInlineCompletion , -- ** entryCompletionGetInlineSelection + EntryCompletionGetInlineSelectionMethodInfo, entryCompletionGetInlineSelection , -- ** entryCompletionGetMinimumKeyLength + EntryCompletionGetMinimumKeyLengthMethodInfo, entryCompletionGetMinimumKeyLength , -- ** entryCompletionGetModel + EntryCompletionGetModelMethodInfo , entryCompletionGetModel , -- ** entryCompletionGetPopupCompletion + EntryCompletionGetPopupCompletionMethodInfo, entryCompletionGetPopupCompletion , -- ** entryCompletionGetPopupSetWidth + EntryCompletionGetPopupSetWidthMethodInfo, entryCompletionGetPopupSetWidth , -- ** entryCompletionGetPopupSingleMatch + EntryCompletionGetPopupSingleMatchMethodInfo, entryCompletionGetPopupSingleMatch , -- ** entryCompletionGetTextColumn + EntryCompletionGetTextColumnMethodInfo , entryCompletionGetTextColumn , -- ** entryCompletionInsertActionMarkup + EntryCompletionInsertActionMarkupMethodInfo, entryCompletionInsertActionMarkup , -- ** entryCompletionInsertActionText + EntryCompletionInsertActionTextMethodInfo, entryCompletionInsertActionText , -- ** entryCompletionInsertPrefix + EntryCompletionInsertPrefixMethodInfo , entryCompletionInsertPrefix , @@ -89,38 +106,47 @@ -- ** entryCompletionSetInlineCompletion + EntryCompletionSetInlineCompletionMethodInfo, entryCompletionSetInlineCompletion , -- ** entryCompletionSetInlineSelection + EntryCompletionSetInlineSelectionMethodInfo, entryCompletionSetInlineSelection , -- ** entryCompletionSetMatchFunc + EntryCompletionSetMatchFuncMethodInfo , entryCompletionSetMatchFunc , -- ** entryCompletionSetMinimumKeyLength + EntryCompletionSetMinimumKeyLengthMethodInfo, entryCompletionSetMinimumKeyLength , -- ** entryCompletionSetModel + EntryCompletionSetModelMethodInfo , entryCompletionSetModel , -- ** entryCompletionSetPopupCompletion + EntryCompletionSetPopupCompletionMethodInfo, entryCompletionSetPopupCompletion , -- ** entryCompletionSetPopupSetWidth + EntryCompletionSetPopupSetWidthMethodInfo, entryCompletionSetPopupSetWidth , -- ** entryCompletionSetPopupSingleMatch + EntryCompletionSetPopupSingleMatchMethodInfo, entryCompletionSetPopupSingleMatch , -- ** entryCompletionSetTextColumn + EntryCompletionSetTextColumnMethodInfo , entryCompletionSetTextColumn , @@ -289,6 +315,83 @@ noEntryCompletion :: Maybe EntryCompletion noEntryCompletion = Nothing +type family ResolveEntryCompletionMethod (t :: Symbol) (o :: *) :: * where + ResolveEntryCompletionMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo + ResolveEntryCompletionMethod "addChild" o = BuildableAddChildMethodInfo + ResolveEntryCompletionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveEntryCompletionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveEntryCompletionMethod "clear" o = CellLayoutClearMethodInfo + ResolveEntryCompletionMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo + ResolveEntryCompletionMethod "complete" o = EntryCompletionCompleteMethodInfo + ResolveEntryCompletionMethod "computePrefix" o = EntryCompletionComputePrefixMethodInfo + ResolveEntryCompletionMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveEntryCompletionMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveEntryCompletionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveEntryCompletionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveEntryCompletionMethod "deleteAction" o = EntryCompletionDeleteActionMethodInfo + ResolveEntryCompletionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveEntryCompletionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveEntryCompletionMethod "insertActionMarkup" o = EntryCompletionInsertActionMarkupMethodInfo + ResolveEntryCompletionMethod "insertActionText" o = EntryCompletionInsertActionTextMethodInfo + ResolveEntryCompletionMethod "insertPrefix" o = EntryCompletionInsertPrefixMethodInfo + ResolveEntryCompletionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveEntryCompletionMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveEntryCompletionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveEntryCompletionMethod "packEnd" o = CellLayoutPackEndMethodInfo + ResolveEntryCompletionMethod "packStart" o = CellLayoutPackStartMethodInfo + ResolveEntryCompletionMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveEntryCompletionMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveEntryCompletionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveEntryCompletionMethod "reorder" o = CellLayoutReorderMethodInfo + ResolveEntryCompletionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveEntryCompletionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveEntryCompletionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveEntryCompletionMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveEntryCompletionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveEntryCompletionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveEntryCompletionMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveEntryCompletionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveEntryCompletionMethod "getArea" o = CellLayoutGetAreaMethodInfo + ResolveEntryCompletionMethod "getCells" o = CellLayoutGetCellsMethodInfo + ResolveEntryCompletionMethod "getCompletionPrefix" o = EntryCompletionGetCompletionPrefixMethodInfo + ResolveEntryCompletionMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveEntryCompletionMethod "getEntry" o = EntryCompletionGetEntryMethodInfo + ResolveEntryCompletionMethod "getInlineCompletion" o = EntryCompletionGetInlineCompletionMethodInfo + ResolveEntryCompletionMethod "getInlineSelection" o = EntryCompletionGetInlineSelectionMethodInfo + ResolveEntryCompletionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveEntryCompletionMethod "getMinimumKeyLength" o = EntryCompletionGetMinimumKeyLengthMethodInfo + ResolveEntryCompletionMethod "getModel" o = EntryCompletionGetModelMethodInfo + ResolveEntryCompletionMethod "getName" o = BuildableGetNameMethodInfo + ResolveEntryCompletionMethod "getPopupCompletion" o = EntryCompletionGetPopupCompletionMethodInfo + ResolveEntryCompletionMethod "getPopupSetWidth" o = EntryCompletionGetPopupSetWidthMethodInfo + ResolveEntryCompletionMethod "getPopupSingleMatch" o = EntryCompletionGetPopupSingleMatchMethodInfo + ResolveEntryCompletionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveEntryCompletionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveEntryCompletionMethod "getTextColumn" o = EntryCompletionGetTextColumnMethodInfo + ResolveEntryCompletionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveEntryCompletionMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo + ResolveEntryCompletionMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveEntryCompletionMethod "setInlineCompletion" o = EntryCompletionSetInlineCompletionMethodInfo + ResolveEntryCompletionMethod "setInlineSelection" o = EntryCompletionSetInlineSelectionMethodInfo + ResolveEntryCompletionMethod "setMatchFunc" o = EntryCompletionSetMatchFuncMethodInfo + ResolveEntryCompletionMethod "setMinimumKeyLength" o = EntryCompletionSetMinimumKeyLengthMethodInfo + ResolveEntryCompletionMethod "setModel" o = EntryCompletionSetModelMethodInfo + ResolveEntryCompletionMethod "setName" o = BuildableSetNameMethodInfo + ResolveEntryCompletionMethod "setPopupCompletion" o = EntryCompletionSetPopupCompletionMethodInfo + ResolveEntryCompletionMethod "setPopupSetWidth" o = EntryCompletionSetPopupSetWidthMethodInfo + ResolveEntryCompletionMethod "setPopupSingleMatch" o = EntryCompletionSetPopupSingleMatchMethodInfo + ResolveEntryCompletionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveEntryCompletionMethod "setTextColumn" o = EntryCompletionSetTextColumnMethodInfo + ResolveEntryCompletionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveEntryCompletionMethod t EntryCompletion, MethodInfo info EntryCompletion p) => IsLabelProxy t (EntryCompletion -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveEntryCompletionMethod t EntryCompletion, MethodInfo info EntryCompletion p) => IsLabel t (EntryCompletion -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal EntryCompletion::action-activated type EntryCompletionActionActivatedCallback = Int32 -> @@ -524,7 +627,7 @@ type AttrSetTypeConstraint EntryCompletionCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint EntryCompletionCellAreaPropertyInfo = EntryCompletionK type AttrGetType EntryCompletionCellAreaPropertyInfo = CellArea - type AttrLabel EntryCompletionCellAreaPropertyInfo = "EntryCompletion::cell-area" + type AttrLabel EntryCompletionCellAreaPropertyInfo = "cell-area" attrGet _ = getEntryCompletionCellArea attrSet _ = undefined attrConstruct _ = constructEntryCompletionCellArea @@ -548,7 +651,7 @@ type AttrSetTypeConstraint EntryCompletionInlineCompletionPropertyInfo = (~) Bool type AttrBaseTypeConstraint EntryCompletionInlineCompletionPropertyInfo = EntryCompletionK type AttrGetType EntryCompletionInlineCompletionPropertyInfo = Bool - type AttrLabel EntryCompletionInlineCompletionPropertyInfo = "EntryCompletion::inline-completion" + type AttrLabel EntryCompletionInlineCompletionPropertyInfo = "inline-completion" attrGet _ = getEntryCompletionInlineCompletion attrSet _ = setEntryCompletionInlineCompletion attrConstruct _ = constructEntryCompletionInlineCompletion @@ -572,7 +675,7 @@ type AttrSetTypeConstraint EntryCompletionInlineSelectionPropertyInfo = (~) Bool type AttrBaseTypeConstraint EntryCompletionInlineSelectionPropertyInfo = EntryCompletionK type AttrGetType EntryCompletionInlineSelectionPropertyInfo = Bool - type AttrLabel EntryCompletionInlineSelectionPropertyInfo = "EntryCompletion::inline-selection" + type AttrLabel EntryCompletionInlineSelectionPropertyInfo = "inline-selection" attrGet _ = getEntryCompletionInlineSelection attrSet _ = setEntryCompletionInlineSelection attrConstruct _ = constructEntryCompletionInlineSelection @@ -596,7 +699,7 @@ type AttrSetTypeConstraint EntryCompletionMinimumKeyLengthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint EntryCompletionMinimumKeyLengthPropertyInfo = EntryCompletionK type AttrGetType EntryCompletionMinimumKeyLengthPropertyInfo = Int32 - type AttrLabel EntryCompletionMinimumKeyLengthPropertyInfo = "EntryCompletion::minimum-key-length" + type AttrLabel EntryCompletionMinimumKeyLengthPropertyInfo = "minimum-key-length" attrGet _ = getEntryCompletionMinimumKeyLength attrSet _ = setEntryCompletionMinimumKeyLength attrConstruct _ = constructEntryCompletionMinimumKeyLength @@ -620,7 +723,7 @@ type AttrSetTypeConstraint EntryCompletionModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint EntryCompletionModelPropertyInfo = EntryCompletionK type AttrGetType EntryCompletionModelPropertyInfo = TreeModel - type AttrLabel EntryCompletionModelPropertyInfo = "EntryCompletion::model" + type AttrLabel EntryCompletionModelPropertyInfo = "model" attrGet _ = getEntryCompletionModel attrSet _ = setEntryCompletionModel attrConstruct _ = constructEntryCompletionModel @@ -644,7 +747,7 @@ type AttrSetTypeConstraint EntryCompletionPopupCompletionPropertyInfo = (~) Bool type AttrBaseTypeConstraint EntryCompletionPopupCompletionPropertyInfo = EntryCompletionK type AttrGetType EntryCompletionPopupCompletionPropertyInfo = Bool - type AttrLabel EntryCompletionPopupCompletionPropertyInfo = "EntryCompletion::popup-completion" + type AttrLabel EntryCompletionPopupCompletionPropertyInfo = "popup-completion" attrGet _ = getEntryCompletionPopupCompletion attrSet _ = setEntryCompletionPopupCompletion attrConstruct _ = constructEntryCompletionPopupCompletion @@ -668,7 +771,7 @@ type AttrSetTypeConstraint EntryCompletionPopupSetWidthPropertyInfo = (~) Bool type AttrBaseTypeConstraint EntryCompletionPopupSetWidthPropertyInfo = EntryCompletionK type AttrGetType EntryCompletionPopupSetWidthPropertyInfo = Bool - type AttrLabel EntryCompletionPopupSetWidthPropertyInfo = "EntryCompletion::popup-set-width" + type AttrLabel EntryCompletionPopupSetWidthPropertyInfo = "popup-set-width" attrGet _ = getEntryCompletionPopupSetWidth attrSet _ = setEntryCompletionPopupSetWidth attrConstruct _ = constructEntryCompletionPopupSetWidth @@ -692,7 +795,7 @@ type AttrSetTypeConstraint EntryCompletionPopupSingleMatchPropertyInfo = (~) Bool type AttrBaseTypeConstraint EntryCompletionPopupSingleMatchPropertyInfo = EntryCompletionK type AttrGetType EntryCompletionPopupSingleMatchPropertyInfo = Bool - type AttrLabel EntryCompletionPopupSingleMatchPropertyInfo = "EntryCompletion::popup-single-match" + type AttrLabel EntryCompletionPopupSingleMatchPropertyInfo = "popup-single-match" attrGet _ = getEntryCompletionPopupSingleMatch attrSet _ = setEntryCompletionPopupSingleMatch attrConstruct _ = constructEntryCompletionPopupSingleMatch @@ -716,13 +819,13 @@ type AttrSetTypeConstraint EntryCompletionTextColumnPropertyInfo = (~) Int32 type AttrBaseTypeConstraint EntryCompletionTextColumnPropertyInfo = EntryCompletionK type AttrGetType EntryCompletionTextColumnPropertyInfo = Int32 - type AttrLabel EntryCompletionTextColumnPropertyInfo = "EntryCompletion::text-column" + type AttrLabel EntryCompletionTextColumnPropertyInfo = "text-column" attrGet _ = getEntryCompletionTextColumn attrSet _ = setEntryCompletionTextColumn attrConstruct _ = constructEntryCompletionTextColumn type instance AttributeList EntryCompletion = EntryCompletionAttributeList -type EntryCompletionAttributeList = ('[ '("cell-area", EntryCompletionCellAreaPropertyInfo), '("inline-completion", EntryCompletionInlineCompletionPropertyInfo), '("inline-selection", EntryCompletionInlineSelectionPropertyInfo), '("minimum-key-length", EntryCompletionMinimumKeyLengthPropertyInfo), '("model", EntryCompletionModelPropertyInfo), '("popup-completion", EntryCompletionPopupCompletionPropertyInfo), '("popup-set-width", EntryCompletionPopupSetWidthPropertyInfo), '("popup-single-match", EntryCompletionPopupSingleMatchPropertyInfo), '("text-column", EntryCompletionTextColumnPropertyInfo)] :: [(Symbol, *)]) +type EntryCompletionAttributeList = ('[ '("cellArea", EntryCompletionCellAreaPropertyInfo), '("inlineCompletion", EntryCompletionInlineCompletionPropertyInfo), '("inlineSelection", EntryCompletionInlineSelectionPropertyInfo), '("minimumKeyLength", EntryCompletionMinimumKeyLengthPropertyInfo), '("model", EntryCompletionModelPropertyInfo), '("popupCompletion", EntryCompletionPopupCompletionPropertyInfo), '("popupSetWidth", EntryCompletionPopupSetWidthPropertyInfo), '("popupSingleMatch", EntryCompletionPopupSingleMatchPropertyInfo), '("textColumn", EntryCompletionTextColumnPropertyInfo)] :: [(Symbol, *)]) data EntryCompletionActionActivatedSignalInfo instance SignalInfo EntryCompletionActionActivatedSignalInfo where @@ -750,13 +853,12 @@ connectSignal _ = connectEntryCompletionNoMatches type instance SignalList EntryCompletion = EntryCompletionSignalList -type EntryCompletionSignalList = ('[ '("action-activated", EntryCompletionActionActivatedSignalInfo), '("cursor-on-match", EntryCompletionCursorOnMatchSignalInfo), '("insert-prefix", EntryCompletionInsertPrefixSignalInfo), '("match-selected", EntryCompletionMatchSelectedSignalInfo), '("no-matches", EntryCompletionNoMatchesSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type EntryCompletionSignalList = ('[ '("actionActivated", EntryCompletionActionActivatedSignalInfo), '("cursorOnMatch", EntryCompletionCursorOnMatchSignalInfo), '("insertPrefix", EntryCompletionInsertPrefixSignalInfo), '("matchSelected", EntryCompletionMatchSelectedSignalInfo), '("noMatches", EntryCompletionNoMatchesSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method EntryCompletion::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "EntryCompletion" -- throws : False -- Skip return : False @@ -767,7 +869,7 @@ entryCompletionNew :: (MonadIO m) => - m EntryCompletion + m EntryCompletion -- result entryCompletionNew = liftIO $ do result <- gtk_entry_completion_new checkUnexpectedReturnNULL "gtk_entry_completion_new" result @@ -776,9 +878,8 @@ -- method EntryCompletion::new_with_area -- method type : Constructor --- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "EntryCompletion" -- throws : False -- Skip return : False @@ -790,8 +891,8 @@ entryCompletionNewWithArea :: (MonadIO m, CellAreaK a) => - a -> -- area - m EntryCompletion + a -- area + -> m EntryCompletion -- result entryCompletionNewWithArea area = liftIO $ do let area' = unsafeManagedPtrCastPtr area result <- gtk_entry_completion_new_with_area area' @@ -802,9 +903,8 @@ -- method EntryCompletion::complete -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -816,19 +916,22 @@ entryCompletionComplete :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result entryCompletionComplete _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_entry_completion_complete _obj' touchManagedPtr _obj return () +data EntryCompletionCompleteMethodInfo +instance (signature ~ (m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionCompleteMethodInfo a signature where + overloadedMethod _ = entryCompletionComplete + -- method EntryCompletion::compute_prefix -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -841,9 +944,9 @@ entryCompletionComputePrefix :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - T.Text -> -- key - m T.Text + a -- _obj + -> T.Text -- key + -> m T.Text -- result entryCompletionComputePrefix _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -855,11 +958,14 @@ freeMem key' return result' +data EntryCompletionComputePrefixMethodInfo +instance (signature ~ (T.Text -> m T.Text), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionComputePrefixMethodInfo a signature where + overloadedMethod _ = entryCompletionComputePrefix + -- method EntryCompletion::delete_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -872,20 +978,23 @@ entryCompletionDeleteAction :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Int32 -> -- index_ - m () -entryCompletionDeleteAction _obj index_ = liftIO $ do + a -- _obj + -> Int32 -- index + -> m () -- result +entryCompletionDeleteAction _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_completion_delete_action _obj' index_ + gtk_entry_completion_delete_action _obj' index touchManagedPtr _obj return () +data EntryCompletionDeleteActionMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionDeleteActionMethodInfo a signature where + overloadedMethod _ = entryCompletionDeleteAction + -- method EntryCompletion::get_completion_prefix -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -897,8 +1006,8 @@ entryCompletionGetCompletionPrefix :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result entryCompletionGetCompletionPrefix _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_completion_get_completion_prefix _obj' @@ -907,11 +1016,14 @@ touchManagedPtr _obj return result' +data EntryCompletionGetCompletionPrefixMethodInfo +instance (signature ~ (m T.Text), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetCompletionPrefixMethodInfo a signature where + overloadedMethod _ = entryCompletionGetCompletionPrefix + -- method EntryCompletion::get_entry -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -923,8 +1035,8 @@ entryCompletionGetEntry :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result entryCompletionGetEntry _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_completion_get_entry _obj' @@ -933,11 +1045,14 @@ touchManagedPtr _obj return result' +data EntryCompletionGetEntryMethodInfo +instance (signature ~ (m Widget), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetEntryMethodInfo a signature where + overloadedMethod _ = entryCompletionGetEntry + -- method EntryCompletion::get_inline_completion -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -949,8 +1064,8 @@ entryCompletionGetInlineCompletion :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result entryCompletionGetInlineCompletion _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_completion_get_inline_completion _obj' @@ -958,11 +1073,14 @@ touchManagedPtr _obj return result' +data EntryCompletionGetInlineCompletionMethodInfo +instance (signature ~ (m Bool), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetInlineCompletionMethodInfo a signature where + overloadedMethod _ = entryCompletionGetInlineCompletion + -- method EntryCompletion::get_inline_selection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -974,8 +1092,8 @@ entryCompletionGetInlineSelection :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result entryCompletionGetInlineSelection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_completion_get_inline_selection _obj' @@ -983,11 +1101,14 @@ touchManagedPtr _obj return result' +data EntryCompletionGetInlineSelectionMethodInfo +instance (signature ~ (m Bool), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetInlineSelectionMethodInfo a signature where + overloadedMethod _ = entryCompletionGetInlineSelection + -- method EntryCompletion::get_minimum_key_length -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -999,19 +1120,22 @@ entryCompletionGetMinimumKeyLength :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result entryCompletionGetMinimumKeyLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_completion_get_minimum_key_length _obj' touchManagedPtr _obj return result +data EntryCompletionGetMinimumKeyLengthMethodInfo +instance (signature ~ (m Int32), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetMinimumKeyLengthMethodInfo a signature where + overloadedMethod _ = entryCompletionGetMinimumKeyLength + -- method EntryCompletion::get_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeModel" -- throws : False -- Skip return : False @@ -1023,8 +1147,8 @@ entryCompletionGetModel :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - m TreeModel + a -- _obj + -> m TreeModel -- result entryCompletionGetModel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_completion_get_model _obj' @@ -1033,11 +1157,14 @@ touchManagedPtr _obj return result' +data EntryCompletionGetModelMethodInfo +instance (signature ~ (m TreeModel), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetModelMethodInfo a signature where + overloadedMethod _ = entryCompletionGetModel + -- method EntryCompletion::get_popup_completion -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1049,8 +1176,8 @@ entryCompletionGetPopupCompletion :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result entryCompletionGetPopupCompletion _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_completion_get_popup_completion _obj' @@ -1058,11 +1185,14 @@ touchManagedPtr _obj return result' +data EntryCompletionGetPopupCompletionMethodInfo +instance (signature ~ (m Bool), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetPopupCompletionMethodInfo a signature where + overloadedMethod _ = entryCompletionGetPopupCompletion + -- method EntryCompletion::get_popup_set_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1074,8 +1204,8 @@ entryCompletionGetPopupSetWidth :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result entryCompletionGetPopupSetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_completion_get_popup_set_width _obj' @@ -1083,11 +1213,14 @@ touchManagedPtr _obj return result' +data EntryCompletionGetPopupSetWidthMethodInfo +instance (signature ~ (m Bool), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetPopupSetWidthMethodInfo a signature where + overloadedMethod _ = entryCompletionGetPopupSetWidth + -- method EntryCompletion::get_popup_single_match -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1099,8 +1232,8 @@ entryCompletionGetPopupSingleMatch :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result entryCompletionGetPopupSingleMatch _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_completion_get_popup_single_match _obj' @@ -1108,11 +1241,14 @@ touchManagedPtr _obj return result' +data EntryCompletionGetPopupSingleMatchMethodInfo +instance (signature ~ (m Bool), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetPopupSingleMatchMethodInfo a signature where + overloadedMethod _ = entryCompletionGetPopupSingleMatch + -- method EntryCompletion::get_text_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1124,19 +1260,22 @@ entryCompletionGetTextColumn :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result entryCompletionGetTextColumn _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_completion_get_text_column _obj' touchManagedPtr _obj return result +data EntryCompletionGetTextColumnMethodInfo +instance (signature ~ (m Int32), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionGetTextColumnMethodInfo a signature where + overloadedMethod _ = entryCompletionGetTextColumn + -- method EntryCompletion::insert_action_markup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1150,23 +1289,26 @@ entryCompletionInsertActionMarkup :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Int32 -> -- index_ - T.Text -> -- markup - m () -entryCompletionInsertActionMarkup _obj index_ markup = liftIO $ do + a -- _obj + -> Int32 -- index + -> T.Text -- markup + -> m () -- result +entryCompletionInsertActionMarkup _obj index markup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj markup' <- textToCString markup - gtk_entry_completion_insert_action_markup _obj' index_ markup' + gtk_entry_completion_insert_action_markup _obj' index markup' touchManagedPtr _obj freeMem markup' return () +data EntryCompletionInsertActionMarkupMethodInfo +instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionInsertActionMarkupMethodInfo a signature where + overloadedMethod _ = entryCompletionInsertActionMarkup + -- method EntryCompletion::insert_action_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1180,23 +1322,26 @@ entryCompletionInsertActionText :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Int32 -> -- index_ - T.Text -> -- text - m () -entryCompletionInsertActionText _obj index_ text = liftIO $ do + a -- _obj + -> Int32 -- index + -> T.Text -- text + -> m () -- result +entryCompletionInsertActionText _obj index text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text - gtk_entry_completion_insert_action_text _obj' index_ text' + gtk_entry_completion_insert_action_text _obj' index text' touchManagedPtr _obj freeMem text' return () +data EntryCompletionInsertActionTextMethodInfo +instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionInsertActionTextMethodInfo a signature where + overloadedMethod _ = entryCompletionInsertActionText + -- method EntryCompletion::insert_prefix -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1208,19 +1353,22 @@ entryCompletionInsertPrefix :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result entryCompletionInsertPrefix _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_entry_completion_insert_prefix _obj' touchManagedPtr _obj return () +data EntryCompletionInsertPrefixMethodInfo +instance (signature ~ (m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionInsertPrefixMethodInfo a signature where + overloadedMethod _ = entryCompletionInsertPrefix + -- method EntryCompletion::set_inline_completion -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inline_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inline_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inline_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1233,21 +1381,24 @@ entryCompletionSetInlineCompletion :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Bool -> -- inline_completion - m () -entryCompletionSetInlineCompletion _obj inline_completion = liftIO $ do + a -- _obj + -> Bool -- inlineCompletion + -> m () -- result +entryCompletionSetInlineCompletion _obj inlineCompletion = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let inline_completion' = (fromIntegral . fromEnum) inline_completion - gtk_entry_completion_set_inline_completion _obj' inline_completion' + let inlineCompletion' = (fromIntegral . fromEnum) inlineCompletion + gtk_entry_completion_set_inline_completion _obj' inlineCompletion' touchManagedPtr _obj return () +data EntryCompletionSetInlineCompletionMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetInlineCompletionMethodInfo a signature where + overloadedMethod _ = entryCompletionSetInlineCompletion + -- method EntryCompletion::set_inline_selection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inline_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inline_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inline_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1260,21 +1411,24 @@ entryCompletionSetInlineSelection :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Bool -> -- inline_selection - m () -entryCompletionSetInlineSelection _obj inline_selection = liftIO $ do + a -- _obj + -> Bool -- inlineSelection + -> m () -- result +entryCompletionSetInlineSelection _obj inlineSelection = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let inline_selection' = (fromIntegral . fromEnum) inline_selection - gtk_entry_completion_set_inline_selection _obj' inline_selection' + let inlineSelection' = (fromIntegral . fromEnum) inlineSelection + gtk_entry_completion_set_inline_selection _obj' inlineSelection' touchManagedPtr _obj return () +data EntryCompletionSetInlineSelectionMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetInlineSelectionMethodInfo a signature where + overloadedMethod _ = entryCompletionSetInlineSelection + -- method EntryCompletion::set_match_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "EntryCompletionMatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "EntryCompletionMatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "EntryCompletionMatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1289,23 +1443,26 @@ entryCompletionSetMatchFunc :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - EntryCompletionMatchFunc -> -- func - m () + a -- _obj + -> EntryCompletionMatchFunc -- func + -> m () -- result entryCompletionSetMatchFunc _obj func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj func' <- mkEntryCompletionMatchFunc (entryCompletionMatchFuncWrapper Nothing func) - let func_data = castFunPtrToPtr func' - let func_notify = safeFreeFunPtrPtr - gtk_entry_completion_set_match_func _obj' func' func_data func_notify + let funcData = castFunPtrToPtr func' + let funcNotify = safeFreeFunPtrPtr + gtk_entry_completion_set_match_func _obj' func' funcData funcNotify touchManagedPtr _obj return () +data EntryCompletionSetMatchFuncMethodInfo +instance (signature ~ (EntryCompletionMatchFunc -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetMatchFuncMethodInfo a signature where + overloadedMethod _ = entryCompletionSetMatchFunc + -- method EntryCompletion::set_minimum_key_length -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1318,20 +1475,23 @@ entryCompletionSetMinimumKeyLength :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Int32 -> -- length - m () + a -- _obj + -> Int32 -- length_ + -> m () -- result entryCompletionSetMinimumKeyLength _obj length_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_entry_completion_set_minimum_key_length _obj' length_ touchManagedPtr _obj return () +data EntryCompletionSetMinimumKeyLengthMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetMinimumKeyLengthMethodInfo a signature where + overloadedMethod _ = entryCompletionSetMinimumKeyLength + -- method EntryCompletion::set_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1344,9 +1504,9 @@ entryCompletionSetModel :: (MonadIO m, EntryCompletionK a, TreeModelK b) => - a -> -- _obj - Maybe (b) -> -- model - m () + a -- _obj + -> Maybe (b) -- model + -> m () -- result entryCompletionSetModel _obj model = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeModel <- case model of @@ -1359,11 +1519,14 @@ whenJust model touchManagedPtr return () +data EntryCompletionSetModelMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, EntryCompletionK a, TreeModelK b) => MethodInfo EntryCompletionSetModelMethodInfo a signature where + overloadedMethod _ = entryCompletionSetModel + -- method EntryCompletion::set_popup_completion -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1376,21 +1539,24 @@ entryCompletionSetPopupCompletion :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Bool -> -- popup_completion - m () -entryCompletionSetPopupCompletion _obj popup_completion = liftIO $ do + a -- _obj + -> Bool -- popupCompletion + -> m () -- result +entryCompletionSetPopupCompletion _obj popupCompletion = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let popup_completion' = (fromIntegral . fromEnum) popup_completion - gtk_entry_completion_set_popup_completion _obj' popup_completion' + let popupCompletion' = (fromIntegral . fromEnum) popupCompletion + gtk_entry_completion_set_popup_completion _obj' popupCompletion' touchManagedPtr _obj return () +data EntryCompletionSetPopupCompletionMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetPopupCompletionMethodInfo a signature where + overloadedMethod _ = entryCompletionSetPopupCompletion + -- method EntryCompletion::set_popup_set_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_set_width", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_set_width", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_set_width", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1403,21 +1569,24 @@ entryCompletionSetPopupSetWidth :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Bool -> -- popup_set_width - m () -entryCompletionSetPopupSetWidth _obj popup_set_width = liftIO $ do + a -- _obj + -> Bool -- popupSetWidth + -> m () -- result +entryCompletionSetPopupSetWidth _obj popupSetWidth = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let popup_set_width' = (fromIntegral . fromEnum) popup_set_width - gtk_entry_completion_set_popup_set_width _obj' popup_set_width' + let popupSetWidth' = (fromIntegral . fromEnum) popupSetWidth + gtk_entry_completion_set_popup_set_width _obj' popupSetWidth' touchManagedPtr _obj return () +data EntryCompletionSetPopupSetWidthMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetPopupSetWidthMethodInfo a signature where + overloadedMethod _ = entryCompletionSetPopupSetWidth + -- method EntryCompletion::set_popup_single_match -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_single_match", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_single_match", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_single_match", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1430,21 +1599,24 @@ entryCompletionSetPopupSingleMatch :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Bool -> -- popup_single_match - m () -entryCompletionSetPopupSingleMatch _obj popup_single_match = liftIO $ do + a -- _obj + -> Bool -- popupSingleMatch + -> m () -- result +entryCompletionSetPopupSingleMatch _obj popupSingleMatch = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let popup_single_match' = (fromIntegral . fromEnum) popup_single_match - gtk_entry_completion_set_popup_single_match _obj' popup_single_match' + let popupSingleMatch' = (fromIntegral . fromEnum) popupSingleMatch + gtk_entry_completion_set_popup_single_match _obj' popupSingleMatch' touchManagedPtr _obj return () +data EntryCompletionSetPopupSingleMatchMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetPopupSingleMatchMethodInfo a signature where + overloadedMethod _ = entryCompletionSetPopupSingleMatch + -- method EntryCompletion::set_text_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1457,13 +1629,17 @@ entryCompletionSetTextColumn :: (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Int32 -> -- column - m () + a -- _obj + -> Int32 -- column + -> m () -- result entryCompletionSetTextColumn _obj column = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_entry_completion_set_text_column _obj' column touchManagedPtr _obj return () + +data EntryCompletionSetTextColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, EntryCompletionK a) => MethodInfo EntryCompletionSetTextColumnMethodInfo a signature where + overloadedMethod _ = entryCompletionSetTextColumn diff --git a/GI/Gtk/Objects/EntryCompletion.hs-boot b/GI/Gtk/Objects/EntryCompletion.hs-boot --- a/GI/Gtk/Objects/EntryCompletion.hs-boot +++ b/GI/Gtk/Objects/EntryCompletion.hs-boot @@ -25,3 +25,28 @@ data EntryCompletionInsertPrefixSignalInfo data EntryCompletionMatchSelectedSignalInfo data EntryCompletionNoMatchesSignalInfo +data EntryCompletionCompleteMethodInfo +data EntryCompletionComputePrefixMethodInfo +data EntryCompletionDeleteActionMethodInfo +data EntryCompletionGetCompletionPrefixMethodInfo +data EntryCompletionGetEntryMethodInfo +data EntryCompletionGetInlineCompletionMethodInfo +data EntryCompletionGetInlineSelectionMethodInfo +data EntryCompletionGetMinimumKeyLengthMethodInfo +data EntryCompletionGetModelMethodInfo +data EntryCompletionGetPopupCompletionMethodInfo +data EntryCompletionGetPopupSetWidthMethodInfo +data EntryCompletionGetPopupSingleMatchMethodInfo +data EntryCompletionGetTextColumnMethodInfo +data EntryCompletionInsertActionMarkupMethodInfo +data EntryCompletionInsertActionTextMethodInfo +data EntryCompletionInsertPrefixMethodInfo +data EntryCompletionSetInlineCompletionMethodInfo +data EntryCompletionSetInlineSelectionMethodInfo +data EntryCompletionSetMatchFuncMethodInfo +data EntryCompletionSetMinimumKeyLengthMethodInfo +data EntryCompletionSetModelMethodInfo +data EntryCompletionSetPopupCompletionMethodInfo +data EntryCompletionSetPopupSetWidthMethodInfo +data EntryCompletionSetPopupSingleMatchMethodInfo +data EntryCompletionSetTextColumnMethodInfo diff --git a/GI/Gtk/Objects/EntryIconAccessible.hs b/GI/Gtk/Objects/EntryIconAccessible.hs --- a/GI/Gtk/Objects/EntryIconAccessible.hs +++ b/GI/Gtk/Objects/EntryIconAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,76 @@ noEntryIconAccessible :: Maybe EntryIconAccessible noEntryIconAccessible = Nothing +type family ResolveEntryIconAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveEntryIconAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveEntryIconAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveEntryIconAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveEntryIconAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveEntryIconAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveEntryIconAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveEntryIconAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveEntryIconAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveEntryIconAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveEntryIconAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveEntryIconAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveEntryIconAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveEntryIconAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveEntryIconAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveEntryIconAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveEntryIconAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveEntryIconAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveEntryIconAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveEntryIconAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveEntryIconAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveEntryIconAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveEntryIconAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveEntryIconAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveEntryIconAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveEntryIconAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveEntryIconAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveEntryIconAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveEntryIconAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveEntryIconAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveEntryIconAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveEntryIconAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveEntryIconAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveEntryIconAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveEntryIconAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveEntryIconAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveEntryIconAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveEntryIconAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveEntryIconAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveEntryIconAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveEntryIconAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveEntryIconAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveEntryIconAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveEntryIconAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveEntryIconAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveEntryIconAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveEntryIconAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveEntryIconAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveEntryIconAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveEntryIconAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveEntryIconAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveEntryIconAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveEntryIconAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveEntryIconAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveEntryIconAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveEntryIconAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveEntryIconAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveEntryIconAccessibleMethod t EntryIconAccessible, MethodInfo info EntryIconAccessible p) => IsLabelProxy t (EntryIconAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveEntryIconAccessibleMethod t EntryIconAccessible, MethodInfo info EntryIconAccessible p) => IsLabel t (EntryIconAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList EntryIconAccessible = EntryIconAccessibleAttributeList -type EntryIconAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) +type EntryIconAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) type instance SignalList EntryIconAccessible = EntryIconAccessibleSignalList -type EntryIconAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type EntryIconAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/EventBox.hs b/GI/Gtk/Objects/EventBox.hs --- a/GI/Gtk/Objects/EventBox.hs +++ b/GI/Gtk/Objects/EventBox.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** eventBoxGetAboveChild + EventBoxGetAboveChildMethodInfo , eventBoxGetAboveChild , -- ** eventBoxGetVisibleWindow + EventBoxGetVisibleWindowMethodInfo , eventBoxGetVisibleWindow , @@ -29,10 +32,12 @@ -- ** eventBoxSetAboveChild + EventBoxSetAboveChildMethodInfo , eventBoxSetAboveChild , -- ** eventBoxSetVisibleWindow + EventBoxSetVisibleWindowMethodInfo , eventBoxSetVisibleWindow , @@ -90,6 +95,333 @@ noEventBox :: Maybe EventBox noEventBox = Nothing +type family ResolveEventBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveEventBoxMethod "activate" o = WidgetActivateMethodInfo + ResolveEventBoxMethod "add" o = ContainerAddMethodInfo + ResolveEventBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveEventBoxMethod "addChild" o = BuildableAddChildMethodInfo + ResolveEventBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveEventBoxMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveEventBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveEventBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveEventBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveEventBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveEventBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveEventBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveEventBoxMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveEventBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveEventBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveEventBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveEventBoxMethod "childType" o = ContainerChildTypeMethodInfo + ResolveEventBoxMethod "classPath" o = WidgetClassPathMethodInfo + ResolveEventBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveEventBoxMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveEventBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveEventBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveEventBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveEventBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveEventBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveEventBoxMethod "destroy" o = WidgetDestroyMethodInfo + ResolveEventBoxMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveEventBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveEventBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveEventBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveEventBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveEventBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveEventBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveEventBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveEventBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveEventBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveEventBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveEventBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveEventBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveEventBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveEventBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveEventBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveEventBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveEventBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveEventBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveEventBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveEventBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveEventBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveEventBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveEventBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveEventBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveEventBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveEventBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveEventBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveEventBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveEventBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveEventBoxMethod "draw" o = WidgetDrawMethodInfo + ResolveEventBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveEventBoxMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveEventBoxMethod "event" o = WidgetEventMethodInfo + ResolveEventBoxMethod "forall" o = ContainerForallMethodInfo + ResolveEventBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveEventBoxMethod "foreach" o = ContainerForeachMethodInfo + ResolveEventBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveEventBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveEventBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveEventBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveEventBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveEventBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveEventBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveEventBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveEventBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveEventBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveEventBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveEventBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveEventBoxMethod "hide" o = WidgetHideMethodInfo + ResolveEventBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveEventBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveEventBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveEventBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveEventBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveEventBoxMethod "intersect" o = WidgetIntersectMethodInfo + ResolveEventBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveEventBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveEventBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveEventBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveEventBoxMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveEventBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveEventBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveEventBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveEventBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveEventBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveEventBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveEventBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveEventBoxMethod "map" o = WidgetMapMethodInfo + ResolveEventBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveEventBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveEventBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveEventBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveEventBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveEventBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveEventBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveEventBoxMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveEventBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveEventBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveEventBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveEventBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveEventBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveEventBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveEventBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveEventBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveEventBoxMethod "path" o = WidgetPathMethodInfo + ResolveEventBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveEventBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveEventBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveEventBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveEventBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveEventBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveEventBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveEventBoxMethod "realize" o = WidgetRealizeMethodInfo + ResolveEventBoxMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveEventBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveEventBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveEventBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveEventBoxMethod "remove" o = ContainerRemoveMethodInfo + ResolveEventBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveEventBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveEventBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveEventBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveEventBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveEventBoxMethod "reparent" o = WidgetReparentMethodInfo + ResolveEventBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveEventBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveEventBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveEventBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveEventBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveEventBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveEventBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveEventBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveEventBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveEventBoxMethod "show" o = WidgetShowMethodInfo + ResolveEventBoxMethod "showAll" o = WidgetShowAllMethodInfo + ResolveEventBoxMethod "showNow" o = WidgetShowNowMethodInfo + ResolveEventBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveEventBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveEventBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveEventBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveEventBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveEventBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveEventBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveEventBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveEventBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveEventBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveEventBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveEventBoxMethod "unmap" o = WidgetUnmapMethodInfo + ResolveEventBoxMethod "unparent" o = WidgetUnparentMethodInfo + ResolveEventBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveEventBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveEventBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveEventBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveEventBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveEventBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveEventBoxMethod "getAboveChild" o = EventBoxGetAboveChildMethodInfo + ResolveEventBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveEventBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveEventBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveEventBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveEventBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveEventBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveEventBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveEventBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveEventBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveEventBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveEventBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveEventBoxMethod "getChild" o = BinGetChildMethodInfo + ResolveEventBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveEventBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveEventBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveEventBoxMethod "getClip" o = WidgetGetClipMethodInfo + ResolveEventBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveEventBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveEventBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveEventBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveEventBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveEventBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveEventBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveEventBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveEventBoxMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveEventBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveEventBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveEventBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveEventBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveEventBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveEventBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveEventBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveEventBoxMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveEventBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveEventBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveEventBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveEventBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveEventBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveEventBoxMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveEventBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveEventBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveEventBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveEventBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveEventBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveEventBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveEventBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveEventBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveEventBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveEventBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveEventBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveEventBoxMethod "getParent" o = WidgetGetParentMethodInfo + ResolveEventBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveEventBoxMethod "getPath" o = WidgetGetPathMethodInfo + ResolveEventBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveEventBoxMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveEventBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveEventBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveEventBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveEventBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveEventBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveEventBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveEventBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveEventBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveEventBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveEventBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveEventBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveEventBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveEventBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveEventBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveEventBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveEventBoxMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveEventBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveEventBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveEventBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveEventBoxMethod "getState" o = WidgetGetStateMethodInfo + ResolveEventBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveEventBoxMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveEventBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveEventBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveEventBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveEventBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveEventBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveEventBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveEventBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveEventBoxMethod "getValign" o = WidgetGetValignMethodInfo + ResolveEventBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveEventBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveEventBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveEventBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveEventBoxMethod "getVisibleWindow" o = EventBoxGetVisibleWindowMethodInfo + ResolveEventBoxMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveEventBoxMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveEventBoxMethod "setAboveChild" o = EventBoxSetAboveChildMethodInfo + ResolveEventBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveEventBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveEventBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveEventBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveEventBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveEventBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveEventBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveEventBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveEventBoxMethod "setClip" o = WidgetSetClipMethodInfo + ResolveEventBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveEventBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveEventBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveEventBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveEventBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveEventBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveEventBoxMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveEventBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveEventBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveEventBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveEventBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveEventBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveEventBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveEventBoxMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveEventBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveEventBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveEventBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveEventBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveEventBoxMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveEventBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveEventBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveEventBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveEventBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveEventBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveEventBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveEventBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveEventBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveEventBoxMethod "setParent" o = WidgetSetParentMethodInfo + ResolveEventBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveEventBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveEventBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveEventBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveEventBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveEventBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveEventBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveEventBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveEventBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveEventBoxMethod "setState" o = WidgetSetStateMethodInfo + ResolveEventBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveEventBoxMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveEventBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveEventBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveEventBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveEventBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveEventBoxMethod "setValign" o = WidgetSetValignMethodInfo + ResolveEventBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveEventBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveEventBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveEventBoxMethod "setVisibleWindow" o = EventBoxSetVisibleWindowMethodInfo + ResolveEventBoxMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveEventBoxMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveEventBoxMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveEventBoxMethod t EventBox, MethodInfo info EventBox p) => IsLabelProxy t (EventBox -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveEventBoxMethod t EventBox, MethodInfo info EventBox p) => IsLabel t (EventBox -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "above-child" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -109,7 +441,7 @@ type AttrSetTypeConstraint EventBoxAboveChildPropertyInfo = (~) Bool type AttrBaseTypeConstraint EventBoxAboveChildPropertyInfo = EventBoxK type AttrGetType EventBoxAboveChildPropertyInfo = Bool - type AttrLabel EventBoxAboveChildPropertyInfo = "EventBox::above-child" + type AttrLabel EventBoxAboveChildPropertyInfo = "above-child" attrGet _ = getEventBoxAboveChild attrSet _ = setEventBoxAboveChild attrConstruct _ = constructEventBoxAboveChild @@ -133,22 +465,21 @@ type AttrSetTypeConstraint EventBoxVisibleWindowPropertyInfo = (~) Bool type AttrBaseTypeConstraint EventBoxVisibleWindowPropertyInfo = EventBoxK type AttrGetType EventBoxVisibleWindowPropertyInfo = Bool - type AttrLabel EventBoxVisibleWindowPropertyInfo = "EventBox::visible-window" + type AttrLabel EventBoxVisibleWindowPropertyInfo = "visible-window" attrGet _ = getEventBoxVisibleWindow attrSet _ = setEventBoxVisibleWindow attrConstruct _ = constructEventBoxVisibleWindow type instance AttributeList EventBox = EventBoxAttributeList -type EventBoxAttributeList = ('[ '("above-child", EventBoxAboveChildPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-window", EventBoxVisibleWindowPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type EventBoxAttributeList = ('[ '("aboveChild", EventBoxAboveChildPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleWindow", EventBoxVisibleWindowPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList EventBox = EventBoxSignalList -type EventBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type EventBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method EventBox::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "EventBox" -- throws : False -- Skip return : False @@ -159,7 +490,7 @@ eventBoxNew :: (MonadIO m) => - m EventBox + m EventBox -- result eventBoxNew = liftIO $ do result <- gtk_event_box_new checkUnexpectedReturnNULL "gtk_event_box_new" result @@ -168,9 +499,8 @@ -- method EventBox::get_above_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -182,8 +512,8 @@ eventBoxGetAboveChild :: (MonadIO m, EventBoxK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result eventBoxGetAboveChild _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_event_box_get_above_child _obj' @@ -191,11 +521,14 @@ touchManagedPtr _obj return result' +data EventBoxGetAboveChildMethodInfo +instance (signature ~ (m Bool), MonadIO m, EventBoxK a) => MethodInfo EventBoxGetAboveChildMethodInfo a signature where + overloadedMethod _ = eventBoxGetAboveChild + -- method EventBox::get_visible_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -207,8 +540,8 @@ eventBoxGetVisibleWindow :: (MonadIO m, EventBoxK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result eventBoxGetVisibleWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_event_box_get_visible_window _obj' @@ -216,11 +549,14 @@ touchManagedPtr _obj return result' +data EventBoxGetVisibleWindowMethodInfo +instance (signature ~ (m Bool), MonadIO m, EventBoxK a) => MethodInfo EventBoxGetVisibleWindowMethodInfo a signature where + overloadedMethod _ = eventBoxGetVisibleWindow + -- method EventBox::set_above_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "above_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -233,21 +569,24 @@ eventBoxSetAboveChild :: (MonadIO m, EventBoxK a) => - a -> -- _obj - Bool -> -- above_child - m () -eventBoxSetAboveChild _obj above_child = liftIO $ do + a -- _obj + -> Bool -- aboveChild + -> m () -- result +eventBoxSetAboveChild _obj aboveChild = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let above_child' = (fromIntegral . fromEnum) above_child - gtk_event_box_set_above_child _obj' above_child' + let aboveChild' = (fromIntegral . fromEnum) aboveChild + gtk_event_box_set_above_child _obj' aboveChild' touchManagedPtr _obj return () +data EventBoxSetAboveChildMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, EventBoxK a) => MethodInfo EventBoxSetAboveChildMethodInfo a signature where + overloadedMethod _ = eventBoxSetAboveChild + -- method EventBox::set_visible_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -260,14 +599,18 @@ eventBoxSetVisibleWindow :: (MonadIO m, EventBoxK a) => - a -> -- _obj - Bool -> -- visible_window - m () -eventBoxSetVisibleWindow _obj visible_window = liftIO $ do + a -- _obj + -> Bool -- visibleWindow + -> m () -- result +eventBoxSetVisibleWindow _obj visibleWindow = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let visible_window' = (fromIntegral . fromEnum) visible_window - gtk_event_box_set_visible_window _obj' visible_window' + let visibleWindow' = (fromIntegral . fromEnum) visibleWindow + gtk_event_box_set_visible_window _obj' visibleWindow' touchManagedPtr _obj return () + +data EventBoxSetVisibleWindowMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, EventBoxK a) => MethodInfo EventBoxSetVisibleWindowMethodInfo a signature where + overloadedMethod _ = eventBoxSetVisibleWindow diff --git a/GI/Gtk/Objects/EventBox.hs-boot b/GI/Gtk/Objects/EventBox.hs-boot --- a/GI/Gtk/Objects/EventBox.hs-boot +++ b/GI/Gtk/Objects/EventBox.hs-boot @@ -13,3 +13,7 @@ instance (GObject o, IsDescendantOf EventBox o) => EventBoxK o data EventBoxAboveChildPropertyInfo data EventBoxVisibleWindowPropertyInfo +data EventBoxGetAboveChildMethodInfo +data EventBoxGetVisibleWindowMethodInfo +data EventBoxSetAboveChildMethodInfo +data EventBoxSetVisibleWindowMethodInfo diff --git a/GI/Gtk/Objects/EventController.hs b/GI/Gtk/Objects/EventController.hs --- a/GI/Gtk/Objects/EventController.hs +++ b/GI/Gtk/Objects/EventController.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** eventControllerGetPropagationPhase + EventControllerGetPropagationPhaseMethodInfo, eventControllerGetPropagationPhase , -- ** eventControllerGetWidget + EventControllerGetWidgetMethodInfo , eventControllerGetWidget , -- ** eventControllerHandleEvent + EventControllerHandleEventMethodInfo , eventControllerHandleEvent , -- ** eventControllerReset + EventControllerResetMethodInfo , eventControllerReset , -- ** eventControllerSetPropagationPhase + EventControllerSetPropagationPhaseMethodInfo, eventControllerSetPropagationPhase , @@ -89,6 +95,44 @@ noEventController :: Maybe EventController noEventController = Nothing +type family ResolveEventControllerMethod (t :: Symbol) (o :: *) :: * where + ResolveEventControllerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveEventControllerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveEventControllerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveEventControllerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveEventControllerMethod "handleEvent" o = EventControllerHandleEventMethodInfo + ResolveEventControllerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveEventControllerMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveEventControllerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveEventControllerMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveEventControllerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveEventControllerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveEventControllerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveEventControllerMethod "reset" o = EventControllerResetMethodInfo + ResolveEventControllerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveEventControllerMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveEventControllerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveEventControllerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveEventControllerMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveEventControllerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveEventControllerMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveEventControllerMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo + ResolveEventControllerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveEventControllerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveEventControllerMethod "getWidget" o = EventControllerGetWidgetMethodInfo + ResolveEventControllerMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveEventControllerMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo + ResolveEventControllerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveEventControllerMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveEventControllerMethod t EventController, MethodInfo info EventController p) => IsLabelProxy t (EventController -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveEventControllerMethod t EventController, MethodInfo info EventController p) => IsLabel t (EventController -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "propagation-phase" -- Type: TInterface "Gtk" "PropagationPhase" -- Flags: [PropertyReadable,PropertyWritable] @@ -108,7 +152,7 @@ type AttrSetTypeConstraint EventControllerPropagationPhasePropertyInfo = (~) PropagationPhase type AttrBaseTypeConstraint EventControllerPropagationPhasePropertyInfo = EventControllerK type AttrGetType EventControllerPropagationPhasePropertyInfo = PropagationPhase - type AttrLabel EventControllerPropagationPhasePropertyInfo = "EventController::propagation-phase" + type AttrLabel EventControllerPropagationPhasePropertyInfo = "propagation-phase" attrGet _ = getEventControllerPropagationPhase attrSet _ = setEventControllerPropagationPhase attrConstruct _ = constructEventControllerPropagationPhase @@ -129,22 +173,21 @@ type AttrSetTypeConstraint EventControllerWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint EventControllerWidgetPropertyInfo = EventControllerK type AttrGetType EventControllerWidgetPropertyInfo = Widget - type AttrLabel EventControllerWidgetPropertyInfo = "EventController::widget" + type AttrLabel EventControllerWidgetPropertyInfo = "widget" attrGet _ = getEventControllerWidget attrSet _ = undefined attrConstruct _ = constructEventControllerWidget type instance AttributeList EventController = EventControllerAttributeList -type EventControllerAttributeList = ('[ '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo)] :: [(Symbol, *)]) +type EventControllerAttributeList = ('[ '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList EventController = EventControllerSignalList -type EventControllerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type EventControllerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method EventController::get_propagation_phase -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PropagationPhase" -- throws : False -- Skip return : False @@ -156,8 +199,8 @@ eventControllerGetPropagationPhase :: (MonadIO m, EventControllerK a) => - a -> -- _obj - m PropagationPhase + a -- _obj + -> m PropagationPhase -- result eventControllerGetPropagationPhase _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_event_controller_get_propagation_phase _obj' @@ -165,11 +208,14 @@ touchManagedPtr _obj return result' +data EventControllerGetPropagationPhaseMethodInfo +instance (signature ~ (m PropagationPhase), MonadIO m, EventControllerK a) => MethodInfo EventControllerGetPropagationPhaseMethodInfo a signature where + overloadedMethod _ = eventControllerGetPropagationPhase + -- method EventController::get_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -181,8 +227,8 @@ eventControllerGetWidget :: (MonadIO m, EventControllerK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result eventControllerGetWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_event_controller_get_widget _obj' @@ -191,11 +237,14 @@ touchManagedPtr _obj return result' +data EventControllerGetWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, EventControllerK a) => MethodInfo EventControllerGetWidgetMethodInfo a signature where + overloadedMethod _ = eventControllerGetWidget + -- method EventController::handle_event -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -208,9 +257,9 @@ eventControllerHandleEvent :: (MonadIO m, EventControllerK a) => - a -> -- _obj - Gdk.Event -> -- event - m Bool + a -- _obj + -> Gdk.Event -- event + -> m Bool -- result eventControllerHandleEvent _obj event = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let event' = unsafeManagedPtrGetPtr event @@ -220,11 +269,14 @@ touchManagedPtr event return result' +data EventControllerHandleEventMethodInfo +instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, EventControllerK a) => MethodInfo EventControllerHandleEventMethodInfo a signature where + overloadedMethod _ = eventControllerHandleEvent + -- method EventController::reset -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -236,19 +288,22 @@ eventControllerReset :: (MonadIO m, EventControllerK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result eventControllerReset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_event_controller_reset _obj' touchManagedPtr _obj return () +data EventControllerResetMethodInfo +instance (signature ~ (m ()), MonadIO m, EventControllerK a) => MethodInfo EventControllerResetMethodInfo a signature where + overloadedMethod _ = eventControllerReset + -- method EventController::set_propagation_phase -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "phase", argType = TInterface "Gtk" "PropagationPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "phase", argType = TInterface "Gtk" "PropagationPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "phase", argType = TInterface "Gtk" "PropagationPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -261,14 +316,18 @@ eventControllerSetPropagationPhase :: (MonadIO m, EventControllerK a) => - a -> -- _obj - PropagationPhase -> -- phase - m () + a -- _obj + -> PropagationPhase -- phase + -> m () -- result eventControllerSetPropagationPhase _obj phase = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let phase' = (fromIntegral . fromEnum) phase gtk_event_controller_set_propagation_phase _obj' phase' touchManagedPtr _obj return () + +data EventControllerSetPropagationPhaseMethodInfo +instance (signature ~ (PropagationPhase -> m ()), MonadIO m, EventControllerK a) => MethodInfo EventControllerSetPropagationPhaseMethodInfo a signature where + overloadedMethod _ = eventControllerSetPropagationPhase diff --git a/GI/Gtk/Objects/EventController.hs-boot b/GI/Gtk/Objects/EventController.hs-boot --- a/GI/Gtk/Objects/EventController.hs-boot +++ b/GI/Gtk/Objects/EventController.hs-boot @@ -13,3 +13,8 @@ instance (GObject o, IsDescendantOf EventController o) => EventControllerK o data EventControllerPropagationPhasePropertyInfo data EventControllerWidgetPropertyInfo +data EventControllerGetPropagationPhaseMethodInfo +data EventControllerGetWidgetMethodInfo +data EventControllerHandleEventMethodInfo +data EventControllerResetMethodInfo +data EventControllerSetPropagationPhaseMethodInfo diff --git a/GI/Gtk/Objects/Expander.hs b/GI/Gtk/Objects/Expander.hs --- a/GI/Gtk/Objects/Expander.hs +++ b/GI/Gtk/Objects/Expander.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * Methods -- ** expanderGetExpanded + ExpanderGetExpandedMethodInfo , expanderGetExpanded , -- ** expanderGetLabel + ExpanderGetLabelMethodInfo , expanderGetLabel , -- ** expanderGetLabelFill + ExpanderGetLabelFillMethodInfo , expanderGetLabelFill , -- ** expanderGetLabelWidget + ExpanderGetLabelWidgetMethodInfo , expanderGetLabelWidget , -- ** expanderGetResizeToplevel + ExpanderGetResizeToplevelMethodInfo , expanderGetResizeToplevel , -- ** expanderGetSpacing + ExpanderGetSpacingMethodInfo , expanderGetSpacing , -- ** expanderGetUseMarkup + ExpanderGetUseMarkupMethodInfo , expanderGetUseMarkup , -- ** expanderGetUseUnderline + ExpanderGetUseUnderlineMethodInfo , expanderGetUseUnderline , @@ -57,34 +66,42 @@ -- ** expanderSetExpanded + ExpanderSetExpandedMethodInfo , expanderSetExpanded , -- ** expanderSetLabel + ExpanderSetLabelMethodInfo , expanderSetLabel , -- ** expanderSetLabelFill + ExpanderSetLabelFillMethodInfo , expanderSetLabelFill , -- ** expanderSetLabelWidget + ExpanderSetLabelWidgetMethodInfo , expanderSetLabelWidget , -- ** expanderSetResizeToplevel + ExpanderSetResizeToplevelMethodInfo , expanderSetResizeToplevel , -- ** expanderSetSpacing + ExpanderSetSpacingMethodInfo , expanderSetSpacing , -- ** expanderSetUseMarkup + ExpanderSetUseMarkupMethodInfo , expanderSetUseMarkup , -- ** expanderSetUseUnderline + ExpanderSetUseUnderlineMethodInfo , expanderSetUseUnderline , @@ -199,6 +216,345 @@ noExpander :: Maybe Expander noExpander = Nothing +type family ResolveExpanderMethod (t :: Symbol) (o :: *) :: * where + ResolveExpanderMethod "activate" o = WidgetActivateMethodInfo + ResolveExpanderMethod "add" o = ContainerAddMethodInfo + ResolveExpanderMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveExpanderMethod "addChild" o = BuildableAddChildMethodInfo + ResolveExpanderMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveExpanderMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveExpanderMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveExpanderMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveExpanderMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveExpanderMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveExpanderMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveExpanderMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveExpanderMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveExpanderMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveExpanderMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveExpanderMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveExpanderMethod "childType" o = ContainerChildTypeMethodInfo + ResolveExpanderMethod "classPath" o = WidgetClassPathMethodInfo + ResolveExpanderMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveExpanderMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveExpanderMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveExpanderMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveExpanderMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveExpanderMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveExpanderMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveExpanderMethod "destroy" o = WidgetDestroyMethodInfo + ResolveExpanderMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveExpanderMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveExpanderMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveExpanderMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveExpanderMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveExpanderMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveExpanderMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveExpanderMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveExpanderMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveExpanderMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveExpanderMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveExpanderMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveExpanderMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveExpanderMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveExpanderMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveExpanderMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveExpanderMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveExpanderMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveExpanderMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveExpanderMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveExpanderMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveExpanderMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveExpanderMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveExpanderMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveExpanderMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveExpanderMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveExpanderMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveExpanderMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveExpanderMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveExpanderMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveExpanderMethod "draw" o = WidgetDrawMethodInfo + ResolveExpanderMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveExpanderMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveExpanderMethod "event" o = WidgetEventMethodInfo + ResolveExpanderMethod "forall" o = ContainerForallMethodInfo + ResolveExpanderMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveExpanderMethod "foreach" o = ContainerForeachMethodInfo + ResolveExpanderMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveExpanderMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveExpanderMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveExpanderMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveExpanderMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveExpanderMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveExpanderMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveExpanderMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveExpanderMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveExpanderMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveExpanderMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveExpanderMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveExpanderMethod "hide" o = WidgetHideMethodInfo + ResolveExpanderMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveExpanderMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveExpanderMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveExpanderMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveExpanderMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveExpanderMethod "intersect" o = WidgetIntersectMethodInfo + ResolveExpanderMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveExpanderMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveExpanderMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveExpanderMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveExpanderMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveExpanderMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveExpanderMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveExpanderMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveExpanderMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveExpanderMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveExpanderMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveExpanderMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveExpanderMethod "map" o = WidgetMapMethodInfo + ResolveExpanderMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveExpanderMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveExpanderMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveExpanderMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveExpanderMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveExpanderMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveExpanderMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveExpanderMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveExpanderMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveExpanderMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveExpanderMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveExpanderMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveExpanderMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveExpanderMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveExpanderMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveExpanderMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveExpanderMethod "path" o = WidgetPathMethodInfo + ResolveExpanderMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveExpanderMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveExpanderMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveExpanderMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveExpanderMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveExpanderMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveExpanderMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveExpanderMethod "realize" o = WidgetRealizeMethodInfo + ResolveExpanderMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveExpanderMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveExpanderMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveExpanderMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveExpanderMethod "remove" o = ContainerRemoveMethodInfo + ResolveExpanderMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveExpanderMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveExpanderMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveExpanderMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveExpanderMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveExpanderMethod "reparent" o = WidgetReparentMethodInfo + ResolveExpanderMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveExpanderMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveExpanderMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveExpanderMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveExpanderMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveExpanderMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveExpanderMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveExpanderMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveExpanderMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveExpanderMethod "show" o = WidgetShowMethodInfo + ResolveExpanderMethod "showAll" o = WidgetShowAllMethodInfo + ResolveExpanderMethod "showNow" o = WidgetShowNowMethodInfo + ResolveExpanderMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveExpanderMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveExpanderMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveExpanderMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveExpanderMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveExpanderMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveExpanderMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveExpanderMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveExpanderMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveExpanderMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveExpanderMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveExpanderMethod "unmap" o = WidgetUnmapMethodInfo + ResolveExpanderMethod "unparent" o = WidgetUnparentMethodInfo + ResolveExpanderMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveExpanderMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveExpanderMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveExpanderMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveExpanderMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveExpanderMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveExpanderMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveExpanderMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveExpanderMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveExpanderMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveExpanderMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveExpanderMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveExpanderMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveExpanderMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveExpanderMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveExpanderMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveExpanderMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveExpanderMethod "getChild" o = BinGetChildMethodInfo + ResolveExpanderMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveExpanderMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveExpanderMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveExpanderMethod "getClip" o = WidgetGetClipMethodInfo + ResolveExpanderMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveExpanderMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveExpanderMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveExpanderMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveExpanderMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveExpanderMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveExpanderMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveExpanderMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveExpanderMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveExpanderMethod "getExpanded" o = ExpanderGetExpandedMethodInfo + ResolveExpanderMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveExpanderMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveExpanderMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveExpanderMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveExpanderMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveExpanderMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveExpanderMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveExpanderMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveExpanderMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveExpanderMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveExpanderMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveExpanderMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveExpanderMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveExpanderMethod "getLabel" o = ExpanderGetLabelMethodInfo + ResolveExpanderMethod "getLabelFill" o = ExpanderGetLabelFillMethodInfo + ResolveExpanderMethod "getLabelWidget" o = ExpanderGetLabelWidgetMethodInfo + ResolveExpanderMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveExpanderMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveExpanderMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveExpanderMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveExpanderMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveExpanderMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveExpanderMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveExpanderMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveExpanderMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveExpanderMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveExpanderMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveExpanderMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveExpanderMethod "getParent" o = WidgetGetParentMethodInfo + ResolveExpanderMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveExpanderMethod "getPath" o = WidgetGetPathMethodInfo + ResolveExpanderMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveExpanderMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveExpanderMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveExpanderMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveExpanderMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveExpanderMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveExpanderMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveExpanderMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveExpanderMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveExpanderMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveExpanderMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveExpanderMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveExpanderMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveExpanderMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveExpanderMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveExpanderMethod "getResizeToplevel" o = ExpanderGetResizeToplevelMethodInfo + ResolveExpanderMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveExpanderMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveExpanderMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveExpanderMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveExpanderMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveExpanderMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveExpanderMethod "getSpacing" o = ExpanderGetSpacingMethodInfo + ResolveExpanderMethod "getState" o = WidgetGetStateMethodInfo + ResolveExpanderMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveExpanderMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveExpanderMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveExpanderMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveExpanderMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveExpanderMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveExpanderMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveExpanderMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveExpanderMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveExpanderMethod "getUseMarkup" o = ExpanderGetUseMarkupMethodInfo + ResolveExpanderMethod "getUseUnderline" o = ExpanderGetUseUnderlineMethodInfo + ResolveExpanderMethod "getValign" o = WidgetGetValignMethodInfo + ResolveExpanderMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveExpanderMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveExpanderMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveExpanderMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveExpanderMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveExpanderMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveExpanderMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveExpanderMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveExpanderMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveExpanderMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveExpanderMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveExpanderMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveExpanderMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveExpanderMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveExpanderMethod "setClip" o = WidgetSetClipMethodInfo + ResolveExpanderMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveExpanderMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveExpanderMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveExpanderMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveExpanderMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveExpanderMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveExpanderMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveExpanderMethod "setExpanded" o = ExpanderSetExpandedMethodInfo + ResolveExpanderMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveExpanderMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveExpanderMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveExpanderMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveExpanderMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveExpanderMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveExpanderMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveExpanderMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveExpanderMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveExpanderMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveExpanderMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveExpanderMethod "setLabel" o = ExpanderSetLabelMethodInfo + ResolveExpanderMethod "setLabelFill" o = ExpanderSetLabelFillMethodInfo + ResolveExpanderMethod "setLabelWidget" o = ExpanderSetLabelWidgetMethodInfo + ResolveExpanderMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveExpanderMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveExpanderMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveExpanderMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveExpanderMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveExpanderMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveExpanderMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveExpanderMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveExpanderMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveExpanderMethod "setParent" o = WidgetSetParentMethodInfo + ResolveExpanderMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveExpanderMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveExpanderMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveExpanderMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveExpanderMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveExpanderMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveExpanderMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveExpanderMethod "setResizeToplevel" o = ExpanderSetResizeToplevelMethodInfo + ResolveExpanderMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveExpanderMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveExpanderMethod "setSpacing" o = ExpanderSetSpacingMethodInfo + ResolveExpanderMethod "setState" o = WidgetSetStateMethodInfo + ResolveExpanderMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveExpanderMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveExpanderMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveExpanderMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveExpanderMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveExpanderMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveExpanderMethod "setUseMarkup" o = ExpanderSetUseMarkupMethodInfo + ResolveExpanderMethod "setUseUnderline" o = ExpanderSetUseUnderlineMethodInfo + ResolveExpanderMethod "setValign" o = WidgetSetValignMethodInfo + ResolveExpanderMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveExpanderMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveExpanderMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveExpanderMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveExpanderMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveExpanderMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveExpanderMethod t Expander, MethodInfo info Expander p) => IsLabelProxy t (Expander -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveExpanderMethod t Expander, MethodInfo info Expander p) => IsLabel t (Expander -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Expander::activate type ExpanderActivateCallback = IO () @@ -256,7 +612,7 @@ type AttrSetTypeConstraint ExpanderExpandedPropertyInfo = (~) Bool type AttrBaseTypeConstraint ExpanderExpandedPropertyInfo = ExpanderK type AttrGetType ExpanderExpandedPropertyInfo = Bool - type AttrLabel ExpanderExpandedPropertyInfo = "Expander::expanded" + type AttrLabel ExpanderExpandedPropertyInfo = "expanded" attrGet _ = getExpanderExpanded attrSet _ = setExpanderExpanded attrConstruct _ = constructExpanderExpanded @@ -280,7 +636,7 @@ type AttrSetTypeConstraint ExpanderLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ExpanderLabelPropertyInfo = ExpanderK type AttrGetType ExpanderLabelPropertyInfo = T.Text - type AttrLabel ExpanderLabelPropertyInfo = "Expander::label" + type AttrLabel ExpanderLabelPropertyInfo = "label" attrGet _ = getExpanderLabel attrSet _ = setExpanderLabel attrConstruct _ = constructExpanderLabel @@ -304,7 +660,7 @@ type AttrSetTypeConstraint ExpanderLabelFillPropertyInfo = (~) Bool type AttrBaseTypeConstraint ExpanderLabelFillPropertyInfo = ExpanderK type AttrGetType ExpanderLabelFillPropertyInfo = Bool - type AttrLabel ExpanderLabelFillPropertyInfo = "Expander::label-fill" + type AttrLabel ExpanderLabelFillPropertyInfo = "label-fill" attrGet _ = getExpanderLabelFill attrSet _ = setExpanderLabelFill attrConstruct _ = constructExpanderLabelFill @@ -328,7 +684,7 @@ type AttrSetTypeConstraint ExpanderLabelWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint ExpanderLabelWidgetPropertyInfo = ExpanderK type AttrGetType ExpanderLabelWidgetPropertyInfo = Widget - type AttrLabel ExpanderLabelWidgetPropertyInfo = "Expander::label-widget" + type AttrLabel ExpanderLabelWidgetPropertyInfo = "label-widget" attrGet _ = getExpanderLabelWidget attrSet _ = setExpanderLabelWidget attrConstruct _ = constructExpanderLabelWidget @@ -352,7 +708,7 @@ type AttrSetTypeConstraint ExpanderResizeToplevelPropertyInfo = (~) Bool type AttrBaseTypeConstraint ExpanderResizeToplevelPropertyInfo = ExpanderK type AttrGetType ExpanderResizeToplevelPropertyInfo = Bool - type AttrLabel ExpanderResizeToplevelPropertyInfo = "Expander::resize-toplevel" + type AttrLabel ExpanderResizeToplevelPropertyInfo = "resize-toplevel" attrGet _ = getExpanderResizeToplevel attrSet _ = setExpanderResizeToplevel attrConstruct _ = constructExpanderResizeToplevel @@ -376,7 +732,7 @@ type AttrSetTypeConstraint ExpanderSpacingPropertyInfo = (~) Int32 type AttrBaseTypeConstraint ExpanderSpacingPropertyInfo = ExpanderK type AttrGetType ExpanderSpacingPropertyInfo = Int32 - type AttrLabel ExpanderSpacingPropertyInfo = "Expander::spacing" + type AttrLabel ExpanderSpacingPropertyInfo = "spacing" attrGet _ = getExpanderSpacing attrSet _ = setExpanderSpacing attrConstruct _ = constructExpanderSpacing @@ -400,7 +756,7 @@ type AttrSetTypeConstraint ExpanderUseMarkupPropertyInfo = (~) Bool type AttrBaseTypeConstraint ExpanderUseMarkupPropertyInfo = ExpanderK type AttrGetType ExpanderUseMarkupPropertyInfo = Bool - type AttrLabel ExpanderUseMarkupPropertyInfo = "Expander::use-markup" + type AttrLabel ExpanderUseMarkupPropertyInfo = "use-markup" attrGet _ = getExpanderUseMarkup attrSet _ = setExpanderUseMarkup attrConstruct _ = constructExpanderUseMarkup @@ -424,13 +780,13 @@ type AttrSetTypeConstraint ExpanderUseUnderlinePropertyInfo = (~) Bool type AttrBaseTypeConstraint ExpanderUseUnderlinePropertyInfo = ExpanderK type AttrGetType ExpanderUseUnderlinePropertyInfo = Bool - type AttrLabel ExpanderUseUnderlinePropertyInfo = "Expander::use-underline" + type AttrLabel ExpanderUseUnderlinePropertyInfo = "use-underline" attrGet _ = getExpanderUseUnderline attrSet _ = setExpanderUseUnderline attrConstruct _ = constructExpanderUseUnderline type instance AttributeList Expander = ExpanderAttributeList -type ExpanderAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expanded", ExpanderExpandedPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ExpanderLabelPropertyInfo), '("label-fill", ExpanderLabelFillPropertyInfo), '("label-widget", ExpanderLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("resize-toplevel", ExpanderResizeToplevelPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", ExpanderSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-markup", ExpanderUseMarkupPropertyInfo), '("use-underline", ExpanderUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ExpanderAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expanded", ExpanderExpandedPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ExpanderLabelPropertyInfo), '("labelFill", ExpanderLabelFillPropertyInfo), '("labelWidget", ExpanderLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("resizeToplevel", ExpanderResizeToplevelPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", ExpanderSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useMarkup", ExpanderUseMarkupPropertyInfo), '("useUnderline", ExpanderUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data ExpanderActivateSignalInfo instance SignalInfo ExpanderActivateSignalInfo where @@ -438,13 +794,12 @@ connectSignal _ = connectExpanderActivate type instance SignalList Expander = ExpanderSignalList -type ExpanderSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ExpanderActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ExpanderSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ExpanderActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Expander::new -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Expander" -- throws : False -- Skip return : False @@ -456,8 +811,8 @@ expanderNew :: (MonadIO m) => - T.Text -> -- label - m Expander + T.Text -- label + -> m Expander -- result expanderNew label = liftIO $ do label' <- textToCString label result <- gtk_expander_new label' @@ -468,9 +823,8 @@ -- method Expander::new_with_mnemonic -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Expander" -- throws : False -- Skip return : False @@ -482,8 +836,8 @@ expanderNewWithMnemonic :: (MonadIO m) => - Maybe (T.Text) -> -- label - m Expander + Maybe (T.Text) -- label + -> m Expander -- result expanderNewWithMnemonic label = liftIO $ do maybeLabel <- case label of Nothing -> return nullPtr @@ -498,9 +852,8 @@ -- method Expander::get_expanded -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -512,8 +865,8 @@ expanderGetExpanded :: (MonadIO m, ExpanderK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result expanderGetExpanded _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_expander_get_expanded _obj' @@ -521,11 +874,14 @@ touchManagedPtr _obj return result' +data ExpanderGetExpandedMethodInfo +instance (signature ~ (m Bool), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetExpandedMethodInfo a signature where + overloadedMethod _ = expanderGetExpanded + -- method Expander::get_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -537,8 +893,8 @@ expanderGetLabel :: (MonadIO m, ExpanderK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result expanderGetLabel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_expander_get_label _obj' @@ -547,11 +903,14 @@ touchManagedPtr _obj return result' +data ExpanderGetLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetLabelMethodInfo a signature where + overloadedMethod _ = expanderGetLabel + -- method Expander::get_label_fill -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -563,8 +922,8 @@ expanderGetLabelFill :: (MonadIO m, ExpanderK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result expanderGetLabelFill _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_expander_get_label_fill _obj' @@ -572,11 +931,14 @@ touchManagedPtr _obj return result' +data ExpanderGetLabelFillMethodInfo +instance (signature ~ (m Bool), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetLabelFillMethodInfo a signature where + overloadedMethod _ = expanderGetLabelFill + -- method Expander::get_label_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -588,8 +950,8 @@ expanderGetLabelWidget :: (MonadIO m, ExpanderK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result expanderGetLabelWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_expander_get_label_widget _obj' @@ -598,11 +960,14 @@ touchManagedPtr _obj return result' +data ExpanderGetLabelWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetLabelWidgetMethodInfo a signature where + overloadedMethod _ = expanderGetLabelWidget + -- method Expander::get_resize_toplevel -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -614,8 +979,8 @@ expanderGetResizeToplevel :: (MonadIO m, ExpanderK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result expanderGetResizeToplevel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_expander_get_resize_toplevel _obj' @@ -623,11 +988,14 @@ touchManagedPtr _obj return result' +data ExpanderGetResizeToplevelMethodInfo +instance (signature ~ (m Bool), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetResizeToplevelMethodInfo a signature where + overloadedMethod _ = expanderGetResizeToplevel + -- method Expander::get_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -639,19 +1007,22 @@ expanderGetSpacing :: (MonadIO m, ExpanderK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result expanderGetSpacing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_expander_get_spacing _obj' touchManagedPtr _obj return result +data ExpanderGetSpacingMethodInfo +instance (signature ~ (m Int32), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetSpacingMethodInfo a signature where + overloadedMethod _ = expanderGetSpacing + -- method Expander::get_use_markup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -663,8 +1034,8 @@ expanderGetUseMarkup :: (MonadIO m, ExpanderK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result expanderGetUseMarkup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_expander_get_use_markup _obj' @@ -672,11 +1043,14 @@ touchManagedPtr _obj return result' +data ExpanderGetUseMarkupMethodInfo +instance (signature ~ (m Bool), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetUseMarkupMethodInfo a signature where + overloadedMethod _ = expanderGetUseMarkup + -- method Expander::get_use_underline -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -688,8 +1062,8 @@ expanderGetUseUnderline :: (MonadIO m, ExpanderK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result expanderGetUseUnderline _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_expander_get_use_underline _obj' @@ -697,11 +1071,14 @@ touchManagedPtr _obj return result' +data ExpanderGetUseUnderlineMethodInfo +instance (signature ~ (m Bool), MonadIO m, ExpanderK a) => MethodInfo ExpanderGetUseUnderlineMethodInfo a signature where + overloadedMethod _ = expanderGetUseUnderline + -- method Expander::set_expanded -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -714,9 +1091,9 @@ expanderSetExpanded :: (MonadIO m, ExpanderK a) => - a -> -- _obj - Bool -> -- expanded - m () + a -- _obj + -> Bool -- expanded + -> m () -- result expanderSetExpanded _obj expanded = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let expanded' = (fromIntegral . fromEnum) expanded @@ -724,11 +1101,14 @@ touchManagedPtr _obj return () +data ExpanderSetExpandedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetExpandedMethodInfo a signature where + overloadedMethod _ = expanderSetExpanded + -- method Expander::set_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -741,9 +1121,9 @@ expanderSetLabel :: (MonadIO m, ExpanderK a) => - a -> -- _obj - Maybe (T.Text) -> -- label - m () + a -- _obj + -> Maybe (T.Text) -- label + -> m () -- result expanderSetLabel _obj label = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLabel <- case label of @@ -756,11 +1136,14 @@ freeMem maybeLabel return () +data ExpanderSetLabelMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetLabelMethodInfo a signature where + overloadedMethod _ = expanderSetLabel + -- method Expander::set_label_fill -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -773,21 +1156,24 @@ expanderSetLabelFill :: (MonadIO m, ExpanderK a) => - a -> -- _obj - Bool -> -- label_fill - m () -expanderSetLabelFill _obj label_fill = liftIO $ do + a -- _obj + -> Bool -- labelFill + -> m () -- result +expanderSetLabelFill _obj labelFill = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let label_fill' = (fromIntegral . fromEnum) label_fill - gtk_expander_set_label_fill _obj' label_fill' + let labelFill' = (fromIntegral . fromEnum) labelFill + gtk_expander_set_label_fill _obj' labelFill' touchManagedPtr _obj return () +data ExpanderSetLabelFillMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetLabelFillMethodInfo a signature where + overloadedMethod _ = expanderSetLabelFill + -- method Expander::set_label_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -800,26 +1186,29 @@ expanderSetLabelWidget :: (MonadIO m, ExpanderK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- label_widget - m () -expanderSetLabelWidget _obj label_widget = liftIO $ do + a -- _obj + -> Maybe (b) -- labelWidget + -> m () -- result +expanderSetLabelWidget _obj labelWidget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel_widget <- case label_widget of + maybeLabelWidget <- case labelWidget of Nothing -> return nullPtr - Just jLabel_widget -> do - let jLabel_widget' = unsafeManagedPtrCastPtr jLabel_widget - return jLabel_widget' - gtk_expander_set_label_widget _obj' maybeLabel_widget + Just jLabelWidget -> do + let jLabelWidget' = unsafeManagedPtrCastPtr jLabelWidget + return jLabelWidget' + gtk_expander_set_label_widget _obj' maybeLabelWidget touchManagedPtr _obj - whenJust label_widget touchManagedPtr + whenJust labelWidget touchManagedPtr return () +data ExpanderSetLabelWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ExpanderK a, WidgetK b) => MethodInfo ExpanderSetLabelWidgetMethodInfo a signature where + overloadedMethod _ = expanderSetLabelWidget + -- method Expander::set_resize_toplevel -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize_toplevel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize_toplevel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize_toplevel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -832,21 +1221,24 @@ expanderSetResizeToplevel :: (MonadIO m, ExpanderK a) => - a -> -- _obj - Bool -> -- resize_toplevel - m () -expanderSetResizeToplevel _obj resize_toplevel = liftIO $ do + a -- _obj + -> Bool -- resizeToplevel + -> m () -- result +expanderSetResizeToplevel _obj resizeToplevel = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let resize_toplevel' = (fromIntegral . fromEnum) resize_toplevel - gtk_expander_set_resize_toplevel _obj' resize_toplevel' + let resizeToplevel' = (fromIntegral . fromEnum) resizeToplevel + gtk_expander_set_resize_toplevel _obj' resizeToplevel' touchManagedPtr _obj return () +data ExpanderSetResizeToplevelMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetResizeToplevelMethodInfo a signature where + overloadedMethod _ = expanderSetResizeToplevel + -- method Expander::set_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -859,20 +1251,23 @@ expanderSetSpacing :: (MonadIO m, ExpanderK a) => - a -> -- _obj - Int32 -> -- spacing - m () + a -- _obj + -> Int32 -- spacing + -> m () -- result expanderSetSpacing _obj spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_expander_set_spacing _obj' spacing touchManagedPtr _obj return () +data ExpanderSetSpacingMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetSpacingMethodInfo a signature where + overloadedMethod _ = expanderSetSpacing + -- method Expander::set_use_markup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_markup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_markup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_markup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -885,21 +1280,24 @@ expanderSetUseMarkup :: (MonadIO m, ExpanderK a) => - a -> -- _obj - Bool -> -- use_markup - m () -expanderSetUseMarkup _obj use_markup = liftIO $ do + a -- _obj + -> Bool -- useMarkup + -> m () -- result +expanderSetUseMarkup _obj useMarkup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_markup' = (fromIntegral . fromEnum) use_markup - gtk_expander_set_use_markup _obj' use_markup' + let useMarkup' = (fromIntegral . fromEnum) useMarkup + gtk_expander_set_use_markup _obj' useMarkup' touchManagedPtr _obj return () +data ExpanderSetUseMarkupMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetUseMarkupMethodInfo a signature where + overloadedMethod _ = expanderSetUseMarkup + -- method Expander::set_use_underline -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -912,14 +1310,18 @@ expanderSetUseUnderline :: (MonadIO m, ExpanderK a) => - a -> -- _obj - Bool -> -- use_underline - m () -expanderSetUseUnderline _obj use_underline = liftIO $ do + a -- _obj + -> Bool -- useUnderline + -> m () -- result +expanderSetUseUnderline _obj useUnderline = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_underline' = (fromIntegral . fromEnum) use_underline - gtk_expander_set_use_underline _obj' use_underline' + let useUnderline' = (fromIntegral . fromEnum) useUnderline + gtk_expander_set_use_underline _obj' useUnderline' touchManagedPtr _obj return () + +data ExpanderSetUseUnderlineMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ExpanderK a) => MethodInfo ExpanderSetUseUnderlineMethodInfo a signature where + overloadedMethod _ = expanderSetUseUnderline diff --git a/GI/Gtk/Objects/Expander.hs-boot b/GI/Gtk/Objects/Expander.hs-boot --- a/GI/Gtk/Objects/Expander.hs-boot +++ b/GI/Gtk/Objects/Expander.hs-boot @@ -20,3 +20,19 @@ data ExpanderUseMarkupPropertyInfo data ExpanderUseUnderlinePropertyInfo data ExpanderActivateSignalInfo +data ExpanderGetExpandedMethodInfo +data ExpanderGetLabelMethodInfo +data ExpanderGetLabelFillMethodInfo +data ExpanderGetLabelWidgetMethodInfo +data ExpanderGetResizeToplevelMethodInfo +data ExpanderGetSpacingMethodInfo +data ExpanderGetUseMarkupMethodInfo +data ExpanderGetUseUnderlineMethodInfo +data ExpanderSetExpandedMethodInfo +data ExpanderSetLabelMethodInfo +data ExpanderSetLabelFillMethodInfo +data ExpanderSetLabelWidgetMethodInfo +data ExpanderSetResizeToplevelMethodInfo +data ExpanderSetSpacingMethodInfo +data ExpanderSetUseMarkupMethodInfo +data ExpanderSetUseUnderlineMethodInfo diff --git a/GI/Gtk/Objects/ExpanderAccessible.hs b/GI/Gtk/Objects/ExpanderAccessible.hs --- a/GI/Gtk/Objects/ExpanderAccessible.hs +++ b/GI/Gtk/Objects/ExpanderAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,79 @@ noExpanderAccessible :: Maybe ExpanderAccessible noExpanderAccessible = Nothing +type family ResolveExpanderAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveExpanderAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveExpanderAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveExpanderAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveExpanderAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveExpanderAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveExpanderAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveExpanderAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveExpanderAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveExpanderAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveExpanderAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveExpanderAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveExpanderAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveExpanderAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveExpanderAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveExpanderAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveExpanderAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveExpanderAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveExpanderAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveExpanderAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveExpanderAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveExpanderAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveExpanderAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveExpanderAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveExpanderAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveExpanderAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveExpanderAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveExpanderAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveExpanderAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveExpanderAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveExpanderAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveExpanderAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveExpanderAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveExpanderAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveExpanderAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveExpanderAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveExpanderAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveExpanderAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveExpanderAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveExpanderAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveExpanderAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveExpanderAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveExpanderAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveExpanderAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveExpanderAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveExpanderAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveExpanderAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveExpanderAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveExpanderAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveExpanderAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveExpanderAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveExpanderAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveExpanderAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveExpanderAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveExpanderAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveExpanderAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveExpanderAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveExpanderAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveExpanderAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveExpanderAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveExpanderAccessibleMethod t ExpanderAccessible, MethodInfo info ExpanderAccessible p) => IsLabelProxy t (ExpanderAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveExpanderAccessibleMethod t ExpanderAccessible, MethodInfo info ExpanderAccessible p) => IsLabel t (ExpanderAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ExpanderAccessible = ExpanderAccessibleAttributeList -type ExpanderAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ExpanderAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ExpanderAccessible = ExpanderAccessibleSignalList -type ExpanderAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ExpanderAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/FileChooserButton.hs b/GI/Gtk/Objects/FileChooserButton.hs --- a/GI/Gtk/Objects/FileChooserButton.hs +++ b/GI/Gtk/Objects/FileChooserButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** fileChooserButtonGetFocusOnClick + FileChooserButtonGetFocusOnClickMethodInfo, fileChooserButtonGetFocusOnClick , -- ** fileChooserButtonGetTitle + FileChooserButtonGetTitleMethodInfo , fileChooserButtonGetTitle , -- ** fileChooserButtonGetWidthChars + FileChooserButtonGetWidthCharsMethodInfo, fileChooserButtonGetWidthChars , @@ -37,14 +41,17 @@ -- ** fileChooserButtonSetFocusOnClick + FileChooserButtonSetFocusOnClickMethodInfo, fileChooserButtonSetFocusOnClick , -- ** fileChooserButtonSetTitle + FileChooserButtonSetTitleMethodInfo , fileChooserButtonSetTitle , -- ** fileChooserButtonSetWidthChars + FileChooserButtonSetWidthCharsMethodInfo, fileChooserButtonSetWidthChars , @@ -129,6 +136,408 @@ noFileChooserButton :: Maybe FileChooserButton noFileChooserButton = Nothing +type family ResolveFileChooserButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveFileChooserButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveFileChooserButtonMethod "add" o = ContainerAddMethodInfo + ResolveFileChooserButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFileChooserButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFileChooserButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFileChooserButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFileChooserButtonMethod "addFilter" o = FileChooserAddFilterMethodInfo + ResolveFileChooserButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFileChooserButtonMethod "addShortcutFolder" o = FileChooserAddShortcutFolderMethodInfo + ResolveFileChooserButtonMethod "addShortcutFolderUri" o = FileChooserAddShortcutFolderUriMethodInfo + ResolveFileChooserButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFileChooserButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFileChooserButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFileChooserButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFileChooserButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveFileChooserButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFileChooserButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveFileChooserButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveFileChooserButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveFileChooserButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveFileChooserButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFileChooserButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFileChooserButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFileChooserButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFileChooserButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFileChooserButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFileChooserButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFileChooserButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFileChooserButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFileChooserButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFileChooserButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFileChooserButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFileChooserButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFileChooserButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFileChooserButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFileChooserButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFileChooserButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFileChooserButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFileChooserButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFileChooserButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFileChooserButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFileChooserButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFileChooserButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFileChooserButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFileChooserButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFileChooserButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFileChooserButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFileChooserButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFileChooserButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFileChooserButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFileChooserButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFileChooserButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFileChooserButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFileChooserButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFileChooserButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFileChooserButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFileChooserButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFileChooserButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFileChooserButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFileChooserButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveFileChooserButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFileChooserButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFileChooserButtonMethod "event" o = WidgetEventMethodInfo + ResolveFileChooserButtonMethod "forall" o = ContainerForallMethodInfo + ResolveFileChooserButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFileChooserButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveFileChooserButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFileChooserButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFileChooserButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFileChooserButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFileChooserButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFileChooserButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFileChooserButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFileChooserButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFileChooserButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFileChooserButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFileChooserButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFileChooserButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFileChooserButtonMethod "hide" o = WidgetHideMethodInfo + ResolveFileChooserButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFileChooserButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFileChooserButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFileChooserButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFileChooserButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFileChooserButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFileChooserButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFileChooserButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFileChooserButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFileChooserButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFileChooserButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFileChooserButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFileChooserButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFileChooserButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFileChooserButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFileChooserButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFileChooserButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFileChooserButtonMethod "listFilters" o = FileChooserListFiltersMethodInfo + ResolveFileChooserButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFileChooserButtonMethod "listShortcutFolderUris" o = FileChooserListShortcutFolderUrisMethodInfo + ResolveFileChooserButtonMethod "listShortcutFolders" o = FileChooserListShortcutFoldersMethodInfo + ResolveFileChooserButtonMethod "map" o = WidgetMapMethodInfo + ResolveFileChooserButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveFileChooserButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFileChooserButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFileChooserButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFileChooserButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFileChooserButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFileChooserButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFileChooserButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFileChooserButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFileChooserButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFileChooserButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFileChooserButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFileChooserButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFileChooserButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFileChooserButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFileChooserButtonMethod "packEnd" o = BoxPackEndMethodInfo + ResolveFileChooserButtonMethod "packStart" o = BoxPackStartMethodInfo + ResolveFileChooserButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFileChooserButtonMethod "path" o = WidgetPathMethodInfo + ResolveFileChooserButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveFileChooserButtonMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveFileChooserButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFileChooserButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFileChooserButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFileChooserButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFileChooserButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFileChooserButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFileChooserButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveFileChooserButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFileChooserButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFileChooserButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFileChooserButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFileChooserButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveFileChooserButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFileChooserButtonMethod "removeFilter" o = FileChooserRemoveFilterMethodInfo + ResolveFileChooserButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFileChooserButtonMethod "removeShortcutFolder" o = FileChooserRemoveShortcutFolderMethodInfo + ResolveFileChooserButtonMethod "removeShortcutFolderUri" o = FileChooserRemoveShortcutFolderUriMethodInfo + ResolveFileChooserButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFileChooserButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFileChooserButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFileChooserButtonMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveFileChooserButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveFileChooserButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFileChooserButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFileChooserButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFileChooserButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFileChooserButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveFileChooserButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFileChooserButtonMethod "selectAll" o = FileChooserSelectAllMethodInfo + ResolveFileChooserButtonMethod "selectFile" o = FileChooserSelectFileMethodInfo + ResolveFileChooserButtonMethod "selectFilename" o = FileChooserSelectFilenameMethodInfo + ResolveFileChooserButtonMethod "selectUri" o = FileChooserSelectUriMethodInfo + ResolveFileChooserButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFileChooserButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFileChooserButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFileChooserButtonMethod "show" o = WidgetShowMethodInfo + ResolveFileChooserButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFileChooserButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFileChooserButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFileChooserButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFileChooserButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFileChooserButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFileChooserButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFileChooserButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFileChooserButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFileChooserButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFileChooserButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFileChooserButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFileChooserButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFileChooserButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFileChooserButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFileChooserButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFileChooserButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFileChooserButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFileChooserButtonMethod "unselectAll" o = FileChooserUnselectAllMethodInfo + ResolveFileChooserButtonMethod "unselectFile" o = FileChooserUnselectFileMethodInfo + ResolveFileChooserButtonMethod "unselectFilename" o = FileChooserUnselectFilenameMethodInfo + ResolveFileChooserButtonMethod "unselectUri" o = FileChooserUnselectUriMethodInfo + ResolveFileChooserButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveFileChooserButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFileChooserButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFileChooserButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFileChooserButtonMethod "getAction" o = FileChooserGetActionMethodInfo + ResolveFileChooserButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFileChooserButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFileChooserButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFileChooserButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFileChooserButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFileChooserButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFileChooserButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFileChooserButtonMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveFileChooserButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveFileChooserButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFileChooserButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFileChooserButtonMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveFileChooserButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFileChooserButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFileChooserButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveFileChooserButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFileChooserButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFileChooserButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFileChooserButtonMethod "getCreateFolders" o = FileChooserGetCreateFoldersMethodInfo + ResolveFileChooserButtonMethod "getCurrentFolder" o = FileChooserGetCurrentFolderMethodInfo + ResolveFileChooserButtonMethod "getCurrentFolderFile" o = FileChooserGetCurrentFolderFileMethodInfo + ResolveFileChooserButtonMethod "getCurrentFolderUri" o = FileChooserGetCurrentFolderUriMethodInfo + ResolveFileChooserButtonMethod "getCurrentName" o = FileChooserGetCurrentNameMethodInfo + ResolveFileChooserButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFileChooserButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFileChooserButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFileChooserButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFileChooserButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFileChooserButtonMethod "getDoOverwriteConfirmation" o = FileChooserGetDoOverwriteConfirmationMethodInfo + ResolveFileChooserButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFileChooserButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFileChooserButtonMethod "getExtraWidget" o = FileChooserGetExtraWidgetMethodInfo + ResolveFileChooserButtonMethod "getFile" o = FileChooserGetFileMethodInfo + ResolveFileChooserButtonMethod "getFilename" o = FileChooserGetFilenameMethodInfo + ResolveFileChooserButtonMethod "getFilenames" o = FileChooserGetFilenamesMethodInfo + ResolveFileChooserButtonMethod "getFiles" o = FileChooserGetFilesMethodInfo + ResolveFileChooserButtonMethod "getFilter" o = FileChooserGetFilterMethodInfo + ResolveFileChooserButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveFileChooserButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveFileChooserButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveFileChooserButtonMethod "getFocusOnClick" o = FileChooserButtonGetFocusOnClickMethodInfo + ResolveFileChooserButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveFileChooserButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveFileChooserButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFileChooserButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFileChooserButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFileChooserButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFileChooserButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFileChooserButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFileChooserButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFileChooserButtonMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveFileChooserButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFileChooserButtonMethod "getLocalOnly" o = FileChooserGetLocalOnlyMethodInfo + ResolveFileChooserButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFileChooserButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFileChooserButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFileChooserButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFileChooserButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFileChooserButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFileChooserButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFileChooserButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFileChooserButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFileChooserButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFileChooserButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveFileChooserButtonMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveFileChooserButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFileChooserButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFileChooserButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFileChooserButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFileChooserButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveFileChooserButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFileChooserButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFileChooserButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFileChooserButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFileChooserButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFileChooserButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFileChooserButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFileChooserButtonMethod "getPreviewFile" o = FileChooserGetPreviewFileMethodInfo + ResolveFileChooserButtonMethod "getPreviewFilename" o = FileChooserGetPreviewFilenameMethodInfo + ResolveFileChooserButtonMethod "getPreviewUri" o = FileChooserGetPreviewUriMethodInfo + ResolveFileChooserButtonMethod "getPreviewWidget" o = FileChooserGetPreviewWidgetMethodInfo + ResolveFileChooserButtonMethod "getPreviewWidgetActive" o = FileChooserGetPreviewWidgetActiveMethodInfo + ResolveFileChooserButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFileChooserButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFileChooserButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFileChooserButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFileChooserButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFileChooserButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFileChooserButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveFileChooserButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFileChooserButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFileChooserButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveFileChooserButtonMethod "getSelectMultiple" o = FileChooserGetSelectMultipleMethodInfo + ResolveFileChooserButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFileChooserButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFileChooserButtonMethod "getShowHidden" o = FileChooserGetShowHiddenMethodInfo + ResolveFileChooserButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFileChooserButtonMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveFileChooserButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveFileChooserButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFileChooserButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFileChooserButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFileChooserButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFileChooserButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFileChooserButtonMethod "getTitle" o = FileChooserButtonGetTitleMethodInfo + ResolveFileChooserButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFileChooserButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFileChooserButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFileChooserButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFileChooserButtonMethod "getUri" o = FileChooserGetUriMethodInfo + ResolveFileChooserButtonMethod "getUris" o = FileChooserGetUrisMethodInfo + ResolveFileChooserButtonMethod "getUsePreviewLabel" o = FileChooserGetUsePreviewLabelMethodInfo + ResolveFileChooserButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFileChooserButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFileChooserButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFileChooserButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFileChooserButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFileChooserButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFileChooserButtonMethod "getWidthChars" o = FileChooserButtonGetWidthCharsMethodInfo + ResolveFileChooserButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFileChooserButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFileChooserButtonMethod "setAction" o = FileChooserSetActionMethodInfo + ResolveFileChooserButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFileChooserButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFileChooserButtonMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveFileChooserButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveFileChooserButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFileChooserButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFileChooserButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFileChooserButtonMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveFileChooserButtonMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveFileChooserButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFileChooserButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFileChooserButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFileChooserButtonMethod "setCreateFolders" o = FileChooserSetCreateFoldersMethodInfo + ResolveFileChooserButtonMethod "setCurrentFolder" o = FileChooserSetCurrentFolderMethodInfo + ResolveFileChooserButtonMethod "setCurrentFolderFile" o = FileChooserSetCurrentFolderFileMethodInfo + ResolveFileChooserButtonMethod "setCurrentFolderUri" o = FileChooserSetCurrentFolderUriMethodInfo + ResolveFileChooserButtonMethod "setCurrentName" o = FileChooserSetCurrentNameMethodInfo + ResolveFileChooserButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFileChooserButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFileChooserButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFileChooserButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFileChooserButtonMethod "setDoOverwriteConfirmation" o = FileChooserSetDoOverwriteConfirmationMethodInfo + ResolveFileChooserButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFileChooserButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFileChooserButtonMethod "setExtraWidget" o = FileChooserSetExtraWidgetMethodInfo + ResolveFileChooserButtonMethod "setFile" o = FileChooserSetFileMethodInfo + ResolveFileChooserButtonMethod "setFilename" o = FileChooserSetFilenameMethodInfo + ResolveFileChooserButtonMethod "setFilter" o = FileChooserSetFilterMethodInfo + ResolveFileChooserButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveFileChooserButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveFileChooserButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveFileChooserButtonMethod "setFocusOnClick" o = FileChooserButtonSetFocusOnClickMethodInfo + ResolveFileChooserButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveFileChooserButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveFileChooserButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFileChooserButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFileChooserButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFileChooserButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFileChooserButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFileChooserButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFileChooserButtonMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveFileChooserButtonMethod "setLocalOnly" o = FileChooserSetLocalOnlyMethodInfo + ResolveFileChooserButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFileChooserButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFileChooserButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFileChooserButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFileChooserButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFileChooserButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFileChooserButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFileChooserButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFileChooserButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveFileChooserButtonMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveFileChooserButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFileChooserButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFileChooserButtonMethod "setPreviewWidget" o = FileChooserSetPreviewWidgetMethodInfo + ResolveFileChooserButtonMethod "setPreviewWidgetActive" o = FileChooserSetPreviewWidgetActiveMethodInfo + ResolveFileChooserButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFileChooserButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFileChooserButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveFileChooserButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFileChooserButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFileChooserButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveFileChooserButtonMethod "setSelectMultiple" o = FileChooserSetSelectMultipleMethodInfo + ResolveFileChooserButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFileChooserButtonMethod "setShowHidden" o = FileChooserSetShowHiddenMethodInfo + ResolveFileChooserButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFileChooserButtonMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveFileChooserButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveFileChooserButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFileChooserButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFileChooserButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFileChooserButtonMethod "setTitle" o = FileChooserButtonSetTitleMethodInfo + ResolveFileChooserButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFileChooserButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFileChooserButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFileChooserButtonMethod "setUri" o = FileChooserSetUriMethodInfo + ResolveFileChooserButtonMethod "setUsePreviewLabel" o = FileChooserSetUsePreviewLabelMethodInfo + ResolveFileChooserButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFileChooserButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFileChooserButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFileChooserButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFileChooserButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFileChooserButtonMethod "setWidthChars" o = FileChooserButtonSetWidthCharsMethodInfo + ResolveFileChooserButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFileChooserButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFileChooserButtonMethod t FileChooserButton, MethodInfo info FileChooserButton p) => IsLabelProxy t (FileChooserButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFileChooserButtonMethod t FileChooserButton, MethodInfo info FileChooserButton p) => IsLabel t (FileChooserButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal FileChooserButton::file-set type FileChooserButtonFileSetCallback = IO () @@ -180,7 +589,7 @@ type AttrSetTypeConstraint FileChooserButtonDialogPropertyInfo = FileChooserK type AttrBaseTypeConstraint FileChooserButtonDialogPropertyInfo = FileChooserButtonK type AttrGetType FileChooserButtonDialogPropertyInfo = () - type AttrLabel FileChooserButtonDialogPropertyInfo = "FileChooserButton::dialog" + type AttrLabel FileChooserButtonDialogPropertyInfo = "dialog" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructFileChooserButtonDialog @@ -204,7 +613,7 @@ type AttrSetTypeConstraint FileChooserButtonFocusOnClickPropertyInfo = (~) Bool type AttrBaseTypeConstraint FileChooserButtonFocusOnClickPropertyInfo = FileChooserButtonK type AttrGetType FileChooserButtonFocusOnClickPropertyInfo = Bool - type AttrLabel FileChooserButtonFocusOnClickPropertyInfo = "FileChooserButton::focus-on-click" + type AttrLabel FileChooserButtonFocusOnClickPropertyInfo = "focus-on-click" attrGet _ = getFileChooserButtonFocusOnClick attrSet _ = setFileChooserButtonFocusOnClick attrConstruct _ = constructFileChooserButtonFocusOnClick @@ -228,7 +637,7 @@ type AttrSetTypeConstraint FileChooserButtonTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint FileChooserButtonTitlePropertyInfo = FileChooserButtonK type AttrGetType FileChooserButtonTitlePropertyInfo = T.Text - type AttrLabel FileChooserButtonTitlePropertyInfo = "FileChooserButton::title" + type AttrLabel FileChooserButtonTitlePropertyInfo = "title" attrGet _ = getFileChooserButtonTitle attrSet _ = setFileChooserButtonTitle attrConstruct _ = constructFileChooserButtonTitle @@ -252,13 +661,13 @@ type AttrSetTypeConstraint FileChooserButtonWidthCharsPropertyInfo = (~) Int32 type AttrBaseTypeConstraint FileChooserButtonWidthCharsPropertyInfo = FileChooserButtonK type AttrGetType FileChooserButtonWidthCharsPropertyInfo = Int32 - type AttrLabel FileChooserButtonWidthCharsPropertyInfo = "FileChooserButton::width-chars" + type AttrLabel FileChooserButtonWidthCharsPropertyInfo = "width-chars" attrGet _ = getFileChooserButtonWidthChars attrSet _ = setFileChooserButtonWidthChars attrConstruct _ = constructFileChooserButtonWidthChars type instance AttributeList FileChooserButton = FileChooserButtonAttributeList -type FileChooserButtonAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("create-folders", FileChooserCreateFoldersPropertyInfo), '("dialog", FileChooserButtonDialogPropertyInfo), '("do-overwrite-confirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extra-widget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("focus-on-click", FileChooserButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("local-only", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-widget", FileChooserPreviewWidgetPropertyInfo), '("preview-widget-active", FileChooserPreviewWidgetActivePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("select-multiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-hidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FileChooserButtonTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-preview-label", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", FileChooserButtonWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type FileChooserButtonAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("dialog", FileChooserButtonDialogPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("focusOnClick", FileChooserButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FileChooserButtonTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", FileChooserButtonWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data FileChooserButtonFileSetSignalInfo instance SignalInfo FileChooserButtonFileSetSignalInfo where @@ -266,13 +675,12 @@ connectSignal _ = connectFileChooserButtonFileSet type instance SignalList FileChooserButton = FileChooserButtonSignalList -type FileChooserButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("confirm-overwrite", FileChooserConfirmOverwriteSignalInfo), '("current-folder-changed", FileChooserCurrentFolderChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("file-activated", FileChooserFileActivatedSignalInfo), '("file-set", FileChooserButtonFileSetSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", FileChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("update-preview", FileChooserUpdatePreviewSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FileChooserButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("confirmOverwrite", FileChooserConfirmOverwriteSignalInfo), '("currentFolderChanged", FileChooserCurrentFolderChangedSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("fileActivated", FileChooserFileActivatedSignalInfo), '("fileSet", FileChooserButtonFileSetSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", FileChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("updatePreview", FileChooserUpdatePreviewSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method FileChooserButton::new -- method type : Constructor --- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "FileChooserButton" -- throws : False -- Skip return : False @@ -285,9 +693,9 @@ fileChooserButtonNew :: (MonadIO m) => - T.Text -> -- title - FileChooserAction -> -- action - m FileChooserButton + T.Text -- title + -> FileChooserAction -- action + -> m FileChooserButton -- result fileChooserButtonNew title action = liftIO $ do title' <- textToCString title let action' = (fromIntegral . fromEnum) action @@ -299,9 +707,8 @@ -- method FileChooserButton::new_with_dialog -- method type : Constructor --- Args : [Arg {argName = "dialog", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "dialog", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "dialog", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "FileChooserButton" -- throws : False -- Skip return : False @@ -313,8 +720,8 @@ fileChooserButtonNewWithDialog :: (MonadIO m, DialogK a) => - a -> -- dialog - m FileChooserButton + a -- dialog + -> m FileChooserButton -- result fileChooserButtonNewWithDialog dialog = liftIO $ do let dialog' = unsafeManagedPtrCastPtr dialog result <- gtk_file_chooser_button_new_with_dialog dialog' @@ -325,9 +732,8 @@ -- method FileChooserButton::get_focus_on_click -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -339,8 +745,8 @@ fileChooserButtonGetFocusOnClick :: (MonadIO m, FileChooserButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result fileChooserButtonGetFocusOnClick _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_button_get_focus_on_click _obj' @@ -348,11 +754,14 @@ touchManagedPtr _obj return result' +data FileChooserButtonGetFocusOnClickMethodInfo +instance (signature ~ (m Bool), MonadIO m, FileChooserButtonK a) => MethodInfo FileChooserButtonGetFocusOnClickMethodInfo a signature where + overloadedMethod _ = fileChooserButtonGetFocusOnClick + -- method FileChooserButton::get_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -364,8 +773,8 @@ fileChooserButtonGetTitle :: (MonadIO m, FileChooserButtonK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result fileChooserButtonGetTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_button_get_title _obj' @@ -374,11 +783,14 @@ touchManagedPtr _obj return result' +data FileChooserButtonGetTitleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FileChooserButtonK a) => MethodInfo FileChooserButtonGetTitleMethodInfo a signature where + overloadedMethod _ = fileChooserButtonGetTitle + -- method FileChooserButton::get_width_chars -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -390,19 +802,22 @@ fileChooserButtonGetWidthChars :: (MonadIO m, FileChooserButtonK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result fileChooserButtonGetWidthChars _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_button_get_width_chars _obj' touchManagedPtr _obj return result +data FileChooserButtonGetWidthCharsMethodInfo +instance (signature ~ (m Int32), MonadIO m, FileChooserButtonK a) => MethodInfo FileChooserButtonGetWidthCharsMethodInfo a signature where + overloadedMethod _ = fileChooserButtonGetWidthChars + -- method FileChooserButton::set_focus_on_click -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -415,21 +830,24 @@ fileChooserButtonSetFocusOnClick :: (MonadIO m, FileChooserButtonK a) => - a -> -- _obj - Bool -> -- focus_on_click - m () -fileChooserButtonSetFocusOnClick _obj focus_on_click = liftIO $ do + a -- _obj + -> Bool -- focusOnClick + -> m () -- result +fileChooserButtonSetFocusOnClick _obj focusOnClick = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let focus_on_click' = (fromIntegral . fromEnum) focus_on_click - gtk_file_chooser_button_set_focus_on_click _obj' focus_on_click' + let focusOnClick' = (fromIntegral . fromEnum) focusOnClick + gtk_file_chooser_button_set_focus_on_click _obj' focusOnClick' touchManagedPtr _obj return () +data FileChooserButtonSetFocusOnClickMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FileChooserButtonK a) => MethodInfo FileChooserButtonSetFocusOnClickMethodInfo a signature where + overloadedMethod _ = fileChooserButtonSetFocusOnClick + -- method FileChooserButton::set_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -442,9 +860,9 @@ fileChooserButtonSetTitle :: (MonadIO m, FileChooserButtonK a) => - a -> -- _obj - T.Text -> -- title - m () + a -- _obj + -> T.Text -- title + -> m () -- result fileChooserButtonSetTitle _obj title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj title' <- textToCString title @@ -453,11 +871,14 @@ freeMem title' return () +data FileChooserButtonSetTitleMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, FileChooserButtonK a) => MethodInfo FileChooserButtonSetTitleMethodInfo a signature where + overloadedMethod _ = fileChooserButtonSetTitle + -- method FileChooserButton::set_width_chars -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -470,13 +891,17 @@ fileChooserButtonSetWidthChars :: (MonadIO m, FileChooserButtonK a) => - a -> -- _obj - Int32 -> -- n_chars - m () -fileChooserButtonSetWidthChars _obj n_chars = liftIO $ do + a -- _obj + -> Int32 -- nChars + -> m () -- result +fileChooserButtonSetWidthChars _obj nChars = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_file_chooser_button_set_width_chars _obj' n_chars + gtk_file_chooser_button_set_width_chars _obj' nChars touchManagedPtr _obj return () + +data FileChooserButtonSetWidthCharsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, FileChooserButtonK a) => MethodInfo FileChooserButtonSetWidthCharsMethodInfo a signature where + overloadedMethod _ = fileChooserButtonSetWidthChars diff --git a/GI/Gtk/Objects/FileChooserButton.hs-boot b/GI/Gtk/Objects/FileChooserButton.hs-boot --- a/GI/Gtk/Objects/FileChooserButton.hs-boot +++ b/GI/Gtk/Objects/FileChooserButton.hs-boot @@ -16,3 +16,9 @@ data FileChooserButtonTitlePropertyInfo data FileChooserButtonWidthCharsPropertyInfo data FileChooserButtonFileSetSignalInfo +data FileChooserButtonGetFocusOnClickMethodInfo +data FileChooserButtonGetTitleMethodInfo +data FileChooserButtonGetWidthCharsMethodInfo +data FileChooserButtonSetFocusOnClickMethodInfo +data FileChooserButtonSetTitleMethodInfo +data FileChooserButtonSetWidthCharsMethodInfo diff --git a/GI/Gtk/Objects/FileChooserDialog.hs b/GI/Gtk/Objects/FileChooserDialog.hs --- a/GI/Gtk/Objects/FileChooserDialog.hs +++ b/GI/Gtk/Objects/FileChooserDialog.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,505 @@ noFileChooserDialog :: Maybe FileChooserDialog noFileChooserDialog = Nothing +type family ResolveFileChooserDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveFileChooserDialogMethod "activate" o = WidgetActivateMethodInfo + ResolveFileChooserDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveFileChooserDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveFileChooserDialogMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveFileChooserDialogMethod "add" o = ContainerAddMethodInfo + ResolveFileChooserDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveFileChooserDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFileChooserDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo + ResolveFileChooserDialogMethod "addButton" o = DialogAddButtonMethodInfo + ResolveFileChooserDialogMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFileChooserDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFileChooserDialogMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFileChooserDialogMethod "addFilter" o = FileChooserAddFilterMethodInfo + ResolveFileChooserDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveFileChooserDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFileChooserDialogMethod "addShortcutFolder" o = FileChooserAddShortcutFolderMethodInfo + ResolveFileChooserDialogMethod "addShortcutFolderUri" o = FileChooserAddShortcutFolderUriMethodInfo + ResolveFileChooserDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFileChooserDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveFileChooserDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveFileChooserDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFileChooserDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFileChooserDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFileChooserDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveFileChooserDialogMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFileChooserDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveFileChooserDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveFileChooserDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveFileChooserDialogMethod "childType" o = ContainerChildTypeMethodInfo + ResolveFileChooserDialogMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFileChooserDialogMethod "close" o = WindowCloseMethodInfo + ResolveFileChooserDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFileChooserDialogMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFileChooserDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFileChooserDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFileChooserDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFileChooserDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFileChooserDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFileChooserDialogMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveFileChooserDialogMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFileChooserDialogMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFileChooserDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFileChooserDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFileChooserDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFileChooserDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFileChooserDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFileChooserDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFileChooserDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFileChooserDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFileChooserDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFileChooserDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFileChooserDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFileChooserDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFileChooserDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFileChooserDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFileChooserDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFileChooserDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFileChooserDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFileChooserDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFileChooserDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFileChooserDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFileChooserDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFileChooserDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFileChooserDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFileChooserDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFileChooserDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFileChooserDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFileChooserDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFileChooserDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFileChooserDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFileChooserDialogMethod "draw" o = WidgetDrawMethodInfo + ResolveFileChooserDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFileChooserDialogMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFileChooserDialogMethod "event" o = WidgetEventMethodInfo + ResolveFileChooserDialogMethod "forall" o = ContainerForallMethodInfo + ResolveFileChooserDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFileChooserDialogMethod "foreach" o = ContainerForeachMethodInfo + ResolveFileChooserDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFileChooserDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFileChooserDialogMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveFileChooserDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveFileChooserDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFileChooserDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFileChooserDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFileChooserDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFileChooserDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFileChooserDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFileChooserDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFileChooserDialogMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveFileChooserDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFileChooserDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFileChooserDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveFileChooserDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFileChooserDialogMethod "hide" o = WidgetHideMethodInfo + ResolveFileChooserDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFileChooserDialogMethod "iconify" o = WindowIconifyMethodInfo + ResolveFileChooserDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFileChooserDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFileChooserDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFileChooserDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFileChooserDialogMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFileChooserDialogMethod "isActive" o = WindowIsActiveMethodInfo + ResolveFileChooserDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFileChooserDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFileChooserDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFileChooserDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFileChooserDialogMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFileChooserDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveFileChooserDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFileChooserDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFileChooserDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFileChooserDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFileChooserDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFileChooserDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFileChooserDialogMethod "listFilters" o = FileChooserListFiltersMethodInfo + ResolveFileChooserDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFileChooserDialogMethod "listShortcutFolderUris" o = FileChooserListShortcutFolderUrisMethodInfo + ResolveFileChooserDialogMethod "listShortcutFolders" o = FileChooserListShortcutFoldersMethodInfo + ResolveFileChooserDialogMethod "map" o = WidgetMapMethodInfo + ResolveFileChooserDialogMethod "maximize" o = WindowMaximizeMethodInfo + ResolveFileChooserDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFileChooserDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFileChooserDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFileChooserDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFileChooserDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFileChooserDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFileChooserDialogMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFileChooserDialogMethod "move" o = WindowMoveMethodInfo + ResolveFileChooserDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFileChooserDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFileChooserDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFileChooserDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFileChooserDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFileChooserDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFileChooserDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFileChooserDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveFileChooserDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFileChooserDialogMethod "path" o = WidgetPathMethodInfo + ResolveFileChooserDialogMethod "present" o = WindowPresentMethodInfo + ResolveFileChooserDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveFileChooserDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveFileChooserDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveFileChooserDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFileChooserDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFileChooserDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFileChooserDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFileChooserDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFileChooserDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFileChooserDialogMethod "realize" o = WidgetRealizeMethodInfo + ResolveFileChooserDialogMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFileChooserDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFileChooserDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFileChooserDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFileChooserDialogMethod "remove" o = ContainerRemoveMethodInfo + ResolveFileChooserDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveFileChooserDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFileChooserDialogMethod "removeFilter" o = FileChooserRemoveFilterMethodInfo + ResolveFileChooserDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveFileChooserDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFileChooserDialogMethod "removeShortcutFolder" o = FileChooserRemoveShortcutFolderMethodInfo + ResolveFileChooserDialogMethod "removeShortcutFolderUri" o = FileChooserRemoveShortcutFolderUriMethodInfo + ResolveFileChooserDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFileChooserDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFileChooserDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFileChooserDialogMethod "reparent" o = WidgetReparentMethodInfo + ResolveFileChooserDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFileChooserDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFileChooserDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFileChooserDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFileChooserDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveFileChooserDialogMethod "resize" o = WindowResizeMethodInfo + ResolveFileChooserDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveFileChooserDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveFileChooserDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveFileChooserDialogMethod "response" o = DialogResponseMethodInfo + ResolveFileChooserDialogMethod "run" o = DialogRunMethodInfo + ResolveFileChooserDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFileChooserDialogMethod "selectAll" o = FileChooserSelectAllMethodInfo + ResolveFileChooserDialogMethod "selectFile" o = FileChooserSelectFileMethodInfo + ResolveFileChooserDialogMethod "selectFilename" o = FileChooserSelectFilenameMethodInfo + ResolveFileChooserDialogMethod "selectUri" o = FileChooserSelectUriMethodInfo + ResolveFileChooserDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFileChooserDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFileChooserDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFileChooserDialogMethod "show" o = WidgetShowMethodInfo + ResolveFileChooserDialogMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFileChooserDialogMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFileChooserDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFileChooserDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFileChooserDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFileChooserDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFileChooserDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFileChooserDialogMethod "stick" o = WindowStickMethodInfo + ResolveFileChooserDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFileChooserDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFileChooserDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFileChooserDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFileChooserDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFileChooserDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFileChooserDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveFileChooserDialogMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFileChooserDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveFileChooserDialogMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFileChooserDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFileChooserDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFileChooserDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFileChooserDialogMethod "unselectAll" o = FileChooserUnselectAllMethodInfo + ResolveFileChooserDialogMethod "unselectFile" o = FileChooserUnselectFileMethodInfo + ResolveFileChooserDialogMethod "unselectFilename" o = FileChooserUnselectFilenameMethodInfo + ResolveFileChooserDialogMethod "unselectUri" o = FileChooserUnselectUriMethodInfo + ResolveFileChooserDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveFileChooserDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFileChooserDialogMethod "unstick" o = WindowUnstickMethodInfo + ResolveFileChooserDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFileChooserDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveFileChooserDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFileChooserDialogMethod "getAction" o = FileChooserGetActionMethodInfo + ResolveFileChooserDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo + ResolveFileChooserDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFileChooserDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFileChooserDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFileChooserDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFileChooserDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFileChooserDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFileChooserDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFileChooserDialogMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveFileChooserDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveFileChooserDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveFileChooserDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFileChooserDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFileChooserDialogMethod "getChild" o = BinGetChildMethodInfo + ResolveFileChooserDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFileChooserDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFileChooserDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveFileChooserDialogMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFileChooserDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFileChooserDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFileChooserDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo + ResolveFileChooserDialogMethod "getCreateFolders" o = FileChooserGetCreateFoldersMethodInfo + ResolveFileChooserDialogMethod "getCurrentFolder" o = FileChooserGetCurrentFolderMethodInfo + ResolveFileChooserDialogMethod "getCurrentFolderFile" o = FileChooserGetCurrentFolderFileMethodInfo + ResolveFileChooserDialogMethod "getCurrentFolderUri" o = FileChooserGetCurrentFolderUriMethodInfo + ResolveFileChooserDialogMethod "getCurrentName" o = FileChooserGetCurrentNameMethodInfo + ResolveFileChooserDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFileChooserDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveFileChooserDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveFileChooserDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveFileChooserDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveFileChooserDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveFileChooserDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFileChooserDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFileChooserDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFileChooserDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFileChooserDialogMethod "getDoOverwriteConfirmation" o = FileChooserGetDoOverwriteConfirmationMethodInfo + ResolveFileChooserDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFileChooserDialogMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFileChooserDialogMethod "getExtraWidget" o = FileChooserGetExtraWidgetMethodInfo + ResolveFileChooserDialogMethod "getFile" o = FileChooserGetFileMethodInfo + ResolveFileChooserDialogMethod "getFilename" o = FileChooserGetFilenameMethodInfo + ResolveFileChooserDialogMethod "getFilenames" o = FileChooserGetFilenamesMethodInfo + ResolveFileChooserDialogMethod "getFiles" o = FileChooserGetFilesMethodInfo + ResolveFileChooserDialogMethod "getFilter" o = FileChooserGetFilterMethodInfo + ResolveFileChooserDialogMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveFileChooserDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveFileChooserDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveFileChooserDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveFileChooserDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveFileChooserDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveFileChooserDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveFileChooserDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveFileChooserDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFileChooserDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFileChooserDialogMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveFileChooserDialogMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveFileChooserDialogMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFileChooserDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveFileChooserDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFileChooserDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFileChooserDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo + ResolveFileChooserDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFileChooserDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFileChooserDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveFileChooserDialogMethod "getIcon" o = WindowGetIconMethodInfo + ResolveFileChooserDialogMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveFileChooserDialogMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveFileChooserDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFileChooserDialogMethod "getLocalOnly" o = FileChooserGetLocalOnlyMethodInfo + ResolveFileChooserDialogMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFileChooserDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFileChooserDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFileChooserDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFileChooserDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFileChooserDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFileChooserDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFileChooserDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveFileChooserDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveFileChooserDialogMethod "getModal" o = WindowGetModalMethodInfo + ResolveFileChooserDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFileChooserDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFileChooserDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFileChooserDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFileChooserDialogMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFileChooserDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFileChooserDialogMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFileChooserDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveFileChooserDialogMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFileChooserDialogMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveFileChooserDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFileChooserDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFileChooserDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFileChooserDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFileChooserDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFileChooserDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFileChooserDialogMethod "getPreviewFile" o = FileChooserGetPreviewFileMethodInfo + ResolveFileChooserDialogMethod "getPreviewFilename" o = FileChooserGetPreviewFilenameMethodInfo + ResolveFileChooserDialogMethod "getPreviewUri" o = FileChooserGetPreviewUriMethodInfo + ResolveFileChooserDialogMethod "getPreviewWidget" o = FileChooserGetPreviewWidgetMethodInfo + ResolveFileChooserDialogMethod "getPreviewWidgetActive" o = FileChooserGetPreviewWidgetActiveMethodInfo + ResolveFileChooserDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFileChooserDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFileChooserDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFileChooserDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFileChooserDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFileChooserDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFileChooserDialogMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveFileChooserDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveFileChooserDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveFileChooserDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo + ResolveFileChooserDialogMethod "getRole" o = WindowGetRoleMethodInfo + ResolveFileChooserDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFileChooserDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFileChooserDialogMethod "getSelectMultiple" o = FileChooserGetSelectMultipleMethodInfo + ResolveFileChooserDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFileChooserDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFileChooserDialogMethod "getShowHidden" o = FileChooserGetShowHiddenMethodInfo + ResolveFileChooserDialogMethod "getSize" o = WindowGetSizeMethodInfo + ResolveFileChooserDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFileChooserDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveFileChooserDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveFileChooserDialogMethod "getState" o = WidgetGetStateMethodInfo + ResolveFileChooserDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFileChooserDialogMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFileChooserDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFileChooserDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFileChooserDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFileChooserDialogMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveFileChooserDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveFileChooserDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFileChooserDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFileChooserDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFileChooserDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFileChooserDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveFileChooserDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveFileChooserDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveFileChooserDialogMethod "getUri" o = FileChooserGetUriMethodInfo + ResolveFileChooserDialogMethod "getUris" o = FileChooserGetUrisMethodInfo + ResolveFileChooserDialogMethod "getUsePreviewLabel" o = FileChooserGetUsePreviewLabelMethodInfo + ResolveFileChooserDialogMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFileChooserDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFileChooserDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFileChooserDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFileChooserDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFileChooserDialogMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFileChooserDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo + ResolveFileChooserDialogMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFileChooserDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveFileChooserDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFileChooserDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveFileChooserDialogMethod "setAction" o = FileChooserSetActionMethodInfo + ResolveFileChooserDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFileChooserDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo + ResolveFileChooserDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFileChooserDialogMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveFileChooserDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveFileChooserDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveFileChooserDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFileChooserDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFileChooserDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFileChooserDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFileChooserDialogMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFileChooserDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFileChooserDialogMethod "setCreateFolders" o = FileChooserSetCreateFoldersMethodInfo + ResolveFileChooserDialogMethod "setCurrentFolder" o = FileChooserSetCurrentFolderMethodInfo + ResolveFileChooserDialogMethod "setCurrentFolderFile" o = FileChooserSetCurrentFolderFileMethodInfo + ResolveFileChooserDialogMethod "setCurrentFolderUri" o = FileChooserSetCurrentFolderUriMethodInfo + ResolveFileChooserDialogMethod "setCurrentName" o = FileChooserSetCurrentNameMethodInfo + ResolveFileChooserDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFileChooserDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveFileChooserDialogMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveFileChooserDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveFileChooserDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo + ResolveFileChooserDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveFileChooserDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveFileChooserDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveFileChooserDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFileChooserDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFileChooserDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFileChooserDialogMethod "setDoOverwriteConfirmation" o = FileChooserSetDoOverwriteConfirmationMethodInfo + ResolveFileChooserDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFileChooserDialogMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFileChooserDialogMethod "setExtraWidget" o = FileChooserSetExtraWidgetMethodInfo + ResolveFileChooserDialogMethod "setFile" o = FileChooserSetFileMethodInfo + ResolveFileChooserDialogMethod "setFilename" o = FileChooserSetFilenameMethodInfo + ResolveFileChooserDialogMethod "setFilter" o = FileChooserSetFilterMethodInfo + ResolveFileChooserDialogMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveFileChooserDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveFileChooserDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveFileChooserDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveFileChooserDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveFileChooserDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveFileChooserDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveFileChooserDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveFileChooserDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFileChooserDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveFileChooserDialogMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveFileChooserDialogMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFileChooserDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveFileChooserDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFileChooserDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveFileChooserDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFileChooserDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFileChooserDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFileChooserDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveFileChooserDialogMethod "setIcon" o = WindowSetIconMethodInfo + ResolveFileChooserDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveFileChooserDialogMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveFileChooserDialogMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveFileChooserDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveFileChooserDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveFileChooserDialogMethod "setLocalOnly" o = FileChooserSetLocalOnlyMethodInfo + ResolveFileChooserDialogMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFileChooserDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFileChooserDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFileChooserDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFileChooserDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFileChooserDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFileChooserDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFileChooserDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveFileChooserDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveFileChooserDialogMethod "setModal" o = WindowSetModalMethodInfo + ResolveFileChooserDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFileChooserDialogMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFileChooserDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFileChooserDialogMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveFileChooserDialogMethod "setPreviewWidget" o = FileChooserSetPreviewWidgetMethodInfo + ResolveFileChooserDialogMethod "setPreviewWidgetActive" o = FileChooserSetPreviewWidgetActiveMethodInfo + ResolveFileChooserDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFileChooserDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFileChooserDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveFileChooserDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFileChooserDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFileChooserDialogMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveFileChooserDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveFileChooserDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo + ResolveFileChooserDialogMethod "setRole" o = WindowSetRoleMethodInfo + ResolveFileChooserDialogMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveFileChooserDialogMethod "setSelectMultiple" o = FileChooserSetSelectMultipleMethodInfo + ResolveFileChooserDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFileChooserDialogMethod "setShowHidden" o = FileChooserSetShowHiddenMethodInfo + ResolveFileChooserDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFileChooserDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveFileChooserDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveFileChooserDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveFileChooserDialogMethod "setState" o = WidgetSetStateMethodInfo + ResolveFileChooserDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFileChooserDialogMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFileChooserDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFileChooserDialogMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveFileChooserDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveFileChooserDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFileChooserDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFileChooserDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFileChooserDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveFileChooserDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveFileChooserDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveFileChooserDialogMethod "setUri" o = FileChooserSetUriMethodInfo + ResolveFileChooserDialogMethod "setUsePreviewLabel" o = FileChooserSetUsePreviewLabelMethodInfo + ResolveFileChooserDialogMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFileChooserDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFileChooserDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFileChooserDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFileChooserDialogMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFileChooserDialogMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFileChooserDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveFileChooserDialogMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFileChooserDialogMethod t FileChooserDialog, MethodInfo info FileChooserDialog p) => IsLabelProxy t (FileChooserDialog -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFileChooserDialogMethod t FileChooserDialog, MethodInfo info FileChooserDialog p) => IsLabel t (FileChooserDialog -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList FileChooserDialog = FileChooserDialogAttributeList -type FileChooserDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("action", FileChooserActionPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("create-folders", FileChooserCreateFoldersPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("do-overwrite-confirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extra-widget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("local-only", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-widget", FileChooserPreviewWidgetPropertyInfo), '("preview-widget-active", FileChooserPreviewWidgetActivePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("select-multiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-hidden", FileChooserShowHiddenPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("use-preview-label", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type FileChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) type instance SignalList FileChooserDialog = FileChooserDialogSignalList -type FileChooserDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("confirm-overwrite", FileChooserConfirmOverwriteSignalInfo), '("current-folder-changed", FileChooserCurrentFolderChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("file-activated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", FileChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("update-preview", FileChooserUpdatePreviewSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FileChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("confirmOverwrite", FileChooserConfirmOverwriteSignalInfo), '("currentFolderChanged", FileChooserCurrentFolderChangedSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("fileActivated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", FileChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("updatePreview", FileChooserUpdatePreviewSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/FileChooserWidget.hs b/GI/Gtk/Objects/FileChooserWidget.hs --- a/GI/Gtk/Objects/FileChooserWidget.hs +++ b/GI/Gtk/Objects/FileChooserWidget.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -219,6 +220,402 @@ noFileChooserWidget :: Maybe FileChooserWidget noFileChooserWidget = Nothing +type family ResolveFileChooserWidgetMethod (t :: Symbol) (o :: *) :: * where + ResolveFileChooserWidgetMethod "activate" o = WidgetActivateMethodInfo + ResolveFileChooserWidgetMethod "add" o = ContainerAddMethodInfo + ResolveFileChooserWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFileChooserWidgetMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFileChooserWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFileChooserWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFileChooserWidgetMethod "addFilter" o = FileChooserAddFilterMethodInfo + ResolveFileChooserWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFileChooserWidgetMethod "addShortcutFolder" o = FileChooserAddShortcutFolderMethodInfo + ResolveFileChooserWidgetMethod "addShortcutFolderUri" o = FileChooserAddShortcutFolderUriMethodInfo + ResolveFileChooserWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFileChooserWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFileChooserWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFileChooserWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFileChooserWidgetMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveFileChooserWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFileChooserWidgetMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveFileChooserWidgetMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveFileChooserWidgetMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveFileChooserWidgetMethod "childType" o = ContainerChildTypeMethodInfo + ResolveFileChooserWidgetMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFileChooserWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFileChooserWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFileChooserWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFileChooserWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFileChooserWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFileChooserWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFileChooserWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFileChooserWidgetMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFileChooserWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFileChooserWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFileChooserWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFileChooserWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFileChooserWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFileChooserWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFileChooserWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFileChooserWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFileChooserWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFileChooserWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFileChooserWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFileChooserWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFileChooserWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFileChooserWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFileChooserWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFileChooserWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFileChooserWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFileChooserWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFileChooserWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFileChooserWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFileChooserWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFileChooserWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFileChooserWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFileChooserWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFileChooserWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFileChooserWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFileChooserWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFileChooserWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFileChooserWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFileChooserWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFileChooserWidgetMethod "draw" o = WidgetDrawMethodInfo + ResolveFileChooserWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFileChooserWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFileChooserWidgetMethod "event" o = WidgetEventMethodInfo + ResolveFileChooserWidgetMethod "forall" o = ContainerForallMethodInfo + ResolveFileChooserWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFileChooserWidgetMethod "foreach" o = ContainerForeachMethodInfo + ResolveFileChooserWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFileChooserWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFileChooserWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFileChooserWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFileChooserWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFileChooserWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFileChooserWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFileChooserWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFileChooserWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFileChooserWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFileChooserWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFileChooserWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFileChooserWidgetMethod "hide" o = WidgetHideMethodInfo + ResolveFileChooserWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFileChooserWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFileChooserWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFileChooserWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFileChooserWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFileChooserWidgetMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFileChooserWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFileChooserWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFileChooserWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFileChooserWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFileChooserWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFileChooserWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFileChooserWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFileChooserWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFileChooserWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFileChooserWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFileChooserWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFileChooserWidgetMethod "listFilters" o = FileChooserListFiltersMethodInfo + ResolveFileChooserWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFileChooserWidgetMethod "listShortcutFolderUris" o = FileChooserListShortcutFolderUrisMethodInfo + ResolveFileChooserWidgetMethod "listShortcutFolders" o = FileChooserListShortcutFoldersMethodInfo + ResolveFileChooserWidgetMethod "map" o = WidgetMapMethodInfo + ResolveFileChooserWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveFileChooserWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFileChooserWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFileChooserWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFileChooserWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFileChooserWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFileChooserWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFileChooserWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFileChooserWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFileChooserWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFileChooserWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFileChooserWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFileChooserWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFileChooserWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFileChooserWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFileChooserWidgetMethod "packEnd" o = BoxPackEndMethodInfo + ResolveFileChooserWidgetMethod "packStart" o = BoxPackStartMethodInfo + ResolveFileChooserWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFileChooserWidgetMethod "path" o = WidgetPathMethodInfo + ResolveFileChooserWidgetMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveFileChooserWidgetMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveFileChooserWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFileChooserWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFileChooserWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFileChooserWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFileChooserWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFileChooserWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFileChooserWidgetMethod "realize" o = WidgetRealizeMethodInfo + ResolveFileChooserWidgetMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFileChooserWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFileChooserWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFileChooserWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFileChooserWidgetMethod "remove" o = ContainerRemoveMethodInfo + ResolveFileChooserWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFileChooserWidgetMethod "removeFilter" o = FileChooserRemoveFilterMethodInfo + ResolveFileChooserWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFileChooserWidgetMethod "removeShortcutFolder" o = FileChooserRemoveShortcutFolderMethodInfo + ResolveFileChooserWidgetMethod "removeShortcutFolderUri" o = FileChooserRemoveShortcutFolderUriMethodInfo + ResolveFileChooserWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFileChooserWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFileChooserWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFileChooserWidgetMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveFileChooserWidgetMethod "reparent" o = WidgetReparentMethodInfo + ResolveFileChooserWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFileChooserWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFileChooserWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFileChooserWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFileChooserWidgetMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveFileChooserWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFileChooserWidgetMethod "selectAll" o = FileChooserSelectAllMethodInfo + ResolveFileChooserWidgetMethod "selectFile" o = FileChooserSelectFileMethodInfo + ResolveFileChooserWidgetMethod "selectFilename" o = FileChooserSelectFilenameMethodInfo + ResolveFileChooserWidgetMethod "selectUri" o = FileChooserSelectUriMethodInfo + ResolveFileChooserWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFileChooserWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFileChooserWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFileChooserWidgetMethod "show" o = WidgetShowMethodInfo + ResolveFileChooserWidgetMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFileChooserWidgetMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFileChooserWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFileChooserWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFileChooserWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFileChooserWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFileChooserWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFileChooserWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFileChooserWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFileChooserWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFileChooserWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFileChooserWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFileChooserWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFileChooserWidgetMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFileChooserWidgetMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFileChooserWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFileChooserWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFileChooserWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFileChooserWidgetMethod "unselectAll" o = FileChooserUnselectAllMethodInfo + ResolveFileChooserWidgetMethod "unselectFile" o = FileChooserUnselectFileMethodInfo + ResolveFileChooserWidgetMethod "unselectFilename" o = FileChooserUnselectFilenameMethodInfo + ResolveFileChooserWidgetMethod "unselectUri" o = FileChooserUnselectUriMethodInfo + ResolveFileChooserWidgetMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveFileChooserWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFileChooserWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFileChooserWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFileChooserWidgetMethod "getAction" o = FileChooserGetActionMethodInfo + ResolveFileChooserWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFileChooserWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFileChooserWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFileChooserWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFileChooserWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFileChooserWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFileChooserWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFileChooserWidgetMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveFileChooserWidgetMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveFileChooserWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFileChooserWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFileChooserWidgetMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveFileChooserWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFileChooserWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFileChooserWidgetMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveFileChooserWidgetMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFileChooserWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFileChooserWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFileChooserWidgetMethod "getCreateFolders" o = FileChooserGetCreateFoldersMethodInfo + ResolveFileChooserWidgetMethod "getCurrentFolder" o = FileChooserGetCurrentFolderMethodInfo + ResolveFileChooserWidgetMethod "getCurrentFolderFile" o = FileChooserGetCurrentFolderFileMethodInfo + ResolveFileChooserWidgetMethod "getCurrentFolderUri" o = FileChooserGetCurrentFolderUriMethodInfo + ResolveFileChooserWidgetMethod "getCurrentName" o = FileChooserGetCurrentNameMethodInfo + ResolveFileChooserWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFileChooserWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFileChooserWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFileChooserWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFileChooserWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFileChooserWidgetMethod "getDoOverwriteConfirmation" o = FileChooserGetDoOverwriteConfirmationMethodInfo + ResolveFileChooserWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFileChooserWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFileChooserWidgetMethod "getExtraWidget" o = FileChooserGetExtraWidgetMethodInfo + ResolveFileChooserWidgetMethod "getFile" o = FileChooserGetFileMethodInfo + ResolveFileChooserWidgetMethod "getFilename" o = FileChooserGetFilenameMethodInfo + ResolveFileChooserWidgetMethod "getFilenames" o = FileChooserGetFilenamesMethodInfo + ResolveFileChooserWidgetMethod "getFiles" o = FileChooserGetFilesMethodInfo + ResolveFileChooserWidgetMethod "getFilter" o = FileChooserGetFilterMethodInfo + ResolveFileChooserWidgetMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveFileChooserWidgetMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveFileChooserWidgetMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveFileChooserWidgetMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveFileChooserWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveFileChooserWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFileChooserWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFileChooserWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFileChooserWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFileChooserWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFileChooserWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFileChooserWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFileChooserWidgetMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveFileChooserWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFileChooserWidgetMethod "getLocalOnly" o = FileChooserGetLocalOnlyMethodInfo + ResolveFileChooserWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFileChooserWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFileChooserWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFileChooserWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFileChooserWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFileChooserWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFileChooserWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFileChooserWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFileChooserWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFileChooserWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFileChooserWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveFileChooserWidgetMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveFileChooserWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFileChooserWidgetMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFileChooserWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFileChooserWidgetMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFileChooserWidgetMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveFileChooserWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFileChooserWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFileChooserWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFileChooserWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFileChooserWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFileChooserWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFileChooserWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFileChooserWidgetMethod "getPreviewFile" o = FileChooserGetPreviewFileMethodInfo + ResolveFileChooserWidgetMethod "getPreviewFilename" o = FileChooserGetPreviewFilenameMethodInfo + ResolveFileChooserWidgetMethod "getPreviewUri" o = FileChooserGetPreviewUriMethodInfo + ResolveFileChooserWidgetMethod "getPreviewWidget" o = FileChooserGetPreviewWidgetMethodInfo + ResolveFileChooserWidgetMethod "getPreviewWidgetActive" o = FileChooserGetPreviewWidgetActiveMethodInfo + ResolveFileChooserWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFileChooserWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFileChooserWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFileChooserWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFileChooserWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFileChooserWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFileChooserWidgetMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveFileChooserWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFileChooserWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFileChooserWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveFileChooserWidgetMethod "getSelectMultiple" o = FileChooserGetSelectMultipleMethodInfo + ResolveFileChooserWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFileChooserWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFileChooserWidgetMethod "getShowHidden" o = FileChooserGetShowHiddenMethodInfo + ResolveFileChooserWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFileChooserWidgetMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveFileChooserWidgetMethod "getState" o = WidgetGetStateMethodInfo + ResolveFileChooserWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFileChooserWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFileChooserWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFileChooserWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFileChooserWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFileChooserWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFileChooserWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFileChooserWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFileChooserWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFileChooserWidgetMethod "getUri" o = FileChooserGetUriMethodInfo + ResolveFileChooserWidgetMethod "getUris" o = FileChooserGetUrisMethodInfo + ResolveFileChooserWidgetMethod "getUsePreviewLabel" o = FileChooserGetUsePreviewLabelMethodInfo + ResolveFileChooserWidgetMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFileChooserWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFileChooserWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFileChooserWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFileChooserWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFileChooserWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFileChooserWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFileChooserWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFileChooserWidgetMethod "setAction" o = FileChooserSetActionMethodInfo + ResolveFileChooserWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFileChooserWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFileChooserWidgetMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveFileChooserWidgetMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveFileChooserWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFileChooserWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFileChooserWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFileChooserWidgetMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveFileChooserWidgetMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveFileChooserWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFileChooserWidgetMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFileChooserWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFileChooserWidgetMethod "setCreateFolders" o = FileChooserSetCreateFoldersMethodInfo + ResolveFileChooserWidgetMethod "setCurrentFolder" o = FileChooserSetCurrentFolderMethodInfo + ResolveFileChooserWidgetMethod "setCurrentFolderFile" o = FileChooserSetCurrentFolderFileMethodInfo + ResolveFileChooserWidgetMethod "setCurrentFolderUri" o = FileChooserSetCurrentFolderUriMethodInfo + ResolveFileChooserWidgetMethod "setCurrentName" o = FileChooserSetCurrentNameMethodInfo + ResolveFileChooserWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFileChooserWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFileChooserWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFileChooserWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFileChooserWidgetMethod "setDoOverwriteConfirmation" o = FileChooserSetDoOverwriteConfirmationMethodInfo + ResolveFileChooserWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFileChooserWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFileChooserWidgetMethod "setExtraWidget" o = FileChooserSetExtraWidgetMethodInfo + ResolveFileChooserWidgetMethod "setFile" o = FileChooserSetFileMethodInfo + ResolveFileChooserWidgetMethod "setFilename" o = FileChooserSetFilenameMethodInfo + ResolveFileChooserWidgetMethod "setFilter" o = FileChooserSetFilterMethodInfo + ResolveFileChooserWidgetMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveFileChooserWidgetMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveFileChooserWidgetMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveFileChooserWidgetMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveFileChooserWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveFileChooserWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFileChooserWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFileChooserWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFileChooserWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFileChooserWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFileChooserWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFileChooserWidgetMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveFileChooserWidgetMethod "setLocalOnly" o = FileChooserSetLocalOnlyMethodInfo + ResolveFileChooserWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFileChooserWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFileChooserWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFileChooserWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFileChooserWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFileChooserWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFileChooserWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFileChooserWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFileChooserWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveFileChooserWidgetMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveFileChooserWidgetMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFileChooserWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFileChooserWidgetMethod "setPreviewWidget" o = FileChooserSetPreviewWidgetMethodInfo + ResolveFileChooserWidgetMethod "setPreviewWidgetActive" o = FileChooserSetPreviewWidgetActiveMethodInfo + ResolveFileChooserWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFileChooserWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFileChooserWidgetMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveFileChooserWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFileChooserWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFileChooserWidgetMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveFileChooserWidgetMethod "setSelectMultiple" o = FileChooserSetSelectMultipleMethodInfo + ResolveFileChooserWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFileChooserWidgetMethod "setShowHidden" o = FileChooserSetShowHiddenMethodInfo + ResolveFileChooserWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFileChooserWidgetMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveFileChooserWidgetMethod "setState" o = WidgetSetStateMethodInfo + ResolveFileChooserWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFileChooserWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFileChooserWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFileChooserWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFileChooserWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFileChooserWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFileChooserWidgetMethod "setUri" o = FileChooserSetUriMethodInfo + ResolveFileChooserWidgetMethod "setUsePreviewLabel" o = FileChooserSetUsePreviewLabelMethodInfo + ResolveFileChooserWidgetMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFileChooserWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFileChooserWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFileChooserWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFileChooserWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFileChooserWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFileChooserWidgetMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFileChooserWidgetMethod t FileChooserWidget, MethodInfo info FileChooserWidget p) => IsLabelProxy t (FileChooserWidget -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFileChooserWidgetMethod t FileChooserWidget, MethodInfo info FileChooserWidget p) => IsLabel t (FileChooserWidget -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal FileChooserWidget::desktop-folder type FileChooserWidgetDesktopFolderCallback = IO () @@ -516,8 +913,8 @@ Int32 -> Ptr () -> IO () -fileChooserWidgetQuickBookmarkCallbackWrapper _cb _ bookmark_index _ = do - _cb bookmark_index +fileChooserWidgetQuickBookmarkCallbackWrapper _cb _ bookmarkIndex _ = do + _cb bookmarkIndex onFileChooserWidgetQuickBookmark :: (GObject a, MonadIO m) => a -> FileChooserWidgetQuickBookmarkCallback -> m SignalHandlerId onFileChooserWidgetQuickBookmark obj cb = liftIO $ connectFileChooserWidgetQuickBookmark obj cb SignalConnectBefore @@ -701,7 +1098,7 @@ type AttrSetTypeConstraint FileChooserWidgetSearchModePropertyInfo = (~) Bool type AttrBaseTypeConstraint FileChooserWidgetSearchModePropertyInfo = FileChooserWidgetK type AttrGetType FileChooserWidgetSearchModePropertyInfo = Bool - type AttrLabel FileChooserWidgetSearchModePropertyInfo = "FileChooserWidget::search-mode" + type AttrLabel FileChooserWidgetSearchModePropertyInfo = "search-mode" attrGet _ = getFileChooserWidgetSearchMode attrSet _ = setFileChooserWidgetSearchMode attrConstruct _ = constructFileChooserWidgetSearchMode @@ -719,13 +1116,13 @@ type AttrSetTypeConstraint FileChooserWidgetSubtitlePropertyInfo = (~) () type AttrBaseTypeConstraint FileChooserWidgetSubtitlePropertyInfo = FileChooserWidgetK type AttrGetType FileChooserWidgetSubtitlePropertyInfo = T.Text - type AttrLabel FileChooserWidgetSubtitlePropertyInfo = "FileChooserWidget::subtitle" + type AttrLabel FileChooserWidgetSubtitlePropertyInfo = "subtitle" attrGet _ = getFileChooserWidgetSubtitle attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList FileChooserWidget = FileChooserWidgetAttributeList -type FileChooserWidgetAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("create-folders", FileChooserCreateFoldersPropertyInfo), '("do-overwrite-confirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extra-widget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("local-only", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-widget", FileChooserPreviewWidgetPropertyInfo), '("preview-widget-active", FileChooserPreviewWidgetActivePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("search-mode", FileChooserWidgetSearchModePropertyInfo), '("select-multiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-hidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", FileChooserWidgetSubtitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-preview-label", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type FileChooserWidgetAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("searchMode", FileChooserWidgetSearchModePropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", FileChooserWidgetSubtitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data FileChooserWidgetDesktopFolderSignalInfo instance SignalInfo FileChooserWidgetDesktopFolderSignalInfo where @@ -788,13 +1185,12 @@ connectSignal _ = connectFileChooserWidgetUpFolder type instance SignalList FileChooserWidget = FileChooserWidgetSignalList -type FileChooserWidgetSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("confirm-overwrite", FileChooserConfirmOverwriteSignalInfo), '("current-folder-changed", FileChooserCurrentFolderChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("desktop-folder", FileChooserWidgetDesktopFolderSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("down-folder", FileChooserWidgetDownFolderSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("file-activated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("home-folder", FileChooserWidgetHomeFolderSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("location-popup", FileChooserWidgetLocationPopupSignalInfo), '("location-popup-on-paste", FileChooserWidgetLocationPopupOnPasteSignalInfo), '("location-toggle-popup", FileChooserWidgetLocationTogglePopupSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("places-shortcut", FileChooserWidgetPlacesShortcutSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("quick-bookmark", FileChooserWidgetQuickBookmarkSignalInfo), '("realize", WidgetRealizeSignalInfo), '("recent-shortcut", FileChooserWidgetRecentShortcutSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("search-shortcut", FileChooserWidgetSearchShortcutSignalInfo), '("selection-changed", FileChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("show-hidden", FileChooserWidgetShowHiddenSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("up-folder", FileChooserWidgetUpFolderSignalInfo), '("update-preview", FileChooserUpdatePreviewSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FileChooserWidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("confirmOverwrite", FileChooserConfirmOverwriteSignalInfo), '("currentFolderChanged", FileChooserCurrentFolderChangedSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("desktopFolder", FileChooserWidgetDesktopFolderSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("downFolder", FileChooserWidgetDownFolderSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("fileActivated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("homeFolder", FileChooserWidgetHomeFolderSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("locationPopup", FileChooserWidgetLocationPopupSignalInfo), '("locationPopupOnPaste", FileChooserWidgetLocationPopupOnPasteSignalInfo), '("locationTogglePopup", FileChooserWidgetLocationTogglePopupSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("placesShortcut", FileChooserWidgetPlacesShortcutSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("quickBookmark", FileChooserWidgetQuickBookmarkSignalInfo), '("realize", WidgetRealizeSignalInfo), '("recentShortcut", FileChooserWidgetRecentShortcutSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("searchShortcut", FileChooserWidgetSearchShortcutSignalInfo), '("selectionChanged", FileChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("showHidden", FileChooserWidgetShowHiddenSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("upFolder", FileChooserWidgetUpFolderSignalInfo), '("updatePreview", FileChooserUpdatePreviewSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method FileChooserWidget::new -- method type : Constructor --- Args : [Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "FileChooserWidget" -- throws : False -- Skip return : False @@ -806,8 +1202,8 @@ fileChooserWidgetNew :: (MonadIO m) => - FileChooserAction -> -- action - m FileChooserWidget + FileChooserAction -- action + -> m FileChooserWidget -- result fileChooserWidgetNew action = liftIO $ do let action' = (fromIntegral . fromEnum) action result <- gtk_file_chooser_widget_new action' diff --git a/GI/Gtk/Objects/FileFilter.hs b/GI/Gtk/Objects/FileFilter.hs --- a/GI/Gtk/Objects/FileFilter.hs +++ b/GI/Gtk/Objects/FileFilter.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,30 +18,37 @@ -- * Methods -- ** fileFilterAddCustom + FileFilterAddCustomMethodInfo , fileFilterAddCustom , -- ** fileFilterAddMimeType + FileFilterAddMimeTypeMethodInfo , fileFilterAddMimeType , -- ** fileFilterAddPattern + FileFilterAddPatternMethodInfo , fileFilterAddPattern , -- ** fileFilterAddPixbufFormats + FileFilterAddPixbufFormatsMethodInfo , fileFilterAddPixbufFormats , -- ** fileFilterFilter + FileFilterFilterMethodInfo , fileFilterFilter , -- ** fileFilterGetName + FileFilterGetNameMethodInfo , fileFilterGetName , -- ** fileFilterGetNeeded + FileFilterGetNeededMethodInfo , fileFilterGetNeeded , @@ -49,6 +57,7 @@ -- ** fileFilterSetName + FileFilterSetNameMethodInfo , fileFilterSetName , @@ -89,17 +98,63 @@ noFileFilter :: Maybe FileFilter noFileFilter = Nothing +type family ResolveFileFilterMethod (t :: Symbol) (o :: *) :: * where + ResolveFileFilterMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFileFilterMethod "addCustom" o = FileFilterAddCustomMethodInfo + ResolveFileFilterMethod "addMimeType" o = FileFilterAddMimeTypeMethodInfo + ResolveFileFilterMethod "addPattern" o = FileFilterAddPatternMethodInfo + ResolveFileFilterMethod "addPixbufFormats" o = FileFilterAddPixbufFormatsMethodInfo + ResolveFileFilterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFileFilterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFileFilterMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFileFilterMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFileFilterMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFileFilterMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFileFilterMethod "filter" o = FileFilterFilterMethodInfo + ResolveFileFilterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFileFilterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFileFilterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFileFilterMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFileFilterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFileFilterMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFileFilterMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFileFilterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFileFilterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFileFilterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFileFilterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFileFilterMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFileFilterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFileFilterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFileFilterMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFileFilterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFileFilterMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFileFilterMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFileFilterMethod "getNeeded" o = FileFilterGetNeededMethodInfo + ResolveFileFilterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFileFilterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFileFilterMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFileFilterMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFileFilterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFileFilterMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFileFilterMethod t FileFilter, MethodInfo info FileFilter p) => IsLabelProxy t (FileFilter -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFileFilterMethod t FileFilter, MethodInfo info FileFilter p) => IsLabel t (FileFilter -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList FileFilter = FileFilterAttributeList type FileFilterAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList FileFilter = FileFilterSignalList -type FileFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FileFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method FileFilter::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "FileFilter" -- throws : False -- Skip return : False @@ -110,7 +165,7 @@ fileFilterNew :: (MonadIO m) => - m FileFilter + m FileFilter -- result fileFilterNew = liftIO $ do result <- gtk_file_filter_new checkUnexpectedReturnNULL "gtk_file_filter_new" result @@ -119,9 +174,8 @@ -- method FileFilter::add_custom -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needed", argType = TInterface "Gtk" "FileFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "FileFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needed", argType = TInterface "Gtk" "FileFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "FileFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needed", argType = TInterface "Gtk" "FileFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "FileFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -137,10 +191,10 @@ fileFilterAddCustom :: (MonadIO m, FileFilterK a) => - a -> -- _obj - [FileFilterFlags] -> -- needed - FileFilterFunc -> -- func - m () + a -- _obj + -> [FileFilterFlags] -- needed + -> FileFilterFunc -- func + -> m () -- result fileFilterAddCustom _obj needed func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let needed' = gflagsToWord needed @@ -151,11 +205,14 @@ touchManagedPtr _obj return () +data FileFilterAddCustomMethodInfo +instance (signature ~ ([FileFilterFlags] -> FileFilterFunc -> m ()), MonadIO m, FileFilterK a) => MethodInfo FileFilterAddCustomMethodInfo a signature where + overloadedMethod _ = fileFilterAddCustom + -- method FileFilter::add_mime_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -168,22 +225,25 @@ fileFilterAddMimeType :: (MonadIO m, FileFilterK a) => - a -> -- _obj - T.Text -> -- mime_type - m () -fileFilterAddMimeType _obj mime_type = liftIO $ do + a -- _obj + -> T.Text -- mimeType + -> m () -- result +fileFilterAddMimeType _obj mimeType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - mime_type' <- textToCString mime_type - gtk_file_filter_add_mime_type _obj' mime_type' + mimeType' <- textToCString mimeType + gtk_file_filter_add_mime_type _obj' mimeType' touchManagedPtr _obj - freeMem mime_type' + freeMem mimeType' return () +data FileFilterAddMimeTypeMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, FileFilterK a) => MethodInfo FileFilterAddMimeTypeMethodInfo a signature where + overloadedMethod _ = fileFilterAddMimeType + -- method FileFilter::add_pattern -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -196,9 +256,9 @@ fileFilterAddPattern :: (MonadIO m, FileFilterK a) => - a -> -- _obj - T.Text -> -- pattern - m () + a -- _obj + -> T.Text -- pattern + -> m () -- result fileFilterAddPattern _obj pattern = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj pattern' <- textToCString pattern @@ -207,11 +267,14 @@ freeMem pattern' return () +data FileFilterAddPatternMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, FileFilterK a) => MethodInfo FileFilterAddPatternMethodInfo a signature where + overloadedMethod _ = fileFilterAddPattern + -- method FileFilter::add_pixbuf_formats -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -223,19 +286,22 @@ fileFilterAddPixbufFormats :: (MonadIO m, FileFilterK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result fileFilterAddPixbufFormats _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_file_filter_add_pixbuf_formats _obj' touchManagedPtr _obj return () +data FileFilterAddPixbufFormatsMethodInfo +instance (signature ~ (m ()), MonadIO m, FileFilterK a) => MethodInfo FileFilterAddPixbufFormatsMethodInfo a signature where + overloadedMethod _ = fileFilterAddPixbufFormats + -- method FileFilter::filter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_info", argType = TInterface "Gtk" "FileFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_info", argType = TInterface "Gtk" "FileFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_info", argType = TInterface "Gtk" "FileFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -248,23 +314,26 @@ fileFilterFilter :: (MonadIO m, FileFilterK a) => - a -> -- _obj - FileFilterInfo -> -- filter_info - m Bool -fileFilterFilter _obj filter_info = liftIO $ do + a -- _obj + -> FileFilterInfo -- filterInfo + -> m Bool -- result +fileFilterFilter _obj filterInfo = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let filter_info' = unsafeManagedPtrGetPtr filter_info - result <- gtk_file_filter_filter _obj' filter_info' + let filterInfo' = unsafeManagedPtrGetPtr filterInfo + result <- gtk_file_filter_filter _obj' filterInfo' let result' = (/= 0) result touchManagedPtr _obj - touchManagedPtr filter_info + touchManagedPtr filterInfo return result' +data FileFilterFilterMethodInfo +instance (signature ~ (FileFilterInfo -> m Bool), MonadIO m, FileFilterK a) => MethodInfo FileFilterFilterMethodInfo a signature where + overloadedMethod _ = fileFilterFilter + -- method FileFilter::get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -276,8 +345,8 @@ fileFilterGetName :: (MonadIO m, FileFilterK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result fileFilterGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_filter_get_name _obj' @@ -286,11 +355,14 @@ touchManagedPtr _obj return result' +data FileFilterGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FileFilterK a) => MethodInfo FileFilterGetNameMethodInfo a signature where + overloadedMethod _ = fileFilterGetName + -- method FileFilter::get_needed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "FileFilterFlags" -- throws : False -- Skip return : False @@ -302,8 +374,8 @@ fileFilterGetNeeded :: (MonadIO m, FileFilterK a) => - a -> -- _obj - m [FileFilterFlags] + a -- _obj + -> m [FileFilterFlags] -- result fileFilterGetNeeded _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_filter_get_needed _obj' @@ -311,11 +383,14 @@ touchManagedPtr _obj return result' +data FileFilterGetNeededMethodInfo +instance (signature ~ (m [FileFilterFlags]), MonadIO m, FileFilterK a) => MethodInfo FileFilterGetNeededMethodInfo a signature where + overloadedMethod _ = fileFilterGetNeeded + -- method FileFilter::set_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -328,9 +403,9 @@ fileFilterSetName :: (MonadIO m, FileFilterK a) => - a -> -- _obj - Maybe (T.Text) -> -- name - m () + a -- _obj + -> Maybe (T.Text) -- name + -> m () -- result fileFilterSetName _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeName <- case name of @@ -342,5 +417,9 @@ touchManagedPtr _obj freeMem maybeName return () + +data FileFilterSetNameMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, FileFilterK a) => MethodInfo FileFilterSetNameMethodInfo a signature where + overloadedMethod _ = fileFilterSetName diff --git a/GI/Gtk/Objects/FileFilter.hs-boot b/GI/Gtk/Objects/FileFilter.hs-boot --- a/GI/Gtk/Objects/FileFilter.hs-boot +++ b/GI/Gtk/Objects/FileFilter.hs-boot @@ -11,3 +11,11 @@ instance GObject FileFilter where class GObject o => FileFilterK o instance (GObject o, IsDescendantOf FileFilter o) => FileFilterK o +data FileFilterAddCustomMethodInfo +data FileFilterAddMimeTypeMethodInfo +data FileFilterAddPatternMethodInfo +data FileFilterAddPixbufFormatsMethodInfo +data FileFilterFilterMethodInfo +data FileFilterGetNameMethodInfo +data FileFilterGetNeededMethodInfo +data FileFilterSetNameMethodInfo diff --git a/GI/Gtk/Objects/Fixed.hs b/GI/Gtk/Objects/Fixed.hs --- a/GI/Gtk/Objects/Fixed.hs +++ b/GI/Gtk/Objects/Fixed.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** fixedMove + FixedMoveMethodInfo , fixedMove , @@ -25,6 +27,7 @@ -- ** fixedPut + FixedPutMethodInfo , fixedPut , @@ -65,17 +68,340 @@ noFixed :: Maybe Fixed noFixed = Nothing +type family ResolveFixedMethod (t :: Symbol) (o :: *) :: * where + ResolveFixedMethod "activate" o = WidgetActivateMethodInfo + ResolveFixedMethod "add" o = ContainerAddMethodInfo + ResolveFixedMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFixedMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFixedMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFixedMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFixedMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFixedMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFixedMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFixedMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFixedMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFixedMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveFixedMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFixedMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveFixedMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveFixedMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveFixedMethod "childType" o = ContainerChildTypeMethodInfo + ResolveFixedMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFixedMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFixedMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFixedMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFixedMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFixedMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFixedMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFixedMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFixedMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFixedMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFixedMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFixedMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFixedMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFixedMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFixedMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFixedMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFixedMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFixedMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFixedMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFixedMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFixedMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFixedMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFixedMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFixedMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFixedMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFixedMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFixedMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFixedMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFixedMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFixedMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFixedMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFixedMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFixedMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFixedMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFixedMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFixedMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFixedMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFixedMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFixedMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFixedMethod "draw" o = WidgetDrawMethodInfo + ResolveFixedMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFixedMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFixedMethod "event" o = WidgetEventMethodInfo + ResolveFixedMethod "forall" o = ContainerForallMethodInfo + ResolveFixedMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFixedMethod "foreach" o = ContainerForeachMethodInfo + ResolveFixedMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFixedMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFixedMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFixedMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFixedMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFixedMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFixedMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFixedMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFixedMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFixedMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFixedMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFixedMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFixedMethod "hide" o = WidgetHideMethodInfo + ResolveFixedMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFixedMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFixedMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFixedMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFixedMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFixedMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFixedMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFixedMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFixedMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFixedMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFixedMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFixedMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFixedMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFixedMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFixedMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFixedMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFixedMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFixedMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFixedMethod "map" o = WidgetMapMethodInfo + ResolveFixedMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveFixedMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFixedMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFixedMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFixedMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFixedMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFixedMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFixedMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFixedMethod "move" o = FixedMoveMethodInfo + ResolveFixedMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFixedMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFixedMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFixedMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFixedMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFixedMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFixedMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFixedMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFixedMethod "path" o = WidgetPathMethodInfo + ResolveFixedMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveFixedMethod "put" o = FixedPutMethodInfo + ResolveFixedMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFixedMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFixedMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFixedMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFixedMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFixedMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFixedMethod "realize" o = WidgetRealizeMethodInfo + ResolveFixedMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFixedMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFixedMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFixedMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFixedMethod "remove" o = ContainerRemoveMethodInfo + ResolveFixedMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFixedMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFixedMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFixedMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFixedMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFixedMethod "reparent" o = WidgetReparentMethodInfo + ResolveFixedMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFixedMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFixedMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFixedMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFixedMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveFixedMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFixedMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFixedMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFixedMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFixedMethod "show" o = WidgetShowMethodInfo + ResolveFixedMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFixedMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFixedMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFixedMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFixedMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFixedMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFixedMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFixedMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFixedMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFixedMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFixedMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFixedMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFixedMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFixedMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFixedMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFixedMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFixedMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFixedMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFixedMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveFixedMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFixedMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFixedMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFixedMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFixedMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFixedMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFixedMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFixedMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFixedMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFixedMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFixedMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveFixedMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFixedMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFixedMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFixedMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFixedMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveFixedMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFixedMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFixedMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFixedMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFixedMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFixedMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFixedMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFixedMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFixedMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFixedMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFixedMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveFixedMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveFixedMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveFixedMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveFixedMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveFixedMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFixedMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFixedMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFixedMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFixedMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFixedMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFixedMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFixedMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFixedMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFixedMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFixedMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFixedMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFixedMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFixedMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFixedMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFixedMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFixedMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFixedMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFixedMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveFixedMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFixedMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFixedMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFixedMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFixedMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveFixedMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFixedMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFixedMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFixedMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFixedMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFixedMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFixedMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFixedMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFixedMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFixedMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFixedMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFixedMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFixedMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFixedMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveFixedMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFixedMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFixedMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveFixedMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFixedMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFixedMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFixedMethod "getState" o = WidgetGetStateMethodInfo + ResolveFixedMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFixedMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFixedMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFixedMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFixedMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFixedMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFixedMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFixedMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFixedMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFixedMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFixedMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFixedMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFixedMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFixedMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFixedMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFixedMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFixedMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFixedMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFixedMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFixedMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveFixedMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFixedMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFixedMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFixedMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFixedMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFixedMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFixedMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFixedMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFixedMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFixedMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFixedMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFixedMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFixedMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveFixedMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveFixedMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveFixedMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveFixedMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveFixedMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFixedMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFixedMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFixedMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFixedMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFixedMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFixedMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFixedMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFixedMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFixedMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFixedMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFixedMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFixedMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFixedMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFixedMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveFixedMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFixedMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFixedMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFixedMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFixedMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveFixedMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFixedMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFixedMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveFixedMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFixedMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFixedMethod "setState" o = WidgetSetStateMethodInfo + ResolveFixedMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFixedMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFixedMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFixedMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFixedMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFixedMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFixedMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFixedMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFixedMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFixedMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFixedMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFixedMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFixedMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFixedMethod t Fixed, MethodInfo info Fixed p) => IsLabelProxy t (Fixed -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFixedMethod t Fixed, MethodInfo info Fixed p) => IsLabel t (Fixed -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList Fixed = FixedAttributeList -type FixedAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type FixedAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Fixed = FixedSignalList -type FixedSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FixedSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Fixed::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Fixed" -- throws : False -- Skip return : False @@ -86,7 +412,7 @@ fixedNew :: (MonadIO m) => - m Fixed + m Fixed -- result fixedNew = liftIO $ do result <- gtk_fixed_new checkUnexpectedReturnNULL "gtk_fixed_new" result @@ -95,9 +421,8 @@ -- method Fixed::move -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -112,11 +437,11 @@ fixedMove :: (MonadIO m, FixedK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Int32 -> -- x - Int32 -> -- y - m () + a -- _obj + -> b -- widget + -> Int32 -- x + -> Int32 -- y + -> m () -- result fixedMove _obj widget x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget @@ -125,11 +450,14 @@ touchManagedPtr widget return () +data FixedMoveMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, FixedK a, WidgetK b) => MethodInfo FixedMoveMethodInfo a signature where + overloadedMethod _ = fixedMove + -- method Fixed::put -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -144,11 +472,11 @@ fixedPut :: (MonadIO m, FixedK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Int32 -> -- x - Int32 -> -- y - m () + a -- _obj + -> b -- widget + -> Int32 -- x + -> Int32 -- y + -> m () -- result fixedPut _obj widget x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget @@ -156,5 +484,9 @@ touchManagedPtr _obj touchManagedPtr widget return () + +data FixedPutMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, FixedK a, WidgetK b) => MethodInfo FixedPutMethodInfo a signature where + overloadedMethod _ = fixedPut diff --git a/GI/Gtk/Objects/Fixed.hs-boot b/GI/Gtk/Objects/Fixed.hs-boot --- a/GI/Gtk/Objects/Fixed.hs-boot +++ b/GI/Gtk/Objects/Fixed.hs-boot @@ -11,3 +11,5 @@ instance GObject Fixed where class GObject o => FixedK o instance (GObject o, IsDescendantOf Fixed o) => FixedK o +data FixedMoveMethodInfo +data FixedPutMethodInfo diff --git a/GI/Gtk/Objects/FlowBox.hs b/GI/Gtk/Objects/FlowBox.hs --- a/GI/Gtk/Objects/FlowBox.hs +++ b/GI/Gtk/Objects/FlowBox.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,50 +18,62 @@ -- * Methods -- ** flowBoxGetActivateOnSingleClick + FlowBoxGetActivateOnSingleClickMethodInfo, flowBoxGetActivateOnSingleClick , -- ** flowBoxGetChildAtIndex + FlowBoxGetChildAtIndexMethodInfo , flowBoxGetChildAtIndex , -- ** flowBoxGetColumnSpacing + FlowBoxGetColumnSpacingMethodInfo , flowBoxGetColumnSpacing , -- ** flowBoxGetHomogeneous + FlowBoxGetHomogeneousMethodInfo , flowBoxGetHomogeneous , -- ** flowBoxGetMaxChildrenPerLine + FlowBoxGetMaxChildrenPerLineMethodInfo , flowBoxGetMaxChildrenPerLine , -- ** flowBoxGetMinChildrenPerLine + FlowBoxGetMinChildrenPerLineMethodInfo , flowBoxGetMinChildrenPerLine , -- ** flowBoxGetRowSpacing + FlowBoxGetRowSpacingMethodInfo , flowBoxGetRowSpacing , -- ** flowBoxGetSelectedChildren + FlowBoxGetSelectedChildrenMethodInfo , flowBoxGetSelectedChildren , -- ** flowBoxGetSelectionMode + FlowBoxGetSelectionModeMethodInfo , flowBoxGetSelectionMode , -- ** flowBoxInsert + FlowBoxInsertMethodInfo , flowBoxInsert , -- ** flowBoxInvalidateFilter + FlowBoxInvalidateFilterMethodInfo , flowBoxInvalidateFilter , -- ** flowBoxInvalidateSort + FlowBoxInvalidateSortMethodInfo , flowBoxInvalidateSort , @@ -69,66 +82,82 @@ -- ** flowBoxSelectAll + FlowBoxSelectAllMethodInfo , flowBoxSelectAll , -- ** flowBoxSelectChild + FlowBoxSelectChildMethodInfo , flowBoxSelectChild , -- ** flowBoxSelectedForeach + FlowBoxSelectedForeachMethodInfo , flowBoxSelectedForeach , -- ** flowBoxSetActivateOnSingleClick + FlowBoxSetActivateOnSingleClickMethodInfo, flowBoxSetActivateOnSingleClick , -- ** flowBoxSetColumnSpacing + FlowBoxSetColumnSpacingMethodInfo , flowBoxSetColumnSpacing , -- ** flowBoxSetFilterFunc + FlowBoxSetFilterFuncMethodInfo , flowBoxSetFilterFunc , -- ** flowBoxSetHadjustment + FlowBoxSetHadjustmentMethodInfo , flowBoxSetHadjustment , -- ** flowBoxSetHomogeneous + FlowBoxSetHomogeneousMethodInfo , flowBoxSetHomogeneous , -- ** flowBoxSetMaxChildrenPerLine + FlowBoxSetMaxChildrenPerLineMethodInfo , flowBoxSetMaxChildrenPerLine , -- ** flowBoxSetMinChildrenPerLine + FlowBoxSetMinChildrenPerLineMethodInfo , flowBoxSetMinChildrenPerLine , -- ** flowBoxSetRowSpacing + FlowBoxSetRowSpacingMethodInfo , flowBoxSetRowSpacing , -- ** flowBoxSetSelectionMode + FlowBoxSetSelectionModeMethodInfo , flowBoxSetSelectionMode , -- ** flowBoxSetSortFunc + FlowBoxSetSortFuncMethodInfo , flowBoxSetSortFunc , -- ** flowBoxSetVadjustment + FlowBoxSetVadjustmentMethodInfo , flowBoxSetVadjustment , -- ** flowBoxUnselectAll + FlowBoxUnselectAllMethodInfo , flowBoxUnselectAll , -- ** flowBoxUnselectChild + FlowBoxUnselectChildMethodInfo , flowBoxUnselectChild , @@ -309,6 +338,358 @@ noFlowBox :: Maybe FlowBox noFlowBox = Nothing +type family ResolveFlowBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveFlowBoxMethod "activate" o = WidgetActivateMethodInfo + ResolveFlowBoxMethod "add" o = ContainerAddMethodInfo + ResolveFlowBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFlowBoxMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFlowBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFlowBoxMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFlowBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFlowBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFlowBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFlowBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFlowBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFlowBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveFlowBoxMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFlowBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveFlowBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveFlowBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveFlowBoxMethod "childType" o = ContainerChildTypeMethodInfo + ResolveFlowBoxMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFlowBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFlowBoxMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFlowBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFlowBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFlowBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFlowBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFlowBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFlowBoxMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFlowBoxMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFlowBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFlowBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFlowBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFlowBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFlowBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFlowBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFlowBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFlowBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFlowBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFlowBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFlowBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFlowBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFlowBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFlowBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFlowBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFlowBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFlowBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFlowBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFlowBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFlowBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFlowBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFlowBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFlowBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFlowBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFlowBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFlowBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFlowBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFlowBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFlowBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFlowBoxMethod "draw" o = WidgetDrawMethodInfo + ResolveFlowBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFlowBoxMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFlowBoxMethod "event" o = WidgetEventMethodInfo + ResolveFlowBoxMethod "forall" o = ContainerForallMethodInfo + ResolveFlowBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFlowBoxMethod "foreach" o = ContainerForeachMethodInfo + ResolveFlowBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFlowBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFlowBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFlowBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFlowBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFlowBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFlowBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFlowBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFlowBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFlowBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFlowBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFlowBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFlowBoxMethod "hide" o = WidgetHideMethodInfo + ResolveFlowBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFlowBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFlowBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFlowBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFlowBoxMethod "insert" o = FlowBoxInsertMethodInfo + ResolveFlowBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFlowBoxMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFlowBoxMethod "invalidateFilter" o = FlowBoxInvalidateFilterMethodInfo + ResolveFlowBoxMethod "invalidateSort" o = FlowBoxInvalidateSortMethodInfo + ResolveFlowBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFlowBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFlowBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFlowBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFlowBoxMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFlowBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFlowBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFlowBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFlowBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFlowBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFlowBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFlowBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFlowBoxMethod "map" o = WidgetMapMethodInfo + ResolveFlowBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveFlowBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFlowBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFlowBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFlowBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFlowBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFlowBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFlowBoxMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFlowBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFlowBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFlowBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFlowBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFlowBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFlowBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFlowBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFlowBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFlowBoxMethod "path" o = WidgetPathMethodInfo + ResolveFlowBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveFlowBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFlowBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFlowBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFlowBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFlowBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFlowBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFlowBoxMethod "realize" o = WidgetRealizeMethodInfo + ResolveFlowBoxMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFlowBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFlowBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFlowBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFlowBoxMethod "remove" o = ContainerRemoveMethodInfo + ResolveFlowBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFlowBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFlowBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFlowBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFlowBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFlowBoxMethod "reparent" o = WidgetReparentMethodInfo + ResolveFlowBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFlowBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFlowBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFlowBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFlowBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveFlowBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFlowBoxMethod "selectAll" o = FlowBoxSelectAllMethodInfo + ResolveFlowBoxMethod "selectChild" o = FlowBoxSelectChildMethodInfo + ResolveFlowBoxMethod "selectedForeach" o = FlowBoxSelectedForeachMethodInfo + ResolveFlowBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFlowBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFlowBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFlowBoxMethod "show" o = WidgetShowMethodInfo + ResolveFlowBoxMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFlowBoxMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFlowBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFlowBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFlowBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFlowBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFlowBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFlowBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFlowBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFlowBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFlowBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFlowBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFlowBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFlowBoxMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFlowBoxMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFlowBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFlowBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFlowBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFlowBoxMethod "unselectAll" o = FlowBoxUnselectAllMethodInfo + ResolveFlowBoxMethod "unselectChild" o = FlowBoxUnselectChildMethodInfo + ResolveFlowBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveFlowBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFlowBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFlowBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFlowBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFlowBoxMethod "getActivateOnSingleClick" o = FlowBoxGetActivateOnSingleClickMethodInfo + ResolveFlowBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFlowBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFlowBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFlowBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFlowBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFlowBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFlowBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveFlowBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFlowBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFlowBoxMethod "getChildAtIndex" o = FlowBoxGetChildAtIndexMethodInfo + ResolveFlowBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFlowBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFlowBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveFlowBoxMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFlowBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFlowBoxMethod "getColumnSpacing" o = FlowBoxGetColumnSpacingMethodInfo + ResolveFlowBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFlowBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFlowBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFlowBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFlowBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFlowBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFlowBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFlowBoxMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFlowBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveFlowBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveFlowBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveFlowBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveFlowBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveFlowBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFlowBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFlowBoxMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFlowBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFlowBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFlowBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFlowBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFlowBoxMethod "getHomogeneous" o = FlowBoxGetHomogeneousMethodInfo + ResolveFlowBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFlowBoxMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFlowBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFlowBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFlowBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFlowBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFlowBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFlowBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFlowBoxMethod "getMaxChildrenPerLine" o = FlowBoxGetMaxChildrenPerLineMethodInfo + ResolveFlowBoxMethod "getMinChildrenPerLine" o = FlowBoxGetMinChildrenPerLineMethodInfo + ResolveFlowBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFlowBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFlowBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFlowBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveFlowBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveFlowBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFlowBoxMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFlowBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFlowBoxMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFlowBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveFlowBoxMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFlowBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFlowBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFlowBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFlowBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFlowBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFlowBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFlowBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFlowBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFlowBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFlowBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFlowBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFlowBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFlowBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveFlowBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFlowBoxMethod "getRowSpacing" o = FlowBoxGetRowSpacingMethodInfo + ResolveFlowBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFlowBoxMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveFlowBoxMethod "getSelectedChildren" o = FlowBoxGetSelectedChildrenMethodInfo + ResolveFlowBoxMethod "getSelectionMode" o = FlowBoxGetSelectionModeMethodInfo + ResolveFlowBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFlowBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFlowBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFlowBoxMethod "getState" o = WidgetGetStateMethodInfo + ResolveFlowBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFlowBoxMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFlowBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFlowBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFlowBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFlowBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFlowBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFlowBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFlowBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFlowBoxMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFlowBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFlowBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFlowBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFlowBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFlowBoxMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFlowBoxMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFlowBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFlowBoxMethod "setActivateOnSingleClick" o = FlowBoxSetActivateOnSingleClickMethodInfo + ResolveFlowBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFlowBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFlowBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveFlowBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFlowBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFlowBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFlowBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFlowBoxMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFlowBoxMethod "setColumnSpacing" o = FlowBoxSetColumnSpacingMethodInfo + ResolveFlowBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFlowBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFlowBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFlowBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFlowBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFlowBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFlowBoxMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFlowBoxMethod "setFilterFunc" o = FlowBoxSetFilterFuncMethodInfo + ResolveFlowBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveFlowBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveFlowBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveFlowBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveFlowBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveFlowBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFlowBoxMethod "setHadjustment" o = FlowBoxSetHadjustmentMethodInfo + ResolveFlowBoxMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFlowBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFlowBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFlowBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFlowBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFlowBoxMethod "setHomogeneous" o = FlowBoxSetHomogeneousMethodInfo + ResolveFlowBoxMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFlowBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFlowBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFlowBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFlowBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFlowBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFlowBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFlowBoxMethod "setMaxChildrenPerLine" o = FlowBoxSetMaxChildrenPerLineMethodInfo + ResolveFlowBoxMethod "setMinChildrenPerLine" o = FlowBoxSetMinChildrenPerLineMethodInfo + ResolveFlowBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFlowBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveFlowBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveFlowBoxMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFlowBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFlowBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFlowBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFlowBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveFlowBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFlowBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFlowBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveFlowBoxMethod "setRowSpacing" o = FlowBoxSetRowSpacingMethodInfo + ResolveFlowBoxMethod "setSelectionMode" o = FlowBoxSetSelectionModeMethodInfo + ResolveFlowBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFlowBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFlowBoxMethod "setSortFunc" o = FlowBoxSetSortFuncMethodInfo + ResolveFlowBoxMethod "setState" o = WidgetSetStateMethodInfo + ResolveFlowBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFlowBoxMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFlowBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFlowBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFlowBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFlowBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFlowBoxMethod "setVadjustment" o = FlowBoxSetVadjustmentMethodInfo + ResolveFlowBoxMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFlowBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFlowBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFlowBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFlowBoxMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFlowBoxMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFlowBoxMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFlowBoxMethod t FlowBox, MethodInfo info FlowBox p) => IsLabelProxy t (FlowBox -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFlowBoxMethod t FlowBox, MethodInfo info FlowBox p) => IsLabel t (FlowBox -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal FlowBox::activate-cursor-child type FlowBoxActivateCursorChildCallback = IO () @@ -607,7 +988,7 @@ type AttrSetTypeConstraint FlowBoxActivateOnSingleClickPropertyInfo = (~) Bool type AttrBaseTypeConstraint FlowBoxActivateOnSingleClickPropertyInfo = FlowBoxK type AttrGetType FlowBoxActivateOnSingleClickPropertyInfo = Bool - type AttrLabel FlowBoxActivateOnSingleClickPropertyInfo = "FlowBox::activate-on-single-click" + type AttrLabel FlowBoxActivateOnSingleClickPropertyInfo = "activate-on-single-click" attrGet _ = getFlowBoxActivateOnSingleClick attrSet _ = setFlowBoxActivateOnSingleClick attrConstruct _ = constructFlowBoxActivateOnSingleClick @@ -631,7 +1012,7 @@ type AttrSetTypeConstraint FlowBoxColumnSpacingPropertyInfo = (~) Word32 type AttrBaseTypeConstraint FlowBoxColumnSpacingPropertyInfo = FlowBoxK type AttrGetType FlowBoxColumnSpacingPropertyInfo = Word32 - type AttrLabel FlowBoxColumnSpacingPropertyInfo = "FlowBox::column-spacing" + type AttrLabel FlowBoxColumnSpacingPropertyInfo = "column-spacing" attrGet _ = getFlowBoxColumnSpacing attrSet _ = setFlowBoxColumnSpacing attrConstruct _ = constructFlowBoxColumnSpacing @@ -655,7 +1036,7 @@ type AttrSetTypeConstraint FlowBoxHomogeneousPropertyInfo = (~) Bool type AttrBaseTypeConstraint FlowBoxHomogeneousPropertyInfo = FlowBoxK type AttrGetType FlowBoxHomogeneousPropertyInfo = Bool - type AttrLabel FlowBoxHomogeneousPropertyInfo = "FlowBox::homogeneous" + type AttrLabel FlowBoxHomogeneousPropertyInfo = "homogeneous" attrGet _ = getFlowBoxHomogeneous attrSet _ = setFlowBoxHomogeneous attrConstruct _ = constructFlowBoxHomogeneous @@ -679,7 +1060,7 @@ type AttrSetTypeConstraint FlowBoxMaxChildrenPerLinePropertyInfo = (~) Word32 type AttrBaseTypeConstraint FlowBoxMaxChildrenPerLinePropertyInfo = FlowBoxK type AttrGetType FlowBoxMaxChildrenPerLinePropertyInfo = Word32 - type AttrLabel FlowBoxMaxChildrenPerLinePropertyInfo = "FlowBox::max-children-per-line" + type AttrLabel FlowBoxMaxChildrenPerLinePropertyInfo = "max-children-per-line" attrGet _ = getFlowBoxMaxChildrenPerLine attrSet _ = setFlowBoxMaxChildrenPerLine attrConstruct _ = constructFlowBoxMaxChildrenPerLine @@ -703,7 +1084,7 @@ type AttrSetTypeConstraint FlowBoxMinChildrenPerLinePropertyInfo = (~) Word32 type AttrBaseTypeConstraint FlowBoxMinChildrenPerLinePropertyInfo = FlowBoxK type AttrGetType FlowBoxMinChildrenPerLinePropertyInfo = Word32 - type AttrLabel FlowBoxMinChildrenPerLinePropertyInfo = "FlowBox::min-children-per-line" + type AttrLabel FlowBoxMinChildrenPerLinePropertyInfo = "min-children-per-line" attrGet _ = getFlowBoxMinChildrenPerLine attrSet _ = setFlowBoxMinChildrenPerLine attrConstruct _ = constructFlowBoxMinChildrenPerLine @@ -727,7 +1108,7 @@ type AttrSetTypeConstraint FlowBoxRowSpacingPropertyInfo = (~) Word32 type AttrBaseTypeConstraint FlowBoxRowSpacingPropertyInfo = FlowBoxK type AttrGetType FlowBoxRowSpacingPropertyInfo = Word32 - type AttrLabel FlowBoxRowSpacingPropertyInfo = "FlowBox::row-spacing" + type AttrLabel FlowBoxRowSpacingPropertyInfo = "row-spacing" attrGet _ = getFlowBoxRowSpacing attrSet _ = setFlowBoxRowSpacing attrConstruct _ = constructFlowBoxRowSpacing @@ -751,13 +1132,13 @@ type AttrSetTypeConstraint FlowBoxSelectionModePropertyInfo = (~) SelectionMode type AttrBaseTypeConstraint FlowBoxSelectionModePropertyInfo = FlowBoxK type AttrGetType FlowBoxSelectionModePropertyInfo = SelectionMode - type AttrLabel FlowBoxSelectionModePropertyInfo = "FlowBox::selection-mode" + type AttrLabel FlowBoxSelectionModePropertyInfo = "selection-mode" attrGet _ = getFlowBoxSelectionMode attrSet _ = setFlowBoxSelectionMode attrConstruct _ = constructFlowBoxSelectionMode type instance AttributeList FlowBox = FlowBoxAttributeList -type FlowBoxAttributeList = ('[ '("activate-on-single-click", FlowBoxActivateOnSingleClickPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-spacing", FlowBoxColumnSpacingPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", FlowBoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-children-per-line", FlowBoxMaxChildrenPerLinePropertyInfo), '("min-children-per-line", FlowBoxMinChildrenPerLinePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-spacing", FlowBoxRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selection-mode", FlowBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type FlowBoxAttributeList = ('[ '("activateOnSingleClick", FlowBoxActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpacing", FlowBoxColumnSpacingPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", FlowBoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxChildrenPerLine", FlowBoxMaxChildrenPerLinePropertyInfo), '("minChildrenPerLine", FlowBoxMinChildrenPerLinePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpacing", FlowBoxRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectionMode", FlowBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data FlowBoxActivateCursorChildSignalInfo instance SignalInfo FlowBoxActivateCursorChildSignalInfo where @@ -795,13 +1176,12 @@ connectSignal _ = connectFlowBoxUnselectAll type instance SignalList FlowBox = FlowBoxSignalList -type FlowBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-cursor-child", FlowBoxActivateCursorChildSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-activated", FlowBoxChildActivatedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", FlowBoxMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", FlowBoxSelectAllSignalInfo), '("selected-children-changed", FlowBoxSelectedChildrenChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-cursor-child", FlowBoxToggleCursorChildSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselect-all", FlowBoxUnselectAllSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FlowBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCursorChild", FlowBoxActivateCursorChildSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childActivated", FlowBoxChildActivatedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", FlowBoxMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectAll", FlowBoxSelectAllSignalInfo), '("selectedChildrenChanged", FlowBoxSelectedChildrenChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleCursorChild", FlowBoxToggleCursorChildSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselectAll", FlowBoxUnselectAllSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method FlowBox::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "FlowBox" -- throws : False -- Skip return : False @@ -812,7 +1192,7 @@ flowBoxNew :: (MonadIO m) => - m FlowBox + m FlowBox -- result flowBoxNew = liftIO $ do result <- gtk_flow_box_new checkUnexpectedReturnNULL "gtk_flow_box_new" result @@ -821,9 +1201,8 @@ -- method FlowBox::get_activate_on_single_click -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -835,8 +1214,8 @@ flowBoxGetActivateOnSingleClick :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result flowBoxGetActivateOnSingleClick _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_activate_on_single_click _obj' @@ -844,11 +1223,14 @@ touchManagedPtr _obj return result' +data FlowBoxGetActivateOnSingleClickMethodInfo +instance (signature ~ (m Bool), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetActivateOnSingleClickMethodInfo a signature where + overloadedMethod _ = flowBoxGetActivateOnSingleClick + -- method FlowBox::get_child_at_index -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "idx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "idx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "idx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "FlowBoxChild" -- throws : False -- Skip return : False @@ -861,9 +1243,9 @@ flowBoxGetChildAtIndex :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - Int32 -> -- idx - m FlowBoxChild + a -- _obj + -> Int32 -- idx + -> m FlowBoxChild -- result flowBoxGetChildAtIndex _obj idx = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_child_at_index _obj' idx @@ -872,11 +1254,14 @@ touchManagedPtr _obj return result' +data FlowBoxGetChildAtIndexMethodInfo +instance (signature ~ (Int32 -> m FlowBoxChild), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetChildAtIndexMethodInfo a signature where + overloadedMethod _ = flowBoxGetChildAtIndex + -- method FlowBox::get_column_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -888,19 +1273,22 @@ flowBoxGetColumnSpacing :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result flowBoxGetColumnSpacing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_column_spacing _obj' touchManagedPtr _obj return result +data FlowBoxGetColumnSpacingMethodInfo +instance (signature ~ (m Word32), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetColumnSpacingMethodInfo a signature where + overloadedMethod _ = flowBoxGetColumnSpacing + -- method FlowBox::get_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -912,8 +1300,8 @@ flowBoxGetHomogeneous :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result flowBoxGetHomogeneous _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_homogeneous _obj' @@ -921,11 +1309,14 @@ touchManagedPtr _obj return result' +data FlowBoxGetHomogeneousMethodInfo +instance (signature ~ (m Bool), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetHomogeneousMethodInfo a signature where + overloadedMethod _ = flowBoxGetHomogeneous + -- method FlowBox::get_max_children_per_line -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -937,19 +1328,22 @@ flowBoxGetMaxChildrenPerLine :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result flowBoxGetMaxChildrenPerLine _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_max_children_per_line _obj' touchManagedPtr _obj return result +data FlowBoxGetMaxChildrenPerLineMethodInfo +instance (signature ~ (m Word32), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetMaxChildrenPerLineMethodInfo a signature where + overloadedMethod _ = flowBoxGetMaxChildrenPerLine + -- method FlowBox::get_min_children_per_line -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -961,19 +1355,22 @@ flowBoxGetMinChildrenPerLine :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result flowBoxGetMinChildrenPerLine _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_min_children_per_line _obj' touchManagedPtr _obj return result +data FlowBoxGetMinChildrenPerLineMethodInfo +instance (signature ~ (m Word32), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetMinChildrenPerLineMethodInfo a signature where + overloadedMethod _ = flowBoxGetMinChildrenPerLine + -- method FlowBox::get_row_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -985,19 +1382,22 @@ flowBoxGetRowSpacing :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result flowBoxGetRowSpacing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_row_spacing _obj' touchManagedPtr _obj return result +data FlowBoxGetRowSpacingMethodInfo +instance (signature ~ (m Word32), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetRowSpacingMethodInfo a signature where + overloadedMethod _ = flowBoxGetRowSpacing + -- method FlowBox::get_selected_children -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "FlowBoxChild") -- throws : False -- Skip return : False @@ -1009,8 +1409,8 @@ flowBoxGetSelectedChildren :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - m [FlowBoxChild] + a -- _obj + -> m [FlowBoxChild] -- result flowBoxGetSelectedChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_selected_children _obj' @@ -1021,11 +1421,14 @@ touchManagedPtr _obj return result'' +data FlowBoxGetSelectedChildrenMethodInfo +instance (signature ~ (m [FlowBoxChild]), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetSelectedChildrenMethodInfo a signature where + overloadedMethod _ = flowBoxGetSelectedChildren + -- method FlowBox::get_selection_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SelectionMode" -- throws : False -- Skip return : False @@ -1037,8 +1440,8 @@ flowBoxGetSelectionMode :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - m SelectionMode + a -- _obj + -> m SelectionMode -- result flowBoxGetSelectionMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_selection_mode _obj' @@ -1046,11 +1449,14 @@ touchManagedPtr _obj return result' +data FlowBoxGetSelectionModeMethodInfo +instance (signature ~ (m SelectionMode), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetSelectionModeMethodInfo a signature where + overloadedMethod _ = flowBoxGetSelectionMode + -- method FlowBox::insert -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1064,10 +1470,10 @@ flowBoxInsert :: (MonadIO m, FlowBoxK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Int32 -> -- position - m () + a -- _obj + -> b -- widget + -> Int32 -- position + -> m () -- result flowBoxInsert _obj widget position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget @@ -1076,11 +1482,14 @@ touchManagedPtr widget return () +data FlowBoxInsertMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, FlowBoxK a, WidgetK b) => MethodInfo FlowBoxInsertMethodInfo a signature where + overloadedMethod _ = flowBoxInsert + -- method FlowBox::invalidate_filter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1092,19 +1501,22 @@ flowBoxInvalidateFilter :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result flowBoxInvalidateFilter _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_flow_box_invalidate_filter _obj' touchManagedPtr _obj return () +data FlowBoxInvalidateFilterMethodInfo +instance (signature ~ (m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxInvalidateFilterMethodInfo a signature where + overloadedMethod _ = flowBoxInvalidateFilter + -- method FlowBox::invalidate_sort -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1116,19 +1528,22 @@ flowBoxInvalidateSort :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result flowBoxInvalidateSort _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_flow_box_invalidate_sort _obj' touchManagedPtr _obj return () +data FlowBoxInvalidateSortMethodInfo +instance (signature ~ (m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxInvalidateSortMethodInfo a signature where + overloadedMethod _ = flowBoxInvalidateSort + -- method FlowBox::select_all -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1140,19 +1555,22 @@ flowBoxSelectAll :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result flowBoxSelectAll _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_flow_box_select_all _obj' touchManagedPtr _obj return () +data FlowBoxSelectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSelectAllMethodInfo a signature where + overloadedMethod _ = flowBoxSelectAll + -- method FlowBox::select_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1165,9 +1583,9 @@ flowBoxSelectChild :: (MonadIO m, FlowBoxK a, FlowBoxChildK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result flowBoxSelectChild _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -1176,11 +1594,14 @@ touchManagedPtr child return () +data FlowBoxSelectChildMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FlowBoxK a, FlowBoxChildK b) => MethodInfo FlowBoxSelectChildMethodInfo a signature where + overloadedMethod _ = flowBoxSelectChild + -- method FlowBox::selected_foreach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "FlowBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "FlowBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "FlowBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1194,9 +1615,9 @@ flowBoxSelectedForeach :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - FlowBoxForeachFunc -> -- func - m () + a -- _obj + -> FlowBoxForeachFunc -- func + -> m () -- result flowBoxSelectedForeach _obj func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj func' <- mkFlowBoxForeachFunc (flowBoxForeachFuncWrapper Nothing func) @@ -1206,11 +1627,14 @@ touchManagedPtr _obj return () +data FlowBoxSelectedForeachMethodInfo +instance (signature ~ (FlowBoxForeachFunc -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSelectedForeachMethodInfo a signature where + overloadedMethod _ = flowBoxSelectedForeach + -- method FlowBox::set_activate_on_single_click -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1223,9 +1647,9 @@ flowBoxSetActivateOnSingleClick :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - Bool -> -- single - m () + a -- _obj + -> Bool -- single + -> m () -- result flowBoxSetActivateOnSingleClick _obj single = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let single' = (fromIntegral . fromEnum) single @@ -1233,11 +1657,14 @@ touchManagedPtr _obj return () +data FlowBoxSetActivateOnSingleClickMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetActivateOnSingleClickMethodInfo a signature where + overloadedMethod _ = flowBoxSetActivateOnSingleClick + -- method FlowBox::set_column_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1250,20 +1677,23 @@ flowBoxSetColumnSpacing :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - Word32 -> -- spacing - m () + a -- _obj + -> Word32 -- spacing + -> m () -- result flowBoxSetColumnSpacing _obj spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_flow_box_set_column_spacing _obj' spacing touchManagedPtr _obj return () +data FlowBoxSetColumnSpacingMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetColumnSpacingMethodInfo a signature where + overloadedMethod _ = flowBoxSetColumnSpacing + -- method FlowBox::set_filter_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_func", argType = TInterface "Gtk" "FlowBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_func", argType = TInterface "Gtk" "FlowBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_func", argType = TInterface "Gtk" "FlowBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1278,27 +1708,30 @@ flowBoxSetFilterFunc :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - Maybe (FlowBoxFilterFunc) -> -- filter_func - m () -flowBoxSetFilterFunc _obj filter_func = liftIO $ do + a -- _obj + -> Maybe (FlowBoxFilterFunc) -- filterFunc + -> m () -- result +flowBoxSetFilterFunc _obj filterFunc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeFilter_func <- case filter_func of + maybeFilterFunc <- case filterFunc of Nothing -> return (castPtrToFunPtr nullPtr) - Just jFilter_func -> do - jFilter_func' <- mkFlowBoxFilterFunc (flowBoxFilterFuncWrapper Nothing jFilter_func) - return jFilter_func' - let user_data = castFunPtrToPtr maybeFilter_func + Just jFilterFunc -> do + jFilterFunc' <- mkFlowBoxFilterFunc (flowBoxFilterFuncWrapper Nothing jFilterFunc) + return jFilterFunc' + let userData = castFunPtrToPtr maybeFilterFunc let destroy = safeFreeFunPtrPtr - gtk_flow_box_set_filter_func _obj' maybeFilter_func user_data destroy + gtk_flow_box_set_filter_func _obj' maybeFilterFunc userData destroy touchManagedPtr _obj return () +data FlowBoxSetFilterFuncMethodInfo +instance (signature ~ (Maybe (FlowBoxFilterFunc) -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetFilterFuncMethodInfo a signature where + overloadedMethod _ = flowBoxSetFilterFunc + -- method FlowBox::set_hadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1311,9 +1744,9 @@ flowBoxSetHadjustment :: (MonadIO m, FlowBoxK a, AdjustmentK b) => - a -> -- _obj - b -> -- adjustment - m () + a -- _obj + -> b -- adjustment + -> m () -- result flowBoxSetHadjustment _obj adjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let adjustment' = unsafeManagedPtrCastPtr adjustment @@ -1322,11 +1755,14 @@ touchManagedPtr adjustment return () +data FlowBoxSetHadjustmentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FlowBoxK a, AdjustmentK b) => MethodInfo FlowBoxSetHadjustmentMethodInfo a signature where + overloadedMethod _ = flowBoxSetHadjustment + -- method FlowBox::set_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1339,9 +1775,9 @@ flowBoxSetHomogeneous :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - Bool -> -- homogeneous - m () + a -- _obj + -> Bool -- homogeneous + -> m () -- result flowBoxSetHomogeneous _obj homogeneous = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let homogeneous' = (fromIntegral . fromEnum) homogeneous @@ -1349,11 +1785,14 @@ touchManagedPtr _obj return () +data FlowBoxSetHomogeneousMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetHomogeneousMethodInfo a signature where + overloadedMethod _ = flowBoxSetHomogeneous + -- method FlowBox::set_max_children_per_line -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1366,20 +1805,23 @@ flowBoxSetMaxChildrenPerLine :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - Word32 -> -- n_children - m () -flowBoxSetMaxChildrenPerLine _obj n_children = liftIO $ do + a -- _obj + -> Word32 -- nChildren + -> m () -- result +flowBoxSetMaxChildrenPerLine _obj nChildren = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_set_max_children_per_line _obj' n_children + gtk_flow_box_set_max_children_per_line _obj' nChildren touchManagedPtr _obj return () +data FlowBoxSetMaxChildrenPerLineMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetMaxChildrenPerLineMethodInfo a signature where + overloadedMethod _ = flowBoxSetMaxChildrenPerLine + -- method FlowBox::set_min_children_per_line -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1392,20 +1834,23 @@ flowBoxSetMinChildrenPerLine :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - Word32 -> -- n_children - m () -flowBoxSetMinChildrenPerLine _obj n_children = liftIO $ do + a -- _obj + -> Word32 -- nChildren + -> m () -- result +flowBoxSetMinChildrenPerLine _obj nChildren = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_set_min_children_per_line _obj' n_children + gtk_flow_box_set_min_children_per_line _obj' nChildren touchManagedPtr _obj return () +data FlowBoxSetMinChildrenPerLineMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetMinChildrenPerLineMethodInfo a signature where + overloadedMethod _ = flowBoxSetMinChildrenPerLine + -- method FlowBox::set_row_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1418,20 +1863,23 @@ flowBoxSetRowSpacing :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - Word32 -> -- spacing - m () + a -- _obj + -> Word32 -- spacing + -> m () -- result flowBoxSetRowSpacing _obj spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_flow_box_set_row_spacing _obj' spacing touchManagedPtr _obj return () +data FlowBoxSetRowSpacingMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetRowSpacingMethodInfo a signature where + overloadedMethod _ = flowBoxSetRowSpacing + -- method FlowBox::set_selection_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1444,9 +1892,9 @@ flowBoxSetSelectionMode :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - SelectionMode -> -- mode - m () + a -- _obj + -> SelectionMode -- mode + -> m () -- result flowBoxSetSelectionMode _obj mode = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let mode' = (fromIntegral . fromEnum) mode @@ -1454,11 +1902,14 @@ touchManagedPtr _obj return () +data FlowBoxSetSelectionModeMethodInfo +instance (signature ~ (SelectionMode -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetSelectionModeMethodInfo a signature where + overloadedMethod _ = flowBoxSetSelectionMode + -- method FlowBox::set_sort_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "FlowBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "FlowBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "FlowBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1473,27 +1924,30 @@ flowBoxSetSortFunc :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - Maybe (FlowBoxSortFunc) -> -- sort_func - m () -flowBoxSetSortFunc _obj sort_func = liftIO $ do + a -- _obj + -> Maybe (FlowBoxSortFunc) -- sortFunc + -> m () -- result +flowBoxSetSortFunc _obj sortFunc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeSort_func <- case sort_func of + maybeSortFunc <- case sortFunc of Nothing -> return (castPtrToFunPtr nullPtr) - Just jSort_func -> do - jSort_func' <- mkFlowBoxSortFunc (flowBoxSortFuncWrapper Nothing jSort_func) - return jSort_func' - let user_data = castFunPtrToPtr maybeSort_func + Just jSortFunc -> do + jSortFunc' <- mkFlowBoxSortFunc (flowBoxSortFuncWrapper Nothing jSortFunc) + return jSortFunc' + let userData = castFunPtrToPtr maybeSortFunc let destroy = safeFreeFunPtrPtr - gtk_flow_box_set_sort_func _obj' maybeSort_func user_data destroy + gtk_flow_box_set_sort_func _obj' maybeSortFunc userData destroy touchManagedPtr _obj return () +data FlowBoxSetSortFuncMethodInfo +instance (signature ~ (Maybe (FlowBoxSortFunc) -> m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxSetSortFuncMethodInfo a signature where + overloadedMethod _ = flowBoxSetSortFunc + -- method FlowBox::set_vadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1506,9 +1960,9 @@ flowBoxSetVadjustment :: (MonadIO m, FlowBoxK a, AdjustmentK b) => - a -> -- _obj - b -> -- adjustment - m () + a -- _obj + -> b -- adjustment + -> m () -- result flowBoxSetVadjustment _obj adjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let adjustment' = unsafeManagedPtrCastPtr adjustment @@ -1517,11 +1971,14 @@ touchManagedPtr adjustment return () +data FlowBoxSetVadjustmentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FlowBoxK a, AdjustmentK b) => MethodInfo FlowBoxSetVadjustmentMethodInfo a signature where + overloadedMethod _ = flowBoxSetVadjustment + -- method FlowBox::unselect_all -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1533,19 +1990,22 @@ flowBoxUnselectAll :: (MonadIO m, FlowBoxK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result flowBoxUnselectAll _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_flow_box_unselect_all _obj' touchManagedPtr _obj return () +data FlowBoxUnselectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxUnselectAllMethodInfo a signature where + overloadedMethod _ = flowBoxUnselectAll + -- method FlowBox::unselect_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1558,9 +2018,9 @@ flowBoxUnselectChild :: (MonadIO m, FlowBoxK a, FlowBoxChildK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result flowBoxUnselectChild _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -1568,5 +2028,9 @@ touchManagedPtr _obj touchManagedPtr child return () + +data FlowBoxUnselectChildMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, FlowBoxK a, FlowBoxChildK b) => MethodInfo FlowBoxUnselectChildMethodInfo a signature where + overloadedMethod _ = flowBoxUnselectChild diff --git a/GI/Gtk/Objects/FlowBox.hs-boot b/GI/Gtk/Objects/FlowBox.hs-boot --- a/GI/Gtk/Objects/FlowBox.hs-boot +++ b/GI/Gtk/Objects/FlowBox.hs-boot @@ -25,3 +25,31 @@ data FlowBoxSelectedChildrenChangedSignalInfo data FlowBoxToggleCursorChildSignalInfo data FlowBoxUnselectAllSignalInfo +data FlowBoxGetActivateOnSingleClickMethodInfo +data FlowBoxGetChildAtIndexMethodInfo +data FlowBoxGetColumnSpacingMethodInfo +data FlowBoxGetHomogeneousMethodInfo +data FlowBoxGetMaxChildrenPerLineMethodInfo +data FlowBoxGetMinChildrenPerLineMethodInfo +data FlowBoxGetRowSpacingMethodInfo +data FlowBoxGetSelectedChildrenMethodInfo +data FlowBoxGetSelectionModeMethodInfo +data FlowBoxInsertMethodInfo +data FlowBoxInvalidateFilterMethodInfo +data FlowBoxInvalidateSortMethodInfo +data FlowBoxSelectAllMethodInfo +data FlowBoxSelectChildMethodInfo +data FlowBoxSelectedForeachMethodInfo +data FlowBoxSetActivateOnSingleClickMethodInfo +data FlowBoxSetColumnSpacingMethodInfo +data FlowBoxSetFilterFuncMethodInfo +data FlowBoxSetHadjustmentMethodInfo +data FlowBoxSetHomogeneousMethodInfo +data FlowBoxSetMaxChildrenPerLineMethodInfo +data FlowBoxSetMinChildrenPerLineMethodInfo +data FlowBoxSetRowSpacingMethodInfo +data FlowBoxSetSelectionModeMethodInfo +data FlowBoxSetSortFuncMethodInfo +data FlowBoxSetVadjustmentMethodInfo +data FlowBoxUnselectAllMethodInfo +data FlowBoxUnselectChildMethodInfo diff --git a/GI/Gtk/Objects/FlowBoxAccessible.hs b/GI/Gtk/Objects/FlowBoxAccessible.hs --- a/GI/Gtk/Objects/FlowBoxAccessible.hs +++ b/GI/Gtk/Objects/FlowBoxAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,85 @@ noFlowBoxAccessible :: Maybe FlowBoxAccessible noFlowBoxAccessible = Nothing +type family ResolveFlowBoxAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveFlowBoxAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveFlowBoxAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo + ResolveFlowBoxAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFlowBoxAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFlowBoxAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo + ResolveFlowBoxAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveFlowBoxAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveFlowBoxAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFlowBoxAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFlowBoxAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveFlowBoxAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveFlowBoxAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo + ResolveFlowBoxAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFlowBoxAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFlowBoxAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFlowBoxAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveFlowBoxAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveFlowBoxAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFlowBoxAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveFlowBoxAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveFlowBoxAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveFlowBoxAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo + ResolveFlowBoxAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFlowBoxAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveFlowBoxAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveFlowBoxAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveFlowBoxAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveFlowBoxAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo + ResolveFlowBoxAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFlowBoxAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFlowBoxAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFlowBoxAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo + ResolveFlowBoxAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFlowBoxAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFlowBoxAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFlowBoxAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFlowBoxAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFlowBoxAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveFlowBoxAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveFlowBoxAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFlowBoxAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveFlowBoxAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveFlowBoxAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveFlowBoxAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveFlowBoxAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveFlowBoxAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveFlowBoxAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveFlowBoxAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveFlowBoxAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFlowBoxAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFlowBoxAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveFlowBoxAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo + ResolveFlowBoxAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveFlowBoxAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveFlowBoxAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFlowBoxAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveFlowBoxAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveFlowBoxAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveFlowBoxAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveFlowBoxAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveFlowBoxAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFlowBoxAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveFlowBoxAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveFlowBoxAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveFlowBoxAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFlowBoxAccessibleMethod t FlowBoxAccessible, MethodInfo info FlowBoxAccessible p) => IsLabelProxy t (FlowBoxAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFlowBoxAccessibleMethod t FlowBoxAccessible, MethodInfo info FlowBoxAccessible p) => IsLabel t (FlowBoxAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList FlowBoxAccessible = FlowBoxAccessibleAttributeList -type FlowBoxAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type FlowBoxAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList FlowBoxAccessible = FlowBoxAccessibleSignalList -type FlowBoxAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FlowBoxAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/FlowBoxChild.hs b/GI/Gtk/Objects/FlowBoxChild.hs --- a/GI/Gtk/Objects/FlowBoxChild.hs +++ b/GI/Gtk/Objects/FlowBoxChild.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** flowBoxChildChanged + FlowBoxChildChangedMethodInfo , flowBoxChildChanged , -- ** flowBoxChildGetIndex + FlowBoxChildGetIndexMethodInfo , flowBoxChildGetIndex , -- ** flowBoxChildIsSelected + FlowBoxChildIsSelectedMethodInfo , flowBoxChildIsSelected , @@ -84,6 +88,332 @@ noFlowBoxChild :: Maybe FlowBoxChild noFlowBoxChild = Nothing +type family ResolveFlowBoxChildMethod (t :: Symbol) (o :: *) :: * where + ResolveFlowBoxChildMethod "activate" o = WidgetActivateMethodInfo + ResolveFlowBoxChildMethod "add" o = ContainerAddMethodInfo + ResolveFlowBoxChildMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFlowBoxChildMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFlowBoxChildMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFlowBoxChildMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFlowBoxChildMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFlowBoxChildMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFlowBoxChildMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFlowBoxChildMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFlowBoxChildMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFlowBoxChildMethod "changed" o = FlowBoxChildChangedMethodInfo + ResolveFlowBoxChildMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveFlowBoxChildMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFlowBoxChildMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveFlowBoxChildMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveFlowBoxChildMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveFlowBoxChildMethod "childType" o = ContainerChildTypeMethodInfo + ResolveFlowBoxChildMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFlowBoxChildMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFlowBoxChildMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFlowBoxChildMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFlowBoxChildMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFlowBoxChildMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFlowBoxChildMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFlowBoxChildMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFlowBoxChildMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFlowBoxChildMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFlowBoxChildMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFlowBoxChildMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFlowBoxChildMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFlowBoxChildMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFlowBoxChildMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFlowBoxChildMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFlowBoxChildMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFlowBoxChildMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFlowBoxChildMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFlowBoxChildMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFlowBoxChildMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFlowBoxChildMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFlowBoxChildMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFlowBoxChildMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFlowBoxChildMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFlowBoxChildMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFlowBoxChildMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFlowBoxChildMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFlowBoxChildMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFlowBoxChildMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFlowBoxChildMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFlowBoxChildMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFlowBoxChildMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFlowBoxChildMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFlowBoxChildMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFlowBoxChildMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFlowBoxChildMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFlowBoxChildMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFlowBoxChildMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFlowBoxChildMethod "draw" o = WidgetDrawMethodInfo + ResolveFlowBoxChildMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFlowBoxChildMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFlowBoxChildMethod "event" o = WidgetEventMethodInfo + ResolveFlowBoxChildMethod "forall" o = ContainerForallMethodInfo + ResolveFlowBoxChildMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFlowBoxChildMethod "foreach" o = ContainerForeachMethodInfo + ResolveFlowBoxChildMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFlowBoxChildMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFlowBoxChildMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFlowBoxChildMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFlowBoxChildMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFlowBoxChildMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFlowBoxChildMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFlowBoxChildMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFlowBoxChildMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFlowBoxChildMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFlowBoxChildMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFlowBoxChildMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFlowBoxChildMethod "hide" o = WidgetHideMethodInfo + ResolveFlowBoxChildMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFlowBoxChildMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFlowBoxChildMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFlowBoxChildMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFlowBoxChildMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFlowBoxChildMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFlowBoxChildMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFlowBoxChildMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFlowBoxChildMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFlowBoxChildMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFlowBoxChildMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFlowBoxChildMethod "isSelected" o = FlowBoxChildIsSelectedMethodInfo + ResolveFlowBoxChildMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFlowBoxChildMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFlowBoxChildMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFlowBoxChildMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFlowBoxChildMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFlowBoxChildMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFlowBoxChildMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFlowBoxChildMethod "map" o = WidgetMapMethodInfo + ResolveFlowBoxChildMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveFlowBoxChildMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFlowBoxChildMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFlowBoxChildMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFlowBoxChildMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFlowBoxChildMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFlowBoxChildMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFlowBoxChildMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFlowBoxChildMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFlowBoxChildMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFlowBoxChildMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFlowBoxChildMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFlowBoxChildMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFlowBoxChildMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFlowBoxChildMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFlowBoxChildMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFlowBoxChildMethod "path" o = WidgetPathMethodInfo + ResolveFlowBoxChildMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveFlowBoxChildMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFlowBoxChildMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFlowBoxChildMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFlowBoxChildMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFlowBoxChildMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFlowBoxChildMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFlowBoxChildMethod "realize" o = WidgetRealizeMethodInfo + ResolveFlowBoxChildMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFlowBoxChildMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFlowBoxChildMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFlowBoxChildMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFlowBoxChildMethod "remove" o = ContainerRemoveMethodInfo + ResolveFlowBoxChildMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFlowBoxChildMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFlowBoxChildMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFlowBoxChildMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFlowBoxChildMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFlowBoxChildMethod "reparent" o = WidgetReparentMethodInfo + ResolveFlowBoxChildMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFlowBoxChildMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFlowBoxChildMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFlowBoxChildMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFlowBoxChildMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveFlowBoxChildMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFlowBoxChildMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFlowBoxChildMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFlowBoxChildMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFlowBoxChildMethod "show" o = WidgetShowMethodInfo + ResolveFlowBoxChildMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFlowBoxChildMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFlowBoxChildMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFlowBoxChildMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFlowBoxChildMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFlowBoxChildMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFlowBoxChildMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFlowBoxChildMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFlowBoxChildMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFlowBoxChildMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFlowBoxChildMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFlowBoxChildMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFlowBoxChildMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFlowBoxChildMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFlowBoxChildMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFlowBoxChildMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFlowBoxChildMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFlowBoxChildMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFlowBoxChildMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveFlowBoxChildMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFlowBoxChildMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFlowBoxChildMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFlowBoxChildMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFlowBoxChildMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFlowBoxChildMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFlowBoxChildMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFlowBoxChildMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFlowBoxChildMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFlowBoxChildMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFlowBoxChildMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveFlowBoxChildMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFlowBoxChildMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFlowBoxChildMethod "getChild" o = BinGetChildMethodInfo + ResolveFlowBoxChildMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFlowBoxChildMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFlowBoxChildMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveFlowBoxChildMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFlowBoxChildMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFlowBoxChildMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFlowBoxChildMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFlowBoxChildMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFlowBoxChildMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFlowBoxChildMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFlowBoxChildMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFlowBoxChildMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFlowBoxChildMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFlowBoxChildMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveFlowBoxChildMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveFlowBoxChildMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveFlowBoxChildMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveFlowBoxChildMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveFlowBoxChildMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFlowBoxChildMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFlowBoxChildMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFlowBoxChildMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFlowBoxChildMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFlowBoxChildMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFlowBoxChildMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFlowBoxChildMethod "getIndex" o = FlowBoxChildGetIndexMethodInfo + ResolveFlowBoxChildMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFlowBoxChildMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFlowBoxChildMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFlowBoxChildMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFlowBoxChildMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFlowBoxChildMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFlowBoxChildMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFlowBoxChildMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFlowBoxChildMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFlowBoxChildMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFlowBoxChildMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFlowBoxChildMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveFlowBoxChildMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFlowBoxChildMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFlowBoxChildMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFlowBoxChildMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFlowBoxChildMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveFlowBoxChildMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFlowBoxChildMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFlowBoxChildMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFlowBoxChildMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFlowBoxChildMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFlowBoxChildMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFlowBoxChildMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFlowBoxChildMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFlowBoxChildMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFlowBoxChildMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFlowBoxChildMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFlowBoxChildMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFlowBoxChildMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFlowBoxChildMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveFlowBoxChildMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFlowBoxChildMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFlowBoxChildMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveFlowBoxChildMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFlowBoxChildMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFlowBoxChildMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFlowBoxChildMethod "getState" o = WidgetGetStateMethodInfo + ResolveFlowBoxChildMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFlowBoxChildMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFlowBoxChildMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFlowBoxChildMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFlowBoxChildMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFlowBoxChildMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFlowBoxChildMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFlowBoxChildMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFlowBoxChildMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFlowBoxChildMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFlowBoxChildMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFlowBoxChildMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFlowBoxChildMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFlowBoxChildMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFlowBoxChildMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFlowBoxChildMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFlowBoxChildMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFlowBoxChildMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFlowBoxChildMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFlowBoxChildMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveFlowBoxChildMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFlowBoxChildMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFlowBoxChildMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFlowBoxChildMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFlowBoxChildMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFlowBoxChildMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFlowBoxChildMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFlowBoxChildMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFlowBoxChildMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFlowBoxChildMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFlowBoxChildMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFlowBoxChildMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFlowBoxChildMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveFlowBoxChildMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveFlowBoxChildMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveFlowBoxChildMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveFlowBoxChildMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveFlowBoxChildMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFlowBoxChildMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFlowBoxChildMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFlowBoxChildMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFlowBoxChildMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFlowBoxChildMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFlowBoxChildMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFlowBoxChildMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFlowBoxChildMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFlowBoxChildMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFlowBoxChildMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFlowBoxChildMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFlowBoxChildMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFlowBoxChildMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFlowBoxChildMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveFlowBoxChildMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFlowBoxChildMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFlowBoxChildMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFlowBoxChildMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFlowBoxChildMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveFlowBoxChildMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFlowBoxChildMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFlowBoxChildMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveFlowBoxChildMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFlowBoxChildMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFlowBoxChildMethod "setState" o = WidgetSetStateMethodInfo + ResolveFlowBoxChildMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFlowBoxChildMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFlowBoxChildMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFlowBoxChildMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFlowBoxChildMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFlowBoxChildMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFlowBoxChildMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFlowBoxChildMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFlowBoxChildMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFlowBoxChildMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFlowBoxChildMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFlowBoxChildMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFlowBoxChildMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFlowBoxChildMethod t FlowBoxChild, MethodInfo info FlowBoxChild p) => IsLabelProxy t (FlowBoxChild -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFlowBoxChildMethod t FlowBoxChild, MethodInfo info FlowBoxChild p) => IsLabel t (FlowBoxChild -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal FlowBoxChild::activate type FlowBoxChildActivateCallback = IO () @@ -123,7 +453,7 @@ connectSignalFunPtr obj "activate" cb' after type instance AttributeList FlowBoxChild = FlowBoxChildAttributeList -type FlowBoxChildAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type FlowBoxChildAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data FlowBoxChildActivateSignalInfo instance SignalInfo FlowBoxChildActivateSignalInfo where @@ -131,13 +461,12 @@ connectSignal _ = connectFlowBoxChildActivate type instance SignalList FlowBoxChild = FlowBoxChildSignalList -type FlowBoxChildSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", FlowBoxChildActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FlowBoxChildSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", FlowBoxChildActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method FlowBoxChild::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "FlowBoxChild" -- throws : False -- Skip return : False @@ -148,7 +477,7 @@ flowBoxChildNew :: (MonadIO m) => - m FlowBoxChild + m FlowBoxChild -- result flowBoxChildNew = liftIO $ do result <- gtk_flow_box_child_new checkUnexpectedReturnNULL "gtk_flow_box_child_new" result @@ -157,9 +486,8 @@ -- method FlowBoxChild::changed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -171,19 +499,22 @@ flowBoxChildChanged :: (MonadIO m, FlowBoxChildK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result flowBoxChildChanged _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_flow_box_child_changed _obj' touchManagedPtr _obj return () +data FlowBoxChildChangedMethodInfo +instance (signature ~ (m ()), MonadIO m, FlowBoxChildK a) => MethodInfo FlowBoxChildChangedMethodInfo a signature where + overloadedMethod _ = flowBoxChildChanged + -- method FlowBoxChild::get_index -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -195,19 +526,22 @@ flowBoxChildGetIndex :: (MonadIO m, FlowBoxChildK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result flowBoxChildGetIndex _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_child_get_index _obj' touchManagedPtr _obj return result +data FlowBoxChildGetIndexMethodInfo +instance (signature ~ (m Int32), MonadIO m, FlowBoxChildK a) => MethodInfo FlowBoxChildGetIndexMethodInfo a signature where + overloadedMethod _ = flowBoxChildGetIndex + -- method FlowBoxChild::is_selected -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -219,13 +553,17 @@ flowBoxChildIsSelected :: (MonadIO m, FlowBoxChildK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result flowBoxChildIsSelected _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_child_is_selected _obj' let result' = (/= 0) result touchManagedPtr _obj return result' + +data FlowBoxChildIsSelectedMethodInfo +instance (signature ~ (m Bool), MonadIO m, FlowBoxChildK a) => MethodInfo FlowBoxChildIsSelectedMethodInfo a signature where + overloadedMethod _ = flowBoxChildIsSelected diff --git a/GI/Gtk/Objects/FlowBoxChild.hs-boot b/GI/Gtk/Objects/FlowBoxChild.hs-boot --- a/GI/Gtk/Objects/FlowBoxChild.hs-boot +++ b/GI/Gtk/Objects/FlowBoxChild.hs-boot @@ -12,3 +12,6 @@ class GObject o => FlowBoxChildK o instance (GObject o, IsDescendantOf FlowBoxChild o) => FlowBoxChildK o data FlowBoxChildActivateSignalInfo +data FlowBoxChildChangedMethodInfo +data FlowBoxChildGetIndexMethodInfo +data FlowBoxChildIsSelectedMethodInfo diff --git a/GI/Gtk/Objects/FlowBoxChildAccessible.hs b/GI/Gtk/Objects/FlowBoxChildAccessible.hs --- a/GI/Gtk/Objects/FlowBoxChildAccessible.hs +++ b/GI/Gtk/Objects/FlowBoxChildAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,78 @@ noFlowBoxChildAccessible :: Maybe FlowBoxChildAccessible noFlowBoxChildAccessible = Nothing +type family ResolveFlowBoxChildAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveFlowBoxChildAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveFlowBoxChildAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFlowBoxChildAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFlowBoxChildAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveFlowBoxChildAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveFlowBoxChildAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFlowBoxChildAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFlowBoxChildAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveFlowBoxChildAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveFlowBoxChildAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFlowBoxChildAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFlowBoxChildAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFlowBoxChildAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveFlowBoxChildAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveFlowBoxChildAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFlowBoxChildAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveFlowBoxChildAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveFlowBoxChildAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveFlowBoxChildAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFlowBoxChildAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveFlowBoxChildAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveFlowBoxChildAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveFlowBoxChildAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveFlowBoxChildAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFlowBoxChildAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFlowBoxChildAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFlowBoxChildAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFlowBoxChildAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFlowBoxChildAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFlowBoxChildAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFlowBoxChildAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFlowBoxChildAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveFlowBoxChildAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveFlowBoxChildAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFlowBoxChildAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveFlowBoxChildAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveFlowBoxChildAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveFlowBoxChildAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveFlowBoxChildAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveFlowBoxChildAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveFlowBoxChildAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveFlowBoxChildAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveFlowBoxChildAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFlowBoxChildAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFlowBoxChildAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveFlowBoxChildAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveFlowBoxChildAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveFlowBoxChildAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFlowBoxChildAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveFlowBoxChildAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveFlowBoxChildAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveFlowBoxChildAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveFlowBoxChildAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveFlowBoxChildAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFlowBoxChildAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveFlowBoxChildAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveFlowBoxChildAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveFlowBoxChildAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFlowBoxChildAccessibleMethod t FlowBoxChildAccessible, MethodInfo info FlowBoxChildAccessible p) => IsLabelProxy t (FlowBoxChildAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFlowBoxChildAccessibleMethod t FlowBoxChildAccessible, MethodInfo info FlowBoxChildAccessible p) => IsLabel t (FlowBoxChildAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList FlowBoxChildAccessible = FlowBoxChildAccessibleAttributeList -type FlowBoxChildAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type FlowBoxChildAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList FlowBoxChildAccessible = FlowBoxChildAccessibleSignalList -type FlowBoxChildAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FlowBoxChildAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/FontButton.hs b/GI/Gtk/Objects/FontButton.hs --- a/GI/Gtk/Objects/FontButton.hs +++ b/GI/Gtk/Objects/FontButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** fontButtonGetFontName + FontButtonGetFontNameMethodInfo , fontButtonGetFontName , -- ** fontButtonGetShowSize + FontButtonGetShowSizeMethodInfo , fontButtonGetShowSize , -- ** fontButtonGetShowStyle + FontButtonGetShowStyleMethodInfo , fontButtonGetShowStyle , -- ** fontButtonGetTitle + FontButtonGetTitleMethodInfo , fontButtonGetTitle , -- ** fontButtonGetUseFont + FontButtonGetUseFontMethodInfo , fontButtonGetUseFont , -- ** fontButtonGetUseSize + FontButtonGetUseSizeMethodInfo , fontButtonGetUseSize , @@ -49,26 +56,32 @@ -- ** fontButtonSetFontName + FontButtonSetFontNameMethodInfo , fontButtonSetFontName , -- ** fontButtonSetShowSize + FontButtonSetShowSizeMethodInfo , fontButtonSetShowSize , -- ** fontButtonSetShowStyle + FontButtonSetShowStyleMethodInfo , fontButtonSetShowStyle , -- ** fontButtonSetTitle + FontButtonSetTitleMethodInfo , fontButtonSetTitle , -- ** fontButtonSetUseFont + FontButtonSetUseFontMethodInfo , fontButtonSetUseFont , -- ** fontButtonSetUseSize + FontButtonSetUseSizeMethodInfo , fontButtonSetUseSize , @@ -169,6 +182,386 @@ noFontButton :: Maybe FontButton noFontButton = Nothing +type family ResolveFontButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveFontButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveFontButtonMethod "add" o = ContainerAddMethodInfo + ResolveFontButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFontButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFontButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFontButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFontButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFontButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFontButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFontButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFontButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFontButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveFontButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFontButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveFontButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveFontButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveFontButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveFontButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFontButtonMethod "clicked" o = ButtonClickedMethodInfo + ResolveFontButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFontButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFontButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFontButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFontButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFontButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFontButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFontButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFontButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFontButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFontButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveFontButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFontButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFontButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFontButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFontButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFontButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFontButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFontButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFontButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFontButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFontButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFontButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFontButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFontButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFontButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFontButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFontButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFontButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFontButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFontButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFontButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFontButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFontButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFontButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFontButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFontButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFontButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFontButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFontButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveFontButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFontButtonMethod "enter" o = ButtonEnterMethodInfo + ResolveFontButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFontButtonMethod "event" o = WidgetEventMethodInfo + ResolveFontButtonMethod "forall" o = ContainerForallMethodInfo + ResolveFontButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFontButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveFontButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFontButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFontButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFontButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFontButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFontButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFontButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFontButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFontButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFontButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFontButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFontButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFontButtonMethod "hide" o = WidgetHideMethodInfo + ResolveFontButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFontButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFontButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFontButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFontButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFontButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFontButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFontButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFontButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFontButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFontButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFontButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFontButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFontButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFontButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFontButtonMethod "leave" o = ButtonLeaveMethodInfo + ResolveFontButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFontButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFontButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFontButtonMethod "map" o = WidgetMapMethodInfo + ResolveFontButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveFontButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFontButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFontButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFontButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFontButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFontButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFontButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFontButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFontButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFontButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFontButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFontButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFontButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFontButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFontButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFontButtonMethod "path" o = WidgetPathMethodInfo + ResolveFontButtonMethod "pressed" o = ButtonPressedMethodInfo + ResolveFontButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveFontButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFontButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFontButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFontButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFontButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFontButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFontButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveFontButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFontButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFontButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFontButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFontButtonMethod "released" o = ButtonReleasedMethodInfo + ResolveFontButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveFontButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFontButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFontButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFontButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFontButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFontButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveFontButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFontButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFontButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFontButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFontButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveFontButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFontButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFontButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFontButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFontButtonMethod "show" o = WidgetShowMethodInfo + ResolveFontButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFontButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFontButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFontButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFontButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFontButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFontButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFontButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFontButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFontButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveFontButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFontButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFontButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFontButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFontButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFontButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFontButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFontButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFontButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFontButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveFontButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFontButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFontButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFontButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFontButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveFontButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveFontButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo + ResolveFontButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFontButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFontButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFontButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFontButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo + ResolveFontButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFontButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFontButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveFontButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFontButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFontButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveFontButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFontButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFontButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveFontButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFontButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFontButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFontButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFontButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFontButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFontButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFontButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFontButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFontButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo + ResolveFontButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFontButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveFontButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveFontButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveFontButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo + ResolveFontButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveFontButtonMethod "getFont" o = FontChooserGetFontMethodInfo + ResolveFontButtonMethod "getFontDesc" o = FontChooserGetFontDescMethodInfo + ResolveFontButtonMethod "getFontFace" o = FontChooserGetFontFaceMethodInfo + ResolveFontButtonMethod "getFontFamily" o = FontChooserGetFontFamilyMethodInfo + ResolveFontButtonMethod "getFontName" o = FontButtonGetFontNameMethodInfo + ResolveFontButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFontButtonMethod "getFontSize" o = FontChooserGetFontSizeMethodInfo + ResolveFontButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFontButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFontButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFontButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFontButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFontButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFontButtonMethod "getImage" o = ButtonGetImageMethodInfo + ResolveFontButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo + ResolveFontButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFontButtonMethod "getLabel" o = ButtonGetLabelMethodInfo + ResolveFontButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFontButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFontButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFontButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFontButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFontButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFontButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFontButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFontButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFontButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFontButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveFontButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFontButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFontButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFontButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFontButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveFontButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFontButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFontButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFontButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFontButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFontButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFontButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFontButtonMethod "getPreviewText" o = FontChooserGetPreviewTextMethodInfo + ResolveFontButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFontButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFontButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFontButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFontButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveFontButtonMethod "getRelief" o = ButtonGetReliefMethodInfo + ResolveFontButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFontButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFontButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveFontButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFontButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFontButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveFontButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFontButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFontButtonMethod "getShowPreviewEntry" o = FontChooserGetShowPreviewEntryMethodInfo + ResolveFontButtonMethod "getShowSize" o = FontButtonGetShowSizeMethodInfo + ResolveFontButtonMethod "getShowStyle" o = FontButtonGetShowStyleMethodInfo + ResolveFontButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFontButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveFontButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFontButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFontButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFontButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFontButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFontButtonMethod "getTitle" o = FontButtonGetTitleMethodInfo + ResolveFontButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFontButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFontButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFontButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFontButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveFontButtonMethod "getUseFont" o = FontButtonGetUseFontMethodInfo + ResolveFontButtonMethod "getUseSize" o = FontButtonGetUseSizeMethodInfo + ResolveFontButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo + ResolveFontButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo + ResolveFontButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFontButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFontButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFontButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFontButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFontButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFontButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFontButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFontButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveFontButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveFontButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo + ResolveFontButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFontButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo + ResolveFontButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFontButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveFontButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFontButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFontButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFontButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFontButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFontButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFontButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFontButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveFontButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFontButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFontButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFontButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFontButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFontButtonMethod "setFilterFunc" o = FontChooserSetFilterFuncMethodInfo + ResolveFontButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveFontButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveFontButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveFontButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo + ResolveFontButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveFontButtonMethod "setFont" o = FontChooserSetFontMethodInfo + ResolveFontButtonMethod "setFontDesc" o = FontChooserSetFontDescMethodInfo + ResolveFontButtonMethod "setFontName" o = FontButtonSetFontNameMethodInfo + ResolveFontButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFontButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFontButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFontButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFontButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFontButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFontButtonMethod "setImage" o = ButtonSetImageMethodInfo + ResolveFontButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo + ResolveFontButtonMethod "setLabel" o = ButtonSetLabelMethodInfo + ResolveFontButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFontButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFontButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFontButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFontButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFontButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFontButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFontButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFontButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveFontButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFontButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFontButtonMethod "setPreviewText" o = FontChooserSetPreviewTextMethodInfo + ResolveFontButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFontButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFontButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveFontButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFontButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFontButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveFontButtonMethod "setRelief" o = ButtonSetReliefMethodInfo + ResolveFontButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveFontButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFontButtonMethod "setShowPreviewEntry" o = FontChooserSetShowPreviewEntryMethodInfo + ResolveFontButtonMethod "setShowSize" o = FontButtonSetShowSizeMethodInfo + ResolveFontButtonMethod "setShowStyle" o = FontButtonSetShowStyleMethodInfo + ResolveFontButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFontButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveFontButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFontButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFontButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFontButtonMethod "setTitle" o = FontButtonSetTitleMethodInfo + ResolveFontButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFontButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFontButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFontButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveFontButtonMethod "setUseFont" o = FontButtonSetUseFontMethodInfo + ResolveFontButtonMethod "setUseSize" o = FontButtonSetUseSizeMethodInfo + ResolveFontButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo + ResolveFontButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo + ResolveFontButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFontButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFontButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFontButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFontButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFontButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFontButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFontButtonMethod t FontButton, MethodInfo info FontButton p) => IsLabelProxy t (FontButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFontButtonMethod t FontButton, MethodInfo info FontButton p) => IsLabel t (FontButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal FontButton::font-set type FontButtonFontSetCallback = IO () @@ -226,7 +619,7 @@ type AttrSetTypeConstraint FontButtonFontNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontButtonFontNamePropertyInfo = FontButtonK type AttrGetType FontButtonFontNamePropertyInfo = T.Text - type AttrLabel FontButtonFontNamePropertyInfo = "FontButton::font-name" + type AttrLabel FontButtonFontNamePropertyInfo = "font-name" attrGet _ = getFontButtonFontName attrSet _ = setFontButtonFontName attrConstruct _ = constructFontButtonFontName @@ -250,7 +643,7 @@ type AttrSetTypeConstraint FontButtonShowSizePropertyInfo = (~) Bool type AttrBaseTypeConstraint FontButtonShowSizePropertyInfo = FontButtonK type AttrGetType FontButtonShowSizePropertyInfo = Bool - type AttrLabel FontButtonShowSizePropertyInfo = "FontButton::show-size" + type AttrLabel FontButtonShowSizePropertyInfo = "show-size" attrGet _ = getFontButtonShowSize attrSet _ = setFontButtonShowSize attrConstruct _ = constructFontButtonShowSize @@ -274,7 +667,7 @@ type AttrSetTypeConstraint FontButtonShowStylePropertyInfo = (~) Bool type AttrBaseTypeConstraint FontButtonShowStylePropertyInfo = FontButtonK type AttrGetType FontButtonShowStylePropertyInfo = Bool - type AttrLabel FontButtonShowStylePropertyInfo = "FontButton::show-style" + type AttrLabel FontButtonShowStylePropertyInfo = "show-style" attrGet _ = getFontButtonShowStyle attrSet _ = setFontButtonShowStyle attrConstruct _ = constructFontButtonShowStyle @@ -298,7 +691,7 @@ type AttrSetTypeConstraint FontButtonTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontButtonTitlePropertyInfo = FontButtonK type AttrGetType FontButtonTitlePropertyInfo = T.Text - type AttrLabel FontButtonTitlePropertyInfo = "FontButton::title" + type AttrLabel FontButtonTitlePropertyInfo = "title" attrGet _ = getFontButtonTitle attrSet _ = setFontButtonTitle attrConstruct _ = constructFontButtonTitle @@ -322,7 +715,7 @@ type AttrSetTypeConstraint FontButtonUseFontPropertyInfo = (~) Bool type AttrBaseTypeConstraint FontButtonUseFontPropertyInfo = FontButtonK type AttrGetType FontButtonUseFontPropertyInfo = Bool - type AttrLabel FontButtonUseFontPropertyInfo = "FontButton::use-font" + type AttrLabel FontButtonUseFontPropertyInfo = "use-font" attrGet _ = getFontButtonUseFont attrSet _ = setFontButtonUseFont attrConstruct _ = constructFontButtonUseFont @@ -346,13 +739,13 @@ type AttrSetTypeConstraint FontButtonUseSizePropertyInfo = (~) Bool type AttrBaseTypeConstraint FontButtonUseSizePropertyInfo = FontButtonK type AttrGetType FontButtonUseSizePropertyInfo = Bool - type AttrLabel FontButtonUseSizePropertyInfo = "FontButton::use-size" + type AttrLabel FontButtonUseSizePropertyInfo = "use-size" attrGet _ = getFontButtonUseSize attrSet _ = setFontButtonUseSize attrConstruct _ = constructFontButtonUseSize type instance AttributeList FontButton = FontButtonAttributeList -type FontButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("font-name", FontButtonFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo), '("show-size", FontButtonShowSizePropertyInfo), '("show-style", FontButtonShowStylePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FontButtonTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-font", FontButtonUseFontPropertyInfo), '("use-size", FontButtonUseSizePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +type FontButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("fontName", FontButtonFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo), '("showSize", FontButtonShowSizePropertyInfo), '("showStyle", FontButtonShowStylePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FontButtonTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useFont", FontButtonUseFontPropertyInfo), '("useSize", FontButtonUseSizePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) data FontButtonFontSetSignalInfo instance SignalInfo FontButtonFontSetSignalInfo where @@ -360,13 +753,12 @@ connectSignal _ = connectFontButtonFontSet type instance SignalList FontButton = FontButtonSignalList -type FontButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("font-activated", FontChooserFontActivatedSignalInfo), '("font-set", FontButtonFontSetSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FontButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("fontActivated", FontChooserFontActivatedSignalInfo), '("fontSet", FontButtonFontSetSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method FontButton::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "FontButton" -- throws : False -- Skip return : False @@ -377,7 +769,7 @@ fontButtonNew :: (MonadIO m) => - m FontButton + m FontButton -- result fontButtonNew = liftIO $ do result <- gtk_font_button_new checkUnexpectedReturnNULL "gtk_font_button_new" result @@ -386,9 +778,8 @@ -- method FontButton::new_with_font -- method type : Constructor --- Args : [Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "FontButton" -- throws : False -- Skip return : False @@ -400,8 +791,8 @@ fontButtonNewWithFont :: (MonadIO m) => - T.Text -> -- fontname - m FontButton + T.Text -- fontname + -> m FontButton -- result fontButtonNewWithFont fontname = liftIO $ do fontname' <- textToCString fontname result <- gtk_font_button_new_with_font fontname' @@ -412,9 +803,8 @@ -- method FontButton::get_font_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -426,8 +816,8 @@ fontButtonGetFontName :: (MonadIO m, FontButtonK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result fontButtonGetFontName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_button_get_font_name _obj' @@ -436,11 +826,14 @@ touchManagedPtr _obj return result' +data FontButtonGetFontNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FontButtonK a) => MethodInfo FontButtonGetFontNameMethodInfo a signature where + overloadedMethod _ = fontButtonGetFontName + -- method FontButton::get_show_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -452,8 +845,8 @@ fontButtonGetShowSize :: (MonadIO m, FontButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result fontButtonGetShowSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_button_get_show_size _obj' @@ -461,11 +854,14 @@ touchManagedPtr _obj return result' +data FontButtonGetShowSizeMethodInfo +instance (signature ~ (m Bool), MonadIO m, FontButtonK a) => MethodInfo FontButtonGetShowSizeMethodInfo a signature where + overloadedMethod _ = fontButtonGetShowSize + -- method FontButton::get_show_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -477,8 +873,8 @@ fontButtonGetShowStyle :: (MonadIO m, FontButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result fontButtonGetShowStyle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_button_get_show_style _obj' @@ -486,11 +882,14 @@ touchManagedPtr _obj return result' +data FontButtonGetShowStyleMethodInfo +instance (signature ~ (m Bool), MonadIO m, FontButtonK a) => MethodInfo FontButtonGetShowStyleMethodInfo a signature where + overloadedMethod _ = fontButtonGetShowStyle + -- method FontButton::get_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -502,8 +901,8 @@ fontButtonGetTitle :: (MonadIO m, FontButtonK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result fontButtonGetTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_button_get_title _obj' @@ -512,11 +911,14 @@ touchManagedPtr _obj return result' +data FontButtonGetTitleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FontButtonK a) => MethodInfo FontButtonGetTitleMethodInfo a signature where + overloadedMethod _ = fontButtonGetTitle + -- method FontButton::get_use_font -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -528,8 +930,8 @@ fontButtonGetUseFont :: (MonadIO m, FontButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result fontButtonGetUseFont _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_button_get_use_font _obj' @@ -537,11 +939,14 @@ touchManagedPtr _obj return result' +data FontButtonGetUseFontMethodInfo +instance (signature ~ (m Bool), MonadIO m, FontButtonK a) => MethodInfo FontButtonGetUseFontMethodInfo a signature where + overloadedMethod _ = fontButtonGetUseFont + -- method FontButton::get_use_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -553,8 +958,8 @@ fontButtonGetUseSize :: (MonadIO m, FontButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result fontButtonGetUseSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_button_get_use_size _obj' @@ -562,11 +967,14 @@ touchManagedPtr _obj return result' +data FontButtonGetUseSizeMethodInfo +instance (signature ~ (m Bool), MonadIO m, FontButtonK a) => MethodInfo FontButtonGetUseSizeMethodInfo a signature where + overloadedMethod _ = fontButtonGetUseSize + -- method FontButton::set_font_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -579,9 +987,9 @@ fontButtonSetFontName :: (MonadIO m, FontButtonK a) => - a -> -- _obj - T.Text -> -- fontname - m Bool + a -- _obj + -> T.Text -- fontname + -> m Bool -- result fontButtonSetFontName _obj fontname = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj fontname' <- textToCString fontname @@ -591,11 +999,14 @@ freeMem fontname' return result' +data FontButtonSetFontNameMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, FontButtonK a) => MethodInfo FontButtonSetFontNameMethodInfo a signature where + overloadedMethod _ = fontButtonSetFontName + -- method FontButton::set_show_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -608,21 +1019,24 @@ fontButtonSetShowSize :: (MonadIO m, FontButtonK a) => - a -> -- _obj - Bool -> -- show_size - m () -fontButtonSetShowSize _obj show_size = liftIO $ do + a -- _obj + -> Bool -- showSize + -> m () -- result +fontButtonSetShowSize _obj showSize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_size' = (fromIntegral . fromEnum) show_size - gtk_font_button_set_show_size _obj' show_size' + let showSize' = (fromIntegral . fromEnum) showSize + gtk_font_button_set_show_size _obj' showSize' touchManagedPtr _obj return () +data FontButtonSetShowSizeMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FontButtonK a) => MethodInfo FontButtonSetShowSizeMethodInfo a signature where + overloadedMethod _ = fontButtonSetShowSize + -- method FontButton::set_show_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_style", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_style", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_style", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -635,21 +1049,24 @@ fontButtonSetShowStyle :: (MonadIO m, FontButtonK a) => - a -> -- _obj - Bool -> -- show_style - m () -fontButtonSetShowStyle _obj show_style = liftIO $ do + a -- _obj + -> Bool -- showStyle + -> m () -- result +fontButtonSetShowStyle _obj showStyle = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_style' = (fromIntegral . fromEnum) show_style - gtk_font_button_set_show_style _obj' show_style' + let showStyle' = (fromIntegral . fromEnum) showStyle + gtk_font_button_set_show_style _obj' showStyle' touchManagedPtr _obj return () +data FontButtonSetShowStyleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FontButtonK a) => MethodInfo FontButtonSetShowStyleMethodInfo a signature where + overloadedMethod _ = fontButtonSetShowStyle + -- method FontButton::set_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -662,9 +1079,9 @@ fontButtonSetTitle :: (MonadIO m, FontButtonK a) => - a -> -- _obj - T.Text -> -- title - m () + a -- _obj + -> T.Text -- title + -> m () -- result fontButtonSetTitle _obj title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj title' <- textToCString title @@ -673,11 +1090,14 @@ freeMem title' return () +data FontButtonSetTitleMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, FontButtonK a) => MethodInfo FontButtonSetTitleMethodInfo a signature where + overloadedMethod _ = fontButtonSetTitle + -- method FontButton::set_use_font -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_font", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_font", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_font", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -690,21 +1110,24 @@ fontButtonSetUseFont :: (MonadIO m, FontButtonK a) => - a -> -- _obj - Bool -> -- use_font - m () -fontButtonSetUseFont _obj use_font = liftIO $ do + a -- _obj + -> Bool -- useFont + -> m () -- result +fontButtonSetUseFont _obj useFont = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_font' = (fromIntegral . fromEnum) use_font - gtk_font_button_set_use_font _obj' use_font' + let useFont' = (fromIntegral . fromEnum) useFont + gtk_font_button_set_use_font _obj' useFont' touchManagedPtr _obj return () +data FontButtonSetUseFontMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FontButtonK a) => MethodInfo FontButtonSetUseFontMethodInfo a signature where + overloadedMethod _ = fontButtonSetUseFont + -- method FontButton::set_use_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -717,14 +1140,18 @@ fontButtonSetUseSize :: (MonadIO m, FontButtonK a) => - a -> -- _obj - Bool -> -- use_size - m () -fontButtonSetUseSize _obj use_size = liftIO $ do + a -- _obj + -> Bool -- useSize + -> m () -- result +fontButtonSetUseSize _obj useSize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_size' = (fromIntegral . fromEnum) use_size - gtk_font_button_set_use_size _obj' use_size' + let useSize' = (fromIntegral . fromEnum) useSize + gtk_font_button_set_use_size _obj' useSize' touchManagedPtr _obj return () + +data FontButtonSetUseSizeMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, FontButtonK a) => MethodInfo FontButtonSetUseSizeMethodInfo a signature where + overloadedMethod _ = fontButtonSetUseSize diff --git a/GI/Gtk/Objects/FontButton.hs-boot b/GI/Gtk/Objects/FontButton.hs-boot --- a/GI/Gtk/Objects/FontButton.hs-boot +++ b/GI/Gtk/Objects/FontButton.hs-boot @@ -18,3 +18,15 @@ data FontButtonUseFontPropertyInfo data FontButtonUseSizePropertyInfo data FontButtonFontSetSignalInfo +data FontButtonGetFontNameMethodInfo +data FontButtonGetShowSizeMethodInfo +data FontButtonGetShowStyleMethodInfo +data FontButtonGetTitleMethodInfo +data FontButtonGetUseFontMethodInfo +data FontButtonGetUseSizeMethodInfo +data FontButtonSetFontNameMethodInfo +data FontButtonSetShowSizeMethodInfo +data FontButtonSetShowStyleMethodInfo +data FontButtonSetTitleMethodInfo +data FontButtonSetUseFontMethodInfo +data FontButtonSetUseSizeMethodInfo diff --git a/GI/Gtk/Objects/FontChooserDialog.hs b/GI/Gtk/Objects/FontChooserDialog.hs --- a/GI/Gtk/Objects/FontChooserDialog.hs +++ b/GI/Gtk/Objects/FontChooserDialog.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,462 @@ noFontChooserDialog :: Maybe FontChooserDialog noFontChooserDialog = Nothing +type family ResolveFontChooserDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveFontChooserDialogMethod "activate" o = WidgetActivateMethodInfo + ResolveFontChooserDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveFontChooserDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveFontChooserDialogMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveFontChooserDialogMethod "add" o = ContainerAddMethodInfo + ResolveFontChooserDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveFontChooserDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFontChooserDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo + ResolveFontChooserDialogMethod "addButton" o = DialogAddButtonMethodInfo + ResolveFontChooserDialogMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFontChooserDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFontChooserDialogMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFontChooserDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveFontChooserDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFontChooserDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFontChooserDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveFontChooserDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveFontChooserDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFontChooserDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFontChooserDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFontChooserDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveFontChooserDialogMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFontChooserDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveFontChooserDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveFontChooserDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveFontChooserDialogMethod "childType" o = ContainerChildTypeMethodInfo + ResolveFontChooserDialogMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFontChooserDialogMethod "close" o = WindowCloseMethodInfo + ResolveFontChooserDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFontChooserDialogMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFontChooserDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFontChooserDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFontChooserDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFontChooserDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFontChooserDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFontChooserDialogMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveFontChooserDialogMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFontChooserDialogMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFontChooserDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFontChooserDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFontChooserDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFontChooserDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFontChooserDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFontChooserDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFontChooserDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFontChooserDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFontChooserDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFontChooserDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFontChooserDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFontChooserDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFontChooserDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFontChooserDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFontChooserDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFontChooserDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFontChooserDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFontChooserDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFontChooserDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFontChooserDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFontChooserDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFontChooserDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFontChooserDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFontChooserDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFontChooserDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFontChooserDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFontChooserDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFontChooserDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFontChooserDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFontChooserDialogMethod "draw" o = WidgetDrawMethodInfo + ResolveFontChooserDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFontChooserDialogMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFontChooserDialogMethod "event" o = WidgetEventMethodInfo + ResolveFontChooserDialogMethod "forall" o = ContainerForallMethodInfo + ResolveFontChooserDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFontChooserDialogMethod "foreach" o = ContainerForeachMethodInfo + ResolveFontChooserDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFontChooserDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFontChooserDialogMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveFontChooserDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveFontChooserDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFontChooserDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFontChooserDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFontChooserDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFontChooserDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFontChooserDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFontChooserDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFontChooserDialogMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveFontChooserDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFontChooserDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFontChooserDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveFontChooserDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFontChooserDialogMethod "hide" o = WidgetHideMethodInfo + ResolveFontChooserDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFontChooserDialogMethod "iconify" o = WindowIconifyMethodInfo + ResolveFontChooserDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFontChooserDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFontChooserDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFontChooserDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFontChooserDialogMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFontChooserDialogMethod "isActive" o = WindowIsActiveMethodInfo + ResolveFontChooserDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFontChooserDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFontChooserDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFontChooserDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFontChooserDialogMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFontChooserDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveFontChooserDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFontChooserDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFontChooserDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFontChooserDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFontChooserDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFontChooserDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFontChooserDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFontChooserDialogMethod "map" o = WidgetMapMethodInfo + ResolveFontChooserDialogMethod "maximize" o = WindowMaximizeMethodInfo + ResolveFontChooserDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFontChooserDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFontChooserDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFontChooserDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFontChooserDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFontChooserDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFontChooserDialogMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFontChooserDialogMethod "move" o = WindowMoveMethodInfo + ResolveFontChooserDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFontChooserDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFontChooserDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFontChooserDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFontChooserDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFontChooserDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFontChooserDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFontChooserDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveFontChooserDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFontChooserDialogMethod "path" o = WidgetPathMethodInfo + ResolveFontChooserDialogMethod "present" o = WindowPresentMethodInfo + ResolveFontChooserDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveFontChooserDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveFontChooserDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveFontChooserDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFontChooserDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFontChooserDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFontChooserDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFontChooserDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFontChooserDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFontChooserDialogMethod "realize" o = WidgetRealizeMethodInfo + ResolveFontChooserDialogMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFontChooserDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFontChooserDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFontChooserDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFontChooserDialogMethod "remove" o = ContainerRemoveMethodInfo + ResolveFontChooserDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveFontChooserDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFontChooserDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveFontChooserDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFontChooserDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFontChooserDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFontChooserDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFontChooserDialogMethod "reparent" o = WidgetReparentMethodInfo + ResolveFontChooserDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFontChooserDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFontChooserDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFontChooserDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFontChooserDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveFontChooserDialogMethod "resize" o = WindowResizeMethodInfo + ResolveFontChooserDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveFontChooserDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveFontChooserDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveFontChooserDialogMethod "response" o = DialogResponseMethodInfo + ResolveFontChooserDialogMethod "run" o = DialogRunMethodInfo + ResolveFontChooserDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFontChooserDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFontChooserDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFontChooserDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFontChooserDialogMethod "show" o = WidgetShowMethodInfo + ResolveFontChooserDialogMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFontChooserDialogMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFontChooserDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFontChooserDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFontChooserDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFontChooserDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFontChooserDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFontChooserDialogMethod "stick" o = WindowStickMethodInfo + ResolveFontChooserDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFontChooserDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFontChooserDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFontChooserDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFontChooserDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFontChooserDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFontChooserDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveFontChooserDialogMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFontChooserDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveFontChooserDialogMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFontChooserDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFontChooserDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFontChooserDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFontChooserDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveFontChooserDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFontChooserDialogMethod "unstick" o = WindowUnstickMethodInfo + ResolveFontChooserDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFontChooserDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveFontChooserDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFontChooserDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo + ResolveFontChooserDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFontChooserDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFontChooserDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFontChooserDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFontChooserDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFontChooserDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFontChooserDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFontChooserDialogMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveFontChooserDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveFontChooserDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveFontChooserDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFontChooserDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFontChooserDialogMethod "getChild" o = BinGetChildMethodInfo + ResolveFontChooserDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFontChooserDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFontChooserDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveFontChooserDialogMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFontChooserDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFontChooserDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFontChooserDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo + ResolveFontChooserDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFontChooserDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveFontChooserDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveFontChooserDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveFontChooserDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveFontChooserDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveFontChooserDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFontChooserDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFontChooserDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFontChooserDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFontChooserDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFontChooserDialogMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFontChooserDialogMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveFontChooserDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveFontChooserDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveFontChooserDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveFontChooserDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveFontChooserDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveFontChooserDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveFontChooserDialogMethod "getFont" o = FontChooserGetFontMethodInfo + ResolveFontChooserDialogMethod "getFontDesc" o = FontChooserGetFontDescMethodInfo + ResolveFontChooserDialogMethod "getFontFace" o = FontChooserGetFontFaceMethodInfo + ResolveFontChooserDialogMethod "getFontFamily" o = FontChooserGetFontFamilyMethodInfo + ResolveFontChooserDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFontChooserDialogMethod "getFontSize" o = FontChooserGetFontSizeMethodInfo + ResolveFontChooserDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFontChooserDialogMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveFontChooserDialogMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveFontChooserDialogMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFontChooserDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveFontChooserDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFontChooserDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFontChooserDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo + ResolveFontChooserDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFontChooserDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFontChooserDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveFontChooserDialogMethod "getIcon" o = WindowGetIconMethodInfo + ResolveFontChooserDialogMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveFontChooserDialogMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveFontChooserDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFontChooserDialogMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFontChooserDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFontChooserDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFontChooserDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFontChooserDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFontChooserDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFontChooserDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFontChooserDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveFontChooserDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveFontChooserDialogMethod "getModal" o = WindowGetModalMethodInfo + ResolveFontChooserDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFontChooserDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFontChooserDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFontChooserDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFontChooserDialogMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFontChooserDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFontChooserDialogMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFontChooserDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveFontChooserDialogMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFontChooserDialogMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveFontChooserDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFontChooserDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFontChooserDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFontChooserDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFontChooserDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFontChooserDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFontChooserDialogMethod "getPreviewText" o = FontChooserGetPreviewTextMethodInfo + ResolveFontChooserDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFontChooserDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFontChooserDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFontChooserDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFontChooserDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFontChooserDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFontChooserDialogMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveFontChooserDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveFontChooserDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveFontChooserDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo + ResolveFontChooserDialogMethod "getRole" o = WindowGetRoleMethodInfo + ResolveFontChooserDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFontChooserDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFontChooserDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFontChooserDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFontChooserDialogMethod "getShowPreviewEntry" o = FontChooserGetShowPreviewEntryMethodInfo + ResolveFontChooserDialogMethod "getSize" o = WindowGetSizeMethodInfo + ResolveFontChooserDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFontChooserDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveFontChooserDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveFontChooserDialogMethod "getState" o = WidgetGetStateMethodInfo + ResolveFontChooserDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFontChooserDialogMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFontChooserDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFontChooserDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFontChooserDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFontChooserDialogMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveFontChooserDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveFontChooserDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFontChooserDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFontChooserDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFontChooserDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFontChooserDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveFontChooserDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveFontChooserDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveFontChooserDialogMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFontChooserDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFontChooserDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFontChooserDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFontChooserDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFontChooserDialogMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFontChooserDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo + ResolveFontChooserDialogMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFontChooserDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveFontChooserDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFontChooserDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveFontChooserDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFontChooserDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo + ResolveFontChooserDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFontChooserDialogMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveFontChooserDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveFontChooserDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveFontChooserDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFontChooserDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFontChooserDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFontChooserDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFontChooserDialogMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFontChooserDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFontChooserDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFontChooserDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveFontChooserDialogMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveFontChooserDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveFontChooserDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo + ResolveFontChooserDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveFontChooserDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveFontChooserDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveFontChooserDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFontChooserDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFontChooserDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFontChooserDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFontChooserDialogMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFontChooserDialogMethod "setFilterFunc" o = FontChooserSetFilterFuncMethodInfo + ResolveFontChooserDialogMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveFontChooserDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveFontChooserDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveFontChooserDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveFontChooserDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveFontChooserDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveFontChooserDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveFontChooserDialogMethod "setFont" o = FontChooserSetFontMethodInfo + ResolveFontChooserDialogMethod "setFontDesc" o = FontChooserSetFontDescMethodInfo + ResolveFontChooserDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFontChooserDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveFontChooserDialogMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveFontChooserDialogMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFontChooserDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveFontChooserDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFontChooserDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveFontChooserDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFontChooserDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFontChooserDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFontChooserDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveFontChooserDialogMethod "setIcon" o = WindowSetIconMethodInfo + ResolveFontChooserDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveFontChooserDialogMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveFontChooserDialogMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveFontChooserDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveFontChooserDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveFontChooserDialogMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFontChooserDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFontChooserDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFontChooserDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFontChooserDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFontChooserDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFontChooserDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFontChooserDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveFontChooserDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveFontChooserDialogMethod "setModal" o = WindowSetModalMethodInfo + ResolveFontChooserDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFontChooserDialogMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFontChooserDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFontChooserDialogMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveFontChooserDialogMethod "setPreviewText" o = FontChooserSetPreviewTextMethodInfo + ResolveFontChooserDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFontChooserDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFontChooserDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveFontChooserDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFontChooserDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFontChooserDialogMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveFontChooserDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveFontChooserDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo + ResolveFontChooserDialogMethod "setRole" o = WindowSetRoleMethodInfo + ResolveFontChooserDialogMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveFontChooserDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFontChooserDialogMethod "setShowPreviewEntry" o = FontChooserSetShowPreviewEntryMethodInfo + ResolveFontChooserDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFontChooserDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveFontChooserDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveFontChooserDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveFontChooserDialogMethod "setState" o = WidgetSetStateMethodInfo + ResolveFontChooserDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFontChooserDialogMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFontChooserDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFontChooserDialogMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveFontChooserDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveFontChooserDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFontChooserDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFontChooserDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFontChooserDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveFontChooserDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveFontChooserDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveFontChooserDialogMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFontChooserDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFontChooserDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFontChooserDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFontChooserDialogMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFontChooserDialogMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFontChooserDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveFontChooserDialogMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFontChooserDialogMethod t FontChooserDialog, MethodInfo info FontChooserDialog p) => IsLabelProxy t (FontChooserDialog -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFontChooserDialogMethod t FontChooserDialog, MethodInfo info FontChooserDialog p) => IsLabel t (FontChooserDialog -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList FontChooserDialog = FontChooserDialogAttributeList -type FontChooserDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type FontChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) type instance SignalList FontChooserDialog = FontChooserDialogSignalList -type FontChooserDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("font-activated", FontChooserFontActivatedSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FontChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("fontActivated", FontChooserFontActivatedSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method FontChooserDialog::new -- method type : Constructor --- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "FontChooserDialog" -- throws : False -- Skip return : False @@ -80,9 +526,9 @@ fontChooserDialogNew :: (MonadIO m, WindowK a) => - Maybe (T.Text) -> -- title - Maybe (a) -> -- parent - m FontChooserDialog + Maybe (T.Text) -- title + -> Maybe (a) -- parent + -> m FontChooserDialog -- result fontChooserDialogNew title parent = liftIO $ do maybeTitle <- case title of Nothing -> return nullPtr diff --git a/GI/Gtk/Objects/FontChooserWidget.hs b/GI/Gtk/Objects/FontChooserWidget.hs --- a/GI/Gtk/Objects/FontChooserWidget.hs +++ b/GI/Gtk/Objects/FontChooserWidget.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,363 @@ noFontChooserWidget :: Maybe FontChooserWidget noFontChooserWidget = Nothing +type family ResolveFontChooserWidgetMethod (t :: Symbol) (o :: *) :: * where + ResolveFontChooserWidgetMethod "activate" o = WidgetActivateMethodInfo + ResolveFontChooserWidgetMethod "add" o = ContainerAddMethodInfo + ResolveFontChooserWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFontChooserWidgetMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFontChooserWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFontChooserWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFontChooserWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFontChooserWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFontChooserWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFontChooserWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFontChooserWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFontChooserWidgetMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveFontChooserWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFontChooserWidgetMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveFontChooserWidgetMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveFontChooserWidgetMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveFontChooserWidgetMethod "childType" o = ContainerChildTypeMethodInfo + ResolveFontChooserWidgetMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFontChooserWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFontChooserWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFontChooserWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFontChooserWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFontChooserWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFontChooserWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFontChooserWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFontChooserWidgetMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFontChooserWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFontChooserWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFontChooserWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFontChooserWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFontChooserWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFontChooserWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFontChooserWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFontChooserWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFontChooserWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFontChooserWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFontChooserWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFontChooserWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFontChooserWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFontChooserWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFontChooserWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFontChooserWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFontChooserWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFontChooserWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFontChooserWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFontChooserWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFontChooserWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFontChooserWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFontChooserWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFontChooserWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFontChooserWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFontChooserWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFontChooserWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFontChooserWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFontChooserWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFontChooserWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFontChooserWidgetMethod "draw" o = WidgetDrawMethodInfo + ResolveFontChooserWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFontChooserWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFontChooserWidgetMethod "event" o = WidgetEventMethodInfo + ResolveFontChooserWidgetMethod "forall" o = ContainerForallMethodInfo + ResolveFontChooserWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFontChooserWidgetMethod "foreach" o = ContainerForeachMethodInfo + ResolveFontChooserWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFontChooserWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFontChooserWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFontChooserWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFontChooserWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFontChooserWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFontChooserWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFontChooserWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFontChooserWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFontChooserWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFontChooserWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFontChooserWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFontChooserWidgetMethod "hide" o = WidgetHideMethodInfo + ResolveFontChooserWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFontChooserWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFontChooserWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFontChooserWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFontChooserWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFontChooserWidgetMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFontChooserWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFontChooserWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFontChooserWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFontChooserWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFontChooserWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFontChooserWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFontChooserWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFontChooserWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFontChooserWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFontChooserWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFontChooserWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFontChooserWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFontChooserWidgetMethod "map" o = WidgetMapMethodInfo + ResolveFontChooserWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveFontChooserWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFontChooserWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFontChooserWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFontChooserWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFontChooserWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFontChooserWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFontChooserWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFontChooserWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFontChooserWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFontChooserWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFontChooserWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFontChooserWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFontChooserWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFontChooserWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFontChooserWidgetMethod "packEnd" o = BoxPackEndMethodInfo + ResolveFontChooserWidgetMethod "packStart" o = BoxPackStartMethodInfo + ResolveFontChooserWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFontChooserWidgetMethod "path" o = WidgetPathMethodInfo + ResolveFontChooserWidgetMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveFontChooserWidgetMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveFontChooserWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFontChooserWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFontChooserWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFontChooserWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFontChooserWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFontChooserWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFontChooserWidgetMethod "realize" o = WidgetRealizeMethodInfo + ResolveFontChooserWidgetMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFontChooserWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFontChooserWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFontChooserWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFontChooserWidgetMethod "remove" o = ContainerRemoveMethodInfo + ResolveFontChooserWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFontChooserWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFontChooserWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFontChooserWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFontChooserWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFontChooserWidgetMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveFontChooserWidgetMethod "reparent" o = WidgetReparentMethodInfo + ResolveFontChooserWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFontChooserWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFontChooserWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFontChooserWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFontChooserWidgetMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveFontChooserWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFontChooserWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFontChooserWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFontChooserWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFontChooserWidgetMethod "show" o = WidgetShowMethodInfo + ResolveFontChooserWidgetMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFontChooserWidgetMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFontChooserWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFontChooserWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFontChooserWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFontChooserWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFontChooserWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFontChooserWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFontChooserWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFontChooserWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFontChooserWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFontChooserWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFontChooserWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFontChooserWidgetMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFontChooserWidgetMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFontChooserWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFontChooserWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFontChooserWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFontChooserWidgetMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveFontChooserWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFontChooserWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFontChooserWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFontChooserWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFontChooserWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFontChooserWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFontChooserWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFontChooserWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFontChooserWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFontChooserWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFontChooserWidgetMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveFontChooserWidgetMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveFontChooserWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFontChooserWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFontChooserWidgetMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveFontChooserWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFontChooserWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFontChooserWidgetMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveFontChooserWidgetMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFontChooserWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFontChooserWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFontChooserWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFontChooserWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFontChooserWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFontChooserWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFontChooserWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFontChooserWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFontChooserWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFontChooserWidgetMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveFontChooserWidgetMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveFontChooserWidgetMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveFontChooserWidgetMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveFontChooserWidgetMethod "getFont" o = FontChooserGetFontMethodInfo + ResolveFontChooserWidgetMethod "getFontDesc" o = FontChooserGetFontDescMethodInfo + ResolveFontChooserWidgetMethod "getFontFace" o = FontChooserGetFontFaceMethodInfo + ResolveFontChooserWidgetMethod "getFontFamily" o = FontChooserGetFontFamilyMethodInfo + ResolveFontChooserWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFontChooserWidgetMethod "getFontSize" o = FontChooserGetFontSizeMethodInfo + ResolveFontChooserWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFontChooserWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFontChooserWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFontChooserWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFontChooserWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFontChooserWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFontChooserWidgetMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveFontChooserWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFontChooserWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFontChooserWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFontChooserWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFontChooserWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFontChooserWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFontChooserWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFontChooserWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFontChooserWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFontChooserWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFontChooserWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFontChooserWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveFontChooserWidgetMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveFontChooserWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFontChooserWidgetMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFontChooserWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFontChooserWidgetMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFontChooserWidgetMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveFontChooserWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFontChooserWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFontChooserWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFontChooserWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFontChooserWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFontChooserWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFontChooserWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFontChooserWidgetMethod "getPreviewText" o = FontChooserGetPreviewTextMethodInfo + ResolveFontChooserWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFontChooserWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFontChooserWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFontChooserWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFontChooserWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFontChooserWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFontChooserWidgetMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveFontChooserWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFontChooserWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFontChooserWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveFontChooserWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFontChooserWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFontChooserWidgetMethod "getShowPreviewEntry" o = FontChooserGetShowPreviewEntryMethodInfo + ResolveFontChooserWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFontChooserWidgetMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveFontChooserWidgetMethod "getState" o = WidgetGetStateMethodInfo + ResolveFontChooserWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFontChooserWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFontChooserWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFontChooserWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFontChooserWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFontChooserWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFontChooserWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFontChooserWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFontChooserWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFontChooserWidgetMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFontChooserWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFontChooserWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFontChooserWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFontChooserWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFontChooserWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFontChooserWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFontChooserWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFontChooserWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFontChooserWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFontChooserWidgetMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveFontChooserWidgetMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveFontChooserWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFontChooserWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFontChooserWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFontChooserWidgetMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveFontChooserWidgetMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveFontChooserWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFontChooserWidgetMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFontChooserWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFontChooserWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFontChooserWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFontChooserWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFontChooserWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFontChooserWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFontChooserWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFontChooserWidgetMethod "setFilterFunc" o = FontChooserSetFilterFuncMethodInfo + ResolveFontChooserWidgetMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveFontChooserWidgetMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveFontChooserWidgetMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveFontChooserWidgetMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveFontChooserWidgetMethod "setFont" o = FontChooserSetFontMethodInfo + ResolveFontChooserWidgetMethod "setFontDesc" o = FontChooserSetFontDescMethodInfo + ResolveFontChooserWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFontChooserWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFontChooserWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFontChooserWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFontChooserWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFontChooserWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFontChooserWidgetMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveFontChooserWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFontChooserWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFontChooserWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFontChooserWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFontChooserWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFontChooserWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFontChooserWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFontChooserWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFontChooserWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveFontChooserWidgetMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveFontChooserWidgetMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFontChooserWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFontChooserWidgetMethod "setPreviewText" o = FontChooserSetPreviewTextMethodInfo + ResolveFontChooserWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFontChooserWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFontChooserWidgetMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveFontChooserWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFontChooserWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFontChooserWidgetMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveFontChooserWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFontChooserWidgetMethod "setShowPreviewEntry" o = FontChooserSetShowPreviewEntryMethodInfo + ResolveFontChooserWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFontChooserWidgetMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveFontChooserWidgetMethod "setState" o = WidgetSetStateMethodInfo + ResolveFontChooserWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFontChooserWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFontChooserWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFontChooserWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFontChooserWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFontChooserWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFontChooserWidgetMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFontChooserWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFontChooserWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFontChooserWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFontChooserWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFontChooserWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFontChooserWidgetMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFontChooserWidgetMethod t FontChooserWidget, MethodInfo info FontChooserWidget p) => IsLabelProxy t (FontChooserWidget -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFontChooserWidgetMethod t FontChooserWidget, MethodInfo info FontChooserWidget p) => IsLabel t (FontChooserWidget -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList FontChooserWidget = FontChooserWidgetAttributeList -type FontChooserWidgetAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type FontChooserWidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList FontChooserWidget = FontChooserWidgetSignalList -type FontChooserWidgetSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("font-activated", FontChooserFontActivatedSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FontChooserWidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("fontActivated", FontChooserFontActivatedSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method FontChooserWidget::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "FontChooserWidget" -- throws : False -- Skip return : False @@ -78,7 +425,7 @@ fontChooserWidgetNew :: (MonadIO m) => - m FontChooserWidget + m FontChooserWidget -- result fontChooserWidgetNew = liftIO $ do result <- gtk_font_chooser_widget_new checkUnexpectedReturnNULL "gtk_font_chooser_widget_new" result diff --git a/GI/Gtk/Objects/FontSelection.hs b/GI/Gtk/Objects/FontSelection.hs --- a/GI/Gtk/Objects/FontSelection.hs +++ b/GI/Gtk/Objects/FontSelection.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,42 +18,52 @@ -- * Methods -- ** fontSelectionGetFace + FontSelectionGetFaceMethodInfo , fontSelectionGetFace , -- ** fontSelectionGetFaceList + FontSelectionGetFaceListMethodInfo , fontSelectionGetFaceList , -- ** fontSelectionGetFamily + FontSelectionGetFamilyMethodInfo , fontSelectionGetFamily , -- ** fontSelectionGetFamilyList + FontSelectionGetFamilyListMethodInfo , fontSelectionGetFamilyList , -- ** fontSelectionGetFontName + FontSelectionGetFontNameMethodInfo , fontSelectionGetFontName , -- ** fontSelectionGetPreviewEntry + FontSelectionGetPreviewEntryMethodInfo , fontSelectionGetPreviewEntry , -- ** fontSelectionGetPreviewText + FontSelectionGetPreviewTextMethodInfo , fontSelectionGetPreviewText , -- ** fontSelectionGetSize + FontSelectionGetSizeMethodInfo , fontSelectionGetSize , -- ** fontSelectionGetSizeEntry + FontSelectionGetSizeEntryMethodInfo , fontSelectionGetSizeEntry , -- ** fontSelectionGetSizeList + FontSelectionGetSizeListMethodInfo , fontSelectionGetSizeList , @@ -61,10 +72,12 @@ -- ** fontSelectionSetFontName + FontSelectionSetFontNameMethodInfo , fontSelectionSetFontName , -- ** fontSelectionSetPreviewText + FontSelectionSetPreviewTextMethodInfo , fontSelectionSetPreviewText , @@ -123,6 +136,355 @@ noFontSelection :: Maybe FontSelection noFontSelection = Nothing +type family ResolveFontSelectionMethod (t :: Symbol) (o :: *) :: * where + ResolveFontSelectionMethod "activate" o = WidgetActivateMethodInfo + ResolveFontSelectionMethod "add" o = ContainerAddMethodInfo + ResolveFontSelectionMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFontSelectionMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFontSelectionMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFontSelectionMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFontSelectionMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFontSelectionMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFontSelectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFontSelectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFontSelectionMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFontSelectionMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveFontSelectionMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFontSelectionMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveFontSelectionMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveFontSelectionMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveFontSelectionMethod "childType" o = ContainerChildTypeMethodInfo + ResolveFontSelectionMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFontSelectionMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFontSelectionMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFontSelectionMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFontSelectionMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFontSelectionMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFontSelectionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFontSelectionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFontSelectionMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFontSelectionMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFontSelectionMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFontSelectionMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFontSelectionMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFontSelectionMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFontSelectionMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFontSelectionMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFontSelectionMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFontSelectionMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFontSelectionMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFontSelectionMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFontSelectionMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFontSelectionMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFontSelectionMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFontSelectionMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFontSelectionMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFontSelectionMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFontSelectionMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFontSelectionMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFontSelectionMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFontSelectionMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFontSelectionMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFontSelectionMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFontSelectionMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFontSelectionMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFontSelectionMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFontSelectionMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFontSelectionMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFontSelectionMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFontSelectionMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFontSelectionMethod "draw" o = WidgetDrawMethodInfo + ResolveFontSelectionMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFontSelectionMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFontSelectionMethod "event" o = WidgetEventMethodInfo + ResolveFontSelectionMethod "forall" o = ContainerForallMethodInfo + ResolveFontSelectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFontSelectionMethod "foreach" o = ContainerForeachMethodInfo + ResolveFontSelectionMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFontSelectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFontSelectionMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFontSelectionMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFontSelectionMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFontSelectionMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFontSelectionMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFontSelectionMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFontSelectionMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFontSelectionMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFontSelectionMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFontSelectionMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFontSelectionMethod "hide" o = WidgetHideMethodInfo + ResolveFontSelectionMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFontSelectionMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFontSelectionMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFontSelectionMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFontSelectionMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFontSelectionMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFontSelectionMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFontSelectionMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFontSelectionMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFontSelectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFontSelectionMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFontSelectionMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFontSelectionMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFontSelectionMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFontSelectionMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFontSelectionMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFontSelectionMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFontSelectionMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFontSelectionMethod "map" o = WidgetMapMethodInfo + ResolveFontSelectionMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveFontSelectionMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFontSelectionMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFontSelectionMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFontSelectionMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFontSelectionMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFontSelectionMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFontSelectionMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFontSelectionMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFontSelectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFontSelectionMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFontSelectionMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFontSelectionMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFontSelectionMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFontSelectionMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFontSelectionMethod "packEnd" o = BoxPackEndMethodInfo + ResolveFontSelectionMethod "packStart" o = BoxPackStartMethodInfo + ResolveFontSelectionMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFontSelectionMethod "path" o = WidgetPathMethodInfo + ResolveFontSelectionMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveFontSelectionMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveFontSelectionMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFontSelectionMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFontSelectionMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFontSelectionMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFontSelectionMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFontSelectionMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFontSelectionMethod "realize" o = WidgetRealizeMethodInfo + ResolveFontSelectionMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFontSelectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFontSelectionMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFontSelectionMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFontSelectionMethod "remove" o = ContainerRemoveMethodInfo + ResolveFontSelectionMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFontSelectionMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFontSelectionMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFontSelectionMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFontSelectionMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFontSelectionMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveFontSelectionMethod "reparent" o = WidgetReparentMethodInfo + ResolveFontSelectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFontSelectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFontSelectionMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFontSelectionMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFontSelectionMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveFontSelectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFontSelectionMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFontSelectionMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFontSelectionMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFontSelectionMethod "show" o = WidgetShowMethodInfo + ResolveFontSelectionMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFontSelectionMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFontSelectionMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFontSelectionMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFontSelectionMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFontSelectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFontSelectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFontSelectionMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFontSelectionMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFontSelectionMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFontSelectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFontSelectionMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFontSelectionMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFontSelectionMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFontSelectionMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFontSelectionMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFontSelectionMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFontSelectionMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFontSelectionMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveFontSelectionMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFontSelectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFontSelectionMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFontSelectionMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFontSelectionMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFontSelectionMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFontSelectionMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFontSelectionMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFontSelectionMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFontSelectionMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFontSelectionMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveFontSelectionMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveFontSelectionMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFontSelectionMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFontSelectionMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveFontSelectionMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFontSelectionMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFontSelectionMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveFontSelectionMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFontSelectionMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFontSelectionMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFontSelectionMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFontSelectionMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFontSelectionMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFontSelectionMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFontSelectionMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFontSelectionMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFontSelectionMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFontSelectionMethod "getFace" o = FontSelectionGetFaceMethodInfo + ResolveFontSelectionMethod "getFaceList" o = FontSelectionGetFaceListMethodInfo + ResolveFontSelectionMethod "getFamily" o = FontSelectionGetFamilyMethodInfo + ResolveFontSelectionMethod "getFamilyList" o = FontSelectionGetFamilyListMethodInfo + ResolveFontSelectionMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveFontSelectionMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveFontSelectionMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveFontSelectionMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveFontSelectionMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveFontSelectionMethod "getFontName" o = FontSelectionGetFontNameMethodInfo + ResolveFontSelectionMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFontSelectionMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFontSelectionMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFontSelectionMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFontSelectionMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFontSelectionMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFontSelectionMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFontSelectionMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveFontSelectionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFontSelectionMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFontSelectionMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFontSelectionMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFontSelectionMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFontSelectionMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFontSelectionMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFontSelectionMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFontSelectionMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFontSelectionMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFontSelectionMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFontSelectionMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveFontSelectionMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveFontSelectionMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFontSelectionMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFontSelectionMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFontSelectionMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFontSelectionMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveFontSelectionMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFontSelectionMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFontSelectionMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFontSelectionMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFontSelectionMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFontSelectionMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFontSelectionMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFontSelectionMethod "getPreviewEntry" o = FontSelectionGetPreviewEntryMethodInfo + ResolveFontSelectionMethod "getPreviewText" o = FontSelectionGetPreviewTextMethodInfo + ResolveFontSelectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFontSelectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFontSelectionMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFontSelectionMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFontSelectionMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFontSelectionMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFontSelectionMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveFontSelectionMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFontSelectionMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFontSelectionMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveFontSelectionMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFontSelectionMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFontSelectionMethod "getSize" o = FontSelectionGetSizeMethodInfo + ResolveFontSelectionMethod "getSizeEntry" o = FontSelectionGetSizeEntryMethodInfo + ResolveFontSelectionMethod "getSizeList" o = FontSelectionGetSizeListMethodInfo + ResolveFontSelectionMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFontSelectionMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveFontSelectionMethod "getState" o = WidgetGetStateMethodInfo + ResolveFontSelectionMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFontSelectionMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFontSelectionMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFontSelectionMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFontSelectionMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFontSelectionMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFontSelectionMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFontSelectionMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFontSelectionMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFontSelectionMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFontSelectionMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFontSelectionMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFontSelectionMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFontSelectionMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFontSelectionMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFontSelectionMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFontSelectionMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFontSelectionMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFontSelectionMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFontSelectionMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveFontSelectionMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveFontSelectionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFontSelectionMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFontSelectionMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFontSelectionMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveFontSelectionMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveFontSelectionMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFontSelectionMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFontSelectionMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFontSelectionMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFontSelectionMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFontSelectionMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFontSelectionMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFontSelectionMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFontSelectionMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFontSelectionMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveFontSelectionMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveFontSelectionMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveFontSelectionMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveFontSelectionMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveFontSelectionMethod "setFontName" o = FontSelectionSetFontNameMethodInfo + ResolveFontSelectionMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFontSelectionMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFontSelectionMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFontSelectionMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFontSelectionMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFontSelectionMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFontSelectionMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveFontSelectionMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFontSelectionMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFontSelectionMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFontSelectionMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFontSelectionMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFontSelectionMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFontSelectionMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFontSelectionMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFontSelectionMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveFontSelectionMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveFontSelectionMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFontSelectionMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFontSelectionMethod "setPreviewText" o = FontSelectionSetPreviewTextMethodInfo + ResolveFontSelectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFontSelectionMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFontSelectionMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveFontSelectionMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFontSelectionMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFontSelectionMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveFontSelectionMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFontSelectionMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFontSelectionMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveFontSelectionMethod "setState" o = WidgetSetStateMethodInfo + ResolveFontSelectionMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFontSelectionMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFontSelectionMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFontSelectionMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFontSelectionMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFontSelectionMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFontSelectionMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFontSelectionMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFontSelectionMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFontSelectionMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFontSelectionMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFontSelectionMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFontSelectionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFontSelectionMethod t FontSelection, MethodInfo info FontSelection p) => IsLabelProxy t (FontSelection -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFontSelectionMethod t FontSelection, MethodInfo info FontSelection p) => IsLabel t (FontSelection -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "font-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] @@ -142,7 +504,7 @@ type AttrSetTypeConstraint FontSelectionFontNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontSelectionFontNamePropertyInfo = FontSelectionK type AttrGetType FontSelectionFontNamePropertyInfo = T.Text - type AttrLabel FontSelectionFontNamePropertyInfo = "FontSelection::font-name" + type AttrLabel FontSelectionFontNamePropertyInfo = "font-name" attrGet _ = getFontSelectionFontName attrSet _ = setFontSelectionFontName attrConstruct _ = constructFontSelectionFontName @@ -166,22 +528,21 @@ type AttrSetTypeConstraint FontSelectionPreviewTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontSelectionPreviewTextPropertyInfo = FontSelectionK type AttrGetType FontSelectionPreviewTextPropertyInfo = T.Text - type AttrLabel FontSelectionPreviewTextPropertyInfo = "FontSelection::preview-text" + type AttrLabel FontSelectionPreviewTextPropertyInfo = "preview-text" attrGet _ = getFontSelectionPreviewText attrSet _ = setFontSelectionPreviewText attrConstruct _ = constructFontSelectionPreviewText type instance AttributeList FontSelection = FontSelectionAttributeList -type FontSelectionAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("font-name", FontSelectionFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-text", FontSelectionPreviewTextPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type FontSelectionAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fontName", FontSelectionFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewText", FontSelectionPreviewTextPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList FontSelection = FontSelectionSignalList -type FontSelectionSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FontSelectionSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method FontSelection::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "FontSelection" -- throws : False -- Skip return : False @@ -192,7 +553,7 @@ {-# DEPRECATED fontSelectionNew ["(Since version 3.2)","Use #GtkFontChooserWidget instead"]#-} fontSelectionNew :: (MonadIO m) => - m FontSelection + m FontSelection -- result fontSelectionNew = liftIO $ do result <- gtk_font_selection_new checkUnexpectedReturnNULL "gtk_font_selection_new" result @@ -201,9 +562,8 @@ -- method FontSelection::get_face -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "FontFace" -- throws : False -- Skip return : False @@ -215,8 +575,8 @@ {-# DEPRECATED fontSelectionGetFace ["(Since version 3.2)","Use #GtkFontChooser"]#-} fontSelectionGetFace :: (MonadIO m, FontSelectionK a) => - a -> -- _obj - m Pango.FontFace + a -- _obj + -> m Pango.FontFace -- result fontSelectionGetFace _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_get_face _obj' @@ -225,11 +585,14 @@ touchManagedPtr _obj return result' +data FontSelectionGetFaceMethodInfo +instance (signature ~ (m Pango.FontFace), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetFaceMethodInfo a signature where + overloadedMethod _ = fontSelectionGetFace + -- method FontSelection::get_face_list -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -241,8 +604,8 @@ {-# DEPRECATED fontSelectionGetFaceList ["(Since version 3.2)","Use #GtkFontChooser"]#-} fontSelectionGetFaceList :: (MonadIO m, FontSelectionK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result fontSelectionGetFaceList _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_get_face_list _obj' @@ -251,11 +614,14 @@ touchManagedPtr _obj return result' +data FontSelectionGetFaceListMethodInfo +instance (signature ~ (m Widget), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetFaceListMethodInfo a signature where + overloadedMethod _ = fontSelectionGetFaceList + -- method FontSelection::get_family -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "FontFamily" -- throws : False -- Skip return : False @@ -267,8 +633,8 @@ {-# DEPRECATED fontSelectionGetFamily ["(Since version 3.2)","Use #GtkFontChooser"]#-} fontSelectionGetFamily :: (MonadIO m, FontSelectionK a) => - a -> -- _obj - m Pango.FontFamily + a -- _obj + -> m Pango.FontFamily -- result fontSelectionGetFamily _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_get_family _obj' @@ -277,11 +643,14 @@ touchManagedPtr _obj return result' +data FontSelectionGetFamilyMethodInfo +instance (signature ~ (m Pango.FontFamily), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetFamilyMethodInfo a signature where + overloadedMethod _ = fontSelectionGetFamily + -- method FontSelection::get_family_list -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -293,8 +662,8 @@ {-# DEPRECATED fontSelectionGetFamilyList ["(Since version 3.2)","Use #GtkFontChooser"]#-} fontSelectionGetFamilyList :: (MonadIO m, FontSelectionK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result fontSelectionGetFamilyList _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_get_family_list _obj' @@ -303,11 +672,14 @@ touchManagedPtr _obj return result' +data FontSelectionGetFamilyListMethodInfo +instance (signature ~ (m Widget), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetFamilyListMethodInfo a signature where + overloadedMethod _ = fontSelectionGetFamilyList + -- method FontSelection::get_font_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -319,8 +691,8 @@ {-# DEPRECATED fontSelectionGetFontName ["(Since version 3.2)","Use #GtkFontChooser"]#-} fontSelectionGetFontName :: (MonadIO m, FontSelectionK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result fontSelectionGetFontName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_get_font_name _obj' @@ -330,11 +702,14 @@ touchManagedPtr _obj return result' +data FontSelectionGetFontNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetFontNameMethodInfo a signature where + overloadedMethod _ = fontSelectionGetFontName + -- method FontSelection::get_preview_entry -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -346,8 +721,8 @@ {-# DEPRECATED fontSelectionGetPreviewEntry ["(Since version 3.2)","Use #GtkFontChooser"]#-} fontSelectionGetPreviewEntry :: (MonadIO m, FontSelectionK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result fontSelectionGetPreviewEntry _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_get_preview_entry _obj' @@ -356,11 +731,14 @@ touchManagedPtr _obj return result' +data FontSelectionGetPreviewEntryMethodInfo +instance (signature ~ (m Widget), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetPreviewEntryMethodInfo a signature where + overloadedMethod _ = fontSelectionGetPreviewEntry + -- method FontSelection::get_preview_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -372,8 +750,8 @@ {-# DEPRECATED fontSelectionGetPreviewText ["(Since version 3.2)","Use #GtkFontChooser"]#-} fontSelectionGetPreviewText :: (MonadIO m, FontSelectionK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result fontSelectionGetPreviewText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_get_preview_text _obj' @@ -382,11 +760,14 @@ touchManagedPtr _obj return result' +data FontSelectionGetPreviewTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetPreviewTextMethodInfo a signature where + overloadedMethod _ = fontSelectionGetPreviewText + -- method FontSelection::get_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -398,19 +779,22 @@ {-# DEPRECATED fontSelectionGetSize ["(Since version 3.2)","Use #GtkFontChooser"]#-} fontSelectionGetSize :: (MonadIO m, FontSelectionK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result fontSelectionGetSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_get_size _obj' touchManagedPtr _obj return result +data FontSelectionGetSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetSizeMethodInfo a signature where + overloadedMethod _ = fontSelectionGetSize + -- method FontSelection::get_size_entry -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -422,8 +806,8 @@ {-# DEPRECATED fontSelectionGetSizeEntry ["(Since version 3.2)","Use #GtkFontChooser"]#-} fontSelectionGetSizeEntry :: (MonadIO m, FontSelectionK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result fontSelectionGetSizeEntry _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_get_size_entry _obj' @@ -432,11 +816,14 @@ touchManagedPtr _obj return result' +data FontSelectionGetSizeEntryMethodInfo +instance (signature ~ (m Widget), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetSizeEntryMethodInfo a signature where + overloadedMethod _ = fontSelectionGetSizeEntry + -- method FontSelection::get_size_list -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -448,8 +835,8 @@ {-# DEPRECATED fontSelectionGetSizeList ["(Since version 3.2)","Use #GtkFontChooser"]#-} fontSelectionGetSizeList :: (MonadIO m, FontSelectionK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result fontSelectionGetSizeList _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_get_size_list _obj' @@ -458,11 +845,14 @@ touchManagedPtr _obj return result' +data FontSelectionGetSizeListMethodInfo +instance (signature ~ (m Widget), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionGetSizeListMethodInfo a signature where + overloadedMethod _ = fontSelectionGetSizeList + -- method FontSelection::set_font_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -475,9 +865,9 @@ {-# DEPRECATED fontSelectionSetFontName ["(Since version 3.2)","Use #GtkFontChooser"]#-} fontSelectionSetFontName :: (MonadIO m, FontSelectionK a) => - a -> -- _obj - T.Text -> -- fontname - m Bool + a -- _obj + -> T.Text -- fontname + -> m Bool -- result fontSelectionSetFontName _obj fontname = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj fontname' <- textToCString fontname @@ -487,11 +877,14 @@ freeMem fontname' return result' +data FontSelectionSetFontNameMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionSetFontNameMethodInfo a signature where + overloadedMethod _ = fontSelectionSetFontName + -- method FontSelection::set_preview_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -504,9 +897,9 @@ {-# DEPRECATED fontSelectionSetPreviewText ["(Since version 3.2)","Use #GtkFontChooser"]#-} fontSelectionSetPreviewText :: (MonadIO m, FontSelectionK a) => - a -> -- _obj - T.Text -> -- text - m () + a -- _obj + -> T.Text -- text + -> m () -- result fontSelectionSetPreviewText _obj text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text @@ -514,5 +907,9 @@ touchManagedPtr _obj freeMem text' return () + +data FontSelectionSetPreviewTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, FontSelectionK a) => MethodInfo FontSelectionSetPreviewTextMethodInfo a signature where + overloadedMethod _ = fontSelectionSetPreviewText diff --git a/GI/Gtk/Objects/FontSelection.hs-boot b/GI/Gtk/Objects/FontSelection.hs-boot --- a/GI/Gtk/Objects/FontSelection.hs-boot +++ b/GI/Gtk/Objects/FontSelection.hs-boot @@ -13,3 +13,15 @@ instance (GObject o, IsDescendantOf FontSelection o) => FontSelectionK o data FontSelectionFontNamePropertyInfo data FontSelectionPreviewTextPropertyInfo +data FontSelectionGetFaceMethodInfo +data FontSelectionGetFaceListMethodInfo +data FontSelectionGetFamilyMethodInfo +data FontSelectionGetFamilyListMethodInfo +data FontSelectionGetFontNameMethodInfo +data FontSelectionGetPreviewEntryMethodInfo +data FontSelectionGetPreviewTextMethodInfo +data FontSelectionGetSizeMethodInfo +data FontSelectionGetSizeEntryMethodInfo +data FontSelectionGetSizeListMethodInfo +data FontSelectionSetFontNameMethodInfo +data FontSelectionSetPreviewTextMethodInfo diff --git a/GI/Gtk/Objects/FontSelectionDialog.hs b/GI/Gtk/Objects/FontSelectionDialog.hs --- a/GI/Gtk/Objects/FontSelectionDialog.hs +++ b/GI/Gtk/Objects/FontSelectionDialog.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** fontSelectionDialogGetCancelButton + FontSelectionDialogGetCancelButtonMethodInfo, fontSelectionDialogGetCancelButton , -- ** fontSelectionDialogGetFontName + FontSelectionDialogGetFontNameMethodInfo, fontSelectionDialogGetFontName , -- ** fontSelectionDialogGetFontSelection + FontSelectionDialogGetFontSelectionMethodInfo, fontSelectionDialogGetFontSelection , -- ** fontSelectionDialogGetOkButton + FontSelectionDialogGetOkButtonMethodInfo, fontSelectionDialogGetOkButton , -- ** fontSelectionDialogGetPreviewText + FontSelectionDialogGetPreviewTextMethodInfo, fontSelectionDialogGetPreviewText , @@ -41,10 +47,12 @@ -- ** fontSelectionDialogSetFontName + FontSelectionDialogSetFontNameMethodInfo, fontSelectionDialogSetFontName , -- ** fontSelectionDialogSetPreviewText + FontSelectionDialogSetPreviewTextMethodInfo, fontSelectionDialogSetPreviewText , @@ -85,17 +93,459 @@ noFontSelectionDialog :: Maybe FontSelectionDialog noFontSelectionDialog = Nothing +type family ResolveFontSelectionDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveFontSelectionDialogMethod "activate" o = WidgetActivateMethodInfo + ResolveFontSelectionDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveFontSelectionDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveFontSelectionDialogMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveFontSelectionDialogMethod "add" o = ContainerAddMethodInfo + ResolveFontSelectionDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveFontSelectionDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFontSelectionDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo + ResolveFontSelectionDialogMethod "addButton" o = DialogAddButtonMethodInfo + ResolveFontSelectionDialogMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFontSelectionDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFontSelectionDialogMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFontSelectionDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveFontSelectionDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFontSelectionDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFontSelectionDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveFontSelectionDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveFontSelectionDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFontSelectionDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFontSelectionDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFontSelectionDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveFontSelectionDialogMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFontSelectionDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveFontSelectionDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveFontSelectionDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveFontSelectionDialogMethod "childType" o = ContainerChildTypeMethodInfo + ResolveFontSelectionDialogMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFontSelectionDialogMethod "close" o = WindowCloseMethodInfo + ResolveFontSelectionDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFontSelectionDialogMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFontSelectionDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFontSelectionDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFontSelectionDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFontSelectionDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFontSelectionDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFontSelectionDialogMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveFontSelectionDialogMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFontSelectionDialogMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFontSelectionDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFontSelectionDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFontSelectionDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFontSelectionDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFontSelectionDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFontSelectionDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFontSelectionDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFontSelectionDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFontSelectionDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFontSelectionDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFontSelectionDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFontSelectionDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFontSelectionDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFontSelectionDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFontSelectionDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFontSelectionDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFontSelectionDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFontSelectionDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFontSelectionDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFontSelectionDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFontSelectionDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFontSelectionDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFontSelectionDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFontSelectionDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFontSelectionDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFontSelectionDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFontSelectionDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFontSelectionDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFontSelectionDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFontSelectionDialogMethod "draw" o = WidgetDrawMethodInfo + ResolveFontSelectionDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFontSelectionDialogMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFontSelectionDialogMethod "event" o = WidgetEventMethodInfo + ResolveFontSelectionDialogMethod "forall" o = ContainerForallMethodInfo + ResolveFontSelectionDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFontSelectionDialogMethod "foreach" o = ContainerForeachMethodInfo + ResolveFontSelectionDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFontSelectionDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFontSelectionDialogMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveFontSelectionDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveFontSelectionDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFontSelectionDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFontSelectionDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFontSelectionDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFontSelectionDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFontSelectionDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFontSelectionDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFontSelectionDialogMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveFontSelectionDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFontSelectionDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFontSelectionDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveFontSelectionDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFontSelectionDialogMethod "hide" o = WidgetHideMethodInfo + ResolveFontSelectionDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFontSelectionDialogMethod "iconify" o = WindowIconifyMethodInfo + ResolveFontSelectionDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFontSelectionDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFontSelectionDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFontSelectionDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFontSelectionDialogMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFontSelectionDialogMethod "isActive" o = WindowIsActiveMethodInfo + ResolveFontSelectionDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFontSelectionDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFontSelectionDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFontSelectionDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFontSelectionDialogMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFontSelectionDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveFontSelectionDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFontSelectionDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFontSelectionDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFontSelectionDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFontSelectionDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFontSelectionDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFontSelectionDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFontSelectionDialogMethod "map" o = WidgetMapMethodInfo + ResolveFontSelectionDialogMethod "maximize" o = WindowMaximizeMethodInfo + ResolveFontSelectionDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFontSelectionDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFontSelectionDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFontSelectionDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFontSelectionDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFontSelectionDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFontSelectionDialogMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFontSelectionDialogMethod "move" o = WindowMoveMethodInfo + ResolveFontSelectionDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFontSelectionDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFontSelectionDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFontSelectionDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFontSelectionDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFontSelectionDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFontSelectionDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFontSelectionDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveFontSelectionDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFontSelectionDialogMethod "path" o = WidgetPathMethodInfo + ResolveFontSelectionDialogMethod "present" o = WindowPresentMethodInfo + ResolveFontSelectionDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveFontSelectionDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveFontSelectionDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveFontSelectionDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFontSelectionDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFontSelectionDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFontSelectionDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFontSelectionDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFontSelectionDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFontSelectionDialogMethod "realize" o = WidgetRealizeMethodInfo + ResolveFontSelectionDialogMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFontSelectionDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFontSelectionDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFontSelectionDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFontSelectionDialogMethod "remove" o = ContainerRemoveMethodInfo + ResolveFontSelectionDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveFontSelectionDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFontSelectionDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveFontSelectionDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFontSelectionDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFontSelectionDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFontSelectionDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFontSelectionDialogMethod "reparent" o = WidgetReparentMethodInfo + ResolveFontSelectionDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFontSelectionDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFontSelectionDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFontSelectionDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFontSelectionDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveFontSelectionDialogMethod "resize" o = WindowResizeMethodInfo + ResolveFontSelectionDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveFontSelectionDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveFontSelectionDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveFontSelectionDialogMethod "response" o = DialogResponseMethodInfo + ResolveFontSelectionDialogMethod "run" o = DialogRunMethodInfo + ResolveFontSelectionDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFontSelectionDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFontSelectionDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFontSelectionDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFontSelectionDialogMethod "show" o = WidgetShowMethodInfo + ResolveFontSelectionDialogMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFontSelectionDialogMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFontSelectionDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFontSelectionDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFontSelectionDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFontSelectionDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFontSelectionDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFontSelectionDialogMethod "stick" o = WindowStickMethodInfo + ResolveFontSelectionDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFontSelectionDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFontSelectionDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFontSelectionDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFontSelectionDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFontSelectionDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFontSelectionDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveFontSelectionDialogMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFontSelectionDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveFontSelectionDialogMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFontSelectionDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFontSelectionDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFontSelectionDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFontSelectionDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveFontSelectionDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFontSelectionDialogMethod "unstick" o = WindowUnstickMethodInfo + ResolveFontSelectionDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFontSelectionDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveFontSelectionDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFontSelectionDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo + ResolveFontSelectionDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFontSelectionDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFontSelectionDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFontSelectionDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFontSelectionDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFontSelectionDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFontSelectionDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFontSelectionDialogMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveFontSelectionDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveFontSelectionDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveFontSelectionDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFontSelectionDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFontSelectionDialogMethod "getCancelButton" o = FontSelectionDialogGetCancelButtonMethodInfo + ResolveFontSelectionDialogMethod "getChild" o = BinGetChildMethodInfo + ResolveFontSelectionDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFontSelectionDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFontSelectionDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveFontSelectionDialogMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFontSelectionDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFontSelectionDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFontSelectionDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo + ResolveFontSelectionDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFontSelectionDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveFontSelectionDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveFontSelectionDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveFontSelectionDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveFontSelectionDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveFontSelectionDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFontSelectionDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFontSelectionDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFontSelectionDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFontSelectionDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFontSelectionDialogMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFontSelectionDialogMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveFontSelectionDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveFontSelectionDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveFontSelectionDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveFontSelectionDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveFontSelectionDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveFontSelectionDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveFontSelectionDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveFontSelectionDialogMethod "getFontName" o = FontSelectionDialogGetFontNameMethodInfo + ResolveFontSelectionDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFontSelectionDialogMethod "getFontSelection" o = FontSelectionDialogGetFontSelectionMethodInfo + ResolveFontSelectionDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFontSelectionDialogMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveFontSelectionDialogMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveFontSelectionDialogMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFontSelectionDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveFontSelectionDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFontSelectionDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFontSelectionDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo + ResolveFontSelectionDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFontSelectionDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFontSelectionDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveFontSelectionDialogMethod "getIcon" o = WindowGetIconMethodInfo + ResolveFontSelectionDialogMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveFontSelectionDialogMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveFontSelectionDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFontSelectionDialogMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFontSelectionDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFontSelectionDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFontSelectionDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFontSelectionDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFontSelectionDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFontSelectionDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFontSelectionDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveFontSelectionDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveFontSelectionDialogMethod "getModal" o = WindowGetModalMethodInfo + ResolveFontSelectionDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFontSelectionDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFontSelectionDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFontSelectionDialogMethod "getOkButton" o = FontSelectionDialogGetOkButtonMethodInfo + ResolveFontSelectionDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFontSelectionDialogMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFontSelectionDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFontSelectionDialogMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFontSelectionDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveFontSelectionDialogMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFontSelectionDialogMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveFontSelectionDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFontSelectionDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFontSelectionDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFontSelectionDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFontSelectionDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFontSelectionDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFontSelectionDialogMethod "getPreviewText" o = FontSelectionDialogGetPreviewTextMethodInfo + ResolveFontSelectionDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFontSelectionDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFontSelectionDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFontSelectionDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFontSelectionDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFontSelectionDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFontSelectionDialogMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveFontSelectionDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveFontSelectionDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveFontSelectionDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo + ResolveFontSelectionDialogMethod "getRole" o = WindowGetRoleMethodInfo + ResolveFontSelectionDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFontSelectionDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFontSelectionDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFontSelectionDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFontSelectionDialogMethod "getSize" o = WindowGetSizeMethodInfo + ResolveFontSelectionDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFontSelectionDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveFontSelectionDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveFontSelectionDialogMethod "getState" o = WidgetGetStateMethodInfo + ResolveFontSelectionDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFontSelectionDialogMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFontSelectionDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFontSelectionDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFontSelectionDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFontSelectionDialogMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveFontSelectionDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveFontSelectionDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFontSelectionDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFontSelectionDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFontSelectionDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFontSelectionDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveFontSelectionDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveFontSelectionDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveFontSelectionDialogMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFontSelectionDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFontSelectionDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFontSelectionDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFontSelectionDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFontSelectionDialogMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFontSelectionDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo + ResolveFontSelectionDialogMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFontSelectionDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveFontSelectionDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFontSelectionDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveFontSelectionDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFontSelectionDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo + ResolveFontSelectionDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFontSelectionDialogMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveFontSelectionDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveFontSelectionDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveFontSelectionDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFontSelectionDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFontSelectionDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFontSelectionDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFontSelectionDialogMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFontSelectionDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFontSelectionDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFontSelectionDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveFontSelectionDialogMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveFontSelectionDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveFontSelectionDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo + ResolveFontSelectionDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveFontSelectionDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveFontSelectionDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveFontSelectionDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFontSelectionDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFontSelectionDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFontSelectionDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFontSelectionDialogMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFontSelectionDialogMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveFontSelectionDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveFontSelectionDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveFontSelectionDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveFontSelectionDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveFontSelectionDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveFontSelectionDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveFontSelectionDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveFontSelectionDialogMethod "setFontName" o = FontSelectionDialogSetFontNameMethodInfo + ResolveFontSelectionDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFontSelectionDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveFontSelectionDialogMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveFontSelectionDialogMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFontSelectionDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveFontSelectionDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFontSelectionDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveFontSelectionDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFontSelectionDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFontSelectionDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFontSelectionDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveFontSelectionDialogMethod "setIcon" o = WindowSetIconMethodInfo + ResolveFontSelectionDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveFontSelectionDialogMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveFontSelectionDialogMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveFontSelectionDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveFontSelectionDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveFontSelectionDialogMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFontSelectionDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFontSelectionDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFontSelectionDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFontSelectionDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFontSelectionDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFontSelectionDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFontSelectionDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveFontSelectionDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveFontSelectionDialogMethod "setModal" o = WindowSetModalMethodInfo + ResolveFontSelectionDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFontSelectionDialogMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFontSelectionDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFontSelectionDialogMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveFontSelectionDialogMethod "setPreviewText" o = FontSelectionDialogSetPreviewTextMethodInfo + ResolveFontSelectionDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFontSelectionDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFontSelectionDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveFontSelectionDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFontSelectionDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFontSelectionDialogMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveFontSelectionDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveFontSelectionDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo + ResolveFontSelectionDialogMethod "setRole" o = WindowSetRoleMethodInfo + ResolveFontSelectionDialogMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveFontSelectionDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFontSelectionDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFontSelectionDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveFontSelectionDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveFontSelectionDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveFontSelectionDialogMethod "setState" o = WidgetSetStateMethodInfo + ResolveFontSelectionDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFontSelectionDialogMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFontSelectionDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFontSelectionDialogMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveFontSelectionDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveFontSelectionDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFontSelectionDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFontSelectionDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFontSelectionDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveFontSelectionDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveFontSelectionDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveFontSelectionDialogMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFontSelectionDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFontSelectionDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFontSelectionDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFontSelectionDialogMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFontSelectionDialogMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFontSelectionDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveFontSelectionDialogMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFontSelectionDialogMethod t FontSelectionDialog, MethodInfo info FontSelectionDialog p) => IsLabelProxy t (FontSelectionDialog -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFontSelectionDialogMethod t FontSelectionDialog, MethodInfo info FontSelectionDialog p) => IsLabel t (FontSelectionDialog -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList FontSelectionDialog = FontSelectionDialogAttributeList -type FontSelectionDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type FontSelectionDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) type instance SignalList FontSelectionDialog = FontSelectionDialogSignalList -type FontSelectionDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FontSelectionDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method FontSelectionDialog::new -- method type : Constructor --- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "FontSelectionDialog" -- throws : False -- Skip return : False @@ -107,8 +557,8 @@ {-# DEPRECATED fontSelectionDialogNew ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} fontSelectionDialogNew :: (MonadIO m) => - T.Text -> -- title - m FontSelectionDialog + T.Text -- title + -> m FontSelectionDialog -- result fontSelectionDialogNew title = liftIO $ do title' <- textToCString title result <- gtk_font_selection_dialog_new title' @@ -119,9 +569,8 @@ -- method FontSelectionDialog::get_cancel_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -133,8 +582,8 @@ {-# DEPRECATED fontSelectionDialogGetCancelButton ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} fontSelectionDialogGetCancelButton :: (MonadIO m, FontSelectionDialogK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result fontSelectionDialogGetCancelButton _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_dialog_get_cancel_button _obj' @@ -143,11 +592,14 @@ touchManagedPtr _obj return result' +data FontSelectionDialogGetCancelButtonMethodInfo +instance (signature ~ (m Widget), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogGetCancelButtonMethodInfo a signature where + overloadedMethod _ = fontSelectionDialogGetCancelButton + -- method FontSelectionDialog::get_font_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -159,8 +611,8 @@ {-# DEPRECATED fontSelectionDialogGetFontName ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} fontSelectionDialogGetFontName :: (MonadIO m, FontSelectionDialogK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result fontSelectionDialogGetFontName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_dialog_get_font_name _obj' @@ -170,11 +622,14 @@ touchManagedPtr _obj return result' +data FontSelectionDialogGetFontNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogGetFontNameMethodInfo a signature where + overloadedMethod _ = fontSelectionDialogGetFontName + -- method FontSelectionDialog::get_font_selection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -186,8 +641,8 @@ {-# DEPRECATED fontSelectionDialogGetFontSelection ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} fontSelectionDialogGetFontSelection :: (MonadIO m, FontSelectionDialogK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result fontSelectionDialogGetFontSelection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_dialog_get_font_selection _obj' @@ -196,11 +651,14 @@ touchManagedPtr _obj return result' +data FontSelectionDialogGetFontSelectionMethodInfo +instance (signature ~ (m Widget), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogGetFontSelectionMethodInfo a signature where + overloadedMethod _ = fontSelectionDialogGetFontSelection + -- method FontSelectionDialog::get_ok_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -212,8 +670,8 @@ {-# DEPRECATED fontSelectionDialogGetOkButton ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} fontSelectionDialogGetOkButton :: (MonadIO m, FontSelectionDialogK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result fontSelectionDialogGetOkButton _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_dialog_get_ok_button _obj' @@ -222,11 +680,14 @@ touchManagedPtr _obj return result' +data FontSelectionDialogGetOkButtonMethodInfo +instance (signature ~ (m Widget), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogGetOkButtonMethodInfo a signature where + overloadedMethod _ = fontSelectionDialogGetOkButton + -- method FontSelectionDialog::get_preview_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -238,8 +699,8 @@ {-# DEPRECATED fontSelectionDialogGetPreviewText ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} fontSelectionDialogGetPreviewText :: (MonadIO m, FontSelectionDialogK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result fontSelectionDialogGetPreviewText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_font_selection_dialog_get_preview_text _obj' @@ -248,11 +709,14 @@ touchManagedPtr _obj return result' +data FontSelectionDialogGetPreviewTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogGetPreviewTextMethodInfo a signature where + overloadedMethod _ = fontSelectionDialogGetPreviewText + -- method FontSelectionDialog::set_font_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -265,9 +729,9 @@ {-# DEPRECATED fontSelectionDialogSetFontName ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} fontSelectionDialogSetFontName :: (MonadIO m, FontSelectionDialogK a) => - a -> -- _obj - T.Text -> -- fontname - m Bool + a -- _obj + -> T.Text -- fontname + -> m Bool -- result fontSelectionDialogSetFontName _obj fontname = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj fontname' <- textToCString fontname @@ -277,11 +741,14 @@ freeMem fontname' return result' +data FontSelectionDialogSetFontNameMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogSetFontNameMethodInfo a signature where + overloadedMethod _ = fontSelectionDialogSetFontName + -- method FontSelectionDialog::set_preview_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -294,9 +761,9 @@ {-# DEPRECATED fontSelectionDialogSetPreviewText ["(Since version 3.2)","Use #GtkFontChooserDialog"]#-} fontSelectionDialogSetPreviewText :: (MonadIO m, FontSelectionDialogK a) => - a -> -- _obj - T.Text -> -- text - m () + a -- _obj + -> T.Text -- text + -> m () -- result fontSelectionDialogSetPreviewText _obj text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text @@ -304,5 +771,9 @@ touchManagedPtr _obj freeMem text' return () + +data FontSelectionDialogSetPreviewTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, FontSelectionDialogK a) => MethodInfo FontSelectionDialogSetPreviewTextMethodInfo a signature where + overloadedMethod _ = fontSelectionDialogSetPreviewText diff --git a/GI/Gtk/Objects/FontSelectionDialog.hs-boot b/GI/Gtk/Objects/FontSelectionDialog.hs-boot --- a/GI/Gtk/Objects/FontSelectionDialog.hs-boot +++ b/GI/Gtk/Objects/FontSelectionDialog.hs-boot @@ -11,3 +11,10 @@ instance GObject FontSelectionDialog where class GObject o => FontSelectionDialogK o instance (GObject o, IsDescendantOf FontSelectionDialog o) => FontSelectionDialogK o +data FontSelectionDialogGetCancelButtonMethodInfo +data FontSelectionDialogGetFontNameMethodInfo +data FontSelectionDialogGetFontSelectionMethodInfo +data FontSelectionDialogGetOkButtonMethodInfo +data FontSelectionDialogGetPreviewTextMethodInfo +data FontSelectionDialogSetFontNameMethodInfo +data FontSelectionDialogSetPreviewTextMethodInfo diff --git a/GI/Gtk/Objects/Frame.hs b/GI/Gtk/Objects/Frame.hs --- a/GI/Gtk/Objects/Frame.hs +++ b/GI/Gtk/Objects/Frame.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** frameGetLabel + FrameGetLabelMethodInfo , frameGetLabel , -- ** frameGetLabelAlign + FrameGetLabelAlignMethodInfo , frameGetLabelAlign , -- ** frameGetLabelWidget + FrameGetLabelWidgetMethodInfo , frameGetLabelWidget , -- ** frameGetShadowType + FrameGetShadowTypeMethodInfo , frameGetShadowType , @@ -37,18 +42,22 @@ -- ** frameSetLabel + FrameSetLabelMethodInfo , frameSetLabel , -- ** frameSetLabelAlign + FrameSetLabelAlignMethodInfo , frameSetLabelAlign , -- ** frameSetLabelWidget + FrameSetLabelWidgetMethodInfo , frameSetLabelWidget , -- ** frameSetShadowType + FrameSetShadowTypeMethodInfo , frameSetShadowType , @@ -127,6 +136,337 @@ noFrame :: Maybe Frame noFrame = Nothing +type family ResolveFrameMethod (t :: Symbol) (o :: *) :: * where + ResolveFrameMethod "activate" o = WidgetActivateMethodInfo + ResolveFrameMethod "add" o = ContainerAddMethodInfo + ResolveFrameMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveFrameMethod "addChild" o = BuildableAddChildMethodInfo + ResolveFrameMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveFrameMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveFrameMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveFrameMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveFrameMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFrameMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFrameMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveFrameMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveFrameMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveFrameMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveFrameMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveFrameMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveFrameMethod "childType" o = ContainerChildTypeMethodInfo + ResolveFrameMethod "classPath" o = WidgetClassPathMethodInfo + ResolveFrameMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveFrameMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveFrameMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveFrameMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveFrameMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveFrameMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveFrameMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveFrameMethod "destroy" o = WidgetDestroyMethodInfo + ResolveFrameMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveFrameMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveFrameMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveFrameMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveFrameMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveFrameMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveFrameMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveFrameMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveFrameMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveFrameMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveFrameMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveFrameMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveFrameMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveFrameMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveFrameMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveFrameMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveFrameMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveFrameMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveFrameMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveFrameMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveFrameMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveFrameMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveFrameMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveFrameMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveFrameMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveFrameMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveFrameMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveFrameMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveFrameMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveFrameMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveFrameMethod "draw" o = WidgetDrawMethodInfo + ResolveFrameMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveFrameMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveFrameMethod "event" o = WidgetEventMethodInfo + ResolveFrameMethod "forall" o = ContainerForallMethodInfo + ResolveFrameMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFrameMethod "foreach" o = ContainerForeachMethodInfo + ResolveFrameMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveFrameMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFrameMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveFrameMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveFrameMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveFrameMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveFrameMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveFrameMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveFrameMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveFrameMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveFrameMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveFrameMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveFrameMethod "hide" o = WidgetHideMethodInfo + ResolveFrameMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveFrameMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveFrameMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveFrameMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveFrameMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveFrameMethod "intersect" o = WidgetIntersectMethodInfo + ResolveFrameMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveFrameMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveFrameMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveFrameMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFrameMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveFrameMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveFrameMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveFrameMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveFrameMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveFrameMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveFrameMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveFrameMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveFrameMethod "map" o = WidgetMapMethodInfo + ResolveFrameMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveFrameMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveFrameMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveFrameMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveFrameMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveFrameMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveFrameMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveFrameMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveFrameMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFrameMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFrameMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveFrameMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveFrameMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveFrameMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveFrameMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveFrameMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveFrameMethod "path" o = WidgetPathMethodInfo + ResolveFrameMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveFrameMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveFrameMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveFrameMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveFrameMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveFrameMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveFrameMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveFrameMethod "realize" o = WidgetRealizeMethodInfo + ResolveFrameMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFrameMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFrameMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveFrameMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveFrameMethod "remove" o = ContainerRemoveMethodInfo + ResolveFrameMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveFrameMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveFrameMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveFrameMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveFrameMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveFrameMethod "reparent" o = WidgetReparentMethodInfo + ResolveFrameMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFrameMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFrameMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveFrameMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveFrameMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveFrameMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFrameMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveFrameMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveFrameMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveFrameMethod "show" o = WidgetShowMethodInfo + ResolveFrameMethod "showAll" o = WidgetShowAllMethodInfo + ResolveFrameMethod "showNow" o = WidgetShowNowMethodInfo + ResolveFrameMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveFrameMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveFrameMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveFrameMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFrameMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFrameMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveFrameMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveFrameMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveFrameMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFrameMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveFrameMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveFrameMethod "unmap" o = WidgetUnmapMethodInfo + ResolveFrameMethod "unparent" o = WidgetUnparentMethodInfo + ResolveFrameMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveFrameMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFrameMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveFrameMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveFrameMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveFrameMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFrameMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveFrameMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveFrameMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveFrameMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveFrameMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveFrameMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveFrameMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveFrameMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveFrameMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveFrameMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveFrameMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveFrameMethod "getChild" o = BinGetChildMethodInfo + ResolveFrameMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveFrameMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveFrameMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveFrameMethod "getClip" o = WidgetGetClipMethodInfo + ResolveFrameMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveFrameMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveFrameMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFrameMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveFrameMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveFrameMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveFrameMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveFrameMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveFrameMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveFrameMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveFrameMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveFrameMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveFrameMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveFrameMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveFrameMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveFrameMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveFrameMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveFrameMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveFrameMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveFrameMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveFrameMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveFrameMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveFrameMethod "getLabel" o = FrameGetLabelMethodInfo + ResolveFrameMethod "getLabelAlign" o = FrameGetLabelAlignMethodInfo + ResolveFrameMethod "getLabelWidget" o = FrameGetLabelWidgetMethodInfo + ResolveFrameMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveFrameMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveFrameMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveFrameMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveFrameMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveFrameMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveFrameMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveFrameMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveFrameMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveFrameMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveFrameMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveFrameMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveFrameMethod "getParent" o = WidgetGetParentMethodInfo + ResolveFrameMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveFrameMethod "getPath" o = WidgetGetPathMethodInfo + ResolveFrameMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveFrameMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveFrameMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveFrameMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveFrameMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveFrameMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveFrameMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveFrameMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveFrameMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFrameMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFrameMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveFrameMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveFrameMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveFrameMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveFrameMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveFrameMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveFrameMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveFrameMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveFrameMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveFrameMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveFrameMethod "getShadowType" o = FrameGetShadowTypeMethodInfo + ResolveFrameMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveFrameMethod "getState" o = WidgetGetStateMethodInfo + ResolveFrameMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveFrameMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveFrameMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveFrameMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveFrameMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveFrameMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveFrameMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveFrameMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveFrameMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveFrameMethod "getValign" o = WidgetGetValignMethodInfo + ResolveFrameMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveFrameMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveFrameMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveFrameMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveFrameMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveFrameMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveFrameMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveFrameMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveFrameMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveFrameMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveFrameMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveFrameMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveFrameMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveFrameMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveFrameMethod "setClip" o = WidgetSetClipMethodInfo + ResolveFrameMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveFrameMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFrameMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveFrameMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveFrameMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveFrameMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveFrameMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveFrameMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveFrameMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveFrameMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveFrameMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveFrameMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveFrameMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveFrameMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveFrameMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveFrameMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveFrameMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveFrameMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveFrameMethod "setLabel" o = FrameSetLabelMethodInfo + ResolveFrameMethod "setLabelAlign" o = FrameSetLabelAlignMethodInfo + ResolveFrameMethod "setLabelWidget" o = FrameSetLabelWidgetMethodInfo + ResolveFrameMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveFrameMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveFrameMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveFrameMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveFrameMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveFrameMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveFrameMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveFrameMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveFrameMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveFrameMethod "setParent" o = WidgetSetParentMethodInfo + ResolveFrameMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveFrameMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFrameMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveFrameMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveFrameMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveFrameMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveFrameMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveFrameMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveFrameMethod "setShadowType" o = FrameSetShadowTypeMethodInfo + ResolveFrameMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveFrameMethod "setState" o = WidgetSetStateMethodInfo + ResolveFrameMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveFrameMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveFrameMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveFrameMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveFrameMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveFrameMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveFrameMethod "setValign" o = WidgetSetValignMethodInfo + ResolveFrameMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveFrameMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveFrameMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveFrameMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveFrameMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveFrameMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFrameMethod t Frame, MethodInfo info Frame p) => IsLabelProxy t (Frame -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFrameMethod t Frame, MethodInfo info Frame p) => IsLabel t (Frame -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] @@ -146,7 +486,7 @@ type AttrSetTypeConstraint FrameLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint FrameLabelPropertyInfo = FrameK type AttrGetType FrameLabelPropertyInfo = T.Text - type AttrLabel FrameLabelPropertyInfo = "Frame::label" + type AttrLabel FrameLabelPropertyInfo = "label" attrGet _ = getFrameLabel attrSet _ = setFrameLabel attrConstruct _ = constructFrameLabel @@ -170,7 +510,7 @@ type AttrSetTypeConstraint FrameLabelWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint FrameLabelWidgetPropertyInfo = FrameK type AttrGetType FrameLabelWidgetPropertyInfo = Widget - type AttrLabel FrameLabelWidgetPropertyInfo = "Frame::label-widget" + type AttrLabel FrameLabelWidgetPropertyInfo = "label-widget" attrGet _ = getFrameLabelWidget attrSet _ = setFrameLabelWidget attrConstruct _ = constructFrameLabelWidget @@ -194,7 +534,7 @@ type AttrSetTypeConstraint FrameLabelXalignPropertyInfo = (~) Float type AttrBaseTypeConstraint FrameLabelXalignPropertyInfo = FrameK type AttrGetType FrameLabelXalignPropertyInfo = Float - type AttrLabel FrameLabelXalignPropertyInfo = "Frame::label-xalign" + type AttrLabel FrameLabelXalignPropertyInfo = "label-xalign" attrGet _ = getFrameLabelXalign attrSet _ = setFrameLabelXalign attrConstruct _ = constructFrameLabelXalign @@ -218,7 +558,7 @@ type AttrSetTypeConstraint FrameLabelYalignPropertyInfo = (~) Float type AttrBaseTypeConstraint FrameLabelYalignPropertyInfo = FrameK type AttrGetType FrameLabelYalignPropertyInfo = Float - type AttrLabel FrameLabelYalignPropertyInfo = "Frame::label-yalign" + type AttrLabel FrameLabelYalignPropertyInfo = "label-yalign" attrGet _ = getFrameLabelYalign attrSet _ = setFrameLabelYalign attrConstruct _ = constructFrameLabelYalign @@ -242,22 +582,21 @@ type AttrSetTypeConstraint FrameShadowTypePropertyInfo = (~) ShadowType type AttrBaseTypeConstraint FrameShadowTypePropertyInfo = FrameK type AttrGetType FrameShadowTypePropertyInfo = ShadowType - type AttrLabel FrameShadowTypePropertyInfo = "Frame::shadow-type" + type AttrLabel FrameShadowTypePropertyInfo = "shadow-type" attrGet _ = getFrameShadowType attrSet _ = setFrameShadowType attrConstruct _ = constructFrameShadowType type instance AttributeList Frame = FrameAttributeList -type FrameAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("label-widget", FrameLabelWidgetPropertyInfo), '("label-xalign", FrameLabelXalignPropertyInfo), '("label-yalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type FrameAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("labelWidget", FrameLabelWidgetPropertyInfo), '("labelXalign", FrameLabelXalignPropertyInfo), '("labelYalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Frame = FrameSignalList -type FrameSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FrameSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Frame::new -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Frame" -- throws : False -- Skip return : False @@ -269,8 +608,8 @@ frameNew :: (MonadIO m) => - Maybe (T.Text) -> -- label - m Frame + Maybe (T.Text) -- label + -> m Frame -- result frameNew label = liftIO $ do maybeLabel <- case label of Nothing -> return nullPtr @@ -285,9 +624,8 @@ -- method Frame::get_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -299,8 +637,8 @@ frameGetLabel :: (MonadIO m, FrameK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result frameGetLabel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_frame_get_label _obj' @@ -309,11 +647,14 @@ touchManagedPtr _obj return result' +data FrameGetLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, FrameK a) => MethodInfo FrameGetLabelMethodInfo a signature where + overloadedMethod _ = frameGetLabel + -- method Frame::get_label_align -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -327,8 +668,8 @@ frameGetLabelAlign :: (MonadIO m, FrameK a) => - a -> -- _obj - m (Float,Float) + a -- _obj + -> m (Float,Float) -- result frameGetLabelAlign _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj xalign <- allocMem :: IO (Ptr CFloat) @@ -343,11 +684,14 @@ freeMem yalign return (xalign'', yalign'') +data FrameGetLabelAlignMethodInfo +instance (signature ~ (m (Float,Float)), MonadIO m, FrameK a) => MethodInfo FrameGetLabelAlignMethodInfo a signature where + overloadedMethod _ = frameGetLabelAlign + -- method Frame::get_label_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -359,8 +703,8 @@ frameGetLabelWidget :: (MonadIO m, FrameK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result frameGetLabelWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_frame_get_label_widget _obj' @@ -369,11 +713,14 @@ touchManagedPtr _obj return result' +data FrameGetLabelWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, FrameK a) => MethodInfo FrameGetLabelWidgetMethodInfo a signature where + overloadedMethod _ = frameGetLabelWidget + -- method Frame::get_shadow_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ShadowType" -- throws : False -- Skip return : False @@ -385,8 +732,8 @@ frameGetShadowType :: (MonadIO m, FrameK a) => - a -> -- _obj - m ShadowType + a -- _obj + -> m ShadowType -- result frameGetShadowType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_frame_get_shadow_type _obj' @@ -394,11 +741,14 @@ touchManagedPtr _obj return result' +data FrameGetShadowTypeMethodInfo +instance (signature ~ (m ShadowType), MonadIO m, FrameK a) => MethodInfo FrameGetShadowTypeMethodInfo a signature where + overloadedMethod _ = frameGetShadowType + -- method Frame::set_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -411,9 +761,9 @@ frameSetLabel :: (MonadIO m, FrameK a) => - a -> -- _obj - Maybe (T.Text) -> -- label - m () + a -- _obj + -> Maybe (T.Text) -- label + -> m () -- result frameSetLabel _obj label = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLabel <- case label of @@ -426,11 +776,14 @@ freeMem maybeLabel return () +data FrameSetLabelMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, FrameK a) => MethodInfo FrameSetLabelMethodInfo a signature where + overloadedMethod _ = frameSetLabel + -- method Frame::set_label_align -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -444,10 +797,10 @@ frameSetLabelAlign :: (MonadIO m, FrameK a) => - a -> -- _obj - Float -> -- xalign - Float -> -- yalign - m () + a -- _obj + -> Float -- xalign + -> Float -- yalign + -> m () -- result frameSetLabelAlign _obj xalign yalign = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let xalign' = realToFrac xalign @@ -456,11 +809,14 @@ touchManagedPtr _obj return () +data FrameSetLabelAlignMethodInfo +instance (signature ~ (Float -> Float -> m ()), MonadIO m, FrameK a) => MethodInfo FrameSetLabelAlignMethodInfo a signature where + overloadedMethod _ = frameSetLabelAlign + -- method Frame::set_label_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -473,26 +829,29 @@ frameSetLabelWidget :: (MonadIO m, FrameK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- label_widget - m () -frameSetLabelWidget _obj label_widget = liftIO $ do + a -- _obj + -> Maybe (b) -- labelWidget + -> m () -- result +frameSetLabelWidget _obj labelWidget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel_widget <- case label_widget of + maybeLabelWidget <- case labelWidget of Nothing -> return nullPtr - Just jLabel_widget -> do - let jLabel_widget' = unsafeManagedPtrCastPtr jLabel_widget - return jLabel_widget' - gtk_frame_set_label_widget _obj' maybeLabel_widget + Just jLabelWidget -> do + let jLabelWidget' = unsafeManagedPtrCastPtr jLabelWidget + return jLabelWidget' + gtk_frame_set_label_widget _obj' maybeLabelWidget touchManagedPtr _obj - whenJust label_widget touchManagedPtr + whenJust labelWidget touchManagedPtr return () +data FrameSetLabelWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FrameK a, WidgetK b) => MethodInfo FrameSetLabelWidgetMethodInfo a signature where + overloadedMethod _ = frameSetLabelWidget + -- method Frame::set_shadow_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -505,14 +864,18 @@ frameSetShadowType :: (MonadIO m, FrameK a) => - a -> -- _obj - ShadowType -> -- type - m () + a -- _obj + -> ShadowType -- type_ + -> m () -- result frameSetShadowType _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let type_' = (fromIntegral . fromEnum) type_ gtk_frame_set_shadow_type _obj' type_' touchManagedPtr _obj return () + +data FrameSetShadowTypeMethodInfo +instance (signature ~ (ShadowType -> m ()), MonadIO m, FrameK a) => MethodInfo FrameSetShadowTypeMethodInfo a signature where + overloadedMethod _ = frameSetShadowType diff --git a/GI/Gtk/Objects/Frame.hs-boot b/GI/Gtk/Objects/Frame.hs-boot --- a/GI/Gtk/Objects/Frame.hs-boot +++ b/GI/Gtk/Objects/Frame.hs-boot @@ -16,3 +16,11 @@ data FrameLabelXalignPropertyInfo data FrameLabelYalignPropertyInfo data FrameShadowTypePropertyInfo +data FrameGetLabelMethodInfo +data FrameGetLabelAlignMethodInfo +data FrameGetLabelWidgetMethodInfo +data FrameGetShadowTypeMethodInfo +data FrameSetLabelMethodInfo +data FrameSetLabelAlignMethodInfo +data FrameSetLabelWidgetMethodInfo +data FrameSetShadowTypeMethodInfo diff --git a/GI/Gtk/Objects/FrameAccessible.hs b/GI/Gtk/Objects/FrameAccessible.hs --- a/GI/Gtk/Objects/FrameAccessible.hs +++ b/GI/Gtk/Objects/FrameAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,78 @@ noFrameAccessible :: Maybe FrameAccessible noFrameAccessible = Nothing +type family ResolveFrameAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveFrameAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveFrameAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveFrameAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveFrameAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveFrameAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveFrameAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveFrameAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveFrameAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveFrameAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveFrameAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveFrameAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveFrameAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveFrameAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveFrameAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveFrameAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveFrameAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveFrameAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveFrameAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveFrameAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveFrameAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveFrameAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveFrameAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveFrameAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveFrameAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveFrameAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveFrameAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveFrameAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveFrameAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveFrameAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveFrameAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveFrameAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveFrameAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveFrameAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveFrameAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveFrameAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveFrameAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveFrameAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveFrameAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveFrameAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveFrameAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveFrameAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveFrameAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveFrameAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveFrameAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveFrameAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveFrameAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveFrameAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveFrameAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveFrameAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveFrameAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveFrameAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveFrameAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveFrameAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveFrameAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveFrameAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveFrameAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveFrameAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveFrameAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFrameAccessibleMethod t FrameAccessible, MethodInfo info FrameAccessible p) => IsLabelProxy t (FrameAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFrameAccessibleMethod t FrameAccessible, MethodInfo info FrameAccessible p) => IsLabel t (FrameAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList FrameAccessible = FrameAccessibleAttributeList -type FrameAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type FrameAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList FrameAccessible = FrameAccessibleSignalList -type FrameAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FrameAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/GLArea.hs b/GI/Gtk/Objects/GLArea.hs --- a/GI/Gtk/Objects/GLArea.hs +++ b/GI/Gtk/Objects/GLArea.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,38 +18,47 @@ -- * Methods -- ** gLAreaAttachBuffers + GLAreaAttachBuffersMethodInfo , gLAreaAttachBuffers , -- ** gLAreaGetAutoRender + GLAreaGetAutoRenderMethodInfo , gLAreaGetAutoRender , -- ** gLAreaGetContext + GLAreaGetContextMethodInfo , gLAreaGetContext , -- ** gLAreaGetError + GLAreaGetErrorMethodInfo , gLAreaGetError , -- ** gLAreaGetHasAlpha + GLAreaGetHasAlphaMethodInfo , gLAreaGetHasAlpha , -- ** gLAreaGetHasDepthBuffer + GLAreaGetHasDepthBufferMethodInfo , gLAreaGetHasDepthBuffer , -- ** gLAreaGetHasStencilBuffer + GLAreaGetHasStencilBufferMethodInfo , gLAreaGetHasStencilBuffer , -- ** gLAreaGetRequiredVersion + GLAreaGetRequiredVersionMethodInfo , gLAreaGetRequiredVersion , -- ** gLAreaMakeCurrent + GLAreaMakeCurrentMethodInfo , gLAreaMakeCurrent , @@ -57,30 +67,37 @@ -- ** gLAreaQueueRender + GLAreaQueueRenderMethodInfo , gLAreaQueueRender , -- ** gLAreaSetAutoRender + GLAreaSetAutoRenderMethodInfo , gLAreaSetAutoRender , -- ** gLAreaSetError + GLAreaSetErrorMethodInfo , gLAreaSetError , -- ** gLAreaSetHasAlpha + GLAreaSetHasAlphaMethodInfo , gLAreaSetHasAlpha , -- ** gLAreaSetHasDepthBuffer + GLAreaSetHasDepthBufferMethodInfo , gLAreaSetHasDepthBuffer , -- ** gLAreaSetHasStencilBuffer + GLAreaSetHasStencilBufferMethodInfo , gLAreaSetHasStencilBuffer , -- ** gLAreaSetRequiredVersion + GLAreaSetRequiredVersionMethodInfo , gLAreaSetRequiredVersion , @@ -197,6 +214,318 @@ noGLArea :: Maybe GLArea noGLArea = Nothing +type family ResolveGLAreaMethod (t :: Symbol) (o :: *) :: * where + ResolveGLAreaMethod "activate" o = WidgetActivateMethodInfo + ResolveGLAreaMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveGLAreaMethod "addChild" o = BuildableAddChildMethodInfo + ResolveGLAreaMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveGLAreaMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveGLAreaMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveGLAreaMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveGLAreaMethod "attachBuffers" o = GLAreaAttachBuffersMethodInfo + ResolveGLAreaMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveGLAreaMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveGLAreaMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveGLAreaMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveGLAreaMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveGLAreaMethod "classPath" o = WidgetClassPathMethodInfo + ResolveGLAreaMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveGLAreaMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveGLAreaMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveGLAreaMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveGLAreaMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveGLAreaMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveGLAreaMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveGLAreaMethod "destroy" o = WidgetDestroyMethodInfo + ResolveGLAreaMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveGLAreaMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveGLAreaMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveGLAreaMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveGLAreaMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveGLAreaMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveGLAreaMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveGLAreaMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveGLAreaMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveGLAreaMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveGLAreaMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveGLAreaMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveGLAreaMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveGLAreaMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveGLAreaMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveGLAreaMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveGLAreaMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveGLAreaMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveGLAreaMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveGLAreaMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveGLAreaMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveGLAreaMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveGLAreaMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveGLAreaMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveGLAreaMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveGLAreaMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveGLAreaMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveGLAreaMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveGLAreaMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveGLAreaMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveGLAreaMethod "draw" o = WidgetDrawMethodInfo + ResolveGLAreaMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveGLAreaMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveGLAreaMethod "event" o = WidgetEventMethodInfo + ResolveGLAreaMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveGLAreaMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveGLAreaMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveGLAreaMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveGLAreaMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveGLAreaMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveGLAreaMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveGLAreaMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveGLAreaMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveGLAreaMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveGLAreaMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveGLAreaMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveGLAreaMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveGLAreaMethod "hide" o = WidgetHideMethodInfo + ResolveGLAreaMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveGLAreaMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveGLAreaMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveGLAreaMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveGLAreaMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveGLAreaMethod "intersect" o = WidgetIntersectMethodInfo + ResolveGLAreaMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveGLAreaMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveGLAreaMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveGLAreaMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveGLAreaMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveGLAreaMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveGLAreaMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveGLAreaMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveGLAreaMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveGLAreaMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveGLAreaMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveGLAreaMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveGLAreaMethod "makeCurrent" o = GLAreaMakeCurrentMethodInfo + ResolveGLAreaMethod "map" o = WidgetMapMethodInfo + ResolveGLAreaMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveGLAreaMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveGLAreaMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveGLAreaMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveGLAreaMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveGLAreaMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveGLAreaMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveGLAreaMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveGLAreaMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveGLAreaMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveGLAreaMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveGLAreaMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveGLAreaMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveGLAreaMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveGLAreaMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveGLAreaMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveGLAreaMethod "path" o = WidgetPathMethodInfo + ResolveGLAreaMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveGLAreaMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveGLAreaMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveGLAreaMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveGLAreaMethod "queueRender" o = GLAreaQueueRenderMethodInfo + ResolveGLAreaMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveGLAreaMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveGLAreaMethod "realize" o = WidgetRealizeMethodInfo + ResolveGLAreaMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveGLAreaMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveGLAreaMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveGLAreaMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveGLAreaMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveGLAreaMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveGLAreaMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveGLAreaMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveGLAreaMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveGLAreaMethod "reparent" o = WidgetReparentMethodInfo + ResolveGLAreaMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveGLAreaMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveGLAreaMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveGLAreaMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveGLAreaMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveGLAreaMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveGLAreaMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveGLAreaMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveGLAreaMethod "show" o = WidgetShowMethodInfo + ResolveGLAreaMethod "showAll" o = WidgetShowAllMethodInfo + ResolveGLAreaMethod "showNow" o = WidgetShowNowMethodInfo + ResolveGLAreaMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveGLAreaMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveGLAreaMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveGLAreaMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveGLAreaMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveGLAreaMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveGLAreaMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveGLAreaMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveGLAreaMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveGLAreaMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveGLAreaMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveGLAreaMethod "unmap" o = WidgetUnmapMethodInfo + ResolveGLAreaMethod "unparent" o = WidgetUnparentMethodInfo + ResolveGLAreaMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveGLAreaMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveGLAreaMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveGLAreaMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveGLAreaMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveGLAreaMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveGLAreaMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveGLAreaMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveGLAreaMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveGLAreaMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveGLAreaMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveGLAreaMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveGLAreaMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveGLAreaMethod "getAutoRender" o = GLAreaGetAutoRenderMethodInfo + ResolveGLAreaMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveGLAreaMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveGLAreaMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveGLAreaMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveGLAreaMethod "getClip" o = WidgetGetClipMethodInfo + ResolveGLAreaMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveGLAreaMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveGLAreaMethod "getContext" o = GLAreaGetContextMethodInfo + ResolveGLAreaMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveGLAreaMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveGLAreaMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveGLAreaMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveGLAreaMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveGLAreaMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveGLAreaMethod "getError" o = GLAreaGetErrorMethodInfo + ResolveGLAreaMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveGLAreaMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveGLAreaMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveGLAreaMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveGLAreaMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveGLAreaMethod "getHasAlpha" o = GLAreaGetHasAlphaMethodInfo + ResolveGLAreaMethod "getHasDepthBuffer" o = GLAreaGetHasDepthBufferMethodInfo + ResolveGLAreaMethod "getHasStencilBuffer" o = GLAreaGetHasStencilBufferMethodInfo + ResolveGLAreaMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveGLAreaMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveGLAreaMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveGLAreaMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveGLAreaMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveGLAreaMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveGLAreaMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveGLAreaMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveGLAreaMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveGLAreaMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveGLAreaMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveGLAreaMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveGLAreaMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveGLAreaMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveGLAreaMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveGLAreaMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveGLAreaMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveGLAreaMethod "getParent" o = WidgetGetParentMethodInfo + ResolveGLAreaMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveGLAreaMethod "getPath" o = WidgetGetPathMethodInfo + ResolveGLAreaMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveGLAreaMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveGLAreaMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveGLAreaMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveGLAreaMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveGLAreaMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveGLAreaMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveGLAreaMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveGLAreaMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveGLAreaMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveGLAreaMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveGLAreaMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveGLAreaMethod "getRequiredVersion" o = GLAreaGetRequiredVersionMethodInfo + ResolveGLAreaMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveGLAreaMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveGLAreaMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveGLAreaMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveGLAreaMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveGLAreaMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveGLAreaMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveGLAreaMethod "getState" o = WidgetGetStateMethodInfo + ResolveGLAreaMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveGLAreaMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveGLAreaMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveGLAreaMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveGLAreaMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveGLAreaMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveGLAreaMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveGLAreaMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveGLAreaMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveGLAreaMethod "getValign" o = WidgetGetValignMethodInfo + ResolveGLAreaMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveGLAreaMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveGLAreaMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveGLAreaMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveGLAreaMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveGLAreaMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveGLAreaMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveGLAreaMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveGLAreaMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveGLAreaMethod "setAutoRender" o = GLAreaSetAutoRenderMethodInfo + ResolveGLAreaMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveGLAreaMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveGLAreaMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveGLAreaMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveGLAreaMethod "setClip" o = WidgetSetClipMethodInfo + ResolveGLAreaMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveGLAreaMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveGLAreaMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveGLAreaMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveGLAreaMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveGLAreaMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveGLAreaMethod "setError" o = GLAreaSetErrorMethodInfo + ResolveGLAreaMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveGLAreaMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveGLAreaMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveGLAreaMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveGLAreaMethod "setHasAlpha" o = GLAreaSetHasAlphaMethodInfo + ResolveGLAreaMethod "setHasDepthBuffer" o = GLAreaSetHasDepthBufferMethodInfo + ResolveGLAreaMethod "setHasStencilBuffer" o = GLAreaSetHasStencilBufferMethodInfo + ResolveGLAreaMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveGLAreaMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveGLAreaMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveGLAreaMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveGLAreaMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveGLAreaMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveGLAreaMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveGLAreaMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveGLAreaMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveGLAreaMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveGLAreaMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveGLAreaMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveGLAreaMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveGLAreaMethod "setParent" o = WidgetSetParentMethodInfo + ResolveGLAreaMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveGLAreaMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveGLAreaMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveGLAreaMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveGLAreaMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveGLAreaMethod "setRequiredVersion" o = GLAreaSetRequiredVersionMethodInfo + ResolveGLAreaMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveGLAreaMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveGLAreaMethod "setState" o = WidgetSetStateMethodInfo + ResolveGLAreaMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveGLAreaMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveGLAreaMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveGLAreaMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveGLAreaMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveGLAreaMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveGLAreaMethod "setValign" o = WidgetSetValignMethodInfo + ResolveGLAreaMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveGLAreaMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveGLAreaMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveGLAreaMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveGLAreaMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveGLAreaMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveGLAreaMethod t GLArea, MethodInfo info GLArea p) => IsLabelProxy t (GLArea -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveGLAreaMethod t GLArea, MethodInfo info GLArea p) => IsLabel t (GLArea -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal GLArea::create-context type GLAreaCreateContextCallback = IO Gdk.GLContext @@ -344,7 +673,7 @@ type AttrSetTypeConstraint GLAreaAutoRenderPropertyInfo = (~) Bool type AttrBaseTypeConstraint GLAreaAutoRenderPropertyInfo = GLAreaK type AttrGetType GLAreaAutoRenderPropertyInfo = Bool - type AttrLabel GLAreaAutoRenderPropertyInfo = "GLArea::auto-render" + type AttrLabel GLAreaAutoRenderPropertyInfo = "auto-render" attrGet _ = getGLAreaAutoRender attrSet _ = setGLAreaAutoRender attrConstruct _ = constructGLAreaAutoRender @@ -362,7 +691,7 @@ type AttrSetTypeConstraint GLAreaContextPropertyInfo = (~) () type AttrBaseTypeConstraint GLAreaContextPropertyInfo = GLAreaK type AttrGetType GLAreaContextPropertyInfo = Gdk.GLContext - type AttrLabel GLAreaContextPropertyInfo = "GLArea::context" + type AttrLabel GLAreaContextPropertyInfo = "context" attrGet _ = getGLAreaContext attrSet _ = undefined attrConstruct _ = undefined @@ -386,7 +715,7 @@ type AttrSetTypeConstraint GLAreaHasAlphaPropertyInfo = (~) Bool type AttrBaseTypeConstraint GLAreaHasAlphaPropertyInfo = GLAreaK type AttrGetType GLAreaHasAlphaPropertyInfo = Bool - type AttrLabel GLAreaHasAlphaPropertyInfo = "GLArea::has-alpha" + type AttrLabel GLAreaHasAlphaPropertyInfo = "has-alpha" attrGet _ = getGLAreaHasAlpha attrSet _ = setGLAreaHasAlpha attrConstruct _ = constructGLAreaHasAlpha @@ -410,7 +739,7 @@ type AttrSetTypeConstraint GLAreaHasDepthBufferPropertyInfo = (~) Bool type AttrBaseTypeConstraint GLAreaHasDepthBufferPropertyInfo = GLAreaK type AttrGetType GLAreaHasDepthBufferPropertyInfo = Bool - type AttrLabel GLAreaHasDepthBufferPropertyInfo = "GLArea::has-depth-buffer" + type AttrLabel GLAreaHasDepthBufferPropertyInfo = "has-depth-buffer" attrGet _ = getGLAreaHasDepthBuffer attrSet _ = setGLAreaHasDepthBuffer attrConstruct _ = constructGLAreaHasDepthBuffer @@ -434,13 +763,13 @@ type AttrSetTypeConstraint GLAreaHasStencilBufferPropertyInfo = (~) Bool type AttrBaseTypeConstraint GLAreaHasStencilBufferPropertyInfo = GLAreaK type AttrGetType GLAreaHasStencilBufferPropertyInfo = Bool - type AttrLabel GLAreaHasStencilBufferPropertyInfo = "GLArea::has-stencil-buffer" + type AttrLabel GLAreaHasStencilBufferPropertyInfo = "has-stencil-buffer" attrGet _ = getGLAreaHasStencilBuffer attrSet _ = setGLAreaHasStencilBuffer attrConstruct _ = constructGLAreaHasStencilBuffer type instance AttributeList GLArea = GLAreaAttributeList -type GLAreaAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("auto-render", GLAreaAutoRenderPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("context", GLAreaContextPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-alpha", GLAreaHasAlphaPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-depth-buffer", GLAreaHasDepthBufferPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-stencil-buffer", GLAreaHasStencilBufferPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type GLAreaAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("autoRender", GLAreaAutoRenderPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("context", GLAreaContextPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasAlpha", GLAreaHasAlphaPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasDepthBuffer", GLAreaHasDepthBufferPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasStencilBuffer", GLAreaHasStencilBufferPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data GLAreaCreateContextSignalInfo instance SignalInfo GLAreaCreateContextSignalInfo where @@ -458,13 +787,12 @@ connectSignal _ = connectGLAreaResize type instance SignalList GLArea = GLAreaSignalList -type GLAreaSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-context", GLAreaCreateContextSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("render", GLAreaRenderSignalInfo), '("resize", GLAreaResizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type GLAreaSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createContext", GLAreaCreateContextSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("render", GLAreaRenderSignalInfo), '("resize", GLAreaResizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method GLArea::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "GLArea" -- throws : False -- Skip return : False @@ -475,7 +803,7 @@ gLAreaNew :: (MonadIO m) => - m GLArea + m GLArea -- result gLAreaNew = liftIO $ do result <- gtk_gl_area_new checkUnexpectedReturnNULL "gtk_gl_area_new" result @@ -484,9 +812,8 @@ -- method GLArea::attach_buffers -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -498,19 +825,22 @@ gLAreaAttachBuffers :: (MonadIO m, GLAreaK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result gLAreaAttachBuffers _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_gl_area_attach_buffers _obj' touchManagedPtr _obj return () +data GLAreaAttachBuffersMethodInfo +instance (signature ~ (m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaAttachBuffersMethodInfo a signature where + overloadedMethod _ = gLAreaAttachBuffers + -- method GLArea::get_auto_render -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -522,8 +852,8 @@ gLAreaGetAutoRender :: (MonadIO m, GLAreaK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result gLAreaGetAutoRender _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gl_area_get_auto_render _obj' @@ -531,11 +861,14 @@ touchManagedPtr _obj return result' +data GLAreaGetAutoRenderMethodInfo +instance (signature ~ (m Bool), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetAutoRenderMethodInfo a signature where + overloadedMethod _ = gLAreaGetAutoRender + -- method GLArea::get_context -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "GLContext" -- throws : False -- Skip return : False @@ -547,8 +880,8 @@ gLAreaGetContext :: (MonadIO m, GLAreaK a) => - a -> -- _obj - m Gdk.GLContext + a -- _obj + -> m Gdk.GLContext -- result gLAreaGetContext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gl_area_get_context _obj' @@ -557,11 +890,14 @@ touchManagedPtr _obj return result' +data GLAreaGetContextMethodInfo +instance (signature ~ (m Gdk.GLContext), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetContextMethodInfo a signature where + overloadedMethod _ = gLAreaGetContext + -- method GLArea::get_error -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TError -- throws : False -- Skip return : False @@ -573,8 +909,8 @@ gLAreaGetError :: (MonadIO m, GLAreaK a) => - a -> -- _obj - m GError + a -- _obj + -> m GError -- result gLAreaGetError _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gl_area_get_error _obj' @@ -583,11 +919,14 @@ touchManagedPtr _obj return result' +data GLAreaGetErrorMethodInfo +instance (signature ~ (m GError), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetErrorMethodInfo a signature where + overloadedMethod _ = gLAreaGetError + -- method GLArea::get_has_alpha -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -599,8 +938,8 @@ gLAreaGetHasAlpha :: (MonadIO m, GLAreaK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result gLAreaGetHasAlpha _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gl_area_get_has_alpha _obj' @@ -608,11 +947,14 @@ touchManagedPtr _obj return result' +data GLAreaGetHasAlphaMethodInfo +instance (signature ~ (m Bool), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetHasAlphaMethodInfo a signature where + overloadedMethod _ = gLAreaGetHasAlpha + -- method GLArea::get_has_depth_buffer -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -624,8 +966,8 @@ gLAreaGetHasDepthBuffer :: (MonadIO m, GLAreaK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result gLAreaGetHasDepthBuffer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gl_area_get_has_depth_buffer _obj' @@ -633,11 +975,14 @@ touchManagedPtr _obj return result' +data GLAreaGetHasDepthBufferMethodInfo +instance (signature ~ (m Bool), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetHasDepthBufferMethodInfo a signature where + overloadedMethod _ = gLAreaGetHasDepthBuffer + -- method GLArea::get_has_stencil_buffer -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -649,8 +994,8 @@ gLAreaGetHasStencilBuffer :: (MonadIO m, GLAreaK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result gLAreaGetHasStencilBuffer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gl_area_get_has_stencil_buffer _obj' @@ -658,11 +1003,14 @@ touchManagedPtr _obj return result' +data GLAreaGetHasStencilBufferMethodInfo +instance (signature ~ (m Bool), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetHasStencilBufferMethodInfo a signature where + overloadedMethod _ = gLAreaGetHasStencilBuffer + -- method GLArea::get_required_version -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -676,8 +1024,8 @@ gLAreaGetRequiredVersion :: (MonadIO m, GLAreaK a) => - a -> -- _obj - m (Int32,Int32) + a -- _obj + -> m (Int32,Int32) -- result gLAreaGetRequiredVersion _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj major <- allocMem :: IO (Ptr Int32) @@ -690,11 +1038,14 @@ freeMem minor return (major', minor') +data GLAreaGetRequiredVersionMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, GLAreaK a) => MethodInfo GLAreaGetRequiredVersionMethodInfo a signature where + overloadedMethod _ = gLAreaGetRequiredVersion + -- method GLArea::make_current -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -706,19 +1057,22 @@ gLAreaMakeCurrent :: (MonadIO m, GLAreaK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result gLAreaMakeCurrent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_gl_area_make_current _obj' touchManagedPtr _obj return () +data GLAreaMakeCurrentMethodInfo +instance (signature ~ (m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaMakeCurrentMethodInfo a signature where + overloadedMethod _ = gLAreaMakeCurrent + -- method GLArea::queue_render -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -730,19 +1084,22 @@ gLAreaQueueRender :: (MonadIO m, GLAreaK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result gLAreaQueueRender _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_gl_area_queue_render _obj' touchManagedPtr _obj return () +data GLAreaQueueRenderMethodInfo +instance (signature ~ (m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaQueueRenderMethodInfo a signature where + overloadedMethod _ = gLAreaQueueRender + -- method GLArea::set_auto_render -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auto_render", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auto_render", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auto_render", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -755,21 +1112,24 @@ gLAreaSetAutoRender :: (MonadIO m, GLAreaK a) => - a -> -- _obj - Bool -> -- auto_render - m () -gLAreaSetAutoRender _obj auto_render = liftIO $ do + a -- _obj + -> Bool -- autoRender + -> m () -- result +gLAreaSetAutoRender _obj autoRender = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let auto_render' = (fromIntegral . fromEnum) auto_render - gtk_gl_area_set_auto_render _obj' auto_render' + let autoRender' = (fromIntegral . fromEnum) autoRender + gtk_gl_area_set_auto_render _obj' autoRender' touchManagedPtr _obj return () +data GLAreaSetAutoRenderMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaSetAutoRenderMethodInfo a signature where + overloadedMethod _ = gLAreaSetAutoRender + -- method GLArea::set_error -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -782,9 +1142,9 @@ gLAreaSetError :: (MonadIO m, GLAreaK a) => - a -> -- _obj - Maybe (GError) -> -- error - m () + a -- _obj + -> Maybe (GError) -- error_ + -> m () -- result gLAreaSetError _obj error_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeError_ <- case error_ of @@ -797,11 +1157,14 @@ whenJust error_ touchManagedPtr return () +data GLAreaSetErrorMethodInfo +instance (signature ~ (Maybe (GError) -> m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaSetErrorMethodInfo a signature where + overloadedMethod _ = gLAreaSetError + -- method GLArea::set_has_alpha -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -814,21 +1177,24 @@ gLAreaSetHasAlpha :: (MonadIO m, GLAreaK a) => - a -> -- _obj - Bool -> -- has_alpha - m () -gLAreaSetHasAlpha _obj has_alpha = liftIO $ do + a -- _obj + -> Bool -- hasAlpha + -> m () -- result +gLAreaSetHasAlpha _obj hasAlpha = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let has_alpha' = (fromIntegral . fromEnum) has_alpha - gtk_gl_area_set_has_alpha _obj' has_alpha' + let hasAlpha' = (fromIntegral . fromEnum) hasAlpha + gtk_gl_area_set_has_alpha _obj' hasAlpha' touchManagedPtr _obj return () +data GLAreaSetHasAlphaMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaSetHasAlphaMethodInfo a signature where + overloadedMethod _ = gLAreaSetHasAlpha + -- method GLArea::set_has_depth_buffer -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_depth_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_depth_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_depth_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -841,21 +1207,24 @@ gLAreaSetHasDepthBuffer :: (MonadIO m, GLAreaK a) => - a -> -- _obj - Bool -> -- has_depth_buffer - m () -gLAreaSetHasDepthBuffer _obj has_depth_buffer = liftIO $ do + a -- _obj + -> Bool -- hasDepthBuffer + -> m () -- result +gLAreaSetHasDepthBuffer _obj hasDepthBuffer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let has_depth_buffer' = (fromIntegral . fromEnum) has_depth_buffer - gtk_gl_area_set_has_depth_buffer _obj' has_depth_buffer' + let hasDepthBuffer' = (fromIntegral . fromEnum) hasDepthBuffer + gtk_gl_area_set_has_depth_buffer _obj' hasDepthBuffer' touchManagedPtr _obj return () +data GLAreaSetHasDepthBufferMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaSetHasDepthBufferMethodInfo a signature where + overloadedMethod _ = gLAreaSetHasDepthBuffer + -- method GLArea::set_has_stencil_buffer -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_stencil_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_stencil_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_stencil_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -868,21 +1237,24 @@ gLAreaSetHasStencilBuffer :: (MonadIO m, GLAreaK a) => - a -> -- _obj - Bool -> -- has_stencil_buffer - m () -gLAreaSetHasStencilBuffer _obj has_stencil_buffer = liftIO $ do + a -- _obj + -> Bool -- hasStencilBuffer + -> m () -- result +gLAreaSetHasStencilBuffer _obj hasStencilBuffer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let has_stencil_buffer' = (fromIntegral . fromEnum) has_stencil_buffer - gtk_gl_area_set_has_stencil_buffer _obj' has_stencil_buffer' + let hasStencilBuffer' = (fromIntegral . fromEnum) hasStencilBuffer + gtk_gl_area_set_has_stencil_buffer _obj' hasStencilBuffer' touchManagedPtr _obj return () +data GLAreaSetHasStencilBufferMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaSetHasStencilBufferMethodInfo a signature where + overloadedMethod _ = gLAreaSetHasStencilBuffer + -- method GLArea::set_required_version -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -896,14 +1268,18 @@ gLAreaSetRequiredVersion :: (MonadIO m, GLAreaK a) => - a -> -- _obj - Int32 -> -- major - Int32 -> -- minor - m () + a -- _obj + -> Int32 -- major + -> Int32 -- minor + -> m () -- result gLAreaSetRequiredVersion _obj major minor = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_gl_area_set_required_version _obj' major minor touchManagedPtr _obj return () + +data GLAreaSetRequiredVersionMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, GLAreaK a) => MethodInfo GLAreaSetRequiredVersionMethodInfo a signature where + overloadedMethod _ = gLAreaSetRequiredVersion diff --git a/GI/Gtk/Objects/GLArea.hs-boot b/GI/Gtk/Objects/GLArea.hs-boot --- a/GI/Gtk/Objects/GLArea.hs-boot +++ b/GI/Gtk/Objects/GLArea.hs-boot @@ -19,3 +19,19 @@ data GLAreaCreateContextSignalInfo data GLAreaRenderSignalInfo data GLAreaResizeSignalInfo +data GLAreaAttachBuffersMethodInfo +data GLAreaGetAutoRenderMethodInfo +data GLAreaGetContextMethodInfo +data GLAreaGetErrorMethodInfo +data GLAreaGetHasAlphaMethodInfo +data GLAreaGetHasDepthBufferMethodInfo +data GLAreaGetHasStencilBufferMethodInfo +data GLAreaGetRequiredVersionMethodInfo +data GLAreaMakeCurrentMethodInfo +data GLAreaQueueRenderMethodInfo +data GLAreaSetAutoRenderMethodInfo +data GLAreaSetErrorMethodInfo +data GLAreaSetHasAlphaMethodInfo +data GLAreaSetHasDepthBufferMethodInfo +data GLAreaSetHasStencilBufferMethodInfo +data GLAreaSetRequiredVersionMethodInfo diff --git a/GI/Gtk/Objects/Gesture.hs b/GI/Gtk/Objects/Gesture.hs --- a/GI/Gtk/Objects/Gesture.hs +++ b/GI/Gtk/Objects/Gesture.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,78 +18,97 @@ -- * Methods -- ** gestureGetBoundingBox + GestureGetBoundingBoxMethodInfo , gestureGetBoundingBox , -- ** gestureGetBoundingBoxCenter + GestureGetBoundingBoxCenterMethodInfo , gestureGetBoundingBoxCenter , -- ** gestureGetDevice + GestureGetDeviceMethodInfo , gestureGetDevice , -- ** gestureGetGroup + GestureGetGroupMethodInfo , gestureGetGroup , -- ** gestureGetLastEvent + GestureGetLastEventMethodInfo , gestureGetLastEvent , -- ** gestureGetLastUpdatedSequence + GestureGetLastUpdatedSequenceMethodInfo , gestureGetLastUpdatedSequence , -- ** gestureGetPoint + GestureGetPointMethodInfo , gestureGetPoint , -- ** gestureGetSequenceState + GestureGetSequenceStateMethodInfo , gestureGetSequenceState , -- ** gestureGetSequences + GestureGetSequencesMethodInfo , gestureGetSequences , -- ** gestureGetWindow + GestureGetWindowMethodInfo , gestureGetWindow , -- ** gestureGroup + GestureGroupMethodInfo , gestureGroup , -- ** gestureHandlesSequence + GestureHandlesSequenceMethodInfo , gestureHandlesSequence , -- ** gestureIsActive + GestureIsActiveMethodInfo , gestureIsActive , -- ** gestureIsGroupedWith + GestureIsGroupedWithMethodInfo , gestureIsGroupedWith , -- ** gestureIsRecognized + GestureIsRecognizedMethodInfo , gestureIsRecognized , -- ** gestureSetSequenceState + GestureSetSequenceStateMethodInfo , gestureSetSequenceState , -- ** gestureSetState + GestureSetStateMethodInfo , gestureSetState , -- ** gestureSetWindow + GestureSetWindowMethodInfo , gestureSetWindow , -- ** gestureUngroup + GestureUngroupMethodInfo , gestureUngroup , @@ -208,6 +228,63 @@ noGesture :: Maybe Gesture noGesture = Nothing +type family ResolveGestureMethod (t :: Symbol) (o :: *) :: * where + ResolveGestureMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveGestureMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveGestureMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveGestureMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveGestureMethod "group" o = GestureGroupMethodInfo + ResolveGestureMethod "handleEvent" o = EventControllerHandleEventMethodInfo + ResolveGestureMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo + ResolveGestureMethod "isActive" o = GestureIsActiveMethodInfo + ResolveGestureMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveGestureMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo + ResolveGestureMethod "isRecognized" o = GestureIsRecognizedMethodInfo + ResolveGestureMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveGestureMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveGestureMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveGestureMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveGestureMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveGestureMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveGestureMethod "reset" o = EventControllerResetMethodInfo + ResolveGestureMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveGestureMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveGestureMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveGestureMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveGestureMethod "ungroup" o = GestureUngroupMethodInfo + ResolveGestureMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveGestureMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveGestureMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo + ResolveGestureMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo + ResolveGestureMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveGestureMethod "getDevice" o = GestureGetDeviceMethodInfo + ResolveGestureMethod "getGroup" o = GestureGetGroupMethodInfo + ResolveGestureMethod "getLastEvent" o = GestureGetLastEventMethodInfo + ResolveGestureMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo + ResolveGestureMethod "getPoint" o = GestureGetPointMethodInfo + ResolveGestureMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo + ResolveGestureMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveGestureMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveGestureMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo + ResolveGestureMethod "getSequences" o = GestureGetSequencesMethodInfo + ResolveGestureMethod "getWidget" o = EventControllerGetWidgetMethodInfo + ResolveGestureMethod "getWindow" o = GestureGetWindowMethodInfo + ResolveGestureMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveGestureMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo + ResolveGestureMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveGestureMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo + ResolveGestureMethod "setState" o = GestureSetStateMethodInfo + ResolveGestureMethod "setWindow" o = GestureSetWindowMethodInfo + ResolveGestureMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveGestureMethod t Gesture, MethodInfo info Gesture p) => IsLabelProxy t (Gesture -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveGestureMethod t Gesture, MethodInfo info Gesture p) => IsLabel t (Gesture -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Gesture::begin type GestureBeginCallback = Gdk.EventSequence -> @@ -438,7 +515,7 @@ type AttrSetTypeConstraint GestureNPointsPropertyInfo = (~) Word32 type AttrBaseTypeConstraint GestureNPointsPropertyInfo = GestureK type AttrGetType GestureNPointsPropertyInfo = Word32 - type AttrLabel GestureNPointsPropertyInfo = "Gesture::n-points" + type AttrLabel GestureNPointsPropertyInfo = "n-points" attrGet _ = getGestureNPoints attrSet _ = undefined attrConstruct _ = constructGestureNPoints @@ -462,13 +539,13 @@ type AttrSetTypeConstraint GestureWindowPropertyInfo = Gdk.WindowK type AttrBaseTypeConstraint GestureWindowPropertyInfo = GestureK type AttrGetType GestureWindowPropertyInfo = Gdk.Window - type AttrLabel GestureWindowPropertyInfo = "Gesture::window" + type AttrLabel GestureWindowPropertyInfo = "window" attrGet _ = getGestureWindow attrSet _ = setGestureWindow attrConstruct _ = constructGestureWindow type instance AttributeList Gesture = GestureAttributeList -type GestureAttributeList = ('[ '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +type GestureAttributeList = ('[ '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) data GestureBeginSignalInfo instance SignalInfo GestureBeginSignalInfo where @@ -496,13 +573,12 @@ connectSignal _ = connectGestureUpdate type instance SignalList Gesture = GestureSignalList -type GestureSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type GestureSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) -- method Gesture::get_bounding_box -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -515,8 +591,8 @@ gestureGetBoundingBox :: (MonadIO m, GestureK a) => - a -> -- _obj - m (Bool,Gdk.Rectangle) + a -- _obj + -> m (Bool,Gdk.Rectangle) -- result gestureGetBoundingBox _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) @@ -526,11 +602,14 @@ touchManagedPtr _obj return (result', rect') +data GestureGetBoundingBoxMethodInfo +instance (signature ~ (m (Bool,Gdk.Rectangle)), MonadIO m, GestureK a) => MethodInfo GestureGetBoundingBoxMethodInfo a signature where + overloadedMethod _ = gestureGetBoundingBox + -- method Gesture::get_bounding_box_center -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -544,8 +623,8 @@ gestureGetBoundingBoxCenter :: (MonadIO m, GestureK a) => - a -> -- _obj - m (Bool,Double,Double) + a -- _obj + -> m (Bool,Double,Double) -- result gestureGetBoundingBoxCenter _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj x <- allocMem :: IO (Ptr CDouble) @@ -561,11 +640,14 @@ freeMem y return (result', x'', y'') +data GestureGetBoundingBoxCenterMethodInfo +instance (signature ~ (m (Bool,Double,Double)), MonadIO m, GestureK a) => MethodInfo GestureGetBoundingBoxCenterMethodInfo a signature where + overloadedMethod _ = gestureGetBoundingBoxCenter + -- method Gesture::get_device -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Device" -- throws : False -- Skip return : False @@ -577,8 +659,8 @@ gestureGetDevice :: (MonadIO m, GestureK a) => - a -> -- _obj - m Gdk.Device + a -- _obj + -> m Gdk.Device -- result gestureGetDevice _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_get_device _obj' @@ -587,11 +669,14 @@ touchManagedPtr _obj return result' +data GestureGetDeviceMethodInfo +instance (signature ~ (m Gdk.Device), MonadIO m, GestureK a) => MethodInfo GestureGetDeviceMethodInfo a signature where + overloadedMethod _ = gestureGetDevice + -- method Gesture::get_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "Gesture") -- throws : False -- Skip return : False @@ -603,8 +688,8 @@ gestureGetGroup :: (MonadIO m, GestureK a) => - a -> -- _obj - m [Gesture] + a -- _obj + -> m [Gesture] -- result gestureGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_get_group _obj' @@ -615,11 +700,14 @@ touchManagedPtr _obj return result'' +data GestureGetGroupMethodInfo +instance (signature ~ (m [Gesture]), MonadIO m, GestureK a) => MethodInfo GestureGetGroupMethodInfo a signature where + overloadedMethod _ = gestureGetGroup + -- method Gesture::get_last_event -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Event" -- throws : False -- Skip return : False @@ -632,9 +720,9 @@ gestureGetLastEvent :: (MonadIO m, GestureK a) => - a -> -- _obj - Gdk.EventSequence -> -- sequence - m Gdk.Event + a -- _obj + -> Gdk.EventSequence -- sequence + -> m Gdk.Event -- result gestureGetLastEvent _obj sequence = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sequence' = unsafeManagedPtrGetPtr sequence @@ -645,11 +733,14 @@ touchManagedPtr sequence return result' +data GestureGetLastEventMethodInfo +instance (signature ~ (Gdk.EventSequence -> m Gdk.Event), MonadIO m, GestureK a) => MethodInfo GestureGetLastEventMethodInfo a signature where + overloadedMethod _ = gestureGetLastEvent + -- method Gesture::get_last_updated_sequence -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "EventSequence" -- throws : False -- Skip return : False @@ -661,8 +752,8 @@ gestureGetLastUpdatedSequence :: (MonadIO m, GestureK a) => - a -> -- _obj - m Gdk.EventSequence + a -- _obj + -> m Gdk.EventSequence -- result gestureGetLastUpdatedSequence _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_get_last_updated_sequence _obj' @@ -671,11 +762,14 @@ touchManagedPtr _obj return result' +data GestureGetLastUpdatedSequenceMethodInfo +instance (signature ~ (m Gdk.EventSequence), MonadIO m, GestureK a) => MethodInfo GestureGetLastUpdatedSequenceMethodInfo a signature where + overloadedMethod _ = gestureGetLastUpdatedSequence + -- method Gesture::get_point -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -690,9 +784,9 @@ gestureGetPoint :: (MonadIO m, GestureK a) => - a -> -- _obj - Maybe (Gdk.EventSequence) -> -- sequence - m (Bool,Double,Double) + a -- _obj + -> Maybe (Gdk.EventSequence) -- sequence + -> m (Bool,Double,Double) -- result gestureGetPoint _obj sequence = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeSequence <- case sequence of @@ -714,11 +808,14 @@ freeMem y return (result', x'', y'') +data GestureGetPointMethodInfo +instance (signature ~ (Maybe (Gdk.EventSequence) -> m (Bool,Double,Double)), MonadIO m, GestureK a) => MethodInfo GestureGetPointMethodInfo a signature where + overloadedMethod _ = gestureGetPoint + -- method Gesture::get_sequence_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "EventSequenceState" -- throws : False -- Skip return : False @@ -731,9 +828,9 @@ gestureGetSequenceState :: (MonadIO m, GestureK a) => - a -> -- _obj - Gdk.EventSequence -> -- sequence - m EventSequenceState + a -- _obj + -> Gdk.EventSequence -- sequence + -> m EventSequenceState -- result gestureGetSequenceState _obj sequence = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sequence' = unsafeManagedPtrGetPtr sequence @@ -743,11 +840,14 @@ touchManagedPtr sequence return result' +data GestureGetSequenceStateMethodInfo +instance (signature ~ (Gdk.EventSequence -> m EventSequenceState), MonadIO m, GestureK a) => MethodInfo GestureGetSequenceStateMethodInfo a signature where + overloadedMethod _ = gestureGetSequenceState + -- method Gesture::get_sequences -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gdk" "EventSequence") -- throws : False -- Skip return : False @@ -759,8 +859,8 @@ gestureGetSequences :: (MonadIO m, GestureK a) => - a -> -- _obj - m [Gdk.EventSequence] + a -- _obj + -> m [Gdk.EventSequence] -- result gestureGetSequences _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_get_sequences _obj' @@ -771,11 +871,14 @@ touchManagedPtr _obj return result'' +data GestureGetSequencesMethodInfo +instance (signature ~ (m [Gdk.EventSequence]), MonadIO m, GestureK a) => MethodInfo GestureGetSequencesMethodInfo a signature where + overloadedMethod _ = gestureGetSequences + -- method Gesture::get_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False @@ -787,8 +890,8 @@ gestureGetWindow :: (MonadIO m, GestureK a) => - a -> -- _obj - m Gdk.Window + a -- _obj + -> m Gdk.Window -- result gestureGetWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_get_window _obj' @@ -797,11 +900,14 @@ touchManagedPtr _obj return result' +data GestureGetWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, GestureK a) => MethodInfo GestureGetWindowMethodInfo a signature where + overloadedMethod _ = gestureGetWindow + -- method Gesture::group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gesture", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gesture", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gesture", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -814,9 +920,9 @@ gestureGroup :: (MonadIO m, GestureK a, GestureK b) => - a -> -- _obj - b -> -- gesture - m () + a -- _obj + -> b -- gesture + -> m () -- result gestureGroup _obj gesture = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let gesture' = unsafeManagedPtrCastPtr gesture @@ -825,11 +931,14 @@ touchManagedPtr gesture return () +data GestureGroupMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, GestureK a, GestureK b) => MethodInfo GestureGroupMethodInfo a signature where + overloadedMethod _ = gestureGroup + -- method Gesture::handles_sequence -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -842,9 +951,9 @@ gestureHandlesSequence :: (MonadIO m, GestureK a) => - a -> -- _obj - Gdk.EventSequence -> -- sequence - m Bool + a -- _obj + -> Gdk.EventSequence -- sequence + -> m Bool -- result gestureHandlesSequence _obj sequence = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sequence' = unsafeManagedPtrGetPtr sequence @@ -854,11 +963,14 @@ touchManagedPtr sequence return result' +data GestureHandlesSequenceMethodInfo +instance (signature ~ (Gdk.EventSequence -> m Bool), MonadIO m, GestureK a) => MethodInfo GestureHandlesSequenceMethodInfo a signature where + overloadedMethod _ = gestureHandlesSequence + -- method Gesture::is_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -870,8 +982,8 @@ gestureIsActive :: (MonadIO m, GestureK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result gestureIsActive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_is_active _obj' @@ -879,11 +991,14 @@ touchManagedPtr _obj return result' +data GestureIsActiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, GestureK a) => MethodInfo GestureIsActiveMethodInfo a signature where + overloadedMethod _ = gestureIsActive + -- method Gesture::is_grouped_with -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -896,9 +1011,9 @@ gestureIsGroupedWith :: (MonadIO m, GestureK a, GestureK b) => - a -> -- _obj - b -> -- other - m Bool + a -- _obj + -> b -- other + -> m Bool -- result gestureIsGroupedWith _obj other = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let other' = unsafeManagedPtrCastPtr other @@ -908,11 +1023,14 @@ touchManagedPtr other return result' +data GestureIsGroupedWithMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, GestureK a, GestureK b) => MethodInfo GestureIsGroupedWithMethodInfo a signature where + overloadedMethod _ = gestureIsGroupedWith + -- method Gesture::is_recognized -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -924,8 +1042,8 @@ gestureIsRecognized :: (MonadIO m, GestureK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result gestureIsRecognized _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_is_recognized _obj' @@ -933,11 +1051,14 @@ touchManagedPtr _obj return result' +data GestureIsRecognizedMethodInfo +instance (signature ~ (m Bool), MonadIO m, GestureK a) => MethodInfo GestureIsRecognizedMethodInfo a signature where + overloadedMethod _ = gestureIsRecognized + -- method Gesture::set_sequence_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -951,10 +1072,10 @@ gestureSetSequenceState :: (MonadIO m, GestureK a) => - a -> -- _obj - Gdk.EventSequence -> -- sequence - EventSequenceState -> -- state - m Bool + a -- _obj + -> Gdk.EventSequence -- sequence + -> EventSequenceState -- state + -> m Bool -- result gestureSetSequenceState _obj sequence state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sequence' = unsafeManagedPtrGetPtr sequence @@ -965,11 +1086,14 @@ touchManagedPtr sequence return result' +data GestureSetSequenceStateMethodInfo +instance (signature ~ (Gdk.EventSequence -> EventSequenceState -> m Bool), MonadIO m, GestureK a) => MethodInfo GestureSetSequenceStateMethodInfo a signature where + overloadedMethod _ = gestureSetSequenceState + -- method Gesture::set_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -982,9 +1106,9 @@ gestureSetState :: (MonadIO m, GestureK a) => - a -> -- _obj - EventSequenceState -> -- state - m Bool + a -- _obj + -> EventSequenceState -- state + -> m Bool -- result gestureSetState _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = (fromIntegral . fromEnum) state @@ -993,11 +1117,14 @@ touchManagedPtr _obj return result' +data GestureSetStateMethodInfo +instance (signature ~ (EventSequenceState -> m Bool), MonadIO m, GestureK a) => MethodInfo GestureSetStateMethodInfo a signature where + overloadedMethod _ = gestureSetState + -- method Gesture::set_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1010,9 +1137,9 @@ gestureSetWindow :: (MonadIO m, GestureK a, Gdk.WindowK b) => - a -> -- _obj - Maybe (b) -> -- window - m () + a -- _obj + -> Maybe (b) -- window + -> m () -- result gestureSetWindow _obj window = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeWindow <- case window of @@ -1025,11 +1152,14 @@ whenJust window touchManagedPtr return () +data GestureSetWindowMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, GestureK a, Gdk.WindowK b) => MethodInfo GestureSetWindowMethodInfo a signature where + overloadedMethod _ = gestureSetWindow + -- method Gesture::ungroup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1041,12 +1171,16 @@ gestureUngroup :: (MonadIO m, GestureK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result gestureUngroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_gesture_ungroup _obj' touchManagedPtr _obj return () + +data GestureUngroupMethodInfo +instance (signature ~ (m ()), MonadIO m, GestureK a) => MethodInfo GestureUngroupMethodInfo a signature where + overloadedMethod _ = gestureUngroup diff --git a/GI/Gtk/Objects/Gesture.hs-boot b/GI/Gtk/Objects/Gesture.hs-boot --- a/GI/Gtk/Objects/Gesture.hs-boot +++ b/GI/Gtk/Objects/Gesture.hs-boot @@ -18,3 +18,22 @@ data GestureEndSignalInfo data GestureSequenceStateChangedSignalInfo data GestureUpdateSignalInfo +data GestureGetBoundingBoxMethodInfo +data GestureGetBoundingBoxCenterMethodInfo +data GestureGetDeviceMethodInfo +data GestureGetGroupMethodInfo +data GestureGetLastEventMethodInfo +data GestureGetLastUpdatedSequenceMethodInfo +data GestureGetPointMethodInfo +data GestureGetSequenceStateMethodInfo +data GestureGetSequencesMethodInfo +data GestureGetWindowMethodInfo +data GestureGroupMethodInfo +data GestureHandlesSequenceMethodInfo +data GestureIsActiveMethodInfo +data GestureIsGroupedWithMethodInfo +data GestureIsRecognizedMethodInfo +data GestureSetSequenceStateMethodInfo +data GestureSetStateMethodInfo +data GestureSetWindowMethodInfo +data GestureUngroupMethodInfo diff --git a/GI/Gtk/Objects/GestureDrag.hs b/GI/Gtk/Objects/GestureDrag.hs --- a/GI/Gtk/Objects/GestureDrag.hs +++ b/GI/Gtk/Objects/GestureDrag.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,6 +17,11 @@ -- * Methods +-- ** Unsupported methods + GestureDragGetOffsetMethodInfo , + GestureDragGetStartPointMethodInfo , + + -- ** gestureDragNew gestureDragNew , @@ -95,6 +101,73 @@ noGestureDrag :: Maybe GestureDrag noGestureDrag = Nothing +type family ResolveGestureDragMethod (t :: Symbol) (o :: *) :: * where + ResolveGestureDragMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveGestureDragMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveGestureDragMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveGestureDragMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveGestureDragMethod "group" o = GestureGroupMethodInfo + ResolveGestureDragMethod "handleEvent" o = EventControllerHandleEventMethodInfo + ResolveGestureDragMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo + ResolveGestureDragMethod "isActive" o = GestureIsActiveMethodInfo + ResolveGestureDragMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveGestureDragMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo + ResolveGestureDragMethod "isRecognized" o = GestureIsRecognizedMethodInfo + ResolveGestureDragMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveGestureDragMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveGestureDragMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveGestureDragMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveGestureDragMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveGestureDragMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveGestureDragMethod "reset" o = EventControllerResetMethodInfo + ResolveGestureDragMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveGestureDragMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveGestureDragMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveGestureDragMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveGestureDragMethod "ungroup" o = GestureUngroupMethodInfo + ResolveGestureDragMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveGestureDragMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveGestureDragMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo + ResolveGestureDragMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo + ResolveGestureDragMethod "getButton" o = GestureSingleGetButtonMethodInfo + ResolveGestureDragMethod "getCurrentButton" o = GestureSingleGetCurrentButtonMethodInfo + ResolveGestureDragMethod "getCurrentSequence" o = GestureSingleGetCurrentSequenceMethodInfo + ResolveGestureDragMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveGestureDragMethod "getDevice" o = GestureGetDeviceMethodInfo + ResolveGestureDragMethod "getExclusive" o = GestureSingleGetExclusiveMethodInfo + ResolveGestureDragMethod "getGroup" o = GestureGetGroupMethodInfo + ResolveGestureDragMethod "getLastEvent" o = GestureGetLastEventMethodInfo + ResolveGestureDragMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo + ResolveGestureDragMethod "getOffset" o = GestureDragGetOffsetMethodInfo + ResolveGestureDragMethod "getPoint" o = GestureGetPointMethodInfo + ResolveGestureDragMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo + ResolveGestureDragMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveGestureDragMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveGestureDragMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo + ResolveGestureDragMethod "getSequences" o = GestureGetSequencesMethodInfo + ResolveGestureDragMethod "getStartPoint" o = GestureDragGetStartPointMethodInfo + ResolveGestureDragMethod "getTouchOnly" o = GestureSingleGetTouchOnlyMethodInfo + ResolveGestureDragMethod "getWidget" o = EventControllerGetWidgetMethodInfo + ResolveGestureDragMethod "getWindow" o = GestureGetWindowMethodInfo + ResolveGestureDragMethod "setButton" o = GestureSingleSetButtonMethodInfo + ResolveGestureDragMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveGestureDragMethod "setExclusive" o = GestureSingleSetExclusiveMethodInfo + ResolveGestureDragMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo + ResolveGestureDragMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveGestureDragMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo + ResolveGestureDragMethod "setState" o = GestureSetStateMethodInfo + ResolveGestureDragMethod "setTouchOnly" o = GestureSingleSetTouchOnlyMethodInfo + ResolveGestureDragMethod "setWindow" o = GestureSetWindowMethodInfo + ResolveGestureDragMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveGestureDragMethod t GestureDrag, MethodInfo info GestureDrag p) => IsLabelProxy t (GestureDrag -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveGestureDragMethod t GestureDrag, MethodInfo info GestureDrag p) => IsLabel t (GestureDrag -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal GestureDrag::drag-begin type GestureDragDragBeginCallback = Double -> @@ -125,10 +198,10 @@ CDouble -> Ptr () -> IO () -gestureDragDragBeginCallbackWrapper _cb _ start_x start_y _ = do - let start_x' = realToFrac start_x - let start_y' = realToFrac start_y - _cb start_x' start_y' +gestureDragDragBeginCallbackWrapper _cb _ startX startY _ = do + let startX' = realToFrac startX + let startY' = realToFrac startY + _cb startX' startY' onGestureDragDragBegin :: (GObject a, MonadIO m) => a -> GestureDragDragBeginCallback -> m SignalHandlerId onGestureDragDragBegin obj cb = liftIO $ connectGestureDragDragBegin obj cb SignalConnectBefore @@ -171,10 +244,10 @@ CDouble -> Ptr () -> IO () -gestureDragDragEndCallbackWrapper _cb _ offset_x offset_y _ = do - let offset_x' = realToFrac offset_x - let offset_y' = realToFrac offset_y - _cb offset_x' offset_y' +gestureDragDragEndCallbackWrapper _cb _ offsetX offsetY _ = do + let offsetX' = realToFrac offsetX + let offsetY' = realToFrac offsetY + _cb offsetX' offsetY' onGestureDragDragEnd :: (GObject a, MonadIO m) => a -> GestureDragDragEndCallback -> m SignalHandlerId onGestureDragDragEnd obj cb = liftIO $ connectGestureDragDragEnd obj cb SignalConnectBefore @@ -217,10 +290,10 @@ CDouble -> Ptr () -> IO () -gestureDragDragUpdateCallbackWrapper _cb _ offset_x offset_y _ = do - let offset_x' = realToFrac offset_x - let offset_y' = realToFrac offset_y - _cb offset_x' offset_y' +gestureDragDragUpdateCallbackWrapper _cb _ offsetX offsetY _ = do + let offsetX' = realToFrac offsetX + let offsetY' = realToFrac offsetY + _cb offsetX' offsetY' onGestureDragDragUpdate :: (GObject a, MonadIO m) => a -> GestureDragDragUpdateCallback -> m SignalHandlerId onGestureDragDragUpdate obj cb = liftIO $ connectGestureDragDragUpdate obj cb SignalConnectBefore @@ -234,7 +307,7 @@ connectSignalFunPtr obj "drag-update" cb' after type instance AttributeList GestureDrag = GestureDragAttributeList -type GestureDragAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +type GestureDragAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) data GestureDragDragBeginSignalInfo instance SignalInfo GestureDragDragBeginSignalInfo where @@ -252,13 +325,12 @@ connectSignal _ = connectGestureDragDragUpdate type instance SignalList GestureDrag = GestureDragSignalList -type GestureDragSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("drag-begin", GestureDragDragBeginSignalInfo), '("drag-end", GestureDragDragEndSignalInfo), '("drag-update", GestureDragDragUpdateSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type GestureDragSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("dragBegin", GestureDragDragBeginSignalInfo), '("dragEnd", GestureDragDragEndSignalInfo), '("dragUpdate", GestureDragDragUpdateSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) -- method GestureDrag::new -- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "GestureDrag" -- throws : False -- Skip return : False @@ -270,8 +342,8 @@ gestureDragNew :: (MonadIO m, WidgetK a) => - a -> -- widget - m GestureDrag + a -- widget + -> m GestureDrag -- result gestureDragNew widget = liftIO $ do let widget' = unsafeManagedPtrCastPtr widget result <- gtk_gesture_drag_new widget' @@ -282,6 +354,16 @@ -- XXX Could not generate method GestureDrag::get_offset -- Error was : Bad introspection data: "argument \"x\" is not of nullable type (TBasicType TDouble), but it is marked as such." +-- XXX: Dummy instance, since code generation failed. +-- Please file a bug at http://github.com/haskell-gi/haskell-gi. +data GestureDragGetOffsetMethodInfo +instance (p ~ (), o ~ MethodResolutionFailed "getOffset" GestureDrag) => MethodInfo GestureDragGetOffsetMethodInfo o p where + overloadedMethod _ = undefined -- XXX Could not generate method GestureDrag::get_start_point -- Error was : Bad introspection data: "argument \"x\" is not of nullable type (TBasicType TDouble), but it is marked as such." +-- XXX: Dummy instance, since code generation failed. +-- Please file a bug at http://github.com/haskell-gi/haskell-gi. +data GestureDragGetStartPointMethodInfo +instance (p ~ (), o ~ MethodResolutionFailed "getStartPoint" GestureDrag) => MethodInfo GestureDragGetStartPointMethodInfo o p where + overloadedMethod _ = undefined diff --git a/GI/Gtk/Objects/GestureDrag.hs-boot b/GI/Gtk/Objects/GestureDrag.hs-boot --- a/GI/Gtk/Objects/GestureDrag.hs-boot +++ b/GI/Gtk/Objects/GestureDrag.hs-boot @@ -14,3 +14,5 @@ data GestureDragDragBeginSignalInfo data GestureDragDragEndSignalInfo data GestureDragDragUpdateSignalInfo +data GestureDragGetOffsetMethodInfo +data GestureDragGetStartPointMethodInfo diff --git a/GI/Gtk/Objects/GestureLongPress.hs b/GI/Gtk/Objects/GestureLongPress.hs --- a/GI/Gtk/Objects/GestureLongPress.hs +++ b/GI/Gtk/Objects/GestureLongPress.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -93,6 +94,71 @@ noGestureLongPress :: Maybe GestureLongPress noGestureLongPress = Nothing +type family ResolveGestureLongPressMethod (t :: Symbol) (o :: *) :: * where + ResolveGestureLongPressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveGestureLongPressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveGestureLongPressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveGestureLongPressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveGestureLongPressMethod "group" o = GestureGroupMethodInfo + ResolveGestureLongPressMethod "handleEvent" o = EventControllerHandleEventMethodInfo + ResolveGestureLongPressMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo + ResolveGestureLongPressMethod "isActive" o = GestureIsActiveMethodInfo + ResolveGestureLongPressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveGestureLongPressMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo + ResolveGestureLongPressMethod "isRecognized" o = GestureIsRecognizedMethodInfo + ResolveGestureLongPressMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveGestureLongPressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveGestureLongPressMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveGestureLongPressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveGestureLongPressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveGestureLongPressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveGestureLongPressMethod "reset" o = EventControllerResetMethodInfo + ResolveGestureLongPressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveGestureLongPressMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveGestureLongPressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveGestureLongPressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveGestureLongPressMethod "ungroup" o = GestureUngroupMethodInfo + ResolveGestureLongPressMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveGestureLongPressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveGestureLongPressMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo + ResolveGestureLongPressMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo + ResolveGestureLongPressMethod "getButton" o = GestureSingleGetButtonMethodInfo + ResolveGestureLongPressMethod "getCurrentButton" o = GestureSingleGetCurrentButtonMethodInfo + ResolveGestureLongPressMethod "getCurrentSequence" o = GestureSingleGetCurrentSequenceMethodInfo + ResolveGestureLongPressMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveGestureLongPressMethod "getDevice" o = GestureGetDeviceMethodInfo + ResolveGestureLongPressMethod "getExclusive" o = GestureSingleGetExclusiveMethodInfo + ResolveGestureLongPressMethod "getGroup" o = GestureGetGroupMethodInfo + ResolveGestureLongPressMethod "getLastEvent" o = GestureGetLastEventMethodInfo + ResolveGestureLongPressMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo + ResolveGestureLongPressMethod "getPoint" o = GestureGetPointMethodInfo + ResolveGestureLongPressMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo + ResolveGestureLongPressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveGestureLongPressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveGestureLongPressMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo + ResolveGestureLongPressMethod "getSequences" o = GestureGetSequencesMethodInfo + ResolveGestureLongPressMethod "getTouchOnly" o = GestureSingleGetTouchOnlyMethodInfo + ResolveGestureLongPressMethod "getWidget" o = EventControllerGetWidgetMethodInfo + ResolveGestureLongPressMethod "getWindow" o = GestureGetWindowMethodInfo + ResolveGestureLongPressMethod "setButton" o = GestureSingleSetButtonMethodInfo + ResolveGestureLongPressMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveGestureLongPressMethod "setExclusive" o = GestureSingleSetExclusiveMethodInfo + ResolveGestureLongPressMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo + ResolveGestureLongPressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveGestureLongPressMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo + ResolveGestureLongPressMethod "setState" o = GestureSetStateMethodInfo + ResolveGestureLongPressMethod "setTouchOnly" o = GestureSingleSetTouchOnlyMethodInfo + ResolveGestureLongPressMethod "setWindow" o = GestureSetWindowMethodInfo + ResolveGestureLongPressMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveGestureLongPressMethod t GestureLongPress, MethodInfo info GestureLongPress p) => IsLabelProxy t (GestureLongPress -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveGestureLongPressMethod t GestureLongPress, MethodInfo info GestureLongPress p) => IsLabel t (GestureLongPress -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal GestureLongPress::cancelled type GestureLongPressCancelledCallback = IO () @@ -196,13 +262,13 @@ type AttrSetTypeConstraint GestureLongPressDelayFactorPropertyInfo = (~) Double type AttrBaseTypeConstraint GestureLongPressDelayFactorPropertyInfo = GestureLongPressK type AttrGetType GestureLongPressDelayFactorPropertyInfo = Double - type AttrLabel GestureLongPressDelayFactorPropertyInfo = "GestureLongPress::delay-factor" + type AttrLabel GestureLongPressDelayFactorPropertyInfo = "delay-factor" attrGet _ = getGestureLongPressDelayFactor attrSet _ = setGestureLongPressDelayFactor attrConstruct _ = constructGestureLongPressDelayFactor type instance AttributeList GestureLongPress = GestureLongPressAttributeList -type GestureLongPressAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("delay-factor", GestureLongPressDelayFactorPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +type GestureLongPressAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("delayFactor", GestureLongPressDelayFactorPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) data GestureLongPressCancelledSignalInfo instance SignalInfo GestureLongPressCancelledSignalInfo where @@ -215,13 +281,12 @@ connectSignal _ = connectGestureLongPressPressed type instance SignalList GestureLongPress = GestureLongPressSignalList -type GestureLongPressSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("cancelled", GestureLongPressCancelledSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pressed", GestureLongPressPressedSignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type GestureLongPressSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("cancelled", GestureLongPressCancelledSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pressed", GestureLongPressPressedSignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) -- method GestureLongPress::new -- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "GestureLongPress" -- throws : False -- Skip return : False @@ -233,8 +298,8 @@ gestureLongPressNew :: (MonadIO m, WidgetK a) => - a -> -- widget - m GestureLongPress + a -- widget + -> m GestureLongPress -- result gestureLongPressNew widget = liftIO $ do let widget' = unsafeManagedPtrCastPtr widget result <- gtk_gesture_long_press_new widget' diff --git a/GI/Gtk/Objects/GestureMultiPress.hs b/GI/Gtk/Objects/GestureMultiPress.hs --- a/GI/Gtk/Objects/GestureMultiPress.hs +++ b/GI/Gtk/Objects/GestureMultiPress.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** gestureMultiPressGetArea + GestureMultiPressGetAreaMethodInfo , gestureMultiPressGetArea , @@ -25,6 +27,7 @@ -- ** gestureMultiPressSetArea + GestureMultiPressSetAreaMethodInfo , gestureMultiPressSetArea , @@ -104,6 +107,73 @@ noGestureMultiPress :: Maybe GestureMultiPress noGestureMultiPress = Nothing +type family ResolveGestureMultiPressMethod (t :: Symbol) (o :: *) :: * where + ResolveGestureMultiPressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveGestureMultiPressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveGestureMultiPressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveGestureMultiPressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveGestureMultiPressMethod "group" o = GestureGroupMethodInfo + ResolveGestureMultiPressMethod "handleEvent" o = EventControllerHandleEventMethodInfo + ResolveGestureMultiPressMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo + ResolveGestureMultiPressMethod "isActive" o = GestureIsActiveMethodInfo + ResolveGestureMultiPressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveGestureMultiPressMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo + ResolveGestureMultiPressMethod "isRecognized" o = GestureIsRecognizedMethodInfo + ResolveGestureMultiPressMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveGestureMultiPressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveGestureMultiPressMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveGestureMultiPressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveGestureMultiPressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveGestureMultiPressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveGestureMultiPressMethod "reset" o = EventControllerResetMethodInfo + ResolveGestureMultiPressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveGestureMultiPressMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveGestureMultiPressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveGestureMultiPressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveGestureMultiPressMethod "ungroup" o = GestureUngroupMethodInfo + ResolveGestureMultiPressMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveGestureMultiPressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveGestureMultiPressMethod "getArea" o = GestureMultiPressGetAreaMethodInfo + ResolveGestureMultiPressMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo + ResolveGestureMultiPressMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo + ResolveGestureMultiPressMethod "getButton" o = GestureSingleGetButtonMethodInfo + ResolveGestureMultiPressMethod "getCurrentButton" o = GestureSingleGetCurrentButtonMethodInfo + ResolveGestureMultiPressMethod "getCurrentSequence" o = GestureSingleGetCurrentSequenceMethodInfo + ResolveGestureMultiPressMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveGestureMultiPressMethod "getDevice" o = GestureGetDeviceMethodInfo + ResolveGestureMultiPressMethod "getExclusive" o = GestureSingleGetExclusiveMethodInfo + ResolveGestureMultiPressMethod "getGroup" o = GestureGetGroupMethodInfo + ResolveGestureMultiPressMethod "getLastEvent" o = GestureGetLastEventMethodInfo + ResolveGestureMultiPressMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo + ResolveGestureMultiPressMethod "getPoint" o = GestureGetPointMethodInfo + ResolveGestureMultiPressMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo + ResolveGestureMultiPressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveGestureMultiPressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveGestureMultiPressMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo + ResolveGestureMultiPressMethod "getSequences" o = GestureGetSequencesMethodInfo + ResolveGestureMultiPressMethod "getTouchOnly" o = GestureSingleGetTouchOnlyMethodInfo + ResolveGestureMultiPressMethod "getWidget" o = EventControllerGetWidgetMethodInfo + ResolveGestureMultiPressMethod "getWindow" o = GestureGetWindowMethodInfo + ResolveGestureMultiPressMethod "setArea" o = GestureMultiPressSetAreaMethodInfo + ResolveGestureMultiPressMethod "setButton" o = GestureSingleSetButtonMethodInfo + ResolveGestureMultiPressMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveGestureMultiPressMethod "setExclusive" o = GestureSingleSetExclusiveMethodInfo + ResolveGestureMultiPressMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo + ResolveGestureMultiPressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveGestureMultiPressMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo + ResolveGestureMultiPressMethod "setState" o = GestureSetStateMethodInfo + ResolveGestureMultiPressMethod "setTouchOnly" o = GestureSingleSetTouchOnlyMethodInfo + ResolveGestureMultiPressMethod "setWindow" o = GestureSetWindowMethodInfo + ResolveGestureMultiPressMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveGestureMultiPressMethod t GestureMultiPress, MethodInfo info GestureMultiPress p) => IsLabelProxy t (GestureMultiPress -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveGestureMultiPressMethod t GestureMultiPress, MethodInfo info GestureMultiPress p) => IsLabel t (GestureMultiPress -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal GestureMultiPress::pressed type GestureMultiPressPressedCallback = Int32 -> @@ -137,10 +207,10 @@ CDouble -> Ptr () -> IO () -gestureMultiPressPressedCallbackWrapper _cb _ n_press x y _ = do +gestureMultiPressPressedCallbackWrapper _cb _ nPress x y _ = do let x' = realToFrac x let y' = realToFrac y - _cb n_press x' y' + _cb nPress x' y' onGestureMultiPressPressed :: (GObject a, MonadIO m) => a -> GestureMultiPressPressedCallback -> m SignalHandlerId onGestureMultiPressPressed obj cb = liftIO $ connectGestureMultiPressPressed obj cb SignalConnectBefore @@ -186,10 +256,10 @@ CDouble -> Ptr () -> IO () -gestureMultiPressReleasedCallbackWrapper _cb _ n_press x y _ = do +gestureMultiPressReleasedCallbackWrapper _cb _ nPress x y _ = do let x' = realToFrac x let y' = realToFrac y - _cb n_press x' y' + _cb nPress x' y' onGestureMultiPressReleased :: (GObject a, MonadIO m) => a -> GestureMultiPressReleasedCallback -> m SignalHandlerId onGestureMultiPressReleased obj cb = liftIO $ connectGestureMultiPressReleased obj cb SignalConnectBefore @@ -241,7 +311,7 @@ connectSignalFunPtr obj "stopped" cb' after type instance AttributeList GestureMultiPress = GestureMultiPressAttributeList -type GestureMultiPressAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +type GestureMultiPressAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) data GestureMultiPressPressedSignalInfo instance SignalInfo GestureMultiPressPressedSignalInfo where @@ -259,13 +329,12 @@ connectSignal _ = connectGestureMultiPressStopped type instance SignalList GestureMultiPress = GestureMultiPressSignalList -type GestureMultiPressSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pressed", GestureMultiPressPressedSignalInfo), '("released", GestureMultiPressReleasedSignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("stopped", GestureMultiPressStoppedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type GestureMultiPressSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pressed", GestureMultiPressPressedSignalInfo), '("released", GestureMultiPressReleasedSignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("stopped", GestureMultiPressStoppedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) -- method GestureMultiPress::new -- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "GestureMultiPress" -- throws : False -- Skip return : False @@ -277,8 +346,8 @@ gestureMultiPressNew :: (MonadIO m, WidgetK a) => - a -> -- widget - m GestureMultiPress + a -- widget + -> m GestureMultiPress -- result gestureMultiPressNew widget = liftIO $ do let widget' = unsafeManagedPtrCastPtr widget result <- gtk_gesture_multi_press_new widget' @@ -289,9 +358,8 @@ -- method GestureMultiPress::get_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -304,8 +372,8 @@ gestureMultiPressGetArea :: (MonadIO m, GestureMultiPressK a) => - a -> -- _obj - m (Bool,Gdk.Rectangle) + a -- _obj + -> m (Bool,Gdk.Rectangle) -- result gestureMultiPressGetArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) @@ -315,11 +383,14 @@ touchManagedPtr _obj return (result', rect') +data GestureMultiPressGetAreaMethodInfo +instance (signature ~ (m (Bool,Gdk.Rectangle)), MonadIO m, GestureMultiPressK a) => MethodInfo GestureMultiPressGetAreaMethodInfo a signature where + overloadedMethod _ = gestureMultiPressGetArea + -- method GestureMultiPress::set_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -332,9 +403,9 @@ gestureMultiPressSetArea :: (MonadIO m, GestureMultiPressK a) => - a -> -- _obj - Maybe (Gdk.Rectangle) -> -- rect - m () + a -- _obj + -> Maybe (Gdk.Rectangle) -- rect + -> m () -- result gestureMultiPressSetArea _obj rect = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeRect <- case rect of @@ -346,5 +417,9 @@ touchManagedPtr _obj whenJust rect touchManagedPtr return () + +data GestureMultiPressSetAreaMethodInfo +instance (signature ~ (Maybe (Gdk.Rectangle) -> m ()), MonadIO m, GestureMultiPressK a) => MethodInfo GestureMultiPressSetAreaMethodInfo a signature where + overloadedMethod _ = gestureMultiPressSetArea diff --git a/GI/Gtk/Objects/GestureMultiPress.hs-boot b/GI/Gtk/Objects/GestureMultiPress.hs-boot --- a/GI/Gtk/Objects/GestureMultiPress.hs-boot +++ b/GI/Gtk/Objects/GestureMultiPress.hs-boot @@ -14,3 +14,5 @@ data GestureMultiPressPressedSignalInfo data GestureMultiPressReleasedSignalInfo data GestureMultiPressStoppedSignalInfo +data GestureMultiPressGetAreaMethodInfo +data GestureMultiPressSetAreaMethodInfo diff --git a/GI/Gtk/Objects/GesturePan.hs b/GI/Gtk/Objects/GesturePan.hs --- a/GI/Gtk/Objects/GesturePan.hs +++ b/GI/Gtk/Objects/GesturePan.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** gesturePanGetOrientation + GesturePanGetOrientationMethodInfo , gesturePanGetOrientation , @@ -25,6 +27,7 @@ -- ** gesturePanSetOrientation + GesturePanSetOrientationMethodInfo , gesturePanSetOrientation , @@ -89,6 +92,75 @@ noGesturePan :: Maybe GesturePan noGesturePan = Nothing +type family ResolveGesturePanMethod (t :: Symbol) (o :: *) :: * where + ResolveGesturePanMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveGesturePanMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveGesturePanMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveGesturePanMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveGesturePanMethod "group" o = GestureGroupMethodInfo + ResolveGesturePanMethod "handleEvent" o = EventControllerHandleEventMethodInfo + ResolveGesturePanMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo + ResolveGesturePanMethod "isActive" o = GestureIsActiveMethodInfo + ResolveGesturePanMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveGesturePanMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo + ResolveGesturePanMethod "isRecognized" o = GestureIsRecognizedMethodInfo + ResolveGesturePanMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveGesturePanMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveGesturePanMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveGesturePanMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveGesturePanMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveGesturePanMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveGesturePanMethod "reset" o = EventControllerResetMethodInfo + ResolveGesturePanMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveGesturePanMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveGesturePanMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveGesturePanMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveGesturePanMethod "ungroup" o = GestureUngroupMethodInfo + ResolveGesturePanMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveGesturePanMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveGesturePanMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo + ResolveGesturePanMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo + ResolveGesturePanMethod "getButton" o = GestureSingleGetButtonMethodInfo + ResolveGesturePanMethod "getCurrentButton" o = GestureSingleGetCurrentButtonMethodInfo + ResolveGesturePanMethod "getCurrentSequence" o = GestureSingleGetCurrentSequenceMethodInfo + ResolveGesturePanMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveGesturePanMethod "getDevice" o = GestureGetDeviceMethodInfo + ResolveGesturePanMethod "getExclusive" o = GestureSingleGetExclusiveMethodInfo + ResolveGesturePanMethod "getGroup" o = GestureGetGroupMethodInfo + ResolveGesturePanMethod "getLastEvent" o = GestureGetLastEventMethodInfo + ResolveGesturePanMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo + ResolveGesturePanMethod "getOffset" o = GestureDragGetOffsetMethodInfo + ResolveGesturePanMethod "getOrientation" o = GesturePanGetOrientationMethodInfo + ResolveGesturePanMethod "getPoint" o = GestureGetPointMethodInfo + ResolveGesturePanMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo + ResolveGesturePanMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveGesturePanMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveGesturePanMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo + ResolveGesturePanMethod "getSequences" o = GestureGetSequencesMethodInfo + ResolveGesturePanMethod "getStartPoint" o = GestureDragGetStartPointMethodInfo + ResolveGesturePanMethod "getTouchOnly" o = GestureSingleGetTouchOnlyMethodInfo + ResolveGesturePanMethod "getWidget" o = EventControllerGetWidgetMethodInfo + ResolveGesturePanMethod "getWindow" o = GestureGetWindowMethodInfo + ResolveGesturePanMethod "setButton" o = GestureSingleSetButtonMethodInfo + ResolveGesturePanMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveGesturePanMethod "setExclusive" o = GestureSingleSetExclusiveMethodInfo + ResolveGesturePanMethod "setOrientation" o = GesturePanSetOrientationMethodInfo + ResolveGesturePanMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo + ResolveGesturePanMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveGesturePanMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo + ResolveGesturePanMethod "setState" o = GestureSetStateMethodInfo + ResolveGesturePanMethod "setTouchOnly" o = GestureSingleSetTouchOnlyMethodInfo + ResolveGesturePanMethod "setWindow" o = GestureSetWindowMethodInfo + ResolveGesturePanMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveGesturePanMethod t GesturePan, MethodInfo info GesturePan p) => IsLabelProxy t (GesturePan -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveGesturePanMethod t GesturePan, MethodInfo info GesturePan p) => IsLabel t (GesturePan -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal GesturePan::pan type GesturePanPanCallback = PanDirection -> @@ -154,13 +226,13 @@ type AttrSetTypeConstraint GesturePanOrientationPropertyInfo = (~) Orientation type AttrBaseTypeConstraint GesturePanOrientationPropertyInfo = GesturePanK type AttrGetType GesturePanOrientationPropertyInfo = Orientation - type AttrLabel GesturePanOrientationPropertyInfo = "GesturePan::orientation" + type AttrLabel GesturePanOrientationPropertyInfo = "orientation" attrGet _ = getGesturePanOrientation attrSet _ = setGesturePanOrientation attrConstruct _ = constructGesturePanOrientation type instance AttributeList GesturePan = GesturePanAttributeList -type GesturePanAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("orientation", GesturePanOrientationPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +type GesturePanAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("orientation", GesturePanOrientationPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) data GesturePanPanSignalInfo instance SignalInfo GesturePanPanSignalInfo where @@ -168,13 +240,12 @@ connectSignal _ = connectGesturePanPan type instance SignalList GesturePan = GesturePanSignalList -type GesturePanSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("drag-begin", GestureDragDragBeginSignalInfo), '("drag-end", GestureDragDragEndSignalInfo), '("drag-update", GestureDragDragUpdateSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pan", GesturePanPanSignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type GesturePanSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("dragBegin", GestureDragDragBeginSignalInfo), '("dragEnd", GestureDragDragEndSignalInfo), '("dragUpdate", GestureDragDragUpdateSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pan", GesturePanPanSignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) -- method GesturePan::new -- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "GesturePan" -- throws : False -- Skip return : False @@ -187,9 +258,9 @@ gesturePanNew :: (MonadIO m, WidgetK a) => - a -> -- widget - Orientation -> -- orientation - m GesturePan + a -- widget + -> Orientation -- orientation + -> m GesturePan -- result gesturePanNew widget orientation = liftIO $ do let widget' = unsafeManagedPtrCastPtr widget let orientation' = (fromIntegral . fromEnum) orientation @@ -201,9 +272,8 @@ -- method GesturePan::get_orientation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Orientation" -- throws : False -- Skip return : False @@ -215,8 +285,8 @@ gesturePanGetOrientation :: (MonadIO m, GesturePanK a) => - a -> -- _obj - m Orientation + a -- _obj + -> m Orientation -- result gesturePanGetOrientation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_pan_get_orientation _obj' @@ -224,11 +294,14 @@ touchManagedPtr _obj return result' +data GesturePanGetOrientationMethodInfo +instance (signature ~ (m Orientation), MonadIO m, GesturePanK a) => MethodInfo GesturePanGetOrientationMethodInfo a signature where + overloadedMethod _ = gesturePanGetOrientation + -- method GesturePan::set_orientation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -241,14 +314,18 @@ gesturePanSetOrientation :: (MonadIO m, GesturePanK a) => - a -> -- _obj - Orientation -> -- orientation - m () + a -- _obj + -> Orientation -- orientation + -> m () -- result gesturePanSetOrientation _obj orientation = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let orientation' = (fromIntegral . fromEnum) orientation gtk_gesture_pan_set_orientation _obj' orientation' touchManagedPtr _obj return () + +data GesturePanSetOrientationMethodInfo +instance (signature ~ (Orientation -> m ()), MonadIO m, GesturePanK a) => MethodInfo GesturePanSetOrientationMethodInfo a signature where + overloadedMethod _ = gesturePanSetOrientation diff --git a/GI/Gtk/Objects/GesturePan.hs-boot b/GI/Gtk/Objects/GesturePan.hs-boot --- a/GI/Gtk/Objects/GesturePan.hs-boot +++ b/GI/Gtk/Objects/GesturePan.hs-boot @@ -13,3 +13,5 @@ instance (GObject o, IsDescendantOf GesturePan o) => GesturePanK o data GesturePanOrientationPropertyInfo data GesturePanPanSignalInfo +data GesturePanGetOrientationMethodInfo +data GesturePanSetOrientationMethodInfo diff --git a/GI/Gtk/Objects/GestureRotate.hs b/GI/Gtk/Objects/GestureRotate.hs --- a/GI/Gtk/Objects/GestureRotate.hs +++ b/GI/Gtk/Objects/GestureRotate.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** gestureRotateGetAngleDelta + GestureRotateGetAngleDeltaMethodInfo , gestureRotateGetAngleDelta , @@ -75,6 +77,64 @@ noGestureRotate :: Maybe GestureRotate noGestureRotate = Nothing +type family ResolveGestureRotateMethod (t :: Symbol) (o :: *) :: * where + ResolveGestureRotateMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveGestureRotateMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveGestureRotateMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveGestureRotateMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveGestureRotateMethod "group" o = GestureGroupMethodInfo + ResolveGestureRotateMethod "handleEvent" o = EventControllerHandleEventMethodInfo + ResolveGestureRotateMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo + ResolveGestureRotateMethod "isActive" o = GestureIsActiveMethodInfo + ResolveGestureRotateMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveGestureRotateMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo + ResolveGestureRotateMethod "isRecognized" o = GestureIsRecognizedMethodInfo + ResolveGestureRotateMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveGestureRotateMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveGestureRotateMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveGestureRotateMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveGestureRotateMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveGestureRotateMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveGestureRotateMethod "reset" o = EventControllerResetMethodInfo + ResolveGestureRotateMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveGestureRotateMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveGestureRotateMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveGestureRotateMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveGestureRotateMethod "ungroup" o = GestureUngroupMethodInfo + ResolveGestureRotateMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveGestureRotateMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveGestureRotateMethod "getAngleDelta" o = GestureRotateGetAngleDeltaMethodInfo + ResolveGestureRotateMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo + ResolveGestureRotateMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo + ResolveGestureRotateMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveGestureRotateMethod "getDevice" o = GestureGetDeviceMethodInfo + ResolveGestureRotateMethod "getGroup" o = GestureGetGroupMethodInfo + ResolveGestureRotateMethod "getLastEvent" o = GestureGetLastEventMethodInfo + ResolveGestureRotateMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo + ResolveGestureRotateMethod "getPoint" o = GestureGetPointMethodInfo + ResolveGestureRotateMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo + ResolveGestureRotateMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveGestureRotateMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveGestureRotateMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo + ResolveGestureRotateMethod "getSequences" o = GestureGetSequencesMethodInfo + ResolveGestureRotateMethod "getWidget" o = EventControllerGetWidgetMethodInfo + ResolveGestureRotateMethod "getWindow" o = GestureGetWindowMethodInfo + ResolveGestureRotateMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveGestureRotateMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo + ResolveGestureRotateMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveGestureRotateMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo + ResolveGestureRotateMethod "setState" o = GestureSetStateMethodInfo + ResolveGestureRotateMethod "setWindow" o = GestureSetWindowMethodInfo + ResolveGestureRotateMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveGestureRotateMethod t GestureRotate, MethodInfo info GestureRotate p) => IsLabelProxy t (GestureRotate -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveGestureRotateMethod t GestureRotate, MethodInfo info GestureRotate p) => IsLabel t (GestureRotate -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal GestureRotate::angle-changed type GestureRotateAngleChangedCallback = Double -> @@ -105,10 +165,10 @@ CDouble -> Ptr () -> IO () -gestureRotateAngleChangedCallbackWrapper _cb _ angle angle_delta _ = do +gestureRotateAngleChangedCallbackWrapper _cb _ angle angleDelta _ = do let angle' = realToFrac angle - let angle_delta' = realToFrac angle_delta - _cb angle' angle_delta' + let angleDelta' = realToFrac angleDelta + _cb angle' angleDelta' onGestureRotateAngleChanged :: (GObject a, MonadIO m) => a -> GestureRotateAngleChangedCallback -> m SignalHandlerId onGestureRotateAngleChanged obj cb = liftIO $ connectGestureRotateAngleChanged obj cb SignalConnectBefore @@ -122,7 +182,7 @@ connectSignalFunPtr obj "angle-changed" cb' after type instance AttributeList GestureRotate = GestureRotateAttributeList -type GestureRotateAttributeList = ('[ '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +type GestureRotateAttributeList = ('[ '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) data GestureRotateAngleChangedSignalInfo instance SignalInfo GestureRotateAngleChangedSignalInfo where @@ -130,13 +190,12 @@ connectSignal _ = connectGestureRotateAngleChanged type instance SignalList GestureRotate = GestureRotateSignalList -type GestureRotateSignalList = ('[ '("angle-changed", GestureRotateAngleChangedSignalInfo), '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type GestureRotateSignalList = ('[ '("angleChanged", GestureRotateAngleChangedSignalInfo), '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) -- method GestureRotate::new -- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "GestureRotate" -- throws : False -- Skip return : False @@ -148,8 +207,8 @@ gestureRotateNew :: (MonadIO m, WidgetK a) => - a -> -- widget - m GestureRotate + a -- widget + -> m GestureRotate -- result gestureRotateNew widget = liftIO $ do let widget' = unsafeManagedPtrCastPtr widget result <- gtk_gesture_rotate_new widget' @@ -160,9 +219,8 @@ -- method GestureRotate::get_angle_delta -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureRotate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureRotate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureRotate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -174,13 +232,17 @@ gestureRotateGetAngleDelta :: (MonadIO m, GestureRotateK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result gestureRotateGetAngleDelta _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_rotate_get_angle_delta _obj' let result' = realToFrac result touchManagedPtr _obj return result' + +data GestureRotateGetAngleDeltaMethodInfo +instance (signature ~ (m Double), MonadIO m, GestureRotateK a) => MethodInfo GestureRotateGetAngleDeltaMethodInfo a signature where + overloadedMethod _ = gestureRotateGetAngleDelta diff --git a/GI/Gtk/Objects/GestureRotate.hs-boot b/GI/Gtk/Objects/GestureRotate.hs-boot --- a/GI/Gtk/Objects/GestureRotate.hs-boot +++ b/GI/Gtk/Objects/GestureRotate.hs-boot @@ -12,3 +12,4 @@ class GObject o => GestureRotateK o instance (GObject o, IsDescendantOf GestureRotate o) => GestureRotateK o data GestureRotateAngleChangedSignalInfo +data GestureRotateGetAngleDeltaMethodInfo diff --git a/GI/Gtk/Objects/GestureSingle.hs b/GI/Gtk/Objects/GestureSingle.hs --- a/GI/Gtk/Objects/GestureSingle.hs +++ b/GI/Gtk/Objects/GestureSingle.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * Methods -- ** gestureSingleGetButton + GestureSingleGetButtonMethodInfo , gestureSingleGetButton , -- ** gestureSingleGetCurrentButton + GestureSingleGetCurrentButtonMethodInfo , gestureSingleGetCurrentButton , -- ** gestureSingleGetCurrentSequence + GestureSingleGetCurrentSequenceMethodInfo, gestureSingleGetCurrentSequence , -- ** gestureSingleGetExclusive + GestureSingleGetExclusiveMethodInfo , gestureSingleGetExclusive , -- ** gestureSingleGetTouchOnly + GestureSingleGetTouchOnlyMethodInfo , gestureSingleGetTouchOnly , -- ** gestureSingleSetButton + GestureSingleSetButtonMethodInfo , gestureSingleSetButton , -- ** gestureSingleSetExclusive + GestureSingleSetExclusiveMethodInfo , gestureSingleSetExclusive , -- ** gestureSingleSetTouchOnly + GestureSingleSetTouchOnlyMethodInfo , gestureSingleSetTouchOnly , @@ -109,6 +118,71 @@ noGestureSingle :: Maybe GestureSingle noGestureSingle = Nothing +type family ResolveGestureSingleMethod (t :: Symbol) (o :: *) :: * where + ResolveGestureSingleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveGestureSingleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveGestureSingleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveGestureSingleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveGestureSingleMethod "group" o = GestureGroupMethodInfo + ResolveGestureSingleMethod "handleEvent" o = EventControllerHandleEventMethodInfo + ResolveGestureSingleMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo + ResolveGestureSingleMethod "isActive" o = GestureIsActiveMethodInfo + ResolveGestureSingleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveGestureSingleMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo + ResolveGestureSingleMethod "isRecognized" o = GestureIsRecognizedMethodInfo + ResolveGestureSingleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveGestureSingleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveGestureSingleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveGestureSingleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveGestureSingleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveGestureSingleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveGestureSingleMethod "reset" o = EventControllerResetMethodInfo + ResolveGestureSingleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveGestureSingleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveGestureSingleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveGestureSingleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveGestureSingleMethod "ungroup" o = GestureUngroupMethodInfo + ResolveGestureSingleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveGestureSingleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveGestureSingleMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo + ResolveGestureSingleMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo + ResolveGestureSingleMethod "getButton" o = GestureSingleGetButtonMethodInfo + ResolveGestureSingleMethod "getCurrentButton" o = GestureSingleGetCurrentButtonMethodInfo + ResolveGestureSingleMethod "getCurrentSequence" o = GestureSingleGetCurrentSequenceMethodInfo + ResolveGestureSingleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveGestureSingleMethod "getDevice" o = GestureGetDeviceMethodInfo + ResolveGestureSingleMethod "getExclusive" o = GestureSingleGetExclusiveMethodInfo + ResolveGestureSingleMethod "getGroup" o = GestureGetGroupMethodInfo + ResolveGestureSingleMethod "getLastEvent" o = GestureGetLastEventMethodInfo + ResolveGestureSingleMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo + ResolveGestureSingleMethod "getPoint" o = GestureGetPointMethodInfo + ResolveGestureSingleMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo + ResolveGestureSingleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveGestureSingleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveGestureSingleMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo + ResolveGestureSingleMethod "getSequences" o = GestureGetSequencesMethodInfo + ResolveGestureSingleMethod "getTouchOnly" o = GestureSingleGetTouchOnlyMethodInfo + ResolveGestureSingleMethod "getWidget" o = EventControllerGetWidgetMethodInfo + ResolveGestureSingleMethod "getWindow" o = GestureGetWindowMethodInfo + ResolveGestureSingleMethod "setButton" o = GestureSingleSetButtonMethodInfo + ResolveGestureSingleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveGestureSingleMethod "setExclusive" o = GestureSingleSetExclusiveMethodInfo + ResolveGestureSingleMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo + ResolveGestureSingleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveGestureSingleMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo + ResolveGestureSingleMethod "setState" o = GestureSetStateMethodInfo + ResolveGestureSingleMethod "setTouchOnly" o = GestureSingleSetTouchOnlyMethodInfo + ResolveGestureSingleMethod "setWindow" o = GestureSetWindowMethodInfo + ResolveGestureSingleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveGestureSingleMethod t GestureSingle, MethodInfo info GestureSingle p) => IsLabelProxy t (GestureSingle -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveGestureSingleMethod t GestureSingle, MethodInfo info GestureSingle p) => IsLabel t (GestureSingle -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "button" -- Type: TBasicType TUInt32 -- Flags: [PropertyReadable,PropertyWritable] @@ -128,7 +202,7 @@ type AttrSetTypeConstraint GestureSingleButtonPropertyInfo = (~) Word32 type AttrBaseTypeConstraint GestureSingleButtonPropertyInfo = GestureSingleK type AttrGetType GestureSingleButtonPropertyInfo = Word32 - type AttrLabel GestureSingleButtonPropertyInfo = "GestureSingle::button" + type AttrLabel GestureSingleButtonPropertyInfo = "button" attrGet _ = getGestureSingleButton attrSet _ = setGestureSingleButton attrConstruct _ = constructGestureSingleButton @@ -152,7 +226,7 @@ type AttrSetTypeConstraint GestureSingleExclusivePropertyInfo = (~) Bool type AttrBaseTypeConstraint GestureSingleExclusivePropertyInfo = GestureSingleK type AttrGetType GestureSingleExclusivePropertyInfo = Bool - type AttrLabel GestureSingleExclusivePropertyInfo = "GestureSingle::exclusive" + type AttrLabel GestureSingleExclusivePropertyInfo = "exclusive" attrGet _ = getGestureSingleExclusive attrSet _ = setGestureSingleExclusive attrConstruct _ = constructGestureSingleExclusive @@ -176,22 +250,21 @@ type AttrSetTypeConstraint GestureSingleTouchOnlyPropertyInfo = (~) Bool type AttrBaseTypeConstraint GestureSingleTouchOnlyPropertyInfo = GestureSingleK type AttrGetType GestureSingleTouchOnlyPropertyInfo = Bool - type AttrLabel GestureSingleTouchOnlyPropertyInfo = "GestureSingle::touch-only" + type AttrLabel GestureSingleTouchOnlyPropertyInfo = "touch-only" attrGet _ = getGestureSingleTouchOnly attrSet _ = setGestureSingleTouchOnly attrConstruct _ = constructGestureSingleTouchOnly type instance AttributeList GestureSingle = GestureSingleAttributeList -type GestureSingleAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +type GestureSingleAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList GestureSingle = GestureSingleSignalList -type GestureSingleSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type GestureSingleSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) -- method GestureSingle::get_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -203,19 +276,22 @@ gestureSingleGetButton :: (MonadIO m, GestureSingleK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result gestureSingleGetButton _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_single_get_button _obj' touchManagedPtr _obj return result +data GestureSingleGetButtonMethodInfo +instance (signature ~ (m Word32), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetButtonMethodInfo a signature where + overloadedMethod _ = gestureSingleGetButton + -- method GestureSingle::get_current_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -227,19 +303,22 @@ gestureSingleGetCurrentButton :: (MonadIO m, GestureSingleK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result gestureSingleGetCurrentButton _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_single_get_current_button _obj' touchManagedPtr _obj return result +data GestureSingleGetCurrentButtonMethodInfo +instance (signature ~ (m Word32), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetCurrentButtonMethodInfo a signature where + overloadedMethod _ = gestureSingleGetCurrentButton + -- method GestureSingle::get_current_sequence -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "EventSequence" -- throws : False -- Skip return : False @@ -251,8 +330,8 @@ gestureSingleGetCurrentSequence :: (MonadIO m, GestureSingleK a) => - a -> -- _obj - m Gdk.EventSequence + a -- _obj + -> m Gdk.EventSequence -- result gestureSingleGetCurrentSequence _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_single_get_current_sequence _obj' @@ -261,11 +340,14 @@ touchManagedPtr _obj return result' +data GestureSingleGetCurrentSequenceMethodInfo +instance (signature ~ (m Gdk.EventSequence), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetCurrentSequenceMethodInfo a signature where + overloadedMethod _ = gestureSingleGetCurrentSequence + -- method GestureSingle::get_exclusive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -277,8 +359,8 @@ gestureSingleGetExclusive :: (MonadIO m, GestureSingleK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result gestureSingleGetExclusive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_single_get_exclusive _obj' @@ -286,11 +368,14 @@ touchManagedPtr _obj return result' +data GestureSingleGetExclusiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetExclusiveMethodInfo a signature where + overloadedMethod _ = gestureSingleGetExclusive + -- method GestureSingle::get_touch_only -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -302,8 +387,8 @@ gestureSingleGetTouchOnly :: (MonadIO m, GestureSingleK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result gestureSingleGetTouchOnly _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_single_get_touch_only _obj' @@ -311,11 +396,14 @@ touchManagedPtr _obj return result' +data GestureSingleGetTouchOnlyMethodInfo +instance (signature ~ (m Bool), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetTouchOnlyMethodInfo a signature where + overloadedMethod _ = gestureSingleGetTouchOnly + -- method GestureSingle::set_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -328,20 +416,23 @@ gestureSingleSetButton :: (MonadIO m, GestureSingleK a) => - a -> -- _obj - Word32 -> -- button - m () + a -- _obj + -> Word32 -- button + -> m () -- result gestureSingleSetButton _obj button = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_gesture_single_set_button _obj' button touchManagedPtr _obj return () +data GestureSingleSetButtonMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleSetButtonMethodInfo a signature where + overloadedMethod _ = gestureSingleSetButton + -- method GestureSingle::set_exclusive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -354,9 +445,9 @@ gestureSingleSetExclusive :: (MonadIO m, GestureSingleK a) => - a -> -- _obj - Bool -> -- exclusive - m () + a -- _obj + -> Bool -- exclusive + -> m () -- result gestureSingleSetExclusive _obj exclusive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let exclusive' = (fromIntegral . fromEnum) exclusive @@ -364,11 +455,14 @@ touchManagedPtr _obj return () +data GestureSingleSetExclusiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleSetExclusiveMethodInfo a signature where + overloadedMethod _ = gestureSingleSetExclusive + -- method GestureSingle::set_touch_only -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "touch_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "touch_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "touch_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -381,14 +475,18 @@ gestureSingleSetTouchOnly :: (MonadIO m, GestureSingleK a) => - a -> -- _obj - Bool -> -- touch_only - m () -gestureSingleSetTouchOnly _obj touch_only = liftIO $ do + a -- _obj + -> Bool -- touchOnly + -> m () -- result +gestureSingleSetTouchOnly _obj touchOnly = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let touch_only' = (fromIntegral . fromEnum) touch_only - gtk_gesture_single_set_touch_only _obj' touch_only' + let touchOnly' = (fromIntegral . fromEnum) touchOnly + gtk_gesture_single_set_touch_only _obj' touchOnly' touchManagedPtr _obj return () + +data GestureSingleSetTouchOnlyMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleSetTouchOnlyMethodInfo a signature where + overloadedMethod _ = gestureSingleSetTouchOnly diff --git a/GI/Gtk/Objects/GestureSingle.hs-boot b/GI/Gtk/Objects/GestureSingle.hs-boot --- a/GI/Gtk/Objects/GestureSingle.hs-boot +++ b/GI/Gtk/Objects/GestureSingle.hs-boot @@ -14,3 +14,11 @@ data GestureSingleButtonPropertyInfo data GestureSingleExclusivePropertyInfo data GestureSingleTouchOnlyPropertyInfo +data GestureSingleGetButtonMethodInfo +data GestureSingleGetCurrentButtonMethodInfo +data GestureSingleGetCurrentSequenceMethodInfo +data GestureSingleGetExclusiveMethodInfo +data GestureSingleGetTouchOnlyMethodInfo +data GestureSingleSetButtonMethodInfo +data GestureSingleSetExclusiveMethodInfo +data GestureSingleSetTouchOnlyMethodInfo diff --git a/GI/Gtk/Objects/GestureSwipe.hs b/GI/Gtk/Objects/GestureSwipe.hs --- a/GI/Gtk/Objects/GestureSwipe.hs +++ b/GI/Gtk/Objects/GestureSwipe.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** gestureSwipeGetVelocity + GestureSwipeGetVelocityMethodInfo , gestureSwipeGetVelocity , @@ -75,6 +77,72 @@ noGestureSwipe :: Maybe GestureSwipe noGestureSwipe = Nothing +type family ResolveGestureSwipeMethod (t :: Symbol) (o :: *) :: * where + ResolveGestureSwipeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveGestureSwipeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveGestureSwipeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveGestureSwipeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveGestureSwipeMethod "group" o = GestureGroupMethodInfo + ResolveGestureSwipeMethod "handleEvent" o = EventControllerHandleEventMethodInfo + ResolveGestureSwipeMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo + ResolveGestureSwipeMethod "isActive" o = GestureIsActiveMethodInfo + ResolveGestureSwipeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveGestureSwipeMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo + ResolveGestureSwipeMethod "isRecognized" o = GestureIsRecognizedMethodInfo + ResolveGestureSwipeMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveGestureSwipeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveGestureSwipeMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveGestureSwipeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveGestureSwipeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveGestureSwipeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveGestureSwipeMethod "reset" o = EventControllerResetMethodInfo + ResolveGestureSwipeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveGestureSwipeMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveGestureSwipeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveGestureSwipeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveGestureSwipeMethod "ungroup" o = GestureUngroupMethodInfo + ResolveGestureSwipeMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveGestureSwipeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveGestureSwipeMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo + ResolveGestureSwipeMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo + ResolveGestureSwipeMethod "getButton" o = GestureSingleGetButtonMethodInfo + ResolveGestureSwipeMethod "getCurrentButton" o = GestureSingleGetCurrentButtonMethodInfo + ResolveGestureSwipeMethod "getCurrentSequence" o = GestureSingleGetCurrentSequenceMethodInfo + ResolveGestureSwipeMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveGestureSwipeMethod "getDevice" o = GestureGetDeviceMethodInfo + ResolveGestureSwipeMethod "getExclusive" o = GestureSingleGetExclusiveMethodInfo + ResolveGestureSwipeMethod "getGroup" o = GestureGetGroupMethodInfo + ResolveGestureSwipeMethod "getLastEvent" o = GestureGetLastEventMethodInfo + ResolveGestureSwipeMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo + ResolveGestureSwipeMethod "getPoint" o = GestureGetPointMethodInfo + ResolveGestureSwipeMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo + ResolveGestureSwipeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveGestureSwipeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveGestureSwipeMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo + ResolveGestureSwipeMethod "getSequences" o = GestureGetSequencesMethodInfo + ResolveGestureSwipeMethod "getTouchOnly" o = GestureSingleGetTouchOnlyMethodInfo + ResolveGestureSwipeMethod "getVelocity" o = GestureSwipeGetVelocityMethodInfo + ResolveGestureSwipeMethod "getWidget" o = EventControllerGetWidgetMethodInfo + ResolveGestureSwipeMethod "getWindow" o = GestureGetWindowMethodInfo + ResolveGestureSwipeMethod "setButton" o = GestureSingleSetButtonMethodInfo + ResolveGestureSwipeMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveGestureSwipeMethod "setExclusive" o = GestureSingleSetExclusiveMethodInfo + ResolveGestureSwipeMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo + ResolveGestureSwipeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveGestureSwipeMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo + ResolveGestureSwipeMethod "setState" o = GestureSetStateMethodInfo + ResolveGestureSwipeMethod "setTouchOnly" o = GestureSingleSetTouchOnlyMethodInfo + ResolveGestureSwipeMethod "setWindow" o = GestureSetWindowMethodInfo + ResolveGestureSwipeMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveGestureSwipeMethod t GestureSwipe, MethodInfo info GestureSwipe p) => IsLabelProxy t (GestureSwipe -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveGestureSwipeMethod t GestureSwipe, MethodInfo info GestureSwipe p) => IsLabel t (GestureSwipe -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal GestureSwipe::swipe type GestureSwipeSwipeCallback = Double -> @@ -105,10 +173,10 @@ CDouble -> Ptr () -> IO () -gestureSwipeSwipeCallbackWrapper _cb _ velocity_x velocity_y _ = do - let velocity_x' = realToFrac velocity_x - let velocity_y' = realToFrac velocity_y - _cb velocity_x' velocity_y' +gestureSwipeSwipeCallbackWrapper _cb _ velocityX velocityY _ = do + let velocityX' = realToFrac velocityX + let velocityY' = realToFrac velocityY + _cb velocityX' velocityY' onGestureSwipeSwipe :: (GObject a, MonadIO m) => a -> GestureSwipeSwipeCallback -> m SignalHandlerId onGestureSwipeSwipe obj cb = liftIO $ connectGestureSwipeSwipe obj cb SignalConnectBefore @@ -122,7 +190,7 @@ connectSignalFunPtr obj "swipe" cb' after type instance AttributeList GestureSwipe = GestureSwipeAttributeList -type GestureSwipeAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +type GestureSwipeAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) data GestureSwipeSwipeSignalInfo instance SignalInfo GestureSwipeSwipeSignalInfo where @@ -130,13 +198,12 @@ connectSignal _ = connectGestureSwipeSwipe type instance SignalList GestureSwipe = GestureSwipeSignalList -type GestureSwipeSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("swipe", GestureSwipeSwipeSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type GestureSwipeSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("swipe", GestureSwipeSwipeSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) -- method GestureSwipe::new -- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "GestureSwipe" -- throws : False -- Skip return : False @@ -148,8 +215,8 @@ gestureSwipeNew :: (MonadIO m, WidgetK a) => - a -> -- widget - m GestureSwipe + a -- widget + -> m GestureSwipe -- result gestureSwipeNew widget = liftIO $ do let widget' = unsafeManagedPtrCastPtr widget result <- gtk_gesture_swipe_new widget' @@ -160,9 +227,8 @@ -- method GestureSwipe::get_velocity -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSwipe", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "velocity_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "velocity_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSwipe", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "velocity_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "velocity_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSwipe", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -176,21 +242,25 @@ gestureSwipeGetVelocity :: (MonadIO m, GestureSwipeK a) => - a -> -- _obj - m (Bool,Double,Double) + a -- _obj + -> m (Bool,Double,Double) -- result gestureSwipeGetVelocity _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - velocity_x <- allocMem :: IO (Ptr CDouble) - velocity_y <- allocMem :: IO (Ptr CDouble) - result <- gtk_gesture_swipe_get_velocity _obj' velocity_x velocity_y + velocityX <- allocMem :: IO (Ptr CDouble) + velocityY <- allocMem :: IO (Ptr CDouble) + result <- gtk_gesture_swipe_get_velocity _obj' velocityX velocityY let result' = (/= 0) result - velocity_x' <- peek velocity_x - let velocity_x'' = realToFrac velocity_x' - velocity_y' <- peek velocity_y - let velocity_y'' = realToFrac velocity_y' + velocityX' <- peek velocityX + let velocityX'' = realToFrac velocityX' + velocityY' <- peek velocityY + let velocityY'' = realToFrac velocityY' touchManagedPtr _obj - freeMem velocity_x - freeMem velocity_y - return (result', velocity_x'', velocity_y'') + freeMem velocityX + freeMem velocityY + return (result', velocityX'', velocityY'') + +data GestureSwipeGetVelocityMethodInfo +instance (signature ~ (m (Bool,Double,Double)), MonadIO m, GestureSwipeK a) => MethodInfo GestureSwipeGetVelocityMethodInfo a signature where + overloadedMethod _ = gestureSwipeGetVelocity diff --git a/GI/Gtk/Objects/GestureSwipe.hs-boot b/GI/Gtk/Objects/GestureSwipe.hs-boot --- a/GI/Gtk/Objects/GestureSwipe.hs-boot +++ b/GI/Gtk/Objects/GestureSwipe.hs-boot @@ -12,3 +12,4 @@ class GObject o => GestureSwipeK o instance (GObject o, IsDescendantOf GestureSwipe o) => GestureSwipeK o data GestureSwipeSwipeSignalInfo +data GestureSwipeGetVelocityMethodInfo diff --git a/GI/Gtk/Objects/GestureZoom.hs b/GI/Gtk/Objects/GestureZoom.hs --- a/GI/Gtk/Objects/GestureZoom.hs +++ b/GI/Gtk/Objects/GestureZoom.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** gestureZoomGetScaleDelta + GestureZoomGetScaleDeltaMethodInfo , gestureZoomGetScaleDelta , @@ -75,6 +77,64 @@ noGestureZoom :: Maybe GestureZoom noGestureZoom = Nothing +type family ResolveGestureZoomMethod (t :: Symbol) (o :: *) :: * where + ResolveGestureZoomMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveGestureZoomMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveGestureZoomMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveGestureZoomMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveGestureZoomMethod "group" o = GestureGroupMethodInfo + ResolveGestureZoomMethod "handleEvent" o = EventControllerHandleEventMethodInfo + ResolveGestureZoomMethod "handlesSequence" o = GestureHandlesSequenceMethodInfo + ResolveGestureZoomMethod "isActive" o = GestureIsActiveMethodInfo + ResolveGestureZoomMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveGestureZoomMethod "isGroupedWith" o = GestureIsGroupedWithMethodInfo + ResolveGestureZoomMethod "isRecognized" o = GestureIsRecognizedMethodInfo + ResolveGestureZoomMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveGestureZoomMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveGestureZoomMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveGestureZoomMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveGestureZoomMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveGestureZoomMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveGestureZoomMethod "reset" o = EventControllerResetMethodInfo + ResolveGestureZoomMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveGestureZoomMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveGestureZoomMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveGestureZoomMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveGestureZoomMethod "ungroup" o = GestureUngroupMethodInfo + ResolveGestureZoomMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveGestureZoomMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveGestureZoomMethod "getBoundingBox" o = GestureGetBoundingBoxMethodInfo + ResolveGestureZoomMethod "getBoundingBoxCenter" o = GestureGetBoundingBoxCenterMethodInfo + ResolveGestureZoomMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveGestureZoomMethod "getDevice" o = GestureGetDeviceMethodInfo + ResolveGestureZoomMethod "getGroup" o = GestureGetGroupMethodInfo + ResolveGestureZoomMethod "getLastEvent" o = GestureGetLastEventMethodInfo + ResolveGestureZoomMethod "getLastUpdatedSequence" o = GestureGetLastUpdatedSequenceMethodInfo + ResolveGestureZoomMethod "getPoint" o = GestureGetPointMethodInfo + ResolveGestureZoomMethod "getPropagationPhase" o = EventControllerGetPropagationPhaseMethodInfo + ResolveGestureZoomMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveGestureZoomMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveGestureZoomMethod "getScaleDelta" o = GestureZoomGetScaleDeltaMethodInfo + ResolveGestureZoomMethod "getSequenceState" o = GestureGetSequenceStateMethodInfo + ResolveGestureZoomMethod "getSequences" o = GestureGetSequencesMethodInfo + ResolveGestureZoomMethod "getWidget" o = EventControllerGetWidgetMethodInfo + ResolveGestureZoomMethod "getWindow" o = GestureGetWindowMethodInfo + ResolveGestureZoomMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveGestureZoomMethod "setPropagationPhase" o = EventControllerSetPropagationPhaseMethodInfo + ResolveGestureZoomMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveGestureZoomMethod "setSequenceState" o = GestureSetSequenceStateMethodInfo + ResolveGestureZoomMethod "setState" o = GestureSetStateMethodInfo + ResolveGestureZoomMethod "setWindow" o = GestureSetWindowMethodInfo + ResolveGestureZoomMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveGestureZoomMethod t GestureZoom, MethodInfo info GestureZoom p) => IsLabelProxy t (GestureZoom -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveGestureZoomMethod t GestureZoom, MethodInfo info GestureZoom p) => IsLabel t (GestureZoom -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal GestureZoom::scale-changed type GestureZoomScaleChangedCallback = Double -> @@ -118,7 +178,7 @@ connectSignalFunPtr obj "scale-changed" cb' after type instance AttributeList GestureZoom = GestureZoomAttributeList -type GestureZoomAttributeList = ('[ '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +type GestureZoomAttributeList = ('[ '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) data GestureZoomScaleChangedSignalInfo instance SignalInfo GestureZoomScaleChangedSignalInfo where @@ -126,13 +186,12 @@ connectSignal _ = connectGestureZoomScaleChanged type instance SignalList GestureZoom = GestureZoomSignalList -type GestureZoomSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("scale-changed", GestureZoomScaleChangedSignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type GestureZoomSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("scaleChanged", GestureZoomScaleChangedSignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) -- method GestureZoom::new -- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "GestureZoom" -- throws : False -- Skip return : False @@ -144,8 +203,8 @@ gestureZoomNew :: (MonadIO m, WidgetK a) => - a -> -- widget - m GestureZoom + a -- widget + -> m GestureZoom -- result gestureZoomNew widget = liftIO $ do let widget' = unsafeManagedPtrCastPtr widget result <- gtk_gesture_zoom_new widget' @@ -156,9 +215,8 @@ -- method GestureZoom::get_scale_delta -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureZoom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureZoom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureZoom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -170,13 +228,17 @@ gestureZoomGetScaleDelta :: (MonadIO m, GestureZoomK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result gestureZoomGetScaleDelta _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_zoom_get_scale_delta _obj' let result' = realToFrac result touchManagedPtr _obj return result' + +data GestureZoomGetScaleDeltaMethodInfo +instance (signature ~ (m Double), MonadIO m, GestureZoomK a) => MethodInfo GestureZoomGetScaleDeltaMethodInfo a signature where + overloadedMethod _ = gestureZoomGetScaleDelta diff --git a/GI/Gtk/Objects/GestureZoom.hs-boot b/GI/Gtk/Objects/GestureZoom.hs-boot --- a/GI/Gtk/Objects/GestureZoom.hs-boot +++ b/GI/Gtk/Objects/GestureZoom.hs-boot @@ -12,3 +12,4 @@ class GObject o => GestureZoomK o instance (GObject o, IsDescendantOf GestureZoom o) => GestureZoomK o data GestureZoomScaleChangedSignalInfo +data GestureZoomGetScaleDeltaMethodInfo diff --git a/GI/Gtk/Objects/Grid.hs b/GI/Gtk/Objects/Grid.hs --- a/GI/Gtk/Objects/Grid.hs +++ b/GI/Gtk/Objects/Grid.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,50 +18,62 @@ -- * Methods -- ** gridAttach + GridAttachMethodInfo , gridAttach , -- ** gridAttachNextTo + GridAttachNextToMethodInfo , gridAttachNextTo , -- ** gridGetBaselineRow + GridGetBaselineRowMethodInfo , gridGetBaselineRow , -- ** gridGetChildAt + GridGetChildAtMethodInfo , gridGetChildAt , -- ** gridGetColumnHomogeneous + GridGetColumnHomogeneousMethodInfo , gridGetColumnHomogeneous , -- ** gridGetColumnSpacing + GridGetColumnSpacingMethodInfo , gridGetColumnSpacing , -- ** gridGetRowBaselinePosition + GridGetRowBaselinePositionMethodInfo , gridGetRowBaselinePosition , -- ** gridGetRowHomogeneous + GridGetRowHomogeneousMethodInfo , gridGetRowHomogeneous , -- ** gridGetRowSpacing + GridGetRowSpacingMethodInfo , gridGetRowSpacing , -- ** gridInsertColumn + GridInsertColumnMethodInfo , gridInsertColumn , -- ** gridInsertNextTo + GridInsertNextToMethodInfo , gridInsertNextTo , -- ** gridInsertRow + GridInsertRowMethodInfo , gridInsertRow , @@ -69,34 +82,42 @@ -- ** gridRemoveColumn + GridRemoveColumnMethodInfo , gridRemoveColumn , -- ** gridRemoveRow + GridRemoveRowMethodInfo , gridRemoveRow , -- ** gridSetBaselineRow + GridSetBaselineRowMethodInfo , gridSetBaselineRow , -- ** gridSetColumnHomogeneous + GridSetColumnHomogeneousMethodInfo , gridSetColumnHomogeneous , -- ** gridSetColumnSpacing + GridSetColumnSpacingMethodInfo , gridSetColumnSpacing , -- ** gridSetRowBaselinePosition + GridSetRowBaselinePositionMethodInfo , gridSetRowBaselinePosition , -- ** gridSetRowHomogeneous + GridSetRowHomogeneousMethodInfo , gridSetRowHomogeneous , -- ** gridSetRowSpacing + GridSetRowSpacingMethodInfo , gridSetRowSpacing , @@ -175,6 +196,350 @@ noGrid :: Maybe Grid noGrid = Nothing +type family ResolveGridMethod (t :: Symbol) (o :: *) :: * where + ResolveGridMethod "activate" o = WidgetActivateMethodInfo + ResolveGridMethod "add" o = ContainerAddMethodInfo + ResolveGridMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveGridMethod "addChild" o = BuildableAddChildMethodInfo + ResolveGridMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveGridMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveGridMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveGridMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveGridMethod "attach" o = GridAttachMethodInfo + ResolveGridMethod "attachNextTo" o = GridAttachNextToMethodInfo + ResolveGridMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveGridMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveGridMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveGridMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveGridMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveGridMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveGridMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveGridMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveGridMethod "childType" o = ContainerChildTypeMethodInfo + ResolveGridMethod "classPath" o = WidgetClassPathMethodInfo + ResolveGridMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveGridMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveGridMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveGridMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveGridMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveGridMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveGridMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveGridMethod "destroy" o = WidgetDestroyMethodInfo + ResolveGridMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveGridMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveGridMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveGridMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveGridMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveGridMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveGridMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveGridMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveGridMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveGridMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveGridMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveGridMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveGridMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveGridMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveGridMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveGridMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveGridMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveGridMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveGridMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveGridMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveGridMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveGridMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveGridMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveGridMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveGridMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveGridMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveGridMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveGridMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveGridMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveGridMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveGridMethod "draw" o = WidgetDrawMethodInfo + ResolveGridMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveGridMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveGridMethod "event" o = WidgetEventMethodInfo + ResolveGridMethod "forall" o = ContainerForallMethodInfo + ResolveGridMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveGridMethod "foreach" o = ContainerForeachMethodInfo + ResolveGridMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveGridMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveGridMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveGridMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveGridMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveGridMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveGridMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveGridMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveGridMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveGridMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveGridMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveGridMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveGridMethod "hide" o = WidgetHideMethodInfo + ResolveGridMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveGridMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveGridMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveGridMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveGridMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveGridMethod "insertColumn" o = GridInsertColumnMethodInfo + ResolveGridMethod "insertNextTo" o = GridInsertNextToMethodInfo + ResolveGridMethod "insertRow" o = GridInsertRowMethodInfo + ResolveGridMethod "intersect" o = WidgetIntersectMethodInfo + ResolveGridMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveGridMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveGridMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveGridMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveGridMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveGridMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveGridMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveGridMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveGridMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveGridMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveGridMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveGridMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveGridMethod "map" o = WidgetMapMethodInfo + ResolveGridMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveGridMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveGridMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveGridMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveGridMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveGridMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveGridMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveGridMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveGridMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveGridMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveGridMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveGridMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveGridMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveGridMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveGridMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveGridMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveGridMethod "path" o = WidgetPathMethodInfo + ResolveGridMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveGridMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveGridMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveGridMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveGridMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveGridMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveGridMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveGridMethod "realize" o = WidgetRealizeMethodInfo + ResolveGridMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveGridMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveGridMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveGridMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveGridMethod "remove" o = ContainerRemoveMethodInfo + ResolveGridMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveGridMethod "removeColumn" o = GridRemoveColumnMethodInfo + ResolveGridMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveGridMethod "removeRow" o = GridRemoveRowMethodInfo + ResolveGridMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveGridMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveGridMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveGridMethod "reparent" o = WidgetReparentMethodInfo + ResolveGridMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveGridMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveGridMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveGridMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveGridMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveGridMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveGridMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveGridMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveGridMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveGridMethod "show" o = WidgetShowMethodInfo + ResolveGridMethod "showAll" o = WidgetShowAllMethodInfo + ResolveGridMethod "showNow" o = WidgetShowNowMethodInfo + ResolveGridMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveGridMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveGridMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveGridMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveGridMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveGridMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveGridMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveGridMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveGridMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveGridMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveGridMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveGridMethod "unmap" o = WidgetUnmapMethodInfo + ResolveGridMethod "unparent" o = WidgetUnparentMethodInfo + ResolveGridMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveGridMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveGridMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveGridMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveGridMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveGridMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveGridMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveGridMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveGridMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveGridMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveGridMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveGridMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveGridMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveGridMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveGridMethod "getBaselineRow" o = GridGetBaselineRowMethodInfo + ResolveGridMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveGridMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveGridMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveGridMethod "getChildAt" o = GridGetChildAtMethodInfo + ResolveGridMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveGridMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveGridMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveGridMethod "getClip" o = WidgetGetClipMethodInfo + ResolveGridMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveGridMethod "getColumnHomogeneous" o = GridGetColumnHomogeneousMethodInfo + ResolveGridMethod "getColumnSpacing" o = GridGetColumnSpacingMethodInfo + ResolveGridMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveGridMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveGridMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveGridMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveGridMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveGridMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveGridMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveGridMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveGridMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveGridMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveGridMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveGridMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveGridMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveGridMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveGridMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveGridMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveGridMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveGridMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveGridMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveGridMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveGridMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveGridMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveGridMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveGridMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveGridMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveGridMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveGridMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveGridMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveGridMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveGridMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveGridMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveGridMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveGridMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveGridMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveGridMethod "getParent" o = WidgetGetParentMethodInfo + ResolveGridMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveGridMethod "getPath" o = WidgetGetPathMethodInfo + ResolveGridMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveGridMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveGridMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveGridMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveGridMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveGridMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveGridMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveGridMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveGridMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveGridMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveGridMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveGridMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveGridMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveGridMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveGridMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveGridMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveGridMethod "getRowBaselinePosition" o = GridGetRowBaselinePositionMethodInfo + ResolveGridMethod "getRowHomogeneous" o = GridGetRowHomogeneousMethodInfo + ResolveGridMethod "getRowSpacing" o = GridGetRowSpacingMethodInfo + ResolveGridMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveGridMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveGridMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveGridMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveGridMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveGridMethod "getState" o = WidgetGetStateMethodInfo + ResolveGridMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveGridMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveGridMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveGridMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveGridMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveGridMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveGridMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveGridMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveGridMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveGridMethod "getValign" o = WidgetGetValignMethodInfo + ResolveGridMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveGridMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveGridMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveGridMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveGridMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveGridMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveGridMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveGridMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveGridMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveGridMethod "setBaselineRow" o = GridSetBaselineRowMethodInfo + ResolveGridMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveGridMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveGridMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveGridMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveGridMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveGridMethod "setClip" o = WidgetSetClipMethodInfo + ResolveGridMethod "setColumnHomogeneous" o = GridSetColumnHomogeneousMethodInfo + ResolveGridMethod "setColumnSpacing" o = GridSetColumnSpacingMethodInfo + ResolveGridMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveGridMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveGridMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveGridMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveGridMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveGridMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveGridMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveGridMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveGridMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveGridMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveGridMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveGridMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveGridMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveGridMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveGridMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveGridMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveGridMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveGridMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveGridMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveGridMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveGridMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveGridMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveGridMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveGridMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveGridMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveGridMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveGridMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveGridMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveGridMethod "setParent" o = WidgetSetParentMethodInfo + ResolveGridMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveGridMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveGridMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveGridMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveGridMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveGridMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveGridMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveGridMethod "setRowBaselinePosition" o = GridSetRowBaselinePositionMethodInfo + ResolveGridMethod "setRowHomogeneous" o = GridSetRowHomogeneousMethodInfo + ResolveGridMethod "setRowSpacing" o = GridSetRowSpacingMethodInfo + ResolveGridMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveGridMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveGridMethod "setState" o = WidgetSetStateMethodInfo + ResolveGridMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveGridMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveGridMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveGridMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveGridMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveGridMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveGridMethod "setValign" o = WidgetSetValignMethodInfo + ResolveGridMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveGridMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveGridMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveGridMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveGridMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveGridMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveGridMethod t Grid, MethodInfo info Grid p) => IsLabelProxy t (Grid -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveGridMethod t Grid, MethodInfo info Grid p) => IsLabel t (Grid -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "baseline-row" -- Type: TBasicType TInt32 -- Flags: [PropertyReadable,PropertyWritable] @@ -194,7 +559,7 @@ type AttrSetTypeConstraint GridBaselineRowPropertyInfo = (~) Int32 type AttrBaseTypeConstraint GridBaselineRowPropertyInfo = GridK type AttrGetType GridBaselineRowPropertyInfo = Int32 - type AttrLabel GridBaselineRowPropertyInfo = "Grid::baseline-row" + type AttrLabel GridBaselineRowPropertyInfo = "baseline-row" attrGet _ = getGridBaselineRow attrSet _ = setGridBaselineRow attrConstruct _ = constructGridBaselineRow @@ -218,7 +583,7 @@ type AttrSetTypeConstraint GridColumnHomogeneousPropertyInfo = (~) Bool type AttrBaseTypeConstraint GridColumnHomogeneousPropertyInfo = GridK type AttrGetType GridColumnHomogeneousPropertyInfo = Bool - type AttrLabel GridColumnHomogeneousPropertyInfo = "Grid::column-homogeneous" + type AttrLabel GridColumnHomogeneousPropertyInfo = "column-homogeneous" attrGet _ = getGridColumnHomogeneous attrSet _ = setGridColumnHomogeneous attrConstruct _ = constructGridColumnHomogeneous @@ -242,7 +607,7 @@ type AttrSetTypeConstraint GridColumnSpacingPropertyInfo = (~) Int32 type AttrBaseTypeConstraint GridColumnSpacingPropertyInfo = GridK type AttrGetType GridColumnSpacingPropertyInfo = Int32 - type AttrLabel GridColumnSpacingPropertyInfo = "Grid::column-spacing" + type AttrLabel GridColumnSpacingPropertyInfo = "column-spacing" attrGet _ = getGridColumnSpacing attrSet _ = setGridColumnSpacing attrConstruct _ = constructGridColumnSpacing @@ -266,7 +631,7 @@ type AttrSetTypeConstraint GridRowHomogeneousPropertyInfo = (~) Bool type AttrBaseTypeConstraint GridRowHomogeneousPropertyInfo = GridK type AttrGetType GridRowHomogeneousPropertyInfo = Bool - type AttrLabel GridRowHomogeneousPropertyInfo = "Grid::row-homogeneous" + type AttrLabel GridRowHomogeneousPropertyInfo = "row-homogeneous" attrGet _ = getGridRowHomogeneous attrSet _ = setGridRowHomogeneous attrConstruct _ = constructGridRowHomogeneous @@ -290,22 +655,21 @@ type AttrSetTypeConstraint GridRowSpacingPropertyInfo = (~) Int32 type AttrBaseTypeConstraint GridRowSpacingPropertyInfo = GridK type AttrGetType GridRowSpacingPropertyInfo = Int32 - type AttrLabel GridRowSpacingPropertyInfo = "Grid::row-spacing" + type AttrLabel GridRowSpacingPropertyInfo = "row-spacing" attrGet _ = getGridRowSpacing attrSet _ = setGridRowSpacing attrConstruct _ = constructGridRowSpacing type instance AttributeList Grid = GridAttributeList -type GridAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-row", GridBaselineRowPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-homogeneous", GridColumnHomogeneousPropertyInfo), '("column-spacing", GridColumnSpacingPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-homogeneous", GridRowHomogeneousPropertyInfo), '("row-spacing", GridRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type GridAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselineRow", GridBaselineRowPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnHomogeneous", GridColumnHomogeneousPropertyInfo), '("columnSpacing", GridColumnSpacingPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowHomogeneous", GridRowHomogeneousPropertyInfo), '("rowSpacing", GridRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Grid = GridSignalList -type GridSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type GridSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Grid::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Grid" -- throws : False -- Skip return : False @@ -316,7 +680,7 @@ gridNew :: (MonadIO m) => - m Grid + m Grid -- result gridNew = liftIO $ do result <- gtk_grid_new checkUnexpectedReturnNULL "gtk_grid_new" result @@ -325,9 +689,8 @@ -- method Grid::attach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -344,13 +707,13 @@ gridAttach :: (MonadIO m, GridK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- left - Int32 -> -- top - Int32 -> -- width - Int32 -> -- height - m () + a -- _obj + -> b -- child + -> Int32 -- left + -> Int32 -- top + -> Int32 -- width + -> Int32 -- height + -> m () -- result gridAttach _obj child left top width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -359,11 +722,14 @@ touchManagedPtr child return () +data GridAttachMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, GridK a, WidgetK b) => MethodInfo GridAttachMethodInfo a signature where + overloadedMethod _ = gridAttach + -- method Grid::attach_next_to -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -380,13 +746,13 @@ gridAttachNextTo :: (MonadIO m, GridK a, WidgetK b, WidgetK c) => - a -> -- _obj - b -> -- child - Maybe (c) -> -- sibling - PositionType -> -- side - Int32 -> -- width - Int32 -> -- height - m () + a -- _obj + -> b -- child + -> Maybe (c) -- sibling + -> PositionType -- side + -> Int32 -- width + -> Int32 -- height + -> m () -- result gridAttachNextTo _obj child sibling side width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -402,11 +768,14 @@ whenJust sibling touchManagedPtr return () +data GridAttachNextToMethodInfo +instance (signature ~ (b -> Maybe (c) -> PositionType -> Int32 -> Int32 -> m ()), MonadIO m, GridK a, WidgetK b, WidgetK c) => MethodInfo GridAttachNextToMethodInfo a signature where + overloadedMethod _ = gridAttachNextTo + -- method Grid::get_baseline_row -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -418,19 +787,22 @@ gridGetBaselineRow :: (MonadIO m, GridK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result gridGetBaselineRow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_grid_get_baseline_row _obj' touchManagedPtr _obj return result +data GridGetBaselineRowMethodInfo +instance (signature ~ (m Int32), MonadIO m, GridK a) => MethodInfo GridGetBaselineRowMethodInfo a signature where + overloadedMethod _ = gridGetBaselineRow + -- method Grid::get_child_at -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -444,10 +816,10 @@ gridGetChildAt :: (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- left - Int32 -> -- top - m Widget + a -- _obj + -> Int32 -- left + -> Int32 -- top + -> m Widget -- result gridGetChildAt _obj left top = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_grid_get_child_at _obj' left top @@ -456,11 +828,14 @@ touchManagedPtr _obj return result' +data GridGetChildAtMethodInfo +instance (signature ~ (Int32 -> Int32 -> m Widget), MonadIO m, GridK a) => MethodInfo GridGetChildAtMethodInfo a signature where + overloadedMethod _ = gridGetChildAt + -- method Grid::get_column_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -472,8 +847,8 @@ gridGetColumnHomogeneous :: (MonadIO m, GridK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result gridGetColumnHomogeneous _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_grid_get_column_homogeneous _obj' @@ -481,11 +856,14 @@ touchManagedPtr _obj return result' +data GridGetColumnHomogeneousMethodInfo +instance (signature ~ (m Bool), MonadIO m, GridK a) => MethodInfo GridGetColumnHomogeneousMethodInfo a signature where + overloadedMethod _ = gridGetColumnHomogeneous + -- method Grid::get_column_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -497,19 +875,22 @@ gridGetColumnSpacing :: (MonadIO m, GridK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result gridGetColumnSpacing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_grid_get_column_spacing _obj' touchManagedPtr _obj return result +data GridGetColumnSpacingMethodInfo +instance (signature ~ (m Word32), MonadIO m, GridK a) => MethodInfo GridGetColumnSpacingMethodInfo a signature where + overloadedMethod _ = gridGetColumnSpacing + -- method Grid::get_row_baseline_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "BaselinePosition" -- throws : False -- Skip return : False @@ -522,9 +903,9 @@ gridGetRowBaselinePosition :: (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- row - m BaselinePosition + a -- _obj + -> Int32 -- row + -> m BaselinePosition -- result gridGetRowBaselinePosition _obj row = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_grid_get_row_baseline_position _obj' row @@ -532,11 +913,14 @@ touchManagedPtr _obj return result' +data GridGetRowBaselinePositionMethodInfo +instance (signature ~ (Int32 -> m BaselinePosition), MonadIO m, GridK a) => MethodInfo GridGetRowBaselinePositionMethodInfo a signature where + overloadedMethod _ = gridGetRowBaselinePosition + -- method Grid::get_row_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -548,8 +932,8 @@ gridGetRowHomogeneous :: (MonadIO m, GridK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result gridGetRowHomogeneous _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_grid_get_row_homogeneous _obj' @@ -557,11 +941,14 @@ touchManagedPtr _obj return result' +data GridGetRowHomogeneousMethodInfo +instance (signature ~ (m Bool), MonadIO m, GridK a) => MethodInfo GridGetRowHomogeneousMethodInfo a signature where + overloadedMethod _ = gridGetRowHomogeneous + -- method Grid::get_row_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -573,19 +960,22 @@ gridGetRowSpacing :: (MonadIO m, GridK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result gridGetRowSpacing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_grid_get_row_spacing _obj' touchManagedPtr _obj return result +data GridGetRowSpacingMethodInfo +instance (signature ~ (m Word32), MonadIO m, GridK a) => MethodInfo GridGetRowSpacingMethodInfo a signature where + overloadedMethod _ = gridGetRowSpacing + -- method Grid::insert_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -598,20 +988,23 @@ gridInsertColumn :: (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- position - m () + a -- _obj + -> Int32 -- position + -> m () -- result gridInsertColumn _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_grid_insert_column _obj' position touchManagedPtr _obj return () +data GridInsertColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, GridK a) => MethodInfo GridInsertColumnMethodInfo a signature where + overloadedMethod _ = gridInsertColumn + -- method Grid::insert_next_to -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -625,10 +1018,10 @@ gridInsertNextTo :: (MonadIO m, GridK a, WidgetK b) => - a -> -- _obj - b -> -- sibling - PositionType -> -- side - m () + a -- _obj + -> b -- sibling + -> PositionType -- side + -> m () -- result gridInsertNextTo _obj sibling side = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sibling' = unsafeManagedPtrCastPtr sibling @@ -638,11 +1031,14 @@ touchManagedPtr sibling return () +data GridInsertNextToMethodInfo +instance (signature ~ (b -> PositionType -> m ()), MonadIO m, GridK a, WidgetK b) => MethodInfo GridInsertNextToMethodInfo a signature where + overloadedMethod _ = gridInsertNextTo + -- method Grid::insert_row -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -655,20 +1051,23 @@ gridInsertRow :: (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- position - m () + a -- _obj + -> Int32 -- position + -> m () -- result gridInsertRow _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_grid_insert_row _obj' position touchManagedPtr _obj return () +data GridInsertRowMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, GridK a) => MethodInfo GridInsertRowMethodInfo a signature where + overloadedMethod _ = gridInsertRow + -- method Grid::remove_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -681,20 +1080,23 @@ gridRemoveColumn :: (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- position - m () + a -- _obj + -> Int32 -- position + -> m () -- result gridRemoveColumn _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_grid_remove_column _obj' position touchManagedPtr _obj return () +data GridRemoveColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, GridK a) => MethodInfo GridRemoveColumnMethodInfo a signature where + overloadedMethod _ = gridRemoveColumn + -- method Grid::remove_row -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -707,20 +1109,23 @@ gridRemoveRow :: (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- position - m () + a -- _obj + -> Int32 -- position + -> m () -- result gridRemoveRow _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_grid_remove_row _obj' position touchManagedPtr _obj return () +data GridRemoveRowMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, GridK a) => MethodInfo GridRemoveRowMethodInfo a signature where + overloadedMethod _ = gridRemoveRow + -- method Grid::set_baseline_row -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -733,20 +1138,23 @@ gridSetBaselineRow :: (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- row - m () + a -- _obj + -> Int32 -- row + -> m () -- result gridSetBaselineRow _obj row = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_grid_set_baseline_row _obj' row touchManagedPtr _obj return () +data GridSetBaselineRowMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, GridK a) => MethodInfo GridSetBaselineRowMethodInfo a signature where + overloadedMethod _ = gridSetBaselineRow + -- method Grid::set_column_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -759,9 +1167,9 @@ gridSetColumnHomogeneous :: (MonadIO m, GridK a) => - a -> -- _obj - Bool -> -- homogeneous - m () + a -- _obj + -> Bool -- homogeneous + -> m () -- result gridSetColumnHomogeneous _obj homogeneous = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let homogeneous' = (fromIntegral . fromEnum) homogeneous @@ -769,11 +1177,14 @@ touchManagedPtr _obj return () +data GridSetColumnHomogeneousMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, GridK a) => MethodInfo GridSetColumnHomogeneousMethodInfo a signature where + overloadedMethod _ = gridSetColumnHomogeneous + -- method Grid::set_column_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -786,20 +1197,23 @@ gridSetColumnSpacing :: (MonadIO m, GridK a) => - a -> -- _obj - Word32 -> -- spacing - m () + a -- _obj + -> Word32 -- spacing + -> m () -- result gridSetColumnSpacing _obj spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_grid_set_column_spacing _obj' spacing touchManagedPtr _obj return () +data GridSetColumnSpacingMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, GridK a) => MethodInfo GridSetColumnSpacingMethodInfo a signature where + overloadedMethod _ = gridSetColumnSpacing + -- method Grid::set_row_baseline_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -813,10 +1227,10 @@ gridSetRowBaselinePosition :: (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- row - BaselinePosition -> -- pos - m () + a -- _obj + -> Int32 -- row + -> BaselinePosition -- pos + -> m () -- result gridSetRowBaselinePosition _obj row pos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let pos' = (fromIntegral . fromEnum) pos @@ -824,11 +1238,14 @@ touchManagedPtr _obj return () +data GridSetRowBaselinePositionMethodInfo +instance (signature ~ (Int32 -> BaselinePosition -> m ()), MonadIO m, GridK a) => MethodInfo GridSetRowBaselinePositionMethodInfo a signature where + overloadedMethod _ = gridSetRowBaselinePosition + -- method Grid::set_row_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -841,9 +1258,9 @@ gridSetRowHomogeneous :: (MonadIO m, GridK a) => - a -> -- _obj - Bool -> -- homogeneous - m () + a -- _obj + -> Bool -- homogeneous + -> m () -- result gridSetRowHomogeneous _obj homogeneous = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let homogeneous' = (fromIntegral . fromEnum) homogeneous @@ -851,11 +1268,14 @@ touchManagedPtr _obj return () +data GridSetRowHomogeneousMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, GridK a) => MethodInfo GridSetRowHomogeneousMethodInfo a signature where + overloadedMethod _ = gridSetRowHomogeneous + -- method Grid::set_row_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -868,13 +1288,17 @@ gridSetRowSpacing :: (MonadIO m, GridK a) => - a -> -- _obj - Word32 -> -- spacing - m () + a -- _obj + -> Word32 -- spacing + -> m () -- result gridSetRowSpacing _obj spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_grid_set_row_spacing _obj' spacing touchManagedPtr _obj return () + +data GridSetRowSpacingMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, GridK a) => MethodInfo GridSetRowSpacingMethodInfo a signature where + overloadedMethod _ = gridSetRowSpacing diff --git a/GI/Gtk/Objects/Grid.hs-boot b/GI/Gtk/Objects/Grid.hs-boot --- a/GI/Gtk/Objects/Grid.hs-boot +++ b/GI/Gtk/Objects/Grid.hs-boot @@ -16,3 +16,23 @@ data GridColumnSpacingPropertyInfo data GridRowHomogeneousPropertyInfo data GridRowSpacingPropertyInfo +data GridAttachMethodInfo +data GridAttachNextToMethodInfo +data GridGetBaselineRowMethodInfo +data GridGetChildAtMethodInfo +data GridGetColumnHomogeneousMethodInfo +data GridGetColumnSpacingMethodInfo +data GridGetRowBaselinePositionMethodInfo +data GridGetRowHomogeneousMethodInfo +data GridGetRowSpacingMethodInfo +data GridInsertColumnMethodInfo +data GridInsertNextToMethodInfo +data GridInsertRowMethodInfo +data GridRemoveColumnMethodInfo +data GridRemoveRowMethodInfo +data GridSetBaselineRowMethodInfo +data GridSetColumnHomogeneousMethodInfo +data GridSetColumnSpacingMethodInfo +data GridSetRowBaselinePositionMethodInfo +data GridSetRowHomogeneousMethodInfo +data GridSetRowSpacingMethodInfo diff --git a/GI/Gtk/Objects/HBox.hs b/GI/Gtk/Objects/HBox.hs --- a/GI/Gtk/Objects/HBox.hs +++ b/GI/Gtk/Objects/HBox.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,353 @@ noHBox :: Maybe HBox noHBox = Nothing +type family ResolveHBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveHBoxMethod "activate" o = WidgetActivateMethodInfo + ResolveHBoxMethod "add" o = ContainerAddMethodInfo + ResolveHBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveHBoxMethod "addChild" o = BuildableAddChildMethodInfo + ResolveHBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveHBoxMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveHBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveHBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveHBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveHBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveHBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveHBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveHBoxMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveHBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveHBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveHBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveHBoxMethod "childType" o = ContainerChildTypeMethodInfo + ResolveHBoxMethod "classPath" o = WidgetClassPathMethodInfo + ResolveHBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveHBoxMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveHBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveHBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveHBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveHBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveHBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveHBoxMethod "destroy" o = WidgetDestroyMethodInfo + ResolveHBoxMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveHBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveHBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveHBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveHBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveHBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveHBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveHBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveHBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveHBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveHBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveHBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveHBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveHBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveHBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveHBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveHBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveHBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveHBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveHBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveHBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveHBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveHBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveHBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveHBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveHBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveHBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveHBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveHBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveHBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveHBoxMethod "draw" o = WidgetDrawMethodInfo + ResolveHBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveHBoxMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveHBoxMethod "event" o = WidgetEventMethodInfo + ResolveHBoxMethod "forall" o = ContainerForallMethodInfo + ResolveHBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveHBoxMethod "foreach" o = ContainerForeachMethodInfo + ResolveHBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveHBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveHBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveHBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveHBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveHBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveHBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveHBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveHBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveHBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveHBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveHBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveHBoxMethod "hide" o = WidgetHideMethodInfo + ResolveHBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveHBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveHBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveHBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveHBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveHBoxMethod "intersect" o = WidgetIntersectMethodInfo + ResolveHBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveHBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveHBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveHBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveHBoxMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveHBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveHBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveHBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveHBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveHBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveHBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveHBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveHBoxMethod "map" o = WidgetMapMethodInfo + ResolveHBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveHBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveHBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveHBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveHBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveHBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveHBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveHBoxMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveHBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveHBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveHBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveHBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveHBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveHBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveHBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveHBoxMethod "packEnd" o = BoxPackEndMethodInfo + ResolveHBoxMethod "packStart" o = BoxPackStartMethodInfo + ResolveHBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveHBoxMethod "path" o = WidgetPathMethodInfo + ResolveHBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveHBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveHBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveHBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveHBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveHBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveHBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveHBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveHBoxMethod "realize" o = WidgetRealizeMethodInfo + ResolveHBoxMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveHBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveHBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveHBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveHBoxMethod "remove" o = ContainerRemoveMethodInfo + ResolveHBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveHBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveHBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveHBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveHBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveHBoxMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveHBoxMethod "reparent" o = WidgetReparentMethodInfo + ResolveHBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveHBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveHBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveHBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveHBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveHBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveHBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveHBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveHBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveHBoxMethod "show" o = WidgetShowMethodInfo + ResolveHBoxMethod "showAll" o = WidgetShowAllMethodInfo + ResolveHBoxMethod "showNow" o = WidgetShowNowMethodInfo + ResolveHBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveHBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveHBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveHBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveHBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveHBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveHBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveHBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveHBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveHBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveHBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveHBoxMethod "unmap" o = WidgetUnmapMethodInfo + ResolveHBoxMethod "unparent" o = WidgetUnparentMethodInfo + ResolveHBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveHBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveHBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveHBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveHBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveHBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveHBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveHBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveHBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveHBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveHBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveHBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveHBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveHBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveHBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveHBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveHBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveHBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveHBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveHBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveHBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveHBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveHBoxMethod "getClip" o = WidgetGetClipMethodInfo + ResolveHBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveHBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveHBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveHBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveHBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveHBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveHBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveHBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveHBoxMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveHBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveHBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveHBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveHBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveHBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveHBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveHBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveHBoxMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveHBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveHBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveHBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveHBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveHBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveHBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveHBoxMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveHBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveHBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveHBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveHBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveHBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveHBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveHBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveHBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveHBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveHBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveHBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveHBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveHBoxMethod "getParent" o = WidgetGetParentMethodInfo + ResolveHBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveHBoxMethod "getPath" o = WidgetGetPathMethodInfo + ResolveHBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveHBoxMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveHBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveHBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveHBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveHBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveHBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveHBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveHBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveHBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveHBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveHBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveHBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveHBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveHBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveHBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveHBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveHBoxMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveHBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveHBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveHBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveHBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveHBoxMethod "getState" o = WidgetGetStateMethodInfo + ResolveHBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveHBoxMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveHBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveHBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveHBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveHBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveHBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveHBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveHBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveHBoxMethod "getValign" o = WidgetGetValignMethodInfo + ResolveHBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveHBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveHBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveHBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveHBoxMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveHBoxMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveHBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveHBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveHBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveHBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveHBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveHBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveHBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveHBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveHBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveHBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveHBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveHBoxMethod "setClip" o = WidgetSetClipMethodInfo + ResolveHBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveHBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveHBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveHBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveHBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveHBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveHBoxMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveHBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveHBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveHBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveHBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveHBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveHBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveHBoxMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveHBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveHBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveHBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveHBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveHBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveHBoxMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveHBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveHBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveHBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveHBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveHBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveHBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveHBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveHBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveHBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveHBoxMethod "setParent" o = WidgetSetParentMethodInfo + ResolveHBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveHBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveHBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveHBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveHBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveHBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveHBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveHBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveHBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveHBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveHBoxMethod "setState" o = WidgetSetStateMethodInfo + ResolveHBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveHBoxMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveHBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveHBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveHBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveHBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveHBoxMethod "setValign" o = WidgetSetValignMethodInfo + ResolveHBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveHBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveHBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveHBoxMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveHBoxMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveHBoxMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveHBoxMethod t HBox, MethodInfo info HBox p) => IsLabelProxy t (HBox -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveHBoxMethod t HBox, MethodInfo info HBox p) => IsLabel t (HBox -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList HBox = HBoxAttributeList -type HBoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type HBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList HBox = HBoxSignalList -type HBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type HBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method HBox::new -- method type : Constructor --- Args : [Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "HBox" -- throws : False -- Skip return : False @@ -80,9 +417,9 @@ {-# DEPRECATED hBoxNew ["(Since version 3.2)","You can use gtk_box_new() with %GTK_ORIENTATION_HORIZONTAL instead,"," which is a quick and easy change. But the recommendation is to switch to"," #GtkGrid, since #GtkBox is going to go away eventually."," See [Migrating from other containers to GtkGrid][gtk-migrating-GtkGrid]."]#-} hBoxNew :: (MonadIO m) => - Bool -> -- homogeneous - Int32 -> -- spacing - m HBox + Bool -- homogeneous + -> Int32 -- spacing + -> m HBox -- result hBoxNew homogeneous spacing = liftIO $ do let homogeneous' = (fromIntegral . fromEnum) homogeneous result <- gtk_hbox_new homogeneous' spacing diff --git a/GI/Gtk/Objects/HButtonBox.hs b/GI/Gtk/Objects/HButtonBox.hs --- a/GI/Gtk/Objects/HButtonBox.hs +++ b/GI/Gtk/Objects/HButtonBox.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,359 @@ noHButtonBox :: Maybe HButtonBox noHButtonBox = Nothing +type family ResolveHButtonBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveHButtonBoxMethod "activate" o = WidgetActivateMethodInfo + ResolveHButtonBoxMethod "add" o = ContainerAddMethodInfo + ResolveHButtonBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveHButtonBoxMethod "addChild" o = BuildableAddChildMethodInfo + ResolveHButtonBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveHButtonBoxMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveHButtonBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveHButtonBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveHButtonBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveHButtonBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveHButtonBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveHButtonBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveHButtonBoxMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveHButtonBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveHButtonBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveHButtonBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveHButtonBoxMethod "childType" o = ContainerChildTypeMethodInfo + ResolveHButtonBoxMethod "classPath" o = WidgetClassPathMethodInfo + ResolveHButtonBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveHButtonBoxMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveHButtonBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveHButtonBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveHButtonBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveHButtonBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveHButtonBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveHButtonBoxMethod "destroy" o = WidgetDestroyMethodInfo + ResolveHButtonBoxMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveHButtonBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveHButtonBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveHButtonBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveHButtonBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveHButtonBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveHButtonBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveHButtonBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveHButtonBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveHButtonBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveHButtonBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveHButtonBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveHButtonBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveHButtonBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveHButtonBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveHButtonBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveHButtonBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveHButtonBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveHButtonBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveHButtonBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveHButtonBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveHButtonBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveHButtonBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveHButtonBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveHButtonBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveHButtonBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveHButtonBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveHButtonBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveHButtonBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveHButtonBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveHButtonBoxMethod "draw" o = WidgetDrawMethodInfo + ResolveHButtonBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveHButtonBoxMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveHButtonBoxMethod "event" o = WidgetEventMethodInfo + ResolveHButtonBoxMethod "forall" o = ContainerForallMethodInfo + ResolveHButtonBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveHButtonBoxMethod "foreach" o = ContainerForeachMethodInfo + ResolveHButtonBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveHButtonBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveHButtonBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveHButtonBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveHButtonBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveHButtonBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveHButtonBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveHButtonBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveHButtonBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveHButtonBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveHButtonBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveHButtonBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveHButtonBoxMethod "hide" o = WidgetHideMethodInfo + ResolveHButtonBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveHButtonBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveHButtonBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveHButtonBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveHButtonBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveHButtonBoxMethod "intersect" o = WidgetIntersectMethodInfo + ResolveHButtonBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveHButtonBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveHButtonBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveHButtonBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveHButtonBoxMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveHButtonBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveHButtonBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveHButtonBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveHButtonBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveHButtonBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveHButtonBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveHButtonBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveHButtonBoxMethod "map" o = WidgetMapMethodInfo + ResolveHButtonBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveHButtonBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveHButtonBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveHButtonBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveHButtonBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveHButtonBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveHButtonBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveHButtonBoxMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveHButtonBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveHButtonBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveHButtonBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveHButtonBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveHButtonBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveHButtonBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveHButtonBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveHButtonBoxMethod "packEnd" o = BoxPackEndMethodInfo + ResolveHButtonBoxMethod "packStart" o = BoxPackStartMethodInfo + ResolveHButtonBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveHButtonBoxMethod "path" o = WidgetPathMethodInfo + ResolveHButtonBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveHButtonBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveHButtonBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveHButtonBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveHButtonBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveHButtonBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveHButtonBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveHButtonBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveHButtonBoxMethod "realize" o = WidgetRealizeMethodInfo + ResolveHButtonBoxMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveHButtonBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveHButtonBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveHButtonBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveHButtonBoxMethod "remove" o = ContainerRemoveMethodInfo + ResolveHButtonBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveHButtonBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveHButtonBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveHButtonBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveHButtonBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveHButtonBoxMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveHButtonBoxMethod "reparent" o = WidgetReparentMethodInfo + ResolveHButtonBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveHButtonBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveHButtonBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveHButtonBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveHButtonBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveHButtonBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveHButtonBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveHButtonBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveHButtonBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveHButtonBoxMethod "show" o = WidgetShowMethodInfo + ResolveHButtonBoxMethod "showAll" o = WidgetShowAllMethodInfo + ResolveHButtonBoxMethod "showNow" o = WidgetShowNowMethodInfo + ResolveHButtonBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveHButtonBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveHButtonBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveHButtonBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveHButtonBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveHButtonBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveHButtonBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveHButtonBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveHButtonBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveHButtonBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveHButtonBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveHButtonBoxMethod "unmap" o = WidgetUnmapMethodInfo + ResolveHButtonBoxMethod "unparent" o = WidgetUnparentMethodInfo + ResolveHButtonBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveHButtonBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveHButtonBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveHButtonBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveHButtonBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveHButtonBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveHButtonBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveHButtonBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveHButtonBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveHButtonBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveHButtonBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveHButtonBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveHButtonBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveHButtonBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveHButtonBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveHButtonBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveHButtonBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveHButtonBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveHButtonBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveHButtonBoxMethod "getChildNonHomogeneous" o = ButtonBoxGetChildNonHomogeneousMethodInfo + ResolveHButtonBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveHButtonBoxMethod "getChildSecondary" o = ButtonBoxGetChildSecondaryMethodInfo + ResolveHButtonBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveHButtonBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveHButtonBoxMethod "getClip" o = WidgetGetClipMethodInfo + ResolveHButtonBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveHButtonBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveHButtonBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveHButtonBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveHButtonBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveHButtonBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveHButtonBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveHButtonBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveHButtonBoxMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveHButtonBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveHButtonBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveHButtonBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveHButtonBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveHButtonBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveHButtonBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveHButtonBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveHButtonBoxMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveHButtonBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveHButtonBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveHButtonBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveHButtonBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveHButtonBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveHButtonBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveHButtonBoxMethod "getLayout" o = ButtonBoxGetLayoutMethodInfo + ResolveHButtonBoxMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveHButtonBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveHButtonBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveHButtonBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveHButtonBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveHButtonBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveHButtonBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveHButtonBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveHButtonBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveHButtonBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveHButtonBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveHButtonBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveHButtonBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveHButtonBoxMethod "getParent" o = WidgetGetParentMethodInfo + ResolveHButtonBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveHButtonBoxMethod "getPath" o = WidgetGetPathMethodInfo + ResolveHButtonBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveHButtonBoxMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveHButtonBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveHButtonBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveHButtonBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveHButtonBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveHButtonBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveHButtonBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveHButtonBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveHButtonBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveHButtonBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveHButtonBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveHButtonBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveHButtonBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveHButtonBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveHButtonBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveHButtonBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveHButtonBoxMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveHButtonBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveHButtonBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveHButtonBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveHButtonBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveHButtonBoxMethod "getState" o = WidgetGetStateMethodInfo + ResolveHButtonBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveHButtonBoxMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveHButtonBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveHButtonBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveHButtonBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveHButtonBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveHButtonBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveHButtonBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveHButtonBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveHButtonBoxMethod "getValign" o = WidgetGetValignMethodInfo + ResolveHButtonBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveHButtonBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveHButtonBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveHButtonBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveHButtonBoxMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveHButtonBoxMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveHButtonBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveHButtonBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveHButtonBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveHButtonBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveHButtonBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveHButtonBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveHButtonBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveHButtonBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveHButtonBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveHButtonBoxMethod "setChildNonHomogeneous" o = ButtonBoxSetChildNonHomogeneousMethodInfo + ResolveHButtonBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveHButtonBoxMethod "setChildSecondary" o = ButtonBoxSetChildSecondaryMethodInfo + ResolveHButtonBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveHButtonBoxMethod "setClip" o = WidgetSetClipMethodInfo + ResolveHButtonBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveHButtonBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveHButtonBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveHButtonBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveHButtonBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveHButtonBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveHButtonBoxMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveHButtonBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveHButtonBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveHButtonBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveHButtonBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveHButtonBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveHButtonBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveHButtonBoxMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveHButtonBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveHButtonBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveHButtonBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveHButtonBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveHButtonBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveHButtonBoxMethod "setLayout" o = ButtonBoxSetLayoutMethodInfo + ResolveHButtonBoxMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveHButtonBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveHButtonBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveHButtonBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveHButtonBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveHButtonBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveHButtonBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveHButtonBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveHButtonBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveHButtonBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveHButtonBoxMethod "setParent" o = WidgetSetParentMethodInfo + ResolveHButtonBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveHButtonBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveHButtonBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveHButtonBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveHButtonBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveHButtonBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveHButtonBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveHButtonBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveHButtonBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveHButtonBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveHButtonBoxMethod "setState" o = WidgetSetStateMethodInfo + ResolveHButtonBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveHButtonBoxMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveHButtonBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveHButtonBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveHButtonBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveHButtonBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveHButtonBoxMethod "setValign" o = WidgetSetValignMethodInfo + ResolveHButtonBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveHButtonBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveHButtonBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveHButtonBoxMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveHButtonBoxMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveHButtonBoxMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveHButtonBoxMethod t HButtonBox, MethodInfo info HButtonBox p) => IsLabelProxy t (HButtonBox -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveHButtonBoxMethod t HButtonBox, MethodInfo info HButtonBox p) => IsLabel t (HButtonBox -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList HButtonBox = HButtonBoxAttributeList -type HButtonBoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("layout-style", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type HButtonBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("layoutStyle", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList HButtonBox = HButtonBoxSignalList -type HButtonBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type HButtonBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method HButtonBox::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "HButtonBox" -- throws : False -- Skip return : False @@ -78,7 +421,7 @@ {-# DEPRECATED hButtonBoxNew ["(Since version 3.2)","Use gtk_button_box_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-} hButtonBoxNew :: (MonadIO m) => - m HButtonBox + m HButtonBox -- result hButtonBoxNew = liftIO $ do result <- gtk_hbutton_box_new checkUnexpectedReturnNULL "gtk_hbutton_box_new" result diff --git a/GI/Gtk/Objects/HPaned.hs b/GI/Gtk/Objects/HPaned.hs --- a/GI/Gtk/Objects/HPaned.hs +++ b/GI/Gtk/Objects/HPaned.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,351 @@ noHPaned :: Maybe HPaned noHPaned = Nothing +type family ResolveHPanedMethod (t :: Symbol) (o :: *) :: * where + ResolveHPanedMethod "activate" o = WidgetActivateMethodInfo + ResolveHPanedMethod "add" o = ContainerAddMethodInfo + ResolveHPanedMethod "add1" o = PanedAdd1MethodInfo + ResolveHPanedMethod "add2" o = PanedAdd2MethodInfo + ResolveHPanedMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveHPanedMethod "addChild" o = BuildableAddChildMethodInfo + ResolveHPanedMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveHPanedMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveHPanedMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveHPanedMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveHPanedMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveHPanedMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveHPanedMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveHPanedMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveHPanedMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveHPanedMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveHPanedMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveHPanedMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveHPanedMethod "childType" o = ContainerChildTypeMethodInfo + ResolveHPanedMethod "classPath" o = WidgetClassPathMethodInfo + ResolveHPanedMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveHPanedMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveHPanedMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveHPanedMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveHPanedMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveHPanedMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveHPanedMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveHPanedMethod "destroy" o = WidgetDestroyMethodInfo + ResolveHPanedMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveHPanedMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveHPanedMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveHPanedMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveHPanedMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveHPanedMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveHPanedMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveHPanedMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveHPanedMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveHPanedMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveHPanedMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveHPanedMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveHPanedMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveHPanedMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveHPanedMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveHPanedMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveHPanedMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveHPanedMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveHPanedMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveHPanedMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveHPanedMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveHPanedMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveHPanedMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveHPanedMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveHPanedMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveHPanedMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveHPanedMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveHPanedMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveHPanedMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveHPanedMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveHPanedMethod "draw" o = WidgetDrawMethodInfo + ResolveHPanedMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveHPanedMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveHPanedMethod "event" o = WidgetEventMethodInfo + ResolveHPanedMethod "forall" o = ContainerForallMethodInfo + ResolveHPanedMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveHPanedMethod "foreach" o = ContainerForeachMethodInfo + ResolveHPanedMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveHPanedMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveHPanedMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveHPanedMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveHPanedMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveHPanedMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveHPanedMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveHPanedMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveHPanedMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveHPanedMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveHPanedMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveHPanedMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveHPanedMethod "hide" o = WidgetHideMethodInfo + ResolveHPanedMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveHPanedMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveHPanedMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveHPanedMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveHPanedMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveHPanedMethod "intersect" o = WidgetIntersectMethodInfo + ResolveHPanedMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveHPanedMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveHPanedMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveHPanedMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveHPanedMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveHPanedMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveHPanedMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveHPanedMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveHPanedMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveHPanedMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveHPanedMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveHPanedMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveHPanedMethod "map" o = WidgetMapMethodInfo + ResolveHPanedMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveHPanedMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveHPanedMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveHPanedMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveHPanedMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveHPanedMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveHPanedMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveHPanedMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveHPanedMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveHPanedMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveHPanedMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveHPanedMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveHPanedMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveHPanedMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveHPanedMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveHPanedMethod "pack1" o = PanedPack1MethodInfo + ResolveHPanedMethod "pack2" o = PanedPack2MethodInfo + ResolveHPanedMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveHPanedMethod "path" o = WidgetPathMethodInfo + ResolveHPanedMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveHPanedMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveHPanedMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveHPanedMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveHPanedMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveHPanedMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveHPanedMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveHPanedMethod "realize" o = WidgetRealizeMethodInfo + ResolveHPanedMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveHPanedMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveHPanedMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveHPanedMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveHPanedMethod "remove" o = ContainerRemoveMethodInfo + ResolveHPanedMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveHPanedMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveHPanedMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveHPanedMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveHPanedMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveHPanedMethod "reparent" o = WidgetReparentMethodInfo + ResolveHPanedMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveHPanedMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveHPanedMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveHPanedMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveHPanedMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveHPanedMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveHPanedMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveHPanedMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveHPanedMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveHPanedMethod "show" o = WidgetShowMethodInfo + ResolveHPanedMethod "showAll" o = WidgetShowAllMethodInfo + ResolveHPanedMethod "showNow" o = WidgetShowNowMethodInfo + ResolveHPanedMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveHPanedMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveHPanedMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveHPanedMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveHPanedMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveHPanedMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveHPanedMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveHPanedMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveHPanedMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveHPanedMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveHPanedMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveHPanedMethod "unmap" o = WidgetUnmapMethodInfo + ResolveHPanedMethod "unparent" o = WidgetUnparentMethodInfo + ResolveHPanedMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveHPanedMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveHPanedMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveHPanedMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveHPanedMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveHPanedMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveHPanedMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveHPanedMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveHPanedMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveHPanedMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveHPanedMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveHPanedMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveHPanedMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveHPanedMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveHPanedMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveHPanedMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveHPanedMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveHPanedMethod "getChild1" o = PanedGetChild1MethodInfo + ResolveHPanedMethod "getChild2" o = PanedGetChild2MethodInfo + ResolveHPanedMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveHPanedMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveHPanedMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveHPanedMethod "getClip" o = WidgetGetClipMethodInfo + ResolveHPanedMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveHPanedMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveHPanedMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveHPanedMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveHPanedMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveHPanedMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveHPanedMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveHPanedMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveHPanedMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveHPanedMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveHPanedMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveHPanedMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveHPanedMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveHPanedMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveHPanedMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveHPanedMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveHPanedMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveHPanedMethod "getHandleWindow" o = PanedGetHandleWindowMethodInfo + ResolveHPanedMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveHPanedMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveHPanedMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveHPanedMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveHPanedMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveHPanedMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveHPanedMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveHPanedMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveHPanedMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveHPanedMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveHPanedMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveHPanedMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveHPanedMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveHPanedMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveHPanedMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveHPanedMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveHPanedMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveHPanedMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveHPanedMethod "getParent" o = WidgetGetParentMethodInfo + ResolveHPanedMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveHPanedMethod "getPath" o = WidgetGetPathMethodInfo + ResolveHPanedMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveHPanedMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveHPanedMethod "getPosition" o = PanedGetPositionMethodInfo + ResolveHPanedMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveHPanedMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveHPanedMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveHPanedMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveHPanedMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveHPanedMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveHPanedMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveHPanedMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveHPanedMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveHPanedMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveHPanedMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveHPanedMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveHPanedMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveHPanedMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveHPanedMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveHPanedMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveHPanedMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveHPanedMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveHPanedMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveHPanedMethod "getState" o = WidgetGetStateMethodInfo + ResolveHPanedMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveHPanedMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveHPanedMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveHPanedMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveHPanedMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveHPanedMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveHPanedMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveHPanedMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveHPanedMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveHPanedMethod "getValign" o = WidgetGetValignMethodInfo + ResolveHPanedMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveHPanedMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveHPanedMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveHPanedMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveHPanedMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveHPanedMethod "getWideHandle" o = PanedGetWideHandleMethodInfo + ResolveHPanedMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveHPanedMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveHPanedMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveHPanedMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveHPanedMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveHPanedMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveHPanedMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveHPanedMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveHPanedMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveHPanedMethod "setClip" o = WidgetSetClipMethodInfo + ResolveHPanedMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveHPanedMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveHPanedMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveHPanedMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveHPanedMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveHPanedMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveHPanedMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveHPanedMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveHPanedMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveHPanedMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveHPanedMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveHPanedMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveHPanedMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveHPanedMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveHPanedMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveHPanedMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveHPanedMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveHPanedMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveHPanedMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveHPanedMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveHPanedMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveHPanedMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveHPanedMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveHPanedMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveHPanedMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveHPanedMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveHPanedMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveHPanedMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveHPanedMethod "setParent" o = WidgetSetParentMethodInfo + ResolveHPanedMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveHPanedMethod "setPosition" o = PanedSetPositionMethodInfo + ResolveHPanedMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveHPanedMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveHPanedMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveHPanedMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveHPanedMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveHPanedMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveHPanedMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveHPanedMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveHPanedMethod "setState" o = WidgetSetStateMethodInfo + ResolveHPanedMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveHPanedMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveHPanedMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveHPanedMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveHPanedMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveHPanedMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveHPanedMethod "setValign" o = WidgetSetValignMethodInfo + ResolveHPanedMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveHPanedMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveHPanedMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveHPanedMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveHPanedMethod "setWideHandle" o = PanedSetWideHandleMethodInfo + ResolveHPanedMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveHPanedMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveHPanedMethod t HPaned, MethodInfo info HPaned p) => IsLabelProxy t (HPaned -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveHPanedMethod t HPaned, MethodInfo info HPaned p) => IsLabel t (HPaned -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList HPaned = HPanedAttributeList -type HPanedAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-position", PanedMaxPositionPropertyInfo), '("min-position", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("position-set", PanedPositionSetPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wide-handle", PanedWideHandlePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type HPanedAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxPosition", PanedMaxPositionPropertyInfo), '("minPosition", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("positionSet", PanedPositionSetPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wideHandle", PanedWideHandlePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList HPaned = HPanedSignalList -type HPanedSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("accept-position", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel-position", PanedCancelPositionSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-child-focus", PanedCycleChildFocusSignalInfo), '("cycle-handle-focus", PanedCycleHandleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-handle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-handle-focus", PanedToggleHandleFocusSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type HPanedSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("acceptPosition", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancelPosition", PanedCancelPositionSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleChildFocus", PanedCycleChildFocusSignalInfo), '("cycleHandleFocus", PanedCycleHandleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveHandle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleHandleFocus", PanedToggleHandleFocusSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method HPaned::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "HPaned" -- throws : False -- Skip return : False @@ -78,7 +413,7 @@ {-# DEPRECATED hPanedNew ["(Since version 3.2)","Use gtk_paned_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-} hPanedNew :: (MonadIO m) => - m HPaned + m HPaned -- result hPanedNew = liftIO $ do result <- gtk_hpaned_new checkUnexpectedReturnNULL "gtk_hpaned_new" result diff --git a/GI/Gtk/Objects/HSV.hs b/GI/Gtk/Objects/HSV.hs --- a/GI/Gtk/Objects/HSV.hs +++ b/GI/Gtk/Objects/HSV.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** hSVGetColor + HSVGetColorMethodInfo , hSVGetColor , -- ** hSVGetMetrics + HSVGetMetricsMethodInfo , hSVGetMetrics , -- ** hSVIsAdjusting + HSVIsAdjustingMethodInfo , hSVIsAdjusting , @@ -33,10 +37,12 @@ -- ** hSVSetColor + HSVSetColorMethodInfo , hSVSetColor , -- ** hSVSetMetrics + HSVSetMetricsMethodInfo , hSVSetMetrics , @@ -108,6 +114,307 @@ noHSV :: Maybe HSV noHSV = Nothing +type family ResolveHSVMethod (t :: Symbol) (o :: *) :: * where + ResolveHSVMethod "activate" o = WidgetActivateMethodInfo + ResolveHSVMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveHSVMethod "addChild" o = BuildableAddChildMethodInfo + ResolveHSVMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveHSVMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveHSVMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveHSVMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveHSVMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveHSVMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveHSVMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveHSVMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveHSVMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveHSVMethod "classPath" o = WidgetClassPathMethodInfo + ResolveHSVMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveHSVMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveHSVMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveHSVMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveHSVMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveHSVMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveHSVMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveHSVMethod "destroy" o = WidgetDestroyMethodInfo + ResolveHSVMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveHSVMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveHSVMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveHSVMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveHSVMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveHSVMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveHSVMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveHSVMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveHSVMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveHSVMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveHSVMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveHSVMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveHSVMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveHSVMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveHSVMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveHSVMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveHSVMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveHSVMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveHSVMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveHSVMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveHSVMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveHSVMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveHSVMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveHSVMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveHSVMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveHSVMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveHSVMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveHSVMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveHSVMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveHSVMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveHSVMethod "draw" o = WidgetDrawMethodInfo + ResolveHSVMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveHSVMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveHSVMethod "event" o = WidgetEventMethodInfo + ResolveHSVMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveHSVMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveHSVMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveHSVMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveHSVMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveHSVMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveHSVMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveHSVMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveHSVMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveHSVMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveHSVMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveHSVMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveHSVMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveHSVMethod "hide" o = WidgetHideMethodInfo + ResolveHSVMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveHSVMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveHSVMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveHSVMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveHSVMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveHSVMethod "intersect" o = WidgetIntersectMethodInfo + ResolveHSVMethod "isAdjusting" o = HSVIsAdjustingMethodInfo + ResolveHSVMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveHSVMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveHSVMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveHSVMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveHSVMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveHSVMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveHSVMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveHSVMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveHSVMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveHSVMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveHSVMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveHSVMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveHSVMethod "map" o = WidgetMapMethodInfo + ResolveHSVMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveHSVMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveHSVMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveHSVMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveHSVMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveHSVMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveHSVMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveHSVMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveHSVMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveHSVMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveHSVMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveHSVMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveHSVMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveHSVMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveHSVMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveHSVMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveHSVMethod "path" o = WidgetPathMethodInfo + ResolveHSVMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveHSVMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveHSVMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveHSVMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveHSVMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveHSVMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveHSVMethod "realize" o = WidgetRealizeMethodInfo + ResolveHSVMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveHSVMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveHSVMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveHSVMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveHSVMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveHSVMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveHSVMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveHSVMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveHSVMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveHSVMethod "reparent" o = WidgetReparentMethodInfo + ResolveHSVMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveHSVMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveHSVMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveHSVMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveHSVMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveHSVMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveHSVMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveHSVMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveHSVMethod "show" o = WidgetShowMethodInfo + ResolveHSVMethod "showAll" o = WidgetShowAllMethodInfo + ResolveHSVMethod "showNow" o = WidgetShowNowMethodInfo + ResolveHSVMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveHSVMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveHSVMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveHSVMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveHSVMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveHSVMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveHSVMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveHSVMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveHSVMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveHSVMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveHSVMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveHSVMethod "unmap" o = WidgetUnmapMethodInfo + ResolveHSVMethod "unparent" o = WidgetUnparentMethodInfo + ResolveHSVMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveHSVMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveHSVMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveHSVMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveHSVMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveHSVMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveHSVMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveHSVMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveHSVMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveHSVMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveHSVMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveHSVMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveHSVMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveHSVMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveHSVMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveHSVMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveHSVMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveHSVMethod "getClip" o = WidgetGetClipMethodInfo + ResolveHSVMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveHSVMethod "getColor" o = HSVGetColorMethodInfo + ResolveHSVMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveHSVMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveHSVMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveHSVMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveHSVMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveHSVMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveHSVMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveHSVMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveHSVMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveHSVMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveHSVMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveHSVMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveHSVMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveHSVMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveHSVMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveHSVMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveHSVMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveHSVMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveHSVMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveHSVMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveHSVMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveHSVMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveHSVMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveHSVMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveHSVMethod "getMetrics" o = HSVGetMetricsMethodInfo + ResolveHSVMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveHSVMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveHSVMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveHSVMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveHSVMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveHSVMethod "getParent" o = WidgetGetParentMethodInfo + ResolveHSVMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveHSVMethod "getPath" o = WidgetGetPathMethodInfo + ResolveHSVMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveHSVMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveHSVMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveHSVMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveHSVMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveHSVMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveHSVMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveHSVMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveHSVMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveHSVMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveHSVMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveHSVMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveHSVMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveHSVMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveHSVMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveHSVMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveHSVMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveHSVMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveHSVMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveHSVMethod "getState" o = WidgetGetStateMethodInfo + ResolveHSVMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveHSVMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveHSVMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveHSVMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveHSVMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveHSVMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveHSVMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveHSVMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveHSVMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveHSVMethod "getValign" o = WidgetGetValignMethodInfo + ResolveHSVMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveHSVMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveHSVMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveHSVMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveHSVMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveHSVMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveHSVMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveHSVMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveHSVMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveHSVMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveHSVMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveHSVMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveHSVMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveHSVMethod "setClip" o = WidgetSetClipMethodInfo + ResolveHSVMethod "setColor" o = HSVSetColorMethodInfo + ResolveHSVMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveHSVMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveHSVMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveHSVMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveHSVMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveHSVMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveHSVMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveHSVMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveHSVMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveHSVMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveHSVMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveHSVMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveHSVMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveHSVMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveHSVMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveHSVMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveHSVMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveHSVMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveHSVMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveHSVMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveHSVMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveHSVMethod "setMetrics" o = HSVSetMetricsMethodInfo + ResolveHSVMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveHSVMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveHSVMethod "setParent" o = WidgetSetParentMethodInfo + ResolveHSVMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveHSVMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveHSVMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveHSVMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveHSVMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveHSVMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveHSVMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveHSVMethod "setState" o = WidgetSetStateMethodInfo + ResolveHSVMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveHSVMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveHSVMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveHSVMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveHSVMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveHSVMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveHSVMethod "setValign" o = WidgetSetValignMethodInfo + ResolveHSVMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveHSVMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveHSVMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveHSVMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveHSVMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveHSVMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveHSVMethod t HSV, MethodInfo info HSV p) => IsLabelProxy t (HSV -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveHSVMethod t HSV, MethodInfo info HSV p) => IsLabel t (HSV -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal HSV::changed type HSVChangedCallback = IO () @@ -189,7 +496,7 @@ connectSignalFunPtr obj "move" cb' after type instance AttributeList HSV = HSVAttributeList -type HSVAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type HSVAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data HSVChangedSignalInfo instance SignalInfo HSVChangedSignalInfo where @@ -202,13 +509,12 @@ connectSignal _ = connectHSVMove type instance SignalList HSV = HSVSignalList -type HSVSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", HSVChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move", HSVMoveSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type HSVSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", HSVChangedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("move", HSVMoveSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method HSV::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "HSV" -- throws : False -- Skip return : False @@ -219,7 +525,7 @@ hSVNew :: (MonadIO m) => - m HSV + m HSV -- result hSVNew = liftIO $ do result <- gtk_hsv_new checkUnexpectedReturnNULL "gtk_hsv_new" result @@ -228,9 +534,8 @@ -- method HSV::get_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -245,8 +550,8 @@ hSVGetColor :: (MonadIO m, HSVK a) => - a -> -- _obj - m (Double,Double,Double) + a -- _obj + -> m (Double,Double,Double) -- result hSVGetColor _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj h <- allocMem :: IO (Ptr CDouble) @@ -265,11 +570,14 @@ freeMem v return (h'', s'', v'') +data HSVGetColorMethodInfo +instance (signature ~ (m (Double,Double,Double)), MonadIO m, HSVK a) => MethodInfo HSVGetColorMethodInfo a signature where + overloadedMethod _ = hSVGetColor + -- method HSV::get_metrics -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ring_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ring_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -283,25 +591,28 @@ hSVGetMetrics :: (MonadIO m, HSVK a) => - a -> -- _obj - m (Int32,Int32) + a -- _obj + -> m (Int32,Int32) -- result hSVGetMetrics _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj size <- allocMem :: IO (Ptr Int32) - ring_width <- allocMem :: IO (Ptr Int32) - gtk_hsv_get_metrics _obj' size ring_width + ringWidth <- allocMem :: IO (Ptr Int32) + gtk_hsv_get_metrics _obj' size ringWidth size' <- peek size - ring_width' <- peek ring_width + ringWidth' <- peek ringWidth touchManagedPtr _obj freeMem size - freeMem ring_width - return (size', ring_width') + freeMem ringWidth + return (size', ringWidth') +data HSVGetMetricsMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, HSVK a) => MethodInfo HSVGetMetricsMethodInfo a signature where + overloadedMethod _ = hSVGetMetrics + -- method HSV::is_adjusting -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -313,8 +624,8 @@ hSVIsAdjusting :: (MonadIO m, HSVK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result hSVIsAdjusting _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_hsv_is_adjusting _obj' @@ -322,11 +633,14 @@ touchManagedPtr _obj return result' +data HSVIsAdjustingMethodInfo +instance (signature ~ (m Bool), MonadIO m, HSVK a) => MethodInfo HSVIsAdjustingMethodInfo a signature where + overloadedMethod _ = hSVIsAdjusting + -- method HSV::set_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -341,11 +655,11 @@ hSVSetColor :: (MonadIO m, HSVK a) => - a -> -- _obj - Double -> -- h - Double -> -- s - Double -> -- v - m () + a -- _obj + -> Double -- h + -> Double -- s + -> Double -- v + -> m () -- result hSVSetColor _obj h s v = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let h' = realToFrac h @@ -355,11 +669,14 @@ touchManagedPtr _obj return () +data HSVSetColorMethodInfo +instance (signature ~ (Double -> Double -> Double -> m ()), MonadIO m, HSVK a) => MethodInfo HSVSetColorMethodInfo a signature where + overloadedMethod _ = hSVSetColor + -- method HSV::set_metrics -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ring_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ring_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ring_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -373,21 +690,24 @@ hSVSetMetrics :: (MonadIO m, HSVK a) => - a -> -- _obj - Int32 -> -- size - Int32 -> -- ring_width - m () -hSVSetMetrics _obj size ring_width = liftIO $ do + a -- _obj + -> Int32 -- size + -> Int32 -- ringWidth + -> m () -- result +hSVSetMetrics _obj size ringWidth = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_hsv_set_metrics _obj' size ring_width + gtk_hsv_set_metrics _obj' size ringWidth touchManagedPtr _obj return () +data HSVSetMetricsMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, HSVK a) => MethodInfo HSVSetMetricsMethodInfo a signature where + overloadedMethod _ = hSVSetMetrics + -- method HSV::to_rgb -- method type : MemberFunction --- Args : [Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "r", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "g", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "b", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "r", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "g", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "b", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -404,10 +724,10 @@ hSVToRgb :: (MonadIO m) => - Double -> -- h - Double -> -- s - Double -> -- v - m (Double,Double,Double) + Double -- h + -> Double -- s + -> Double -- v + -> m (Double,Double,Double) -- result hSVToRgb h s v = liftIO $ do let h' = realToFrac h let s' = realToFrac s diff --git a/GI/Gtk/Objects/HSV.hs-boot b/GI/Gtk/Objects/HSV.hs-boot --- a/GI/Gtk/Objects/HSV.hs-boot +++ b/GI/Gtk/Objects/HSV.hs-boot @@ -13,3 +13,8 @@ instance (GObject o, IsDescendantOf HSV o) => HSVK o data HSVChangedSignalInfo data HSVMoveSignalInfo +data HSVGetColorMethodInfo +data HSVGetMetricsMethodInfo +data HSVIsAdjustingMethodInfo +data HSVSetColorMethodInfo +data HSVSetMetricsMethodInfo diff --git a/GI/Gtk/Objects/HScale.hs b/GI/Gtk/Objects/HScale.hs --- a/GI/Gtk/Objects/HScale.hs +++ b/GI/Gtk/Objects/HScale.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -61,17 +62,354 @@ noHScale :: Maybe HScale noHScale = Nothing +type family ResolveHScaleMethod (t :: Symbol) (o :: *) :: * where + ResolveHScaleMethod "activate" o = WidgetActivateMethodInfo + ResolveHScaleMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveHScaleMethod "addChild" o = BuildableAddChildMethodInfo + ResolveHScaleMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveHScaleMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveHScaleMethod "addMark" o = ScaleAddMarkMethodInfo + ResolveHScaleMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveHScaleMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveHScaleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveHScaleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveHScaleMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveHScaleMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveHScaleMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveHScaleMethod "classPath" o = WidgetClassPathMethodInfo + ResolveHScaleMethod "clearMarks" o = ScaleClearMarksMethodInfo + ResolveHScaleMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveHScaleMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveHScaleMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveHScaleMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveHScaleMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveHScaleMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveHScaleMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveHScaleMethod "destroy" o = WidgetDestroyMethodInfo + ResolveHScaleMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveHScaleMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveHScaleMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveHScaleMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveHScaleMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveHScaleMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveHScaleMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveHScaleMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveHScaleMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveHScaleMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveHScaleMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveHScaleMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveHScaleMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveHScaleMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveHScaleMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveHScaleMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveHScaleMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveHScaleMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveHScaleMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveHScaleMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveHScaleMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveHScaleMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveHScaleMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveHScaleMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveHScaleMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveHScaleMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveHScaleMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveHScaleMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveHScaleMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveHScaleMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveHScaleMethod "draw" o = WidgetDrawMethodInfo + ResolveHScaleMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveHScaleMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveHScaleMethod "event" o = WidgetEventMethodInfo + ResolveHScaleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveHScaleMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveHScaleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveHScaleMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveHScaleMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveHScaleMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveHScaleMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveHScaleMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveHScaleMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveHScaleMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveHScaleMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveHScaleMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveHScaleMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveHScaleMethod "hide" o = WidgetHideMethodInfo + ResolveHScaleMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveHScaleMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveHScaleMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveHScaleMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveHScaleMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveHScaleMethod "intersect" o = WidgetIntersectMethodInfo + ResolveHScaleMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveHScaleMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveHScaleMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveHScaleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveHScaleMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveHScaleMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveHScaleMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveHScaleMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveHScaleMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveHScaleMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveHScaleMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveHScaleMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveHScaleMethod "map" o = WidgetMapMethodInfo + ResolveHScaleMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveHScaleMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveHScaleMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveHScaleMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveHScaleMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveHScaleMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveHScaleMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveHScaleMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveHScaleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveHScaleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveHScaleMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveHScaleMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveHScaleMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveHScaleMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveHScaleMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveHScaleMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveHScaleMethod "path" o = WidgetPathMethodInfo + ResolveHScaleMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveHScaleMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveHScaleMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveHScaleMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveHScaleMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveHScaleMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveHScaleMethod "realize" o = WidgetRealizeMethodInfo + ResolveHScaleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveHScaleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveHScaleMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveHScaleMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveHScaleMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveHScaleMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveHScaleMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveHScaleMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveHScaleMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveHScaleMethod "reparent" o = WidgetReparentMethodInfo + ResolveHScaleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveHScaleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveHScaleMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveHScaleMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveHScaleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveHScaleMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveHScaleMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveHScaleMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveHScaleMethod "show" o = WidgetShowMethodInfo + ResolveHScaleMethod "showAll" o = WidgetShowAllMethodInfo + ResolveHScaleMethod "showNow" o = WidgetShowNowMethodInfo + ResolveHScaleMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveHScaleMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveHScaleMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveHScaleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveHScaleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveHScaleMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveHScaleMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveHScaleMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveHScaleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveHScaleMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveHScaleMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveHScaleMethod "unmap" o = WidgetUnmapMethodInfo + ResolveHScaleMethod "unparent" o = WidgetUnparentMethodInfo + ResolveHScaleMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveHScaleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveHScaleMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveHScaleMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveHScaleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveHScaleMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveHScaleMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveHScaleMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo + ResolveHScaleMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveHScaleMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveHScaleMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveHScaleMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveHScaleMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveHScaleMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveHScaleMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveHScaleMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveHScaleMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveHScaleMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveHScaleMethod "getClip" o = WidgetGetClipMethodInfo + ResolveHScaleMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveHScaleMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveHScaleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveHScaleMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveHScaleMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveHScaleMethod "getDigits" o = ScaleGetDigitsMethodInfo + ResolveHScaleMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveHScaleMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveHScaleMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveHScaleMethod "getDrawValue" o = ScaleGetDrawValueMethodInfo + ResolveHScaleMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveHScaleMethod "getFillLevel" o = RangeGetFillLevelMethodInfo + ResolveHScaleMethod "getFlippable" o = RangeGetFlippableMethodInfo + ResolveHScaleMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveHScaleMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveHScaleMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveHScaleMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveHScaleMethod "getHasOrigin" o = ScaleGetHasOriginMethodInfo + ResolveHScaleMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveHScaleMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveHScaleMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveHScaleMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveHScaleMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveHScaleMethod "getInverted" o = RangeGetInvertedMethodInfo + ResolveHScaleMethod "getLayout" o = ScaleGetLayoutMethodInfo + ResolveHScaleMethod "getLayoutOffsets" o = ScaleGetLayoutOffsetsMethodInfo + ResolveHScaleMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo + ResolveHScaleMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveHScaleMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveHScaleMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveHScaleMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveHScaleMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveHScaleMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveHScaleMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveHScaleMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo + ResolveHScaleMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveHScaleMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveHScaleMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveHScaleMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveHScaleMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveHScaleMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveHScaleMethod "getParent" o = WidgetGetParentMethodInfo + ResolveHScaleMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveHScaleMethod "getPath" o = WidgetGetPathMethodInfo + ResolveHScaleMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveHScaleMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveHScaleMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveHScaleMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveHScaleMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveHScaleMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveHScaleMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveHScaleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveHScaleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveHScaleMethod "getRangeRect" o = RangeGetRangeRectMethodInfo + ResolveHScaleMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveHScaleMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveHScaleMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveHScaleMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveHScaleMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo + ResolveHScaleMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveHScaleMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo + ResolveHScaleMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveHScaleMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveHScaleMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveHScaleMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveHScaleMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo + ResolveHScaleMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveHScaleMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo + ResolveHScaleMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo + ResolveHScaleMethod "getState" o = WidgetGetStateMethodInfo + ResolveHScaleMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveHScaleMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveHScaleMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveHScaleMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveHScaleMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveHScaleMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveHScaleMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveHScaleMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveHScaleMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveHScaleMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo + ResolveHScaleMethod "getValign" o = WidgetGetValignMethodInfo + ResolveHScaleMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveHScaleMethod "getValue" o = RangeGetValueMethodInfo + ResolveHScaleMethod "getValuePos" o = ScaleGetValuePosMethodInfo + ResolveHScaleMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveHScaleMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveHScaleMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveHScaleMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveHScaleMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveHScaleMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveHScaleMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo + ResolveHScaleMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveHScaleMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveHScaleMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveHScaleMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveHScaleMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveHScaleMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveHScaleMethod "setClip" o = WidgetSetClipMethodInfo + ResolveHScaleMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveHScaleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveHScaleMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveHScaleMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveHScaleMethod "setDigits" o = ScaleSetDigitsMethodInfo + ResolveHScaleMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveHScaleMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveHScaleMethod "setDrawValue" o = ScaleSetDrawValueMethodInfo + ResolveHScaleMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveHScaleMethod "setFillLevel" o = RangeSetFillLevelMethodInfo + ResolveHScaleMethod "setFlippable" o = RangeSetFlippableMethodInfo + ResolveHScaleMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveHScaleMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveHScaleMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveHScaleMethod "setHasOrigin" o = ScaleSetHasOriginMethodInfo + ResolveHScaleMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveHScaleMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveHScaleMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveHScaleMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveHScaleMethod "setIncrements" o = RangeSetIncrementsMethodInfo + ResolveHScaleMethod "setInverted" o = RangeSetInvertedMethodInfo + ResolveHScaleMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo + ResolveHScaleMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveHScaleMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveHScaleMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveHScaleMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveHScaleMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveHScaleMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveHScaleMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveHScaleMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo + ResolveHScaleMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveHScaleMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveHScaleMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveHScaleMethod "setParent" o = WidgetSetParentMethodInfo + ResolveHScaleMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveHScaleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveHScaleMethod "setRange" o = RangeSetRangeMethodInfo + ResolveHScaleMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveHScaleMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveHScaleMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveHScaleMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo + ResolveHScaleMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo + ResolveHScaleMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveHScaleMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo + ResolveHScaleMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveHScaleMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo + ResolveHScaleMethod "setState" o = WidgetSetStateMethodInfo + ResolveHScaleMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveHScaleMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveHScaleMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveHScaleMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveHScaleMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveHScaleMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveHScaleMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo + ResolveHScaleMethod "setValign" o = WidgetSetValignMethodInfo + ResolveHScaleMethod "setValue" o = RangeSetValueMethodInfo + ResolveHScaleMethod "setValuePos" o = ScaleSetValuePosMethodInfo + ResolveHScaleMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveHScaleMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveHScaleMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveHScaleMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveHScaleMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveHScaleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveHScaleMethod t HScale, MethodInfo info HScale p) => IsLabelProxy t (HScale -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveHScaleMethod t HScale, MethodInfo info HScale p) => IsLabel t (HScale -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList HScale = HScaleAttributeList -type HScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-value", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-origin", ScaleHasOriginPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value-pos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type HScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawValue", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasOrigin", ScaleHasOriginPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("valuePos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList HScale = HScaleSignalList -type HScaleSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-value", ScaleFormatValueSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type HScaleSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("formatValue", ScaleFormatValueSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method HScale::new -- method type : Constructor --- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "HScale" -- throws : False -- Skip return : False @@ -83,8 +421,8 @@ {-# DEPRECATED hScaleNew ["(Since version 3.2)","Use gtk_scale_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-} hScaleNew :: (MonadIO m, AdjustmentK a) => - Maybe (a) -> -- adjustment - m HScale + Maybe (a) -- adjustment + -> m HScale -- result hScaleNew adjustment = liftIO $ do maybeAdjustment <- case adjustment of Nothing -> return nullPtr @@ -99,9 +437,8 @@ -- method HScale::new_with_range -- method type : Constructor --- Args : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "HScale" -- throws : False -- Skip return : False @@ -115,10 +452,10 @@ {-# DEPRECATED hScaleNewWithRange ["(Since version 3.2)","Use gtk_scale_new_with_range() with %GTK_ORIENTATION_HORIZONTAL instead"]#-} hScaleNewWithRange :: (MonadIO m) => - Double -> -- min - Double -> -- max - Double -> -- step - m HScale + Double -- min + -> Double -- max + -> Double -- step + -> m HScale -- result hScaleNewWithRange min max step = liftIO $ do let min' = realToFrac min let max' = realToFrac max diff --git a/GI/Gtk/Objects/HScrollbar.hs b/GI/Gtk/Objects/HScrollbar.hs --- a/GI/Gtk/Objects/HScrollbar.hs +++ b/GI/Gtk/Objects/HScrollbar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,342 @@ noHScrollbar :: Maybe HScrollbar noHScrollbar = Nothing +type family ResolveHScrollbarMethod (t :: Symbol) (o :: *) :: * where + ResolveHScrollbarMethod "activate" o = WidgetActivateMethodInfo + ResolveHScrollbarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveHScrollbarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveHScrollbarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveHScrollbarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveHScrollbarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveHScrollbarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveHScrollbarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveHScrollbarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveHScrollbarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveHScrollbarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveHScrollbarMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveHScrollbarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveHScrollbarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveHScrollbarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveHScrollbarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveHScrollbarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveHScrollbarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveHScrollbarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveHScrollbarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveHScrollbarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveHScrollbarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveHScrollbarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveHScrollbarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveHScrollbarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveHScrollbarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveHScrollbarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveHScrollbarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveHScrollbarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveHScrollbarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveHScrollbarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveHScrollbarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveHScrollbarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveHScrollbarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveHScrollbarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveHScrollbarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveHScrollbarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveHScrollbarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveHScrollbarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveHScrollbarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveHScrollbarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveHScrollbarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveHScrollbarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveHScrollbarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveHScrollbarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveHScrollbarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveHScrollbarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveHScrollbarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveHScrollbarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveHScrollbarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveHScrollbarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveHScrollbarMethod "draw" o = WidgetDrawMethodInfo + ResolveHScrollbarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveHScrollbarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveHScrollbarMethod "event" o = WidgetEventMethodInfo + ResolveHScrollbarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveHScrollbarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveHScrollbarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveHScrollbarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveHScrollbarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveHScrollbarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveHScrollbarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveHScrollbarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveHScrollbarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveHScrollbarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveHScrollbarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveHScrollbarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveHScrollbarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveHScrollbarMethod "hide" o = WidgetHideMethodInfo + ResolveHScrollbarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveHScrollbarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveHScrollbarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveHScrollbarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveHScrollbarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveHScrollbarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveHScrollbarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveHScrollbarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveHScrollbarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveHScrollbarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveHScrollbarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveHScrollbarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveHScrollbarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveHScrollbarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveHScrollbarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveHScrollbarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveHScrollbarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveHScrollbarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveHScrollbarMethod "map" o = WidgetMapMethodInfo + ResolveHScrollbarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveHScrollbarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveHScrollbarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveHScrollbarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveHScrollbarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveHScrollbarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveHScrollbarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveHScrollbarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveHScrollbarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveHScrollbarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveHScrollbarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveHScrollbarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveHScrollbarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveHScrollbarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveHScrollbarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveHScrollbarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveHScrollbarMethod "path" o = WidgetPathMethodInfo + ResolveHScrollbarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveHScrollbarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveHScrollbarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveHScrollbarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveHScrollbarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveHScrollbarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveHScrollbarMethod "realize" o = WidgetRealizeMethodInfo + ResolveHScrollbarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveHScrollbarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveHScrollbarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveHScrollbarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveHScrollbarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveHScrollbarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveHScrollbarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveHScrollbarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveHScrollbarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveHScrollbarMethod "reparent" o = WidgetReparentMethodInfo + ResolveHScrollbarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveHScrollbarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveHScrollbarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveHScrollbarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveHScrollbarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveHScrollbarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveHScrollbarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveHScrollbarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveHScrollbarMethod "show" o = WidgetShowMethodInfo + ResolveHScrollbarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveHScrollbarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveHScrollbarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveHScrollbarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveHScrollbarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveHScrollbarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveHScrollbarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveHScrollbarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveHScrollbarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveHScrollbarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveHScrollbarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveHScrollbarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveHScrollbarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveHScrollbarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveHScrollbarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveHScrollbarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveHScrollbarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveHScrollbarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveHScrollbarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveHScrollbarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveHScrollbarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveHScrollbarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveHScrollbarMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo + ResolveHScrollbarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveHScrollbarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveHScrollbarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveHScrollbarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveHScrollbarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveHScrollbarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveHScrollbarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveHScrollbarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveHScrollbarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveHScrollbarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveHScrollbarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveHScrollbarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveHScrollbarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveHScrollbarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveHScrollbarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveHScrollbarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveHScrollbarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveHScrollbarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveHScrollbarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveHScrollbarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveHScrollbarMethod "getFillLevel" o = RangeGetFillLevelMethodInfo + ResolveHScrollbarMethod "getFlippable" o = RangeGetFlippableMethodInfo + ResolveHScrollbarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveHScrollbarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveHScrollbarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveHScrollbarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveHScrollbarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveHScrollbarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveHScrollbarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveHScrollbarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveHScrollbarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveHScrollbarMethod "getInverted" o = RangeGetInvertedMethodInfo + ResolveHScrollbarMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo + ResolveHScrollbarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveHScrollbarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveHScrollbarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveHScrollbarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveHScrollbarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveHScrollbarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveHScrollbarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveHScrollbarMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo + ResolveHScrollbarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveHScrollbarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveHScrollbarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveHScrollbarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveHScrollbarMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveHScrollbarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveHScrollbarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveHScrollbarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveHScrollbarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveHScrollbarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveHScrollbarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveHScrollbarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveHScrollbarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveHScrollbarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveHScrollbarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveHScrollbarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveHScrollbarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveHScrollbarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveHScrollbarMethod "getRangeRect" o = RangeGetRangeRectMethodInfo + ResolveHScrollbarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveHScrollbarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveHScrollbarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveHScrollbarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveHScrollbarMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo + ResolveHScrollbarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveHScrollbarMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo + ResolveHScrollbarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveHScrollbarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveHScrollbarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveHScrollbarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveHScrollbarMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo + ResolveHScrollbarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveHScrollbarMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo + ResolveHScrollbarMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo + ResolveHScrollbarMethod "getState" o = WidgetGetStateMethodInfo + ResolveHScrollbarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveHScrollbarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveHScrollbarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveHScrollbarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveHScrollbarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveHScrollbarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveHScrollbarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveHScrollbarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveHScrollbarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveHScrollbarMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo + ResolveHScrollbarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveHScrollbarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveHScrollbarMethod "getValue" o = RangeGetValueMethodInfo + ResolveHScrollbarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveHScrollbarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveHScrollbarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveHScrollbarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveHScrollbarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveHScrollbarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveHScrollbarMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo + ResolveHScrollbarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveHScrollbarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveHScrollbarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveHScrollbarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveHScrollbarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveHScrollbarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveHScrollbarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveHScrollbarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveHScrollbarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveHScrollbarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveHScrollbarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveHScrollbarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveHScrollbarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveHScrollbarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveHScrollbarMethod "setFillLevel" o = RangeSetFillLevelMethodInfo + ResolveHScrollbarMethod "setFlippable" o = RangeSetFlippableMethodInfo + ResolveHScrollbarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveHScrollbarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveHScrollbarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveHScrollbarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveHScrollbarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveHScrollbarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveHScrollbarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveHScrollbarMethod "setIncrements" o = RangeSetIncrementsMethodInfo + ResolveHScrollbarMethod "setInverted" o = RangeSetInvertedMethodInfo + ResolveHScrollbarMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo + ResolveHScrollbarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveHScrollbarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveHScrollbarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveHScrollbarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveHScrollbarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveHScrollbarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveHScrollbarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveHScrollbarMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo + ResolveHScrollbarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveHScrollbarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveHScrollbarMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveHScrollbarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveHScrollbarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveHScrollbarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveHScrollbarMethod "setRange" o = RangeSetRangeMethodInfo + ResolveHScrollbarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveHScrollbarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveHScrollbarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveHScrollbarMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo + ResolveHScrollbarMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo + ResolveHScrollbarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveHScrollbarMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo + ResolveHScrollbarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveHScrollbarMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo + ResolveHScrollbarMethod "setState" o = WidgetSetStateMethodInfo + ResolveHScrollbarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveHScrollbarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveHScrollbarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveHScrollbarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveHScrollbarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveHScrollbarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveHScrollbarMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo + ResolveHScrollbarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveHScrollbarMethod "setValue" o = RangeSetValueMethodInfo + ResolveHScrollbarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveHScrollbarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveHScrollbarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveHScrollbarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveHScrollbarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveHScrollbarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveHScrollbarMethod t HScrollbar, MethodInfo info HScrollbar p) => IsLabelProxy t (HScrollbar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveHScrollbarMethod t HScrollbar, MethodInfo info HScrollbar p) => IsLabel t (HScrollbar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList HScrollbar = HScrollbarAttributeList -type HScrollbarAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type HScrollbarAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList HScrollbar = HScrollbarSignalList -type HScrollbarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type HScrollbarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method HScrollbar::new -- method type : Constructor --- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "HScrollbar" -- throws : False -- Skip return : False @@ -79,8 +405,8 @@ {-# DEPRECATED hScrollbarNew ["(Since version 3.2)","Use gtk_scrollbar_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-} hScrollbarNew :: (MonadIO m, AdjustmentK a) => - Maybe (a) -> -- adjustment - m HScrollbar + Maybe (a) -- adjustment + -> m HScrollbar -- result hScrollbarNew adjustment = liftIO $ do maybeAdjustment <- case adjustment of Nothing -> return nullPtr diff --git a/GI/Gtk/Objects/HSeparator.hs b/GI/Gtk/Objects/HSeparator.hs --- a/GI/Gtk/Objects/HSeparator.hs +++ b/GI/Gtk/Objects/HSeparator.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,314 @@ noHSeparator :: Maybe HSeparator noHSeparator = Nothing +type family ResolveHSeparatorMethod (t :: Symbol) (o :: *) :: * where + ResolveHSeparatorMethod "activate" o = WidgetActivateMethodInfo + ResolveHSeparatorMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveHSeparatorMethod "addChild" o = BuildableAddChildMethodInfo + ResolveHSeparatorMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveHSeparatorMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveHSeparatorMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveHSeparatorMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveHSeparatorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveHSeparatorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveHSeparatorMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveHSeparatorMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveHSeparatorMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveHSeparatorMethod "classPath" o = WidgetClassPathMethodInfo + ResolveHSeparatorMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveHSeparatorMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveHSeparatorMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveHSeparatorMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveHSeparatorMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveHSeparatorMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveHSeparatorMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveHSeparatorMethod "destroy" o = WidgetDestroyMethodInfo + ResolveHSeparatorMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveHSeparatorMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveHSeparatorMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveHSeparatorMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveHSeparatorMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveHSeparatorMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveHSeparatorMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveHSeparatorMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveHSeparatorMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveHSeparatorMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveHSeparatorMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveHSeparatorMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveHSeparatorMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveHSeparatorMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveHSeparatorMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveHSeparatorMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveHSeparatorMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveHSeparatorMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveHSeparatorMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveHSeparatorMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveHSeparatorMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveHSeparatorMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveHSeparatorMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveHSeparatorMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveHSeparatorMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveHSeparatorMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveHSeparatorMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveHSeparatorMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveHSeparatorMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveHSeparatorMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveHSeparatorMethod "draw" o = WidgetDrawMethodInfo + ResolveHSeparatorMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveHSeparatorMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveHSeparatorMethod "event" o = WidgetEventMethodInfo + ResolveHSeparatorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveHSeparatorMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveHSeparatorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveHSeparatorMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveHSeparatorMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveHSeparatorMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveHSeparatorMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveHSeparatorMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveHSeparatorMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveHSeparatorMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveHSeparatorMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveHSeparatorMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveHSeparatorMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveHSeparatorMethod "hide" o = WidgetHideMethodInfo + ResolveHSeparatorMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveHSeparatorMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveHSeparatorMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveHSeparatorMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveHSeparatorMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveHSeparatorMethod "intersect" o = WidgetIntersectMethodInfo + ResolveHSeparatorMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveHSeparatorMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveHSeparatorMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveHSeparatorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveHSeparatorMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveHSeparatorMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveHSeparatorMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveHSeparatorMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveHSeparatorMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveHSeparatorMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveHSeparatorMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveHSeparatorMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveHSeparatorMethod "map" o = WidgetMapMethodInfo + ResolveHSeparatorMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveHSeparatorMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveHSeparatorMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveHSeparatorMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveHSeparatorMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveHSeparatorMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveHSeparatorMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveHSeparatorMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveHSeparatorMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveHSeparatorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveHSeparatorMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveHSeparatorMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveHSeparatorMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveHSeparatorMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveHSeparatorMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveHSeparatorMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveHSeparatorMethod "path" o = WidgetPathMethodInfo + ResolveHSeparatorMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveHSeparatorMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveHSeparatorMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveHSeparatorMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveHSeparatorMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveHSeparatorMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveHSeparatorMethod "realize" o = WidgetRealizeMethodInfo + ResolveHSeparatorMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveHSeparatorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveHSeparatorMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveHSeparatorMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveHSeparatorMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveHSeparatorMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveHSeparatorMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveHSeparatorMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveHSeparatorMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveHSeparatorMethod "reparent" o = WidgetReparentMethodInfo + ResolveHSeparatorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveHSeparatorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveHSeparatorMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveHSeparatorMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveHSeparatorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveHSeparatorMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveHSeparatorMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveHSeparatorMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveHSeparatorMethod "show" o = WidgetShowMethodInfo + ResolveHSeparatorMethod "showAll" o = WidgetShowAllMethodInfo + ResolveHSeparatorMethod "showNow" o = WidgetShowNowMethodInfo + ResolveHSeparatorMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveHSeparatorMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveHSeparatorMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveHSeparatorMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveHSeparatorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveHSeparatorMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveHSeparatorMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveHSeparatorMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveHSeparatorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveHSeparatorMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveHSeparatorMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveHSeparatorMethod "unmap" o = WidgetUnmapMethodInfo + ResolveHSeparatorMethod "unparent" o = WidgetUnparentMethodInfo + ResolveHSeparatorMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveHSeparatorMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveHSeparatorMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveHSeparatorMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveHSeparatorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveHSeparatorMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveHSeparatorMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveHSeparatorMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveHSeparatorMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveHSeparatorMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveHSeparatorMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveHSeparatorMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveHSeparatorMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveHSeparatorMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveHSeparatorMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveHSeparatorMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveHSeparatorMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveHSeparatorMethod "getClip" o = WidgetGetClipMethodInfo + ResolveHSeparatorMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveHSeparatorMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveHSeparatorMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveHSeparatorMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveHSeparatorMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveHSeparatorMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveHSeparatorMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveHSeparatorMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveHSeparatorMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveHSeparatorMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveHSeparatorMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveHSeparatorMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveHSeparatorMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveHSeparatorMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveHSeparatorMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveHSeparatorMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveHSeparatorMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveHSeparatorMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveHSeparatorMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveHSeparatorMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveHSeparatorMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveHSeparatorMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveHSeparatorMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveHSeparatorMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveHSeparatorMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveHSeparatorMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveHSeparatorMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveHSeparatorMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveHSeparatorMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveHSeparatorMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveHSeparatorMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveHSeparatorMethod "getParent" o = WidgetGetParentMethodInfo + ResolveHSeparatorMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveHSeparatorMethod "getPath" o = WidgetGetPathMethodInfo + ResolveHSeparatorMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveHSeparatorMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveHSeparatorMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveHSeparatorMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveHSeparatorMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveHSeparatorMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveHSeparatorMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveHSeparatorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveHSeparatorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveHSeparatorMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveHSeparatorMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveHSeparatorMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveHSeparatorMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveHSeparatorMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveHSeparatorMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveHSeparatorMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveHSeparatorMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveHSeparatorMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveHSeparatorMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveHSeparatorMethod "getState" o = WidgetGetStateMethodInfo + ResolveHSeparatorMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveHSeparatorMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveHSeparatorMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveHSeparatorMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveHSeparatorMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveHSeparatorMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveHSeparatorMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveHSeparatorMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveHSeparatorMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveHSeparatorMethod "getValign" o = WidgetGetValignMethodInfo + ResolveHSeparatorMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveHSeparatorMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveHSeparatorMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveHSeparatorMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveHSeparatorMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveHSeparatorMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveHSeparatorMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveHSeparatorMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveHSeparatorMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveHSeparatorMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveHSeparatorMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveHSeparatorMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveHSeparatorMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveHSeparatorMethod "setClip" o = WidgetSetClipMethodInfo + ResolveHSeparatorMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveHSeparatorMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveHSeparatorMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveHSeparatorMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveHSeparatorMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveHSeparatorMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveHSeparatorMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveHSeparatorMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveHSeparatorMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveHSeparatorMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveHSeparatorMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveHSeparatorMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveHSeparatorMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveHSeparatorMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveHSeparatorMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveHSeparatorMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveHSeparatorMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveHSeparatorMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveHSeparatorMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveHSeparatorMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveHSeparatorMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveHSeparatorMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveHSeparatorMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveHSeparatorMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveHSeparatorMethod "setParent" o = WidgetSetParentMethodInfo + ResolveHSeparatorMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveHSeparatorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveHSeparatorMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveHSeparatorMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveHSeparatorMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveHSeparatorMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveHSeparatorMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveHSeparatorMethod "setState" o = WidgetSetStateMethodInfo + ResolveHSeparatorMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveHSeparatorMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveHSeparatorMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveHSeparatorMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveHSeparatorMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveHSeparatorMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveHSeparatorMethod "setValign" o = WidgetSetValignMethodInfo + ResolveHSeparatorMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveHSeparatorMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveHSeparatorMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveHSeparatorMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveHSeparatorMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveHSeparatorMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveHSeparatorMethod t HSeparator, MethodInfo info HSeparator p) => IsLabelProxy t (HSeparator -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveHSeparatorMethod t HSeparator, MethodInfo info HSeparator p) => IsLabel t (HSeparator -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList HSeparator = HSeparatorAttributeList -type HSeparatorAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type HSeparatorAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList HSeparator = HSeparatorSignalList -type HSeparatorSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type HSeparatorSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method HSeparator::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "HSeparator" -- throws : False -- Skip return : False @@ -78,7 +376,7 @@ {-# DEPRECATED hSeparatorNew ["(Since version 3.2)","Use gtk_separator_new() with %GTK_ORIENTATION_HORIZONTAL instead"]#-} hSeparatorNew :: (MonadIO m) => - m HSeparator + m HSeparator -- result hSeparatorNew = liftIO $ do result <- gtk_hseparator_new checkUnexpectedReturnNULL "gtk_hseparator_new" result diff --git a/GI/Gtk/Objects/HandleBox.hs b/GI/Gtk/Objects/HandleBox.hs --- a/GI/Gtk/Objects/HandleBox.hs +++ b/GI/Gtk/Objects/HandleBox.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** handleBoxGetChildDetached + HandleBoxGetChildDetachedMethodInfo , handleBoxGetChildDetached , -- ** handleBoxGetHandlePosition + HandleBoxGetHandlePositionMethodInfo , handleBoxGetHandlePosition , -- ** handleBoxGetShadowType + HandleBoxGetShadowTypeMethodInfo , handleBoxGetShadowType , -- ** handleBoxGetSnapEdge + HandleBoxGetSnapEdgeMethodInfo , handleBoxGetSnapEdge , @@ -37,14 +42,17 @@ -- ** handleBoxSetHandlePosition + HandleBoxSetHandlePositionMethodInfo , handleBoxSetHandlePosition , -- ** handleBoxSetShadowType + HandleBoxSetShadowTypeMethodInfo , handleBoxSetShadowType , -- ** handleBoxSetSnapEdge + HandleBoxSetSnapEdgeMethodInfo , handleBoxSetSnapEdge , @@ -148,6 +156,336 @@ noHandleBox :: Maybe HandleBox noHandleBox = Nothing +type family ResolveHandleBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveHandleBoxMethod "activate" o = WidgetActivateMethodInfo + ResolveHandleBoxMethod "add" o = ContainerAddMethodInfo + ResolveHandleBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveHandleBoxMethod "addChild" o = BuildableAddChildMethodInfo + ResolveHandleBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveHandleBoxMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveHandleBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveHandleBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveHandleBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveHandleBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveHandleBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveHandleBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveHandleBoxMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveHandleBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveHandleBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveHandleBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveHandleBoxMethod "childType" o = ContainerChildTypeMethodInfo + ResolveHandleBoxMethod "classPath" o = WidgetClassPathMethodInfo + ResolveHandleBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveHandleBoxMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveHandleBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveHandleBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveHandleBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveHandleBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveHandleBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveHandleBoxMethod "destroy" o = WidgetDestroyMethodInfo + ResolveHandleBoxMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveHandleBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveHandleBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveHandleBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveHandleBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveHandleBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveHandleBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveHandleBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveHandleBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveHandleBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveHandleBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveHandleBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveHandleBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveHandleBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveHandleBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveHandleBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveHandleBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveHandleBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveHandleBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveHandleBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveHandleBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveHandleBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveHandleBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveHandleBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveHandleBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveHandleBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveHandleBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveHandleBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveHandleBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveHandleBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveHandleBoxMethod "draw" o = WidgetDrawMethodInfo + ResolveHandleBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveHandleBoxMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveHandleBoxMethod "event" o = WidgetEventMethodInfo + ResolveHandleBoxMethod "forall" o = ContainerForallMethodInfo + ResolveHandleBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveHandleBoxMethod "foreach" o = ContainerForeachMethodInfo + ResolveHandleBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveHandleBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveHandleBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveHandleBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveHandleBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveHandleBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveHandleBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveHandleBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveHandleBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveHandleBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveHandleBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveHandleBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveHandleBoxMethod "hide" o = WidgetHideMethodInfo + ResolveHandleBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveHandleBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveHandleBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveHandleBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveHandleBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveHandleBoxMethod "intersect" o = WidgetIntersectMethodInfo + ResolveHandleBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveHandleBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveHandleBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveHandleBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveHandleBoxMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveHandleBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveHandleBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveHandleBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveHandleBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveHandleBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveHandleBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveHandleBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveHandleBoxMethod "map" o = WidgetMapMethodInfo + ResolveHandleBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveHandleBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveHandleBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveHandleBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveHandleBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveHandleBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveHandleBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveHandleBoxMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveHandleBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveHandleBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveHandleBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveHandleBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveHandleBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveHandleBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveHandleBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveHandleBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveHandleBoxMethod "path" o = WidgetPathMethodInfo + ResolveHandleBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveHandleBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveHandleBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveHandleBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveHandleBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveHandleBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveHandleBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveHandleBoxMethod "realize" o = WidgetRealizeMethodInfo + ResolveHandleBoxMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveHandleBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveHandleBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveHandleBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveHandleBoxMethod "remove" o = ContainerRemoveMethodInfo + ResolveHandleBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveHandleBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveHandleBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveHandleBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveHandleBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveHandleBoxMethod "reparent" o = WidgetReparentMethodInfo + ResolveHandleBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveHandleBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveHandleBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveHandleBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveHandleBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveHandleBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveHandleBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveHandleBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveHandleBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveHandleBoxMethod "show" o = WidgetShowMethodInfo + ResolveHandleBoxMethod "showAll" o = WidgetShowAllMethodInfo + ResolveHandleBoxMethod "showNow" o = WidgetShowNowMethodInfo + ResolveHandleBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveHandleBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveHandleBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveHandleBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveHandleBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveHandleBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveHandleBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveHandleBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveHandleBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveHandleBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveHandleBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveHandleBoxMethod "unmap" o = WidgetUnmapMethodInfo + ResolveHandleBoxMethod "unparent" o = WidgetUnparentMethodInfo + ResolveHandleBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveHandleBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveHandleBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveHandleBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveHandleBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveHandleBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveHandleBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveHandleBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveHandleBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveHandleBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveHandleBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveHandleBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveHandleBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveHandleBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveHandleBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveHandleBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveHandleBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveHandleBoxMethod "getChild" o = BinGetChildMethodInfo + ResolveHandleBoxMethod "getChildDetached" o = HandleBoxGetChildDetachedMethodInfo + ResolveHandleBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveHandleBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveHandleBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveHandleBoxMethod "getClip" o = WidgetGetClipMethodInfo + ResolveHandleBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveHandleBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveHandleBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveHandleBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveHandleBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveHandleBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveHandleBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveHandleBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveHandleBoxMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveHandleBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveHandleBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveHandleBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveHandleBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveHandleBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveHandleBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveHandleBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveHandleBoxMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveHandleBoxMethod "getHandlePosition" o = HandleBoxGetHandlePositionMethodInfo + ResolveHandleBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveHandleBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveHandleBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveHandleBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveHandleBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveHandleBoxMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveHandleBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveHandleBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveHandleBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveHandleBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveHandleBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveHandleBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveHandleBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveHandleBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveHandleBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveHandleBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveHandleBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveHandleBoxMethod "getParent" o = WidgetGetParentMethodInfo + ResolveHandleBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveHandleBoxMethod "getPath" o = WidgetGetPathMethodInfo + ResolveHandleBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveHandleBoxMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveHandleBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveHandleBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveHandleBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveHandleBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveHandleBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveHandleBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveHandleBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveHandleBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveHandleBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveHandleBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveHandleBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveHandleBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveHandleBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveHandleBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveHandleBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveHandleBoxMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveHandleBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveHandleBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveHandleBoxMethod "getShadowType" o = HandleBoxGetShadowTypeMethodInfo + ResolveHandleBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveHandleBoxMethod "getSnapEdge" o = HandleBoxGetSnapEdgeMethodInfo + ResolveHandleBoxMethod "getState" o = WidgetGetStateMethodInfo + ResolveHandleBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveHandleBoxMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveHandleBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveHandleBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveHandleBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveHandleBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveHandleBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveHandleBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveHandleBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveHandleBoxMethod "getValign" o = WidgetGetValignMethodInfo + ResolveHandleBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveHandleBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveHandleBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveHandleBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveHandleBoxMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveHandleBoxMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveHandleBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveHandleBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveHandleBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveHandleBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveHandleBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveHandleBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveHandleBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveHandleBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveHandleBoxMethod "setClip" o = WidgetSetClipMethodInfo + ResolveHandleBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveHandleBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveHandleBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveHandleBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveHandleBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveHandleBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveHandleBoxMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveHandleBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveHandleBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveHandleBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveHandleBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveHandleBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveHandleBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveHandleBoxMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveHandleBoxMethod "setHandlePosition" o = HandleBoxSetHandlePositionMethodInfo + ResolveHandleBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveHandleBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveHandleBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveHandleBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveHandleBoxMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveHandleBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveHandleBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveHandleBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveHandleBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveHandleBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveHandleBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveHandleBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveHandleBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveHandleBoxMethod "setParent" o = WidgetSetParentMethodInfo + ResolveHandleBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveHandleBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveHandleBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveHandleBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveHandleBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveHandleBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveHandleBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveHandleBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveHandleBoxMethod "setShadowType" o = HandleBoxSetShadowTypeMethodInfo + ResolveHandleBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveHandleBoxMethod "setSnapEdge" o = HandleBoxSetSnapEdgeMethodInfo + ResolveHandleBoxMethod "setState" o = WidgetSetStateMethodInfo + ResolveHandleBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveHandleBoxMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveHandleBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveHandleBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveHandleBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveHandleBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveHandleBoxMethod "setValign" o = WidgetSetValignMethodInfo + ResolveHandleBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveHandleBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveHandleBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveHandleBoxMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveHandleBoxMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveHandleBoxMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveHandleBoxMethod t HandleBox, MethodInfo info HandleBox p) => IsLabelProxy t (HandleBox -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveHandleBoxMethod t HandleBox, MethodInfo info HandleBox p) => IsLabel t (HandleBox -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal HandleBox::child-attached type HandleBoxChildAttachedCallback = Widget -> @@ -245,7 +583,7 @@ type AttrSetTypeConstraint HandleBoxChildDetachedPropertyInfo = (~) () type AttrBaseTypeConstraint HandleBoxChildDetachedPropertyInfo = HandleBoxK type AttrGetType HandleBoxChildDetachedPropertyInfo = Bool - type AttrLabel HandleBoxChildDetachedPropertyInfo = "HandleBox::child-detached" + type AttrLabel HandleBoxChildDetachedPropertyInfo = "child-detached" attrGet _ = getHandleBoxChildDetached attrSet _ = undefined attrConstruct _ = undefined @@ -269,7 +607,7 @@ type AttrSetTypeConstraint HandleBoxHandlePositionPropertyInfo = (~) PositionType type AttrBaseTypeConstraint HandleBoxHandlePositionPropertyInfo = HandleBoxK type AttrGetType HandleBoxHandlePositionPropertyInfo = PositionType - type AttrLabel HandleBoxHandlePositionPropertyInfo = "HandleBox::handle-position" + type AttrLabel HandleBoxHandlePositionPropertyInfo = "handle-position" attrGet _ = getHandleBoxHandlePosition attrSet _ = setHandleBoxHandlePosition attrConstruct _ = constructHandleBoxHandlePosition @@ -293,7 +631,7 @@ type AttrSetTypeConstraint HandleBoxShadowTypePropertyInfo = (~) ShadowType type AttrBaseTypeConstraint HandleBoxShadowTypePropertyInfo = HandleBoxK type AttrGetType HandleBoxShadowTypePropertyInfo = ShadowType - type AttrLabel HandleBoxShadowTypePropertyInfo = "HandleBox::shadow-type" + type AttrLabel HandleBoxShadowTypePropertyInfo = "shadow-type" attrGet _ = getHandleBoxShadowType attrSet _ = setHandleBoxShadowType attrConstruct _ = constructHandleBoxShadowType @@ -317,7 +655,7 @@ type AttrSetTypeConstraint HandleBoxSnapEdgePropertyInfo = (~) PositionType type AttrBaseTypeConstraint HandleBoxSnapEdgePropertyInfo = HandleBoxK type AttrGetType HandleBoxSnapEdgePropertyInfo = PositionType - type AttrLabel HandleBoxSnapEdgePropertyInfo = "HandleBox::snap-edge" + type AttrLabel HandleBoxSnapEdgePropertyInfo = "snap-edge" attrGet _ = getHandleBoxSnapEdge attrSet _ = setHandleBoxSnapEdge attrConstruct _ = constructHandleBoxSnapEdge @@ -341,13 +679,13 @@ type AttrSetTypeConstraint HandleBoxSnapEdgeSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint HandleBoxSnapEdgeSetPropertyInfo = HandleBoxK type AttrGetType HandleBoxSnapEdgeSetPropertyInfo = Bool - type AttrLabel HandleBoxSnapEdgeSetPropertyInfo = "HandleBox::snap-edge-set" + type AttrLabel HandleBoxSnapEdgeSetPropertyInfo = "snap-edge-set" attrGet _ = getHandleBoxSnapEdgeSet attrSet _ = setHandleBoxSnapEdgeSet attrConstruct _ = constructHandleBoxSnapEdgeSet type instance AttributeList HandleBox = HandleBoxAttributeList -type HandleBoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("child-detached", HandleBoxChildDetachedPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("handle-position", HandleBoxHandlePositionPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", HandleBoxShadowTypePropertyInfo), '("snap-edge", HandleBoxSnapEdgePropertyInfo), '("snap-edge-set", HandleBoxSnapEdgeSetPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type HandleBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("childDetached", HandleBoxChildDetachedPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("handlePosition", HandleBoxHandlePositionPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", HandleBoxShadowTypePropertyInfo), '("snapEdge", HandleBoxSnapEdgePropertyInfo), '("snapEdgeSet", HandleBoxSnapEdgeSetPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data HandleBoxChildAttachedSignalInfo instance SignalInfo HandleBoxChildAttachedSignalInfo where @@ -360,13 +698,12 @@ connectSignal _ = connectHandleBoxChildDetached type instance SignalList HandleBox = HandleBoxSignalList -type HandleBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-attached", HandleBoxChildAttachedSignalInfo), '("child-detached", HandleBoxChildDetachedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type HandleBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childAttached", HandleBoxChildAttachedSignalInfo), '("childDetached", HandleBoxChildDetachedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method HandleBox::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "HandleBox" -- throws : False -- Skip return : False @@ -377,7 +714,7 @@ {-# DEPRECATED handleBoxNew ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} handleBoxNew :: (MonadIO m) => - m HandleBox + m HandleBox -- result handleBoxNew = liftIO $ do result <- gtk_handle_box_new checkUnexpectedReturnNULL "gtk_handle_box_new" result @@ -386,9 +723,8 @@ -- method HandleBox::get_child_detached -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -400,8 +736,8 @@ {-# DEPRECATED handleBoxGetChildDetached ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} handleBoxGetChildDetached :: (MonadIO m, HandleBoxK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result handleBoxGetChildDetached _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_handle_box_get_child_detached _obj' @@ -409,11 +745,14 @@ touchManagedPtr _obj return result' +data HandleBoxGetChildDetachedMethodInfo +instance (signature ~ (m Bool), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxGetChildDetachedMethodInfo a signature where + overloadedMethod _ = handleBoxGetChildDetached + -- method HandleBox::get_handle_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PositionType" -- throws : False -- Skip return : False @@ -425,8 +764,8 @@ {-# DEPRECATED handleBoxGetHandlePosition ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} handleBoxGetHandlePosition :: (MonadIO m, HandleBoxK a) => - a -> -- _obj - m PositionType + a -- _obj + -> m PositionType -- result handleBoxGetHandlePosition _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_handle_box_get_handle_position _obj' @@ -434,11 +773,14 @@ touchManagedPtr _obj return result' +data HandleBoxGetHandlePositionMethodInfo +instance (signature ~ (m PositionType), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxGetHandlePositionMethodInfo a signature where + overloadedMethod _ = handleBoxGetHandlePosition + -- method HandleBox::get_shadow_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ShadowType" -- throws : False -- Skip return : False @@ -450,8 +792,8 @@ {-# DEPRECATED handleBoxGetShadowType ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} handleBoxGetShadowType :: (MonadIO m, HandleBoxK a) => - a -> -- _obj - m ShadowType + a -- _obj + -> m ShadowType -- result handleBoxGetShadowType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_handle_box_get_shadow_type _obj' @@ -459,11 +801,14 @@ touchManagedPtr _obj return result' +data HandleBoxGetShadowTypeMethodInfo +instance (signature ~ (m ShadowType), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxGetShadowTypeMethodInfo a signature where + overloadedMethod _ = handleBoxGetShadowType + -- method HandleBox::get_snap_edge -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PositionType" -- throws : False -- Skip return : False @@ -475,8 +820,8 @@ {-# DEPRECATED handleBoxGetSnapEdge ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} handleBoxGetSnapEdge :: (MonadIO m, HandleBoxK a) => - a -> -- _obj - m PositionType + a -- _obj + -> m PositionType -- result handleBoxGetSnapEdge _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_handle_box_get_snap_edge _obj' @@ -484,11 +829,14 @@ touchManagedPtr _obj return result' +data HandleBoxGetSnapEdgeMethodInfo +instance (signature ~ (m PositionType), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxGetSnapEdgeMethodInfo a signature where + overloadedMethod _ = handleBoxGetSnapEdge + -- method HandleBox::set_handle_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -501,9 +849,9 @@ {-# DEPRECATED handleBoxSetHandlePosition ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} handleBoxSetHandlePosition :: (MonadIO m, HandleBoxK a) => - a -> -- _obj - PositionType -> -- position - m () + a -- _obj + -> PositionType -- position + -> m () -- result handleBoxSetHandlePosition _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let position' = (fromIntegral . fromEnum) position @@ -511,11 +859,14 @@ touchManagedPtr _obj return () +data HandleBoxSetHandlePositionMethodInfo +instance (signature ~ (PositionType -> m ()), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxSetHandlePositionMethodInfo a signature where + overloadedMethod _ = handleBoxSetHandlePosition + -- method HandleBox::set_shadow_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -528,9 +879,9 @@ {-# DEPRECATED handleBoxSetShadowType ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} handleBoxSetShadowType :: (MonadIO m, HandleBoxK a) => - a -> -- _obj - ShadowType -> -- type - m () + a -- _obj + -> ShadowType -- type_ + -> m () -- result handleBoxSetShadowType _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let type_' = (fromIntegral . fromEnum) type_ @@ -538,11 +889,14 @@ touchManagedPtr _obj return () +data HandleBoxSetShadowTypeMethodInfo +instance (signature ~ (ShadowType -> m ()), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxSetShadowTypeMethodInfo a signature where + overloadedMethod _ = handleBoxSetShadowType + -- method HandleBox::set_snap_edge -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -555,14 +909,18 @@ {-# DEPRECATED handleBoxSetSnapEdge ["(Since version 3.4)","#GtkHandleBox has been deprecated."]#-} handleBoxSetSnapEdge :: (MonadIO m, HandleBoxK a) => - a -> -- _obj - PositionType -> -- edge - m () + a -- _obj + -> PositionType -- edge + -> m () -- result handleBoxSetSnapEdge _obj edge = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let edge' = (fromIntegral . fromEnum) edge gtk_handle_box_set_snap_edge _obj' edge' touchManagedPtr _obj return () + +data HandleBoxSetSnapEdgeMethodInfo +instance (signature ~ (PositionType -> m ()), MonadIO m, HandleBoxK a) => MethodInfo HandleBoxSetSnapEdgeMethodInfo a signature where + overloadedMethod _ = handleBoxSetSnapEdge diff --git a/GI/Gtk/Objects/HandleBox.hs-boot b/GI/Gtk/Objects/HandleBox.hs-boot --- a/GI/Gtk/Objects/HandleBox.hs-boot +++ b/GI/Gtk/Objects/HandleBox.hs-boot @@ -18,3 +18,10 @@ data HandleBoxSnapEdgeSetPropertyInfo data HandleBoxChildAttachedSignalInfo data HandleBoxChildDetachedSignalInfo +data HandleBoxGetChildDetachedMethodInfo +data HandleBoxGetHandlePositionMethodInfo +data HandleBoxGetShadowTypeMethodInfo +data HandleBoxGetSnapEdgeMethodInfo +data HandleBoxSetHandlePositionMethodInfo +data HandleBoxSetShadowTypeMethodInfo +data HandleBoxSetSnapEdgeMethodInfo diff --git a/GI/Gtk/Objects/HeaderBar.hs b/GI/Gtk/Objects/HeaderBar.hs --- a/GI/Gtk/Objects/HeaderBar.hs +++ b/GI/Gtk/Objects/HeaderBar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** headerBarGetCustomTitle + HeaderBarGetCustomTitleMethodInfo , headerBarGetCustomTitle , -- ** headerBarGetDecorationLayout + HeaderBarGetDecorationLayoutMethodInfo , headerBarGetDecorationLayout , -- ** headerBarGetHasSubtitle + HeaderBarGetHasSubtitleMethodInfo , headerBarGetHasSubtitle , -- ** headerBarGetShowCloseButton + HeaderBarGetShowCloseButtonMethodInfo , headerBarGetShowCloseButton , -- ** headerBarGetSubtitle + HeaderBarGetSubtitleMethodInfo , headerBarGetSubtitle , -- ** headerBarGetTitle + HeaderBarGetTitleMethodInfo , headerBarGetTitle , @@ -45,34 +52,42 @@ -- ** headerBarPackEnd + HeaderBarPackEndMethodInfo , headerBarPackEnd , -- ** headerBarPackStart + HeaderBarPackStartMethodInfo , headerBarPackStart , -- ** headerBarSetCustomTitle + HeaderBarSetCustomTitleMethodInfo , headerBarSetCustomTitle , -- ** headerBarSetDecorationLayout + HeaderBarSetDecorationLayoutMethodInfo , headerBarSetDecorationLayout , -- ** headerBarSetHasSubtitle + HeaderBarSetHasSubtitleMethodInfo , headerBarSetHasSubtitle , -- ** headerBarSetShowCloseButton + HeaderBarSetShowCloseButtonMethodInfo , headerBarSetShowCloseButton , -- ** headerBarSetSubtitle + HeaderBarSetSubtitleMethodInfo , headerBarSetSubtitle , -- ** headerBarSetTitle + HeaderBarSetTitleMethodInfo , headerBarSetTitle , @@ -172,6 +187,342 @@ noHeaderBar :: Maybe HeaderBar noHeaderBar = Nothing +type family ResolveHeaderBarMethod (t :: Symbol) (o :: *) :: * where + ResolveHeaderBarMethod "activate" o = WidgetActivateMethodInfo + ResolveHeaderBarMethod "add" o = ContainerAddMethodInfo + ResolveHeaderBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveHeaderBarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveHeaderBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveHeaderBarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveHeaderBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveHeaderBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveHeaderBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveHeaderBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveHeaderBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveHeaderBarMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveHeaderBarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveHeaderBarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveHeaderBarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveHeaderBarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveHeaderBarMethod "childType" o = ContainerChildTypeMethodInfo + ResolveHeaderBarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveHeaderBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveHeaderBarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveHeaderBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveHeaderBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveHeaderBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveHeaderBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveHeaderBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveHeaderBarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveHeaderBarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveHeaderBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveHeaderBarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveHeaderBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveHeaderBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveHeaderBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveHeaderBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveHeaderBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveHeaderBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveHeaderBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveHeaderBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveHeaderBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveHeaderBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveHeaderBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveHeaderBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveHeaderBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveHeaderBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveHeaderBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveHeaderBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveHeaderBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveHeaderBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveHeaderBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveHeaderBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveHeaderBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveHeaderBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveHeaderBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveHeaderBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveHeaderBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveHeaderBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveHeaderBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveHeaderBarMethod "draw" o = WidgetDrawMethodInfo + ResolveHeaderBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveHeaderBarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveHeaderBarMethod "event" o = WidgetEventMethodInfo + ResolveHeaderBarMethod "forall" o = ContainerForallMethodInfo + ResolveHeaderBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveHeaderBarMethod "foreach" o = ContainerForeachMethodInfo + ResolveHeaderBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveHeaderBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveHeaderBarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveHeaderBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveHeaderBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveHeaderBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveHeaderBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveHeaderBarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveHeaderBarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveHeaderBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveHeaderBarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveHeaderBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveHeaderBarMethod "hide" o = WidgetHideMethodInfo + ResolveHeaderBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveHeaderBarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveHeaderBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveHeaderBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveHeaderBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveHeaderBarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveHeaderBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveHeaderBarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveHeaderBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveHeaderBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveHeaderBarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveHeaderBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveHeaderBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveHeaderBarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveHeaderBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveHeaderBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveHeaderBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveHeaderBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveHeaderBarMethod "map" o = WidgetMapMethodInfo + ResolveHeaderBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveHeaderBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveHeaderBarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveHeaderBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveHeaderBarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveHeaderBarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveHeaderBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveHeaderBarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveHeaderBarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveHeaderBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveHeaderBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveHeaderBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveHeaderBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveHeaderBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveHeaderBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveHeaderBarMethod "packEnd" o = HeaderBarPackEndMethodInfo + ResolveHeaderBarMethod "packStart" o = HeaderBarPackStartMethodInfo + ResolveHeaderBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveHeaderBarMethod "path" o = WidgetPathMethodInfo + ResolveHeaderBarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveHeaderBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveHeaderBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveHeaderBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveHeaderBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveHeaderBarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveHeaderBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveHeaderBarMethod "realize" o = WidgetRealizeMethodInfo + ResolveHeaderBarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveHeaderBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveHeaderBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveHeaderBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveHeaderBarMethod "remove" o = ContainerRemoveMethodInfo + ResolveHeaderBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveHeaderBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveHeaderBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveHeaderBarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveHeaderBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveHeaderBarMethod "reparent" o = WidgetReparentMethodInfo + ResolveHeaderBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveHeaderBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveHeaderBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveHeaderBarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveHeaderBarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveHeaderBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveHeaderBarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveHeaderBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveHeaderBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveHeaderBarMethod "show" o = WidgetShowMethodInfo + ResolveHeaderBarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveHeaderBarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveHeaderBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveHeaderBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveHeaderBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveHeaderBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveHeaderBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveHeaderBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveHeaderBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveHeaderBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveHeaderBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveHeaderBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveHeaderBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveHeaderBarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveHeaderBarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveHeaderBarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveHeaderBarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveHeaderBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveHeaderBarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveHeaderBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveHeaderBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveHeaderBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveHeaderBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveHeaderBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveHeaderBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveHeaderBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveHeaderBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveHeaderBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveHeaderBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveHeaderBarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveHeaderBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveHeaderBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveHeaderBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveHeaderBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveHeaderBarMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveHeaderBarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveHeaderBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveHeaderBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveHeaderBarMethod "getCustomTitle" o = HeaderBarGetCustomTitleMethodInfo + ResolveHeaderBarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveHeaderBarMethod "getDecorationLayout" o = HeaderBarGetDecorationLayoutMethodInfo + ResolveHeaderBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveHeaderBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveHeaderBarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveHeaderBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveHeaderBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveHeaderBarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveHeaderBarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveHeaderBarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveHeaderBarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveHeaderBarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveHeaderBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveHeaderBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveHeaderBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveHeaderBarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveHeaderBarMethod "getHasSubtitle" o = HeaderBarGetHasSubtitleMethodInfo + ResolveHeaderBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveHeaderBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveHeaderBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveHeaderBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveHeaderBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveHeaderBarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveHeaderBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveHeaderBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveHeaderBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveHeaderBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveHeaderBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveHeaderBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveHeaderBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveHeaderBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveHeaderBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveHeaderBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveHeaderBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveHeaderBarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveHeaderBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveHeaderBarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveHeaderBarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveHeaderBarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveHeaderBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveHeaderBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveHeaderBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveHeaderBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveHeaderBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveHeaderBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveHeaderBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveHeaderBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveHeaderBarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveHeaderBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveHeaderBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveHeaderBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveHeaderBarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveHeaderBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveHeaderBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveHeaderBarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveHeaderBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveHeaderBarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveHeaderBarMethod "getShowCloseButton" o = HeaderBarGetShowCloseButtonMethodInfo + ResolveHeaderBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveHeaderBarMethod "getState" o = WidgetGetStateMethodInfo + ResolveHeaderBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveHeaderBarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveHeaderBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveHeaderBarMethod "getSubtitle" o = HeaderBarGetSubtitleMethodInfo + ResolveHeaderBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveHeaderBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveHeaderBarMethod "getTitle" o = HeaderBarGetTitleMethodInfo + ResolveHeaderBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveHeaderBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveHeaderBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveHeaderBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveHeaderBarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveHeaderBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveHeaderBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveHeaderBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveHeaderBarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveHeaderBarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveHeaderBarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveHeaderBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveHeaderBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveHeaderBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveHeaderBarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveHeaderBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveHeaderBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveHeaderBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveHeaderBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveHeaderBarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveHeaderBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveHeaderBarMethod "setCustomTitle" o = HeaderBarSetCustomTitleMethodInfo + ResolveHeaderBarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveHeaderBarMethod "setDecorationLayout" o = HeaderBarSetDecorationLayoutMethodInfo + ResolveHeaderBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveHeaderBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveHeaderBarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveHeaderBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveHeaderBarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveHeaderBarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveHeaderBarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveHeaderBarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveHeaderBarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveHeaderBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveHeaderBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveHeaderBarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveHeaderBarMethod "setHasSubtitle" o = HeaderBarSetHasSubtitleMethodInfo + ResolveHeaderBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveHeaderBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveHeaderBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveHeaderBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveHeaderBarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveHeaderBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveHeaderBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveHeaderBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveHeaderBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveHeaderBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveHeaderBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveHeaderBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveHeaderBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveHeaderBarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveHeaderBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveHeaderBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveHeaderBarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveHeaderBarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveHeaderBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveHeaderBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveHeaderBarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveHeaderBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveHeaderBarMethod "setShowCloseButton" o = HeaderBarSetShowCloseButtonMethodInfo + ResolveHeaderBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveHeaderBarMethod "setState" o = WidgetSetStateMethodInfo + ResolveHeaderBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveHeaderBarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveHeaderBarMethod "setSubtitle" o = HeaderBarSetSubtitleMethodInfo + ResolveHeaderBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveHeaderBarMethod "setTitle" o = HeaderBarSetTitleMethodInfo + ResolveHeaderBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveHeaderBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveHeaderBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveHeaderBarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveHeaderBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveHeaderBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveHeaderBarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveHeaderBarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveHeaderBarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveHeaderBarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveHeaderBarMethod t HeaderBar, MethodInfo info HeaderBar p) => IsLabelProxy t (HeaderBar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveHeaderBarMethod t HeaderBar, MethodInfo info HeaderBar p) => IsLabel t (HeaderBar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "custom-title" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] @@ -191,7 +542,7 @@ type AttrSetTypeConstraint HeaderBarCustomTitlePropertyInfo = WidgetK type AttrBaseTypeConstraint HeaderBarCustomTitlePropertyInfo = HeaderBarK type AttrGetType HeaderBarCustomTitlePropertyInfo = Widget - type AttrLabel HeaderBarCustomTitlePropertyInfo = "HeaderBar::custom-title" + type AttrLabel HeaderBarCustomTitlePropertyInfo = "custom-title" attrGet _ = getHeaderBarCustomTitle attrSet _ = setHeaderBarCustomTitle attrConstruct _ = constructHeaderBarCustomTitle @@ -215,7 +566,7 @@ type AttrSetTypeConstraint HeaderBarDecorationLayoutPropertyInfo = (~) T.Text type AttrBaseTypeConstraint HeaderBarDecorationLayoutPropertyInfo = HeaderBarK type AttrGetType HeaderBarDecorationLayoutPropertyInfo = T.Text - type AttrLabel HeaderBarDecorationLayoutPropertyInfo = "HeaderBar::decoration-layout" + type AttrLabel HeaderBarDecorationLayoutPropertyInfo = "decoration-layout" attrGet _ = getHeaderBarDecorationLayout attrSet _ = setHeaderBarDecorationLayout attrConstruct _ = constructHeaderBarDecorationLayout @@ -239,7 +590,7 @@ type AttrSetTypeConstraint HeaderBarDecorationLayoutSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint HeaderBarDecorationLayoutSetPropertyInfo = HeaderBarK type AttrGetType HeaderBarDecorationLayoutSetPropertyInfo = Bool - type AttrLabel HeaderBarDecorationLayoutSetPropertyInfo = "HeaderBar::decoration-layout-set" + type AttrLabel HeaderBarDecorationLayoutSetPropertyInfo = "decoration-layout-set" attrGet _ = getHeaderBarDecorationLayoutSet attrSet _ = setHeaderBarDecorationLayoutSet attrConstruct _ = constructHeaderBarDecorationLayoutSet @@ -263,7 +614,7 @@ type AttrSetTypeConstraint HeaderBarHasSubtitlePropertyInfo = (~) Bool type AttrBaseTypeConstraint HeaderBarHasSubtitlePropertyInfo = HeaderBarK type AttrGetType HeaderBarHasSubtitlePropertyInfo = Bool - type AttrLabel HeaderBarHasSubtitlePropertyInfo = "HeaderBar::has-subtitle" + type AttrLabel HeaderBarHasSubtitlePropertyInfo = "has-subtitle" attrGet _ = getHeaderBarHasSubtitle attrSet _ = setHeaderBarHasSubtitle attrConstruct _ = constructHeaderBarHasSubtitle @@ -287,7 +638,7 @@ type AttrSetTypeConstraint HeaderBarShowCloseButtonPropertyInfo = (~) Bool type AttrBaseTypeConstraint HeaderBarShowCloseButtonPropertyInfo = HeaderBarK type AttrGetType HeaderBarShowCloseButtonPropertyInfo = Bool - type AttrLabel HeaderBarShowCloseButtonPropertyInfo = "HeaderBar::show-close-button" + type AttrLabel HeaderBarShowCloseButtonPropertyInfo = "show-close-button" attrGet _ = getHeaderBarShowCloseButton attrSet _ = setHeaderBarShowCloseButton attrConstruct _ = constructHeaderBarShowCloseButton @@ -311,7 +662,7 @@ type AttrSetTypeConstraint HeaderBarSpacingPropertyInfo = (~) Int32 type AttrBaseTypeConstraint HeaderBarSpacingPropertyInfo = HeaderBarK type AttrGetType HeaderBarSpacingPropertyInfo = Int32 - type AttrLabel HeaderBarSpacingPropertyInfo = "HeaderBar::spacing" + type AttrLabel HeaderBarSpacingPropertyInfo = "spacing" attrGet _ = getHeaderBarSpacing attrSet _ = setHeaderBarSpacing attrConstruct _ = constructHeaderBarSpacing @@ -335,7 +686,7 @@ type AttrSetTypeConstraint HeaderBarSubtitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint HeaderBarSubtitlePropertyInfo = HeaderBarK type AttrGetType HeaderBarSubtitlePropertyInfo = T.Text - type AttrLabel HeaderBarSubtitlePropertyInfo = "HeaderBar::subtitle" + type AttrLabel HeaderBarSubtitlePropertyInfo = "subtitle" attrGet _ = getHeaderBarSubtitle attrSet _ = setHeaderBarSubtitle attrConstruct _ = constructHeaderBarSubtitle @@ -359,22 +710,21 @@ type AttrSetTypeConstraint HeaderBarTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint HeaderBarTitlePropertyInfo = HeaderBarK type AttrGetType HeaderBarTitlePropertyInfo = T.Text - type AttrLabel HeaderBarTitlePropertyInfo = "HeaderBar::title" + type AttrLabel HeaderBarTitlePropertyInfo = "title" attrGet _ = getHeaderBarTitle attrSet _ = setHeaderBarTitle attrConstruct _ = constructHeaderBarTitle type instance AttributeList HeaderBar = HeaderBarAttributeList -type HeaderBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("custom-title", HeaderBarCustomTitlePropertyInfo), '("decoration-layout", HeaderBarDecorationLayoutPropertyInfo), '("decoration-layout-set", HeaderBarDecorationLayoutSetPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-subtitle", HeaderBarHasSubtitlePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-close-button", HeaderBarShowCloseButtonPropertyInfo), '("spacing", HeaderBarSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", HeaderBarSubtitlePropertyInfo), '("title", HeaderBarTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type HeaderBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("customTitle", HeaderBarCustomTitlePropertyInfo), '("decorationLayout", HeaderBarDecorationLayoutPropertyInfo), '("decorationLayoutSet", HeaderBarDecorationLayoutSetPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasSubtitle", HeaderBarHasSubtitlePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showCloseButton", HeaderBarShowCloseButtonPropertyInfo), '("spacing", HeaderBarSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", HeaderBarSubtitlePropertyInfo), '("title", HeaderBarTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList HeaderBar = HeaderBarSignalList -type HeaderBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type HeaderBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method HeaderBar::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "HeaderBar" -- throws : False -- Skip return : False @@ -385,7 +735,7 @@ headerBarNew :: (MonadIO m) => - m HeaderBar + m HeaderBar -- result headerBarNew = liftIO $ do result <- gtk_header_bar_new checkUnexpectedReturnNULL "gtk_header_bar_new" result @@ -394,9 +744,8 @@ -- method HeaderBar::get_custom_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -408,8 +757,8 @@ headerBarGetCustomTitle :: (MonadIO m, HeaderBarK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result headerBarGetCustomTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_header_bar_get_custom_title _obj' @@ -418,11 +767,14 @@ touchManagedPtr _obj return result' +data HeaderBarGetCustomTitleMethodInfo +instance (signature ~ (m Widget), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarGetCustomTitleMethodInfo a signature where + overloadedMethod _ = headerBarGetCustomTitle + -- method HeaderBar::get_decoration_layout -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -434,8 +786,8 @@ headerBarGetDecorationLayout :: (MonadIO m, HeaderBarK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result headerBarGetDecorationLayout _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_header_bar_get_decoration_layout _obj' @@ -444,11 +796,14 @@ touchManagedPtr _obj return result' +data HeaderBarGetDecorationLayoutMethodInfo +instance (signature ~ (m T.Text), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarGetDecorationLayoutMethodInfo a signature where + overloadedMethod _ = headerBarGetDecorationLayout + -- method HeaderBar::get_has_subtitle -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -460,8 +815,8 @@ headerBarGetHasSubtitle :: (MonadIO m, HeaderBarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result headerBarGetHasSubtitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_header_bar_get_has_subtitle _obj' @@ -469,11 +824,14 @@ touchManagedPtr _obj return result' +data HeaderBarGetHasSubtitleMethodInfo +instance (signature ~ (m Bool), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarGetHasSubtitleMethodInfo a signature where + overloadedMethod _ = headerBarGetHasSubtitle + -- method HeaderBar::get_show_close_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -485,8 +843,8 @@ headerBarGetShowCloseButton :: (MonadIO m, HeaderBarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result headerBarGetShowCloseButton _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_header_bar_get_show_close_button _obj' @@ -494,11 +852,14 @@ touchManagedPtr _obj return result' +data HeaderBarGetShowCloseButtonMethodInfo +instance (signature ~ (m Bool), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarGetShowCloseButtonMethodInfo a signature where + overloadedMethod _ = headerBarGetShowCloseButton + -- method HeaderBar::get_subtitle -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -510,8 +871,8 @@ headerBarGetSubtitle :: (MonadIO m, HeaderBarK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result headerBarGetSubtitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_header_bar_get_subtitle _obj' @@ -520,11 +881,14 @@ touchManagedPtr _obj return result' +data HeaderBarGetSubtitleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarGetSubtitleMethodInfo a signature where + overloadedMethod _ = headerBarGetSubtitle + -- method HeaderBar::get_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -536,8 +900,8 @@ headerBarGetTitle :: (MonadIO m, HeaderBarK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result headerBarGetTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_header_bar_get_title _obj' @@ -546,11 +910,14 @@ touchManagedPtr _obj return result' +data HeaderBarGetTitleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarGetTitleMethodInfo a signature where + overloadedMethod _ = headerBarGetTitle + -- method HeaderBar::pack_end -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -563,9 +930,9 @@ headerBarPackEnd :: (MonadIO m, HeaderBarK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result headerBarPackEnd _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -574,11 +941,14 @@ touchManagedPtr child return () +data HeaderBarPackEndMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, HeaderBarK a, WidgetK b) => MethodInfo HeaderBarPackEndMethodInfo a signature where + overloadedMethod _ = headerBarPackEnd + -- method HeaderBar::pack_start -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -591,9 +961,9 @@ headerBarPackStart :: (MonadIO m, HeaderBarK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result headerBarPackStart _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -602,11 +972,14 @@ touchManagedPtr child return () +data HeaderBarPackStartMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, HeaderBarK a, WidgetK b) => MethodInfo HeaderBarPackStartMethodInfo a signature where + overloadedMethod _ = headerBarPackStart + -- method HeaderBar::set_custom_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -619,26 +992,29 @@ headerBarSetCustomTitle :: (MonadIO m, HeaderBarK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- title_widget - m () -headerBarSetCustomTitle _obj title_widget = liftIO $ do + a -- _obj + -> Maybe (b) -- titleWidget + -> m () -- result +headerBarSetCustomTitle _obj titleWidget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeTitle_widget <- case title_widget of + maybeTitleWidget <- case titleWidget of Nothing -> return nullPtr - Just jTitle_widget -> do - let jTitle_widget' = unsafeManagedPtrCastPtr jTitle_widget - return jTitle_widget' - gtk_header_bar_set_custom_title _obj' maybeTitle_widget + Just jTitleWidget -> do + let jTitleWidget' = unsafeManagedPtrCastPtr jTitleWidget + return jTitleWidget' + gtk_header_bar_set_custom_title _obj' maybeTitleWidget touchManagedPtr _obj - whenJust title_widget touchManagedPtr + whenJust titleWidget touchManagedPtr return () +data HeaderBarSetCustomTitleMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, HeaderBarK a, WidgetK b) => MethodInfo HeaderBarSetCustomTitleMethodInfo a signature where + overloadedMethod _ = headerBarSetCustomTitle + -- method HeaderBar::set_decoration_layout -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -651,9 +1027,9 @@ headerBarSetDecorationLayout :: (MonadIO m, HeaderBarK a) => - a -> -- _obj - Maybe (T.Text) -> -- layout - m () + a -- _obj + -> Maybe (T.Text) -- layout + -> m () -- result headerBarSetDecorationLayout _obj layout = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLayout <- case layout of @@ -666,11 +1042,14 @@ freeMem maybeLayout return () +data HeaderBarSetDecorationLayoutMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarSetDecorationLayoutMethodInfo a signature where + overloadedMethod _ = headerBarSetDecorationLayout + -- method HeaderBar::set_has_subtitle -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -683,9 +1062,9 @@ headerBarSetHasSubtitle :: (MonadIO m, HeaderBarK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result headerBarSetHasSubtitle _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -693,11 +1072,14 @@ touchManagedPtr _obj return () +data HeaderBarSetHasSubtitleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarSetHasSubtitleMethodInfo a signature where + overloadedMethod _ = headerBarSetHasSubtitle + -- method HeaderBar::set_show_close_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -710,9 +1092,9 @@ headerBarSetShowCloseButton :: (MonadIO m, HeaderBarK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result headerBarSetShowCloseButton _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -720,11 +1102,14 @@ touchManagedPtr _obj return () +data HeaderBarSetShowCloseButtonMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarSetShowCloseButtonMethodInfo a signature where + overloadedMethod _ = headerBarSetShowCloseButton + -- method HeaderBar::set_subtitle -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "subtitle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subtitle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "subtitle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -737,9 +1122,9 @@ headerBarSetSubtitle :: (MonadIO m, HeaderBarK a) => - a -> -- _obj - Maybe (T.Text) -> -- subtitle - m () + a -- _obj + -> Maybe (T.Text) -- subtitle + -> m () -- result headerBarSetSubtitle _obj subtitle = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeSubtitle <- case subtitle of @@ -752,11 +1137,14 @@ freeMem maybeSubtitle return () +data HeaderBarSetSubtitleMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarSetSubtitleMethodInfo a signature where + overloadedMethod _ = headerBarSetSubtitle + -- method HeaderBar::set_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -769,9 +1157,9 @@ headerBarSetTitle :: (MonadIO m, HeaderBarK a) => - a -> -- _obj - Maybe (T.Text) -> -- title - m () + a -- _obj + -> Maybe (T.Text) -- title + -> m () -- result headerBarSetTitle _obj title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeTitle <- case title of @@ -783,5 +1171,9 @@ touchManagedPtr _obj freeMem maybeTitle return () + +data HeaderBarSetTitleMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, HeaderBarK a) => MethodInfo HeaderBarSetTitleMethodInfo a signature where + overloadedMethod _ = headerBarSetTitle diff --git a/GI/Gtk/Objects/HeaderBar.hs-boot b/GI/Gtk/Objects/HeaderBar.hs-boot --- a/GI/Gtk/Objects/HeaderBar.hs-boot +++ b/GI/Gtk/Objects/HeaderBar.hs-boot @@ -19,3 +19,17 @@ data HeaderBarSpacingPropertyInfo data HeaderBarSubtitlePropertyInfo data HeaderBarTitlePropertyInfo +data HeaderBarGetCustomTitleMethodInfo +data HeaderBarGetDecorationLayoutMethodInfo +data HeaderBarGetHasSubtitleMethodInfo +data HeaderBarGetShowCloseButtonMethodInfo +data HeaderBarGetSubtitleMethodInfo +data HeaderBarGetTitleMethodInfo +data HeaderBarPackEndMethodInfo +data HeaderBarPackStartMethodInfo +data HeaderBarSetCustomTitleMethodInfo +data HeaderBarSetDecorationLayoutMethodInfo +data HeaderBarSetHasSubtitleMethodInfo +data HeaderBarSetShowCloseButtonMethodInfo +data HeaderBarSetSubtitleMethodInfo +data HeaderBarSetTitleMethodInfo diff --git a/GI/Gtk/Objects/IMContext.hs b/GI/Gtk/Objects/IMContext.hs --- a/GI/Gtk/Objects/IMContext.hs +++ b/GI/Gtk/Objects/IMContext.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,46 +18,57 @@ -- * Methods -- ** iMContextDeleteSurrounding + IMContextDeleteSurroundingMethodInfo , iMContextDeleteSurrounding , -- ** iMContextFilterKeypress + IMContextFilterKeypressMethodInfo , iMContextFilterKeypress , -- ** iMContextFocusIn + IMContextFocusInMethodInfo , iMContextFocusIn , -- ** iMContextFocusOut + IMContextFocusOutMethodInfo , iMContextFocusOut , -- ** iMContextGetPreeditString + IMContextGetPreeditStringMethodInfo , iMContextGetPreeditString , -- ** iMContextGetSurrounding + IMContextGetSurroundingMethodInfo , iMContextGetSurrounding , -- ** iMContextReset + IMContextResetMethodInfo , iMContextReset , -- ** iMContextSetClientWindow + IMContextSetClientWindowMethodInfo , iMContextSetClientWindow , -- ** iMContextSetCursorLocation + IMContextSetCursorLocationMethodInfo , iMContextSetCursorLocation , -- ** iMContextSetSurrounding + IMContextSetSurroundingMethodInfo , iMContextSetSurrounding , -- ** iMContextSetUsePreedit + IMContextSetUsePreeditMethodInfo , iMContextSetUsePreedit , @@ -190,6 +202,50 @@ noIMContext :: Maybe IMContext noIMContext = Nothing +type family ResolveIMContextMethod (t :: Symbol) (o :: *) :: * where + ResolveIMContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveIMContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveIMContextMethod "deleteSurrounding" o = IMContextDeleteSurroundingMethodInfo + ResolveIMContextMethod "filterKeypress" o = IMContextFilterKeypressMethodInfo + ResolveIMContextMethod "focusIn" o = IMContextFocusInMethodInfo + ResolveIMContextMethod "focusOut" o = IMContextFocusOutMethodInfo + ResolveIMContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveIMContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveIMContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveIMContextMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveIMContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveIMContextMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveIMContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveIMContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveIMContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveIMContextMethod "reset" o = IMContextResetMethodInfo + ResolveIMContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveIMContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveIMContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveIMContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveIMContextMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveIMContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveIMContextMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveIMContextMethod "getPreeditString" o = IMContextGetPreeditStringMethodInfo + ResolveIMContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveIMContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveIMContextMethod "getSurrounding" o = IMContextGetSurroundingMethodInfo + ResolveIMContextMethod "setClientWindow" o = IMContextSetClientWindowMethodInfo + ResolveIMContextMethod "setCursorLocation" o = IMContextSetCursorLocationMethodInfo + ResolveIMContextMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveIMContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveIMContextMethod "setSurrounding" o = IMContextSetSurroundingMethodInfo + ResolveIMContextMethod "setUsePreedit" o = IMContextSetUsePreeditMethodInfo + ResolveIMContextMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveIMContextMethod t IMContext, MethodInfo info IMContext p) => IsLabelProxy t (IMContext -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveIMContextMethod t IMContext, MethodInfo info IMContext p) => IsLabel t (IMContext -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal IMContext::commit type IMContextCommitCallback = T.Text -> @@ -262,8 +318,8 @@ Int32 -> Ptr () -> IO CInt -iMContextDeleteSurroundingCallbackWrapper _cb _ offset n_chars _ = do - result <- _cb offset n_chars +iMContextDeleteSurroundingCallbackWrapper _cb _ offset nChars _ = do + result <- _cb offset nChars let result' = (fromIntegral . fromEnum) result return result' @@ -451,7 +507,7 @@ type AttrSetTypeConstraint IMContextInputHintsPropertyInfo = (~) [InputHints] type AttrBaseTypeConstraint IMContextInputHintsPropertyInfo = IMContextK type AttrGetType IMContextInputHintsPropertyInfo = [InputHints] - type AttrLabel IMContextInputHintsPropertyInfo = "IMContext::input-hints" + type AttrLabel IMContextInputHintsPropertyInfo = "input-hints" attrGet _ = getIMContextInputHints attrSet _ = setIMContextInputHints attrConstruct _ = constructIMContextInputHints @@ -475,13 +531,13 @@ type AttrSetTypeConstraint IMContextInputPurposePropertyInfo = (~) InputPurpose type AttrBaseTypeConstraint IMContextInputPurposePropertyInfo = IMContextK type AttrGetType IMContextInputPurposePropertyInfo = InputPurpose - type AttrLabel IMContextInputPurposePropertyInfo = "IMContext::input-purpose" + type AttrLabel IMContextInputPurposePropertyInfo = "input-purpose" attrGet _ = getIMContextInputPurpose attrSet _ = setIMContextInputPurpose attrConstruct _ = constructIMContextInputPurpose type instance AttributeList IMContext = IMContextAttributeList -type IMContextAttributeList = ('[ '("input-hints", IMContextInputHintsPropertyInfo), '("input-purpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) +type IMContextAttributeList = ('[ '("inputHints", IMContextInputHintsPropertyInfo), '("inputPurpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) data IMContextCommitSignalInfo instance SignalInfo IMContextCommitSignalInfo where @@ -514,13 +570,12 @@ connectSignal _ = connectIMContextRetrieveSurrounding type instance SignalList IMContext = IMContextSignalList -type IMContextSignalList = ('[ '("commit", IMContextCommitSignalInfo), '("delete-surrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preedit-changed", IMContextPreeditChangedSignalInfo), '("preedit-end", IMContextPreeditEndSignalInfo), '("preedit-start", IMContextPreeditStartSignalInfo), '("retrieve-surrounding", IMContextRetrieveSurroundingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type IMContextSignalList = ('[ '("commit", IMContextCommitSignalInfo), '("deleteSurrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preeditChanged", IMContextPreeditChangedSignalInfo), '("preeditEnd", IMContextPreeditEndSignalInfo), '("preeditStart", IMContextPreeditStartSignalInfo), '("retrieveSurrounding", IMContextRetrieveSurroundingSignalInfo)] :: [(Symbol, *)]) -- method IMContext::delete_surrounding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -534,22 +589,25 @@ iMContextDeleteSurrounding :: (MonadIO m, IMContextK a) => - a -> -- _obj - Int32 -> -- offset - Int32 -> -- n_chars - m Bool -iMContextDeleteSurrounding _obj offset n_chars = liftIO $ do + a -- _obj + -> Int32 -- offset + -> Int32 -- nChars + -> m Bool -- result +iMContextDeleteSurrounding _obj offset nChars = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_im_context_delete_surrounding _obj' offset n_chars + result <- gtk_im_context_delete_surrounding _obj' offset nChars let result' = (/= 0) result touchManagedPtr _obj return result' +data IMContextDeleteSurroundingMethodInfo +instance (signature ~ (Int32 -> Int32 -> m Bool), MonadIO m, IMContextK a) => MethodInfo IMContextDeleteSurroundingMethodInfo a signature where + overloadedMethod _ = iMContextDeleteSurrounding + -- method IMContext::filter_keypress -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -562,9 +620,9 @@ iMContextFilterKeypress :: (MonadIO m, IMContextK a) => - a -> -- _obj - Gdk.EventKey -> -- event - m Bool + a -- _obj + -> Gdk.EventKey -- event + -> m Bool -- result iMContextFilterKeypress _obj event = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let event' = unsafeManagedPtrGetPtr event @@ -574,11 +632,14 @@ touchManagedPtr event return result' +data IMContextFilterKeypressMethodInfo +instance (signature ~ (Gdk.EventKey -> m Bool), MonadIO m, IMContextK a) => MethodInfo IMContextFilterKeypressMethodInfo a signature where + overloadedMethod _ = iMContextFilterKeypress + -- method IMContext::focus_in -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -590,19 +651,22 @@ iMContextFocusIn :: (MonadIO m, IMContextK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result iMContextFocusIn _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_im_context_focus_in _obj' touchManagedPtr _obj return () +data IMContextFocusInMethodInfo +instance (signature ~ (m ()), MonadIO m, IMContextK a) => MethodInfo IMContextFocusInMethodInfo a signature where + overloadedMethod _ = iMContextFocusIn + -- method IMContext::focus_out -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -614,19 +678,22 @@ iMContextFocusOut :: (MonadIO m, IMContextK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result iMContextFocusOut _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_im_context_focus_out _obj' touchManagedPtr _obj return () +data IMContextFocusOutMethodInfo +instance (signature ~ (m ()), MonadIO m, IMContextK a) => MethodInfo IMContextFocusOutMethodInfo a signature where + overloadedMethod _ = iMContextFocusOut + -- method IMContext::get_preedit_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cursor_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cursor_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -641,31 +708,34 @@ iMContextGetPreeditString :: (MonadIO m, IMContextK a) => - a -> -- _obj - m (T.Text,Pango.AttrList,Int32) + a -- _obj + -> m (T.Text,Pango.AttrList,Int32) -- result iMContextGetPreeditString _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj str <- allocMem :: IO (Ptr CString) attrs <- allocMem :: IO (Ptr (Ptr Pango.AttrList)) - cursor_pos <- allocMem :: IO (Ptr Int32) - gtk_im_context_get_preedit_string _obj' str attrs cursor_pos + cursorPos <- allocMem :: IO (Ptr Int32) + gtk_im_context_get_preedit_string _obj' str attrs cursorPos str' <- peek str str'' <- cstringToText str' freeMem str' attrs' <- peek attrs attrs'' <- (wrapBoxed Pango.AttrList) attrs' - cursor_pos' <- peek cursor_pos + cursorPos' <- peek cursorPos touchManagedPtr _obj freeMem str freeMem attrs - freeMem cursor_pos - return (str'', attrs'', cursor_pos') + freeMem cursorPos + return (str'', attrs'', cursorPos') +data IMContextGetPreeditStringMethodInfo +instance (signature ~ (m (T.Text,Pango.AttrList,Int32)), MonadIO m, IMContextK a) => MethodInfo IMContextGetPreeditStringMethodInfo a signature where + overloadedMethod _ = iMContextGetPreeditString + -- method IMContext::get_surrounding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cursor_index", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cursor_index", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -679,28 +749,31 @@ iMContextGetSurrounding :: (MonadIO m, IMContextK a) => - a -> -- _obj - m (Bool,T.Text,Int32) + a -- _obj + -> m (Bool,T.Text,Int32) -- result iMContextGetSurrounding _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text <- allocMem :: IO (Ptr CString) - cursor_index <- allocMem :: IO (Ptr Int32) - result <- gtk_im_context_get_surrounding _obj' text cursor_index + cursorIndex <- allocMem :: IO (Ptr Int32) + result <- gtk_im_context_get_surrounding _obj' text cursorIndex let result' = (/= 0) result text' <- peek text text'' <- cstringToText text' freeMem text' - cursor_index' <- peek cursor_index + cursorIndex' <- peek cursorIndex touchManagedPtr _obj freeMem text - freeMem cursor_index - return (result', text'', cursor_index') + freeMem cursorIndex + return (result', text'', cursorIndex') +data IMContextGetSurroundingMethodInfo +instance (signature ~ (m (Bool,T.Text,Int32)), MonadIO m, IMContextK a) => MethodInfo IMContextGetSurroundingMethodInfo a signature where + overloadedMethod _ = iMContextGetSurrounding + -- method IMContext::reset -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -712,19 +785,22 @@ iMContextReset :: (MonadIO m, IMContextK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result iMContextReset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_im_context_reset _obj' touchManagedPtr _obj return () +data IMContextResetMethodInfo +instance (signature ~ (m ()), MonadIO m, IMContextK a) => MethodInfo IMContextResetMethodInfo a signature where + overloadedMethod _ = iMContextReset + -- method IMContext::set_client_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -737,9 +813,9 @@ iMContextSetClientWindow :: (MonadIO m, IMContextK a, Gdk.WindowK b) => - a -> -- _obj - Maybe (b) -> -- window - m () + a -- _obj + -> Maybe (b) -- window + -> m () -- result iMContextSetClientWindow _obj window = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeWindow <- case window of @@ -752,11 +828,14 @@ whenJust window touchManagedPtr return () +data IMContextSetClientWindowMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IMContextK a, Gdk.WindowK b) => MethodInfo IMContextSetClientWindowMethodInfo a signature where + overloadedMethod _ = iMContextSetClientWindow + -- method IMContext::set_cursor_location -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -769,9 +848,9 @@ iMContextSetCursorLocation :: (MonadIO m, IMContextK a) => - a -> -- _obj - Gdk.Rectangle -> -- area - m () + a -- _obj + -> Gdk.Rectangle -- area + -> m () -- result iMContextSetCursorLocation _obj area = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let area' = unsafeManagedPtrGetPtr area @@ -780,11 +859,14 @@ touchManagedPtr area return () +data IMContextSetCursorLocationMethodInfo +instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, IMContextK a) => MethodInfo IMContextSetCursorLocationMethodInfo a signature where + overloadedMethod _ = iMContextSetCursorLocation + -- method IMContext::set_surrounding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -799,24 +881,27 @@ iMContextSetSurrounding :: (MonadIO m, IMContextK a) => - a -> -- _obj - T.Text -> -- text - Int32 -> -- len - Int32 -> -- cursor_index - m () -iMContextSetSurrounding _obj text len cursor_index = liftIO $ do + a -- _obj + -> T.Text -- text + -> Int32 -- len + -> Int32 -- cursorIndex + -> m () -- result +iMContextSetSurrounding _obj text len cursorIndex = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text - gtk_im_context_set_surrounding _obj' text' len cursor_index + gtk_im_context_set_surrounding _obj' text' len cursorIndex touchManagedPtr _obj freeMem text' return () +data IMContextSetSurroundingMethodInfo +instance (signature ~ (T.Text -> Int32 -> Int32 -> m ()), MonadIO m, IMContextK a) => MethodInfo IMContextSetSurroundingMethodInfo a signature where + overloadedMethod _ = iMContextSetSurrounding + -- method IMContext::set_use_preedit -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_preedit", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_preedit", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_preedit", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -829,14 +914,18 @@ iMContextSetUsePreedit :: (MonadIO m, IMContextK a) => - a -> -- _obj - Bool -> -- use_preedit - m () -iMContextSetUsePreedit _obj use_preedit = liftIO $ do + a -- _obj + -> Bool -- usePreedit + -> m () -- result +iMContextSetUsePreedit _obj usePreedit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_preedit' = (fromIntegral . fromEnum) use_preedit - gtk_im_context_set_use_preedit _obj' use_preedit' + let usePreedit' = (fromIntegral . fromEnum) usePreedit + gtk_im_context_set_use_preedit _obj' usePreedit' touchManagedPtr _obj return () + +data IMContextSetUsePreeditMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IMContextK a) => MethodInfo IMContextSetUsePreeditMethodInfo a signature where + overloadedMethod _ = iMContextSetUsePreedit diff --git a/GI/Gtk/Objects/IMContext.hs-boot b/GI/Gtk/Objects/IMContext.hs-boot --- a/GI/Gtk/Objects/IMContext.hs-boot +++ b/GI/Gtk/Objects/IMContext.hs-boot @@ -19,3 +19,14 @@ data IMContextPreeditEndSignalInfo data IMContextPreeditStartSignalInfo data IMContextRetrieveSurroundingSignalInfo +data IMContextDeleteSurroundingMethodInfo +data IMContextFilterKeypressMethodInfo +data IMContextFocusInMethodInfo +data IMContextFocusOutMethodInfo +data IMContextGetPreeditStringMethodInfo +data IMContextGetSurroundingMethodInfo +data IMContextResetMethodInfo +data IMContextSetClientWindowMethodInfo +data IMContextSetCursorLocationMethodInfo +data IMContextSetSurroundingMethodInfo +data IMContextSetUsePreeditMethodInfo diff --git a/GI/Gtk/Objects/IMContextSimple.hs b/GI/Gtk/Objects/IMContextSimple.hs --- a/GI/Gtk/Objects/IMContextSimple.hs +++ b/GI/Gtk/Objects/IMContextSimple.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -56,17 +57,60 @@ noIMContextSimple :: Maybe IMContextSimple noIMContextSimple = Nothing +type family ResolveIMContextSimpleMethod (t :: Symbol) (o :: *) :: * where + ResolveIMContextSimpleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveIMContextSimpleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveIMContextSimpleMethod "deleteSurrounding" o = IMContextDeleteSurroundingMethodInfo + ResolveIMContextSimpleMethod "filterKeypress" o = IMContextFilterKeypressMethodInfo + ResolveIMContextSimpleMethod "focusIn" o = IMContextFocusInMethodInfo + ResolveIMContextSimpleMethod "focusOut" o = IMContextFocusOutMethodInfo + ResolveIMContextSimpleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveIMContextSimpleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveIMContextSimpleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveIMContextSimpleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveIMContextSimpleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveIMContextSimpleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveIMContextSimpleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveIMContextSimpleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveIMContextSimpleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveIMContextSimpleMethod "reset" o = IMContextResetMethodInfo + ResolveIMContextSimpleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveIMContextSimpleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveIMContextSimpleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveIMContextSimpleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveIMContextSimpleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveIMContextSimpleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveIMContextSimpleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveIMContextSimpleMethod "getPreeditString" o = IMContextGetPreeditStringMethodInfo + ResolveIMContextSimpleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveIMContextSimpleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveIMContextSimpleMethod "getSurrounding" o = IMContextGetSurroundingMethodInfo + ResolveIMContextSimpleMethod "setClientWindow" o = IMContextSetClientWindowMethodInfo + ResolveIMContextSimpleMethod "setCursorLocation" o = IMContextSetCursorLocationMethodInfo + ResolveIMContextSimpleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveIMContextSimpleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveIMContextSimpleMethod "setSurrounding" o = IMContextSetSurroundingMethodInfo + ResolveIMContextSimpleMethod "setUsePreedit" o = IMContextSetUsePreeditMethodInfo + ResolveIMContextSimpleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveIMContextSimpleMethod t IMContextSimple, MethodInfo info IMContextSimple p) => IsLabelProxy t (IMContextSimple -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveIMContextSimpleMethod t IMContextSimple, MethodInfo info IMContextSimple p) => IsLabel t (IMContextSimple -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList IMContextSimple = IMContextSimpleAttributeList -type IMContextSimpleAttributeList = ('[ '("input-hints", IMContextInputHintsPropertyInfo), '("input-purpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) +type IMContextSimpleAttributeList = ('[ '("inputHints", IMContextInputHintsPropertyInfo), '("inputPurpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) type instance SignalList IMContextSimple = IMContextSimpleSignalList -type IMContextSimpleSignalList = ('[ '("commit", IMContextCommitSignalInfo), '("delete-surrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preedit-changed", IMContextPreeditChangedSignalInfo), '("preedit-end", IMContextPreeditEndSignalInfo), '("preedit-start", IMContextPreeditStartSignalInfo), '("retrieve-surrounding", IMContextRetrieveSurroundingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type IMContextSimpleSignalList = ('[ '("commit", IMContextCommitSignalInfo), '("deleteSurrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preeditChanged", IMContextPreeditChangedSignalInfo), '("preeditEnd", IMContextPreeditEndSignalInfo), '("preeditStart", IMContextPreeditStartSignalInfo), '("retrieveSurrounding", IMContextRetrieveSurroundingSignalInfo)] :: [(Symbol, *)]) -- method IMContextSimple::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "IMContextSimple" -- throws : False -- Skip return : False @@ -77,7 +121,7 @@ iMContextSimpleNew :: (MonadIO m) => - m IMContextSimple + m IMContextSimple -- result iMContextSimpleNew = liftIO $ do result <- gtk_im_context_simple_new checkUnexpectedReturnNULL "gtk_im_context_simple_new" result diff --git a/GI/Gtk/Objects/IMMulticontext.hs b/GI/Gtk/Objects/IMMulticontext.hs --- a/GI/Gtk/Objects/IMMulticontext.hs +++ b/GI/Gtk/Objects/IMMulticontext.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** iMMulticontextAppendMenuitems + IMMulticontextAppendMenuitemsMethodInfo , iMMulticontextAppendMenuitems , -- ** iMMulticontextGetContextId + IMMulticontextGetContextIdMethodInfo , iMMulticontextGetContextId , @@ -29,6 +32,7 @@ -- ** iMMulticontextSetContextId + IMMulticontextSetContextIdMethodInfo , iMMulticontextSetContextId , @@ -68,17 +72,63 @@ noIMMulticontext :: Maybe IMMulticontext noIMMulticontext = Nothing +type family ResolveIMMulticontextMethod (t :: Symbol) (o :: *) :: * where + ResolveIMMulticontextMethod "appendMenuitems" o = IMMulticontextAppendMenuitemsMethodInfo + ResolveIMMulticontextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveIMMulticontextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveIMMulticontextMethod "deleteSurrounding" o = IMContextDeleteSurroundingMethodInfo + ResolveIMMulticontextMethod "filterKeypress" o = IMContextFilterKeypressMethodInfo + ResolveIMMulticontextMethod "focusIn" o = IMContextFocusInMethodInfo + ResolveIMMulticontextMethod "focusOut" o = IMContextFocusOutMethodInfo + ResolveIMMulticontextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveIMMulticontextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveIMMulticontextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveIMMulticontextMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveIMMulticontextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveIMMulticontextMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveIMMulticontextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveIMMulticontextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveIMMulticontextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveIMMulticontextMethod "reset" o = IMContextResetMethodInfo + ResolveIMMulticontextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveIMMulticontextMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveIMMulticontextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveIMMulticontextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveIMMulticontextMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveIMMulticontextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveIMMulticontextMethod "getContextId" o = IMMulticontextGetContextIdMethodInfo + ResolveIMMulticontextMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveIMMulticontextMethod "getPreeditString" o = IMContextGetPreeditStringMethodInfo + ResolveIMMulticontextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveIMMulticontextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveIMMulticontextMethod "getSurrounding" o = IMContextGetSurroundingMethodInfo + ResolveIMMulticontextMethod "setClientWindow" o = IMContextSetClientWindowMethodInfo + ResolveIMMulticontextMethod "setContextId" o = IMMulticontextSetContextIdMethodInfo + ResolveIMMulticontextMethod "setCursorLocation" o = IMContextSetCursorLocationMethodInfo + ResolveIMMulticontextMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveIMMulticontextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveIMMulticontextMethod "setSurrounding" o = IMContextSetSurroundingMethodInfo + ResolveIMMulticontextMethod "setUsePreedit" o = IMContextSetUsePreeditMethodInfo + ResolveIMMulticontextMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveIMMulticontextMethod t IMMulticontext, MethodInfo info IMMulticontext p) => IsLabelProxy t (IMMulticontext -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveIMMulticontextMethod t IMMulticontext, MethodInfo info IMMulticontext p) => IsLabel t (IMMulticontext -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList IMMulticontext = IMMulticontextAttributeList -type IMMulticontextAttributeList = ('[ '("input-hints", IMContextInputHintsPropertyInfo), '("input-purpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) +type IMMulticontextAttributeList = ('[ '("inputHints", IMContextInputHintsPropertyInfo), '("inputPurpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) type instance SignalList IMMulticontext = IMMulticontextSignalList -type IMMulticontextSignalList = ('[ '("commit", IMContextCommitSignalInfo), '("delete-surrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preedit-changed", IMContextPreeditChangedSignalInfo), '("preedit-end", IMContextPreeditEndSignalInfo), '("preedit-start", IMContextPreeditStartSignalInfo), '("retrieve-surrounding", IMContextRetrieveSurroundingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type IMMulticontextSignalList = ('[ '("commit", IMContextCommitSignalInfo), '("deleteSurrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preeditChanged", IMContextPreeditChangedSignalInfo), '("preeditEnd", IMContextPreeditEndSignalInfo), '("preeditStart", IMContextPreeditStartSignalInfo), '("retrieveSurrounding", IMContextRetrieveSurroundingSignalInfo)] :: [(Symbol, *)]) -- method IMMulticontext::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "IMMulticontext" -- throws : False -- Skip return : False @@ -89,7 +139,7 @@ iMMulticontextNew :: (MonadIO m) => - m IMMulticontext + m IMMulticontext -- result iMMulticontextNew = liftIO $ do result <- gtk_im_multicontext_new checkUnexpectedReturnNULL "gtk_im_multicontext_new" result @@ -98,9 +148,8 @@ -- method IMMulticontext::append_menuitems -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menushell", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menushell", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menushell", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -113,9 +162,9 @@ {-# DEPRECATED iMMulticontextAppendMenuitems ["(Since version 3.10)","It is better to use the system-wide input"," method framework for changing input methods. Modern"," desktop shells offer on-screen displays for this that"," can triggered with a keyboard shortcut, e.g. Super-Space."]#-} iMMulticontextAppendMenuitems :: (MonadIO m, IMMulticontextK a, MenuShellK b) => - a -> -- _obj - b -> -- menushell - m () + a -- _obj + -> b -- menushell + -> m () -- result iMMulticontextAppendMenuitems _obj menushell = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let menushell' = unsafeManagedPtrCastPtr menushell @@ -124,11 +173,14 @@ touchManagedPtr menushell return () +data IMMulticontextAppendMenuitemsMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IMMulticontextK a, MenuShellK b) => MethodInfo IMMulticontextAppendMenuitemsMethodInfo a signature where + overloadedMethod _ = iMMulticontextAppendMenuitems + -- method IMMulticontext::get_context_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -140,8 +192,8 @@ iMMulticontextGetContextId :: (MonadIO m, IMMulticontextK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result iMMulticontextGetContextId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_im_multicontext_get_context_id _obj' @@ -150,11 +202,14 @@ touchManagedPtr _obj return result' +data IMMulticontextGetContextIdMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IMMulticontextK a) => MethodInfo IMMulticontextGetContextIdMethodInfo a signature where + overloadedMethod _ = iMMulticontextGetContextId + -- method IMMulticontext::set_context_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -167,15 +222,19 @@ iMMulticontextSetContextId :: (MonadIO m, IMMulticontextK a) => - a -> -- _obj - T.Text -> -- context_id - m () -iMMulticontextSetContextId _obj context_id = liftIO $ do + a -- _obj + -> T.Text -- contextId + -> m () -- result +iMMulticontextSetContextId _obj contextId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - context_id' <- textToCString context_id - gtk_im_multicontext_set_context_id _obj' context_id' + contextId' <- textToCString contextId + gtk_im_multicontext_set_context_id _obj' contextId' touchManagedPtr _obj - freeMem context_id' + freeMem contextId' return () + +data IMMulticontextSetContextIdMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IMMulticontextK a) => MethodInfo IMMulticontextSetContextIdMethodInfo a signature where + overloadedMethod _ = iMMulticontextSetContextId diff --git a/GI/Gtk/Objects/IMMulticontext.hs-boot b/GI/Gtk/Objects/IMMulticontext.hs-boot --- a/GI/Gtk/Objects/IMMulticontext.hs-boot +++ b/GI/Gtk/Objects/IMMulticontext.hs-boot @@ -11,3 +11,6 @@ instance GObject IMMulticontext where class GObject o => IMMulticontextK o instance (GObject o, IsDescendantOf IMMulticontext o) => IMMulticontextK o +data IMMulticontextAppendMenuitemsMethodInfo +data IMMulticontextGetContextIdMethodInfo +data IMMulticontextSetContextIdMethodInfo diff --git a/GI/Gtk/Objects/IconFactory.hs b/GI/Gtk/Objects/IconFactory.hs --- a/GI/Gtk/Objects/IconFactory.hs +++ b/GI/Gtk/Objects/IconFactory.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** iconFactoryAdd + IconFactoryAddMethodInfo , iconFactoryAdd , -- ** iconFactoryAddDefault + IconFactoryAddDefaultMethodInfo , iconFactoryAddDefault , -- ** iconFactoryLookup + IconFactoryLookupMethodInfo , iconFactoryLookup , @@ -37,6 +41,7 @@ -- ** iconFactoryRemoveDefault + IconFactoryRemoveDefaultMethodInfo , iconFactoryRemoveDefault , @@ -76,17 +81,63 @@ noIconFactory :: Maybe IconFactory noIconFactory = Nothing +type family ResolveIconFactoryMethod (t :: Symbol) (o :: *) :: * where + ResolveIconFactoryMethod "add" o = IconFactoryAddMethodInfo + ResolveIconFactoryMethod "addChild" o = BuildableAddChildMethodInfo + ResolveIconFactoryMethod "addDefault" o = IconFactoryAddDefaultMethodInfo + ResolveIconFactoryMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveIconFactoryMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveIconFactoryMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveIconFactoryMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveIconFactoryMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveIconFactoryMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveIconFactoryMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveIconFactoryMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveIconFactoryMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveIconFactoryMethod "lookup" o = IconFactoryLookupMethodInfo + ResolveIconFactoryMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveIconFactoryMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveIconFactoryMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveIconFactoryMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveIconFactoryMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveIconFactoryMethod "removeDefault" o = IconFactoryRemoveDefaultMethodInfo + ResolveIconFactoryMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveIconFactoryMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveIconFactoryMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveIconFactoryMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveIconFactoryMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveIconFactoryMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveIconFactoryMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveIconFactoryMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveIconFactoryMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveIconFactoryMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveIconFactoryMethod "getName" o = BuildableGetNameMethodInfo + ResolveIconFactoryMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveIconFactoryMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveIconFactoryMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveIconFactoryMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveIconFactoryMethod "setName" o = BuildableSetNameMethodInfo + ResolveIconFactoryMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveIconFactoryMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveIconFactoryMethod t IconFactory, MethodInfo info IconFactory p) => IsLabelProxy t (IconFactory -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveIconFactoryMethod t IconFactory, MethodInfo info IconFactory p) => IsLabel t (IconFactory -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList IconFactory = IconFactoryAttributeList type IconFactoryAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList IconFactory = IconFactorySignalList -type IconFactorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type IconFactorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method IconFactory::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "IconFactory" -- throws : False -- Skip return : False @@ -97,7 +148,7 @@ {-# DEPRECATED iconFactoryNew ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconFactoryNew :: (MonadIO m) => - m IconFactory + m IconFactory -- result iconFactoryNew = liftIO $ do result <- gtk_icon_factory_new checkUnexpectedReturnNULL "gtk_icon_factory_new" result @@ -106,9 +157,8 @@ -- method IconFactory::add -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -122,25 +172,28 @@ {-# DEPRECATED iconFactoryAdd ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconFactoryAdd :: (MonadIO m, IconFactoryK a) => - a -> -- _obj - T.Text -> -- stock_id - IconSet -> -- icon_set - m () -iconFactoryAdd _obj stock_id icon_set = liftIO $ do + a -- _obj + -> T.Text -- stockId + -> IconSet -- iconSet + -> m () -- result +iconFactoryAdd _obj stockId iconSet = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - let icon_set' = unsafeManagedPtrGetPtr icon_set - gtk_icon_factory_add _obj' stock_id' icon_set' + stockId' <- textToCString stockId + let iconSet' = unsafeManagedPtrGetPtr iconSet + gtk_icon_factory_add _obj' stockId' iconSet' touchManagedPtr _obj - touchManagedPtr icon_set - freeMem stock_id' + touchManagedPtr iconSet + freeMem stockId' return () +data IconFactoryAddMethodInfo +instance (signature ~ (T.Text -> IconSet -> m ()), MonadIO m, IconFactoryK a) => MethodInfo IconFactoryAddMethodInfo a signature where + overloadedMethod _ = iconFactoryAdd + -- method IconFactory::add_default -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -152,19 +205,22 @@ {-# DEPRECATED iconFactoryAddDefault ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconFactoryAddDefault :: (MonadIO m, IconFactoryK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result iconFactoryAddDefault _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_icon_factory_add_default _obj' touchManagedPtr _obj return () +data IconFactoryAddDefaultMethodInfo +instance (signature ~ (m ()), MonadIO m, IconFactoryK a) => MethodInfo IconFactoryAddDefaultMethodInfo a signature where + overloadedMethod _ = iconFactoryAddDefault + -- method IconFactory::lookup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconSet" -- throws : False -- Skip return : False @@ -177,24 +233,27 @@ {-# DEPRECATED iconFactoryLookup ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconFactoryLookup :: (MonadIO m, IconFactoryK a) => - a -> -- _obj - T.Text -> -- stock_id - m IconSet -iconFactoryLookup _obj stock_id = liftIO $ do + a -- _obj + -> T.Text -- stockId + -> m IconSet -- result +iconFactoryLookup _obj stockId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - result <- gtk_icon_factory_lookup _obj' stock_id' + stockId' <- textToCString stockId + result <- gtk_icon_factory_lookup _obj' stockId' checkUnexpectedReturnNULL "gtk_icon_factory_lookup" result result' <- (newBoxed IconSet) result touchManagedPtr _obj - freeMem stock_id' + freeMem stockId' return result' +data IconFactoryLookupMethodInfo +instance (signature ~ (T.Text -> m IconSet), MonadIO m, IconFactoryK a) => MethodInfo IconFactoryLookupMethodInfo a signature where + overloadedMethod _ = iconFactoryLookup + -- method IconFactory::remove_default -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -206,19 +265,22 @@ {-# DEPRECATED iconFactoryRemoveDefault ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconFactoryRemoveDefault :: (MonadIO m, IconFactoryK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result iconFactoryRemoveDefault _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_icon_factory_remove_default _obj' touchManagedPtr _obj return () +data IconFactoryRemoveDefaultMethodInfo +instance (signature ~ (m ()), MonadIO m, IconFactoryK a) => MethodInfo IconFactoryRemoveDefaultMethodInfo a signature where + overloadedMethod _ = iconFactoryRemoveDefault + -- method IconFactory::lookup_default -- method type : MemberFunction --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconSet" -- throws : False -- Skip return : False @@ -230,14 +292,14 @@ {-# DEPRECATED iconFactoryLookupDefault ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconFactoryLookupDefault :: (MonadIO m) => - T.Text -> -- stock_id - m IconSet -iconFactoryLookupDefault stock_id = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_icon_factory_lookup_default stock_id' + T.Text -- stockId + -> m IconSet -- result +iconFactoryLookupDefault stockId = liftIO $ do + stockId' <- textToCString stockId + result <- gtk_icon_factory_lookup_default stockId' checkUnexpectedReturnNULL "gtk_icon_factory_lookup_default" result result' <- (newBoxed IconSet) result - freeMem stock_id' + freeMem stockId' return result' diff --git a/GI/Gtk/Objects/IconFactory.hs-boot b/GI/Gtk/Objects/IconFactory.hs-boot --- a/GI/Gtk/Objects/IconFactory.hs-boot +++ b/GI/Gtk/Objects/IconFactory.hs-boot @@ -11,3 +11,7 @@ instance GObject IconFactory where class GObject o => IconFactoryK o instance (GObject o, IsDescendantOf IconFactory o) => IconFactoryK o +data IconFactoryAddMethodInfo +data IconFactoryAddDefaultMethodInfo +data IconFactoryLookupMethodInfo +data IconFactoryRemoveDefaultMethodInfo diff --git a/GI/Gtk/Objects/IconInfo.hs b/GI/Gtk/Objects/IconInfo.hs --- a/GI/Gtk/Objects/IconInfo.hs +++ b/GI/Gtk/Objects/IconInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,78 +18,97 @@ -- * Methods -- ** iconInfoGetAttachPoints + IconInfoGetAttachPointsMethodInfo , iconInfoGetAttachPoints , -- ** iconInfoGetBaseScale + IconInfoGetBaseScaleMethodInfo , iconInfoGetBaseScale , -- ** iconInfoGetBaseSize + IconInfoGetBaseSizeMethodInfo , iconInfoGetBaseSize , -- ** iconInfoGetBuiltinPixbuf + IconInfoGetBuiltinPixbufMethodInfo , iconInfoGetBuiltinPixbuf , -- ** iconInfoGetDisplayName + IconInfoGetDisplayNameMethodInfo , iconInfoGetDisplayName , -- ** iconInfoGetEmbeddedRect + IconInfoGetEmbeddedRectMethodInfo , iconInfoGetEmbeddedRect , -- ** iconInfoGetFilename + IconInfoGetFilenameMethodInfo , iconInfoGetFilename , -- ** iconInfoIsSymbolic + IconInfoIsSymbolicMethodInfo , iconInfoIsSymbolic , -- ** iconInfoLoadIcon + IconInfoLoadIconMethodInfo , iconInfoLoadIcon , -- ** iconInfoLoadIconAsync + IconInfoLoadIconAsyncMethodInfo , iconInfoLoadIconAsync , -- ** iconInfoLoadIconFinish + IconInfoLoadIconFinishMethodInfo , iconInfoLoadIconFinish , -- ** iconInfoLoadSurface + IconInfoLoadSurfaceMethodInfo , iconInfoLoadSurface , -- ** iconInfoLoadSymbolic + IconInfoLoadSymbolicMethodInfo , iconInfoLoadSymbolic , -- ** iconInfoLoadSymbolicAsync + IconInfoLoadSymbolicAsyncMethodInfo , iconInfoLoadSymbolicAsync , -- ** iconInfoLoadSymbolicFinish + IconInfoLoadSymbolicFinishMethodInfo , iconInfoLoadSymbolicFinish , -- ** iconInfoLoadSymbolicForContext + IconInfoLoadSymbolicForContextMethodInfo, iconInfoLoadSymbolicForContext , -- ** iconInfoLoadSymbolicForContextAsync + IconInfoLoadSymbolicForContextAsyncMethodInfo, iconInfoLoadSymbolicForContextAsync , -- ** iconInfoLoadSymbolicForContextFinish + IconInfoLoadSymbolicForContextFinishMethodInfo, iconInfoLoadSymbolicForContextFinish , -- ** iconInfoLoadSymbolicForStyle + IconInfoLoadSymbolicForStyleMethodInfo , iconInfoLoadSymbolicForStyle , @@ -97,6 +117,7 @@ -- ** iconInfoSetRawCoordinates + IconInfoSetRawCoordinatesMethodInfo , iconInfoSetRawCoordinates , @@ -140,17 +161,69 @@ noIconInfo :: Maybe IconInfo noIconInfo = Nothing +type family ResolveIconInfoMethod (t :: Symbol) (o :: *) :: * where + ResolveIconInfoMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveIconInfoMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveIconInfoMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveIconInfoMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveIconInfoMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveIconInfoMethod "isSymbolic" o = IconInfoIsSymbolicMethodInfo + ResolveIconInfoMethod "loadIcon" o = IconInfoLoadIconMethodInfo + ResolveIconInfoMethod "loadIconAsync" o = IconInfoLoadIconAsyncMethodInfo + ResolveIconInfoMethod "loadIconFinish" o = IconInfoLoadIconFinishMethodInfo + ResolveIconInfoMethod "loadSurface" o = IconInfoLoadSurfaceMethodInfo + ResolveIconInfoMethod "loadSymbolic" o = IconInfoLoadSymbolicMethodInfo + ResolveIconInfoMethod "loadSymbolicAsync" o = IconInfoLoadSymbolicAsyncMethodInfo + ResolveIconInfoMethod "loadSymbolicFinish" o = IconInfoLoadSymbolicFinishMethodInfo + ResolveIconInfoMethod "loadSymbolicForContext" o = IconInfoLoadSymbolicForContextMethodInfo + ResolveIconInfoMethod "loadSymbolicForContextAsync" o = IconInfoLoadSymbolicForContextAsyncMethodInfo + ResolveIconInfoMethod "loadSymbolicForContextFinish" o = IconInfoLoadSymbolicForContextFinishMethodInfo + ResolveIconInfoMethod "loadSymbolicForStyle" o = IconInfoLoadSymbolicForStyleMethodInfo + ResolveIconInfoMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveIconInfoMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveIconInfoMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveIconInfoMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveIconInfoMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveIconInfoMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveIconInfoMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveIconInfoMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveIconInfoMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveIconInfoMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveIconInfoMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveIconInfoMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveIconInfoMethod "getAttachPoints" o = IconInfoGetAttachPointsMethodInfo + ResolveIconInfoMethod "getBaseScale" o = IconInfoGetBaseScaleMethodInfo + ResolveIconInfoMethod "getBaseSize" o = IconInfoGetBaseSizeMethodInfo + ResolveIconInfoMethod "getBuiltinPixbuf" o = IconInfoGetBuiltinPixbufMethodInfo + ResolveIconInfoMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveIconInfoMethod "getDisplayName" o = IconInfoGetDisplayNameMethodInfo + ResolveIconInfoMethod "getEmbeddedRect" o = IconInfoGetEmbeddedRectMethodInfo + ResolveIconInfoMethod "getFilename" o = IconInfoGetFilenameMethodInfo + ResolveIconInfoMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveIconInfoMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveIconInfoMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveIconInfoMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveIconInfoMethod "setRawCoordinates" o = IconInfoSetRawCoordinatesMethodInfo + ResolveIconInfoMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveIconInfoMethod t IconInfo, MethodInfo info IconInfo p) => IsLabelProxy t (IconInfo -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveIconInfoMethod t IconInfo, MethodInfo info IconInfo p) => IsLabel t (IconInfo -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList IconInfo = IconInfoAttributeList type IconInfoAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList IconInfo = IconInfoSignalList -type IconInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type IconInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method IconInfo::new_for_pixbuf -- method type : Constructor --- Args : [Arg {argName = "icon_theme", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon_theme", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "icon_theme", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconInfo" -- throws : False -- Skip return : False @@ -163,24 +236,23 @@ iconInfoNewForPixbuf :: (MonadIO m, IconThemeK a, GdkPixbuf.PixbufK b) => - a -> -- icon_theme - b -> -- pixbuf - m IconInfo -iconInfoNewForPixbuf icon_theme pixbuf = liftIO $ do - let icon_theme' = unsafeManagedPtrCastPtr icon_theme + a -- iconTheme + -> b -- pixbuf + -> m IconInfo -- result +iconInfoNewForPixbuf iconTheme pixbuf = liftIO $ do + let iconTheme' = unsafeManagedPtrCastPtr iconTheme let pixbuf' = unsafeManagedPtrCastPtr pixbuf - result <- gtk_icon_info_new_for_pixbuf icon_theme' pixbuf' + result <- gtk_icon_info_new_for_pixbuf iconTheme' pixbuf' checkUnexpectedReturnNULL "gtk_icon_info_new_for_pixbuf" result result' <- (wrapObject IconInfo) result - touchManagedPtr icon_theme + touchManagedPtr iconTheme touchManagedPtr pixbuf return result' -- method IconInfo::get_attach_points -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "points", argType = TCArray False (-1) 2 (TInterface "Gdk" "Point"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_points", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_points", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "points", argType = TCArray False (-1) 2 (TInterface "Gdk" "Point"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_points", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_points", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -194,29 +266,32 @@ {-# DEPRECATED iconInfoGetAttachPoints ["(Since version 3.14)","Attachment points are deprecated"]#-} iconInfoGetAttachPoints :: (MonadIO m, IconInfoK a) => - a -> -- _obj - m (Bool,[Gdk.Point]) + a -- _obj + -> m (Bool,[Gdk.Point]) -- result iconInfoGetAttachPoints _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj points <- allocMem :: IO (Ptr (Ptr Gdk.Point)) - n_points <- allocMem :: IO (Ptr Int32) - result <- gtk_icon_info_get_attach_points _obj' points n_points - n_points' <- peek n_points + nPoints <- allocMem :: IO (Ptr Int32) + result <- gtk_icon_info_get_attach_points _obj' points nPoints + nPoints' <- peek nPoints let result' = (/= 0) result points' <- peek points - points'' <- (unpackBlockArrayWithLength 8 n_points') points' + points'' <- (unpackBlockArrayWithLength 8 nPoints') points' points''' <- mapM (wrapPtr Gdk.Point) points'' freeMem points' touchManagedPtr _obj freeMem points - freeMem n_points + freeMem nPoints return (result', points''') +data IconInfoGetAttachPointsMethodInfo +instance (signature ~ (m (Bool,[Gdk.Point])), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetAttachPointsMethodInfo a signature where + overloadedMethod _ = iconInfoGetAttachPoints + -- method IconInfo::get_base_scale -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -228,19 +303,22 @@ iconInfoGetBaseScale :: (MonadIO m, IconInfoK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result iconInfoGetBaseScale _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_info_get_base_scale _obj' touchManagedPtr _obj return result +data IconInfoGetBaseScaleMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetBaseScaleMethodInfo a signature where + overloadedMethod _ = iconInfoGetBaseScale + -- method IconInfo::get_base_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -252,19 +330,22 @@ iconInfoGetBaseSize :: (MonadIO m, IconInfoK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result iconInfoGetBaseSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_info_get_base_size _obj' touchManagedPtr _obj return result +data IconInfoGetBaseSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetBaseSizeMethodInfo a signature where + overloadedMethod _ = iconInfoGetBaseSize + -- method IconInfo::get_builtin_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -276,8 +357,8 @@ {-# DEPRECATED iconInfoGetBuiltinPixbuf ["(Since version 3.14)","This function is deprecated, use"," gtk_icon_theme_add_resource_path() instead of builtin icons."]#-} iconInfoGetBuiltinPixbuf :: (MonadIO m, IconInfoK a) => - a -> -- _obj - m GdkPixbuf.Pixbuf + a -- _obj + -> m GdkPixbuf.Pixbuf -- result iconInfoGetBuiltinPixbuf _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_info_get_builtin_pixbuf _obj' @@ -286,11 +367,14 @@ touchManagedPtr _obj return result' +data IconInfoGetBuiltinPixbufMethodInfo +instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetBuiltinPixbufMethodInfo a signature where + overloadedMethod _ = iconInfoGetBuiltinPixbuf + -- method IconInfo::get_display_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -302,8 +386,8 @@ {-# DEPRECATED iconInfoGetDisplayName ["(Since version 3.14)","Display names are deprecated"]#-} iconInfoGetDisplayName :: (MonadIO m, IconInfoK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result iconInfoGetDisplayName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_info_get_display_name _obj' @@ -312,11 +396,14 @@ touchManagedPtr _obj return result' +data IconInfoGetDisplayNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetDisplayNameMethodInfo a signature where + overloadedMethod _ = iconInfoGetDisplayName + -- method IconInfo::get_embedded_rect -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -329,8 +416,8 @@ {-# DEPRECATED iconInfoGetEmbeddedRect ["(Since version 3.14)","Embedded rectangles are deprecated"]#-} iconInfoGetEmbeddedRect :: (MonadIO m, IconInfoK a) => - a -> -- _obj - m (Bool,Gdk.Rectangle) + a -- _obj + -> m (Bool,Gdk.Rectangle) -- result iconInfoGetEmbeddedRect _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj rectangle <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) @@ -340,11 +427,14 @@ touchManagedPtr _obj return (result', rectangle') +data IconInfoGetEmbeddedRectMethodInfo +instance (signature ~ (m (Bool,Gdk.Rectangle)), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetEmbeddedRectMethodInfo a signature where + overloadedMethod _ = iconInfoGetEmbeddedRect + -- method IconInfo::get_filename -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TFileName -- throws : False -- Skip return : False @@ -356,8 +446,8 @@ iconInfoGetFilename :: (MonadIO m, IconInfoK a) => - a -> -- _obj - m [Char] + a -- _obj + -> m [Char] -- result iconInfoGetFilename _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_info_get_filename _obj' @@ -366,11 +456,14 @@ touchManagedPtr _obj return result' +data IconInfoGetFilenameMethodInfo +instance (signature ~ (m [Char]), MonadIO m, IconInfoK a) => MethodInfo IconInfoGetFilenameMethodInfo a signature where + overloadedMethod _ = iconInfoGetFilename + -- method IconInfo::is_symbolic -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -382,8 +475,8 @@ iconInfoIsSymbolic :: (MonadIO m, IconInfoK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result iconInfoIsSymbolic _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_info_is_symbolic _obj' @@ -391,11 +484,14 @@ touchManagedPtr _obj return result' +data IconInfoIsSymbolicMethodInfo +instance (signature ~ (m Bool), MonadIO m, IconInfoK a) => MethodInfo IconInfoIsSymbolicMethodInfo a signature where + overloadedMethod _ = iconInfoIsSymbolic + -- method IconInfo::load_icon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : True -- Skip return : False @@ -408,8 +504,8 @@ iconInfoLoadIcon :: (MonadIO m, IconInfoK a) => - a -> -- _obj - m GdkPixbuf.Pixbuf + a -- _obj + -> m GdkPixbuf.Pixbuf -- result iconInfoLoadIcon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -422,11 +518,14 @@ return () ) +data IconInfoLoadIconMethodInfo +instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, IconInfoK a) => MethodInfo IconInfoLoadIconMethodInfo a signature where + overloadedMethod _ = iconInfoLoadIcon + -- method IconInfo::load_icon_async -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -441,10 +540,10 @@ iconInfoLoadIconAsync :: (MonadIO m, IconInfoK a, Gio.CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () + a -- _obj + -> Maybe (b) -- cancellable + -> Maybe (Gio.AsyncReadyCallback) -- callback + -> m () -- result iconInfoLoadIconAsync _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -459,17 +558,20 @@ jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - gtk_icon_info_load_icon_async _obj' maybeCancellable maybeCallback user_data + let userData = nullPtr + gtk_icon_info_load_icon_async _obj' maybeCancellable maybeCallback userData touchManagedPtr _obj whenJust cancellable touchManagedPtr return () +data IconInfoLoadIconAsyncMethodInfo +instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, IconInfoK a, Gio.CancellableK b) => MethodInfo IconInfoLoadIconAsyncMethodInfo a signature where + overloadedMethod _ = iconInfoLoadIconAsync + -- method IconInfo::load_icon_finish -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : True -- Skip return : False @@ -483,9 +585,9 @@ iconInfoLoadIconFinish :: (MonadIO m, IconInfoK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- res - m GdkPixbuf.Pixbuf + a -- _obj + -> b -- res + -> m GdkPixbuf.Pixbuf -- result iconInfoLoadIconFinish _obj res = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let res' = unsafeManagedPtrCastPtr res @@ -500,11 +602,14 @@ return () ) +data IconInfoLoadIconFinishMethodInfo +instance (signature ~ (b -> m GdkPixbuf.Pixbuf), MonadIO m, IconInfoK a, Gio.AsyncResultK b) => MethodInfo IconInfoLoadIconFinishMethodInfo a signature where + overloadedMethod _ = iconInfoLoadIconFinish + -- method IconInfo::load_surface -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Surface" -- throws : True -- Skip return : False @@ -518,32 +623,35 @@ iconInfoLoadSurface :: (MonadIO m, IconInfoK a, Gdk.WindowK b) => - a -> -- _obj - Maybe (b) -> -- for_window - m Cairo.Surface -iconInfoLoadSurface _obj for_window = liftIO $ do + a -- _obj + -> Maybe (b) -- forWindow + -> m Cairo.Surface -- result +iconInfoLoadSurface _obj forWindow = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeFor_window <- case for_window of + maybeForWindow <- case forWindow of Nothing -> return nullPtr - Just jFor_window -> do - let jFor_window' = unsafeManagedPtrCastPtr jFor_window - return jFor_window' + Just jForWindow -> do + let jForWindow' = unsafeManagedPtrCastPtr jForWindow + return jForWindow' onException (do - result <- propagateGError $ gtk_icon_info_load_surface _obj' maybeFor_window + result <- propagateGError $ gtk_icon_info_load_surface _obj' maybeForWindow checkUnexpectedReturnNULL "gtk_icon_info_load_surface" result result' <- (wrapBoxed Cairo.Surface) result touchManagedPtr _obj - whenJust for_window touchManagedPtr + whenJust forWindow touchManagedPtr return result' ) (do return () ) +data IconInfoLoadSurfaceMethodInfo +instance (signature ~ (Maybe (b) -> m Cairo.Surface), MonadIO m, IconInfoK a, Gdk.WindowK b) => MethodInfo IconInfoLoadSurfaceMethodInfo a signature where + overloadedMethod _ = iconInfoLoadSurface + -- method IconInfo::load_symbolic -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : True -- Skip return : False @@ -561,53 +669,56 @@ iconInfoLoadSymbolic :: (MonadIO m, IconInfoK a) => - a -> -- _obj - Gdk.RGBA -> -- fg - Maybe (Gdk.RGBA) -> -- success_color - Maybe (Gdk.RGBA) -> -- warning_color - Maybe (Gdk.RGBA) -> -- error_color - m (GdkPixbuf.Pixbuf,Bool) -iconInfoLoadSymbolic _obj fg success_color warning_color error_color = liftIO $ do + a -- _obj + -> Gdk.RGBA -- fg + -> Maybe (Gdk.RGBA) -- successColor + -> Maybe (Gdk.RGBA) -- warningColor + -> Maybe (Gdk.RGBA) -- errorColor + -> m (GdkPixbuf.Pixbuf,Bool) -- result +iconInfoLoadSymbolic _obj fg successColor warningColor errorColor = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let fg' = unsafeManagedPtrGetPtr fg - maybeSuccess_color <- case success_color of + maybeSuccessColor <- case successColor of Nothing -> return nullPtr - Just jSuccess_color -> do - let jSuccess_color' = unsafeManagedPtrGetPtr jSuccess_color - return jSuccess_color' - maybeWarning_color <- case warning_color of + Just jSuccessColor -> do + let jSuccessColor' = unsafeManagedPtrGetPtr jSuccessColor + return jSuccessColor' + maybeWarningColor <- case warningColor of Nothing -> return nullPtr - Just jWarning_color -> do - let jWarning_color' = unsafeManagedPtrGetPtr jWarning_color - return jWarning_color' - maybeError_color <- case error_color of + Just jWarningColor -> do + let jWarningColor' = unsafeManagedPtrGetPtr jWarningColor + return jWarningColor' + maybeErrorColor <- case errorColor of Nothing -> return nullPtr - Just jError_color -> do - let jError_color' = unsafeManagedPtrGetPtr jError_color - return jError_color' - was_symbolic <- allocMem :: IO (Ptr CInt) + Just jErrorColor -> do + let jErrorColor' = unsafeManagedPtrGetPtr jErrorColor + return jErrorColor' + wasSymbolic <- allocMem :: IO (Ptr CInt) onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic _obj' fg' maybeSuccess_color maybeWarning_color maybeError_color was_symbolic + result <- propagateGError $ gtk_icon_info_load_symbolic _obj' fg' maybeSuccessColor maybeWarningColor maybeErrorColor wasSymbolic checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic" result result' <- (wrapObject GdkPixbuf.Pixbuf) result - was_symbolic' <- peek was_symbolic - let was_symbolic'' = (/= 0) was_symbolic' + wasSymbolic' <- peek wasSymbolic + let wasSymbolic'' = (/= 0) wasSymbolic' touchManagedPtr _obj touchManagedPtr fg - whenJust success_color touchManagedPtr - whenJust warning_color touchManagedPtr - whenJust error_color touchManagedPtr - freeMem was_symbolic - return (result', was_symbolic'') + whenJust successColor touchManagedPtr + whenJust warningColor touchManagedPtr + whenJust errorColor touchManagedPtr + freeMem wasSymbolic + return (result', wasSymbolic'') ) (do - freeMem was_symbolic + freeMem wasSymbolic ) +data IconInfoLoadSymbolicMethodInfo +instance (signature ~ (Gdk.RGBA -> Maybe (Gdk.RGBA) -> Maybe (Gdk.RGBA) -> Maybe (Gdk.RGBA) -> m (GdkPixbuf.Pixbuf,Bool)), MonadIO m, IconInfoK a) => MethodInfo IconInfoLoadSymbolicMethodInfo a signature where + overloadedMethod _ = iconInfoLoadSymbolic + -- method IconInfo::load_symbolic_async -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -626,32 +737,32 @@ iconInfoLoadSymbolicAsync :: (MonadIO m, IconInfoK a, Gio.CancellableK b) => - a -> -- _obj - Gdk.RGBA -> -- fg - Maybe (Gdk.RGBA) -> -- success_color - Maybe (Gdk.RGBA) -> -- warning_color - Maybe (Gdk.RGBA) -> -- error_color - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -iconInfoLoadSymbolicAsync _obj fg success_color warning_color error_color cancellable callback = liftIO $ do + a -- _obj + -> Gdk.RGBA -- fg + -> Maybe (Gdk.RGBA) -- successColor + -> Maybe (Gdk.RGBA) -- warningColor + -> Maybe (Gdk.RGBA) -- errorColor + -> Maybe (b) -- cancellable + -> Maybe (Gio.AsyncReadyCallback) -- callback + -> m () -- result +iconInfoLoadSymbolicAsync _obj fg successColor warningColor errorColor cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let fg' = unsafeManagedPtrGetPtr fg - maybeSuccess_color <- case success_color of + maybeSuccessColor <- case successColor of Nothing -> return nullPtr - Just jSuccess_color -> do - let jSuccess_color' = unsafeManagedPtrGetPtr jSuccess_color - return jSuccess_color' - maybeWarning_color <- case warning_color of + Just jSuccessColor -> do + let jSuccessColor' = unsafeManagedPtrGetPtr jSuccessColor + return jSuccessColor' + maybeWarningColor <- case warningColor of Nothing -> return nullPtr - Just jWarning_color -> do - let jWarning_color' = unsafeManagedPtrGetPtr jWarning_color - return jWarning_color' - maybeError_color <- case error_color of + Just jWarningColor -> do + let jWarningColor' = unsafeManagedPtrGetPtr jWarningColor + return jWarningColor' + maybeErrorColor <- case errorColor of Nothing -> return nullPtr - Just jError_color -> do - let jError_color' = unsafeManagedPtrGetPtr jError_color - return jError_color' + Just jErrorColor -> do + let jErrorColor' = unsafeManagedPtrGetPtr jErrorColor + return jErrorColor' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -664,21 +775,24 @@ jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - gtk_icon_info_load_symbolic_async _obj' fg' maybeSuccess_color maybeWarning_color maybeError_color maybeCancellable maybeCallback user_data + let userData = nullPtr + gtk_icon_info_load_symbolic_async _obj' fg' maybeSuccessColor maybeWarningColor maybeErrorColor maybeCancellable maybeCallback userData touchManagedPtr _obj touchManagedPtr fg - whenJust success_color touchManagedPtr - whenJust warning_color touchManagedPtr - whenJust error_color touchManagedPtr + whenJust successColor touchManagedPtr + whenJust warningColor touchManagedPtr + whenJust errorColor touchManagedPtr whenJust cancellable touchManagedPtr return () +data IconInfoLoadSymbolicAsyncMethodInfo +instance (signature ~ (Gdk.RGBA -> Maybe (Gdk.RGBA) -> Maybe (Gdk.RGBA) -> Maybe (Gdk.RGBA) -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, IconInfoK a, Gio.CancellableK b) => MethodInfo IconInfoLoadSymbolicAsyncMethodInfo a signature where + overloadedMethod _ = iconInfoLoadSymbolicAsync + -- method IconInfo::load_symbolic_finish -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : True -- Skip return : False @@ -693,32 +807,35 @@ iconInfoLoadSymbolicFinish :: (MonadIO m, IconInfoK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- res - m (GdkPixbuf.Pixbuf,Bool) + a -- _obj + -> b -- res + -> m (GdkPixbuf.Pixbuf,Bool) -- result iconInfoLoadSymbolicFinish _obj res = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let res' = unsafeManagedPtrCastPtr res - was_symbolic <- allocMem :: IO (Ptr CInt) + wasSymbolic <- allocMem :: IO (Ptr CInt) onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic_finish _obj' res' was_symbolic + result <- propagateGError $ gtk_icon_info_load_symbolic_finish _obj' res' wasSymbolic checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_finish" result result' <- (wrapObject GdkPixbuf.Pixbuf) result - was_symbolic' <- peek was_symbolic - let was_symbolic'' = (/= 0) was_symbolic' + wasSymbolic' <- peek wasSymbolic + let wasSymbolic'' = (/= 0) wasSymbolic' touchManagedPtr _obj touchManagedPtr res - freeMem was_symbolic - return (result', was_symbolic'') + freeMem wasSymbolic + return (result', wasSymbolic'') ) (do - freeMem was_symbolic + freeMem wasSymbolic ) +data IconInfoLoadSymbolicFinishMethodInfo +instance (signature ~ (b -> m (GdkPixbuf.Pixbuf,Bool)), MonadIO m, IconInfoK a, Gio.AsyncResultK b) => MethodInfo IconInfoLoadSymbolicFinishMethodInfo a signature where + overloadedMethod _ = iconInfoLoadSymbolicFinish + -- method IconInfo::load_symbolic_for_context -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : True -- Skip return : False @@ -733,32 +850,35 @@ iconInfoLoadSymbolicForContext :: (MonadIO m, IconInfoK a, StyleContextK b) => - a -> -- _obj - b -> -- context - m (GdkPixbuf.Pixbuf,Bool) + a -- _obj + -> b -- context + -> m (GdkPixbuf.Pixbuf,Bool) -- result iconInfoLoadSymbolicForContext _obj context = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context - was_symbolic <- allocMem :: IO (Ptr CInt) + wasSymbolic <- allocMem :: IO (Ptr CInt) onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic_for_context _obj' context' was_symbolic + result <- propagateGError $ gtk_icon_info_load_symbolic_for_context _obj' context' wasSymbolic checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_for_context" result result' <- (wrapObject GdkPixbuf.Pixbuf) result - was_symbolic' <- peek was_symbolic - let was_symbolic'' = (/= 0) was_symbolic' + wasSymbolic' <- peek wasSymbolic + let wasSymbolic'' = (/= 0) wasSymbolic' touchManagedPtr _obj touchManagedPtr context - freeMem was_symbolic - return (result', was_symbolic'') + freeMem wasSymbolic + return (result', wasSymbolic'') ) (do - freeMem was_symbolic + freeMem wasSymbolic ) +data IconInfoLoadSymbolicForContextMethodInfo +instance (signature ~ (b -> m (GdkPixbuf.Pixbuf,Bool)), MonadIO m, IconInfoK a, StyleContextK b) => MethodInfo IconInfoLoadSymbolicForContextMethodInfo a signature where + overloadedMethod _ = iconInfoLoadSymbolicForContext + -- method IconInfo::load_symbolic_for_context_async -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -774,11 +894,11 @@ iconInfoLoadSymbolicForContextAsync :: (MonadIO m, IconInfoK a, StyleContextK b, Gio.CancellableK c) => - a -> -- _obj - b -> -- context - Maybe (c) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () + a -- _obj + -> b -- context + -> Maybe (c) -- cancellable + -> Maybe (Gio.AsyncReadyCallback) -- callback + -> m () -- result iconInfoLoadSymbolicForContextAsync _obj context cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let context' = unsafeManagedPtrCastPtr context @@ -794,18 +914,21 @@ jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - gtk_icon_info_load_symbolic_for_context_async _obj' context' maybeCancellable maybeCallback user_data + let userData = nullPtr + gtk_icon_info_load_symbolic_for_context_async _obj' context' maybeCancellable maybeCallback userData touchManagedPtr _obj touchManagedPtr context whenJust cancellable touchManagedPtr return () +data IconInfoLoadSymbolicForContextAsyncMethodInfo +instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, IconInfoK a, StyleContextK b, Gio.CancellableK c) => MethodInfo IconInfoLoadSymbolicForContextAsyncMethodInfo a signature where + overloadedMethod _ = iconInfoLoadSymbolicForContextAsync + -- method IconInfo::load_symbolic_for_context_finish -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : True -- Skip return : False @@ -820,32 +943,35 @@ iconInfoLoadSymbolicForContextFinish :: (MonadIO m, IconInfoK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- res - m (GdkPixbuf.Pixbuf,Bool) + a -- _obj + -> b -- res + -> m (GdkPixbuf.Pixbuf,Bool) -- result iconInfoLoadSymbolicForContextFinish _obj res = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let res' = unsafeManagedPtrCastPtr res - was_symbolic <- allocMem :: IO (Ptr CInt) + wasSymbolic <- allocMem :: IO (Ptr CInt) onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic_for_context_finish _obj' res' was_symbolic + result <- propagateGError $ gtk_icon_info_load_symbolic_for_context_finish _obj' res' wasSymbolic checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_for_context_finish" result result' <- (wrapObject GdkPixbuf.Pixbuf) result - was_symbolic' <- peek was_symbolic - let was_symbolic'' = (/= 0) was_symbolic' + wasSymbolic' <- peek wasSymbolic + let wasSymbolic'' = (/= 0) wasSymbolic' touchManagedPtr _obj touchManagedPtr res - freeMem was_symbolic - return (result', was_symbolic'') + freeMem wasSymbolic + return (result', wasSymbolic'') ) (do - freeMem was_symbolic + freeMem wasSymbolic ) +data IconInfoLoadSymbolicForContextFinishMethodInfo +instance (signature ~ (b -> m (GdkPixbuf.Pixbuf,Bool)), MonadIO m, IconInfoK a, Gio.AsyncResultK b) => MethodInfo IconInfoLoadSymbolicForContextFinishMethodInfo a signature where + overloadedMethod _ = iconInfoLoadSymbolicForContextFinish + -- method IconInfo::load_symbolic_for_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : True -- Skip return : False @@ -861,34 +987,37 @@ {-# DEPRECATED iconInfoLoadSymbolicForStyle ["(Since version 3.0)","Use gtk_icon_info_load_symbolic_for_context() instead"]#-} iconInfoLoadSymbolicForStyle :: (MonadIO m, IconInfoK a, StyleK b) => - a -> -- _obj - b -> -- style - StateType -> -- state - m (GdkPixbuf.Pixbuf,Bool) + a -- _obj + -> b -- style + -> StateType -- state + -> m (GdkPixbuf.Pixbuf,Bool) -- result iconInfoLoadSymbolicForStyle _obj style state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let style' = unsafeManagedPtrCastPtr style let state' = (fromIntegral . fromEnum) state - was_symbolic <- allocMem :: IO (Ptr CInt) + wasSymbolic <- allocMem :: IO (Ptr CInt) onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic_for_style _obj' style' state' was_symbolic + result <- propagateGError $ gtk_icon_info_load_symbolic_for_style _obj' style' state' wasSymbolic checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_for_style" result result' <- (wrapObject GdkPixbuf.Pixbuf) result - was_symbolic' <- peek was_symbolic - let was_symbolic'' = (/= 0) was_symbolic' + wasSymbolic' <- peek wasSymbolic + let wasSymbolic'' = (/= 0) wasSymbolic' touchManagedPtr _obj touchManagedPtr style - freeMem was_symbolic - return (result', was_symbolic'') + freeMem wasSymbolic + return (result', wasSymbolic'') ) (do - freeMem was_symbolic + freeMem wasSymbolic ) +data IconInfoLoadSymbolicForStyleMethodInfo +instance (signature ~ (b -> StateType -> m (GdkPixbuf.Pixbuf,Bool)), MonadIO m, IconInfoK a, StyleK b) => MethodInfo IconInfoLoadSymbolicForStyleMethodInfo a signature where + overloadedMethod _ = iconInfoLoadSymbolicForStyle + -- method IconInfo::set_raw_coordinates -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "raw_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "raw_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "raw_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -901,14 +1030,18 @@ {-# DEPRECATED iconInfoSetRawCoordinates ["(Since version 3.14)","Embedded rectangles and attachment points are deprecated"]#-} iconInfoSetRawCoordinates :: (MonadIO m, IconInfoK a) => - a -> -- _obj - Bool -> -- raw_coordinates - m () -iconInfoSetRawCoordinates _obj raw_coordinates = liftIO $ do + a -- _obj + -> Bool -- rawCoordinates + -> m () -- result +iconInfoSetRawCoordinates _obj rawCoordinates = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let raw_coordinates' = (fromIntegral . fromEnum) raw_coordinates - gtk_icon_info_set_raw_coordinates _obj' raw_coordinates' + let rawCoordinates' = (fromIntegral . fromEnum) rawCoordinates + gtk_icon_info_set_raw_coordinates _obj' rawCoordinates' touchManagedPtr _obj return () + +data IconInfoSetRawCoordinatesMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IconInfoK a) => MethodInfo IconInfoSetRawCoordinatesMethodInfo a signature where + overloadedMethod _ = iconInfoSetRawCoordinates diff --git a/GI/Gtk/Objects/IconInfo.hs-boot b/GI/Gtk/Objects/IconInfo.hs-boot --- a/GI/Gtk/Objects/IconInfo.hs-boot +++ b/GI/Gtk/Objects/IconInfo.hs-boot @@ -11,3 +11,23 @@ instance GObject IconInfo where class GObject o => IconInfoK o instance (GObject o, IsDescendantOf IconInfo o) => IconInfoK o +data IconInfoGetAttachPointsMethodInfo +data IconInfoGetBaseScaleMethodInfo +data IconInfoGetBaseSizeMethodInfo +data IconInfoGetBuiltinPixbufMethodInfo +data IconInfoGetDisplayNameMethodInfo +data IconInfoGetEmbeddedRectMethodInfo +data IconInfoGetFilenameMethodInfo +data IconInfoIsSymbolicMethodInfo +data IconInfoLoadIconMethodInfo +data IconInfoLoadIconAsyncMethodInfo +data IconInfoLoadIconFinishMethodInfo +data IconInfoLoadSurfaceMethodInfo +data IconInfoLoadSymbolicMethodInfo +data IconInfoLoadSymbolicAsyncMethodInfo +data IconInfoLoadSymbolicFinishMethodInfo +data IconInfoLoadSymbolicForContextMethodInfo +data IconInfoLoadSymbolicForContextAsyncMethodInfo +data IconInfoLoadSymbolicForContextFinishMethodInfo +data IconInfoLoadSymbolicForStyleMethodInfo +data IconInfoSetRawCoordinatesMethodInfo diff --git a/GI/Gtk/Objects/IconTheme.hs b/GI/Gtk/Objects/IconTheme.hs --- a/GI/Gtk/Objects/IconTheme.hs +++ b/GI/Gtk/Objects/IconTheme.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,18 +22,22 @@ -- ** iconThemeAddResourcePath + IconThemeAddResourcePathMethodInfo , iconThemeAddResourcePath , -- ** iconThemeAppendSearchPath + IconThemeAppendSearchPathMethodInfo , iconThemeAppendSearchPath , -- ** iconThemeChooseIcon + IconThemeChooseIconMethodInfo , iconThemeChooseIcon , -- ** iconThemeChooseIconForScale + IconThemeChooseIconForScaleMethodInfo , iconThemeChooseIconForScale , @@ -41,6 +46,7 @@ -- ** iconThemeGetExampleIconName + IconThemeGetExampleIconNameMethodInfo , iconThemeGetExampleIconName , @@ -49,50 +55,62 @@ -- ** iconThemeGetIconSizes + IconThemeGetIconSizesMethodInfo , iconThemeGetIconSizes , -- ** iconThemeGetSearchPath + IconThemeGetSearchPathMethodInfo , iconThemeGetSearchPath , -- ** iconThemeHasIcon + IconThemeHasIconMethodInfo , iconThemeHasIcon , -- ** iconThemeListContexts + IconThemeListContextsMethodInfo , iconThemeListContexts , -- ** iconThemeListIcons + IconThemeListIconsMethodInfo , iconThemeListIcons , -- ** iconThemeLoadIcon + IconThemeLoadIconMethodInfo , iconThemeLoadIcon , -- ** iconThemeLoadIconForScale + IconThemeLoadIconForScaleMethodInfo , iconThemeLoadIconForScale , -- ** iconThemeLoadSurface + IconThemeLoadSurfaceMethodInfo , iconThemeLoadSurface , -- ** iconThemeLookupByGicon + IconThemeLookupByGiconMethodInfo , iconThemeLookupByGicon , -- ** iconThemeLookupByGiconForScale + IconThemeLookupByGiconForScaleMethodInfo, iconThemeLookupByGiconForScale , -- ** iconThemeLookupIcon + IconThemeLookupIconMethodInfo , iconThemeLookupIcon , -- ** iconThemeLookupIconForScale + IconThemeLookupIconForScaleMethodInfo , iconThemeLookupIconForScale , @@ -101,22 +119,27 @@ -- ** iconThemePrependSearchPath + IconThemePrependSearchPathMethodInfo , iconThemePrependSearchPath , -- ** iconThemeRescanIfNeeded + IconThemeRescanIfNeededMethodInfo , iconThemeRescanIfNeeded , -- ** iconThemeSetCustomTheme + IconThemeSetCustomThemeMethodInfo , iconThemeSetCustomTheme , -- ** iconThemeSetScreen + IconThemeSetScreenMethodInfo , iconThemeSetScreen , -- ** iconThemeSetSearchPath + IconThemeSetSearchPathMethodInfo , iconThemeSetSearchPath , @@ -175,6 +198,61 @@ noIconTheme :: Maybe IconTheme noIconTheme = Nothing +type family ResolveIconThemeMethod (t :: Symbol) (o :: *) :: * where + ResolveIconThemeMethod "addResourcePath" o = IconThemeAddResourcePathMethodInfo + ResolveIconThemeMethod "appendSearchPath" o = IconThemeAppendSearchPathMethodInfo + ResolveIconThemeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveIconThemeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveIconThemeMethod "chooseIcon" o = IconThemeChooseIconMethodInfo + ResolveIconThemeMethod "chooseIconForScale" o = IconThemeChooseIconForScaleMethodInfo + ResolveIconThemeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveIconThemeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveIconThemeMethod "hasIcon" o = IconThemeHasIconMethodInfo + ResolveIconThemeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveIconThemeMethod "listContexts" o = IconThemeListContextsMethodInfo + ResolveIconThemeMethod "listIcons" o = IconThemeListIconsMethodInfo + ResolveIconThemeMethod "loadIcon" o = IconThemeLoadIconMethodInfo + ResolveIconThemeMethod "loadIconForScale" o = IconThemeLoadIconForScaleMethodInfo + ResolveIconThemeMethod "loadSurface" o = IconThemeLoadSurfaceMethodInfo + ResolveIconThemeMethod "lookupByGicon" o = IconThemeLookupByGiconMethodInfo + ResolveIconThemeMethod "lookupByGiconForScale" o = IconThemeLookupByGiconForScaleMethodInfo + ResolveIconThemeMethod "lookupIcon" o = IconThemeLookupIconMethodInfo + ResolveIconThemeMethod "lookupIconForScale" o = IconThemeLookupIconForScaleMethodInfo + ResolveIconThemeMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveIconThemeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveIconThemeMethod "prependSearchPath" o = IconThemePrependSearchPathMethodInfo + ResolveIconThemeMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveIconThemeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveIconThemeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveIconThemeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveIconThemeMethod "rescanIfNeeded" o = IconThemeRescanIfNeededMethodInfo + ResolveIconThemeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveIconThemeMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveIconThemeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveIconThemeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveIconThemeMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveIconThemeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveIconThemeMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveIconThemeMethod "getExampleIconName" o = IconThemeGetExampleIconNameMethodInfo + ResolveIconThemeMethod "getIconSizes" o = IconThemeGetIconSizesMethodInfo + ResolveIconThemeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveIconThemeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveIconThemeMethod "getSearchPath" o = IconThemeGetSearchPathMethodInfo + ResolveIconThemeMethod "setCustomTheme" o = IconThemeSetCustomThemeMethodInfo + ResolveIconThemeMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveIconThemeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveIconThemeMethod "setScreen" o = IconThemeSetScreenMethodInfo + ResolveIconThemeMethod "setSearchPath" o = IconThemeSetSearchPathMethodInfo + ResolveIconThemeMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveIconThemeMethod t IconTheme, MethodInfo info IconTheme p) => IsLabelProxy t (IconTheme -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveIconThemeMethod t IconTheme, MethodInfo info IconTheme p) => IsLabel t (IconTheme -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal IconTheme::changed type IconThemeChangedCallback = IO () @@ -222,13 +300,12 @@ connectSignal _ = connectIconThemeChanged type instance SignalList IconTheme = IconThemeSignalList -type IconThemeSignalList = ('[ '("changed", IconThemeChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type IconThemeSignalList = ('[ '("changed", IconThemeChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method IconTheme::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "IconTheme" -- throws : False -- Skip return : False @@ -239,7 +316,7 @@ iconThemeNew :: (MonadIO m) => - m IconTheme + m IconTheme -- result iconThemeNew = liftIO $ do result <- gtk_icon_theme_new checkUnexpectedReturnNULL "gtk_icon_theme_new" result @@ -248,9 +325,8 @@ -- method IconTheme::add_resource_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -263,9 +339,9 @@ iconThemeAddResourcePath :: (MonadIO m, IconThemeK a) => - a -> -- _obj - T.Text -> -- path - m () + a -- _obj + -> T.Text -- path + -> m () -- result iconThemeAddResourcePath _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path' <- textToCString path @@ -274,11 +350,14 @@ freeMem path' return () +data IconThemeAddResourcePathMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, IconThemeK a) => MethodInfo IconThemeAddResourcePathMethodInfo a signature where + overloadedMethod _ = iconThemeAddResourcePath + -- method IconTheme::append_search_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -291,9 +370,9 @@ iconThemeAppendSearchPath :: (MonadIO m, IconThemeK a) => - a -> -- _obj - [Char] -> -- path - m () + a -- _obj + -> [Char] -- path + -> m () -- result iconThemeAppendSearchPath _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path' <- stringToCString path @@ -302,11 +381,14 @@ freeMem path' return () +data IconThemeAppendSearchPathMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, IconThemeK a) => MethodInfo IconThemeAppendSearchPathMethodInfo a signature where + overloadedMethod _ = iconThemeAppendSearchPath + -- method IconTheme::choose_icon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconInfo" -- throws : False -- Skip return : False @@ -321,28 +403,31 @@ iconThemeChooseIcon :: (MonadIO m, IconThemeK a) => - a -> -- _obj - [T.Text] -> -- icon_names - Int32 -> -- size - [IconLookupFlags] -> -- flags - m IconInfo -iconThemeChooseIcon _obj icon_names size flags = liftIO $ do + a -- _obj + -> [T.Text] -- iconNames + -> Int32 -- size + -> [IconLookupFlags] -- flags + -> m IconInfo -- result +iconThemeChooseIcon _obj iconNames size flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_names' <- packZeroTerminatedUTF8CArray icon_names + iconNames' <- packZeroTerminatedUTF8CArray iconNames let flags' = gflagsToWord flags - result <- gtk_icon_theme_choose_icon _obj' icon_names' size flags' + result <- gtk_icon_theme_choose_icon _obj' iconNames' size flags' checkUnexpectedReturnNULL "gtk_icon_theme_choose_icon" result result' <- (wrapObject IconInfo) result touchManagedPtr _obj - mapZeroTerminatedCArray freeMem icon_names' - freeMem icon_names' + mapZeroTerminatedCArray freeMem iconNames' + freeMem iconNames' return result' +data IconThemeChooseIconMethodInfo +instance (signature ~ ([T.Text] -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a) => MethodInfo IconThemeChooseIconMethodInfo a signature where + overloadedMethod _ = iconThemeChooseIcon + -- method IconTheme::choose_icon_for_scale -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconInfo" -- throws : False -- Skip return : False @@ -358,29 +443,32 @@ iconThemeChooseIconForScale :: (MonadIO m, IconThemeK a) => - a -> -- _obj - [T.Text] -> -- icon_names - Int32 -> -- size - Int32 -> -- scale - [IconLookupFlags] -> -- flags - m IconInfo -iconThemeChooseIconForScale _obj icon_names size scale flags = liftIO $ do + a -- _obj + -> [T.Text] -- iconNames + -> Int32 -- size + -> Int32 -- scale + -> [IconLookupFlags] -- flags + -> m IconInfo -- result +iconThemeChooseIconForScale _obj iconNames size scale flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_names' <- packZeroTerminatedUTF8CArray icon_names + iconNames' <- packZeroTerminatedUTF8CArray iconNames let flags' = gflagsToWord flags - result <- gtk_icon_theme_choose_icon_for_scale _obj' icon_names' size scale flags' + result <- gtk_icon_theme_choose_icon_for_scale _obj' iconNames' size scale flags' checkUnexpectedReturnNULL "gtk_icon_theme_choose_icon_for_scale" result result' <- (wrapObject IconInfo) result touchManagedPtr _obj - mapZeroTerminatedCArray freeMem icon_names' - freeMem icon_names' + mapZeroTerminatedCArray freeMem iconNames' + freeMem iconNames' return result' +data IconThemeChooseIconForScaleMethodInfo +instance (signature ~ ([T.Text] -> Int32 -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a) => MethodInfo IconThemeChooseIconForScaleMethodInfo a signature where + overloadedMethod _ = iconThemeChooseIconForScale + -- method IconTheme::get_example_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -392,8 +480,8 @@ iconThemeGetExampleIconName :: (MonadIO m, IconThemeK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result iconThemeGetExampleIconName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_theme_get_example_icon_name _obj' @@ -403,11 +491,14 @@ touchManagedPtr _obj return result' +data IconThemeGetExampleIconNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, IconThemeK a) => MethodInfo IconThemeGetExampleIconNameMethodInfo a signature where + overloadedMethod _ = iconThemeGetExampleIconName + -- method IconTheme::get_icon_sizes -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TInt32) -- throws : False -- Skip return : False @@ -420,25 +511,28 @@ iconThemeGetIconSizes :: (MonadIO m, IconThemeK a) => - a -> -- _obj - T.Text -> -- icon_name - m [Int32] -iconThemeGetIconSizes _obj icon_name = liftIO $ do + a -- _obj + -> T.Text -- iconName + -> m [Int32] -- result +iconThemeGetIconSizes _obj iconName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - result <- gtk_icon_theme_get_icon_sizes _obj' icon_name' + iconName' <- textToCString iconName + result <- gtk_icon_theme_get_icon_sizes _obj' iconName' checkUnexpectedReturnNULL "gtk_icon_theme_get_icon_sizes" result result' <- unpackZeroTerminatedStorableArray result freeMem result touchManagedPtr _obj - freeMem icon_name' + freeMem iconName' return result' +data IconThemeGetIconSizesMethodInfo +instance (signature ~ (T.Text -> m [Int32]), MonadIO m, IconThemeK a) => MethodInfo IconThemeGetIconSizesMethodInfo a signature where + overloadedMethod _ = iconThemeGetIconSizes + -- method IconTheme::get_search_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_elements", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_elements", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_elements", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_elements", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -452,28 +546,31 @@ iconThemeGetSearchPath :: (MonadIO m, IconThemeK a) => - a -> -- _obj - m ([[Char]]) + a -- _obj + -> m ([[Char]]) -- result iconThemeGetSearchPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path <- allocMem :: IO (Ptr (Ptr CString)) - n_elements <- allocMem :: IO (Ptr Int32) - gtk_icon_theme_get_search_path _obj' path n_elements - n_elements' <- peek n_elements + nElements <- allocMem :: IO (Ptr Int32) + gtk_icon_theme_get_search_path _obj' path nElements + nElements' <- peek nElements path' <- peek path - path'' <- (unpackFileNameArrayWithLength n_elements') path' - (mapCArrayWithLength n_elements') freeMem path' + path'' <- (unpackFileNameArrayWithLength nElements') path' + (mapCArrayWithLength nElements') freeMem path' freeMem path' touchManagedPtr _obj freeMem path - freeMem n_elements + freeMem nElements return path'' +data IconThemeGetSearchPathMethodInfo +instance (signature ~ (m ([[Char]])), MonadIO m, IconThemeK a) => MethodInfo IconThemeGetSearchPathMethodInfo a signature where + overloadedMethod _ = iconThemeGetSearchPath + -- method IconTheme::has_icon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -486,23 +583,26 @@ iconThemeHasIcon :: (MonadIO m, IconThemeK a) => - a -> -- _obj - T.Text -> -- icon_name - m Bool -iconThemeHasIcon _obj icon_name = liftIO $ do + a -- _obj + -> T.Text -- iconName + -> m Bool -- result +iconThemeHasIcon _obj iconName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - result <- gtk_icon_theme_has_icon _obj' icon_name' + iconName' <- textToCString iconName + result <- gtk_icon_theme_has_icon _obj' iconName' let result' = (/= 0) result touchManagedPtr _obj - freeMem icon_name' + freeMem iconName' return result' +data IconThemeHasIconMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, IconThemeK a) => MethodInfo IconThemeHasIconMethodInfo a signature where + overloadedMethod _ = iconThemeHasIcon + -- method IconTheme::list_contexts -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -514,8 +614,8 @@ iconThemeListContexts :: (MonadIO m, IconThemeK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result iconThemeListContexts _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_theme_list_contexts _obj' @@ -527,11 +627,14 @@ touchManagedPtr _obj return result'' +data IconThemeListContextsMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, IconThemeK a) => MethodInfo IconThemeListContextsMethodInfo a signature where + overloadedMethod _ = iconThemeListContexts + -- method IconTheme::list_icons -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -544,9 +647,9 @@ iconThemeListIcons :: (MonadIO m, IconThemeK a) => - a -> -- _obj - Maybe (T.Text) -> -- context - m [T.Text] + a -- _obj + -> Maybe (T.Text) -- context + -> m [T.Text] -- result iconThemeListIcons _obj context = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeContext <- case context of @@ -564,11 +667,14 @@ freeMem maybeContext return result'' +data IconThemeListIconsMethodInfo +instance (signature ~ (Maybe (T.Text) -> m [T.Text]), MonadIO m, IconThemeK a) => MethodInfo IconThemeListIconsMethodInfo a signature where + overloadedMethod _ = iconThemeListIcons + -- method IconTheme::load_icon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : True -- Skip return : False @@ -584,31 +690,34 @@ iconThemeLoadIcon :: (MonadIO m, IconThemeK a) => - a -> -- _obj - T.Text -> -- icon_name - Int32 -> -- size - [IconLookupFlags] -> -- flags - m GdkPixbuf.Pixbuf -iconThemeLoadIcon _obj icon_name size flags = liftIO $ do + a -- _obj + -> T.Text -- iconName + -> Int32 -- size + -> [IconLookupFlags] -- flags + -> m GdkPixbuf.Pixbuf -- result +iconThemeLoadIcon _obj iconName size flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name + iconName' <- textToCString iconName let flags' = gflagsToWord flags onException (do - result <- propagateGError $ gtk_icon_theme_load_icon _obj' icon_name' size flags' + result <- propagateGError $ gtk_icon_theme_load_icon _obj' iconName' size flags' checkUnexpectedReturnNULL "gtk_icon_theme_load_icon" result result' <- (wrapObject GdkPixbuf.Pixbuf) result touchManagedPtr _obj - freeMem icon_name' + freeMem iconName' return result' ) (do - freeMem icon_name' + freeMem iconName' ) +data IconThemeLoadIconMethodInfo +instance (signature ~ (T.Text -> Int32 -> [IconLookupFlags] -> m GdkPixbuf.Pixbuf), MonadIO m, IconThemeK a) => MethodInfo IconThemeLoadIconMethodInfo a signature where + overloadedMethod _ = iconThemeLoadIcon + -- method IconTheme::load_icon_for_scale -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : True -- Skip return : False @@ -625,32 +734,35 @@ iconThemeLoadIconForScale :: (MonadIO m, IconThemeK a) => - a -> -- _obj - T.Text -> -- icon_name - Int32 -> -- size - Int32 -> -- scale - [IconLookupFlags] -> -- flags - m GdkPixbuf.Pixbuf -iconThemeLoadIconForScale _obj icon_name size scale flags = liftIO $ do + a -- _obj + -> T.Text -- iconName + -> Int32 -- size + -> Int32 -- scale + -> [IconLookupFlags] -- flags + -> m GdkPixbuf.Pixbuf -- result +iconThemeLoadIconForScale _obj iconName size scale flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name + iconName' <- textToCString iconName let flags' = gflagsToWord flags onException (do - result <- propagateGError $ gtk_icon_theme_load_icon_for_scale _obj' icon_name' size scale flags' + result <- propagateGError $ gtk_icon_theme_load_icon_for_scale _obj' iconName' size scale flags' checkUnexpectedReturnNULL "gtk_icon_theme_load_icon_for_scale" result result' <- (wrapObject GdkPixbuf.Pixbuf) result touchManagedPtr _obj - freeMem icon_name' + freeMem iconName' return result' ) (do - freeMem icon_name' + freeMem iconName' ) +data IconThemeLoadIconForScaleMethodInfo +instance (signature ~ (T.Text -> Int32 -> Int32 -> [IconLookupFlags] -> m GdkPixbuf.Pixbuf), MonadIO m, IconThemeK a) => MethodInfo IconThemeLoadIconForScaleMethodInfo a signature where + overloadedMethod _ = iconThemeLoadIconForScale + -- method IconTheme::load_surface -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Surface" -- throws : True -- Skip return : False @@ -668,39 +780,42 @@ iconThemeLoadSurface :: (MonadIO m, IconThemeK a, Gdk.WindowK b) => - a -> -- _obj - T.Text -> -- icon_name - Int32 -> -- size - Int32 -> -- scale - Maybe (b) -> -- for_window - [IconLookupFlags] -> -- flags - m Cairo.Surface -iconThemeLoadSurface _obj icon_name size scale for_window flags = liftIO $ do + a -- _obj + -> T.Text -- iconName + -> Int32 -- size + -> Int32 -- scale + -> Maybe (b) -- forWindow + -> [IconLookupFlags] -- flags + -> m Cairo.Surface -- result +iconThemeLoadSurface _obj iconName size scale forWindow flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - maybeFor_window <- case for_window of + iconName' <- textToCString iconName + maybeForWindow <- case forWindow of Nothing -> return nullPtr - Just jFor_window -> do - let jFor_window' = unsafeManagedPtrCastPtr jFor_window - return jFor_window' + Just jForWindow -> do + let jForWindow' = unsafeManagedPtrCastPtr jForWindow + return jForWindow' let flags' = gflagsToWord flags onException (do - result <- propagateGError $ gtk_icon_theme_load_surface _obj' icon_name' size scale maybeFor_window flags' + result <- propagateGError $ gtk_icon_theme_load_surface _obj' iconName' size scale maybeForWindow flags' checkUnexpectedReturnNULL "gtk_icon_theme_load_surface" result result' <- (wrapBoxed Cairo.Surface) result touchManagedPtr _obj - whenJust for_window touchManagedPtr - freeMem icon_name' + whenJust forWindow touchManagedPtr + freeMem iconName' return result' ) (do - freeMem icon_name' + freeMem iconName' ) +data IconThemeLoadSurfaceMethodInfo +instance (signature ~ (T.Text -> Int32 -> Int32 -> Maybe (b) -> [IconLookupFlags] -> m Cairo.Surface), MonadIO m, IconThemeK a, Gdk.WindowK b) => MethodInfo IconThemeLoadSurfaceMethodInfo a signature where + overloadedMethod _ = iconThemeLoadSurface + -- method IconTheme::lookup_by_gicon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconInfo" -- throws : False -- Skip return : False @@ -715,11 +830,11 @@ iconThemeLookupByGicon :: (MonadIO m, IconThemeK a, Gio.IconK b) => - a -> -- _obj - b -> -- icon - Int32 -> -- size - [IconLookupFlags] -> -- flags - m IconInfo + a -- _obj + -> b -- icon + -> Int32 -- size + -> [IconLookupFlags] -- flags + -> m IconInfo -- result iconThemeLookupByGicon _obj icon size flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let icon' = unsafeManagedPtrCastPtr icon @@ -731,11 +846,14 @@ touchManagedPtr icon return result' +data IconThemeLookupByGiconMethodInfo +instance (signature ~ (b -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a, Gio.IconK b) => MethodInfo IconThemeLookupByGiconMethodInfo a signature where + overloadedMethod _ = iconThemeLookupByGicon + -- method IconTheme::lookup_by_gicon_for_scale -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconInfo" -- throws : False -- Skip return : False @@ -751,12 +869,12 @@ iconThemeLookupByGiconForScale :: (MonadIO m, IconThemeK a, Gio.IconK b) => - a -> -- _obj - b -> -- icon - Int32 -> -- size - Int32 -> -- scale - [IconLookupFlags] -> -- flags - m IconInfo + a -- _obj + -> b -- icon + -> Int32 -- size + -> Int32 -- scale + -> [IconLookupFlags] -- flags + -> m IconInfo -- result iconThemeLookupByGiconForScale _obj icon size scale flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let icon' = unsafeManagedPtrCastPtr icon @@ -768,11 +886,14 @@ touchManagedPtr icon return result' +data IconThemeLookupByGiconForScaleMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a, Gio.IconK b) => MethodInfo IconThemeLookupByGiconForScaleMethodInfo a signature where + overloadedMethod _ = iconThemeLookupByGiconForScale + -- method IconTheme::lookup_icon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconInfo" -- throws : False -- Skip return : False @@ -787,27 +908,30 @@ iconThemeLookupIcon :: (MonadIO m, IconThemeK a) => - a -> -- _obj - T.Text -> -- icon_name - Int32 -> -- size - [IconLookupFlags] -> -- flags - m IconInfo -iconThemeLookupIcon _obj icon_name size flags = liftIO $ do + a -- _obj + -> T.Text -- iconName + -> Int32 -- size + -> [IconLookupFlags] -- flags + -> m IconInfo -- result +iconThemeLookupIcon _obj iconName size flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name + iconName' <- textToCString iconName let flags' = gflagsToWord flags - result <- gtk_icon_theme_lookup_icon _obj' icon_name' size flags' + result <- gtk_icon_theme_lookup_icon _obj' iconName' size flags' checkUnexpectedReturnNULL "gtk_icon_theme_lookup_icon" result result' <- (wrapObject IconInfo) result touchManagedPtr _obj - freeMem icon_name' + freeMem iconName' return result' +data IconThemeLookupIconMethodInfo +instance (signature ~ (T.Text -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a) => MethodInfo IconThemeLookupIconMethodInfo a signature where + overloadedMethod _ = iconThemeLookupIcon + -- method IconTheme::lookup_icon_for_scale -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconInfo" -- throws : False -- Skip return : False @@ -823,28 +947,31 @@ iconThemeLookupIconForScale :: (MonadIO m, IconThemeK a) => - a -> -- _obj - T.Text -> -- icon_name - Int32 -> -- size - Int32 -> -- scale - [IconLookupFlags] -> -- flags - m IconInfo -iconThemeLookupIconForScale _obj icon_name size scale flags = liftIO $ do + a -- _obj + -> T.Text -- iconName + -> Int32 -- size + -> Int32 -- scale + -> [IconLookupFlags] -- flags + -> m IconInfo -- result +iconThemeLookupIconForScale _obj iconName size scale flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name + iconName' <- textToCString iconName let flags' = gflagsToWord flags - result <- gtk_icon_theme_lookup_icon_for_scale _obj' icon_name' size scale flags' + result <- gtk_icon_theme_lookup_icon_for_scale _obj' iconName' size scale flags' checkUnexpectedReturnNULL "gtk_icon_theme_lookup_icon_for_scale" result result' <- (wrapObject IconInfo) result touchManagedPtr _obj - freeMem icon_name' + freeMem iconName' return result' +data IconThemeLookupIconForScaleMethodInfo +instance (signature ~ (T.Text -> Int32 -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a) => MethodInfo IconThemeLookupIconForScaleMethodInfo a signature where + overloadedMethod _ = iconThemeLookupIconForScale + -- method IconTheme::prepend_search_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -857,9 +984,9 @@ iconThemePrependSearchPath :: (MonadIO m, IconThemeK a) => - a -> -- _obj - [Char] -> -- path - m () + a -- _obj + -> [Char] -- path + -> m () -- result iconThemePrependSearchPath _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path' <- stringToCString path @@ -868,11 +995,14 @@ freeMem path' return () +data IconThemePrependSearchPathMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, IconThemeK a) => MethodInfo IconThemePrependSearchPathMethodInfo a signature where + overloadedMethod _ = iconThemePrependSearchPath + -- method IconTheme::rescan_if_needed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -884,8 +1014,8 @@ iconThemeRescanIfNeeded :: (MonadIO m, IconThemeK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result iconThemeRescanIfNeeded _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_theme_rescan_if_needed _obj' @@ -893,11 +1023,14 @@ touchManagedPtr _obj return result' +data IconThemeRescanIfNeededMethodInfo +instance (signature ~ (m Bool), MonadIO m, IconThemeK a) => MethodInfo IconThemeRescanIfNeededMethodInfo a signature where + overloadedMethod _ = iconThemeRescanIfNeeded + -- method IconTheme::set_custom_theme -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "theme_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "theme_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "theme_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -910,26 +1043,29 @@ iconThemeSetCustomTheme :: (MonadIO m, IconThemeK a) => - a -> -- _obj - Maybe (T.Text) -> -- theme_name - m () -iconThemeSetCustomTheme _obj theme_name = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- themeName + -> m () -- result +iconThemeSetCustomTheme _obj themeName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeTheme_name <- case theme_name of + maybeThemeName <- case themeName of Nothing -> return nullPtr - Just jTheme_name -> do - jTheme_name' <- textToCString jTheme_name - return jTheme_name' - gtk_icon_theme_set_custom_theme _obj' maybeTheme_name + Just jThemeName -> do + jThemeName' <- textToCString jThemeName + return jThemeName' + gtk_icon_theme_set_custom_theme _obj' maybeThemeName touchManagedPtr _obj - freeMem maybeTheme_name + freeMem maybeThemeName return () +data IconThemeSetCustomThemeMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IconThemeK a) => MethodInfo IconThemeSetCustomThemeMethodInfo a signature where + overloadedMethod _ = iconThemeSetCustomTheme + -- method IconTheme::set_screen -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -942,9 +1078,9 @@ iconThemeSetScreen :: (MonadIO m, IconThemeK a, Gdk.ScreenK b) => - a -> -- _obj - b -> -- screen - m () + a -- _obj + -> b -- screen + -> m () -- result iconThemeSetScreen _obj screen = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let screen' = unsafeManagedPtrCastPtr screen @@ -953,11 +1089,14 @@ touchManagedPtr screen return () +data IconThemeSetScreenMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, IconThemeK a, Gdk.ScreenK b) => MethodInfo IconThemeSetScreenMethodInfo a signature where + overloadedMethod _ = iconThemeSetScreen + -- method IconTheme::set_search_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_elements", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_elements", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_elements", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_elements", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -971,24 +1110,27 @@ iconThemeSetSearchPath :: (MonadIO m, IconThemeK a) => - a -> -- _obj - [[Char]] -> -- path - m () + a -- _obj + -> [[Char]] -- path + -> m () -- result iconThemeSetSearchPath _obj path = liftIO $ do - let n_elements = fromIntegral $ length path + let nElements = fromIntegral $ length path let _obj' = unsafeManagedPtrCastPtr _obj path' <- packFileNameArray path - gtk_icon_theme_set_search_path _obj' path' n_elements + gtk_icon_theme_set_search_path _obj' path' nElements touchManagedPtr _obj - (mapCArrayWithLength n_elements) freeMem path' + (mapCArrayWithLength nElements) freeMem path' freeMem path' return () +data IconThemeSetSearchPathMethodInfo +instance (signature ~ ([[Char]] -> m ()), MonadIO m, IconThemeK a) => MethodInfo IconThemeSetSearchPathMethodInfo a signature where + overloadedMethod _ = iconThemeSetSearchPath + -- method IconTheme::add_builtin_icon -- method type : MemberFunction --- Args : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1002,23 +1144,22 @@ {-# DEPRECATED iconThemeAddBuiltinIcon ["(Since version 3.14)","Use gtk_icon_theme_add_resource_path()"," to add application-specific icons to the icon theme."]#-} iconThemeAddBuiltinIcon :: (MonadIO m, GdkPixbuf.PixbufK a) => - T.Text -> -- icon_name - Int32 -> -- size - a -> -- pixbuf - m () -iconThemeAddBuiltinIcon icon_name size pixbuf = liftIO $ do - icon_name' <- textToCString icon_name + T.Text -- iconName + -> Int32 -- size + -> a -- pixbuf + -> m () -- result +iconThemeAddBuiltinIcon iconName size pixbuf = liftIO $ do + iconName' <- textToCString iconName let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_icon_theme_add_builtin_icon icon_name' size pixbuf' + gtk_icon_theme_add_builtin_icon iconName' size pixbuf' touchManagedPtr pixbuf - freeMem icon_name' + freeMem iconName' return () -- method IconTheme::get_default -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "IconTheme" -- throws : False -- Skip return : False @@ -1029,7 +1170,7 @@ iconThemeGetDefault :: (MonadIO m) => - m IconTheme + m IconTheme -- result iconThemeGetDefault = liftIO $ do result <- gtk_icon_theme_get_default checkUnexpectedReturnNULL "gtk_icon_theme_get_default" result @@ -1038,9 +1179,8 @@ -- method IconTheme::get_for_screen -- method type : MemberFunction --- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconTheme" -- throws : False -- Skip return : False @@ -1052,8 +1192,8 @@ iconThemeGetForScreen :: (MonadIO m, Gdk.ScreenK a) => - a -> -- screen - m IconTheme + a -- screen + -> m IconTheme -- result iconThemeGetForScreen screen = liftIO $ do let screen' = unsafeManagedPtrCastPtr screen result <- gtk_icon_theme_get_for_screen screen' diff --git a/GI/Gtk/Objects/IconTheme.hs-boot b/GI/Gtk/Objects/IconTheme.hs-boot --- a/GI/Gtk/Objects/IconTheme.hs-boot +++ b/GI/Gtk/Objects/IconTheme.hs-boot @@ -12,3 +12,25 @@ class GObject o => IconThemeK o instance (GObject o, IsDescendantOf IconTheme o) => IconThemeK o data IconThemeChangedSignalInfo +data IconThemeAddResourcePathMethodInfo +data IconThemeAppendSearchPathMethodInfo +data IconThemeChooseIconMethodInfo +data IconThemeChooseIconForScaleMethodInfo +data IconThemeGetExampleIconNameMethodInfo +data IconThemeGetIconSizesMethodInfo +data IconThemeGetSearchPathMethodInfo +data IconThemeHasIconMethodInfo +data IconThemeListContextsMethodInfo +data IconThemeListIconsMethodInfo +data IconThemeLoadIconMethodInfo +data IconThemeLoadIconForScaleMethodInfo +data IconThemeLoadSurfaceMethodInfo +data IconThemeLookupByGiconMethodInfo +data IconThemeLookupByGiconForScaleMethodInfo +data IconThemeLookupIconMethodInfo +data IconThemeLookupIconForScaleMethodInfo +data IconThemePrependSearchPathMethodInfo +data IconThemeRescanIfNeededMethodInfo +data IconThemeSetCustomThemeMethodInfo +data IconThemeSetScreenMethodInfo +data IconThemeSetSearchPathMethodInfo diff --git a/GI/Gtk/Objects/IconView.hs b/GI/Gtk/Objects/IconView.hs --- a/GI/Gtk/Objects/IconView.hs +++ b/GI/Gtk/Objects/IconView.hs @@ -1,3144 +1,3787 @@ -{- | -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.Objects.IconView - ( - --- * Exported types - IconView(..) , - IconViewK , - toIconView , - noIconView , - - - -- * Methods --- ** iconViewConvertWidgetToBinWindowCoords - iconViewConvertWidgetToBinWindowCoords , - - --- ** iconViewCreateDragIcon - iconViewCreateDragIcon , - - --- ** iconViewEnableModelDragDest - iconViewEnableModelDragDest , - - --- ** iconViewEnableModelDragSource - iconViewEnableModelDragSource , - - --- ** iconViewGetActivateOnSingleClick - iconViewGetActivateOnSingleClick , - - --- ** iconViewGetCellRect - iconViewGetCellRect , - - --- ** iconViewGetColumnSpacing - iconViewGetColumnSpacing , - - --- ** iconViewGetColumns - iconViewGetColumns , - - --- ** iconViewGetCursor - iconViewGetCursor , - - --- ** iconViewGetDestItemAtPos - iconViewGetDestItemAtPos , - - --- ** iconViewGetDragDestItem - iconViewGetDragDestItem , - - --- ** iconViewGetItemAtPos - iconViewGetItemAtPos , - - --- ** iconViewGetItemColumn - iconViewGetItemColumn , - - --- ** iconViewGetItemOrientation - iconViewGetItemOrientation , - - --- ** iconViewGetItemPadding - iconViewGetItemPadding , - - --- ** iconViewGetItemRow - iconViewGetItemRow , - - --- ** iconViewGetItemWidth - iconViewGetItemWidth , - - --- ** iconViewGetMargin - iconViewGetMargin , - - --- ** iconViewGetMarkupColumn - iconViewGetMarkupColumn , - - --- ** iconViewGetModel - iconViewGetModel , - - --- ** iconViewGetPathAtPos - iconViewGetPathAtPos , - - --- ** iconViewGetPixbufColumn - iconViewGetPixbufColumn , - - --- ** iconViewGetReorderable - iconViewGetReorderable , - - --- ** iconViewGetRowSpacing - iconViewGetRowSpacing , - - --- ** iconViewGetSelectedItems - iconViewGetSelectedItems , - - --- ** iconViewGetSelectionMode - iconViewGetSelectionMode , - - --- ** iconViewGetSpacing - iconViewGetSpacing , - - --- ** iconViewGetTextColumn - iconViewGetTextColumn , - - --- ** iconViewGetTooltipColumn - iconViewGetTooltipColumn , - - --- ** iconViewGetTooltipContext - iconViewGetTooltipContext , - - --- ** iconViewGetVisibleRange - iconViewGetVisibleRange , - - --- ** iconViewItemActivated - iconViewItemActivated , - - --- ** iconViewNew - iconViewNew , - - --- ** iconViewNewWithArea - iconViewNewWithArea , - - --- ** iconViewNewWithModel - iconViewNewWithModel , - - --- ** iconViewPathIsSelected - iconViewPathIsSelected , - - --- ** iconViewScrollToPath - iconViewScrollToPath , - - --- ** iconViewSelectAll - iconViewSelectAll , - - --- ** iconViewSelectPath - iconViewSelectPath , - - --- ** iconViewSelectedForeach - iconViewSelectedForeach , - - --- ** iconViewSetActivateOnSingleClick - iconViewSetActivateOnSingleClick , - - --- ** iconViewSetColumnSpacing - iconViewSetColumnSpacing , - - --- ** iconViewSetColumns - iconViewSetColumns , - - --- ** iconViewSetCursor - iconViewSetCursor , - - --- ** iconViewSetDragDestItem - iconViewSetDragDestItem , - - --- ** iconViewSetItemOrientation - iconViewSetItemOrientation , - - --- ** iconViewSetItemPadding - iconViewSetItemPadding , - - --- ** iconViewSetItemWidth - iconViewSetItemWidth , - - --- ** iconViewSetMargin - iconViewSetMargin , - - --- ** iconViewSetMarkupColumn - iconViewSetMarkupColumn , - - --- ** iconViewSetModel - iconViewSetModel , - - --- ** iconViewSetPixbufColumn - iconViewSetPixbufColumn , - - --- ** iconViewSetReorderable - iconViewSetReorderable , - - --- ** iconViewSetRowSpacing - iconViewSetRowSpacing , - - --- ** iconViewSetSelectionMode - iconViewSetSelectionMode , - - --- ** iconViewSetSpacing - iconViewSetSpacing , - - --- ** iconViewSetTextColumn - iconViewSetTextColumn , - - --- ** iconViewSetTooltipCell - iconViewSetTooltipCell , - - --- ** iconViewSetTooltipColumn - iconViewSetTooltipColumn , - - --- ** iconViewSetTooltipItem - iconViewSetTooltipItem , - - --- ** iconViewUnselectAll - iconViewUnselectAll , - - --- ** iconViewUnselectPath - iconViewUnselectPath , - - --- ** iconViewUnsetModelDragDest - iconViewUnsetModelDragDest , - - --- ** iconViewUnsetModelDragSource - iconViewUnsetModelDragSource , - - - - - -- * Properties --- ** ActivateOnSingleClick - IconViewActivateOnSingleClickPropertyInfo, - constructIconViewActivateOnSingleClick , - getIconViewActivateOnSingleClick , - setIconViewActivateOnSingleClick , - - --- ** CellArea - IconViewCellAreaPropertyInfo , - constructIconViewCellArea , - getIconViewCellArea , - - --- ** ColumnSpacing - IconViewColumnSpacingPropertyInfo , - constructIconViewColumnSpacing , - getIconViewColumnSpacing , - setIconViewColumnSpacing , - - --- ** Columns - IconViewColumnsPropertyInfo , - constructIconViewColumns , - getIconViewColumns , - setIconViewColumns , - - --- ** ItemOrientation - IconViewItemOrientationPropertyInfo , - constructIconViewItemOrientation , - getIconViewItemOrientation , - setIconViewItemOrientation , - - --- ** ItemPadding - IconViewItemPaddingPropertyInfo , - constructIconViewItemPadding , - getIconViewItemPadding , - setIconViewItemPadding , - - --- ** ItemWidth - IconViewItemWidthPropertyInfo , - constructIconViewItemWidth , - getIconViewItemWidth , - setIconViewItemWidth , - - --- ** Margin - IconViewMarginPropertyInfo , - constructIconViewMargin , - getIconViewMargin , - setIconViewMargin , - - --- ** MarkupColumn - IconViewMarkupColumnPropertyInfo , - constructIconViewMarkupColumn , - getIconViewMarkupColumn , - setIconViewMarkupColumn , - - --- ** Model - IconViewModelPropertyInfo , - constructIconViewModel , - getIconViewModel , - setIconViewModel , - - --- ** PixbufColumn - IconViewPixbufColumnPropertyInfo , - constructIconViewPixbufColumn , - getIconViewPixbufColumn , - setIconViewPixbufColumn , - - --- ** Reorderable - IconViewReorderablePropertyInfo , - constructIconViewReorderable , - getIconViewReorderable , - setIconViewReorderable , - - --- ** RowSpacing - IconViewRowSpacingPropertyInfo , - constructIconViewRowSpacing , - getIconViewRowSpacing , - setIconViewRowSpacing , - - --- ** SelectionMode - IconViewSelectionModePropertyInfo , - constructIconViewSelectionMode , - getIconViewSelectionMode , - setIconViewSelectionMode , - - --- ** Spacing - IconViewSpacingPropertyInfo , - constructIconViewSpacing , - getIconViewSpacing , - setIconViewSpacing , - - --- ** TextColumn - IconViewTextColumnPropertyInfo , - constructIconViewTextColumn , - getIconViewTextColumn , - setIconViewTextColumn , - - --- ** TooltipColumn - IconViewTooltipColumnPropertyInfo , - constructIconViewTooltipColumn , - getIconViewTooltipColumn , - setIconViewTooltipColumn , - - - - - -- * Signals --- ** ActivateCursorItem - IconViewActivateCursorItemCallback , - IconViewActivateCursorItemCallbackC , - IconViewActivateCursorItemSignalInfo , - afterIconViewActivateCursorItem , - iconViewActivateCursorItemCallbackWrapper, - iconViewActivateCursorItemClosure , - mkIconViewActivateCursorItemCallback , - noIconViewActivateCursorItemCallback , - onIconViewActivateCursorItem , - - --- ** ItemActivated - IconViewItemActivatedCallback , - IconViewItemActivatedCallbackC , - IconViewItemActivatedSignalInfo , - afterIconViewItemActivated , - iconViewItemActivatedCallbackWrapper , - iconViewItemActivatedClosure , - mkIconViewItemActivatedCallback , - noIconViewItemActivatedCallback , - onIconViewItemActivated , - - --- ** MoveCursor - IconViewMoveCursorCallback , - IconViewMoveCursorCallbackC , - IconViewMoveCursorSignalInfo , - afterIconViewMoveCursor , - iconViewMoveCursorCallbackWrapper , - iconViewMoveCursorClosure , - mkIconViewMoveCursorCallback , - noIconViewMoveCursorCallback , - onIconViewMoveCursor , - - --- ** SelectAll - IconViewSelectAllCallback , - IconViewSelectAllCallbackC , - IconViewSelectAllSignalInfo , - afterIconViewSelectAll , - iconViewSelectAllCallbackWrapper , - iconViewSelectAllClosure , - mkIconViewSelectAllCallback , - noIconViewSelectAllCallback , - onIconViewSelectAll , - - --- ** SelectCursorItem - IconViewSelectCursorItemCallback , - IconViewSelectCursorItemCallbackC , - IconViewSelectCursorItemSignalInfo , - afterIconViewSelectCursorItem , - iconViewSelectCursorItemCallbackWrapper , - iconViewSelectCursorItemClosure , - mkIconViewSelectCursorItemCallback , - noIconViewSelectCursorItemCallback , - onIconViewSelectCursorItem , - - --- ** SelectionChanged - IconViewSelectionChangedCallback , - IconViewSelectionChangedCallbackC , - IconViewSelectionChangedSignalInfo , - afterIconViewSelectionChanged , - iconViewSelectionChangedCallbackWrapper , - iconViewSelectionChangedClosure , - mkIconViewSelectionChangedCallback , - noIconViewSelectionChangedCallback , - onIconViewSelectionChanged , - - --- ** ToggleCursorItem - IconViewToggleCursorItemCallback , - IconViewToggleCursorItemCallbackC , - IconViewToggleCursorItemSignalInfo , - afterIconViewToggleCursorItem , - iconViewToggleCursorItemCallbackWrapper , - iconViewToggleCursorItemClosure , - mkIconViewToggleCursorItemCallback , - noIconViewToggleCursorItemCallback , - onIconViewToggleCursorItem , - - --- ** UnselectAll - IconViewUnselectAllCallback , - IconViewUnselectAllCallbackC , - IconViewUnselectAllSignalInfo , - afterIconViewUnselectAll , - iconViewUnselectAllCallbackWrapper , - iconViewUnselectAllClosure , - mkIconViewUnselectAllCallback , - noIconViewUnselectAllCallback , - onIconViewUnselectAll , - - - - - ) 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.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Cairo as Cairo - -newtype IconView = IconView (ForeignPtr IconView) -foreign import ccall "gtk_icon_view_get_type" - c_gtk_icon_view_get_type :: IO GType - -type instance ParentTypes IconView = IconViewParentTypes -type IconViewParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellLayout, Scrollable] - -instance GObject IconView where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_icon_view_get_type - - -class GObject o => IconViewK o -instance (GObject o, IsDescendantOf IconView o) => IconViewK o - -toIconView :: IconViewK o => o -> IO IconView -toIconView = unsafeCastTo IconView - -noIconView :: Maybe IconView -noIconView = Nothing - --- signal IconView::activate-cursor-item -type IconViewActivateCursorItemCallback = - IO Bool - -noIconViewActivateCursorItemCallback :: Maybe IconViewActivateCursorItemCallback -noIconViewActivateCursorItemCallback = Nothing - -type IconViewActivateCursorItemCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkIconViewActivateCursorItemCallback :: IconViewActivateCursorItemCallbackC -> IO (FunPtr IconViewActivateCursorItemCallbackC) - -iconViewActivateCursorItemClosure :: IconViewActivateCursorItemCallback -> IO Closure -iconViewActivateCursorItemClosure cb = newCClosure =<< mkIconViewActivateCursorItemCallback wrapped - where wrapped = iconViewActivateCursorItemCallbackWrapper cb - -iconViewActivateCursorItemCallbackWrapper :: - IconViewActivateCursorItemCallback -> - Ptr () -> - Ptr () -> - IO CInt -iconViewActivateCursorItemCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onIconViewActivateCursorItem :: (GObject a, MonadIO m) => a -> IconViewActivateCursorItemCallback -> m SignalHandlerId -onIconViewActivateCursorItem obj cb = liftIO $ connectIconViewActivateCursorItem obj cb SignalConnectBefore -afterIconViewActivateCursorItem :: (GObject a, MonadIO m) => a -> IconViewActivateCursorItemCallback -> m SignalHandlerId -afterIconViewActivateCursorItem obj cb = connectIconViewActivateCursorItem obj cb SignalConnectAfter - -connectIconViewActivateCursorItem :: (GObject a, MonadIO m) => - a -> IconViewActivateCursorItemCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewActivateCursorItem obj cb after = liftIO $ do - cb' <- mkIconViewActivateCursorItemCallback (iconViewActivateCursorItemCallbackWrapper cb) - connectSignalFunPtr obj "activate-cursor-item" cb' after - --- signal IconView::item-activated -type IconViewItemActivatedCallback = - TreePath -> - IO () - -noIconViewItemActivatedCallback :: Maybe IconViewItemActivatedCallback -noIconViewItemActivatedCallback = Nothing - -type IconViewItemActivatedCallbackC = - Ptr () -> -- object - Ptr TreePath -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconViewItemActivatedCallback :: IconViewItemActivatedCallbackC -> IO (FunPtr IconViewItemActivatedCallbackC) - -iconViewItemActivatedClosure :: IconViewItemActivatedCallback -> IO Closure -iconViewItemActivatedClosure cb = newCClosure =<< mkIconViewItemActivatedCallback wrapped - where wrapped = iconViewItemActivatedCallbackWrapper cb - -iconViewItemActivatedCallbackWrapper :: - IconViewItemActivatedCallback -> - Ptr () -> - Ptr TreePath -> - Ptr () -> - IO () -iconViewItemActivatedCallbackWrapper _cb _ path _ = do - path' <- (newBoxed TreePath) path - _cb path' - -onIconViewItemActivated :: (GObject a, MonadIO m) => a -> IconViewItemActivatedCallback -> m SignalHandlerId -onIconViewItemActivated obj cb = liftIO $ connectIconViewItemActivated obj cb SignalConnectBefore -afterIconViewItemActivated :: (GObject a, MonadIO m) => a -> IconViewItemActivatedCallback -> m SignalHandlerId -afterIconViewItemActivated obj cb = connectIconViewItemActivated obj cb SignalConnectAfter - -connectIconViewItemActivated :: (GObject a, MonadIO m) => - a -> IconViewItemActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewItemActivated obj cb after = liftIO $ do - cb' <- mkIconViewItemActivatedCallback (iconViewItemActivatedCallbackWrapper cb) - connectSignalFunPtr obj "item-activated" cb' after - --- signal IconView::move-cursor -type IconViewMoveCursorCallback = - MovementStep -> - Int32 -> - IO Bool - -noIconViewMoveCursorCallback :: Maybe IconViewMoveCursorCallback -noIconViewMoveCursorCallback = Nothing - -type IconViewMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkIconViewMoveCursorCallback :: IconViewMoveCursorCallbackC -> IO (FunPtr IconViewMoveCursorCallbackC) - -iconViewMoveCursorClosure :: IconViewMoveCursorCallback -> IO Closure -iconViewMoveCursorClosure cb = newCClosure =<< mkIconViewMoveCursorCallback wrapped - where wrapped = iconViewMoveCursorCallbackWrapper cb - -iconViewMoveCursorCallbackWrapper :: - IconViewMoveCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - Ptr () -> - IO CInt -iconViewMoveCursorCallbackWrapper _cb _ step count _ = do - let step' = (toEnum . fromIntegral) step - result <- _cb step' count - let result' = (fromIntegral . fromEnum) result - return result' - -onIconViewMoveCursor :: (GObject a, MonadIO m) => a -> IconViewMoveCursorCallback -> m SignalHandlerId -onIconViewMoveCursor obj cb = liftIO $ connectIconViewMoveCursor obj cb SignalConnectBefore -afterIconViewMoveCursor :: (GObject a, MonadIO m) => a -> IconViewMoveCursorCallback -> m SignalHandlerId -afterIconViewMoveCursor obj cb = connectIconViewMoveCursor obj cb SignalConnectAfter - -connectIconViewMoveCursor :: (GObject a, MonadIO m) => - a -> IconViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewMoveCursor obj cb after = liftIO $ do - cb' <- mkIconViewMoveCursorCallback (iconViewMoveCursorCallbackWrapper cb) - connectSignalFunPtr obj "move-cursor" cb' after - --- signal IconView::select-all -type IconViewSelectAllCallback = - IO () - -noIconViewSelectAllCallback :: Maybe IconViewSelectAllCallback -noIconViewSelectAllCallback = Nothing - -type IconViewSelectAllCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconViewSelectAllCallback :: IconViewSelectAllCallbackC -> IO (FunPtr IconViewSelectAllCallbackC) - -iconViewSelectAllClosure :: IconViewSelectAllCallback -> IO Closure -iconViewSelectAllClosure cb = newCClosure =<< mkIconViewSelectAllCallback wrapped - where wrapped = iconViewSelectAllCallbackWrapper cb - -iconViewSelectAllCallbackWrapper :: - IconViewSelectAllCallback -> - Ptr () -> - Ptr () -> - IO () -iconViewSelectAllCallbackWrapper _cb _ _ = do - _cb - -onIconViewSelectAll :: (GObject a, MonadIO m) => a -> IconViewSelectAllCallback -> m SignalHandlerId -onIconViewSelectAll obj cb = liftIO $ connectIconViewSelectAll obj cb SignalConnectBefore -afterIconViewSelectAll :: (GObject a, MonadIO m) => a -> IconViewSelectAllCallback -> m SignalHandlerId -afterIconViewSelectAll obj cb = connectIconViewSelectAll obj cb SignalConnectAfter - -connectIconViewSelectAll :: (GObject a, MonadIO m) => - a -> IconViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewSelectAll obj cb after = liftIO $ do - cb' <- mkIconViewSelectAllCallback (iconViewSelectAllCallbackWrapper cb) - connectSignalFunPtr obj "select-all" cb' after - --- signal IconView::select-cursor-item -type IconViewSelectCursorItemCallback = - IO () - -noIconViewSelectCursorItemCallback :: Maybe IconViewSelectCursorItemCallback -noIconViewSelectCursorItemCallback = Nothing - -type IconViewSelectCursorItemCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconViewSelectCursorItemCallback :: IconViewSelectCursorItemCallbackC -> IO (FunPtr IconViewSelectCursorItemCallbackC) - -iconViewSelectCursorItemClosure :: IconViewSelectCursorItemCallback -> IO Closure -iconViewSelectCursorItemClosure cb = newCClosure =<< mkIconViewSelectCursorItemCallback wrapped - where wrapped = iconViewSelectCursorItemCallbackWrapper cb - -iconViewSelectCursorItemCallbackWrapper :: - IconViewSelectCursorItemCallback -> - Ptr () -> - Ptr () -> - IO () -iconViewSelectCursorItemCallbackWrapper _cb _ _ = do - _cb - -onIconViewSelectCursorItem :: (GObject a, MonadIO m) => a -> IconViewSelectCursorItemCallback -> m SignalHandlerId -onIconViewSelectCursorItem obj cb = liftIO $ connectIconViewSelectCursorItem obj cb SignalConnectBefore -afterIconViewSelectCursorItem :: (GObject a, MonadIO m) => a -> IconViewSelectCursorItemCallback -> m SignalHandlerId -afterIconViewSelectCursorItem obj cb = connectIconViewSelectCursorItem obj cb SignalConnectAfter - -connectIconViewSelectCursorItem :: (GObject a, MonadIO m) => - a -> IconViewSelectCursorItemCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewSelectCursorItem obj cb after = liftIO $ do - cb' <- mkIconViewSelectCursorItemCallback (iconViewSelectCursorItemCallbackWrapper cb) - connectSignalFunPtr obj "select-cursor-item" cb' after - --- signal IconView::selection-changed -type IconViewSelectionChangedCallback = - IO () - -noIconViewSelectionChangedCallback :: Maybe IconViewSelectionChangedCallback -noIconViewSelectionChangedCallback = Nothing - -type IconViewSelectionChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconViewSelectionChangedCallback :: IconViewSelectionChangedCallbackC -> IO (FunPtr IconViewSelectionChangedCallbackC) - -iconViewSelectionChangedClosure :: IconViewSelectionChangedCallback -> IO Closure -iconViewSelectionChangedClosure cb = newCClosure =<< mkIconViewSelectionChangedCallback wrapped - where wrapped = iconViewSelectionChangedCallbackWrapper cb - -iconViewSelectionChangedCallbackWrapper :: - IconViewSelectionChangedCallback -> - Ptr () -> - Ptr () -> - IO () -iconViewSelectionChangedCallbackWrapper _cb _ _ = do - _cb - -onIconViewSelectionChanged :: (GObject a, MonadIO m) => a -> IconViewSelectionChangedCallback -> m SignalHandlerId -onIconViewSelectionChanged obj cb = liftIO $ connectIconViewSelectionChanged obj cb SignalConnectBefore -afterIconViewSelectionChanged :: (GObject a, MonadIO m) => a -> IconViewSelectionChangedCallback -> m SignalHandlerId -afterIconViewSelectionChanged obj cb = connectIconViewSelectionChanged obj cb SignalConnectAfter - -connectIconViewSelectionChanged :: (GObject a, MonadIO m) => - a -> IconViewSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewSelectionChanged obj cb after = liftIO $ do - cb' <- mkIconViewSelectionChangedCallback (iconViewSelectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "selection-changed" cb' after - --- signal IconView::toggle-cursor-item -type IconViewToggleCursorItemCallback = - IO () - -noIconViewToggleCursorItemCallback :: Maybe IconViewToggleCursorItemCallback -noIconViewToggleCursorItemCallback = Nothing - -type IconViewToggleCursorItemCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconViewToggleCursorItemCallback :: IconViewToggleCursorItemCallbackC -> IO (FunPtr IconViewToggleCursorItemCallbackC) - -iconViewToggleCursorItemClosure :: IconViewToggleCursorItemCallback -> IO Closure -iconViewToggleCursorItemClosure cb = newCClosure =<< mkIconViewToggleCursorItemCallback wrapped - where wrapped = iconViewToggleCursorItemCallbackWrapper cb - -iconViewToggleCursorItemCallbackWrapper :: - IconViewToggleCursorItemCallback -> - Ptr () -> - Ptr () -> - IO () -iconViewToggleCursorItemCallbackWrapper _cb _ _ = do - _cb - -onIconViewToggleCursorItem :: (GObject a, MonadIO m) => a -> IconViewToggleCursorItemCallback -> m SignalHandlerId -onIconViewToggleCursorItem obj cb = liftIO $ connectIconViewToggleCursorItem obj cb SignalConnectBefore -afterIconViewToggleCursorItem :: (GObject a, MonadIO m) => a -> IconViewToggleCursorItemCallback -> m SignalHandlerId -afterIconViewToggleCursorItem obj cb = connectIconViewToggleCursorItem obj cb SignalConnectAfter - -connectIconViewToggleCursorItem :: (GObject a, MonadIO m) => - a -> IconViewToggleCursorItemCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewToggleCursorItem obj cb after = liftIO $ do - cb' <- mkIconViewToggleCursorItemCallback (iconViewToggleCursorItemCallbackWrapper cb) - connectSignalFunPtr obj "toggle-cursor-item" cb' after - --- signal IconView::unselect-all -type IconViewUnselectAllCallback = - IO () - -noIconViewUnselectAllCallback :: Maybe IconViewUnselectAllCallback -noIconViewUnselectAllCallback = Nothing - -type IconViewUnselectAllCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkIconViewUnselectAllCallback :: IconViewUnselectAllCallbackC -> IO (FunPtr IconViewUnselectAllCallbackC) - -iconViewUnselectAllClosure :: IconViewUnselectAllCallback -> IO Closure -iconViewUnselectAllClosure cb = newCClosure =<< mkIconViewUnselectAllCallback wrapped - where wrapped = iconViewUnselectAllCallbackWrapper cb - -iconViewUnselectAllCallbackWrapper :: - IconViewUnselectAllCallback -> - Ptr () -> - Ptr () -> - IO () -iconViewUnselectAllCallbackWrapper _cb _ _ = do - _cb - -onIconViewUnselectAll :: (GObject a, MonadIO m) => a -> IconViewUnselectAllCallback -> m SignalHandlerId -onIconViewUnselectAll obj cb = liftIO $ connectIconViewUnselectAll obj cb SignalConnectBefore -afterIconViewUnselectAll :: (GObject a, MonadIO m) => a -> IconViewUnselectAllCallback -> m SignalHandlerId -afterIconViewUnselectAll obj cb = connectIconViewUnselectAll obj cb SignalConnectAfter - -connectIconViewUnselectAll :: (GObject a, MonadIO m) => - a -> IconViewUnselectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectIconViewUnselectAll obj cb after = liftIO $ do - cb' <- mkIconViewUnselectAllCallback (iconViewUnselectAllCallbackWrapper cb) - connectSignalFunPtr obj "unselect-all" cb' after - --- VVV Prop "activate-on-single-click" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewActivateOnSingleClick :: (MonadIO m, IconViewK o) => o -> m Bool -getIconViewActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click" - -setIconViewActivateOnSingleClick :: (MonadIO m, IconViewK o) => o -> Bool -> m () -setIconViewActivateOnSingleClick obj val = liftIO $ setObjectPropertyBool obj "activate-on-single-click" val - -constructIconViewActivateOnSingleClick :: Bool -> IO ([Char], GValue) -constructIconViewActivateOnSingleClick val = constructObjectPropertyBool "activate-on-single-click" val - -data IconViewActivateOnSingleClickPropertyInfo -instance AttrInfo IconViewActivateOnSingleClickPropertyInfo where - type AttrAllowedOps IconViewActivateOnSingleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewActivateOnSingleClickPropertyInfo = (~) Bool - type AttrBaseTypeConstraint IconViewActivateOnSingleClickPropertyInfo = IconViewK - type AttrGetType IconViewActivateOnSingleClickPropertyInfo = Bool - type AttrLabel IconViewActivateOnSingleClickPropertyInfo = "IconView::activate-on-single-click" - attrGet _ = getIconViewActivateOnSingleClick - attrSet _ = setIconViewActivateOnSingleClick - attrConstruct _ = constructIconViewActivateOnSingleClick - --- VVV Prop "cell-area" - -- Type: TInterface "Gtk" "CellArea" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getIconViewCellArea :: (MonadIO m, IconViewK o) => o -> m CellArea -getIconViewCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea - -constructIconViewCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructIconViewCellArea val = constructObjectPropertyObject "cell-area" val - -data IconViewCellAreaPropertyInfo -instance AttrInfo IconViewCellAreaPropertyInfo where - type AttrAllowedOps IconViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewCellAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint IconViewCellAreaPropertyInfo = IconViewK - type AttrGetType IconViewCellAreaPropertyInfo = CellArea - type AttrLabel IconViewCellAreaPropertyInfo = "IconView::cell-area" - attrGet _ = getIconViewCellArea - attrSet _ = undefined - attrConstruct _ = constructIconViewCellArea - --- VVV Prop "column-spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "column-spacing" - -setIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "column-spacing" val - -constructIconViewColumnSpacing :: Int32 -> IO ([Char], GValue) -constructIconViewColumnSpacing val = constructObjectPropertyCInt "column-spacing" val - -data IconViewColumnSpacingPropertyInfo -instance AttrInfo IconViewColumnSpacingPropertyInfo where - type AttrAllowedOps IconViewColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewColumnSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewColumnSpacingPropertyInfo = IconViewK - type AttrGetType IconViewColumnSpacingPropertyInfo = Int32 - type AttrLabel IconViewColumnSpacingPropertyInfo = "IconView::column-spacing" - attrGet _ = getIconViewColumnSpacing - attrSet _ = setIconViewColumnSpacing - attrConstruct _ = constructIconViewColumnSpacing - --- VVV Prop "columns" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewColumns :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewColumns obj = liftIO $ getObjectPropertyCInt obj "columns" - -setIconViewColumns :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewColumns obj val = liftIO $ setObjectPropertyCInt obj "columns" val - -constructIconViewColumns :: Int32 -> IO ([Char], GValue) -constructIconViewColumns val = constructObjectPropertyCInt "columns" val - -data IconViewColumnsPropertyInfo -instance AttrInfo IconViewColumnsPropertyInfo where - type AttrAllowedOps IconViewColumnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewColumnsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewColumnsPropertyInfo = IconViewK - type AttrGetType IconViewColumnsPropertyInfo = Int32 - type AttrLabel IconViewColumnsPropertyInfo = "IconView::columns" - attrGet _ = getIconViewColumns - attrSet _ = setIconViewColumns - attrConstruct _ = constructIconViewColumns - --- VVV Prop "item-orientation" - -- Type: TInterface "Gtk" "Orientation" - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewItemOrientation :: (MonadIO m, IconViewK o) => o -> m Orientation -getIconViewItemOrientation obj = liftIO $ getObjectPropertyEnum obj "item-orientation" - -setIconViewItemOrientation :: (MonadIO m, IconViewK o) => o -> Orientation -> m () -setIconViewItemOrientation obj val = liftIO $ setObjectPropertyEnum obj "item-orientation" val - -constructIconViewItemOrientation :: Orientation -> IO ([Char], GValue) -constructIconViewItemOrientation val = constructObjectPropertyEnum "item-orientation" val - -data IconViewItemOrientationPropertyInfo -instance AttrInfo IconViewItemOrientationPropertyInfo where - type AttrAllowedOps IconViewItemOrientationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewItemOrientationPropertyInfo = (~) Orientation - type AttrBaseTypeConstraint IconViewItemOrientationPropertyInfo = IconViewK - type AttrGetType IconViewItemOrientationPropertyInfo = Orientation - type AttrLabel IconViewItemOrientationPropertyInfo = "IconView::item-orientation" - attrGet _ = getIconViewItemOrientation - attrSet _ = setIconViewItemOrientation - attrConstruct _ = constructIconViewItemOrientation - --- VVV Prop "item-padding" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewItemPadding obj = liftIO $ getObjectPropertyCInt obj "item-padding" - -setIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewItemPadding obj val = liftIO $ setObjectPropertyCInt obj "item-padding" val - -constructIconViewItemPadding :: Int32 -> IO ([Char], GValue) -constructIconViewItemPadding val = constructObjectPropertyCInt "item-padding" val - -data IconViewItemPaddingPropertyInfo -instance AttrInfo IconViewItemPaddingPropertyInfo where - type AttrAllowedOps IconViewItemPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewItemPaddingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewItemPaddingPropertyInfo = IconViewK - type AttrGetType IconViewItemPaddingPropertyInfo = Int32 - type AttrLabel IconViewItemPaddingPropertyInfo = "IconView::item-padding" - attrGet _ = getIconViewItemPadding - attrSet _ = setIconViewItemPadding - attrConstruct _ = constructIconViewItemPadding - --- VVV Prop "item-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewItemWidth obj = liftIO $ getObjectPropertyCInt obj "item-width" - -setIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewItemWidth obj val = liftIO $ setObjectPropertyCInt obj "item-width" val - -constructIconViewItemWidth :: Int32 -> IO ([Char], GValue) -constructIconViewItemWidth val = constructObjectPropertyCInt "item-width" val - -data IconViewItemWidthPropertyInfo -instance AttrInfo IconViewItemWidthPropertyInfo where - type AttrAllowedOps IconViewItemWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewItemWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewItemWidthPropertyInfo = IconViewK - type AttrGetType IconViewItemWidthPropertyInfo = Int32 - type AttrLabel IconViewItemWidthPropertyInfo = "IconView::item-width" - attrGet _ = getIconViewItemWidth - attrSet _ = setIconViewItemWidth - attrConstruct _ = constructIconViewItemWidth - --- VVV Prop "margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewMargin :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewMargin obj = liftIO $ getObjectPropertyCInt obj "margin" - -setIconViewMargin :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewMargin obj val = liftIO $ setObjectPropertyCInt obj "margin" val - -constructIconViewMargin :: Int32 -> IO ([Char], GValue) -constructIconViewMargin val = constructObjectPropertyCInt "margin" val - -data IconViewMarginPropertyInfo -instance AttrInfo IconViewMarginPropertyInfo where - type AttrAllowedOps IconViewMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewMarginPropertyInfo = IconViewK - type AttrGetType IconViewMarginPropertyInfo = Int32 - type AttrLabel IconViewMarginPropertyInfo = "IconView::margin" - attrGet _ = getIconViewMargin - attrSet _ = setIconViewMargin - attrConstruct _ = constructIconViewMargin - --- VVV Prop "markup-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewMarkupColumn obj = liftIO $ getObjectPropertyCInt obj "markup-column" - -setIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewMarkupColumn obj val = liftIO $ setObjectPropertyCInt obj "markup-column" val - -constructIconViewMarkupColumn :: Int32 -> IO ([Char], GValue) -constructIconViewMarkupColumn val = constructObjectPropertyCInt "markup-column" val - -data IconViewMarkupColumnPropertyInfo -instance AttrInfo IconViewMarkupColumnPropertyInfo where - type AttrAllowedOps IconViewMarkupColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewMarkupColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewMarkupColumnPropertyInfo = IconViewK - type AttrGetType IconViewMarkupColumnPropertyInfo = Int32 - type AttrLabel IconViewMarkupColumnPropertyInfo = "IconView::markup-column" - attrGet _ = getIconViewMarkupColumn - attrSet _ = setIconViewMarkupColumn - attrConstruct _ = constructIconViewMarkupColumn - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewModel :: (MonadIO m, IconViewK o) => o -> m TreeModel -getIconViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel - -setIconViewModel :: (MonadIO m, IconViewK o, TreeModelK a) => o -> a -> m () -setIconViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val - -constructIconViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructIconViewModel val = constructObjectPropertyObject "model" val - -data IconViewModelPropertyInfo -instance AttrInfo IconViewModelPropertyInfo where - type AttrAllowedOps IconViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint IconViewModelPropertyInfo = IconViewK - type AttrGetType IconViewModelPropertyInfo = TreeModel - type AttrLabel IconViewModelPropertyInfo = "IconView::model" - attrGet _ = getIconViewModel - attrSet _ = setIconViewModel - attrConstruct _ = constructIconViewModel - --- VVV Prop "pixbuf-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewPixbufColumn obj = liftIO $ getObjectPropertyCInt obj "pixbuf-column" - -setIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewPixbufColumn obj val = liftIO $ setObjectPropertyCInt obj "pixbuf-column" val - -constructIconViewPixbufColumn :: Int32 -> IO ([Char], GValue) -constructIconViewPixbufColumn val = constructObjectPropertyCInt "pixbuf-column" val - -data IconViewPixbufColumnPropertyInfo -instance AttrInfo IconViewPixbufColumnPropertyInfo where - type AttrAllowedOps IconViewPixbufColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewPixbufColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewPixbufColumnPropertyInfo = IconViewK - type AttrGetType IconViewPixbufColumnPropertyInfo = Int32 - type AttrLabel IconViewPixbufColumnPropertyInfo = "IconView::pixbuf-column" - attrGet _ = getIconViewPixbufColumn - attrSet _ = setIconViewPixbufColumn - attrConstruct _ = constructIconViewPixbufColumn - --- VVV Prop "reorderable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewReorderable :: (MonadIO m, IconViewK o) => o -> m Bool -getIconViewReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable" - -setIconViewReorderable :: (MonadIO m, IconViewK o) => o -> Bool -> m () -setIconViewReorderable obj val = liftIO $ setObjectPropertyBool obj "reorderable" val - -constructIconViewReorderable :: Bool -> IO ([Char], GValue) -constructIconViewReorderable val = constructObjectPropertyBool "reorderable" val - -data IconViewReorderablePropertyInfo -instance AttrInfo IconViewReorderablePropertyInfo where - type AttrAllowedOps IconViewReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewReorderablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint IconViewReorderablePropertyInfo = IconViewK - type AttrGetType IconViewReorderablePropertyInfo = Bool - type AttrLabel IconViewReorderablePropertyInfo = "IconView::reorderable" - attrGet _ = getIconViewReorderable - attrSet _ = setIconViewReorderable - attrConstruct _ = constructIconViewReorderable - --- VVV Prop "row-spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewRowSpacing obj = liftIO $ getObjectPropertyCInt obj "row-spacing" - -setIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewRowSpacing obj val = liftIO $ setObjectPropertyCInt obj "row-spacing" val - -constructIconViewRowSpacing :: Int32 -> IO ([Char], GValue) -constructIconViewRowSpacing val = constructObjectPropertyCInt "row-spacing" val - -data IconViewRowSpacingPropertyInfo -instance AttrInfo IconViewRowSpacingPropertyInfo where - type AttrAllowedOps IconViewRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewRowSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewRowSpacingPropertyInfo = IconViewK - type AttrGetType IconViewRowSpacingPropertyInfo = Int32 - type AttrLabel IconViewRowSpacingPropertyInfo = "IconView::row-spacing" - attrGet _ = getIconViewRowSpacing - attrSet _ = setIconViewRowSpacing - attrConstruct _ = constructIconViewRowSpacing - --- VVV Prop "selection-mode" - -- Type: TInterface "Gtk" "SelectionMode" - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewSelectionMode :: (MonadIO m, IconViewK o) => o -> m SelectionMode -getIconViewSelectionMode obj = liftIO $ getObjectPropertyEnum obj "selection-mode" - -setIconViewSelectionMode :: (MonadIO m, IconViewK o) => o -> SelectionMode -> m () -setIconViewSelectionMode obj val = liftIO $ setObjectPropertyEnum obj "selection-mode" val - -constructIconViewSelectionMode :: SelectionMode -> IO ([Char], GValue) -constructIconViewSelectionMode val = constructObjectPropertyEnum "selection-mode" val - -data IconViewSelectionModePropertyInfo -instance AttrInfo IconViewSelectionModePropertyInfo where - type AttrAllowedOps IconViewSelectionModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewSelectionModePropertyInfo = (~) SelectionMode - type AttrBaseTypeConstraint IconViewSelectionModePropertyInfo = IconViewK - type AttrGetType IconViewSelectionModePropertyInfo = SelectionMode - type AttrLabel IconViewSelectionModePropertyInfo = "IconView::selection-mode" - attrGet _ = getIconViewSelectionMode - attrSet _ = setIconViewSelectionMode - attrConstruct _ = constructIconViewSelectionMode - --- VVV Prop "spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" - -setIconViewSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val - -constructIconViewSpacing :: Int32 -> IO ([Char], GValue) -constructIconViewSpacing val = constructObjectPropertyCInt "spacing" val - -data IconViewSpacingPropertyInfo -instance AttrInfo IconViewSpacingPropertyInfo where - type AttrAllowedOps IconViewSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewSpacingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewSpacingPropertyInfo = IconViewK - type AttrGetType IconViewSpacingPropertyInfo = Int32 - type AttrLabel IconViewSpacingPropertyInfo = "IconView::spacing" - attrGet _ = getIconViewSpacing - attrSet _ = setIconViewSpacing - attrConstruct _ = constructIconViewSpacing - --- VVV Prop "text-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column" - -setIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val - -constructIconViewTextColumn :: Int32 -> IO ([Char], GValue) -constructIconViewTextColumn val = constructObjectPropertyCInt "text-column" val - -data IconViewTextColumnPropertyInfo -instance AttrInfo IconViewTextColumnPropertyInfo where - type AttrAllowedOps IconViewTextColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewTextColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewTextColumnPropertyInfo = IconViewK - type AttrGetType IconViewTextColumnPropertyInfo = Int32 - type AttrLabel IconViewTextColumnPropertyInfo = "IconView::text-column" - attrGet _ = getIconViewTextColumn - attrSet _ = setIconViewTextColumn - attrConstruct _ = constructIconViewTextColumn - --- VVV Prop "tooltip-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewTooltipColumn obj = liftIO $ getObjectPropertyCInt obj "tooltip-column" - -setIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewTooltipColumn obj val = liftIO $ setObjectPropertyCInt obj "tooltip-column" val - -constructIconViewTooltipColumn :: Int32 -> IO ([Char], GValue) -constructIconViewTooltipColumn val = constructObjectPropertyCInt "tooltip-column" val - -data IconViewTooltipColumnPropertyInfo -instance AttrInfo IconViewTooltipColumnPropertyInfo where - type AttrAllowedOps IconViewTooltipColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewTooltipColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint IconViewTooltipColumnPropertyInfo = IconViewK - type AttrGetType IconViewTooltipColumnPropertyInfo = Int32 - type AttrLabel IconViewTooltipColumnPropertyInfo = "IconView::tooltip-column" - attrGet _ = getIconViewTooltipColumn - attrSet _ = setIconViewTooltipColumn - attrConstruct _ = constructIconViewTooltipColumn - -type instance AttributeList IconView = IconViewAttributeList -type IconViewAttributeList = ('[ '("activate-on-single-click", IconViewActivateOnSingleClickPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", IconViewCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-spacing", IconViewColumnSpacingPropertyInfo), '("columns", IconViewColumnsPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("item-orientation", IconViewItemOrientationPropertyInfo), '("item-padding", IconViewItemPaddingPropertyInfo), '("item-width", IconViewItemWidthPropertyInfo), '("margin", IconViewMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("markup-column", IconViewMarkupColumnPropertyInfo), '("model", IconViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbuf-column", IconViewPixbufColumnPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("reorderable", IconViewReorderablePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-spacing", IconViewRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selection-mode", IconViewSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", IconViewSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("text-column", IconViewTextColumnPropertyInfo), '("tooltip-column", IconViewTooltipColumnPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data IconViewActivateCursorItemSignalInfo -instance SignalInfo IconViewActivateCursorItemSignalInfo where - type HaskellCallbackType IconViewActivateCursorItemSignalInfo = IconViewActivateCursorItemCallback - connectSignal _ = connectIconViewActivateCursorItem - -data IconViewItemActivatedSignalInfo -instance SignalInfo IconViewItemActivatedSignalInfo where - type HaskellCallbackType IconViewItemActivatedSignalInfo = IconViewItemActivatedCallback - connectSignal _ = connectIconViewItemActivated - -data IconViewMoveCursorSignalInfo -instance SignalInfo IconViewMoveCursorSignalInfo where - type HaskellCallbackType IconViewMoveCursorSignalInfo = IconViewMoveCursorCallback - connectSignal _ = connectIconViewMoveCursor - -data IconViewSelectAllSignalInfo -instance SignalInfo IconViewSelectAllSignalInfo where - type HaskellCallbackType IconViewSelectAllSignalInfo = IconViewSelectAllCallback - connectSignal _ = connectIconViewSelectAll - -data IconViewSelectCursorItemSignalInfo -instance SignalInfo IconViewSelectCursorItemSignalInfo where - type HaskellCallbackType IconViewSelectCursorItemSignalInfo = IconViewSelectCursorItemCallback - connectSignal _ = connectIconViewSelectCursorItem - -data IconViewSelectionChangedSignalInfo -instance SignalInfo IconViewSelectionChangedSignalInfo where - type HaskellCallbackType IconViewSelectionChangedSignalInfo = IconViewSelectionChangedCallback - connectSignal _ = connectIconViewSelectionChanged - -data IconViewToggleCursorItemSignalInfo -instance SignalInfo IconViewToggleCursorItemSignalInfo where - type HaskellCallbackType IconViewToggleCursorItemSignalInfo = IconViewToggleCursorItemCallback - connectSignal _ = connectIconViewToggleCursorItem - -data IconViewUnselectAllSignalInfo -instance SignalInfo IconViewUnselectAllSignalInfo where - type HaskellCallbackType IconViewUnselectAllSignalInfo = IconViewUnselectAllCallback - connectSignal _ = connectIconViewUnselectAll - -type instance SignalList IconView = IconViewSignalList -type IconViewSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-cursor-item", IconViewActivateCursorItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("item-activated", IconViewItemActivatedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", IconViewMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", IconViewSelectAllSignalInfo), '("select-cursor-item", IconViewSelectCursorItemSignalInfo), '("selection-changed", IconViewSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-cursor-item", IconViewToggleCursorItemSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselect-all", IconViewUnselectAllSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method IconView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Gtk" "IconView" --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_new" gtk_icon_view_new :: - IO (Ptr IconView) - - -iconViewNew :: - (MonadIO m) => - m IconView -iconViewNew = liftIO $ do - result <- gtk_icon_view_new - checkUnexpectedReturnNULL "gtk_icon_view_new" result - result' <- (newObject IconView) result - return result' - --- method IconView::new_with_area --- method type : Constructor --- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "IconView" --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_new_with_area" gtk_icon_view_new_with_area :: - Ptr CellArea -> -- area : TInterface "Gtk" "CellArea" - IO (Ptr IconView) - - -iconViewNewWithArea :: - (MonadIO m, CellAreaK a) => - a -> -- area - m IconView -iconViewNewWithArea area = liftIO $ do - let area' = unsafeManagedPtrCastPtr area - result <- gtk_icon_view_new_with_area area' - checkUnexpectedReturnNULL "gtk_icon_view_new_with_area" result - result' <- (newObject IconView) result - touchManagedPtr area - return result' - --- method IconView::new_with_model --- method type : Constructor --- Args : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "IconView" --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_new_with_model" gtk_icon_view_new_with_model :: - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO (Ptr IconView) - - -iconViewNewWithModel :: - (MonadIO m, TreeModelK a) => - a -> -- model - m IconView -iconViewNewWithModel model = liftIO $ do - let model' = unsafeManagedPtrCastPtr model - result <- gtk_icon_view_new_with_model model' - checkUnexpectedReturnNULL "gtk_icon_view_new_with_model" result - result' <- (newObject IconView) result - touchManagedPtr model - return result' - --- method IconView::convert_widget_to_bin_window_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_convert_widget_to_bin_window_coords" gtk_icon_view_convert_widget_to_bin_window_coords :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- wx : TBasicType TInt32 - Int32 -> -- wy : TBasicType TInt32 - Ptr Int32 -> -- bx : TBasicType TInt32 - Ptr Int32 -> -- by : TBasicType TInt32 - IO () - - -iconViewConvertWidgetToBinWindowCoords :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- wx - Int32 -> -- wy - m (Int32,Int32) -iconViewConvertWidgetToBinWindowCoords _obj wx wy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - bx <- allocMem :: IO (Ptr Int32) - by <- allocMem :: IO (Ptr Int32) - gtk_icon_view_convert_widget_to_bin_window_coords _obj' wx wy bx by - bx' <- peek bx - by' <- peek by - touchManagedPtr _obj - freeMem bx - freeMem by - return (bx', by') - --- method IconView::create_drag_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "cairo" "Surface" --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_create_drag_icon" gtk_icon_view_create_drag_icon :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO (Ptr Cairo.Surface) - - -iconViewCreateDragIcon :: - (MonadIO m, IconViewK a) => - a -> -- _obj - TreePath -> -- path - m Cairo.Surface -iconViewCreateDragIcon _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_icon_view_create_drag_icon _obj' path' - checkUnexpectedReturnNULL "gtk_icon_view_create_drag_icon" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - touchManagedPtr path - return result' - --- method IconView::enable_model_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_enable_model_drag_dest" gtk_icon_view_enable_model_drag_dest :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -iconViewEnableModelDragDest :: - (MonadIO m, IconViewK a) => - a -> -- _obj - [TargetEntry] -> -- targets - [Gdk.DragAction] -> -- actions - m () -iconViewEnableModelDragDest _obj targets actions = liftIO $ do - let n_targets = fromIntegral $ length targets - let _obj' = unsafeManagedPtrCastPtr _obj - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - let actions' = gflagsToWord actions - gtk_icon_view_enable_model_drag_dest _obj' targets'' n_targets actions' - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - --- method IconView::enable_model_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_enable_model_drag_source" gtk_icon_view_enable_model_drag_source :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" - Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -iconViewEnableModelDragSource :: - (MonadIO m, IconViewK a) => - a -> -- _obj - [Gdk.ModifierType] -> -- start_button_mask - [TargetEntry] -> -- targets - [Gdk.DragAction] -> -- actions - m () -iconViewEnableModelDragSource _obj start_button_mask targets actions = liftIO $ do - let n_targets = fromIntegral $ length targets - let _obj' = unsafeManagedPtrCastPtr _obj - let start_button_mask' = gflagsToWord start_button_mask - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - let actions' = gflagsToWord actions - gtk_icon_view_enable_model_drag_source _obj' start_button_mask' targets'' n_targets actions' - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - --- method IconView::get_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_activate_on_single_click" gtk_icon_view_get_activate_on_single_click :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO CInt - - -iconViewGetActivateOnSingleClick :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Bool -iconViewGetActivateOnSingleClick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_activate_on_single_click _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method IconView::get_cell_rect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_cell_rect" gtk_icon_view_get_cell_rect :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO CInt - - -iconViewGetCellRect :: - (MonadIO m, IconViewK a, CellRendererK b) => - a -> -- _obj - TreePath -> -- path - Maybe (b) -> -- cell - m (Bool,Gdk.Rectangle) -iconViewGetCellRect _obj path cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - maybeCell <- case cell of - Nothing -> return nullPtr - Just jCell -> do - let jCell' = unsafeManagedPtrCastPtr jCell - return jCell' - rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - result <- gtk_icon_view_get_cell_rect _obj' path' maybeCell rect - let result' = (/= 0) result - rect' <- (wrapBoxed Gdk.Rectangle) rect - touchManagedPtr _obj - touchManagedPtr path - whenJust cell touchManagedPtr - return (result', rect') - --- method IconView::get_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_column_spacing" gtk_icon_view_get_column_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetColumnSpacing :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Int32 -iconViewGetColumnSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_column_spacing _obj' - touchManagedPtr _obj - return result - --- method IconView::get_columns --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_columns" gtk_icon_view_get_columns :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetColumns :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Int32 -iconViewGetColumns _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_columns _obj' - touchManagedPtr _obj - return result - --- method IconView::get_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_cursor" gtk_icon_view_get_cursor :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr (Ptr CellRenderer) -> -- cell : TInterface "Gtk" "CellRenderer" - IO CInt - - -iconViewGetCursor :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m (Bool,TreePath,CellRenderer) -iconViewGetCursor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - cell <- allocMem :: IO (Ptr (Ptr CellRenderer)) - result <- gtk_icon_view_get_cursor _obj' path cell - let result' = (/= 0) result - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - cell' <- peek cell - cell'' <- (newObject CellRenderer) cell' - touchManagedPtr _obj - freeMem path - freeMem cell - return (result', path'', cell'') - --- method IconView::get_dest_item_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_dest_item_at_pos" gtk_icon_view_get_dest_item_at_pos :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- drag_x : TBasicType TInt32 - Int32 -> -- drag_y : TBasicType TInt32 - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition" - IO CInt - - -iconViewGetDestItemAtPos :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- drag_x - Int32 -> -- drag_y - m (Bool,TreePath,IconViewDropPosition) -iconViewGetDestItemAtPos _obj drag_x drag_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - pos <- allocMem :: IO (Ptr CUInt) - result <- gtk_icon_view_get_dest_item_at_pos _obj' drag_x drag_y path pos - let result' = (/= 0) result - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - pos' <- peek pos - let pos'' = (toEnum . fromIntegral) pos' - touchManagedPtr _obj - freeMem path - freeMem pos - return (result', path'', pos'') - --- method IconView::get_drag_dest_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_drag_dest_item" gtk_icon_view_get_drag_dest_item :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition" - IO () - - -iconViewGetDragDestItem :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m (TreePath,IconViewDropPosition) -iconViewGetDragDestItem _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - pos <- allocMem :: IO (Ptr CUInt) - gtk_icon_view_get_drag_dest_item _obj' path pos - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - pos' <- peek pos - let pos'' = (toEnum . fromIntegral) pos' - touchManagedPtr _obj - freeMem path - freeMem pos - return (path'', pos'') - --- method IconView::get_item_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_item_at_pos" gtk_icon_view_get_item_at_pos :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr (Ptr CellRenderer) -> -- cell : TInterface "Gtk" "CellRenderer" - IO CInt - - -iconViewGetItemAtPos :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m (Bool,TreePath,CellRenderer) -iconViewGetItemAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - cell <- allocMem :: IO (Ptr (Ptr CellRenderer)) - result <- gtk_icon_view_get_item_at_pos _obj' x y path cell - let result' = (/= 0) result - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - cell' <- peek cell - cell'' <- (wrapObject CellRenderer) cell' - touchManagedPtr _obj - freeMem path - freeMem cell - return (result', path'', cell'') - --- method IconView::get_item_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_item_column" gtk_icon_view_get_item_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO Int32 - - -iconViewGetItemColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - TreePath -> -- path - m Int32 -iconViewGetItemColumn _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_icon_view_get_item_column _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return result - --- method IconView::get_item_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Orientation" --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_item_orientation" gtk_icon_view_get_item_orientation :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO CUInt - - -iconViewGetItemOrientation :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Orientation -iconViewGetItemOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_item_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method IconView::get_item_padding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_item_padding" gtk_icon_view_get_item_padding :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetItemPadding :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Int32 -iconViewGetItemPadding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_item_padding _obj' - touchManagedPtr _obj - return result - --- method IconView::get_item_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_item_row" gtk_icon_view_get_item_row :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO Int32 - - -iconViewGetItemRow :: - (MonadIO m, IconViewK a) => - a -> -- _obj - TreePath -> -- path - m Int32 -iconViewGetItemRow _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_icon_view_get_item_row _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return result - --- method IconView::get_item_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_item_width" gtk_icon_view_get_item_width :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetItemWidth :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Int32 -iconViewGetItemWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_item_width _obj' - touchManagedPtr _obj - return result - --- method IconView::get_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_margin" gtk_icon_view_get_margin :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetMargin :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Int32 -iconViewGetMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_margin _obj' - touchManagedPtr _obj - return result - --- method IconView::get_markup_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_markup_column" gtk_icon_view_get_markup_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetMarkupColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Int32 -iconViewGetMarkupColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_markup_column _obj' - touchManagedPtr _obj - return result - --- method IconView::get_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TreeModel" --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_model" gtk_icon_view_get_model :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO (Ptr TreeModel) - - -iconViewGetModel :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m TreeModel -iconViewGetModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_model _obj' - checkUnexpectedReturnNULL "gtk_icon_view_get_model" result - result' <- (newObject TreeModel) result - touchManagedPtr _obj - return result' - --- method IconView::get_path_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TreePath" --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_path_at_pos" gtk_icon_view_get_path_at_pos :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - IO (Ptr TreePath) - - -iconViewGetPathAtPos :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m TreePath -iconViewGetPathAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_path_at_pos _obj' x y - checkUnexpectedReturnNULL "gtk_icon_view_get_path_at_pos" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - return result' - --- method IconView::get_pixbuf_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_pixbuf_column" gtk_icon_view_get_pixbuf_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetPixbufColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Int32 -iconViewGetPixbufColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_pixbuf_column _obj' - touchManagedPtr _obj - return result - --- method IconView::get_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_reorderable" gtk_icon_view_get_reorderable :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO CInt - - -iconViewGetReorderable :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Bool -iconViewGetReorderable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_reorderable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method IconView::get_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_row_spacing" gtk_icon_view_get_row_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetRowSpacing :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Int32 -iconViewGetRowSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_row_spacing _obj' - touchManagedPtr _obj - return result - --- method IconView::get_selected_items --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGList (TInterface "Gtk" "TreePath") --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_selected_items" gtk_icon_view_get_selected_items :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO (Ptr (GList (Ptr TreePath))) - - -iconViewGetSelectedItems :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m [TreePath] -iconViewGetSelectedItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_selected_items _obj' - checkUnexpectedReturnNULL "gtk_icon_view_get_selected_items" result - result' <- unpackGList result - result'' <- mapM (wrapBoxed TreePath) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method IconView::get_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "SelectionMode" --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_selection_mode" gtk_icon_view_get_selection_mode :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO CUInt - - -iconViewGetSelectionMode :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m SelectionMode -iconViewGetSelectionMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_selection_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method IconView::get_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_spacing" gtk_icon_view_get_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetSpacing :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Int32 -iconViewGetSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_spacing _obj' - touchManagedPtr _obj - return result - --- method IconView::get_text_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_text_column" gtk_icon_view_get_text_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetTextColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Int32 -iconViewGetTextColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_text_column _obj' - touchManagedPtr _obj - return result - --- method IconView::get_tooltip_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_tooltip_column" gtk_icon_view_get_tooltip_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO Int32 - - -iconViewGetTooltipColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m Int32 -iconViewGetTooltipColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_tooltip_column _obj' - touchManagedPtr _obj - return result - --- method IconView::get_tooltip_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_tooltip_context" gtk_icon_view_get_tooltip_context :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - CInt -> -- keyboard_tip : TBasicType TBoolean - Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -iconViewGetTooltipContext :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - Bool -> -- keyboard_tip - m (Bool,Int32,Int32,TreeModel,TreePath,TreeIter) -iconViewGetTooltipContext _obj x y keyboard_tip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x' <- allocMem :: IO (Ptr Int32) - poke x' x - y' <- allocMem :: IO (Ptr Int32) - poke y' y - let keyboard_tip' = (fromIntegral . fromEnum) keyboard_tip - model <- allocMem :: IO (Ptr (Ptr TreeModel)) - path <- allocMem :: IO (Ptr (Ptr TreePath)) - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - result <- gtk_icon_view_get_tooltip_context _obj' x' y' keyboard_tip' model path iter - let result' = (/= 0) result - x'' <- peek x' - y'' <- peek y' - model' <- peek model - model'' <- (newObject TreeModel) model' - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - freeMem x' - freeMem y' - freeMem model - freeMem path - return (result', x'', y'', model'', path'', iter') - --- method IconView::get_visible_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_get_visible_range" gtk_icon_view_get_visible_range :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr (Ptr TreePath) -> -- start_path : TInterface "Gtk" "TreePath" - Ptr (Ptr TreePath) -> -- end_path : TInterface "Gtk" "TreePath" - IO CInt - - -iconViewGetVisibleRange :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m (Bool,TreePath,TreePath) -iconViewGetVisibleRange _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start_path <- allocMem :: IO (Ptr (Ptr TreePath)) - end_path <- allocMem :: IO (Ptr (Ptr TreePath)) - result <- gtk_icon_view_get_visible_range _obj' start_path end_path - let result' = (/= 0) result - start_path' <- peek start_path - start_path'' <- (wrapBoxed TreePath) start_path' - end_path' <- peek end_path - end_path'' <- (wrapBoxed TreePath) end_path' - touchManagedPtr _obj - freeMem start_path - freeMem end_path - return (result', start_path'', end_path'') - --- method IconView::item_activated --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_item_activated" gtk_icon_view_item_activated :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -iconViewItemActivated :: - (MonadIO m, IconViewK a) => - a -> -- _obj - TreePath -> -- path - m () -iconViewItemActivated _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - gtk_icon_view_item_activated _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return () - --- method IconView::path_is_selected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_path_is_selected" gtk_icon_view_path_is_selected :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO CInt - - -iconViewPathIsSelected :: - (MonadIO m, IconViewK a) => - a -> -- _obj - TreePath -> -- path - m Bool -iconViewPathIsSelected _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_icon_view_path_is_selected _obj' path' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - return result' - --- method IconView::scroll_to_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_scroll_to_path" gtk_icon_view_scroll_to_path :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - CInt -> -- use_align : TBasicType TBoolean - CFloat -> -- row_align : TBasicType TFloat - CFloat -> -- col_align : TBasicType TFloat - IO () - - -iconViewScrollToPath :: - (MonadIO m, IconViewK a) => - a -> -- _obj - TreePath -> -- path - Bool -> -- use_align - Float -> -- row_align - Float -> -- col_align - m () -iconViewScrollToPath _obj path use_align row_align col_align = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let use_align' = (fromIntegral . fromEnum) use_align - let row_align' = realToFrac row_align - let col_align' = realToFrac col_align - gtk_icon_view_scroll_to_path _obj' path' use_align' row_align' col_align' - touchManagedPtr _obj - touchManagedPtr path - return () - --- method IconView::select_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_select_all" gtk_icon_view_select_all :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO () - - -iconViewSelectAll :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m () -iconViewSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_select_all _obj' - touchManagedPtr _obj - return () - --- method IconView::select_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_select_path" gtk_icon_view_select_path :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -iconViewSelectPath :: - (MonadIO m, IconViewK a) => - a -> -- _obj - TreePath -> -- path - m () -iconViewSelectPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - gtk_icon_view_select_path _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return () - --- method IconView::selected_foreach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "IconViewForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "IconViewForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_selected_foreach" gtk_icon_view_selected_foreach :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - FunPtr IconViewForeachFuncC -> -- func : TInterface "Gtk" "IconViewForeachFunc" - Ptr () -> -- data : TBasicType TVoid - IO () - - -iconViewSelectedForeach :: - (MonadIO m, IconViewK a) => - a -> -- _obj - IconViewForeachFunc -> -- func - m () -iconViewSelectedForeach _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkIconViewForeachFunc (iconViewForeachFuncWrapper Nothing func) - let data_ = nullPtr - gtk_icon_view_selected_foreach _obj' func' data_ - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - --- method IconView::set_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_activate_on_single_click" gtk_icon_view_set_activate_on_single_click :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - CInt -> -- single : TBasicType TBoolean - IO () - - -iconViewSetActivateOnSingleClick :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Bool -> -- single - m () -iconViewSetActivateOnSingleClick _obj single = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let single' = (fromIntegral . fromEnum) single - gtk_icon_view_set_activate_on_single_click _obj' single' - touchManagedPtr _obj - return () - --- method IconView::set_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_column_spacing" gtk_icon_view_set_column_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column_spacing : TBasicType TInt32 - IO () - - -iconViewSetColumnSpacing :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- column_spacing - m () -iconViewSetColumnSpacing _obj column_spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_column_spacing _obj' column_spacing - touchManagedPtr _obj - return () - --- method IconView::set_columns --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_columns" gtk_icon_view_set_columns :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- columns : TBasicType TInt32 - IO () - - -iconViewSetColumns :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- columns - m () -iconViewSetColumns _obj columns = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_columns _obj' columns - touchManagedPtr _obj - return () - --- method IconView::set_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_cursor" gtk_icon_view_set_cursor :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - CInt -> -- start_editing : TBasicType TBoolean - IO () - - -iconViewSetCursor :: - (MonadIO m, IconViewK a, CellRendererK b) => - a -> -- _obj - TreePath -> -- path - Maybe (b) -> -- cell - Bool -> -- start_editing - m () -iconViewSetCursor _obj path cell start_editing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - maybeCell <- case cell of - Nothing -> return nullPtr - Just jCell -> do - let jCell' = unsafeManagedPtrCastPtr jCell - return jCell' - let start_editing' = (fromIntegral . fromEnum) start_editing - gtk_icon_view_set_cursor _obj' path' maybeCell start_editing' - touchManagedPtr _obj - touchManagedPtr path - whenJust cell touchManagedPtr - return () - --- method IconView::set_drag_dest_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_drag_dest_item" gtk_icon_view_set_drag_dest_item :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition" - IO () - - -iconViewSetDragDestItem :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Maybe (TreePath) -> -- path - IconViewDropPosition -> -- pos - m () -iconViewSetDragDestItem _obj path pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - let pos' = (fromIntegral . fromEnum) pos - gtk_icon_view_set_drag_dest_item _obj' maybePath pos' - touchManagedPtr _obj - whenJust path touchManagedPtr - return () - --- method IconView::set_item_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_item_orientation" gtk_icon_view_set_item_orientation :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO () - - -iconViewSetItemOrientation :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Orientation -> -- orientation - m () -iconViewSetItemOrientation _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - gtk_icon_view_set_item_orientation _obj' orientation' - touchManagedPtr _obj - return () - --- method IconView::set_item_padding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_padding", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_padding", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_item_padding" gtk_icon_view_set_item_padding :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- item_padding : TBasicType TInt32 - IO () - - -iconViewSetItemPadding :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- item_padding - m () -iconViewSetItemPadding _obj item_padding = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_item_padding _obj' item_padding - touchManagedPtr _obj - return () - --- method IconView::set_item_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_item_width" gtk_icon_view_set_item_width :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- item_width : TBasicType TInt32 - IO () - - -iconViewSetItemWidth :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- item_width - m () -iconViewSetItemWidth _obj item_width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_item_width _obj' item_width - touchManagedPtr _obj - return () - --- method IconView::set_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_margin" gtk_icon_view_set_margin :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -iconViewSetMargin :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- margin - m () -iconViewSetMargin _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_margin _obj' margin - touchManagedPtr _obj - return () - --- method IconView::set_markup_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_markup_column" gtk_icon_view_set_markup_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column : TBasicType TInt32 - IO () - - -iconViewSetMarkupColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- column - m () -iconViewSetMarkupColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_markup_column _obj' column - touchManagedPtr _obj - return () - --- method IconView::set_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_model" gtk_icon_view_set_model :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO () - - -iconViewSetModel :: - (MonadIO m, IconViewK a, TreeModelK b) => - a -> -- _obj - Maybe (b) -> -- model - m () -iconViewSetModel _obj model = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - gtk_icon_view_set_model _obj' maybeModel - touchManagedPtr _obj - whenJust model touchManagedPtr - return () - --- method IconView::set_pixbuf_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_pixbuf_column" gtk_icon_view_set_pixbuf_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column : TBasicType TInt32 - IO () - - -iconViewSetPixbufColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- column - m () -iconViewSetPixbufColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_pixbuf_column _obj' column - touchManagedPtr _obj - return () - --- method IconView::set_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_reorderable" gtk_icon_view_set_reorderable :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - CInt -> -- reorderable : TBasicType TBoolean - IO () - - -iconViewSetReorderable :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Bool -> -- reorderable - m () -iconViewSetReorderable _obj reorderable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reorderable' = (fromIntegral . fromEnum) reorderable - gtk_icon_view_set_reorderable _obj' reorderable' - touchManagedPtr _obj - return () - --- method IconView::set_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_row_spacing" gtk_icon_view_set_row_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- row_spacing : TBasicType TInt32 - IO () - - -iconViewSetRowSpacing :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- row_spacing - m () -iconViewSetRowSpacing _obj row_spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_row_spacing _obj' row_spacing - touchManagedPtr _obj - return () - --- method IconView::set_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_selection_mode" gtk_icon_view_set_selection_mode :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - CUInt -> -- mode : TInterface "Gtk" "SelectionMode" - IO () - - -iconViewSetSelectionMode :: - (MonadIO m, IconViewK a) => - a -> -- _obj - SelectionMode -> -- mode - m () -iconViewSetSelectionMode _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_icon_view_set_selection_mode _obj' mode' - touchManagedPtr _obj - return () - --- method IconView::set_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_spacing" gtk_icon_view_set_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- spacing : TBasicType TInt32 - IO () - - -iconViewSetSpacing :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- spacing - m () -iconViewSetSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_spacing _obj' spacing - touchManagedPtr _obj - return () - --- method IconView::set_text_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_text_column" gtk_icon_view_set_text_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column : TBasicType TInt32 - IO () - - -iconViewSetTextColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- column - m () -iconViewSetTextColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_text_column _obj' column - touchManagedPtr _obj - return () - --- method IconView::set_tooltip_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_tooltip_cell" gtk_icon_view_set_tooltip_cell :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - IO () - - -iconViewSetTooltipCell :: - (MonadIO m, IconViewK a, TooltipK b, CellRendererK c) => - a -> -- _obj - b -> -- tooltip - TreePath -> -- path - Maybe (c) -> -- cell - m () -iconViewSetTooltipCell _obj tooltip path cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tooltip' = unsafeManagedPtrCastPtr tooltip - let path' = unsafeManagedPtrGetPtr path - maybeCell <- case cell of - Nothing -> return nullPtr - Just jCell -> do - let jCell' = unsafeManagedPtrCastPtr jCell - return jCell' - gtk_icon_view_set_tooltip_cell _obj' tooltip' path' maybeCell - touchManagedPtr _obj - touchManagedPtr tooltip - touchManagedPtr path - whenJust cell touchManagedPtr - return () - --- method IconView::set_tooltip_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_tooltip_column" gtk_icon_view_set_tooltip_column :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column : TBasicType TInt32 - IO () - - -iconViewSetTooltipColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- column - m () -iconViewSetTooltipColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_tooltip_column _obj' column - touchManagedPtr _obj - return () - --- method IconView::set_tooltip_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_tooltip_item" gtk_icon_view_set_tooltip_item :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -iconViewSetTooltipItem :: - (MonadIO m, IconViewK a, TooltipK b) => - a -> -- _obj - b -> -- tooltip - TreePath -> -- path - m () -iconViewSetTooltipItem _obj tooltip path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tooltip' = unsafeManagedPtrCastPtr tooltip - let path' = unsafeManagedPtrGetPtr path - gtk_icon_view_set_tooltip_item _obj' tooltip' path' - touchManagedPtr _obj - touchManagedPtr tooltip - touchManagedPtr path - return () - --- method IconView::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_unselect_all" gtk_icon_view_unselect_all :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO () - - -iconViewUnselectAll :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m () -iconViewUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_unselect_all _obj' - touchManagedPtr _obj - return () - --- method IconView::unselect_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_unselect_path" gtk_icon_view_unselect_path :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -iconViewUnselectPath :: - (MonadIO m, IconViewK a) => - a -> -- _obj - TreePath -> -- path - m () -iconViewUnselectPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - gtk_icon_view_unselect_path _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return () - --- method IconView::unset_model_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_unset_model_drag_dest" gtk_icon_view_unset_model_drag_dest :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO () - - -iconViewUnsetModelDragDest :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m () -iconViewUnsetModelDragDest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_unset_model_drag_dest _obj' - touchManagedPtr _obj - return () - --- method IconView::unset_model_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_unset_model_drag_source" gtk_icon_view_unset_model_drag_source :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - IO () - - -iconViewUnsetModelDragSource :: - (MonadIO m, IconViewK a) => - a -> -- _obj - m () -iconViewUnsetModelDragSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_unset_model_drag_source _obj' - touchManagedPtr _obj - return () + +{- | +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.Objects.IconView + ( + +-- * Exported types + IconView(..) , + IconViewK , + toIconView , + noIconView , + + + -- * Methods +-- ** iconViewConvertWidgetToBinWindowCoords + IconViewConvertWidgetToBinWindowCoordsMethodInfo, + iconViewConvertWidgetToBinWindowCoords , + + +-- ** iconViewCreateDragIcon + IconViewCreateDragIconMethodInfo , + iconViewCreateDragIcon , + + +-- ** iconViewEnableModelDragDest + IconViewEnableModelDragDestMethodInfo , + iconViewEnableModelDragDest , + + +-- ** iconViewEnableModelDragSource + IconViewEnableModelDragSourceMethodInfo , + iconViewEnableModelDragSource , + + +-- ** iconViewGetActivateOnSingleClick + IconViewGetActivateOnSingleClickMethodInfo, + iconViewGetActivateOnSingleClick , + + +-- ** iconViewGetCellRect + IconViewGetCellRectMethodInfo , + iconViewGetCellRect , + + +-- ** iconViewGetColumnSpacing + IconViewGetColumnSpacingMethodInfo , + iconViewGetColumnSpacing , + + +-- ** iconViewGetColumns + IconViewGetColumnsMethodInfo , + iconViewGetColumns , + + +-- ** iconViewGetCursor + IconViewGetCursorMethodInfo , + iconViewGetCursor , + + +-- ** iconViewGetDestItemAtPos + IconViewGetDestItemAtPosMethodInfo , + iconViewGetDestItemAtPos , + + +-- ** iconViewGetDragDestItem + IconViewGetDragDestItemMethodInfo , + iconViewGetDragDestItem , + + +-- ** iconViewGetItemAtPos + IconViewGetItemAtPosMethodInfo , + iconViewGetItemAtPos , + + +-- ** iconViewGetItemColumn + IconViewGetItemColumnMethodInfo , + iconViewGetItemColumn , + + +-- ** iconViewGetItemOrientation + IconViewGetItemOrientationMethodInfo , + iconViewGetItemOrientation , + + +-- ** iconViewGetItemPadding + IconViewGetItemPaddingMethodInfo , + iconViewGetItemPadding , + + +-- ** iconViewGetItemRow + IconViewGetItemRowMethodInfo , + iconViewGetItemRow , + + +-- ** iconViewGetItemWidth + IconViewGetItemWidthMethodInfo , + iconViewGetItemWidth , + + +-- ** iconViewGetMargin + IconViewGetMarginMethodInfo , + iconViewGetMargin , + + +-- ** iconViewGetMarkupColumn + IconViewGetMarkupColumnMethodInfo , + iconViewGetMarkupColumn , + + +-- ** iconViewGetModel + IconViewGetModelMethodInfo , + iconViewGetModel , + + +-- ** iconViewGetPathAtPos + IconViewGetPathAtPosMethodInfo , + iconViewGetPathAtPos , + + +-- ** iconViewGetPixbufColumn + IconViewGetPixbufColumnMethodInfo , + iconViewGetPixbufColumn , + + +-- ** iconViewGetReorderable + IconViewGetReorderableMethodInfo , + iconViewGetReorderable , + + +-- ** iconViewGetRowSpacing + IconViewGetRowSpacingMethodInfo , + iconViewGetRowSpacing , + + +-- ** iconViewGetSelectedItems + IconViewGetSelectedItemsMethodInfo , + iconViewGetSelectedItems , + + +-- ** iconViewGetSelectionMode + IconViewGetSelectionModeMethodInfo , + iconViewGetSelectionMode , + + +-- ** iconViewGetSpacing + IconViewGetSpacingMethodInfo , + iconViewGetSpacing , + + +-- ** iconViewGetTextColumn + IconViewGetTextColumnMethodInfo , + iconViewGetTextColumn , + + +-- ** iconViewGetTooltipColumn + IconViewGetTooltipColumnMethodInfo , + iconViewGetTooltipColumn , + + +-- ** iconViewGetTooltipContext + IconViewGetTooltipContextMethodInfo , + iconViewGetTooltipContext , + + +-- ** iconViewGetVisibleRange + IconViewGetVisibleRangeMethodInfo , + iconViewGetVisibleRange , + + +-- ** iconViewItemActivated + IconViewItemActivatedMethodInfo , + iconViewItemActivated , + + +-- ** iconViewNew + iconViewNew , + + +-- ** iconViewNewWithArea + iconViewNewWithArea , + + +-- ** iconViewNewWithModel + iconViewNewWithModel , + + +-- ** iconViewPathIsSelected + IconViewPathIsSelectedMethodInfo , + iconViewPathIsSelected , + + +-- ** iconViewScrollToPath + IconViewScrollToPathMethodInfo , + iconViewScrollToPath , + + +-- ** iconViewSelectAll + IconViewSelectAllMethodInfo , + iconViewSelectAll , + + +-- ** iconViewSelectPath + IconViewSelectPathMethodInfo , + iconViewSelectPath , + + +-- ** iconViewSelectedForeach + IconViewSelectedForeachMethodInfo , + iconViewSelectedForeach , + + +-- ** iconViewSetActivateOnSingleClick + IconViewSetActivateOnSingleClickMethodInfo, + iconViewSetActivateOnSingleClick , + + +-- ** iconViewSetColumnSpacing + IconViewSetColumnSpacingMethodInfo , + iconViewSetColumnSpacing , + + +-- ** iconViewSetColumns + IconViewSetColumnsMethodInfo , + iconViewSetColumns , + + +-- ** iconViewSetCursor + IconViewSetCursorMethodInfo , + iconViewSetCursor , + + +-- ** iconViewSetDragDestItem + IconViewSetDragDestItemMethodInfo , + iconViewSetDragDestItem , + + +-- ** iconViewSetItemOrientation + IconViewSetItemOrientationMethodInfo , + iconViewSetItemOrientation , + + +-- ** iconViewSetItemPadding + IconViewSetItemPaddingMethodInfo , + iconViewSetItemPadding , + + +-- ** iconViewSetItemWidth + IconViewSetItemWidthMethodInfo , + iconViewSetItemWidth , + + +-- ** iconViewSetMargin + IconViewSetMarginMethodInfo , + iconViewSetMargin , + + +-- ** iconViewSetMarkupColumn + IconViewSetMarkupColumnMethodInfo , + iconViewSetMarkupColumn , + + +-- ** iconViewSetModel + IconViewSetModelMethodInfo , + iconViewSetModel , + + +-- ** iconViewSetPixbufColumn + IconViewSetPixbufColumnMethodInfo , + iconViewSetPixbufColumn , + + +-- ** iconViewSetReorderable + IconViewSetReorderableMethodInfo , + iconViewSetReorderable , + + +-- ** iconViewSetRowSpacing + IconViewSetRowSpacingMethodInfo , + iconViewSetRowSpacing , + + +-- ** iconViewSetSelectionMode + IconViewSetSelectionModeMethodInfo , + iconViewSetSelectionMode , + + +-- ** iconViewSetSpacing + IconViewSetSpacingMethodInfo , + iconViewSetSpacing , + + +-- ** iconViewSetTextColumn + IconViewSetTextColumnMethodInfo , + iconViewSetTextColumn , + + +-- ** iconViewSetTooltipCell + IconViewSetTooltipCellMethodInfo , + iconViewSetTooltipCell , + + +-- ** iconViewSetTooltipColumn + IconViewSetTooltipColumnMethodInfo , + iconViewSetTooltipColumn , + + +-- ** iconViewSetTooltipItem + IconViewSetTooltipItemMethodInfo , + iconViewSetTooltipItem , + + +-- ** iconViewUnselectAll + IconViewUnselectAllMethodInfo , + iconViewUnselectAll , + + +-- ** iconViewUnselectPath + IconViewUnselectPathMethodInfo , + iconViewUnselectPath , + + +-- ** iconViewUnsetModelDragDest + IconViewUnsetModelDragDestMethodInfo , + iconViewUnsetModelDragDest , + + +-- ** iconViewUnsetModelDragSource + IconViewUnsetModelDragSourceMethodInfo , + iconViewUnsetModelDragSource , + + + + + -- * Properties +-- ** ActivateOnSingleClick + IconViewActivateOnSingleClickPropertyInfo, + constructIconViewActivateOnSingleClick , + getIconViewActivateOnSingleClick , + setIconViewActivateOnSingleClick , + + +-- ** CellArea + IconViewCellAreaPropertyInfo , + constructIconViewCellArea , + getIconViewCellArea , + + +-- ** ColumnSpacing + IconViewColumnSpacingPropertyInfo , + constructIconViewColumnSpacing , + getIconViewColumnSpacing , + setIconViewColumnSpacing , + + +-- ** Columns + IconViewColumnsPropertyInfo , + constructIconViewColumns , + getIconViewColumns , + setIconViewColumns , + + +-- ** ItemOrientation + IconViewItemOrientationPropertyInfo , + constructIconViewItemOrientation , + getIconViewItemOrientation , + setIconViewItemOrientation , + + +-- ** ItemPadding + IconViewItemPaddingPropertyInfo , + constructIconViewItemPadding , + getIconViewItemPadding , + setIconViewItemPadding , + + +-- ** ItemWidth + IconViewItemWidthPropertyInfo , + constructIconViewItemWidth , + getIconViewItemWidth , + setIconViewItemWidth , + + +-- ** Margin + IconViewMarginPropertyInfo , + constructIconViewMargin , + getIconViewMargin , + setIconViewMargin , + + +-- ** MarkupColumn + IconViewMarkupColumnPropertyInfo , + constructIconViewMarkupColumn , + getIconViewMarkupColumn , + setIconViewMarkupColumn , + + +-- ** Model + IconViewModelPropertyInfo , + constructIconViewModel , + getIconViewModel , + setIconViewModel , + + +-- ** PixbufColumn + IconViewPixbufColumnPropertyInfo , + constructIconViewPixbufColumn , + getIconViewPixbufColumn , + setIconViewPixbufColumn , + + +-- ** Reorderable + IconViewReorderablePropertyInfo , + constructIconViewReorderable , + getIconViewReorderable , + setIconViewReorderable , + + +-- ** RowSpacing + IconViewRowSpacingPropertyInfo , + constructIconViewRowSpacing , + getIconViewRowSpacing , + setIconViewRowSpacing , + + +-- ** SelectionMode + IconViewSelectionModePropertyInfo , + constructIconViewSelectionMode , + getIconViewSelectionMode , + setIconViewSelectionMode , + + +-- ** Spacing + IconViewSpacingPropertyInfo , + constructIconViewSpacing , + getIconViewSpacing , + setIconViewSpacing , + + +-- ** TextColumn + IconViewTextColumnPropertyInfo , + constructIconViewTextColumn , + getIconViewTextColumn , + setIconViewTextColumn , + + +-- ** TooltipColumn + IconViewTooltipColumnPropertyInfo , + constructIconViewTooltipColumn , + getIconViewTooltipColumn , + setIconViewTooltipColumn , + + + + + -- * Signals +-- ** ActivateCursorItem + IconViewActivateCursorItemCallback , + IconViewActivateCursorItemCallbackC , + IconViewActivateCursorItemSignalInfo , + afterIconViewActivateCursorItem , + iconViewActivateCursorItemCallbackWrapper, + iconViewActivateCursorItemClosure , + mkIconViewActivateCursorItemCallback , + noIconViewActivateCursorItemCallback , + onIconViewActivateCursorItem , + + +-- ** ItemActivated + IconViewItemActivatedCallback , + IconViewItemActivatedCallbackC , + IconViewItemActivatedSignalInfo , + afterIconViewItemActivated , + iconViewItemActivatedCallbackWrapper , + iconViewItemActivatedClosure , + mkIconViewItemActivatedCallback , + noIconViewItemActivatedCallback , + onIconViewItemActivated , + + +-- ** MoveCursor + IconViewMoveCursorCallback , + IconViewMoveCursorCallbackC , + IconViewMoveCursorSignalInfo , + afterIconViewMoveCursor , + iconViewMoveCursorCallbackWrapper , + iconViewMoveCursorClosure , + mkIconViewMoveCursorCallback , + noIconViewMoveCursorCallback , + onIconViewMoveCursor , + + +-- ** SelectAll + IconViewSelectAllCallback , + IconViewSelectAllCallbackC , + IconViewSelectAllSignalInfo , + afterIconViewSelectAll , + iconViewSelectAllCallbackWrapper , + iconViewSelectAllClosure , + mkIconViewSelectAllCallback , + noIconViewSelectAllCallback , + onIconViewSelectAll , + + +-- ** SelectCursorItem + IconViewSelectCursorItemCallback , + IconViewSelectCursorItemCallbackC , + IconViewSelectCursorItemSignalInfo , + afterIconViewSelectCursorItem , + iconViewSelectCursorItemCallbackWrapper , + iconViewSelectCursorItemClosure , + mkIconViewSelectCursorItemCallback , + noIconViewSelectCursorItemCallback , + onIconViewSelectCursorItem , + + +-- ** SelectionChanged + IconViewSelectionChangedCallback , + IconViewSelectionChangedCallbackC , + IconViewSelectionChangedSignalInfo , + afterIconViewSelectionChanged , + iconViewSelectionChangedCallbackWrapper , + iconViewSelectionChangedClosure , + mkIconViewSelectionChangedCallback , + noIconViewSelectionChangedCallback , + onIconViewSelectionChanged , + + +-- ** ToggleCursorItem + IconViewToggleCursorItemCallback , + IconViewToggleCursorItemCallbackC , + IconViewToggleCursorItemSignalInfo , + afterIconViewToggleCursorItem , + iconViewToggleCursorItemCallbackWrapper , + iconViewToggleCursorItemClosure , + mkIconViewToggleCursorItemCallback , + noIconViewToggleCursorItemCallback , + onIconViewToggleCursorItem , + + +-- ** UnselectAll + IconViewUnselectAllCallback , + IconViewUnselectAllCallbackC , + IconViewUnselectAllSignalInfo , + afterIconViewUnselectAll , + iconViewUnselectAllCallbackWrapper , + iconViewUnselectAllClosure , + mkIconViewUnselectAllCallback , + noIconViewUnselectAllCallback , + onIconViewUnselectAll , + + + + + ) 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.Atk as Atk +import qualified GI.GObject as GObject +import qualified GI.Gdk as Gdk +import qualified GI.Cairo as Cairo + +newtype IconView = IconView (ForeignPtr IconView) +foreign import ccall "gtk_icon_view_get_type" + c_gtk_icon_view_get_type :: IO GType + +type instance ParentTypes IconView = IconViewParentTypes +type IconViewParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellLayout, Scrollable] + +instance GObject IconView where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_gtk_icon_view_get_type + + +class GObject o => IconViewK o +instance (GObject o, IsDescendantOf IconView o) => IconViewK o + +toIconView :: IconViewK o => o -> IO IconView +toIconView = unsafeCastTo IconView + +noIconView :: Maybe IconView +noIconView = Nothing + +type family ResolveIconViewMethod (t :: Symbol) (o :: *) :: * where + ResolveIconViewMethod "activate" o = WidgetActivateMethodInfo + ResolveIconViewMethod "add" o = ContainerAddMethodInfo + ResolveIconViewMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveIconViewMethod "addAttribute" o = CellLayoutAddAttributeMethodInfo + ResolveIconViewMethod "addChild" o = BuildableAddChildMethodInfo + ResolveIconViewMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveIconViewMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveIconViewMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveIconViewMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveIconViewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveIconViewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveIconViewMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveIconViewMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveIconViewMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveIconViewMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveIconViewMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveIconViewMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveIconViewMethod "childType" o = ContainerChildTypeMethodInfo + ResolveIconViewMethod "classPath" o = WidgetClassPathMethodInfo + ResolveIconViewMethod "clear" o = CellLayoutClearMethodInfo + ResolveIconViewMethod "clearAttributes" o = CellLayoutClearAttributesMethodInfo + ResolveIconViewMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveIconViewMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveIconViewMethod "convertWidgetToBinWindowCoords" o = IconViewConvertWidgetToBinWindowCoordsMethodInfo + ResolveIconViewMethod "createDragIcon" o = IconViewCreateDragIconMethodInfo + ResolveIconViewMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveIconViewMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveIconViewMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveIconViewMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveIconViewMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveIconViewMethod "destroy" o = WidgetDestroyMethodInfo + ResolveIconViewMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveIconViewMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveIconViewMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveIconViewMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveIconViewMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveIconViewMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveIconViewMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveIconViewMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveIconViewMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveIconViewMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveIconViewMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveIconViewMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveIconViewMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveIconViewMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveIconViewMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveIconViewMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveIconViewMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveIconViewMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveIconViewMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveIconViewMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveIconViewMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveIconViewMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveIconViewMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveIconViewMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveIconViewMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveIconViewMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveIconViewMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveIconViewMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveIconViewMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveIconViewMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveIconViewMethod "draw" o = WidgetDrawMethodInfo + ResolveIconViewMethod "enableModelDragDest" o = IconViewEnableModelDragDestMethodInfo + ResolveIconViewMethod "enableModelDragSource" o = IconViewEnableModelDragSourceMethodInfo + ResolveIconViewMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveIconViewMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveIconViewMethod "event" o = WidgetEventMethodInfo + ResolveIconViewMethod "forall" o = ContainerForallMethodInfo + ResolveIconViewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveIconViewMethod "foreach" o = ContainerForeachMethodInfo + ResolveIconViewMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveIconViewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveIconViewMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveIconViewMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveIconViewMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveIconViewMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveIconViewMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveIconViewMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveIconViewMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveIconViewMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveIconViewMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveIconViewMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveIconViewMethod "hide" o = WidgetHideMethodInfo + ResolveIconViewMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveIconViewMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveIconViewMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveIconViewMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveIconViewMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveIconViewMethod "intersect" o = WidgetIntersectMethodInfo + ResolveIconViewMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveIconViewMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveIconViewMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveIconViewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveIconViewMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveIconViewMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveIconViewMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveIconViewMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveIconViewMethod "itemActivated" o = IconViewItemActivatedMethodInfo + ResolveIconViewMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveIconViewMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveIconViewMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveIconViewMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveIconViewMethod "map" o = WidgetMapMethodInfo + ResolveIconViewMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveIconViewMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveIconViewMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveIconViewMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveIconViewMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveIconViewMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveIconViewMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveIconViewMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveIconViewMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveIconViewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveIconViewMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveIconViewMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveIconViewMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveIconViewMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveIconViewMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveIconViewMethod "packEnd" o = CellLayoutPackEndMethodInfo + ResolveIconViewMethod "packStart" o = CellLayoutPackStartMethodInfo + ResolveIconViewMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveIconViewMethod "path" o = WidgetPathMethodInfo + ResolveIconViewMethod "pathIsSelected" o = IconViewPathIsSelectedMethodInfo + ResolveIconViewMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveIconViewMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveIconViewMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveIconViewMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveIconViewMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveIconViewMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveIconViewMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveIconViewMethod "realize" o = WidgetRealizeMethodInfo + ResolveIconViewMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveIconViewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveIconViewMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveIconViewMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveIconViewMethod "remove" o = ContainerRemoveMethodInfo + ResolveIconViewMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveIconViewMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveIconViewMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveIconViewMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveIconViewMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveIconViewMethod "reorder" o = CellLayoutReorderMethodInfo + ResolveIconViewMethod "reparent" o = WidgetReparentMethodInfo + ResolveIconViewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveIconViewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveIconViewMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveIconViewMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveIconViewMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveIconViewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveIconViewMethod "scrollToPath" o = IconViewScrollToPathMethodInfo + ResolveIconViewMethod "selectAll" o = IconViewSelectAllMethodInfo + ResolveIconViewMethod "selectPath" o = IconViewSelectPathMethodInfo + ResolveIconViewMethod "selectedForeach" o = IconViewSelectedForeachMethodInfo + ResolveIconViewMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveIconViewMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveIconViewMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveIconViewMethod "show" o = WidgetShowMethodInfo + ResolveIconViewMethod "showAll" o = WidgetShowAllMethodInfo + ResolveIconViewMethod "showNow" o = WidgetShowNowMethodInfo + ResolveIconViewMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveIconViewMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveIconViewMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveIconViewMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveIconViewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveIconViewMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveIconViewMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveIconViewMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveIconViewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveIconViewMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveIconViewMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveIconViewMethod "unmap" o = WidgetUnmapMethodInfo + ResolveIconViewMethod "unparent" o = WidgetUnparentMethodInfo + ResolveIconViewMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveIconViewMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveIconViewMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveIconViewMethod "unselectAll" o = IconViewUnselectAllMethodInfo + ResolveIconViewMethod "unselectPath" o = IconViewUnselectPathMethodInfo + ResolveIconViewMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveIconViewMethod "unsetModelDragDest" o = IconViewUnsetModelDragDestMethodInfo + ResolveIconViewMethod "unsetModelDragSource" o = IconViewUnsetModelDragSourceMethodInfo + ResolveIconViewMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveIconViewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveIconViewMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveIconViewMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveIconViewMethod "getActivateOnSingleClick" o = IconViewGetActivateOnSingleClickMethodInfo + ResolveIconViewMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveIconViewMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveIconViewMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveIconViewMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveIconViewMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveIconViewMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveIconViewMethod "getArea" o = CellLayoutGetAreaMethodInfo + ResolveIconViewMethod "getBorder" o = ScrollableGetBorderMethodInfo + ResolveIconViewMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveIconViewMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveIconViewMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveIconViewMethod "getCellRect" o = IconViewGetCellRectMethodInfo + ResolveIconViewMethod "getCells" o = CellLayoutGetCellsMethodInfo + ResolveIconViewMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveIconViewMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveIconViewMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveIconViewMethod "getClip" o = WidgetGetClipMethodInfo + ResolveIconViewMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveIconViewMethod "getColumnSpacing" o = IconViewGetColumnSpacingMethodInfo + ResolveIconViewMethod "getColumns" o = IconViewGetColumnsMethodInfo + ResolveIconViewMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveIconViewMethod "getCursor" o = IconViewGetCursorMethodInfo + ResolveIconViewMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveIconViewMethod "getDestItemAtPos" o = IconViewGetDestItemAtPosMethodInfo + ResolveIconViewMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveIconViewMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveIconViewMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveIconViewMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveIconViewMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveIconViewMethod "getDragDestItem" o = IconViewGetDragDestItemMethodInfo + ResolveIconViewMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveIconViewMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveIconViewMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveIconViewMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveIconViewMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveIconViewMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveIconViewMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveIconViewMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveIconViewMethod "getHadjustment" o = ScrollableGetHadjustmentMethodInfo + ResolveIconViewMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveIconViewMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveIconViewMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveIconViewMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveIconViewMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveIconViewMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo + ResolveIconViewMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveIconViewMethod "getItemAtPos" o = IconViewGetItemAtPosMethodInfo + ResolveIconViewMethod "getItemColumn" o = IconViewGetItemColumnMethodInfo + ResolveIconViewMethod "getItemOrientation" o = IconViewGetItemOrientationMethodInfo + ResolveIconViewMethod "getItemPadding" o = IconViewGetItemPaddingMethodInfo + ResolveIconViewMethod "getItemRow" o = IconViewGetItemRowMethodInfo + ResolveIconViewMethod "getItemWidth" o = IconViewGetItemWidthMethodInfo + ResolveIconViewMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveIconViewMethod "getMargin" o = IconViewGetMarginMethodInfo + ResolveIconViewMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveIconViewMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveIconViewMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveIconViewMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveIconViewMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveIconViewMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveIconViewMethod "getMarkupColumn" o = IconViewGetMarkupColumnMethodInfo + ResolveIconViewMethod "getModel" o = IconViewGetModelMethodInfo + ResolveIconViewMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveIconViewMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveIconViewMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveIconViewMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveIconViewMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveIconViewMethod "getParent" o = WidgetGetParentMethodInfo + ResolveIconViewMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveIconViewMethod "getPath" o = WidgetGetPathMethodInfo + ResolveIconViewMethod "getPathAtPos" o = IconViewGetPathAtPosMethodInfo + ResolveIconViewMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveIconViewMethod "getPixbufColumn" o = IconViewGetPixbufColumnMethodInfo + ResolveIconViewMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveIconViewMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveIconViewMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveIconViewMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveIconViewMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveIconViewMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveIconViewMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveIconViewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveIconViewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveIconViewMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveIconViewMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveIconViewMethod "getReorderable" o = IconViewGetReorderableMethodInfo + ResolveIconViewMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveIconViewMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveIconViewMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveIconViewMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveIconViewMethod "getRowSpacing" o = IconViewGetRowSpacingMethodInfo + ResolveIconViewMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveIconViewMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveIconViewMethod "getSelectedItems" o = IconViewGetSelectedItemsMethodInfo + ResolveIconViewMethod "getSelectionMode" o = IconViewGetSelectionModeMethodInfo + ResolveIconViewMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveIconViewMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveIconViewMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveIconViewMethod "getSpacing" o = IconViewGetSpacingMethodInfo + ResolveIconViewMethod "getState" o = WidgetGetStateMethodInfo + ResolveIconViewMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveIconViewMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveIconViewMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveIconViewMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveIconViewMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveIconViewMethod "getTextColumn" o = IconViewGetTextColumnMethodInfo + ResolveIconViewMethod "getTooltipColumn" o = IconViewGetTooltipColumnMethodInfo + ResolveIconViewMethod "getTooltipContext" o = IconViewGetTooltipContextMethodInfo + ResolveIconViewMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveIconViewMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveIconViewMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveIconViewMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveIconViewMethod "getVadjustment" o = ScrollableGetVadjustmentMethodInfo + ResolveIconViewMethod "getValign" o = WidgetGetValignMethodInfo + ResolveIconViewMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveIconViewMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveIconViewMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveIconViewMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveIconViewMethod "getVisibleRange" o = IconViewGetVisibleRangeMethodInfo + ResolveIconViewMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveIconViewMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo + ResolveIconViewMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveIconViewMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveIconViewMethod "setActivateOnSingleClick" o = IconViewSetActivateOnSingleClickMethodInfo + ResolveIconViewMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveIconViewMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveIconViewMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveIconViewMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveIconViewMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveIconViewMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveIconViewMethod "setCellDataFunc" o = CellLayoutSetCellDataFuncMethodInfo + ResolveIconViewMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveIconViewMethod "setClip" o = WidgetSetClipMethodInfo + ResolveIconViewMethod "setColumnSpacing" o = IconViewSetColumnSpacingMethodInfo + ResolveIconViewMethod "setColumns" o = IconViewSetColumnsMethodInfo + ResolveIconViewMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveIconViewMethod "setCursor" o = IconViewSetCursorMethodInfo + ResolveIconViewMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveIconViewMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveIconViewMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveIconViewMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveIconViewMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveIconViewMethod "setDragDestItem" o = IconViewSetDragDestItemMethodInfo + ResolveIconViewMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveIconViewMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveIconViewMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveIconViewMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveIconViewMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveIconViewMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveIconViewMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveIconViewMethod "setHadjustment" o = ScrollableSetHadjustmentMethodInfo + ResolveIconViewMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveIconViewMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveIconViewMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveIconViewMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveIconViewMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveIconViewMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo + ResolveIconViewMethod "setItemOrientation" o = IconViewSetItemOrientationMethodInfo + ResolveIconViewMethod "setItemPadding" o = IconViewSetItemPaddingMethodInfo + ResolveIconViewMethod "setItemWidth" o = IconViewSetItemWidthMethodInfo + ResolveIconViewMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveIconViewMethod "setMargin" o = IconViewSetMarginMethodInfo + ResolveIconViewMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveIconViewMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveIconViewMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveIconViewMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveIconViewMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveIconViewMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveIconViewMethod "setMarkupColumn" o = IconViewSetMarkupColumnMethodInfo + ResolveIconViewMethod "setModel" o = IconViewSetModelMethodInfo + ResolveIconViewMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveIconViewMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveIconViewMethod "setParent" o = WidgetSetParentMethodInfo + ResolveIconViewMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveIconViewMethod "setPixbufColumn" o = IconViewSetPixbufColumnMethodInfo + ResolveIconViewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveIconViewMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveIconViewMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveIconViewMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveIconViewMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveIconViewMethod "setReorderable" o = IconViewSetReorderableMethodInfo + ResolveIconViewMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveIconViewMethod "setRowSpacing" o = IconViewSetRowSpacingMethodInfo + ResolveIconViewMethod "setSelectionMode" o = IconViewSetSelectionModeMethodInfo + ResolveIconViewMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveIconViewMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveIconViewMethod "setSpacing" o = IconViewSetSpacingMethodInfo + ResolveIconViewMethod "setState" o = WidgetSetStateMethodInfo + ResolveIconViewMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveIconViewMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveIconViewMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveIconViewMethod "setTextColumn" o = IconViewSetTextColumnMethodInfo + ResolveIconViewMethod "setTooltipCell" o = IconViewSetTooltipCellMethodInfo + ResolveIconViewMethod "setTooltipColumn" o = IconViewSetTooltipColumnMethodInfo + ResolveIconViewMethod "setTooltipItem" o = IconViewSetTooltipItemMethodInfo + ResolveIconViewMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveIconViewMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveIconViewMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveIconViewMethod "setVadjustment" o = ScrollableSetVadjustmentMethodInfo + ResolveIconViewMethod "setValign" o = WidgetSetValignMethodInfo + ResolveIconViewMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveIconViewMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveIconViewMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveIconViewMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveIconViewMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo + ResolveIconViewMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveIconViewMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveIconViewMethod t IconView, MethodInfo info IconView p) => IsLabelProxy t (IconView -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveIconViewMethod t IconView, MethodInfo info IconView p) => IsLabel t (IconView -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- signal IconView::activate-cursor-item +type IconViewActivateCursorItemCallback = + IO Bool + +noIconViewActivateCursorItemCallback :: Maybe IconViewActivateCursorItemCallback +noIconViewActivateCursorItemCallback = Nothing + +type IconViewActivateCursorItemCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkIconViewActivateCursorItemCallback :: IconViewActivateCursorItemCallbackC -> IO (FunPtr IconViewActivateCursorItemCallbackC) + +iconViewActivateCursorItemClosure :: IconViewActivateCursorItemCallback -> IO Closure +iconViewActivateCursorItemClosure cb = newCClosure =<< mkIconViewActivateCursorItemCallback wrapped + where wrapped = iconViewActivateCursorItemCallbackWrapper cb + +iconViewActivateCursorItemCallbackWrapper :: + IconViewActivateCursorItemCallback -> + Ptr () -> + Ptr () -> + IO CInt +iconViewActivateCursorItemCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onIconViewActivateCursorItem :: (GObject a, MonadIO m) => a -> IconViewActivateCursorItemCallback -> m SignalHandlerId +onIconViewActivateCursorItem obj cb = liftIO $ connectIconViewActivateCursorItem obj cb SignalConnectBefore +afterIconViewActivateCursorItem :: (GObject a, MonadIO m) => a -> IconViewActivateCursorItemCallback -> m SignalHandlerId +afterIconViewActivateCursorItem obj cb = connectIconViewActivateCursorItem obj cb SignalConnectAfter + +connectIconViewActivateCursorItem :: (GObject a, MonadIO m) => + a -> IconViewActivateCursorItemCallback -> SignalConnectMode -> m SignalHandlerId +connectIconViewActivateCursorItem obj cb after = liftIO $ do + cb' <- mkIconViewActivateCursorItemCallback (iconViewActivateCursorItemCallbackWrapper cb) + connectSignalFunPtr obj "activate-cursor-item" cb' after + +-- signal IconView::item-activated +type IconViewItemActivatedCallback = + TreePath -> + IO () + +noIconViewItemActivatedCallback :: Maybe IconViewItemActivatedCallback +noIconViewItemActivatedCallback = Nothing + +type IconViewItemActivatedCallbackC = + Ptr () -> -- object + Ptr TreePath -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkIconViewItemActivatedCallback :: IconViewItemActivatedCallbackC -> IO (FunPtr IconViewItemActivatedCallbackC) + +iconViewItemActivatedClosure :: IconViewItemActivatedCallback -> IO Closure +iconViewItemActivatedClosure cb = newCClosure =<< mkIconViewItemActivatedCallback wrapped + where wrapped = iconViewItemActivatedCallbackWrapper cb + +iconViewItemActivatedCallbackWrapper :: + IconViewItemActivatedCallback -> + Ptr () -> + Ptr TreePath -> + Ptr () -> + IO () +iconViewItemActivatedCallbackWrapper _cb _ path _ = do + path' <- (newBoxed TreePath) path + _cb path' + +onIconViewItemActivated :: (GObject a, MonadIO m) => a -> IconViewItemActivatedCallback -> m SignalHandlerId +onIconViewItemActivated obj cb = liftIO $ connectIconViewItemActivated obj cb SignalConnectBefore +afterIconViewItemActivated :: (GObject a, MonadIO m) => a -> IconViewItemActivatedCallback -> m SignalHandlerId +afterIconViewItemActivated obj cb = connectIconViewItemActivated obj cb SignalConnectAfter + +connectIconViewItemActivated :: (GObject a, MonadIO m) => + a -> IconViewItemActivatedCallback -> SignalConnectMode -> m SignalHandlerId +connectIconViewItemActivated obj cb after = liftIO $ do + cb' <- mkIconViewItemActivatedCallback (iconViewItemActivatedCallbackWrapper cb) + connectSignalFunPtr obj "item-activated" cb' after + +-- signal IconView::move-cursor +type IconViewMoveCursorCallback = + MovementStep -> + Int32 -> + IO Bool + +noIconViewMoveCursorCallback :: Maybe IconViewMoveCursorCallback +noIconViewMoveCursorCallback = Nothing + +type IconViewMoveCursorCallbackC = + Ptr () -> -- object + CUInt -> + Int32 -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkIconViewMoveCursorCallback :: IconViewMoveCursorCallbackC -> IO (FunPtr IconViewMoveCursorCallbackC) + +iconViewMoveCursorClosure :: IconViewMoveCursorCallback -> IO Closure +iconViewMoveCursorClosure cb = newCClosure =<< mkIconViewMoveCursorCallback wrapped + where wrapped = iconViewMoveCursorCallbackWrapper cb + +iconViewMoveCursorCallbackWrapper :: + IconViewMoveCursorCallback -> + Ptr () -> + CUInt -> + Int32 -> + Ptr () -> + IO CInt +iconViewMoveCursorCallbackWrapper _cb _ step count _ = do + let step' = (toEnum . fromIntegral) step + result <- _cb step' count + let result' = (fromIntegral . fromEnum) result + return result' + +onIconViewMoveCursor :: (GObject a, MonadIO m) => a -> IconViewMoveCursorCallback -> m SignalHandlerId +onIconViewMoveCursor obj cb = liftIO $ connectIconViewMoveCursor obj cb SignalConnectBefore +afterIconViewMoveCursor :: (GObject a, MonadIO m) => a -> IconViewMoveCursorCallback -> m SignalHandlerId +afterIconViewMoveCursor obj cb = connectIconViewMoveCursor obj cb SignalConnectAfter + +connectIconViewMoveCursor :: (GObject a, MonadIO m) => + a -> IconViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId +connectIconViewMoveCursor obj cb after = liftIO $ do + cb' <- mkIconViewMoveCursorCallback (iconViewMoveCursorCallbackWrapper cb) + connectSignalFunPtr obj "move-cursor" cb' after + +-- signal IconView::select-all +type IconViewSelectAllCallback = + IO () + +noIconViewSelectAllCallback :: Maybe IconViewSelectAllCallback +noIconViewSelectAllCallback = Nothing + +type IconViewSelectAllCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkIconViewSelectAllCallback :: IconViewSelectAllCallbackC -> IO (FunPtr IconViewSelectAllCallbackC) + +iconViewSelectAllClosure :: IconViewSelectAllCallback -> IO Closure +iconViewSelectAllClosure cb = newCClosure =<< mkIconViewSelectAllCallback wrapped + where wrapped = iconViewSelectAllCallbackWrapper cb + +iconViewSelectAllCallbackWrapper :: + IconViewSelectAllCallback -> + Ptr () -> + Ptr () -> + IO () +iconViewSelectAllCallbackWrapper _cb _ _ = do + _cb + +onIconViewSelectAll :: (GObject a, MonadIO m) => a -> IconViewSelectAllCallback -> m SignalHandlerId +onIconViewSelectAll obj cb = liftIO $ connectIconViewSelectAll obj cb SignalConnectBefore +afterIconViewSelectAll :: (GObject a, MonadIO m) => a -> IconViewSelectAllCallback -> m SignalHandlerId +afterIconViewSelectAll obj cb = connectIconViewSelectAll obj cb SignalConnectAfter + +connectIconViewSelectAll :: (GObject a, MonadIO m) => + a -> IconViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId +connectIconViewSelectAll obj cb after = liftIO $ do + cb' <- mkIconViewSelectAllCallback (iconViewSelectAllCallbackWrapper cb) + connectSignalFunPtr obj "select-all" cb' after + +-- signal IconView::select-cursor-item +type IconViewSelectCursorItemCallback = + IO () + +noIconViewSelectCursorItemCallback :: Maybe IconViewSelectCursorItemCallback +noIconViewSelectCursorItemCallback = Nothing + +type IconViewSelectCursorItemCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkIconViewSelectCursorItemCallback :: IconViewSelectCursorItemCallbackC -> IO (FunPtr IconViewSelectCursorItemCallbackC) + +iconViewSelectCursorItemClosure :: IconViewSelectCursorItemCallback -> IO Closure +iconViewSelectCursorItemClosure cb = newCClosure =<< mkIconViewSelectCursorItemCallback wrapped + where wrapped = iconViewSelectCursorItemCallbackWrapper cb + +iconViewSelectCursorItemCallbackWrapper :: + IconViewSelectCursorItemCallback -> + Ptr () -> + Ptr () -> + IO () +iconViewSelectCursorItemCallbackWrapper _cb _ _ = do + _cb + +onIconViewSelectCursorItem :: (GObject a, MonadIO m) => a -> IconViewSelectCursorItemCallback -> m SignalHandlerId +onIconViewSelectCursorItem obj cb = liftIO $ connectIconViewSelectCursorItem obj cb SignalConnectBefore +afterIconViewSelectCursorItem :: (GObject a, MonadIO m) => a -> IconViewSelectCursorItemCallback -> m SignalHandlerId +afterIconViewSelectCursorItem obj cb = connectIconViewSelectCursorItem obj cb SignalConnectAfter + +connectIconViewSelectCursorItem :: (GObject a, MonadIO m) => + a -> IconViewSelectCursorItemCallback -> SignalConnectMode -> m SignalHandlerId +connectIconViewSelectCursorItem obj cb after = liftIO $ do + cb' <- mkIconViewSelectCursorItemCallback (iconViewSelectCursorItemCallbackWrapper cb) + connectSignalFunPtr obj "select-cursor-item" cb' after + +-- signal IconView::selection-changed +type IconViewSelectionChangedCallback = + IO () + +noIconViewSelectionChangedCallback :: Maybe IconViewSelectionChangedCallback +noIconViewSelectionChangedCallback = Nothing + +type IconViewSelectionChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkIconViewSelectionChangedCallback :: IconViewSelectionChangedCallbackC -> IO (FunPtr IconViewSelectionChangedCallbackC) + +iconViewSelectionChangedClosure :: IconViewSelectionChangedCallback -> IO Closure +iconViewSelectionChangedClosure cb = newCClosure =<< mkIconViewSelectionChangedCallback wrapped + where wrapped = iconViewSelectionChangedCallbackWrapper cb + +iconViewSelectionChangedCallbackWrapper :: + IconViewSelectionChangedCallback -> + Ptr () -> + Ptr () -> + IO () +iconViewSelectionChangedCallbackWrapper _cb _ _ = do + _cb + +onIconViewSelectionChanged :: (GObject a, MonadIO m) => a -> IconViewSelectionChangedCallback -> m SignalHandlerId +onIconViewSelectionChanged obj cb = liftIO $ connectIconViewSelectionChanged obj cb SignalConnectBefore +afterIconViewSelectionChanged :: (GObject a, MonadIO m) => a -> IconViewSelectionChangedCallback -> m SignalHandlerId +afterIconViewSelectionChanged obj cb = connectIconViewSelectionChanged obj cb SignalConnectAfter + +connectIconViewSelectionChanged :: (GObject a, MonadIO m) => + a -> IconViewSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectIconViewSelectionChanged obj cb after = liftIO $ do + cb' <- mkIconViewSelectionChangedCallback (iconViewSelectionChangedCallbackWrapper cb) + connectSignalFunPtr obj "selection-changed" cb' after + +-- signal IconView::toggle-cursor-item +type IconViewToggleCursorItemCallback = + IO () + +noIconViewToggleCursorItemCallback :: Maybe IconViewToggleCursorItemCallback +noIconViewToggleCursorItemCallback = Nothing + +type IconViewToggleCursorItemCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkIconViewToggleCursorItemCallback :: IconViewToggleCursorItemCallbackC -> IO (FunPtr IconViewToggleCursorItemCallbackC) + +iconViewToggleCursorItemClosure :: IconViewToggleCursorItemCallback -> IO Closure +iconViewToggleCursorItemClosure cb = newCClosure =<< mkIconViewToggleCursorItemCallback wrapped + where wrapped = iconViewToggleCursorItemCallbackWrapper cb + +iconViewToggleCursorItemCallbackWrapper :: + IconViewToggleCursorItemCallback -> + Ptr () -> + Ptr () -> + IO () +iconViewToggleCursorItemCallbackWrapper _cb _ _ = do + _cb + +onIconViewToggleCursorItem :: (GObject a, MonadIO m) => a -> IconViewToggleCursorItemCallback -> m SignalHandlerId +onIconViewToggleCursorItem obj cb = liftIO $ connectIconViewToggleCursorItem obj cb SignalConnectBefore +afterIconViewToggleCursorItem :: (GObject a, MonadIO m) => a -> IconViewToggleCursorItemCallback -> m SignalHandlerId +afterIconViewToggleCursorItem obj cb = connectIconViewToggleCursorItem obj cb SignalConnectAfter + +connectIconViewToggleCursorItem :: (GObject a, MonadIO m) => + a -> IconViewToggleCursorItemCallback -> SignalConnectMode -> m SignalHandlerId +connectIconViewToggleCursorItem obj cb after = liftIO $ do + cb' <- mkIconViewToggleCursorItemCallback (iconViewToggleCursorItemCallbackWrapper cb) + connectSignalFunPtr obj "toggle-cursor-item" cb' after + +-- signal IconView::unselect-all +type IconViewUnselectAllCallback = + IO () + +noIconViewUnselectAllCallback :: Maybe IconViewUnselectAllCallback +noIconViewUnselectAllCallback = Nothing + +type IconViewUnselectAllCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkIconViewUnselectAllCallback :: IconViewUnselectAllCallbackC -> IO (FunPtr IconViewUnselectAllCallbackC) + +iconViewUnselectAllClosure :: IconViewUnselectAllCallback -> IO Closure +iconViewUnselectAllClosure cb = newCClosure =<< mkIconViewUnselectAllCallback wrapped + where wrapped = iconViewUnselectAllCallbackWrapper cb + +iconViewUnselectAllCallbackWrapper :: + IconViewUnselectAllCallback -> + Ptr () -> + Ptr () -> + IO () +iconViewUnselectAllCallbackWrapper _cb _ _ = do + _cb + +onIconViewUnselectAll :: (GObject a, MonadIO m) => a -> IconViewUnselectAllCallback -> m SignalHandlerId +onIconViewUnselectAll obj cb = liftIO $ connectIconViewUnselectAll obj cb SignalConnectBefore +afterIconViewUnselectAll :: (GObject a, MonadIO m) => a -> IconViewUnselectAllCallback -> m SignalHandlerId +afterIconViewUnselectAll obj cb = connectIconViewUnselectAll obj cb SignalConnectAfter + +connectIconViewUnselectAll :: (GObject a, MonadIO m) => + a -> IconViewUnselectAllCallback -> SignalConnectMode -> m SignalHandlerId +connectIconViewUnselectAll obj cb after = liftIO $ do + cb' <- mkIconViewUnselectAllCallback (iconViewUnselectAllCallbackWrapper cb) + connectSignalFunPtr obj "unselect-all" cb' after + +-- VVV Prop "activate-on-single-click" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewActivateOnSingleClick :: (MonadIO m, IconViewK o) => o -> m Bool +getIconViewActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click" + +setIconViewActivateOnSingleClick :: (MonadIO m, IconViewK o) => o -> Bool -> m () +setIconViewActivateOnSingleClick obj val = liftIO $ setObjectPropertyBool obj "activate-on-single-click" val + +constructIconViewActivateOnSingleClick :: Bool -> IO ([Char], GValue) +constructIconViewActivateOnSingleClick val = constructObjectPropertyBool "activate-on-single-click" val + +data IconViewActivateOnSingleClickPropertyInfo +instance AttrInfo IconViewActivateOnSingleClickPropertyInfo where + type AttrAllowedOps IconViewActivateOnSingleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewActivateOnSingleClickPropertyInfo = (~) Bool + type AttrBaseTypeConstraint IconViewActivateOnSingleClickPropertyInfo = IconViewK + type AttrGetType IconViewActivateOnSingleClickPropertyInfo = Bool + type AttrLabel IconViewActivateOnSingleClickPropertyInfo = "activate-on-single-click" + attrGet _ = getIconViewActivateOnSingleClick + attrSet _ = setIconViewActivateOnSingleClick + attrConstruct _ = constructIconViewActivateOnSingleClick + +-- VVV Prop "cell-area" + -- Type: TInterface "Gtk" "CellArea" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getIconViewCellArea :: (MonadIO m, IconViewK o) => o -> m CellArea +getIconViewCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea + +constructIconViewCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) +constructIconViewCellArea val = constructObjectPropertyObject "cell-area" val + +data IconViewCellAreaPropertyInfo +instance AttrInfo IconViewCellAreaPropertyInfo where + type AttrAllowedOps IconViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewCellAreaPropertyInfo = CellAreaK + type AttrBaseTypeConstraint IconViewCellAreaPropertyInfo = IconViewK + type AttrGetType IconViewCellAreaPropertyInfo = CellArea + type AttrLabel IconViewCellAreaPropertyInfo = "cell-area" + attrGet _ = getIconViewCellArea + attrSet _ = undefined + attrConstruct _ = constructIconViewCellArea + +-- VVV Prop "column-spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "column-spacing" + +setIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "column-spacing" val + +constructIconViewColumnSpacing :: Int32 -> IO ([Char], GValue) +constructIconViewColumnSpacing val = constructObjectPropertyCInt "column-spacing" val + +data IconViewColumnSpacingPropertyInfo +instance AttrInfo IconViewColumnSpacingPropertyInfo where + type AttrAllowedOps IconViewColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewColumnSpacingPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint IconViewColumnSpacingPropertyInfo = IconViewK + type AttrGetType IconViewColumnSpacingPropertyInfo = Int32 + type AttrLabel IconViewColumnSpacingPropertyInfo = "column-spacing" + attrGet _ = getIconViewColumnSpacing + attrSet _ = setIconViewColumnSpacing + attrConstruct _ = constructIconViewColumnSpacing + +-- VVV Prop "columns" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewColumns :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewColumns obj = liftIO $ getObjectPropertyCInt obj "columns" + +setIconViewColumns :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewColumns obj val = liftIO $ setObjectPropertyCInt obj "columns" val + +constructIconViewColumns :: Int32 -> IO ([Char], GValue) +constructIconViewColumns val = constructObjectPropertyCInt "columns" val + +data IconViewColumnsPropertyInfo +instance AttrInfo IconViewColumnsPropertyInfo where + type AttrAllowedOps IconViewColumnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewColumnsPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint IconViewColumnsPropertyInfo = IconViewK + type AttrGetType IconViewColumnsPropertyInfo = Int32 + type AttrLabel IconViewColumnsPropertyInfo = "columns" + attrGet _ = getIconViewColumns + attrSet _ = setIconViewColumns + attrConstruct _ = constructIconViewColumns + +-- VVV Prop "item-orientation" + -- Type: TInterface "Gtk" "Orientation" + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewItemOrientation :: (MonadIO m, IconViewK o) => o -> m Orientation +getIconViewItemOrientation obj = liftIO $ getObjectPropertyEnum obj "item-orientation" + +setIconViewItemOrientation :: (MonadIO m, IconViewK o) => o -> Orientation -> m () +setIconViewItemOrientation obj val = liftIO $ setObjectPropertyEnum obj "item-orientation" val + +constructIconViewItemOrientation :: Orientation -> IO ([Char], GValue) +constructIconViewItemOrientation val = constructObjectPropertyEnum "item-orientation" val + +data IconViewItemOrientationPropertyInfo +instance AttrInfo IconViewItemOrientationPropertyInfo where + type AttrAllowedOps IconViewItemOrientationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewItemOrientationPropertyInfo = (~) Orientation + type AttrBaseTypeConstraint IconViewItemOrientationPropertyInfo = IconViewK + type AttrGetType IconViewItemOrientationPropertyInfo = Orientation + type AttrLabel IconViewItemOrientationPropertyInfo = "item-orientation" + attrGet _ = getIconViewItemOrientation + attrSet _ = setIconViewItemOrientation + attrConstruct _ = constructIconViewItemOrientation + +-- VVV Prop "item-padding" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewItemPadding obj = liftIO $ getObjectPropertyCInt obj "item-padding" + +setIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewItemPadding obj val = liftIO $ setObjectPropertyCInt obj "item-padding" val + +constructIconViewItemPadding :: Int32 -> IO ([Char], GValue) +constructIconViewItemPadding val = constructObjectPropertyCInt "item-padding" val + +data IconViewItemPaddingPropertyInfo +instance AttrInfo IconViewItemPaddingPropertyInfo where + type AttrAllowedOps IconViewItemPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewItemPaddingPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint IconViewItemPaddingPropertyInfo = IconViewK + type AttrGetType IconViewItemPaddingPropertyInfo = Int32 + type AttrLabel IconViewItemPaddingPropertyInfo = "item-padding" + attrGet _ = getIconViewItemPadding + attrSet _ = setIconViewItemPadding + attrConstruct _ = constructIconViewItemPadding + +-- VVV Prop "item-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewItemWidth obj = liftIO $ getObjectPropertyCInt obj "item-width" + +setIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewItemWidth obj val = liftIO $ setObjectPropertyCInt obj "item-width" val + +constructIconViewItemWidth :: Int32 -> IO ([Char], GValue) +constructIconViewItemWidth val = constructObjectPropertyCInt "item-width" val + +data IconViewItemWidthPropertyInfo +instance AttrInfo IconViewItemWidthPropertyInfo where + type AttrAllowedOps IconViewItemWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewItemWidthPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint IconViewItemWidthPropertyInfo = IconViewK + type AttrGetType IconViewItemWidthPropertyInfo = Int32 + type AttrLabel IconViewItemWidthPropertyInfo = "item-width" + attrGet _ = getIconViewItemWidth + attrSet _ = setIconViewItemWidth + attrConstruct _ = constructIconViewItemWidth + +-- VVV Prop "margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewMargin :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewMargin obj = liftIO $ getObjectPropertyCInt obj "margin" + +setIconViewMargin :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewMargin obj val = liftIO $ setObjectPropertyCInt obj "margin" val + +constructIconViewMargin :: Int32 -> IO ([Char], GValue) +constructIconViewMargin val = constructObjectPropertyCInt "margin" val + +data IconViewMarginPropertyInfo +instance AttrInfo IconViewMarginPropertyInfo where + type AttrAllowedOps IconViewMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewMarginPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint IconViewMarginPropertyInfo = IconViewK + type AttrGetType IconViewMarginPropertyInfo = Int32 + type AttrLabel IconViewMarginPropertyInfo = "margin" + attrGet _ = getIconViewMargin + attrSet _ = setIconViewMargin + attrConstruct _ = constructIconViewMargin + +-- VVV Prop "markup-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewMarkupColumn obj = liftIO $ getObjectPropertyCInt obj "markup-column" + +setIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewMarkupColumn obj val = liftIO $ setObjectPropertyCInt obj "markup-column" val + +constructIconViewMarkupColumn :: Int32 -> IO ([Char], GValue) +constructIconViewMarkupColumn val = constructObjectPropertyCInt "markup-column" val + +data IconViewMarkupColumnPropertyInfo +instance AttrInfo IconViewMarkupColumnPropertyInfo where + type AttrAllowedOps IconViewMarkupColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewMarkupColumnPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint IconViewMarkupColumnPropertyInfo = IconViewK + type AttrGetType IconViewMarkupColumnPropertyInfo = Int32 + type AttrLabel IconViewMarkupColumnPropertyInfo = "markup-column" + attrGet _ = getIconViewMarkupColumn + attrSet _ = setIconViewMarkupColumn + attrConstruct _ = constructIconViewMarkupColumn + +-- VVV Prop "model" + -- Type: TInterface "Gtk" "TreeModel" + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewModel :: (MonadIO m, IconViewK o) => o -> m TreeModel +getIconViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel + +setIconViewModel :: (MonadIO m, IconViewK o, TreeModelK a) => o -> a -> m () +setIconViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val + +constructIconViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) +constructIconViewModel val = constructObjectPropertyObject "model" val + +data IconViewModelPropertyInfo +instance AttrInfo IconViewModelPropertyInfo where + type AttrAllowedOps IconViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewModelPropertyInfo = TreeModelK + type AttrBaseTypeConstraint IconViewModelPropertyInfo = IconViewK + type AttrGetType IconViewModelPropertyInfo = TreeModel + type AttrLabel IconViewModelPropertyInfo = "model" + attrGet _ = getIconViewModel + attrSet _ = setIconViewModel + attrConstruct _ = constructIconViewModel + +-- VVV Prop "pixbuf-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewPixbufColumn obj = liftIO $ getObjectPropertyCInt obj "pixbuf-column" + +setIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewPixbufColumn obj val = liftIO $ setObjectPropertyCInt obj "pixbuf-column" val + +constructIconViewPixbufColumn :: Int32 -> IO ([Char], GValue) +constructIconViewPixbufColumn val = constructObjectPropertyCInt "pixbuf-column" val + +data IconViewPixbufColumnPropertyInfo +instance AttrInfo IconViewPixbufColumnPropertyInfo where + type AttrAllowedOps IconViewPixbufColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewPixbufColumnPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint IconViewPixbufColumnPropertyInfo = IconViewK + type AttrGetType IconViewPixbufColumnPropertyInfo = Int32 + type AttrLabel IconViewPixbufColumnPropertyInfo = "pixbuf-column" + attrGet _ = getIconViewPixbufColumn + attrSet _ = setIconViewPixbufColumn + attrConstruct _ = constructIconViewPixbufColumn + +-- VVV Prop "reorderable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewReorderable :: (MonadIO m, IconViewK o) => o -> m Bool +getIconViewReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable" + +setIconViewReorderable :: (MonadIO m, IconViewK o) => o -> Bool -> m () +setIconViewReorderable obj val = liftIO $ setObjectPropertyBool obj "reorderable" val + +constructIconViewReorderable :: Bool -> IO ([Char], GValue) +constructIconViewReorderable val = constructObjectPropertyBool "reorderable" val + +data IconViewReorderablePropertyInfo +instance AttrInfo IconViewReorderablePropertyInfo where + type AttrAllowedOps IconViewReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewReorderablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint IconViewReorderablePropertyInfo = IconViewK + type AttrGetType IconViewReorderablePropertyInfo = Bool + type AttrLabel IconViewReorderablePropertyInfo = "reorderable" + attrGet _ = getIconViewReorderable + attrSet _ = setIconViewReorderable + attrConstruct _ = constructIconViewReorderable + +-- VVV Prop "row-spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewRowSpacing obj = liftIO $ getObjectPropertyCInt obj "row-spacing" + +setIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewRowSpacing obj val = liftIO $ setObjectPropertyCInt obj "row-spacing" val + +constructIconViewRowSpacing :: Int32 -> IO ([Char], GValue) +constructIconViewRowSpacing val = constructObjectPropertyCInt "row-spacing" val + +data IconViewRowSpacingPropertyInfo +instance AttrInfo IconViewRowSpacingPropertyInfo where + type AttrAllowedOps IconViewRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewRowSpacingPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint IconViewRowSpacingPropertyInfo = IconViewK + type AttrGetType IconViewRowSpacingPropertyInfo = Int32 + type AttrLabel IconViewRowSpacingPropertyInfo = "row-spacing" + attrGet _ = getIconViewRowSpacing + attrSet _ = setIconViewRowSpacing + attrConstruct _ = constructIconViewRowSpacing + +-- VVV Prop "selection-mode" + -- Type: TInterface "Gtk" "SelectionMode" + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewSelectionMode :: (MonadIO m, IconViewK o) => o -> m SelectionMode +getIconViewSelectionMode obj = liftIO $ getObjectPropertyEnum obj "selection-mode" + +setIconViewSelectionMode :: (MonadIO m, IconViewK o) => o -> SelectionMode -> m () +setIconViewSelectionMode obj val = liftIO $ setObjectPropertyEnum obj "selection-mode" val + +constructIconViewSelectionMode :: SelectionMode -> IO ([Char], GValue) +constructIconViewSelectionMode val = constructObjectPropertyEnum "selection-mode" val + +data IconViewSelectionModePropertyInfo +instance AttrInfo IconViewSelectionModePropertyInfo where + type AttrAllowedOps IconViewSelectionModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewSelectionModePropertyInfo = (~) SelectionMode + type AttrBaseTypeConstraint IconViewSelectionModePropertyInfo = IconViewK + type AttrGetType IconViewSelectionModePropertyInfo = SelectionMode + type AttrLabel IconViewSelectionModePropertyInfo = "selection-mode" + attrGet _ = getIconViewSelectionMode + attrSet _ = setIconViewSelectionMode + attrConstruct _ = constructIconViewSelectionMode + +-- VVV Prop "spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" + +setIconViewSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val + +constructIconViewSpacing :: Int32 -> IO ([Char], GValue) +constructIconViewSpacing val = constructObjectPropertyCInt "spacing" val + +data IconViewSpacingPropertyInfo +instance AttrInfo IconViewSpacingPropertyInfo where + type AttrAllowedOps IconViewSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewSpacingPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint IconViewSpacingPropertyInfo = IconViewK + type AttrGetType IconViewSpacingPropertyInfo = Int32 + type AttrLabel IconViewSpacingPropertyInfo = "spacing" + attrGet _ = getIconViewSpacing + attrSet _ = setIconViewSpacing + attrConstruct _ = constructIconViewSpacing + +-- VVV Prop "text-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column" + +setIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val + +constructIconViewTextColumn :: Int32 -> IO ([Char], GValue) +constructIconViewTextColumn val = constructObjectPropertyCInt "text-column" val + +data IconViewTextColumnPropertyInfo +instance AttrInfo IconViewTextColumnPropertyInfo where + type AttrAllowedOps IconViewTextColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewTextColumnPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint IconViewTextColumnPropertyInfo = IconViewK + type AttrGetType IconViewTextColumnPropertyInfo = Int32 + type AttrLabel IconViewTextColumnPropertyInfo = "text-column" + attrGet _ = getIconViewTextColumn + attrSet _ = setIconViewTextColumn + attrConstruct _ = constructIconViewTextColumn + +-- VVV Prop "tooltip-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewTooltipColumn obj = liftIO $ getObjectPropertyCInt obj "tooltip-column" + +setIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewTooltipColumn obj val = liftIO $ setObjectPropertyCInt obj "tooltip-column" val + +constructIconViewTooltipColumn :: Int32 -> IO ([Char], GValue) +constructIconViewTooltipColumn val = constructObjectPropertyCInt "tooltip-column" val + +data IconViewTooltipColumnPropertyInfo +instance AttrInfo IconViewTooltipColumnPropertyInfo where + type AttrAllowedOps IconViewTooltipColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewTooltipColumnPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint IconViewTooltipColumnPropertyInfo = IconViewK + type AttrGetType IconViewTooltipColumnPropertyInfo = Int32 + type AttrLabel IconViewTooltipColumnPropertyInfo = "tooltip-column" + attrGet _ = getIconViewTooltipColumn + attrSet _ = setIconViewTooltipColumn + attrConstruct _ = constructIconViewTooltipColumn + +type instance AttributeList IconView = IconViewAttributeList +type IconViewAttributeList = ('[ '("activateOnSingleClick", IconViewActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", IconViewCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpacing", IconViewColumnSpacingPropertyInfo), '("columns", IconViewColumnsPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("itemOrientation", IconViewItemOrientationPropertyInfo), '("itemPadding", IconViewItemPaddingPropertyInfo), '("itemWidth", IconViewItemWidthPropertyInfo), '("margin", IconViewMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("markupColumn", IconViewMarkupColumnPropertyInfo), '("model", IconViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbufColumn", IconViewPixbufColumnPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("reorderable", IconViewReorderablePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpacing", IconViewRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectionMode", IconViewSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", IconViewSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("textColumn", IconViewTextColumnPropertyInfo), '("tooltipColumn", IconViewTooltipColumnPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) + +data IconViewActivateCursorItemSignalInfo +instance SignalInfo IconViewActivateCursorItemSignalInfo where + type HaskellCallbackType IconViewActivateCursorItemSignalInfo = IconViewActivateCursorItemCallback + connectSignal _ = connectIconViewActivateCursorItem + +data IconViewItemActivatedSignalInfo +instance SignalInfo IconViewItemActivatedSignalInfo where + type HaskellCallbackType IconViewItemActivatedSignalInfo = IconViewItemActivatedCallback + connectSignal _ = connectIconViewItemActivated + +data IconViewMoveCursorSignalInfo +instance SignalInfo IconViewMoveCursorSignalInfo where + type HaskellCallbackType IconViewMoveCursorSignalInfo = IconViewMoveCursorCallback + connectSignal _ = connectIconViewMoveCursor + +data IconViewSelectAllSignalInfo +instance SignalInfo IconViewSelectAllSignalInfo where + type HaskellCallbackType IconViewSelectAllSignalInfo = IconViewSelectAllCallback + connectSignal _ = connectIconViewSelectAll + +data IconViewSelectCursorItemSignalInfo +instance SignalInfo IconViewSelectCursorItemSignalInfo where + type HaskellCallbackType IconViewSelectCursorItemSignalInfo = IconViewSelectCursorItemCallback + connectSignal _ = connectIconViewSelectCursorItem + +data IconViewSelectionChangedSignalInfo +instance SignalInfo IconViewSelectionChangedSignalInfo where + type HaskellCallbackType IconViewSelectionChangedSignalInfo = IconViewSelectionChangedCallback + connectSignal _ = connectIconViewSelectionChanged + +data IconViewToggleCursorItemSignalInfo +instance SignalInfo IconViewToggleCursorItemSignalInfo where + type HaskellCallbackType IconViewToggleCursorItemSignalInfo = IconViewToggleCursorItemCallback + connectSignal _ = connectIconViewToggleCursorItem + +data IconViewUnselectAllSignalInfo +instance SignalInfo IconViewUnselectAllSignalInfo where + type HaskellCallbackType IconViewUnselectAllSignalInfo = IconViewUnselectAllCallback + connectSignal _ = connectIconViewUnselectAll + +type instance SignalList IconView = IconViewSignalList +type IconViewSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCursorItem", IconViewActivateCursorItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("itemActivated", IconViewItemActivatedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", IconViewMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectAll", IconViewSelectAllSignalInfo), '("selectCursorItem", IconViewSelectCursorItemSignalInfo), '("selectionChanged", IconViewSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleCursorItem", IconViewToggleCursorItemSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselectAll", IconViewUnselectAllSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +-- method IconView::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- returnType : TInterface "Gtk" "IconView" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_new" gtk_icon_view_new :: + IO (Ptr IconView) + + +iconViewNew :: + (MonadIO m) => + m IconView -- result +iconViewNew = liftIO $ do + result <- gtk_icon_view_new + checkUnexpectedReturnNULL "gtk_icon_view_new" result + result' <- (newObject IconView) result + return result' + +-- method IconView::new_with_area +-- method type : Constructor +-- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "IconView" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_new_with_area" gtk_icon_view_new_with_area :: + Ptr CellArea -> -- area : TInterface "Gtk" "CellArea" + IO (Ptr IconView) + + +iconViewNewWithArea :: + (MonadIO m, CellAreaK a) => + a -- area + -> m IconView -- result +iconViewNewWithArea area = liftIO $ do + let area' = unsafeManagedPtrCastPtr area + result <- gtk_icon_view_new_with_area area' + checkUnexpectedReturnNULL "gtk_icon_view_new_with_area" result + result' <- (newObject IconView) result + touchManagedPtr area + return result' + +-- method IconView::new_with_model +-- method type : Constructor +-- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "IconView" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_new_with_model" gtk_icon_view_new_with_model :: + Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" + IO (Ptr IconView) + + +iconViewNewWithModel :: + (MonadIO m, TreeModelK a) => + a -- model + -> m IconView -- result +iconViewNewWithModel model = liftIO $ do + let model' = unsafeManagedPtrCastPtr model + result <- gtk_icon_view_new_with_model model' + checkUnexpectedReturnNULL "gtk_icon_view_new_with_model" result + result' <- (newObject IconView) result + touchManagedPtr model + return result' + +-- method IconView::convert_widget_to_bin_window_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_convert_widget_to_bin_window_coords" gtk_icon_view_convert_widget_to_bin_window_coords :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- wx : TBasicType TInt32 + Int32 -> -- wy : TBasicType TInt32 + Ptr Int32 -> -- bx : TBasicType TInt32 + Ptr Int32 -> -- by : TBasicType TInt32 + IO () + + +iconViewConvertWidgetToBinWindowCoords :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- wx + -> Int32 -- wy + -> m (Int32,Int32) -- result +iconViewConvertWidgetToBinWindowCoords _obj wx wy = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + bx <- allocMem :: IO (Ptr Int32) + by <- allocMem :: IO (Ptr Int32) + gtk_icon_view_convert_widget_to_bin_window_coords _obj' wx wy bx by + bx' <- peek bx + by' <- peek by + touchManagedPtr _obj + freeMem bx + freeMem by + return (bx', by') + +data IconViewConvertWidgetToBinWindowCoordsMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, IconViewK a) => MethodInfo IconViewConvertWidgetToBinWindowCoordsMethodInfo a signature where + overloadedMethod _ = iconViewConvertWidgetToBinWindowCoords + +-- method IconView::create_drag_icon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "cairo" "Surface" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_create_drag_icon" gtk_icon_view_create_drag_icon :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO (Ptr Cairo.Surface) + + +iconViewCreateDragIcon :: + (MonadIO m, IconViewK a) => + a -- _obj + -> TreePath -- path + -> m Cairo.Surface -- result +iconViewCreateDragIcon _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + result <- gtk_icon_view_create_drag_icon _obj' path' + checkUnexpectedReturnNULL "gtk_icon_view_create_drag_icon" result + result' <- (wrapBoxed Cairo.Surface) result + touchManagedPtr _obj + touchManagedPtr path + return result' + +data IconViewCreateDragIconMethodInfo +instance (signature ~ (TreePath -> m Cairo.Surface), MonadIO m, IconViewK a) => MethodInfo IconViewCreateDragIconMethodInfo a signature where + overloadedMethod _ = iconViewCreateDragIcon + +-- method IconView::enable_model_drag_dest +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_enable_model_drag_dest" gtk_icon_view_enable_model_drag_dest :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry") + Int32 -> -- n_targets : TBasicType TInt32 + CUInt -> -- actions : TInterface "Gdk" "DragAction" + IO () + + +iconViewEnableModelDragDest :: + (MonadIO m, IconViewK a) => + a -- _obj + -> [TargetEntry] -- targets + -> [Gdk.DragAction] -- actions + -> m () -- result +iconViewEnableModelDragDest _obj targets actions = liftIO $ do + let nTargets = fromIntegral $ length targets + let _obj' = unsafeManagedPtrCastPtr _obj + let targets' = map unsafeManagedPtrGetPtr targets + targets'' <- packBlockArray 16 targets' + let actions' = gflagsToWord actions + gtk_icon_view_enable_model_drag_dest _obj' targets'' nTargets actions' + touchManagedPtr _obj + mapM_ touchManagedPtr targets + freeMem targets'' + return () + +data IconViewEnableModelDragDestMethodInfo +instance (signature ~ ([TargetEntry] -> [Gdk.DragAction] -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewEnableModelDragDestMethodInfo a signature where + overloadedMethod _ = iconViewEnableModelDragDest + +-- method IconView::enable_model_drag_source +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_enable_model_drag_source" gtk_icon_view_enable_model_drag_source :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" + Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") + Int32 -> -- n_targets : TBasicType TInt32 + CUInt -> -- actions : TInterface "Gdk" "DragAction" + IO () + + +iconViewEnableModelDragSource :: + (MonadIO m, IconViewK a) => + a -- _obj + -> [Gdk.ModifierType] -- startButtonMask + -> [TargetEntry] -- targets + -> [Gdk.DragAction] -- actions + -> m () -- result +iconViewEnableModelDragSource _obj startButtonMask targets actions = liftIO $ do + let nTargets = fromIntegral $ length targets + let _obj' = unsafeManagedPtrCastPtr _obj + let startButtonMask' = gflagsToWord startButtonMask + let targets' = map unsafeManagedPtrGetPtr targets + targets'' <- packBlockArray 16 targets' + let actions' = gflagsToWord actions + gtk_icon_view_enable_model_drag_source _obj' startButtonMask' targets'' nTargets actions' + touchManagedPtr _obj + mapM_ touchManagedPtr targets + freeMem targets'' + return () + +data IconViewEnableModelDragSourceMethodInfo +instance (signature ~ ([Gdk.ModifierType] -> [TargetEntry] -> [Gdk.DragAction] -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewEnableModelDragSourceMethodInfo a signature where + overloadedMethod _ = iconViewEnableModelDragSource + +-- method IconView::get_activate_on_single_click +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_activate_on_single_click" gtk_icon_view_get_activate_on_single_click :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO CInt + + +iconViewGetActivateOnSingleClick :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Bool -- result +iconViewGetActivateOnSingleClick _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_activate_on_single_click _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data IconViewGetActivateOnSingleClickMethodInfo +instance (signature ~ (m Bool), MonadIO m, IconViewK a) => MethodInfo IconViewGetActivateOnSingleClickMethodInfo a signature where + overloadedMethod _ = iconViewGetActivateOnSingleClick + +-- method IconView::get_cell_rect +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_cell_rect" gtk_icon_view_get_cell_rect :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" + Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" + IO CInt + + +iconViewGetCellRect :: + (MonadIO m, IconViewK a, CellRendererK b) => + a -- _obj + -> TreePath -- path + -> Maybe (b) -- cell + -> m (Bool,Gdk.Rectangle) -- result +iconViewGetCellRect _obj path cell = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + maybeCell <- case cell of + Nothing -> return nullPtr + Just jCell -> do + let jCell' = unsafeManagedPtrCastPtr jCell + return jCell' + rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + result <- gtk_icon_view_get_cell_rect _obj' path' maybeCell rect + let result' = (/= 0) result + rect' <- (wrapBoxed Gdk.Rectangle) rect + touchManagedPtr _obj + touchManagedPtr path + whenJust cell touchManagedPtr + return (result', rect') + +data IconViewGetCellRectMethodInfo +instance (signature ~ (TreePath -> Maybe (b) -> m (Bool,Gdk.Rectangle)), MonadIO m, IconViewK a, CellRendererK b) => MethodInfo IconViewGetCellRectMethodInfo a signature where + overloadedMethod _ = iconViewGetCellRect + +-- method IconView::get_column_spacing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_column_spacing" gtk_icon_view_get_column_spacing :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO Int32 + + +iconViewGetColumnSpacing :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Int32 -- result +iconViewGetColumnSpacing _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_column_spacing _obj' + touchManagedPtr _obj + return result + +data IconViewGetColumnSpacingMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetColumnSpacingMethodInfo a signature where + overloadedMethod _ = iconViewGetColumnSpacing + +-- method IconView::get_columns +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_columns" gtk_icon_view_get_columns :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO Int32 + + +iconViewGetColumns :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Int32 -- result +iconViewGetColumns _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_columns _obj' + touchManagedPtr _obj + return result + +data IconViewGetColumnsMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetColumnsMethodInfo a signature where + overloadedMethod _ = iconViewGetColumns + +-- method IconView::get_cursor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_cursor" gtk_icon_view_get_cursor :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" + Ptr (Ptr CellRenderer) -> -- cell : TInterface "Gtk" "CellRenderer" + IO CInt + + +iconViewGetCursor :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m (Bool,TreePath,CellRenderer) -- result +iconViewGetCursor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path <- allocMem :: IO (Ptr (Ptr TreePath)) + cell <- allocMem :: IO (Ptr (Ptr CellRenderer)) + result <- gtk_icon_view_get_cursor _obj' path cell + let result' = (/= 0) result + path' <- peek path + path'' <- (wrapBoxed TreePath) path' + cell' <- peek cell + cell'' <- (newObject CellRenderer) cell' + touchManagedPtr _obj + freeMem path + freeMem cell + return (result', path'', cell'') + +data IconViewGetCursorMethodInfo +instance (signature ~ (m (Bool,TreePath,CellRenderer)), MonadIO m, IconViewK a) => MethodInfo IconViewGetCursorMethodInfo a signature where + overloadedMethod _ = iconViewGetCursor + +-- method IconView::get_dest_item_at_pos +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_dest_item_at_pos" gtk_icon_view_get_dest_item_at_pos :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- drag_x : TBasicType TInt32 + Int32 -> -- drag_y : TBasicType TInt32 + Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" + Ptr CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition" + IO CInt + + +iconViewGetDestItemAtPos :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- dragX + -> Int32 -- dragY + -> m (Bool,TreePath,IconViewDropPosition)-- result +iconViewGetDestItemAtPos _obj dragX dragY = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path <- allocMem :: IO (Ptr (Ptr TreePath)) + pos <- allocMem :: IO (Ptr CUInt) + result <- gtk_icon_view_get_dest_item_at_pos _obj' dragX dragY path pos + let result' = (/= 0) result + path' <- peek path + path'' <- (wrapBoxed TreePath) path' + pos' <- peek pos + let pos'' = (toEnum . fromIntegral) pos' + touchManagedPtr _obj + freeMem path + freeMem pos + return (result', path'', pos'') + +data IconViewGetDestItemAtPosMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (Bool,TreePath,IconViewDropPosition)), MonadIO m, IconViewK a) => MethodInfo IconViewGetDestItemAtPosMethodInfo a signature where + overloadedMethod _ = iconViewGetDestItemAtPos + +-- method IconView::get_drag_dest_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_drag_dest_item" gtk_icon_view_get_drag_dest_item :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" + Ptr CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition" + IO () + + +iconViewGetDragDestItem :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m (TreePath,IconViewDropPosition) -- result +iconViewGetDragDestItem _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path <- allocMem :: IO (Ptr (Ptr TreePath)) + pos <- allocMem :: IO (Ptr CUInt) + gtk_icon_view_get_drag_dest_item _obj' path pos + path' <- peek path + path'' <- (wrapBoxed TreePath) path' + pos' <- peek pos + let pos'' = (toEnum . fromIntegral) pos' + touchManagedPtr _obj + freeMem path + freeMem pos + return (path'', pos'') + +data IconViewGetDragDestItemMethodInfo +instance (signature ~ (m (TreePath,IconViewDropPosition)), MonadIO m, IconViewK a) => MethodInfo IconViewGetDragDestItemMethodInfo a signature where + overloadedMethod _ = iconViewGetDragDestItem + +-- method IconView::get_item_at_pos +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_item_at_pos" gtk_icon_view_get_item_at_pos :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" + Ptr (Ptr CellRenderer) -> -- cell : TInterface "Gtk" "CellRenderer" + IO CInt + + +iconViewGetItemAtPos :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> m (Bool,TreePath,CellRenderer) -- result +iconViewGetItemAtPos _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path <- allocMem :: IO (Ptr (Ptr TreePath)) + cell <- allocMem :: IO (Ptr (Ptr CellRenderer)) + result <- gtk_icon_view_get_item_at_pos _obj' x y path cell + let result' = (/= 0) result + path' <- peek path + path'' <- (wrapBoxed TreePath) path' + cell' <- peek cell + cell'' <- (wrapObject CellRenderer) cell' + touchManagedPtr _obj + freeMem path + freeMem cell + return (result', path'', cell'') + +data IconViewGetItemAtPosMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (Bool,TreePath,CellRenderer)), MonadIO m, IconViewK a) => MethodInfo IconViewGetItemAtPosMethodInfo a signature where + overloadedMethod _ = iconViewGetItemAtPos + +-- method IconView::get_item_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_item_column" gtk_icon_view_get_item_column :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO Int32 + + +iconViewGetItemColumn :: + (MonadIO m, IconViewK a) => + a -- _obj + -> TreePath -- path + -> m Int32 -- result +iconViewGetItemColumn _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + result <- gtk_icon_view_get_item_column _obj' path' + touchManagedPtr _obj + touchManagedPtr path + return result + +data IconViewGetItemColumnMethodInfo +instance (signature ~ (TreePath -> m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetItemColumnMethodInfo a signature where + overloadedMethod _ = iconViewGetItemColumn + +-- method IconView::get_item_orientation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Orientation" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_item_orientation" gtk_icon_view_get_item_orientation :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO CUInt + + +iconViewGetItemOrientation :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Orientation -- result +iconViewGetItemOrientation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_item_orientation _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data IconViewGetItemOrientationMethodInfo +instance (signature ~ (m Orientation), MonadIO m, IconViewK a) => MethodInfo IconViewGetItemOrientationMethodInfo a signature where + overloadedMethod _ = iconViewGetItemOrientation + +-- method IconView::get_item_padding +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_item_padding" gtk_icon_view_get_item_padding :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO Int32 + + +iconViewGetItemPadding :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Int32 -- result +iconViewGetItemPadding _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_item_padding _obj' + touchManagedPtr _obj + return result + +data IconViewGetItemPaddingMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetItemPaddingMethodInfo a signature where + overloadedMethod _ = iconViewGetItemPadding + +-- method IconView::get_item_row +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_item_row" gtk_icon_view_get_item_row :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO Int32 + + +iconViewGetItemRow :: + (MonadIO m, IconViewK a) => + a -- _obj + -> TreePath -- path + -> m Int32 -- result +iconViewGetItemRow _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + result <- gtk_icon_view_get_item_row _obj' path' + touchManagedPtr _obj + touchManagedPtr path + return result + +data IconViewGetItemRowMethodInfo +instance (signature ~ (TreePath -> m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetItemRowMethodInfo a signature where + overloadedMethod _ = iconViewGetItemRow + +-- method IconView::get_item_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_item_width" gtk_icon_view_get_item_width :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO Int32 + + +iconViewGetItemWidth :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Int32 -- result +iconViewGetItemWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_item_width _obj' + touchManagedPtr _obj + return result + +data IconViewGetItemWidthMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetItemWidthMethodInfo a signature where + overloadedMethod _ = iconViewGetItemWidth + +-- method IconView::get_margin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_margin" gtk_icon_view_get_margin :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO Int32 + + +iconViewGetMargin :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Int32 -- result +iconViewGetMargin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_margin _obj' + touchManagedPtr _obj + return result + +data IconViewGetMarginMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetMarginMethodInfo a signature where + overloadedMethod _ = iconViewGetMargin + +-- method IconView::get_markup_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_markup_column" gtk_icon_view_get_markup_column :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO Int32 + + +iconViewGetMarkupColumn :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Int32 -- result +iconViewGetMarkupColumn _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_markup_column _obj' + touchManagedPtr _obj + return result + +data IconViewGetMarkupColumnMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetMarkupColumnMethodInfo a signature where + overloadedMethod _ = iconViewGetMarkupColumn + +-- method IconView::get_model +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TreeModel" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_model" gtk_icon_view_get_model :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO (Ptr TreeModel) + + +iconViewGetModel :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m TreeModel -- result +iconViewGetModel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_model _obj' + checkUnexpectedReturnNULL "gtk_icon_view_get_model" result + result' <- (newObject TreeModel) result + touchManagedPtr _obj + return result' + +data IconViewGetModelMethodInfo +instance (signature ~ (m TreeModel), MonadIO m, IconViewK a) => MethodInfo IconViewGetModelMethodInfo a signature where + overloadedMethod _ = iconViewGetModel + +-- method IconView::get_path_at_pos +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TreePath" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_path_at_pos" gtk_icon_view_get_path_at_pos :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + IO (Ptr TreePath) + + +iconViewGetPathAtPos :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> m TreePath -- result +iconViewGetPathAtPos _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_path_at_pos _obj' x y + checkUnexpectedReturnNULL "gtk_icon_view_get_path_at_pos" result + result' <- (wrapBoxed TreePath) result + touchManagedPtr _obj + return result' + +data IconViewGetPathAtPosMethodInfo +instance (signature ~ (Int32 -> Int32 -> m TreePath), MonadIO m, IconViewK a) => MethodInfo IconViewGetPathAtPosMethodInfo a signature where + overloadedMethod _ = iconViewGetPathAtPos + +-- method IconView::get_pixbuf_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_pixbuf_column" gtk_icon_view_get_pixbuf_column :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO Int32 + + +iconViewGetPixbufColumn :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Int32 -- result +iconViewGetPixbufColumn _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_pixbuf_column _obj' + touchManagedPtr _obj + return result + +data IconViewGetPixbufColumnMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetPixbufColumnMethodInfo a signature where + overloadedMethod _ = iconViewGetPixbufColumn + +-- method IconView::get_reorderable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_reorderable" gtk_icon_view_get_reorderable :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO CInt + + +iconViewGetReorderable :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Bool -- result +iconViewGetReorderable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_reorderable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data IconViewGetReorderableMethodInfo +instance (signature ~ (m Bool), MonadIO m, IconViewK a) => MethodInfo IconViewGetReorderableMethodInfo a signature where + overloadedMethod _ = iconViewGetReorderable + +-- method IconView::get_row_spacing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_row_spacing" gtk_icon_view_get_row_spacing :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO Int32 + + +iconViewGetRowSpacing :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Int32 -- result +iconViewGetRowSpacing _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_row_spacing _obj' + touchManagedPtr _obj + return result + +data IconViewGetRowSpacingMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetRowSpacingMethodInfo a signature where + overloadedMethod _ = iconViewGetRowSpacing + +-- method IconView::get_selected_items +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGList (TInterface "Gtk" "TreePath") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_selected_items" gtk_icon_view_get_selected_items :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO (Ptr (GList (Ptr TreePath))) + + +iconViewGetSelectedItems :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m [TreePath] -- result +iconViewGetSelectedItems _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_selected_items _obj' + checkUnexpectedReturnNULL "gtk_icon_view_get_selected_items" result + result' <- unpackGList result + result'' <- mapM (wrapBoxed TreePath) result' + g_list_free result + touchManagedPtr _obj + return result'' + +data IconViewGetSelectedItemsMethodInfo +instance (signature ~ (m [TreePath]), MonadIO m, IconViewK a) => MethodInfo IconViewGetSelectedItemsMethodInfo a signature where + overloadedMethod _ = iconViewGetSelectedItems + +-- method IconView::get_selection_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "SelectionMode" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_selection_mode" gtk_icon_view_get_selection_mode :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO CUInt + + +iconViewGetSelectionMode :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m SelectionMode -- result +iconViewGetSelectionMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_selection_mode _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data IconViewGetSelectionModeMethodInfo +instance (signature ~ (m SelectionMode), MonadIO m, IconViewK a) => MethodInfo IconViewGetSelectionModeMethodInfo a signature where + overloadedMethod _ = iconViewGetSelectionMode + +-- method IconView::get_spacing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_spacing" gtk_icon_view_get_spacing :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO Int32 + + +iconViewGetSpacing :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Int32 -- result +iconViewGetSpacing _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_spacing _obj' + touchManagedPtr _obj + return result + +data IconViewGetSpacingMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetSpacingMethodInfo a signature where + overloadedMethod _ = iconViewGetSpacing + +-- method IconView::get_text_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_text_column" gtk_icon_view_get_text_column :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO Int32 + + +iconViewGetTextColumn :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Int32 -- result +iconViewGetTextColumn _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_text_column _obj' + touchManagedPtr _obj + return result + +data IconViewGetTextColumnMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetTextColumnMethodInfo a signature where + overloadedMethod _ = iconViewGetTextColumn + +-- method IconView::get_tooltip_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_tooltip_column" gtk_icon_view_get_tooltip_column :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO Int32 + + +iconViewGetTooltipColumn :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m Int32 -- result +iconViewGetTooltipColumn _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_icon_view_get_tooltip_column _obj' + touchManagedPtr _obj + return result + +data IconViewGetTooltipColumnMethodInfo +instance (signature ~ (m Int32), MonadIO m, IconViewK a) => MethodInfo IconViewGetTooltipColumnMethodInfo a signature where + overloadedMethod _ = iconViewGetTooltipColumn + +-- method IconView::get_tooltip_context +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_tooltip_context" gtk_icon_view_get_tooltip_context :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr Int32 -> -- x : TBasicType TInt32 + Ptr Int32 -> -- y : TBasicType TInt32 + CInt -> -- keyboard_tip : TBasicType TBoolean + Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel" + Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" + Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" + IO CInt + + +iconViewGetTooltipContext :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> Bool -- keyboardTip + -> m (Bool,Int32,Int32,TreeModel,TreePath,TreeIter)-- result +iconViewGetTooltipContext _obj x y keyboardTip = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + x' <- allocMem :: IO (Ptr Int32) + poke x' x + y' <- allocMem :: IO (Ptr Int32) + poke y' y + let keyboardTip' = (fromIntegral . fromEnum) keyboardTip + model <- allocMem :: IO (Ptr (Ptr TreeModel)) + path <- allocMem :: IO (Ptr (Ptr TreePath)) + iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) + result <- gtk_icon_view_get_tooltip_context _obj' x' y' keyboardTip' model path iter + let result' = (/= 0) result + x'' <- peek x' + y'' <- peek y' + model' <- peek model + model'' <- (newObject TreeModel) model' + path' <- peek path + path'' <- (wrapBoxed TreePath) path' + iter' <- (wrapBoxed TreeIter) iter + touchManagedPtr _obj + freeMem x' + freeMem y' + freeMem model + freeMem path + return (result', x'', y'', model'', path'', iter') + +data IconViewGetTooltipContextMethodInfo +instance (signature ~ (Int32 -> Int32 -> Bool -> m (Bool,Int32,Int32,TreeModel,TreePath,TreeIter)), MonadIO m, IconViewK a) => MethodInfo IconViewGetTooltipContextMethodInfo a signature where + overloadedMethod _ = iconViewGetTooltipContext + +-- method IconView::get_visible_range +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_get_visible_range" gtk_icon_view_get_visible_range :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr (Ptr TreePath) -> -- start_path : TInterface "Gtk" "TreePath" + Ptr (Ptr TreePath) -> -- end_path : TInterface "Gtk" "TreePath" + IO CInt + + +iconViewGetVisibleRange :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m (Bool,TreePath,TreePath) -- result +iconViewGetVisibleRange _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + startPath <- allocMem :: IO (Ptr (Ptr TreePath)) + endPath <- allocMem :: IO (Ptr (Ptr TreePath)) + result <- gtk_icon_view_get_visible_range _obj' startPath endPath + let result' = (/= 0) result + startPath' <- peek startPath + startPath'' <- (wrapBoxed TreePath) startPath' + endPath' <- peek endPath + endPath'' <- (wrapBoxed TreePath) endPath' + touchManagedPtr _obj + freeMem startPath + freeMem endPath + return (result', startPath'', endPath'') + +data IconViewGetVisibleRangeMethodInfo +instance (signature ~ (m (Bool,TreePath,TreePath)), MonadIO m, IconViewK a) => MethodInfo IconViewGetVisibleRangeMethodInfo a signature where + overloadedMethod _ = iconViewGetVisibleRange + +-- method IconView::item_activated +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_item_activated" gtk_icon_view_item_activated :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO () + + +iconViewItemActivated :: + (MonadIO m, IconViewK a) => + a -- _obj + -> TreePath -- path + -> m () -- result +iconViewItemActivated _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + gtk_icon_view_item_activated _obj' path' + touchManagedPtr _obj + touchManagedPtr path + return () + +data IconViewItemActivatedMethodInfo +instance (signature ~ (TreePath -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewItemActivatedMethodInfo a signature where + overloadedMethod _ = iconViewItemActivated + +-- method IconView::path_is_selected +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_path_is_selected" gtk_icon_view_path_is_selected :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO CInt + + +iconViewPathIsSelected :: + (MonadIO m, IconViewK a) => + a -- _obj + -> TreePath -- path + -> m Bool -- result +iconViewPathIsSelected _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + result <- gtk_icon_view_path_is_selected _obj' path' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr path + return result' + +data IconViewPathIsSelectedMethodInfo +instance (signature ~ (TreePath -> m Bool), MonadIO m, IconViewK a) => MethodInfo IconViewPathIsSelectedMethodInfo a signature where + overloadedMethod _ = iconViewPathIsSelected + +-- method IconView::scroll_to_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_scroll_to_path" gtk_icon_view_scroll_to_path :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + CInt -> -- use_align : TBasicType TBoolean + CFloat -> -- row_align : TBasicType TFloat + CFloat -> -- col_align : TBasicType TFloat + IO () + + +iconViewScrollToPath :: + (MonadIO m, IconViewK a) => + a -- _obj + -> TreePath -- path + -> Bool -- useAlign + -> Float -- rowAlign + -> Float -- colAlign + -> m () -- result +iconViewScrollToPath _obj path useAlign rowAlign colAlign = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + let useAlign' = (fromIntegral . fromEnum) useAlign + let rowAlign' = realToFrac rowAlign + let colAlign' = realToFrac colAlign + gtk_icon_view_scroll_to_path _obj' path' useAlign' rowAlign' colAlign' + touchManagedPtr _obj + touchManagedPtr path + return () + +data IconViewScrollToPathMethodInfo +instance (signature ~ (TreePath -> Bool -> Float -> Float -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewScrollToPathMethodInfo a signature where + overloadedMethod _ = iconViewScrollToPath + +-- method IconView::select_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_select_all" gtk_icon_view_select_all :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO () + + +iconViewSelectAll :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m () -- result +iconViewSelectAll _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_select_all _obj' + touchManagedPtr _obj + return () + +data IconViewSelectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSelectAllMethodInfo a signature where + overloadedMethod _ = iconViewSelectAll + +-- method IconView::select_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_select_path" gtk_icon_view_select_path :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO () + + +iconViewSelectPath :: + (MonadIO m, IconViewK a) => + a -- _obj + -> TreePath -- path + -> m () -- result +iconViewSelectPath _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + gtk_icon_view_select_path _obj' path' + touchManagedPtr _obj + touchManagedPtr path + return () + +data IconViewSelectPathMethodInfo +instance (signature ~ (TreePath -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSelectPathMethodInfo a signature where + overloadedMethod _ = iconViewSelectPath + +-- method IconView::selected_foreach +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "IconViewForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_selected_foreach" gtk_icon_view_selected_foreach :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + FunPtr IconViewForeachFuncC -> -- func : TInterface "Gtk" "IconViewForeachFunc" + Ptr () -> -- data : TBasicType TVoid + IO () + + +iconViewSelectedForeach :: + (MonadIO m, IconViewK a) => + a -- _obj + -> IconViewForeachFunc -- func + -> m () -- result +iconViewSelectedForeach _obj func = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + func' <- mkIconViewForeachFunc (iconViewForeachFuncWrapper Nothing func) + let data_ = nullPtr + gtk_icon_view_selected_foreach _obj' func' data_ + safeFreeFunPtr $ castFunPtrToPtr func' + touchManagedPtr _obj + return () + +data IconViewSelectedForeachMethodInfo +instance (signature ~ (IconViewForeachFunc -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSelectedForeachMethodInfo a signature where + overloadedMethod _ = iconViewSelectedForeach + +-- method IconView::set_activate_on_single_click +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_activate_on_single_click" gtk_icon_view_set_activate_on_single_click :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + CInt -> -- single : TBasicType TBoolean + IO () + + +iconViewSetActivateOnSingleClick :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Bool -- single + -> m () -- result +iconViewSetActivateOnSingleClick _obj single = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let single' = (fromIntegral . fromEnum) single + gtk_icon_view_set_activate_on_single_click _obj' single' + touchManagedPtr _obj + return () + +data IconViewSetActivateOnSingleClickMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetActivateOnSingleClickMethodInfo a signature where + overloadedMethod _ = iconViewSetActivateOnSingleClick + +-- method IconView::set_column_spacing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_column_spacing" gtk_icon_view_set_column_spacing :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- column_spacing : TBasicType TInt32 + IO () + + +iconViewSetColumnSpacing :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- columnSpacing + -> m () -- result +iconViewSetColumnSpacing _obj columnSpacing = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_set_column_spacing _obj' columnSpacing + touchManagedPtr _obj + return () + +data IconViewSetColumnSpacingMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetColumnSpacingMethodInfo a signature where + overloadedMethod _ = iconViewSetColumnSpacing + +-- method IconView::set_columns +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_columns" gtk_icon_view_set_columns :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- columns : TBasicType TInt32 + IO () + + +iconViewSetColumns :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- columns + -> m () -- result +iconViewSetColumns _obj columns = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_set_columns _obj' columns + touchManagedPtr _obj + return () + +data IconViewSetColumnsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetColumnsMethodInfo a signature where + overloadedMethod _ = iconViewSetColumns + +-- method IconView::set_cursor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_cursor" gtk_icon_view_set_cursor :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" + CInt -> -- start_editing : TBasicType TBoolean + IO () + + +iconViewSetCursor :: + (MonadIO m, IconViewK a, CellRendererK b) => + a -- _obj + -> TreePath -- path + -> Maybe (b) -- cell + -> Bool -- startEditing + -> m () -- result +iconViewSetCursor _obj path cell startEditing = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + maybeCell <- case cell of + Nothing -> return nullPtr + Just jCell -> do + let jCell' = unsafeManagedPtrCastPtr jCell + return jCell' + let startEditing' = (fromIntegral . fromEnum) startEditing + gtk_icon_view_set_cursor _obj' path' maybeCell startEditing' + touchManagedPtr _obj + touchManagedPtr path + whenJust cell touchManagedPtr + return () + +data IconViewSetCursorMethodInfo +instance (signature ~ (TreePath -> Maybe (b) -> Bool -> m ()), MonadIO m, IconViewK a, CellRendererK b) => MethodInfo IconViewSetCursorMethodInfo a signature where + overloadedMethod _ = iconViewSetCursor + +-- method IconView::set_drag_dest_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_drag_dest_item" gtk_icon_view_set_drag_dest_item :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition" + IO () + + +iconViewSetDragDestItem :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Maybe (TreePath) -- path + -> IconViewDropPosition -- pos + -> m () -- result +iconViewSetDragDestItem _obj path pos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybePath <- case path of + Nothing -> return nullPtr + Just jPath -> do + let jPath' = unsafeManagedPtrGetPtr jPath + return jPath' + let pos' = (fromIntegral . fromEnum) pos + gtk_icon_view_set_drag_dest_item _obj' maybePath pos' + touchManagedPtr _obj + whenJust path touchManagedPtr + return () + +data IconViewSetDragDestItemMethodInfo +instance (signature ~ (Maybe (TreePath) -> IconViewDropPosition -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetDragDestItemMethodInfo a signature where + overloadedMethod _ = iconViewSetDragDestItem + +-- method IconView::set_item_orientation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_item_orientation" gtk_icon_view_set_item_orientation :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + CUInt -> -- orientation : TInterface "Gtk" "Orientation" + IO () + + +iconViewSetItemOrientation :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Orientation -- orientation + -> m () -- result +iconViewSetItemOrientation _obj orientation = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let orientation' = (fromIntegral . fromEnum) orientation + gtk_icon_view_set_item_orientation _obj' orientation' + touchManagedPtr _obj + return () + +data IconViewSetItemOrientationMethodInfo +instance (signature ~ (Orientation -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetItemOrientationMethodInfo a signature where + overloadedMethod _ = iconViewSetItemOrientation + +-- method IconView::set_item_padding +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_padding", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_item_padding" gtk_icon_view_set_item_padding :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- item_padding : TBasicType TInt32 + IO () + + +iconViewSetItemPadding :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- itemPadding + -> m () -- result +iconViewSetItemPadding _obj itemPadding = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_set_item_padding _obj' itemPadding + touchManagedPtr _obj + return () + +data IconViewSetItemPaddingMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetItemPaddingMethodInfo a signature where + overloadedMethod _ = iconViewSetItemPadding + +-- method IconView::set_item_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_item_width" gtk_icon_view_set_item_width :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- item_width : TBasicType TInt32 + IO () + + +iconViewSetItemWidth :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- itemWidth + -> m () -- result +iconViewSetItemWidth _obj itemWidth = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_set_item_width _obj' itemWidth + touchManagedPtr _obj + return () + +data IconViewSetItemWidthMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetItemWidthMethodInfo a signature where + overloadedMethod _ = iconViewSetItemWidth + +-- method IconView::set_margin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_margin" gtk_icon_view_set_margin :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- margin : TBasicType TInt32 + IO () + + +iconViewSetMargin :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +iconViewSetMargin _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_set_margin _obj' margin + touchManagedPtr _obj + return () + +data IconViewSetMarginMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetMarginMethodInfo a signature where + overloadedMethod _ = iconViewSetMargin + +-- method IconView::set_markup_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_markup_column" gtk_icon_view_set_markup_column :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- column : TBasicType TInt32 + IO () + + +iconViewSetMarkupColumn :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- column + -> m () -- result +iconViewSetMarkupColumn _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_set_markup_column _obj' column + touchManagedPtr _obj + return () + +data IconViewSetMarkupColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetMarkupColumnMethodInfo a signature where + overloadedMethod _ = iconViewSetMarkupColumn + +-- method IconView::set_model +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_model" gtk_icon_view_set_model :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" + IO () + + +iconViewSetModel :: + (MonadIO m, IconViewK a, TreeModelK b) => + a -- _obj + -> Maybe (b) -- model + -> m () -- result +iconViewSetModel _obj model = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeModel <- case model of + Nothing -> return nullPtr + Just jModel -> do + let jModel' = unsafeManagedPtrCastPtr jModel + return jModel' + gtk_icon_view_set_model _obj' maybeModel + touchManagedPtr _obj + whenJust model touchManagedPtr + return () + +data IconViewSetModelMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IconViewK a, TreeModelK b) => MethodInfo IconViewSetModelMethodInfo a signature where + overloadedMethod _ = iconViewSetModel + +-- method IconView::set_pixbuf_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_pixbuf_column" gtk_icon_view_set_pixbuf_column :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- column : TBasicType TInt32 + IO () + + +iconViewSetPixbufColumn :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- column + -> m () -- result +iconViewSetPixbufColumn _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_set_pixbuf_column _obj' column + touchManagedPtr _obj + return () + +data IconViewSetPixbufColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetPixbufColumnMethodInfo a signature where + overloadedMethod _ = iconViewSetPixbufColumn + +-- method IconView::set_reorderable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_reorderable" gtk_icon_view_set_reorderable :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + CInt -> -- reorderable : TBasicType TBoolean + IO () + + +iconViewSetReorderable :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Bool -- reorderable + -> m () -- result +iconViewSetReorderable _obj reorderable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let reorderable' = (fromIntegral . fromEnum) reorderable + gtk_icon_view_set_reorderable _obj' reorderable' + touchManagedPtr _obj + return () + +data IconViewSetReorderableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetReorderableMethodInfo a signature where + overloadedMethod _ = iconViewSetReorderable + +-- method IconView::set_row_spacing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_row_spacing" gtk_icon_view_set_row_spacing :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- row_spacing : TBasicType TInt32 + IO () + + +iconViewSetRowSpacing :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- rowSpacing + -> m () -- result +iconViewSetRowSpacing _obj rowSpacing = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_set_row_spacing _obj' rowSpacing + touchManagedPtr _obj + return () + +data IconViewSetRowSpacingMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetRowSpacingMethodInfo a signature where + overloadedMethod _ = iconViewSetRowSpacing + +-- method IconView::set_selection_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_selection_mode" gtk_icon_view_set_selection_mode :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + CUInt -> -- mode : TInterface "Gtk" "SelectionMode" + IO () + + +iconViewSetSelectionMode :: + (MonadIO m, IconViewK a) => + a -- _obj + -> SelectionMode -- mode + -> m () -- result +iconViewSetSelectionMode _obj mode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let mode' = (fromIntegral . fromEnum) mode + gtk_icon_view_set_selection_mode _obj' mode' + touchManagedPtr _obj + return () + +data IconViewSetSelectionModeMethodInfo +instance (signature ~ (SelectionMode -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetSelectionModeMethodInfo a signature where + overloadedMethod _ = iconViewSetSelectionMode + +-- method IconView::set_spacing +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_spacing" gtk_icon_view_set_spacing :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- spacing : TBasicType TInt32 + IO () + + +iconViewSetSpacing :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- spacing + -> m () -- result +iconViewSetSpacing _obj spacing = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_set_spacing _obj' spacing + touchManagedPtr _obj + return () + +data IconViewSetSpacingMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetSpacingMethodInfo a signature where + overloadedMethod _ = iconViewSetSpacing + +-- method IconView::set_text_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_text_column" gtk_icon_view_set_text_column :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- column : TBasicType TInt32 + IO () + + +iconViewSetTextColumn :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- column + -> m () -- result +iconViewSetTextColumn _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_set_text_column _obj' column + touchManagedPtr _obj + return () + +data IconViewSetTextColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetTextColumnMethodInfo a signature where + overloadedMethod _ = iconViewSetTextColumn + +-- method IconView::set_tooltip_cell +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_tooltip_cell" gtk_icon_view_set_tooltip_cell :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" + IO () + + +iconViewSetTooltipCell :: + (MonadIO m, IconViewK a, TooltipK b, CellRendererK c) => + a -- _obj + -> b -- tooltip + -> TreePath -- path + -> Maybe (c) -- cell + -> m () -- result +iconViewSetTooltipCell _obj tooltip path cell = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let tooltip' = unsafeManagedPtrCastPtr tooltip + let path' = unsafeManagedPtrGetPtr path + maybeCell <- case cell of + Nothing -> return nullPtr + Just jCell -> do + let jCell' = unsafeManagedPtrCastPtr jCell + return jCell' + gtk_icon_view_set_tooltip_cell _obj' tooltip' path' maybeCell + touchManagedPtr _obj + touchManagedPtr tooltip + touchManagedPtr path + whenJust cell touchManagedPtr + return () + +data IconViewSetTooltipCellMethodInfo +instance (signature ~ (b -> TreePath -> Maybe (c) -> m ()), MonadIO m, IconViewK a, TooltipK b, CellRendererK c) => MethodInfo IconViewSetTooltipCellMethodInfo a signature where + overloadedMethod _ = iconViewSetTooltipCell + +-- method IconView::set_tooltip_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_tooltip_column" gtk_icon_view_set_tooltip_column :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Int32 -> -- column : TBasicType TInt32 + IO () + + +iconViewSetTooltipColumn :: + (MonadIO m, IconViewK a) => + a -- _obj + -> Int32 -- column + -> m () -- result +iconViewSetTooltipColumn _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_set_tooltip_column _obj' column + touchManagedPtr _obj + return () + +data IconViewSetTooltipColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewSetTooltipColumnMethodInfo a signature where + overloadedMethod _ = iconViewSetTooltipColumn + +-- method IconView::set_tooltip_item +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_set_tooltip_item" gtk_icon_view_set_tooltip_item :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO () + + +iconViewSetTooltipItem :: + (MonadIO m, IconViewK a, TooltipK b) => + a -- _obj + -> b -- tooltip + -> TreePath -- path + -> m () -- result +iconViewSetTooltipItem _obj tooltip path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let tooltip' = unsafeManagedPtrCastPtr tooltip + let path' = unsafeManagedPtrGetPtr path + gtk_icon_view_set_tooltip_item _obj' tooltip' path' + touchManagedPtr _obj + touchManagedPtr tooltip + touchManagedPtr path + return () + +data IconViewSetTooltipItemMethodInfo +instance (signature ~ (b -> TreePath -> m ()), MonadIO m, IconViewK a, TooltipK b) => MethodInfo IconViewSetTooltipItemMethodInfo a signature where + overloadedMethod _ = iconViewSetTooltipItem + +-- method IconView::unselect_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_unselect_all" gtk_icon_view_unselect_all :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO () + + +iconViewUnselectAll :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m () -- result +iconViewUnselectAll _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_unselect_all _obj' + touchManagedPtr _obj + return () + +data IconViewUnselectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, IconViewK a) => MethodInfo IconViewUnselectAllMethodInfo a signature where + overloadedMethod _ = iconViewUnselectAll + +-- method IconView::unselect_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_unselect_path" gtk_icon_view_unselect_path :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO () + + +iconViewUnselectPath :: + (MonadIO m, IconViewK a) => + a -- _obj + -> TreePath -- path + -> m () -- result +iconViewUnselectPath _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + gtk_icon_view_unselect_path _obj' path' + touchManagedPtr _obj + touchManagedPtr path + return () + +data IconViewUnselectPathMethodInfo +instance (signature ~ (TreePath -> m ()), MonadIO m, IconViewK a) => MethodInfo IconViewUnselectPathMethodInfo a signature where + overloadedMethod _ = iconViewUnselectPath + +-- method IconView::unset_model_drag_dest +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_unset_model_drag_dest" gtk_icon_view_unset_model_drag_dest :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO () + + +iconViewUnsetModelDragDest :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m () -- result +iconViewUnsetModelDragDest _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_unset_model_drag_dest _obj' + touchManagedPtr _obj + return () + +data IconViewUnsetModelDragDestMethodInfo +instance (signature ~ (m ()), MonadIO m, IconViewK a) => MethodInfo IconViewUnsetModelDragDestMethodInfo a signature where + overloadedMethod _ = iconViewUnsetModelDragDest + +-- method IconView::unset_model_drag_source +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_icon_view_unset_model_drag_source" gtk_icon_view_unset_model_drag_source :: + Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" + IO () + + +iconViewUnsetModelDragSource :: + (MonadIO m, IconViewK a) => + a -- _obj + -> m () -- result +iconViewUnsetModelDragSource _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_icon_view_unset_model_drag_source _obj' + touchManagedPtr _obj + return () + +data IconViewUnsetModelDragSourceMethodInfo +instance (signature ~ (m ()), MonadIO m, IconViewK a) => MethodInfo IconViewUnsetModelDragSourceMethodInfo a signature where + overloadedMethod _ = iconViewUnsetModelDragSource diff --git a/GI/Gtk/Objects/IconView.hs-boot b/GI/Gtk/Objects/IconView.hs-boot --- a/GI/Gtk/Objects/IconView.hs-boot +++ b/GI/Gtk/Objects/IconView.hs-boot @@ -36,3 +36,64 @@ data IconViewSelectionChangedSignalInfo data IconViewToggleCursorItemSignalInfo data IconViewUnselectAllSignalInfo +data IconViewConvertWidgetToBinWindowCoordsMethodInfo +data IconViewCreateDragIconMethodInfo +data IconViewEnableModelDragDestMethodInfo +data IconViewEnableModelDragSourceMethodInfo +data IconViewGetActivateOnSingleClickMethodInfo +data IconViewGetCellRectMethodInfo +data IconViewGetColumnSpacingMethodInfo +data IconViewGetColumnsMethodInfo +data IconViewGetCursorMethodInfo +data IconViewGetDestItemAtPosMethodInfo +data IconViewGetDragDestItemMethodInfo +data IconViewGetItemAtPosMethodInfo +data IconViewGetItemColumnMethodInfo +data IconViewGetItemOrientationMethodInfo +data IconViewGetItemPaddingMethodInfo +data IconViewGetItemRowMethodInfo +data IconViewGetItemWidthMethodInfo +data IconViewGetMarginMethodInfo +data IconViewGetMarkupColumnMethodInfo +data IconViewGetModelMethodInfo +data IconViewGetPathAtPosMethodInfo +data IconViewGetPixbufColumnMethodInfo +data IconViewGetReorderableMethodInfo +data IconViewGetRowSpacingMethodInfo +data IconViewGetSelectedItemsMethodInfo +data IconViewGetSelectionModeMethodInfo +data IconViewGetSpacingMethodInfo +data IconViewGetTextColumnMethodInfo +data IconViewGetTooltipColumnMethodInfo +data IconViewGetTooltipContextMethodInfo +data IconViewGetVisibleRangeMethodInfo +data IconViewItemActivatedMethodInfo +data IconViewPathIsSelectedMethodInfo +data IconViewScrollToPathMethodInfo +data IconViewSelectAllMethodInfo +data IconViewSelectPathMethodInfo +data IconViewSelectedForeachMethodInfo +data IconViewSetActivateOnSingleClickMethodInfo +data IconViewSetColumnSpacingMethodInfo +data IconViewSetColumnsMethodInfo +data IconViewSetCursorMethodInfo +data IconViewSetDragDestItemMethodInfo +data IconViewSetItemOrientationMethodInfo +data IconViewSetItemPaddingMethodInfo +data IconViewSetItemWidthMethodInfo +data IconViewSetMarginMethodInfo +data IconViewSetMarkupColumnMethodInfo +data IconViewSetModelMethodInfo +data IconViewSetPixbufColumnMethodInfo +data IconViewSetReorderableMethodInfo +data IconViewSetRowSpacingMethodInfo +data IconViewSetSelectionModeMethodInfo +data IconViewSetSpacingMethodInfo +data IconViewSetTextColumnMethodInfo +data IconViewSetTooltipCellMethodInfo +data IconViewSetTooltipColumnMethodInfo +data IconViewSetTooltipItemMethodInfo +data IconViewUnselectAllMethodInfo +data IconViewUnselectPathMethodInfo +data IconViewUnsetModelDragDestMethodInfo +data IconViewUnsetModelDragSourceMethodInfo diff --git a/GI/Gtk/Objects/IconViewAccessible.hs b/GI/Gtk/Objects/IconViewAccessible.hs --- a/GI/Gtk/Objects/IconViewAccessible.hs +++ b/GI/Gtk/Objects/IconViewAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,85 @@ noIconViewAccessible :: Maybe IconViewAccessible noIconViewAccessible = Nothing +type family ResolveIconViewAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveIconViewAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveIconViewAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo + ResolveIconViewAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveIconViewAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveIconViewAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo + ResolveIconViewAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveIconViewAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveIconViewAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveIconViewAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveIconViewAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveIconViewAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveIconViewAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo + ResolveIconViewAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveIconViewAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveIconViewAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveIconViewAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveIconViewAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveIconViewAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveIconViewAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveIconViewAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveIconViewAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveIconViewAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo + ResolveIconViewAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveIconViewAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveIconViewAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveIconViewAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveIconViewAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveIconViewAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo + ResolveIconViewAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveIconViewAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveIconViewAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveIconViewAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo + ResolveIconViewAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveIconViewAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveIconViewAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveIconViewAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveIconViewAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveIconViewAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveIconViewAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveIconViewAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveIconViewAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveIconViewAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveIconViewAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveIconViewAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveIconViewAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveIconViewAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveIconViewAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveIconViewAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveIconViewAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveIconViewAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveIconViewAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveIconViewAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo + ResolveIconViewAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveIconViewAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveIconViewAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveIconViewAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveIconViewAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveIconViewAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveIconViewAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveIconViewAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveIconViewAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveIconViewAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveIconViewAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveIconViewAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveIconViewAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveIconViewAccessibleMethod t IconViewAccessible, MethodInfo info IconViewAccessible p) => IsLabelProxy t (IconViewAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveIconViewAccessibleMethod t IconViewAccessible, MethodInfo info IconViewAccessible p) => IsLabel t (IconViewAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList IconViewAccessible = IconViewAccessibleAttributeList -type IconViewAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type IconViewAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList IconViewAccessible = IconViewAccessibleSignalList -type IconViewAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type IconViewAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/Image.hs b/GI/Gtk/Objects/Image.hs --- a/GI/Gtk/Objects/Image.hs +++ b/GI/Gtk/Objects/Image.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,38 +18,47 @@ -- * Methods -- ** imageClear + ImageClearMethodInfo , imageClear , -- ** imageGetAnimation + ImageGetAnimationMethodInfo , imageGetAnimation , -- ** imageGetGicon + ImageGetGiconMethodInfo , imageGetGicon , -- ** imageGetIconName + ImageGetIconNameMethodInfo , imageGetIconName , -- ** imageGetIconSet + ImageGetIconSetMethodInfo , imageGetIconSet , -- ** imageGetPixbuf + ImageGetPixbufMethodInfo , imageGetPixbuf , -- ** imageGetPixelSize + ImageGetPixelSizeMethodInfo , imageGetPixelSize , -- ** imageGetStock + ImageGetStockMethodInfo , imageGetStock , -- ** imageGetStorageType + ImageGetStorageTypeMethodInfo , imageGetStorageType , @@ -93,42 +103,52 @@ -- ** imageSetFromAnimation + ImageSetFromAnimationMethodInfo , imageSetFromAnimation , -- ** imageSetFromFile + ImageSetFromFileMethodInfo , imageSetFromFile , -- ** imageSetFromGicon + ImageSetFromGiconMethodInfo , imageSetFromGicon , -- ** imageSetFromIconName + ImageSetFromIconNameMethodInfo , imageSetFromIconName , -- ** imageSetFromIconSet + ImageSetFromIconSetMethodInfo , imageSetFromIconSet , -- ** imageSetFromPixbuf + ImageSetFromPixbufMethodInfo , imageSetFromPixbuf , -- ** imageSetFromResource + ImageSetFromResourceMethodInfo , imageSetFromResource , -- ** imageSetFromStock + ImageSetFromStockMethodInfo , imageSetFromStock , -- ** imageSetFromSurface + ImageSetFromSurfaceMethodInfo , imageSetFromSurface , -- ** imageSetPixelSize + ImageSetPixelSizeMethodInfo , imageSetPixelSize , @@ -264,6 +284,325 @@ noImage :: Maybe Image noImage = Nothing +type family ResolveImageMethod (t :: Symbol) (o :: *) :: * where + ResolveImageMethod "activate" o = WidgetActivateMethodInfo + ResolveImageMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveImageMethod "addChild" o = BuildableAddChildMethodInfo + ResolveImageMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveImageMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveImageMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveImageMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveImageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveImageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveImageMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveImageMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveImageMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveImageMethod "classPath" o = WidgetClassPathMethodInfo + ResolveImageMethod "clear" o = ImageClearMethodInfo + ResolveImageMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveImageMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveImageMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveImageMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveImageMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveImageMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveImageMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveImageMethod "destroy" o = WidgetDestroyMethodInfo + ResolveImageMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveImageMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveImageMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveImageMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveImageMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveImageMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveImageMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveImageMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveImageMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveImageMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveImageMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveImageMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveImageMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveImageMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveImageMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveImageMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveImageMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveImageMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveImageMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveImageMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveImageMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveImageMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveImageMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveImageMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveImageMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveImageMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveImageMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveImageMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveImageMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveImageMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveImageMethod "draw" o = WidgetDrawMethodInfo + ResolveImageMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveImageMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveImageMethod "event" o = WidgetEventMethodInfo + ResolveImageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveImageMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveImageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveImageMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveImageMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveImageMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveImageMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveImageMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveImageMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveImageMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveImageMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveImageMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveImageMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveImageMethod "hide" o = WidgetHideMethodInfo + ResolveImageMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveImageMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveImageMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveImageMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveImageMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveImageMethod "intersect" o = WidgetIntersectMethodInfo + ResolveImageMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveImageMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveImageMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveImageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveImageMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveImageMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveImageMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveImageMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveImageMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveImageMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveImageMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveImageMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveImageMethod "map" o = WidgetMapMethodInfo + ResolveImageMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveImageMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveImageMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveImageMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveImageMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveImageMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveImageMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveImageMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveImageMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveImageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveImageMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveImageMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveImageMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveImageMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveImageMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveImageMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveImageMethod "path" o = WidgetPathMethodInfo + ResolveImageMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveImageMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveImageMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveImageMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveImageMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveImageMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveImageMethod "realize" o = WidgetRealizeMethodInfo + ResolveImageMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveImageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveImageMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveImageMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveImageMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveImageMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveImageMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveImageMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveImageMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveImageMethod "reparent" o = WidgetReparentMethodInfo + ResolveImageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveImageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveImageMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveImageMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveImageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveImageMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveImageMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveImageMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveImageMethod "show" o = WidgetShowMethodInfo + ResolveImageMethod "showAll" o = WidgetShowAllMethodInfo + ResolveImageMethod "showNow" o = WidgetShowNowMethodInfo + ResolveImageMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveImageMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveImageMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveImageMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveImageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveImageMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveImageMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveImageMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveImageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveImageMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveImageMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveImageMethod "unmap" o = WidgetUnmapMethodInfo + ResolveImageMethod "unparent" o = WidgetUnparentMethodInfo + ResolveImageMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveImageMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveImageMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveImageMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveImageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveImageMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveImageMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveImageMethod "getAlignment" o = MiscGetAlignmentMethodInfo + ResolveImageMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveImageMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveImageMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveImageMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveImageMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveImageMethod "getAnimation" o = ImageGetAnimationMethodInfo + ResolveImageMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveImageMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveImageMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveImageMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveImageMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveImageMethod "getClip" o = WidgetGetClipMethodInfo + ResolveImageMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveImageMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveImageMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveImageMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveImageMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveImageMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveImageMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveImageMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveImageMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveImageMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveImageMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveImageMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveImageMethod "getGicon" o = ImageGetGiconMethodInfo + ResolveImageMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveImageMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveImageMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveImageMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveImageMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveImageMethod "getIconName" o = ImageGetIconNameMethodInfo + ResolveImageMethod "getIconSet" o = ImageGetIconSetMethodInfo + ResolveImageMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveImageMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveImageMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveImageMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveImageMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveImageMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveImageMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveImageMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveImageMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveImageMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveImageMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveImageMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveImageMethod "getPadding" o = MiscGetPaddingMethodInfo + ResolveImageMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveImageMethod "getParent" o = WidgetGetParentMethodInfo + ResolveImageMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveImageMethod "getPath" o = WidgetGetPathMethodInfo + ResolveImageMethod "getPixbuf" o = ImageGetPixbufMethodInfo + ResolveImageMethod "getPixelSize" o = ImageGetPixelSizeMethodInfo + ResolveImageMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveImageMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveImageMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveImageMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveImageMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveImageMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveImageMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveImageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveImageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveImageMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveImageMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveImageMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveImageMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveImageMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveImageMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveImageMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveImageMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveImageMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveImageMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveImageMethod "getState" o = WidgetGetStateMethodInfo + ResolveImageMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveImageMethod "getStock" o = ImageGetStockMethodInfo + ResolveImageMethod "getStorageType" o = ImageGetStorageTypeMethodInfo + ResolveImageMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveImageMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveImageMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveImageMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveImageMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveImageMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveImageMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveImageMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveImageMethod "getValign" o = WidgetGetValignMethodInfo + ResolveImageMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveImageMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveImageMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveImageMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveImageMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveImageMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveImageMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveImageMethod "setAlignment" o = MiscSetAlignmentMethodInfo + ResolveImageMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveImageMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveImageMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveImageMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveImageMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveImageMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveImageMethod "setClip" o = WidgetSetClipMethodInfo + ResolveImageMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveImageMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveImageMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveImageMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveImageMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveImageMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveImageMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveImageMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveImageMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveImageMethod "setFromAnimation" o = ImageSetFromAnimationMethodInfo + ResolveImageMethod "setFromFile" o = ImageSetFromFileMethodInfo + ResolveImageMethod "setFromGicon" o = ImageSetFromGiconMethodInfo + ResolveImageMethod "setFromIconName" o = ImageSetFromIconNameMethodInfo + ResolveImageMethod "setFromIconSet" o = ImageSetFromIconSetMethodInfo + ResolveImageMethod "setFromPixbuf" o = ImageSetFromPixbufMethodInfo + ResolveImageMethod "setFromResource" o = ImageSetFromResourceMethodInfo + ResolveImageMethod "setFromStock" o = ImageSetFromStockMethodInfo + ResolveImageMethod "setFromSurface" o = ImageSetFromSurfaceMethodInfo + ResolveImageMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveImageMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveImageMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveImageMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveImageMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveImageMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveImageMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveImageMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveImageMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveImageMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveImageMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveImageMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveImageMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveImageMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveImageMethod "setPadding" o = MiscSetPaddingMethodInfo + ResolveImageMethod "setParent" o = WidgetSetParentMethodInfo + ResolveImageMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveImageMethod "setPixelSize" o = ImageSetPixelSizeMethodInfo + ResolveImageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveImageMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveImageMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveImageMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveImageMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveImageMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveImageMethod "setState" o = WidgetSetStateMethodInfo + ResolveImageMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveImageMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveImageMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveImageMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveImageMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveImageMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveImageMethod "setValign" o = WidgetSetValignMethodInfo + ResolveImageMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveImageMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveImageMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveImageMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveImageMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveImageMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveImageMethod t Image, MethodInfo info Image p) => IsLabelProxy t (Image -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveImageMethod t Image, MethodInfo info Image p) => IsLabel t (Image -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "file" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] @@ -283,7 +622,7 @@ type AttrSetTypeConstraint ImageFilePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageFilePropertyInfo = ImageK type AttrGetType ImageFilePropertyInfo = T.Text - type AttrLabel ImageFilePropertyInfo = "Image::file" + type AttrLabel ImageFilePropertyInfo = "file" attrGet _ = getImageFile attrSet _ = setImageFile attrConstruct _ = constructImageFile @@ -307,7 +646,7 @@ type AttrSetTypeConstraint ImageGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint ImageGiconPropertyInfo = ImageK type AttrGetType ImageGiconPropertyInfo = Gio.Icon - type AttrLabel ImageGiconPropertyInfo = "Image::gicon" + type AttrLabel ImageGiconPropertyInfo = "gicon" attrGet _ = getImageGicon attrSet _ = setImageGicon attrConstruct _ = constructImageGicon @@ -331,7 +670,7 @@ type AttrSetTypeConstraint ImageIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageIconNamePropertyInfo = ImageK type AttrGetType ImageIconNamePropertyInfo = T.Text - type AttrLabel ImageIconNamePropertyInfo = "Image::icon-name" + type AttrLabel ImageIconNamePropertyInfo = "icon-name" attrGet _ = getImageIconName attrSet _ = setImageIconName attrConstruct _ = constructImageIconName @@ -355,7 +694,7 @@ type AttrSetTypeConstraint ImageIconSetPropertyInfo = (~) IconSet type AttrBaseTypeConstraint ImageIconSetPropertyInfo = ImageK type AttrGetType ImageIconSetPropertyInfo = IconSet - type AttrLabel ImageIconSetPropertyInfo = "Image::icon-set" + type AttrLabel ImageIconSetPropertyInfo = "icon-set" attrGet _ = getImageIconSet attrSet _ = setImageIconSet attrConstruct _ = constructImageIconSet @@ -379,7 +718,7 @@ type AttrSetTypeConstraint ImageIconSizePropertyInfo = (~) Int32 type AttrBaseTypeConstraint ImageIconSizePropertyInfo = ImageK type AttrGetType ImageIconSizePropertyInfo = Int32 - type AttrLabel ImageIconSizePropertyInfo = "Image::icon-size" + type AttrLabel ImageIconSizePropertyInfo = "icon-size" attrGet _ = getImageIconSize attrSet _ = setImageIconSize attrConstruct _ = constructImageIconSize @@ -403,7 +742,7 @@ type AttrSetTypeConstraint ImagePixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint ImagePixbufPropertyInfo = ImageK type AttrGetType ImagePixbufPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel ImagePixbufPropertyInfo = "Image::pixbuf" + type AttrLabel ImagePixbufPropertyInfo = "pixbuf" attrGet _ = getImagePixbuf attrSet _ = setImagePixbuf attrConstruct _ = constructImagePixbuf @@ -427,7 +766,7 @@ type AttrSetTypeConstraint ImagePixbufAnimationPropertyInfo = GdkPixbuf.PixbufAnimationK type AttrBaseTypeConstraint ImagePixbufAnimationPropertyInfo = ImageK type AttrGetType ImagePixbufAnimationPropertyInfo = GdkPixbuf.PixbufAnimation - type AttrLabel ImagePixbufAnimationPropertyInfo = "Image::pixbuf-animation" + type AttrLabel ImagePixbufAnimationPropertyInfo = "pixbuf-animation" attrGet _ = getImagePixbufAnimation attrSet _ = setImagePixbufAnimation attrConstruct _ = constructImagePixbufAnimation @@ -451,7 +790,7 @@ type AttrSetTypeConstraint ImagePixelSizePropertyInfo = (~) Int32 type AttrBaseTypeConstraint ImagePixelSizePropertyInfo = ImageK type AttrGetType ImagePixelSizePropertyInfo = Int32 - type AttrLabel ImagePixelSizePropertyInfo = "Image::pixel-size" + type AttrLabel ImagePixelSizePropertyInfo = "pixel-size" attrGet _ = getImagePixelSize attrSet _ = setImagePixelSize attrConstruct _ = constructImagePixelSize @@ -475,7 +814,7 @@ type AttrSetTypeConstraint ImageResourcePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageResourcePropertyInfo = ImageK type AttrGetType ImageResourcePropertyInfo = T.Text - type AttrLabel ImageResourcePropertyInfo = "Image::resource" + type AttrLabel ImageResourcePropertyInfo = "resource" attrGet _ = getImageResource attrSet _ = setImageResource attrConstruct _ = constructImageResource @@ -499,7 +838,7 @@ type AttrSetTypeConstraint ImageStockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageStockPropertyInfo = ImageK type AttrGetType ImageStockPropertyInfo = T.Text - type AttrLabel ImageStockPropertyInfo = "Image::stock" + type AttrLabel ImageStockPropertyInfo = "stock" attrGet _ = getImageStock attrSet _ = setImageStock attrConstruct _ = constructImageStock @@ -517,7 +856,7 @@ type AttrSetTypeConstraint ImageStorageTypePropertyInfo = (~) () type AttrBaseTypeConstraint ImageStorageTypePropertyInfo = ImageK type AttrGetType ImageStorageTypePropertyInfo = ImageType - type AttrLabel ImageStorageTypePropertyInfo = "Image::storage-type" + type AttrLabel ImageStorageTypePropertyInfo = "storage-type" attrGet _ = getImageStorageType attrSet _ = undefined attrConstruct _ = undefined @@ -541,7 +880,7 @@ type AttrSetTypeConstraint ImageSurfacePropertyInfo = (~) Cairo.Surface type AttrBaseTypeConstraint ImageSurfacePropertyInfo = ImageK type AttrGetType ImageSurfacePropertyInfo = Cairo.Surface - type AttrLabel ImageSurfacePropertyInfo = "Image::surface" + type AttrLabel ImageSurfacePropertyInfo = "surface" attrGet _ = getImageSurface attrSet _ = setImageSurface attrConstruct _ = constructImageSurface @@ -565,22 +904,21 @@ type AttrSetTypeConstraint ImageUseFallbackPropertyInfo = (~) Bool type AttrBaseTypeConstraint ImageUseFallbackPropertyInfo = ImageK type AttrGetType ImageUseFallbackPropertyInfo = Bool - type AttrLabel ImageUseFallbackPropertyInfo = "Image::use-fallback" + type AttrLabel ImageUseFallbackPropertyInfo = "use-fallback" attrGet _ = getImageUseFallback attrSet _ = setImageUseFallback attrConstruct _ = constructImageUseFallback type instance AttributeList Image = ImageAttributeList -type ImageAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("file", ImageFilePropertyInfo), '("gicon", ImageGiconPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ImageIconNamePropertyInfo), '("icon-set", ImageIconSetPropertyInfo), '("icon-size", ImageIconSizePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbuf", ImagePixbufPropertyInfo), '("pixbuf-animation", ImagePixbufAnimationPropertyInfo), '("pixel-size", ImagePixelSizePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resource", ImageResourcePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock", ImageStockPropertyInfo), '("storage-type", ImageStorageTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("surface", ImageSurfacePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-fallback", ImageUseFallbackPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +type ImageAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("file", ImageFilePropertyInfo), '("gicon", ImageGiconPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ImageIconNamePropertyInfo), '("iconSet", ImageIconSetPropertyInfo), '("iconSize", ImageIconSizePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbuf", ImagePixbufPropertyInfo), '("pixbufAnimation", ImagePixbufAnimationPropertyInfo), '("pixelSize", ImagePixelSizePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resource", ImageResourcePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock", ImageStockPropertyInfo), '("storageType", ImageStorageTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("surface", ImageSurfacePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useFallback", ImageUseFallbackPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Image = ImageSignalList -type ImageSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ImageSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Image::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Image" -- throws : False -- Skip return : False @@ -591,7 +929,7 @@ imageNew :: (MonadIO m) => - m Image + m Image -- result imageNew = liftIO $ do result <- gtk_image_new checkUnexpectedReturnNULL "gtk_image_new" result @@ -600,9 +938,8 @@ -- method Image::new_from_animation -- method type : Constructor --- Args : [Arg {argName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Image" -- throws : False -- Skip return : False @@ -614,8 +951,8 @@ imageNewFromAnimation :: (MonadIO m, GdkPixbuf.PixbufAnimationK a) => - a -> -- animation - m Image + a -- animation + -> m Image -- result imageNewFromAnimation animation = liftIO $ do let animation' = unsafeManagedPtrCastPtr animation result <- gtk_image_new_from_animation animation' @@ -626,9 +963,8 @@ -- method Image::new_from_file -- method type : Constructor --- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Image" -- throws : False -- Skip return : False @@ -640,8 +976,8 @@ imageNewFromFile :: (MonadIO m) => - [Char] -> -- filename - m Image + [Char] -- filename + -> m Image -- result imageNewFromFile filename = liftIO $ do filename' <- stringToCString filename result <- gtk_image_new_from_file filename' @@ -652,9 +988,8 @@ -- method Image::new_from_gicon -- method type : Constructor --- Args : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Image" -- throws : False -- Skip return : False @@ -667,9 +1002,9 @@ imageNewFromGicon :: (MonadIO m, Gio.IconK a) => - a -> -- icon - Int32 -> -- size - m Image + a -- icon + -> Int32 -- size + -> m Image -- result imageNewFromGicon icon size = liftIO $ do let icon' = unsafeManagedPtrCastPtr icon result <- gtk_image_new_from_gicon icon' size @@ -680,9 +1015,8 @@ -- method Image::new_from_icon_name -- method type : Constructor --- Args : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Image" -- throws : False -- Skip return : False @@ -695,22 +1029,21 @@ imageNewFromIconName :: (MonadIO m) => - T.Text -> -- icon_name - Int32 -> -- size - m Image -imageNewFromIconName icon_name size = liftIO $ do - icon_name' <- textToCString icon_name - result <- gtk_image_new_from_icon_name icon_name' size + T.Text -- iconName + -> Int32 -- size + -> m Image -- result +imageNewFromIconName iconName size = liftIO $ do + iconName' <- textToCString iconName + result <- gtk_image_new_from_icon_name iconName' size checkUnexpectedReturnNULL "gtk_image_new_from_icon_name" result result' <- (newObject Image) result - freeMem icon_name' + freeMem iconName' return result' -- method Image::new_from_icon_set -- method type : Constructor --- Args : [Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Image" -- throws : False -- Skip return : False @@ -723,22 +1056,21 @@ {-# DEPRECATED imageNewFromIconSet ["(Since version 3.10)","Use gtk_image_new_from_icon_name() instead."]#-} imageNewFromIconSet :: (MonadIO m) => - IconSet -> -- icon_set - Int32 -> -- size - m Image -imageNewFromIconSet icon_set size = liftIO $ do - let icon_set' = unsafeManagedPtrGetPtr icon_set - result <- gtk_image_new_from_icon_set icon_set' size + IconSet -- iconSet + -> Int32 -- size + -> m Image -- result +imageNewFromIconSet iconSet size = liftIO $ do + let iconSet' = unsafeManagedPtrGetPtr iconSet + result <- gtk_image_new_from_icon_set iconSet' size checkUnexpectedReturnNULL "gtk_image_new_from_icon_set" result result' <- (newObject Image) result - touchManagedPtr icon_set + touchManagedPtr iconSet return result' -- method Image::new_from_pixbuf -- method type : Constructor --- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Image" -- throws : False -- Skip return : False @@ -750,8 +1082,8 @@ imageNewFromPixbuf :: (MonadIO m, GdkPixbuf.PixbufK a) => - Maybe (a) -> -- pixbuf - m Image + Maybe (a) -- pixbuf + -> m Image -- result imageNewFromPixbuf pixbuf = liftIO $ do maybePixbuf <- case pixbuf of Nothing -> return nullPtr @@ -766,9 +1098,8 @@ -- method Image::new_from_resource -- method type : Constructor --- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Image" -- throws : False -- Skip return : False @@ -780,21 +1111,20 @@ imageNewFromResource :: (MonadIO m) => - T.Text -> -- resource_path - m Image -imageNewFromResource resource_path = liftIO $ do - resource_path' <- textToCString resource_path - result <- gtk_image_new_from_resource resource_path' + T.Text -- resourcePath + -> m Image -- result +imageNewFromResource resourcePath = liftIO $ do + resourcePath' <- textToCString resourcePath + result <- gtk_image_new_from_resource resourcePath' checkUnexpectedReturnNULL "gtk_image_new_from_resource" result result' <- (newObject Image) result - freeMem resource_path' + freeMem resourcePath' return result' -- method Image::new_from_stock -- method type : Constructor --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Image" -- throws : False -- Skip return : False @@ -807,22 +1137,21 @@ {-# DEPRECATED imageNewFromStock ["(Since version 3.10)","Use gtk_image_new_from_icon_name() instead."]#-} imageNewFromStock :: (MonadIO m) => - T.Text -> -- stock_id - Int32 -> -- size - m Image -imageNewFromStock stock_id size = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_image_new_from_stock stock_id' size + T.Text -- stockId + -> Int32 -- size + -> m Image -- result +imageNewFromStock stockId size = liftIO $ do + stockId' <- textToCString stockId + result <- gtk_image_new_from_stock stockId' size checkUnexpectedReturnNULL "gtk_image_new_from_stock" result result' <- (newObject Image) result - freeMem stock_id' + freeMem stockId' return result' -- method Image::new_from_surface -- method type : Constructor --- Args : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Image" -- throws : False -- Skip return : False @@ -834,8 +1163,8 @@ imageNewFromSurface :: (MonadIO m) => - Maybe (Cairo.Surface) -> -- surface - m Image + Maybe (Cairo.Surface) -- surface + -> m Image -- result imageNewFromSurface surface = liftIO $ do maybeSurface <- case surface of Nothing -> return nullPtr @@ -850,9 +1179,8 @@ -- method Image::clear -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -864,19 +1192,22 @@ imageClear :: (MonadIO m, ImageK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result imageClear _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_image_clear _obj' touchManagedPtr _obj return () +data ImageClearMethodInfo +instance (signature ~ (m ()), MonadIO m, ImageK a) => MethodInfo ImageClearMethodInfo a signature where + overloadedMethod _ = imageClear + -- method Image::get_animation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "PixbufAnimation" -- throws : False -- Skip return : False @@ -888,8 +1219,8 @@ imageGetAnimation :: (MonadIO m, ImageK a) => - a -> -- _obj - m GdkPixbuf.PixbufAnimation + a -- _obj + -> m GdkPixbuf.PixbufAnimation -- result imageGetAnimation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_image_get_animation _obj' @@ -898,11 +1229,14 @@ touchManagedPtr _obj return result' +data ImageGetAnimationMethodInfo +instance (signature ~ (m GdkPixbuf.PixbufAnimation), MonadIO m, ImageK a) => MethodInfo ImageGetAnimationMethodInfo a signature where + overloadedMethod _ = imageGetAnimation + -- method Image::get_gicon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -916,8 +1250,8 @@ imageGetGicon :: (MonadIO m, ImageK a) => - a -> -- _obj - m (Gio.Icon,Int32) + a -- _obj + -> m (Gio.Icon,Int32) -- result imageGetGicon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gicon <- allocMem :: IO (Ptr (Ptr Gio.Icon)) @@ -931,11 +1265,14 @@ freeMem size return (gicon'', size') +data ImageGetGiconMethodInfo +instance (signature ~ (m (Gio.Icon,Int32)), MonadIO m, ImageK a) => MethodInfo ImageGetGiconMethodInfo a signature where + overloadedMethod _ = imageGetGicon + -- method Image::get_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -949,26 +1286,29 @@ imageGetIconName :: (MonadIO m, ImageK a) => - a -> -- _obj - m (T.Text,Int32) + a -- _obj + -> m (T.Text,Int32) -- result imageGetIconName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_name <- allocMem :: IO (Ptr CString) + iconName <- allocMem :: IO (Ptr CString) size <- allocMem :: IO (Ptr Int32) - gtk_image_get_icon_name _obj' icon_name size - icon_name' <- peek icon_name - icon_name'' <- cstringToText icon_name' + gtk_image_get_icon_name _obj' iconName size + iconName' <- peek iconName + iconName'' <- cstringToText iconName' size' <- peek size touchManagedPtr _obj - freeMem icon_name + freeMem iconName freeMem size - return (icon_name'', size') + return (iconName'', size') +data ImageGetIconNameMethodInfo +instance (signature ~ (m (T.Text,Int32)), MonadIO m, ImageK a) => MethodInfo ImageGetIconNameMethodInfo a signature where + overloadedMethod _ = imageGetIconName + -- method Image::get_icon_set -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -982,26 +1322,29 @@ {-# DEPRECATED imageGetIconSet ["(Since version 3.10)","Use gtk_image_get_icon_name() instead."]#-} imageGetIconSet :: (MonadIO m, ImageK a) => - a -> -- _obj - m (IconSet,Int32) + a -- _obj + -> m (IconSet,Int32) -- result imageGetIconSet _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_set <- allocMem :: IO (Ptr (Ptr IconSet)) + iconSet <- allocMem :: IO (Ptr (Ptr IconSet)) size <- allocMem :: IO (Ptr Int32) - gtk_image_get_icon_set _obj' icon_set size - icon_set' <- peek icon_set - icon_set'' <- (newBoxed IconSet) icon_set' + gtk_image_get_icon_set _obj' iconSet size + iconSet' <- peek iconSet + iconSet'' <- (newBoxed IconSet) iconSet' size' <- peek size touchManagedPtr _obj - freeMem icon_set + freeMem iconSet freeMem size - return (icon_set'', size') + return (iconSet'', size') +data ImageGetIconSetMethodInfo +instance (signature ~ (m (IconSet,Int32)), MonadIO m, ImageK a) => MethodInfo ImageGetIconSetMethodInfo a signature where + overloadedMethod _ = imageGetIconSet + -- method Image::get_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -1013,8 +1356,8 @@ imageGetPixbuf :: (MonadIO m, ImageK a) => - a -> -- _obj - m GdkPixbuf.Pixbuf + a -- _obj + -> m GdkPixbuf.Pixbuf -- result imageGetPixbuf _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_image_get_pixbuf _obj' @@ -1023,11 +1366,14 @@ touchManagedPtr _obj return result' +data ImageGetPixbufMethodInfo +instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, ImageK a) => MethodInfo ImageGetPixbufMethodInfo a signature where + overloadedMethod _ = imageGetPixbuf + -- method Image::get_pixel_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1039,19 +1385,22 @@ imageGetPixelSize :: (MonadIO m, ImageK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result imageGetPixelSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_image_get_pixel_size _obj' touchManagedPtr _obj return result +data ImageGetPixelSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m, ImageK a) => MethodInfo ImageGetPixelSizeMethodInfo a signature where + overloadedMethod _ = imageGetPixelSize + -- method Image::get_stock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1065,26 +1414,29 @@ {-# DEPRECATED imageGetStock ["(Since version 3.10)","Use gtk_image_get_icon_name() instead."]#-} imageGetStock :: (MonadIO m, ImageK a) => - a -> -- _obj - m (T.Text,Int32) + a -- _obj + -> m (T.Text,Int32) -- result imageGetStock _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - stock_id <- allocMem :: IO (Ptr CString) + stockId <- allocMem :: IO (Ptr CString) size <- allocMem :: IO (Ptr Int32) - gtk_image_get_stock _obj' stock_id size - stock_id' <- peek stock_id - stock_id'' <- cstringToText stock_id' + gtk_image_get_stock _obj' stockId size + stockId' <- peek stockId + stockId'' <- cstringToText stockId' size' <- peek size touchManagedPtr _obj - freeMem stock_id + freeMem stockId freeMem size - return (stock_id'', size') + return (stockId'', size') +data ImageGetStockMethodInfo +instance (signature ~ (m (T.Text,Int32)), MonadIO m, ImageK a) => MethodInfo ImageGetStockMethodInfo a signature where + overloadedMethod _ = imageGetStock + -- method Image::get_storage_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ImageType" -- throws : False -- Skip return : False @@ -1096,8 +1448,8 @@ imageGetStorageType :: (MonadIO m, ImageK a) => - a -> -- _obj - m ImageType + a -- _obj + -> m ImageType -- result imageGetStorageType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_image_get_storage_type _obj' @@ -1105,11 +1457,14 @@ touchManagedPtr _obj return result' +data ImageGetStorageTypeMethodInfo +instance (signature ~ (m ImageType), MonadIO m, ImageK a) => MethodInfo ImageGetStorageTypeMethodInfo a signature where + overloadedMethod _ = imageGetStorageType + -- method Image::set_from_animation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1122,9 +1477,9 @@ imageSetFromAnimation :: (MonadIO m, ImageK a, GdkPixbuf.PixbufAnimationK b) => - a -> -- _obj - b -> -- animation - m () + a -- _obj + -> b -- animation + -> m () -- result imageSetFromAnimation _obj animation = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let animation' = unsafeManagedPtrCastPtr animation @@ -1133,11 +1488,14 @@ touchManagedPtr animation return () +data ImageSetFromAnimationMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ImageK a, GdkPixbuf.PixbufAnimationK b) => MethodInfo ImageSetFromAnimationMethodInfo a signature where + overloadedMethod _ = imageSetFromAnimation + -- method Image::set_from_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1150,9 +1508,9 @@ imageSetFromFile :: (MonadIO m, ImageK a) => - a -> -- _obj - Maybe ([Char]) -> -- filename - m () + a -- _obj + -> Maybe ([Char]) -- filename + -> m () -- result imageSetFromFile _obj filename = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeFilename <- case filename of @@ -1165,11 +1523,14 @@ freeMem maybeFilename return () +data ImageSetFromFileMethodInfo +instance (signature ~ (Maybe ([Char]) -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetFromFileMethodInfo a signature where + overloadedMethod _ = imageSetFromFile + -- method Image::set_from_gicon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1183,10 +1544,10 @@ imageSetFromGicon :: (MonadIO m, ImageK a, Gio.IconK b) => - a -> -- _obj - b -> -- icon - Int32 -> -- size - m () + a -- _obj + -> b -- icon + -> Int32 -- size + -> m () -- result imageSetFromGicon _obj icon size = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let icon' = unsafeManagedPtrCastPtr icon @@ -1195,11 +1556,14 @@ touchManagedPtr icon return () +data ImageSetFromGiconMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ImageK a, Gio.IconK b) => MethodInfo ImageSetFromGiconMethodInfo a signature where + overloadedMethod _ = imageSetFromGicon + -- method Image::set_from_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1213,23 +1577,26 @@ imageSetFromIconName :: (MonadIO m, ImageK a) => - a -> -- _obj - T.Text -> -- icon_name - Int32 -> -- size - m () -imageSetFromIconName _obj icon_name size = liftIO $ do + a -- _obj + -> T.Text -- iconName + -> Int32 -- size + -> m () -- result +imageSetFromIconName _obj iconName size = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - gtk_image_set_from_icon_name _obj' icon_name' size + iconName' <- textToCString iconName + gtk_image_set_from_icon_name _obj' iconName' size touchManagedPtr _obj - freeMem icon_name' + freeMem iconName' return () +data ImageSetFromIconNameMethodInfo +instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetFromIconNameMethodInfo a signature where + overloadedMethod _ = imageSetFromIconName + -- method Image::set_from_icon_set -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1243,23 +1610,26 @@ {-# DEPRECATED imageSetFromIconSet ["(Since version 3.10)","Use gtk_image_set_from_icon_name() instead."]#-} imageSetFromIconSet :: (MonadIO m, ImageK a) => - a -> -- _obj - IconSet -> -- icon_set - Int32 -> -- size - m () -imageSetFromIconSet _obj icon_set size = liftIO $ do + a -- _obj + -> IconSet -- iconSet + -> Int32 -- size + -> m () -- result +imageSetFromIconSet _obj iconSet size = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let icon_set' = unsafeManagedPtrGetPtr icon_set - gtk_image_set_from_icon_set _obj' icon_set' size + let iconSet' = unsafeManagedPtrGetPtr iconSet + gtk_image_set_from_icon_set _obj' iconSet' size touchManagedPtr _obj - touchManagedPtr icon_set + touchManagedPtr iconSet return () +data ImageSetFromIconSetMethodInfo +instance (signature ~ (IconSet -> Int32 -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetFromIconSetMethodInfo a signature where + overloadedMethod _ = imageSetFromIconSet + -- method Image::set_from_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1272,9 +1642,9 @@ imageSetFromPixbuf :: (MonadIO m, ImageK a, GdkPixbuf.PixbufK b) => - a -> -- _obj - Maybe (b) -> -- pixbuf - m () + a -- _obj + -> Maybe (b) -- pixbuf + -> m () -- result imageSetFromPixbuf _obj pixbuf = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybePixbuf <- case pixbuf of @@ -1287,11 +1657,14 @@ whenJust pixbuf touchManagedPtr return () +data ImageSetFromPixbufMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ImageK a, GdkPixbuf.PixbufK b) => MethodInfo ImageSetFromPixbufMethodInfo a signature where + overloadedMethod _ = imageSetFromPixbuf + -- method Image::set_from_resource -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1304,26 +1677,29 @@ imageSetFromResource :: (MonadIO m, ImageK a) => - a -> -- _obj - Maybe (T.Text) -> -- resource_path - m () -imageSetFromResource _obj resource_path = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- resourcePath + -> m () -- result +imageSetFromResource _obj resourcePath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeResource_path <- case resource_path of + maybeResourcePath <- case resourcePath of Nothing -> return nullPtr - Just jResource_path -> do - jResource_path' <- textToCString jResource_path - return jResource_path' - gtk_image_set_from_resource _obj' maybeResource_path + Just jResourcePath -> do + jResourcePath' <- textToCString jResourcePath + return jResourcePath' + gtk_image_set_from_resource _obj' maybeResourcePath touchManagedPtr _obj - freeMem maybeResource_path + freeMem maybeResourcePath return () +data ImageSetFromResourceMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetFromResourceMethodInfo a signature where + overloadedMethod _ = imageSetFromResource + -- method Image::set_from_stock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1337,23 +1713,26 @@ {-# DEPRECATED imageSetFromStock ["(Since version 3.10)","Use gtk_image_set_from_icon_name() instead."]#-} imageSetFromStock :: (MonadIO m, ImageK a) => - a -> -- _obj - T.Text -> -- stock_id - Int32 -> -- size - m () -imageSetFromStock _obj stock_id size = liftIO $ do + a -- _obj + -> T.Text -- stockId + -> Int32 -- size + -> m () -- result +imageSetFromStock _obj stockId size = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - gtk_image_set_from_stock _obj' stock_id' size + stockId' <- textToCString stockId + gtk_image_set_from_stock _obj' stockId' size touchManagedPtr _obj - freeMem stock_id' + freeMem stockId' return () +data ImageSetFromStockMethodInfo +instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetFromStockMethodInfo a signature where + overloadedMethod _ = imageSetFromStock + -- method Image::set_from_surface -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1366,9 +1745,9 @@ imageSetFromSurface :: (MonadIO m, ImageK a) => - a -> -- _obj - Cairo.Surface -> -- surface - m () + a -- _obj + -> Cairo.Surface -- surface + -> m () -- result imageSetFromSurface _obj surface = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let surface' = unsafeManagedPtrGetPtr surface @@ -1377,11 +1756,14 @@ touchManagedPtr surface return () +data ImageSetFromSurfaceMethodInfo +instance (signature ~ (Cairo.Surface -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetFromSurfaceMethodInfo a signature where + overloadedMethod _ = imageSetFromSurface + -- method Image::set_pixel_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixel_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1394,13 +1776,17 @@ imageSetPixelSize :: (MonadIO m, ImageK a) => - a -> -- _obj - Int32 -> -- pixel_size - m () -imageSetPixelSize _obj pixel_size = liftIO $ do + a -- _obj + -> Int32 -- pixelSize + -> m () -- result +imageSetPixelSize _obj pixelSize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_image_set_pixel_size _obj' pixel_size + gtk_image_set_pixel_size _obj' pixelSize touchManagedPtr _obj return () + +data ImageSetPixelSizeMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ImageK a) => MethodInfo ImageSetPixelSizeMethodInfo a signature where + overloadedMethod _ = imageSetPixelSize diff --git a/GI/Gtk/Objects/Image.hs-boot b/GI/Gtk/Objects/Image.hs-boot --- a/GI/Gtk/Objects/Image.hs-boot +++ b/GI/Gtk/Objects/Image.hs-boot @@ -24,3 +24,22 @@ data ImageStorageTypePropertyInfo data ImageSurfacePropertyInfo data ImageUseFallbackPropertyInfo +data ImageClearMethodInfo +data ImageGetAnimationMethodInfo +data ImageGetGiconMethodInfo +data ImageGetIconNameMethodInfo +data ImageGetIconSetMethodInfo +data ImageGetPixbufMethodInfo +data ImageGetPixelSizeMethodInfo +data ImageGetStockMethodInfo +data ImageGetStorageTypeMethodInfo +data ImageSetFromAnimationMethodInfo +data ImageSetFromFileMethodInfo +data ImageSetFromGiconMethodInfo +data ImageSetFromIconNameMethodInfo +data ImageSetFromIconSetMethodInfo +data ImageSetFromPixbufMethodInfo +data ImageSetFromResourceMethodInfo +data ImageSetFromStockMethodInfo +data ImageSetFromSurfaceMethodInfo +data ImageSetPixelSizeMethodInfo diff --git a/GI/Gtk/Objects/ImageAccessible.hs b/GI/Gtk/Objects/ImageAccessible.hs --- a/GI/Gtk/Objects/ImageAccessible.hs +++ b/GI/Gtk/Objects/ImageAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,83 @@ noImageAccessible :: Maybe ImageAccessible noImageAccessible = Nothing +type family ResolveImageAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveImageAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveImageAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveImageAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveImageAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveImageAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveImageAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveImageAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveImageAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveImageAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveImageAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveImageAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveImageAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveImageAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveImageAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveImageAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveImageAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveImageAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveImageAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveImageAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveImageAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveImageAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveImageAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveImageAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveImageAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveImageAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveImageAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveImageAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveImageAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveImageAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveImageAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveImageAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveImageAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveImageAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveImageAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveImageAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveImageAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveImageAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo + ResolveImageAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo + ResolveImageAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo + ResolveImageAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo + ResolveImageAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveImageAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveImageAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveImageAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveImageAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveImageAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveImageAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveImageAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveImageAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveImageAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveImageAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveImageAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveImageAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveImageAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveImageAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo + ResolveImageAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveImageAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveImageAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveImageAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveImageAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveImageAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveImageAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveImageAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveImageAccessibleMethod t ImageAccessible, MethodInfo info ImageAccessible p) => IsLabelProxy t (ImageAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveImageAccessibleMethod t ImageAccessible, MethodInfo info ImageAccessible p) => IsLabel t (ImageAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ImageAccessible = ImageAccessibleAttributeList -type ImageAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ImageAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ImageAccessible = ImageAccessibleSignalList -type ImageAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ImageAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/ImageCellAccessible.hs b/GI/Gtk/Objects/ImageCellAccessible.hs --- a/GI/Gtk/Objects/ImageCellAccessible.hs +++ b/GI/Gtk/Objects/ImageCellAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,84 @@ noImageCellAccessible :: Maybe ImageCellAccessible noImageCellAccessible = Nothing +type family ResolveImageCellAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveImageCellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveImageCellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveImageCellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveImageCellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveImageCellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveImageCellAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveImageCellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveImageCellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveImageCellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveImageCellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveImageCellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveImageCellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveImageCellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveImageCellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveImageCellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveImageCellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveImageCellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveImageCellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveImageCellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveImageCellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveImageCellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveImageCellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveImageCellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveImageCellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveImageCellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveImageCellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveImageCellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveImageCellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveImageCellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveImageCellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveImageCellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveImageCellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveImageCellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveImageCellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveImageCellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveImageCellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveImageCellAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo + ResolveImageCellAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo + ResolveImageCellAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo + ResolveImageCellAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo + ResolveImageCellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveImageCellAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveImageCellAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveImageCellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveImageCellAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveImageCellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveImageCellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveImageCellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveImageCellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveImageCellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveImageCellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveImageCellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveImageCellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveImageCellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveImageCellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveImageCellAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo + ResolveImageCellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveImageCellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveImageCellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveImageCellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveImageCellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveImageCellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveImageCellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveImageCellAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveImageCellAccessibleMethod t ImageCellAccessible, MethodInfo info ImageCellAccessible p) => IsLabelProxy t (ImageCellAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveImageCellAccessibleMethod t ImageCellAccessible, MethodInfo info ImageCellAccessible p) => IsLabel t (ImageCellAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ImageCellAccessible = ImageCellAccessibleAttributeList -type ImageCellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ImageCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ImageCellAccessible = ImageCellAccessibleSignalList -type ImageCellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ImageCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/ImageMenuItem.hs b/GI/Gtk/Objects/ImageMenuItem.hs --- a/GI/Gtk/Objects/ImageMenuItem.hs +++ b/GI/Gtk/Objects/ImageMenuItem.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** imageMenuItemGetAlwaysShowImage + ImageMenuItemGetAlwaysShowImageMethodInfo, imageMenuItemGetAlwaysShowImage , -- ** imageMenuItemGetImage + ImageMenuItemGetImageMethodInfo , imageMenuItemGetImage , -- ** imageMenuItemGetUseStock + ImageMenuItemGetUseStockMethodInfo , imageMenuItemGetUseStock , @@ -45,18 +49,22 @@ -- ** imageMenuItemSetAccelGroup + ImageMenuItemSetAccelGroupMethodInfo , imageMenuItemSetAccelGroup , -- ** imageMenuItemSetAlwaysShowImage + ImageMenuItemSetAlwaysShowImageMethodInfo, imageMenuItemSetAlwaysShowImage , -- ** imageMenuItemSetImage + ImageMenuItemSetImageMethodInfo , imageMenuItemSetImage , -- ** imageMenuItemSetUseStock + ImageMenuItemSetUseStockMethodInfo , imageMenuItemSetUseStock , @@ -127,6 +135,360 @@ noImageMenuItem :: Maybe ImageMenuItem noImageMenuItem = Nothing +type family ResolveImageMenuItemMethod (t :: Symbol) (o :: *) :: * where + ResolveImageMenuItemMethod "add" o = ContainerAddMethodInfo + ResolveImageMenuItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveImageMenuItemMethod "addChild" o = BuildableAddChildMethodInfo + ResolveImageMenuItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveImageMenuItemMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveImageMenuItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveImageMenuItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveImageMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveImageMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveImageMenuItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveImageMenuItemMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveImageMenuItemMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveImageMenuItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveImageMenuItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveImageMenuItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveImageMenuItemMethod "childType" o = ContainerChildTypeMethodInfo + ResolveImageMenuItemMethod "classPath" o = WidgetClassPathMethodInfo + ResolveImageMenuItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveImageMenuItemMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveImageMenuItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveImageMenuItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveImageMenuItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveImageMenuItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveImageMenuItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveImageMenuItemMethod "deselect" o = MenuItemDeselectMethodInfo + ResolveImageMenuItemMethod "destroy" o = WidgetDestroyMethodInfo + ResolveImageMenuItemMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveImageMenuItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveImageMenuItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveImageMenuItemMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveImageMenuItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveImageMenuItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveImageMenuItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveImageMenuItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveImageMenuItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveImageMenuItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveImageMenuItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveImageMenuItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveImageMenuItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveImageMenuItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveImageMenuItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveImageMenuItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveImageMenuItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveImageMenuItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveImageMenuItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveImageMenuItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveImageMenuItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveImageMenuItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveImageMenuItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveImageMenuItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveImageMenuItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveImageMenuItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveImageMenuItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveImageMenuItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveImageMenuItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveImageMenuItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveImageMenuItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveImageMenuItemMethod "draw" o = WidgetDrawMethodInfo + ResolveImageMenuItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveImageMenuItemMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveImageMenuItemMethod "event" o = WidgetEventMethodInfo + ResolveImageMenuItemMethod "forall" o = ContainerForallMethodInfo + ResolveImageMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveImageMenuItemMethod "foreach" o = ContainerForeachMethodInfo + ResolveImageMenuItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveImageMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveImageMenuItemMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveImageMenuItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveImageMenuItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveImageMenuItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveImageMenuItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveImageMenuItemMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveImageMenuItemMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveImageMenuItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveImageMenuItemMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveImageMenuItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveImageMenuItemMethod "hide" o = WidgetHideMethodInfo + ResolveImageMenuItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveImageMenuItemMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveImageMenuItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveImageMenuItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveImageMenuItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveImageMenuItemMethod "intersect" o = WidgetIntersectMethodInfo + ResolveImageMenuItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveImageMenuItemMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveImageMenuItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveImageMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveImageMenuItemMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveImageMenuItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveImageMenuItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveImageMenuItemMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveImageMenuItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveImageMenuItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveImageMenuItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveImageMenuItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveImageMenuItemMethod "map" o = WidgetMapMethodInfo + ResolveImageMenuItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveImageMenuItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveImageMenuItemMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveImageMenuItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveImageMenuItemMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveImageMenuItemMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveImageMenuItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveImageMenuItemMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveImageMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveImageMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveImageMenuItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveImageMenuItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveImageMenuItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveImageMenuItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveImageMenuItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveImageMenuItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveImageMenuItemMethod "path" o = WidgetPathMethodInfo + ResolveImageMenuItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveImageMenuItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveImageMenuItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveImageMenuItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveImageMenuItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveImageMenuItemMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveImageMenuItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveImageMenuItemMethod "realize" o = WidgetRealizeMethodInfo + ResolveImageMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveImageMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveImageMenuItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveImageMenuItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveImageMenuItemMethod "remove" o = ContainerRemoveMethodInfo + ResolveImageMenuItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveImageMenuItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveImageMenuItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveImageMenuItemMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveImageMenuItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveImageMenuItemMethod "reparent" o = WidgetReparentMethodInfo + ResolveImageMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveImageMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveImageMenuItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveImageMenuItemMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveImageMenuItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveImageMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveImageMenuItemMethod "select" o = MenuItemSelectMethodInfo + ResolveImageMenuItemMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveImageMenuItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveImageMenuItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveImageMenuItemMethod "show" o = WidgetShowMethodInfo + ResolveImageMenuItemMethod "showAll" o = WidgetShowAllMethodInfo + ResolveImageMenuItemMethod "showNow" o = WidgetShowNowMethodInfo + ResolveImageMenuItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveImageMenuItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveImageMenuItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveImageMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveImageMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveImageMenuItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveImageMenuItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveImageMenuItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveImageMenuItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveImageMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveImageMenuItemMethod "toggleSizeAllocate" o = MenuItemToggleSizeAllocateMethodInfo + ResolveImageMenuItemMethod "toggleSizeRequest" o = MenuItemToggleSizeRequestMethodInfo + ResolveImageMenuItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveImageMenuItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveImageMenuItemMethod "unmap" o = WidgetUnmapMethodInfo + ResolveImageMenuItemMethod "unparent" o = WidgetUnparentMethodInfo + ResolveImageMenuItemMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveImageMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveImageMenuItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveImageMenuItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveImageMenuItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveImageMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveImageMenuItemMethod "getAccelPath" o = MenuItemGetAccelPathMethodInfo + ResolveImageMenuItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveImageMenuItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveImageMenuItemMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveImageMenuItemMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveImageMenuItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveImageMenuItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveImageMenuItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveImageMenuItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveImageMenuItemMethod "getAlwaysShowImage" o = ImageMenuItemGetAlwaysShowImageMethodInfo + ResolveImageMenuItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveImageMenuItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveImageMenuItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveImageMenuItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveImageMenuItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveImageMenuItemMethod "getChild" o = BinGetChildMethodInfo + ResolveImageMenuItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveImageMenuItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveImageMenuItemMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveImageMenuItemMethod "getClip" o = WidgetGetClipMethodInfo + ResolveImageMenuItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveImageMenuItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveImageMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveImageMenuItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveImageMenuItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveImageMenuItemMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveImageMenuItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveImageMenuItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveImageMenuItemMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveImageMenuItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveImageMenuItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveImageMenuItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveImageMenuItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveImageMenuItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveImageMenuItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveImageMenuItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveImageMenuItemMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveImageMenuItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveImageMenuItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveImageMenuItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveImageMenuItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveImageMenuItemMethod "getImage" o = ImageMenuItemGetImageMethodInfo + ResolveImageMenuItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveImageMenuItemMethod "getLabel" o = MenuItemGetLabelMethodInfo + ResolveImageMenuItemMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveImageMenuItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveImageMenuItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveImageMenuItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveImageMenuItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveImageMenuItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveImageMenuItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveImageMenuItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveImageMenuItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveImageMenuItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveImageMenuItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveImageMenuItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveImageMenuItemMethod "getParent" o = WidgetGetParentMethodInfo + ResolveImageMenuItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveImageMenuItemMethod "getPath" o = WidgetGetPathMethodInfo + ResolveImageMenuItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveImageMenuItemMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveImageMenuItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveImageMenuItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveImageMenuItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveImageMenuItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveImageMenuItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveImageMenuItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveImageMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveImageMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveImageMenuItemMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveImageMenuItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveImageMenuItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveImageMenuItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveImageMenuItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveImageMenuItemMethod "getReserveIndicator" o = MenuItemGetReserveIndicatorMethodInfo + ResolveImageMenuItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveImageMenuItemMethod "getRightJustified" o = MenuItemGetRightJustifiedMethodInfo + ResolveImageMenuItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveImageMenuItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveImageMenuItemMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveImageMenuItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveImageMenuItemMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveImageMenuItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveImageMenuItemMethod "getState" o = WidgetGetStateMethodInfo + ResolveImageMenuItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveImageMenuItemMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveImageMenuItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveImageMenuItemMethod "getSubmenu" o = MenuItemGetSubmenuMethodInfo + ResolveImageMenuItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveImageMenuItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveImageMenuItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveImageMenuItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveImageMenuItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveImageMenuItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveImageMenuItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveImageMenuItemMethod "getUseStock" o = ImageMenuItemGetUseStockMethodInfo + ResolveImageMenuItemMethod "getUseUnderline" o = MenuItemGetUseUnderlineMethodInfo + ResolveImageMenuItemMethod "getValign" o = WidgetGetValignMethodInfo + ResolveImageMenuItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveImageMenuItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveImageMenuItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveImageMenuItemMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveImageMenuItemMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveImageMenuItemMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveImageMenuItemMethod "setAccelGroup" o = ImageMenuItemSetAccelGroupMethodInfo + ResolveImageMenuItemMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveImageMenuItemMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveImageMenuItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveImageMenuItemMethod "setAlwaysShowImage" o = ImageMenuItemSetAlwaysShowImageMethodInfo + ResolveImageMenuItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveImageMenuItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveImageMenuItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveImageMenuItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveImageMenuItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveImageMenuItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveImageMenuItemMethod "setClip" o = WidgetSetClipMethodInfo + ResolveImageMenuItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveImageMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveImageMenuItemMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveImageMenuItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveImageMenuItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveImageMenuItemMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveImageMenuItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveImageMenuItemMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveImageMenuItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveImageMenuItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveImageMenuItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveImageMenuItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveImageMenuItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveImageMenuItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveImageMenuItemMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveImageMenuItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveImageMenuItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveImageMenuItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveImageMenuItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveImageMenuItemMethod "setImage" o = ImageMenuItemSetImageMethodInfo + ResolveImageMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo + ResolveImageMenuItemMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveImageMenuItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveImageMenuItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveImageMenuItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveImageMenuItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveImageMenuItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveImageMenuItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveImageMenuItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveImageMenuItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveImageMenuItemMethod "setParent" o = WidgetSetParentMethodInfo + ResolveImageMenuItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveImageMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveImageMenuItemMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveImageMenuItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveImageMenuItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveImageMenuItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveImageMenuItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveImageMenuItemMethod "setReserveIndicator" o = MenuItemSetReserveIndicatorMethodInfo + ResolveImageMenuItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveImageMenuItemMethod "setRightJustified" o = MenuItemSetRightJustifiedMethodInfo + ResolveImageMenuItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveImageMenuItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveImageMenuItemMethod "setState" o = WidgetSetStateMethodInfo + ResolveImageMenuItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveImageMenuItemMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveImageMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo + ResolveImageMenuItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveImageMenuItemMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveImageMenuItemMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveImageMenuItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveImageMenuItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveImageMenuItemMethod "setUseStock" o = ImageMenuItemSetUseStockMethodInfo + ResolveImageMenuItemMethod "setUseUnderline" o = MenuItemSetUseUnderlineMethodInfo + ResolveImageMenuItemMethod "setValign" o = WidgetSetValignMethodInfo + ResolveImageMenuItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveImageMenuItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveImageMenuItemMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveImageMenuItemMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveImageMenuItemMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveImageMenuItemMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveImageMenuItemMethod t ImageMenuItem, MethodInfo info ImageMenuItem p) => IsLabelProxy t (ImageMenuItem -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveImageMenuItemMethod t ImageMenuItem, MethodInfo info ImageMenuItem p) => IsLabel t (ImageMenuItem -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "accel-group" -- Type: TInterface "Gtk" "AccelGroup" -- Flags: [PropertyWritable] @@ -143,7 +505,7 @@ type AttrSetTypeConstraint ImageMenuItemAccelGroupPropertyInfo = AccelGroupK type AttrBaseTypeConstraint ImageMenuItemAccelGroupPropertyInfo = ImageMenuItemK type AttrGetType ImageMenuItemAccelGroupPropertyInfo = () - type AttrLabel ImageMenuItemAccelGroupPropertyInfo = "ImageMenuItem::accel-group" + type AttrLabel ImageMenuItemAccelGroupPropertyInfo = "accel-group" attrGet _ = undefined attrSet _ = setImageMenuItemAccelGroup attrConstruct _ = constructImageMenuItemAccelGroup @@ -167,7 +529,7 @@ type AttrSetTypeConstraint ImageMenuItemAlwaysShowImagePropertyInfo = (~) Bool type AttrBaseTypeConstraint ImageMenuItemAlwaysShowImagePropertyInfo = ImageMenuItemK type AttrGetType ImageMenuItemAlwaysShowImagePropertyInfo = Bool - type AttrLabel ImageMenuItemAlwaysShowImagePropertyInfo = "ImageMenuItem::always-show-image" + type AttrLabel ImageMenuItemAlwaysShowImagePropertyInfo = "always-show-image" attrGet _ = getImageMenuItemAlwaysShowImage attrSet _ = setImageMenuItemAlwaysShowImage attrConstruct _ = constructImageMenuItemAlwaysShowImage @@ -191,7 +553,7 @@ type AttrSetTypeConstraint ImageMenuItemImagePropertyInfo = WidgetK type AttrBaseTypeConstraint ImageMenuItemImagePropertyInfo = ImageMenuItemK type AttrGetType ImageMenuItemImagePropertyInfo = Widget - type AttrLabel ImageMenuItemImagePropertyInfo = "ImageMenuItem::image" + type AttrLabel ImageMenuItemImagePropertyInfo = "image" attrGet _ = getImageMenuItemImage attrSet _ = setImageMenuItemImage attrConstruct _ = constructImageMenuItemImage @@ -215,22 +577,21 @@ type AttrSetTypeConstraint ImageMenuItemUseStockPropertyInfo = (~) Bool type AttrBaseTypeConstraint ImageMenuItemUseStockPropertyInfo = ImageMenuItemK type AttrGetType ImageMenuItemUseStockPropertyInfo = Bool - type AttrLabel ImageMenuItemUseStockPropertyInfo = "ImageMenuItem::use-stock" + type AttrLabel ImageMenuItemUseStockPropertyInfo = "use-stock" attrGet _ = getImageMenuItemUseStock attrSet _ = setImageMenuItemUseStock attrConstruct _ = constructImageMenuItemUseStock type instance AttributeList ImageMenuItem = ImageMenuItemAttributeList -type ImageMenuItemAttributeList = ('[ '("accel-group", ImageMenuItemAccelGroupPropertyInfo), '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ImageMenuItemAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ImageMenuItemImagePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ImageMenuItemUseStockPropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ImageMenuItemAttributeList = ('[ '("accelGroup", ImageMenuItemAccelGroupPropertyInfo), '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ImageMenuItemAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ImageMenuItemImagePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ImageMenuItemUseStockPropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ImageMenuItem = ImageMenuItemSignalList -type ImageMenuItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ImageMenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ImageMenuItem::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ImageMenuItem" -- throws : False -- Skip return : False @@ -241,7 +602,7 @@ {-# DEPRECATED imageMenuItemNew ["(Since version 3.10)","Use gtk_menu_item_new() instead."]#-} imageMenuItemNew :: (MonadIO m) => - m ImageMenuItem + m ImageMenuItem -- result imageMenuItemNew = liftIO $ do result <- gtk_image_menu_item_new checkUnexpectedReturnNULL "gtk_image_menu_item_new" result @@ -250,9 +611,8 @@ -- method ImageMenuItem::new_from_stock -- method type : Constructor --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ImageMenuItem" -- throws : False -- Skip return : False @@ -265,28 +625,27 @@ {-# DEPRECATED imageMenuItemNewFromStock ["(Since version 3.10)","Use gtk_menu_item_new_with_mnemonic() instead."]#-} imageMenuItemNewFromStock :: (MonadIO m, AccelGroupK a) => - T.Text -> -- stock_id - Maybe (a) -> -- accel_group - m ImageMenuItem -imageMenuItemNewFromStock stock_id accel_group = liftIO $ do - stock_id' <- textToCString stock_id - maybeAccel_group <- case accel_group of + T.Text -- stockId + -> Maybe (a) -- accelGroup + -> m ImageMenuItem -- result +imageMenuItemNewFromStock stockId accelGroup = liftIO $ do + stockId' <- textToCString stockId + maybeAccelGroup <- case accelGroup of Nothing -> return nullPtr - Just jAccel_group -> do - let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group - return jAccel_group' - result <- gtk_image_menu_item_new_from_stock stock_id' maybeAccel_group + Just jAccelGroup -> do + let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup + return jAccelGroup' + result <- gtk_image_menu_item_new_from_stock stockId' maybeAccelGroup checkUnexpectedReturnNULL "gtk_image_menu_item_new_from_stock" result result' <- (newObject ImageMenuItem) result - whenJust accel_group touchManagedPtr - freeMem stock_id' + whenJust accelGroup touchManagedPtr + freeMem stockId' return result' -- method ImageMenuItem::new_with_label -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ImageMenuItem" -- throws : False -- Skip return : False @@ -298,8 +657,8 @@ {-# DEPRECATED imageMenuItemNewWithLabel ["(Since version 3.10)","Use gtk_menu_item_new_with_label() instead."]#-} imageMenuItemNewWithLabel :: (MonadIO m) => - T.Text -> -- label - m ImageMenuItem + T.Text -- label + -> m ImageMenuItem -- result imageMenuItemNewWithLabel label = liftIO $ do label' <- textToCString label result <- gtk_image_menu_item_new_with_label label' @@ -310,9 +669,8 @@ -- method ImageMenuItem::new_with_mnemonic -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ImageMenuItem" -- throws : False -- Skip return : False @@ -324,8 +682,8 @@ {-# DEPRECATED imageMenuItemNewWithMnemonic ["(Since version 3.10)","Use gtk_menu_item_new_with_mnemonic() instead."]#-} imageMenuItemNewWithMnemonic :: (MonadIO m) => - T.Text -> -- label - m ImageMenuItem + T.Text -- label + -> m ImageMenuItem -- result imageMenuItemNewWithMnemonic label = liftIO $ do label' <- textToCString label result <- gtk_image_menu_item_new_with_mnemonic label' @@ -336,9 +694,8 @@ -- method ImageMenuItem::get_always_show_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -350,8 +707,8 @@ {-# DEPRECATED imageMenuItemGetAlwaysShowImage ["(Since version 3.10)"]#-} imageMenuItemGetAlwaysShowImage :: (MonadIO m, ImageMenuItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result imageMenuItemGetAlwaysShowImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_image_menu_item_get_always_show_image _obj' @@ -359,11 +716,14 @@ touchManagedPtr _obj return result' +data ImageMenuItemGetAlwaysShowImageMethodInfo +instance (signature ~ (m Bool), MonadIO m, ImageMenuItemK a) => MethodInfo ImageMenuItemGetAlwaysShowImageMethodInfo a signature where + overloadedMethod _ = imageMenuItemGetAlwaysShowImage + -- method ImageMenuItem::get_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -375,8 +735,8 @@ {-# DEPRECATED imageMenuItemGetImage ["(Since version 3.10)"]#-} imageMenuItemGetImage :: (MonadIO m, ImageMenuItemK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result imageMenuItemGetImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_image_menu_item_get_image _obj' @@ -385,11 +745,14 @@ touchManagedPtr _obj return result' +data ImageMenuItemGetImageMethodInfo +instance (signature ~ (m Widget), MonadIO m, ImageMenuItemK a) => MethodInfo ImageMenuItemGetImageMethodInfo a signature where + overloadedMethod _ = imageMenuItemGetImage + -- method ImageMenuItem::get_use_stock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -401,8 +764,8 @@ {-# DEPRECATED imageMenuItemGetUseStock ["(Since version 3.10)"]#-} imageMenuItemGetUseStock :: (MonadIO m, ImageMenuItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result imageMenuItemGetUseStock _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_image_menu_item_get_use_stock _obj' @@ -410,11 +773,14 @@ touchManagedPtr _obj return result' +data ImageMenuItemGetUseStockMethodInfo +instance (signature ~ (m Bool), MonadIO m, ImageMenuItemK a) => MethodInfo ImageMenuItemGetUseStockMethodInfo a signature where + overloadedMethod _ = imageMenuItemGetUseStock + -- method ImageMenuItem::set_accel_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -427,22 +793,25 @@ {-# DEPRECATED imageMenuItemSetAccelGroup ["(Since version 3.10)"]#-} imageMenuItemSetAccelGroup :: (MonadIO m, ImageMenuItemK a, AccelGroupK b) => - a -> -- _obj - b -> -- accel_group - m () -imageMenuItemSetAccelGroup _obj accel_group = liftIO $ do + a -- _obj + -> b -- accelGroup + -> m () -- result +imageMenuItemSetAccelGroup _obj accelGroup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let accel_group' = unsafeManagedPtrCastPtr accel_group - gtk_image_menu_item_set_accel_group _obj' accel_group' + let accelGroup' = unsafeManagedPtrCastPtr accelGroup + gtk_image_menu_item_set_accel_group _obj' accelGroup' touchManagedPtr _obj - touchManagedPtr accel_group + touchManagedPtr accelGroup return () +data ImageMenuItemSetAccelGroupMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ImageMenuItemK a, AccelGroupK b) => MethodInfo ImageMenuItemSetAccelGroupMethodInfo a signature where + overloadedMethod _ = imageMenuItemSetAccelGroup + -- method ImageMenuItem::set_always_show_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -455,21 +824,24 @@ {-# DEPRECATED imageMenuItemSetAlwaysShowImage ["(Since version 3.10)"]#-} imageMenuItemSetAlwaysShowImage :: (MonadIO m, ImageMenuItemK a) => - a -> -- _obj - Bool -> -- always_show - m () -imageMenuItemSetAlwaysShowImage _obj always_show = liftIO $ do + a -- _obj + -> Bool -- alwaysShow + -> m () -- result +imageMenuItemSetAlwaysShowImage _obj alwaysShow = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let always_show' = (fromIntegral . fromEnum) always_show - gtk_image_menu_item_set_always_show_image _obj' always_show' + let alwaysShow' = (fromIntegral . fromEnum) alwaysShow + gtk_image_menu_item_set_always_show_image _obj' alwaysShow' touchManagedPtr _obj return () +data ImageMenuItemSetAlwaysShowImageMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ImageMenuItemK a) => MethodInfo ImageMenuItemSetAlwaysShowImageMethodInfo a signature where + overloadedMethod _ = imageMenuItemSetAlwaysShowImage + -- method ImageMenuItem::set_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -482,9 +854,9 @@ {-# DEPRECATED imageMenuItemSetImage ["(Since version 3.10)"]#-} imageMenuItemSetImage :: (MonadIO m, ImageMenuItemK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- image - m () + a -- _obj + -> Maybe (b) -- image + -> m () -- result imageMenuItemSetImage _obj image = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeImage <- case image of @@ -497,11 +869,14 @@ whenJust image touchManagedPtr return () +data ImageMenuItemSetImageMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ImageMenuItemK a, WidgetK b) => MethodInfo ImageMenuItemSetImageMethodInfo a signature where + overloadedMethod _ = imageMenuItemSetImage + -- method ImageMenuItem::set_use_stock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -514,14 +889,18 @@ {-# DEPRECATED imageMenuItemSetUseStock ["(Since version 3.10)"]#-} imageMenuItemSetUseStock :: (MonadIO m, ImageMenuItemK a) => - a -> -- _obj - Bool -> -- use_stock - m () -imageMenuItemSetUseStock _obj use_stock = liftIO $ do + a -- _obj + -> Bool -- useStock + -> m () -- result +imageMenuItemSetUseStock _obj useStock = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_stock' = (fromIntegral . fromEnum) use_stock - gtk_image_menu_item_set_use_stock _obj' use_stock' + let useStock' = (fromIntegral . fromEnum) useStock + gtk_image_menu_item_set_use_stock _obj' useStock' touchManagedPtr _obj return () + +data ImageMenuItemSetUseStockMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ImageMenuItemK a) => MethodInfo ImageMenuItemSetUseStockMethodInfo a signature where + overloadedMethod _ = imageMenuItemSetUseStock diff --git a/GI/Gtk/Objects/ImageMenuItem.hs-boot b/GI/Gtk/Objects/ImageMenuItem.hs-boot --- a/GI/Gtk/Objects/ImageMenuItem.hs-boot +++ b/GI/Gtk/Objects/ImageMenuItem.hs-boot @@ -15,3 +15,10 @@ data ImageMenuItemAlwaysShowImagePropertyInfo data ImageMenuItemImagePropertyInfo data ImageMenuItemUseStockPropertyInfo +data ImageMenuItemGetAlwaysShowImageMethodInfo +data ImageMenuItemGetImageMethodInfo +data ImageMenuItemGetUseStockMethodInfo +data ImageMenuItemSetAccelGroupMethodInfo +data ImageMenuItemSetAlwaysShowImageMethodInfo +data ImageMenuItemSetImageMethodInfo +data ImageMenuItemSetUseStockMethodInfo diff --git a/GI/Gtk/Objects/InfoBar.hs b/GI/Gtk/Objects/InfoBar.hs --- a/GI/Gtk/Objects/InfoBar.hs +++ b/GI/Gtk/Objects/InfoBar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** infoBarAddActionWidget + InfoBarAddActionWidgetMethodInfo , infoBarAddActionWidget , -- ** infoBarAddButton + InfoBarAddButtonMethodInfo , infoBarAddButton , -- ** infoBarGetActionArea + InfoBarGetActionAreaMethodInfo , infoBarGetActionArea , -- ** infoBarGetContentArea + InfoBarGetContentAreaMethodInfo , infoBarGetContentArea , -- ** infoBarGetMessageType + InfoBarGetMessageTypeMethodInfo , infoBarGetMessageType , -- ** infoBarGetShowCloseButton + InfoBarGetShowCloseButtonMethodInfo , infoBarGetShowCloseButton , @@ -45,22 +52,27 @@ -- ** infoBarResponse + InfoBarResponseMethodInfo , infoBarResponse , -- ** infoBarSetDefaultResponse + InfoBarSetDefaultResponseMethodInfo , infoBarSetDefaultResponse , -- ** infoBarSetMessageType + InfoBarSetMessageTypeMethodInfo , infoBarSetMessageType , -- ** infoBarSetResponseSensitive + InfoBarSetResponseSensitiveMethodInfo , infoBarSetResponseSensitive , -- ** infoBarSetShowCloseButton + InfoBarSetShowCloseButtonMethodInfo , infoBarSetShowCloseButton , @@ -145,6 +157,354 @@ noInfoBar :: Maybe InfoBar noInfoBar = Nothing +type family ResolveInfoBarMethod (t :: Symbol) (o :: *) :: * where + ResolveInfoBarMethod "activate" o = WidgetActivateMethodInfo + ResolveInfoBarMethod "add" o = ContainerAddMethodInfo + ResolveInfoBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveInfoBarMethod "addActionWidget" o = InfoBarAddActionWidgetMethodInfo + ResolveInfoBarMethod "addButton" o = InfoBarAddButtonMethodInfo + ResolveInfoBarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveInfoBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveInfoBarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveInfoBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveInfoBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveInfoBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveInfoBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveInfoBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveInfoBarMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveInfoBarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveInfoBarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveInfoBarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveInfoBarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveInfoBarMethod "childType" o = ContainerChildTypeMethodInfo + ResolveInfoBarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveInfoBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveInfoBarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveInfoBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveInfoBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveInfoBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveInfoBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveInfoBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveInfoBarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveInfoBarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveInfoBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveInfoBarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveInfoBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveInfoBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveInfoBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveInfoBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveInfoBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveInfoBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveInfoBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveInfoBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveInfoBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveInfoBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveInfoBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveInfoBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveInfoBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveInfoBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveInfoBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveInfoBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveInfoBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveInfoBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveInfoBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveInfoBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveInfoBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveInfoBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveInfoBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveInfoBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveInfoBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveInfoBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveInfoBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveInfoBarMethod "draw" o = WidgetDrawMethodInfo + ResolveInfoBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveInfoBarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveInfoBarMethod "event" o = WidgetEventMethodInfo + ResolveInfoBarMethod "forall" o = ContainerForallMethodInfo + ResolveInfoBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveInfoBarMethod "foreach" o = ContainerForeachMethodInfo + ResolveInfoBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveInfoBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveInfoBarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveInfoBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveInfoBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveInfoBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveInfoBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveInfoBarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveInfoBarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveInfoBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveInfoBarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveInfoBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveInfoBarMethod "hide" o = WidgetHideMethodInfo + ResolveInfoBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveInfoBarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveInfoBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveInfoBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveInfoBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveInfoBarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveInfoBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveInfoBarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveInfoBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveInfoBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveInfoBarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveInfoBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveInfoBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveInfoBarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveInfoBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveInfoBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveInfoBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveInfoBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveInfoBarMethod "map" o = WidgetMapMethodInfo + ResolveInfoBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveInfoBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveInfoBarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveInfoBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveInfoBarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveInfoBarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveInfoBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveInfoBarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveInfoBarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveInfoBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveInfoBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveInfoBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveInfoBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveInfoBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveInfoBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveInfoBarMethod "packEnd" o = BoxPackEndMethodInfo + ResolveInfoBarMethod "packStart" o = BoxPackStartMethodInfo + ResolveInfoBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveInfoBarMethod "path" o = WidgetPathMethodInfo + ResolveInfoBarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveInfoBarMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveInfoBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveInfoBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveInfoBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveInfoBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveInfoBarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveInfoBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveInfoBarMethod "realize" o = WidgetRealizeMethodInfo + ResolveInfoBarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveInfoBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveInfoBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveInfoBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveInfoBarMethod "remove" o = ContainerRemoveMethodInfo + ResolveInfoBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveInfoBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveInfoBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveInfoBarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveInfoBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveInfoBarMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveInfoBarMethod "reparent" o = WidgetReparentMethodInfo + ResolveInfoBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveInfoBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveInfoBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveInfoBarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveInfoBarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveInfoBarMethod "response" o = InfoBarResponseMethodInfo + ResolveInfoBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveInfoBarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveInfoBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveInfoBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveInfoBarMethod "show" o = WidgetShowMethodInfo + ResolveInfoBarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveInfoBarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveInfoBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveInfoBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveInfoBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveInfoBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveInfoBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveInfoBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveInfoBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveInfoBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveInfoBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveInfoBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveInfoBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveInfoBarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveInfoBarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveInfoBarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveInfoBarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveInfoBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveInfoBarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveInfoBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveInfoBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveInfoBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveInfoBarMethod "getActionArea" o = InfoBarGetActionAreaMethodInfo + ResolveInfoBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveInfoBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveInfoBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveInfoBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveInfoBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveInfoBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveInfoBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveInfoBarMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveInfoBarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveInfoBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveInfoBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveInfoBarMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveInfoBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveInfoBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveInfoBarMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveInfoBarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveInfoBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveInfoBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveInfoBarMethod "getContentArea" o = InfoBarGetContentAreaMethodInfo + ResolveInfoBarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveInfoBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveInfoBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveInfoBarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveInfoBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveInfoBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveInfoBarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveInfoBarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveInfoBarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveInfoBarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveInfoBarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveInfoBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveInfoBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveInfoBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveInfoBarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveInfoBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveInfoBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveInfoBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveInfoBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveInfoBarMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveInfoBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveInfoBarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveInfoBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveInfoBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveInfoBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveInfoBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveInfoBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveInfoBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveInfoBarMethod "getMessageType" o = InfoBarGetMessageTypeMethodInfo + ResolveInfoBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveInfoBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveInfoBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveInfoBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveInfoBarMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveInfoBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveInfoBarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveInfoBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveInfoBarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveInfoBarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveInfoBarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveInfoBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveInfoBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveInfoBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveInfoBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveInfoBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveInfoBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveInfoBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveInfoBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveInfoBarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveInfoBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveInfoBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveInfoBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveInfoBarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveInfoBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveInfoBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveInfoBarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveInfoBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveInfoBarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveInfoBarMethod "getShowCloseButton" o = InfoBarGetShowCloseButtonMethodInfo + ResolveInfoBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveInfoBarMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveInfoBarMethod "getState" o = WidgetGetStateMethodInfo + ResolveInfoBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveInfoBarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveInfoBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveInfoBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveInfoBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveInfoBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveInfoBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveInfoBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveInfoBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveInfoBarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveInfoBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveInfoBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveInfoBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveInfoBarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveInfoBarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveInfoBarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveInfoBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveInfoBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveInfoBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveInfoBarMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveInfoBarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveInfoBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveInfoBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveInfoBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveInfoBarMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveInfoBarMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveInfoBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveInfoBarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveInfoBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveInfoBarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveInfoBarMethod "setDefaultResponse" o = InfoBarSetDefaultResponseMethodInfo + ResolveInfoBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveInfoBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveInfoBarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveInfoBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveInfoBarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveInfoBarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveInfoBarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveInfoBarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveInfoBarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveInfoBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveInfoBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveInfoBarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveInfoBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveInfoBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveInfoBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveInfoBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveInfoBarMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveInfoBarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveInfoBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveInfoBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveInfoBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveInfoBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveInfoBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveInfoBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveInfoBarMethod "setMessageType" o = InfoBarSetMessageTypeMethodInfo + ResolveInfoBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveInfoBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveInfoBarMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveInfoBarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveInfoBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveInfoBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveInfoBarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveInfoBarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveInfoBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveInfoBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveInfoBarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveInfoBarMethod "setResponseSensitive" o = InfoBarSetResponseSensitiveMethodInfo + ResolveInfoBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveInfoBarMethod "setShowCloseButton" o = InfoBarSetShowCloseButtonMethodInfo + ResolveInfoBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveInfoBarMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveInfoBarMethod "setState" o = WidgetSetStateMethodInfo + ResolveInfoBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveInfoBarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveInfoBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveInfoBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveInfoBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveInfoBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveInfoBarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveInfoBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveInfoBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveInfoBarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveInfoBarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveInfoBarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveInfoBarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveInfoBarMethod t InfoBar, MethodInfo info InfoBar p) => IsLabelProxy t (InfoBar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveInfoBarMethod t InfoBar, MethodInfo info InfoBar p) => IsLabel t (InfoBar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal InfoBar::close type InfoBarCloseCallback = IO () @@ -210,8 +570,8 @@ Int32 -> Ptr () -> IO () -infoBarResponseCallbackWrapper _cb _ response_id _ = do - _cb response_id +infoBarResponseCallbackWrapper _cb _ responseId _ = do + _cb responseId onInfoBarResponse :: (GObject a, MonadIO m) => a -> InfoBarResponseCallback -> m SignalHandlerId onInfoBarResponse obj cb = liftIO $ connectInfoBarResponse obj cb SignalConnectBefore @@ -243,7 +603,7 @@ type AttrSetTypeConstraint InfoBarMessageTypePropertyInfo = (~) MessageType type AttrBaseTypeConstraint InfoBarMessageTypePropertyInfo = InfoBarK type AttrGetType InfoBarMessageTypePropertyInfo = MessageType - type AttrLabel InfoBarMessageTypePropertyInfo = "InfoBar::message-type" + type AttrLabel InfoBarMessageTypePropertyInfo = "message-type" attrGet _ = getInfoBarMessageType attrSet _ = setInfoBarMessageType attrConstruct _ = constructInfoBarMessageType @@ -267,13 +627,13 @@ type AttrSetTypeConstraint InfoBarShowCloseButtonPropertyInfo = (~) Bool type AttrBaseTypeConstraint InfoBarShowCloseButtonPropertyInfo = InfoBarK type AttrGetType InfoBarShowCloseButtonPropertyInfo = Bool - type AttrLabel InfoBarShowCloseButtonPropertyInfo = "InfoBar::show-close-button" + type AttrLabel InfoBarShowCloseButtonPropertyInfo = "show-close-button" attrGet _ = getInfoBarShowCloseButton attrSet _ = setInfoBarShowCloseButton attrConstruct _ = constructInfoBarShowCloseButton type instance AttributeList InfoBar = InfoBarAttributeList -type InfoBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("message-type", InfoBarMessageTypePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-close-button", InfoBarShowCloseButtonPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type InfoBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("messageType", InfoBarMessageTypePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showCloseButton", InfoBarShowCloseButtonPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data InfoBarCloseSignalInfo instance SignalInfo InfoBarCloseSignalInfo where @@ -286,13 +646,12 @@ connectSignal _ = connectInfoBarResponse type instance SignalList InfoBar = InfoBarSignalList -type InfoBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", InfoBarCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", InfoBarResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type InfoBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", InfoBarCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", InfoBarResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method InfoBar::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "InfoBar" -- throws : False -- Skip return : False @@ -303,7 +662,7 @@ infoBarNew :: (MonadIO m) => - m InfoBar + m InfoBar -- result infoBarNew = liftIO $ do result <- gtk_info_bar_new checkUnexpectedReturnNULL "gtk_info_bar_new" result @@ -312,9 +671,8 @@ -- method InfoBar::add_action_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -328,23 +686,26 @@ infoBarAddActionWidget :: (MonadIO m, InfoBarK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- response_id - m () -infoBarAddActionWidget _obj child response_id = liftIO $ do + a -- _obj + -> b -- child + -> Int32 -- responseId + -> m () -- result +infoBarAddActionWidget _obj child responseId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child - gtk_info_bar_add_action_widget _obj' child' response_id + gtk_info_bar_add_action_widget _obj' child' responseId touchManagedPtr _obj touchManagedPtr child return () +data InfoBarAddActionWidgetMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, InfoBarK a, WidgetK b) => MethodInfo InfoBarAddActionWidgetMethodInfo a signature where + overloadedMethod _ = infoBarAddActionWidget + -- method InfoBar::add_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Button" -- throws : False -- Skip return : False @@ -358,25 +719,28 @@ infoBarAddButton :: (MonadIO m, InfoBarK a) => - a -> -- _obj - T.Text -> -- button_text - Int32 -> -- response_id - m Button -infoBarAddButton _obj button_text response_id = liftIO $ do + a -- _obj + -> T.Text -- buttonText + -> Int32 -- responseId + -> m Button -- result +infoBarAddButton _obj buttonText responseId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - button_text' <- textToCString button_text - result <- gtk_info_bar_add_button _obj' button_text' response_id + buttonText' <- textToCString buttonText + result <- gtk_info_bar_add_button _obj' buttonText' responseId checkUnexpectedReturnNULL "gtk_info_bar_add_button" result result' <- (newObject Button) result touchManagedPtr _obj - freeMem button_text' + freeMem buttonText' return result' +data InfoBarAddButtonMethodInfo +instance (signature ~ (T.Text -> Int32 -> m Button), MonadIO m, InfoBarK a) => MethodInfo InfoBarAddButtonMethodInfo a signature where + overloadedMethod _ = infoBarAddButton + -- method InfoBar::get_action_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -388,8 +752,8 @@ infoBarGetActionArea :: (MonadIO m, InfoBarK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result infoBarGetActionArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_info_bar_get_action_area _obj' @@ -398,11 +762,14 @@ touchManagedPtr _obj return result' +data InfoBarGetActionAreaMethodInfo +instance (signature ~ (m Widget), MonadIO m, InfoBarK a) => MethodInfo InfoBarGetActionAreaMethodInfo a signature where + overloadedMethod _ = infoBarGetActionArea + -- method InfoBar::get_content_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -414,8 +781,8 @@ infoBarGetContentArea :: (MonadIO m, InfoBarK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result infoBarGetContentArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_info_bar_get_content_area _obj' @@ -424,11 +791,14 @@ touchManagedPtr _obj return result' +data InfoBarGetContentAreaMethodInfo +instance (signature ~ (m Widget), MonadIO m, InfoBarK a) => MethodInfo InfoBarGetContentAreaMethodInfo a signature where + overloadedMethod _ = infoBarGetContentArea + -- method InfoBar::get_message_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "MessageType" -- throws : False -- Skip return : False @@ -440,8 +810,8 @@ infoBarGetMessageType :: (MonadIO m, InfoBarK a) => - a -> -- _obj - m MessageType + a -- _obj + -> m MessageType -- result infoBarGetMessageType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_info_bar_get_message_type _obj' @@ -449,11 +819,14 @@ touchManagedPtr _obj return result' +data InfoBarGetMessageTypeMethodInfo +instance (signature ~ (m MessageType), MonadIO m, InfoBarK a) => MethodInfo InfoBarGetMessageTypeMethodInfo a signature where + overloadedMethod _ = infoBarGetMessageType + -- method InfoBar::get_show_close_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -465,8 +838,8 @@ infoBarGetShowCloseButton :: (MonadIO m, InfoBarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result infoBarGetShowCloseButton _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_info_bar_get_show_close_button _obj' @@ -474,11 +847,14 @@ touchManagedPtr _obj return result' +data InfoBarGetShowCloseButtonMethodInfo +instance (signature ~ (m Bool), MonadIO m, InfoBarK a) => MethodInfo InfoBarGetShowCloseButtonMethodInfo a signature where + overloadedMethod _ = infoBarGetShowCloseButton + -- method InfoBar::response -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -491,20 +867,23 @@ infoBarResponse :: (MonadIO m, InfoBarK a) => - a -> -- _obj - Int32 -> -- response_id - m () -infoBarResponse _obj response_id = liftIO $ do + a -- _obj + -> Int32 -- responseId + -> m () -- result +infoBarResponse _obj responseId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_info_bar_response _obj' response_id + gtk_info_bar_response _obj' responseId touchManagedPtr _obj return () +data InfoBarResponseMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, InfoBarK a) => MethodInfo InfoBarResponseMethodInfo a signature where + overloadedMethod _ = infoBarResponse + -- method InfoBar::set_default_response -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -517,20 +896,23 @@ infoBarSetDefaultResponse :: (MonadIO m, InfoBarK a) => - a -> -- _obj - Int32 -> -- response_id - m () -infoBarSetDefaultResponse _obj response_id = liftIO $ do + a -- _obj + -> Int32 -- responseId + -> m () -- result +infoBarSetDefaultResponse _obj responseId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_info_bar_set_default_response _obj' response_id + gtk_info_bar_set_default_response _obj' responseId touchManagedPtr _obj return () +data InfoBarSetDefaultResponseMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, InfoBarK a) => MethodInfo InfoBarSetDefaultResponseMethodInfo a signature where + overloadedMethod _ = infoBarSetDefaultResponse + -- method InfoBar::set_message_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message_type", argType = TInterface "Gtk" "MessageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message_type", argType = TInterface "Gtk" "MessageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message_type", argType = TInterface "Gtk" "MessageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -543,21 +925,24 @@ infoBarSetMessageType :: (MonadIO m, InfoBarK a) => - a -> -- _obj - MessageType -> -- message_type - m () -infoBarSetMessageType _obj message_type = liftIO $ do + a -- _obj + -> MessageType -- messageType + -> m () -- result +infoBarSetMessageType _obj messageType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let message_type' = (fromIntegral . fromEnum) message_type - gtk_info_bar_set_message_type _obj' message_type' + let messageType' = (fromIntegral . fromEnum) messageType + gtk_info_bar_set_message_type _obj' messageType' touchManagedPtr _obj return () +data InfoBarSetMessageTypeMethodInfo +instance (signature ~ (MessageType -> m ()), MonadIO m, InfoBarK a) => MethodInfo InfoBarSetMessageTypeMethodInfo a signature where + overloadedMethod _ = infoBarSetMessageType + -- method InfoBar::set_response_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -571,22 +956,25 @@ infoBarSetResponseSensitive :: (MonadIO m, InfoBarK a) => - a -> -- _obj - Int32 -> -- response_id - Bool -> -- setting - m () -infoBarSetResponseSensitive _obj response_id setting = liftIO $ do + a -- _obj + -> Int32 -- responseId + -> Bool -- setting + -> m () -- result +infoBarSetResponseSensitive _obj responseId setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting - gtk_info_bar_set_response_sensitive _obj' response_id setting' + gtk_info_bar_set_response_sensitive _obj' responseId setting' touchManagedPtr _obj return () +data InfoBarSetResponseSensitiveMethodInfo +instance (signature ~ (Int32 -> Bool -> m ()), MonadIO m, InfoBarK a) => MethodInfo InfoBarSetResponseSensitiveMethodInfo a signature where + overloadedMethod _ = infoBarSetResponseSensitive + -- method InfoBar::set_show_close_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -599,14 +987,18 @@ infoBarSetShowCloseButton :: (MonadIO m, InfoBarK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result infoBarSetShowCloseButton _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting gtk_info_bar_set_show_close_button _obj' setting' touchManagedPtr _obj return () + +data InfoBarSetShowCloseButtonMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, InfoBarK a) => MethodInfo InfoBarSetShowCloseButtonMethodInfo a signature where + overloadedMethod _ = infoBarSetShowCloseButton diff --git a/GI/Gtk/Objects/InfoBar.hs-boot b/GI/Gtk/Objects/InfoBar.hs-boot --- a/GI/Gtk/Objects/InfoBar.hs-boot +++ b/GI/Gtk/Objects/InfoBar.hs-boot @@ -15,3 +15,14 @@ data InfoBarShowCloseButtonPropertyInfo data InfoBarCloseSignalInfo data InfoBarResponseSignalInfo +data InfoBarAddActionWidgetMethodInfo +data InfoBarAddButtonMethodInfo +data InfoBarGetActionAreaMethodInfo +data InfoBarGetContentAreaMethodInfo +data InfoBarGetMessageTypeMethodInfo +data InfoBarGetShowCloseButtonMethodInfo +data InfoBarResponseMethodInfo +data InfoBarSetDefaultResponseMethodInfo +data InfoBarSetMessageTypeMethodInfo +data InfoBarSetResponseSensitiveMethodInfo +data InfoBarSetShowCloseButtonMethodInfo diff --git a/GI/Gtk/Objects/Invisible.hs b/GI/Gtk/Objects/Invisible.hs --- a/GI/Gtk/Objects/Invisible.hs +++ b/GI/Gtk/Objects/Invisible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** invisibleGetScreen + InvisibleGetScreenMethodInfo , invisibleGetScreen , @@ -29,6 +31,7 @@ -- ** invisibleSetScreen + InvisibleSetScreenMethodInfo , invisibleSetScreen , @@ -80,6 +83,302 @@ noInvisible :: Maybe Invisible noInvisible = Nothing +type family ResolveInvisibleMethod (t :: Symbol) (o :: *) :: * where + ResolveInvisibleMethod "activate" o = WidgetActivateMethodInfo + ResolveInvisibleMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveInvisibleMethod "addChild" o = BuildableAddChildMethodInfo + ResolveInvisibleMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveInvisibleMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveInvisibleMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveInvisibleMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveInvisibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveInvisibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveInvisibleMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveInvisibleMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveInvisibleMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveInvisibleMethod "classPath" o = WidgetClassPathMethodInfo + ResolveInvisibleMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveInvisibleMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveInvisibleMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveInvisibleMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveInvisibleMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveInvisibleMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveInvisibleMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveInvisibleMethod "destroy" o = WidgetDestroyMethodInfo + ResolveInvisibleMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveInvisibleMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveInvisibleMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveInvisibleMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveInvisibleMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveInvisibleMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveInvisibleMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveInvisibleMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveInvisibleMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveInvisibleMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveInvisibleMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveInvisibleMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveInvisibleMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveInvisibleMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveInvisibleMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveInvisibleMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveInvisibleMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveInvisibleMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveInvisibleMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveInvisibleMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveInvisibleMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveInvisibleMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveInvisibleMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveInvisibleMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveInvisibleMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveInvisibleMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveInvisibleMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveInvisibleMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveInvisibleMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveInvisibleMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveInvisibleMethod "draw" o = WidgetDrawMethodInfo + ResolveInvisibleMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveInvisibleMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveInvisibleMethod "event" o = WidgetEventMethodInfo + ResolveInvisibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveInvisibleMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveInvisibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveInvisibleMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveInvisibleMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveInvisibleMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveInvisibleMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveInvisibleMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveInvisibleMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveInvisibleMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveInvisibleMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveInvisibleMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveInvisibleMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveInvisibleMethod "hide" o = WidgetHideMethodInfo + ResolveInvisibleMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveInvisibleMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveInvisibleMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveInvisibleMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveInvisibleMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveInvisibleMethod "intersect" o = WidgetIntersectMethodInfo + ResolveInvisibleMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveInvisibleMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveInvisibleMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveInvisibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveInvisibleMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveInvisibleMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveInvisibleMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveInvisibleMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveInvisibleMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveInvisibleMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveInvisibleMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveInvisibleMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveInvisibleMethod "map" o = WidgetMapMethodInfo + ResolveInvisibleMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveInvisibleMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveInvisibleMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveInvisibleMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveInvisibleMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveInvisibleMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveInvisibleMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveInvisibleMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveInvisibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveInvisibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveInvisibleMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveInvisibleMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveInvisibleMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveInvisibleMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveInvisibleMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveInvisibleMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveInvisibleMethod "path" o = WidgetPathMethodInfo + ResolveInvisibleMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveInvisibleMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveInvisibleMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveInvisibleMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveInvisibleMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveInvisibleMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveInvisibleMethod "realize" o = WidgetRealizeMethodInfo + ResolveInvisibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveInvisibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveInvisibleMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveInvisibleMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveInvisibleMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveInvisibleMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveInvisibleMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveInvisibleMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveInvisibleMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveInvisibleMethod "reparent" o = WidgetReparentMethodInfo + ResolveInvisibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveInvisibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveInvisibleMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveInvisibleMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveInvisibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveInvisibleMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveInvisibleMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveInvisibleMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveInvisibleMethod "show" o = WidgetShowMethodInfo + ResolveInvisibleMethod "showAll" o = WidgetShowAllMethodInfo + ResolveInvisibleMethod "showNow" o = WidgetShowNowMethodInfo + ResolveInvisibleMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveInvisibleMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveInvisibleMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveInvisibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveInvisibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveInvisibleMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveInvisibleMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveInvisibleMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveInvisibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveInvisibleMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveInvisibleMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveInvisibleMethod "unmap" o = WidgetUnmapMethodInfo + ResolveInvisibleMethod "unparent" o = WidgetUnparentMethodInfo + ResolveInvisibleMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveInvisibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveInvisibleMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveInvisibleMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveInvisibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveInvisibleMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveInvisibleMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveInvisibleMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveInvisibleMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveInvisibleMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveInvisibleMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveInvisibleMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveInvisibleMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveInvisibleMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveInvisibleMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveInvisibleMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveInvisibleMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveInvisibleMethod "getClip" o = WidgetGetClipMethodInfo + ResolveInvisibleMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveInvisibleMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveInvisibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveInvisibleMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveInvisibleMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveInvisibleMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveInvisibleMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveInvisibleMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveInvisibleMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveInvisibleMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveInvisibleMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveInvisibleMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveInvisibleMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveInvisibleMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveInvisibleMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveInvisibleMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveInvisibleMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveInvisibleMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveInvisibleMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveInvisibleMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveInvisibleMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveInvisibleMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveInvisibleMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveInvisibleMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveInvisibleMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveInvisibleMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveInvisibleMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveInvisibleMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveInvisibleMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveInvisibleMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveInvisibleMethod "getParent" o = WidgetGetParentMethodInfo + ResolveInvisibleMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveInvisibleMethod "getPath" o = WidgetGetPathMethodInfo + ResolveInvisibleMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveInvisibleMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveInvisibleMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveInvisibleMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveInvisibleMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveInvisibleMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveInvisibleMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveInvisibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveInvisibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveInvisibleMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveInvisibleMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveInvisibleMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveInvisibleMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveInvisibleMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveInvisibleMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveInvisibleMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveInvisibleMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveInvisibleMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveInvisibleMethod "getState" o = WidgetGetStateMethodInfo + ResolveInvisibleMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveInvisibleMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveInvisibleMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveInvisibleMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveInvisibleMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveInvisibleMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveInvisibleMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveInvisibleMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveInvisibleMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveInvisibleMethod "getValign" o = WidgetGetValignMethodInfo + ResolveInvisibleMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveInvisibleMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveInvisibleMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveInvisibleMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveInvisibleMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveInvisibleMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveInvisibleMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveInvisibleMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveInvisibleMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveInvisibleMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveInvisibleMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveInvisibleMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveInvisibleMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveInvisibleMethod "setClip" o = WidgetSetClipMethodInfo + ResolveInvisibleMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveInvisibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveInvisibleMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveInvisibleMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveInvisibleMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveInvisibleMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveInvisibleMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveInvisibleMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveInvisibleMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveInvisibleMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveInvisibleMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveInvisibleMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveInvisibleMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveInvisibleMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveInvisibleMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveInvisibleMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveInvisibleMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveInvisibleMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveInvisibleMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveInvisibleMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveInvisibleMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveInvisibleMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveInvisibleMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveInvisibleMethod "setParent" o = WidgetSetParentMethodInfo + ResolveInvisibleMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveInvisibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveInvisibleMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveInvisibleMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveInvisibleMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveInvisibleMethod "setScreen" o = InvisibleSetScreenMethodInfo + ResolveInvisibleMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveInvisibleMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveInvisibleMethod "setState" o = WidgetSetStateMethodInfo + ResolveInvisibleMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveInvisibleMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveInvisibleMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveInvisibleMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveInvisibleMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveInvisibleMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveInvisibleMethod "setValign" o = WidgetSetValignMethodInfo + ResolveInvisibleMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveInvisibleMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveInvisibleMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveInvisibleMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveInvisibleMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveInvisibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveInvisibleMethod t Invisible, MethodInfo info Invisible p) => IsLabelProxy t (Invisible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveInvisibleMethod t Invisible, MethodInfo info Invisible p) => IsLabel t (Invisible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "screen" -- Type: TInterface "Gdk" "Screen" -- Flags: [PropertyReadable,PropertyWritable] @@ -99,22 +398,21 @@ type AttrSetTypeConstraint InvisibleScreenPropertyInfo = Gdk.ScreenK type AttrBaseTypeConstraint InvisibleScreenPropertyInfo = InvisibleK type AttrGetType InvisibleScreenPropertyInfo = Gdk.Screen - type AttrLabel InvisibleScreenPropertyInfo = "Invisible::screen" + type AttrLabel InvisibleScreenPropertyInfo = "screen" attrGet _ = getInvisibleScreen attrSet _ = setInvisibleScreen attrConstruct _ = constructInvisibleScreen type instance AttributeList Invisible = InvisibleAttributeList -type InvisibleAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", InvisibleScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type InvisibleAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", InvisibleScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Invisible = InvisibleSignalList -type InvisibleSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type InvisibleSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Invisible::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Invisible" -- throws : False -- Skip return : False @@ -125,7 +423,7 @@ invisibleNew :: (MonadIO m) => - m Invisible + m Invisible -- result invisibleNew = liftIO $ do result <- gtk_invisible_new checkUnexpectedReturnNULL "gtk_invisible_new" result @@ -134,9 +432,8 @@ -- method Invisible::new_for_screen -- method type : Constructor --- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Invisible" -- throws : False -- Skip return : False @@ -148,8 +445,8 @@ invisibleNewForScreen :: (MonadIO m, Gdk.ScreenK a) => - a -> -- screen - m Invisible + a -- screen + -> m Invisible -- result invisibleNewForScreen screen = liftIO $ do let screen' = unsafeManagedPtrCastPtr screen result <- gtk_invisible_new_for_screen screen' @@ -160,9 +457,8 @@ -- method Invisible::get_screen -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Screen" -- throws : False -- Skip return : False @@ -174,8 +470,8 @@ invisibleGetScreen :: (MonadIO m, InvisibleK a) => - a -> -- _obj - m Gdk.Screen + a -- _obj + -> m Gdk.Screen -- result invisibleGetScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_invisible_get_screen _obj' @@ -184,11 +480,14 @@ touchManagedPtr _obj return result' +data InvisibleGetScreenMethodInfo +instance (signature ~ (m Gdk.Screen), MonadIO m, InvisibleK a) => MethodInfo InvisibleGetScreenMethodInfo a signature where + overloadedMethod _ = invisibleGetScreen + -- method Invisible::set_screen -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -201,9 +500,9 @@ invisibleSetScreen :: (MonadIO m, InvisibleK a, Gdk.ScreenK b) => - a -> -- _obj - b -> -- screen - m () + a -- _obj + -> b -- screen + -> m () -- result invisibleSetScreen _obj screen = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let screen' = unsafeManagedPtrCastPtr screen @@ -211,5 +510,9 @@ touchManagedPtr _obj touchManagedPtr screen return () + +data InvisibleSetScreenMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, InvisibleK a, Gdk.ScreenK b) => MethodInfo InvisibleSetScreenMethodInfo a signature where + overloadedMethod _ = invisibleSetScreen diff --git a/GI/Gtk/Objects/Invisible.hs-boot b/GI/Gtk/Objects/Invisible.hs-boot --- a/GI/Gtk/Objects/Invisible.hs-boot +++ b/GI/Gtk/Objects/Invisible.hs-boot @@ -12,3 +12,5 @@ class GObject o => InvisibleK o instance (GObject o, IsDescendantOf Invisible o) => InvisibleK o data InvisibleScreenPropertyInfo +data InvisibleGetScreenMethodInfo +data InvisibleSetScreenMethodInfo diff --git a/GI/Gtk/Objects/Label.hs b/GI/Gtk/Objects/Label.hs --- a/GI/Gtk/Objects/Label.hs +++ b/GI/Gtk/Objects/Label.hs @@ -1,2564 +1,3103 @@ -{- | -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.Objects.Label - ( - --- * Exported types - Label(..) , - LabelK , - toLabel , - noLabel , - - - -- * Methods --- ** labelGetAngle - labelGetAngle , - - --- ** labelGetAttributes - labelGetAttributes , - - --- ** labelGetCurrentUri - labelGetCurrentUri , - - --- ** labelGetEllipsize - labelGetEllipsize , - - --- ** labelGetJustify - labelGetJustify , - - --- ** labelGetLabel - labelGetLabel , - - --- ** labelGetLayout - labelGetLayout , - - --- ** labelGetLayoutOffsets - labelGetLayoutOffsets , - - --- ** labelGetLineWrap - labelGetLineWrap , - - --- ** labelGetLineWrapMode - labelGetLineWrapMode , - - --- ** labelGetLines - labelGetLines , - - --- ** labelGetMaxWidthChars - labelGetMaxWidthChars , - - --- ** labelGetMnemonicKeyval - labelGetMnemonicKeyval , - - --- ** labelGetMnemonicWidget - labelGetMnemonicWidget , - - --- ** labelGetSelectable - labelGetSelectable , - - --- ** labelGetSelectionBounds - labelGetSelectionBounds , - - --- ** labelGetSingleLineMode - labelGetSingleLineMode , - - --- ** labelGetText - labelGetText , - - --- ** labelGetTrackVisitedLinks - labelGetTrackVisitedLinks , - - --- ** labelGetUseMarkup - labelGetUseMarkup , - - --- ** labelGetUseUnderline - labelGetUseUnderline , - - --- ** labelGetWidthChars - labelGetWidthChars , - - --- ** labelGetXalign - labelGetXalign , - - --- ** labelGetYalign - labelGetYalign , - - --- ** labelNew - labelNew , - - --- ** labelNewWithMnemonic - labelNewWithMnemonic , - - --- ** labelSelectRegion - labelSelectRegion , - - --- ** labelSetAngle - labelSetAngle , - - --- ** labelSetAttributes - labelSetAttributes , - - --- ** labelSetEllipsize - labelSetEllipsize , - - --- ** labelSetJustify - labelSetJustify , - - --- ** labelSetLabel - labelSetLabel , - - --- ** labelSetLineWrap - labelSetLineWrap , - - --- ** labelSetLineWrapMode - labelSetLineWrapMode , - - --- ** labelSetLines - labelSetLines , - - --- ** labelSetMarkup - labelSetMarkup , - - --- ** labelSetMarkupWithMnemonic - labelSetMarkupWithMnemonic , - - --- ** labelSetMaxWidthChars - labelSetMaxWidthChars , - - --- ** labelSetMnemonicWidget - labelSetMnemonicWidget , - - --- ** labelSetPattern - labelSetPattern , - - --- ** labelSetSelectable - labelSetSelectable , - - --- ** labelSetSingleLineMode - labelSetSingleLineMode , - - --- ** labelSetText - labelSetText , - - --- ** labelSetTextWithMnemonic - labelSetTextWithMnemonic , - - --- ** labelSetTrackVisitedLinks - labelSetTrackVisitedLinks , - - --- ** labelSetUseMarkup - labelSetUseMarkup , - - --- ** labelSetUseUnderline - labelSetUseUnderline , - - --- ** labelSetWidthChars - labelSetWidthChars , - - --- ** labelSetXalign - labelSetXalign , - - --- ** labelSetYalign - labelSetYalign , - - - - - -- * Properties --- ** Angle - LabelAnglePropertyInfo , - constructLabelAngle , - getLabelAngle , - setLabelAngle , - - --- ** Attributes - LabelAttributesPropertyInfo , - constructLabelAttributes , - getLabelAttributes , - setLabelAttributes , - - --- ** CursorPosition - LabelCursorPositionPropertyInfo , - getLabelCursorPosition , - - --- ** Ellipsize - LabelEllipsizePropertyInfo , - constructLabelEllipsize , - getLabelEllipsize , - setLabelEllipsize , - - --- ** Justify - LabelJustifyPropertyInfo , - constructLabelJustify , - getLabelJustify , - setLabelJustify , - - --- ** Label - LabelLabelPropertyInfo , - constructLabelLabel , - getLabelLabel , - setLabelLabel , - - --- ** Lines - LabelLinesPropertyInfo , - constructLabelLines , - getLabelLines , - setLabelLines , - - --- ** MaxWidthChars - LabelMaxWidthCharsPropertyInfo , - constructLabelMaxWidthChars , - getLabelMaxWidthChars , - setLabelMaxWidthChars , - - --- ** MnemonicKeyval - LabelMnemonicKeyvalPropertyInfo , - getLabelMnemonicKeyval , - - --- ** MnemonicWidget - LabelMnemonicWidgetPropertyInfo , - constructLabelMnemonicWidget , - getLabelMnemonicWidget , - setLabelMnemonicWidget , - - --- ** Pattern - LabelPatternPropertyInfo , - constructLabelPattern , - setLabelPattern , - - --- ** Selectable - LabelSelectablePropertyInfo , - constructLabelSelectable , - getLabelSelectable , - setLabelSelectable , - - --- ** SelectionBound - LabelSelectionBoundPropertyInfo , - getLabelSelectionBound , - - --- ** SingleLineMode - LabelSingleLineModePropertyInfo , - constructLabelSingleLineMode , - getLabelSingleLineMode , - setLabelSingleLineMode , - - --- ** TrackVisitedLinks - LabelTrackVisitedLinksPropertyInfo , - constructLabelTrackVisitedLinks , - getLabelTrackVisitedLinks , - setLabelTrackVisitedLinks , - - --- ** UseMarkup - LabelUseMarkupPropertyInfo , - constructLabelUseMarkup , - getLabelUseMarkup , - setLabelUseMarkup , - - --- ** UseUnderline - LabelUseUnderlinePropertyInfo , - constructLabelUseUnderline , - getLabelUseUnderline , - setLabelUseUnderline , - - --- ** WidthChars - LabelWidthCharsPropertyInfo , - constructLabelWidthChars , - getLabelWidthChars , - setLabelWidthChars , - - --- ** Wrap - LabelWrapPropertyInfo , - constructLabelWrap , - getLabelWrap , - setLabelWrap , - - --- ** WrapMode - LabelWrapModePropertyInfo , - constructLabelWrapMode , - getLabelWrapMode , - setLabelWrapMode , - - --- ** Xalign - LabelXalignPropertyInfo , - constructLabelXalign , - getLabelXalign , - setLabelXalign , - - --- ** Yalign - LabelYalignPropertyInfo , - constructLabelYalign , - getLabelYalign , - setLabelYalign , - - - - - -- * Signals --- ** ActivateCurrentLink - LabelActivateCurrentLinkCallback , - LabelActivateCurrentLinkCallbackC , - LabelActivateCurrentLinkSignalInfo , - afterLabelActivateCurrentLink , - labelActivateCurrentLinkCallbackWrapper , - labelActivateCurrentLinkClosure , - mkLabelActivateCurrentLinkCallback , - noLabelActivateCurrentLinkCallback , - onLabelActivateCurrentLink , - - --- ** ActivateLink - LabelActivateLinkCallback , - LabelActivateLinkCallbackC , - LabelActivateLinkSignalInfo , - afterLabelActivateLink , - labelActivateLinkCallbackWrapper , - labelActivateLinkClosure , - mkLabelActivateLinkCallback , - noLabelActivateLinkCallback , - onLabelActivateLink , - - --- ** CopyClipboard - LabelCopyClipboardCallback , - LabelCopyClipboardCallbackC , - LabelCopyClipboardSignalInfo , - afterLabelCopyClipboard , - labelCopyClipboardCallbackWrapper , - labelCopyClipboardClosure , - mkLabelCopyClipboardCallback , - noLabelCopyClipboardCallback , - onLabelCopyClipboard , - - --- ** MoveCursor - LabelMoveCursorCallback , - LabelMoveCursorCallbackC , - LabelMoveCursorSignalInfo , - afterLabelMoveCursor , - labelMoveCursorCallbackWrapper , - labelMoveCursorClosure , - mkLabelMoveCursorCallback , - noLabelMoveCursorCallback , - onLabelMoveCursor , - - --- ** PopulatePopup - LabelPopulatePopupCallback , - LabelPopulatePopupCallbackC , - LabelPopulatePopupSignalInfo , - afterLabelPopulatePopup , - labelPopulatePopupCallbackWrapper , - labelPopulatePopupClosure , - mkLabelPopulatePopupCallback , - noLabelPopulatePopupCallback , - onLabelPopulatePopup , - - - - - ) 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.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Pango as Pango - -newtype Label = Label (ForeignPtr Label) -foreign import ccall "gtk_label_get_type" - c_gtk_label_get_type :: IO GType - -type instance ParentTypes Label = LabelParentTypes -type LabelParentTypes = '[Misc, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Label where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_label_get_type - - -class GObject o => LabelK o -instance (GObject o, IsDescendantOf Label o) => LabelK o - -toLabel :: LabelK o => o -> IO Label -toLabel = unsafeCastTo Label - -noLabel :: Maybe Label -noLabel = Nothing - --- signal Label::activate-current-link -type LabelActivateCurrentLinkCallback = - IO () - -noLabelActivateCurrentLinkCallback :: Maybe LabelActivateCurrentLinkCallback -noLabelActivateCurrentLinkCallback = Nothing - -type LabelActivateCurrentLinkCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkLabelActivateCurrentLinkCallback :: LabelActivateCurrentLinkCallbackC -> IO (FunPtr LabelActivateCurrentLinkCallbackC) - -labelActivateCurrentLinkClosure :: LabelActivateCurrentLinkCallback -> IO Closure -labelActivateCurrentLinkClosure cb = newCClosure =<< mkLabelActivateCurrentLinkCallback wrapped - where wrapped = labelActivateCurrentLinkCallbackWrapper cb - -labelActivateCurrentLinkCallbackWrapper :: - LabelActivateCurrentLinkCallback -> - Ptr () -> - Ptr () -> - IO () -labelActivateCurrentLinkCallbackWrapper _cb _ _ = do - _cb - -onLabelActivateCurrentLink :: (GObject a, MonadIO m) => a -> LabelActivateCurrentLinkCallback -> m SignalHandlerId -onLabelActivateCurrentLink obj cb = liftIO $ connectLabelActivateCurrentLink obj cb SignalConnectBefore -afterLabelActivateCurrentLink :: (GObject a, MonadIO m) => a -> LabelActivateCurrentLinkCallback -> m SignalHandlerId -afterLabelActivateCurrentLink obj cb = connectLabelActivateCurrentLink obj cb SignalConnectAfter - -connectLabelActivateCurrentLink :: (GObject a, MonadIO m) => - a -> LabelActivateCurrentLinkCallback -> SignalConnectMode -> m SignalHandlerId -connectLabelActivateCurrentLink obj cb after = liftIO $ do - cb' <- mkLabelActivateCurrentLinkCallback (labelActivateCurrentLinkCallbackWrapper cb) - connectSignalFunPtr obj "activate-current-link" cb' after - --- signal Label::activate-link -type LabelActivateLinkCallback = - T.Text -> - IO Bool - -noLabelActivateLinkCallback :: Maybe LabelActivateLinkCallback -noLabelActivateLinkCallback = Nothing - -type LabelActivateLinkCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkLabelActivateLinkCallback :: LabelActivateLinkCallbackC -> IO (FunPtr LabelActivateLinkCallbackC) - -labelActivateLinkClosure :: LabelActivateLinkCallback -> IO Closure -labelActivateLinkClosure cb = newCClosure =<< mkLabelActivateLinkCallback wrapped - where wrapped = labelActivateLinkCallbackWrapper cb - -labelActivateLinkCallbackWrapper :: - LabelActivateLinkCallback -> - Ptr () -> - CString -> - Ptr () -> - IO CInt -labelActivateLinkCallbackWrapper _cb _ uri _ = do - uri' <- cstringToText uri - result <- _cb uri' - let result' = (fromIntegral . fromEnum) result - return result' - -onLabelActivateLink :: (GObject a, MonadIO m) => a -> LabelActivateLinkCallback -> m SignalHandlerId -onLabelActivateLink obj cb = liftIO $ connectLabelActivateLink obj cb SignalConnectBefore -afterLabelActivateLink :: (GObject a, MonadIO m) => a -> LabelActivateLinkCallback -> m SignalHandlerId -afterLabelActivateLink obj cb = connectLabelActivateLink obj cb SignalConnectAfter - -connectLabelActivateLink :: (GObject a, MonadIO m) => - a -> LabelActivateLinkCallback -> SignalConnectMode -> m SignalHandlerId -connectLabelActivateLink obj cb after = liftIO $ do - cb' <- mkLabelActivateLinkCallback (labelActivateLinkCallbackWrapper cb) - connectSignalFunPtr obj "activate-link" cb' after - --- signal Label::copy-clipboard -type LabelCopyClipboardCallback = - IO () - -noLabelCopyClipboardCallback :: Maybe LabelCopyClipboardCallback -noLabelCopyClipboardCallback = Nothing - -type LabelCopyClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkLabelCopyClipboardCallback :: LabelCopyClipboardCallbackC -> IO (FunPtr LabelCopyClipboardCallbackC) - -labelCopyClipboardClosure :: LabelCopyClipboardCallback -> IO Closure -labelCopyClipboardClosure cb = newCClosure =<< mkLabelCopyClipboardCallback wrapped - where wrapped = labelCopyClipboardCallbackWrapper cb - -labelCopyClipboardCallbackWrapper :: - LabelCopyClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -labelCopyClipboardCallbackWrapper _cb _ _ = do - _cb - -onLabelCopyClipboard :: (GObject a, MonadIO m) => a -> LabelCopyClipboardCallback -> m SignalHandlerId -onLabelCopyClipboard obj cb = liftIO $ connectLabelCopyClipboard obj cb SignalConnectBefore -afterLabelCopyClipboard :: (GObject a, MonadIO m) => a -> LabelCopyClipboardCallback -> m SignalHandlerId -afterLabelCopyClipboard obj cb = connectLabelCopyClipboard obj cb SignalConnectAfter - -connectLabelCopyClipboard :: (GObject a, MonadIO m) => - a -> LabelCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectLabelCopyClipboard obj cb after = liftIO $ do - cb' <- mkLabelCopyClipboardCallback (labelCopyClipboardCallbackWrapper cb) - connectSignalFunPtr obj "copy-clipboard" cb' after - --- signal Label::move-cursor -type LabelMoveCursorCallback = - MovementStep -> - Int32 -> - Bool -> - IO () - -noLabelMoveCursorCallback :: Maybe LabelMoveCursorCallback -noLabelMoveCursorCallback = Nothing - -type LabelMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkLabelMoveCursorCallback :: LabelMoveCursorCallbackC -> IO (FunPtr LabelMoveCursorCallbackC) - -labelMoveCursorClosure :: LabelMoveCursorCallback -> IO Closure -labelMoveCursorClosure cb = newCClosure =<< mkLabelMoveCursorCallback wrapped - where wrapped = labelMoveCursorCallbackWrapper cb - -labelMoveCursorCallbackWrapper :: - LabelMoveCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - CInt -> - Ptr () -> - IO () -labelMoveCursorCallbackWrapper _cb _ step count extend_selection _ = do - let step' = (toEnum . fromIntegral) step - let extend_selection' = (/= 0) extend_selection - _cb step' count extend_selection' - -onLabelMoveCursor :: (GObject a, MonadIO m) => a -> LabelMoveCursorCallback -> m SignalHandlerId -onLabelMoveCursor obj cb = liftIO $ connectLabelMoveCursor obj cb SignalConnectBefore -afterLabelMoveCursor :: (GObject a, MonadIO m) => a -> LabelMoveCursorCallback -> m SignalHandlerId -afterLabelMoveCursor obj cb = connectLabelMoveCursor obj cb SignalConnectAfter - -connectLabelMoveCursor :: (GObject a, MonadIO m) => - a -> LabelMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectLabelMoveCursor obj cb after = liftIO $ do - cb' <- mkLabelMoveCursorCallback (labelMoveCursorCallbackWrapper cb) - connectSignalFunPtr obj "move-cursor" cb' after - --- signal Label::populate-popup -type LabelPopulatePopupCallback = - Menu -> - IO () - -noLabelPopulatePopupCallback :: Maybe LabelPopulatePopupCallback -noLabelPopulatePopupCallback = Nothing - -type LabelPopulatePopupCallbackC = - Ptr () -> -- object - Ptr Menu -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkLabelPopulatePopupCallback :: LabelPopulatePopupCallbackC -> IO (FunPtr LabelPopulatePopupCallbackC) - -labelPopulatePopupClosure :: LabelPopulatePopupCallback -> IO Closure -labelPopulatePopupClosure cb = newCClosure =<< mkLabelPopulatePopupCallback wrapped - where wrapped = labelPopulatePopupCallbackWrapper cb - -labelPopulatePopupCallbackWrapper :: - LabelPopulatePopupCallback -> - Ptr () -> - Ptr Menu -> - Ptr () -> - IO () -labelPopulatePopupCallbackWrapper _cb _ menu _ = do - menu' <- (newObject Menu) menu - _cb menu' - -onLabelPopulatePopup :: (GObject a, MonadIO m) => a -> LabelPopulatePopupCallback -> m SignalHandlerId -onLabelPopulatePopup obj cb = liftIO $ connectLabelPopulatePopup obj cb SignalConnectBefore -afterLabelPopulatePopup :: (GObject a, MonadIO m) => a -> LabelPopulatePopupCallback -> m SignalHandlerId -afterLabelPopulatePopup obj cb = connectLabelPopulatePopup obj cb SignalConnectAfter - -connectLabelPopulatePopup :: (GObject a, MonadIO m) => - a -> LabelPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId -connectLabelPopulatePopup obj cb after = liftIO $ do - cb' <- mkLabelPopulatePopupCallback (labelPopulatePopupCallbackWrapper cb) - connectSignalFunPtr obj "populate-popup" cb' after - ---- XXX Duplicated object with different types: - --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."})} ---- XXX Duplicated object with different types: - --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."})} --- VVV Prop "angle" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelAngle :: (MonadIO m, LabelK o) => o -> m Double -getLabelAngle obj = liftIO $ getObjectPropertyDouble obj "angle" - -setLabelAngle :: (MonadIO m, LabelK o) => o -> Double -> m () -setLabelAngle obj val = liftIO $ setObjectPropertyDouble obj "angle" val - -constructLabelAngle :: Double -> IO ([Char], GValue) -constructLabelAngle val = constructObjectPropertyDouble "angle" val - -data LabelAnglePropertyInfo -instance AttrInfo LabelAnglePropertyInfo where - type AttrAllowedOps LabelAnglePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelAnglePropertyInfo = (~) Double - type AttrBaseTypeConstraint LabelAnglePropertyInfo = LabelK - type AttrGetType LabelAnglePropertyInfo = Double - type AttrLabel LabelAnglePropertyInfo = "Label::angle" - attrGet _ = getLabelAngle - attrSet _ = setLabelAngle - attrConstruct _ = constructLabelAngle - --- VVV Prop "attributes" - -- Type: TInterface "Pango" "AttrList" - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelAttributes :: (MonadIO m, LabelK o) => o -> m Pango.AttrList -getLabelAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList - -setLabelAttributes :: (MonadIO m, LabelK o) => o -> Pango.AttrList -> m () -setLabelAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val - -constructLabelAttributes :: Pango.AttrList -> IO ([Char], GValue) -constructLabelAttributes val = constructObjectPropertyBoxed "attributes" val - -data LabelAttributesPropertyInfo -instance AttrInfo LabelAttributesPropertyInfo where - type AttrAllowedOps LabelAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelAttributesPropertyInfo = (~) Pango.AttrList - type AttrBaseTypeConstraint LabelAttributesPropertyInfo = LabelK - type AttrGetType LabelAttributesPropertyInfo = Pango.AttrList - type AttrLabel LabelAttributesPropertyInfo = "Label::attributes" - attrGet _ = getLabelAttributes - attrSet _ = setLabelAttributes - attrConstruct _ = constructLabelAttributes - --- VVV Prop "cursor-position" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getLabelCursorPosition :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position" - -data LabelCursorPositionPropertyInfo -instance AttrInfo LabelCursorPositionPropertyInfo where - type AttrAllowedOps LabelCursorPositionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint LabelCursorPositionPropertyInfo = (~) () - type AttrBaseTypeConstraint LabelCursorPositionPropertyInfo = LabelK - type AttrGetType LabelCursorPositionPropertyInfo = Int32 - type AttrLabel LabelCursorPositionPropertyInfo = "Label::cursor-position" - attrGet _ = getLabelCursorPosition - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "ellipsize" - -- Type: TInterface "Pango" "EllipsizeMode" - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelEllipsize :: (MonadIO m, LabelK o) => o -> m Pango.EllipsizeMode -getLabelEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize" - -setLabelEllipsize :: (MonadIO m, LabelK o) => o -> Pango.EllipsizeMode -> m () -setLabelEllipsize obj val = liftIO $ setObjectPropertyEnum obj "ellipsize" val - -constructLabelEllipsize :: Pango.EllipsizeMode -> IO ([Char], GValue) -constructLabelEllipsize val = constructObjectPropertyEnum "ellipsize" val - -data LabelEllipsizePropertyInfo -instance AttrInfo LabelEllipsizePropertyInfo where - type AttrAllowedOps LabelEllipsizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelEllipsizePropertyInfo = (~) Pango.EllipsizeMode - type AttrBaseTypeConstraint LabelEllipsizePropertyInfo = LabelK - type AttrGetType LabelEllipsizePropertyInfo = Pango.EllipsizeMode - type AttrLabel LabelEllipsizePropertyInfo = "Label::ellipsize" - attrGet _ = getLabelEllipsize - attrSet _ = setLabelEllipsize - attrConstruct _ = constructLabelEllipsize - --- VVV Prop "justify" - -- Type: TInterface "Gtk" "Justification" - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelJustify :: (MonadIO m, LabelK o) => o -> m Justification -getLabelJustify obj = liftIO $ getObjectPropertyEnum obj "justify" - -setLabelJustify :: (MonadIO m, LabelK o) => o -> Justification -> m () -setLabelJustify obj val = liftIO $ setObjectPropertyEnum obj "justify" val - -constructLabelJustify :: Justification -> IO ([Char], GValue) -constructLabelJustify val = constructObjectPropertyEnum "justify" val - -data LabelJustifyPropertyInfo -instance AttrInfo LabelJustifyPropertyInfo where - type AttrAllowedOps LabelJustifyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelJustifyPropertyInfo = (~) Justification - type AttrBaseTypeConstraint LabelJustifyPropertyInfo = LabelK - type AttrGetType LabelJustifyPropertyInfo = Justification - type AttrLabel LabelJustifyPropertyInfo = "Label::justify" - attrGet _ = getLabelJustify - attrSet _ = setLabelJustify - attrConstruct _ = constructLabelJustify - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelLabel :: (MonadIO m, LabelK o) => o -> m T.Text -getLabelLabel obj = liftIO $ getObjectPropertyString obj "label" - -setLabelLabel :: (MonadIO m, LabelK o) => o -> T.Text -> m () -setLabelLabel obj val = liftIO $ setObjectPropertyString obj "label" val - -constructLabelLabel :: T.Text -> IO ([Char], GValue) -constructLabelLabel val = constructObjectPropertyString "label" val - -data LabelLabelPropertyInfo -instance AttrInfo LabelLabelPropertyInfo where - type AttrAllowedOps LabelLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LabelLabelPropertyInfo = LabelK - type AttrGetType LabelLabelPropertyInfo = T.Text - type AttrLabel LabelLabelPropertyInfo = "Label::label" - attrGet _ = getLabelLabel - attrSet _ = setLabelLabel - attrConstruct _ = constructLabelLabel - --- VVV Prop "lines" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelLines :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelLines obj = liftIO $ getObjectPropertyCInt obj "lines" - -setLabelLines :: (MonadIO m, LabelK o) => o -> Int32 -> m () -setLabelLines obj val = liftIO $ setObjectPropertyCInt obj "lines" val - -constructLabelLines :: Int32 -> IO ([Char], GValue) -constructLabelLines val = constructObjectPropertyCInt "lines" val - -data LabelLinesPropertyInfo -instance AttrInfo LabelLinesPropertyInfo where - type AttrAllowedOps LabelLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelLinesPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint LabelLinesPropertyInfo = LabelK - type AttrGetType LabelLinesPropertyInfo = Int32 - type AttrLabel LabelLinesPropertyInfo = "Label::lines" - attrGet _ = getLabelLines - attrSet _ = setLabelLines - attrConstruct _ = constructLabelLines - --- VVV Prop "max-width-chars" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" - -setLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m () -setLabelMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val - -constructLabelMaxWidthChars :: Int32 -> IO ([Char], GValue) -constructLabelMaxWidthChars val = constructObjectPropertyCInt "max-width-chars" val - -data LabelMaxWidthCharsPropertyInfo -instance AttrInfo LabelMaxWidthCharsPropertyInfo where - type AttrAllowedOps LabelMaxWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelMaxWidthCharsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint LabelMaxWidthCharsPropertyInfo = LabelK - type AttrGetType LabelMaxWidthCharsPropertyInfo = Int32 - type AttrLabel LabelMaxWidthCharsPropertyInfo = "Label::max-width-chars" - attrGet _ = getLabelMaxWidthChars - attrSet _ = setLabelMaxWidthChars - attrConstruct _ = constructLabelMaxWidthChars - --- VVV Prop "mnemonic-keyval" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getLabelMnemonicKeyval :: (MonadIO m, LabelK o) => o -> m Word32 -getLabelMnemonicKeyval obj = liftIO $ getObjectPropertyCUInt obj "mnemonic-keyval" - -data LabelMnemonicKeyvalPropertyInfo -instance AttrInfo LabelMnemonicKeyvalPropertyInfo where - type AttrAllowedOps LabelMnemonicKeyvalPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint LabelMnemonicKeyvalPropertyInfo = (~) () - type AttrBaseTypeConstraint LabelMnemonicKeyvalPropertyInfo = LabelK - type AttrGetType LabelMnemonicKeyvalPropertyInfo = Word32 - type AttrLabel LabelMnemonicKeyvalPropertyInfo = "Label::mnemonic-keyval" - attrGet _ = getLabelMnemonicKeyval - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "mnemonic-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelMnemonicWidget :: (MonadIO m, LabelK o) => o -> m Widget -getLabelMnemonicWidget obj = liftIO $ getObjectPropertyObject obj "mnemonic-widget" Widget - -setLabelMnemonicWidget :: (MonadIO m, LabelK o, WidgetK a) => o -> a -> m () -setLabelMnemonicWidget obj val = liftIO $ setObjectPropertyObject obj "mnemonic-widget" val - -constructLabelMnemonicWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructLabelMnemonicWidget val = constructObjectPropertyObject "mnemonic-widget" val - -data LabelMnemonicWidgetPropertyInfo -instance AttrInfo LabelMnemonicWidgetPropertyInfo where - type AttrAllowedOps LabelMnemonicWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelMnemonicWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint LabelMnemonicWidgetPropertyInfo = LabelK - type AttrGetType LabelMnemonicWidgetPropertyInfo = Widget - type AttrLabel LabelMnemonicWidgetPropertyInfo = "Label::mnemonic-widget" - attrGet _ = getLabelMnemonicWidget - attrSet _ = setLabelMnemonicWidget - attrConstruct _ = constructLabelMnemonicWidget - --- VVV Prop "pattern" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setLabelPattern :: (MonadIO m, LabelK o) => o -> T.Text -> m () -setLabelPattern obj val = liftIO $ setObjectPropertyString obj "pattern" val - -constructLabelPattern :: T.Text -> IO ([Char], GValue) -constructLabelPattern val = constructObjectPropertyString "pattern" val - -data LabelPatternPropertyInfo -instance AttrInfo LabelPatternPropertyInfo where - type AttrAllowedOps LabelPatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint LabelPatternPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LabelPatternPropertyInfo = LabelK - type AttrGetType LabelPatternPropertyInfo = () - type AttrLabel LabelPatternPropertyInfo = "Label::pattern" - attrGet _ = undefined - attrSet _ = setLabelPattern - attrConstruct _ = constructLabelPattern - --- VVV Prop "selectable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelSelectable :: (MonadIO m, LabelK o) => o -> m Bool -getLabelSelectable obj = liftIO $ getObjectPropertyBool obj "selectable" - -setLabelSelectable :: (MonadIO m, LabelK o) => o -> Bool -> m () -setLabelSelectable obj val = liftIO $ setObjectPropertyBool obj "selectable" val - -constructLabelSelectable :: Bool -> IO ([Char], GValue) -constructLabelSelectable val = constructObjectPropertyBool "selectable" val - -data LabelSelectablePropertyInfo -instance AttrInfo LabelSelectablePropertyInfo where - type AttrAllowedOps LabelSelectablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelSelectablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint LabelSelectablePropertyInfo = LabelK - type AttrGetType LabelSelectablePropertyInfo = Bool - type AttrLabel LabelSelectablePropertyInfo = "Label::selectable" - attrGet _ = getLabelSelectable - attrSet _ = setLabelSelectable - attrConstruct _ = constructLabelSelectable - --- VVV Prop "selection-bound" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getLabelSelectionBound :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelSelectionBound obj = liftIO $ getObjectPropertyCInt obj "selection-bound" - -data LabelSelectionBoundPropertyInfo -instance AttrInfo LabelSelectionBoundPropertyInfo where - type AttrAllowedOps LabelSelectionBoundPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint LabelSelectionBoundPropertyInfo = (~) () - type AttrBaseTypeConstraint LabelSelectionBoundPropertyInfo = LabelK - type AttrGetType LabelSelectionBoundPropertyInfo = Int32 - type AttrLabel LabelSelectionBoundPropertyInfo = "Label::selection-bound" - attrGet _ = getLabelSelectionBound - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "single-line-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelSingleLineMode :: (MonadIO m, LabelK o) => o -> m Bool -getLabelSingleLineMode obj = liftIO $ getObjectPropertyBool obj "single-line-mode" - -setLabelSingleLineMode :: (MonadIO m, LabelK o) => o -> Bool -> m () -setLabelSingleLineMode obj val = liftIO $ setObjectPropertyBool obj "single-line-mode" val - -constructLabelSingleLineMode :: Bool -> IO ([Char], GValue) -constructLabelSingleLineMode val = constructObjectPropertyBool "single-line-mode" val - -data LabelSingleLineModePropertyInfo -instance AttrInfo LabelSingleLineModePropertyInfo where - type AttrAllowedOps LabelSingleLineModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelSingleLineModePropertyInfo = (~) Bool - type AttrBaseTypeConstraint LabelSingleLineModePropertyInfo = LabelK - type AttrGetType LabelSingleLineModePropertyInfo = Bool - type AttrLabel LabelSingleLineModePropertyInfo = "Label::single-line-mode" - attrGet _ = getLabelSingleLineMode - attrSet _ = setLabelSingleLineMode - attrConstruct _ = constructLabelSingleLineMode - --- VVV Prop "track-visited-links" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelTrackVisitedLinks :: (MonadIO m, LabelK o) => o -> m Bool -getLabelTrackVisitedLinks obj = liftIO $ getObjectPropertyBool obj "track-visited-links" - -setLabelTrackVisitedLinks :: (MonadIO m, LabelK o) => o -> Bool -> m () -setLabelTrackVisitedLinks obj val = liftIO $ setObjectPropertyBool obj "track-visited-links" val - -constructLabelTrackVisitedLinks :: Bool -> IO ([Char], GValue) -constructLabelTrackVisitedLinks val = constructObjectPropertyBool "track-visited-links" val - -data LabelTrackVisitedLinksPropertyInfo -instance AttrInfo LabelTrackVisitedLinksPropertyInfo where - type AttrAllowedOps LabelTrackVisitedLinksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelTrackVisitedLinksPropertyInfo = (~) Bool - type AttrBaseTypeConstraint LabelTrackVisitedLinksPropertyInfo = LabelK - type AttrGetType LabelTrackVisitedLinksPropertyInfo = Bool - type AttrLabel LabelTrackVisitedLinksPropertyInfo = "Label::track-visited-links" - attrGet _ = getLabelTrackVisitedLinks - attrSet _ = setLabelTrackVisitedLinks - attrConstruct _ = constructLabelTrackVisitedLinks - --- VVV Prop "use-markup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelUseMarkup :: (MonadIO m, LabelK o) => o -> m Bool -getLabelUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup" - -setLabelUseMarkup :: (MonadIO m, LabelK o) => o -> Bool -> m () -setLabelUseMarkup obj val = liftIO $ setObjectPropertyBool obj "use-markup" val - -constructLabelUseMarkup :: Bool -> IO ([Char], GValue) -constructLabelUseMarkup val = constructObjectPropertyBool "use-markup" val - -data LabelUseMarkupPropertyInfo -instance AttrInfo LabelUseMarkupPropertyInfo where - type AttrAllowedOps LabelUseMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelUseMarkupPropertyInfo = (~) Bool - type AttrBaseTypeConstraint LabelUseMarkupPropertyInfo = LabelK - type AttrGetType LabelUseMarkupPropertyInfo = Bool - type AttrLabel LabelUseMarkupPropertyInfo = "Label::use-markup" - attrGet _ = getLabelUseMarkup - attrSet _ = setLabelUseMarkup - attrConstruct _ = constructLabelUseMarkup - --- VVV Prop "use-underline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelUseUnderline :: (MonadIO m, LabelK o) => o -> m Bool -getLabelUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline" - -setLabelUseUnderline :: (MonadIO m, LabelK o) => o -> Bool -> m () -setLabelUseUnderline obj val = liftIO $ setObjectPropertyBool obj "use-underline" val - -constructLabelUseUnderline :: Bool -> IO ([Char], GValue) -constructLabelUseUnderline val = constructObjectPropertyBool "use-underline" val - -data LabelUseUnderlinePropertyInfo -instance AttrInfo LabelUseUnderlinePropertyInfo where - type AttrAllowedOps LabelUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelUseUnderlinePropertyInfo = (~) Bool - type AttrBaseTypeConstraint LabelUseUnderlinePropertyInfo = LabelK - type AttrGetType LabelUseUnderlinePropertyInfo = Bool - type AttrLabel LabelUseUnderlinePropertyInfo = "Label::use-underline" - attrGet _ = getLabelUseUnderline - attrSet _ = setLabelUseUnderline - attrConstruct _ = constructLabelUseUnderline - --- VVV Prop "width-chars" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelWidthChars :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" - -setLabelWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m () -setLabelWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val - -constructLabelWidthChars :: Int32 -> IO ([Char], GValue) -constructLabelWidthChars val = constructObjectPropertyCInt "width-chars" val - -data LabelWidthCharsPropertyInfo -instance AttrInfo LabelWidthCharsPropertyInfo where - type AttrAllowedOps LabelWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelWidthCharsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint LabelWidthCharsPropertyInfo = LabelK - type AttrGetType LabelWidthCharsPropertyInfo = Int32 - type AttrLabel LabelWidthCharsPropertyInfo = "Label::width-chars" - attrGet _ = getLabelWidthChars - attrSet _ = setLabelWidthChars - attrConstruct _ = constructLabelWidthChars - --- VVV Prop "wrap" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelWrap :: (MonadIO m, LabelK o) => o -> m Bool -getLabelWrap obj = liftIO $ getObjectPropertyBool obj "wrap" - -setLabelWrap :: (MonadIO m, LabelK o) => o -> Bool -> m () -setLabelWrap obj val = liftIO $ setObjectPropertyBool obj "wrap" val - -constructLabelWrap :: Bool -> IO ([Char], GValue) -constructLabelWrap val = constructObjectPropertyBool "wrap" val - -data LabelWrapPropertyInfo -instance AttrInfo LabelWrapPropertyInfo where - type AttrAllowedOps LabelWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelWrapPropertyInfo = (~) Bool - type AttrBaseTypeConstraint LabelWrapPropertyInfo = LabelK - type AttrGetType LabelWrapPropertyInfo = Bool - type AttrLabel LabelWrapPropertyInfo = "Label::wrap" - attrGet _ = getLabelWrap - attrSet _ = setLabelWrap - attrConstruct _ = constructLabelWrap - --- VVV Prop "wrap-mode" - -- Type: TInterface "Pango" "WrapMode" - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelWrapMode :: (MonadIO m, LabelK o) => o -> m Pango.WrapMode -getLabelWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode" - -setLabelWrapMode :: (MonadIO m, LabelK o) => o -> Pango.WrapMode -> m () -setLabelWrapMode obj val = liftIO $ setObjectPropertyEnum obj "wrap-mode" val - -constructLabelWrapMode :: Pango.WrapMode -> IO ([Char], GValue) -constructLabelWrapMode val = constructObjectPropertyEnum "wrap-mode" val - -data LabelWrapModePropertyInfo -instance AttrInfo LabelWrapModePropertyInfo where - type AttrAllowedOps LabelWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelWrapModePropertyInfo = (~) Pango.WrapMode - type AttrBaseTypeConstraint LabelWrapModePropertyInfo = LabelK - type AttrGetType LabelWrapModePropertyInfo = Pango.WrapMode - type AttrLabel LabelWrapModePropertyInfo = "Label::wrap-mode" - attrGet _ = getLabelWrapMode - attrSet _ = setLabelWrapMode - attrConstruct _ = constructLabelWrapMode - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelXalign :: (MonadIO m, LabelK o) => o -> m Float -getLabelXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" - -setLabelXalign :: (MonadIO m, LabelK o) => o -> Float -> m () -setLabelXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val - -constructLabelXalign :: Float -> IO ([Char], GValue) -constructLabelXalign val = constructObjectPropertyFloat "xalign" val - -data LabelXalignPropertyInfo -instance AttrInfo LabelXalignPropertyInfo where - type AttrAllowedOps LabelXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelXalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint LabelXalignPropertyInfo = LabelK - type AttrGetType LabelXalignPropertyInfo = Float - type AttrLabel LabelXalignPropertyInfo = "Label::xalign" - attrGet _ = getLabelXalign - attrSet _ = setLabelXalign - attrConstruct _ = constructLabelXalign - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelYalign :: (MonadIO m, LabelK o) => o -> m Float -getLabelYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" - -setLabelYalign :: (MonadIO m, LabelK o) => o -> Float -> m () -setLabelYalign obj val = liftIO $ setObjectPropertyFloat obj "yalign" val - -constructLabelYalign :: Float -> IO ([Char], GValue) -constructLabelYalign val = constructObjectPropertyFloat "yalign" val - -data LabelYalignPropertyInfo -instance AttrInfo LabelYalignPropertyInfo where - type AttrAllowedOps LabelYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelYalignPropertyInfo = (~) Float - type AttrBaseTypeConstraint LabelYalignPropertyInfo = LabelK - type AttrGetType LabelYalignPropertyInfo = Float - type AttrLabel LabelYalignPropertyInfo = "Label::yalign" - attrGet _ = getLabelYalign - attrSet _ = setLabelYalign - attrConstruct _ = constructLabelYalign - -type instance AttributeList Label = LabelAttributeList -type LabelAttributeList = ('[ '("angle", LabelAnglePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", LabelCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-width-chars", LabelMaxWidthCharsPropertyInfo), '("mnemonic-keyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonic-widget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selection-bound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("single-line-mode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("track-visited-links", LabelTrackVisitedLinksPropertyInfo), '("use-markup", LabelUseMarkupPropertyInfo), '("use-underline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", LabelWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrap-mode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) - -data LabelActivateCurrentLinkSignalInfo -instance SignalInfo LabelActivateCurrentLinkSignalInfo where - type HaskellCallbackType LabelActivateCurrentLinkSignalInfo = LabelActivateCurrentLinkCallback - connectSignal _ = connectLabelActivateCurrentLink - -data LabelActivateLinkSignalInfo -instance SignalInfo LabelActivateLinkSignalInfo where - type HaskellCallbackType LabelActivateLinkSignalInfo = LabelActivateLinkCallback - connectSignal _ = connectLabelActivateLink - -data LabelCopyClipboardSignalInfo -instance SignalInfo LabelCopyClipboardSignalInfo where - type HaskellCallbackType LabelCopyClipboardSignalInfo = LabelCopyClipboardCallback - connectSignal _ = connectLabelCopyClipboard - -data LabelMoveCursorSignalInfo -instance SignalInfo LabelMoveCursorSignalInfo where - type HaskellCallbackType LabelMoveCursorSignalInfo = LabelMoveCursorCallback - connectSignal _ = connectLabelMoveCursor - -data LabelPopulatePopupSignalInfo -instance SignalInfo LabelPopulatePopupSignalInfo where - type HaskellCallbackType LabelPopulatePopupSignalInfo = LabelPopulatePopupCallback - connectSignal _ = connectLabelPopulatePopup - -type instance SignalList Label = LabelSignalList -type LabelSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current-link", LabelActivateCurrentLinkSignalInfo), '("activate-link", LabelActivateLinkSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", LabelCopyClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", LabelMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", LabelPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Label::new --- method type : Constructor --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Label" --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_new" gtk_label_new :: - CString -> -- str : TBasicType TUTF8 - IO (Ptr Label) - - -labelNew :: - (MonadIO m) => - Maybe (T.Text) -> -- str - m Label -labelNew str = liftIO $ do - maybeStr <- case str of - Nothing -> return nullPtr - Just jStr -> do - jStr' <- textToCString jStr - return jStr' - result <- gtk_label_new maybeStr - checkUnexpectedReturnNULL "gtk_label_new" result - result' <- (newObject Label) result - freeMem maybeStr - return result' - --- method Label::new_with_mnemonic --- method type : Constructor --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Label" --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_new_with_mnemonic" gtk_label_new_with_mnemonic :: - CString -> -- str : TBasicType TUTF8 - IO (Ptr Label) - - -labelNewWithMnemonic :: - (MonadIO m) => - Maybe (T.Text) -> -- str - m Label -labelNewWithMnemonic str = liftIO $ do - maybeStr <- case str of - Nothing -> return nullPtr - Just jStr -> do - jStr' <- textToCString jStr - return jStr' - result <- gtk_label_new_with_mnemonic maybeStr - checkUnexpectedReturnNULL "gtk_label_new_with_mnemonic" result - result' <- (newObject Label) result - freeMem maybeStr - return result' - --- method Label::get_angle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_angle" gtk_label_get_angle :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CDouble - - -labelGetAngle :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Double -labelGetAngle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_angle _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Label::get_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "AttrList" --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_attributes" gtk_label_get_attributes :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO (Ptr Pango.AttrList) - - -labelGetAttributes :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Pango.AttrList -labelGetAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_attributes _obj' - checkUnexpectedReturnNULL "gtk_label_get_attributes" result - result' <- (newBoxed Pango.AttrList) result - touchManagedPtr _obj - return result' - --- method Label::get_current_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_current_uri" gtk_label_get_current_uri :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CString - - -labelGetCurrentUri :: - (MonadIO m, LabelK a) => - a -> -- _obj - m T.Text -labelGetCurrentUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_current_uri _obj' - checkUnexpectedReturnNULL "gtk_label_get_current_uri" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Label::get_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "EllipsizeMode" --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_ellipsize" gtk_label_get_ellipsize :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CUInt - - -labelGetEllipsize :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Pango.EllipsizeMode -labelGetEllipsize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_ellipsize _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Label::get_justify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Justification" --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_justify" gtk_label_get_justify :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CUInt - - -labelGetJustify :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Justification -labelGetJustify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_justify _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Label::get_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_label" gtk_label_get_label :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CString - - -labelGetLabel :: - (MonadIO m, LabelK a) => - a -> -- _obj - m T.Text -labelGetLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_label _obj' - checkUnexpectedReturnNULL "gtk_label_get_label" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Label::get_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "Layout" --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_layout" gtk_label_get_layout :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO (Ptr Pango.Layout) - - -labelGetLayout :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Pango.Layout -labelGetLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_layout _obj' - checkUnexpectedReturnNULL "gtk_label_get_layout" result - result' <- (newObject Pango.Layout) result - touchManagedPtr _obj - return result' - --- method Label::get_layout_offsets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_layout_offsets" gtk_label_get_layout_offsets :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - IO () - - -labelGetLayoutOffsets :: - (MonadIO m, LabelK a) => - a -> -- _obj - m (Int32,Int32) -labelGetLayoutOffsets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - gtk_label_get_layout_offsets _obj' x y - x' <- peek x - y' <- peek y - touchManagedPtr _obj - freeMem x - freeMem y - return (x', y') - --- method Label::get_line_wrap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_line_wrap" gtk_label_get_line_wrap :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CInt - - -labelGetLineWrap :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Bool -labelGetLineWrap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_line_wrap _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Label::get_line_wrap_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "WrapMode" --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_line_wrap_mode" gtk_label_get_line_wrap_mode :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CUInt - - -labelGetLineWrapMode :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Pango.WrapMode -labelGetLineWrapMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_line_wrap_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Label::get_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_lines" gtk_label_get_lines :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO Int32 - - -labelGetLines :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Int32 -labelGetLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_lines _obj' - touchManagedPtr _obj - return result - --- method Label::get_max_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_max_width_chars" gtk_label_get_max_width_chars :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO Int32 - - -labelGetMaxWidthChars :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Int32 -labelGetMaxWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_max_width_chars _obj' - touchManagedPtr _obj - return result - --- method Label::get_mnemonic_keyval --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_mnemonic_keyval" gtk_label_get_mnemonic_keyval :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO Word32 - - -labelGetMnemonicKeyval :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Word32 -labelGetMnemonicKeyval _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_mnemonic_keyval _obj' - touchManagedPtr _obj - return result - --- method Label::get_mnemonic_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_mnemonic_widget" gtk_label_get_mnemonic_widget :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO (Ptr Widget) - - -labelGetMnemonicWidget :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Widget -labelGetMnemonicWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_mnemonic_widget _obj' - checkUnexpectedReturnNULL "gtk_label_get_mnemonic_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Label::get_selectable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_selectable" gtk_label_get_selectable :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CInt - - -labelGetSelectable :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Bool -labelGetSelectable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_selectable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Label::get_selection_bounds --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_selection_bounds" gtk_label_get_selection_bounds :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Ptr Int32 -> -- start : TBasicType TInt32 - Ptr Int32 -> -- end : TBasicType TInt32 - IO CInt - - -labelGetSelectionBounds :: - (MonadIO m, LabelK a) => - a -> -- _obj - m (Bool,Int32,Int32) -labelGetSelectionBounds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start <- allocMem :: IO (Ptr Int32) - end <- allocMem :: IO (Ptr Int32) - result <- gtk_label_get_selection_bounds _obj' start end - let result' = (/= 0) result - start' <- peek start - end' <- peek end - touchManagedPtr _obj - freeMem start - freeMem end - return (result', start', end') - --- method Label::get_single_line_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_single_line_mode" gtk_label_get_single_line_mode :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CInt - - -labelGetSingleLineMode :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Bool -labelGetSingleLineMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_single_line_mode _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Label::get_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_text" gtk_label_get_text :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CString - - -labelGetText :: - (MonadIO m, LabelK a) => - a -> -- _obj - m T.Text -labelGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_text _obj' - checkUnexpectedReturnNULL "gtk_label_get_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Label::get_track_visited_links --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_track_visited_links" gtk_label_get_track_visited_links :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CInt - - -labelGetTrackVisitedLinks :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Bool -labelGetTrackVisitedLinks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_track_visited_links _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Label::get_use_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_use_markup" gtk_label_get_use_markup :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CInt - - -labelGetUseMarkup :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Bool -labelGetUseMarkup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_use_markup _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Label::get_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_use_underline" gtk_label_get_use_underline :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CInt - - -labelGetUseUnderline :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Bool -labelGetUseUnderline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_use_underline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Label::get_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_width_chars" gtk_label_get_width_chars :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO Int32 - - -labelGetWidthChars :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Int32 -labelGetWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_width_chars _obj' - touchManagedPtr _obj - return result - --- method Label::get_xalign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TFloat --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_xalign" gtk_label_get_xalign :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CFloat - - -labelGetXalign :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Float -labelGetXalign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_xalign _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Label::get_yalign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TFloat --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_get_yalign" gtk_label_get_yalign :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - IO CFloat - - -labelGetYalign :: - (MonadIO m, LabelK a) => - a -> -- _obj - m Float -labelGetYalign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_yalign _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Label::select_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_select_region" gtk_label_select_region :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- start_offset : TBasicType TInt32 - Int32 -> -- end_offset : TBasicType TInt32 - IO () - - -labelSelectRegion :: - (MonadIO m, LabelK a) => - a -> -- _obj - Int32 -> -- start_offset - Int32 -> -- end_offset - m () -labelSelectRegion _obj start_offset end_offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_label_select_region _obj' start_offset end_offset - touchManagedPtr _obj - return () - --- method Label::set_angle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_angle" gtk_label_set_angle :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CDouble -> -- angle : TBasicType TDouble - IO () - - -labelSetAngle :: - (MonadIO m, LabelK a) => - a -> -- _obj - Double -> -- angle - m () -labelSetAngle _obj angle = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let angle' = realToFrac angle - gtk_label_set_angle _obj' angle' - touchManagedPtr _obj - return () - --- method Label::set_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_attributes" gtk_label_set_attributes :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Ptr Pango.AttrList -> -- attrs : TInterface "Pango" "AttrList" - IO () - - -labelSetAttributes :: - (MonadIO m, LabelK a) => - a -> -- _obj - Maybe (Pango.AttrList) -> -- attrs - m () -labelSetAttributes _obj attrs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAttrs <- case attrs of - Nothing -> return nullPtr - Just jAttrs -> do - let jAttrs' = unsafeManagedPtrGetPtr jAttrs - return jAttrs' - gtk_label_set_attributes _obj' maybeAttrs - touchManagedPtr _obj - whenJust attrs touchManagedPtr - return () - --- method Label::set_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_ellipsize" gtk_label_set_ellipsize :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CUInt -> -- mode : TInterface "Pango" "EllipsizeMode" - IO () - - -labelSetEllipsize :: - (MonadIO m, LabelK a) => - a -> -- _obj - Pango.EllipsizeMode -> -- mode - m () -labelSetEllipsize _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_label_set_ellipsize _obj' mode' - touchManagedPtr _obj - return () - --- method Label::set_justify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "jtype", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "jtype", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_justify" gtk_label_set_justify :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CUInt -> -- jtype : TInterface "Gtk" "Justification" - IO () - - -labelSetJustify :: - (MonadIO m, LabelK a) => - a -> -- _obj - Justification -> -- jtype - m () -labelSetJustify _obj jtype = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let jtype' = (fromIntegral . fromEnum) jtype - gtk_label_set_justify _obj' jtype' - touchManagedPtr _obj - return () - --- method Label::set_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_label" gtk_label_set_label :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CString -> -- str : TBasicType TUTF8 - IO () - - -labelSetLabel :: - (MonadIO m, LabelK a) => - a -> -- _obj - T.Text -> -- str - m () -labelSetLabel _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_label _obj' str' - touchManagedPtr _obj - freeMem str' - return () - --- method Label::set_line_wrap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_line_wrap" gtk_label_set_line_wrap :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CInt -> -- wrap : TBasicType TBoolean - IO () - - -labelSetLineWrap :: - (MonadIO m, LabelK a) => - a -> -- _obj - Bool -> -- wrap - m () -labelSetLineWrap _obj wrap = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrap' = (fromIntegral . fromEnum) wrap - gtk_label_set_line_wrap _obj' wrap' - touchManagedPtr _obj - return () - --- method Label::set_line_wrap_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_mode", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_mode", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_line_wrap_mode" gtk_label_set_line_wrap_mode :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CUInt -> -- wrap_mode : TInterface "Pango" "WrapMode" - IO () - - -labelSetLineWrapMode :: - (MonadIO m, LabelK a) => - a -> -- _obj - Pango.WrapMode -> -- wrap_mode - m () -labelSetLineWrapMode _obj wrap_mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrap_mode' = (fromIntegral . fromEnum) wrap_mode - gtk_label_set_line_wrap_mode _obj' wrap_mode' - touchManagedPtr _obj - return () - --- method Label::set_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_lines" gtk_label_set_lines :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- lines : TBasicType TInt32 - IO () - - -labelSetLines :: - (MonadIO m, LabelK a) => - a -> -- _obj - Int32 -> -- lines - m () -labelSetLines _obj lines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_label_set_lines _obj' lines - touchManagedPtr _obj - return () - --- method Label::set_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_markup" gtk_label_set_markup :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CString -> -- str : TBasicType TUTF8 - IO () - - -labelSetMarkup :: - (MonadIO m, LabelK a) => - a -> -- _obj - T.Text -> -- str - m () -labelSetMarkup _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_markup _obj' str' - touchManagedPtr _obj - freeMem str' - return () - --- method Label::set_markup_with_mnemonic --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_markup_with_mnemonic" gtk_label_set_markup_with_mnemonic :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CString -> -- str : TBasicType TUTF8 - IO () - - -labelSetMarkupWithMnemonic :: - (MonadIO m, LabelK a) => - a -> -- _obj - T.Text -> -- str - m () -labelSetMarkupWithMnemonic _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_markup_with_mnemonic _obj' str' - touchManagedPtr _obj - freeMem str' - return () - --- method Label::set_max_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_max_width_chars" gtk_label_set_max_width_chars :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- n_chars : TBasicType TInt32 - IO () - - -labelSetMaxWidthChars :: - (MonadIO m, LabelK a) => - a -> -- _obj - Int32 -> -- n_chars - m () -labelSetMaxWidthChars _obj n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_label_set_max_width_chars _obj' n_chars - touchManagedPtr _obj - return () - --- method Label::set_mnemonic_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_mnemonic_widget" gtk_label_set_mnemonic_widget :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO () - - -labelSetMnemonicWidget :: - (MonadIO m, LabelK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- widget - m () -labelSetMnemonicWidget _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeWidget <- case widget of - Nothing -> return nullPtr - Just jWidget -> do - let jWidget' = unsafeManagedPtrCastPtr jWidget - return jWidget' - gtk_label_set_mnemonic_widget _obj' maybeWidget - touchManagedPtr _obj - whenJust widget touchManagedPtr - return () - --- method Label::set_pattern --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_pattern" gtk_label_set_pattern :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CString -> -- pattern : TBasicType TUTF8 - IO () - - -labelSetPattern :: - (MonadIO m, LabelK a) => - a -> -- _obj - T.Text -> -- pattern - m () -labelSetPattern _obj pattern = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pattern' <- textToCString pattern - gtk_label_set_pattern _obj' pattern' - touchManagedPtr _obj - freeMem pattern' - return () - --- method Label::set_selectable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_selectable" gtk_label_set_selectable :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CInt -> -- setting : TBasicType TBoolean - IO () - - -labelSetSelectable :: - (MonadIO m, LabelK a) => - a -> -- _obj - Bool -> -- setting - m () -labelSetSelectable _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_label_set_selectable _obj' setting' - touchManagedPtr _obj - return () - --- method Label::set_single_line_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single_line_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single_line_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_single_line_mode" gtk_label_set_single_line_mode :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CInt -> -- single_line_mode : TBasicType TBoolean - IO () - - -labelSetSingleLineMode :: - (MonadIO m, LabelK a) => - a -> -- _obj - Bool -> -- single_line_mode - m () -labelSetSingleLineMode _obj single_line_mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let single_line_mode' = (fromIntegral . fromEnum) single_line_mode - gtk_label_set_single_line_mode _obj' single_line_mode' - touchManagedPtr _obj - return () - --- method Label::set_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_text" gtk_label_set_text :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CString -> -- str : TBasicType TUTF8 - IO () - - -labelSetText :: - (MonadIO m, LabelK a) => - a -> -- _obj - T.Text -> -- str - m () -labelSetText _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_text _obj' str' - touchManagedPtr _obj - freeMem str' - return () - --- method Label::set_text_with_mnemonic --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_text_with_mnemonic" gtk_label_set_text_with_mnemonic :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CString -> -- str : TBasicType TUTF8 - IO () - - -labelSetTextWithMnemonic :: - (MonadIO m, LabelK a) => - a -> -- _obj - T.Text -> -- str - m () -labelSetTextWithMnemonic _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_text_with_mnemonic _obj' str' - touchManagedPtr _obj - freeMem str' - return () - --- method Label::set_track_visited_links --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_links", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_links", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_track_visited_links" gtk_label_set_track_visited_links :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CInt -> -- track_links : TBasicType TBoolean - IO () - - -labelSetTrackVisitedLinks :: - (MonadIO m, LabelK a) => - a -> -- _obj - Bool -> -- track_links - m () -labelSetTrackVisitedLinks _obj track_links = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let track_links' = (fromIntegral . fromEnum) track_links - gtk_label_set_track_visited_links _obj' track_links' - touchManagedPtr _obj - return () - --- method Label::set_use_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_use_markup" gtk_label_set_use_markup :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CInt -> -- setting : TBasicType TBoolean - IO () - - -labelSetUseMarkup :: - (MonadIO m, LabelK a) => - a -> -- _obj - Bool -> -- setting - m () -labelSetUseMarkup _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_label_set_use_markup _obj' setting' - touchManagedPtr _obj - return () - --- method Label::set_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_use_underline" gtk_label_set_use_underline :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CInt -> -- setting : TBasicType TBoolean - IO () - - -labelSetUseUnderline :: - (MonadIO m, LabelK a) => - a -> -- _obj - Bool -> -- setting - m () -labelSetUseUnderline _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_label_set_use_underline _obj' setting' - touchManagedPtr _obj - return () - --- method Label::set_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_width_chars" gtk_label_set_width_chars :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- n_chars : TBasicType TInt32 - IO () - - -labelSetWidthChars :: - (MonadIO m, LabelK a) => - a -> -- _obj - Int32 -> -- n_chars - m () -labelSetWidthChars _obj n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_label_set_width_chars _obj' n_chars - touchManagedPtr _obj - return () - --- method Label::set_xalign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_xalign" gtk_label_set_xalign :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CFloat -> -- xalign : TBasicType TFloat - IO () - - -labelSetXalign :: - (MonadIO m, LabelK a) => - a -> -- _obj - Float -> -- xalign - m () -labelSetXalign _obj xalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - gtk_label_set_xalign _obj' xalign' - touchManagedPtr _obj - return () - --- method Label::set_yalign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_yalign" gtk_label_set_yalign :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - CFloat -> -- yalign : TBasicType TFloat - IO () - - -labelSetYalign :: - (MonadIO m, LabelK a) => - a -> -- _obj - Float -> -- yalign - m () -labelSetYalign _obj yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let yalign' = realToFrac yalign - gtk_label_set_yalign _obj' yalign' - touchManagedPtr _obj - return () + +{- | +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.Objects.Label + ( + +-- * Exported types + Label(..) , + LabelK , + toLabel , + noLabel , + + + -- * Methods +-- ** labelGetAngle + LabelGetAngleMethodInfo , + labelGetAngle , + + +-- ** labelGetAttributes + LabelGetAttributesMethodInfo , + labelGetAttributes , + + +-- ** labelGetCurrentUri + LabelGetCurrentUriMethodInfo , + labelGetCurrentUri , + + +-- ** labelGetEllipsize + LabelGetEllipsizeMethodInfo , + labelGetEllipsize , + + +-- ** labelGetJustify + LabelGetJustifyMethodInfo , + labelGetJustify , + + +-- ** labelGetLabel + LabelGetLabelMethodInfo , + labelGetLabel , + + +-- ** labelGetLayout + LabelGetLayoutMethodInfo , + labelGetLayout , + + +-- ** labelGetLayoutOffsets + LabelGetLayoutOffsetsMethodInfo , + labelGetLayoutOffsets , + + +-- ** labelGetLineWrap + LabelGetLineWrapMethodInfo , + labelGetLineWrap , + + +-- ** labelGetLineWrapMode + LabelGetLineWrapModeMethodInfo , + labelGetLineWrapMode , + + +-- ** labelGetLines + LabelGetLinesMethodInfo , + labelGetLines , + + +-- ** labelGetMaxWidthChars + LabelGetMaxWidthCharsMethodInfo , + labelGetMaxWidthChars , + + +-- ** labelGetMnemonicKeyval + LabelGetMnemonicKeyvalMethodInfo , + labelGetMnemonicKeyval , + + +-- ** labelGetMnemonicWidget + LabelGetMnemonicWidgetMethodInfo , + labelGetMnemonicWidget , + + +-- ** labelGetSelectable + LabelGetSelectableMethodInfo , + labelGetSelectable , + + +-- ** labelGetSelectionBounds + LabelGetSelectionBoundsMethodInfo , + labelGetSelectionBounds , + + +-- ** labelGetSingleLineMode + LabelGetSingleLineModeMethodInfo , + labelGetSingleLineMode , + + +-- ** labelGetText + LabelGetTextMethodInfo , + labelGetText , + + +-- ** labelGetTrackVisitedLinks + LabelGetTrackVisitedLinksMethodInfo , + labelGetTrackVisitedLinks , + + +-- ** labelGetUseMarkup + LabelGetUseMarkupMethodInfo , + labelGetUseMarkup , + + +-- ** labelGetUseUnderline + LabelGetUseUnderlineMethodInfo , + labelGetUseUnderline , + + +-- ** labelGetWidthChars + LabelGetWidthCharsMethodInfo , + labelGetWidthChars , + + +-- ** labelGetXalign + LabelGetXalignMethodInfo , + labelGetXalign , + + +-- ** labelGetYalign + LabelGetYalignMethodInfo , + labelGetYalign , + + +-- ** labelNew + labelNew , + + +-- ** labelNewWithMnemonic + labelNewWithMnemonic , + + +-- ** labelSelectRegion + LabelSelectRegionMethodInfo , + labelSelectRegion , + + +-- ** labelSetAngle + LabelSetAngleMethodInfo , + labelSetAngle , + + +-- ** labelSetAttributes + LabelSetAttributesMethodInfo , + labelSetAttributes , + + +-- ** labelSetEllipsize + LabelSetEllipsizeMethodInfo , + labelSetEllipsize , + + +-- ** labelSetJustify + LabelSetJustifyMethodInfo , + labelSetJustify , + + +-- ** labelSetLabel + LabelSetLabelMethodInfo , + labelSetLabel , + + +-- ** labelSetLineWrap + LabelSetLineWrapMethodInfo , + labelSetLineWrap , + + +-- ** labelSetLineWrapMode + LabelSetLineWrapModeMethodInfo , + labelSetLineWrapMode , + + +-- ** labelSetLines + LabelSetLinesMethodInfo , + labelSetLines , + + +-- ** labelSetMarkup + LabelSetMarkupMethodInfo , + labelSetMarkup , + + +-- ** labelSetMarkupWithMnemonic + LabelSetMarkupWithMnemonicMethodInfo , + labelSetMarkupWithMnemonic , + + +-- ** labelSetMaxWidthChars + LabelSetMaxWidthCharsMethodInfo , + labelSetMaxWidthChars , + + +-- ** labelSetMnemonicWidget + LabelSetMnemonicWidgetMethodInfo , + labelSetMnemonicWidget , + + +-- ** labelSetPattern + LabelSetPatternMethodInfo , + labelSetPattern , + + +-- ** labelSetSelectable + LabelSetSelectableMethodInfo , + labelSetSelectable , + + +-- ** labelSetSingleLineMode + LabelSetSingleLineModeMethodInfo , + labelSetSingleLineMode , + + +-- ** labelSetText + LabelSetTextMethodInfo , + labelSetText , + + +-- ** labelSetTextWithMnemonic + LabelSetTextWithMnemonicMethodInfo , + labelSetTextWithMnemonic , + + +-- ** labelSetTrackVisitedLinks + LabelSetTrackVisitedLinksMethodInfo , + labelSetTrackVisitedLinks , + + +-- ** labelSetUseMarkup + LabelSetUseMarkupMethodInfo , + labelSetUseMarkup , + + +-- ** labelSetUseUnderline + LabelSetUseUnderlineMethodInfo , + labelSetUseUnderline , + + +-- ** labelSetWidthChars + LabelSetWidthCharsMethodInfo , + labelSetWidthChars , + + +-- ** labelSetXalign + LabelSetXalignMethodInfo , + labelSetXalign , + + +-- ** labelSetYalign + LabelSetYalignMethodInfo , + labelSetYalign , + + + + + -- * Properties +-- ** Angle + LabelAnglePropertyInfo , + constructLabelAngle , + getLabelAngle , + setLabelAngle , + + +-- ** Attributes + LabelAttributesPropertyInfo , + constructLabelAttributes , + getLabelAttributes , + setLabelAttributes , + + +-- ** CursorPosition + LabelCursorPositionPropertyInfo , + getLabelCursorPosition , + + +-- ** Ellipsize + LabelEllipsizePropertyInfo , + constructLabelEllipsize , + getLabelEllipsize , + setLabelEllipsize , + + +-- ** Justify + LabelJustifyPropertyInfo , + constructLabelJustify , + getLabelJustify , + setLabelJustify , + + +-- ** Label + LabelLabelPropertyInfo , + constructLabelLabel , + getLabelLabel , + setLabelLabel , + + +-- ** Lines + LabelLinesPropertyInfo , + constructLabelLines , + getLabelLines , + setLabelLines , + + +-- ** MaxWidthChars + LabelMaxWidthCharsPropertyInfo , + constructLabelMaxWidthChars , + getLabelMaxWidthChars , + setLabelMaxWidthChars , + + +-- ** MnemonicKeyval + LabelMnemonicKeyvalPropertyInfo , + getLabelMnemonicKeyval , + + +-- ** MnemonicWidget + LabelMnemonicWidgetPropertyInfo , + constructLabelMnemonicWidget , + getLabelMnemonicWidget , + setLabelMnemonicWidget , + + +-- ** Pattern + LabelPatternPropertyInfo , + constructLabelPattern , + setLabelPattern , + + +-- ** Selectable + LabelSelectablePropertyInfo , + constructLabelSelectable , + getLabelSelectable , + setLabelSelectable , + + +-- ** SelectionBound + LabelSelectionBoundPropertyInfo , + getLabelSelectionBound , + + +-- ** SingleLineMode + LabelSingleLineModePropertyInfo , + constructLabelSingleLineMode , + getLabelSingleLineMode , + setLabelSingleLineMode , + + +-- ** TrackVisitedLinks + LabelTrackVisitedLinksPropertyInfo , + constructLabelTrackVisitedLinks , + getLabelTrackVisitedLinks , + setLabelTrackVisitedLinks , + + +-- ** UseMarkup + LabelUseMarkupPropertyInfo , + constructLabelUseMarkup , + getLabelUseMarkup , + setLabelUseMarkup , + + +-- ** UseUnderline + LabelUseUnderlinePropertyInfo , + constructLabelUseUnderline , + getLabelUseUnderline , + setLabelUseUnderline , + + +-- ** WidthChars + LabelWidthCharsPropertyInfo , + constructLabelWidthChars , + getLabelWidthChars , + setLabelWidthChars , + + +-- ** Wrap + LabelWrapPropertyInfo , + constructLabelWrap , + getLabelWrap , + setLabelWrap , + + +-- ** WrapMode + LabelWrapModePropertyInfo , + constructLabelWrapMode , + getLabelWrapMode , + setLabelWrapMode , + + +-- ** Xalign + LabelXalignPropertyInfo , + constructLabelXalign , + getLabelXalign , + setLabelXalign , + + +-- ** Yalign + LabelYalignPropertyInfo , + constructLabelYalign , + getLabelYalign , + setLabelYalign , + + + + + -- * Signals +-- ** ActivateCurrentLink + LabelActivateCurrentLinkCallback , + LabelActivateCurrentLinkCallbackC , + LabelActivateCurrentLinkSignalInfo , + afterLabelActivateCurrentLink , + labelActivateCurrentLinkCallbackWrapper , + labelActivateCurrentLinkClosure , + mkLabelActivateCurrentLinkCallback , + noLabelActivateCurrentLinkCallback , + onLabelActivateCurrentLink , + + +-- ** ActivateLink + LabelActivateLinkCallback , + LabelActivateLinkCallbackC , + LabelActivateLinkSignalInfo , + afterLabelActivateLink , + labelActivateLinkCallbackWrapper , + labelActivateLinkClosure , + mkLabelActivateLinkCallback , + noLabelActivateLinkCallback , + onLabelActivateLink , + + +-- ** CopyClipboard + LabelCopyClipboardCallback , + LabelCopyClipboardCallbackC , + LabelCopyClipboardSignalInfo , + afterLabelCopyClipboard , + labelCopyClipboardCallbackWrapper , + labelCopyClipboardClosure , + mkLabelCopyClipboardCallback , + noLabelCopyClipboardCallback , + onLabelCopyClipboard , + + +-- ** MoveCursor + LabelMoveCursorCallback , + LabelMoveCursorCallbackC , + LabelMoveCursorSignalInfo , + afterLabelMoveCursor , + labelMoveCursorCallbackWrapper , + labelMoveCursorClosure , + mkLabelMoveCursorCallback , + noLabelMoveCursorCallback , + onLabelMoveCursor , + + +-- ** PopulatePopup + LabelPopulatePopupCallback , + LabelPopulatePopupCallbackC , + LabelPopulatePopupSignalInfo , + afterLabelPopulatePopup , + labelPopulatePopupCallbackWrapper , + labelPopulatePopupClosure , + mkLabelPopulatePopupCallback , + noLabelPopulatePopupCallback , + onLabelPopulatePopup , + + + + + ) 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.Atk as Atk +import qualified GI.GObject as GObject +import qualified GI.Pango as Pango + +newtype Label = Label (ForeignPtr Label) +foreign import ccall "gtk_label_get_type" + c_gtk_label_get_type :: IO GType + +type instance ParentTypes Label = LabelParentTypes +type LabelParentTypes = '[Misc, Widget, GObject.Object, Atk.ImplementorIface, Buildable] + +instance GObject Label where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_gtk_label_get_type + + +class GObject o => LabelK o +instance (GObject o, IsDescendantOf Label o) => LabelK o + +toLabel :: LabelK o => o -> IO Label +toLabel = unsafeCastTo Label + +noLabel :: Maybe Label +noLabel = Nothing + +type family ResolveLabelMethod (t :: Symbol) (o :: *) :: * where + ResolveLabelMethod "activate" o = WidgetActivateMethodInfo + ResolveLabelMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveLabelMethod "addChild" o = BuildableAddChildMethodInfo + ResolveLabelMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveLabelMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveLabelMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveLabelMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveLabelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveLabelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveLabelMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveLabelMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveLabelMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveLabelMethod "classPath" o = WidgetClassPathMethodInfo + ResolveLabelMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveLabelMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveLabelMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveLabelMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveLabelMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveLabelMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveLabelMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveLabelMethod "destroy" o = WidgetDestroyMethodInfo + ResolveLabelMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveLabelMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveLabelMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveLabelMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveLabelMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveLabelMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveLabelMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveLabelMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveLabelMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveLabelMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveLabelMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveLabelMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveLabelMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveLabelMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveLabelMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveLabelMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveLabelMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveLabelMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveLabelMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveLabelMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveLabelMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveLabelMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveLabelMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveLabelMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveLabelMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveLabelMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveLabelMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveLabelMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveLabelMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveLabelMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveLabelMethod "draw" o = WidgetDrawMethodInfo + ResolveLabelMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveLabelMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveLabelMethod "event" o = WidgetEventMethodInfo + ResolveLabelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveLabelMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveLabelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveLabelMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveLabelMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveLabelMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveLabelMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveLabelMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveLabelMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveLabelMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveLabelMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveLabelMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveLabelMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveLabelMethod "hide" o = WidgetHideMethodInfo + ResolveLabelMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveLabelMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveLabelMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveLabelMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveLabelMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveLabelMethod "intersect" o = WidgetIntersectMethodInfo + ResolveLabelMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveLabelMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveLabelMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveLabelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveLabelMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveLabelMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveLabelMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveLabelMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveLabelMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveLabelMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveLabelMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveLabelMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveLabelMethod "map" o = WidgetMapMethodInfo + ResolveLabelMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveLabelMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveLabelMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveLabelMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveLabelMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveLabelMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveLabelMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveLabelMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveLabelMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveLabelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveLabelMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveLabelMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveLabelMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveLabelMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveLabelMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveLabelMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveLabelMethod "path" o = WidgetPathMethodInfo + ResolveLabelMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveLabelMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveLabelMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveLabelMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveLabelMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveLabelMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveLabelMethod "realize" o = WidgetRealizeMethodInfo + ResolveLabelMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveLabelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveLabelMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveLabelMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveLabelMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveLabelMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveLabelMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveLabelMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveLabelMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveLabelMethod "reparent" o = WidgetReparentMethodInfo + ResolveLabelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveLabelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveLabelMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveLabelMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveLabelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveLabelMethod "selectRegion" o = LabelSelectRegionMethodInfo + ResolveLabelMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveLabelMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveLabelMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveLabelMethod "show" o = WidgetShowMethodInfo + ResolveLabelMethod "showAll" o = WidgetShowAllMethodInfo + ResolveLabelMethod "showNow" o = WidgetShowNowMethodInfo + ResolveLabelMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveLabelMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveLabelMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveLabelMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveLabelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveLabelMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveLabelMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveLabelMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveLabelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveLabelMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveLabelMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveLabelMethod "unmap" o = WidgetUnmapMethodInfo + ResolveLabelMethod "unparent" o = WidgetUnparentMethodInfo + ResolveLabelMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveLabelMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveLabelMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveLabelMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveLabelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveLabelMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveLabelMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveLabelMethod "getAlignment" o = MiscGetAlignmentMethodInfo + ResolveLabelMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveLabelMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveLabelMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveLabelMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveLabelMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveLabelMethod "getAngle" o = LabelGetAngleMethodInfo + ResolveLabelMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveLabelMethod "getAttributes" o = LabelGetAttributesMethodInfo + ResolveLabelMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveLabelMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveLabelMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveLabelMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveLabelMethod "getClip" o = WidgetGetClipMethodInfo + ResolveLabelMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveLabelMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveLabelMethod "getCurrentUri" o = LabelGetCurrentUriMethodInfo + ResolveLabelMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveLabelMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveLabelMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveLabelMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveLabelMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveLabelMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveLabelMethod "getEllipsize" o = LabelGetEllipsizeMethodInfo + ResolveLabelMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveLabelMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveLabelMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveLabelMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveLabelMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveLabelMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveLabelMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveLabelMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveLabelMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveLabelMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveLabelMethod "getJustify" o = LabelGetJustifyMethodInfo + ResolveLabelMethod "getLabel" o = LabelGetLabelMethodInfo + ResolveLabelMethod "getLayout" o = LabelGetLayoutMethodInfo + ResolveLabelMethod "getLayoutOffsets" o = LabelGetLayoutOffsetsMethodInfo + ResolveLabelMethod "getLineWrap" o = LabelGetLineWrapMethodInfo + ResolveLabelMethod "getLineWrapMode" o = LabelGetLineWrapModeMethodInfo + ResolveLabelMethod "getLines" o = LabelGetLinesMethodInfo + ResolveLabelMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveLabelMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveLabelMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveLabelMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveLabelMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveLabelMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveLabelMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveLabelMethod "getMaxWidthChars" o = LabelGetMaxWidthCharsMethodInfo + ResolveLabelMethod "getMnemonicKeyval" o = LabelGetMnemonicKeyvalMethodInfo + ResolveLabelMethod "getMnemonicWidget" o = LabelGetMnemonicWidgetMethodInfo + ResolveLabelMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveLabelMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveLabelMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveLabelMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveLabelMethod "getPadding" o = MiscGetPaddingMethodInfo + ResolveLabelMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveLabelMethod "getParent" o = WidgetGetParentMethodInfo + ResolveLabelMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveLabelMethod "getPath" o = WidgetGetPathMethodInfo + ResolveLabelMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveLabelMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveLabelMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveLabelMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveLabelMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveLabelMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveLabelMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveLabelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveLabelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveLabelMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveLabelMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveLabelMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveLabelMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveLabelMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveLabelMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveLabelMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveLabelMethod "getSelectable" o = LabelGetSelectableMethodInfo + ResolveLabelMethod "getSelectionBounds" o = LabelGetSelectionBoundsMethodInfo + ResolveLabelMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveLabelMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveLabelMethod "getSingleLineMode" o = LabelGetSingleLineModeMethodInfo + ResolveLabelMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveLabelMethod "getState" o = WidgetGetStateMethodInfo + ResolveLabelMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveLabelMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveLabelMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveLabelMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveLabelMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveLabelMethod "getText" o = LabelGetTextMethodInfo + ResolveLabelMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveLabelMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveLabelMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveLabelMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveLabelMethod "getTrackVisitedLinks" o = LabelGetTrackVisitedLinksMethodInfo + ResolveLabelMethod "getUseMarkup" o = LabelGetUseMarkupMethodInfo + ResolveLabelMethod "getUseUnderline" o = LabelGetUseUnderlineMethodInfo + ResolveLabelMethod "getValign" o = WidgetGetValignMethodInfo + ResolveLabelMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveLabelMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveLabelMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveLabelMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveLabelMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveLabelMethod "getWidthChars" o = LabelGetWidthCharsMethodInfo + ResolveLabelMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveLabelMethod "getXalign" o = LabelGetXalignMethodInfo + ResolveLabelMethod "getYalign" o = LabelGetYalignMethodInfo + ResolveLabelMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveLabelMethod "setAlignment" o = MiscSetAlignmentMethodInfo + ResolveLabelMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveLabelMethod "setAngle" o = LabelSetAngleMethodInfo + ResolveLabelMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveLabelMethod "setAttributes" o = LabelSetAttributesMethodInfo + ResolveLabelMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveLabelMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveLabelMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveLabelMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveLabelMethod "setClip" o = WidgetSetClipMethodInfo + ResolveLabelMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveLabelMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveLabelMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveLabelMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveLabelMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveLabelMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveLabelMethod "setEllipsize" o = LabelSetEllipsizeMethodInfo + ResolveLabelMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveLabelMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveLabelMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveLabelMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveLabelMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveLabelMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveLabelMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveLabelMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveLabelMethod "setJustify" o = LabelSetJustifyMethodInfo + ResolveLabelMethod "setLabel" o = LabelSetLabelMethodInfo + ResolveLabelMethod "setLineWrap" o = LabelSetLineWrapMethodInfo + ResolveLabelMethod "setLineWrapMode" o = LabelSetLineWrapModeMethodInfo + ResolveLabelMethod "setLines" o = LabelSetLinesMethodInfo + ResolveLabelMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveLabelMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveLabelMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveLabelMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveLabelMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveLabelMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveLabelMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveLabelMethod "setMarkup" o = LabelSetMarkupMethodInfo + ResolveLabelMethod "setMarkupWithMnemonic" o = LabelSetMarkupWithMnemonicMethodInfo + ResolveLabelMethod "setMaxWidthChars" o = LabelSetMaxWidthCharsMethodInfo + ResolveLabelMethod "setMnemonicWidget" o = LabelSetMnemonicWidgetMethodInfo + ResolveLabelMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveLabelMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveLabelMethod "setPadding" o = MiscSetPaddingMethodInfo + ResolveLabelMethod "setParent" o = WidgetSetParentMethodInfo + ResolveLabelMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveLabelMethod "setPattern" o = LabelSetPatternMethodInfo + ResolveLabelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveLabelMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveLabelMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveLabelMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveLabelMethod "setSelectable" o = LabelSetSelectableMethodInfo + ResolveLabelMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveLabelMethod "setSingleLineMode" o = LabelSetSingleLineModeMethodInfo + ResolveLabelMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveLabelMethod "setState" o = WidgetSetStateMethodInfo + ResolveLabelMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveLabelMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveLabelMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveLabelMethod "setText" o = LabelSetTextMethodInfo + ResolveLabelMethod "setTextWithMnemonic" o = LabelSetTextWithMnemonicMethodInfo + ResolveLabelMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveLabelMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveLabelMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveLabelMethod "setTrackVisitedLinks" o = LabelSetTrackVisitedLinksMethodInfo + ResolveLabelMethod "setUseMarkup" o = LabelSetUseMarkupMethodInfo + ResolveLabelMethod "setUseUnderline" o = LabelSetUseUnderlineMethodInfo + ResolveLabelMethod "setValign" o = WidgetSetValignMethodInfo + ResolveLabelMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveLabelMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveLabelMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveLabelMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveLabelMethod "setWidthChars" o = LabelSetWidthCharsMethodInfo + ResolveLabelMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveLabelMethod "setXalign" o = LabelSetXalignMethodInfo + ResolveLabelMethod "setYalign" o = LabelSetYalignMethodInfo + ResolveLabelMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveLabelMethod t Label, MethodInfo info Label p) => IsLabelProxy t (Label -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveLabelMethod t Label, MethodInfo info Label p) => IsLabel t (Label -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- signal Label::activate-current-link +type LabelActivateCurrentLinkCallback = + IO () + +noLabelActivateCurrentLinkCallback :: Maybe LabelActivateCurrentLinkCallback +noLabelActivateCurrentLinkCallback = Nothing + +type LabelActivateCurrentLinkCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkLabelActivateCurrentLinkCallback :: LabelActivateCurrentLinkCallbackC -> IO (FunPtr LabelActivateCurrentLinkCallbackC) + +labelActivateCurrentLinkClosure :: LabelActivateCurrentLinkCallback -> IO Closure +labelActivateCurrentLinkClosure cb = newCClosure =<< mkLabelActivateCurrentLinkCallback wrapped + where wrapped = labelActivateCurrentLinkCallbackWrapper cb + +labelActivateCurrentLinkCallbackWrapper :: + LabelActivateCurrentLinkCallback -> + Ptr () -> + Ptr () -> + IO () +labelActivateCurrentLinkCallbackWrapper _cb _ _ = do + _cb + +onLabelActivateCurrentLink :: (GObject a, MonadIO m) => a -> LabelActivateCurrentLinkCallback -> m SignalHandlerId +onLabelActivateCurrentLink obj cb = liftIO $ connectLabelActivateCurrentLink obj cb SignalConnectBefore +afterLabelActivateCurrentLink :: (GObject a, MonadIO m) => a -> LabelActivateCurrentLinkCallback -> m SignalHandlerId +afterLabelActivateCurrentLink obj cb = connectLabelActivateCurrentLink obj cb SignalConnectAfter + +connectLabelActivateCurrentLink :: (GObject a, MonadIO m) => + a -> LabelActivateCurrentLinkCallback -> SignalConnectMode -> m SignalHandlerId +connectLabelActivateCurrentLink obj cb after = liftIO $ do + cb' <- mkLabelActivateCurrentLinkCallback (labelActivateCurrentLinkCallbackWrapper cb) + connectSignalFunPtr obj "activate-current-link" cb' after + +-- signal Label::activate-link +type LabelActivateLinkCallback = + T.Text -> + IO Bool + +noLabelActivateLinkCallback :: Maybe LabelActivateLinkCallback +noLabelActivateLinkCallback = Nothing + +type LabelActivateLinkCallbackC = + Ptr () -> -- object + CString -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkLabelActivateLinkCallback :: LabelActivateLinkCallbackC -> IO (FunPtr LabelActivateLinkCallbackC) + +labelActivateLinkClosure :: LabelActivateLinkCallback -> IO Closure +labelActivateLinkClosure cb = newCClosure =<< mkLabelActivateLinkCallback wrapped + where wrapped = labelActivateLinkCallbackWrapper cb + +labelActivateLinkCallbackWrapper :: + LabelActivateLinkCallback -> + Ptr () -> + CString -> + Ptr () -> + IO CInt +labelActivateLinkCallbackWrapper _cb _ uri _ = do + uri' <- cstringToText uri + result <- _cb uri' + let result' = (fromIntegral . fromEnum) result + return result' + +onLabelActivateLink :: (GObject a, MonadIO m) => a -> LabelActivateLinkCallback -> m SignalHandlerId +onLabelActivateLink obj cb = liftIO $ connectLabelActivateLink obj cb SignalConnectBefore +afterLabelActivateLink :: (GObject a, MonadIO m) => a -> LabelActivateLinkCallback -> m SignalHandlerId +afterLabelActivateLink obj cb = connectLabelActivateLink obj cb SignalConnectAfter + +connectLabelActivateLink :: (GObject a, MonadIO m) => + a -> LabelActivateLinkCallback -> SignalConnectMode -> m SignalHandlerId +connectLabelActivateLink obj cb after = liftIO $ do + cb' <- mkLabelActivateLinkCallback (labelActivateLinkCallbackWrapper cb) + connectSignalFunPtr obj "activate-link" cb' after + +-- signal Label::copy-clipboard +type LabelCopyClipboardCallback = + IO () + +noLabelCopyClipboardCallback :: Maybe LabelCopyClipboardCallback +noLabelCopyClipboardCallback = Nothing + +type LabelCopyClipboardCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkLabelCopyClipboardCallback :: LabelCopyClipboardCallbackC -> IO (FunPtr LabelCopyClipboardCallbackC) + +labelCopyClipboardClosure :: LabelCopyClipboardCallback -> IO Closure +labelCopyClipboardClosure cb = newCClosure =<< mkLabelCopyClipboardCallback wrapped + where wrapped = labelCopyClipboardCallbackWrapper cb + +labelCopyClipboardCallbackWrapper :: + LabelCopyClipboardCallback -> + Ptr () -> + Ptr () -> + IO () +labelCopyClipboardCallbackWrapper _cb _ _ = do + _cb + +onLabelCopyClipboard :: (GObject a, MonadIO m) => a -> LabelCopyClipboardCallback -> m SignalHandlerId +onLabelCopyClipboard obj cb = liftIO $ connectLabelCopyClipboard obj cb SignalConnectBefore +afterLabelCopyClipboard :: (GObject a, MonadIO m) => a -> LabelCopyClipboardCallback -> m SignalHandlerId +afterLabelCopyClipboard obj cb = connectLabelCopyClipboard obj cb SignalConnectAfter + +connectLabelCopyClipboard :: (GObject a, MonadIO m) => + a -> LabelCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId +connectLabelCopyClipboard obj cb after = liftIO $ do + cb' <- mkLabelCopyClipboardCallback (labelCopyClipboardCallbackWrapper cb) + connectSignalFunPtr obj "copy-clipboard" cb' after + +-- signal Label::move-cursor +type LabelMoveCursorCallback = + MovementStep -> + Int32 -> + Bool -> + IO () + +noLabelMoveCursorCallback :: Maybe LabelMoveCursorCallback +noLabelMoveCursorCallback = Nothing + +type LabelMoveCursorCallbackC = + Ptr () -> -- object + CUInt -> + Int32 -> + CInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkLabelMoveCursorCallback :: LabelMoveCursorCallbackC -> IO (FunPtr LabelMoveCursorCallbackC) + +labelMoveCursorClosure :: LabelMoveCursorCallback -> IO Closure +labelMoveCursorClosure cb = newCClosure =<< mkLabelMoveCursorCallback wrapped + where wrapped = labelMoveCursorCallbackWrapper cb + +labelMoveCursorCallbackWrapper :: + LabelMoveCursorCallback -> + Ptr () -> + CUInt -> + Int32 -> + CInt -> + Ptr () -> + IO () +labelMoveCursorCallbackWrapper _cb _ step count extendSelection _ = do + let step' = (toEnum . fromIntegral) step + let extendSelection' = (/= 0) extendSelection + _cb step' count extendSelection' + +onLabelMoveCursor :: (GObject a, MonadIO m) => a -> LabelMoveCursorCallback -> m SignalHandlerId +onLabelMoveCursor obj cb = liftIO $ connectLabelMoveCursor obj cb SignalConnectBefore +afterLabelMoveCursor :: (GObject a, MonadIO m) => a -> LabelMoveCursorCallback -> m SignalHandlerId +afterLabelMoveCursor obj cb = connectLabelMoveCursor obj cb SignalConnectAfter + +connectLabelMoveCursor :: (GObject a, MonadIO m) => + a -> LabelMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId +connectLabelMoveCursor obj cb after = liftIO $ do + cb' <- mkLabelMoveCursorCallback (labelMoveCursorCallbackWrapper cb) + connectSignalFunPtr obj "move-cursor" cb' after + +-- signal Label::populate-popup +type LabelPopulatePopupCallback = + Menu -> + IO () + +noLabelPopulatePopupCallback :: Maybe LabelPopulatePopupCallback +noLabelPopulatePopupCallback = Nothing + +type LabelPopulatePopupCallbackC = + Ptr () -> -- object + Ptr Menu -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkLabelPopulatePopupCallback :: LabelPopulatePopupCallbackC -> IO (FunPtr LabelPopulatePopupCallbackC) + +labelPopulatePopupClosure :: LabelPopulatePopupCallback -> IO Closure +labelPopulatePopupClosure cb = newCClosure =<< mkLabelPopulatePopupCallback wrapped + where wrapped = labelPopulatePopupCallbackWrapper cb + +labelPopulatePopupCallbackWrapper :: + LabelPopulatePopupCallback -> + Ptr () -> + Ptr Menu -> + Ptr () -> + IO () +labelPopulatePopupCallbackWrapper _cb _ menu _ = do + menu' <- (newObject Menu) menu + _cb menu' + +onLabelPopulatePopup :: (GObject a, MonadIO m) => a -> LabelPopulatePopupCallback -> m SignalHandlerId +onLabelPopulatePopup obj cb = liftIO $ connectLabelPopulatePopup obj cb SignalConnectBefore +afterLabelPopulatePopup :: (GObject a, MonadIO m) => a -> LabelPopulatePopupCallback -> m SignalHandlerId +afterLabelPopulatePopup obj cb = connectLabelPopulatePopup obj cb SignalConnectAfter + +connectLabelPopulatePopup :: (GObject a, MonadIO m) => + a -> LabelPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId +connectLabelPopulatePopup obj cb after = liftIO $ do + cb' <- mkLabelPopulatePopupCallback (labelPopulatePopupCallbackWrapper cb) + connectSignalFunPtr obj "populate-popup" cb' after + +--- XXX Duplicated object with different types: + --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."}} +--- XXX Duplicated object with different types: + --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."}} +-- VVV Prop "angle" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelAngle :: (MonadIO m, LabelK o) => o -> m Double +getLabelAngle obj = liftIO $ getObjectPropertyDouble obj "angle" + +setLabelAngle :: (MonadIO m, LabelK o) => o -> Double -> m () +setLabelAngle obj val = liftIO $ setObjectPropertyDouble obj "angle" val + +constructLabelAngle :: Double -> IO ([Char], GValue) +constructLabelAngle val = constructObjectPropertyDouble "angle" val + +data LabelAnglePropertyInfo +instance AttrInfo LabelAnglePropertyInfo where + type AttrAllowedOps LabelAnglePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelAnglePropertyInfo = (~) Double + type AttrBaseTypeConstraint LabelAnglePropertyInfo = LabelK + type AttrGetType LabelAnglePropertyInfo = Double + type AttrLabel LabelAnglePropertyInfo = "angle" + attrGet _ = getLabelAngle + attrSet _ = setLabelAngle + attrConstruct _ = constructLabelAngle + +-- VVV Prop "attributes" + -- Type: TInterface "Pango" "AttrList" + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelAttributes :: (MonadIO m, LabelK o) => o -> m Pango.AttrList +getLabelAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList + +setLabelAttributes :: (MonadIO m, LabelK o) => o -> Pango.AttrList -> m () +setLabelAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val + +constructLabelAttributes :: Pango.AttrList -> IO ([Char], GValue) +constructLabelAttributes val = constructObjectPropertyBoxed "attributes" val + +data LabelAttributesPropertyInfo +instance AttrInfo LabelAttributesPropertyInfo where + type AttrAllowedOps LabelAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelAttributesPropertyInfo = (~) Pango.AttrList + type AttrBaseTypeConstraint LabelAttributesPropertyInfo = LabelK + type AttrGetType LabelAttributesPropertyInfo = Pango.AttrList + type AttrLabel LabelAttributesPropertyInfo = "attributes" + attrGet _ = getLabelAttributes + attrSet _ = setLabelAttributes + attrConstruct _ = constructLabelAttributes + +-- VVV Prop "cursor-position" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getLabelCursorPosition :: (MonadIO m, LabelK o) => o -> m Int32 +getLabelCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position" + +data LabelCursorPositionPropertyInfo +instance AttrInfo LabelCursorPositionPropertyInfo where + type AttrAllowedOps LabelCursorPositionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint LabelCursorPositionPropertyInfo = (~) () + type AttrBaseTypeConstraint LabelCursorPositionPropertyInfo = LabelK + type AttrGetType LabelCursorPositionPropertyInfo = Int32 + type AttrLabel LabelCursorPositionPropertyInfo = "cursor-position" + attrGet _ = getLabelCursorPosition + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ellipsize" + -- Type: TInterface "Pango" "EllipsizeMode" + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelEllipsize :: (MonadIO m, LabelK o) => o -> m Pango.EllipsizeMode +getLabelEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize" + +setLabelEllipsize :: (MonadIO m, LabelK o) => o -> Pango.EllipsizeMode -> m () +setLabelEllipsize obj val = liftIO $ setObjectPropertyEnum obj "ellipsize" val + +constructLabelEllipsize :: Pango.EllipsizeMode -> IO ([Char], GValue) +constructLabelEllipsize val = constructObjectPropertyEnum "ellipsize" val + +data LabelEllipsizePropertyInfo +instance AttrInfo LabelEllipsizePropertyInfo where + type AttrAllowedOps LabelEllipsizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelEllipsizePropertyInfo = (~) Pango.EllipsizeMode + type AttrBaseTypeConstraint LabelEllipsizePropertyInfo = LabelK + type AttrGetType LabelEllipsizePropertyInfo = Pango.EllipsizeMode + type AttrLabel LabelEllipsizePropertyInfo = "ellipsize" + attrGet _ = getLabelEllipsize + attrSet _ = setLabelEllipsize + attrConstruct _ = constructLabelEllipsize + +-- VVV Prop "justify" + -- Type: TInterface "Gtk" "Justification" + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelJustify :: (MonadIO m, LabelK o) => o -> m Justification +getLabelJustify obj = liftIO $ getObjectPropertyEnum obj "justify" + +setLabelJustify :: (MonadIO m, LabelK o) => o -> Justification -> m () +setLabelJustify obj val = liftIO $ setObjectPropertyEnum obj "justify" val + +constructLabelJustify :: Justification -> IO ([Char], GValue) +constructLabelJustify val = constructObjectPropertyEnum "justify" val + +data LabelJustifyPropertyInfo +instance AttrInfo LabelJustifyPropertyInfo where + type AttrAllowedOps LabelJustifyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelJustifyPropertyInfo = (~) Justification + type AttrBaseTypeConstraint LabelJustifyPropertyInfo = LabelK + type AttrGetType LabelJustifyPropertyInfo = Justification + type AttrLabel LabelJustifyPropertyInfo = "justify" + attrGet _ = getLabelJustify + attrSet _ = setLabelJustify + attrConstruct _ = constructLabelJustify + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelLabel :: (MonadIO m, LabelK o) => o -> m T.Text +getLabelLabel obj = liftIO $ getObjectPropertyString obj "label" + +setLabelLabel :: (MonadIO m, LabelK o) => o -> T.Text -> m () +setLabelLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructLabelLabel :: T.Text -> IO ([Char], GValue) +constructLabelLabel val = constructObjectPropertyString "label" val + +data LabelLabelPropertyInfo +instance AttrInfo LabelLabelPropertyInfo where + type AttrAllowedOps LabelLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint LabelLabelPropertyInfo = LabelK + type AttrGetType LabelLabelPropertyInfo = T.Text + type AttrLabel LabelLabelPropertyInfo = "label" + attrGet _ = getLabelLabel + attrSet _ = setLabelLabel + attrConstruct _ = constructLabelLabel + +-- VVV Prop "lines" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelLines :: (MonadIO m, LabelK o) => o -> m Int32 +getLabelLines obj = liftIO $ getObjectPropertyCInt obj "lines" + +setLabelLines :: (MonadIO m, LabelK o) => o -> Int32 -> m () +setLabelLines obj val = liftIO $ setObjectPropertyCInt obj "lines" val + +constructLabelLines :: Int32 -> IO ([Char], GValue) +constructLabelLines val = constructObjectPropertyCInt "lines" val + +data LabelLinesPropertyInfo +instance AttrInfo LabelLinesPropertyInfo where + type AttrAllowedOps LabelLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelLinesPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint LabelLinesPropertyInfo = LabelK + type AttrGetType LabelLinesPropertyInfo = Int32 + type AttrLabel LabelLinesPropertyInfo = "lines" + attrGet _ = getLabelLines + attrSet _ = setLabelLines + attrConstruct _ = constructLabelLines + +-- VVV Prop "max-width-chars" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> m Int32 +getLabelMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" + +setLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m () +setLabelMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val + +constructLabelMaxWidthChars :: Int32 -> IO ([Char], GValue) +constructLabelMaxWidthChars val = constructObjectPropertyCInt "max-width-chars" val + +data LabelMaxWidthCharsPropertyInfo +instance AttrInfo LabelMaxWidthCharsPropertyInfo where + type AttrAllowedOps LabelMaxWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelMaxWidthCharsPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint LabelMaxWidthCharsPropertyInfo = LabelK + type AttrGetType LabelMaxWidthCharsPropertyInfo = Int32 + type AttrLabel LabelMaxWidthCharsPropertyInfo = "max-width-chars" + attrGet _ = getLabelMaxWidthChars + attrSet _ = setLabelMaxWidthChars + attrConstruct _ = constructLabelMaxWidthChars + +-- VVV Prop "mnemonic-keyval" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getLabelMnemonicKeyval :: (MonadIO m, LabelK o) => o -> m Word32 +getLabelMnemonicKeyval obj = liftIO $ getObjectPropertyCUInt obj "mnemonic-keyval" + +data LabelMnemonicKeyvalPropertyInfo +instance AttrInfo LabelMnemonicKeyvalPropertyInfo where + type AttrAllowedOps LabelMnemonicKeyvalPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint LabelMnemonicKeyvalPropertyInfo = (~) () + type AttrBaseTypeConstraint LabelMnemonicKeyvalPropertyInfo = LabelK + type AttrGetType LabelMnemonicKeyvalPropertyInfo = Word32 + type AttrLabel LabelMnemonicKeyvalPropertyInfo = "mnemonic-keyval" + attrGet _ = getLabelMnemonicKeyval + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "mnemonic-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelMnemonicWidget :: (MonadIO m, LabelK o) => o -> m Widget +getLabelMnemonicWidget obj = liftIO $ getObjectPropertyObject obj "mnemonic-widget" Widget + +setLabelMnemonicWidget :: (MonadIO m, LabelK o, WidgetK a) => o -> a -> m () +setLabelMnemonicWidget obj val = liftIO $ setObjectPropertyObject obj "mnemonic-widget" val + +constructLabelMnemonicWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructLabelMnemonicWidget val = constructObjectPropertyObject "mnemonic-widget" val + +data LabelMnemonicWidgetPropertyInfo +instance AttrInfo LabelMnemonicWidgetPropertyInfo where + type AttrAllowedOps LabelMnemonicWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelMnemonicWidgetPropertyInfo = WidgetK + type AttrBaseTypeConstraint LabelMnemonicWidgetPropertyInfo = LabelK + type AttrGetType LabelMnemonicWidgetPropertyInfo = Widget + type AttrLabel LabelMnemonicWidgetPropertyInfo = "mnemonic-widget" + attrGet _ = getLabelMnemonicWidget + attrSet _ = setLabelMnemonicWidget + attrConstruct _ = constructLabelMnemonicWidget + +-- VVV Prop "pattern" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setLabelPattern :: (MonadIO m, LabelK o) => o -> T.Text -> m () +setLabelPattern obj val = liftIO $ setObjectPropertyString obj "pattern" val + +constructLabelPattern :: T.Text -> IO ([Char], GValue) +constructLabelPattern val = constructObjectPropertyString "pattern" val + +data LabelPatternPropertyInfo +instance AttrInfo LabelPatternPropertyInfo where + type AttrAllowedOps LabelPatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint LabelPatternPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint LabelPatternPropertyInfo = LabelK + type AttrGetType LabelPatternPropertyInfo = () + type AttrLabel LabelPatternPropertyInfo = "pattern" + attrGet _ = undefined + attrSet _ = setLabelPattern + attrConstruct _ = constructLabelPattern + +-- VVV Prop "selectable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelSelectable :: (MonadIO m, LabelK o) => o -> m Bool +getLabelSelectable obj = liftIO $ getObjectPropertyBool obj "selectable" + +setLabelSelectable :: (MonadIO m, LabelK o) => o -> Bool -> m () +setLabelSelectable obj val = liftIO $ setObjectPropertyBool obj "selectable" val + +constructLabelSelectable :: Bool -> IO ([Char], GValue) +constructLabelSelectable val = constructObjectPropertyBool "selectable" val + +data LabelSelectablePropertyInfo +instance AttrInfo LabelSelectablePropertyInfo where + type AttrAllowedOps LabelSelectablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelSelectablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint LabelSelectablePropertyInfo = LabelK + type AttrGetType LabelSelectablePropertyInfo = Bool + type AttrLabel LabelSelectablePropertyInfo = "selectable" + attrGet _ = getLabelSelectable + attrSet _ = setLabelSelectable + attrConstruct _ = constructLabelSelectable + +-- VVV Prop "selection-bound" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getLabelSelectionBound :: (MonadIO m, LabelK o) => o -> m Int32 +getLabelSelectionBound obj = liftIO $ getObjectPropertyCInt obj "selection-bound" + +data LabelSelectionBoundPropertyInfo +instance AttrInfo LabelSelectionBoundPropertyInfo where + type AttrAllowedOps LabelSelectionBoundPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint LabelSelectionBoundPropertyInfo = (~) () + type AttrBaseTypeConstraint LabelSelectionBoundPropertyInfo = LabelK + type AttrGetType LabelSelectionBoundPropertyInfo = Int32 + type AttrLabel LabelSelectionBoundPropertyInfo = "selection-bound" + attrGet _ = getLabelSelectionBound + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "single-line-mode" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelSingleLineMode :: (MonadIO m, LabelK o) => o -> m Bool +getLabelSingleLineMode obj = liftIO $ getObjectPropertyBool obj "single-line-mode" + +setLabelSingleLineMode :: (MonadIO m, LabelK o) => o -> Bool -> m () +setLabelSingleLineMode obj val = liftIO $ setObjectPropertyBool obj "single-line-mode" val + +constructLabelSingleLineMode :: Bool -> IO ([Char], GValue) +constructLabelSingleLineMode val = constructObjectPropertyBool "single-line-mode" val + +data LabelSingleLineModePropertyInfo +instance AttrInfo LabelSingleLineModePropertyInfo where + type AttrAllowedOps LabelSingleLineModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelSingleLineModePropertyInfo = (~) Bool + type AttrBaseTypeConstraint LabelSingleLineModePropertyInfo = LabelK + type AttrGetType LabelSingleLineModePropertyInfo = Bool + type AttrLabel LabelSingleLineModePropertyInfo = "single-line-mode" + attrGet _ = getLabelSingleLineMode + attrSet _ = setLabelSingleLineMode + attrConstruct _ = constructLabelSingleLineMode + +-- VVV Prop "track-visited-links" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelTrackVisitedLinks :: (MonadIO m, LabelK o) => o -> m Bool +getLabelTrackVisitedLinks obj = liftIO $ getObjectPropertyBool obj "track-visited-links" + +setLabelTrackVisitedLinks :: (MonadIO m, LabelK o) => o -> Bool -> m () +setLabelTrackVisitedLinks obj val = liftIO $ setObjectPropertyBool obj "track-visited-links" val + +constructLabelTrackVisitedLinks :: Bool -> IO ([Char], GValue) +constructLabelTrackVisitedLinks val = constructObjectPropertyBool "track-visited-links" val + +data LabelTrackVisitedLinksPropertyInfo +instance AttrInfo LabelTrackVisitedLinksPropertyInfo where + type AttrAllowedOps LabelTrackVisitedLinksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelTrackVisitedLinksPropertyInfo = (~) Bool + type AttrBaseTypeConstraint LabelTrackVisitedLinksPropertyInfo = LabelK + type AttrGetType LabelTrackVisitedLinksPropertyInfo = Bool + type AttrLabel LabelTrackVisitedLinksPropertyInfo = "track-visited-links" + attrGet _ = getLabelTrackVisitedLinks + attrSet _ = setLabelTrackVisitedLinks + attrConstruct _ = constructLabelTrackVisitedLinks + +-- VVV Prop "use-markup" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelUseMarkup :: (MonadIO m, LabelK o) => o -> m Bool +getLabelUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup" + +setLabelUseMarkup :: (MonadIO m, LabelK o) => o -> Bool -> m () +setLabelUseMarkup obj val = liftIO $ setObjectPropertyBool obj "use-markup" val + +constructLabelUseMarkup :: Bool -> IO ([Char], GValue) +constructLabelUseMarkup val = constructObjectPropertyBool "use-markup" val + +data LabelUseMarkupPropertyInfo +instance AttrInfo LabelUseMarkupPropertyInfo where + type AttrAllowedOps LabelUseMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelUseMarkupPropertyInfo = (~) Bool + type AttrBaseTypeConstraint LabelUseMarkupPropertyInfo = LabelK + type AttrGetType LabelUseMarkupPropertyInfo = Bool + type AttrLabel LabelUseMarkupPropertyInfo = "use-markup" + attrGet _ = getLabelUseMarkup + attrSet _ = setLabelUseMarkup + attrConstruct _ = constructLabelUseMarkup + +-- VVV Prop "use-underline" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelUseUnderline :: (MonadIO m, LabelK o) => o -> m Bool +getLabelUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline" + +setLabelUseUnderline :: (MonadIO m, LabelK o) => o -> Bool -> m () +setLabelUseUnderline obj val = liftIO $ setObjectPropertyBool obj "use-underline" val + +constructLabelUseUnderline :: Bool -> IO ([Char], GValue) +constructLabelUseUnderline val = constructObjectPropertyBool "use-underline" val + +data LabelUseUnderlinePropertyInfo +instance AttrInfo LabelUseUnderlinePropertyInfo where + type AttrAllowedOps LabelUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelUseUnderlinePropertyInfo = (~) Bool + type AttrBaseTypeConstraint LabelUseUnderlinePropertyInfo = LabelK + type AttrGetType LabelUseUnderlinePropertyInfo = Bool + type AttrLabel LabelUseUnderlinePropertyInfo = "use-underline" + attrGet _ = getLabelUseUnderline + attrSet _ = setLabelUseUnderline + attrConstruct _ = constructLabelUseUnderline + +-- VVV Prop "width-chars" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelWidthChars :: (MonadIO m, LabelK o) => o -> m Int32 +getLabelWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" + +setLabelWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m () +setLabelWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val + +constructLabelWidthChars :: Int32 -> IO ([Char], GValue) +constructLabelWidthChars val = constructObjectPropertyCInt "width-chars" val + +data LabelWidthCharsPropertyInfo +instance AttrInfo LabelWidthCharsPropertyInfo where + type AttrAllowedOps LabelWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelWidthCharsPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint LabelWidthCharsPropertyInfo = LabelK + type AttrGetType LabelWidthCharsPropertyInfo = Int32 + type AttrLabel LabelWidthCharsPropertyInfo = "width-chars" + attrGet _ = getLabelWidthChars + attrSet _ = setLabelWidthChars + attrConstruct _ = constructLabelWidthChars + +-- VVV Prop "wrap" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelWrap :: (MonadIO m, LabelK o) => o -> m Bool +getLabelWrap obj = liftIO $ getObjectPropertyBool obj "wrap" + +setLabelWrap :: (MonadIO m, LabelK o) => o -> Bool -> m () +setLabelWrap obj val = liftIO $ setObjectPropertyBool obj "wrap" val + +constructLabelWrap :: Bool -> IO ([Char], GValue) +constructLabelWrap val = constructObjectPropertyBool "wrap" val + +data LabelWrapPropertyInfo +instance AttrInfo LabelWrapPropertyInfo where + type AttrAllowedOps LabelWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelWrapPropertyInfo = (~) Bool + type AttrBaseTypeConstraint LabelWrapPropertyInfo = LabelK + type AttrGetType LabelWrapPropertyInfo = Bool + type AttrLabel LabelWrapPropertyInfo = "wrap" + attrGet _ = getLabelWrap + attrSet _ = setLabelWrap + attrConstruct _ = constructLabelWrap + +-- VVV Prop "wrap-mode" + -- Type: TInterface "Pango" "WrapMode" + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelWrapMode :: (MonadIO m, LabelK o) => o -> m Pango.WrapMode +getLabelWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode" + +setLabelWrapMode :: (MonadIO m, LabelK o) => o -> Pango.WrapMode -> m () +setLabelWrapMode obj val = liftIO $ setObjectPropertyEnum obj "wrap-mode" val + +constructLabelWrapMode :: Pango.WrapMode -> IO ([Char], GValue) +constructLabelWrapMode val = constructObjectPropertyEnum "wrap-mode" val + +data LabelWrapModePropertyInfo +instance AttrInfo LabelWrapModePropertyInfo where + type AttrAllowedOps LabelWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelWrapModePropertyInfo = (~) Pango.WrapMode + type AttrBaseTypeConstraint LabelWrapModePropertyInfo = LabelK + type AttrGetType LabelWrapModePropertyInfo = Pango.WrapMode + type AttrLabel LabelWrapModePropertyInfo = "wrap-mode" + attrGet _ = getLabelWrapMode + attrSet _ = setLabelWrapMode + attrConstruct _ = constructLabelWrapMode + +-- VVV Prop "xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelXalign :: (MonadIO m, LabelK o) => o -> m Float +getLabelXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" + +setLabelXalign :: (MonadIO m, LabelK o) => o -> Float -> m () +setLabelXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val + +constructLabelXalign :: Float -> IO ([Char], GValue) +constructLabelXalign val = constructObjectPropertyFloat "xalign" val + +data LabelXalignPropertyInfo +instance AttrInfo LabelXalignPropertyInfo where + type AttrAllowedOps LabelXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelXalignPropertyInfo = (~) Float + type AttrBaseTypeConstraint LabelXalignPropertyInfo = LabelK + type AttrGetType LabelXalignPropertyInfo = Float + type AttrLabel LabelXalignPropertyInfo = "xalign" + attrGet _ = getLabelXalign + attrSet _ = setLabelXalign + attrConstruct _ = constructLabelXalign + +-- VVV Prop "yalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelYalign :: (MonadIO m, LabelK o) => o -> m Float +getLabelYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" + +setLabelYalign :: (MonadIO m, LabelK o) => o -> Float -> m () +setLabelYalign obj val = liftIO $ setObjectPropertyFloat obj "yalign" val + +constructLabelYalign :: Float -> IO ([Char], GValue) +constructLabelYalign val = constructObjectPropertyFloat "yalign" val + +data LabelYalignPropertyInfo +instance AttrInfo LabelYalignPropertyInfo where + type AttrAllowedOps LabelYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelYalignPropertyInfo = (~) Float + type AttrBaseTypeConstraint LabelYalignPropertyInfo = LabelK + type AttrGetType LabelYalignPropertyInfo = Float + type AttrLabel LabelYalignPropertyInfo = "yalign" + attrGet _ = getLabelYalign + attrSet _ = setLabelYalign + attrConstruct _ = constructLabelYalign + +type instance AttributeList Label = LabelAttributeList +type LabelAttributeList = ('[ '("angle", LabelAnglePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", LabelCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxWidthChars", LabelMaxWidthCharsPropertyInfo), '("mnemonicKeyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonicWidget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selectionBound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("singleLineMode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("trackVisitedLinks", LabelTrackVisitedLinksPropertyInfo), '("useMarkup", LabelUseMarkupPropertyInfo), '("useUnderline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", LabelWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrapMode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) + +data LabelActivateCurrentLinkSignalInfo +instance SignalInfo LabelActivateCurrentLinkSignalInfo where + type HaskellCallbackType LabelActivateCurrentLinkSignalInfo = LabelActivateCurrentLinkCallback + connectSignal _ = connectLabelActivateCurrentLink + +data LabelActivateLinkSignalInfo +instance SignalInfo LabelActivateLinkSignalInfo where + type HaskellCallbackType LabelActivateLinkSignalInfo = LabelActivateLinkCallback + connectSignal _ = connectLabelActivateLink + +data LabelCopyClipboardSignalInfo +instance SignalInfo LabelCopyClipboardSignalInfo where + type HaskellCallbackType LabelCopyClipboardSignalInfo = LabelCopyClipboardCallback + connectSignal _ = connectLabelCopyClipboard + +data LabelMoveCursorSignalInfo +instance SignalInfo LabelMoveCursorSignalInfo where + type HaskellCallbackType LabelMoveCursorSignalInfo = LabelMoveCursorCallback + connectSignal _ = connectLabelMoveCursor + +data LabelPopulatePopupSignalInfo +instance SignalInfo LabelPopulatePopupSignalInfo where + type HaskellCallbackType LabelPopulatePopupSignalInfo = LabelPopulatePopupCallback + connectSignal _ = connectLabelPopulatePopup + +type instance SignalList Label = LabelSignalList +type LabelSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrentLink", LabelActivateCurrentLinkSignalInfo), '("activateLink", LabelActivateLinkSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", LabelCopyClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", LabelMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("populatePopup", LabelPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +-- method Label::new +-- method type : Constructor +-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Label" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_new" gtk_label_new :: + CString -> -- str : TBasicType TUTF8 + IO (Ptr Label) + + +labelNew :: + (MonadIO m) => + Maybe (T.Text) -- str + -> m Label -- result +labelNew str = liftIO $ do + maybeStr <- case str of + Nothing -> return nullPtr + Just jStr -> do + jStr' <- textToCString jStr + return jStr' + result <- gtk_label_new maybeStr + checkUnexpectedReturnNULL "gtk_label_new" result + result' <- (newObject Label) result + freeMem maybeStr + return result' + +-- method Label::new_with_mnemonic +-- method type : Constructor +-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Label" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_new_with_mnemonic" gtk_label_new_with_mnemonic :: + CString -> -- str : TBasicType TUTF8 + IO (Ptr Label) + + +labelNewWithMnemonic :: + (MonadIO m) => + Maybe (T.Text) -- str + -> m Label -- result +labelNewWithMnemonic str = liftIO $ do + maybeStr <- case str of + Nothing -> return nullPtr + Just jStr -> do + jStr' <- textToCString jStr + return jStr' + result <- gtk_label_new_with_mnemonic maybeStr + checkUnexpectedReturnNULL "gtk_label_new_with_mnemonic" result + result' <- (newObject Label) result + freeMem maybeStr + return result' + +-- method Label::get_angle +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_angle" gtk_label_get_angle :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CDouble + + +labelGetAngle :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Double -- result +labelGetAngle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_angle _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data LabelGetAngleMethodInfo +instance (signature ~ (m Double), MonadIO m, LabelK a) => MethodInfo LabelGetAngleMethodInfo a signature where + overloadedMethod _ = labelGetAngle + +-- method Label::get_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "AttrList" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_attributes" gtk_label_get_attributes :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO (Ptr Pango.AttrList) + + +labelGetAttributes :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Pango.AttrList -- result +labelGetAttributes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_attributes _obj' + checkUnexpectedReturnNULL "gtk_label_get_attributes" result + result' <- (newBoxed Pango.AttrList) result + touchManagedPtr _obj + return result' + +data LabelGetAttributesMethodInfo +instance (signature ~ (m Pango.AttrList), MonadIO m, LabelK a) => MethodInfo LabelGetAttributesMethodInfo a signature where + overloadedMethod _ = labelGetAttributes + +-- method Label::get_current_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_current_uri" gtk_label_get_current_uri :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CString + + +labelGetCurrentUri :: + (MonadIO m, LabelK a) => + a -- _obj + -> m T.Text -- result +labelGetCurrentUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_current_uri _obj' + checkUnexpectedReturnNULL "gtk_label_get_current_uri" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data LabelGetCurrentUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, LabelK a) => MethodInfo LabelGetCurrentUriMethodInfo a signature where + overloadedMethod _ = labelGetCurrentUri + +-- method Label::get_ellipsize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "EllipsizeMode" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_ellipsize" gtk_label_get_ellipsize :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CUInt + + +labelGetEllipsize :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Pango.EllipsizeMode -- result +labelGetEllipsize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_ellipsize _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data LabelGetEllipsizeMethodInfo +instance (signature ~ (m Pango.EllipsizeMode), MonadIO m, LabelK a) => MethodInfo LabelGetEllipsizeMethodInfo a signature where + overloadedMethod _ = labelGetEllipsize + +-- method Label::get_justify +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Justification" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_justify" gtk_label_get_justify :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CUInt + + +labelGetJustify :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Justification -- result +labelGetJustify _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_justify _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data LabelGetJustifyMethodInfo +instance (signature ~ (m Justification), MonadIO m, LabelK a) => MethodInfo LabelGetJustifyMethodInfo a signature where + overloadedMethod _ = labelGetJustify + +-- method Label::get_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_label" gtk_label_get_label :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CString + + +labelGetLabel :: + (MonadIO m, LabelK a) => + a -- _obj + -> m T.Text -- result +labelGetLabel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_label _obj' + checkUnexpectedReturnNULL "gtk_label_get_label" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data LabelGetLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, LabelK a) => MethodInfo LabelGetLabelMethodInfo a signature where + overloadedMethod _ = labelGetLabel + +-- method Label::get_layout +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "Layout" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_layout" gtk_label_get_layout :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO (Ptr Pango.Layout) + + +labelGetLayout :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Pango.Layout -- result +labelGetLayout _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_layout _obj' + checkUnexpectedReturnNULL "gtk_label_get_layout" result + result' <- (newObject Pango.Layout) result + touchManagedPtr _obj + return result' + +data LabelGetLayoutMethodInfo +instance (signature ~ (m Pango.Layout), MonadIO m, LabelK a) => MethodInfo LabelGetLayoutMethodInfo a signature where + overloadedMethod _ = labelGetLayout + +-- method Label::get_layout_offsets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_layout_offsets" gtk_label_get_layout_offsets :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + Ptr Int32 -> -- x : TBasicType TInt32 + Ptr Int32 -> -- y : TBasicType TInt32 + IO () + + +labelGetLayoutOffsets :: + (MonadIO m, LabelK a) => + a -- _obj + -> m (Int32,Int32) -- result +labelGetLayoutOffsets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + x <- allocMem :: IO (Ptr Int32) + y <- allocMem :: IO (Ptr Int32) + gtk_label_get_layout_offsets _obj' x y + x' <- peek x + y' <- peek y + touchManagedPtr _obj + freeMem x + freeMem y + return (x', y') + +data LabelGetLayoutOffsetsMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, LabelK a) => MethodInfo LabelGetLayoutOffsetsMethodInfo a signature where + overloadedMethod _ = labelGetLayoutOffsets + +-- method Label::get_line_wrap +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_line_wrap" gtk_label_get_line_wrap :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CInt + + +labelGetLineWrap :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Bool -- result +labelGetLineWrap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_line_wrap _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data LabelGetLineWrapMethodInfo +instance (signature ~ (m Bool), MonadIO m, LabelK a) => MethodInfo LabelGetLineWrapMethodInfo a signature where + overloadedMethod _ = labelGetLineWrap + +-- method Label::get_line_wrap_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "WrapMode" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_line_wrap_mode" gtk_label_get_line_wrap_mode :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CUInt + + +labelGetLineWrapMode :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Pango.WrapMode -- result +labelGetLineWrapMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_line_wrap_mode _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data LabelGetLineWrapModeMethodInfo +instance (signature ~ (m Pango.WrapMode), MonadIO m, LabelK a) => MethodInfo LabelGetLineWrapModeMethodInfo a signature where + overloadedMethod _ = labelGetLineWrapMode + +-- method Label::get_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_lines" gtk_label_get_lines :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO Int32 + + +labelGetLines :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Int32 -- result +labelGetLines _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_lines _obj' + touchManagedPtr _obj + return result + +data LabelGetLinesMethodInfo +instance (signature ~ (m Int32), MonadIO m, LabelK a) => MethodInfo LabelGetLinesMethodInfo a signature where + overloadedMethod _ = labelGetLines + +-- method Label::get_max_width_chars +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_max_width_chars" gtk_label_get_max_width_chars :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO Int32 + + +labelGetMaxWidthChars :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Int32 -- result +labelGetMaxWidthChars _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_max_width_chars _obj' + touchManagedPtr _obj + return result + +data LabelGetMaxWidthCharsMethodInfo +instance (signature ~ (m Int32), MonadIO m, LabelK a) => MethodInfo LabelGetMaxWidthCharsMethodInfo a signature where + overloadedMethod _ = labelGetMaxWidthChars + +-- method Label::get_mnemonic_keyval +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_mnemonic_keyval" gtk_label_get_mnemonic_keyval :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO Word32 + + +labelGetMnemonicKeyval :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Word32 -- result +labelGetMnemonicKeyval _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_mnemonic_keyval _obj' + touchManagedPtr _obj + return result + +data LabelGetMnemonicKeyvalMethodInfo +instance (signature ~ (m Word32), MonadIO m, LabelK a) => MethodInfo LabelGetMnemonicKeyvalMethodInfo a signature where + overloadedMethod _ = labelGetMnemonicKeyval + +-- method Label::get_mnemonic_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_mnemonic_widget" gtk_label_get_mnemonic_widget :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO (Ptr Widget) + + +labelGetMnemonicWidget :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Widget -- result +labelGetMnemonicWidget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_mnemonic_widget _obj' + checkUnexpectedReturnNULL "gtk_label_get_mnemonic_widget" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data LabelGetMnemonicWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, LabelK a) => MethodInfo LabelGetMnemonicWidgetMethodInfo a signature where + overloadedMethod _ = labelGetMnemonicWidget + +-- method Label::get_selectable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_selectable" gtk_label_get_selectable :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CInt + + +labelGetSelectable :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Bool -- result +labelGetSelectable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_selectable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data LabelGetSelectableMethodInfo +instance (signature ~ (m Bool), MonadIO m, LabelK a) => MethodInfo LabelGetSelectableMethodInfo a signature where + overloadedMethod _ = labelGetSelectable + +-- method Label::get_selection_bounds +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_selection_bounds" gtk_label_get_selection_bounds :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + Ptr Int32 -> -- start : TBasicType TInt32 + Ptr Int32 -> -- end : TBasicType TInt32 + IO CInt + + +labelGetSelectionBounds :: + (MonadIO m, LabelK a) => + a -- _obj + -> m (Bool,Int32,Int32) -- result +labelGetSelectionBounds _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + start <- allocMem :: IO (Ptr Int32) + end <- allocMem :: IO (Ptr Int32) + result <- gtk_label_get_selection_bounds _obj' start end + let result' = (/= 0) result + start' <- peek start + end' <- peek end + touchManagedPtr _obj + freeMem start + freeMem end + return (result', start', end') + +data LabelGetSelectionBoundsMethodInfo +instance (signature ~ (m (Bool,Int32,Int32)), MonadIO m, LabelK a) => MethodInfo LabelGetSelectionBoundsMethodInfo a signature where + overloadedMethod _ = labelGetSelectionBounds + +-- method Label::get_single_line_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_single_line_mode" gtk_label_get_single_line_mode :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CInt + + +labelGetSingleLineMode :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Bool -- result +labelGetSingleLineMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_single_line_mode _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data LabelGetSingleLineModeMethodInfo +instance (signature ~ (m Bool), MonadIO m, LabelK a) => MethodInfo LabelGetSingleLineModeMethodInfo a signature where + overloadedMethod _ = labelGetSingleLineMode + +-- method Label::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_text" gtk_label_get_text :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CString + + +labelGetText :: + (MonadIO m, LabelK a) => + a -- _obj + -> m T.Text -- result +labelGetText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_text _obj' + checkUnexpectedReturnNULL "gtk_label_get_text" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data LabelGetTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, LabelK a) => MethodInfo LabelGetTextMethodInfo a signature where + overloadedMethod _ = labelGetText + +-- method Label::get_track_visited_links +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_track_visited_links" gtk_label_get_track_visited_links :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CInt + + +labelGetTrackVisitedLinks :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Bool -- result +labelGetTrackVisitedLinks _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_track_visited_links _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data LabelGetTrackVisitedLinksMethodInfo +instance (signature ~ (m Bool), MonadIO m, LabelK a) => MethodInfo LabelGetTrackVisitedLinksMethodInfo a signature where + overloadedMethod _ = labelGetTrackVisitedLinks + +-- method Label::get_use_markup +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_use_markup" gtk_label_get_use_markup :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CInt + + +labelGetUseMarkup :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Bool -- result +labelGetUseMarkup _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_use_markup _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data LabelGetUseMarkupMethodInfo +instance (signature ~ (m Bool), MonadIO m, LabelK a) => MethodInfo LabelGetUseMarkupMethodInfo a signature where + overloadedMethod _ = labelGetUseMarkup + +-- method Label::get_use_underline +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_use_underline" gtk_label_get_use_underline :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CInt + + +labelGetUseUnderline :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Bool -- result +labelGetUseUnderline _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_use_underline _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data LabelGetUseUnderlineMethodInfo +instance (signature ~ (m Bool), MonadIO m, LabelK a) => MethodInfo LabelGetUseUnderlineMethodInfo a signature where + overloadedMethod _ = labelGetUseUnderline + +-- method Label::get_width_chars +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_width_chars" gtk_label_get_width_chars :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO Int32 + + +labelGetWidthChars :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Int32 -- result +labelGetWidthChars _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_width_chars _obj' + touchManagedPtr _obj + return result + +data LabelGetWidthCharsMethodInfo +instance (signature ~ (m Int32), MonadIO m, LabelK a) => MethodInfo LabelGetWidthCharsMethodInfo a signature where + overloadedMethod _ = labelGetWidthChars + +-- method Label::get_xalign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TFloat +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_xalign" gtk_label_get_xalign :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CFloat + + +labelGetXalign :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Float -- result +labelGetXalign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_xalign _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data LabelGetXalignMethodInfo +instance (signature ~ (m Float), MonadIO m, LabelK a) => MethodInfo LabelGetXalignMethodInfo a signature where + overloadedMethod _ = labelGetXalign + +-- method Label::get_yalign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TFloat +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_get_yalign" gtk_label_get_yalign :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + IO CFloat + + +labelGetYalign :: + (MonadIO m, LabelK a) => + a -- _obj + -> m Float -- result +labelGetYalign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_label_get_yalign _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data LabelGetYalignMethodInfo +instance (signature ~ (m Float), MonadIO m, LabelK a) => MethodInfo LabelGetYalignMethodInfo a signature where + overloadedMethod _ = labelGetYalign + +-- method Label::select_region +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_select_region" gtk_label_select_region :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + Int32 -> -- start_offset : TBasicType TInt32 + Int32 -> -- end_offset : TBasicType TInt32 + IO () + + +labelSelectRegion :: + (MonadIO m, LabelK a) => + a -- _obj + -> Int32 -- startOffset + -> Int32 -- endOffset + -> m () -- result +labelSelectRegion _obj startOffset endOffset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_label_select_region _obj' startOffset endOffset + touchManagedPtr _obj + return () + +data LabelSelectRegionMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSelectRegionMethodInfo a signature where + overloadedMethod _ = labelSelectRegion + +-- method Label::set_angle +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_angle" gtk_label_set_angle :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CDouble -> -- angle : TBasicType TDouble + IO () + + +labelSetAngle :: + (MonadIO m, LabelK a) => + a -- _obj + -> Double -- angle + -> m () -- result +labelSetAngle _obj angle = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let angle' = realToFrac angle + gtk_label_set_angle _obj' angle' + touchManagedPtr _obj + return () + +data LabelSetAngleMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetAngleMethodInfo a signature where + overloadedMethod _ = labelSetAngle + +-- method Label::set_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_attributes" gtk_label_set_attributes :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + Ptr Pango.AttrList -> -- attrs : TInterface "Pango" "AttrList" + IO () + + +labelSetAttributes :: + (MonadIO m, LabelK a) => + a -- _obj + -> Maybe (Pango.AttrList) -- attrs + -> m () -- result +labelSetAttributes _obj attrs = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeAttrs <- case attrs of + Nothing -> return nullPtr + Just jAttrs -> do + let jAttrs' = unsafeManagedPtrGetPtr jAttrs + return jAttrs' + gtk_label_set_attributes _obj' maybeAttrs + touchManagedPtr _obj + whenJust attrs touchManagedPtr + return () + +data LabelSetAttributesMethodInfo +instance (signature ~ (Maybe (Pango.AttrList) -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetAttributesMethodInfo a signature where + overloadedMethod _ = labelSetAttributes + +-- method Label::set_ellipsize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_ellipsize" gtk_label_set_ellipsize :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CUInt -> -- mode : TInterface "Pango" "EllipsizeMode" + IO () + + +labelSetEllipsize :: + (MonadIO m, LabelK a) => + a -- _obj + -> Pango.EllipsizeMode -- mode + -> m () -- result +labelSetEllipsize _obj mode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let mode' = (fromIntegral . fromEnum) mode + gtk_label_set_ellipsize _obj' mode' + touchManagedPtr _obj + return () + +data LabelSetEllipsizeMethodInfo +instance (signature ~ (Pango.EllipsizeMode -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetEllipsizeMethodInfo a signature where + overloadedMethod _ = labelSetEllipsize + +-- method Label::set_justify +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "jtype", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_justify" gtk_label_set_justify :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CUInt -> -- jtype : TInterface "Gtk" "Justification" + IO () + + +labelSetJustify :: + (MonadIO m, LabelK a) => + a -- _obj + -> Justification -- jtype + -> m () -- result +labelSetJustify _obj jtype = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let jtype' = (fromIntegral . fromEnum) jtype + gtk_label_set_justify _obj' jtype' + touchManagedPtr _obj + return () + +data LabelSetJustifyMethodInfo +instance (signature ~ (Justification -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetJustifyMethodInfo a signature where + overloadedMethod _ = labelSetJustify + +-- method Label::set_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_label" gtk_label_set_label :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CString -> -- str : TBasicType TUTF8 + IO () + + +labelSetLabel :: + (MonadIO m, LabelK a) => + a -- _obj + -> T.Text -- str + -> m () -- result +labelSetLabel _obj str = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + str' <- textToCString str + gtk_label_set_label _obj' str' + touchManagedPtr _obj + freeMem str' + return () + +data LabelSetLabelMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetLabelMethodInfo a signature where + overloadedMethod _ = labelSetLabel + +-- method Label::set_line_wrap +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_line_wrap" gtk_label_set_line_wrap :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CInt -> -- wrap : TBasicType TBoolean + IO () + + +labelSetLineWrap :: + (MonadIO m, LabelK a) => + a -- _obj + -> Bool -- wrap + -> m () -- result +labelSetLineWrap _obj wrap = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let wrap' = (fromIntegral . fromEnum) wrap + gtk_label_set_line_wrap _obj' wrap' + touchManagedPtr _obj + return () + +data LabelSetLineWrapMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetLineWrapMethodInfo a signature where + overloadedMethod _ = labelSetLineWrap + +-- method Label::set_line_wrap_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap_mode", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_line_wrap_mode" gtk_label_set_line_wrap_mode :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CUInt -> -- wrap_mode : TInterface "Pango" "WrapMode" + IO () + + +labelSetLineWrapMode :: + (MonadIO m, LabelK a) => + a -- _obj + -> Pango.WrapMode -- wrapMode + -> m () -- result +labelSetLineWrapMode _obj wrapMode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let wrapMode' = (fromIntegral . fromEnum) wrapMode + gtk_label_set_line_wrap_mode _obj' wrapMode' + touchManagedPtr _obj + return () + +data LabelSetLineWrapModeMethodInfo +instance (signature ~ (Pango.WrapMode -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetLineWrapModeMethodInfo a signature where + overloadedMethod _ = labelSetLineWrapMode + +-- method Label::set_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_lines" gtk_label_set_lines :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + Int32 -> -- lines : TBasicType TInt32 + IO () + + +labelSetLines :: + (MonadIO m, LabelK a) => + a -- _obj + -> Int32 -- lines + -> m () -- result +labelSetLines _obj lines = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_label_set_lines _obj' lines + touchManagedPtr _obj + return () + +data LabelSetLinesMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetLinesMethodInfo a signature where + overloadedMethod _ = labelSetLines + +-- method Label::set_markup +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_markup" gtk_label_set_markup :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CString -> -- str : TBasicType TUTF8 + IO () + + +labelSetMarkup :: + (MonadIO m, LabelK a) => + a -- _obj + -> T.Text -- str + -> m () -- result +labelSetMarkup _obj str = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + str' <- textToCString str + gtk_label_set_markup _obj' str' + touchManagedPtr _obj + freeMem str' + return () + +data LabelSetMarkupMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetMarkupMethodInfo a signature where + overloadedMethod _ = labelSetMarkup + +-- method Label::set_markup_with_mnemonic +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_markup_with_mnemonic" gtk_label_set_markup_with_mnemonic :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CString -> -- str : TBasicType TUTF8 + IO () + + +labelSetMarkupWithMnemonic :: + (MonadIO m, LabelK a) => + a -- _obj + -> T.Text -- str + -> m () -- result +labelSetMarkupWithMnemonic _obj str = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + str' <- textToCString str + gtk_label_set_markup_with_mnemonic _obj' str' + touchManagedPtr _obj + freeMem str' + return () + +data LabelSetMarkupWithMnemonicMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetMarkupWithMnemonicMethodInfo a signature where + overloadedMethod _ = labelSetMarkupWithMnemonic + +-- method Label::set_max_width_chars +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_max_width_chars" gtk_label_set_max_width_chars :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + Int32 -> -- n_chars : TBasicType TInt32 + IO () + + +labelSetMaxWidthChars :: + (MonadIO m, LabelK a) => + a -- _obj + -> Int32 -- nChars + -> m () -- result +labelSetMaxWidthChars _obj nChars = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_label_set_max_width_chars _obj' nChars + touchManagedPtr _obj + return () + +data LabelSetMaxWidthCharsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetMaxWidthCharsMethodInfo a signature where + overloadedMethod _ = labelSetMaxWidthChars + +-- method Label::set_mnemonic_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_mnemonic_widget" gtk_label_set_mnemonic_widget :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + Ptr Widget -> -- widget : TInterface "Gtk" "Widget" + IO () + + +labelSetMnemonicWidget :: + (MonadIO m, LabelK a, WidgetK b) => + a -- _obj + -> Maybe (b) -- widget + -> m () -- result +labelSetMnemonicWidget _obj widget = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeWidget <- case widget of + Nothing -> return nullPtr + Just jWidget -> do + let jWidget' = unsafeManagedPtrCastPtr jWidget + return jWidget' + gtk_label_set_mnemonic_widget _obj' maybeWidget + touchManagedPtr _obj + whenJust widget touchManagedPtr + return () + +data LabelSetMnemonicWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, LabelK a, WidgetK b) => MethodInfo LabelSetMnemonicWidgetMethodInfo a signature where + overloadedMethod _ = labelSetMnemonicWidget + +-- method Label::set_pattern +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_pattern" gtk_label_set_pattern :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CString -> -- pattern : TBasicType TUTF8 + IO () + + +labelSetPattern :: + (MonadIO m, LabelK a) => + a -- _obj + -> T.Text -- pattern + -> m () -- result +labelSetPattern _obj pattern = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + pattern' <- textToCString pattern + gtk_label_set_pattern _obj' pattern' + touchManagedPtr _obj + freeMem pattern' + return () + +data LabelSetPatternMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetPatternMethodInfo a signature where + overloadedMethod _ = labelSetPattern + +-- method Label::set_selectable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_selectable" gtk_label_set_selectable :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CInt -> -- setting : TBasicType TBoolean + IO () + + +labelSetSelectable :: + (MonadIO m, LabelK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +labelSetSelectable _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_label_set_selectable _obj' setting' + touchManagedPtr _obj + return () + +data LabelSetSelectableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetSelectableMethodInfo a signature where + overloadedMethod _ = labelSetSelectable + +-- method Label::set_single_line_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single_line_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_single_line_mode" gtk_label_set_single_line_mode :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CInt -> -- single_line_mode : TBasicType TBoolean + IO () + + +labelSetSingleLineMode :: + (MonadIO m, LabelK a) => + a -- _obj + -> Bool -- singleLineMode + -> m () -- result +labelSetSingleLineMode _obj singleLineMode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let singleLineMode' = (fromIntegral . fromEnum) singleLineMode + gtk_label_set_single_line_mode _obj' singleLineMode' + touchManagedPtr _obj + return () + +data LabelSetSingleLineModeMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetSingleLineModeMethodInfo a signature where + overloadedMethod _ = labelSetSingleLineMode + +-- method Label::set_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_text" gtk_label_set_text :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CString -> -- str : TBasicType TUTF8 + IO () + + +labelSetText :: + (MonadIO m, LabelK a) => + a -- _obj + -> T.Text -- str + -> m () -- result +labelSetText _obj str = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + str' <- textToCString str + gtk_label_set_text _obj' str' + touchManagedPtr _obj + freeMem str' + return () + +data LabelSetTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetTextMethodInfo a signature where + overloadedMethod _ = labelSetText + +-- method Label::set_text_with_mnemonic +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_text_with_mnemonic" gtk_label_set_text_with_mnemonic :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CString -> -- str : TBasicType TUTF8 + IO () + + +labelSetTextWithMnemonic :: + (MonadIO m, LabelK a) => + a -- _obj + -> T.Text -- str + -> m () -- result +labelSetTextWithMnemonic _obj str = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + str' <- textToCString str + gtk_label_set_text_with_mnemonic _obj' str' + touchManagedPtr _obj + freeMem str' + return () + +data LabelSetTextWithMnemonicMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetTextWithMnemonicMethodInfo a signature where + overloadedMethod _ = labelSetTextWithMnemonic + +-- method Label::set_track_visited_links +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "track_links", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_track_visited_links" gtk_label_set_track_visited_links :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CInt -> -- track_links : TBasicType TBoolean + IO () + + +labelSetTrackVisitedLinks :: + (MonadIO m, LabelK a) => + a -- _obj + -> Bool -- trackLinks + -> m () -- result +labelSetTrackVisitedLinks _obj trackLinks = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let trackLinks' = (fromIntegral . fromEnum) trackLinks + gtk_label_set_track_visited_links _obj' trackLinks' + touchManagedPtr _obj + return () + +data LabelSetTrackVisitedLinksMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetTrackVisitedLinksMethodInfo a signature where + overloadedMethod _ = labelSetTrackVisitedLinks + +-- method Label::set_use_markup +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_use_markup" gtk_label_set_use_markup :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CInt -> -- setting : TBasicType TBoolean + IO () + + +labelSetUseMarkup :: + (MonadIO m, LabelK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +labelSetUseMarkup _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_label_set_use_markup _obj' setting' + touchManagedPtr _obj + return () + +data LabelSetUseMarkupMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetUseMarkupMethodInfo a signature where + overloadedMethod _ = labelSetUseMarkup + +-- method Label::set_use_underline +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_use_underline" gtk_label_set_use_underline :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CInt -> -- setting : TBasicType TBoolean + IO () + + +labelSetUseUnderline :: + (MonadIO m, LabelK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +labelSetUseUnderline _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_label_set_use_underline _obj' setting' + touchManagedPtr _obj + return () + +data LabelSetUseUnderlineMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetUseUnderlineMethodInfo a signature where + overloadedMethod _ = labelSetUseUnderline + +-- method Label::set_width_chars +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_width_chars" gtk_label_set_width_chars :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + Int32 -> -- n_chars : TBasicType TInt32 + IO () + + +labelSetWidthChars :: + (MonadIO m, LabelK a) => + a -- _obj + -> Int32 -- nChars + -> m () -- result +labelSetWidthChars _obj nChars = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_label_set_width_chars _obj' nChars + touchManagedPtr _obj + return () + +data LabelSetWidthCharsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetWidthCharsMethodInfo a signature where + overloadedMethod _ = labelSetWidthChars + +-- method Label::set_xalign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_xalign" gtk_label_set_xalign :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CFloat -> -- xalign : TBasicType TFloat + IO () + + +labelSetXalign :: + (MonadIO m, LabelK a) => + a -- _obj + -> Float -- xalign + -> m () -- result +labelSetXalign _obj xalign = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let xalign' = realToFrac xalign + gtk_label_set_xalign _obj' xalign' + touchManagedPtr _obj + return () + +data LabelSetXalignMethodInfo +instance (signature ~ (Float -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetXalignMethodInfo a signature where + overloadedMethod _ = labelSetXalign + +-- method Label::set_yalign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_label_set_yalign" gtk_label_set_yalign :: + Ptr Label -> -- _obj : TInterface "Gtk" "Label" + CFloat -> -- yalign : TBasicType TFloat + IO () + + +labelSetYalign :: + (MonadIO m, LabelK a) => + a -- _obj + -> Float -- yalign + -> m () -- result +labelSetYalign _obj yalign = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let yalign' = realToFrac yalign + gtk_label_set_yalign _obj' yalign' + touchManagedPtr _obj + return () + +data LabelSetYalignMethodInfo +instance (signature ~ (Float -> m ()), MonadIO m, LabelK a) => MethodInfo LabelSetYalignMethodInfo a signature where + overloadedMethod _ = labelSetYalign diff --git a/GI/Gtk/Objects/Label.hs-boot b/GI/Gtk/Objects/Label.hs-boot --- a/GI/Gtk/Objects/Label.hs-boot +++ b/GI/Gtk/Objects/Label.hs-boot @@ -38,3 +38,51 @@ data LabelCopyClipboardSignalInfo data LabelMoveCursorSignalInfo data LabelPopulatePopupSignalInfo +data LabelGetAngleMethodInfo +data LabelGetAttributesMethodInfo +data LabelGetCurrentUriMethodInfo +data LabelGetEllipsizeMethodInfo +data LabelGetJustifyMethodInfo +data LabelGetLabelMethodInfo +data LabelGetLayoutMethodInfo +data LabelGetLayoutOffsetsMethodInfo +data LabelGetLineWrapMethodInfo +data LabelGetLineWrapModeMethodInfo +data LabelGetLinesMethodInfo +data LabelGetMaxWidthCharsMethodInfo +data LabelGetMnemonicKeyvalMethodInfo +data LabelGetMnemonicWidgetMethodInfo +data LabelGetSelectableMethodInfo +data LabelGetSelectionBoundsMethodInfo +data LabelGetSingleLineModeMethodInfo +data LabelGetTextMethodInfo +data LabelGetTrackVisitedLinksMethodInfo +data LabelGetUseMarkupMethodInfo +data LabelGetUseUnderlineMethodInfo +data LabelGetWidthCharsMethodInfo +data LabelGetXalignMethodInfo +data LabelGetYalignMethodInfo +data LabelSelectRegionMethodInfo +data LabelSetAngleMethodInfo +data LabelSetAttributesMethodInfo +data LabelSetEllipsizeMethodInfo +data LabelSetJustifyMethodInfo +data LabelSetLabelMethodInfo +data LabelSetLineWrapMethodInfo +data LabelSetLineWrapModeMethodInfo +data LabelSetLinesMethodInfo +data LabelSetMarkupMethodInfo +data LabelSetMarkupWithMnemonicMethodInfo +data LabelSetMaxWidthCharsMethodInfo +data LabelSetMnemonicWidgetMethodInfo +data LabelSetPatternMethodInfo +data LabelSetSelectableMethodInfo +data LabelSetSingleLineModeMethodInfo +data LabelSetTextMethodInfo +data LabelSetTextWithMnemonicMethodInfo +data LabelSetTrackVisitedLinksMethodInfo +data LabelSetUseMarkupMethodInfo +data LabelSetUseUnderlineMethodInfo +data LabelSetWidthCharsMethodInfo +data LabelSetXalignMethodInfo +data LabelSetYalignMethodInfo diff --git a/GI/Gtk/Objects/LabelAccessible.hs b/GI/Gtk/Objects/LabelAccessible.hs --- a/GI/Gtk/Objects/LabelAccessible.hs +++ b/GI/Gtk/Objects/LabelAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,101 @@ noLabelAccessible :: Maybe LabelAccessible noLabelAccessible = Nothing +type family ResolveLabelAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveLabelAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveLabelAccessibleMethod "addSelection" o = Atk.TextAddSelectionMethodInfo + ResolveLabelAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveLabelAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveLabelAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveLabelAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveLabelAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveLabelAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveLabelAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveLabelAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveLabelAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveLabelAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveLabelAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveLabelAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveLabelAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveLabelAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveLabelAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveLabelAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveLabelAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveLabelAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveLabelAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveLabelAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveLabelAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveLabelAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveLabelAccessibleMethod "removeSelection" o = Atk.TextRemoveSelectionMethodInfo + ResolveLabelAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveLabelAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveLabelAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveLabelAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveLabelAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveLabelAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveLabelAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveLabelAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveLabelAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveLabelAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveLabelAccessibleMethod "getBoundedRanges" o = Atk.TextGetBoundedRangesMethodInfo + ResolveLabelAccessibleMethod "getCaretOffset" o = Atk.TextGetCaretOffsetMethodInfo + ResolveLabelAccessibleMethod "getCharacterAtOffset" o = Atk.TextGetCharacterAtOffsetMethodInfo + ResolveLabelAccessibleMethod "getCharacterCount" o = Atk.TextGetCharacterCountMethodInfo + ResolveLabelAccessibleMethod "getCharacterExtents" o = Atk.TextGetCharacterExtentsMethodInfo + ResolveLabelAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveLabelAccessibleMethod "getDefaultAttributes" o = Atk.TextGetDefaultAttributesMethodInfo + ResolveLabelAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveLabelAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveLabelAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveLabelAccessibleMethod "getLink" o = Atk.HypertextGetLinkMethodInfo + ResolveLabelAccessibleMethod "getLinkIndex" o = Atk.HypertextGetLinkIndexMethodInfo + ResolveLabelAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveLabelAccessibleMethod "getNLinks" o = Atk.HypertextGetNLinksMethodInfo + ResolveLabelAccessibleMethod "getNSelections" o = Atk.TextGetNSelectionsMethodInfo + ResolveLabelAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveLabelAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveLabelAccessibleMethod "getOffsetAtPoint" o = Atk.TextGetOffsetAtPointMethodInfo + ResolveLabelAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveLabelAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveLabelAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveLabelAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveLabelAccessibleMethod "getRangeExtents" o = Atk.TextGetRangeExtentsMethodInfo + ResolveLabelAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveLabelAccessibleMethod "getRunAttributes" o = Atk.TextGetRunAttributesMethodInfo + ResolveLabelAccessibleMethod "getSelection" o = Atk.TextGetSelectionMethodInfo + ResolveLabelAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveLabelAccessibleMethod "getStringAtOffset" o = Atk.TextGetStringAtOffsetMethodInfo + ResolveLabelAccessibleMethod "getText" o = Atk.TextGetTextMethodInfo + ResolveLabelAccessibleMethod "getTextAfterOffset" o = Atk.TextGetTextAfterOffsetMethodInfo + ResolveLabelAccessibleMethod "getTextAtOffset" o = Atk.TextGetTextAtOffsetMethodInfo + ResolveLabelAccessibleMethod "getTextBeforeOffset" o = Atk.TextGetTextBeforeOffsetMethodInfo + ResolveLabelAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveLabelAccessibleMethod "setCaretOffset" o = Atk.TextSetCaretOffsetMethodInfo + ResolveLabelAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveLabelAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveLabelAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveLabelAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveLabelAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveLabelAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveLabelAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveLabelAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveLabelAccessibleMethod "setSelection" o = Atk.TextSetSelectionMethodInfo + ResolveLabelAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveLabelAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveLabelAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveLabelAccessibleMethod t LabelAccessible, MethodInfo info LabelAccessible p) => IsLabelProxy t (LabelAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveLabelAccessibleMethod t LabelAccessible, MethodInfo info LabelAccessible p) => IsLabel t (LabelAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList LabelAccessible = LabelAccessibleAttributeList -type LabelAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type LabelAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList LabelAccessible = LabelAccessibleSignalList -type LabelAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("link-selected", Atk.HypertextLinkSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type LabelAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("linkSelected", Atk.HypertextLinkSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("textAttributesChanged", Atk.TextTextAttributesChangedSignalInfo), '("textCaretMoved", Atk.TextTextCaretMovedSignalInfo), '("textChanged", Atk.TextTextChangedSignalInfo), '("textInsert", Atk.TextTextInsertSignalInfo), '("textRemove", Atk.TextTextRemoveSignalInfo), '("textSelectionChanged", Atk.TextTextSelectionChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/Layout.hs b/GI/Gtk/Objects/Layout.hs --- a/GI/Gtk/Objects/Layout.hs +++ b/GI/Gtk/Objects/Layout.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** layoutGetBinWindow + LayoutGetBinWindowMethodInfo , layoutGetBinWindow , -- ** layoutGetHadjustment + LayoutGetHadjustmentMethodInfo , layoutGetHadjustment , -- ** layoutGetSize + LayoutGetSizeMethodInfo , layoutGetSize , -- ** layoutGetVadjustment + LayoutGetVadjustmentMethodInfo , layoutGetVadjustment , -- ** layoutMove + LayoutMoveMethodInfo , layoutMove , @@ -41,18 +47,22 @@ -- ** layoutPut + LayoutPutMethodInfo , layoutPut , -- ** layoutSetHadjustment + LayoutSetHadjustmentMethodInfo , layoutSetHadjustment , -- ** layoutSetSize + LayoutSetSizeMethodInfo , layoutSetSize , -- ** layoutSetVadjustment + LayoutSetVadjustmentMethodInfo , layoutSetVadjustment , @@ -111,6 +121,338 @@ noLayout :: Maybe Layout noLayout = Nothing +type family ResolveLayoutMethod (t :: Symbol) (o :: *) :: * where + ResolveLayoutMethod "activate" o = WidgetActivateMethodInfo + ResolveLayoutMethod "add" o = ContainerAddMethodInfo + ResolveLayoutMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveLayoutMethod "addChild" o = BuildableAddChildMethodInfo + ResolveLayoutMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveLayoutMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveLayoutMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveLayoutMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveLayoutMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveLayoutMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveLayoutMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveLayoutMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveLayoutMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveLayoutMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveLayoutMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveLayoutMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveLayoutMethod "childType" o = ContainerChildTypeMethodInfo + ResolveLayoutMethod "classPath" o = WidgetClassPathMethodInfo + ResolveLayoutMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveLayoutMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveLayoutMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveLayoutMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveLayoutMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveLayoutMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveLayoutMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveLayoutMethod "destroy" o = WidgetDestroyMethodInfo + ResolveLayoutMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveLayoutMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveLayoutMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveLayoutMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveLayoutMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveLayoutMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveLayoutMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveLayoutMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveLayoutMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveLayoutMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveLayoutMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveLayoutMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveLayoutMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveLayoutMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveLayoutMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveLayoutMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveLayoutMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveLayoutMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveLayoutMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveLayoutMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveLayoutMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveLayoutMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveLayoutMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveLayoutMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveLayoutMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveLayoutMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveLayoutMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveLayoutMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveLayoutMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveLayoutMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveLayoutMethod "draw" o = WidgetDrawMethodInfo + ResolveLayoutMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveLayoutMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveLayoutMethod "event" o = WidgetEventMethodInfo + ResolveLayoutMethod "forall" o = ContainerForallMethodInfo + ResolveLayoutMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveLayoutMethod "foreach" o = ContainerForeachMethodInfo + ResolveLayoutMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveLayoutMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveLayoutMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveLayoutMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveLayoutMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveLayoutMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveLayoutMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveLayoutMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveLayoutMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveLayoutMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveLayoutMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveLayoutMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveLayoutMethod "hide" o = WidgetHideMethodInfo + ResolveLayoutMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveLayoutMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveLayoutMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveLayoutMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveLayoutMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveLayoutMethod "intersect" o = WidgetIntersectMethodInfo + ResolveLayoutMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveLayoutMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveLayoutMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveLayoutMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveLayoutMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveLayoutMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveLayoutMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveLayoutMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveLayoutMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveLayoutMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveLayoutMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveLayoutMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveLayoutMethod "map" o = WidgetMapMethodInfo + ResolveLayoutMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveLayoutMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveLayoutMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveLayoutMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveLayoutMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveLayoutMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveLayoutMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveLayoutMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveLayoutMethod "move" o = LayoutMoveMethodInfo + ResolveLayoutMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveLayoutMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveLayoutMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveLayoutMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveLayoutMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveLayoutMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveLayoutMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveLayoutMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveLayoutMethod "path" o = WidgetPathMethodInfo + ResolveLayoutMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveLayoutMethod "put" o = LayoutPutMethodInfo + ResolveLayoutMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveLayoutMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveLayoutMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveLayoutMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveLayoutMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveLayoutMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveLayoutMethod "realize" o = WidgetRealizeMethodInfo + ResolveLayoutMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveLayoutMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveLayoutMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveLayoutMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveLayoutMethod "remove" o = ContainerRemoveMethodInfo + ResolveLayoutMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveLayoutMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveLayoutMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveLayoutMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveLayoutMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveLayoutMethod "reparent" o = WidgetReparentMethodInfo + ResolveLayoutMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveLayoutMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveLayoutMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveLayoutMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveLayoutMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveLayoutMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveLayoutMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveLayoutMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveLayoutMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveLayoutMethod "show" o = WidgetShowMethodInfo + ResolveLayoutMethod "showAll" o = WidgetShowAllMethodInfo + ResolveLayoutMethod "showNow" o = WidgetShowNowMethodInfo + ResolveLayoutMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveLayoutMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveLayoutMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveLayoutMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveLayoutMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveLayoutMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveLayoutMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveLayoutMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveLayoutMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveLayoutMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveLayoutMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveLayoutMethod "unmap" o = WidgetUnmapMethodInfo + ResolveLayoutMethod "unparent" o = WidgetUnparentMethodInfo + ResolveLayoutMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveLayoutMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveLayoutMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveLayoutMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveLayoutMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveLayoutMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveLayoutMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveLayoutMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveLayoutMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveLayoutMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveLayoutMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveLayoutMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveLayoutMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveLayoutMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveLayoutMethod "getBinWindow" o = LayoutGetBinWindowMethodInfo + ResolveLayoutMethod "getBorder" o = ScrollableGetBorderMethodInfo + ResolveLayoutMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveLayoutMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveLayoutMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveLayoutMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveLayoutMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveLayoutMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveLayoutMethod "getClip" o = WidgetGetClipMethodInfo + ResolveLayoutMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveLayoutMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveLayoutMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveLayoutMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveLayoutMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveLayoutMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveLayoutMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveLayoutMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveLayoutMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveLayoutMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveLayoutMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveLayoutMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveLayoutMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveLayoutMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveLayoutMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveLayoutMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveLayoutMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveLayoutMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveLayoutMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveLayoutMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveLayoutMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveLayoutMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo + ResolveLayoutMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveLayoutMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveLayoutMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveLayoutMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveLayoutMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveLayoutMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveLayoutMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveLayoutMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveLayoutMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveLayoutMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveLayoutMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveLayoutMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveLayoutMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveLayoutMethod "getParent" o = WidgetGetParentMethodInfo + ResolveLayoutMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveLayoutMethod "getPath" o = WidgetGetPathMethodInfo + ResolveLayoutMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveLayoutMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveLayoutMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveLayoutMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveLayoutMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveLayoutMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveLayoutMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveLayoutMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveLayoutMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveLayoutMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveLayoutMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveLayoutMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveLayoutMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveLayoutMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveLayoutMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveLayoutMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveLayoutMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveLayoutMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveLayoutMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveLayoutMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveLayoutMethod "getSize" o = LayoutGetSizeMethodInfo + ResolveLayoutMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveLayoutMethod "getState" o = WidgetGetStateMethodInfo + ResolveLayoutMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveLayoutMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveLayoutMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveLayoutMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveLayoutMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveLayoutMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveLayoutMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveLayoutMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveLayoutMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveLayoutMethod "getValign" o = WidgetGetValignMethodInfo + ResolveLayoutMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveLayoutMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveLayoutMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveLayoutMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveLayoutMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveLayoutMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo + ResolveLayoutMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveLayoutMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveLayoutMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveLayoutMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveLayoutMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveLayoutMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveLayoutMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveLayoutMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveLayoutMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveLayoutMethod "setClip" o = WidgetSetClipMethodInfo + ResolveLayoutMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveLayoutMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveLayoutMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveLayoutMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveLayoutMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveLayoutMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveLayoutMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveLayoutMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveLayoutMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveLayoutMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveLayoutMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveLayoutMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveLayoutMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveLayoutMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveLayoutMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveLayoutMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveLayoutMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveLayoutMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveLayoutMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo + ResolveLayoutMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveLayoutMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveLayoutMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveLayoutMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveLayoutMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveLayoutMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveLayoutMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveLayoutMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveLayoutMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveLayoutMethod "setParent" o = WidgetSetParentMethodInfo + ResolveLayoutMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveLayoutMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveLayoutMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveLayoutMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveLayoutMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveLayoutMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveLayoutMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveLayoutMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveLayoutMethod "setSize" o = LayoutSetSizeMethodInfo + ResolveLayoutMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveLayoutMethod "setState" o = WidgetSetStateMethodInfo + ResolveLayoutMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveLayoutMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveLayoutMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveLayoutMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveLayoutMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveLayoutMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveLayoutMethod "setValign" o = WidgetSetValignMethodInfo + ResolveLayoutMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveLayoutMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveLayoutMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveLayoutMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveLayoutMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo + ResolveLayoutMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveLayoutMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveLayoutMethod t Layout, MethodInfo info Layout p) => IsLabelProxy t (Layout -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveLayoutMethod t Layout, MethodInfo info Layout p) => IsLabel t (Layout -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "height" -- Type: TBasicType TUInt32 -- Flags: [PropertyReadable,PropertyWritable] @@ -130,7 +472,7 @@ type AttrSetTypeConstraint LayoutHeightPropertyInfo = (~) Word32 type AttrBaseTypeConstraint LayoutHeightPropertyInfo = LayoutK type AttrGetType LayoutHeightPropertyInfo = Word32 - type AttrLabel LayoutHeightPropertyInfo = "Layout::height" + type AttrLabel LayoutHeightPropertyInfo = "height" attrGet _ = getLayoutHeight attrSet _ = setLayoutHeight attrConstruct _ = constructLayoutHeight @@ -154,22 +496,21 @@ type AttrSetTypeConstraint LayoutWidthPropertyInfo = (~) Word32 type AttrBaseTypeConstraint LayoutWidthPropertyInfo = LayoutK type AttrGetType LayoutWidthPropertyInfo = Word32 - type AttrLabel LayoutWidthPropertyInfo = "Layout::width" + type AttrLabel LayoutWidthPropertyInfo = "width" attrGet _ = getLayoutWidth attrSet _ = setLayoutWidth attrConstruct _ = constructLayoutWidth type instance AttributeList Layout = LayoutAttributeList -type LayoutAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height", LayoutHeightPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width", LayoutWidthPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type LayoutAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("height", LayoutHeightPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("width", LayoutWidthPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Layout = LayoutSignalList -type LayoutSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type LayoutSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Layout::new -- method type : Constructor --- Args : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Layout" -- throws : False -- Skip return : False @@ -182,9 +523,9 @@ layoutNew :: (MonadIO m, AdjustmentK a, AdjustmentK b) => - Maybe (a) -> -- hadjustment - Maybe (b) -> -- vadjustment - m Layout + Maybe (a) -- hadjustment + -> Maybe (b) -- vadjustment + -> m Layout -- result layoutNew hadjustment vadjustment = liftIO $ do maybeHadjustment <- case hadjustment of Nothing -> return nullPtr @@ -205,9 +546,8 @@ -- method Layout::get_bin_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False @@ -219,8 +559,8 @@ layoutGetBinWindow :: (MonadIO m, LayoutK a) => - a -> -- _obj - m Gdk.Window + a -- _obj + -> m Gdk.Window -- result layoutGetBinWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_layout_get_bin_window _obj' @@ -229,11 +569,14 @@ touchManagedPtr _obj return result' +data LayoutGetBinWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, LayoutK a) => MethodInfo LayoutGetBinWindowMethodInfo a signature where + overloadedMethod _ = layoutGetBinWindow + -- method Layout::get_hadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -245,8 +588,8 @@ {-# DEPRECATED layoutGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-} layoutGetHadjustment :: (MonadIO m, LayoutK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result layoutGetHadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_layout_get_hadjustment _obj' @@ -255,11 +598,14 @@ touchManagedPtr _obj return result' +data LayoutGetHadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, LayoutK a) => MethodInfo LayoutGetHadjustmentMethodInfo a signature where + overloadedMethod _ = layoutGetHadjustment + -- method Layout::get_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -273,8 +619,8 @@ layoutGetSize :: (MonadIO m, LayoutK a) => - a -> -- _obj - m (Word32,Word32) + a -- _obj + -> m (Word32,Word32) -- result layoutGetSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj width <- allocMem :: IO (Ptr Word32) @@ -287,11 +633,14 @@ freeMem height return (width', height') +data LayoutGetSizeMethodInfo +instance (signature ~ (m (Word32,Word32)), MonadIO m, LayoutK a) => MethodInfo LayoutGetSizeMethodInfo a signature where + overloadedMethod _ = layoutGetSize + -- method Layout::get_vadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -303,8 +652,8 @@ {-# DEPRECATED layoutGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-} layoutGetVadjustment :: (MonadIO m, LayoutK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result layoutGetVadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_layout_get_vadjustment _obj' @@ -313,11 +662,14 @@ touchManagedPtr _obj return result' +data LayoutGetVadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, LayoutK a) => MethodInfo LayoutGetVadjustmentMethodInfo a signature where + overloadedMethod _ = layoutGetVadjustment + -- method Layout::move -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -332,24 +684,27 @@ layoutMove :: (MonadIO m, LayoutK a, WidgetK b) => - a -> -- _obj - b -> -- child_widget - Int32 -> -- x - Int32 -> -- y - m () -layoutMove _obj child_widget x y = liftIO $ do + a -- _obj + -> b -- childWidget + -> Int32 -- x + -> Int32 -- y + -> m () -- result +layoutMove _obj childWidget x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let child_widget' = unsafeManagedPtrCastPtr child_widget - gtk_layout_move _obj' child_widget' x y + let childWidget' = unsafeManagedPtrCastPtr childWidget + gtk_layout_move _obj' childWidget' x y touchManagedPtr _obj - touchManagedPtr child_widget + touchManagedPtr childWidget return () +data LayoutMoveMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, LayoutK a, WidgetK b) => MethodInfo LayoutMoveMethodInfo a signature where + overloadedMethod _ = layoutMove + -- method Layout::put -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -364,24 +719,27 @@ layoutPut :: (MonadIO m, LayoutK a, WidgetK b) => - a -> -- _obj - b -> -- child_widget - Int32 -> -- x - Int32 -> -- y - m () -layoutPut _obj child_widget x y = liftIO $ do + a -- _obj + -> b -- childWidget + -> Int32 -- x + -> Int32 -- y + -> m () -- result +layoutPut _obj childWidget x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let child_widget' = unsafeManagedPtrCastPtr child_widget - gtk_layout_put _obj' child_widget' x y + let childWidget' = unsafeManagedPtrCastPtr childWidget + gtk_layout_put _obj' childWidget' x y touchManagedPtr _obj - touchManagedPtr child_widget + touchManagedPtr childWidget return () +data LayoutPutMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, LayoutK a, WidgetK b) => MethodInfo LayoutPutMethodInfo a signature where + overloadedMethod _ = layoutPut + -- method Layout::set_hadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -394,9 +752,9 @@ {-# DEPRECATED layoutSetHadjustment ["(Since version 3.0)","Use gtk_scrollable_set_hadjustment()"]#-} layoutSetHadjustment :: (MonadIO m, LayoutK a, AdjustmentK b) => - a -> -- _obj - Maybe (b) -> -- adjustment - m () + a -- _obj + -> Maybe (b) -- adjustment + -> m () -- result layoutSetHadjustment _obj adjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeAdjustment <- case adjustment of @@ -409,11 +767,14 @@ whenJust adjustment touchManagedPtr return () +data LayoutSetHadjustmentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, LayoutK a, AdjustmentK b) => MethodInfo LayoutSetHadjustmentMethodInfo a signature where + overloadedMethod _ = layoutSetHadjustment + -- method Layout::set_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -427,21 +788,24 @@ layoutSetSize :: (MonadIO m, LayoutK a) => - a -> -- _obj - Word32 -> -- width - Word32 -> -- height - m () + a -- _obj + -> Word32 -- width + -> Word32 -- height + -> m () -- result layoutSetSize _obj width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_layout_set_size _obj' width height touchManagedPtr _obj return () +data LayoutSetSizeMethodInfo +instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetSizeMethodInfo a signature where + overloadedMethod _ = layoutSetSize + -- method Layout::set_vadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -454,9 +818,9 @@ {-# DEPRECATED layoutSetVadjustment ["(Since version 3.0)","Use gtk_scrollable_set_vadjustment()"]#-} layoutSetVadjustment :: (MonadIO m, LayoutK a, AdjustmentK b) => - a -> -- _obj - Maybe (b) -> -- adjustment - m () + a -- _obj + -> Maybe (b) -- adjustment + -> m () -- result layoutSetVadjustment _obj adjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeAdjustment <- case adjustment of @@ -468,5 +832,9 @@ touchManagedPtr _obj whenJust adjustment touchManagedPtr return () + +data LayoutSetVadjustmentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, LayoutK a, AdjustmentK b) => MethodInfo LayoutSetVadjustmentMethodInfo a signature where + overloadedMethod _ = layoutSetVadjustment diff --git a/GI/Gtk/Objects/Layout.hs-boot b/GI/Gtk/Objects/Layout.hs-boot --- a/GI/Gtk/Objects/Layout.hs-boot +++ b/GI/Gtk/Objects/Layout.hs-boot @@ -13,3 +13,12 @@ instance (GObject o, IsDescendantOf Layout o) => LayoutK o data LayoutHeightPropertyInfo data LayoutWidthPropertyInfo +data LayoutGetBinWindowMethodInfo +data LayoutGetHadjustmentMethodInfo +data LayoutGetSizeMethodInfo +data LayoutGetVadjustmentMethodInfo +data LayoutMoveMethodInfo +data LayoutPutMethodInfo +data LayoutSetHadjustmentMethodInfo +data LayoutSetSizeMethodInfo +data LayoutSetVadjustmentMethodInfo diff --git a/GI/Gtk/Objects/LevelBar.hs b/GI/Gtk/Objects/LevelBar.hs --- a/GI/Gtk/Objects/LevelBar.hs +++ b/GI/Gtk/Objects/LevelBar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,30 +18,37 @@ -- * Methods -- ** levelBarAddOffsetValue + LevelBarAddOffsetValueMethodInfo , levelBarAddOffsetValue , -- ** levelBarGetInverted + LevelBarGetInvertedMethodInfo , levelBarGetInverted , -- ** levelBarGetMaxValue + LevelBarGetMaxValueMethodInfo , levelBarGetMaxValue , -- ** levelBarGetMinValue + LevelBarGetMinValueMethodInfo , levelBarGetMinValue , -- ** levelBarGetMode + LevelBarGetModeMethodInfo , levelBarGetMode , -- ** levelBarGetOffsetValue + LevelBarGetOffsetValueMethodInfo , levelBarGetOffsetValue , -- ** levelBarGetValue + LevelBarGetValueMethodInfo , levelBarGetValue , @@ -53,26 +61,32 @@ -- ** levelBarRemoveOffsetValue + LevelBarRemoveOffsetValueMethodInfo , levelBarRemoveOffsetValue , -- ** levelBarSetInverted + LevelBarSetInvertedMethodInfo , levelBarSetInverted , -- ** levelBarSetMaxValue + LevelBarSetMaxValueMethodInfo , levelBarSetMaxValue , -- ** levelBarSetMinValue + LevelBarSetMinValueMethodInfo , levelBarSetMinValue , -- ** levelBarSetMode + LevelBarSetModeMethodInfo , levelBarSetMode , -- ** levelBarSetValue + LevelBarSetValueMethodInfo , levelBarSetValue , @@ -166,6 +180,317 @@ noLevelBar :: Maybe LevelBar noLevelBar = Nothing +type family ResolveLevelBarMethod (t :: Symbol) (o :: *) :: * where + ResolveLevelBarMethod "activate" o = WidgetActivateMethodInfo + ResolveLevelBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveLevelBarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveLevelBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveLevelBarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveLevelBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveLevelBarMethod "addOffsetValue" o = LevelBarAddOffsetValueMethodInfo + ResolveLevelBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveLevelBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveLevelBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveLevelBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveLevelBarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveLevelBarMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveLevelBarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveLevelBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveLevelBarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveLevelBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveLevelBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveLevelBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveLevelBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveLevelBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveLevelBarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveLevelBarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveLevelBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveLevelBarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveLevelBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveLevelBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveLevelBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveLevelBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveLevelBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveLevelBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveLevelBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveLevelBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveLevelBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveLevelBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveLevelBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveLevelBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveLevelBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveLevelBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveLevelBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveLevelBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveLevelBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveLevelBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveLevelBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveLevelBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveLevelBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveLevelBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveLevelBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveLevelBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveLevelBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveLevelBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveLevelBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveLevelBarMethod "draw" o = WidgetDrawMethodInfo + ResolveLevelBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveLevelBarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveLevelBarMethod "event" o = WidgetEventMethodInfo + ResolveLevelBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveLevelBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveLevelBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveLevelBarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveLevelBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveLevelBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveLevelBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveLevelBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveLevelBarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveLevelBarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveLevelBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveLevelBarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveLevelBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveLevelBarMethod "hide" o = WidgetHideMethodInfo + ResolveLevelBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveLevelBarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveLevelBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveLevelBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveLevelBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveLevelBarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveLevelBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveLevelBarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveLevelBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveLevelBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveLevelBarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveLevelBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveLevelBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveLevelBarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveLevelBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveLevelBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveLevelBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveLevelBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveLevelBarMethod "map" o = WidgetMapMethodInfo + ResolveLevelBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveLevelBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveLevelBarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveLevelBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveLevelBarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveLevelBarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveLevelBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveLevelBarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveLevelBarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveLevelBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveLevelBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveLevelBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveLevelBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveLevelBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveLevelBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveLevelBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveLevelBarMethod "path" o = WidgetPathMethodInfo + ResolveLevelBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveLevelBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveLevelBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveLevelBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveLevelBarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveLevelBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveLevelBarMethod "realize" o = WidgetRealizeMethodInfo + ResolveLevelBarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveLevelBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveLevelBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveLevelBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveLevelBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveLevelBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveLevelBarMethod "removeOffsetValue" o = LevelBarRemoveOffsetValueMethodInfo + ResolveLevelBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveLevelBarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveLevelBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveLevelBarMethod "reparent" o = WidgetReparentMethodInfo + ResolveLevelBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveLevelBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveLevelBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveLevelBarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveLevelBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveLevelBarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveLevelBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveLevelBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveLevelBarMethod "show" o = WidgetShowMethodInfo + ResolveLevelBarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveLevelBarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveLevelBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveLevelBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveLevelBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveLevelBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveLevelBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveLevelBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveLevelBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveLevelBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveLevelBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveLevelBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveLevelBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveLevelBarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveLevelBarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveLevelBarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveLevelBarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveLevelBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveLevelBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveLevelBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveLevelBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveLevelBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveLevelBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveLevelBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveLevelBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveLevelBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveLevelBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveLevelBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveLevelBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveLevelBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveLevelBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveLevelBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveLevelBarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveLevelBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveLevelBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveLevelBarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveLevelBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveLevelBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveLevelBarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveLevelBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveLevelBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveLevelBarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveLevelBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveLevelBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveLevelBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveLevelBarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveLevelBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveLevelBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveLevelBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveLevelBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveLevelBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveLevelBarMethod "getInverted" o = LevelBarGetInvertedMethodInfo + ResolveLevelBarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveLevelBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveLevelBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveLevelBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveLevelBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveLevelBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveLevelBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveLevelBarMethod "getMaxValue" o = LevelBarGetMaxValueMethodInfo + ResolveLevelBarMethod "getMinValue" o = LevelBarGetMinValueMethodInfo + ResolveLevelBarMethod "getMode" o = LevelBarGetModeMethodInfo + ResolveLevelBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveLevelBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveLevelBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveLevelBarMethod "getOffsetValue" o = LevelBarGetOffsetValueMethodInfo + ResolveLevelBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveLevelBarMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveLevelBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveLevelBarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveLevelBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveLevelBarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveLevelBarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveLevelBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveLevelBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveLevelBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveLevelBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveLevelBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveLevelBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveLevelBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveLevelBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveLevelBarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveLevelBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveLevelBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveLevelBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveLevelBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveLevelBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveLevelBarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveLevelBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveLevelBarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveLevelBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveLevelBarMethod "getState" o = WidgetGetStateMethodInfo + ResolveLevelBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveLevelBarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveLevelBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveLevelBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveLevelBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveLevelBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveLevelBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveLevelBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveLevelBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveLevelBarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveLevelBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveLevelBarMethod "getValue" o = LevelBarGetValueMethodInfo + ResolveLevelBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveLevelBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveLevelBarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveLevelBarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveLevelBarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveLevelBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveLevelBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveLevelBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveLevelBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveLevelBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveLevelBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveLevelBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveLevelBarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveLevelBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveLevelBarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveLevelBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveLevelBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveLevelBarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveLevelBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveLevelBarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveLevelBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveLevelBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveLevelBarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveLevelBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveLevelBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveLevelBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveLevelBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveLevelBarMethod "setInverted" o = LevelBarSetInvertedMethodInfo + ResolveLevelBarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveLevelBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveLevelBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveLevelBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveLevelBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveLevelBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveLevelBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveLevelBarMethod "setMaxValue" o = LevelBarSetMaxValueMethodInfo + ResolveLevelBarMethod "setMinValue" o = LevelBarSetMinValueMethodInfo + ResolveLevelBarMethod "setMode" o = LevelBarSetModeMethodInfo + ResolveLevelBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveLevelBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveLevelBarMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveLevelBarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveLevelBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveLevelBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveLevelBarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveLevelBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveLevelBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveLevelBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveLevelBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveLevelBarMethod "setState" o = WidgetSetStateMethodInfo + ResolveLevelBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveLevelBarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveLevelBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveLevelBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveLevelBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveLevelBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveLevelBarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveLevelBarMethod "setValue" o = LevelBarSetValueMethodInfo + ResolveLevelBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveLevelBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveLevelBarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveLevelBarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveLevelBarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveLevelBarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveLevelBarMethod t LevelBar, MethodInfo info LevelBar p) => IsLabelProxy t (LevelBar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveLevelBarMethod t LevelBar, MethodInfo info LevelBar p) => IsLabel t (LevelBar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal LevelBar::offset-changed type LevelBarOffsetChangedCallback = T.Text -> @@ -227,7 +552,7 @@ type AttrSetTypeConstraint LevelBarInvertedPropertyInfo = (~) Bool type AttrBaseTypeConstraint LevelBarInvertedPropertyInfo = LevelBarK type AttrGetType LevelBarInvertedPropertyInfo = Bool - type AttrLabel LevelBarInvertedPropertyInfo = "LevelBar::inverted" + type AttrLabel LevelBarInvertedPropertyInfo = "inverted" attrGet _ = getLevelBarInverted attrSet _ = setLevelBarInverted attrConstruct _ = constructLevelBarInverted @@ -251,7 +576,7 @@ type AttrSetTypeConstraint LevelBarMaxValuePropertyInfo = (~) Double type AttrBaseTypeConstraint LevelBarMaxValuePropertyInfo = LevelBarK type AttrGetType LevelBarMaxValuePropertyInfo = Double - type AttrLabel LevelBarMaxValuePropertyInfo = "LevelBar::max-value" + type AttrLabel LevelBarMaxValuePropertyInfo = "max-value" attrGet _ = getLevelBarMaxValue attrSet _ = setLevelBarMaxValue attrConstruct _ = constructLevelBarMaxValue @@ -275,7 +600,7 @@ type AttrSetTypeConstraint LevelBarMinValuePropertyInfo = (~) Double type AttrBaseTypeConstraint LevelBarMinValuePropertyInfo = LevelBarK type AttrGetType LevelBarMinValuePropertyInfo = Double - type AttrLabel LevelBarMinValuePropertyInfo = "LevelBar::min-value" + type AttrLabel LevelBarMinValuePropertyInfo = "min-value" attrGet _ = getLevelBarMinValue attrSet _ = setLevelBarMinValue attrConstruct _ = constructLevelBarMinValue @@ -299,7 +624,7 @@ type AttrSetTypeConstraint LevelBarModePropertyInfo = (~) LevelBarMode type AttrBaseTypeConstraint LevelBarModePropertyInfo = LevelBarK type AttrGetType LevelBarModePropertyInfo = LevelBarMode - type AttrLabel LevelBarModePropertyInfo = "LevelBar::mode" + type AttrLabel LevelBarModePropertyInfo = "mode" attrGet _ = getLevelBarMode attrSet _ = setLevelBarMode attrConstruct _ = constructLevelBarMode @@ -323,13 +648,13 @@ type AttrSetTypeConstraint LevelBarValuePropertyInfo = (~) Double type AttrBaseTypeConstraint LevelBarValuePropertyInfo = LevelBarK type AttrGetType LevelBarValuePropertyInfo = Double - type AttrLabel LevelBarValuePropertyInfo = "LevelBar::value" + type AttrLabel LevelBarValuePropertyInfo = "value" attrGet _ = getLevelBarValue attrSet _ = setLevelBarValue attrConstruct _ = constructLevelBarValue type instance AttributeList LevelBar = LevelBarAttributeList -type LevelBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", LevelBarInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-value", LevelBarMaxValuePropertyInfo), '("min-value", LevelBarMinValuePropertyInfo), '("mode", LevelBarModePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", LevelBarValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type LevelBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", LevelBarInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxValue", LevelBarMaxValuePropertyInfo), '("minValue", LevelBarMinValuePropertyInfo), '("mode", LevelBarModePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", LevelBarValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data LevelBarOffsetChangedSignalInfo instance SignalInfo LevelBarOffsetChangedSignalInfo where @@ -337,13 +662,12 @@ connectSignal _ = connectLevelBarOffsetChanged type instance SignalList LevelBar = LevelBarSignalList -type LevelBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("offset-changed", LevelBarOffsetChangedSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type LevelBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("offsetChanged", LevelBarOffsetChangedSignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method LevelBar::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "LevelBar" -- throws : False -- Skip return : False @@ -354,7 +678,7 @@ levelBarNew :: (MonadIO m) => - m LevelBar + m LevelBar -- result levelBarNew = liftIO $ do result <- gtk_level_bar_new checkUnexpectedReturnNULL "gtk_level_bar_new" result @@ -363,9 +687,8 @@ -- method LevelBar::new_for_interval -- method type : Constructor --- Args : [Arg {argName = "min_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "min_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "min_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "LevelBar" -- throws : False -- Skip return : False @@ -378,22 +701,21 @@ levelBarNewForInterval :: (MonadIO m) => - Double -> -- min_value - Double -> -- max_value - m LevelBar -levelBarNewForInterval min_value max_value = liftIO $ do - let min_value' = realToFrac min_value - let max_value' = realToFrac max_value - result <- gtk_level_bar_new_for_interval min_value' max_value' + Double -- minValue + -> Double -- maxValue + -> m LevelBar -- result +levelBarNewForInterval minValue maxValue = liftIO $ do + let minValue' = realToFrac minValue + let maxValue' = realToFrac maxValue + result <- gtk_level_bar_new_for_interval minValue' maxValue' checkUnexpectedReturnNULL "gtk_level_bar_new_for_interval" result result' <- (newObject LevelBar) result return result' -- method LevelBar::add_offset_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -407,10 +729,10 @@ levelBarAddOffsetValue :: (MonadIO m, LevelBarK a) => - a -> -- _obj - T.Text -> -- name - Double -> -- value - m () + a -- _obj + -> T.Text -- name + -> Double -- value + -> m () -- result levelBarAddOffsetValue _obj name value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -420,11 +742,14 @@ freeMem name' return () +data LevelBarAddOffsetValueMethodInfo +instance (signature ~ (T.Text -> Double -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarAddOffsetValueMethodInfo a signature where + overloadedMethod _ = levelBarAddOffsetValue + -- method LevelBar::get_inverted -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -436,8 +761,8 @@ levelBarGetInverted :: (MonadIO m, LevelBarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result levelBarGetInverted _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_level_bar_get_inverted _obj' @@ -445,11 +770,14 @@ touchManagedPtr _obj return result' +data LevelBarGetInvertedMethodInfo +instance (signature ~ (m Bool), MonadIO m, LevelBarK a) => MethodInfo LevelBarGetInvertedMethodInfo a signature where + overloadedMethod _ = levelBarGetInverted + -- method LevelBar::get_max_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -461,8 +789,8 @@ levelBarGetMaxValue :: (MonadIO m, LevelBarK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result levelBarGetMaxValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_level_bar_get_max_value _obj' @@ -470,11 +798,14 @@ touchManagedPtr _obj return result' +data LevelBarGetMaxValueMethodInfo +instance (signature ~ (m Double), MonadIO m, LevelBarK a) => MethodInfo LevelBarGetMaxValueMethodInfo a signature where + overloadedMethod _ = levelBarGetMaxValue + -- method LevelBar::get_min_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -486,8 +817,8 @@ levelBarGetMinValue :: (MonadIO m, LevelBarK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result levelBarGetMinValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_level_bar_get_min_value _obj' @@ -495,11 +826,14 @@ touchManagedPtr _obj return result' +data LevelBarGetMinValueMethodInfo +instance (signature ~ (m Double), MonadIO m, LevelBarK a) => MethodInfo LevelBarGetMinValueMethodInfo a signature where + overloadedMethod _ = levelBarGetMinValue + -- method LevelBar::get_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "LevelBarMode" -- throws : False -- Skip return : False @@ -511,8 +845,8 @@ levelBarGetMode :: (MonadIO m, LevelBarK a) => - a -> -- _obj - m LevelBarMode + a -- _obj + -> m LevelBarMode -- result levelBarGetMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_level_bar_get_mode _obj' @@ -520,11 +854,14 @@ touchManagedPtr _obj return result' +data LevelBarGetModeMethodInfo +instance (signature ~ (m LevelBarMode), MonadIO m, LevelBarK a) => MethodInfo LevelBarGetModeMethodInfo a signature where + overloadedMethod _ = levelBarGetMode + -- method LevelBar::get_offset_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -538,9 +875,9 @@ levelBarGetOffsetValue :: (MonadIO m, LevelBarK a) => - a -> -- _obj - Maybe (T.Text) -> -- name - m (Bool,Double) + a -- _obj + -> Maybe (T.Text) -- name + -> m (Bool,Double) -- result levelBarGetOffsetValue _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeName <- case name of @@ -558,11 +895,14 @@ freeMem value return (result', value'') +data LevelBarGetOffsetValueMethodInfo +instance (signature ~ (Maybe (T.Text) -> m (Bool,Double)), MonadIO m, LevelBarK a) => MethodInfo LevelBarGetOffsetValueMethodInfo a signature where + overloadedMethod _ = levelBarGetOffsetValue + -- method LevelBar::get_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -574,8 +914,8 @@ levelBarGetValue :: (MonadIO m, LevelBarK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result levelBarGetValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_level_bar_get_value _obj' @@ -583,11 +923,14 @@ touchManagedPtr _obj return result' +data LevelBarGetValueMethodInfo +instance (signature ~ (m Double), MonadIO m, LevelBarK a) => MethodInfo LevelBarGetValueMethodInfo a signature where + overloadedMethod _ = levelBarGetValue + -- method LevelBar::remove_offset_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -600,9 +943,9 @@ levelBarRemoveOffsetValue :: (MonadIO m, LevelBarK a) => - a -> -- _obj - Maybe (T.Text) -> -- name - m () + a -- _obj + -> Maybe (T.Text) -- name + -> m () -- result levelBarRemoveOffsetValue _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeName <- case name of @@ -615,11 +958,14 @@ freeMem maybeName return () +data LevelBarRemoveOffsetValueMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarRemoveOffsetValueMethodInfo a signature where + overloadedMethod _ = levelBarRemoveOffsetValue + -- method LevelBar::set_inverted -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -632,9 +978,9 @@ levelBarSetInverted :: (MonadIO m, LevelBarK a) => - a -> -- _obj - Bool -> -- inverted - m () + a -- _obj + -> Bool -- inverted + -> m () -- result levelBarSetInverted _obj inverted = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let inverted' = (fromIntegral . fromEnum) inverted @@ -642,11 +988,14 @@ touchManagedPtr _obj return () +data LevelBarSetInvertedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarSetInvertedMethodInfo a signature where + overloadedMethod _ = levelBarSetInverted + -- method LevelBar::set_max_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -659,9 +1008,9 @@ levelBarSetMaxValue :: (MonadIO m, LevelBarK a) => - a -> -- _obj - Double -> -- value - m () + a -- _obj + -> Double -- value + -> m () -- result levelBarSetMaxValue _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = realToFrac value @@ -669,11 +1018,14 @@ touchManagedPtr _obj return () +data LevelBarSetMaxValueMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarSetMaxValueMethodInfo a signature where + overloadedMethod _ = levelBarSetMaxValue + -- method LevelBar::set_min_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -686,9 +1038,9 @@ levelBarSetMinValue :: (MonadIO m, LevelBarK a) => - a -> -- _obj - Double -> -- value - m () + a -- _obj + -> Double -- value + -> m () -- result levelBarSetMinValue _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = realToFrac value @@ -696,11 +1048,14 @@ touchManagedPtr _obj return () +data LevelBarSetMinValueMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarSetMinValueMethodInfo a signature where + overloadedMethod _ = levelBarSetMinValue + -- method LevelBar::set_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "LevelBarMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "LevelBarMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "LevelBarMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -713,9 +1068,9 @@ levelBarSetMode :: (MonadIO m, LevelBarK a) => - a -> -- _obj - LevelBarMode -> -- mode - m () + a -- _obj + -> LevelBarMode -- mode + -> m () -- result levelBarSetMode _obj mode = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let mode' = (fromIntegral . fromEnum) mode @@ -723,11 +1078,14 @@ touchManagedPtr _obj return () +data LevelBarSetModeMethodInfo +instance (signature ~ (LevelBarMode -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarSetModeMethodInfo a signature where + overloadedMethod _ = levelBarSetMode + -- method LevelBar::set_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -740,14 +1098,18 @@ levelBarSetValue :: (MonadIO m, LevelBarK a) => - a -> -- _obj - Double -> -- value - m () + a -- _obj + -> Double -- value + -> m () -- result levelBarSetValue _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = realToFrac value gtk_level_bar_set_value _obj' value' touchManagedPtr _obj return () + +data LevelBarSetValueMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, LevelBarK a) => MethodInfo LevelBarSetValueMethodInfo a signature where + overloadedMethod _ = levelBarSetValue diff --git a/GI/Gtk/Objects/LevelBar.hs-boot b/GI/Gtk/Objects/LevelBar.hs-boot --- a/GI/Gtk/Objects/LevelBar.hs-boot +++ b/GI/Gtk/Objects/LevelBar.hs-boot @@ -17,3 +17,16 @@ data LevelBarModePropertyInfo data LevelBarValuePropertyInfo data LevelBarOffsetChangedSignalInfo +data LevelBarAddOffsetValueMethodInfo +data LevelBarGetInvertedMethodInfo +data LevelBarGetMaxValueMethodInfo +data LevelBarGetMinValueMethodInfo +data LevelBarGetModeMethodInfo +data LevelBarGetOffsetValueMethodInfo +data LevelBarGetValueMethodInfo +data LevelBarRemoveOffsetValueMethodInfo +data LevelBarSetInvertedMethodInfo +data LevelBarSetMaxValueMethodInfo +data LevelBarSetMinValueMethodInfo +data LevelBarSetModeMethodInfo +data LevelBarSetValueMethodInfo diff --git a/GI/Gtk/Objects/LevelBarAccessible.hs b/GI/Gtk/Objects/LevelBarAccessible.hs --- a/GI/Gtk/Objects/LevelBarAccessible.hs +++ b/GI/Gtk/Objects/LevelBarAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,88 @@ noLevelBarAccessible :: Maybe LevelBarAccessible noLevelBarAccessible = Nothing +type family ResolveLevelBarAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveLevelBarAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveLevelBarAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveLevelBarAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveLevelBarAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveLevelBarAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveLevelBarAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveLevelBarAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveLevelBarAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveLevelBarAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveLevelBarAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveLevelBarAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveLevelBarAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveLevelBarAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveLevelBarAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveLevelBarAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveLevelBarAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveLevelBarAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveLevelBarAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveLevelBarAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveLevelBarAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveLevelBarAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveLevelBarAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveLevelBarAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveLevelBarAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveLevelBarAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveLevelBarAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveLevelBarAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveLevelBarAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveLevelBarAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveLevelBarAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveLevelBarAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveLevelBarAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveLevelBarAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveLevelBarAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo + ResolveLevelBarAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveLevelBarAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveLevelBarAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveLevelBarAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo + ResolveLevelBarAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveLevelBarAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo + ResolveLevelBarAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo + ResolveLevelBarAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo + ResolveLevelBarAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveLevelBarAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveLevelBarAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveLevelBarAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveLevelBarAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveLevelBarAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveLevelBarAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveLevelBarAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo + ResolveLevelBarAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveLevelBarAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveLevelBarAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo + ResolveLevelBarAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo + ResolveLevelBarAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveLevelBarAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo + ResolveLevelBarAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveLevelBarAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveLevelBarAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveLevelBarAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveLevelBarAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveLevelBarAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveLevelBarAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveLevelBarAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveLevelBarAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveLevelBarAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo + ResolveLevelBarAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveLevelBarAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveLevelBarAccessibleMethod t LevelBarAccessible, MethodInfo info LevelBarAccessible p) => IsLabelProxy t (LevelBarAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveLevelBarAccessibleMethod t LevelBarAccessible, MethodInfo info LevelBarAccessible p) => IsLabel t (LevelBarAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList LevelBarAccessible = LevelBarAccessibleAttributeList -type LevelBarAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type LevelBarAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList LevelBarAccessible = LevelBarAccessibleSignalList -type LevelBarAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type LevelBarAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/LinkButton.hs b/GI/Gtk/Objects/LinkButton.hs --- a/GI/Gtk/Objects/LinkButton.hs +++ b/GI/Gtk/Objects/LinkButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** linkButtonGetUri + LinkButtonGetUriMethodInfo , linkButtonGetUri , -- ** linkButtonGetVisited + LinkButtonGetVisitedMethodInfo , linkButtonGetVisited , @@ -33,10 +36,12 @@ -- ** linkButtonSetUri + LinkButtonSetUriMethodInfo , linkButtonSetUri , -- ** linkButtonSetVisited + LinkButtonSetVisitedMethodInfo , linkButtonSetVisited , @@ -109,6 +114,368 @@ noLinkButton :: Maybe LinkButton noLinkButton = Nothing +type family ResolveLinkButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveLinkButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveLinkButtonMethod "add" o = ContainerAddMethodInfo + ResolveLinkButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveLinkButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveLinkButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveLinkButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveLinkButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveLinkButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveLinkButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveLinkButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveLinkButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveLinkButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveLinkButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveLinkButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveLinkButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveLinkButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveLinkButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveLinkButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveLinkButtonMethod "clicked" o = ButtonClickedMethodInfo + ResolveLinkButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveLinkButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveLinkButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveLinkButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveLinkButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveLinkButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveLinkButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveLinkButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveLinkButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveLinkButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveLinkButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveLinkButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveLinkButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveLinkButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveLinkButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveLinkButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveLinkButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveLinkButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveLinkButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveLinkButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveLinkButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveLinkButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveLinkButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveLinkButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveLinkButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveLinkButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveLinkButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveLinkButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveLinkButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveLinkButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveLinkButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveLinkButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveLinkButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveLinkButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveLinkButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveLinkButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveLinkButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveLinkButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveLinkButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveLinkButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveLinkButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveLinkButtonMethod "enter" o = ButtonEnterMethodInfo + ResolveLinkButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveLinkButtonMethod "event" o = WidgetEventMethodInfo + ResolveLinkButtonMethod "forall" o = ContainerForallMethodInfo + ResolveLinkButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveLinkButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveLinkButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveLinkButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveLinkButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveLinkButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveLinkButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveLinkButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveLinkButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveLinkButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveLinkButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveLinkButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveLinkButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveLinkButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveLinkButtonMethod "hide" o = WidgetHideMethodInfo + ResolveLinkButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveLinkButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveLinkButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveLinkButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveLinkButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveLinkButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveLinkButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveLinkButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveLinkButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveLinkButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveLinkButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveLinkButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveLinkButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveLinkButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveLinkButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveLinkButtonMethod "leave" o = ButtonLeaveMethodInfo + ResolveLinkButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveLinkButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveLinkButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveLinkButtonMethod "map" o = WidgetMapMethodInfo + ResolveLinkButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveLinkButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveLinkButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveLinkButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveLinkButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveLinkButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveLinkButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveLinkButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveLinkButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveLinkButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveLinkButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveLinkButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveLinkButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveLinkButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveLinkButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveLinkButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveLinkButtonMethod "path" o = WidgetPathMethodInfo + ResolveLinkButtonMethod "pressed" o = ButtonPressedMethodInfo + ResolveLinkButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveLinkButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveLinkButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveLinkButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveLinkButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveLinkButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveLinkButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveLinkButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveLinkButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveLinkButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveLinkButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveLinkButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveLinkButtonMethod "released" o = ButtonReleasedMethodInfo + ResolveLinkButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveLinkButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveLinkButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveLinkButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveLinkButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveLinkButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveLinkButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveLinkButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveLinkButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveLinkButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveLinkButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveLinkButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveLinkButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveLinkButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveLinkButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveLinkButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveLinkButtonMethod "show" o = WidgetShowMethodInfo + ResolveLinkButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveLinkButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveLinkButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveLinkButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveLinkButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveLinkButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveLinkButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveLinkButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveLinkButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveLinkButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveLinkButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveLinkButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveLinkButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveLinkButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveLinkButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveLinkButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveLinkButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveLinkButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveLinkButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveLinkButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveLinkButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveLinkButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveLinkButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveLinkButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveLinkButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveLinkButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveLinkButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo + ResolveLinkButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveLinkButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveLinkButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveLinkButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveLinkButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo + ResolveLinkButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveLinkButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveLinkButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveLinkButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveLinkButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveLinkButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveLinkButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveLinkButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveLinkButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveLinkButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveLinkButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveLinkButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveLinkButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveLinkButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveLinkButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveLinkButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveLinkButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveLinkButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveLinkButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo + ResolveLinkButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveLinkButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveLinkButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveLinkButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveLinkButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo + ResolveLinkButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveLinkButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveLinkButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveLinkButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveLinkButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveLinkButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveLinkButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveLinkButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveLinkButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveLinkButtonMethod "getImage" o = ButtonGetImageMethodInfo + ResolveLinkButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo + ResolveLinkButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveLinkButtonMethod "getLabel" o = ButtonGetLabelMethodInfo + ResolveLinkButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveLinkButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveLinkButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveLinkButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveLinkButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveLinkButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveLinkButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveLinkButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveLinkButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveLinkButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveLinkButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveLinkButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveLinkButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveLinkButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveLinkButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveLinkButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveLinkButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveLinkButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveLinkButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveLinkButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveLinkButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveLinkButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveLinkButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveLinkButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveLinkButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveLinkButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveLinkButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveLinkButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveLinkButtonMethod "getRelief" o = ButtonGetReliefMethodInfo + ResolveLinkButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveLinkButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveLinkButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveLinkButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveLinkButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveLinkButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveLinkButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveLinkButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveLinkButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveLinkButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveLinkButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveLinkButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveLinkButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveLinkButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveLinkButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveLinkButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveLinkButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveLinkButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveLinkButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveLinkButtonMethod "getUri" o = LinkButtonGetUriMethodInfo + ResolveLinkButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveLinkButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo + ResolveLinkButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo + ResolveLinkButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveLinkButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveLinkButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveLinkButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveLinkButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveLinkButtonMethod "getVisited" o = LinkButtonGetVisitedMethodInfo + ResolveLinkButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveLinkButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveLinkButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveLinkButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveLinkButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveLinkButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo + ResolveLinkButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveLinkButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo + ResolveLinkButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveLinkButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveLinkButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveLinkButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveLinkButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveLinkButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveLinkButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveLinkButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveLinkButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveLinkButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveLinkButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveLinkButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveLinkButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveLinkButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveLinkButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveLinkButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveLinkButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveLinkButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveLinkButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo + ResolveLinkButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveLinkButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveLinkButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveLinkButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveLinkButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveLinkButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveLinkButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveLinkButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveLinkButtonMethod "setImage" o = ButtonSetImageMethodInfo + ResolveLinkButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo + ResolveLinkButtonMethod "setLabel" o = ButtonSetLabelMethodInfo + ResolveLinkButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveLinkButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveLinkButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveLinkButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveLinkButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveLinkButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveLinkButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveLinkButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveLinkButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveLinkButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveLinkButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveLinkButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveLinkButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveLinkButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveLinkButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveLinkButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveLinkButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveLinkButtonMethod "setRelief" o = ButtonSetReliefMethodInfo + ResolveLinkButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveLinkButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveLinkButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveLinkButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveLinkButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveLinkButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveLinkButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveLinkButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveLinkButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveLinkButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveLinkButtonMethod "setUri" o = LinkButtonSetUriMethodInfo + ResolveLinkButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveLinkButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo + ResolveLinkButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo + ResolveLinkButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveLinkButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveLinkButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveLinkButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveLinkButtonMethod "setVisited" o = LinkButtonSetVisitedMethodInfo + ResolveLinkButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveLinkButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveLinkButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveLinkButtonMethod t LinkButton, MethodInfo info LinkButton p) => IsLabelProxy t (LinkButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveLinkButtonMethod t LinkButton, MethodInfo info LinkButton p) => IsLabel t (LinkButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal LinkButton::activate-link type LinkButtonActivateLinkCallback = IO Bool @@ -168,7 +535,7 @@ type AttrSetTypeConstraint LinkButtonUriPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LinkButtonUriPropertyInfo = LinkButtonK type AttrGetType LinkButtonUriPropertyInfo = T.Text - type AttrLabel LinkButtonUriPropertyInfo = "LinkButton::uri" + type AttrLabel LinkButtonUriPropertyInfo = "uri" attrGet _ = getLinkButtonUri attrSet _ = setLinkButtonUri attrConstruct _ = constructLinkButtonUri @@ -192,13 +559,13 @@ type AttrSetTypeConstraint LinkButtonVisitedPropertyInfo = (~) Bool type AttrBaseTypeConstraint LinkButtonVisitedPropertyInfo = LinkButtonK type AttrGetType LinkButtonVisitedPropertyInfo = Bool - type AttrLabel LinkButtonVisitedPropertyInfo = "LinkButton::visited" + type AttrLabel LinkButtonVisitedPropertyInfo = "visited" attrGet _ = getLinkButtonVisited attrSet _ = setLinkButtonVisited attrConstruct _ = constructLinkButtonVisited type instance AttributeList LinkButton = LinkButtonAttributeList -type LinkButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("uri", LinkButtonUriPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visited", LinkButtonVisitedPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +type LinkButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("uri", LinkButtonUriPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visited", LinkButtonVisitedPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) data LinkButtonActivateLinkSignalInfo instance SignalInfo LinkButtonActivateLinkSignalInfo where @@ -206,13 +573,12 @@ connectSignal _ = connectLinkButtonActivateLink type instance SignalList LinkButton = LinkButtonSignalList -type LinkButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("activate-link", LinkButtonActivateLinkSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type LinkButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("activateLink", LinkButtonActivateLinkSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method LinkButton::new -- method type : Constructor --- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "LinkButton" -- throws : False -- Skip return : False @@ -224,8 +590,8 @@ linkButtonNew :: (MonadIO m) => - T.Text -> -- uri - m LinkButton + T.Text -- uri + -> m LinkButton -- result linkButtonNew uri = liftIO $ do uri' <- textToCString uri result <- gtk_link_button_new uri' @@ -236,9 +602,8 @@ -- method LinkButton::new_with_label -- method type : Constructor --- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "LinkButton" -- throws : False -- Skip return : False @@ -251,9 +616,9 @@ linkButtonNewWithLabel :: (MonadIO m) => - T.Text -> -- uri - Maybe (T.Text) -> -- label - m LinkButton + T.Text -- uri + -> Maybe (T.Text) -- label + -> m LinkButton -- result linkButtonNewWithLabel uri label = liftIO $ do uri' <- textToCString uri maybeLabel <- case label of @@ -270,9 +635,8 @@ -- method LinkButton::get_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -284,8 +648,8 @@ linkButtonGetUri :: (MonadIO m, LinkButtonK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result linkButtonGetUri _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_link_button_get_uri _obj' @@ -294,11 +658,14 @@ touchManagedPtr _obj return result' +data LinkButtonGetUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m, LinkButtonK a) => MethodInfo LinkButtonGetUriMethodInfo a signature where + overloadedMethod _ = linkButtonGetUri + -- method LinkButton::get_visited -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -310,8 +677,8 @@ linkButtonGetVisited :: (MonadIO m, LinkButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result linkButtonGetVisited _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_link_button_get_visited _obj' @@ -319,11 +686,14 @@ touchManagedPtr _obj return result' +data LinkButtonGetVisitedMethodInfo +instance (signature ~ (m Bool), MonadIO m, LinkButtonK a) => MethodInfo LinkButtonGetVisitedMethodInfo a signature where + overloadedMethod _ = linkButtonGetVisited + -- method LinkButton::set_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -336,9 +706,9 @@ linkButtonSetUri :: (MonadIO m, LinkButtonK a) => - a -> -- _obj - T.Text -> -- uri - m () + a -- _obj + -> T.Text -- uri + -> m () -- result linkButtonSetUri _obj uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri @@ -347,11 +717,14 @@ freeMem uri' return () +data LinkButtonSetUriMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, LinkButtonK a) => MethodInfo LinkButtonSetUriMethodInfo a signature where + overloadedMethod _ = linkButtonSetUri + -- method LinkButton::set_visited -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -364,14 +737,18 @@ linkButtonSetVisited :: (MonadIO m, LinkButtonK a) => - a -> -- _obj - Bool -> -- visited - m () + a -- _obj + -> Bool -- visited + -> m () -- result linkButtonSetVisited _obj visited = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let visited' = (fromIntegral . fromEnum) visited gtk_link_button_set_visited _obj' visited' touchManagedPtr _obj return () + +data LinkButtonSetVisitedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, LinkButtonK a) => MethodInfo LinkButtonSetVisitedMethodInfo a signature where + overloadedMethod _ = linkButtonSetVisited diff --git a/GI/Gtk/Objects/LinkButton.hs-boot b/GI/Gtk/Objects/LinkButton.hs-boot --- a/GI/Gtk/Objects/LinkButton.hs-boot +++ b/GI/Gtk/Objects/LinkButton.hs-boot @@ -14,3 +14,7 @@ data LinkButtonUriPropertyInfo data LinkButtonVisitedPropertyInfo data LinkButtonActivateLinkSignalInfo +data LinkButtonGetUriMethodInfo +data LinkButtonGetVisitedMethodInfo +data LinkButtonSetUriMethodInfo +data LinkButtonSetVisitedMethodInfo diff --git a/GI/Gtk/Objects/LinkButtonAccessible.hs b/GI/Gtk/Objects/LinkButtonAccessible.hs --- a/GI/Gtk/Objects/LinkButtonAccessible.hs +++ b/GI/Gtk/Objects/LinkButtonAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,85 @@ noLinkButtonAccessible :: Maybe LinkButtonAccessible noLinkButtonAccessible = Nothing +type family ResolveLinkButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveLinkButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveLinkButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveLinkButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveLinkButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveLinkButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveLinkButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveLinkButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveLinkButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveLinkButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveLinkButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveLinkButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveLinkButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveLinkButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveLinkButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveLinkButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveLinkButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveLinkButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveLinkButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveLinkButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveLinkButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveLinkButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveLinkButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveLinkButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveLinkButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveLinkButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveLinkButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveLinkButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveLinkButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveLinkButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveLinkButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveLinkButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveLinkButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveLinkButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveLinkButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveLinkButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveLinkButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveLinkButtonAccessibleMethod "getHyperlink" o = Atk.HyperlinkImplGetHyperlinkMethodInfo + ResolveLinkButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo + ResolveLinkButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo + ResolveLinkButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo + ResolveLinkButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo + ResolveLinkButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveLinkButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveLinkButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveLinkButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveLinkButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveLinkButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveLinkButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveLinkButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveLinkButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveLinkButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveLinkButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveLinkButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveLinkButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveLinkButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveLinkButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveLinkButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo + ResolveLinkButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveLinkButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveLinkButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveLinkButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveLinkButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveLinkButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveLinkButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveLinkButtonAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveLinkButtonAccessibleMethod t LinkButtonAccessible, MethodInfo info LinkButtonAccessible p) => IsLabelProxy t (LinkButtonAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveLinkButtonAccessibleMethod t LinkButtonAccessible, MethodInfo info LinkButtonAccessible p) => IsLabel t (LinkButtonAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList LinkButtonAccessible = LinkButtonAccessibleAttributeList -type LinkButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type LinkButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList LinkButtonAccessible = LinkButtonAccessibleSignalList -type LinkButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type LinkButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/ListBox.hs b/GI/Gtk/Objects/ListBox.hs --- a/GI/Gtk/Objects/ListBox.hs +++ b/GI/Gtk/Objects/ListBox.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,58 +18,72 @@ -- * Methods -- ** listBoxBindModel + ListBoxBindModelMethodInfo , listBoxBindModel , -- ** listBoxDragHighlightRow + ListBoxDragHighlightRowMethodInfo , listBoxDragHighlightRow , -- ** listBoxDragUnhighlightRow + ListBoxDragUnhighlightRowMethodInfo , listBoxDragUnhighlightRow , -- ** listBoxGetActivateOnSingleClick + ListBoxGetActivateOnSingleClickMethodInfo, listBoxGetActivateOnSingleClick , -- ** listBoxGetAdjustment + ListBoxGetAdjustmentMethodInfo , listBoxGetAdjustment , -- ** listBoxGetRowAtIndex + ListBoxGetRowAtIndexMethodInfo , listBoxGetRowAtIndex , -- ** listBoxGetRowAtY + ListBoxGetRowAtYMethodInfo , listBoxGetRowAtY , -- ** listBoxGetSelectedRow + ListBoxGetSelectedRowMethodInfo , listBoxGetSelectedRow , -- ** listBoxGetSelectedRows + ListBoxGetSelectedRowsMethodInfo , listBoxGetSelectedRows , -- ** listBoxGetSelectionMode + ListBoxGetSelectionModeMethodInfo , listBoxGetSelectionMode , -- ** listBoxInsert + ListBoxInsertMethodInfo , listBoxInsert , -- ** listBoxInvalidateFilter + ListBoxInvalidateFilterMethodInfo , listBoxInvalidateFilter , -- ** listBoxInvalidateHeaders + ListBoxInvalidateHeadersMethodInfo , listBoxInvalidateHeaders , -- ** listBoxInvalidateSort + ListBoxInvalidateSortMethodInfo , listBoxInvalidateSort , @@ -77,54 +92,67 @@ -- ** listBoxPrepend + ListBoxPrependMethodInfo , listBoxPrepend , -- ** listBoxSelectAll + ListBoxSelectAllMethodInfo , listBoxSelectAll , -- ** listBoxSelectRow + ListBoxSelectRowMethodInfo , listBoxSelectRow , -- ** listBoxSelectedForeach + ListBoxSelectedForeachMethodInfo , listBoxSelectedForeach , -- ** listBoxSetActivateOnSingleClick + ListBoxSetActivateOnSingleClickMethodInfo, listBoxSetActivateOnSingleClick , -- ** listBoxSetAdjustment + ListBoxSetAdjustmentMethodInfo , listBoxSetAdjustment , -- ** listBoxSetFilterFunc + ListBoxSetFilterFuncMethodInfo , listBoxSetFilterFunc , -- ** listBoxSetHeaderFunc + ListBoxSetHeaderFuncMethodInfo , listBoxSetHeaderFunc , -- ** listBoxSetPlaceholder + ListBoxSetPlaceholderMethodInfo , listBoxSetPlaceholder , -- ** listBoxSetSelectionMode + ListBoxSetSelectionModeMethodInfo , listBoxSetSelectionMode , -- ** listBoxSetSortFunc + ListBoxSetSortFuncMethodInfo , listBoxSetSortFunc , -- ** listBoxUnselectAll + ListBoxUnselectAllMethodInfo , listBoxUnselectAll , -- ** listBoxUnselectRow + ListBoxUnselectRowMethodInfo , listBoxUnselectRow , @@ -283,6 +311,355 @@ noListBox :: Maybe ListBox noListBox = Nothing +type family ResolveListBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveListBoxMethod "activate" o = WidgetActivateMethodInfo + ResolveListBoxMethod "add" o = ContainerAddMethodInfo + ResolveListBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveListBoxMethod "addChild" o = BuildableAddChildMethodInfo + ResolveListBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveListBoxMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveListBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveListBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveListBoxMethod "bindModel" o = ListBoxBindModelMethodInfo + ResolveListBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveListBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveListBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveListBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveListBoxMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveListBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveListBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveListBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveListBoxMethod "childType" o = ContainerChildTypeMethodInfo + ResolveListBoxMethod "classPath" o = WidgetClassPathMethodInfo + ResolveListBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveListBoxMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveListBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveListBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveListBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveListBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveListBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveListBoxMethod "destroy" o = WidgetDestroyMethodInfo + ResolveListBoxMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveListBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveListBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveListBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveListBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveListBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveListBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveListBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveListBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveListBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveListBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveListBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveListBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveListBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveListBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveListBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveListBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveListBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveListBoxMethod "dragHighlightRow" o = ListBoxDragHighlightRowMethodInfo + ResolveListBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveListBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveListBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveListBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveListBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveListBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveListBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveListBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveListBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveListBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveListBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveListBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveListBoxMethod "dragUnhighlightRow" o = ListBoxDragUnhighlightRowMethodInfo + ResolveListBoxMethod "draw" o = WidgetDrawMethodInfo + ResolveListBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveListBoxMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveListBoxMethod "event" o = WidgetEventMethodInfo + ResolveListBoxMethod "forall" o = ContainerForallMethodInfo + ResolveListBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveListBoxMethod "foreach" o = ContainerForeachMethodInfo + ResolveListBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveListBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveListBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveListBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveListBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveListBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveListBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveListBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveListBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveListBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveListBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveListBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveListBoxMethod "hide" o = WidgetHideMethodInfo + ResolveListBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveListBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveListBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveListBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveListBoxMethod "insert" o = ListBoxInsertMethodInfo + ResolveListBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveListBoxMethod "intersect" o = WidgetIntersectMethodInfo + ResolveListBoxMethod "invalidateFilter" o = ListBoxInvalidateFilterMethodInfo + ResolveListBoxMethod "invalidateHeaders" o = ListBoxInvalidateHeadersMethodInfo + ResolveListBoxMethod "invalidateSort" o = ListBoxInvalidateSortMethodInfo + ResolveListBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveListBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveListBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveListBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveListBoxMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveListBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveListBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveListBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveListBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveListBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveListBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveListBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveListBoxMethod "map" o = WidgetMapMethodInfo + ResolveListBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveListBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveListBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveListBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveListBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveListBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveListBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveListBoxMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveListBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveListBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveListBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveListBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveListBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveListBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveListBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveListBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveListBoxMethod "path" o = WidgetPathMethodInfo + ResolveListBoxMethod "prepend" o = ListBoxPrependMethodInfo + ResolveListBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveListBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveListBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveListBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveListBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveListBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveListBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveListBoxMethod "realize" o = WidgetRealizeMethodInfo + ResolveListBoxMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveListBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveListBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveListBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveListBoxMethod "remove" o = ContainerRemoveMethodInfo + ResolveListBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveListBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveListBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveListBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveListBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveListBoxMethod "reparent" o = WidgetReparentMethodInfo + ResolveListBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveListBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveListBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveListBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveListBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveListBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveListBoxMethod "selectAll" o = ListBoxSelectAllMethodInfo + ResolveListBoxMethod "selectRow" o = ListBoxSelectRowMethodInfo + ResolveListBoxMethod "selectedForeach" o = ListBoxSelectedForeachMethodInfo + ResolveListBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveListBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveListBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveListBoxMethod "show" o = WidgetShowMethodInfo + ResolveListBoxMethod "showAll" o = WidgetShowAllMethodInfo + ResolveListBoxMethod "showNow" o = WidgetShowNowMethodInfo + ResolveListBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveListBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveListBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveListBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveListBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveListBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveListBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveListBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveListBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveListBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveListBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveListBoxMethod "unmap" o = WidgetUnmapMethodInfo + ResolveListBoxMethod "unparent" o = WidgetUnparentMethodInfo + ResolveListBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveListBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveListBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveListBoxMethod "unselectAll" o = ListBoxUnselectAllMethodInfo + ResolveListBoxMethod "unselectRow" o = ListBoxUnselectRowMethodInfo + ResolveListBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveListBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveListBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveListBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveListBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveListBoxMethod "getActivateOnSingleClick" o = ListBoxGetActivateOnSingleClickMethodInfo + ResolveListBoxMethod "getAdjustment" o = ListBoxGetAdjustmentMethodInfo + ResolveListBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveListBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveListBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveListBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveListBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveListBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveListBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveListBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveListBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveListBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveListBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveListBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveListBoxMethod "getClip" o = WidgetGetClipMethodInfo + ResolveListBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveListBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveListBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveListBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveListBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveListBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveListBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveListBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveListBoxMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveListBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveListBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveListBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveListBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveListBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveListBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveListBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveListBoxMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveListBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveListBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveListBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveListBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveListBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveListBoxMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveListBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveListBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveListBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveListBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveListBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveListBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveListBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveListBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveListBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveListBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveListBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveListBoxMethod "getParent" o = WidgetGetParentMethodInfo + ResolveListBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveListBoxMethod "getPath" o = WidgetGetPathMethodInfo + ResolveListBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveListBoxMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveListBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveListBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveListBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveListBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveListBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveListBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveListBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveListBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveListBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveListBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveListBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveListBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveListBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveListBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveListBoxMethod "getRowAtIndex" o = ListBoxGetRowAtIndexMethodInfo + ResolveListBoxMethod "getRowAtY" o = ListBoxGetRowAtYMethodInfo + ResolveListBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveListBoxMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveListBoxMethod "getSelectedRow" o = ListBoxGetSelectedRowMethodInfo + ResolveListBoxMethod "getSelectedRows" o = ListBoxGetSelectedRowsMethodInfo + ResolveListBoxMethod "getSelectionMode" o = ListBoxGetSelectionModeMethodInfo + ResolveListBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveListBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveListBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveListBoxMethod "getState" o = WidgetGetStateMethodInfo + ResolveListBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveListBoxMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveListBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveListBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveListBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveListBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveListBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveListBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveListBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveListBoxMethod "getValign" o = WidgetGetValignMethodInfo + ResolveListBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveListBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveListBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveListBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveListBoxMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveListBoxMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveListBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveListBoxMethod "setActivateOnSingleClick" o = ListBoxSetActivateOnSingleClickMethodInfo + ResolveListBoxMethod "setAdjustment" o = ListBoxSetAdjustmentMethodInfo + ResolveListBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveListBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveListBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveListBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveListBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveListBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveListBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveListBoxMethod "setClip" o = WidgetSetClipMethodInfo + ResolveListBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveListBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveListBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveListBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveListBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveListBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveListBoxMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveListBoxMethod "setFilterFunc" o = ListBoxSetFilterFuncMethodInfo + ResolveListBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveListBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveListBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveListBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveListBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveListBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveListBoxMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveListBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveListBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveListBoxMethod "setHeaderFunc" o = ListBoxSetHeaderFuncMethodInfo + ResolveListBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveListBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveListBoxMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveListBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveListBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveListBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveListBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveListBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveListBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveListBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveListBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveListBoxMethod "setParent" o = WidgetSetParentMethodInfo + ResolveListBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveListBoxMethod "setPlaceholder" o = ListBoxSetPlaceholderMethodInfo + ResolveListBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveListBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveListBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveListBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveListBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveListBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveListBoxMethod "setSelectionMode" o = ListBoxSetSelectionModeMethodInfo + ResolveListBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveListBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveListBoxMethod "setSortFunc" o = ListBoxSetSortFuncMethodInfo + ResolveListBoxMethod "setState" o = WidgetSetStateMethodInfo + ResolveListBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveListBoxMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveListBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveListBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveListBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveListBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveListBoxMethod "setValign" o = WidgetSetValignMethodInfo + ResolveListBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveListBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveListBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveListBoxMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveListBoxMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveListBoxMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveListBoxMethod t ListBox, MethodInfo info ListBox p) => IsLabelProxy t (ListBox -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveListBoxMethod t ListBox, MethodInfo info ListBox p) => IsLabel t (ListBox -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ListBox::activate-cursor-row type ListBoxActivateCursorRowCallback = IO () @@ -626,7 +1003,7 @@ type AttrSetTypeConstraint ListBoxActivateOnSingleClickPropertyInfo = (~) Bool type AttrBaseTypeConstraint ListBoxActivateOnSingleClickPropertyInfo = ListBoxK type AttrGetType ListBoxActivateOnSingleClickPropertyInfo = Bool - type AttrLabel ListBoxActivateOnSingleClickPropertyInfo = "ListBox::activate-on-single-click" + type AttrLabel ListBoxActivateOnSingleClickPropertyInfo = "activate-on-single-click" attrGet _ = getListBoxActivateOnSingleClick attrSet _ = setListBoxActivateOnSingleClick attrConstruct _ = constructListBoxActivateOnSingleClick @@ -650,13 +1027,13 @@ type AttrSetTypeConstraint ListBoxSelectionModePropertyInfo = (~) SelectionMode type AttrBaseTypeConstraint ListBoxSelectionModePropertyInfo = ListBoxK type AttrGetType ListBoxSelectionModePropertyInfo = SelectionMode - type AttrLabel ListBoxSelectionModePropertyInfo = "ListBox::selection-mode" + type AttrLabel ListBoxSelectionModePropertyInfo = "selection-mode" attrGet _ = getListBoxSelectionMode attrSet _ = setListBoxSelectionMode attrConstruct _ = constructListBoxSelectionMode type instance AttributeList ListBox = ListBoxAttributeList -type ListBoxAttributeList = ('[ '("activate-on-single-click", ListBoxActivateOnSingleClickPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selection-mode", ListBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ListBoxAttributeList = ('[ '("activateOnSingleClick", ListBoxActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectionMode", ListBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data ListBoxActivateCursorRowSignalInfo instance SignalInfo ListBoxActivateCursorRowSignalInfo where @@ -699,13 +1076,12 @@ connectSignal _ = connectListBoxUnselectAll type instance SignalList ListBox = ListBoxSignalList -type ListBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-cursor-row", ListBoxActivateCursorRowSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", ListBoxMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("row-activated", ListBoxRowActivatedSignalInfo), '("row-selected", ListBoxRowSelectedSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", ListBoxSelectAllSignalInfo), '("selected-rows-changed", ListBoxSelectedRowsChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-cursor-row", ListBoxToggleCursorRowSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselect-all", ListBoxUnselectAllSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ListBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCursorRow", ListBoxActivateCursorRowSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", ListBoxMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("rowActivated", ListBoxRowActivatedSignalInfo), '("rowSelected", ListBoxRowSelectedSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectAll", ListBoxSelectAllSignalInfo), '("selectedRowsChanged", ListBoxSelectedRowsChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleCursorRow", ListBoxToggleCursorRowSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselectAll", ListBoxUnselectAllSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ListBox::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ListBox" -- throws : False -- Skip return : False @@ -716,7 +1092,7 @@ listBoxNew :: (MonadIO m) => - m ListBox + m ListBox -- result listBoxNew = liftIO $ do result <- gtk_list_box_new checkUnexpectedReturnNULL "gtk_list_box_new" result @@ -725,9 +1101,8 @@ -- method ListBox::bind_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "create_widget_func", argType = TInterface "Gtk" "ListBoxCreateWidgetFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_widget_func", argType = TInterface "Gtk" "ListBoxCreateWidgetFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "create_widget_func", argType = TInterface "Gtk" "ListBoxCreateWidgetFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -743,34 +1118,37 @@ listBoxBindModel :: (MonadIO m, ListBoxK a, Gio.ListModelK b) => - a -> -- _obj - Maybe (b) -> -- model - Maybe (ListBoxCreateWidgetFunc) -> -- create_widget_func - m () -listBoxBindModel _obj model create_widget_func = liftIO $ do + a -- _obj + -> Maybe (b) -- model + -> Maybe (ListBoxCreateWidgetFunc) -- createWidgetFunc + -> m () -- result +listBoxBindModel _obj model createWidgetFunc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeModel <- case model of Nothing -> return nullPtr Just jModel -> do let jModel' = unsafeManagedPtrCastPtr jModel return jModel' - maybeCreate_widget_func <- case create_widget_func of + maybeCreateWidgetFunc <- case createWidgetFunc of Nothing -> return (castPtrToFunPtr nullPtr) - Just jCreate_widget_func -> do - jCreate_widget_func' <- mkListBoxCreateWidgetFunc (listBoxCreateWidgetFuncWrapper Nothing jCreate_widget_func) - return jCreate_widget_func' - let user_data = castFunPtrToPtr maybeCreate_widget_func - let user_data_free_func = safeFreeFunPtrPtr - gtk_list_box_bind_model _obj' maybeModel maybeCreate_widget_func user_data user_data_free_func + Just jCreateWidgetFunc -> do + jCreateWidgetFunc' <- mkListBoxCreateWidgetFunc (listBoxCreateWidgetFuncWrapper Nothing jCreateWidgetFunc) + return jCreateWidgetFunc' + let userData = castFunPtrToPtr maybeCreateWidgetFunc + let userDataFreeFunc = safeFreeFunPtrPtr + gtk_list_box_bind_model _obj' maybeModel maybeCreateWidgetFunc userData userDataFreeFunc touchManagedPtr _obj whenJust model touchManagedPtr return () +data ListBoxBindModelMethodInfo +instance (signature ~ (Maybe (b) -> Maybe (ListBoxCreateWidgetFunc) -> m ()), MonadIO m, ListBoxK a, Gio.ListModelK b) => MethodInfo ListBoxBindModelMethodInfo a signature where + overloadedMethod _ = listBoxBindModel + -- method ListBox::drag_highlight_row -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -783,9 +1161,9 @@ listBoxDragHighlightRow :: (MonadIO m, ListBoxK a, ListBoxRowK b) => - a -> -- _obj - b -> -- row - m () + a -- _obj + -> b -- row + -> m () -- result listBoxDragHighlightRow _obj row = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let row' = unsafeManagedPtrCastPtr row @@ -794,11 +1172,14 @@ touchManagedPtr row return () +data ListBoxDragHighlightRowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ListBoxK a, ListBoxRowK b) => MethodInfo ListBoxDragHighlightRowMethodInfo a signature where + overloadedMethod _ = listBoxDragHighlightRow + -- method ListBox::drag_unhighlight_row -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -810,19 +1191,22 @@ listBoxDragUnhighlightRow :: (MonadIO m, ListBoxK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result listBoxDragUnhighlightRow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_list_box_drag_unhighlight_row _obj' touchManagedPtr _obj return () +data ListBoxDragUnhighlightRowMethodInfo +instance (signature ~ (m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxDragUnhighlightRowMethodInfo a signature where + overloadedMethod _ = listBoxDragUnhighlightRow + -- method ListBox::get_activate_on_single_click -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -834,8 +1218,8 @@ listBoxGetActivateOnSingleClick :: (MonadIO m, ListBoxK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result listBoxGetActivateOnSingleClick _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_get_activate_on_single_click _obj' @@ -843,11 +1227,14 @@ touchManagedPtr _obj return result' +data ListBoxGetActivateOnSingleClickMethodInfo +instance (signature ~ (m Bool), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetActivateOnSingleClickMethodInfo a signature where + overloadedMethod _ = listBoxGetActivateOnSingleClick + -- method ListBox::get_adjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -859,8 +1246,8 @@ listBoxGetAdjustment :: (MonadIO m, ListBoxK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result listBoxGetAdjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_get_adjustment _obj' @@ -869,11 +1256,14 @@ touchManagedPtr _obj return result' +data ListBoxGetAdjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetAdjustmentMethodInfo a signature where + overloadedMethod _ = listBoxGetAdjustment + -- method ListBox::get_row_at_index -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ListBoxRow" -- throws : False -- Skip return : False @@ -886,22 +1276,25 @@ listBoxGetRowAtIndex :: (MonadIO m, ListBoxK a) => - a -> -- _obj - Int32 -> -- index_ - m ListBoxRow -listBoxGetRowAtIndex _obj index_ = liftIO $ do + a -- _obj + -> Int32 -- index + -> m ListBoxRow -- result +listBoxGetRowAtIndex _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_get_row_at_index _obj' index_ + result <- gtk_list_box_get_row_at_index _obj' index checkUnexpectedReturnNULL "gtk_list_box_get_row_at_index" result result' <- (newObject ListBoxRow) result touchManagedPtr _obj return result' +data ListBoxGetRowAtIndexMethodInfo +instance (signature ~ (Int32 -> m ListBoxRow), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetRowAtIndexMethodInfo a signature where + overloadedMethod _ = listBoxGetRowAtIndex + -- method ListBox::get_row_at_y -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ListBoxRow" -- throws : False -- Skip return : False @@ -914,9 +1307,9 @@ listBoxGetRowAtY :: (MonadIO m, ListBoxK a) => - a -> -- _obj - Int32 -> -- y - m ListBoxRow + a -- _obj + -> Int32 -- y + -> m ListBoxRow -- result listBoxGetRowAtY _obj y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_get_row_at_y _obj' y @@ -925,11 +1318,14 @@ touchManagedPtr _obj return result' +data ListBoxGetRowAtYMethodInfo +instance (signature ~ (Int32 -> m ListBoxRow), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetRowAtYMethodInfo a signature where + overloadedMethod _ = listBoxGetRowAtY + -- method ListBox::get_selected_row -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ListBoxRow" -- throws : False -- Skip return : False @@ -941,8 +1337,8 @@ listBoxGetSelectedRow :: (MonadIO m, ListBoxK a) => - a -> -- _obj - m ListBoxRow + a -- _obj + -> m ListBoxRow -- result listBoxGetSelectedRow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_get_selected_row _obj' @@ -951,11 +1347,14 @@ touchManagedPtr _obj return result' +data ListBoxGetSelectedRowMethodInfo +instance (signature ~ (m ListBoxRow), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetSelectedRowMethodInfo a signature where + overloadedMethod _ = listBoxGetSelectedRow + -- method ListBox::get_selected_rows -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "ListBoxRow") -- throws : False -- Skip return : False @@ -967,8 +1366,8 @@ listBoxGetSelectedRows :: (MonadIO m, ListBoxK a) => - a -> -- _obj - m [ListBoxRow] + a -- _obj + -> m [ListBoxRow] -- result listBoxGetSelectedRows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_get_selected_rows _obj' @@ -979,11 +1378,14 @@ touchManagedPtr _obj return result'' +data ListBoxGetSelectedRowsMethodInfo +instance (signature ~ (m [ListBoxRow]), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetSelectedRowsMethodInfo a signature where + overloadedMethod _ = listBoxGetSelectedRows + -- method ListBox::get_selection_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SelectionMode" -- throws : False -- Skip return : False @@ -995,8 +1397,8 @@ listBoxGetSelectionMode :: (MonadIO m, ListBoxK a) => - a -> -- _obj - m SelectionMode + a -- _obj + -> m SelectionMode -- result listBoxGetSelectionMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_get_selection_mode _obj' @@ -1004,11 +1406,14 @@ touchManagedPtr _obj return result' +data ListBoxGetSelectionModeMethodInfo +instance (signature ~ (m SelectionMode), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetSelectionModeMethodInfo a signature where + overloadedMethod _ = listBoxGetSelectionMode + -- method ListBox::insert -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1022,10 +1427,10 @@ listBoxInsert :: (MonadIO m, ListBoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- position - m () + a -- _obj + -> b -- child + -> Int32 -- position + -> m () -- result listBoxInsert _obj child position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -1034,11 +1439,14 @@ touchManagedPtr child return () +data ListBoxInsertMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ListBoxK a, WidgetK b) => MethodInfo ListBoxInsertMethodInfo a signature where + overloadedMethod _ = listBoxInsert + -- method ListBox::invalidate_filter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1050,19 +1458,22 @@ listBoxInvalidateFilter :: (MonadIO m, ListBoxK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result listBoxInvalidateFilter _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_list_box_invalidate_filter _obj' touchManagedPtr _obj return () +data ListBoxInvalidateFilterMethodInfo +instance (signature ~ (m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxInvalidateFilterMethodInfo a signature where + overloadedMethod _ = listBoxInvalidateFilter + -- method ListBox::invalidate_headers -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1074,19 +1485,22 @@ listBoxInvalidateHeaders :: (MonadIO m, ListBoxK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result listBoxInvalidateHeaders _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_list_box_invalidate_headers _obj' touchManagedPtr _obj return () +data ListBoxInvalidateHeadersMethodInfo +instance (signature ~ (m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxInvalidateHeadersMethodInfo a signature where + overloadedMethod _ = listBoxInvalidateHeaders + -- method ListBox::invalidate_sort -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1098,19 +1512,22 @@ listBoxInvalidateSort :: (MonadIO m, ListBoxK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result listBoxInvalidateSort _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_list_box_invalidate_sort _obj' touchManagedPtr _obj return () +data ListBoxInvalidateSortMethodInfo +instance (signature ~ (m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxInvalidateSortMethodInfo a signature where + overloadedMethod _ = listBoxInvalidateSort + -- method ListBox::prepend -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1123,9 +1540,9 @@ listBoxPrepend :: (MonadIO m, ListBoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result listBoxPrepend _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -1134,11 +1551,14 @@ touchManagedPtr child return () +data ListBoxPrependMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ListBoxK a, WidgetK b) => MethodInfo ListBoxPrependMethodInfo a signature where + overloadedMethod _ = listBoxPrepend + -- method ListBox::select_all -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1150,19 +1570,22 @@ listBoxSelectAll :: (MonadIO m, ListBoxK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result listBoxSelectAll _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_list_box_select_all _obj' touchManagedPtr _obj return () +data ListBoxSelectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSelectAllMethodInfo a signature where + overloadedMethod _ = listBoxSelectAll + -- method ListBox::select_row -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1175,9 +1598,9 @@ listBoxSelectRow :: (MonadIO m, ListBoxK a, ListBoxRowK b) => - a -> -- _obj - Maybe (b) -> -- row - m () + a -- _obj + -> Maybe (b) -- row + -> m () -- result listBoxSelectRow _obj row = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeRow <- case row of @@ -1190,11 +1613,14 @@ whenJust row touchManagedPtr return () +data ListBoxSelectRowMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ListBoxK a, ListBoxRowK b) => MethodInfo ListBoxSelectRowMethodInfo a signature where + overloadedMethod _ = listBoxSelectRow + -- method ListBox::selected_foreach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "ListBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "ListBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "ListBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1208,9 +1634,9 @@ listBoxSelectedForeach :: (MonadIO m, ListBoxK a) => - a -> -- _obj - ListBoxForeachFunc -> -- func - m () + a -- _obj + -> ListBoxForeachFunc -- func + -> m () -- result listBoxSelectedForeach _obj func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj func' <- mkListBoxForeachFunc (listBoxForeachFuncWrapper Nothing func) @@ -1220,11 +1646,14 @@ touchManagedPtr _obj return () +data ListBoxSelectedForeachMethodInfo +instance (signature ~ (ListBoxForeachFunc -> m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSelectedForeachMethodInfo a signature where + overloadedMethod _ = listBoxSelectedForeach + -- method ListBox::set_activate_on_single_click -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1237,9 +1666,9 @@ listBoxSetActivateOnSingleClick :: (MonadIO m, ListBoxK a) => - a -> -- _obj - Bool -> -- single - m () + a -- _obj + -> Bool -- single + -> m () -- result listBoxSetActivateOnSingleClick _obj single = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let single' = (fromIntegral . fromEnum) single @@ -1247,11 +1676,14 @@ touchManagedPtr _obj return () +data ListBoxSetActivateOnSingleClickMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSetActivateOnSingleClickMethodInfo a signature where + overloadedMethod _ = listBoxSetActivateOnSingleClick + -- method ListBox::set_adjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1264,9 +1696,9 @@ listBoxSetAdjustment :: (MonadIO m, ListBoxK a, AdjustmentK b) => - a -> -- _obj - Maybe (b) -> -- adjustment - m () + a -- _obj + -> Maybe (b) -- adjustment + -> m () -- result listBoxSetAdjustment _obj adjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeAdjustment <- case adjustment of @@ -1279,11 +1711,14 @@ whenJust adjustment touchManagedPtr return () +data ListBoxSetAdjustmentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ListBoxK a, AdjustmentK b) => MethodInfo ListBoxSetAdjustmentMethodInfo a signature where + overloadedMethod _ = listBoxSetAdjustment + -- method ListBox::set_filter_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_func", argType = TInterface "Gtk" "ListBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_func", argType = TInterface "Gtk" "ListBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_func", argType = TInterface "Gtk" "ListBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1298,27 +1733,30 @@ listBoxSetFilterFunc :: (MonadIO m, ListBoxK a) => - a -> -- _obj - Maybe (ListBoxFilterFunc) -> -- filter_func - m () -listBoxSetFilterFunc _obj filter_func = liftIO $ do + a -- _obj + -> Maybe (ListBoxFilterFunc) -- filterFunc + -> m () -- result +listBoxSetFilterFunc _obj filterFunc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeFilter_func <- case filter_func of + maybeFilterFunc <- case filterFunc of Nothing -> return (castPtrToFunPtr nullPtr) - Just jFilter_func -> do - jFilter_func' <- mkListBoxFilterFunc (listBoxFilterFuncWrapper Nothing jFilter_func) - return jFilter_func' - let user_data = castFunPtrToPtr maybeFilter_func + Just jFilterFunc -> do + jFilterFunc' <- mkListBoxFilterFunc (listBoxFilterFuncWrapper Nothing jFilterFunc) + return jFilterFunc' + let userData = castFunPtrToPtr maybeFilterFunc let destroy = safeFreeFunPtrPtr - gtk_list_box_set_filter_func _obj' maybeFilter_func user_data destroy + gtk_list_box_set_filter_func _obj' maybeFilterFunc userData destroy touchManagedPtr _obj return () +data ListBoxSetFilterFuncMethodInfo +instance (signature ~ (Maybe (ListBoxFilterFunc) -> m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSetFilterFuncMethodInfo a signature where + overloadedMethod _ = listBoxSetFilterFunc + -- method ListBox::set_header_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_header", argType = TInterface "Gtk" "ListBoxUpdateHeaderFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "update_header", argType = TInterface "Gtk" "ListBoxUpdateHeaderFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_header", argType = TInterface "Gtk" "ListBoxUpdateHeaderFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1333,27 +1771,30 @@ listBoxSetHeaderFunc :: (MonadIO m, ListBoxK a) => - a -> -- _obj - Maybe (ListBoxUpdateHeaderFunc) -> -- update_header - m () -listBoxSetHeaderFunc _obj update_header = liftIO $ do + a -- _obj + -> Maybe (ListBoxUpdateHeaderFunc) -- updateHeader + -> m () -- result +listBoxSetHeaderFunc _obj updateHeader = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeUpdate_header <- case update_header of + maybeUpdateHeader <- case updateHeader of Nothing -> return (castPtrToFunPtr nullPtr) - Just jUpdate_header -> do - jUpdate_header' <- mkListBoxUpdateHeaderFunc (listBoxUpdateHeaderFuncWrapper Nothing jUpdate_header) - return jUpdate_header' - let user_data = castFunPtrToPtr maybeUpdate_header + Just jUpdateHeader -> do + jUpdateHeader' <- mkListBoxUpdateHeaderFunc (listBoxUpdateHeaderFuncWrapper Nothing jUpdateHeader) + return jUpdateHeader' + let userData = castFunPtrToPtr maybeUpdateHeader let destroy = safeFreeFunPtrPtr - gtk_list_box_set_header_func _obj' maybeUpdate_header user_data destroy + gtk_list_box_set_header_func _obj' maybeUpdateHeader userData destroy touchManagedPtr _obj return () +data ListBoxSetHeaderFuncMethodInfo +instance (signature ~ (Maybe (ListBoxUpdateHeaderFunc) -> m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSetHeaderFuncMethodInfo a signature where + overloadedMethod _ = listBoxSetHeaderFunc + -- method ListBox::set_placeholder -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "placeholder", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "placeholder", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "placeholder", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1366,9 +1807,9 @@ listBoxSetPlaceholder :: (MonadIO m, ListBoxK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- placeholder - m () + a -- _obj + -> Maybe (b) -- placeholder + -> m () -- result listBoxSetPlaceholder _obj placeholder = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybePlaceholder <- case placeholder of @@ -1381,11 +1822,14 @@ whenJust placeholder touchManagedPtr return () +data ListBoxSetPlaceholderMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ListBoxK a, WidgetK b) => MethodInfo ListBoxSetPlaceholderMethodInfo a signature where + overloadedMethod _ = listBoxSetPlaceholder + -- method ListBox::set_selection_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1398,9 +1842,9 @@ listBoxSetSelectionMode :: (MonadIO m, ListBoxK a) => - a -> -- _obj - SelectionMode -> -- mode - m () + a -- _obj + -> SelectionMode -- mode + -> m () -- result listBoxSetSelectionMode _obj mode = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let mode' = (fromIntegral . fromEnum) mode @@ -1408,11 +1852,14 @@ touchManagedPtr _obj return () +data ListBoxSetSelectionModeMethodInfo +instance (signature ~ (SelectionMode -> m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSetSelectionModeMethodInfo a signature where + overloadedMethod _ = listBoxSetSelectionMode + -- method ListBox::set_sort_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "ListBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "ListBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "ListBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1427,27 +1874,30 @@ listBoxSetSortFunc :: (MonadIO m, ListBoxK a) => - a -> -- _obj - Maybe (ListBoxSortFunc) -> -- sort_func - m () -listBoxSetSortFunc _obj sort_func = liftIO $ do + a -- _obj + -> Maybe (ListBoxSortFunc) -- sortFunc + -> m () -- result +listBoxSetSortFunc _obj sortFunc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeSort_func <- case sort_func of + maybeSortFunc <- case sortFunc of Nothing -> return (castPtrToFunPtr nullPtr) - Just jSort_func -> do - jSort_func' <- mkListBoxSortFunc (listBoxSortFuncWrapper Nothing jSort_func) - return jSort_func' - let user_data = castFunPtrToPtr maybeSort_func + Just jSortFunc -> do + jSortFunc' <- mkListBoxSortFunc (listBoxSortFuncWrapper Nothing jSortFunc) + return jSortFunc' + let userData = castFunPtrToPtr maybeSortFunc let destroy = safeFreeFunPtrPtr - gtk_list_box_set_sort_func _obj' maybeSort_func user_data destroy + gtk_list_box_set_sort_func _obj' maybeSortFunc userData destroy touchManagedPtr _obj return () +data ListBoxSetSortFuncMethodInfo +instance (signature ~ (Maybe (ListBoxSortFunc) -> m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxSetSortFuncMethodInfo a signature where + overloadedMethod _ = listBoxSetSortFunc + -- method ListBox::unselect_all -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1459,19 +1909,22 @@ listBoxUnselectAll :: (MonadIO m, ListBoxK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result listBoxUnselectAll _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_list_box_unselect_all _obj' touchManagedPtr _obj return () +data ListBoxUnselectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, ListBoxK a) => MethodInfo ListBoxUnselectAllMethodInfo a signature where + overloadedMethod _ = listBoxUnselectAll + -- method ListBox::unselect_row -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1484,9 +1937,9 @@ listBoxUnselectRow :: (MonadIO m, ListBoxK a, ListBoxRowK b) => - a -> -- _obj - b -> -- row - m () + a -- _obj + -> b -- row + -> m () -- result listBoxUnselectRow _obj row = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let row' = unsafeManagedPtrCastPtr row @@ -1494,5 +1947,9 @@ touchManagedPtr _obj touchManagedPtr row return () + +data ListBoxUnselectRowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ListBoxK a, ListBoxRowK b) => MethodInfo ListBoxUnselectRowMethodInfo a signature where + overloadedMethod _ = listBoxUnselectRow diff --git a/GI/Gtk/Objects/ListBox.hs-boot b/GI/Gtk/Objects/ListBox.hs-boot --- a/GI/Gtk/Objects/ListBox.hs-boot +++ b/GI/Gtk/Objects/ListBox.hs-boot @@ -21,3 +21,30 @@ data ListBoxSelectedRowsChangedSignalInfo data ListBoxToggleCursorRowSignalInfo data ListBoxUnselectAllSignalInfo +data ListBoxBindModelMethodInfo +data ListBoxDragHighlightRowMethodInfo +data ListBoxDragUnhighlightRowMethodInfo +data ListBoxGetActivateOnSingleClickMethodInfo +data ListBoxGetAdjustmentMethodInfo +data ListBoxGetRowAtIndexMethodInfo +data ListBoxGetRowAtYMethodInfo +data ListBoxGetSelectedRowMethodInfo +data ListBoxGetSelectedRowsMethodInfo +data ListBoxGetSelectionModeMethodInfo +data ListBoxInsertMethodInfo +data ListBoxInvalidateFilterMethodInfo +data ListBoxInvalidateHeadersMethodInfo +data ListBoxInvalidateSortMethodInfo +data ListBoxPrependMethodInfo +data ListBoxSelectAllMethodInfo +data ListBoxSelectRowMethodInfo +data ListBoxSelectedForeachMethodInfo +data ListBoxSetActivateOnSingleClickMethodInfo +data ListBoxSetAdjustmentMethodInfo +data ListBoxSetFilterFuncMethodInfo +data ListBoxSetHeaderFuncMethodInfo +data ListBoxSetPlaceholderMethodInfo +data ListBoxSetSelectionModeMethodInfo +data ListBoxSetSortFuncMethodInfo +data ListBoxUnselectAllMethodInfo +data ListBoxUnselectRowMethodInfo diff --git a/GI/Gtk/Objects/ListBoxAccessible.hs b/GI/Gtk/Objects/ListBoxAccessible.hs --- a/GI/Gtk/Objects/ListBoxAccessible.hs +++ b/GI/Gtk/Objects/ListBoxAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,85 @@ noListBoxAccessible :: Maybe ListBoxAccessible noListBoxAccessible = Nothing +type family ResolveListBoxAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveListBoxAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveListBoxAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo + ResolveListBoxAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveListBoxAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveListBoxAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo + ResolveListBoxAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveListBoxAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveListBoxAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveListBoxAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveListBoxAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveListBoxAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveListBoxAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo + ResolveListBoxAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveListBoxAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveListBoxAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveListBoxAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveListBoxAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveListBoxAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveListBoxAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveListBoxAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveListBoxAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveListBoxAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo + ResolveListBoxAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveListBoxAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveListBoxAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveListBoxAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveListBoxAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveListBoxAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo + ResolveListBoxAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveListBoxAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveListBoxAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveListBoxAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo + ResolveListBoxAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveListBoxAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveListBoxAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveListBoxAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveListBoxAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveListBoxAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveListBoxAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveListBoxAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveListBoxAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveListBoxAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveListBoxAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveListBoxAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveListBoxAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveListBoxAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveListBoxAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveListBoxAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveListBoxAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveListBoxAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveListBoxAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveListBoxAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo + ResolveListBoxAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveListBoxAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveListBoxAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveListBoxAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveListBoxAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveListBoxAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveListBoxAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveListBoxAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveListBoxAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveListBoxAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveListBoxAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveListBoxAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveListBoxAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveListBoxAccessibleMethod t ListBoxAccessible, MethodInfo info ListBoxAccessible p) => IsLabelProxy t (ListBoxAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveListBoxAccessibleMethod t ListBoxAccessible, MethodInfo info ListBoxAccessible p) => IsLabel t (ListBoxAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ListBoxAccessible = ListBoxAccessibleAttributeList -type ListBoxAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ListBoxAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ListBoxAccessible = ListBoxAccessibleSignalList -type ListBoxAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ListBoxAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/ListBoxRow.hs b/GI/Gtk/Objects/ListBoxRow.hs --- a/GI/Gtk/Objects/ListBoxRow.hs +++ b/GI/Gtk/Objects/ListBoxRow.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** listBoxRowChanged + ListBoxRowChangedMethodInfo , listBoxRowChanged , -- ** listBoxRowGetActivatable + ListBoxRowGetActivatableMethodInfo , listBoxRowGetActivatable , -- ** listBoxRowGetHeader + ListBoxRowGetHeaderMethodInfo , listBoxRowGetHeader , -- ** listBoxRowGetIndex + ListBoxRowGetIndexMethodInfo , listBoxRowGetIndex , -- ** listBoxRowGetSelectable + ListBoxRowGetSelectableMethodInfo , listBoxRowGetSelectable , -- ** listBoxRowIsSelected + ListBoxRowIsSelectedMethodInfo , listBoxRowIsSelected , @@ -45,14 +52,17 @@ -- ** listBoxRowSetActivatable + ListBoxRowSetActivatableMethodInfo , listBoxRowSetActivatable , -- ** listBoxRowSetHeader + ListBoxRowSetHeaderMethodInfo , listBoxRowSetHeader , -- ** listBoxRowSetSelectable + ListBoxRowSetSelectableMethodInfo , listBoxRowSetSelectable , @@ -125,6 +135,338 @@ noListBoxRow :: Maybe ListBoxRow noListBoxRow = Nothing +type family ResolveListBoxRowMethod (t :: Symbol) (o :: *) :: * where + ResolveListBoxRowMethod "activate" o = WidgetActivateMethodInfo + ResolveListBoxRowMethod "add" o = ContainerAddMethodInfo + ResolveListBoxRowMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveListBoxRowMethod "addChild" o = BuildableAddChildMethodInfo + ResolveListBoxRowMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveListBoxRowMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveListBoxRowMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveListBoxRowMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveListBoxRowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveListBoxRowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveListBoxRowMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveListBoxRowMethod "changed" o = ListBoxRowChangedMethodInfo + ResolveListBoxRowMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveListBoxRowMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveListBoxRowMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveListBoxRowMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveListBoxRowMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveListBoxRowMethod "childType" o = ContainerChildTypeMethodInfo + ResolveListBoxRowMethod "classPath" o = WidgetClassPathMethodInfo + ResolveListBoxRowMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveListBoxRowMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveListBoxRowMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveListBoxRowMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveListBoxRowMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveListBoxRowMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveListBoxRowMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveListBoxRowMethod "destroy" o = WidgetDestroyMethodInfo + ResolveListBoxRowMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveListBoxRowMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveListBoxRowMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveListBoxRowMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveListBoxRowMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveListBoxRowMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveListBoxRowMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveListBoxRowMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveListBoxRowMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveListBoxRowMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveListBoxRowMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveListBoxRowMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveListBoxRowMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveListBoxRowMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveListBoxRowMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveListBoxRowMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveListBoxRowMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveListBoxRowMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveListBoxRowMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveListBoxRowMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveListBoxRowMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveListBoxRowMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveListBoxRowMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveListBoxRowMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveListBoxRowMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveListBoxRowMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveListBoxRowMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveListBoxRowMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveListBoxRowMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveListBoxRowMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveListBoxRowMethod "draw" o = WidgetDrawMethodInfo + ResolveListBoxRowMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveListBoxRowMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveListBoxRowMethod "event" o = WidgetEventMethodInfo + ResolveListBoxRowMethod "forall" o = ContainerForallMethodInfo + ResolveListBoxRowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveListBoxRowMethod "foreach" o = ContainerForeachMethodInfo + ResolveListBoxRowMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveListBoxRowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveListBoxRowMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveListBoxRowMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveListBoxRowMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveListBoxRowMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveListBoxRowMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveListBoxRowMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveListBoxRowMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveListBoxRowMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveListBoxRowMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveListBoxRowMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveListBoxRowMethod "hide" o = WidgetHideMethodInfo + ResolveListBoxRowMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveListBoxRowMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveListBoxRowMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveListBoxRowMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveListBoxRowMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveListBoxRowMethod "intersect" o = WidgetIntersectMethodInfo + ResolveListBoxRowMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveListBoxRowMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveListBoxRowMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveListBoxRowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveListBoxRowMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveListBoxRowMethod "isSelected" o = ListBoxRowIsSelectedMethodInfo + ResolveListBoxRowMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveListBoxRowMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveListBoxRowMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveListBoxRowMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveListBoxRowMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveListBoxRowMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveListBoxRowMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveListBoxRowMethod "map" o = WidgetMapMethodInfo + ResolveListBoxRowMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveListBoxRowMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveListBoxRowMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveListBoxRowMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveListBoxRowMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveListBoxRowMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveListBoxRowMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveListBoxRowMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveListBoxRowMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveListBoxRowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveListBoxRowMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveListBoxRowMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveListBoxRowMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveListBoxRowMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveListBoxRowMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveListBoxRowMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveListBoxRowMethod "path" o = WidgetPathMethodInfo + ResolveListBoxRowMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveListBoxRowMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveListBoxRowMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveListBoxRowMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveListBoxRowMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveListBoxRowMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveListBoxRowMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveListBoxRowMethod "realize" o = WidgetRealizeMethodInfo + ResolveListBoxRowMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveListBoxRowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveListBoxRowMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveListBoxRowMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveListBoxRowMethod "remove" o = ContainerRemoveMethodInfo + ResolveListBoxRowMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveListBoxRowMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveListBoxRowMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveListBoxRowMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveListBoxRowMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveListBoxRowMethod "reparent" o = WidgetReparentMethodInfo + ResolveListBoxRowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveListBoxRowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveListBoxRowMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveListBoxRowMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveListBoxRowMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveListBoxRowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveListBoxRowMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveListBoxRowMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveListBoxRowMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveListBoxRowMethod "show" o = WidgetShowMethodInfo + ResolveListBoxRowMethod "showAll" o = WidgetShowAllMethodInfo + ResolveListBoxRowMethod "showNow" o = WidgetShowNowMethodInfo + ResolveListBoxRowMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveListBoxRowMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveListBoxRowMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveListBoxRowMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveListBoxRowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveListBoxRowMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveListBoxRowMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveListBoxRowMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveListBoxRowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveListBoxRowMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveListBoxRowMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveListBoxRowMethod "unmap" o = WidgetUnmapMethodInfo + ResolveListBoxRowMethod "unparent" o = WidgetUnparentMethodInfo + ResolveListBoxRowMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveListBoxRowMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveListBoxRowMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveListBoxRowMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveListBoxRowMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveListBoxRowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveListBoxRowMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveListBoxRowMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveListBoxRowMethod "getActivatable" o = ListBoxRowGetActivatableMethodInfo + ResolveListBoxRowMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveListBoxRowMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveListBoxRowMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveListBoxRowMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveListBoxRowMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveListBoxRowMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveListBoxRowMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveListBoxRowMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveListBoxRowMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveListBoxRowMethod "getChild" o = BinGetChildMethodInfo + ResolveListBoxRowMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveListBoxRowMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveListBoxRowMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveListBoxRowMethod "getClip" o = WidgetGetClipMethodInfo + ResolveListBoxRowMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveListBoxRowMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveListBoxRowMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveListBoxRowMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveListBoxRowMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveListBoxRowMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveListBoxRowMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveListBoxRowMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveListBoxRowMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveListBoxRowMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveListBoxRowMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveListBoxRowMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveListBoxRowMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveListBoxRowMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveListBoxRowMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveListBoxRowMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveListBoxRowMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveListBoxRowMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveListBoxRowMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveListBoxRowMethod "getHeader" o = ListBoxRowGetHeaderMethodInfo + ResolveListBoxRowMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveListBoxRowMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveListBoxRowMethod "getIndex" o = ListBoxRowGetIndexMethodInfo + ResolveListBoxRowMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveListBoxRowMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveListBoxRowMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveListBoxRowMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveListBoxRowMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveListBoxRowMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveListBoxRowMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveListBoxRowMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveListBoxRowMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveListBoxRowMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveListBoxRowMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveListBoxRowMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveListBoxRowMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveListBoxRowMethod "getParent" o = WidgetGetParentMethodInfo + ResolveListBoxRowMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveListBoxRowMethod "getPath" o = WidgetGetPathMethodInfo + ResolveListBoxRowMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveListBoxRowMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveListBoxRowMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveListBoxRowMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveListBoxRowMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveListBoxRowMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveListBoxRowMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveListBoxRowMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveListBoxRowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveListBoxRowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveListBoxRowMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveListBoxRowMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveListBoxRowMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveListBoxRowMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveListBoxRowMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveListBoxRowMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveListBoxRowMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveListBoxRowMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveListBoxRowMethod "getSelectable" o = ListBoxRowGetSelectableMethodInfo + ResolveListBoxRowMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveListBoxRowMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveListBoxRowMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveListBoxRowMethod "getState" o = WidgetGetStateMethodInfo + ResolveListBoxRowMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveListBoxRowMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveListBoxRowMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveListBoxRowMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveListBoxRowMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveListBoxRowMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveListBoxRowMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveListBoxRowMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveListBoxRowMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveListBoxRowMethod "getValign" o = WidgetGetValignMethodInfo + ResolveListBoxRowMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveListBoxRowMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveListBoxRowMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveListBoxRowMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveListBoxRowMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveListBoxRowMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveListBoxRowMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveListBoxRowMethod "setActivatable" o = ListBoxRowSetActivatableMethodInfo + ResolveListBoxRowMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveListBoxRowMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveListBoxRowMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveListBoxRowMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveListBoxRowMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveListBoxRowMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveListBoxRowMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveListBoxRowMethod "setClip" o = WidgetSetClipMethodInfo + ResolveListBoxRowMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveListBoxRowMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveListBoxRowMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveListBoxRowMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveListBoxRowMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveListBoxRowMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveListBoxRowMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveListBoxRowMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveListBoxRowMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveListBoxRowMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveListBoxRowMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveListBoxRowMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveListBoxRowMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveListBoxRowMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveListBoxRowMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveListBoxRowMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveListBoxRowMethod "setHeader" o = ListBoxRowSetHeaderMethodInfo + ResolveListBoxRowMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveListBoxRowMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveListBoxRowMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveListBoxRowMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveListBoxRowMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveListBoxRowMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveListBoxRowMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveListBoxRowMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveListBoxRowMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveListBoxRowMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveListBoxRowMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveListBoxRowMethod "setParent" o = WidgetSetParentMethodInfo + ResolveListBoxRowMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveListBoxRowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveListBoxRowMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveListBoxRowMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveListBoxRowMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveListBoxRowMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveListBoxRowMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveListBoxRowMethod "setSelectable" o = ListBoxRowSetSelectableMethodInfo + ResolveListBoxRowMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveListBoxRowMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveListBoxRowMethod "setState" o = WidgetSetStateMethodInfo + ResolveListBoxRowMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveListBoxRowMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveListBoxRowMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveListBoxRowMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveListBoxRowMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveListBoxRowMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveListBoxRowMethod "setValign" o = WidgetSetValignMethodInfo + ResolveListBoxRowMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveListBoxRowMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveListBoxRowMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveListBoxRowMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveListBoxRowMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveListBoxRowMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveListBoxRowMethod t ListBoxRow, MethodInfo info ListBoxRow p) => IsLabelProxy t (ListBoxRow -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveListBoxRowMethod t ListBoxRow, MethodInfo info ListBoxRow p) => IsLabel t (ListBoxRow -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ListBoxRow::activate type ListBoxRowActivateCallback = IO () @@ -182,7 +524,7 @@ type AttrSetTypeConstraint ListBoxRowActivatablePropertyInfo = (~) Bool type AttrBaseTypeConstraint ListBoxRowActivatablePropertyInfo = ListBoxRowK type AttrGetType ListBoxRowActivatablePropertyInfo = Bool - type AttrLabel ListBoxRowActivatablePropertyInfo = "ListBoxRow::activatable" + type AttrLabel ListBoxRowActivatablePropertyInfo = "activatable" attrGet _ = getListBoxRowActivatable attrSet _ = setListBoxRowActivatable attrConstruct _ = constructListBoxRowActivatable @@ -206,13 +548,13 @@ type AttrSetTypeConstraint ListBoxRowSelectablePropertyInfo = (~) Bool type AttrBaseTypeConstraint ListBoxRowSelectablePropertyInfo = ListBoxRowK type AttrGetType ListBoxRowSelectablePropertyInfo = Bool - type AttrLabel ListBoxRowSelectablePropertyInfo = "ListBoxRow::selectable" + type AttrLabel ListBoxRowSelectablePropertyInfo = "selectable" attrGet _ = getListBoxRowSelectable attrSet _ = setListBoxRowSelectable attrConstruct _ = constructListBoxRowSelectable type instance AttributeList ListBoxRow = ListBoxRowAttributeList -type ListBoxRowAttributeList = ('[ '("activatable", ListBoxRowActivatablePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selectable", ListBoxRowSelectablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ListBoxRowAttributeList = ('[ '("activatable", ListBoxRowActivatablePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectable", ListBoxRowSelectablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data ListBoxRowActivateSignalInfo instance SignalInfo ListBoxRowActivateSignalInfo where @@ -220,13 +562,12 @@ connectSignal _ = connectListBoxRowActivate type instance SignalList ListBoxRow = ListBoxRowSignalList -type ListBoxRowSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ListBoxRowActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ListBoxRowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ListBoxRowActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ListBoxRow::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ListBoxRow" -- throws : False -- Skip return : False @@ -237,7 +578,7 @@ listBoxRowNew :: (MonadIO m) => - m ListBoxRow + m ListBoxRow -- result listBoxRowNew = liftIO $ do result <- gtk_list_box_row_new checkUnexpectedReturnNULL "gtk_list_box_row_new" result @@ -246,9 +587,8 @@ -- method ListBoxRow::changed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -260,19 +600,22 @@ listBoxRowChanged :: (MonadIO m, ListBoxRowK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result listBoxRowChanged _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_list_box_row_changed _obj' touchManagedPtr _obj return () +data ListBoxRowChangedMethodInfo +instance (signature ~ (m ()), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowChangedMethodInfo a signature where + overloadedMethod _ = listBoxRowChanged + -- method ListBoxRow::get_activatable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -284,8 +627,8 @@ listBoxRowGetActivatable :: (MonadIO m, ListBoxRowK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result listBoxRowGetActivatable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_row_get_activatable _obj' @@ -293,11 +636,14 @@ touchManagedPtr _obj return result' +data ListBoxRowGetActivatableMethodInfo +instance (signature ~ (m Bool), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowGetActivatableMethodInfo a signature where + overloadedMethod _ = listBoxRowGetActivatable + -- method ListBoxRow::get_header -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -309,8 +655,8 @@ listBoxRowGetHeader :: (MonadIO m, ListBoxRowK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result listBoxRowGetHeader _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_row_get_header _obj' @@ -319,11 +665,14 @@ touchManagedPtr _obj return result' +data ListBoxRowGetHeaderMethodInfo +instance (signature ~ (m Widget), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowGetHeaderMethodInfo a signature where + overloadedMethod _ = listBoxRowGetHeader + -- method ListBoxRow::get_index -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -335,19 +684,22 @@ listBoxRowGetIndex :: (MonadIO m, ListBoxRowK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result listBoxRowGetIndex _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_row_get_index _obj' touchManagedPtr _obj return result +data ListBoxRowGetIndexMethodInfo +instance (signature ~ (m Int32), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowGetIndexMethodInfo a signature where + overloadedMethod _ = listBoxRowGetIndex + -- method ListBoxRow::get_selectable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -359,8 +711,8 @@ listBoxRowGetSelectable :: (MonadIO m, ListBoxRowK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result listBoxRowGetSelectable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_row_get_selectable _obj' @@ -368,11 +720,14 @@ touchManagedPtr _obj return result' +data ListBoxRowGetSelectableMethodInfo +instance (signature ~ (m Bool), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowGetSelectableMethodInfo a signature where + overloadedMethod _ = listBoxRowGetSelectable + -- method ListBoxRow::is_selected -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -384,8 +739,8 @@ listBoxRowIsSelected :: (MonadIO m, ListBoxRowK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result listBoxRowIsSelected _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_row_is_selected _obj' @@ -393,11 +748,14 @@ touchManagedPtr _obj return result' +data ListBoxRowIsSelectedMethodInfo +instance (signature ~ (m Bool), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowIsSelectedMethodInfo a signature where + overloadedMethod _ = listBoxRowIsSelected + -- method ListBoxRow::set_activatable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -410,9 +768,9 @@ listBoxRowSetActivatable :: (MonadIO m, ListBoxRowK a) => - a -> -- _obj - Bool -> -- activatable - m () + a -- _obj + -> Bool -- activatable + -> m () -- result listBoxRowSetActivatable _obj activatable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let activatable' = (fromIntegral . fromEnum) activatable @@ -420,11 +778,14 @@ touchManagedPtr _obj return () +data ListBoxRowSetActivatableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowSetActivatableMethodInfo a signature where + overloadedMethod _ = listBoxRowSetActivatable + -- method ListBoxRow::set_header -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "header", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -437,9 +798,9 @@ listBoxRowSetHeader :: (MonadIO m, ListBoxRowK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- header - m () + a -- _obj + -> Maybe (b) -- header + -> m () -- result listBoxRowSetHeader _obj header = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeHeader <- case header of @@ -452,11 +813,14 @@ whenJust header touchManagedPtr return () +data ListBoxRowSetHeaderMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ListBoxRowK a, WidgetK b) => MethodInfo ListBoxRowSetHeaderMethodInfo a signature where + overloadedMethod _ = listBoxRowSetHeader + -- method ListBoxRow::set_selectable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -469,14 +833,18 @@ listBoxRowSetSelectable :: (MonadIO m, ListBoxRowK a) => - a -> -- _obj - Bool -> -- selectable - m () + a -- _obj + -> Bool -- selectable + -> m () -- result listBoxRowSetSelectable _obj selectable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let selectable' = (fromIntegral . fromEnum) selectable gtk_list_box_row_set_selectable _obj' selectable' touchManagedPtr _obj return () + +data ListBoxRowSetSelectableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowSetSelectableMethodInfo a signature where + overloadedMethod _ = listBoxRowSetSelectable diff --git a/GI/Gtk/Objects/ListBoxRow.hs-boot b/GI/Gtk/Objects/ListBoxRow.hs-boot --- a/GI/Gtk/Objects/ListBoxRow.hs-boot +++ b/GI/Gtk/Objects/ListBoxRow.hs-boot @@ -14,3 +14,12 @@ data ListBoxRowActivatablePropertyInfo data ListBoxRowSelectablePropertyInfo data ListBoxRowActivateSignalInfo +data ListBoxRowChangedMethodInfo +data ListBoxRowGetActivatableMethodInfo +data ListBoxRowGetHeaderMethodInfo +data ListBoxRowGetIndexMethodInfo +data ListBoxRowGetSelectableMethodInfo +data ListBoxRowIsSelectedMethodInfo +data ListBoxRowSetActivatableMethodInfo +data ListBoxRowSetHeaderMethodInfo +data ListBoxRowSetSelectableMethodInfo diff --git a/GI/Gtk/Objects/ListBoxRowAccessible.hs b/GI/Gtk/Objects/ListBoxRowAccessible.hs --- a/GI/Gtk/Objects/ListBoxRowAccessible.hs +++ b/GI/Gtk/Objects/ListBoxRowAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,78 @@ noListBoxRowAccessible :: Maybe ListBoxRowAccessible noListBoxRowAccessible = Nothing +type family ResolveListBoxRowAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveListBoxRowAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveListBoxRowAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveListBoxRowAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveListBoxRowAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveListBoxRowAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveListBoxRowAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveListBoxRowAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveListBoxRowAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveListBoxRowAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveListBoxRowAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveListBoxRowAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveListBoxRowAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveListBoxRowAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveListBoxRowAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveListBoxRowAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveListBoxRowAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveListBoxRowAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveListBoxRowAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveListBoxRowAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveListBoxRowAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveListBoxRowAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveListBoxRowAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveListBoxRowAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveListBoxRowAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveListBoxRowAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveListBoxRowAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveListBoxRowAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveListBoxRowAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveListBoxRowAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveListBoxRowAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveListBoxRowAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveListBoxRowAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveListBoxRowAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveListBoxRowAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveListBoxRowAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveListBoxRowAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveListBoxRowAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveListBoxRowAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveListBoxRowAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveListBoxRowAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveListBoxRowAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveListBoxRowAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveListBoxRowAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveListBoxRowAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveListBoxRowAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveListBoxRowAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveListBoxRowAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveListBoxRowAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveListBoxRowAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveListBoxRowAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveListBoxRowAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveListBoxRowAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveListBoxRowAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveListBoxRowAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveListBoxRowAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveListBoxRowAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveListBoxRowAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveListBoxRowAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveListBoxRowAccessibleMethod t ListBoxRowAccessible, MethodInfo info ListBoxRowAccessible p) => IsLabelProxy t (ListBoxRowAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveListBoxRowAccessibleMethod t ListBoxRowAccessible, MethodInfo info ListBoxRowAccessible p) => IsLabel t (ListBoxRowAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ListBoxRowAccessible = ListBoxRowAccessibleAttributeList -type ListBoxRowAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ListBoxRowAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ListBoxRowAccessible = ListBoxRowAccessibleSignalList -type ListBoxRowAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ListBoxRowAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/ListStore.hs b/GI/Gtk/Objects/ListStore.hs --- a/GI/Gtk/Objects/ListStore.hs +++ b/GI/Gtk/Objects/ListStore.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,38 +18,47 @@ -- * Methods -- ** listStoreAppend + ListStoreAppendMethodInfo , listStoreAppend , -- ** listStoreClear + ListStoreClearMethodInfo , listStoreClear , -- ** listStoreInsert + ListStoreInsertMethodInfo , listStoreInsert , -- ** listStoreInsertAfter + ListStoreInsertAfterMethodInfo , listStoreInsertAfter , -- ** listStoreInsertBefore + ListStoreInsertBeforeMethodInfo , listStoreInsertBefore , -- ** listStoreInsertWithValuesv + ListStoreInsertWithValuesvMethodInfo , listStoreInsertWithValuesv , -- ** listStoreIterIsValid + ListStoreIterIsValidMethodInfo , listStoreIterIsValid , -- ** listStoreMoveAfter + ListStoreMoveAfterMethodInfo , listStoreMoveAfter , -- ** listStoreMoveBefore + ListStoreMoveBeforeMethodInfo , listStoreMoveBefore , @@ -57,30 +67,37 @@ -- ** listStorePrepend + ListStorePrependMethodInfo , listStorePrepend , -- ** listStoreRemove + ListStoreRemoveMethodInfo , listStoreRemove , -- ** listStoreReorder + ListStoreReorderMethodInfo , listStoreReorder , -- ** listStoreSet + ListStoreSetMethodInfo , listStoreSet , -- ** listStoreSetColumnTypes + ListStoreSetColumnTypesMethodInfo , listStoreSetColumnTypes , -- ** listStoreSetValue + ListStoreSetValueMethodInfo , listStoreSetValue , -- ** listStoreSwap + ListStoreSwapMethodInfo , listStoreSwap , @@ -120,17 +137,112 @@ noListStore :: Maybe ListStore noListStore = Nothing +type family ResolveListStoreMethod (t :: Symbol) (o :: *) :: * where + ResolveListStoreMethod "addChild" o = BuildableAddChildMethodInfo + ResolveListStoreMethod "append" o = ListStoreAppendMethodInfo + ResolveListStoreMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveListStoreMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveListStoreMethod "clear" o = ListStoreClearMethodInfo + ResolveListStoreMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveListStoreMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveListStoreMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveListStoreMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveListStoreMethod "dragDataDelete" o = TreeDragSourceDragDataDeleteMethodInfo + ResolveListStoreMethod "dragDataGet" o = TreeDragSourceDragDataGetMethodInfo + ResolveListStoreMethod "dragDataReceived" o = TreeDragDestDragDataReceivedMethodInfo + ResolveListStoreMethod "filterNew" o = TreeModelFilterNewMethodInfo + ResolveListStoreMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveListStoreMethod "foreach" o = TreeModelForeachMethodInfo + ResolveListStoreMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveListStoreMethod "hasDefaultSortFunc" o = TreeSortableHasDefaultSortFuncMethodInfo + ResolveListStoreMethod "insert" o = ListStoreInsertMethodInfo + ResolveListStoreMethod "insertAfter" o = ListStoreInsertAfterMethodInfo + ResolveListStoreMethod "insertBefore" o = ListStoreInsertBeforeMethodInfo + ResolveListStoreMethod "insertWithValuesv" o = ListStoreInsertWithValuesvMethodInfo + ResolveListStoreMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveListStoreMethod "iterChildren" o = TreeModelIterChildrenMethodInfo + ResolveListStoreMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo + ResolveListStoreMethod "iterIsValid" o = ListStoreIterIsValidMethodInfo + ResolveListStoreMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo + ResolveListStoreMethod "iterNext" o = TreeModelIterNextMethodInfo + ResolveListStoreMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo + ResolveListStoreMethod "iterParent" o = TreeModelIterParentMethodInfo + ResolveListStoreMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo + ResolveListStoreMethod "moveAfter" o = ListStoreMoveAfterMethodInfo + ResolveListStoreMethod "moveBefore" o = ListStoreMoveBeforeMethodInfo + ResolveListStoreMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveListStoreMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveListStoreMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveListStoreMethod "prepend" o = ListStorePrependMethodInfo + ResolveListStoreMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveListStoreMethod "refNode" o = TreeModelRefNodeMethodInfo + ResolveListStoreMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveListStoreMethod "remove" o = ListStoreRemoveMethodInfo + ResolveListStoreMethod "reorder" o = ListStoreReorderMethodInfo + ResolveListStoreMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveListStoreMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveListStoreMethod "rowChanged" o = TreeModelRowChangedMethodInfo + ResolveListStoreMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo + ResolveListStoreMethod "rowDraggable" o = TreeDragSourceRowDraggableMethodInfo + ResolveListStoreMethod "rowDropPossible" o = TreeDragDestRowDropPossibleMethodInfo + ResolveListStoreMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo + ResolveListStoreMethod "rowInserted" o = TreeModelRowInsertedMethodInfo + ResolveListStoreMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo + ResolveListStoreMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveListStoreMethod "set" o = ListStoreSetMethodInfo + ResolveListStoreMethod "sortColumnChanged" o = TreeSortableSortColumnChangedMethodInfo + ResolveListStoreMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo + ResolveListStoreMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveListStoreMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveListStoreMethod "swap" o = ListStoreSwapMethodInfo + ResolveListStoreMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveListStoreMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveListStoreMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo + ResolveListStoreMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveListStoreMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo + ResolveListStoreMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveListStoreMethod "getFlags" o = TreeModelGetFlagsMethodInfo + ResolveListStoreMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveListStoreMethod "getIter" o = TreeModelGetIterMethodInfo + ResolveListStoreMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo + ResolveListStoreMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo + ResolveListStoreMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo + ResolveListStoreMethod "getName" o = BuildableGetNameMethodInfo + ResolveListStoreMethod "getPath" o = TreeModelGetPathMethodInfo + ResolveListStoreMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveListStoreMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveListStoreMethod "getSortColumnId" o = TreeSortableGetSortColumnIdMethodInfo + ResolveListStoreMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo + ResolveListStoreMethod "getValue" o = TreeModelGetValueMethodInfo + ResolveListStoreMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveListStoreMethod "setColumnTypes" o = ListStoreSetColumnTypesMethodInfo + ResolveListStoreMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveListStoreMethod "setDefaultSortFunc" o = TreeSortableSetDefaultSortFuncMethodInfo + ResolveListStoreMethod "setName" o = BuildableSetNameMethodInfo + ResolveListStoreMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveListStoreMethod "setSortColumnId" o = TreeSortableSetSortColumnIdMethodInfo + ResolveListStoreMethod "setSortFunc" o = TreeSortableSetSortFuncMethodInfo + ResolveListStoreMethod "setValue" o = ListStoreSetValueMethodInfo + ResolveListStoreMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveListStoreMethod t ListStore, MethodInfo info ListStore p) => IsLabelProxy t (ListStore -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveListStoreMethod t ListStore, MethodInfo info ListStore p) => IsLabel t (ListStore -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ListStore = ListStoreAttributeList type ListStoreAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList ListStore = ListStoreSignalList -type ListStoreSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("sort-column-changed", TreeSortableSortColumnChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ListStoreSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo), '("sortColumnChanged", TreeSortableSortColumnChangedSignalInfo)] :: [(Symbol, *)]) -- method ListStore::new -- method type : Constructor --- Args : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ListStore" -- throws : False -- Skip return : False @@ -143,12 +255,12 @@ listStoreNew :: (MonadIO m) => - [GType] -> -- types - m ListStore + [GType] -- types + -> m ListStore -- result listStoreNew types = liftIO $ do - let n_columns = fromIntegral $ length types + let nColumns = fromIntegral $ length types types' <- (packMapStorableArray gtypeToCGType) types - result <- gtk_list_store_newv n_columns types' + result <- gtk_list_store_newv nColumns types' checkUnexpectedReturnNULL "gtk_list_store_newv" result result' <- (wrapObject ListStore) result freeMem types' @@ -156,9 +268,8 @@ -- method ListStore::append -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -171,8 +282,8 @@ listStoreAppend :: (MonadIO m, ListStoreK a) => - a -> -- _obj - m (TreeIter) + a -- _obj + -> m (TreeIter) -- result listStoreAppend _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -181,11 +292,14 @@ touchManagedPtr _obj return iter' +data ListStoreAppendMethodInfo +instance (signature ~ (m (TreeIter)), MonadIO m, ListStoreK a) => MethodInfo ListStoreAppendMethodInfo a signature where + overloadedMethod _ = listStoreAppend + -- method ListStore::clear -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -197,19 +311,22 @@ listStoreClear :: (MonadIO m, ListStoreK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result listStoreClear _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_list_store_clear _obj' touchManagedPtr _obj return () +data ListStoreClearMethodInfo +instance (signature ~ (m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreClearMethodInfo a signature where + overloadedMethod _ = listStoreClear + -- method ListStore::insert -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -223,9 +340,9 @@ listStoreInsert :: (MonadIO m, ListStoreK a) => - a -> -- _obj - Int32 -> -- position - m (TreeIter) + a -- _obj + -> Int32 -- position + -> m (TreeIter) -- result listStoreInsert _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -234,11 +351,14 @@ touchManagedPtr _obj return iter' +data ListStoreInsertMethodInfo +instance (signature ~ (Int32 -> m (TreeIter)), MonadIO m, ListStoreK a) => MethodInfo ListStoreInsertMethodInfo a signature where + overloadedMethod _ = listStoreInsert + -- method ListStore::insert_after -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -252,9 +372,9 @@ listStoreInsertAfter :: (MonadIO m, ListStoreK a) => - a -> -- _obj - Maybe (TreeIter) -> -- sibling - m (TreeIter) + a -- _obj + -> Maybe (TreeIter) -- sibling + -> m (TreeIter) -- result listStoreInsertAfter _obj sibling = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -269,11 +389,14 @@ whenJust sibling touchManagedPtr return iter' +data ListStoreInsertAfterMethodInfo +instance (signature ~ (Maybe (TreeIter) -> m (TreeIter)), MonadIO m, ListStoreK a) => MethodInfo ListStoreInsertAfterMethodInfo a signature where + overloadedMethod _ = listStoreInsertAfter + -- method ListStore::insert_before -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -287,9 +410,9 @@ listStoreInsertBefore :: (MonadIO m, ListStoreK a) => - a -> -- _obj - Maybe (TreeIter) -> -- sibling - m (TreeIter) + a -- _obj + -> Maybe (TreeIter) -- sibling + -> m (TreeIter) -- result listStoreInsertBefore _obj sibling = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -304,11 +427,14 @@ whenJust sibling touchManagedPtr return iter' +data ListStoreInsertBeforeMethodInfo +instance (signature ~ (Maybe (TreeIter) -> m (TreeIter)), MonadIO m, ListStoreK a) => MethodInfo ListStoreInsertBeforeMethodInfo a signature where + overloadedMethod _ = listStoreInsertBefore + -- method ListStore::insert_with_valuesv -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 5 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 5 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 5 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 5 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 5 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 5 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -325,22 +451,22 @@ listStoreInsertWithValuesv :: (MonadIO m, ListStoreK a) => - a -> -- _obj - Int32 -> -- position - [Int32] -> -- columns - [GValue] -> -- values - m (TreeIter) + a -- _obj + -> Int32 -- position + -> [Int32] -- columns + -> [GValue] -- values + -> m (TreeIter) -- result listStoreInsertWithValuesv _obj position columns values = liftIO $ do - let n_values = fromIntegral $ length values + let nValues = fromIntegral $ length values let columns_expected_length_ = fromIntegral $ length columns - when (columns_expected_length_ /= n_values) $ + when (columns_expected_length_ /= nValues) $ error "Gtk.listStoreInsertWithValuesv : length of 'columns' does not agree with that of 'values'." let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) columns' <- packStorableArray columns let values' = map unsafeManagedPtrGetPtr values values'' <- packBlockArray 24 values' - gtk_list_store_insert_with_valuesv _obj' iter position columns' values'' n_values + gtk_list_store_insert_with_valuesv _obj' iter position columns' values'' nValues iter' <- (wrapBoxed TreeIter) iter touchManagedPtr _obj mapM_ touchManagedPtr values @@ -348,11 +474,14 @@ freeMem values'' return iter' +data ListStoreInsertWithValuesvMethodInfo +instance (signature ~ (Int32 -> [Int32] -> [GValue] -> m (TreeIter)), MonadIO m, ListStoreK a) => MethodInfo ListStoreInsertWithValuesvMethodInfo a signature where + overloadedMethod _ = listStoreInsertWithValuesv + -- method ListStore::iter_is_valid -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -365,9 +494,9 @@ listStoreIterIsValid :: (MonadIO m, ListStoreK a) => - a -> -- _obj - TreeIter -> -- iter - m Bool + a -- _obj + -> TreeIter -- iter + -> m Bool -- result listStoreIterIsValid _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -377,11 +506,14 @@ touchManagedPtr iter return result' +data ListStoreIterIsValidMethodInfo +instance (signature ~ (TreeIter -> m Bool), MonadIO m, ListStoreK a) => MethodInfo ListStoreIterIsValidMethodInfo a signature where + overloadedMethod _ = listStoreIterIsValid + -- method ListStore::move_after -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -395,10 +527,10 @@ listStoreMoveAfter :: (MonadIO m, ListStoreK a) => - a -> -- _obj - TreeIter -> -- iter - Maybe (TreeIter) -> -- position - m () + a -- _obj + -> TreeIter -- iter + -> Maybe (TreeIter) -- position + -> m () -- result listStoreMoveAfter _obj iter position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -413,11 +545,14 @@ whenJust position touchManagedPtr return () +data ListStoreMoveAfterMethodInfo +instance (signature ~ (TreeIter -> Maybe (TreeIter) -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreMoveAfterMethodInfo a signature where + overloadedMethod _ = listStoreMoveAfter + -- method ListStore::move_before -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -431,10 +566,10 @@ listStoreMoveBefore :: (MonadIO m, ListStoreK a) => - a -> -- _obj - TreeIter -> -- iter - Maybe (TreeIter) -> -- position - m () + a -- _obj + -> TreeIter -- iter + -> Maybe (TreeIter) -- position + -> m () -- result listStoreMoveBefore _obj iter position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -449,11 +584,14 @@ whenJust position touchManagedPtr return () +data ListStoreMoveBeforeMethodInfo +instance (signature ~ (TreeIter -> Maybe (TreeIter) -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreMoveBeforeMethodInfo a signature where + overloadedMethod _ = listStoreMoveBefore + -- method ListStore::prepend -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -466,8 +604,8 @@ listStorePrepend :: (MonadIO m, ListStoreK a) => - a -> -- _obj - m (TreeIter) + a -- _obj + -> m (TreeIter) -- result listStorePrepend _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -476,11 +614,14 @@ touchManagedPtr _obj return iter' +data ListStorePrependMethodInfo +instance (signature ~ (m (TreeIter)), MonadIO m, ListStoreK a) => MethodInfo ListStorePrependMethodInfo a signature where + overloadedMethod _ = listStorePrepend + -- method ListStore::remove -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -493,9 +634,9 @@ listStoreRemove :: (MonadIO m, ListStoreK a) => - a -> -- _obj - TreeIter -> -- iter - m Bool + a -- _obj + -> TreeIter -- iter + -> m Bool -- result listStoreRemove _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -505,11 +646,14 @@ touchManagedPtr iter return result' +data ListStoreRemoveMethodInfo +instance (signature ~ (TreeIter -> m Bool), MonadIO m, ListStoreK a) => MethodInfo ListStoreRemoveMethodInfo a signature where + overloadedMethod _ = listStoreRemove + -- method ListStore::reorder -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray True (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray True (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray True (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -522,22 +666,25 @@ listStoreReorder :: (MonadIO m, ListStoreK a) => - a -> -- _obj - [Int32] -> -- new_order - m () -listStoreReorder _obj new_order = liftIO $ do + a -- _obj + -> [Int32] -- newOrder + -> m () -- result +listStoreReorder _obj newOrder = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - new_order' <- packZeroTerminatedStorableArray new_order - gtk_list_store_reorder _obj' new_order' + newOrder' <- packZeroTerminatedStorableArray newOrder + gtk_list_store_reorder _obj' newOrder' touchManagedPtr _obj - freeMem new_order' + freeMem newOrder' return () +data ListStoreReorderMethodInfo +instance (signature ~ ([Int32] -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreReorderMethodInfo a signature where + overloadedMethod _ = listStoreReorder + -- method ListStore::set_column_types -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -551,23 +698,26 @@ listStoreSetColumnTypes :: (MonadIO m, ListStoreK a) => - a -> -- _obj - [GType] -> -- types - m () + a -- _obj + -> [GType] -- types + -> m () -- result listStoreSetColumnTypes _obj types = liftIO $ do - let n_columns = fromIntegral $ length types + let nColumns = fromIntegral $ length types let _obj' = unsafeManagedPtrCastPtr _obj types' <- (packMapStorableArray gtypeToCGType) types - gtk_list_store_set_column_types _obj' n_columns types' + gtk_list_store_set_column_types _obj' nColumns types' touchManagedPtr _obj freeMem types' return () +data ListStoreSetColumnTypesMethodInfo +instance (signature ~ ([GType] -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreSetColumnTypesMethodInfo a signature where + overloadedMethod _ = listStoreSetColumnTypes + -- method ListStore::set_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -582,11 +732,11 @@ listStoreSetValue :: (MonadIO m, ListStoreK a) => - a -> -- _obj - TreeIter -> -- iter - Int32 -> -- column - GValue -> -- value - m () + a -- _obj + -> TreeIter -- iter + -> Int32 -- column + -> GValue -- value + -> m () -- result listStoreSetValue _obj iter column value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -597,11 +747,14 @@ touchManagedPtr value return () +data ListStoreSetValueMethodInfo +instance (signature ~ (TreeIter -> Int32 -> GValue -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreSetValueMethodInfo a signature where + overloadedMethod _ = listStoreSetValue + -- method ListStore::set -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -617,22 +770,22 @@ listStoreSet :: (MonadIO m, ListStoreK a) => - a -> -- _obj - TreeIter -> -- iter - [Int32] -> -- columns - [GValue] -> -- values - m () + a -- _obj + -> TreeIter -- iter + -> [Int32] -- columns + -> [GValue] -- values + -> m () -- result listStoreSet _obj iter columns values = liftIO $ do - let n_values = fromIntegral $ length values + let nValues = fromIntegral $ length values let columns_expected_length_ = fromIntegral $ length columns - when (columns_expected_length_ /= n_values) $ + when (columns_expected_length_ /= nValues) $ error "Gtk.listStoreSet : length of 'columns' does not agree with that of 'values'." let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter columns' <- packStorableArray columns let values' = map unsafeManagedPtrGetPtr values values'' <- packBlockArray 24 values' - gtk_list_store_set_valuesv _obj' iter' columns' values'' n_values + gtk_list_store_set_valuesv _obj' iter' columns' values'' nValues touchManagedPtr _obj touchManagedPtr iter mapM_ touchManagedPtr values @@ -640,11 +793,14 @@ freeMem values'' return () +data ListStoreSetMethodInfo +instance (signature ~ (TreeIter -> [Int32] -> [GValue] -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreSetMethodInfo a signature where + overloadedMethod _ = listStoreSet + -- method ListStore::swap -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -658,10 +814,10 @@ listStoreSwap :: (MonadIO m, ListStoreK a) => - a -> -- _obj - TreeIter -> -- a - TreeIter -> -- b - m () + a -- _obj + -> TreeIter -- a + -> TreeIter -- b + -> m () -- result listStoreSwap _obj a b = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let a' = unsafeManagedPtrGetPtr a @@ -671,5 +827,9 @@ touchManagedPtr a touchManagedPtr b return () + +data ListStoreSwapMethodInfo +instance (signature ~ (TreeIter -> TreeIter -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreSwapMethodInfo a signature where + overloadedMethod _ = listStoreSwap diff --git a/GI/Gtk/Objects/ListStore.hs-boot b/GI/Gtk/Objects/ListStore.hs-boot --- a/GI/Gtk/Objects/ListStore.hs-boot +++ b/GI/Gtk/Objects/ListStore.hs-boot @@ -11,3 +11,19 @@ instance GObject ListStore where class GObject o => ListStoreK o instance (GObject o, IsDescendantOf ListStore o) => ListStoreK o +data ListStoreAppendMethodInfo +data ListStoreClearMethodInfo +data ListStoreInsertMethodInfo +data ListStoreInsertAfterMethodInfo +data ListStoreInsertBeforeMethodInfo +data ListStoreInsertWithValuesvMethodInfo +data ListStoreIterIsValidMethodInfo +data ListStoreMoveAfterMethodInfo +data ListStoreMoveBeforeMethodInfo +data ListStorePrependMethodInfo +data ListStoreRemoveMethodInfo +data ListStoreReorderMethodInfo +data ListStoreSetColumnTypesMethodInfo +data ListStoreSetValueMethodInfo +data ListStoreSetMethodInfo +data ListStoreSwapMethodInfo diff --git a/GI/Gtk/Objects/LockButton.hs b/GI/Gtk/Objects/LockButton.hs --- a/GI/Gtk/Objects/LockButton.hs +++ b/GI/Gtk/Objects/LockButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** lockButtonGetPermission + LockButtonGetPermissionMethodInfo , lockButtonGetPermission , @@ -25,6 +27,7 @@ -- ** lockButtonSetPermission + LockButtonSetPermissionMethodInfo , lockButtonSetPermission , @@ -111,6 +114,366 @@ noLockButton :: Maybe LockButton noLockButton = Nothing +type family ResolveLockButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveLockButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveLockButtonMethod "add" o = ContainerAddMethodInfo + ResolveLockButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveLockButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveLockButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveLockButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveLockButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveLockButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveLockButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveLockButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveLockButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveLockButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveLockButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveLockButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveLockButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveLockButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveLockButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveLockButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveLockButtonMethod "clicked" o = ButtonClickedMethodInfo + ResolveLockButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveLockButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveLockButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveLockButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveLockButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveLockButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveLockButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveLockButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveLockButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveLockButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveLockButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveLockButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveLockButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveLockButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveLockButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveLockButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveLockButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveLockButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveLockButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveLockButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveLockButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveLockButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveLockButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveLockButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveLockButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveLockButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveLockButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveLockButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveLockButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveLockButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveLockButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveLockButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveLockButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveLockButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveLockButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveLockButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveLockButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveLockButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveLockButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveLockButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveLockButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveLockButtonMethod "enter" o = ButtonEnterMethodInfo + ResolveLockButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveLockButtonMethod "event" o = WidgetEventMethodInfo + ResolveLockButtonMethod "forall" o = ContainerForallMethodInfo + ResolveLockButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveLockButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveLockButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveLockButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveLockButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveLockButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveLockButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveLockButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveLockButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveLockButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveLockButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveLockButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveLockButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveLockButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveLockButtonMethod "hide" o = WidgetHideMethodInfo + ResolveLockButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveLockButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveLockButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveLockButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveLockButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveLockButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveLockButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveLockButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveLockButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveLockButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveLockButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveLockButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveLockButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveLockButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveLockButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveLockButtonMethod "leave" o = ButtonLeaveMethodInfo + ResolveLockButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveLockButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveLockButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveLockButtonMethod "map" o = WidgetMapMethodInfo + ResolveLockButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveLockButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveLockButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveLockButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveLockButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveLockButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveLockButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveLockButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveLockButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveLockButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveLockButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveLockButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveLockButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveLockButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveLockButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveLockButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveLockButtonMethod "path" o = WidgetPathMethodInfo + ResolveLockButtonMethod "pressed" o = ButtonPressedMethodInfo + ResolveLockButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveLockButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveLockButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveLockButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveLockButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveLockButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveLockButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveLockButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveLockButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveLockButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveLockButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveLockButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveLockButtonMethod "released" o = ButtonReleasedMethodInfo + ResolveLockButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveLockButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveLockButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveLockButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveLockButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveLockButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveLockButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveLockButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveLockButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveLockButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveLockButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveLockButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveLockButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveLockButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveLockButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveLockButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveLockButtonMethod "show" o = WidgetShowMethodInfo + ResolveLockButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveLockButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveLockButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveLockButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveLockButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveLockButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveLockButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveLockButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveLockButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveLockButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveLockButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveLockButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveLockButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveLockButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveLockButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveLockButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveLockButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveLockButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveLockButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveLockButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveLockButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveLockButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveLockButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveLockButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveLockButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveLockButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveLockButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo + ResolveLockButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveLockButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveLockButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveLockButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveLockButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo + ResolveLockButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveLockButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveLockButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveLockButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveLockButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveLockButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveLockButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveLockButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveLockButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveLockButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveLockButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveLockButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveLockButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveLockButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveLockButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveLockButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveLockButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveLockButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveLockButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo + ResolveLockButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveLockButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveLockButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveLockButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveLockButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo + ResolveLockButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveLockButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveLockButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveLockButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveLockButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveLockButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveLockButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveLockButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveLockButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveLockButtonMethod "getImage" o = ButtonGetImageMethodInfo + ResolveLockButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo + ResolveLockButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveLockButtonMethod "getLabel" o = ButtonGetLabelMethodInfo + ResolveLockButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveLockButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveLockButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveLockButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveLockButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveLockButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveLockButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveLockButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveLockButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveLockButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveLockButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveLockButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveLockButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveLockButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveLockButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveLockButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveLockButtonMethod "getPermission" o = LockButtonGetPermissionMethodInfo + ResolveLockButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveLockButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveLockButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveLockButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveLockButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveLockButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveLockButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveLockButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveLockButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveLockButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveLockButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveLockButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveLockButtonMethod "getRelief" o = ButtonGetReliefMethodInfo + ResolveLockButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveLockButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveLockButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveLockButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveLockButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveLockButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveLockButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveLockButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveLockButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveLockButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveLockButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveLockButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveLockButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveLockButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveLockButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveLockButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveLockButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveLockButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveLockButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveLockButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveLockButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo + ResolveLockButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo + ResolveLockButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveLockButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveLockButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveLockButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveLockButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveLockButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveLockButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveLockButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveLockButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveLockButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveLockButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo + ResolveLockButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveLockButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo + ResolveLockButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveLockButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveLockButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveLockButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveLockButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveLockButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveLockButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveLockButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveLockButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveLockButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveLockButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveLockButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveLockButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveLockButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveLockButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveLockButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveLockButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveLockButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveLockButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo + ResolveLockButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveLockButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveLockButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveLockButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveLockButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveLockButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveLockButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveLockButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveLockButtonMethod "setImage" o = ButtonSetImageMethodInfo + ResolveLockButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo + ResolveLockButtonMethod "setLabel" o = ButtonSetLabelMethodInfo + ResolveLockButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveLockButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveLockButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveLockButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveLockButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveLockButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveLockButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveLockButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveLockButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveLockButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveLockButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveLockButtonMethod "setPermission" o = LockButtonSetPermissionMethodInfo + ResolveLockButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveLockButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveLockButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveLockButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveLockButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveLockButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveLockButtonMethod "setRelief" o = ButtonSetReliefMethodInfo + ResolveLockButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveLockButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveLockButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveLockButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveLockButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveLockButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveLockButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveLockButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveLockButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveLockButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveLockButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveLockButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo + ResolveLockButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo + ResolveLockButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveLockButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveLockButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveLockButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveLockButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveLockButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveLockButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveLockButtonMethod t LockButton, MethodInfo info LockButton p) => IsLabelProxy t (LockButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveLockButtonMethod t LockButton, MethodInfo info LockButton p) => IsLabel t (LockButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "permission" -- Type: TInterface "Gio" "Permission" -- Flags: [PropertyReadable,PropertyWritable] @@ -130,7 +493,7 @@ type AttrSetTypeConstraint LockButtonPermissionPropertyInfo = Gio.PermissionK type AttrBaseTypeConstraint LockButtonPermissionPropertyInfo = LockButtonK type AttrGetType LockButtonPermissionPropertyInfo = Gio.Permission - type AttrLabel LockButtonPermissionPropertyInfo = "LockButton::permission" + type AttrLabel LockButtonPermissionPropertyInfo = "permission" attrGet _ = getLockButtonPermission attrSet _ = setLockButtonPermission attrConstruct _ = constructLockButtonPermission @@ -154,7 +517,7 @@ type AttrSetTypeConstraint LockButtonTextLockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTextLockPropertyInfo = LockButtonK type AttrGetType LockButtonTextLockPropertyInfo = T.Text - type AttrLabel LockButtonTextLockPropertyInfo = "LockButton::text-lock" + type AttrLabel LockButtonTextLockPropertyInfo = "text-lock" attrGet _ = getLockButtonTextLock attrSet _ = setLockButtonTextLock attrConstruct _ = constructLockButtonTextLock @@ -178,7 +541,7 @@ type AttrSetTypeConstraint LockButtonTextUnlockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTextUnlockPropertyInfo = LockButtonK type AttrGetType LockButtonTextUnlockPropertyInfo = T.Text - type AttrLabel LockButtonTextUnlockPropertyInfo = "LockButton::text-unlock" + type AttrLabel LockButtonTextUnlockPropertyInfo = "text-unlock" attrGet _ = getLockButtonTextUnlock attrSet _ = setLockButtonTextUnlock attrConstruct _ = constructLockButtonTextUnlock @@ -202,7 +565,7 @@ type AttrSetTypeConstraint LockButtonTooltipLockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTooltipLockPropertyInfo = LockButtonK type AttrGetType LockButtonTooltipLockPropertyInfo = T.Text - type AttrLabel LockButtonTooltipLockPropertyInfo = "LockButton::tooltip-lock" + type AttrLabel LockButtonTooltipLockPropertyInfo = "tooltip-lock" attrGet _ = getLockButtonTooltipLock attrSet _ = setLockButtonTooltipLock attrConstruct _ = constructLockButtonTooltipLock @@ -226,7 +589,7 @@ type AttrSetTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = LockButtonK type AttrGetType LockButtonTooltipNotAuthorizedPropertyInfo = T.Text - type AttrLabel LockButtonTooltipNotAuthorizedPropertyInfo = "LockButton::tooltip-not-authorized" + type AttrLabel LockButtonTooltipNotAuthorizedPropertyInfo = "tooltip-not-authorized" attrGet _ = getLockButtonTooltipNotAuthorized attrSet _ = setLockButtonTooltipNotAuthorized attrConstruct _ = constructLockButtonTooltipNotAuthorized @@ -250,22 +613,21 @@ type AttrSetTypeConstraint LockButtonTooltipUnlockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTooltipUnlockPropertyInfo = LockButtonK type AttrGetType LockButtonTooltipUnlockPropertyInfo = T.Text - type AttrLabel LockButtonTooltipUnlockPropertyInfo = "LockButton::tooltip-unlock" + type AttrLabel LockButtonTooltipUnlockPropertyInfo = "tooltip-unlock" attrGet _ = getLockButtonTooltipUnlock attrSet _ = setLockButtonTooltipUnlock attrConstruct _ = constructLockButtonTooltipUnlock type instance AttributeList LockButton = LockButtonAttributeList -type LockButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("permission", LockButtonPermissionPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("text-lock", LockButtonTextLockPropertyInfo), '("text-unlock", LockButtonTextUnlockPropertyInfo), '("tooltip-lock", LockButtonTooltipLockPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-not-authorized", LockButtonTooltipNotAuthorizedPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("tooltip-unlock", LockButtonTooltipUnlockPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +type LockButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("permission", LockButtonPermissionPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("textLock", LockButtonTextLockPropertyInfo), '("textUnlock", LockButtonTextUnlockPropertyInfo), '("tooltipLock", LockButtonTooltipLockPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipNotAuthorized", LockButtonTooltipNotAuthorizedPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("tooltipUnlock", LockButtonTooltipUnlockPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) type instance SignalList LockButton = LockButtonSignalList -type LockButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type LockButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method LockButton::new -- method type : Constructor --- Args : [Arg {argName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "LockButton" -- throws : False -- Skip return : False @@ -277,8 +639,8 @@ lockButtonNew :: (MonadIO m, Gio.PermissionK a) => - Maybe (a) -> -- permission - m LockButton + Maybe (a) -- permission + -> m LockButton -- result lockButtonNew permission = liftIO $ do maybePermission <- case permission of Nothing -> return nullPtr @@ -293,9 +655,8 @@ -- method LockButton::get_permission -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Permission" -- throws : False -- Skip return : False @@ -307,8 +668,8 @@ lockButtonGetPermission :: (MonadIO m, LockButtonK a) => - a -> -- _obj - m Gio.Permission + a -- _obj + -> m Gio.Permission -- result lockButtonGetPermission _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_lock_button_get_permission _obj' @@ -317,11 +678,14 @@ touchManagedPtr _obj return result' +data LockButtonGetPermissionMethodInfo +instance (signature ~ (m Gio.Permission), MonadIO m, LockButtonK a) => MethodInfo LockButtonGetPermissionMethodInfo a signature where + overloadedMethod _ = lockButtonGetPermission + -- method LockButton::set_permission -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -334,9 +698,9 @@ lockButtonSetPermission :: (MonadIO m, LockButtonK a, Gio.PermissionK b) => - a -> -- _obj - Maybe (b) -> -- permission - m () + a -- _obj + -> Maybe (b) -- permission + -> m () -- result lockButtonSetPermission _obj permission = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybePermission <- case permission of @@ -348,5 +712,9 @@ touchManagedPtr _obj whenJust permission touchManagedPtr return () + +data LockButtonSetPermissionMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, LockButtonK a, Gio.PermissionK b) => MethodInfo LockButtonSetPermissionMethodInfo a signature where + overloadedMethod _ = lockButtonSetPermission diff --git a/GI/Gtk/Objects/LockButton.hs-boot b/GI/Gtk/Objects/LockButton.hs-boot --- a/GI/Gtk/Objects/LockButton.hs-boot +++ b/GI/Gtk/Objects/LockButton.hs-boot @@ -17,3 +17,5 @@ data LockButtonTooltipLockPropertyInfo data LockButtonTooltipNotAuthorizedPropertyInfo data LockButtonTooltipUnlockPropertyInfo +data LockButtonGetPermissionMethodInfo +data LockButtonSetPermissionMethodInfo diff --git a/GI/Gtk/Objects/LockButtonAccessible.hs b/GI/Gtk/Objects/LockButtonAccessible.hs --- a/GI/Gtk/Objects/LockButtonAccessible.hs +++ b/GI/Gtk/Objects/LockButtonAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,84 @@ noLockButtonAccessible :: Maybe LockButtonAccessible noLockButtonAccessible = Nothing +type family ResolveLockButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveLockButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveLockButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveLockButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveLockButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveLockButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveLockButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveLockButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveLockButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveLockButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveLockButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveLockButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveLockButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveLockButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveLockButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveLockButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveLockButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveLockButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveLockButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveLockButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveLockButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveLockButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveLockButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveLockButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveLockButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveLockButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveLockButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveLockButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveLockButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveLockButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveLockButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveLockButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveLockButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveLockButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveLockButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveLockButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveLockButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveLockButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo + ResolveLockButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo + ResolveLockButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo + ResolveLockButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo + ResolveLockButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveLockButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveLockButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveLockButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveLockButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveLockButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveLockButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveLockButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveLockButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveLockButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveLockButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveLockButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveLockButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveLockButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveLockButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveLockButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo + ResolveLockButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveLockButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveLockButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveLockButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveLockButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveLockButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveLockButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveLockButtonAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveLockButtonAccessibleMethod t LockButtonAccessible, MethodInfo info LockButtonAccessible p) => IsLabelProxy t (LockButtonAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveLockButtonAccessibleMethod t LockButtonAccessible, MethodInfo info LockButtonAccessible p) => IsLabel t (LockButtonAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList LockButtonAccessible = LockButtonAccessibleAttributeList -type LockButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type LockButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList LockButtonAccessible = LockButtonAccessibleSignalList -type LockButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type LockButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/Menu.hs b/GI/Gtk/Objects/Menu.hs --- a/GI/Gtk/Objects/Menu.hs +++ b/GI/Gtk/Objects/Menu.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,30 +18,37 @@ -- * Methods -- ** menuAttach + MenuAttachMethodInfo , menuAttach , -- ** menuAttachToWidget + MenuAttachToWidgetMethodInfo , menuAttachToWidget , -- ** menuDetach + MenuDetachMethodInfo , menuDetach , -- ** menuGetAccelGroup + MenuGetAccelGroupMethodInfo , menuGetAccelGroup , -- ** menuGetAccelPath + MenuGetAccelPathMethodInfo , menuGetAccelPath , -- ** menuGetActive + MenuGetActiveMethodInfo , menuGetActive , -- ** menuGetAttachWidget + MenuGetAttachWidgetMethodInfo , menuGetAttachWidget , @@ -49,18 +57,22 @@ -- ** menuGetMonitor + MenuGetMonitorMethodInfo , menuGetMonitor , -- ** menuGetReserveToggleSize + MenuGetReserveToggleSizeMethodInfo , menuGetReserveToggleSize , -- ** menuGetTearoffState + MenuGetTearoffStateMethodInfo , menuGetTearoffState , -- ** menuGetTitle + MenuGetTitleMethodInfo , menuGetTitle , @@ -73,54 +85,67 @@ -- ** menuPopdown + MenuPopdownMethodInfo , menuPopdown , -- ** menuPopup + MenuPopupMethodInfo , menuPopup , -- ** menuPopupForDevice + MenuPopupForDeviceMethodInfo , menuPopupForDevice , -- ** menuReorderChild + MenuReorderChildMethodInfo , menuReorderChild , -- ** menuReposition + MenuRepositionMethodInfo , menuReposition , -- ** menuSetAccelGroup + MenuSetAccelGroupMethodInfo , menuSetAccelGroup , -- ** menuSetAccelPath + MenuSetAccelPathMethodInfo , menuSetAccelPath , -- ** menuSetActive + MenuSetActiveMethodInfo , menuSetActive , -- ** menuSetMonitor + MenuSetMonitorMethodInfo , menuSetMonitor , -- ** menuSetReserveToggleSize + MenuSetReserveToggleSizeMethodInfo , menuSetReserveToggleSize , -- ** menuSetScreen + MenuSetScreenMethodInfo , menuSetScreen , -- ** menuSetTearoffState + MenuSetTearoffStateMethodInfo , menuSetTearoffState , -- ** menuSetTitle + MenuSetTitleMethodInfo , menuSetTitle , @@ -238,6 +263,364 @@ noMenu :: Maybe Menu noMenu = Nothing +type family ResolveMenuMethod (t :: Symbol) (o :: *) :: * where + ResolveMenuMethod "activate" o = WidgetActivateMethodInfo + ResolveMenuMethod "activateItem" o = MenuShellActivateItemMethodInfo + ResolveMenuMethod "add" o = ContainerAddMethodInfo + ResolveMenuMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveMenuMethod "addChild" o = BuildableAddChildMethodInfo + ResolveMenuMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveMenuMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveMenuMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveMenuMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveMenuMethod "append" o = MenuShellAppendMethodInfo + ResolveMenuMethod "attach" o = MenuAttachMethodInfo + ResolveMenuMethod "attachToWidget" o = MenuAttachToWidgetMethodInfo + ResolveMenuMethod "bindModel" o = MenuShellBindModelMethodInfo + ResolveMenuMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMenuMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMenuMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveMenuMethod "cancel" o = MenuShellCancelMethodInfo + ResolveMenuMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveMenuMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveMenuMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveMenuMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveMenuMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveMenuMethod "childType" o = ContainerChildTypeMethodInfo + ResolveMenuMethod "classPath" o = WidgetClassPathMethodInfo + ResolveMenuMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveMenuMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveMenuMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveMenuMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveMenuMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveMenuMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveMenuMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveMenuMethod "deactivate" o = MenuShellDeactivateMethodInfo + ResolveMenuMethod "deselect" o = MenuShellDeselectMethodInfo + ResolveMenuMethod "destroy" o = WidgetDestroyMethodInfo + ResolveMenuMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveMenuMethod "detach" o = MenuDetachMethodInfo + ResolveMenuMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveMenuMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveMenuMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveMenuMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveMenuMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveMenuMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveMenuMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveMenuMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveMenuMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveMenuMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveMenuMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveMenuMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveMenuMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveMenuMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveMenuMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveMenuMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveMenuMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveMenuMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveMenuMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveMenuMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveMenuMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveMenuMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveMenuMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveMenuMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveMenuMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveMenuMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveMenuMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveMenuMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveMenuMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveMenuMethod "draw" o = WidgetDrawMethodInfo + ResolveMenuMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveMenuMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveMenuMethod "event" o = WidgetEventMethodInfo + ResolveMenuMethod "forall" o = ContainerForallMethodInfo + ResolveMenuMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMenuMethod "foreach" o = ContainerForeachMethodInfo + ResolveMenuMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveMenuMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMenuMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveMenuMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveMenuMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveMenuMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveMenuMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveMenuMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveMenuMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveMenuMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveMenuMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveMenuMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveMenuMethod "hide" o = WidgetHideMethodInfo + ResolveMenuMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveMenuMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveMenuMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveMenuMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveMenuMethod "insert" o = MenuShellInsertMethodInfo + ResolveMenuMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveMenuMethod "intersect" o = WidgetIntersectMethodInfo + ResolveMenuMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveMenuMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveMenuMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveMenuMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMenuMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveMenuMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveMenuMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveMenuMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveMenuMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveMenuMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveMenuMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveMenuMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveMenuMethod "map" o = WidgetMapMethodInfo + ResolveMenuMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveMenuMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveMenuMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveMenuMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveMenuMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveMenuMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveMenuMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveMenuMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveMenuMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMenuMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMenuMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveMenuMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveMenuMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveMenuMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveMenuMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveMenuMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveMenuMethod "path" o = WidgetPathMethodInfo + ResolveMenuMethod "popdown" o = MenuPopdownMethodInfo + ResolveMenuMethod "popup" o = MenuPopupMethodInfo + ResolveMenuMethod "popupForDevice" o = MenuPopupForDeviceMethodInfo + ResolveMenuMethod "prepend" o = MenuShellPrependMethodInfo + ResolveMenuMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveMenuMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveMenuMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveMenuMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveMenuMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveMenuMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveMenuMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveMenuMethod "realize" o = WidgetRealizeMethodInfo + ResolveMenuMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMenuMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMenuMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveMenuMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveMenuMethod "remove" o = ContainerRemoveMethodInfo + ResolveMenuMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveMenuMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveMenuMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveMenuMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveMenuMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveMenuMethod "reorderChild" o = MenuReorderChildMethodInfo + ResolveMenuMethod "reparent" o = WidgetReparentMethodInfo + ResolveMenuMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMenuMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMenuMethod "reposition" o = MenuRepositionMethodInfo + ResolveMenuMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveMenuMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveMenuMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveMenuMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMenuMethod "selectFirst" o = MenuShellSelectFirstMethodInfo + ResolveMenuMethod "selectItem" o = MenuShellSelectItemMethodInfo + ResolveMenuMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveMenuMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveMenuMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveMenuMethod "show" o = WidgetShowMethodInfo + ResolveMenuMethod "showAll" o = WidgetShowAllMethodInfo + ResolveMenuMethod "showNow" o = WidgetShowNowMethodInfo + ResolveMenuMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveMenuMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveMenuMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveMenuMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMenuMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMenuMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveMenuMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveMenuMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveMenuMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMenuMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveMenuMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveMenuMethod "unmap" o = WidgetUnmapMethodInfo + ResolveMenuMethod "unparent" o = WidgetUnparentMethodInfo + ResolveMenuMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveMenuMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMenuMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveMenuMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveMenuMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveMenuMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMenuMethod "getAccelGroup" o = MenuGetAccelGroupMethodInfo + ResolveMenuMethod "getAccelPath" o = MenuGetAccelPathMethodInfo + ResolveMenuMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveMenuMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveMenuMethod "getActive" o = MenuGetActiveMethodInfo + ResolveMenuMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveMenuMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveMenuMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveMenuMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveMenuMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveMenuMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveMenuMethod "getAttachWidget" o = MenuGetAttachWidgetMethodInfo + ResolveMenuMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveMenuMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveMenuMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveMenuMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveMenuMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveMenuMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveMenuMethod "getClip" o = WidgetGetClipMethodInfo + ResolveMenuMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveMenuMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveMenuMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMenuMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveMenuMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveMenuMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveMenuMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveMenuMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveMenuMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveMenuMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveMenuMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveMenuMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveMenuMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveMenuMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveMenuMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveMenuMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveMenuMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveMenuMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveMenuMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveMenuMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveMenuMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveMenuMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveMenuMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveMenuMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveMenuMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveMenuMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveMenuMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveMenuMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveMenuMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveMenuMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveMenuMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveMenuMethod "getMonitor" o = MenuGetMonitorMethodInfo + ResolveMenuMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveMenuMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveMenuMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveMenuMethod "getParent" o = WidgetGetParentMethodInfo + ResolveMenuMethod "getParentShell" o = MenuShellGetParentShellMethodInfo + ResolveMenuMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveMenuMethod "getPath" o = WidgetGetPathMethodInfo + ResolveMenuMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveMenuMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveMenuMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveMenuMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveMenuMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveMenuMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveMenuMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveMenuMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveMenuMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMenuMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMenuMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveMenuMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveMenuMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveMenuMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveMenuMethod "getReserveToggleSize" o = MenuGetReserveToggleSizeMethodInfo + ResolveMenuMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveMenuMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveMenuMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveMenuMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveMenuMethod "getSelectedItem" o = MenuShellGetSelectedItemMethodInfo + ResolveMenuMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveMenuMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveMenuMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveMenuMethod "getState" o = WidgetGetStateMethodInfo + ResolveMenuMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveMenuMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveMenuMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveMenuMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveMenuMethod "getTakeFocus" o = MenuShellGetTakeFocusMethodInfo + ResolveMenuMethod "getTearoffState" o = MenuGetTearoffStateMethodInfo + ResolveMenuMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveMenuMethod "getTitle" o = MenuGetTitleMethodInfo + ResolveMenuMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveMenuMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveMenuMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveMenuMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveMenuMethod "getValign" o = WidgetGetValignMethodInfo + ResolveMenuMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveMenuMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveMenuMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveMenuMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveMenuMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveMenuMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveMenuMethod "setAccelGroup" o = MenuSetAccelGroupMethodInfo + ResolveMenuMethod "setActive" o = MenuSetActiveMethodInfo + ResolveMenuMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveMenuMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveMenuMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveMenuMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveMenuMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveMenuMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveMenuMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveMenuMethod "setClip" o = WidgetSetClipMethodInfo + ResolveMenuMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveMenuMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMenuMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveMenuMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveMenuMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveMenuMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveMenuMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveMenuMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveMenuMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveMenuMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveMenuMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveMenuMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveMenuMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveMenuMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveMenuMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveMenuMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveMenuMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveMenuMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveMenuMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveMenuMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveMenuMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveMenuMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveMenuMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveMenuMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveMenuMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveMenuMethod "setMonitor" o = MenuSetMonitorMethodInfo + ResolveMenuMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveMenuMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveMenuMethod "setParent" o = WidgetSetParentMethodInfo + ResolveMenuMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveMenuMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMenuMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveMenuMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveMenuMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveMenuMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveMenuMethod "setReserveToggleSize" o = MenuSetReserveToggleSizeMethodInfo + ResolveMenuMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveMenuMethod "setScreen" o = MenuSetScreenMethodInfo + ResolveMenuMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveMenuMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveMenuMethod "setState" o = WidgetSetStateMethodInfo + ResolveMenuMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveMenuMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveMenuMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveMenuMethod "setTakeFocus" o = MenuShellSetTakeFocusMethodInfo + ResolveMenuMethod "setTearoffState" o = MenuSetTearoffStateMethodInfo + ResolveMenuMethod "setTitle" o = MenuSetTitleMethodInfo + ResolveMenuMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveMenuMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveMenuMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveMenuMethod "setValign" o = WidgetSetValignMethodInfo + ResolveMenuMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveMenuMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveMenuMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveMenuMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveMenuMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveMenuMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMenuMethod t Menu, MethodInfo info Menu p) => IsLabelProxy t (Menu -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMenuMethod t Menu, MethodInfo info Menu p) => IsLabel t (Menu -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Menu::move-scroll type MenuMoveScrollCallback = ScrollType -> @@ -265,9 +648,9 @@ CUInt -> Ptr () -> IO () -menuMoveScrollCallbackWrapper _cb _ scroll_type _ = do - let scroll_type' = (toEnum . fromIntegral) scroll_type - _cb scroll_type' +menuMoveScrollCallbackWrapper _cb _ scrollType _ = do + let scrollType' = (toEnum . fromIntegral) scrollType + _cb scrollType' onMenuMoveScroll :: (GObject a, MonadIO m) => a -> MenuMoveScrollCallback -> m SignalHandlerId onMenuMoveScroll obj cb = liftIO $ connectMenuMoveScroll obj cb SignalConnectBefore @@ -299,7 +682,7 @@ type AttrSetTypeConstraint MenuAccelGroupPropertyInfo = AccelGroupK type AttrBaseTypeConstraint MenuAccelGroupPropertyInfo = MenuK type AttrGetType MenuAccelGroupPropertyInfo = AccelGroup - type AttrLabel MenuAccelGroupPropertyInfo = "Menu::accel-group" + type AttrLabel MenuAccelGroupPropertyInfo = "accel-group" attrGet _ = getMenuAccelGroup attrSet _ = setMenuAccelGroup attrConstruct _ = constructMenuAccelGroup @@ -323,7 +706,7 @@ type AttrSetTypeConstraint MenuAccelPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MenuAccelPathPropertyInfo = MenuK type AttrGetType MenuAccelPathPropertyInfo = T.Text - type AttrLabel MenuAccelPathPropertyInfo = "Menu::accel-path" + type AttrLabel MenuAccelPathPropertyInfo = "accel-path" attrGet _ = getMenuAccelPath attrSet _ = setMenuAccelPath attrConstruct _ = constructMenuAccelPath @@ -347,7 +730,7 @@ type AttrSetTypeConstraint MenuActivePropertyInfo = (~) Int32 type AttrBaseTypeConstraint MenuActivePropertyInfo = MenuK type AttrGetType MenuActivePropertyInfo = Int32 - type AttrLabel MenuActivePropertyInfo = "Menu::active" + type AttrLabel MenuActivePropertyInfo = "active" attrGet _ = getMenuActive attrSet _ = setMenuActive attrConstruct _ = constructMenuActive @@ -371,7 +754,7 @@ type AttrSetTypeConstraint MenuAttachWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint MenuAttachWidgetPropertyInfo = MenuK type AttrGetType MenuAttachWidgetPropertyInfo = Widget - type AttrLabel MenuAttachWidgetPropertyInfo = "Menu::attach-widget" + type AttrLabel MenuAttachWidgetPropertyInfo = "attach-widget" attrGet _ = getMenuAttachWidget attrSet _ = setMenuAttachWidget attrConstruct _ = constructMenuAttachWidget @@ -395,7 +778,7 @@ type AttrSetTypeConstraint MenuMonitorPropertyInfo = (~) Int32 type AttrBaseTypeConstraint MenuMonitorPropertyInfo = MenuK type AttrGetType MenuMonitorPropertyInfo = Int32 - type AttrLabel MenuMonitorPropertyInfo = "Menu::monitor" + type AttrLabel MenuMonitorPropertyInfo = "monitor" attrGet _ = getMenuMonitor attrSet _ = setMenuMonitor attrConstruct _ = constructMenuMonitor @@ -419,7 +802,7 @@ type AttrSetTypeConstraint MenuReserveToggleSizePropertyInfo = (~) Bool type AttrBaseTypeConstraint MenuReserveToggleSizePropertyInfo = MenuK type AttrGetType MenuReserveToggleSizePropertyInfo = Bool - type AttrLabel MenuReserveToggleSizePropertyInfo = "Menu::reserve-toggle-size" + type AttrLabel MenuReserveToggleSizePropertyInfo = "reserve-toggle-size" attrGet _ = getMenuReserveToggleSize attrSet _ = setMenuReserveToggleSize attrConstruct _ = constructMenuReserveToggleSize @@ -443,7 +826,7 @@ type AttrSetTypeConstraint MenuTearoffStatePropertyInfo = (~) Bool type AttrBaseTypeConstraint MenuTearoffStatePropertyInfo = MenuK type AttrGetType MenuTearoffStatePropertyInfo = Bool - type AttrLabel MenuTearoffStatePropertyInfo = "Menu::tearoff-state" + type AttrLabel MenuTearoffStatePropertyInfo = "tearoff-state" attrGet _ = getMenuTearoffState attrSet _ = setMenuTearoffState attrConstruct _ = constructMenuTearoffState @@ -467,13 +850,13 @@ type AttrSetTypeConstraint MenuTearoffTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint MenuTearoffTitlePropertyInfo = MenuK type AttrGetType MenuTearoffTitlePropertyInfo = T.Text - type AttrLabel MenuTearoffTitlePropertyInfo = "Menu::tearoff-title" + type AttrLabel MenuTearoffTitlePropertyInfo = "tearoff-title" attrGet _ = getMenuTearoffTitle attrSet _ = setMenuTearoffTitle attrConstruct _ = constructMenuTearoffTitle type instance AttributeList Menu = MenuAttributeList -type MenuAttributeList = ('[ '("accel-group", MenuAccelGroupPropertyInfo), '("accel-path", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attach-widget", MenuAttachWidgetPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("reserve-toggle-size", MenuReserveToggleSizePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("take-focus", MenuShellTakeFocusPropertyInfo), '("tearoff-state", MenuTearoffStatePropertyInfo), '("tearoff-title", MenuTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type MenuAttributeList = ('[ '("accelGroup", MenuAccelGroupPropertyInfo), '("accelPath", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attachWidget", MenuAttachWidgetPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("reserveToggleSize", MenuReserveToggleSizePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tearoffState", MenuTearoffStatePropertyInfo), '("tearoffTitle", MenuTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data MenuMoveScrollSignalInfo instance SignalInfo MenuMoveScrollSignalInfo where @@ -481,13 +864,12 @@ connectSignal _ = connectMenuMoveScroll type instance SignalList Menu = MenuSignalList -type MenuSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-focus", MenuShellCycleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-current", MenuShellMoveCurrentSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-scroll", MenuMoveScrollSignalInfo), '("move-selected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-done", MenuShellSelectionDoneSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleFocus", MenuShellCycleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCurrent", MenuShellMoveCurrentSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveScroll", MenuMoveScrollSignalInfo), '("moveSelected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionDone", MenuShellSelectionDoneSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Menu::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Menu" -- throws : False -- Skip return : False @@ -498,7 +880,7 @@ menuNew :: (MonadIO m) => - m Menu + m Menu -- result menuNew = liftIO $ do result <- gtk_menu_new checkUnexpectedReturnNULL "gtk_menu_new" result @@ -507,9 +889,8 @@ -- method Menu::new_from_model -- method type : Constructor --- Args : [Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Menu" -- throws : False -- Skip return : False @@ -521,8 +902,8 @@ menuNewFromModel :: (MonadIO m, Gio.MenuModelK a) => - a -> -- model - m Menu + a -- model + -> m Menu -- result menuNewFromModel model = liftIO $ do let model' = unsafeManagedPtrCastPtr model result <- gtk_menu_new_from_model model' @@ -533,9 +914,8 @@ -- method Menu::attach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -552,26 +932,29 @@ menuAttach :: (MonadIO m, MenuK a, WidgetK b) => - a -> -- _obj - b -> -- child - Word32 -> -- left_attach - Word32 -> -- right_attach - Word32 -> -- top_attach - Word32 -> -- bottom_attach - m () -menuAttach _obj child left_attach right_attach top_attach bottom_attach = liftIO $ do + a -- _obj + -> b -- child + -> Word32 -- leftAttach + -> Word32 -- rightAttach + -> Word32 -- topAttach + -> Word32 -- bottomAttach + -> m () -- result +menuAttach _obj child leftAttach rightAttach topAttach bottomAttach = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child - gtk_menu_attach _obj' child' left_attach right_attach top_attach bottom_attach + gtk_menu_attach _obj' child' leftAttach rightAttach topAttach bottomAttach touchManagedPtr _obj touchManagedPtr child return () +data MenuAttachMethodInfo +instance (signature ~ (b -> Word32 -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m, MenuK a, WidgetK b) => MethodInfo MenuAttachMethodInfo a signature where + overloadedMethod _ = menuAttach + -- method Menu::attach_to_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detacher", argType = TInterface "Gtk" "MenuDetachFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detacher", argType = TInterface "Gtk" "MenuDetachFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detacher", argType = TInterface "Gtk" "MenuDetachFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -585,13 +968,13 @@ menuAttachToWidget :: (MonadIO m, MenuK a, WidgetK b) => - a -> -- _obj - b -> -- attach_widget - Maybe (MenuDetachFunc) -> -- detacher - m () -menuAttachToWidget _obj attach_widget detacher = liftIO $ do + a -- _obj + -> b -- attachWidget + -> Maybe (MenuDetachFunc) -- detacher + -> m () -- result +menuAttachToWidget _obj attachWidget detacher = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let attach_widget' = unsafeManagedPtrCastPtr attach_widget + let attachWidget' = unsafeManagedPtrCastPtr attachWidget ptrdetacher <- callocMem :: IO (Ptr (FunPtr MenuDetachFuncC)) maybeDetacher <- case detacher of Nothing -> return (castPtrToFunPtr nullPtr) @@ -599,16 +982,19 @@ jDetacher' <- mkMenuDetachFunc (menuDetachFuncWrapper (Just ptrdetacher) jDetacher) poke ptrdetacher jDetacher' return jDetacher' - gtk_menu_attach_to_widget _obj' attach_widget' maybeDetacher + gtk_menu_attach_to_widget _obj' attachWidget' maybeDetacher touchManagedPtr _obj - touchManagedPtr attach_widget + touchManagedPtr attachWidget return () +data MenuAttachToWidgetMethodInfo +instance (signature ~ (b -> Maybe (MenuDetachFunc) -> m ()), MonadIO m, MenuK a, WidgetK b) => MethodInfo MenuAttachToWidgetMethodInfo a signature where + overloadedMethod _ = menuAttachToWidget + -- method Menu::detach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -620,19 +1006,22 @@ menuDetach :: (MonadIO m, MenuK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result menuDetach _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_menu_detach _obj' touchManagedPtr _obj return () +data MenuDetachMethodInfo +instance (signature ~ (m ()), MonadIO m, MenuK a) => MethodInfo MenuDetachMethodInfo a signature where + overloadedMethod _ = menuDetach + -- method Menu::get_accel_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "AccelGroup" -- throws : False -- Skip return : False @@ -644,8 +1033,8 @@ menuGetAccelGroup :: (MonadIO m, MenuK a) => - a -> -- _obj - m AccelGroup + a -- _obj + -> m AccelGroup -- result menuGetAccelGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_get_accel_group _obj' @@ -654,11 +1043,14 @@ touchManagedPtr _obj return result' +data MenuGetAccelGroupMethodInfo +instance (signature ~ (m AccelGroup), MonadIO m, MenuK a) => MethodInfo MenuGetAccelGroupMethodInfo a signature where + overloadedMethod _ = menuGetAccelGroup + -- method Menu::get_accel_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -670,8 +1062,8 @@ menuGetAccelPath :: (MonadIO m, MenuK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result menuGetAccelPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_get_accel_path _obj' @@ -680,11 +1072,14 @@ touchManagedPtr _obj return result' +data MenuGetAccelPathMethodInfo +instance (signature ~ (m T.Text), MonadIO m, MenuK a) => MethodInfo MenuGetAccelPathMethodInfo a signature where + overloadedMethod _ = menuGetAccelPath + -- method Menu::get_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -696,8 +1091,8 @@ menuGetActive :: (MonadIO m, MenuK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result menuGetActive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_get_active _obj' @@ -706,11 +1101,14 @@ touchManagedPtr _obj return result' +data MenuGetActiveMethodInfo +instance (signature ~ (m Widget), MonadIO m, MenuK a) => MethodInfo MenuGetActiveMethodInfo a signature where + overloadedMethod _ = menuGetActive + -- method Menu::get_attach_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -722,8 +1120,8 @@ menuGetAttachWidget :: (MonadIO m, MenuK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result menuGetAttachWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_get_attach_widget _obj' @@ -732,11 +1130,14 @@ touchManagedPtr _obj return result' +data MenuGetAttachWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, MenuK a) => MethodInfo MenuGetAttachWidgetMethodInfo a signature where + overloadedMethod _ = menuGetAttachWidget + -- method Menu::get_monitor -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -748,19 +1149,22 @@ menuGetMonitor :: (MonadIO m, MenuK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result menuGetMonitor _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_get_monitor _obj' touchManagedPtr _obj return result +data MenuGetMonitorMethodInfo +instance (signature ~ (m Int32), MonadIO m, MenuK a) => MethodInfo MenuGetMonitorMethodInfo a signature where + overloadedMethod _ = menuGetMonitor + -- method Menu::get_reserve_toggle_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -772,8 +1176,8 @@ menuGetReserveToggleSize :: (MonadIO m, MenuK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result menuGetReserveToggleSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_get_reserve_toggle_size _obj' @@ -781,11 +1185,14 @@ touchManagedPtr _obj return result' +data MenuGetReserveToggleSizeMethodInfo +instance (signature ~ (m Bool), MonadIO m, MenuK a) => MethodInfo MenuGetReserveToggleSizeMethodInfo a signature where + overloadedMethod _ = menuGetReserveToggleSize + -- method Menu::get_tearoff_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -797,8 +1204,8 @@ {-# DEPRECATED menuGetTearoffState ["(Since version 3.10)"]#-} menuGetTearoffState :: (MonadIO m, MenuK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result menuGetTearoffState _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_get_tearoff_state _obj' @@ -806,11 +1213,14 @@ touchManagedPtr _obj return result' +data MenuGetTearoffStateMethodInfo +instance (signature ~ (m Bool), MonadIO m, MenuK a) => MethodInfo MenuGetTearoffStateMethodInfo a signature where + overloadedMethod _ = menuGetTearoffState + -- method Menu::get_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -822,8 +1232,8 @@ {-# DEPRECATED menuGetTitle ["(Since version 3.10)"]#-} menuGetTitle :: (MonadIO m, MenuK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result menuGetTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_get_title _obj' @@ -832,11 +1242,14 @@ touchManagedPtr _obj return result' +data MenuGetTitleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, MenuK a) => MethodInfo MenuGetTitleMethodInfo a signature where + overloadedMethod _ = menuGetTitle + -- method Menu::popdown -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -848,19 +1261,22 @@ menuPopdown :: (MonadIO m, MenuK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result menuPopdown _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_menu_popdown _obj' touchManagedPtr _obj return () +data MenuPopdownMethodInfo +instance (signature ~ (m ()), MonadIO m, MenuK a) => MethodInfo MenuPopdownMethodInfo a signature where + overloadedMethod _ = menuPopdown + -- method Menu::popup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -878,25 +1294,25 @@ menuPopup :: (MonadIO m, MenuK a, WidgetK b, WidgetK c) => - a -> -- _obj - Maybe (b) -> -- parent_menu_shell - Maybe (c) -> -- parent_menu_item - Maybe (MenuPositionFunc) -> -- func - Word32 -> -- button - Word32 -> -- activate_time - m () -menuPopup _obj parent_menu_shell parent_menu_item func button activate_time = liftIO $ do + a -- _obj + -> Maybe (b) -- parentMenuShell + -> Maybe (c) -- parentMenuItem + -> Maybe (MenuPositionFunc) -- func + -> Word32 -- button + -> Word32 -- activateTime + -> m () -- result +menuPopup _obj parentMenuShell parentMenuItem func button activateTime = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeParent_menu_shell <- case parent_menu_shell of + maybeParentMenuShell <- case parentMenuShell of Nothing -> return nullPtr - Just jParent_menu_shell -> do - let jParent_menu_shell' = unsafeManagedPtrCastPtr jParent_menu_shell - return jParent_menu_shell' - maybeParent_menu_item <- case parent_menu_item of + Just jParentMenuShell -> do + let jParentMenuShell' = unsafeManagedPtrCastPtr jParentMenuShell + return jParentMenuShell' + maybeParentMenuItem <- case parentMenuItem of Nothing -> return nullPtr - Just jParent_menu_item -> do - let jParent_menu_item' = unsafeManagedPtrCastPtr jParent_menu_item - return jParent_menu_item' + Just jParentMenuItem -> do + let jParentMenuItem' = unsafeManagedPtrCastPtr jParentMenuItem + return jParentMenuItem' ptrfunc <- callocMem :: IO (Ptr (FunPtr MenuPositionFuncC)) maybeFunc <- case func of Nothing -> return (castPtrToFunPtr nullPtr) @@ -905,17 +1321,20 @@ poke ptrfunc jFunc' return jFunc' let data_ = nullPtr - gtk_menu_popup _obj' maybeParent_menu_shell maybeParent_menu_item maybeFunc data_ button activate_time + gtk_menu_popup _obj' maybeParentMenuShell maybeParentMenuItem maybeFunc data_ button activateTime touchManagedPtr _obj - whenJust parent_menu_shell touchManagedPtr - whenJust parent_menu_item touchManagedPtr + whenJust parentMenuShell touchManagedPtr + whenJust parentMenuItem touchManagedPtr return () +data MenuPopupMethodInfo +instance (signature ~ (Maybe (b) -> Maybe (c) -> Maybe (MenuPositionFunc) -> Word32 -> Word32 -> m ()), MonadIO m, MenuK a, WidgetK b, WidgetK c) => MethodInfo MenuPopupMethodInfo a signature where + overloadedMethod _ = menuPopup + -- method Menu::popup_for_device -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -935,31 +1354,31 @@ menuPopupForDevice :: (MonadIO m, MenuK a, Gdk.DeviceK b, WidgetK c, WidgetK d) => - a -> -- _obj - Maybe (b) -> -- device - Maybe (c) -> -- parent_menu_shell - Maybe (d) -> -- parent_menu_item - Maybe (MenuPositionFunc) -> -- func - Word32 -> -- button - Word32 -> -- activate_time - m () -menuPopupForDevice _obj device parent_menu_shell parent_menu_item func button activate_time = liftIO $ do + a -- _obj + -> Maybe (b) -- device + -> Maybe (c) -- parentMenuShell + -> Maybe (d) -- parentMenuItem + -> Maybe (MenuPositionFunc) -- func + -> Word32 -- button + -> Word32 -- activateTime + -> m () -- result +menuPopupForDevice _obj device parentMenuShell parentMenuItem func button activateTime = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeDevice <- case device of Nothing -> return nullPtr Just jDevice -> do let jDevice' = unsafeManagedPtrCastPtr jDevice return jDevice' - maybeParent_menu_shell <- case parent_menu_shell of + maybeParentMenuShell <- case parentMenuShell of Nothing -> return nullPtr - Just jParent_menu_shell -> do - let jParent_menu_shell' = unsafeManagedPtrCastPtr jParent_menu_shell - return jParent_menu_shell' - maybeParent_menu_item <- case parent_menu_item of + Just jParentMenuShell -> do + let jParentMenuShell' = unsafeManagedPtrCastPtr jParentMenuShell + return jParentMenuShell' + maybeParentMenuItem <- case parentMenuItem of Nothing -> return nullPtr - Just jParent_menu_item -> do - let jParent_menu_item' = unsafeManagedPtrCastPtr jParent_menu_item - return jParent_menu_item' + Just jParentMenuItem -> do + let jParentMenuItem' = unsafeManagedPtrCastPtr jParentMenuItem + return jParentMenuItem' maybeFunc <- case func of Nothing -> return (castPtrToFunPtr nullPtr) Just jFunc -> do @@ -967,18 +1386,21 @@ return jFunc' let data_ = castFunPtrToPtr maybeFunc let destroy = safeFreeFunPtrPtr - gtk_menu_popup_for_device _obj' maybeDevice maybeParent_menu_shell maybeParent_menu_item maybeFunc data_ destroy button activate_time + gtk_menu_popup_for_device _obj' maybeDevice maybeParentMenuShell maybeParentMenuItem maybeFunc data_ destroy button activateTime touchManagedPtr _obj whenJust device touchManagedPtr - whenJust parent_menu_shell touchManagedPtr - whenJust parent_menu_item touchManagedPtr + whenJust parentMenuShell touchManagedPtr + whenJust parentMenuItem touchManagedPtr return () +data MenuPopupForDeviceMethodInfo +instance (signature ~ (Maybe (b) -> Maybe (c) -> Maybe (d) -> Maybe (MenuPositionFunc) -> Word32 -> Word32 -> m ()), MonadIO m, MenuK a, Gdk.DeviceK b, WidgetK c, WidgetK d) => MethodInfo MenuPopupForDeviceMethodInfo a signature where + overloadedMethod _ = menuPopupForDevice + -- method Menu::reorder_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -992,10 +1414,10 @@ menuReorderChild :: (MonadIO m, MenuK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- position - m () + a -- _obj + -> b -- child + -> Int32 -- position + -> m () -- result menuReorderChild _obj child position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -1004,11 +1426,14 @@ touchManagedPtr child return () +data MenuReorderChildMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, MenuK a, WidgetK b) => MethodInfo MenuReorderChildMethodInfo a signature where + overloadedMethod _ = menuReorderChild + -- method Menu::reposition -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1020,19 +1445,22 @@ menuReposition :: (MonadIO m, MenuK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result menuReposition _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_menu_reposition _obj' touchManagedPtr _obj return () +data MenuRepositionMethodInfo +instance (signature ~ (m ()), MonadIO m, MenuK a) => MethodInfo MenuRepositionMethodInfo a signature where + overloadedMethod _ = menuReposition + -- method Menu::set_accel_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1045,26 +1473,29 @@ menuSetAccelGroup :: (MonadIO m, MenuK a, AccelGroupK b) => - a -> -- _obj - Maybe (b) -> -- accel_group - m () -menuSetAccelGroup _obj accel_group = liftIO $ do + a -- _obj + -> Maybe (b) -- accelGroup + -> m () -- result +menuSetAccelGroup _obj accelGroup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccel_group <- case accel_group of + maybeAccelGroup <- case accelGroup of Nothing -> return nullPtr - Just jAccel_group -> do - let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group - return jAccel_group' - gtk_menu_set_accel_group _obj' maybeAccel_group + Just jAccelGroup -> do + let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup + return jAccelGroup' + gtk_menu_set_accel_group _obj' maybeAccelGroup touchManagedPtr _obj - whenJust accel_group touchManagedPtr + whenJust accelGroup touchManagedPtr return () +data MenuSetAccelGroupMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuK a, AccelGroupK b) => MethodInfo MenuSetAccelGroupMethodInfo a signature where + overloadedMethod _ = menuSetAccelGroup + -- method Menu::set_accel_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1077,26 +1508,29 @@ menuSetAccelPath :: (MonadIO m, MenuK a) => - a -> -- _obj - Maybe (T.Text) -> -- accel_path - m () -menuSetAccelPath _obj accel_path = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- accelPath + -> m () -- result +menuSetAccelPath _obj accelPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccel_path <- case accel_path of + maybeAccelPath <- case accelPath of Nothing -> return nullPtr - Just jAccel_path -> do - jAccel_path' <- textToCString jAccel_path - return jAccel_path' - gtk_menu_set_accel_path _obj' maybeAccel_path + Just jAccelPath -> do + jAccelPath' <- textToCString jAccelPath + return jAccelPath' + gtk_menu_set_accel_path _obj' maybeAccelPath touchManagedPtr _obj - freeMem maybeAccel_path + freeMem maybeAccelPath return () +data MenuSetAccelPathMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, MenuK a) => MethodInfo MenuSetAccelPathMethodInfo a signature where + overloadedMethod _ = menuSetAccelPath + -- method Menu::set_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1109,20 +1543,23 @@ menuSetActive :: (MonadIO m, MenuK a) => - a -> -- _obj - Word32 -> -- index - m () + a -- _obj + -> Word32 -- index + -> m () -- result menuSetActive _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_menu_set_active _obj' index touchManagedPtr _obj return () +data MenuSetActiveMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, MenuK a) => MethodInfo MenuSetActiveMethodInfo a signature where + overloadedMethod _ = menuSetActive + -- method Menu::set_monitor -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1135,20 +1572,23 @@ menuSetMonitor :: (MonadIO m, MenuK a) => - a -> -- _obj - Int32 -> -- monitor_num - m () -menuSetMonitor _obj monitor_num = liftIO $ do + a -- _obj + -> Int32 -- monitorNum + -> m () -- result +menuSetMonitor _obj monitorNum = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_set_monitor _obj' monitor_num + gtk_menu_set_monitor _obj' monitorNum touchManagedPtr _obj return () +data MenuSetMonitorMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, MenuK a) => MethodInfo MenuSetMonitorMethodInfo a signature where + overloadedMethod _ = menuSetMonitor + -- method Menu::set_reserve_toggle_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserve_toggle_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reserve_toggle_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserve_toggle_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1161,21 +1601,24 @@ menuSetReserveToggleSize :: (MonadIO m, MenuK a) => - a -> -- _obj - Bool -> -- reserve_toggle_size - m () -menuSetReserveToggleSize _obj reserve_toggle_size = liftIO $ do + a -- _obj + -> Bool -- reserveToggleSize + -> m () -- result +menuSetReserveToggleSize _obj reserveToggleSize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let reserve_toggle_size' = (fromIntegral . fromEnum) reserve_toggle_size - gtk_menu_set_reserve_toggle_size _obj' reserve_toggle_size' + let reserveToggleSize' = (fromIntegral . fromEnum) reserveToggleSize + gtk_menu_set_reserve_toggle_size _obj' reserveToggleSize' touchManagedPtr _obj return () +data MenuSetReserveToggleSizeMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, MenuK a) => MethodInfo MenuSetReserveToggleSizeMethodInfo a signature where + overloadedMethod _ = menuSetReserveToggleSize + -- method Menu::set_screen -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1188,9 +1631,9 @@ menuSetScreen :: (MonadIO m, MenuK a, Gdk.ScreenK b) => - a -> -- _obj - Maybe (b) -> -- screen - m () + a -- _obj + -> Maybe (b) -- screen + -> m () -- result menuSetScreen _obj screen = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeScreen <- case screen of @@ -1203,11 +1646,14 @@ whenJust screen touchManagedPtr return () +data MenuSetScreenMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuK a, Gdk.ScreenK b) => MethodInfo MenuSetScreenMethodInfo a signature where + overloadedMethod _ = menuSetScreen + -- method Menu::set_tearoff_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "torn_off", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "torn_off", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "torn_off", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1220,21 +1666,24 @@ {-# DEPRECATED menuSetTearoffState ["(Since version 3.10)"]#-} menuSetTearoffState :: (MonadIO m, MenuK a) => - a -> -- _obj - Bool -> -- torn_off - m () -menuSetTearoffState _obj torn_off = liftIO $ do + a -- _obj + -> Bool -- tornOff + -> m () -- result +menuSetTearoffState _obj tornOff = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let torn_off' = (fromIntegral . fromEnum) torn_off - gtk_menu_set_tearoff_state _obj' torn_off' + let tornOff' = (fromIntegral . fromEnum) tornOff + gtk_menu_set_tearoff_state _obj' tornOff' touchManagedPtr _obj return () +data MenuSetTearoffStateMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, MenuK a) => MethodInfo MenuSetTearoffStateMethodInfo a signature where + overloadedMethod _ = menuSetTearoffState + -- method Menu::set_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1247,9 +1696,9 @@ {-# DEPRECATED menuSetTitle ["(Since version 3.10)"]#-} menuSetTitle :: (MonadIO m, MenuK a) => - a -> -- _obj - T.Text -> -- title - m () + a -- _obj + -> T.Text -- title + -> m () -- result menuSetTitle _obj title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj title' <- textToCString title @@ -1258,11 +1707,14 @@ freeMem title' return () +data MenuSetTitleMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, MenuK a) => MethodInfo MenuSetTitleMethodInfo a signature where + overloadedMethod _ = menuSetTitle + -- method Menu::get_for_attach_widget -- method type : MemberFunction --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1274,8 +1726,8 @@ menuGetForAttachWidget :: (MonadIO m, WidgetK a) => - a -> -- widget - m [Widget] + a -- widget + -> m [Widget] -- result menuGetForAttachWidget widget = liftIO $ do let widget' = unsafeManagedPtrCastPtr widget result <- gtk_menu_get_for_attach_widget widget' diff --git a/GI/Gtk/Objects/Menu.hs-boot b/GI/Gtk/Objects/Menu.hs-boot --- a/GI/Gtk/Objects/Menu.hs-boot +++ b/GI/Gtk/Objects/Menu.hs-boot @@ -20,3 +20,27 @@ data MenuTearoffStatePropertyInfo data MenuTearoffTitlePropertyInfo data MenuMoveScrollSignalInfo +data MenuAttachMethodInfo +data MenuAttachToWidgetMethodInfo +data MenuDetachMethodInfo +data MenuGetAccelGroupMethodInfo +data MenuGetAccelPathMethodInfo +data MenuGetActiveMethodInfo +data MenuGetAttachWidgetMethodInfo +data MenuGetMonitorMethodInfo +data MenuGetReserveToggleSizeMethodInfo +data MenuGetTearoffStateMethodInfo +data MenuGetTitleMethodInfo +data MenuPopdownMethodInfo +data MenuPopupMethodInfo +data MenuPopupForDeviceMethodInfo +data MenuReorderChildMethodInfo +data MenuRepositionMethodInfo +data MenuSetAccelGroupMethodInfo +data MenuSetAccelPathMethodInfo +data MenuSetActiveMethodInfo +data MenuSetMonitorMethodInfo +data MenuSetReserveToggleSizeMethodInfo +data MenuSetScreenMethodInfo +data MenuSetTearoffStateMethodInfo +data MenuSetTitleMethodInfo diff --git a/GI/Gtk/Objects/MenuAccessible.hs b/GI/Gtk/Objects/MenuAccessible.hs --- a/GI/Gtk/Objects/MenuAccessible.hs +++ b/GI/Gtk/Objects/MenuAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,85 @@ noMenuAccessible :: Maybe MenuAccessible noMenuAccessible = Nothing +type family ResolveMenuAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveMenuAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveMenuAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo + ResolveMenuAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMenuAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMenuAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo + ResolveMenuAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveMenuAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveMenuAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMenuAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMenuAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveMenuAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveMenuAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo + ResolveMenuAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMenuAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMenuAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMenuAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveMenuAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveMenuAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMenuAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveMenuAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveMenuAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveMenuAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo + ResolveMenuAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMenuAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveMenuAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveMenuAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveMenuAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveMenuAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo + ResolveMenuAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMenuAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMenuAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMenuAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo + ResolveMenuAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMenuAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMenuAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMenuAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMenuAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMenuAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveMenuAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveMenuAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMenuAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveMenuAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveMenuAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveMenuAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveMenuAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveMenuAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveMenuAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveMenuAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveMenuAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMenuAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMenuAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveMenuAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo + ResolveMenuAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveMenuAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveMenuAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMenuAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveMenuAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveMenuAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveMenuAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveMenuAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveMenuAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMenuAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveMenuAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveMenuAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveMenuAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMenuAccessibleMethod t MenuAccessible, MethodInfo info MenuAccessible p) => IsLabelProxy t (MenuAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMenuAccessibleMethod t MenuAccessible, MethodInfo info MenuAccessible p) => IsLabel t (MenuAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList MenuAccessible = MenuAccessibleAttributeList -type MenuAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type MenuAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList MenuAccessible = MenuAccessibleSignalList -type MenuAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/MenuBar.hs b/GI/Gtk/Objects/MenuBar.hs --- a/GI/Gtk/Objects/MenuBar.hs +++ b/GI/Gtk/Objects/MenuBar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** menuBarGetChildPackDirection + MenuBarGetChildPackDirectionMethodInfo , menuBarGetChildPackDirection , -- ** menuBarGetPackDirection + MenuBarGetPackDirectionMethodInfo , menuBarGetPackDirection , @@ -33,10 +36,12 @@ -- ** menuBarSetChildPackDirection + MenuBarSetChildPackDirectionMethodInfo , menuBarSetChildPackDirection , -- ** menuBarSetPackDirection + MenuBarSetPackDirectionMethodInfo , menuBarSetPackDirection , @@ -95,6 +100,346 @@ noMenuBar :: Maybe MenuBar noMenuBar = Nothing +type family ResolveMenuBarMethod (t :: Symbol) (o :: *) :: * where + ResolveMenuBarMethod "activate" o = WidgetActivateMethodInfo + ResolveMenuBarMethod "activateItem" o = MenuShellActivateItemMethodInfo + ResolveMenuBarMethod "add" o = ContainerAddMethodInfo + ResolveMenuBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveMenuBarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveMenuBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveMenuBarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveMenuBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveMenuBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveMenuBarMethod "append" o = MenuShellAppendMethodInfo + ResolveMenuBarMethod "bindModel" o = MenuShellBindModelMethodInfo + ResolveMenuBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMenuBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMenuBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveMenuBarMethod "cancel" o = MenuShellCancelMethodInfo + ResolveMenuBarMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveMenuBarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveMenuBarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveMenuBarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveMenuBarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveMenuBarMethod "childType" o = ContainerChildTypeMethodInfo + ResolveMenuBarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveMenuBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveMenuBarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveMenuBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveMenuBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveMenuBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveMenuBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveMenuBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveMenuBarMethod "deactivate" o = MenuShellDeactivateMethodInfo + ResolveMenuBarMethod "deselect" o = MenuShellDeselectMethodInfo + ResolveMenuBarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveMenuBarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveMenuBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveMenuBarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveMenuBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveMenuBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveMenuBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveMenuBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveMenuBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveMenuBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveMenuBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveMenuBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveMenuBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveMenuBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveMenuBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveMenuBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveMenuBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveMenuBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveMenuBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveMenuBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveMenuBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveMenuBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveMenuBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveMenuBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveMenuBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveMenuBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveMenuBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveMenuBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveMenuBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveMenuBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveMenuBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveMenuBarMethod "draw" o = WidgetDrawMethodInfo + ResolveMenuBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveMenuBarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveMenuBarMethod "event" o = WidgetEventMethodInfo + ResolveMenuBarMethod "forall" o = ContainerForallMethodInfo + ResolveMenuBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMenuBarMethod "foreach" o = ContainerForeachMethodInfo + ResolveMenuBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveMenuBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMenuBarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveMenuBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveMenuBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveMenuBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveMenuBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveMenuBarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveMenuBarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveMenuBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveMenuBarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveMenuBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveMenuBarMethod "hide" o = WidgetHideMethodInfo + ResolveMenuBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveMenuBarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveMenuBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveMenuBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveMenuBarMethod "insert" o = MenuShellInsertMethodInfo + ResolveMenuBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveMenuBarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveMenuBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveMenuBarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveMenuBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveMenuBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMenuBarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveMenuBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveMenuBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveMenuBarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveMenuBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveMenuBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveMenuBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveMenuBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveMenuBarMethod "map" o = WidgetMapMethodInfo + ResolveMenuBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveMenuBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveMenuBarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveMenuBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveMenuBarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveMenuBarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveMenuBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveMenuBarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveMenuBarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMenuBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMenuBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveMenuBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveMenuBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveMenuBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveMenuBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveMenuBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveMenuBarMethod "path" o = WidgetPathMethodInfo + ResolveMenuBarMethod "prepend" o = MenuShellPrependMethodInfo + ResolveMenuBarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveMenuBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveMenuBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveMenuBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveMenuBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveMenuBarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveMenuBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveMenuBarMethod "realize" o = WidgetRealizeMethodInfo + ResolveMenuBarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMenuBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMenuBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveMenuBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveMenuBarMethod "remove" o = ContainerRemoveMethodInfo + ResolveMenuBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveMenuBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveMenuBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveMenuBarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveMenuBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveMenuBarMethod "reparent" o = WidgetReparentMethodInfo + ResolveMenuBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMenuBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMenuBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveMenuBarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveMenuBarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveMenuBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMenuBarMethod "selectFirst" o = MenuShellSelectFirstMethodInfo + ResolveMenuBarMethod "selectItem" o = MenuShellSelectItemMethodInfo + ResolveMenuBarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveMenuBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveMenuBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveMenuBarMethod "show" o = WidgetShowMethodInfo + ResolveMenuBarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveMenuBarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveMenuBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveMenuBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveMenuBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveMenuBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMenuBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMenuBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveMenuBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveMenuBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveMenuBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMenuBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveMenuBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveMenuBarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveMenuBarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveMenuBarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveMenuBarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMenuBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveMenuBarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveMenuBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveMenuBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMenuBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveMenuBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveMenuBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveMenuBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveMenuBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveMenuBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveMenuBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveMenuBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveMenuBarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveMenuBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveMenuBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveMenuBarMethod "getChildPackDirection" o = MenuBarGetChildPackDirectionMethodInfo + ResolveMenuBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveMenuBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveMenuBarMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveMenuBarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveMenuBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveMenuBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveMenuBarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMenuBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveMenuBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveMenuBarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveMenuBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveMenuBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveMenuBarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveMenuBarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveMenuBarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveMenuBarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveMenuBarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveMenuBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveMenuBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveMenuBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveMenuBarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveMenuBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveMenuBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveMenuBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveMenuBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveMenuBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveMenuBarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveMenuBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveMenuBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveMenuBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveMenuBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveMenuBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveMenuBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveMenuBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveMenuBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveMenuBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveMenuBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveMenuBarMethod "getPackDirection" o = MenuBarGetPackDirectionMethodInfo + ResolveMenuBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveMenuBarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveMenuBarMethod "getParentShell" o = MenuShellGetParentShellMethodInfo + ResolveMenuBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveMenuBarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveMenuBarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveMenuBarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveMenuBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveMenuBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveMenuBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveMenuBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveMenuBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveMenuBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveMenuBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMenuBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMenuBarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveMenuBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveMenuBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveMenuBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveMenuBarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveMenuBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveMenuBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveMenuBarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveMenuBarMethod "getSelectedItem" o = MenuShellGetSelectedItemMethodInfo + ResolveMenuBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveMenuBarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveMenuBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveMenuBarMethod "getState" o = WidgetGetStateMethodInfo + ResolveMenuBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveMenuBarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveMenuBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveMenuBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveMenuBarMethod "getTakeFocus" o = MenuShellGetTakeFocusMethodInfo + ResolveMenuBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveMenuBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveMenuBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveMenuBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveMenuBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveMenuBarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveMenuBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveMenuBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveMenuBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveMenuBarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveMenuBarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveMenuBarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveMenuBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveMenuBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveMenuBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveMenuBarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveMenuBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveMenuBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveMenuBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveMenuBarMethod "setChildPackDirection" o = MenuBarSetChildPackDirectionMethodInfo + ResolveMenuBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveMenuBarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveMenuBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveMenuBarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMenuBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveMenuBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveMenuBarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveMenuBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveMenuBarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveMenuBarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveMenuBarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveMenuBarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveMenuBarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveMenuBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveMenuBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveMenuBarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveMenuBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveMenuBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveMenuBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveMenuBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveMenuBarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveMenuBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveMenuBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveMenuBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveMenuBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveMenuBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveMenuBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveMenuBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveMenuBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveMenuBarMethod "setPackDirection" o = MenuBarSetPackDirectionMethodInfo + ResolveMenuBarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveMenuBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveMenuBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMenuBarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveMenuBarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveMenuBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveMenuBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveMenuBarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveMenuBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveMenuBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveMenuBarMethod "setState" o = WidgetSetStateMethodInfo + ResolveMenuBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveMenuBarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveMenuBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveMenuBarMethod "setTakeFocus" o = MenuShellSetTakeFocusMethodInfo + ResolveMenuBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveMenuBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveMenuBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveMenuBarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveMenuBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveMenuBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveMenuBarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveMenuBarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveMenuBarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveMenuBarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMenuBarMethod t MenuBar, MethodInfo info MenuBar p) => IsLabelProxy t (MenuBar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMenuBarMethod t MenuBar, MethodInfo info MenuBar p) => IsLabel t (MenuBar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "child-pack-direction" -- Type: TInterface "Gtk" "PackDirection" -- Flags: [PropertyReadable,PropertyWritable] @@ -114,7 +459,7 @@ type AttrSetTypeConstraint MenuBarChildPackDirectionPropertyInfo = (~) PackDirection type AttrBaseTypeConstraint MenuBarChildPackDirectionPropertyInfo = MenuBarK type AttrGetType MenuBarChildPackDirectionPropertyInfo = PackDirection - type AttrLabel MenuBarChildPackDirectionPropertyInfo = "MenuBar::child-pack-direction" + type AttrLabel MenuBarChildPackDirectionPropertyInfo = "child-pack-direction" attrGet _ = getMenuBarChildPackDirection attrSet _ = setMenuBarChildPackDirection attrConstruct _ = constructMenuBarChildPackDirection @@ -138,22 +483,21 @@ type AttrSetTypeConstraint MenuBarPackDirectionPropertyInfo = (~) PackDirection type AttrBaseTypeConstraint MenuBarPackDirectionPropertyInfo = MenuBarK type AttrGetType MenuBarPackDirectionPropertyInfo = PackDirection - type AttrLabel MenuBarPackDirectionPropertyInfo = "MenuBar::pack-direction" + type AttrLabel MenuBarPackDirectionPropertyInfo = "pack-direction" attrGet _ = getMenuBarPackDirection attrSet _ = setMenuBarPackDirection attrConstruct _ = constructMenuBarPackDirection type instance AttributeList MenuBar = MenuBarAttributeList -type MenuBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("child-pack-direction", MenuBarChildPackDirectionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("pack-direction", MenuBarPackDirectionPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("take-focus", MenuShellTakeFocusPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type MenuBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("childPackDirection", MenuBarChildPackDirectionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("packDirection", MenuBarPackDirectionPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList MenuBar = MenuBarSignalList -type MenuBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-focus", MenuShellCycleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-current", MenuShellMoveCurrentSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-selected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-done", MenuShellSelectionDoneSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleFocus", MenuShellCycleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCurrent", MenuShellMoveCurrentSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSelected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionDone", MenuShellSelectionDoneSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method MenuBar::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "MenuBar" -- throws : False -- Skip return : False @@ -164,7 +508,7 @@ menuBarNew :: (MonadIO m) => - m MenuBar + m MenuBar -- result menuBarNew = liftIO $ do result <- gtk_menu_bar_new checkUnexpectedReturnNULL "gtk_menu_bar_new" result @@ -173,9 +517,8 @@ -- method MenuBar::new_from_model -- method type : Constructor --- Args : [Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "MenuBar" -- throws : False -- Skip return : False @@ -187,8 +530,8 @@ menuBarNewFromModel :: (MonadIO m, Gio.MenuModelK a) => - a -> -- model - m MenuBar + a -- model + -> m MenuBar -- result menuBarNewFromModel model = liftIO $ do let model' = unsafeManagedPtrCastPtr model result <- gtk_menu_bar_new_from_model model' @@ -199,9 +542,8 @@ -- method MenuBar::get_child_pack_direction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PackDirection" -- throws : False -- Skip return : False @@ -213,8 +555,8 @@ menuBarGetChildPackDirection :: (MonadIO m, MenuBarK a) => - a -> -- _obj - m PackDirection + a -- _obj + -> m PackDirection -- result menuBarGetChildPackDirection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_bar_get_child_pack_direction _obj' @@ -222,11 +564,14 @@ touchManagedPtr _obj return result' +data MenuBarGetChildPackDirectionMethodInfo +instance (signature ~ (m PackDirection), MonadIO m, MenuBarK a) => MethodInfo MenuBarGetChildPackDirectionMethodInfo a signature where + overloadedMethod _ = menuBarGetChildPackDirection + -- method MenuBar::get_pack_direction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PackDirection" -- throws : False -- Skip return : False @@ -238,8 +583,8 @@ menuBarGetPackDirection :: (MonadIO m, MenuBarK a) => - a -> -- _obj - m PackDirection + a -- _obj + -> m PackDirection -- result menuBarGetPackDirection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_bar_get_pack_direction _obj' @@ -247,11 +592,14 @@ touchManagedPtr _obj return result' +data MenuBarGetPackDirectionMethodInfo +instance (signature ~ (m PackDirection), MonadIO m, MenuBarK a) => MethodInfo MenuBarGetPackDirectionMethodInfo a signature where + overloadedMethod _ = menuBarGetPackDirection + -- method MenuBar::set_child_pack_direction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -264,21 +612,24 @@ menuBarSetChildPackDirection :: (MonadIO m, MenuBarK a) => - a -> -- _obj - PackDirection -> -- child_pack_dir - m () -menuBarSetChildPackDirection _obj child_pack_dir = liftIO $ do + a -- _obj + -> PackDirection -- childPackDir + -> m () -- result +menuBarSetChildPackDirection _obj childPackDir = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let child_pack_dir' = (fromIntegral . fromEnum) child_pack_dir - gtk_menu_bar_set_child_pack_direction _obj' child_pack_dir' + let childPackDir' = (fromIntegral . fromEnum) childPackDir + gtk_menu_bar_set_child_pack_direction _obj' childPackDir' touchManagedPtr _obj return () +data MenuBarSetChildPackDirectionMethodInfo +instance (signature ~ (PackDirection -> m ()), MonadIO m, MenuBarK a) => MethodInfo MenuBarSetChildPackDirectionMethodInfo a signature where + overloadedMethod _ = menuBarSetChildPackDirection + -- method MenuBar::set_pack_direction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -291,14 +642,18 @@ menuBarSetPackDirection :: (MonadIO m, MenuBarK a) => - a -> -- _obj - PackDirection -> -- pack_dir - m () -menuBarSetPackDirection _obj pack_dir = liftIO $ do + a -- _obj + -> PackDirection -- packDir + -> m () -- result +menuBarSetPackDirection _obj packDir = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let pack_dir' = (fromIntegral . fromEnum) pack_dir - gtk_menu_bar_set_pack_direction _obj' pack_dir' + let packDir' = (fromIntegral . fromEnum) packDir + gtk_menu_bar_set_pack_direction _obj' packDir' touchManagedPtr _obj return () + +data MenuBarSetPackDirectionMethodInfo +instance (signature ~ (PackDirection -> m ()), MonadIO m, MenuBarK a) => MethodInfo MenuBarSetPackDirectionMethodInfo a signature where + overloadedMethod _ = menuBarSetPackDirection diff --git a/GI/Gtk/Objects/MenuBar.hs-boot b/GI/Gtk/Objects/MenuBar.hs-boot --- a/GI/Gtk/Objects/MenuBar.hs-boot +++ b/GI/Gtk/Objects/MenuBar.hs-boot @@ -13,3 +13,7 @@ instance (GObject o, IsDescendantOf MenuBar o) => MenuBarK o data MenuBarChildPackDirectionPropertyInfo data MenuBarPackDirectionPropertyInfo +data MenuBarGetChildPackDirectionMethodInfo +data MenuBarGetPackDirectionMethodInfo +data MenuBarSetChildPackDirectionMethodInfo +data MenuBarSetPackDirectionMethodInfo diff --git a/GI/Gtk/Objects/MenuButton.hs b/GI/Gtk/Objects/MenuButton.hs --- a/GI/Gtk/Objects/MenuButton.hs +++ b/GI/Gtk/Objects/MenuButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** menuButtonGetAlignWidget + MenuButtonGetAlignWidgetMethodInfo , menuButtonGetAlignWidget , -- ** menuButtonGetDirection + MenuButtonGetDirectionMethodInfo , menuButtonGetDirection , -- ** menuButtonGetMenuModel + MenuButtonGetMenuModelMethodInfo , menuButtonGetMenuModel , -- ** menuButtonGetPopover + MenuButtonGetPopoverMethodInfo , menuButtonGetPopover , -- ** menuButtonGetPopup + MenuButtonGetPopupMethodInfo , menuButtonGetPopup , -- ** menuButtonGetUsePopover + MenuButtonGetUsePopoverMethodInfo , menuButtonGetUsePopover , @@ -45,26 +52,32 @@ -- ** menuButtonSetAlignWidget + MenuButtonSetAlignWidgetMethodInfo , menuButtonSetAlignWidget , -- ** menuButtonSetDirection + MenuButtonSetDirectionMethodInfo , menuButtonSetDirection , -- ** menuButtonSetMenuModel + MenuButtonSetMenuModelMethodInfo , menuButtonSetMenuModel , -- ** menuButtonSetPopover + MenuButtonSetPopoverMethodInfo , menuButtonSetPopover , -- ** menuButtonSetPopup + MenuButtonSetPopupMethodInfo , menuButtonSetPopup , -- ** menuButtonSetUsePopover + MenuButtonSetUsePopoverMethodInfo , menuButtonSetUsePopover , @@ -151,6 +164,379 @@ noMenuButton :: Maybe MenuButton noMenuButton = Nothing +type family ResolveMenuButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveMenuButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveMenuButtonMethod "add" o = ContainerAddMethodInfo + ResolveMenuButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveMenuButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveMenuButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveMenuButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveMenuButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveMenuButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveMenuButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMenuButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMenuButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveMenuButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveMenuButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveMenuButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveMenuButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveMenuButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveMenuButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveMenuButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveMenuButtonMethod "clicked" o = ButtonClickedMethodInfo + ResolveMenuButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveMenuButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveMenuButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveMenuButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveMenuButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveMenuButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveMenuButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveMenuButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveMenuButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveMenuButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveMenuButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveMenuButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveMenuButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveMenuButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveMenuButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveMenuButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveMenuButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveMenuButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveMenuButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveMenuButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveMenuButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveMenuButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveMenuButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveMenuButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveMenuButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveMenuButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveMenuButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveMenuButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveMenuButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveMenuButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveMenuButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveMenuButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveMenuButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveMenuButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveMenuButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveMenuButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveMenuButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveMenuButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveMenuButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveMenuButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveMenuButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveMenuButtonMethod "enter" o = ButtonEnterMethodInfo + ResolveMenuButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveMenuButtonMethod "event" o = WidgetEventMethodInfo + ResolveMenuButtonMethod "forall" o = ContainerForallMethodInfo + ResolveMenuButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMenuButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveMenuButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveMenuButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMenuButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveMenuButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveMenuButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveMenuButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveMenuButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveMenuButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveMenuButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveMenuButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveMenuButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveMenuButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveMenuButtonMethod "hide" o = WidgetHideMethodInfo + ResolveMenuButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveMenuButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveMenuButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveMenuButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveMenuButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveMenuButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveMenuButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveMenuButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveMenuButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveMenuButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMenuButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveMenuButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveMenuButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveMenuButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveMenuButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveMenuButtonMethod "leave" o = ButtonLeaveMethodInfo + ResolveMenuButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveMenuButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveMenuButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveMenuButtonMethod "map" o = WidgetMapMethodInfo + ResolveMenuButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveMenuButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveMenuButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveMenuButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveMenuButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveMenuButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveMenuButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveMenuButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveMenuButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMenuButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMenuButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveMenuButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveMenuButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveMenuButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveMenuButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveMenuButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveMenuButtonMethod "path" o = WidgetPathMethodInfo + ResolveMenuButtonMethod "pressed" o = ButtonPressedMethodInfo + ResolveMenuButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveMenuButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveMenuButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveMenuButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveMenuButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveMenuButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveMenuButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveMenuButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveMenuButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMenuButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMenuButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveMenuButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveMenuButtonMethod "released" o = ButtonReleasedMethodInfo + ResolveMenuButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveMenuButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveMenuButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveMenuButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveMenuButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveMenuButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveMenuButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveMenuButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMenuButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMenuButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveMenuButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveMenuButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveMenuButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMenuButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveMenuButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveMenuButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveMenuButtonMethod "show" o = WidgetShowMethodInfo + ResolveMenuButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveMenuButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveMenuButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveMenuButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveMenuButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveMenuButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMenuButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMenuButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveMenuButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveMenuButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveMenuButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveMenuButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMenuButtonMethod "toggled" o = ToggleButtonToggledMethodInfo + ResolveMenuButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveMenuButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveMenuButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveMenuButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveMenuButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveMenuButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMenuButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveMenuButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveMenuButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveMenuButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMenuButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveMenuButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveMenuButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveMenuButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveMenuButtonMethod "getActive" o = ToggleButtonGetActiveMethodInfo + ResolveMenuButtonMethod "getAlignWidget" o = MenuButtonGetAlignWidgetMethodInfo + ResolveMenuButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo + ResolveMenuButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveMenuButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveMenuButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveMenuButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveMenuButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo + ResolveMenuButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveMenuButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveMenuButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveMenuButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveMenuButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveMenuButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveMenuButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveMenuButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveMenuButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveMenuButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveMenuButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveMenuButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveMenuButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMenuButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveMenuButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveMenuButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveMenuButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveMenuButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo + ResolveMenuButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveMenuButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveMenuButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveMenuButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveMenuButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo + ResolveMenuButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveMenuButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveMenuButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveMenuButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveMenuButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveMenuButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveMenuButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveMenuButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveMenuButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveMenuButtonMethod "getImage" o = ButtonGetImageMethodInfo + ResolveMenuButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo + ResolveMenuButtonMethod "getInconsistent" o = ToggleButtonGetInconsistentMethodInfo + ResolveMenuButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveMenuButtonMethod "getLabel" o = ButtonGetLabelMethodInfo + ResolveMenuButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveMenuButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveMenuButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveMenuButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveMenuButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveMenuButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveMenuButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveMenuButtonMethod "getMenuModel" o = MenuButtonGetMenuModelMethodInfo + ResolveMenuButtonMethod "getMode" o = ToggleButtonGetModeMethodInfo + ResolveMenuButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveMenuButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveMenuButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveMenuButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveMenuButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveMenuButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveMenuButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveMenuButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveMenuButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveMenuButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveMenuButtonMethod "getPopover" o = MenuButtonGetPopoverMethodInfo + ResolveMenuButtonMethod "getPopup" o = MenuButtonGetPopupMethodInfo + ResolveMenuButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveMenuButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveMenuButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveMenuButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveMenuButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveMenuButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveMenuButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMenuButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMenuButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveMenuButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveMenuButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveMenuButtonMethod "getRelief" o = ButtonGetReliefMethodInfo + ResolveMenuButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveMenuButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveMenuButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveMenuButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveMenuButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveMenuButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveMenuButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveMenuButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveMenuButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveMenuButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveMenuButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveMenuButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveMenuButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveMenuButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveMenuButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveMenuButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveMenuButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveMenuButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveMenuButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveMenuButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveMenuButtonMethod "getUsePopover" o = MenuButtonGetUsePopoverMethodInfo + ResolveMenuButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo + ResolveMenuButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo + ResolveMenuButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveMenuButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveMenuButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveMenuButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveMenuButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveMenuButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveMenuButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveMenuButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveMenuButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveMenuButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveMenuButtonMethod "setActive" o = ToggleButtonSetActiveMethodInfo + ResolveMenuButtonMethod "setAlignWidget" o = MenuButtonSetAlignWidgetMethodInfo + ResolveMenuButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo + ResolveMenuButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveMenuButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo + ResolveMenuButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveMenuButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveMenuButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveMenuButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveMenuButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveMenuButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveMenuButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveMenuButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveMenuButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMenuButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveMenuButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveMenuButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveMenuButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveMenuButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveMenuButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveMenuButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveMenuButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveMenuButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo + ResolveMenuButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveMenuButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveMenuButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveMenuButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveMenuButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveMenuButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveMenuButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveMenuButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveMenuButtonMethod "setImage" o = ButtonSetImageMethodInfo + ResolveMenuButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo + ResolveMenuButtonMethod "setInconsistent" o = ToggleButtonSetInconsistentMethodInfo + ResolveMenuButtonMethod "setLabel" o = ButtonSetLabelMethodInfo + ResolveMenuButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveMenuButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveMenuButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveMenuButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveMenuButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveMenuButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveMenuButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveMenuButtonMethod "setMenuModel" o = MenuButtonSetMenuModelMethodInfo + ResolveMenuButtonMethod "setMode" o = ToggleButtonSetModeMethodInfo + ResolveMenuButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveMenuButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveMenuButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveMenuButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveMenuButtonMethod "setPopover" o = MenuButtonSetPopoverMethodInfo + ResolveMenuButtonMethod "setPopup" o = MenuButtonSetPopupMethodInfo + ResolveMenuButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMenuButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveMenuButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveMenuButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveMenuButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveMenuButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveMenuButtonMethod "setRelief" o = ButtonSetReliefMethodInfo + ResolveMenuButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveMenuButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveMenuButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveMenuButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveMenuButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveMenuButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveMenuButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveMenuButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveMenuButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveMenuButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveMenuButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveMenuButtonMethod "setUsePopover" o = MenuButtonSetUsePopoverMethodInfo + ResolveMenuButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo + ResolveMenuButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo + ResolveMenuButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveMenuButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveMenuButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveMenuButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveMenuButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveMenuButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveMenuButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMenuButtonMethod t MenuButton, MethodInfo info MenuButton p) => IsLabelProxy t (MenuButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMenuButtonMethod t MenuButton, MethodInfo info MenuButton p) => IsLabel t (MenuButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "align-widget" -- Type: TInterface "Gtk" "Container" -- Flags: [PropertyReadable,PropertyWritable] @@ -170,7 +556,7 @@ type AttrSetTypeConstraint MenuButtonAlignWidgetPropertyInfo = ContainerK type AttrBaseTypeConstraint MenuButtonAlignWidgetPropertyInfo = MenuButtonK type AttrGetType MenuButtonAlignWidgetPropertyInfo = Container - type AttrLabel MenuButtonAlignWidgetPropertyInfo = "MenuButton::align-widget" + type AttrLabel MenuButtonAlignWidgetPropertyInfo = "align-widget" attrGet _ = getMenuButtonAlignWidget attrSet _ = setMenuButtonAlignWidget attrConstruct _ = constructMenuButtonAlignWidget @@ -194,7 +580,7 @@ type AttrSetTypeConstraint MenuButtonDirectionPropertyInfo = (~) ArrowType type AttrBaseTypeConstraint MenuButtonDirectionPropertyInfo = MenuButtonK type AttrGetType MenuButtonDirectionPropertyInfo = ArrowType - type AttrLabel MenuButtonDirectionPropertyInfo = "MenuButton::direction" + type AttrLabel MenuButtonDirectionPropertyInfo = "direction" attrGet _ = getMenuButtonDirection attrSet _ = setMenuButtonDirection attrConstruct _ = constructMenuButtonDirection @@ -218,7 +604,7 @@ type AttrSetTypeConstraint MenuButtonMenuModelPropertyInfo = Gio.MenuModelK type AttrBaseTypeConstraint MenuButtonMenuModelPropertyInfo = MenuButtonK type AttrGetType MenuButtonMenuModelPropertyInfo = Gio.MenuModel - type AttrLabel MenuButtonMenuModelPropertyInfo = "MenuButton::menu-model" + type AttrLabel MenuButtonMenuModelPropertyInfo = "menu-model" attrGet _ = getMenuButtonMenuModel attrSet _ = setMenuButtonMenuModel attrConstruct _ = constructMenuButtonMenuModel @@ -242,7 +628,7 @@ type AttrSetTypeConstraint MenuButtonPopoverPropertyInfo = PopoverK type AttrBaseTypeConstraint MenuButtonPopoverPropertyInfo = MenuButtonK type AttrGetType MenuButtonPopoverPropertyInfo = Popover - type AttrLabel MenuButtonPopoverPropertyInfo = "MenuButton::popover" + type AttrLabel MenuButtonPopoverPropertyInfo = "popover" attrGet _ = getMenuButtonPopover attrSet _ = setMenuButtonPopover attrConstruct _ = constructMenuButtonPopover @@ -266,7 +652,7 @@ type AttrSetTypeConstraint MenuButtonPopupPropertyInfo = MenuK type AttrBaseTypeConstraint MenuButtonPopupPropertyInfo = MenuButtonK type AttrGetType MenuButtonPopupPropertyInfo = Menu - type AttrLabel MenuButtonPopupPropertyInfo = "MenuButton::popup" + type AttrLabel MenuButtonPopupPropertyInfo = "popup" attrGet _ = getMenuButtonPopup attrSet _ = setMenuButtonPopup attrConstruct _ = constructMenuButtonPopup @@ -290,22 +676,21 @@ type AttrSetTypeConstraint MenuButtonUsePopoverPropertyInfo = (~) Bool type AttrBaseTypeConstraint MenuButtonUsePopoverPropertyInfo = MenuButtonK type AttrGetType MenuButtonUsePopoverPropertyInfo = Bool - type AttrLabel MenuButtonUsePopoverPropertyInfo = "MenuButton::use-popover" + type AttrLabel MenuButtonUsePopoverPropertyInfo = "use-popover" attrGet _ = getMenuButtonUsePopover attrSet _ = setMenuButtonUsePopover attrConstruct _ = constructMenuButtonUsePopover type instance AttributeList MenuButton = MenuButtonAttributeList -type MenuButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("align-widget", MenuButtonAlignWidgetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("direction", MenuButtonDirectionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-indicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("menu-model", MenuButtonMenuModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popover", MenuButtonPopoverPropertyInfo), '("popup", MenuButtonPopupPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-popover", MenuButtonUsePopoverPropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +type MenuButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alignWidget", MenuButtonAlignWidgetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("direction", MenuButtonDirectionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("menuModel", MenuButtonMenuModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popover", MenuButtonPopoverPropertyInfo), '("popup", MenuButtonPopupPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("usePopover", MenuButtonUsePopoverPropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) type instance SignalList MenuButton = MenuButtonSignalList -type MenuButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method MenuButton::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "MenuButton" -- throws : False -- Skip return : False @@ -316,7 +701,7 @@ menuButtonNew :: (MonadIO m) => - m MenuButton + m MenuButton -- result menuButtonNew = liftIO $ do result <- gtk_menu_button_new checkUnexpectedReturnNULL "gtk_menu_button_new" result @@ -325,9 +710,8 @@ -- method MenuButton::get_align_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -339,8 +723,8 @@ menuButtonGetAlignWidget :: (MonadIO m, MenuButtonK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result menuButtonGetAlignWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_button_get_align_widget _obj' @@ -349,11 +733,14 @@ touchManagedPtr _obj return result' +data MenuButtonGetAlignWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonGetAlignWidgetMethodInfo a signature where + overloadedMethod _ = menuButtonGetAlignWidget + -- method MenuButton::get_direction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ArrowType" -- throws : False -- Skip return : False @@ -365,8 +752,8 @@ menuButtonGetDirection :: (MonadIO m, MenuButtonK a) => - a -> -- _obj - m ArrowType + a -- _obj + -> m ArrowType -- result menuButtonGetDirection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_button_get_direction _obj' @@ -374,11 +761,14 @@ touchManagedPtr _obj return result' +data MenuButtonGetDirectionMethodInfo +instance (signature ~ (m ArrowType), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonGetDirectionMethodInfo a signature where + overloadedMethod _ = menuButtonGetDirection + -- method MenuButton::get_menu_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MenuModel" -- throws : False -- Skip return : False @@ -390,8 +780,8 @@ menuButtonGetMenuModel :: (MonadIO m, MenuButtonK a) => - a -> -- _obj - m Gio.MenuModel + a -- _obj + -> m Gio.MenuModel -- result menuButtonGetMenuModel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_button_get_menu_model _obj' @@ -400,11 +790,14 @@ touchManagedPtr _obj return result' +data MenuButtonGetMenuModelMethodInfo +instance (signature ~ (m Gio.MenuModel), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonGetMenuModelMethodInfo a signature where + overloadedMethod _ = menuButtonGetMenuModel + -- method MenuButton::get_popover -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Popover" -- throws : False -- Skip return : False @@ -416,8 +809,8 @@ menuButtonGetPopover :: (MonadIO m, MenuButtonK a) => - a -> -- _obj - m Popover + a -- _obj + -> m Popover -- result menuButtonGetPopover _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_button_get_popover _obj' @@ -426,11 +819,14 @@ touchManagedPtr _obj return result' +data MenuButtonGetPopoverMethodInfo +instance (signature ~ (m Popover), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonGetPopoverMethodInfo a signature where + overloadedMethod _ = menuButtonGetPopover + -- method MenuButton::get_popup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Menu" -- throws : False -- Skip return : False @@ -442,8 +838,8 @@ menuButtonGetPopup :: (MonadIO m, MenuButtonK a) => - a -> -- _obj - m Menu + a -- _obj + -> m Menu -- result menuButtonGetPopup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_button_get_popup _obj' @@ -452,11 +848,14 @@ touchManagedPtr _obj return result' +data MenuButtonGetPopupMethodInfo +instance (signature ~ (m Menu), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonGetPopupMethodInfo a signature where + overloadedMethod _ = menuButtonGetPopup + -- method MenuButton::get_use_popover -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -468,8 +867,8 @@ menuButtonGetUsePopover :: (MonadIO m, MenuButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result menuButtonGetUsePopover _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_button_get_use_popover _obj' @@ -477,11 +876,14 @@ touchManagedPtr _obj return result' +data MenuButtonGetUsePopoverMethodInfo +instance (signature ~ (m Bool), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonGetUsePopoverMethodInfo a signature where + overloadedMethod _ = menuButtonGetUsePopover + -- method MenuButton::set_align_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -494,26 +896,29 @@ menuButtonSetAlignWidget :: (MonadIO m, MenuButtonK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- align_widget - m () -menuButtonSetAlignWidget _obj align_widget = liftIO $ do + a -- _obj + -> Maybe (b) -- alignWidget + -> m () -- result +menuButtonSetAlignWidget _obj alignWidget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeAlign_widget <- case align_widget of + maybeAlignWidget <- case alignWidget of Nothing -> return nullPtr - Just jAlign_widget -> do - let jAlign_widget' = unsafeManagedPtrCastPtr jAlign_widget - return jAlign_widget' - gtk_menu_button_set_align_widget _obj' maybeAlign_widget + Just jAlignWidget -> do + let jAlignWidget' = unsafeManagedPtrCastPtr jAlignWidget + return jAlignWidget' + gtk_menu_button_set_align_widget _obj' maybeAlignWidget touchManagedPtr _obj - whenJust align_widget touchManagedPtr + whenJust alignWidget touchManagedPtr return () +data MenuButtonSetAlignWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuButtonK a, WidgetK b) => MethodInfo MenuButtonSetAlignWidgetMethodInfo a signature where + overloadedMethod _ = menuButtonSetAlignWidget + -- method MenuButton::set_direction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -526,9 +931,9 @@ menuButtonSetDirection :: (MonadIO m, MenuButtonK a) => - a -> -- _obj - ArrowType -> -- direction - m () + a -- _obj + -> ArrowType -- direction + -> m () -- result menuButtonSetDirection _obj direction = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let direction' = (fromIntegral . fromEnum) direction @@ -536,11 +941,14 @@ touchManagedPtr _obj return () +data MenuButtonSetDirectionMethodInfo +instance (signature ~ (ArrowType -> m ()), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonSetDirectionMethodInfo a signature where + overloadedMethod _ = menuButtonSetDirection + -- method MenuButton::set_menu_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -553,26 +961,29 @@ menuButtonSetMenuModel :: (MonadIO m, MenuButtonK a, Gio.MenuModelK b) => - a -> -- _obj - Maybe (b) -> -- menu_model - m () -menuButtonSetMenuModel _obj menu_model = liftIO $ do + a -- _obj + -> Maybe (b) -- menuModel + -> m () -- result +menuButtonSetMenuModel _obj menuModel = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeMenu_model <- case menu_model of + maybeMenuModel <- case menuModel of Nothing -> return nullPtr - Just jMenu_model -> do - let jMenu_model' = unsafeManagedPtrCastPtr jMenu_model - return jMenu_model' - gtk_menu_button_set_menu_model _obj' maybeMenu_model + Just jMenuModel -> do + let jMenuModel' = unsafeManagedPtrCastPtr jMenuModel + return jMenuModel' + gtk_menu_button_set_menu_model _obj' maybeMenuModel touchManagedPtr _obj - whenJust menu_model touchManagedPtr + whenJust menuModel touchManagedPtr return () +data MenuButtonSetMenuModelMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuButtonK a, Gio.MenuModelK b) => MethodInfo MenuButtonSetMenuModelMethodInfo a signature where + overloadedMethod _ = menuButtonSetMenuModel + -- method MenuButton::set_popover -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popover", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popover", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popover", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -585,9 +996,9 @@ menuButtonSetPopover :: (MonadIO m, MenuButtonK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- popover - m () + a -- _obj + -> Maybe (b) -- popover + -> m () -- result menuButtonSetPopover _obj popover = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybePopover <- case popover of @@ -600,11 +1011,14 @@ whenJust popover touchManagedPtr return () +data MenuButtonSetPopoverMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuButtonK a, WidgetK b) => MethodInfo MenuButtonSetPopoverMethodInfo a signature where + overloadedMethod _ = menuButtonSetPopover + -- method MenuButton::set_popup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -617,9 +1031,9 @@ menuButtonSetPopup :: (MonadIO m, MenuButtonK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- menu - m () + a -- _obj + -> Maybe (b) -- menu + -> m () -- result menuButtonSetPopup _obj menu = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeMenu <- case menu of @@ -632,11 +1046,14 @@ whenJust menu touchManagedPtr return () +data MenuButtonSetPopupMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuButtonK a, WidgetK b) => MethodInfo MenuButtonSetPopupMethodInfo a signature where + overloadedMethod _ = menuButtonSetPopup + -- method MenuButton::set_use_popover -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_popover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_popover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_popover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -649,14 +1066,18 @@ menuButtonSetUsePopover :: (MonadIO m, MenuButtonK a) => - a -> -- _obj - Bool -> -- use_popover - m () -menuButtonSetUsePopover _obj use_popover = liftIO $ do + a -- _obj + -> Bool -- usePopover + -> m () -- result +menuButtonSetUsePopover _obj usePopover = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_popover' = (fromIntegral . fromEnum) use_popover - gtk_menu_button_set_use_popover _obj' use_popover' + let usePopover' = (fromIntegral . fromEnum) usePopover + gtk_menu_button_set_use_popover _obj' usePopover' touchManagedPtr _obj return () + +data MenuButtonSetUsePopoverMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, MenuButtonK a) => MethodInfo MenuButtonSetUsePopoverMethodInfo a signature where + overloadedMethod _ = menuButtonSetUsePopover diff --git a/GI/Gtk/Objects/MenuButton.hs-boot b/GI/Gtk/Objects/MenuButton.hs-boot --- a/GI/Gtk/Objects/MenuButton.hs-boot +++ b/GI/Gtk/Objects/MenuButton.hs-boot @@ -17,3 +17,15 @@ data MenuButtonPopoverPropertyInfo data MenuButtonPopupPropertyInfo data MenuButtonUsePopoverPropertyInfo +data MenuButtonGetAlignWidgetMethodInfo +data MenuButtonGetDirectionMethodInfo +data MenuButtonGetMenuModelMethodInfo +data MenuButtonGetPopoverMethodInfo +data MenuButtonGetPopupMethodInfo +data MenuButtonGetUsePopoverMethodInfo +data MenuButtonSetAlignWidgetMethodInfo +data MenuButtonSetDirectionMethodInfo +data MenuButtonSetMenuModelMethodInfo +data MenuButtonSetPopoverMethodInfo +data MenuButtonSetPopupMethodInfo +data MenuButtonSetUsePopoverMethodInfo diff --git a/GI/Gtk/Objects/MenuButtonAccessible.hs b/GI/Gtk/Objects/MenuButtonAccessible.hs --- a/GI/Gtk/Objects/MenuButtonAccessible.hs +++ b/GI/Gtk/Objects/MenuButtonAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,84 @@ noMenuButtonAccessible :: Maybe MenuButtonAccessible noMenuButtonAccessible = Nothing +type family ResolveMenuButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveMenuButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveMenuButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMenuButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMenuButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveMenuButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveMenuButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveMenuButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMenuButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMenuButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveMenuButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveMenuButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMenuButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMenuButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMenuButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveMenuButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveMenuButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMenuButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveMenuButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveMenuButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveMenuButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMenuButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveMenuButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveMenuButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveMenuButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveMenuButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMenuButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMenuButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMenuButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMenuButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMenuButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMenuButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMenuButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMenuButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveMenuButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveMenuButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMenuButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveMenuButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo + ResolveMenuButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo + ResolveMenuButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo + ResolveMenuButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo + ResolveMenuButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveMenuButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveMenuButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveMenuButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveMenuButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveMenuButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveMenuButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveMenuButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveMenuButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMenuButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMenuButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveMenuButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveMenuButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveMenuButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMenuButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveMenuButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo + ResolveMenuButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveMenuButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveMenuButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveMenuButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMenuButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveMenuButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveMenuButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveMenuButtonAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMenuButtonAccessibleMethod t MenuButtonAccessible, MethodInfo info MenuButtonAccessible p) => IsLabelProxy t (MenuButtonAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMenuButtonAccessibleMethod t MenuButtonAccessible, MethodInfo info MenuButtonAccessible p) => IsLabel t (MenuButtonAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList MenuButtonAccessible = MenuButtonAccessibleAttributeList -type MenuButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type MenuButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList MenuButtonAccessible = MenuButtonAccessibleSignalList -type MenuButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/MenuItem.hs b/GI/Gtk/Objects/MenuItem.hs --- a/GI/Gtk/Objects/MenuItem.hs +++ b/GI/Gtk/Objects/MenuItem.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * Methods -- ** menuItemActivate + MenuItemActivateMethodInfo , menuItemActivate , -- ** menuItemDeselect + MenuItemDeselectMethodInfo , menuItemDeselect , -- ** menuItemGetAccelPath + MenuItemGetAccelPathMethodInfo , menuItemGetAccelPath , -- ** menuItemGetLabel + MenuItemGetLabelMethodInfo , menuItemGetLabel , -- ** menuItemGetReserveIndicator + MenuItemGetReserveIndicatorMethodInfo , menuItemGetReserveIndicator , -- ** menuItemGetRightJustified + MenuItemGetRightJustifiedMethodInfo , menuItemGetRightJustified , -- ** menuItemGetSubmenu + MenuItemGetSubmenuMethodInfo , menuItemGetSubmenu , -- ** menuItemGetUseUnderline + MenuItemGetUseUnderlineMethodInfo , menuItemGetUseUnderline , @@ -61,38 +70,47 @@ -- ** menuItemSelect + MenuItemSelectMethodInfo , menuItemSelect , -- ** menuItemSetAccelPath + MenuItemSetAccelPathMethodInfo , menuItemSetAccelPath , -- ** menuItemSetLabel + MenuItemSetLabelMethodInfo , menuItemSetLabel , -- ** menuItemSetReserveIndicator + MenuItemSetReserveIndicatorMethodInfo , menuItemSetReserveIndicator , -- ** menuItemSetRightJustified + MenuItemSetRightJustifiedMethodInfo , menuItemSetRightJustified , -- ** menuItemSetSubmenu + MenuItemSetSubmenuMethodInfo , menuItemSetSubmenu , -- ** menuItemSetUseUnderline + MenuItemSetUseUnderlineMethodInfo , menuItemSetUseUnderline , -- ** menuItemToggleSizeAllocate + MenuItemToggleSizeAllocateMethodInfo , menuItemToggleSizeAllocate , -- ** menuItemToggleSizeRequest + MenuItemToggleSizeRequestMethodInfo , menuItemToggleSizeRequest , @@ -246,6 +264,353 @@ noMenuItem :: Maybe MenuItem noMenuItem = Nothing +type family ResolveMenuItemMethod (t :: Symbol) (o :: *) :: * where + ResolveMenuItemMethod "add" o = ContainerAddMethodInfo + ResolveMenuItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveMenuItemMethod "addChild" o = BuildableAddChildMethodInfo + ResolveMenuItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveMenuItemMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveMenuItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveMenuItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMenuItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveMenuItemMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveMenuItemMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveMenuItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveMenuItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveMenuItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveMenuItemMethod "childType" o = ContainerChildTypeMethodInfo + ResolveMenuItemMethod "classPath" o = WidgetClassPathMethodInfo + ResolveMenuItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveMenuItemMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveMenuItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveMenuItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveMenuItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveMenuItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveMenuItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveMenuItemMethod "deselect" o = MenuItemDeselectMethodInfo + ResolveMenuItemMethod "destroy" o = WidgetDestroyMethodInfo + ResolveMenuItemMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveMenuItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveMenuItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveMenuItemMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveMenuItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveMenuItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveMenuItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveMenuItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveMenuItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveMenuItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveMenuItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveMenuItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveMenuItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveMenuItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveMenuItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveMenuItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveMenuItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveMenuItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveMenuItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveMenuItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveMenuItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveMenuItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveMenuItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveMenuItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveMenuItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveMenuItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveMenuItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveMenuItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveMenuItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveMenuItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveMenuItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveMenuItemMethod "draw" o = WidgetDrawMethodInfo + ResolveMenuItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveMenuItemMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveMenuItemMethod "event" o = WidgetEventMethodInfo + ResolveMenuItemMethod "forall" o = ContainerForallMethodInfo + ResolveMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMenuItemMethod "foreach" o = ContainerForeachMethodInfo + ResolveMenuItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMenuItemMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveMenuItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveMenuItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveMenuItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveMenuItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveMenuItemMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveMenuItemMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveMenuItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveMenuItemMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveMenuItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveMenuItemMethod "hide" o = WidgetHideMethodInfo + ResolveMenuItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveMenuItemMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveMenuItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveMenuItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveMenuItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveMenuItemMethod "intersect" o = WidgetIntersectMethodInfo + ResolveMenuItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveMenuItemMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveMenuItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMenuItemMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveMenuItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveMenuItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveMenuItemMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveMenuItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveMenuItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveMenuItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveMenuItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveMenuItemMethod "map" o = WidgetMapMethodInfo + ResolveMenuItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveMenuItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveMenuItemMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveMenuItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveMenuItemMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveMenuItemMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveMenuItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveMenuItemMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMenuItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveMenuItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveMenuItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveMenuItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveMenuItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveMenuItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveMenuItemMethod "path" o = WidgetPathMethodInfo + ResolveMenuItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveMenuItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveMenuItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveMenuItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveMenuItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveMenuItemMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveMenuItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveMenuItemMethod "realize" o = WidgetRealizeMethodInfo + ResolveMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMenuItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveMenuItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveMenuItemMethod "remove" o = ContainerRemoveMethodInfo + ResolveMenuItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveMenuItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveMenuItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveMenuItemMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveMenuItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveMenuItemMethod "reparent" o = WidgetReparentMethodInfo + ResolveMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMenuItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveMenuItemMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveMenuItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMenuItemMethod "select" o = MenuItemSelectMethodInfo + ResolveMenuItemMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveMenuItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveMenuItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveMenuItemMethod "show" o = WidgetShowMethodInfo + ResolveMenuItemMethod "showAll" o = WidgetShowAllMethodInfo + ResolveMenuItemMethod "showNow" o = WidgetShowNowMethodInfo + ResolveMenuItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveMenuItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveMenuItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMenuItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveMenuItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveMenuItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveMenuItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMenuItemMethod "toggleSizeAllocate" o = MenuItemToggleSizeAllocateMethodInfo + ResolveMenuItemMethod "toggleSizeRequest" o = MenuItemToggleSizeRequestMethodInfo + ResolveMenuItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveMenuItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveMenuItemMethod "unmap" o = WidgetUnmapMethodInfo + ResolveMenuItemMethod "unparent" o = WidgetUnparentMethodInfo + ResolveMenuItemMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMenuItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveMenuItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveMenuItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMenuItemMethod "getAccelPath" o = MenuItemGetAccelPathMethodInfo + ResolveMenuItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveMenuItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveMenuItemMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveMenuItemMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveMenuItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveMenuItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveMenuItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveMenuItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveMenuItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveMenuItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveMenuItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveMenuItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveMenuItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveMenuItemMethod "getChild" o = BinGetChildMethodInfo + ResolveMenuItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveMenuItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveMenuItemMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveMenuItemMethod "getClip" o = WidgetGetClipMethodInfo + ResolveMenuItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveMenuItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMenuItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveMenuItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveMenuItemMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveMenuItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveMenuItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveMenuItemMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveMenuItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveMenuItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveMenuItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveMenuItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveMenuItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveMenuItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveMenuItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveMenuItemMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveMenuItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveMenuItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveMenuItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveMenuItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveMenuItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveMenuItemMethod "getLabel" o = MenuItemGetLabelMethodInfo + ResolveMenuItemMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveMenuItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveMenuItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveMenuItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveMenuItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveMenuItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveMenuItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveMenuItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveMenuItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveMenuItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveMenuItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveMenuItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveMenuItemMethod "getParent" o = WidgetGetParentMethodInfo + ResolveMenuItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveMenuItemMethod "getPath" o = WidgetGetPathMethodInfo + ResolveMenuItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveMenuItemMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveMenuItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveMenuItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveMenuItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveMenuItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveMenuItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveMenuItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMenuItemMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveMenuItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveMenuItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveMenuItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveMenuItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveMenuItemMethod "getReserveIndicator" o = MenuItemGetReserveIndicatorMethodInfo + ResolveMenuItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveMenuItemMethod "getRightJustified" o = MenuItemGetRightJustifiedMethodInfo + ResolveMenuItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveMenuItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveMenuItemMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveMenuItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveMenuItemMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveMenuItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveMenuItemMethod "getState" o = WidgetGetStateMethodInfo + ResolveMenuItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveMenuItemMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveMenuItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveMenuItemMethod "getSubmenu" o = MenuItemGetSubmenuMethodInfo + ResolveMenuItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveMenuItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveMenuItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveMenuItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveMenuItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveMenuItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveMenuItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveMenuItemMethod "getUseUnderline" o = MenuItemGetUseUnderlineMethodInfo + ResolveMenuItemMethod "getValign" o = WidgetGetValignMethodInfo + ResolveMenuItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveMenuItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveMenuItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveMenuItemMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveMenuItemMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveMenuItemMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveMenuItemMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveMenuItemMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveMenuItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveMenuItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveMenuItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveMenuItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveMenuItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveMenuItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveMenuItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveMenuItemMethod "setClip" o = WidgetSetClipMethodInfo + ResolveMenuItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMenuItemMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveMenuItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveMenuItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveMenuItemMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveMenuItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveMenuItemMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveMenuItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveMenuItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveMenuItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveMenuItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveMenuItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveMenuItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveMenuItemMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveMenuItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveMenuItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveMenuItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveMenuItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo + ResolveMenuItemMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveMenuItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveMenuItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveMenuItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveMenuItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveMenuItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveMenuItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveMenuItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveMenuItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveMenuItemMethod "setParent" o = WidgetSetParentMethodInfo + ResolveMenuItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMenuItemMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveMenuItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveMenuItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveMenuItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveMenuItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveMenuItemMethod "setReserveIndicator" o = MenuItemSetReserveIndicatorMethodInfo + ResolveMenuItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveMenuItemMethod "setRightJustified" o = MenuItemSetRightJustifiedMethodInfo + ResolveMenuItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveMenuItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveMenuItemMethod "setState" o = WidgetSetStateMethodInfo + ResolveMenuItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveMenuItemMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo + ResolveMenuItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveMenuItemMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveMenuItemMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveMenuItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveMenuItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveMenuItemMethod "setUseUnderline" o = MenuItemSetUseUnderlineMethodInfo + ResolveMenuItemMethod "setValign" o = WidgetSetValignMethodInfo + ResolveMenuItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveMenuItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveMenuItemMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveMenuItemMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveMenuItemMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveMenuItemMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMenuItemMethod t MenuItem, MethodInfo info MenuItem p) => IsLabelProxy t (MenuItem -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMenuItemMethod t MenuItem, MethodInfo info MenuItem p) => IsLabel t (MenuItem -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal MenuItem::activate type MenuItemActivateCallback = IO () @@ -499,7 +864,7 @@ type AttrSetTypeConstraint MenuItemAccelPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MenuItemAccelPathPropertyInfo = MenuItemK type AttrGetType MenuItemAccelPathPropertyInfo = T.Text - type AttrLabel MenuItemAccelPathPropertyInfo = "MenuItem::accel-path" + type AttrLabel MenuItemAccelPathPropertyInfo = "accel-path" attrGet _ = getMenuItemAccelPath attrSet _ = setMenuItemAccelPath attrConstruct _ = constructMenuItemAccelPath @@ -523,7 +888,7 @@ type AttrSetTypeConstraint MenuItemLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MenuItemLabelPropertyInfo = MenuItemK type AttrGetType MenuItemLabelPropertyInfo = T.Text - type AttrLabel MenuItemLabelPropertyInfo = "MenuItem::label" + type AttrLabel MenuItemLabelPropertyInfo = "label" attrGet _ = getMenuItemLabel attrSet _ = setMenuItemLabel attrConstruct _ = constructMenuItemLabel @@ -547,7 +912,7 @@ type AttrSetTypeConstraint MenuItemRightJustifiedPropertyInfo = (~) Bool type AttrBaseTypeConstraint MenuItemRightJustifiedPropertyInfo = MenuItemK type AttrGetType MenuItemRightJustifiedPropertyInfo = Bool - type AttrLabel MenuItemRightJustifiedPropertyInfo = "MenuItem::right-justified" + type AttrLabel MenuItemRightJustifiedPropertyInfo = "right-justified" attrGet _ = getMenuItemRightJustified attrSet _ = setMenuItemRightJustified attrConstruct _ = constructMenuItemRightJustified @@ -571,7 +936,7 @@ type AttrSetTypeConstraint MenuItemSubmenuPropertyInfo = MenuK type AttrBaseTypeConstraint MenuItemSubmenuPropertyInfo = MenuItemK type AttrGetType MenuItemSubmenuPropertyInfo = Menu - type AttrLabel MenuItemSubmenuPropertyInfo = "MenuItem::submenu" + type AttrLabel MenuItemSubmenuPropertyInfo = "submenu" attrGet _ = getMenuItemSubmenu attrSet _ = setMenuItemSubmenu attrConstruct _ = constructMenuItemSubmenu @@ -595,13 +960,13 @@ type AttrSetTypeConstraint MenuItemUseUnderlinePropertyInfo = (~) Bool type AttrBaseTypeConstraint MenuItemUseUnderlinePropertyInfo = MenuItemK type AttrGetType MenuItemUseUnderlinePropertyInfo = Bool - type AttrLabel MenuItemUseUnderlinePropertyInfo = "MenuItem::use-underline" + type AttrLabel MenuItemUseUnderlinePropertyInfo = "use-underline" attrGet _ = getMenuItemUseUnderline attrSet _ = setMenuItemUseUnderline attrConstruct _ = constructMenuItemUseUnderline type instance AttributeList MenuItem = MenuItemAttributeList -type MenuItemAttributeList = ('[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type MenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data MenuItemActivateSignalInfo instance SignalInfo MenuItemActivateSignalInfo where @@ -634,13 +999,12 @@ connectSignal _ = connectMenuItemToggleSizeRequest type instance SignalList MenuItem = MenuItemSignalList -type MenuItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method MenuItem::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "MenuItem" -- throws : False -- Skip return : False @@ -651,7 +1015,7 @@ menuItemNew :: (MonadIO m) => - m MenuItem + m MenuItem -- result menuItemNew = liftIO $ do result <- gtk_menu_item_new checkUnexpectedReturnNULL "gtk_menu_item_new" result @@ -660,9 +1024,8 @@ -- method MenuItem::new_with_label -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "MenuItem" -- throws : False -- Skip return : False @@ -674,8 +1037,8 @@ menuItemNewWithLabel :: (MonadIO m) => - T.Text -> -- label - m MenuItem + T.Text -- label + -> m MenuItem -- result menuItemNewWithLabel label = liftIO $ do label' <- textToCString label result <- gtk_menu_item_new_with_label label' @@ -686,9 +1049,8 @@ -- method MenuItem::new_with_mnemonic -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "MenuItem" -- throws : False -- Skip return : False @@ -700,8 +1062,8 @@ menuItemNewWithMnemonic :: (MonadIO m) => - T.Text -> -- label - m MenuItem + T.Text -- label + -> m MenuItem -- result menuItemNewWithMnemonic label = liftIO $ do label' <- textToCString label result <- gtk_menu_item_new_with_mnemonic label' @@ -712,9 +1074,8 @@ -- method MenuItem::activate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -726,19 +1087,22 @@ menuItemActivate :: (MonadIO m, MenuItemK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result menuItemActivate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_menu_item_activate _obj' touchManagedPtr _obj return () +data MenuItemActivateMethodInfo +instance (signature ~ (m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemActivateMethodInfo a signature where + overloadedMethod _ = menuItemActivate + -- method MenuItem::deselect -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -750,19 +1114,22 @@ menuItemDeselect :: (MonadIO m, MenuItemK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result menuItemDeselect _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_menu_item_deselect _obj' touchManagedPtr _obj return () +data MenuItemDeselectMethodInfo +instance (signature ~ (m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemDeselectMethodInfo a signature where + overloadedMethod _ = menuItemDeselect + -- method MenuItem::get_accel_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -774,8 +1141,8 @@ menuItemGetAccelPath :: (MonadIO m, MenuItemK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result menuItemGetAccelPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_item_get_accel_path _obj' @@ -784,11 +1151,14 @@ touchManagedPtr _obj return result' +data MenuItemGetAccelPathMethodInfo +instance (signature ~ (m T.Text), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetAccelPathMethodInfo a signature where + overloadedMethod _ = menuItemGetAccelPath + -- method MenuItem::get_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -800,8 +1170,8 @@ menuItemGetLabel :: (MonadIO m, MenuItemK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result menuItemGetLabel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_item_get_label _obj' @@ -810,11 +1180,14 @@ touchManagedPtr _obj return result' +data MenuItemGetLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetLabelMethodInfo a signature where + overloadedMethod _ = menuItemGetLabel + -- method MenuItem::get_reserve_indicator -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -826,8 +1199,8 @@ menuItemGetReserveIndicator :: (MonadIO m, MenuItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result menuItemGetReserveIndicator _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_item_get_reserve_indicator _obj' @@ -835,11 +1208,14 @@ touchManagedPtr _obj return result' +data MenuItemGetReserveIndicatorMethodInfo +instance (signature ~ (m Bool), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetReserveIndicatorMethodInfo a signature where + overloadedMethod _ = menuItemGetReserveIndicator + -- method MenuItem::get_right_justified -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -851,8 +1227,8 @@ {-# DEPRECATED menuItemGetRightJustified ["(Since version 3.2)","See gtk_menu_item_set_right_justified()"]#-} menuItemGetRightJustified :: (MonadIO m, MenuItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result menuItemGetRightJustified _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_item_get_right_justified _obj' @@ -860,11 +1236,14 @@ touchManagedPtr _obj return result' +data MenuItemGetRightJustifiedMethodInfo +instance (signature ~ (m Bool), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetRightJustifiedMethodInfo a signature where + overloadedMethod _ = menuItemGetRightJustified + -- method MenuItem::get_submenu -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -876,8 +1255,8 @@ menuItemGetSubmenu :: (MonadIO m, MenuItemK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result menuItemGetSubmenu _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_item_get_submenu _obj' @@ -886,11 +1265,14 @@ touchManagedPtr _obj return result' +data MenuItemGetSubmenuMethodInfo +instance (signature ~ (m Widget), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetSubmenuMethodInfo a signature where + overloadedMethod _ = menuItemGetSubmenu + -- method MenuItem::get_use_underline -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -902,8 +1284,8 @@ menuItemGetUseUnderline :: (MonadIO m, MenuItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result menuItemGetUseUnderline _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_item_get_use_underline _obj' @@ -911,11 +1293,14 @@ touchManagedPtr _obj return result' +data MenuItemGetUseUnderlineMethodInfo +instance (signature ~ (m Bool), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetUseUnderlineMethodInfo a signature where + overloadedMethod _ = menuItemGetUseUnderline + -- method MenuItem::select -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -927,19 +1312,22 @@ menuItemSelect :: (MonadIO m, MenuItemK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result menuItemSelect _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_menu_item_select _obj' touchManagedPtr _obj return () +data MenuItemSelectMethodInfo +instance (signature ~ (m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSelectMethodInfo a signature where + overloadedMethod _ = menuItemSelect + -- method MenuItem::set_accel_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -952,26 +1340,29 @@ menuItemSetAccelPath :: (MonadIO m, MenuItemK a) => - a -> -- _obj - Maybe (T.Text) -> -- accel_path - m () -menuItemSetAccelPath _obj accel_path = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- accelPath + -> m () -- result +menuItemSetAccelPath _obj accelPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccel_path <- case accel_path of + maybeAccelPath <- case accelPath of Nothing -> return nullPtr - Just jAccel_path -> do - jAccel_path' <- textToCString jAccel_path - return jAccel_path' - gtk_menu_item_set_accel_path _obj' maybeAccel_path + Just jAccelPath -> do + jAccelPath' <- textToCString jAccelPath + return jAccelPath' + gtk_menu_item_set_accel_path _obj' maybeAccelPath touchManagedPtr _obj - freeMem maybeAccel_path + freeMem maybeAccelPath return () +data MenuItemSetAccelPathMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetAccelPathMethodInfo a signature where + overloadedMethod _ = menuItemSetAccelPath + -- method MenuItem::set_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -984,9 +1375,9 @@ menuItemSetLabel :: (MonadIO m, MenuItemK a) => - a -> -- _obj - T.Text -> -- label - m () + a -- _obj + -> T.Text -- label + -> m () -- result menuItemSetLabel _obj label = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj label' <- textToCString label @@ -995,11 +1386,14 @@ freeMem label' return () +data MenuItemSetLabelMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetLabelMethodInfo a signature where + overloadedMethod _ = menuItemSetLabel + -- method MenuItem::set_reserve_indicator -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserve", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reserve", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserve", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1012,9 +1406,9 @@ menuItemSetReserveIndicator :: (MonadIO m, MenuItemK a) => - a -> -- _obj - Bool -> -- reserve - m () + a -- _obj + -> Bool -- reserve + -> m () -- result menuItemSetReserveIndicator _obj reserve = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let reserve' = (fromIntegral . fromEnum) reserve @@ -1022,11 +1416,14 @@ touchManagedPtr _obj return () +data MenuItemSetReserveIndicatorMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetReserveIndicatorMethodInfo a signature where + overloadedMethod _ = menuItemSetReserveIndicator + -- method MenuItem::set_right_justified -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_justified", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_justified", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_justified", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1039,21 +1436,24 @@ {-# DEPRECATED menuItemSetRightJustified ["(Since version 3.2)","If you insist on using it, use"," gtk_widget_set_hexpand() and gtk_widget_set_halign()."]#-} menuItemSetRightJustified :: (MonadIO m, MenuItemK a) => - a -> -- _obj - Bool -> -- right_justified - m () -menuItemSetRightJustified _obj right_justified = liftIO $ do + a -- _obj + -> Bool -- rightJustified + -> m () -- result +menuItemSetRightJustified _obj rightJustified = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let right_justified' = (fromIntegral . fromEnum) right_justified - gtk_menu_item_set_right_justified _obj' right_justified' + let rightJustified' = (fromIntegral . fromEnum) rightJustified + gtk_menu_item_set_right_justified _obj' rightJustified' touchManagedPtr _obj return () +data MenuItemSetRightJustifiedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetRightJustifiedMethodInfo a signature where + overloadedMethod _ = menuItemSetRightJustified + -- method MenuItem::set_submenu -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1066,9 +1466,9 @@ menuItemSetSubmenu :: (MonadIO m, MenuItemK a, MenuK b) => - a -> -- _obj - Maybe (b) -> -- submenu - m () + a -- _obj + -> Maybe (b) -- submenu + -> m () -- result menuItemSetSubmenu _obj submenu = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeSubmenu <- case submenu of @@ -1081,11 +1481,14 @@ whenJust submenu touchManagedPtr return () +data MenuItemSetSubmenuMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuItemK a, MenuK b) => MethodInfo MenuItemSetSubmenuMethodInfo a signature where + overloadedMethod _ = menuItemSetSubmenu + -- method MenuItem::set_use_underline -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1098,9 +1501,9 @@ menuItemSetUseUnderline :: (MonadIO m, MenuItemK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result menuItemSetUseUnderline _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -1108,11 +1511,14 @@ touchManagedPtr _obj return () +data MenuItemSetUseUnderlineMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetUseUnderlineMethodInfo a signature where + overloadedMethod _ = menuItemSetUseUnderline + -- method MenuItem::toggle_size_allocate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1125,20 +1531,23 @@ menuItemToggleSizeAllocate :: (MonadIO m, MenuItemK a) => - a -> -- _obj - Int32 -> -- allocation - m () + a -- _obj + -> Int32 -- allocation + -> m () -- result menuItemToggleSizeAllocate _obj allocation = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_menu_item_toggle_size_allocate _obj' allocation touchManagedPtr _obj return () +data MenuItemToggleSizeAllocateMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemToggleSizeAllocateMethodInfo a signature where + overloadedMethod _ = menuItemToggleSizeAllocate + -- method MenuItem::toggle_size_request -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1151,9 +1560,9 @@ menuItemToggleSizeRequest :: (MonadIO m, MenuItemK a) => - a -> -- _obj - Int32 -> -- requisition - m (Int32) + a -- _obj + -> Int32 -- requisition + -> m (Int32) -- result menuItemToggleSizeRequest _obj requisition = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj requisition' <- allocMem :: IO (Ptr Int32) @@ -1163,5 +1572,9 @@ touchManagedPtr _obj freeMem requisition' return requisition'' + +data MenuItemToggleSizeRequestMethodInfo +instance (signature ~ (Int32 -> m (Int32)), MonadIO m, MenuItemK a) => MethodInfo MenuItemToggleSizeRequestMethodInfo a signature where + overloadedMethod _ = menuItemToggleSizeRequest diff --git a/GI/Gtk/Objects/MenuItem.hs-boot b/GI/Gtk/Objects/MenuItem.hs-boot --- a/GI/Gtk/Objects/MenuItem.hs-boot +++ b/GI/Gtk/Objects/MenuItem.hs-boot @@ -22,3 +22,20 @@ data MenuItemSelectSignalInfo data MenuItemToggleSizeAllocateSignalInfo data MenuItemToggleSizeRequestSignalInfo +data MenuItemActivateMethodInfo +data MenuItemDeselectMethodInfo +data MenuItemGetAccelPathMethodInfo +data MenuItemGetLabelMethodInfo +data MenuItemGetReserveIndicatorMethodInfo +data MenuItemGetRightJustifiedMethodInfo +data MenuItemGetSubmenuMethodInfo +data MenuItemGetUseUnderlineMethodInfo +data MenuItemSelectMethodInfo +data MenuItemSetAccelPathMethodInfo +data MenuItemSetLabelMethodInfo +data MenuItemSetReserveIndicatorMethodInfo +data MenuItemSetRightJustifiedMethodInfo +data MenuItemSetSubmenuMethodInfo +data MenuItemSetUseUnderlineMethodInfo +data MenuItemToggleSizeAllocateMethodInfo +data MenuItemToggleSizeRequestMethodInfo diff --git a/GI/Gtk/Objects/MenuItemAccessible.hs b/GI/Gtk/Objects/MenuItemAccessible.hs --- a/GI/Gtk/Objects/MenuItemAccessible.hs +++ b/GI/Gtk/Objects/MenuItemAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,86 @@ noMenuItemAccessible :: Maybe MenuItemAccessible noMenuItemAccessible = Nothing +type family ResolveMenuItemAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveMenuItemAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveMenuItemAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo + ResolveMenuItemAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMenuItemAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMenuItemAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo + ResolveMenuItemAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveMenuItemAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveMenuItemAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveMenuItemAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMenuItemAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMenuItemAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveMenuItemAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveMenuItemAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo + ResolveMenuItemAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMenuItemAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMenuItemAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMenuItemAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveMenuItemAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveMenuItemAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMenuItemAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveMenuItemAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveMenuItemAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveMenuItemAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo + ResolveMenuItemAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMenuItemAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveMenuItemAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveMenuItemAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveMenuItemAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveMenuItemAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo + ResolveMenuItemAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMenuItemAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMenuItemAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMenuItemAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo + ResolveMenuItemAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMenuItemAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMenuItemAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMenuItemAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMenuItemAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMenuItemAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveMenuItemAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveMenuItemAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMenuItemAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveMenuItemAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveMenuItemAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveMenuItemAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveMenuItemAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveMenuItemAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveMenuItemAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveMenuItemAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveMenuItemAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveMenuItemAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMenuItemAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMenuItemAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveMenuItemAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo + ResolveMenuItemAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveMenuItemAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveMenuItemAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMenuItemAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveMenuItemAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveMenuItemAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveMenuItemAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveMenuItemAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMenuItemAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveMenuItemAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveMenuItemAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveMenuItemAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMenuItemAccessibleMethod t MenuItemAccessible, MethodInfo info MenuItemAccessible p) => IsLabelProxy t (MenuItemAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMenuItemAccessibleMethod t MenuItemAccessible, MethodInfo info MenuItemAccessible p) => IsLabel t (MenuItemAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList MenuItemAccessible = MenuItemAccessibleAttributeList -type MenuItemAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type MenuItemAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList MenuItemAccessible = MenuItemAccessibleSignalList -type MenuItemAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuItemAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/MenuShell.hs b/GI/Gtk/Objects/MenuShell.hs --- a/GI/Gtk/Objects/MenuShell.hs +++ b/GI/Gtk/Objects/MenuShell.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,58 +18,72 @@ -- * Methods -- ** menuShellActivateItem + MenuShellActivateItemMethodInfo , menuShellActivateItem , -- ** menuShellAppend + MenuShellAppendMethodInfo , menuShellAppend , -- ** menuShellBindModel + MenuShellBindModelMethodInfo , menuShellBindModel , -- ** menuShellCancel + MenuShellCancelMethodInfo , menuShellCancel , -- ** menuShellDeactivate + MenuShellDeactivateMethodInfo , menuShellDeactivate , -- ** menuShellDeselect + MenuShellDeselectMethodInfo , menuShellDeselect , -- ** menuShellGetParentShell + MenuShellGetParentShellMethodInfo , menuShellGetParentShell , -- ** menuShellGetSelectedItem + MenuShellGetSelectedItemMethodInfo , menuShellGetSelectedItem , -- ** menuShellGetTakeFocus + MenuShellGetTakeFocusMethodInfo , menuShellGetTakeFocus , -- ** menuShellInsert + MenuShellInsertMethodInfo , menuShellInsert , -- ** menuShellPrepend + MenuShellPrependMethodInfo , menuShellPrepend , -- ** menuShellSelectFirst + MenuShellSelectFirstMethodInfo , menuShellSelectFirst , -- ** menuShellSelectItem + MenuShellSelectItemMethodInfo , menuShellSelectItem , -- ** menuShellSetTakeFocus + MenuShellSetTakeFocusMethodInfo , menuShellSetTakeFocus , @@ -219,6 +234,342 @@ noMenuShell :: Maybe MenuShell noMenuShell = Nothing +type family ResolveMenuShellMethod (t :: Symbol) (o :: *) :: * where + ResolveMenuShellMethod "activate" o = WidgetActivateMethodInfo + ResolveMenuShellMethod "activateItem" o = MenuShellActivateItemMethodInfo + ResolveMenuShellMethod "add" o = ContainerAddMethodInfo + ResolveMenuShellMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveMenuShellMethod "addChild" o = BuildableAddChildMethodInfo + ResolveMenuShellMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveMenuShellMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveMenuShellMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveMenuShellMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveMenuShellMethod "append" o = MenuShellAppendMethodInfo + ResolveMenuShellMethod "bindModel" o = MenuShellBindModelMethodInfo + ResolveMenuShellMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMenuShellMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMenuShellMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveMenuShellMethod "cancel" o = MenuShellCancelMethodInfo + ResolveMenuShellMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveMenuShellMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveMenuShellMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveMenuShellMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveMenuShellMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveMenuShellMethod "childType" o = ContainerChildTypeMethodInfo + ResolveMenuShellMethod "classPath" o = WidgetClassPathMethodInfo + ResolveMenuShellMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveMenuShellMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveMenuShellMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveMenuShellMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveMenuShellMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveMenuShellMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveMenuShellMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveMenuShellMethod "deactivate" o = MenuShellDeactivateMethodInfo + ResolveMenuShellMethod "deselect" o = MenuShellDeselectMethodInfo + ResolveMenuShellMethod "destroy" o = WidgetDestroyMethodInfo + ResolveMenuShellMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveMenuShellMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveMenuShellMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveMenuShellMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveMenuShellMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveMenuShellMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveMenuShellMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveMenuShellMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveMenuShellMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveMenuShellMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveMenuShellMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveMenuShellMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveMenuShellMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveMenuShellMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveMenuShellMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveMenuShellMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveMenuShellMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveMenuShellMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveMenuShellMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveMenuShellMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveMenuShellMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveMenuShellMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveMenuShellMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveMenuShellMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveMenuShellMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveMenuShellMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveMenuShellMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveMenuShellMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveMenuShellMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveMenuShellMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveMenuShellMethod "draw" o = WidgetDrawMethodInfo + ResolveMenuShellMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveMenuShellMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveMenuShellMethod "event" o = WidgetEventMethodInfo + ResolveMenuShellMethod "forall" o = ContainerForallMethodInfo + ResolveMenuShellMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMenuShellMethod "foreach" o = ContainerForeachMethodInfo + ResolveMenuShellMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveMenuShellMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMenuShellMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveMenuShellMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveMenuShellMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveMenuShellMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveMenuShellMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveMenuShellMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveMenuShellMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveMenuShellMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveMenuShellMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveMenuShellMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveMenuShellMethod "hide" o = WidgetHideMethodInfo + ResolveMenuShellMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveMenuShellMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveMenuShellMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveMenuShellMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveMenuShellMethod "insert" o = MenuShellInsertMethodInfo + ResolveMenuShellMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveMenuShellMethod "intersect" o = WidgetIntersectMethodInfo + ResolveMenuShellMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveMenuShellMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveMenuShellMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveMenuShellMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMenuShellMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveMenuShellMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveMenuShellMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveMenuShellMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveMenuShellMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveMenuShellMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveMenuShellMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveMenuShellMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveMenuShellMethod "map" o = WidgetMapMethodInfo + ResolveMenuShellMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveMenuShellMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveMenuShellMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveMenuShellMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveMenuShellMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveMenuShellMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveMenuShellMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveMenuShellMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveMenuShellMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMenuShellMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMenuShellMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveMenuShellMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveMenuShellMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveMenuShellMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveMenuShellMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveMenuShellMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveMenuShellMethod "path" o = WidgetPathMethodInfo + ResolveMenuShellMethod "prepend" o = MenuShellPrependMethodInfo + ResolveMenuShellMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveMenuShellMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveMenuShellMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveMenuShellMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveMenuShellMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveMenuShellMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveMenuShellMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveMenuShellMethod "realize" o = WidgetRealizeMethodInfo + ResolveMenuShellMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMenuShellMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMenuShellMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveMenuShellMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveMenuShellMethod "remove" o = ContainerRemoveMethodInfo + ResolveMenuShellMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveMenuShellMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveMenuShellMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveMenuShellMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveMenuShellMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveMenuShellMethod "reparent" o = WidgetReparentMethodInfo + ResolveMenuShellMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMenuShellMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMenuShellMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveMenuShellMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveMenuShellMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveMenuShellMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMenuShellMethod "selectFirst" o = MenuShellSelectFirstMethodInfo + ResolveMenuShellMethod "selectItem" o = MenuShellSelectItemMethodInfo + ResolveMenuShellMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveMenuShellMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveMenuShellMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveMenuShellMethod "show" o = WidgetShowMethodInfo + ResolveMenuShellMethod "showAll" o = WidgetShowAllMethodInfo + ResolveMenuShellMethod "showNow" o = WidgetShowNowMethodInfo + ResolveMenuShellMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveMenuShellMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveMenuShellMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveMenuShellMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMenuShellMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMenuShellMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveMenuShellMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveMenuShellMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveMenuShellMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMenuShellMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveMenuShellMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveMenuShellMethod "unmap" o = WidgetUnmapMethodInfo + ResolveMenuShellMethod "unparent" o = WidgetUnparentMethodInfo + ResolveMenuShellMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveMenuShellMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMenuShellMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveMenuShellMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveMenuShellMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveMenuShellMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMenuShellMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveMenuShellMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveMenuShellMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveMenuShellMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveMenuShellMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveMenuShellMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveMenuShellMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveMenuShellMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveMenuShellMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveMenuShellMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveMenuShellMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveMenuShellMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveMenuShellMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveMenuShellMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveMenuShellMethod "getClip" o = WidgetGetClipMethodInfo + ResolveMenuShellMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveMenuShellMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveMenuShellMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMenuShellMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveMenuShellMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveMenuShellMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveMenuShellMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveMenuShellMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveMenuShellMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveMenuShellMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveMenuShellMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveMenuShellMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveMenuShellMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveMenuShellMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveMenuShellMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveMenuShellMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveMenuShellMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveMenuShellMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveMenuShellMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveMenuShellMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveMenuShellMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveMenuShellMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveMenuShellMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveMenuShellMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveMenuShellMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveMenuShellMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveMenuShellMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveMenuShellMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveMenuShellMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveMenuShellMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveMenuShellMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveMenuShellMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveMenuShellMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveMenuShellMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveMenuShellMethod "getParent" o = WidgetGetParentMethodInfo + ResolveMenuShellMethod "getParentShell" o = MenuShellGetParentShellMethodInfo + ResolveMenuShellMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveMenuShellMethod "getPath" o = WidgetGetPathMethodInfo + ResolveMenuShellMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveMenuShellMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveMenuShellMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveMenuShellMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveMenuShellMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveMenuShellMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveMenuShellMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveMenuShellMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveMenuShellMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMenuShellMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMenuShellMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveMenuShellMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveMenuShellMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveMenuShellMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveMenuShellMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveMenuShellMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveMenuShellMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveMenuShellMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveMenuShellMethod "getSelectedItem" o = MenuShellGetSelectedItemMethodInfo + ResolveMenuShellMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveMenuShellMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveMenuShellMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveMenuShellMethod "getState" o = WidgetGetStateMethodInfo + ResolveMenuShellMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveMenuShellMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveMenuShellMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveMenuShellMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveMenuShellMethod "getTakeFocus" o = MenuShellGetTakeFocusMethodInfo + ResolveMenuShellMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveMenuShellMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveMenuShellMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveMenuShellMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveMenuShellMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveMenuShellMethod "getValign" o = WidgetGetValignMethodInfo + ResolveMenuShellMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveMenuShellMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveMenuShellMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveMenuShellMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveMenuShellMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveMenuShellMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveMenuShellMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveMenuShellMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveMenuShellMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveMenuShellMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveMenuShellMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveMenuShellMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveMenuShellMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveMenuShellMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveMenuShellMethod "setClip" o = WidgetSetClipMethodInfo + ResolveMenuShellMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveMenuShellMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMenuShellMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveMenuShellMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveMenuShellMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveMenuShellMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveMenuShellMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveMenuShellMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveMenuShellMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveMenuShellMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveMenuShellMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveMenuShellMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveMenuShellMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveMenuShellMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveMenuShellMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveMenuShellMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveMenuShellMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveMenuShellMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveMenuShellMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveMenuShellMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveMenuShellMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveMenuShellMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveMenuShellMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveMenuShellMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveMenuShellMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveMenuShellMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveMenuShellMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveMenuShellMethod "setParent" o = WidgetSetParentMethodInfo + ResolveMenuShellMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveMenuShellMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMenuShellMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveMenuShellMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveMenuShellMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveMenuShellMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveMenuShellMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveMenuShellMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveMenuShellMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveMenuShellMethod "setState" o = WidgetSetStateMethodInfo + ResolveMenuShellMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveMenuShellMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveMenuShellMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveMenuShellMethod "setTakeFocus" o = MenuShellSetTakeFocusMethodInfo + ResolveMenuShellMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveMenuShellMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveMenuShellMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveMenuShellMethod "setValign" o = WidgetSetValignMethodInfo + ResolveMenuShellMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveMenuShellMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveMenuShellMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveMenuShellMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveMenuShellMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveMenuShellMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMenuShellMethod t MenuShell, MethodInfo info MenuShell p) => IsLabelProxy t (MenuShell -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMenuShellMethod t MenuShell, MethodInfo info MenuShell p) => IsLabel t (MenuShell -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal MenuShell::activate-current type MenuShellActivateCurrentCallback = Bool -> @@ -246,9 +597,9 @@ CInt -> Ptr () -> IO () -menuShellActivateCurrentCallbackWrapper _cb _ force_hide _ = do - let force_hide' = (/= 0) force_hide - _cb force_hide' +menuShellActivateCurrentCallbackWrapper _cb _ forceHide _ = do + let forceHide' = (/= 0) forceHide + _cb forceHide' onMenuShellActivateCurrent :: (GObject a, MonadIO m) => a -> MenuShellActivateCurrentCallback -> m SignalHandlerId onMenuShellActivateCurrent obj cb = liftIO $ connectMenuShellActivateCurrent obj cb SignalConnectBefore @@ -566,13 +917,13 @@ type AttrSetTypeConstraint MenuShellTakeFocusPropertyInfo = (~) Bool type AttrBaseTypeConstraint MenuShellTakeFocusPropertyInfo = MenuShellK type AttrGetType MenuShellTakeFocusPropertyInfo = Bool - type AttrLabel MenuShellTakeFocusPropertyInfo = "MenuShell::take-focus" + type AttrLabel MenuShellTakeFocusPropertyInfo = "take-focus" attrGet _ = getMenuShellTakeFocus attrSet _ = setMenuShellTakeFocus attrConstruct _ = constructMenuShellTakeFocus type instance AttributeList MenuShell = MenuShellAttributeList -type MenuShellAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("take-focus", MenuShellTakeFocusPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type MenuShellAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data MenuShellActivateCurrentSignalInfo instance SignalInfo MenuShellActivateCurrentSignalInfo where @@ -615,13 +966,12 @@ connectSignal _ = connectMenuShellSelectionDone type instance SignalList MenuShell = MenuShellSignalList -type MenuShellSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-focus", MenuShellCycleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-current", MenuShellMoveCurrentSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-selected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-done", MenuShellSelectionDoneSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuShellSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleFocus", MenuShellCycleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCurrent", MenuShellMoveCurrentSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSelected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionDone", MenuShellSelectionDoneSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method MenuShell::activate_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_deactivate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_deactivate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_deactivate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -635,24 +985,27 @@ menuShellActivateItem :: (MonadIO m, MenuShellK a, WidgetK b) => - a -> -- _obj - b -> -- menu_item - Bool -> -- force_deactivate - m () -menuShellActivateItem _obj menu_item force_deactivate = liftIO $ do + a -- _obj + -> b -- menuItem + -> Bool -- forceDeactivate + -> m () -- result +menuShellActivateItem _obj menuItem forceDeactivate = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let menu_item' = unsafeManagedPtrCastPtr menu_item - let force_deactivate' = (fromIntegral . fromEnum) force_deactivate - gtk_menu_shell_activate_item _obj' menu_item' force_deactivate' + let menuItem' = unsafeManagedPtrCastPtr menuItem + let forceDeactivate' = (fromIntegral . fromEnum) forceDeactivate + gtk_menu_shell_activate_item _obj' menuItem' forceDeactivate' touchManagedPtr _obj - touchManagedPtr menu_item + touchManagedPtr menuItem return () +data MenuShellActivateItemMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, MenuShellK a, WidgetK b) => MethodInfo MenuShellActivateItemMethodInfo a signature where + overloadedMethod _ = menuShellActivateItem + -- method MenuShell::append -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -665,9 +1018,9 @@ menuShellAppend :: (MonadIO m, MenuShellK a, MenuItemK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result menuShellAppend _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -676,11 +1029,14 @@ touchManagedPtr child return () +data MenuShellAppendMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, MenuShellK a, MenuItemK b) => MethodInfo MenuShellAppendMethodInfo a signature where + overloadedMethod _ = menuShellAppend + -- method MenuShell::bind_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "with_separators", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "with_separators", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "with_separators", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -695,35 +1051,38 @@ menuShellBindModel :: (MonadIO m, MenuShellK a, Gio.MenuModelK b) => - a -> -- _obj - Maybe (b) -> -- model - Maybe (T.Text) -> -- action_namespace - Bool -> -- with_separators - m () -menuShellBindModel _obj model action_namespace with_separators = liftIO $ do + a -- _obj + -> Maybe (b) -- model + -> Maybe (T.Text) -- actionNamespace + -> Bool -- withSeparators + -> m () -- result +menuShellBindModel _obj model actionNamespace withSeparators = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeModel <- case model of Nothing -> return nullPtr Just jModel -> do let jModel' = unsafeManagedPtrCastPtr jModel return jModel' - maybeAction_namespace <- case action_namespace of + maybeActionNamespace <- case actionNamespace of Nothing -> return nullPtr - Just jAction_namespace -> do - jAction_namespace' <- textToCString jAction_namespace - return jAction_namespace' - let with_separators' = (fromIntegral . fromEnum) with_separators - gtk_menu_shell_bind_model _obj' maybeModel maybeAction_namespace with_separators' + Just jActionNamespace -> do + jActionNamespace' <- textToCString jActionNamespace + return jActionNamespace' + let withSeparators' = (fromIntegral . fromEnum) withSeparators + gtk_menu_shell_bind_model _obj' maybeModel maybeActionNamespace withSeparators' touchManagedPtr _obj whenJust model touchManagedPtr - freeMem maybeAction_namespace + freeMem maybeActionNamespace return () +data MenuShellBindModelMethodInfo +instance (signature ~ (Maybe (b) -> Maybe (T.Text) -> Bool -> m ()), MonadIO m, MenuShellK a, Gio.MenuModelK b) => MethodInfo MenuShellBindModelMethodInfo a signature where + overloadedMethod _ = menuShellBindModel + -- method MenuShell::cancel -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -735,19 +1094,22 @@ menuShellCancel :: (MonadIO m, MenuShellK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result menuShellCancel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_menu_shell_cancel _obj' touchManagedPtr _obj return () +data MenuShellCancelMethodInfo +instance (signature ~ (m ()), MonadIO m, MenuShellK a) => MethodInfo MenuShellCancelMethodInfo a signature where + overloadedMethod _ = menuShellCancel + -- method MenuShell::deactivate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -759,19 +1121,22 @@ menuShellDeactivate :: (MonadIO m, MenuShellK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result menuShellDeactivate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_menu_shell_deactivate _obj' touchManagedPtr _obj return () +data MenuShellDeactivateMethodInfo +instance (signature ~ (m ()), MonadIO m, MenuShellK a) => MethodInfo MenuShellDeactivateMethodInfo a signature where + overloadedMethod _ = menuShellDeactivate + -- method MenuShell::deselect -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -783,19 +1148,22 @@ menuShellDeselect :: (MonadIO m, MenuShellK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result menuShellDeselect _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_menu_shell_deselect _obj' touchManagedPtr _obj return () +data MenuShellDeselectMethodInfo +instance (signature ~ (m ()), MonadIO m, MenuShellK a) => MethodInfo MenuShellDeselectMethodInfo a signature where + overloadedMethod _ = menuShellDeselect + -- method MenuShell::get_parent_shell -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -807,8 +1175,8 @@ menuShellGetParentShell :: (MonadIO m, MenuShellK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result menuShellGetParentShell _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_shell_get_parent_shell _obj' @@ -817,11 +1185,14 @@ touchManagedPtr _obj return result' +data MenuShellGetParentShellMethodInfo +instance (signature ~ (m Widget), MonadIO m, MenuShellK a) => MethodInfo MenuShellGetParentShellMethodInfo a signature where + overloadedMethod _ = menuShellGetParentShell + -- method MenuShell::get_selected_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -833,8 +1204,8 @@ menuShellGetSelectedItem :: (MonadIO m, MenuShellK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result menuShellGetSelectedItem _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_shell_get_selected_item _obj' @@ -843,11 +1214,14 @@ touchManagedPtr _obj return result' +data MenuShellGetSelectedItemMethodInfo +instance (signature ~ (m Widget), MonadIO m, MenuShellK a) => MethodInfo MenuShellGetSelectedItemMethodInfo a signature where + overloadedMethod _ = menuShellGetSelectedItem + -- method MenuShell::get_take_focus -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -859,8 +1233,8 @@ menuShellGetTakeFocus :: (MonadIO m, MenuShellK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result menuShellGetTakeFocus _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_shell_get_take_focus _obj' @@ -868,11 +1242,14 @@ touchManagedPtr _obj return result' +data MenuShellGetTakeFocusMethodInfo +instance (signature ~ (m Bool), MonadIO m, MenuShellK a) => MethodInfo MenuShellGetTakeFocusMethodInfo a signature where + overloadedMethod _ = menuShellGetTakeFocus + -- method MenuShell::insert -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -886,10 +1263,10 @@ menuShellInsert :: (MonadIO m, MenuShellK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- position - m () + a -- _obj + -> b -- child + -> Int32 -- position + -> m () -- result menuShellInsert _obj child position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -898,11 +1275,14 @@ touchManagedPtr child return () +data MenuShellInsertMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, MenuShellK a, WidgetK b) => MethodInfo MenuShellInsertMethodInfo a signature where + overloadedMethod _ = menuShellInsert + -- method MenuShell::prepend -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -915,9 +1295,9 @@ menuShellPrepend :: (MonadIO m, MenuShellK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result menuShellPrepend _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -926,11 +1306,14 @@ touchManagedPtr child return () +data MenuShellPrependMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, MenuShellK a, WidgetK b) => MethodInfo MenuShellPrependMethodInfo a signature where + overloadedMethod _ = menuShellPrepend + -- method MenuShell::select_first -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -943,21 +1326,24 @@ menuShellSelectFirst :: (MonadIO m, MenuShellK a) => - a -> -- _obj - Bool -> -- search_sensitive - m () -menuShellSelectFirst _obj search_sensitive = liftIO $ do + a -- _obj + -> Bool -- searchSensitive + -> m () -- result +menuShellSelectFirst _obj searchSensitive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let search_sensitive' = (fromIntegral . fromEnum) search_sensitive - gtk_menu_shell_select_first _obj' search_sensitive' + let searchSensitive' = (fromIntegral . fromEnum) searchSensitive + gtk_menu_shell_select_first _obj' searchSensitive' touchManagedPtr _obj return () +data MenuShellSelectFirstMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, MenuShellK a) => MethodInfo MenuShellSelectFirstMethodInfo a signature where + overloadedMethod _ = menuShellSelectFirst + -- method MenuShell::select_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -970,22 +1356,25 @@ menuShellSelectItem :: (MonadIO m, MenuShellK a, WidgetK b) => - a -> -- _obj - b -> -- menu_item - m () -menuShellSelectItem _obj menu_item = liftIO $ do + a -- _obj + -> b -- menuItem + -> m () -- result +menuShellSelectItem _obj menuItem = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let menu_item' = unsafeManagedPtrCastPtr menu_item - gtk_menu_shell_select_item _obj' menu_item' + let menuItem' = unsafeManagedPtrCastPtr menuItem + gtk_menu_shell_select_item _obj' menuItem' touchManagedPtr _obj - touchManagedPtr menu_item + touchManagedPtr menuItem return () +data MenuShellSelectItemMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, MenuShellK a, WidgetK b) => MethodInfo MenuShellSelectItemMethodInfo a signature where + overloadedMethod _ = menuShellSelectItem + -- method MenuShell::set_take_focus -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "take_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "take_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "take_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -998,14 +1387,18 @@ menuShellSetTakeFocus :: (MonadIO m, MenuShellK a) => - a -> -- _obj - Bool -> -- take_focus - m () -menuShellSetTakeFocus _obj take_focus = liftIO $ do + a -- _obj + -> Bool -- takeFocus + -> m () -- result +menuShellSetTakeFocus _obj takeFocus = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let take_focus' = (fromIntegral . fromEnum) take_focus - gtk_menu_shell_set_take_focus _obj' take_focus' + let takeFocus' = (fromIntegral . fromEnum) takeFocus + gtk_menu_shell_set_take_focus _obj' takeFocus' touchManagedPtr _obj return () + +data MenuShellSetTakeFocusMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, MenuShellK a) => MethodInfo MenuShellSetTakeFocusMethodInfo a signature where + overloadedMethod _ = menuShellSetTakeFocus diff --git a/GI/Gtk/Objects/MenuShell.hs-boot b/GI/Gtk/Objects/MenuShell.hs-boot --- a/GI/Gtk/Objects/MenuShell.hs-boot +++ b/GI/Gtk/Objects/MenuShell.hs-boot @@ -20,3 +20,17 @@ data MenuShellMoveCurrentSignalInfo data MenuShellMoveSelectedSignalInfo data MenuShellSelectionDoneSignalInfo +data MenuShellActivateItemMethodInfo +data MenuShellAppendMethodInfo +data MenuShellBindModelMethodInfo +data MenuShellCancelMethodInfo +data MenuShellDeactivateMethodInfo +data MenuShellDeselectMethodInfo +data MenuShellGetParentShellMethodInfo +data MenuShellGetSelectedItemMethodInfo +data MenuShellGetTakeFocusMethodInfo +data MenuShellInsertMethodInfo +data MenuShellPrependMethodInfo +data MenuShellSelectFirstMethodInfo +data MenuShellSelectItemMethodInfo +data MenuShellSetTakeFocusMethodInfo diff --git a/GI/Gtk/Objects/MenuShellAccessible.hs b/GI/Gtk/Objects/MenuShellAccessible.hs --- a/GI/Gtk/Objects/MenuShellAccessible.hs +++ b/GI/Gtk/Objects/MenuShellAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,85 @@ noMenuShellAccessible :: Maybe MenuShellAccessible noMenuShellAccessible = Nothing +type family ResolveMenuShellAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveMenuShellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveMenuShellAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo + ResolveMenuShellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMenuShellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMenuShellAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo + ResolveMenuShellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveMenuShellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveMenuShellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMenuShellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMenuShellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveMenuShellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveMenuShellAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo + ResolveMenuShellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMenuShellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMenuShellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMenuShellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveMenuShellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveMenuShellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMenuShellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveMenuShellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveMenuShellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveMenuShellAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo + ResolveMenuShellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMenuShellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveMenuShellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveMenuShellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveMenuShellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveMenuShellAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo + ResolveMenuShellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMenuShellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMenuShellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMenuShellAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo + ResolveMenuShellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMenuShellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMenuShellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMenuShellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMenuShellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMenuShellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveMenuShellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveMenuShellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMenuShellAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveMenuShellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveMenuShellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveMenuShellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveMenuShellAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveMenuShellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveMenuShellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveMenuShellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveMenuShellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMenuShellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMenuShellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveMenuShellAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo + ResolveMenuShellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveMenuShellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveMenuShellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMenuShellAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveMenuShellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveMenuShellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveMenuShellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveMenuShellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveMenuShellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMenuShellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveMenuShellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveMenuShellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveMenuShellAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMenuShellAccessibleMethod t MenuShellAccessible, MethodInfo info MenuShellAccessible p) => IsLabelProxy t (MenuShellAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMenuShellAccessibleMethod t MenuShellAccessible, MethodInfo info MenuShellAccessible p) => IsLabel t (MenuShellAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList MenuShellAccessible = MenuShellAccessibleAttributeList -type MenuShellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type MenuShellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList MenuShellAccessible = MenuShellAccessibleSignalList -type MenuShellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuShellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/MenuToolButton.hs b/GI/Gtk/Objects/MenuToolButton.hs --- a/GI/Gtk/Objects/MenuToolButton.hs +++ b/GI/Gtk/Objects/MenuToolButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** menuToolButtonGetMenu + MenuToolButtonGetMenuMethodInfo , menuToolButtonGetMenu , @@ -29,14 +31,17 @@ -- ** menuToolButtonSetArrowTooltipMarkup + MenuToolButtonSetArrowTooltipMarkupMethodInfo, menuToolButtonSetArrowTooltipMarkup , -- ** menuToolButtonSetArrowTooltipText + MenuToolButtonSetArrowTooltipTextMethodInfo, menuToolButtonSetArrowTooltipText , -- ** menuToolButtonSetMenu + MenuToolButtonSetMenuMethodInfo , menuToolButtonSetMenu , @@ -102,6 +107,379 @@ noMenuToolButton :: Maybe MenuToolButton noMenuToolButton = Nothing +type family ResolveMenuToolButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveMenuToolButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveMenuToolButtonMethod "add" o = ContainerAddMethodInfo + ResolveMenuToolButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveMenuToolButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveMenuToolButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveMenuToolButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveMenuToolButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveMenuToolButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveMenuToolButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMenuToolButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMenuToolButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveMenuToolButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveMenuToolButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveMenuToolButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveMenuToolButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveMenuToolButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveMenuToolButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveMenuToolButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveMenuToolButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveMenuToolButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveMenuToolButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveMenuToolButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveMenuToolButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveMenuToolButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveMenuToolButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveMenuToolButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveMenuToolButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveMenuToolButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveMenuToolButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveMenuToolButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveMenuToolButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveMenuToolButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveMenuToolButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveMenuToolButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveMenuToolButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveMenuToolButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveMenuToolButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveMenuToolButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveMenuToolButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveMenuToolButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveMenuToolButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveMenuToolButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveMenuToolButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveMenuToolButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveMenuToolButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveMenuToolButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveMenuToolButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveMenuToolButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveMenuToolButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveMenuToolButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveMenuToolButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveMenuToolButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveMenuToolButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveMenuToolButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveMenuToolButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveMenuToolButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveMenuToolButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveMenuToolButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveMenuToolButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveMenuToolButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveMenuToolButtonMethod "event" o = WidgetEventMethodInfo + ResolveMenuToolButtonMethod "forall" o = ContainerForallMethodInfo + ResolveMenuToolButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMenuToolButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveMenuToolButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveMenuToolButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMenuToolButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveMenuToolButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveMenuToolButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveMenuToolButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveMenuToolButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveMenuToolButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveMenuToolButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveMenuToolButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveMenuToolButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveMenuToolButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveMenuToolButtonMethod "hide" o = WidgetHideMethodInfo + ResolveMenuToolButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveMenuToolButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveMenuToolButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveMenuToolButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveMenuToolButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveMenuToolButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveMenuToolButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveMenuToolButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveMenuToolButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveMenuToolButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMenuToolButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveMenuToolButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveMenuToolButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveMenuToolButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveMenuToolButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveMenuToolButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveMenuToolButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveMenuToolButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveMenuToolButtonMethod "map" o = WidgetMapMethodInfo + ResolveMenuToolButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveMenuToolButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveMenuToolButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveMenuToolButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveMenuToolButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveMenuToolButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveMenuToolButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveMenuToolButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveMenuToolButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMenuToolButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMenuToolButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveMenuToolButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveMenuToolButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveMenuToolButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveMenuToolButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveMenuToolButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveMenuToolButtonMethod "path" o = WidgetPathMethodInfo + ResolveMenuToolButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveMenuToolButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveMenuToolButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveMenuToolButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveMenuToolButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveMenuToolButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveMenuToolButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveMenuToolButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveMenuToolButtonMethod "rebuildMenu" o = ToolItemRebuildMenuMethodInfo + ResolveMenuToolButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMenuToolButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMenuToolButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveMenuToolButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveMenuToolButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveMenuToolButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveMenuToolButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveMenuToolButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveMenuToolButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveMenuToolButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveMenuToolButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveMenuToolButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMenuToolButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMenuToolButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveMenuToolButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveMenuToolButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveMenuToolButtonMethod "retrieveProxyMenuItem" o = ToolItemRetrieveProxyMenuItemMethodInfo + ResolveMenuToolButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMenuToolButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveMenuToolButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveMenuToolButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveMenuToolButtonMethod "show" o = WidgetShowMethodInfo + ResolveMenuToolButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveMenuToolButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveMenuToolButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveMenuToolButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveMenuToolButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveMenuToolButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMenuToolButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMenuToolButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveMenuToolButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveMenuToolButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveMenuToolButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveMenuToolButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMenuToolButtonMethod "toolbarReconfigured" o = ToolItemToolbarReconfiguredMethodInfo + ResolveMenuToolButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveMenuToolButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveMenuToolButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveMenuToolButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveMenuToolButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveMenuToolButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMenuToolButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveMenuToolButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveMenuToolButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveMenuToolButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMenuToolButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveMenuToolButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveMenuToolButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveMenuToolButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveMenuToolButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveMenuToolButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveMenuToolButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveMenuToolButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveMenuToolButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveMenuToolButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveMenuToolButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveMenuToolButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveMenuToolButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveMenuToolButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveMenuToolButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveMenuToolButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveMenuToolButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveMenuToolButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveMenuToolButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveMenuToolButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveMenuToolButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMenuToolButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveMenuToolButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveMenuToolButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveMenuToolButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveMenuToolButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveMenuToolButtonMethod "getEllipsizeMode" o = ToolItemGetEllipsizeModeMethodInfo + ResolveMenuToolButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveMenuToolButtonMethod "getExpand" o = ToolItemGetExpandMethodInfo + ResolveMenuToolButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveMenuToolButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveMenuToolButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveMenuToolButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveMenuToolButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveMenuToolButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveMenuToolButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveMenuToolButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveMenuToolButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveMenuToolButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveMenuToolButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveMenuToolButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveMenuToolButtonMethod "getHomogeneous" o = ToolItemGetHomogeneousMethodInfo + ResolveMenuToolButtonMethod "getIconName" o = ToolButtonGetIconNameMethodInfo + ResolveMenuToolButtonMethod "getIconSize" o = ToolItemGetIconSizeMethodInfo + ResolveMenuToolButtonMethod "getIconWidget" o = ToolButtonGetIconWidgetMethodInfo + ResolveMenuToolButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveMenuToolButtonMethod "getIsImportant" o = ToolItemGetIsImportantMethodInfo + ResolveMenuToolButtonMethod "getLabel" o = ToolButtonGetLabelMethodInfo + ResolveMenuToolButtonMethod "getLabelWidget" o = ToolButtonGetLabelWidgetMethodInfo + ResolveMenuToolButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveMenuToolButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveMenuToolButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveMenuToolButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveMenuToolButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveMenuToolButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveMenuToolButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveMenuToolButtonMethod "getMenu" o = MenuToolButtonGetMenuMethodInfo + ResolveMenuToolButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveMenuToolButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveMenuToolButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveMenuToolButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveMenuToolButtonMethod "getOrientation" o = ToolItemGetOrientationMethodInfo + ResolveMenuToolButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveMenuToolButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveMenuToolButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveMenuToolButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveMenuToolButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveMenuToolButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveMenuToolButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveMenuToolButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveMenuToolButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveMenuToolButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveMenuToolButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveMenuToolButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveMenuToolButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMenuToolButtonMethod "getProxyMenuItem" o = ToolItemGetProxyMenuItemMethodInfo + ResolveMenuToolButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMenuToolButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveMenuToolButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveMenuToolButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveMenuToolButtonMethod "getReliefStyle" o = ToolItemGetReliefStyleMethodInfo + ResolveMenuToolButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveMenuToolButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveMenuToolButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveMenuToolButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveMenuToolButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveMenuToolButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveMenuToolButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveMenuToolButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveMenuToolButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveMenuToolButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveMenuToolButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveMenuToolButtonMethod "getStockId" o = ToolButtonGetStockIdMethodInfo + ResolveMenuToolButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveMenuToolButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveMenuToolButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveMenuToolButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveMenuToolButtonMethod "getTextAlignment" o = ToolItemGetTextAlignmentMethodInfo + ResolveMenuToolButtonMethod "getTextOrientation" o = ToolItemGetTextOrientationMethodInfo + ResolveMenuToolButtonMethod "getTextSizeGroup" o = ToolItemGetTextSizeGroupMethodInfo + ResolveMenuToolButtonMethod "getToolbarStyle" o = ToolItemGetToolbarStyleMethodInfo + ResolveMenuToolButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveMenuToolButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveMenuToolButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveMenuToolButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveMenuToolButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveMenuToolButtonMethod "getUseDragWindow" o = ToolItemGetUseDragWindowMethodInfo + ResolveMenuToolButtonMethod "getUseUnderline" o = ToolButtonGetUseUnderlineMethodInfo + ResolveMenuToolButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveMenuToolButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveMenuToolButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveMenuToolButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveMenuToolButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveMenuToolButtonMethod "getVisibleHorizontal" o = ToolItemGetVisibleHorizontalMethodInfo + ResolveMenuToolButtonMethod "getVisibleVertical" o = ToolItemGetVisibleVerticalMethodInfo + ResolveMenuToolButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveMenuToolButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveMenuToolButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveMenuToolButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveMenuToolButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveMenuToolButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveMenuToolButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveMenuToolButtonMethod "setArrowTooltipMarkup" o = MenuToolButtonSetArrowTooltipMarkupMethodInfo + ResolveMenuToolButtonMethod "setArrowTooltipText" o = MenuToolButtonSetArrowTooltipTextMethodInfo + ResolveMenuToolButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveMenuToolButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveMenuToolButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveMenuToolButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveMenuToolButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveMenuToolButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveMenuToolButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveMenuToolButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMenuToolButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveMenuToolButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveMenuToolButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveMenuToolButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveMenuToolButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveMenuToolButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveMenuToolButtonMethod "setExpand" o = ToolItemSetExpandMethodInfo + ResolveMenuToolButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveMenuToolButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveMenuToolButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveMenuToolButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveMenuToolButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveMenuToolButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveMenuToolButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveMenuToolButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveMenuToolButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveMenuToolButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveMenuToolButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveMenuToolButtonMethod "setHomogeneous" o = ToolItemSetHomogeneousMethodInfo + ResolveMenuToolButtonMethod "setIconName" o = ToolButtonSetIconNameMethodInfo + ResolveMenuToolButtonMethod "setIconWidget" o = ToolButtonSetIconWidgetMethodInfo + ResolveMenuToolButtonMethod "setIsImportant" o = ToolItemSetIsImportantMethodInfo + ResolveMenuToolButtonMethod "setLabel" o = ToolButtonSetLabelMethodInfo + ResolveMenuToolButtonMethod "setLabelWidget" o = ToolButtonSetLabelWidgetMethodInfo + ResolveMenuToolButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveMenuToolButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveMenuToolButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveMenuToolButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveMenuToolButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveMenuToolButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveMenuToolButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveMenuToolButtonMethod "setMenu" o = MenuToolButtonSetMenuMethodInfo + ResolveMenuToolButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveMenuToolButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveMenuToolButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveMenuToolButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveMenuToolButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMenuToolButtonMethod "setProxyMenuItem" o = ToolItemSetProxyMenuItemMethodInfo + ResolveMenuToolButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveMenuToolButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveMenuToolButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveMenuToolButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveMenuToolButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveMenuToolButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveMenuToolButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveMenuToolButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveMenuToolButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveMenuToolButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveMenuToolButtonMethod "setStockId" o = ToolButtonSetStockIdMethodInfo + ResolveMenuToolButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveMenuToolButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveMenuToolButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveMenuToolButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveMenuToolButtonMethod "setUseDragWindow" o = ToolItemSetUseDragWindowMethodInfo + ResolveMenuToolButtonMethod "setUseUnderline" o = ToolButtonSetUseUnderlineMethodInfo + ResolveMenuToolButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveMenuToolButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveMenuToolButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveMenuToolButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveMenuToolButtonMethod "setVisibleHorizontal" o = ToolItemSetVisibleHorizontalMethodInfo + ResolveMenuToolButtonMethod "setVisibleVertical" o = ToolItemSetVisibleVerticalMethodInfo + ResolveMenuToolButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveMenuToolButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveMenuToolButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMenuToolButtonMethod t MenuToolButton, MethodInfo info MenuToolButton p) => IsLabelProxy t (MenuToolButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMenuToolButtonMethod t MenuToolButton, MethodInfo info MenuToolButton p) => IsLabel t (MenuToolButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal MenuToolButton::show-menu type MenuToolButtonShowMenuCallback = IO () @@ -159,13 +537,13 @@ type AttrSetTypeConstraint MenuToolButtonMenuPropertyInfo = MenuK type AttrBaseTypeConstraint MenuToolButtonMenuPropertyInfo = MenuToolButtonK type AttrGetType MenuToolButtonMenuPropertyInfo = Menu - type AttrLabel MenuToolButtonMenuPropertyInfo = "MenuToolButton::menu" + type AttrLabel MenuToolButtonMenuPropertyInfo = "menu" attrGet _ = getMenuToolButtonMenu attrSet _ = setMenuToolButtonMenu attrConstruct _ = constructMenuToolButtonMenu type instance AttributeList MenuToolButton = MenuToolButtonAttributeList -type MenuToolButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ToolButtonIconNamePropertyInfo), '("icon-widget", ToolButtonIconWidgetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("label-widget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("menu", MenuToolButtonMenuPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock-id", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type MenuToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("menu", MenuToolButtonMenuPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data MenuToolButtonShowMenuSignalInfo instance SignalInfo MenuToolButtonShowMenuSignalInfo where @@ -173,13 +551,12 @@ connectSignal _ = connectMenuToolButtonShowMenu type instance SignalList MenuToolButton = MenuToolButtonSignalList -type MenuToolButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("show-menu", MenuToolButtonShowMenuSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuToolButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("showMenu", MenuToolButtonShowMenuSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method MenuToolButton::new -- method type : Constructor --- Args : [Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "MenuToolButton" -- throws : False -- Skip return : False @@ -192,32 +569,31 @@ menuToolButtonNew :: (MonadIO m, WidgetK a) => - Maybe (a) -> -- icon_widget - Maybe (T.Text) -> -- label - m MenuToolButton -menuToolButtonNew icon_widget label = liftIO $ do - maybeIcon_widget <- case icon_widget of + Maybe (a) -- iconWidget + -> Maybe (T.Text) -- label + -> m MenuToolButton -- result +menuToolButtonNew iconWidget label = liftIO $ do + maybeIconWidget <- case iconWidget of Nothing -> return nullPtr - Just jIcon_widget -> do - let jIcon_widget' = unsafeManagedPtrCastPtr jIcon_widget - return jIcon_widget' + Just jIconWidget -> do + let jIconWidget' = unsafeManagedPtrCastPtr jIconWidget + return jIconWidget' maybeLabel <- case label of Nothing -> return nullPtr Just jLabel -> do jLabel' <- textToCString jLabel return jLabel' - result <- gtk_menu_tool_button_new maybeIcon_widget maybeLabel + result <- gtk_menu_tool_button_new maybeIconWidget maybeLabel checkUnexpectedReturnNULL "gtk_menu_tool_button_new" result result' <- (newObject MenuToolButton) result - whenJust icon_widget touchManagedPtr + whenJust iconWidget touchManagedPtr freeMem maybeLabel return result' -- method MenuToolButton::new_from_stock -- method type : Constructor --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "MenuToolButton" -- throws : False -- Skip return : False @@ -229,21 +605,20 @@ {-# DEPRECATED menuToolButtonNewFromStock ["(Since version 3.10)","Use gtk_menu_tool_button_new() instead."]#-} menuToolButtonNewFromStock :: (MonadIO m) => - T.Text -> -- stock_id - m MenuToolButton -menuToolButtonNewFromStock stock_id = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_menu_tool_button_new_from_stock stock_id' + T.Text -- stockId + -> m MenuToolButton -- result +menuToolButtonNewFromStock stockId = liftIO $ do + stockId' <- textToCString stockId + result <- gtk_menu_tool_button_new_from_stock stockId' checkUnexpectedReturnNULL "gtk_menu_tool_button_new_from_stock" result result' <- (newObject MenuToolButton) result - freeMem stock_id' + freeMem stockId' return result' -- method MenuToolButton::get_menu -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -255,8 +630,8 @@ menuToolButtonGetMenu :: (MonadIO m, MenuToolButtonK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result menuToolButtonGetMenu _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_menu_tool_button_get_menu _obj' @@ -265,11 +640,14 @@ touchManagedPtr _obj return result' +data MenuToolButtonGetMenuMethodInfo +instance (signature ~ (m Widget), MonadIO m, MenuToolButtonK a) => MethodInfo MenuToolButtonGetMenuMethodInfo a signature where + overloadedMethod _ = menuToolButtonGetMenu + -- method MenuToolButton::set_arrow_tooltip_markup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -282,9 +660,9 @@ menuToolButtonSetArrowTooltipMarkup :: (MonadIO m, MenuToolButtonK a) => - a -> -- _obj - T.Text -> -- markup - m () + a -- _obj + -> T.Text -- markup + -> m () -- result menuToolButtonSetArrowTooltipMarkup _obj markup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj markup' <- textToCString markup @@ -293,11 +671,14 @@ freeMem markup' return () +data MenuToolButtonSetArrowTooltipMarkupMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, MenuToolButtonK a) => MethodInfo MenuToolButtonSetArrowTooltipMarkupMethodInfo a signature where + overloadedMethod _ = menuToolButtonSetArrowTooltipMarkup + -- method MenuToolButton::set_arrow_tooltip_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -310,9 +691,9 @@ menuToolButtonSetArrowTooltipText :: (MonadIO m, MenuToolButtonK a) => - a -> -- _obj - T.Text -> -- text - m () + a -- _obj + -> T.Text -- text + -> m () -- result menuToolButtonSetArrowTooltipText _obj text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text @@ -321,11 +702,14 @@ freeMem text' return () +data MenuToolButtonSetArrowTooltipTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, MenuToolButtonK a) => MethodInfo MenuToolButtonSetArrowTooltipTextMethodInfo a signature where + overloadedMethod _ = menuToolButtonSetArrowTooltipText + -- method MenuToolButton::set_menu -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -338,9 +722,9 @@ menuToolButtonSetMenu :: (MonadIO m, MenuToolButtonK a, WidgetK b) => - a -> -- _obj - b -> -- menu - m () + a -- _obj + -> b -- menu + -> m () -- result menuToolButtonSetMenu _obj menu = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let menu' = unsafeManagedPtrCastPtr menu @@ -348,5 +732,9 @@ touchManagedPtr _obj touchManagedPtr menu return () + +data MenuToolButtonSetMenuMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, MenuToolButtonK a, WidgetK b) => MethodInfo MenuToolButtonSetMenuMethodInfo a signature where + overloadedMethod _ = menuToolButtonSetMenu diff --git a/GI/Gtk/Objects/MenuToolButton.hs-boot b/GI/Gtk/Objects/MenuToolButton.hs-boot --- a/GI/Gtk/Objects/MenuToolButton.hs-boot +++ b/GI/Gtk/Objects/MenuToolButton.hs-boot @@ -13,3 +13,7 @@ instance (GObject o, IsDescendantOf MenuToolButton o) => MenuToolButtonK o data MenuToolButtonMenuPropertyInfo data MenuToolButtonShowMenuSignalInfo +data MenuToolButtonGetMenuMethodInfo +data MenuToolButtonSetArrowTooltipMarkupMethodInfo +data MenuToolButtonSetArrowTooltipTextMethodInfo +data MenuToolButtonSetMenuMethodInfo diff --git a/GI/Gtk/Objects/MessageDialog.hs b/GI/Gtk/Objects/MessageDialog.hs --- a/GI/Gtk/Objects/MessageDialog.hs +++ b/GI/Gtk/Objects/MessageDialog.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** messageDialogGetImage + MessageDialogGetImageMethodInfo , messageDialogGetImage , -- ** messageDialogGetMessageArea + MessageDialogGetMessageAreaMethodInfo , messageDialogGetMessageArea , -- ** messageDialogSetImage + MessageDialogSetImageMethodInfo , messageDialogSetImage , -- ** messageDialogSetMarkup + MessageDialogSetMarkupMethodInfo , messageDialogSetMarkup , @@ -124,6 +129,446 @@ noMessageDialog :: Maybe MessageDialog noMessageDialog = Nothing +type family ResolveMessageDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveMessageDialogMethod "activate" o = WidgetActivateMethodInfo + ResolveMessageDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveMessageDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveMessageDialogMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveMessageDialogMethod "add" o = ContainerAddMethodInfo + ResolveMessageDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveMessageDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveMessageDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo + ResolveMessageDialogMethod "addButton" o = DialogAddButtonMethodInfo + ResolveMessageDialogMethod "addChild" o = BuildableAddChildMethodInfo + ResolveMessageDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveMessageDialogMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveMessageDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveMessageDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveMessageDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveMessageDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveMessageDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveMessageDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMessageDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMessageDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveMessageDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveMessageDialogMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveMessageDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveMessageDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveMessageDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveMessageDialogMethod "childType" o = ContainerChildTypeMethodInfo + ResolveMessageDialogMethod "classPath" o = WidgetClassPathMethodInfo + ResolveMessageDialogMethod "close" o = WindowCloseMethodInfo + ResolveMessageDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveMessageDialogMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveMessageDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveMessageDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveMessageDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveMessageDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveMessageDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveMessageDialogMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveMessageDialogMethod "destroy" o = WidgetDestroyMethodInfo + ResolveMessageDialogMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveMessageDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveMessageDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveMessageDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveMessageDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveMessageDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveMessageDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveMessageDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveMessageDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveMessageDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveMessageDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveMessageDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveMessageDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveMessageDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveMessageDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveMessageDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveMessageDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveMessageDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveMessageDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveMessageDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveMessageDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveMessageDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveMessageDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveMessageDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveMessageDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveMessageDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveMessageDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveMessageDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveMessageDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveMessageDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveMessageDialogMethod "draw" o = WidgetDrawMethodInfo + ResolveMessageDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveMessageDialogMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveMessageDialogMethod "event" o = WidgetEventMethodInfo + ResolveMessageDialogMethod "forall" o = ContainerForallMethodInfo + ResolveMessageDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMessageDialogMethod "foreach" o = ContainerForeachMethodInfo + ResolveMessageDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveMessageDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMessageDialogMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveMessageDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveMessageDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveMessageDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveMessageDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveMessageDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveMessageDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveMessageDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveMessageDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveMessageDialogMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveMessageDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveMessageDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveMessageDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveMessageDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveMessageDialogMethod "hide" o = WidgetHideMethodInfo + ResolveMessageDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveMessageDialogMethod "iconify" o = WindowIconifyMethodInfo + ResolveMessageDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveMessageDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveMessageDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveMessageDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveMessageDialogMethod "intersect" o = WidgetIntersectMethodInfo + ResolveMessageDialogMethod "isActive" o = WindowIsActiveMethodInfo + ResolveMessageDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveMessageDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveMessageDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveMessageDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMessageDialogMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveMessageDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveMessageDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveMessageDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveMessageDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveMessageDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveMessageDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveMessageDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveMessageDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveMessageDialogMethod "map" o = WidgetMapMethodInfo + ResolveMessageDialogMethod "maximize" o = WindowMaximizeMethodInfo + ResolveMessageDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveMessageDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveMessageDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveMessageDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveMessageDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveMessageDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveMessageDialogMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveMessageDialogMethod "move" o = WindowMoveMethodInfo + ResolveMessageDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMessageDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMessageDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveMessageDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveMessageDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveMessageDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveMessageDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveMessageDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveMessageDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveMessageDialogMethod "path" o = WidgetPathMethodInfo + ResolveMessageDialogMethod "present" o = WindowPresentMethodInfo + ResolveMessageDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveMessageDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveMessageDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveMessageDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveMessageDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveMessageDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveMessageDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveMessageDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveMessageDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveMessageDialogMethod "realize" o = WidgetRealizeMethodInfo + ResolveMessageDialogMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMessageDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMessageDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveMessageDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveMessageDialogMethod "remove" o = ContainerRemoveMethodInfo + ResolveMessageDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveMessageDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveMessageDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveMessageDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveMessageDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveMessageDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveMessageDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveMessageDialogMethod "reparent" o = WidgetReparentMethodInfo + ResolveMessageDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMessageDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMessageDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveMessageDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveMessageDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveMessageDialogMethod "resize" o = WindowResizeMethodInfo + ResolveMessageDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveMessageDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveMessageDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveMessageDialogMethod "response" o = DialogResponseMethodInfo + ResolveMessageDialogMethod "run" o = DialogRunMethodInfo + ResolveMessageDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMessageDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveMessageDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveMessageDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveMessageDialogMethod "show" o = WidgetShowMethodInfo + ResolveMessageDialogMethod "showAll" o = WidgetShowAllMethodInfo + ResolveMessageDialogMethod "showNow" o = WidgetShowNowMethodInfo + ResolveMessageDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveMessageDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveMessageDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveMessageDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMessageDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMessageDialogMethod "stick" o = WindowStickMethodInfo + ResolveMessageDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveMessageDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveMessageDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveMessageDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMessageDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveMessageDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveMessageDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveMessageDialogMethod "unmap" o = WidgetUnmapMethodInfo + ResolveMessageDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveMessageDialogMethod "unparent" o = WidgetUnparentMethodInfo + ResolveMessageDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveMessageDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMessageDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveMessageDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveMessageDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveMessageDialogMethod "unstick" o = WindowUnstickMethodInfo + ResolveMessageDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMessageDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveMessageDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveMessageDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo + ResolveMessageDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveMessageDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveMessageDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveMessageDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveMessageDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveMessageDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveMessageDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveMessageDialogMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveMessageDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveMessageDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveMessageDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveMessageDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveMessageDialogMethod "getChild" o = BinGetChildMethodInfo + ResolveMessageDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveMessageDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveMessageDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveMessageDialogMethod "getClip" o = WidgetGetClipMethodInfo + ResolveMessageDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveMessageDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveMessageDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo + ResolveMessageDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMessageDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveMessageDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveMessageDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveMessageDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveMessageDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveMessageDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveMessageDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveMessageDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveMessageDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveMessageDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveMessageDialogMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveMessageDialogMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveMessageDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveMessageDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveMessageDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveMessageDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveMessageDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveMessageDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveMessageDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveMessageDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveMessageDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveMessageDialogMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveMessageDialogMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveMessageDialogMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveMessageDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveMessageDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveMessageDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveMessageDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo + ResolveMessageDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveMessageDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveMessageDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveMessageDialogMethod "getIcon" o = WindowGetIconMethodInfo + ResolveMessageDialogMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveMessageDialogMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveMessageDialogMethod "getImage" o = MessageDialogGetImageMethodInfo + ResolveMessageDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveMessageDialogMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveMessageDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveMessageDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveMessageDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveMessageDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveMessageDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveMessageDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveMessageDialogMethod "getMessageArea" o = MessageDialogGetMessageAreaMethodInfo + ResolveMessageDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveMessageDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveMessageDialogMethod "getModal" o = WindowGetModalMethodInfo + ResolveMessageDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveMessageDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveMessageDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveMessageDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveMessageDialogMethod "getParent" o = WidgetGetParentMethodInfo + ResolveMessageDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveMessageDialogMethod "getPath" o = WidgetGetPathMethodInfo + ResolveMessageDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveMessageDialogMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveMessageDialogMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveMessageDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveMessageDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveMessageDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveMessageDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveMessageDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveMessageDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveMessageDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMessageDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMessageDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveMessageDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveMessageDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveMessageDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveMessageDialogMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveMessageDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveMessageDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveMessageDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo + ResolveMessageDialogMethod "getRole" o = WindowGetRoleMethodInfo + ResolveMessageDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveMessageDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveMessageDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveMessageDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveMessageDialogMethod "getSize" o = WindowGetSizeMethodInfo + ResolveMessageDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveMessageDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveMessageDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveMessageDialogMethod "getState" o = WidgetGetStateMethodInfo + ResolveMessageDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveMessageDialogMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveMessageDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveMessageDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveMessageDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveMessageDialogMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveMessageDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveMessageDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveMessageDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveMessageDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveMessageDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveMessageDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveMessageDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveMessageDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveMessageDialogMethod "getValign" o = WidgetGetValignMethodInfo + ResolveMessageDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveMessageDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveMessageDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveMessageDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveMessageDialogMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveMessageDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo + ResolveMessageDialogMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveMessageDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveMessageDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveMessageDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveMessageDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveMessageDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo + ResolveMessageDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveMessageDialogMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveMessageDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveMessageDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveMessageDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveMessageDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveMessageDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveMessageDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveMessageDialogMethod "setClip" o = WidgetSetClipMethodInfo + ResolveMessageDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveMessageDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMessageDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveMessageDialogMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveMessageDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveMessageDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo + ResolveMessageDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveMessageDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveMessageDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveMessageDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveMessageDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveMessageDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveMessageDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveMessageDialogMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveMessageDialogMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveMessageDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveMessageDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveMessageDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveMessageDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveMessageDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveMessageDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveMessageDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveMessageDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveMessageDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveMessageDialogMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveMessageDialogMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveMessageDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveMessageDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveMessageDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveMessageDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveMessageDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveMessageDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveMessageDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveMessageDialogMethod "setIcon" o = WindowSetIconMethodInfo + ResolveMessageDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveMessageDialogMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveMessageDialogMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveMessageDialogMethod "setImage" o = MessageDialogSetImageMethodInfo + ResolveMessageDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveMessageDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveMessageDialogMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveMessageDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveMessageDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveMessageDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveMessageDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveMessageDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveMessageDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveMessageDialogMethod "setMarkup" o = MessageDialogSetMarkupMethodInfo + ResolveMessageDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveMessageDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveMessageDialogMethod "setModal" o = WindowSetModalMethodInfo + ResolveMessageDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveMessageDialogMethod "setParent" o = WidgetSetParentMethodInfo + ResolveMessageDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveMessageDialogMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveMessageDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMessageDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveMessageDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveMessageDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveMessageDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveMessageDialogMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveMessageDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveMessageDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo + ResolveMessageDialogMethod "setRole" o = WindowSetRoleMethodInfo + ResolveMessageDialogMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveMessageDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveMessageDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveMessageDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveMessageDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveMessageDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveMessageDialogMethod "setState" o = WidgetSetStateMethodInfo + ResolveMessageDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveMessageDialogMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveMessageDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveMessageDialogMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveMessageDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveMessageDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveMessageDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveMessageDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveMessageDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveMessageDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveMessageDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveMessageDialogMethod "setValign" o = WidgetSetValignMethodInfo + ResolveMessageDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveMessageDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveMessageDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveMessageDialogMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveMessageDialogMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveMessageDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveMessageDialogMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMessageDialogMethod t MessageDialog, MethodInfo info MessageDialog p) => IsLabelProxy t (MessageDialog -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMessageDialogMethod t MessageDialog, MethodInfo info MessageDialog p) => IsLabel t (MessageDialog -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "buttons" -- Type: TInterface "Gtk" "ButtonsType" -- Flags: [PropertyWritable,PropertyConstructOnly] @@ -137,7 +582,7 @@ type AttrSetTypeConstraint MessageDialogButtonsPropertyInfo = (~) ButtonsType type AttrBaseTypeConstraint MessageDialogButtonsPropertyInfo = MessageDialogK type AttrGetType MessageDialogButtonsPropertyInfo = () - type AttrLabel MessageDialogButtonsPropertyInfo = "MessageDialog::buttons" + type AttrLabel MessageDialogButtonsPropertyInfo = "buttons" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructMessageDialogButtons @@ -161,7 +606,7 @@ type AttrSetTypeConstraint MessageDialogImagePropertyInfo = WidgetK type AttrBaseTypeConstraint MessageDialogImagePropertyInfo = MessageDialogK type AttrGetType MessageDialogImagePropertyInfo = Widget - type AttrLabel MessageDialogImagePropertyInfo = "MessageDialog::image" + type AttrLabel MessageDialogImagePropertyInfo = "image" attrGet _ = getMessageDialogImage attrSet _ = setMessageDialogImage attrConstruct _ = constructMessageDialogImage @@ -179,7 +624,7 @@ type AttrSetTypeConstraint MessageDialogMessageAreaPropertyInfo = (~) () type AttrBaseTypeConstraint MessageDialogMessageAreaPropertyInfo = MessageDialogK type AttrGetType MessageDialogMessageAreaPropertyInfo = Widget - type AttrLabel MessageDialogMessageAreaPropertyInfo = "MessageDialog::message-area" + type AttrLabel MessageDialogMessageAreaPropertyInfo = "message-area" attrGet _ = getMessageDialogMessageArea attrSet _ = undefined attrConstruct _ = undefined @@ -203,7 +648,7 @@ type AttrSetTypeConstraint MessageDialogMessageTypePropertyInfo = (~) MessageType type AttrBaseTypeConstraint MessageDialogMessageTypePropertyInfo = MessageDialogK type AttrGetType MessageDialogMessageTypePropertyInfo = MessageType - type AttrLabel MessageDialogMessageTypePropertyInfo = "MessageDialog::message-type" + type AttrLabel MessageDialogMessageTypePropertyInfo = "message-type" attrGet _ = getMessageDialogMessageType attrSet _ = setMessageDialogMessageType attrConstruct _ = constructMessageDialogMessageType @@ -227,7 +672,7 @@ type AttrSetTypeConstraint MessageDialogSecondaryTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MessageDialogSecondaryTextPropertyInfo = MessageDialogK type AttrGetType MessageDialogSecondaryTextPropertyInfo = T.Text - type AttrLabel MessageDialogSecondaryTextPropertyInfo = "MessageDialog::secondary-text" + type AttrLabel MessageDialogSecondaryTextPropertyInfo = "secondary-text" attrGet _ = getMessageDialogSecondaryText attrSet _ = setMessageDialogSecondaryText attrConstruct _ = constructMessageDialogSecondaryText @@ -251,7 +696,7 @@ type AttrSetTypeConstraint MessageDialogSecondaryUseMarkupPropertyInfo = (~) Bool type AttrBaseTypeConstraint MessageDialogSecondaryUseMarkupPropertyInfo = MessageDialogK type AttrGetType MessageDialogSecondaryUseMarkupPropertyInfo = Bool - type AttrLabel MessageDialogSecondaryUseMarkupPropertyInfo = "MessageDialog::secondary-use-markup" + type AttrLabel MessageDialogSecondaryUseMarkupPropertyInfo = "secondary-use-markup" attrGet _ = getMessageDialogSecondaryUseMarkup attrSet _ = setMessageDialogSecondaryUseMarkup attrConstruct _ = constructMessageDialogSecondaryUseMarkup @@ -275,7 +720,7 @@ type AttrSetTypeConstraint MessageDialogTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MessageDialogTextPropertyInfo = MessageDialogK type AttrGetType MessageDialogTextPropertyInfo = T.Text - type AttrLabel MessageDialogTextPropertyInfo = "MessageDialog::text" + type AttrLabel MessageDialogTextPropertyInfo = "text" attrGet _ = getMessageDialogText attrSet _ = setMessageDialogText attrConstruct _ = constructMessageDialogText @@ -299,22 +744,21 @@ type AttrSetTypeConstraint MessageDialogUseMarkupPropertyInfo = (~) Bool type AttrBaseTypeConstraint MessageDialogUseMarkupPropertyInfo = MessageDialogK type AttrGetType MessageDialogUseMarkupPropertyInfo = Bool - type AttrLabel MessageDialogUseMarkupPropertyInfo = "MessageDialog::use-markup" + type AttrLabel MessageDialogUseMarkupPropertyInfo = "use-markup" attrGet _ = getMessageDialogUseMarkup attrSet _ = setMessageDialogUseMarkup attrConstruct _ = constructMessageDialogUseMarkup type instance AttributeList MessageDialog = MessageDialogAttributeList -type MessageDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("buttons", MessageDialogButtonsPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("image", MessageDialogImagePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("message-area", MessageDialogMessageAreaPropertyInfo), '("message-type", MessageDialogMessageTypePropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("secondary-text", MessageDialogSecondaryTextPropertyInfo), '("secondary-use-markup", MessageDialogSecondaryUseMarkupPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", MessageDialogTextPropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("use-markup", MessageDialogUseMarkupPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type MessageDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttons", MessageDialogButtonsPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("image", MessageDialogImagePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("messageArea", MessageDialogMessageAreaPropertyInfo), '("messageType", MessageDialogMessageTypePropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("secondaryText", MessageDialogSecondaryTextPropertyInfo), '("secondaryUseMarkup", MessageDialogSecondaryUseMarkupPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", MessageDialogTextPropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("useMarkup", MessageDialogUseMarkupPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) type instance SignalList MessageDialog = MessageDialogSignalList -type MessageDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MessageDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method MessageDialog::get_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -326,8 +770,8 @@ {-# DEPRECATED messageDialogGetImage ["(Since version 3.12)","Use #GtkDialog for dialogs with images"]#-} messageDialogGetImage :: (MonadIO m, MessageDialogK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result messageDialogGetImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_message_dialog_get_image _obj' @@ -336,11 +780,14 @@ touchManagedPtr _obj return result' +data MessageDialogGetImageMethodInfo +instance (signature ~ (m Widget), MonadIO m, MessageDialogK a) => MethodInfo MessageDialogGetImageMethodInfo a signature where + overloadedMethod _ = messageDialogGetImage + -- method MessageDialog::get_message_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -352,8 +799,8 @@ messageDialogGetMessageArea :: (MonadIO m, MessageDialogK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result messageDialogGetMessageArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_message_dialog_get_message_area _obj' @@ -362,11 +809,14 @@ touchManagedPtr _obj return result' +data MessageDialogGetMessageAreaMethodInfo +instance (signature ~ (m Widget), MonadIO m, MessageDialogK a) => MethodInfo MessageDialogGetMessageAreaMethodInfo a signature where + overloadedMethod _ = messageDialogGetMessageArea + -- method MessageDialog::set_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -379,9 +829,9 @@ {-# DEPRECATED messageDialogSetImage ["(Since version 3.12)","Use #GtkDialog to create dialogs with images"]#-} messageDialogSetImage :: (MonadIO m, MessageDialogK a, WidgetK b) => - a -> -- _obj - b -> -- image - m () + a -- _obj + -> b -- image + -> m () -- result messageDialogSetImage _obj image = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let image' = unsafeManagedPtrCastPtr image @@ -390,11 +840,14 @@ touchManagedPtr image return () +data MessageDialogSetImageMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, MessageDialogK a, WidgetK b) => MethodInfo MessageDialogSetImageMethodInfo a signature where + overloadedMethod _ = messageDialogSetImage + -- method MessageDialog::set_markup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -407,9 +860,9 @@ messageDialogSetMarkup :: (MonadIO m, MessageDialogK a) => - a -> -- _obj - T.Text -> -- str - m () + a -- _obj + -> T.Text -- str + -> m () -- result messageDialogSetMarkup _obj str = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj str' <- textToCString str @@ -417,5 +870,9 @@ touchManagedPtr _obj freeMem str' return () + +data MessageDialogSetMarkupMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, MessageDialogK a) => MethodInfo MessageDialogSetMarkupMethodInfo a signature where + overloadedMethod _ = messageDialogSetMarkup diff --git a/GI/Gtk/Objects/MessageDialog.hs-boot b/GI/Gtk/Objects/MessageDialog.hs-boot --- a/GI/Gtk/Objects/MessageDialog.hs-boot +++ b/GI/Gtk/Objects/MessageDialog.hs-boot @@ -19,3 +19,7 @@ data MessageDialogSecondaryUseMarkupPropertyInfo data MessageDialogTextPropertyInfo data MessageDialogUseMarkupPropertyInfo +data MessageDialogGetImageMethodInfo +data MessageDialogGetMessageAreaMethodInfo +data MessageDialogSetImageMethodInfo +data MessageDialogSetMarkupMethodInfo diff --git a/GI/Gtk/Objects/Misc.hs b/GI/Gtk/Objects/Misc.hs --- a/GI/Gtk/Objects/Misc.hs +++ b/GI/Gtk/Objects/Misc.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** miscGetAlignment + MiscGetAlignmentMethodInfo , miscGetAlignment , -- ** miscGetPadding + MiscGetPaddingMethodInfo , miscGetPadding , -- ** miscSetAlignment + MiscSetAlignmentMethodInfo , miscSetAlignment , -- ** miscSetPadding + MiscSetPaddingMethodInfo , miscSetPadding , @@ -100,6 +105,306 @@ noMisc :: Maybe Misc noMisc = Nothing +type family ResolveMiscMethod (t :: Symbol) (o :: *) :: * where + ResolveMiscMethod "activate" o = WidgetActivateMethodInfo + ResolveMiscMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveMiscMethod "addChild" o = BuildableAddChildMethodInfo + ResolveMiscMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveMiscMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveMiscMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveMiscMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveMiscMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMiscMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMiscMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveMiscMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveMiscMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveMiscMethod "classPath" o = WidgetClassPathMethodInfo + ResolveMiscMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveMiscMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveMiscMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveMiscMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveMiscMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveMiscMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveMiscMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveMiscMethod "destroy" o = WidgetDestroyMethodInfo + ResolveMiscMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveMiscMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveMiscMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveMiscMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveMiscMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveMiscMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveMiscMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveMiscMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveMiscMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveMiscMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveMiscMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveMiscMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveMiscMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveMiscMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveMiscMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveMiscMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveMiscMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveMiscMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveMiscMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveMiscMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveMiscMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveMiscMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveMiscMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveMiscMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveMiscMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveMiscMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveMiscMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveMiscMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveMiscMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveMiscMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveMiscMethod "draw" o = WidgetDrawMethodInfo + ResolveMiscMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveMiscMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveMiscMethod "event" o = WidgetEventMethodInfo + ResolveMiscMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMiscMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveMiscMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMiscMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveMiscMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveMiscMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveMiscMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveMiscMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveMiscMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveMiscMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveMiscMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveMiscMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveMiscMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveMiscMethod "hide" o = WidgetHideMethodInfo + ResolveMiscMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveMiscMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveMiscMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveMiscMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveMiscMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveMiscMethod "intersect" o = WidgetIntersectMethodInfo + ResolveMiscMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveMiscMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveMiscMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveMiscMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMiscMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveMiscMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveMiscMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveMiscMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveMiscMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveMiscMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveMiscMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveMiscMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveMiscMethod "map" o = WidgetMapMethodInfo + ResolveMiscMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveMiscMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveMiscMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveMiscMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveMiscMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveMiscMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveMiscMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveMiscMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveMiscMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMiscMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMiscMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveMiscMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveMiscMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveMiscMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveMiscMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveMiscMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveMiscMethod "path" o = WidgetPathMethodInfo + ResolveMiscMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveMiscMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveMiscMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveMiscMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveMiscMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveMiscMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveMiscMethod "realize" o = WidgetRealizeMethodInfo + ResolveMiscMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMiscMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMiscMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveMiscMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveMiscMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveMiscMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveMiscMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveMiscMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveMiscMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveMiscMethod "reparent" o = WidgetReparentMethodInfo + ResolveMiscMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMiscMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMiscMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveMiscMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveMiscMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMiscMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveMiscMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveMiscMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveMiscMethod "show" o = WidgetShowMethodInfo + ResolveMiscMethod "showAll" o = WidgetShowAllMethodInfo + ResolveMiscMethod "showNow" o = WidgetShowNowMethodInfo + ResolveMiscMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveMiscMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveMiscMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveMiscMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMiscMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMiscMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveMiscMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveMiscMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveMiscMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMiscMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveMiscMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveMiscMethod "unmap" o = WidgetUnmapMethodInfo + ResolveMiscMethod "unparent" o = WidgetUnparentMethodInfo + ResolveMiscMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveMiscMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMiscMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveMiscMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveMiscMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMiscMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveMiscMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveMiscMethod "getAlignment" o = MiscGetAlignmentMethodInfo + ResolveMiscMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveMiscMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveMiscMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveMiscMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveMiscMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveMiscMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveMiscMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveMiscMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveMiscMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveMiscMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveMiscMethod "getClip" o = WidgetGetClipMethodInfo + ResolveMiscMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveMiscMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveMiscMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMiscMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveMiscMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveMiscMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveMiscMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveMiscMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveMiscMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveMiscMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveMiscMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveMiscMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveMiscMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveMiscMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveMiscMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveMiscMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveMiscMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveMiscMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveMiscMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveMiscMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveMiscMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveMiscMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveMiscMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveMiscMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveMiscMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveMiscMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveMiscMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveMiscMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveMiscMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveMiscMethod "getPadding" o = MiscGetPaddingMethodInfo + ResolveMiscMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveMiscMethod "getParent" o = WidgetGetParentMethodInfo + ResolveMiscMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveMiscMethod "getPath" o = WidgetGetPathMethodInfo + ResolveMiscMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveMiscMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveMiscMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveMiscMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveMiscMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveMiscMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveMiscMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveMiscMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMiscMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMiscMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveMiscMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveMiscMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveMiscMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveMiscMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveMiscMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveMiscMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveMiscMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveMiscMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveMiscMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveMiscMethod "getState" o = WidgetGetStateMethodInfo + ResolveMiscMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveMiscMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveMiscMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveMiscMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveMiscMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveMiscMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveMiscMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveMiscMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveMiscMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveMiscMethod "getValign" o = WidgetGetValignMethodInfo + ResolveMiscMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveMiscMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveMiscMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveMiscMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveMiscMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveMiscMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveMiscMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveMiscMethod "setAlignment" o = MiscSetAlignmentMethodInfo + ResolveMiscMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveMiscMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveMiscMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveMiscMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveMiscMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveMiscMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveMiscMethod "setClip" o = WidgetSetClipMethodInfo + ResolveMiscMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveMiscMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMiscMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveMiscMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveMiscMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveMiscMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveMiscMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveMiscMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveMiscMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveMiscMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveMiscMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveMiscMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveMiscMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveMiscMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveMiscMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveMiscMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveMiscMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveMiscMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveMiscMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveMiscMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveMiscMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveMiscMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveMiscMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveMiscMethod "setPadding" o = MiscSetPaddingMethodInfo + ResolveMiscMethod "setParent" o = WidgetSetParentMethodInfo + ResolveMiscMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveMiscMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMiscMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveMiscMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveMiscMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveMiscMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveMiscMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveMiscMethod "setState" o = WidgetSetStateMethodInfo + ResolveMiscMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveMiscMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveMiscMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveMiscMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveMiscMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveMiscMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveMiscMethod "setValign" o = WidgetSetValignMethodInfo + ResolveMiscMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveMiscMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveMiscMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveMiscMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveMiscMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveMiscMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMiscMethod t Misc, MethodInfo info Misc p) => IsLabelProxy t (Misc -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMiscMethod t Misc, MethodInfo info Misc p) => IsLabel t (Misc -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] @@ -119,7 +424,7 @@ type AttrSetTypeConstraint MiscXalignPropertyInfo = (~) Float type AttrBaseTypeConstraint MiscXalignPropertyInfo = MiscK type AttrGetType MiscXalignPropertyInfo = Float - type AttrLabel MiscXalignPropertyInfo = "Misc::xalign" + type AttrLabel MiscXalignPropertyInfo = "xalign" attrGet _ = getMiscXalign attrSet _ = setMiscXalign attrConstruct _ = constructMiscXalign @@ -143,7 +448,7 @@ type AttrSetTypeConstraint MiscXpadPropertyInfo = (~) Int32 type AttrBaseTypeConstraint MiscXpadPropertyInfo = MiscK type AttrGetType MiscXpadPropertyInfo = Int32 - type AttrLabel MiscXpadPropertyInfo = "Misc::xpad" + type AttrLabel MiscXpadPropertyInfo = "xpad" attrGet _ = getMiscXpad attrSet _ = setMiscXpad attrConstruct _ = constructMiscXpad @@ -167,7 +472,7 @@ type AttrSetTypeConstraint MiscYalignPropertyInfo = (~) Float type AttrBaseTypeConstraint MiscYalignPropertyInfo = MiscK type AttrGetType MiscYalignPropertyInfo = Float - type AttrLabel MiscYalignPropertyInfo = "Misc::yalign" + type AttrLabel MiscYalignPropertyInfo = "yalign" attrGet _ = getMiscYalign attrSet _ = setMiscYalign attrConstruct _ = constructMiscYalign @@ -191,22 +496,21 @@ type AttrSetTypeConstraint MiscYpadPropertyInfo = (~) Int32 type AttrBaseTypeConstraint MiscYpadPropertyInfo = MiscK type AttrGetType MiscYpadPropertyInfo = Int32 - type AttrLabel MiscYpadPropertyInfo = "Misc::ypad" + type AttrLabel MiscYpadPropertyInfo = "ypad" attrGet _ = getMiscYpad attrSet _ = setMiscYpad attrConstruct _ = constructMiscYpad type instance AttributeList Misc = MiscAttributeList -type MiscAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +type MiscAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Misc = MiscSignalList -type MiscSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MiscSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Misc::get_alignment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -220,8 +524,8 @@ {-# DEPRECATED miscGetAlignment ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-} miscGetAlignment :: (MonadIO m, MiscK a) => - a -> -- _obj - m (Float,Float) + a -- _obj + -> m (Float,Float) -- result miscGetAlignment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj xalign <- allocMem :: IO (Ptr CFloat) @@ -236,11 +540,14 @@ freeMem yalign return (xalign'', yalign'') +data MiscGetAlignmentMethodInfo +instance (signature ~ (m (Float,Float)), MonadIO m, MiscK a) => MethodInfo MiscGetAlignmentMethodInfo a signature where + overloadedMethod _ = miscGetAlignment + -- method Misc::get_padding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -254,8 +561,8 @@ {-# DEPRECATED miscGetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-} miscGetPadding :: (MonadIO m, MiscK a) => - a -> -- _obj - m (Int32,Int32) + a -- _obj + -> m (Int32,Int32) -- result miscGetPadding _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj xpad <- allocMem :: IO (Ptr Int32) @@ -268,11 +575,14 @@ freeMem ypad return (xpad', ypad') +data MiscGetPaddingMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, MiscK a) => MethodInfo MiscGetPaddingMethodInfo a signature where + overloadedMethod _ = miscGetPadding + -- method Misc::set_alignment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -286,10 +596,10 @@ {-# DEPRECATED miscSetAlignment ["(Since version 3.14)","Use #GtkWidget's alignment (#GtkWidget:halign and #GtkWidget:valign) and margin properties or #GtkLabel's #GtkLabel:xalign and #GtkLabel:yalign properties."]#-} miscSetAlignment :: (MonadIO m, MiscK a) => - a -> -- _obj - Float -> -- xalign - Float -> -- yalign - m () + a -- _obj + -> Float -- xalign + -> Float -- yalign + -> m () -- result miscSetAlignment _obj xalign yalign = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let xalign' = realToFrac xalign @@ -298,11 +608,14 @@ touchManagedPtr _obj return () +data MiscSetAlignmentMethodInfo +instance (signature ~ (Float -> Float -> m ()), MonadIO m, MiscK a) => MethodInfo MiscSetAlignmentMethodInfo a signature where + overloadedMethod _ = miscSetAlignment + -- method Misc::set_padding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -316,14 +629,18 @@ {-# DEPRECATED miscSetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-} miscSetPadding :: (MonadIO m, MiscK a) => - a -> -- _obj - Int32 -> -- xpad - Int32 -> -- ypad - m () + a -- _obj + -> Int32 -- xpad + -> Int32 -- ypad + -> m () -- result miscSetPadding _obj xpad ypad = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_misc_set_padding _obj' xpad ypad touchManagedPtr _obj return () + +data MiscSetPaddingMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, MiscK a) => MethodInfo MiscSetPaddingMethodInfo a signature where + overloadedMethod _ = miscSetPadding diff --git a/GI/Gtk/Objects/Misc.hs-boot b/GI/Gtk/Objects/Misc.hs-boot --- a/GI/Gtk/Objects/Misc.hs-boot +++ b/GI/Gtk/Objects/Misc.hs-boot @@ -15,3 +15,7 @@ data MiscXpadPropertyInfo data MiscYalignPropertyInfo data MiscYpadPropertyInfo +data MiscGetAlignmentMethodInfo +data MiscGetPaddingMethodInfo +data MiscSetAlignmentMethodInfo +data MiscSetPaddingMethodInfo diff --git a/GI/Gtk/Objects/ModelButton.hs b/GI/Gtk/Objects/ModelButton.hs --- a/GI/Gtk/Objects/ModelButton.hs +++ b/GI/Gtk/Objects/ModelButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -117,6 +118,364 @@ noModelButton :: Maybe ModelButton noModelButton = Nothing +type family ResolveModelButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveModelButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveModelButtonMethod "add" o = ContainerAddMethodInfo + ResolveModelButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveModelButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveModelButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveModelButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveModelButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveModelButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveModelButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveModelButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveModelButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveModelButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveModelButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveModelButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveModelButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveModelButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveModelButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveModelButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveModelButtonMethod "clicked" o = ButtonClickedMethodInfo + ResolveModelButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveModelButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveModelButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveModelButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveModelButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveModelButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveModelButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveModelButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveModelButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveModelButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveModelButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveModelButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveModelButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveModelButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveModelButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveModelButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveModelButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveModelButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveModelButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveModelButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveModelButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveModelButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveModelButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveModelButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveModelButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveModelButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveModelButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveModelButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveModelButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveModelButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveModelButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveModelButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveModelButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveModelButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveModelButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveModelButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveModelButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveModelButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveModelButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveModelButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveModelButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveModelButtonMethod "enter" o = ButtonEnterMethodInfo + ResolveModelButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveModelButtonMethod "event" o = WidgetEventMethodInfo + ResolveModelButtonMethod "forall" o = ContainerForallMethodInfo + ResolveModelButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveModelButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveModelButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveModelButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveModelButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveModelButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveModelButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveModelButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveModelButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveModelButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveModelButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveModelButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveModelButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveModelButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveModelButtonMethod "hide" o = WidgetHideMethodInfo + ResolveModelButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveModelButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveModelButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveModelButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveModelButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveModelButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveModelButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveModelButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveModelButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveModelButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveModelButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveModelButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveModelButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveModelButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveModelButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveModelButtonMethod "leave" o = ButtonLeaveMethodInfo + ResolveModelButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveModelButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveModelButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveModelButtonMethod "map" o = WidgetMapMethodInfo + ResolveModelButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveModelButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveModelButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveModelButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveModelButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveModelButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveModelButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveModelButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveModelButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveModelButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveModelButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveModelButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveModelButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveModelButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveModelButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveModelButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveModelButtonMethod "path" o = WidgetPathMethodInfo + ResolveModelButtonMethod "pressed" o = ButtonPressedMethodInfo + ResolveModelButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveModelButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveModelButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveModelButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveModelButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveModelButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveModelButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveModelButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveModelButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveModelButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveModelButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveModelButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveModelButtonMethod "released" o = ButtonReleasedMethodInfo + ResolveModelButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveModelButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveModelButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveModelButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveModelButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveModelButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveModelButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveModelButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveModelButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveModelButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveModelButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveModelButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveModelButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveModelButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveModelButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveModelButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveModelButtonMethod "show" o = WidgetShowMethodInfo + ResolveModelButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveModelButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveModelButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveModelButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveModelButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveModelButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveModelButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveModelButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveModelButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveModelButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveModelButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveModelButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveModelButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveModelButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveModelButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveModelButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveModelButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveModelButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveModelButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveModelButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveModelButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveModelButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveModelButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveModelButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveModelButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveModelButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveModelButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo + ResolveModelButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveModelButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveModelButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveModelButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveModelButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo + ResolveModelButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveModelButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveModelButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveModelButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveModelButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveModelButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveModelButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveModelButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveModelButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveModelButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveModelButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveModelButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveModelButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveModelButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveModelButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveModelButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveModelButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveModelButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveModelButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo + ResolveModelButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveModelButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveModelButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveModelButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveModelButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo + ResolveModelButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveModelButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveModelButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveModelButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveModelButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveModelButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveModelButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveModelButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveModelButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveModelButtonMethod "getImage" o = ButtonGetImageMethodInfo + ResolveModelButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo + ResolveModelButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveModelButtonMethod "getLabel" o = ButtonGetLabelMethodInfo + ResolveModelButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveModelButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveModelButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveModelButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveModelButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveModelButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveModelButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveModelButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveModelButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveModelButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveModelButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveModelButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveModelButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveModelButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveModelButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveModelButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveModelButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveModelButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveModelButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveModelButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveModelButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveModelButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveModelButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveModelButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveModelButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveModelButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveModelButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveModelButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveModelButtonMethod "getRelief" o = ButtonGetReliefMethodInfo + ResolveModelButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveModelButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveModelButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveModelButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveModelButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveModelButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveModelButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveModelButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveModelButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveModelButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveModelButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveModelButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveModelButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveModelButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveModelButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveModelButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveModelButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveModelButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveModelButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveModelButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveModelButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo + ResolveModelButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo + ResolveModelButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveModelButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveModelButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveModelButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveModelButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveModelButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveModelButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveModelButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveModelButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveModelButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveModelButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo + ResolveModelButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveModelButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo + ResolveModelButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveModelButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveModelButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveModelButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveModelButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveModelButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveModelButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveModelButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveModelButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveModelButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveModelButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveModelButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveModelButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveModelButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveModelButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveModelButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveModelButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveModelButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveModelButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo + ResolveModelButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveModelButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveModelButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveModelButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveModelButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveModelButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveModelButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveModelButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveModelButtonMethod "setImage" o = ButtonSetImageMethodInfo + ResolveModelButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo + ResolveModelButtonMethod "setLabel" o = ButtonSetLabelMethodInfo + ResolveModelButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveModelButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveModelButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveModelButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveModelButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveModelButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveModelButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveModelButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveModelButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveModelButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveModelButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveModelButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveModelButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveModelButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveModelButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveModelButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveModelButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveModelButtonMethod "setRelief" o = ButtonSetReliefMethodInfo + ResolveModelButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveModelButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveModelButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveModelButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveModelButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveModelButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveModelButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveModelButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveModelButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveModelButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveModelButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveModelButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo + ResolveModelButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo + ResolveModelButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveModelButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveModelButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveModelButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveModelButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveModelButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveModelButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveModelButtonMethod t ModelButton, MethodInfo info ModelButton p) => IsLabelProxy t (ModelButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveModelButtonMethod t ModelButton, MethodInfo info ModelButton p) => IsLabel t (ModelButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -136,7 +495,7 @@ type AttrSetTypeConstraint ModelButtonActivePropertyInfo = (~) Bool type AttrBaseTypeConstraint ModelButtonActivePropertyInfo = ModelButtonK type AttrGetType ModelButtonActivePropertyInfo = Bool - type AttrLabel ModelButtonActivePropertyInfo = "ModelButton::active" + type AttrLabel ModelButtonActivePropertyInfo = "active" attrGet _ = getModelButtonActive attrSet _ = setModelButtonActive attrConstruct _ = constructModelButtonActive @@ -160,7 +519,7 @@ type AttrSetTypeConstraint ModelButtonCenteredPropertyInfo = (~) Bool type AttrBaseTypeConstraint ModelButtonCenteredPropertyInfo = ModelButtonK type AttrGetType ModelButtonCenteredPropertyInfo = Bool - type AttrLabel ModelButtonCenteredPropertyInfo = "ModelButton::centered" + type AttrLabel ModelButtonCenteredPropertyInfo = "centered" attrGet _ = getModelButtonCentered attrSet _ = setModelButtonCentered attrConstruct _ = constructModelButtonCentered @@ -184,7 +543,7 @@ type AttrSetTypeConstraint ModelButtonIconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint ModelButtonIconPropertyInfo = ModelButtonK type AttrGetType ModelButtonIconPropertyInfo = Gio.Icon - type AttrLabel ModelButtonIconPropertyInfo = "ModelButton::icon" + type AttrLabel ModelButtonIconPropertyInfo = "icon" attrGet _ = getModelButtonIcon attrSet _ = setModelButtonIcon attrConstruct _ = constructModelButtonIcon @@ -208,7 +567,7 @@ type AttrSetTypeConstraint ModelButtonIconicPropertyInfo = (~) Bool type AttrBaseTypeConstraint ModelButtonIconicPropertyInfo = ModelButtonK type AttrGetType ModelButtonIconicPropertyInfo = Bool - type AttrLabel ModelButtonIconicPropertyInfo = "ModelButton::iconic" + type AttrLabel ModelButtonIconicPropertyInfo = "iconic" attrGet _ = getModelButtonIconic attrSet _ = setModelButtonIconic attrConstruct _ = constructModelButtonIconic @@ -232,7 +591,7 @@ type AttrSetTypeConstraint ModelButtonInvertedPropertyInfo = (~) Bool type AttrBaseTypeConstraint ModelButtonInvertedPropertyInfo = ModelButtonK type AttrGetType ModelButtonInvertedPropertyInfo = Bool - type AttrLabel ModelButtonInvertedPropertyInfo = "ModelButton::inverted" + type AttrLabel ModelButtonInvertedPropertyInfo = "inverted" attrGet _ = getModelButtonInverted attrSet _ = setModelButtonInverted attrConstruct _ = constructModelButtonInverted @@ -256,7 +615,7 @@ type AttrSetTypeConstraint ModelButtonMenuNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ModelButtonMenuNamePropertyInfo = ModelButtonK type AttrGetType ModelButtonMenuNamePropertyInfo = T.Text - type AttrLabel ModelButtonMenuNamePropertyInfo = "ModelButton::menu-name" + type AttrLabel ModelButtonMenuNamePropertyInfo = "menu-name" attrGet _ = getModelButtonMenuName attrSet _ = setModelButtonMenuName attrConstruct _ = constructModelButtonMenuName @@ -280,7 +639,7 @@ type AttrSetTypeConstraint ModelButtonRolePropertyInfo = (~) ButtonRole type AttrBaseTypeConstraint ModelButtonRolePropertyInfo = ModelButtonK type AttrGetType ModelButtonRolePropertyInfo = ButtonRole - type AttrLabel ModelButtonRolePropertyInfo = "ModelButton::role" + type AttrLabel ModelButtonRolePropertyInfo = "role" attrGet _ = getModelButtonRole attrSet _ = setModelButtonRole attrConstruct _ = constructModelButtonRole @@ -304,22 +663,21 @@ type AttrSetTypeConstraint ModelButtonTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ModelButtonTextPropertyInfo = ModelButtonK type AttrGetType ModelButtonTextPropertyInfo = T.Text - type AttrLabel ModelButtonTextPropertyInfo = "ModelButton::text" + type AttrLabel ModelButtonTextPropertyInfo = "text" attrGet _ = getModelButtonText attrSet _ = setModelButtonText attrConstruct _ = constructModelButtonText type instance AttributeList ModelButton = ModelButtonAttributeList -type ModelButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ModelButtonActivePropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("centered", ModelButtonCenteredPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon", ModelButtonIconPropertyInfo), '("iconic", ModelButtonIconicPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inverted", ModelButtonInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("menu-name", ModelButtonMenuNamePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", ModelButtonRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ModelButtonTextPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +type ModelButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ModelButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("centered", ModelButtonCenteredPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("icon", ModelButtonIconPropertyInfo), '("iconic", ModelButtonIconicPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inverted", ModelButtonInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("menuName", ModelButtonMenuNamePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", ModelButtonRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ModelButtonTextPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ModelButton = ModelButtonSignalList -type ModelButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ModelButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ModelButton::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ModelButton" -- throws : False -- Skip return : False @@ -330,7 +688,7 @@ modelButtonNew :: (MonadIO m) => - m ModelButton + m ModelButton -- result modelButtonNew = liftIO $ do result <- gtk_model_button_new checkUnexpectedReturnNULL "gtk_model_button_new" result diff --git a/GI/Gtk/Objects/MountOperation.hs b/GI/Gtk/Objects/MountOperation.hs --- a/GI/Gtk/Objects/MountOperation.hs +++ b/GI/Gtk/Objects/MountOperation.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** mountOperationGetParent + MountOperationGetParentMethodInfo , mountOperationGetParent , -- ** mountOperationGetScreen + MountOperationGetScreenMethodInfo , mountOperationGetScreen , -- ** mountOperationIsShowing + MountOperationIsShowingMethodInfo , mountOperationIsShowing , @@ -33,10 +37,12 @@ -- ** mountOperationSetParent + MountOperationSetParentMethodInfo , mountOperationSetParent , -- ** mountOperationSetScreen + MountOperationSetScreenMethodInfo , mountOperationSetScreen , @@ -100,6 +106,57 @@ noMountOperation :: Maybe MountOperation noMountOperation = Nothing +type family ResolveMountOperationMethod (t :: Symbol) (o :: *) :: * where + ResolveMountOperationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveMountOperationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveMountOperationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveMountOperationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveMountOperationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveMountOperationMethod "isShowing" o = MountOperationIsShowingMethodInfo + ResolveMountOperationMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveMountOperationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveMountOperationMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveMountOperationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveMountOperationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveMountOperationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveMountOperationMethod "reply" o = Gio.MountOperationReplyMethodInfo + ResolveMountOperationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveMountOperationMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveMountOperationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveMountOperationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveMountOperationMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveMountOperationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveMountOperationMethod "getAnonymous" o = Gio.MountOperationGetAnonymousMethodInfo + ResolveMountOperationMethod "getChoice" o = Gio.MountOperationGetChoiceMethodInfo + ResolveMountOperationMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveMountOperationMethod "getDomain" o = Gio.MountOperationGetDomainMethodInfo + ResolveMountOperationMethod "getParent" o = MountOperationGetParentMethodInfo + ResolveMountOperationMethod "getPassword" o = Gio.MountOperationGetPasswordMethodInfo + ResolveMountOperationMethod "getPasswordSave" o = Gio.MountOperationGetPasswordSaveMethodInfo + ResolveMountOperationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveMountOperationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveMountOperationMethod "getScreen" o = MountOperationGetScreenMethodInfo + ResolveMountOperationMethod "getUsername" o = Gio.MountOperationGetUsernameMethodInfo + ResolveMountOperationMethod "setAnonymous" o = Gio.MountOperationSetAnonymousMethodInfo + ResolveMountOperationMethod "setChoice" o = Gio.MountOperationSetChoiceMethodInfo + ResolveMountOperationMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveMountOperationMethod "setDomain" o = Gio.MountOperationSetDomainMethodInfo + ResolveMountOperationMethod "setParent" o = MountOperationSetParentMethodInfo + ResolveMountOperationMethod "setPassword" o = Gio.MountOperationSetPasswordMethodInfo + ResolveMountOperationMethod "setPasswordSave" o = Gio.MountOperationSetPasswordSaveMethodInfo + ResolveMountOperationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveMountOperationMethod "setScreen" o = MountOperationSetScreenMethodInfo + ResolveMountOperationMethod "setUsername" o = Gio.MountOperationSetUsernameMethodInfo + ResolveMountOperationMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveMountOperationMethod t MountOperation, MethodInfo info MountOperation p) => IsLabelProxy t (MountOperation -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveMountOperationMethod t MountOperation, MethodInfo info MountOperation p) => IsLabel t (MountOperation -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "is-showing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] @@ -113,7 +170,7 @@ type AttrSetTypeConstraint MountOperationIsShowingPropertyInfo = (~) () type AttrBaseTypeConstraint MountOperationIsShowingPropertyInfo = MountOperationK type AttrGetType MountOperationIsShowingPropertyInfo = Bool - type AttrLabel MountOperationIsShowingPropertyInfo = "MountOperation::is-showing" + type AttrLabel MountOperationIsShowingPropertyInfo = "is-showing" attrGet _ = getMountOperationIsShowing attrSet _ = undefined attrConstruct _ = undefined @@ -137,7 +194,7 @@ type AttrSetTypeConstraint MountOperationParentPropertyInfo = WindowK type AttrBaseTypeConstraint MountOperationParentPropertyInfo = MountOperationK type AttrGetType MountOperationParentPropertyInfo = Window - type AttrLabel MountOperationParentPropertyInfo = "MountOperation::parent" + type AttrLabel MountOperationParentPropertyInfo = "parent" attrGet _ = getMountOperationParent attrSet _ = setMountOperationParent attrConstruct _ = constructMountOperationParent @@ -161,22 +218,21 @@ type AttrSetTypeConstraint MountOperationScreenPropertyInfo = Gdk.ScreenK type AttrBaseTypeConstraint MountOperationScreenPropertyInfo = MountOperationK type AttrGetType MountOperationScreenPropertyInfo = Gdk.Screen - type AttrLabel MountOperationScreenPropertyInfo = "MountOperation::screen" + type AttrLabel MountOperationScreenPropertyInfo = "screen" attrGet _ = getMountOperationScreen attrSet _ = setMountOperationScreen attrConstruct _ = constructMountOperationScreen type instance AttributeList MountOperation = MountOperationAttributeList -type MountOperationAttributeList = ('[ '("anonymous", Gio.MountOperationAnonymousPropertyInfo), '("choice", Gio.MountOperationChoicePropertyInfo), '("domain", Gio.MountOperationDomainPropertyInfo), '("is-showing", MountOperationIsShowingPropertyInfo), '("parent", MountOperationParentPropertyInfo), '("password", Gio.MountOperationPasswordPropertyInfo), '("password-save", Gio.MountOperationPasswordSavePropertyInfo), '("screen", MountOperationScreenPropertyInfo), '("username", Gio.MountOperationUsernamePropertyInfo)] :: [(Symbol, *)]) +type MountOperationAttributeList = ('[ '("anonymous", Gio.MountOperationAnonymousPropertyInfo), '("choice", Gio.MountOperationChoicePropertyInfo), '("domain", Gio.MountOperationDomainPropertyInfo), '("isShowing", MountOperationIsShowingPropertyInfo), '("parent", MountOperationParentPropertyInfo), '("password", Gio.MountOperationPasswordPropertyInfo), '("passwordSave", Gio.MountOperationPasswordSavePropertyInfo), '("screen", MountOperationScreenPropertyInfo), '("username", Gio.MountOperationUsernamePropertyInfo)] :: [(Symbol, *)]) type instance SignalList MountOperation = MountOperationSignalList -type MountOperationSignalList = ('[ '("aborted", Gio.MountOperationAbortedSignalInfo), '("ask-password", Gio.MountOperationAskPasswordSignalInfo), '("ask-question", Gio.MountOperationAskQuestionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("reply", Gio.MountOperationReplySignalInfo), '("show-processes", Gio.MountOperationShowProcessesSignalInfo), '("show-unmount-progress", Gio.MountOperationShowUnmountProgressSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MountOperationSignalList = ('[ '("aborted", Gio.MountOperationAbortedSignalInfo), '("askPassword", Gio.MountOperationAskPasswordSignalInfo), '("askQuestion", Gio.MountOperationAskQuestionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("reply", Gio.MountOperationReplySignalInfo), '("showProcesses", Gio.MountOperationShowProcessesSignalInfo), '("showUnmountProgress", Gio.MountOperationShowUnmountProgressSignalInfo)] :: [(Symbol, *)]) -- method MountOperation::new -- method type : Constructor --- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "MountOperation" -- throws : False -- Skip return : False @@ -188,8 +244,8 @@ mountOperationNew :: (MonadIO m, WindowK a) => - Maybe (a) -> -- parent - m MountOperation + Maybe (a) -- parent + -> m MountOperation -- result mountOperationNew parent = liftIO $ do maybeParent <- case parent of Nothing -> return nullPtr @@ -204,9 +260,8 @@ -- method MountOperation::get_parent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Window" -- throws : False -- Skip return : False @@ -218,8 +273,8 @@ mountOperationGetParent :: (MonadIO m, MountOperationK a) => - a -> -- _obj - m Window + a -- _obj + -> m Window -- result mountOperationGetParent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_mount_operation_get_parent _obj' @@ -228,11 +283,14 @@ touchManagedPtr _obj return result' +data MountOperationGetParentMethodInfo +instance (signature ~ (m Window), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetParentMethodInfo a signature where + overloadedMethod _ = mountOperationGetParent + -- method MountOperation::get_screen -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Screen" -- throws : False -- Skip return : False @@ -244,8 +302,8 @@ mountOperationGetScreen :: (MonadIO m, MountOperationK a) => - a -> -- _obj - m Gdk.Screen + a -- _obj + -> m Gdk.Screen -- result mountOperationGetScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_mount_operation_get_screen _obj' @@ -254,11 +312,14 @@ touchManagedPtr _obj return result' +data MountOperationGetScreenMethodInfo +instance (signature ~ (m Gdk.Screen), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetScreenMethodInfo a signature where + overloadedMethod _ = mountOperationGetScreen + -- method MountOperation::is_showing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -270,8 +331,8 @@ mountOperationIsShowing :: (MonadIO m, MountOperationK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result mountOperationIsShowing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_mount_operation_is_showing _obj' @@ -279,11 +340,14 @@ touchManagedPtr _obj return result' +data MountOperationIsShowingMethodInfo +instance (signature ~ (m Bool), MonadIO m, MountOperationK a) => MethodInfo MountOperationIsShowingMethodInfo a signature where + overloadedMethod _ = mountOperationIsShowing + -- method MountOperation::set_parent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -296,9 +360,9 @@ mountOperationSetParent :: (MonadIO m, MountOperationK a, WindowK b) => - a -> -- _obj - Maybe (b) -> -- parent - m () + a -- _obj + -> Maybe (b) -- parent + -> m () -- result mountOperationSetParent _obj parent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeParent <- case parent of @@ -311,11 +375,14 @@ whenJust parent touchManagedPtr return () +data MountOperationSetParentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MountOperationK a, WindowK b) => MethodInfo MountOperationSetParentMethodInfo a signature where + overloadedMethod _ = mountOperationSetParent + -- method MountOperation::set_screen -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -328,9 +395,9 @@ mountOperationSetScreen :: (MonadIO m, MountOperationK a, Gdk.ScreenK b) => - a -> -- _obj - b -> -- screen - m () + a -- _obj + -> b -- screen + -> m () -- result mountOperationSetScreen _obj screen = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let screen' = unsafeManagedPtrCastPtr screen @@ -338,5 +405,9 @@ touchManagedPtr _obj touchManagedPtr screen return () + +data MountOperationSetScreenMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, MountOperationK a, Gdk.ScreenK b) => MethodInfo MountOperationSetScreenMethodInfo a signature where + overloadedMethod _ = mountOperationSetScreen diff --git a/GI/Gtk/Objects/MountOperation.hs-boot b/GI/Gtk/Objects/MountOperation.hs-boot --- a/GI/Gtk/Objects/MountOperation.hs-boot +++ b/GI/Gtk/Objects/MountOperation.hs-boot @@ -14,3 +14,8 @@ data MountOperationIsShowingPropertyInfo data MountOperationParentPropertyInfo data MountOperationScreenPropertyInfo +data MountOperationGetParentMethodInfo +data MountOperationGetScreenMethodInfo +data MountOperationIsShowingMethodInfo +data MountOperationSetParentMethodInfo +data MountOperationSetScreenMethodInfo diff --git a/GI/Gtk/Objects/Notebook.hs b/GI/Gtk/Objects/Notebook.hs --- a/GI/Gtk/Objects/Notebook.hs +++ b/GI/Gtk/Objects/Notebook.hs @@ -1,2412 +1,2954 @@ -{- | -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.Objects.Notebook - ( - --- * Exported types - Notebook(..) , - NotebookK , - toNotebook , - noNotebook , - - - -- * Methods --- ** notebookAppendPage - notebookAppendPage , - - --- ** notebookAppendPageMenu - notebookAppendPageMenu , - - --- ** notebookDetachTab - notebookDetachTab , - - --- ** notebookGetActionWidget - notebookGetActionWidget , - - --- ** notebookGetCurrentPage - notebookGetCurrentPage , - - --- ** notebookGetGroupName - notebookGetGroupName , - - --- ** notebookGetMenuLabel - notebookGetMenuLabel , - - --- ** notebookGetMenuLabelText - notebookGetMenuLabelText , - - --- ** notebookGetNPages - notebookGetNPages , - - --- ** notebookGetNthPage - notebookGetNthPage , - - --- ** notebookGetScrollable - notebookGetScrollable , - - --- ** notebookGetShowBorder - notebookGetShowBorder , - - --- ** notebookGetShowTabs - notebookGetShowTabs , - - --- ** notebookGetTabDetachable - notebookGetTabDetachable , - - --- ** notebookGetTabHborder - notebookGetTabHborder , - - --- ** notebookGetTabLabel - notebookGetTabLabel , - - --- ** notebookGetTabLabelText - notebookGetTabLabelText , - - --- ** notebookGetTabPos - notebookGetTabPos , - - --- ** notebookGetTabReorderable - notebookGetTabReorderable , - - --- ** notebookGetTabVborder - notebookGetTabVborder , - - --- ** notebookInsertPage - notebookInsertPage , - - --- ** notebookInsertPageMenu - notebookInsertPageMenu , - - --- ** notebookNew - notebookNew , - - --- ** notebookNextPage - notebookNextPage , - - --- ** notebookPageNum - notebookPageNum , - - --- ** notebookPopupDisable - notebookPopupDisable , - - --- ** notebookPopupEnable - notebookPopupEnable , - - --- ** notebookPrependPage - notebookPrependPage , - - --- ** notebookPrependPageMenu - notebookPrependPageMenu , - - --- ** notebookPrevPage - notebookPrevPage , - - --- ** notebookRemovePage - notebookRemovePage , - - --- ** notebookReorderChild - notebookReorderChild , - - --- ** notebookSetActionWidget - notebookSetActionWidget , - - --- ** notebookSetCurrentPage - notebookSetCurrentPage , - - --- ** notebookSetGroupName - notebookSetGroupName , - - --- ** notebookSetMenuLabel - notebookSetMenuLabel , - - --- ** notebookSetMenuLabelText - notebookSetMenuLabelText , - - --- ** notebookSetScrollable - notebookSetScrollable , - - --- ** notebookSetShowBorder - notebookSetShowBorder , - - --- ** notebookSetShowTabs - notebookSetShowTabs , - - --- ** notebookSetTabDetachable - notebookSetTabDetachable , - - --- ** notebookSetTabLabel - notebookSetTabLabel , - - --- ** notebookSetTabLabelText - notebookSetTabLabelText , - - --- ** notebookSetTabPos - notebookSetTabPos , - - --- ** notebookSetTabReorderable - notebookSetTabReorderable , - - - - - -- * Properties --- ** EnablePopup - NotebookEnablePopupPropertyInfo , - constructNotebookEnablePopup , - getNotebookEnablePopup , - setNotebookEnablePopup , - - --- ** GroupName - NotebookGroupNamePropertyInfo , - constructNotebookGroupName , - getNotebookGroupName , - setNotebookGroupName , - - --- ** Page - NotebookPagePropertyInfo , - constructNotebookPage , - getNotebookPage , - setNotebookPage , - - --- ** Scrollable - NotebookScrollablePropertyInfo , - constructNotebookScrollable , - getNotebookScrollable , - setNotebookScrollable , - - --- ** ShowBorder - NotebookShowBorderPropertyInfo , - constructNotebookShowBorder , - getNotebookShowBorder , - setNotebookShowBorder , - - --- ** ShowTabs - NotebookShowTabsPropertyInfo , - constructNotebookShowTabs , - getNotebookShowTabs , - setNotebookShowTabs , - - --- ** TabPos - NotebookTabPosPropertyInfo , - constructNotebookTabPos , - getNotebookTabPos , - setNotebookTabPos , - - - - - -- * Signals --- ** ChangeCurrentPage - NotebookChangeCurrentPageCallback , - NotebookChangeCurrentPageCallbackC , - NotebookChangeCurrentPageSignalInfo , - afterNotebookChangeCurrentPage , - mkNotebookChangeCurrentPageCallback , - noNotebookChangeCurrentPageCallback , - notebookChangeCurrentPageCallbackWrapper, - notebookChangeCurrentPageClosure , - onNotebookChangeCurrentPage , - - --- ** CreateWindow - NotebookCreateWindowCallback , - NotebookCreateWindowCallbackC , - NotebookCreateWindowSignalInfo , - afterNotebookCreateWindow , - mkNotebookCreateWindowCallback , - noNotebookCreateWindowCallback , - notebookCreateWindowCallbackWrapper , - notebookCreateWindowClosure , - onNotebookCreateWindow , - - --- ** FocusTab - NotebookFocusTabCallback , - NotebookFocusTabCallbackC , - NotebookFocusTabSignalInfo , - afterNotebookFocusTab , - mkNotebookFocusTabCallback , - noNotebookFocusTabCallback , - notebookFocusTabCallbackWrapper , - notebookFocusTabClosure , - onNotebookFocusTab , - - --- ** MoveFocusOut - NotebookMoveFocusOutCallback , - NotebookMoveFocusOutCallbackC , - NotebookMoveFocusOutSignalInfo , - afterNotebookMoveFocusOut , - mkNotebookMoveFocusOutCallback , - noNotebookMoveFocusOutCallback , - notebookMoveFocusOutCallbackWrapper , - notebookMoveFocusOutClosure , - onNotebookMoveFocusOut , - - --- ** PageAdded - NotebookPageAddedCallback , - NotebookPageAddedCallbackC , - NotebookPageAddedSignalInfo , - afterNotebookPageAdded , - mkNotebookPageAddedCallback , - noNotebookPageAddedCallback , - notebookPageAddedCallbackWrapper , - notebookPageAddedClosure , - onNotebookPageAdded , - - --- ** PageRemoved - NotebookPageRemovedCallback , - NotebookPageRemovedCallbackC , - NotebookPageRemovedSignalInfo , - afterNotebookPageRemoved , - mkNotebookPageRemovedCallback , - noNotebookPageRemovedCallback , - notebookPageRemovedCallbackWrapper , - notebookPageRemovedClosure , - onNotebookPageRemoved , - - --- ** PageReordered - NotebookPageReorderedCallback , - NotebookPageReorderedCallbackC , - NotebookPageReorderedSignalInfo , - afterNotebookPageReordered , - mkNotebookPageReorderedCallback , - noNotebookPageReorderedCallback , - notebookPageReorderedCallbackWrapper , - notebookPageReorderedClosure , - onNotebookPageReordered , - - --- ** ReorderTab - NotebookReorderTabCallback , - NotebookReorderTabCallbackC , - NotebookReorderTabSignalInfo , - afterNotebookReorderTab , - mkNotebookReorderTabCallback , - noNotebookReorderTabCallback , - notebookReorderTabCallbackWrapper , - notebookReorderTabClosure , - onNotebookReorderTab , - - --- ** SelectPage - NotebookSelectPageCallback , - NotebookSelectPageCallbackC , - NotebookSelectPageSignalInfo , - afterNotebookSelectPage , - mkNotebookSelectPageCallback , - noNotebookSelectPageCallback , - notebookSelectPageCallbackWrapper , - notebookSelectPageClosure , - onNotebookSelectPage , - - --- ** SwitchPage - NotebookSwitchPageCallback , - NotebookSwitchPageCallbackC , - NotebookSwitchPageSignalInfo , - afterNotebookSwitchPage , - mkNotebookSwitchPageCallback , - noNotebookSwitchPageCallback , - notebookSwitchPageCallbackWrapper , - notebookSwitchPageClosure , - onNotebookSwitchPage , - - - - - ) 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.Atk as Atk -import qualified GI.GObject as GObject - -newtype Notebook = Notebook (ForeignPtr Notebook) -foreign import ccall "gtk_notebook_get_type" - c_gtk_notebook_get_type :: IO GType - -type instance ParentTypes Notebook = NotebookParentTypes -type NotebookParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Notebook where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_notebook_get_type - - -class GObject o => NotebookK o -instance (GObject o, IsDescendantOf Notebook o) => NotebookK o - -toNotebook :: NotebookK o => o -> IO Notebook -toNotebook = unsafeCastTo Notebook - -noNotebook :: Maybe Notebook -noNotebook = Nothing - --- signal Notebook::change-current-page -type NotebookChangeCurrentPageCallback = - Int32 -> - IO Bool - -noNotebookChangeCurrentPageCallback :: Maybe NotebookChangeCurrentPageCallback -noNotebookChangeCurrentPageCallback = Nothing - -type NotebookChangeCurrentPageCallbackC = - Ptr () -> -- object - Int32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkNotebookChangeCurrentPageCallback :: NotebookChangeCurrentPageCallbackC -> IO (FunPtr NotebookChangeCurrentPageCallbackC) - -notebookChangeCurrentPageClosure :: NotebookChangeCurrentPageCallback -> IO Closure -notebookChangeCurrentPageClosure cb = newCClosure =<< mkNotebookChangeCurrentPageCallback wrapped - where wrapped = notebookChangeCurrentPageCallbackWrapper cb - -notebookChangeCurrentPageCallbackWrapper :: - NotebookChangeCurrentPageCallback -> - Ptr () -> - Int32 -> - Ptr () -> - IO CInt -notebookChangeCurrentPageCallbackWrapper _cb _ object _ = do - result <- _cb object - let result' = (fromIntegral . fromEnum) result - return result' - -onNotebookChangeCurrentPage :: (GObject a, MonadIO m) => a -> NotebookChangeCurrentPageCallback -> m SignalHandlerId -onNotebookChangeCurrentPage obj cb = liftIO $ connectNotebookChangeCurrentPage obj cb SignalConnectBefore -afterNotebookChangeCurrentPage :: (GObject a, MonadIO m) => a -> NotebookChangeCurrentPageCallback -> m SignalHandlerId -afterNotebookChangeCurrentPage obj cb = connectNotebookChangeCurrentPage obj cb SignalConnectAfter - -connectNotebookChangeCurrentPage :: (GObject a, MonadIO m) => - a -> NotebookChangeCurrentPageCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookChangeCurrentPage obj cb after = liftIO $ do - cb' <- mkNotebookChangeCurrentPageCallback (notebookChangeCurrentPageCallbackWrapper cb) - connectSignalFunPtr obj "change-current-page" cb' after - --- signal Notebook::create-window -type NotebookCreateWindowCallback = - Widget -> - Int32 -> - Int32 -> - IO Notebook - -noNotebookCreateWindowCallback :: Maybe NotebookCreateWindowCallback -noNotebookCreateWindowCallback = Nothing - -type NotebookCreateWindowCallbackC = - Ptr () -> -- object - Ptr Widget -> - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO (Ptr Notebook) - -foreign import ccall "wrapper" - mkNotebookCreateWindowCallback :: NotebookCreateWindowCallbackC -> IO (FunPtr NotebookCreateWindowCallbackC) - -notebookCreateWindowClosure :: NotebookCreateWindowCallback -> IO Closure -notebookCreateWindowClosure cb = newCClosure =<< mkNotebookCreateWindowCallback wrapped - where wrapped = notebookCreateWindowCallbackWrapper cb - -notebookCreateWindowCallbackWrapper :: - NotebookCreateWindowCallback -> - Ptr () -> - Ptr Widget -> - Int32 -> - Int32 -> - Ptr () -> - IO (Ptr Notebook) -notebookCreateWindowCallbackWrapper _cb _ page x y _ = do - page' <- (newObject Widget) page - result <- _cb page' x y - let result' = unsafeManagedPtrCastPtr result - return result' - -onNotebookCreateWindow :: (GObject a, MonadIO m) => a -> NotebookCreateWindowCallback -> m SignalHandlerId -onNotebookCreateWindow obj cb = liftIO $ connectNotebookCreateWindow obj cb SignalConnectBefore -afterNotebookCreateWindow :: (GObject a, MonadIO m) => a -> NotebookCreateWindowCallback -> m SignalHandlerId -afterNotebookCreateWindow obj cb = connectNotebookCreateWindow obj cb SignalConnectAfter - -connectNotebookCreateWindow :: (GObject a, MonadIO m) => - a -> NotebookCreateWindowCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookCreateWindow obj cb after = liftIO $ do - cb' <- mkNotebookCreateWindowCallback (notebookCreateWindowCallbackWrapper cb) - connectSignalFunPtr obj "create-window" cb' after - --- signal Notebook::focus-tab -type NotebookFocusTabCallback = - NotebookTab -> - IO Bool - -noNotebookFocusTabCallback :: Maybe NotebookFocusTabCallback -noNotebookFocusTabCallback = Nothing - -type NotebookFocusTabCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkNotebookFocusTabCallback :: NotebookFocusTabCallbackC -> IO (FunPtr NotebookFocusTabCallbackC) - -notebookFocusTabClosure :: NotebookFocusTabCallback -> IO Closure -notebookFocusTabClosure cb = newCClosure =<< mkNotebookFocusTabCallback wrapped - where wrapped = notebookFocusTabCallbackWrapper cb - -notebookFocusTabCallbackWrapper :: - NotebookFocusTabCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO CInt -notebookFocusTabCallbackWrapper _cb _ object _ = do - let object' = (toEnum . fromIntegral) object - result <- _cb object' - let result' = (fromIntegral . fromEnum) result - return result' - -onNotebookFocusTab :: (GObject a, MonadIO m) => a -> NotebookFocusTabCallback -> m SignalHandlerId -onNotebookFocusTab obj cb = liftIO $ connectNotebookFocusTab obj cb SignalConnectBefore -afterNotebookFocusTab :: (GObject a, MonadIO m) => a -> NotebookFocusTabCallback -> m SignalHandlerId -afterNotebookFocusTab obj cb = connectNotebookFocusTab obj cb SignalConnectAfter - -connectNotebookFocusTab :: (GObject a, MonadIO m) => - a -> NotebookFocusTabCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookFocusTab obj cb after = liftIO $ do - cb' <- mkNotebookFocusTabCallback (notebookFocusTabCallbackWrapper cb) - connectSignalFunPtr obj "focus-tab" cb' after - --- signal Notebook::move-focus-out -type NotebookMoveFocusOutCallback = - DirectionType -> - IO () - -noNotebookMoveFocusOutCallback :: Maybe NotebookMoveFocusOutCallback -noNotebookMoveFocusOutCallback = Nothing - -type NotebookMoveFocusOutCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNotebookMoveFocusOutCallback :: NotebookMoveFocusOutCallbackC -> IO (FunPtr NotebookMoveFocusOutCallbackC) - -notebookMoveFocusOutClosure :: NotebookMoveFocusOutCallback -> IO Closure -notebookMoveFocusOutClosure cb = newCClosure =<< mkNotebookMoveFocusOutCallback wrapped - where wrapped = notebookMoveFocusOutCallbackWrapper cb - -notebookMoveFocusOutCallbackWrapper :: - NotebookMoveFocusOutCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -notebookMoveFocusOutCallbackWrapper _cb _ object _ = do - let object' = (toEnum . fromIntegral) object - _cb object' - -onNotebookMoveFocusOut :: (GObject a, MonadIO m) => a -> NotebookMoveFocusOutCallback -> m SignalHandlerId -onNotebookMoveFocusOut obj cb = liftIO $ connectNotebookMoveFocusOut obj cb SignalConnectBefore -afterNotebookMoveFocusOut :: (GObject a, MonadIO m) => a -> NotebookMoveFocusOutCallback -> m SignalHandlerId -afterNotebookMoveFocusOut obj cb = connectNotebookMoveFocusOut obj cb SignalConnectAfter - -connectNotebookMoveFocusOut :: (GObject a, MonadIO m) => - a -> NotebookMoveFocusOutCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookMoveFocusOut obj cb after = liftIO $ do - cb' <- mkNotebookMoveFocusOutCallback (notebookMoveFocusOutCallbackWrapper cb) - connectSignalFunPtr obj "move-focus-out" cb' after - --- signal Notebook::page-added -type NotebookPageAddedCallback = - Widget -> - Word32 -> - IO () - -noNotebookPageAddedCallback :: Maybe NotebookPageAddedCallback -noNotebookPageAddedCallback = Nothing - -type NotebookPageAddedCallbackC = - Ptr () -> -- object - Ptr Widget -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNotebookPageAddedCallback :: NotebookPageAddedCallbackC -> IO (FunPtr NotebookPageAddedCallbackC) - -notebookPageAddedClosure :: NotebookPageAddedCallback -> IO Closure -notebookPageAddedClosure cb = newCClosure =<< mkNotebookPageAddedCallback wrapped - where wrapped = notebookPageAddedCallbackWrapper cb - -notebookPageAddedCallbackWrapper :: - NotebookPageAddedCallback -> - Ptr () -> - Ptr Widget -> - Word32 -> - Ptr () -> - IO () -notebookPageAddedCallbackWrapper _cb _ child page_num _ = do - child' <- (newObject Widget) child - _cb child' page_num - -onNotebookPageAdded :: (GObject a, MonadIO m) => a -> NotebookPageAddedCallback -> m SignalHandlerId -onNotebookPageAdded obj cb = liftIO $ connectNotebookPageAdded obj cb SignalConnectBefore -afterNotebookPageAdded :: (GObject a, MonadIO m) => a -> NotebookPageAddedCallback -> m SignalHandlerId -afterNotebookPageAdded obj cb = connectNotebookPageAdded obj cb SignalConnectAfter - -connectNotebookPageAdded :: (GObject a, MonadIO m) => - a -> NotebookPageAddedCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookPageAdded obj cb after = liftIO $ do - cb' <- mkNotebookPageAddedCallback (notebookPageAddedCallbackWrapper cb) - connectSignalFunPtr obj "page-added" cb' after - --- signal Notebook::page-removed -type NotebookPageRemovedCallback = - Widget -> - Word32 -> - IO () - -noNotebookPageRemovedCallback :: Maybe NotebookPageRemovedCallback -noNotebookPageRemovedCallback = Nothing - -type NotebookPageRemovedCallbackC = - Ptr () -> -- object - Ptr Widget -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNotebookPageRemovedCallback :: NotebookPageRemovedCallbackC -> IO (FunPtr NotebookPageRemovedCallbackC) - -notebookPageRemovedClosure :: NotebookPageRemovedCallback -> IO Closure -notebookPageRemovedClosure cb = newCClosure =<< mkNotebookPageRemovedCallback wrapped - where wrapped = notebookPageRemovedCallbackWrapper cb - -notebookPageRemovedCallbackWrapper :: - NotebookPageRemovedCallback -> - Ptr () -> - Ptr Widget -> - Word32 -> - Ptr () -> - IO () -notebookPageRemovedCallbackWrapper _cb _ child page_num _ = do - child' <- (newObject Widget) child - _cb child' page_num - -onNotebookPageRemoved :: (GObject a, MonadIO m) => a -> NotebookPageRemovedCallback -> m SignalHandlerId -onNotebookPageRemoved obj cb = liftIO $ connectNotebookPageRemoved obj cb SignalConnectBefore -afterNotebookPageRemoved :: (GObject a, MonadIO m) => a -> NotebookPageRemovedCallback -> m SignalHandlerId -afterNotebookPageRemoved obj cb = connectNotebookPageRemoved obj cb SignalConnectAfter - -connectNotebookPageRemoved :: (GObject a, MonadIO m) => - a -> NotebookPageRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookPageRemoved obj cb after = liftIO $ do - cb' <- mkNotebookPageRemovedCallback (notebookPageRemovedCallbackWrapper cb) - connectSignalFunPtr obj "page-removed" cb' after - --- signal Notebook::page-reordered -type NotebookPageReorderedCallback = - Widget -> - Word32 -> - IO () - -noNotebookPageReorderedCallback :: Maybe NotebookPageReorderedCallback -noNotebookPageReorderedCallback = Nothing - -type NotebookPageReorderedCallbackC = - Ptr () -> -- object - Ptr Widget -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNotebookPageReorderedCallback :: NotebookPageReorderedCallbackC -> IO (FunPtr NotebookPageReorderedCallbackC) - -notebookPageReorderedClosure :: NotebookPageReorderedCallback -> IO Closure -notebookPageReorderedClosure cb = newCClosure =<< mkNotebookPageReorderedCallback wrapped - where wrapped = notebookPageReorderedCallbackWrapper cb - -notebookPageReorderedCallbackWrapper :: - NotebookPageReorderedCallback -> - Ptr () -> - Ptr Widget -> - Word32 -> - Ptr () -> - IO () -notebookPageReorderedCallbackWrapper _cb _ child page_num _ = do - child' <- (newObject Widget) child - _cb child' page_num - -onNotebookPageReordered :: (GObject a, MonadIO m) => a -> NotebookPageReorderedCallback -> m SignalHandlerId -onNotebookPageReordered obj cb = liftIO $ connectNotebookPageReordered obj cb SignalConnectBefore -afterNotebookPageReordered :: (GObject a, MonadIO m) => a -> NotebookPageReorderedCallback -> m SignalHandlerId -afterNotebookPageReordered obj cb = connectNotebookPageReordered obj cb SignalConnectAfter - -connectNotebookPageReordered :: (GObject a, MonadIO m) => - a -> NotebookPageReorderedCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookPageReordered obj cb after = liftIO $ do - cb' <- mkNotebookPageReorderedCallback (notebookPageReorderedCallbackWrapper cb) - connectSignalFunPtr obj "page-reordered" cb' after - --- signal Notebook::reorder-tab -type NotebookReorderTabCallback = - DirectionType -> - Bool -> - IO Bool - -noNotebookReorderTabCallback :: Maybe NotebookReorderTabCallback -noNotebookReorderTabCallback = Nothing - -type NotebookReorderTabCallbackC = - Ptr () -> -- object - CUInt -> - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkNotebookReorderTabCallback :: NotebookReorderTabCallbackC -> IO (FunPtr NotebookReorderTabCallbackC) - -notebookReorderTabClosure :: NotebookReorderTabCallback -> IO Closure -notebookReorderTabClosure cb = newCClosure =<< mkNotebookReorderTabCallback wrapped - where wrapped = notebookReorderTabCallbackWrapper cb - -notebookReorderTabCallbackWrapper :: - NotebookReorderTabCallback -> - Ptr () -> - CUInt -> - CInt -> - Ptr () -> - IO CInt -notebookReorderTabCallbackWrapper _cb _ object p0 _ = do - let object' = (toEnum . fromIntegral) object - let p0' = (/= 0) p0 - result <- _cb object' p0' - let result' = (fromIntegral . fromEnum) result - return result' - -onNotebookReorderTab :: (GObject a, MonadIO m) => a -> NotebookReorderTabCallback -> m SignalHandlerId -onNotebookReorderTab obj cb = liftIO $ connectNotebookReorderTab obj cb SignalConnectBefore -afterNotebookReorderTab :: (GObject a, MonadIO m) => a -> NotebookReorderTabCallback -> m SignalHandlerId -afterNotebookReorderTab obj cb = connectNotebookReorderTab obj cb SignalConnectAfter - -connectNotebookReorderTab :: (GObject a, MonadIO m) => - a -> NotebookReorderTabCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookReorderTab obj cb after = liftIO $ do - cb' <- mkNotebookReorderTabCallback (notebookReorderTabCallbackWrapper cb) - connectSignalFunPtr obj "reorder-tab" cb' after - --- signal Notebook::select-page -type NotebookSelectPageCallback = - Bool -> - IO Bool - -noNotebookSelectPageCallback :: Maybe NotebookSelectPageCallback -noNotebookSelectPageCallback = Nothing - -type NotebookSelectPageCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkNotebookSelectPageCallback :: NotebookSelectPageCallbackC -> IO (FunPtr NotebookSelectPageCallbackC) - -notebookSelectPageClosure :: NotebookSelectPageCallback -> IO Closure -notebookSelectPageClosure cb = newCClosure =<< mkNotebookSelectPageCallback wrapped - where wrapped = notebookSelectPageCallbackWrapper cb - -notebookSelectPageCallbackWrapper :: - NotebookSelectPageCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -notebookSelectPageCallbackWrapper _cb _ object _ = do - let object' = (/= 0) object - result <- _cb object' - let result' = (fromIntegral . fromEnum) result - return result' - -onNotebookSelectPage :: (GObject a, MonadIO m) => a -> NotebookSelectPageCallback -> m SignalHandlerId -onNotebookSelectPage obj cb = liftIO $ connectNotebookSelectPage obj cb SignalConnectBefore -afterNotebookSelectPage :: (GObject a, MonadIO m) => a -> NotebookSelectPageCallback -> m SignalHandlerId -afterNotebookSelectPage obj cb = connectNotebookSelectPage obj cb SignalConnectAfter - -connectNotebookSelectPage :: (GObject a, MonadIO m) => - a -> NotebookSelectPageCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookSelectPage obj cb after = liftIO $ do - cb' <- mkNotebookSelectPageCallback (notebookSelectPageCallbackWrapper cb) - connectSignalFunPtr obj "select-page" cb' after - --- signal Notebook::switch-page -type NotebookSwitchPageCallback = - Widget -> - Word32 -> - IO () - -noNotebookSwitchPageCallback :: Maybe NotebookSwitchPageCallback -noNotebookSwitchPageCallback = Nothing - -type NotebookSwitchPageCallbackC = - Ptr () -> -- object - Ptr Widget -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNotebookSwitchPageCallback :: NotebookSwitchPageCallbackC -> IO (FunPtr NotebookSwitchPageCallbackC) - -notebookSwitchPageClosure :: NotebookSwitchPageCallback -> IO Closure -notebookSwitchPageClosure cb = newCClosure =<< mkNotebookSwitchPageCallback wrapped - where wrapped = notebookSwitchPageCallbackWrapper cb - -notebookSwitchPageCallbackWrapper :: - NotebookSwitchPageCallback -> - Ptr () -> - Ptr Widget -> - Word32 -> - Ptr () -> - IO () -notebookSwitchPageCallbackWrapper _cb _ page page_num _ = do - page' <- (newObject Widget) page - _cb page' page_num - -onNotebookSwitchPage :: (GObject a, MonadIO m) => a -> NotebookSwitchPageCallback -> m SignalHandlerId -onNotebookSwitchPage obj cb = liftIO $ connectNotebookSwitchPage obj cb SignalConnectBefore -afterNotebookSwitchPage :: (GObject a, MonadIO m) => a -> NotebookSwitchPageCallback -> m SignalHandlerId -afterNotebookSwitchPage obj cb = connectNotebookSwitchPage obj cb SignalConnectAfter - -connectNotebookSwitchPage :: (GObject a, MonadIO m) => - a -> NotebookSwitchPageCallback -> SignalConnectMode -> m SignalHandlerId -connectNotebookSwitchPage obj cb after = liftIO $ do - cb' <- mkNotebookSwitchPageCallback (notebookSwitchPageCallbackWrapper cb) - connectSignalFunPtr obj "switch-page" cb' after - --- VVV Prop "enable-popup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getNotebookEnablePopup :: (MonadIO m, NotebookK o) => o -> m Bool -getNotebookEnablePopup obj = liftIO $ getObjectPropertyBool obj "enable-popup" - -setNotebookEnablePopup :: (MonadIO m, NotebookK o) => o -> Bool -> m () -setNotebookEnablePopup obj val = liftIO $ setObjectPropertyBool obj "enable-popup" val - -constructNotebookEnablePopup :: Bool -> IO ([Char], GValue) -constructNotebookEnablePopup val = constructObjectPropertyBool "enable-popup" val - -data NotebookEnablePopupPropertyInfo -instance AttrInfo NotebookEnablePopupPropertyInfo where - type AttrAllowedOps NotebookEnablePopupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookEnablePopupPropertyInfo = (~) Bool - type AttrBaseTypeConstraint NotebookEnablePopupPropertyInfo = NotebookK - type AttrGetType NotebookEnablePopupPropertyInfo = Bool - type AttrLabel NotebookEnablePopupPropertyInfo = "Notebook::enable-popup" - attrGet _ = getNotebookEnablePopup - attrSet _ = setNotebookEnablePopup - attrConstruct _ = constructNotebookEnablePopup - --- VVV Prop "group-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getNotebookGroupName :: (MonadIO m, NotebookK o) => o -> m T.Text -getNotebookGroupName obj = liftIO $ getObjectPropertyString obj "group-name" - -setNotebookGroupName :: (MonadIO m, NotebookK o) => o -> T.Text -> m () -setNotebookGroupName obj val = liftIO $ setObjectPropertyString obj "group-name" val - -constructNotebookGroupName :: T.Text -> IO ([Char], GValue) -constructNotebookGroupName val = constructObjectPropertyString "group-name" val - -data NotebookGroupNamePropertyInfo -instance AttrInfo NotebookGroupNamePropertyInfo where - type AttrAllowedOps NotebookGroupNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookGroupNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NotebookGroupNamePropertyInfo = NotebookK - type AttrGetType NotebookGroupNamePropertyInfo = T.Text - type AttrLabel NotebookGroupNamePropertyInfo = "Notebook::group-name" - attrGet _ = getNotebookGroupName - attrSet _ = setNotebookGroupName - attrConstruct _ = constructNotebookGroupName - --- VVV Prop "page" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getNotebookPage :: (MonadIO m, NotebookK o) => o -> m Int32 -getNotebookPage obj = liftIO $ getObjectPropertyCInt obj "page" - -setNotebookPage :: (MonadIO m, NotebookK o) => o -> Int32 -> m () -setNotebookPage obj val = liftIO $ setObjectPropertyCInt obj "page" val - -constructNotebookPage :: Int32 -> IO ([Char], GValue) -constructNotebookPage val = constructObjectPropertyCInt "page" val - -data NotebookPagePropertyInfo -instance AttrInfo NotebookPagePropertyInfo where - type AttrAllowedOps NotebookPagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookPagePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint NotebookPagePropertyInfo = NotebookK - type AttrGetType NotebookPagePropertyInfo = Int32 - type AttrLabel NotebookPagePropertyInfo = "Notebook::page" - attrGet _ = getNotebookPage - attrSet _ = setNotebookPage - attrConstruct _ = constructNotebookPage - --- VVV Prop "scrollable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getNotebookScrollable :: (MonadIO m, NotebookK o) => o -> m Bool -getNotebookScrollable obj = liftIO $ getObjectPropertyBool obj "scrollable" - -setNotebookScrollable :: (MonadIO m, NotebookK o) => o -> Bool -> m () -setNotebookScrollable obj val = liftIO $ setObjectPropertyBool obj "scrollable" val - -constructNotebookScrollable :: Bool -> IO ([Char], GValue) -constructNotebookScrollable val = constructObjectPropertyBool "scrollable" val - -data NotebookScrollablePropertyInfo -instance AttrInfo NotebookScrollablePropertyInfo where - type AttrAllowedOps NotebookScrollablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookScrollablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint NotebookScrollablePropertyInfo = NotebookK - type AttrGetType NotebookScrollablePropertyInfo = Bool - type AttrLabel NotebookScrollablePropertyInfo = "Notebook::scrollable" - attrGet _ = getNotebookScrollable - attrSet _ = setNotebookScrollable - attrConstruct _ = constructNotebookScrollable - --- VVV Prop "show-border" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getNotebookShowBorder :: (MonadIO m, NotebookK o) => o -> m Bool -getNotebookShowBorder obj = liftIO $ getObjectPropertyBool obj "show-border" - -setNotebookShowBorder :: (MonadIO m, NotebookK o) => o -> Bool -> m () -setNotebookShowBorder obj val = liftIO $ setObjectPropertyBool obj "show-border" val - -constructNotebookShowBorder :: Bool -> IO ([Char], GValue) -constructNotebookShowBorder val = constructObjectPropertyBool "show-border" val - -data NotebookShowBorderPropertyInfo -instance AttrInfo NotebookShowBorderPropertyInfo where - type AttrAllowedOps NotebookShowBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookShowBorderPropertyInfo = (~) Bool - type AttrBaseTypeConstraint NotebookShowBorderPropertyInfo = NotebookK - type AttrGetType NotebookShowBorderPropertyInfo = Bool - type AttrLabel NotebookShowBorderPropertyInfo = "Notebook::show-border" - attrGet _ = getNotebookShowBorder - attrSet _ = setNotebookShowBorder - attrConstruct _ = constructNotebookShowBorder - --- VVV Prop "show-tabs" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getNotebookShowTabs :: (MonadIO m, NotebookK o) => o -> m Bool -getNotebookShowTabs obj = liftIO $ getObjectPropertyBool obj "show-tabs" - -setNotebookShowTabs :: (MonadIO m, NotebookK o) => o -> Bool -> m () -setNotebookShowTabs obj val = liftIO $ setObjectPropertyBool obj "show-tabs" val - -constructNotebookShowTabs :: Bool -> IO ([Char], GValue) -constructNotebookShowTabs val = constructObjectPropertyBool "show-tabs" val - -data NotebookShowTabsPropertyInfo -instance AttrInfo NotebookShowTabsPropertyInfo where - type AttrAllowedOps NotebookShowTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookShowTabsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint NotebookShowTabsPropertyInfo = NotebookK - type AttrGetType NotebookShowTabsPropertyInfo = Bool - type AttrLabel NotebookShowTabsPropertyInfo = "Notebook::show-tabs" - attrGet _ = getNotebookShowTabs - attrSet _ = setNotebookShowTabs - attrConstruct _ = constructNotebookShowTabs - --- VVV Prop "tab-pos" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable] - -getNotebookTabPos :: (MonadIO m, NotebookK o) => o -> m PositionType -getNotebookTabPos obj = liftIO $ getObjectPropertyEnum obj "tab-pos" - -setNotebookTabPos :: (MonadIO m, NotebookK o) => o -> PositionType -> m () -setNotebookTabPos obj val = liftIO $ setObjectPropertyEnum obj "tab-pos" val - -constructNotebookTabPos :: PositionType -> IO ([Char], GValue) -constructNotebookTabPos val = constructObjectPropertyEnum "tab-pos" val - -data NotebookTabPosPropertyInfo -instance AttrInfo NotebookTabPosPropertyInfo where - type AttrAllowedOps NotebookTabPosPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookTabPosPropertyInfo = (~) PositionType - type AttrBaseTypeConstraint NotebookTabPosPropertyInfo = NotebookK - type AttrGetType NotebookTabPosPropertyInfo = PositionType - type AttrLabel NotebookTabPosPropertyInfo = "Notebook::tab-pos" - attrGet _ = getNotebookTabPos - attrSet _ = setNotebookTabPos - attrConstruct _ = constructNotebookTabPos - -type instance AttributeList Notebook = NotebookAttributeList -type NotebookAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("enable-popup", NotebookEnablePopupPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group-name", NotebookGroupNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("page", NotebookPagePropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scrollable", NotebookScrollablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-border", NotebookShowBorderPropertyInfo), '("show-tabs", NotebookShowTabsPropertyInfo), '("style", WidgetStylePropertyInfo), '("tab-pos", NotebookTabPosPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data NotebookChangeCurrentPageSignalInfo -instance SignalInfo NotebookChangeCurrentPageSignalInfo where - type HaskellCallbackType NotebookChangeCurrentPageSignalInfo = NotebookChangeCurrentPageCallback - connectSignal _ = connectNotebookChangeCurrentPage - -data NotebookCreateWindowSignalInfo -instance SignalInfo NotebookCreateWindowSignalInfo where - type HaskellCallbackType NotebookCreateWindowSignalInfo = NotebookCreateWindowCallback - connectSignal _ = connectNotebookCreateWindow - -data NotebookFocusTabSignalInfo -instance SignalInfo NotebookFocusTabSignalInfo where - type HaskellCallbackType NotebookFocusTabSignalInfo = NotebookFocusTabCallback - connectSignal _ = connectNotebookFocusTab - -data NotebookMoveFocusOutSignalInfo -instance SignalInfo NotebookMoveFocusOutSignalInfo where - type HaskellCallbackType NotebookMoveFocusOutSignalInfo = NotebookMoveFocusOutCallback - connectSignal _ = connectNotebookMoveFocusOut - -data NotebookPageAddedSignalInfo -instance SignalInfo NotebookPageAddedSignalInfo where - type HaskellCallbackType NotebookPageAddedSignalInfo = NotebookPageAddedCallback - connectSignal _ = connectNotebookPageAdded - -data NotebookPageRemovedSignalInfo -instance SignalInfo NotebookPageRemovedSignalInfo where - type HaskellCallbackType NotebookPageRemovedSignalInfo = NotebookPageRemovedCallback - connectSignal _ = connectNotebookPageRemoved - -data NotebookPageReorderedSignalInfo -instance SignalInfo NotebookPageReorderedSignalInfo where - type HaskellCallbackType NotebookPageReorderedSignalInfo = NotebookPageReorderedCallback - connectSignal _ = connectNotebookPageReordered - -data NotebookReorderTabSignalInfo -instance SignalInfo NotebookReorderTabSignalInfo where - type HaskellCallbackType NotebookReorderTabSignalInfo = NotebookReorderTabCallback - connectSignal _ = connectNotebookReorderTab - -data NotebookSelectPageSignalInfo -instance SignalInfo NotebookSelectPageSignalInfo where - type HaskellCallbackType NotebookSelectPageSignalInfo = NotebookSelectPageCallback - connectSignal _ = connectNotebookSelectPage - -data NotebookSwitchPageSignalInfo -instance SignalInfo NotebookSwitchPageSignalInfo where - type HaskellCallbackType NotebookSwitchPageSignalInfo = NotebookSwitchPageCallback - connectSignal _ = connectNotebookSwitchPage - -type instance SignalList Notebook = NotebookSignalList -type NotebookSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-current-page", NotebookChangeCurrentPageSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-window", NotebookCreateWindowSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("focus-tab", NotebookFocusTabSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-focus-out", NotebookMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("page-added", NotebookPageAddedSignalInfo), '("page-removed", NotebookPageRemovedSignalInfo), '("page-reordered", NotebookPageReorderedSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("reorder-tab", NotebookReorderTabSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-page", NotebookSelectPageSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("switch-page", NotebookSwitchPageSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Notebook::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Gtk" "Notebook" --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_new" gtk_notebook_new :: - IO (Ptr Notebook) - - -notebookNew :: - (MonadIO m) => - m Notebook -notebookNew = liftIO $ do - result <- gtk_notebook_new - checkUnexpectedReturnNULL "gtk_notebook_new" result - result' <- (newObject Notebook) result - return result' - --- method Notebook::append_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_append_page" gtk_notebook_append_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - IO Int32 - - -notebookAppendPage :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => - a -> -- _obj - b -> -- child - Maybe (c) -> -- tab_label - m Int32 -notebookAppendPage _obj child tab_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - result <- gtk_notebook_append_page _obj' child' maybeTab_label - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - return result - --- method Notebook::append_page_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_append_page_menu" gtk_notebook_append_page_menu :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" - IO Int32 - - -notebookAppendPageMenu :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => - a -> -- _obj - b -> -- child - Maybe (c) -> -- tab_label - Maybe (d) -> -- menu_label - m Int32 -notebookAppendPageMenu _obj child tab_label menu_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - maybeMenu_label <- case menu_label of - Nothing -> return nullPtr - Just jMenu_label -> do - let jMenu_label' = unsafeManagedPtrCastPtr jMenu_label - return jMenu_label' - result <- gtk_notebook_append_page_menu _obj' child' maybeTab_label maybeMenu_label - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - whenJust menu_label touchManagedPtr - return result - --- method Notebook::detach_tab --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_detach_tab" gtk_notebook_detach_tab :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO () - - -notebookDetachTab :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () -notebookDetachTab _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_notebook_detach_tab _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - --- method Notebook::get_action_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_action_widget" gtk_notebook_get_action_widget :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - CUInt -> -- pack_type : TInterface "Gtk" "PackType" - IO (Ptr Widget) - - -notebookGetActionWidget :: - (MonadIO m, NotebookK a) => - a -> -- _obj - PackType -> -- pack_type - m Widget -notebookGetActionWidget _obj pack_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pack_type' = (fromIntegral . fromEnum) pack_type - result <- gtk_notebook_get_action_widget _obj' pack_type' - checkUnexpectedReturnNULL "gtk_notebook_get_action_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Notebook::get_current_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_current_page" gtk_notebook_get_current_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO Int32 - - -notebookGetCurrentPage :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m Int32 -notebookGetCurrentPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_current_page _obj' - touchManagedPtr _obj - return result - --- method Notebook::get_group_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_group_name" gtk_notebook_get_group_name :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO CString - - -notebookGetGroupName :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m T.Text -notebookGetGroupName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_group_name _obj' - checkUnexpectedReturnNULL "gtk_notebook_get_group_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Notebook::get_menu_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_menu_label" gtk_notebook_get_menu_label :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO (Ptr Widget) - - -notebookGetMenuLabel :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - m Widget -notebookGetMenuLabel _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_get_menu_label _obj' child' - checkUnexpectedReturnNULL "gtk_notebook_get_menu_label" result - result' <- (newObject Widget) result - touchManagedPtr _obj - touchManagedPtr child - return result' - --- method Notebook::get_menu_label_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_menu_label_text" gtk_notebook_get_menu_label_text :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO CString - - -notebookGetMenuLabelText :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - m T.Text -notebookGetMenuLabelText _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_get_menu_label_text _obj' child' - checkUnexpectedReturnNULL "gtk_notebook_get_menu_label_text" result - result' <- cstringToText result - touchManagedPtr _obj - touchManagedPtr child - return result' - --- method Notebook::get_n_pages --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_n_pages" gtk_notebook_get_n_pages :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO Int32 - - -notebookGetNPages :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m Int32 -notebookGetNPages _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_n_pages _obj' - touchManagedPtr _obj - return result - --- method Notebook::get_nth_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_nth_page" gtk_notebook_get_nth_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Int32 -> -- page_num : TBasicType TInt32 - IO (Ptr Widget) - - -notebookGetNthPage :: - (MonadIO m, NotebookK a) => - a -> -- _obj - Int32 -> -- page_num - m Widget -notebookGetNthPage _obj page_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_nth_page _obj' page_num - checkUnexpectedReturnNULL "gtk_notebook_get_nth_page" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Notebook::get_scrollable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_scrollable" gtk_notebook_get_scrollable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO CInt - - -notebookGetScrollable :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m Bool -notebookGetScrollable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_scrollable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Notebook::get_show_border --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_show_border" gtk_notebook_get_show_border :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO CInt - - -notebookGetShowBorder :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m Bool -notebookGetShowBorder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_show_border _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Notebook::get_show_tabs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_show_tabs" gtk_notebook_get_show_tabs :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO CInt - - -notebookGetShowTabs :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m Bool -notebookGetShowTabs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_show_tabs _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Notebook::get_tab_detachable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_tab_detachable" gtk_notebook_get_tab_detachable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO CInt - - -notebookGetTabDetachable :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - m Bool -notebookGetTabDetachable _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_get_tab_detachable _obj' child' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr child - return result' - --- method Notebook::get_tab_hborder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt16 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_tab_hborder" gtk_notebook_get_tab_hborder :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO Word16 - -{-# DEPRECATED notebookGetTabHborder ["(Since version 3.4)","this function returns zero"]#-} -notebookGetTabHborder :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m Word16 -notebookGetTabHborder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_tab_hborder _obj' - touchManagedPtr _obj - return result - --- method Notebook::get_tab_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_tab_label" gtk_notebook_get_tab_label :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO (Ptr Widget) - - -notebookGetTabLabel :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - m Widget -notebookGetTabLabel _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_get_tab_label _obj' child' - checkUnexpectedReturnNULL "gtk_notebook_get_tab_label" result - result' <- (newObject Widget) result - touchManagedPtr _obj - touchManagedPtr child - return result' - --- method Notebook::get_tab_label_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_tab_label_text" gtk_notebook_get_tab_label_text :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO CString - - -notebookGetTabLabelText :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - m T.Text -notebookGetTabLabelText _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_get_tab_label_text _obj' child' - checkUnexpectedReturnNULL "gtk_notebook_get_tab_label_text" result - result' <- cstringToText result - touchManagedPtr _obj - touchManagedPtr child - return result' - --- method Notebook::get_tab_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "PositionType" --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_tab_pos" gtk_notebook_get_tab_pos :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO CUInt - - -notebookGetTabPos :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m PositionType -notebookGetTabPos _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_tab_pos _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Notebook::get_tab_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_tab_reorderable" gtk_notebook_get_tab_reorderable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO CInt - - -notebookGetTabReorderable :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - m Bool -notebookGetTabReorderable _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_get_tab_reorderable _obj' child' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr child - return result' - --- method Notebook::get_tab_vborder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt16 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_get_tab_vborder" gtk_notebook_get_tab_vborder :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO Word16 - -{-# DEPRECATED notebookGetTabVborder ["(Since version 3.4)","this function returns zero"]#-} -notebookGetTabVborder :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m Word16 -notebookGetTabVborder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_tab_vborder _obj' - touchManagedPtr _obj - return result - --- method Notebook::insert_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_insert_page" gtk_notebook_insert_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 - IO Int32 - - -notebookInsertPage :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => - a -> -- _obj - b -> -- child - Maybe (c) -> -- tab_label - Int32 -> -- position - m Int32 -notebookInsertPage _obj child tab_label position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - result <- gtk_notebook_insert_page _obj' child' maybeTab_label position - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - return result - --- method Notebook::insert_page_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_insert_page_menu" gtk_notebook_insert_page_menu :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 - IO Int32 - - -notebookInsertPageMenu :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => - a -> -- _obj - b -> -- child - Maybe (c) -> -- tab_label - Maybe (d) -> -- menu_label - Int32 -> -- position - m Int32 -notebookInsertPageMenu _obj child tab_label menu_label position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - maybeMenu_label <- case menu_label of - Nothing -> return nullPtr - Just jMenu_label -> do - let jMenu_label' = unsafeManagedPtrCastPtr jMenu_label - return jMenu_label' - result <- gtk_notebook_insert_page_menu _obj' child' maybeTab_label maybeMenu_label position - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - whenJust menu_label touchManagedPtr - return result - --- method Notebook::next_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_next_page" gtk_notebook_next_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO () - - -notebookNextPage :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m () -notebookNextPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_next_page _obj' - touchManagedPtr _obj - return () - --- method Notebook::page_num --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_page_num" gtk_notebook_page_num :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - IO Int32 - - -notebookPageNum :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - m Int32 -notebookPageNum _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - result <- gtk_notebook_page_num _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return result - --- method Notebook::popup_disable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_popup_disable" gtk_notebook_popup_disable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO () - - -notebookPopupDisable :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m () -notebookPopupDisable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_popup_disable _obj' - touchManagedPtr _obj - return () - --- method Notebook::popup_enable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_popup_enable" gtk_notebook_popup_enable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO () - - -notebookPopupEnable :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m () -notebookPopupEnable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_popup_enable _obj' - touchManagedPtr _obj - return () - --- method Notebook::prepend_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_prepend_page" gtk_notebook_prepend_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - IO Int32 - - -notebookPrependPage :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => - a -> -- _obj - b -> -- child - Maybe (c) -> -- tab_label - m Int32 -notebookPrependPage _obj child tab_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - result <- gtk_notebook_prepend_page _obj' child' maybeTab_label - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - return result - --- method Notebook::prepend_page_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_prepend_page_menu" gtk_notebook_prepend_page_menu :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" - IO Int32 - - -notebookPrependPageMenu :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => - a -> -- _obj - b -> -- child - Maybe (c) -> -- tab_label - Maybe (d) -> -- menu_label - m Int32 -notebookPrependPageMenu _obj child tab_label menu_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - maybeMenu_label <- case menu_label of - Nothing -> return nullPtr - Just jMenu_label -> do - let jMenu_label' = unsafeManagedPtrCastPtr jMenu_label - return jMenu_label' - result <- gtk_notebook_prepend_page_menu _obj' child' maybeTab_label maybeMenu_label - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - whenJust menu_label touchManagedPtr - return result - --- method Notebook::prev_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_prev_page" gtk_notebook_prev_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - IO () - - -notebookPrevPage :: - (MonadIO m, NotebookK a) => - a -> -- _obj - m () -notebookPrevPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_prev_page _obj' - touchManagedPtr _obj - return () - --- method Notebook::remove_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_remove_page" gtk_notebook_remove_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Int32 -> -- page_num : TBasicType TInt32 - IO () - - -notebookRemovePage :: - (MonadIO m, NotebookK a) => - a -> -- _obj - Int32 -> -- page_num - m () -notebookRemovePage _obj page_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_remove_page _obj' page_num - touchManagedPtr _obj - return () - --- method Notebook::reorder_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_reorder_child" gtk_notebook_reorder_child :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 - IO () - - -notebookReorderChild :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- position - m () -notebookReorderChild _obj child position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_notebook_reorder_child _obj' child' position - touchManagedPtr _obj - touchManagedPtr child - return () - --- method Notebook::set_action_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_action_widget" gtk_notebook_set_action_widget :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - CUInt -> -- pack_type : TInterface "Gtk" "PackType" - IO () - - -notebookSetActionWidget :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- widget - PackType -> -- pack_type - m () -notebookSetActionWidget _obj widget pack_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let pack_type' = (fromIntegral . fromEnum) pack_type - gtk_notebook_set_action_widget _obj' widget' pack_type' - touchManagedPtr _obj - touchManagedPtr widget - return () - --- method Notebook::set_current_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_current_page" gtk_notebook_set_current_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Int32 -> -- page_num : TBasicType TInt32 - IO () - - -notebookSetCurrentPage :: - (MonadIO m, NotebookK a) => - a -> -- _obj - Int32 -> -- page_num - m () -notebookSetCurrentPage _obj page_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_set_current_page _obj' page_num - touchManagedPtr _obj - return () - --- method Notebook::set_group_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_group_name" gtk_notebook_set_group_name :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - CString -> -- group_name : TBasicType TUTF8 - IO () - - -notebookSetGroupName :: - (MonadIO m, NotebookK a) => - a -> -- _obj - Maybe (T.Text) -> -- group_name - m () -notebookSetGroupName _obj group_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeGroup_name <- case group_name of - Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' - gtk_notebook_set_group_name _obj' maybeGroup_name - touchManagedPtr _obj - freeMem maybeGroup_name - return () - --- method Notebook::set_menu_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_menu_label" gtk_notebook_set_menu_label :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" - IO () - - -notebookSetMenuLabel :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => - a -> -- _obj - b -> -- child - Maybe (c) -> -- menu_label - m () -notebookSetMenuLabel _obj child menu_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeMenu_label <- case menu_label of - Nothing -> return nullPtr - Just jMenu_label -> do - let jMenu_label' = unsafeManagedPtrCastPtr jMenu_label - return jMenu_label' - gtk_notebook_set_menu_label _obj' child' maybeMenu_label - touchManagedPtr _obj - touchManagedPtr child - whenJust menu_label touchManagedPtr - return () - --- method Notebook::set_menu_label_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_menu_label_text" gtk_notebook_set_menu_label_text :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CString -> -- menu_text : TBasicType TUTF8 - IO () - - -notebookSetMenuLabelText :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - T.Text -> -- menu_text - m () -notebookSetMenuLabelText _obj child menu_text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - menu_text' <- textToCString menu_text - gtk_notebook_set_menu_label_text _obj' child' menu_text' - touchManagedPtr _obj - touchManagedPtr child - freeMem menu_text' - return () - --- method Notebook::set_scrollable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scrollable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scrollable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_scrollable" gtk_notebook_set_scrollable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - CInt -> -- scrollable : TBasicType TBoolean - IO () - - -notebookSetScrollable :: - (MonadIO m, NotebookK a) => - a -> -- _obj - Bool -> -- scrollable - m () -notebookSetScrollable _obj scrollable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let scrollable' = (fromIntegral . fromEnum) scrollable - gtk_notebook_set_scrollable _obj' scrollable' - touchManagedPtr _obj - return () - --- method Notebook::set_show_border --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_border", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_border", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_show_border" gtk_notebook_set_show_border :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - CInt -> -- show_border : TBasicType TBoolean - IO () - - -notebookSetShowBorder :: - (MonadIO m, NotebookK a) => - a -> -- _obj - Bool -> -- show_border - m () -notebookSetShowBorder _obj show_border = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_border' = (fromIntegral . fromEnum) show_border - gtk_notebook_set_show_border _obj' show_border' - touchManagedPtr _obj - return () - --- method Notebook::set_show_tabs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_tabs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_tabs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_show_tabs" gtk_notebook_set_show_tabs :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - CInt -> -- show_tabs : TBasicType TBoolean - IO () - - -notebookSetShowTabs :: - (MonadIO m, NotebookK a) => - a -> -- _obj - Bool -> -- show_tabs - m () -notebookSetShowTabs _obj show_tabs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_tabs' = (fromIntegral . fromEnum) show_tabs - gtk_notebook_set_show_tabs _obj' show_tabs' - touchManagedPtr _obj - return () - --- method Notebook::set_tab_detachable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detachable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detachable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_tab_detachable" gtk_notebook_set_tab_detachable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CInt -> -- detachable : TBasicType TBoolean - IO () - - -notebookSetTabDetachable :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - Bool -> -- detachable - m () -notebookSetTabDetachable _obj child detachable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let detachable' = (fromIntegral . fromEnum) detachable - gtk_notebook_set_tab_detachable _obj' child' detachable' - touchManagedPtr _obj - touchManagedPtr child - return () - --- method Notebook::set_tab_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_tab_label" gtk_notebook_set_tab_label :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - IO () - - -notebookSetTabLabel :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => - a -> -- _obj - b -> -- child - Maybe (c) -> -- tab_label - m () -notebookSetTabLabel _obj child tab_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - gtk_notebook_set_tab_label _obj' child' maybeTab_label - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - return () - --- method Notebook::set_tab_label_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_tab_label_text" gtk_notebook_set_tab_label_text :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CString -> -- tab_text : TBasicType TUTF8 - IO () - - -notebookSetTabLabelText :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - T.Text -> -- tab_text - m () -notebookSetTabLabelText _obj child tab_text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - tab_text' <- textToCString tab_text - gtk_notebook_set_tab_label_text _obj' child' tab_text' - touchManagedPtr _obj - touchManagedPtr child - freeMem tab_text' - return () - --- method Notebook::set_tab_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_tab_pos" gtk_notebook_set_tab_pos :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - CUInt -> -- pos : TInterface "Gtk" "PositionType" - IO () - - -notebookSetTabPos :: - (MonadIO m, NotebookK a) => - a -> -- _obj - PositionType -> -- pos - m () -notebookSetTabPos _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pos' = (fromIntegral . fromEnum) pos - gtk_notebook_set_tab_pos _obj' pos' - touchManagedPtr _obj - return () - --- method Notebook::set_tab_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_tab_reorderable" gtk_notebook_set_tab_reorderable :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CInt -> -- reorderable : TBasicType TBoolean - IO () - - -notebookSetTabReorderable :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - Bool -> -- reorderable - m () -notebookSetTabReorderable _obj child reorderable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let reorderable' = (fromIntegral . fromEnum) reorderable - gtk_notebook_set_tab_reorderable _obj' child' reorderable' - touchManagedPtr _obj - touchManagedPtr child - return () + +{- | +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.Objects.Notebook + ( + +-- * Exported types + Notebook(..) , + NotebookK , + toNotebook , + noNotebook , + + + -- * Methods +-- ** notebookAppendPage + NotebookAppendPageMethodInfo , + notebookAppendPage , + + +-- ** notebookAppendPageMenu + NotebookAppendPageMenuMethodInfo , + notebookAppendPageMenu , + + +-- ** notebookDetachTab + NotebookDetachTabMethodInfo , + notebookDetachTab , + + +-- ** notebookGetActionWidget + NotebookGetActionWidgetMethodInfo , + notebookGetActionWidget , + + +-- ** notebookGetCurrentPage + NotebookGetCurrentPageMethodInfo , + notebookGetCurrentPage , + + +-- ** notebookGetGroupName + NotebookGetGroupNameMethodInfo , + notebookGetGroupName , + + +-- ** notebookGetMenuLabel + NotebookGetMenuLabelMethodInfo , + notebookGetMenuLabel , + + +-- ** notebookGetMenuLabelText + NotebookGetMenuLabelTextMethodInfo , + notebookGetMenuLabelText , + + +-- ** notebookGetNPages + NotebookGetNPagesMethodInfo , + notebookGetNPages , + + +-- ** notebookGetNthPage + NotebookGetNthPageMethodInfo , + notebookGetNthPage , + + +-- ** notebookGetScrollable + NotebookGetScrollableMethodInfo , + notebookGetScrollable , + + +-- ** notebookGetShowBorder + NotebookGetShowBorderMethodInfo , + notebookGetShowBorder , + + +-- ** notebookGetShowTabs + NotebookGetShowTabsMethodInfo , + notebookGetShowTabs , + + +-- ** notebookGetTabDetachable + NotebookGetTabDetachableMethodInfo , + notebookGetTabDetachable , + + +-- ** notebookGetTabHborder + NotebookGetTabHborderMethodInfo , + notebookGetTabHborder , + + +-- ** notebookGetTabLabel + NotebookGetTabLabelMethodInfo , + notebookGetTabLabel , + + +-- ** notebookGetTabLabelText + NotebookGetTabLabelTextMethodInfo , + notebookGetTabLabelText , + + +-- ** notebookGetTabPos + NotebookGetTabPosMethodInfo , + notebookGetTabPos , + + +-- ** notebookGetTabReorderable + NotebookGetTabReorderableMethodInfo , + notebookGetTabReorderable , + + +-- ** notebookGetTabVborder + NotebookGetTabVborderMethodInfo , + notebookGetTabVborder , + + +-- ** notebookInsertPage + NotebookInsertPageMethodInfo , + notebookInsertPage , + + +-- ** notebookInsertPageMenu + NotebookInsertPageMenuMethodInfo , + notebookInsertPageMenu , + + +-- ** notebookNew + notebookNew , + + +-- ** notebookNextPage + NotebookNextPageMethodInfo , + notebookNextPage , + + +-- ** notebookPageNum + NotebookPageNumMethodInfo , + notebookPageNum , + + +-- ** notebookPopupDisable + NotebookPopupDisableMethodInfo , + notebookPopupDisable , + + +-- ** notebookPopupEnable + NotebookPopupEnableMethodInfo , + notebookPopupEnable , + + +-- ** notebookPrependPage + NotebookPrependPageMethodInfo , + notebookPrependPage , + + +-- ** notebookPrependPageMenu + NotebookPrependPageMenuMethodInfo , + notebookPrependPageMenu , + + +-- ** notebookPrevPage + NotebookPrevPageMethodInfo , + notebookPrevPage , + + +-- ** notebookRemovePage + NotebookRemovePageMethodInfo , + notebookRemovePage , + + +-- ** notebookReorderChild + NotebookReorderChildMethodInfo , + notebookReorderChild , + + +-- ** notebookSetActionWidget + NotebookSetActionWidgetMethodInfo , + notebookSetActionWidget , + + +-- ** notebookSetCurrentPage + NotebookSetCurrentPageMethodInfo , + notebookSetCurrentPage , + + +-- ** notebookSetGroupName + NotebookSetGroupNameMethodInfo , + notebookSetGroupName , + + +-- ** notebookSetMenuLabel + NotebookSetMenuLabelMethodInfo , + notebookSetMenuLabel , + + +-- ** notebookSetMenuLabelText + NotebookSetMenuLabelTextMethodInfo , + notebookSetMenuLabelText , + + +-- ** notebookSetScrollable + NotebookSetScrollableMethodInfo , + notebookSetScrollable , + + +-- ** notebookSetShowBorder + NotebookSetShowBorderMethodInfo , + notebookSetShowBorder , + + +-- ** notebookSetShowTabs + NotebookSetShowTabsMethodInfo , + notebookSetShowTabs , + + +-- ** notebookSetTabDetachable + NotebookSetTabDetachableMethodInfo , + notebookSetTabDetachable , + + +-- ** notebookSetTabLabel + NotebookSetTabLabelMethodInfo , + notebookSetTabLabel , + + +-- ** notebookSetTabLabelText + NotebookSetTabLabelTextMethodInfo , + notebookSetTabLabelText , + + +-- ** notebookSetTabPos + NotebookSetTabPosMethodInfo , + notebookSetTabPos , + + +-- ** notebookSetTabReorderable + NotebookSetTabReorderableMethodInfo , + notebookSetTabReorderable , + + + + + -- * Properties +-- ** EnablePopup + NotebookEnablePopupPropertyInfo , + constructNotebookEnablePopup , + getNotebookEnablePopup , + setNotebookEnablePopup , + + +-- ** GroupName + NotebookGroupNamePropertyInfo , + constructNotebookGroupName , + getNotebookGroupName , + setNotebookGroupName , + + +-- ** Page + NotebookPagePropertyInfo , + constructNotebookPage , + getNotebookPage , + setNotebookPage , + + +-- ** Scrollable + NotebookScrollablePropertyInfo , + constructNotebookScrollable , + getNotebookScrollable , + setNotebookScrollable , + + +-- ** ShowBorder + NotebookShowBorderPropertyInfo , + constructNotebookShowBorder , + getNotebookShowBorder , + setNotebookShowBorder , + + +-- ** ShowTabs + NotebookShowTabsPropertyInfo , + constructNotebookShowTabs , + getNotebookShowTabs , + setNotebookShowTabs , + + +-- ** TabPos + NotebookTabPosPropertyInfo , + constructNotebookTabPos , + getNotebookTabPos , + setNotebookTabPos , + + + + + -- * Signals +-- ** ChangeCurrentPage + NotebookChangeCurrentPageCallback , + NotebookChangeCurrentPageCallbackC , + NotebookChangeCurrentPageSignalInfo , + afterNotebookChangeCurrentPage , + mkNotebookChangeCurrentPageCallback , + noNotebookChangeCurrentPageCallback , + notebookChangeCurrentPageCallbackWrapper, + notebookChangeCurrentPageClosure , + onNotebookChangeCurrentPage , + + +-- ** CreateWindow + NotebookCreateWindowCallback , + NotebookCreateWindowCallbackC , + NotebookCreateWindowSignalInfo , + afterNotebookCreateWindow , + mkNotebookCreateWindowCallback , + noNotebookCreateWindowCallback , + notebookCreateWindowCallbackWrapper , + notebookCreateWindowClosure , + onNotebookCreateWindow , + + +-- ** FocusTab + NotebookFocusTabCallback , + NotebookFocusTabCallbackC , + NotebookFocusTabSignalInfo , + afterNotebookFocusTab , + mkNotebookFocusTabCallback , + noNotebookFocusTabCallback , + notebookFocusTabCallbackWrapper , + notebookFocusTabClosure , + onNotebookFocusTab , + + +-- ** MoveFocusOut + NotebookMoveFocusOutCallback , + NotebookMoveFocusOutCallbackC , + NotebookMoveFocusOutSignalInfo , + afterNotebookMoveFocusOut , + mkNotebookMoveFocusOutCallback , + noNotebookMoveFocusOutCallback , + notebookMoveFocusOutCallbackWrapper , + notebookMoveFocusOutClosure , + onNotebookMoveFocusOut , + + +-- ** PageAdded + NotebookPageAddedCallback , + NotebookPageAddedCallbackC , + NotebookPageAddedSignalInfo , + afterNotebookPageAdded , + mkNotebookPageAddedCallback , + noNotebookPageAddedCallback , + notebookPageAddedCallbackWrapper , + notebookPageAddedClosure , + onNotebookPageAdded , + + +-- ** PageRemoved + NotebookPageRemovedCallback , + NotebookPageRemovedCallbackC , + NotebookPageRemovedSignalInfo , + afterNotebookPageRemoved , + mkNotebookPageRemovedCallback , + noNotebookPageRemovedCallback , + notebookPageRemovedCallbackWrapper , + notebookPageRemovedClosure , + onNotebookPageRemoved , + + +-- ** PageReordered + NotebookPageReorderedCallback , + NotebookPageReorderedCallbackC , + NotebookPageReorderedSignalInfo , + afterNotebookPageReordered , + mkNotebookPageReorderedCallback , + noNotebookPageReorderedCallback , + notebookPageReorderedCallbackWrapper , + notebookPageReorderedClosure , + onNotebookPageReordered , + + +-- ** ReorderTab + NotebookReorderTabCallback , + NotebookReorderTabCallbackC , + NotebookReorderTabSignalInfo , + afterNotebookReorderTab , + mkNotebookReorderTabCallback , + noNotebookReorderTabCallback , + notebookReorderTabCallbackWrapper , + notebookReorderTabClosure , + onNotebookReorderTab , + + +-- ** SelectPage + NotebookSelectPageCallback , + NotebookSelectPageCallbackC , + NotebookSelectPageSignalInfo , + afterNotebookSelectPage , + mkNotebookSelectPageCallback , + noNotebookSelectPageCallback , + notebookSelectPageCallbackWrapper , + notebookSelectPageClosure , + onNotebookSelectPage , + + +-- ** SwitchPage + NotebookSwitchPageCallback , + NotebookSwitchPageCallbackC , + NotebookSwitchPageSignalInfo , + afterNotebookSwitchPage , + mkNotebookSwitchPageCallback , + noNotebookSwitchPageCallback , + notebookSwitchPageCallbackWrapper , + notebookSwitchPageClosure , + onNotebookSwitchPage , + + + + + ) 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.Atk as Atk +import qualified GI.GObject as GObject + +newtype Notebook = Notebook (ForeignPtr Notebook) +foreign import ccall "gtk_notebook_get_type" + c_gtk_notebook_get_type :: IO GType + +type instance ParentTypes Notebook = NotebookParentTypes +type NotebookParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] + +instance GObject Notebook where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_gtk_notebook_get_type + + +class GObject o => NotebookK o +instance (GObject o, IsDescendantOf Notebook o) => NotebookK o + +toNotebook :: NotebookK o => o -> IO Notebook +toNotebook = unsafeCastTo Notebook + +noNotebook :: Maybe Notebook +noNotebook = Nothing + +type family ResolveNotebookMethod (t :: Symbol) (o :: *) :: * where + ResolveNotebookMethod "activate" o = WidgetActivateMethodInfo + ResolveNotebookMethod "add" o = ContainerAddMethodInfo + ResolveNotebookMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveNotebookMethod "addChild" o = BuildableAddChildMethodInfo + ResolveNotebookMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveNotebookMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveNotebookMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveNotebookMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveNotebookMethod "appendPage" o = NotebookAppendPageMethodInfo + ResolveNotebookMethod "appendPageMenu" o = NotebookAppendPageMenuMethodInfo + ResolveNotebookMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveNotebookMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveNotebookMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveNotebookMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveNotebookMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveNotebookMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveNotebookMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveNotebookMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveNotebookMethod "childType" o = ContainerChildTypeMethodInfo + ResolveNotebookMethod "classPath" o = WidgetClassPathMethodInfo + ResolveNotebookMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveNotebookMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveNotebookMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveNotebookMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveNotebookMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveNotebookMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveNotebookMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveNotebookMethod "destroy" o = WidgetDestroyMethodInfo + ResolveNotebookMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveNotebookMethod "detachTab" o = NotebookDetachTabMethodInfo + ResolveNotebookMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveNotebookMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveNotebookMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveNotebookMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveNotebookMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveNotebookMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveNotebookMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveNotebookMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveNotebookMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveNotebookMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveNotebookMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveNotebookMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveNotebookMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveNotebookMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveNotebookMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveNotebookMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveNotebookMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveNotebookMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveNotebookMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveNotebookMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveNotebookMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveNotebookMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveNotebookMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveNotebookMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveNotebookMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveNotebookMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveNotebookMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveNotebookMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveNotebookMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveNotebookMethod "draw" o = WidgetDrawMethodInfo + ResolveNotebookMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveNotebookMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveNotebookMethod "event" o = WidgetEventMethodInfo + ResolveNotebookMethod "forall" o = ContainerForallMethodInfo + ResolveNotebookMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveNotebookMethod "foreach" o = ContainerForeachMethodInfo + ResolveNotebookMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveNotebookMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveNotebookMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveNotebookMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveNotebookMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveNotebookMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveNotebookMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveNotebookMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveNotebookMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveNotebookMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveNotebookMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveNotebookMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveNotebookMethod "hide" o = WidgetHideMethodInfo + ResolveNotebookMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveNotebookMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveNotebookMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveNotebookMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveNotebookMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveNotebookMethod "insertPage" o = NotebookInsertPageMethodInfo + ResolveNotebookMethod "insertPageMenu" o = NotebookInsertPageMenuMethodInfo + ResolveNotebookMethod "intersect" o = WidgetIntersectMethodInfo + ResolveNotebookMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveNotebookMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveNotebookMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveNotebookMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveNotebookMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveNotebookMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveNotebookMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveNotebookMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveNotebookMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveNotebookMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveNotebookMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveNotebookMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveNotebookMethod "map" o = WidgetMapMethodInfo + ResolveNotebookMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveNotebookMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveNotebookMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveNotebookMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveNotebookMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveNotebookMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveNotebookMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveNotebookMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveNotebookMethod "nextPage" o = NotebookNextPageMethodInfo + ResolveNotebookMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveNotebookMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveNotebookMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveNotebookMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveNotebookMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveNotebookMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveNotebookMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveNotebookMethod "pageNum" o = NotebookPageNumMethodInfo + ResolveNotebookMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveNotebookMethod "path" o = WidgetPathMethodInfo + ResolveNotebookMethod "popupDisable" o = NotebookPopupDisableMethodInfo + ResolveNotebookMethod "popupEnable" o = NotebookPopupEnableMethodInfo + ResolveNotebookMethod "prependPage" o = NotebookPrependPageMethodInfo + ResolveNotebookMethod "prependPageMenu" o = NotebookPrependPageMenuMethodInfo + ResolveNotebookMethod "prevPage" o = NotebookPrevPageMethodInfo + ResolveNotebookMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveNotebookMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveNotebookMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveNotebookMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveNotebookMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveNotebookMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveNotebookMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveNotebookMethod "realize" o = WidgetRealizeMethodInfo + ResolveNotebookMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveNotebookMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveNotebookMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveNotebookMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveNotebookMethod "remove" o = ContainerRemoveMethodInfo + ResolveNotebookMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveNotebookMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveNotebookMethod "removePage" o = NotebookRemovePageMethodInfo + ResolveNotebookMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveNotebookMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveNotebookMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveNotebookMethod "reorderChild" o = NotebookReorderChildMethodInfo + ResolveNotebookMethod "reparent" o = WidgetReparentMethodInfo + ResolveNotebookMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveNotebookMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveNotebookMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveNotebookMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveNotebookMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveNotebookMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveNotebookMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveNotebookMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveNotebookMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveNotebookMethod "show" o = WidgetShowMethodInfo + ResolveNotebookMethod "showAll" o = WidgetShowAllMethodInfo + ResolveNotebookMethod "showNow" o = WidgetShowNowMethodInfo + ResolveNotebookMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveNotebookMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveNotebookMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveNotebookMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveNotebookMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveNotebookMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveNotebookMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveNotebookMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveNotebookMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveNotebookMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveNotebookMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveNotebookMethod "unmap" o = WidgetUnmapMethodInfo + ResolveNotebookMethod "unparent" o = WidgetUnparentMethodInfo + ResolveNotebookMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveNotebookMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveNotebookMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveNotebookMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveNotebookMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveNotebookMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveNotebookMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveNotebookMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveNotebookMethod "getActionWidget" o = NotebookGetActionWidgetMethodInfo + ResolveNotebookMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveNotebookMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveNotebookMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveNotebookMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveNotebookMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveNotebookMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveNotebookMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveNotebookMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveNotebookMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveNotebookMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveNotebookMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveNotebookMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveNotebookMethod "getClip" o = WidgetGetClipMethodInfo + ResolveNotebookMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveNotebookMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveNotebookMethod "getCurrentPage" o = NotebookGetCurrentPageMethodInfo + ResolveNotebookMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveNotebookMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveNotebookMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveNotebookMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveNotebookMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveNotebookMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveNotebookMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveNotebookMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveNotebookMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveNotebookMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveNotebookMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveNotebookMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveNotebookMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveNotebookMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveNotebookMethod "getGroupName" o = NotebookGetGroupNameMethodInfo + ResolveNotebookMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveNotebookMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveNotebookMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveNotebookMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveNotebookMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveNotebookMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveNotebookMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveNotebookMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveNotebookMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveNotebookMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveNotebookMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveNotebookMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveNotebookMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveNotebookMethod "getMenuLabel" o = NotebookGetMenuLabelMethodInfo + ResolveNotebookMethod "getMenuLabelText" o = NotebookGetMenuLabelTextMethodInfo + ResolveNotebookMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveNotebookMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveNotebookMethod "getNPages" o = NotebookGetNPagesMethodInfo + ResolveNotebookMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveNotebookMethod "getNthPage" o = NotebookGetNthPageMethodInfo + ResolveNotebookMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveNotebookMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveNotebookMethod "getParent" o = WidgetGetParentMethodInfo + ResolveNotebookMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveNotebookMethod "getPath" o = WidgetGetPathMethodInfo + ResolveNotebookMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveNotebookMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveNotebookMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveNotebookMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveNotebookMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveNotebookMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveNotebookMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveNotebookMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveNotebookMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveNotebookMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveNotebookMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveNotebookMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveNotebookMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveNotebookMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveNotebookMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveNotebookMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveNotebookMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveNotebookMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveNotebookMethod "getScrollable" o = NotebookGetScrollableMethodInfo + ResolveNotebookMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveNotebookMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveNotebookMethod "getShowBorder" o = NotebookGetShowBorderMethodInfo + ResolveNotebookMethod "getShowTabs" o = NotebookGetShowTabsMethodInfo + ResolveNotebookMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveNotebookMethod "getState" o = WidgetGetStateMethodInfo + ResolveNotebookMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveNotebookMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveNotebookMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveNotebookMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveNotebookMethod "getTabDetachable" o = NotebookGetTabDetachableMethodInfo + ResolveNotebookMethod "getTabHborder" o = NotebookGetTabHborderMethodInfo + ResolveNotebookMethod "getTabLabel" o = NotebookGetTabLabelMethodInfo + ResolveNotebookMethod "getTabLabelText" o = NotebookGetTabLabelTextMethodInfo + ResolveNotebookMethod "getTabPos" o = NotebookGetTabPosMethodInfo + ResolveNotebookMethod "getTabReorderable" o = NotebookGetTabReorderableMethodInfo + ResolveNotebookMethod "getTabVborder" o = NotebookGetTabVborderMethodInfo + ResolveNotebookMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveNotebookMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveNotebookMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveNotebookMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveNotebookMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveNotebookMethod "getValign" o = WidgetGetValignMethodInfo + ResolveNotebookMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveNotebookMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveNotebookMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveNotebookMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveNotebookMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveNotebookMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveNotebookMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveNotebookMethod "setActionWidget" o = NotebookSetActionWidgetMethodInfo + ResolveNotebookMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveNotebookMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveNotebookMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveNotebookMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveNotebookMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveNotebookMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveNotebookMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveNotebookMethod "setClip" o = WidgetSetClipMethodInfo + ResolveNotebookMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveNotebookMethod "setCurrentPage" o = NotebookSetCurrentPageMethodInfo + ResolveNotebookMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveNotebookMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveNotebookMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveNotebookMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveNotebookMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveNotebookMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveNotebookMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveNotebookMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveNotebookMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveNotebookMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveNotebookMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveNotebookMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveNotebookMethod "setGroupName" o = NotebookSetGroupNameMethodInfo + ResolveNotebookMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveNotebookMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveNotebookMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveNotebookMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveNotebookMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveNotebookMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveNotebookMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveNotebookMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveNotebookMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveNotebookMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveNotebookMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveNotebookMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveNotebookMethod "setMenuLabel" o = NotebookSetMenuLabelMethodInfo + ResolveNotebookMethod "setMenuLabelText" o = NotebookSetMenuLabelTextMethodInfo + ResolveNotebookMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveNotebookMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveNotebookMethod "setParent" o = WidgetSetParentMethodInfo + ResolveNotebookMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveNotebookMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveNotebookMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveNotebookMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveNotebookMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveNotebookMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveNotebookMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveNotebookMethod "setScrollable" o = NotebookSetScrollableMethodInfo + ResolveNotebookMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveNotebookMethod "setShowBorder" o = NotebookSetShowBorderMethodInfo + ResolveNotebookMethod "setShowTabs" o = NotebookSetShowTabsMethodInfo + ResolveNotebookMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveNotebookMethod "setState" o = WidgetSetStateMethodInfo + ResolveNotebookMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveNotebookMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveNotebookMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveNotebookMethod "setTabDetachable" o = NotebookSetTabDetachableMethodInfo + ResolveNotebookMethod "setTabLabel" o = NotebookSetTabLabelMethodInfo + ResolveNotebookMethod "setTabLabelText" o = NotebookSetTabLabelTextMethodInfo + ResolveNotebookMethod "setTabPos" o = NotebookSetTabPosMethodInfo + ResolveNotebookMethod "setTabReorderable" o = NotebookSetTabReorderableMethodInfo + ResolveNotebookMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveNotebookMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveNotebookMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveNotebookMethod "setValign" o = WidgetSetValignMethodInfo + ResolveNotebookMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveNotebookMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveNotebookMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveNotebookMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveNotebookMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveNotebookMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveNotebookMethod t Notebook, MethodInfo info Notebook p) => IsLabelProxy t (Notebook -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveNotebookMethod t Notebook, MethodInfo info Notebook p) => IsLabel t (Notebook -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- signal Notebook::change-current-page +type NotebookChangeCurrentPageCallback = + Int32 -> + IO Bool + +noNotebookChangeCurrentPageCallback :: Maybe NotebookChangeCurrentPageCallback +noNotebookChangeCurrentPageCallback = Nothing + +type NotebookChangeCurrentPageCallbackC = + Ptr () -> -- object + Int32 -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkNotebookChangeCurrentPageCallback :: NotebookChangeCurrentPageCallbackC -> IO (FunPtr NotebookChangeCurrentPageCallbackC) + +notebookChangeCurrentPageClosure :: NotebookChangeCurrentPageCallback -> IO Closure +notebookChangeCurrentPageClosure cb = newCClosure =<< mkNotebookChangeCurrentPageCallback wrapped + where wrapped = notebookChangeCurrentPageCallbackWrapper cb + +notebookChangeCurrentPageCallbackWrapper :: + NotebookChangeCurrentPageCallback -> + Ptr () -> + Int32 -> + Ptr () -> + IO CInt +notebookChangeCurrentPageCallbackWrapper _cb _ object _ = do + result <- _cb object + let result' = (fromIntegral . fromEnum) result + return result' + +onNotebookChangeCurrentPage :: (GObject a, MonadIO m) => a -> NotebookChangeCurrentPageCallback -> m SignalHandlerId +onNotebookChangeCurrentPage obj cb = liftIO $ connectNotebookChangeCurrentPage obj cb SignalConnectBefore +afterNotebookChangeCurrentPage :: (GObject a, MonadIO m) => a -> NotebookChangeCurrentPageCallback -> m SignalHandlerId +afterNotebookChangeCurrentPage obj cb = connectNotebookChangeCurrentPage obj cb SignalConnectAfter + +connectNotebookChangeCurrentPage :: (GObject a, MonadIO m) => + a -> NotebookChangeCurrentPageCallback -> SignalConnectMode -> m SignalHandlerId +connectNotebookChangeCurrentPage obj cb after = liftIO $ do + cb' <- mkNotebookChangeCurrentPageCallback (notebookChangeCurrentPageCallbackWrapper cb) + connectSignalFunPtr obj "change-current-page" cb' after + +-- signal Notebook::create-window +type NotebookCreateWindowCallback = + Widget -> + Int32 -> + Int32 -> + IO Notebook + +noNotebookCreateWindowCallback :: Maybe NotebookCreateWindowCallback +noNotebookCreateWindowCallback = Nothing + +type NotebookCreateWindowCallbackC = + Ptr () -> -- object + Ptr Widget -> + Int32 -> + Int32 -> + Ptr () -> -- user_data + IO (Ptr Notebook) + +foreign import ccall "wrapper" + mkNotebookCreateWindowCallback :: NotebookCreateWindowCallbackC -> IO (FunPtr NotebookCreateWindowCallbackC) + +notebookCreateWindowClosure :: NotebookCreateWindowCallback -> IO Closure +notebookCreateWindowClosure cb = newCClosure =<< mkNotebookCreateWindowCallback wrapped + where wrapped = notebookCreateWindowCallbackWrapper cb + +notebookCreateWindowCallbackWrapper :: + NotebookCreateWindowCallback -> + Ptr () -> + Ptr Widget -> + Int32 -> + Int32 -> + Ptr () -> + IO (Ptr Notebook) +notebookCreateWindowCallbackWrapper _cb _ page x y _ = do + page' <- (newObject Widget) page + result <- _cb page' x y + let result' = unsafeManagedPtrCastPtr result + return result' + +onNotebookCreateWindow :: (GObject a, MonadIO m) => a -> NotebookCreateWindowCallback -> m SignalHandlerId +onNotebookCreateWindow obj cb = liftIO $ connectNotebookCreateWindow obj cb SignalConnectBefore +afterNotebookCreateWindow :: (GObject a, MonadIO m) => a -> NotebookCreateWindowCallback -> m SignalHandlerId +afterNotebookCreateWindow obj cb = connectNotebookCreateWindow obj cb SignalConnectAfter + +connectNotebookCreateWindow :: (GObject a, MonadIO m) => + a -> NotebookCreateWindowCallback -> SignalConnectMode -> m SignalHandlerId +connectNotebookCreateWindow obj cb after = liftIO $ do + cb' <- mkNotebookCreateWindowCallback (notebookCreateWindowCallbackWrapper cb) + connectSignalFunPtr obj "create-window" cb' after + +-- signal Notebook::focus-tab +type NotebookFocusTabCallback = + NotebookTab -> + IO Bool + +noNotebookFocusTabCallback :: Maybe NotebookFocusTabCallback +noNotebookFocusTabCallback = Nothing + +type NotebookFocusTabCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkNotebookFocusTabCallback :: NotebookFocusTabCallbackC -> IO (FunPtr NotebookFocusTabCallbackC) + +notebookFocusTabClosure :: NotebookFocusTabCallback -> IO Closure +notebookFocusTabClosure cb = newCClosure =<< mkNotebookFocusTabCallback wrapped + where wrapped = notebookFocusTabCallbackWrapper cb + +notebookFocusTabCallbackWrapper :: + NotebookFocusTabCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO CInt +notebookFocusTabCallbackWrapper _cb _ object _ = do + let object' = (toEnum . fromIntegral) object + result <- _cb object' + let result' = (fromIntegral . fromEnum) result + return result' + +onNotebookFocusTab :: (GObject a, MonadIO m) => a -> NotebookFocusTabCallback -> m SignalHandlerId +onNotebookFocusTab obj cb = liftIO $ connectNotebookFocusTab obj cb SignalConnectBefore +afterNotebookFocusTab :: (GObject a, MonadIO m) => a -> NotebookFocusTabCallback -> m SignalHandlerId +afterNotebookFocusTab obj cb = connectNotebookFocusTab obj cb SignalConnectAfter + +connectNotebookFocusTab :: (GObject a, MonadIO m) => + a -> NotebookFocusTabCallback -> SignalConnectMode -> m SignalHandlerId +connectNotebookFocusTab obj cb after = liftIO $ do + cb' <- mkNotebookFocusTabCallback (notebookFocusTabCallbackWrapper cb) + connectSignalFunPtr obj "focus-tab" cb' after + +-- signal Notebook::move-focus-out +type NotebookMoveFocusOutCallback = + DirectionType -> + IO () + +noNotebookMoveFocusOutCallback :: Maybe NotebookMoveFocusOutCallback +noNotebookMoveFocusOutCallback = Nothing + +type NotebookMoveFocusOutCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkNotebookMoveFocusOutCallback :: NotebookMoveFocusOutCallbackC -> IO (FunPtr NotebookMoveFocusOutCallbackC) + +notebookMoveFocusOutClosure :: NotebookMoveFocusOutCallback -> IO Closure +notebookMoveFocusOutClosure cb = newCClosure =<< mkNotebookMoveFocusOutCallback wrapped + where wrapped = notebookMoveFocusOutCallbackWrapper cb + +notebookMoveFocusOutCallbackWrapper :: + NotebookMoveFocusOutCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO () +notebookMoveFocusOutCallbackWrapper _cb _ object _ = do + let object' = (toEnum . fromIntegral) object + _cb object' + +onNotebookMoveFocusOut :: (GObject a, MonadIO m) => a -> NotebookMoveFocusOutCallback -> m SignalHandlerId +onNotebookMoveFocusOut obj cb = liftIO $ connectNotebookMoveFocusOut obj cb SignalConnectBefore +afterNotebookMoveFocusOut :: (GObject a, MonadIO m) => a -> NotebookMoveFocusOutCallback -> m SignalHandlerId +afterNotebookMoveFocusOut obj cb = connectNotebookMoveFocusOut obj cb SignalConnectAfter + +connectNotebookMoveFocusOut :: (GObject a, MonadIO m) => + a -> NotebookMoveFocusOutCallback -> SignalConnectMode -> m SignalHandlerId +connectNotebookMoveFocusOut obj cb after = liftIO $ do + cb' <- mkNotebookMoveFocusOutCallback (notebookMoveFocusOutCallbackWrapper cb) + connectSignalFunPtr obj "move-focus-out" cb' after + +-- signal Notebook::page-added +type NotebookPageAddedCallback = + Widget -> + Word32 -> + IO () + +noNotebookPageAddedCallback :: Maybe NotebookPageAddedCallback +noNotebookPageAddedCallback = Nothing + +type NotebookPageAddedCallbackC = + Ptr () -> -- object + Ptr Widget -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkNotebookPageAddedCallback :: NotebookPageAddedCallbackC -> IO (FunPtr NotebookPageAddedCallbackC) + +notebookPageAddedClosure :: NotebookPageAddedCallback -> IO Closure +notebookPageAddedClosure cb = newCClosure =<< mkNotebookPageAddedCallback wrapped + where wrapped = notebookPageAddedCallbackWrapper cb + +notebookPageAddedCallbackWrapper :: + NotebookPageAddedCallback -> + Ptr () -> + Ptr Widget -> + Word32 -> + Ptr () -> + IO () +notebookPageAddedCallbackWrapper _cb _ child pageNum _ = do + child' <- (newObject Widget) child + _cb child' pageNum + +onNotebookPageAdded :: (GObject a, MonadIO m) => a -> NotebookPageAddedCallback -> m SignalHandlerId +onNotebookPageAdded obj cb = liftIO $ connectNotebookPageAdded obj cb SignalConnectBefore +afterNotebookPageAdded :: (GObject a, MonadIO m) => a -> NotebookPageAddedCallback -> m SignalHandlerId +afterNotebookPageAdded obj cb = connectNotebookPageAdded obj cb SignalConnectAfter + +connectNotebookPageAdded :: (GObject a, MonadIO m) => + a -> NotebookPageAddedCallback -> SignalConnectMode -> m SignalHandlerId +connectNotebookPageAdded obj cb after = liftIO $ do + cb' <- mkNotebookPageAddedCallback (notebookPageAddedCallbackWrapper cb) + connectSignalFunPtr obj "page-added" cb' after + +-- signal Notebook::page-removed +type NotebookPageRemovedCallback = + Widget -> + Word32 -> + IO () + +noNotebookPageRemovedCallback :: Maybe NotebookPageRemovedCallback +noNotebookPageRemovedCallback = Nothing + +type NotebookPageRemovedCallbackC = + Ptr () -> -- object + Ptr Widget -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkNotebookPageRemovedCallback :: NotebookPageRemovedCallbackC -> IO (FunPtr NotebookPageRemovedCallbackC) + +notebookPageRemovedClosure :: NotebookPageRemovedCallback -> IO Closure +notebookPageRemovedClosure cb = newCClosure =<< mkNotebookPageRemovedCallback wrapped + where wrapped = notebookPageRemovedCallbackWrapper cb + +notebookPageRemovedCallbackWrapper :: + NotebookPageRemovedCallback -> + Ptr () -> + Ptr Widget -> + Word32 -> + Ptr () -> + IO () +notebookPageRemovedCallbackWrapper _cb _ child pageNum _ = do + child' <- (newObject Widget) child + _cb child' pageNum + +onNotebookPageRemoved :: (GObject a, MonadIO m) => a -> NotebookPageRemovedCallback -> m SignalHandlerId +onNotebookPageRemoved obj cb = liftIO $ connectNotebookPageRemoved obj cb SignalConnectBefore +afterNotebookPageRemoved :: (GObject a, MonadIO m) => a -> NotebookPageRemovedCallback -> m SignalHandlerId +afterNotebookPageRemoved obj cb = connectNotebookPageRemoved obj cb SignalConnectAfter + +connectNotebookPageRemoved :: (GObject a, MonadIO m) => + a -> NotebookPageRemovedCallback -> SignalConnectMode -> m SignalHandlerId +connectNotebookPageRemoved obj cb after = liftIO $ do + cb' <- mkNotebookPageRemovedCallback (notebookPageRemovedCallbackWrapper cb) + connectSignalFunPtr obj "page-removed" cb' after + +-- signal Notebook::page-reordered +type NotebookPageReorderedCallback = + Widget -> + Word32 -> + IO () + +noNotebookPageReorderedCallback :: Maybe NotebookPageReorderedCallback +noNotebookPageReorderedCallback = Nothing + +type NotebookPageReorderedCallbackC = + Ptr () -> -- object + Ptr Widget -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkNotebookPageReorderedCallback :: NotebookPageReorderedCallbackC -> IO (FunPtr NotebookPageReorderedCallbackC) + +notebookPageReorderedClosure :: NotebookPageReorderedCallback -> IO Closure +notebookPageReorderedClosure cb = newCClosure =<< mkNotebookPageReorderedCallback wrapped + where wrapped = notebookPageReorderedCallbackWrapper cb + +notebookPageReorderedCallbackWrapper :: + NotebookPageReorderedCallback -> + Ptr () -> + Ptr Widget -> + Word32 -> + Ptr () -> + IO () +notebookPageReorderedCallbackWrapper _cb _ child pageNum _ = do + child' <- (newObject Widget) child + _cb child' pageNum + +onNotebookPageReordered :: (GObject a, MonadIO m) => a -> NotebookPageReorderedCallback -> m SignalHandlerId +onNotebookPageReordered obj cb = liftIO $ connectNotebookPageReordered obj cb SignalConnectBefore +afterNotebookPageReordered :: (GObject a, MonadIO m) => a -> NotebookPageReorderedCallback -> m SignalHandlerId +afterNotebookPageReordered obj cb = connectNotebookPageReordered obj cb SignalConnectAfter + +connectNotebookPageReordered :: (GObject a, MonadIO m) => + a -> NotebookPageReorderedCallback -> SignalConnectMode -> m SignalHandlerId +connectNotebookPageReordered obj cb after = liftIO $ do + cb' <- mkNotebookPageReorderedCallback (notebookPageReorderedCallbackWrapper cb) + connectSignalFunPtr obj "page-reordered" cb' after + +-- signal Notebook::reorder-tab +type NotebookReorderTabCallback = + DirectionType -> + Bool -> + IO Bool + +noNotebookReorderTabCallback :: Maybe NotebookReorderTabCallback +noNotebookReorderTabCallback = Nothing + +type NotebookReorderTabCallbackC = + Ptr () -> -- object + CUInt -> + CInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkNotebookReorderTabCallback :: NotebookReorderTabCallbackC -> IO (FunPtr NotebookReorderTabCallbackC) + +notebookReorderTabClosure :: NotebookReorderTabCallback -> IO Closure +notebookReorderTabClosure cb = newCClosure =<< mkNotebookReorderTabCallback wrapped + where wrapped = notebookReorderTabCallbackWrapper cb + +notebookReorderTabCallbackWrapper :: + NotebookReorderTabCallback -> + Ptr () -> + CUInt -> + CInt -> + Ptr () -> + IO CInt +notebookReorderTabCallbackWrapper _cb _ object p0 _ = do + let object' = (toEnum . fromIntegral) object + let p0' = (/= 0) p0 + result <- _cb object' p0' + let result' = (fromIntegral . fromEnum) result + return result' + +onNotebookReorderTab :: (GObject a, MonadIO m) => a -> NotebookReorderTabCallback -> m SignalHandlerId +onNotebookReorderTab obj cb = liftIO $ connectNotebookReorderTab obj cb SignalConnectBefore +afterNotebookReorderTab :: (GObject a, MonadIO m) => a -> NotebookReorderTabCallback -> m SignalHandlerId +afterNotebookReorderTab obj cb = connectNotebookReorderTab obj cb SignalConnectAfter + +connectNotebookReorderTab :: (GObject a, MonadIO m) => + a -> NotebookReorderTabCallback -> SignalConnectMode -> m SignalHandlerId +connectNotebookReorderTab obj cb after = liftIO $ do + cb' <- mkNotebookReorderTabCallback (notebookReorderTabCallbackWrapper cb) + connectSignalFunPtr obj "reorder-tab" cb' after + +-- signal Notebook::select-page +type NotebookSelectPageCallback = + Bool -> + IO Bool + +noNotebookSelectPageCallback :: Maybe NotebookSelectPageCallback +noNotebookSelectPageCallback = Nothing + +type NotebookSelectPageCallbackC = + Ptr () -> -- object + CInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkNotebookSelectPageCallback :: NotebookSelectPageCallbackC -> IO (FunPtr NotebookSelectPageCallbackC) + +notebookSelectPageClosure :: NotebookSelectPageCallback -> IO Closure +notebookSelectPageClosure cb = newCClosure =<< mkNotebookSelectPageCallback wrapped + where wrapped = notebookSelectPageCallbackWrapper cb + +notebookSelectPageCallbackWrapper :: + NotebookSelectPageCallback -> + Ptr () -> + CInt -> + Ptr () -> + IO CInt +notebookSelectPageCallbackWrapper _cb _ object _ = do + let object' = (/= 0) object + result <- _cb object' + let result' = (fromIntegral . fromEnum) result + return result' + +onNotebookSelectPage :: (GObject a, MonadIO m) => a -> NotebookSelectPageCallback -> m SignalHandlerId +onNotebookSelectPage obj cb = liftIO $ connectNotebookSelectPage obj cb SignalConnectBefore +afterNotebookSelectPage :: (GObject a, MonadIO m) => a -> NotebookSelectPageCallback -> m SignalHandlerId +afterNotebookSelectPage obj cb = connectNotebookSelectPage obj cb SignalConnectAfter + +connectNotebookSelectPage :: (GObject a, MonadIO m) => + a -> NotebookSelectPageCallback -> SignalConnectMode -> m SignalHandlerId +connectNotebookSelectPage obj cb after = liftIO $ do + cb' <- mkNotebookSelectPageCallback (notebookSelectPageCallbackWrapper cb) + connectSignalFunPtr obj "select-page" cb' after + +-- signal Notebook::switch-page +type NotebookSwitchPageCallback = + Widget -> + Word32 -> + IO () + +noNotebookSwitchPageCallback :: Maybe NotebookSwitchPageCallback +noNotebookSwitchPageCallback = Nothing + +type NotebookSwitchPageCallbackC = + Ptr () -> -- object + Ptr Widget -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkNotebookSwitchPageCallback :: NotebookSwitchPageCallbackC -> IO (FunPtr NotebookSwitchPageCallbackC) + +notebookSwitchPageClosure :: NotebookSwitchPageCallback -> IO Closure +notebookSwitchPageClosure cb = newCClosure =<< mkNotebookSwitchPageCallback wrapped + where wrapped = notebookSwitchPageCallbackWrapper cb + +notebookSwitchPageCallbackWrapper :: + NotebookSwitchPageCallback -> + Ptr () -> + Ptr Widget -> + Word32 -> + Ptr () -> + IO () +notebookSwitchPageCallbackWrapper _cb _ page pageNum _ = do + page' <- (newObject Widget) page + _cb page' pageNum + +onNotebookSwitchPage :: (GObject a, MonadIO m) => a -> NotebookSwitchPageCallback -> m SignalHandlerId +onNotebookSwitchPage obj cb = liftIO $ connectNotebookSwitchPage obj cb SignalConnectBefore +afterNotebookSwitchPage :: (GObject a, MonadIO m) => a -> NotebookSwitchPageCallback -> m SignalHandlerId +afterNotebookSwitchPage obj cb = connectNotebookSwitchPage obj cb SignalConnectAfter + +connectNotebookSwitchPage :: (GObject a, MonadIO m) => + a -> NotebookSwitchPageCallback -> SignalConnectMode -> m SignalHandlerId +connectNotebookSwitchPage obj cb after = liftIO $ do + cb' <- mkNotebookSwitchPageCallback (notebookSwitchPageCallbackWrapper cb) + connectSignalFunPtr obj "switch-page" cb' after + +-- VVV Prop "enable-popup" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getNotebookEnablePopup :: (MonadIO m, NotebookK o) => o -> m Bool +getNotebookEnablePopup obj = liftIO $ getObjectPropertyBool obj "enable-popup" + +setNotebookEnablePopup :: (MonadIO m, NotebookK o) => o -> Bool -> m () +setNotebookEnablePopup obj val = liftIO $ setObjectPropertyBool obj "enable-popup" val + +constructNotebookEnablePopup :: Bool -> IO ([Char], GValue) +constructNotebookEnablePopup val = constructObjectPropertyBool "enable-popup" val + +data NotebookEnablePopupPropertyInfo +instance AttrInfo NotebookEnablePopupPropertyInfo where + type AttrAllowedOps NotebookEnablePopupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NotebookEnablePopupPropertyInfo = (~) Bool + type AttrBaseTypeConstraint NotebookEnablePopupPropertyInfo = NotebookK + type AttrGetType NotebookEnablePopupPropertyInfo = Bool + type AttrLabel NotebookEnablePopupPropertyInfo = "enable-popup" + attrGet _ = getNotebookEnablePopup + attrSet _ = setNotebookEnablePopup + attrConstruct _ = constructNotebookEnablePopup + +-- VVV Prop "group-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getNotebookGroupName :: (MonadIO m, NotebookK o) => o -> m T.Text +getNotebookGroupName obj = liftIO $ getObjectPropertyString obj "group-name" + +setNotebookGroupName :: (MonadIO m, NotebookK o) => o -> T.Text -> m () +setNotebookGroupName obj val = liftIO $ setObjectPropertyString obj "group-name" val + +constructNotebookGroupName :: T.Text -> IO ([Char], GValue) +constructNotebookGroupName val = constructObjectPropertyString "group-name" val + +data NotebookGroupNamePropertyInfo +instance AttrInfo NotebookGroupNamePropertyInfo where + type AttrAllowedOps NotebookGroupNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NotebookGroupNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint NotebookGroupNamePropertyInfo = NotebookK + type AttrGetType NotebookGroupNamePropertyInfo = T.Text + type AttrLabel NotebookGroupNamePropertyInfo = "group-name" + attrGet _ = getNotebookGroupName + attrSet _ = setNotebookGroupName + attrConstruct _ = constructNotebookGroupName + +-- VVV Prop "page" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getNotebookPage :: (MonadIO m, NotebookK o) => o -> m Int32 +getNotebookPage obj = liftIO $ getObjectPropertyCInt obj "page" + +setNotebookPage :: (MonadIO m, NotebookK o) => o -> Int32 -> m () +setNotebookPage obj val = liftIO $ setObjectPropertyCInt obj "page" val + +constructNotebookPage :: Int32 -> IO ([Char], GValue) +constructNotebookPage val = constructObjectPropertyCInt "page" val + +data NotebookPagePropertyInfo +instance AttrInfo NotebookPagePropertyInfo where + type AttrAllowedOps NotebookPagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NotebookPagePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint NotebookPagePropertyInfo = NotebookK + type AttrGetType NotebookPagePropertyInfo = Int32 + type AttrLabel NotebookPagePropertyInfo = "page" + attrGet _ = getNotebookPage + attrSet _ = setNotebookPage + attrConstruct _ = constructNotebookPage + +-- VVV Prop "scrollable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getNotebookScrollable :: (MonadIO m, NotebookK o) => o -> m Bool +getNotebookScrollable obj = liftIO $ getObjectPropertyBool obj "scrollable" + +setNotebookScrollable :: (MonadIO m, NotebookK o) => o -> Bool -> m () +setNotebookScrollable obj val = liftIO $ setObjectPropertyBool obj "scrollable" val + +constructNotebookScrollable :: Bool -> IO ([Char], GValue) +constructNotebookScrollable val = constructObjectPropertyBool "scrollable" val + +data NotebookScrollablePropertyInfo +instance AttrInfo NotebookScrollablePropertyInfo where + type AttrAllowedOps NotebookScrollablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NotebookScrollablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint NotebookScrollablePropertyInfo = NotebookK + type AttrGetType NotebookScrollablePropertyInfo = Bool + type AttrLabel NotebookScrollablePropertyInfo = "scrollable" + attrGet _ = getNotebookScrollable + attrSet _ = setNotebookScrollable + attrConstruct _ = constructNotebookScrollable + +-- VVV Prop "show-border" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getNotebookShowBorder :: (MonadIO m, NotebookK o) => o -> m Bool +getNotebookShowBorder obj = liftIO $ getObjectPropertyBool obj "show-border" + +setNotebookShowBorder :: (MonadIO m, NotebookK o) => o -> Bool -> m () +setNotebookShowBorder obj val = liftIO $ setObjectPropertyBool obj "show-border" val + +constructNotebookShowBorder :: Bool -> IO ([Char], GValue) +constructNotebookShowBorder val = constructObjectPropertyBool "show-border" val + +data NotebookShowBorderPropertyInfo +instance AttrInfo NotebookShowBorderPropertyInfo where + type AttrAllowedOps NotebookShowBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NotebookShowBorderPropertyInfo = (~) Bool + type AttrBaseTypeConstraint NotebookShowBorderPropertyInfo = NotebookK + type AttrGetType NotebookShowBorderPropertyInfo = Bool + type AttrLabel NotebookShowBorderPropertyInfo = "show-border" + attrGet _ = getNotebookShowBorder + attrSet _ = setNotebookShowBorder + attrConstruct _ = constructNotebookShowBorder + +-- VVV Prop "show-tabs" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getNotebookShowTabs :: (MonadIO m, NotebookK o) => o -> m Bool +getNotebookShowTabs obj = liftIO $ getObjectPropertyBool obj "show-tabs" + +setNotebookShowTabs :: (MonadIO m, NotebookK o) => o -> Bool -> m () +setNotebookShowTabs obj val = liftIO $ setObjectPropertyBool obj "show-tabs" val + +constructNotebookShowTabs :: Bool -> IO ([Char], GValue) +constructNotebookShowTabs val = constructObjectPropertyBool "show-tabs" val + +data NotebookShowTabsPropertyInfo +instance AttrInfo NotebookShowTabsPropertyInfo where + type AttrAllowedOps NotebookShowTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NotebookShowTabsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint NotebookShowTabsPropertyInfo = NotebookK + type AttrGetType NotebookShowTabsPropertyInfo = Bool + type AttrLabel NotebookShowTabsPropertyInfo = "show-tabs" + attrGet _ = getNotebookShowTabs + attrSet _ = setNotebookShowTabs + attrConstruct _ = constructNotebookShowTabs + +-- VVV Prop "tab-pos" + -- Type: TInterface "Gtk" "PositionType" + -- Flags: [PropertyReadable,PropertyWritable] + +getNotebookTabPos :: (MonadIO m, NotebookK o) => o -> m PositionType +getNotebookTabPos obj = liftIO $ getObjectPropertyEnum obj "tab-pos" + +setNotebookTabPos :: (MonadIO m, NotebookK o) => o -> PositionType -> m () +setNotebookTabPos obj val = liftIO $ setObjectPropertyEnum obj "tab-pos" val + +constructNotebookTabPos :: PositionType -> IO ([Char], GValue) +constructNotebookTabPos val = constructObjectPropertyEnum "tab-pos" val + +data NotebookTabPosPropertyInfo +instance AttrInfo NotebookTabPosPropertyInfo where + type AttrAllowedOps NotebookTabPosPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NotebookTabPosPropertyInfo = (~) PositionType + type AttrBaseTypeConstraint NotebookTabPosPropertyInfo = NotebookK + type AttrGetType NotebookTabPosPropertyInfo = PositionType + type AttrLabel NotebookTabPosPropertyInfo = "tab-pos" + attrGet _ = getNotebookTabPos + attrSet _ = setNotebookTabPos + attrConstruct _ = constructNotebookTabPos + +type instance AttributeList Notebook = NotebookAttributeList +type NotebookAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("enablePopup", NotebookEnablePopupPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("groupName", NotebookGroupNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("page", NotebookPagePropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollable", NotebookScrollablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showBorder", NotebookShowBorderPropertyInfo), '("showTabs", NotebookShowTabsPropertyInfo), '("style", WidgetStylePropertyInfo), '("tabPos", NotebookTabPosPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) + +data NotebookChangeCurrentPageSignalInfo +instance SignalInfo NotebookChangeCurrentPageSignalInfo where + type HaskellCallbackType NotebookChangeCurrentPageSignalInfo = NotebookChangeCurrentPageCallback + connectSignal _ = connectNotebookChangeCurrentPage + +data NotebookCreateWindowSignalInfo +instance SignalInfo NotebookCreateWindowSignalInfo where + type HaskellCallbackType NotebookCreateWindowSignalInfo = NotebookCreateWindowCallback + connectSignal _ = connectNotebookCreateWindow + +data NotebookFocusTabSignalInfo +instance SignalInfo NotebookFocusTabSignalInfo where + type HaskellCallbackType NotebookFocusTabSignalInfo = NotebookFocusTabCallback + connectSignal _ = connectNotebookFocusTab + +data NotebookMoveFocusOutSignalInfo +instance SignalInfo NotebookMoveFocusOutSignalInfo where + type HaskellCallbackType NotebookMoveFocusOutSignalInfo = NotebookMoveFocusOutCallback + connectSignal _ = connectNotebookMoveFocusOut + +data NotebookPageAddedSignalInfo +instance SignalInfo NotebookPageAddedSignalInfo where + type HaskellCallbackType NotebookPageAddedSignalInfo = NotebookPageAddedCallback + connectSignal _ = connectNotebookPageAdded + +data NotebookPageRemovedSignalInfo +instance SignalInfo NotebookPageRemovedSignalInfo where + type HaskellCallbackType NotebookPageRemovedSignalInfo = NotebookPageRemovedCallback + connectSignal _ = connectNotebookPageRemoved + +data NotebookPageReorderedSignalInfo +instance SignalInfo NotebookPageReorderedSignalInfo where + type HaskellCallbackType NotebookPageReorderedSignalInfo = NotebookPageReorderedCallback + connectSignal _ = connectNotebookPageReordered + +data NotebookReorderTabSignalInfo +instance SignalInfo NotebookReorderTabSignalInfo where + type HaskellCallbackType NotebookReorderTabSignalInfo = NotebookReorderTabCallback + connectSignal _ = connectNotebookReorderTab + +data NotebookSelectPageSignalInfo +instance SignalInfo NotebookSelectPageSignalInfo where + type HaskellCallbackType NotebookSelectPageSignalInfo = NotebookSelectPageCallback + connectSignal _ = connectNotebookSelectPage + +data NotebookSwitchPageSignalInfo +instance SignalInfo NotebookSwitchPageSignalInfo where + type HaskellCallbackType NotebookSwitchPageSignalInfo = NotebookSwitchPageCallback + connectSignal _ = connectNotebookSwitchPage + +type instance SignalList Notebook = NotebookSignalList +type NotebookSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeCurrentPage", NotebookChangeCurrentPageSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createWindow", NotebookCreateWindowSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("focusTab", NotebookFocusTabSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveFocusOut", NotebookMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pageAdded", NotebookPageAddedSignalInfo), '("pageRemoved", NotebookPageRemovedSignalInfo), '("pageReordered", NotebookPageReorderedSignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("reorderTab", NotebookReorderTabSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectPage", NotebookSelectPageSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("switchPage", NotebookSwitchPageSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +-- method Notebook::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Notebook" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_new" gtk_notebook_new :: + IO (Ptr Notebook) + + +notebookNew :: + (MonadIO m) => + m Notebook -- result +notebookNew = liftIO $ do + result <- gtk_notebook_new + checkUnexpectedReturnNULL "gtk_notebook_new" result + result' <- (newObject Notebook) result + return result' + +-- method Notebook::append_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_append_page" gtk_notebook_append_page :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" + IO Int32 + + +notebookAppendPage :: + (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => + a -- _obj + -> b -- child + -> Maybe (c) -- tabLabel + -> m Int32 -- result +notebookAppendPage _obj child tabLabel = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + maybeTabLabel <- case tabLabel of + Nothing -> return nullPtr + Just jTabLabel -> do + let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel + return jTabLabel' + result <- gtk_notebook_append_page _obj' child' maybeTabLabel + touchManagedPtr _obj + touchManagedPtr child + whenJust tabLabel touchManagedPtr + return result + +data NotebookAppendPageMethodInfo +instance (signature ~ (b -> Maybe (c) -> m Int32), MonadIO m, NotebookK a, WidgetK b, WidgetK c) => MethodInfo NotebookAppendPageMethodInfo a signature where + overloadedMethod _ = notebookAppendPage + +-- method Notebook::append_page_menu +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_append_page_menu" gtk_notebook_append_page_menu :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" + Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" + IO Int32 + + +notebookAppendPageMenu :: + (MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => + a -- _obj + -> b -- child + -> Maybe (c) -- tabLabel + -> Maybe (d) -- menuLabel + -> m Int32 -- result +notebookAppendPageMenu _obj child tabLabel menuLabel = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + maybeTabLabel <- case tabLabel of + Nothing -> return nullPtr + Just jTabLabel -> do + let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel + return jTabLabel' + maybeMenuLabel <- case menuLabel of + Nothing -> return nullPtr + Just jMenuLabel -> do + let jMenuLabel' = unsafeManagedPtrCastPtr jMenuLabel + return jMenuLabel' + result <- gtk_notebook_append_page_menu _obj' child' maybeTabLabel maybeMenuLabel + touchManagedPtr _obj + touchManagedPtr child + whenJust tabLabel touchManagedPtr + whenJust menuLabel touchManagedPtr + return result + +data NotebookAppendPageMenuMethodInfo +instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> m Int32), MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => MethodInfo NotebookAppendPageMenuMethodInfo a signature where + overloadedMethod _ = notebookAppendPageMenu + +-- method Notebook::detach_tab +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_detach_tab" gtk_notebook_detach_tab :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + IO () + + +notebookDetachTab :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> m () -- result +notebookDetachTab _obj child = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + gtk_notebook_detach_tab _obj' child' + touchManagedPtr _obj + touchManagedPtr child + return () + +data NotebookDetachTabMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookDetachTabMethodInfo a signature where + overloadedMethod _ = notebookDetachTab + +-- method Notebook::get_action_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_action_widget" gtk_notebook_get_action_widget :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + CUInt -> -- pack_type : TInterface "Gtk" "PackType" + IO (Ptr Widget) + + +notebookGetActionWidget :: + (MonadIO m, NotebookK a) => + a -- _obj + -> PackType -- packType + -> m Widget -- result +notebookGetActionWidget _obj packType = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let packType' = (fromIntegral . fromEnum) packType + result <- gtk_notebook_get_action_widget _obj' packType' + checkUnexpectedReturnNULL "gtk_notebook_get_action_widget" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data NotebookGetActionWidgetMethodInfo +instance (signature ~ (PackType -> m Widget), MonadIO m, NotebookK a) => MethodInfo NotebookGetActionWidgetMethodInfo a signature where + overloadedMethod _ = notebookGetActionWidget + +-- method Notebook::get_current_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_current_page" gtk_notebook_get_current_page :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO Int32 + + +notebookGetCurrentPage :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m Int32 -- result +notebookGetCurrentPage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_notebook_get_current_page _obj' + touchManagedPtr _obj + return result + +data NotebookGetCurrentPageMethodInfo +instance (signature ~ (m Int32), MonadIO m, NotebookK a) => MethodInfo NotebookGetCurrentPageMethodInfo a signature where + overloadedMethod _ = notebookGetCurrentPage + +-- method Notebook::get_group_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_group_name" gtk_notebook_get_group_name :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO CString + + +notebookGetGroupName :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m T.Text -- result +notebookGetGroupName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_notebook_get_group_name _obj' + checkUnexpectedReturnNULL "gtk_notebook_get_group_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data NotebookGetGroupNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, NotebookK a) => MethodInfo NotebookGetGroupNameMethodInfo a signature where + overloadedMethod _ = notebookGetGroupName + +-- method Notebook::get_menu_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_menu_label" gtk_notebook_get_menu_label :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + IO (Ptr Widget) + + +notebookGetMenuLabel :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> m Widget -- result +notebookGetMenuLabel _obj child = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + result <- gtk_notebook_get_menu_label _obj' child' + checkUnexpectedReturnNULL "gtk_notebook_get_menu_label" result + result' <- (newObject Widget) result + touchManagedPtr _obj + touchManagedPtr child + return result' + +data NotebookGetMenuLabelMethodInfo +instance (signature ~ (b -> m Widget), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookGetMenuLabelMethodInfo a signature where + overloadedMethod _ = notebookGetMenuLabel + +-- method Notebook::get_menu_label_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_menu_label_text" gtk_notebook_get_menu_label_text :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + IO CString + + +notebookGetMenuLabelText :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> m T.Text -- result +notebookGetMenuLabelText _obj child = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + result <- gtk_notebook_get_menu_label_text _obj' child' + checkUnexpectedReturnNULL "gtk_notebook_get_menu_label_text" result + result' <- cstringToText result + touchManagedPtr _obj + touchManagedPtr child + return result' + +data NotebookGetMenuLabelTextMethodInfo +instance (signature ~ (b -> m T.Text), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookGetMenuLabelTextMethodInfo a signature where + overloadedMethod _ = notebookGetMenuLabelText + +-- method Notebook::get_n_pages +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_n_pages" gtk_notebook_get_n_pages :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO Int32 + + +notebookGetNPages :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m Int32 -- result +notebookGetNPages _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_notebook_get_n_pages _obj' + touchManagedPtr _obj + return result + +data NotebookGetNPagesMethodInfo +instance (signature ~ (m Int32), MonadIO m, NotebookK a) => MethodInfo NotebookGetNPagesMethodInfo a signature where + overloadedMethod _ = notebookGetNPages + +-- method Notebook::get_nth_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_nth_page" gtk_notebook_get_nth_page :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Int32 -> -- page_num : TBasicType TInt32 + IO (Ptr Widget) + + +notebookGetNthPage :: + (MonadIO m, NotebookK a) => + a -- _obj + -> Int32 -- pageNum + -> m Widget -- result +notebookGetNthPage _obj pageNum = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_notebook_get_nth_page _obj' pageNum + checkUnexpectedReturnNULL "gtk_notebook_get_nth_page" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data NotebookGetNthPageMethodInfo +instance (signature ~ (Int32 -> m Widget), MonadIO m, NotebookK a) => MethodInfo NotebookGetNthPageMethodInfo a signature where + overloadedMethod _ = notebookGetNthPage + +-- method Notebook::get_scrollable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_scrollable" gtk_notebook_get_scrollable :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO CInt + + +notebookGetScrollable :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m Bool -- result +notebookGetScrollable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_notebook_get_scrollable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data NotebookGetScrollableMethodInfo +instance (signature ~ (m Bool), MonadIO m, NotebookK a) => MethodInfo NotebookGetScrollableMethodInfo a signature where + overloadedMethod _ = notebookGetScrollable + +-- method Notebook::get_show_border +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_show_border" gtk_notebook_get_show_border :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO CInt + + +notebookGetShowBorder :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m Bool -- result +notebookGetShowBorder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_notebook_get_show_border _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data NotebookGetShowBorderMethodInfo +instance (signature ~ (m Bool), MonadIO m, NotebookK a) => MethodInfo NotebookGetShowBorderMethodInfo a signature where + overloadedMethod _ = notebookGetShowBorder + +-- method Notebook::get_show_tabs +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_show_tabs" gtk_notebook_get_show_tabs :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO CInt + + +notebookGetShowTabs :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m Bool -- result +notebookGetShowTabs _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_notebook_get_show_tabs _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data NotebookGetShowTabsMethodInfo +instance (signature ~ (m Bool), MonadIO m, NotebookK a) => MethodInfo NotebookGetShowTabsMethodInfo a signature where + overloadedMethod _ = notebookGetShowTabs + +-- method Notebook::get_tab_detachable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_tab_detachable" gtk_notebook_get_tab_detachable :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + IO CInt + + +notebookGetTabDetachable :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> m Bool -- result +notebookGetTabDetachable _obj child = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + result <- gtk_notebook_get_tab_detachable _obj' child' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr child + return result' + +data NotebookGetTabDetachableMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookGetTabDetachableMethodInfo a signature where + overloadedMethod _ = notebookGetTabDetachable + +-- method Notebook::get_tab_hborder +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_tab_hborder" gtk_notebook_get_tab_hborder :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO Word16 + +{-# DEPRECATED notebookGetTabHborder ["(Since version 3.4)","this function returns zero"]#-} +notebookGetTabHborder :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m Word16 -- result +notebookGetTabHborder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_notebook_get_tab_hborder _obj' + touchManagedPtr _obj + return result + +data NotebookGetTabHborderMethodInfo +instance (signature ~ (m Word16), MonadIO m, NotebookK a) => MethodInfo NotebookGetTabHborderMethodInfo a signature where + overloadedMethod _ = notebookGetTabHborder + +-- method Notebook::get_tab_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_tab_label" gtk_notebook_get_tab_label :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + IO (Ptr Widget) + + +notebookGetTabLabel :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> m Widget -- result +notebookGetTabLabel _obj child = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + result <- gtk_notebook_get_tab_label _obj' child' + checkUnexpectedReturnNULL "gtk_notebook_get_tab_label" result + result' <- (newObject Widget) result + touchManagedPtr _obj + touchManagedPtr child + return result' + +data NotebookGetTabLabelMethodInfo +instance (signature ~ (b -> m Widget), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookGetTabLabelMethodInfo a signature where + overloadedMethod _ = notebookGetTabLabel + +-- method Notebook::get_tab_label_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_tab_label_text" gtk_notebook_get_tab_label_text :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + IO CString + + +notebookGetTabLabelText :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> m T.Text -- result +notebookGetTabLabelText _obj child = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + result <- gtk_notebook_get_tab_label_text _obj' child' + checkUnexpectedReturnNULL "gtk_notebook_get_tab_label_text" result + result' <- cstringToText result + touchManagedPtr _obj + touchManagedPtr child + return result' + +data NotebookGetTabLabelTextMethodInfo +instance (signature ~ (b -> m T.Text), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookGetTabLabelTextMethodInfo a signature where + overloadedMethod _ = notebookGetTabLabelText + +-- method Notebook::get_tab_pos +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "PositionType" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_tab_pos" gtk_notebook_get_tab_pos :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO CUInt + + +notebookGetTabPos :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m PositionType -- result +notebookGetTabPos _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_notebook_get_tab_pos _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data NotebookGetTabPosMethodInfo +instance (signature ~ (m PositionType), MonadIO m, NotebookK a) => MethodInfo NotebookGetTabPosMethodInfo a signature where + overloadedMethod _ = notebookGetTabPos + +-- method Notebook::get_tab_reorderable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_tab_reorderable" gtk_notebook_get_tab_reorderable :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + IO CInt + + +notebookGetTabReorderable :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> m Bool -- result +notebookGetTabReorderable _obj child = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + result <- gtk_notebook_get_tab_reorderable _obj' child' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr child + return result' + +data NotebookGetTabReorderableMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookGetTabReorderableMethodInfo a signature where + overloadedMethod _ = notebookGetTabReorderable + +-- method Notebook::get_tab_vborder +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_get_tab_vborder" gtk_notebook_get_tab_vborder :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO Word16 + +{-# DEPRECATED notebookGetTabVborder ["(Since version 3.4)","this function returns zero"]#-} +notebookGetTabVborder :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m Word16 -- result +notebookGetTabVborder _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_notebook_get_tab_vborder _obj' + touchManagedPtr _obj + return result + +data NotebookGetTabVborderMethodInfo +instance (signature ~ (m Word16), MonadIO m, NotebookK a) => MethodInfo NotebookGetTabVborderMethodInfo a signature where + overloadedMethod _ = notebookGetTabVborder + +-- method Notebook::insert_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_insert_page" gtk_notebook_insert_page :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" + Int32 -> -- position : TBasicType TInt32 + IO Int32 + + +notebookInsertPage :: + (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => + a -- _obj + -> b -- child + -> Maybe (c) -- tabLabel + -> Int32 -- position + -> m Int32 -- result +notebookInsertPage _obj child tabLabel position = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + maybeTabLabel <- case tabLabel of + Nothing -> return nullPtr + Just jTabLabel -> do + let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel + return jTabLabel' + result <- gtk_notebook_insert_page _obj' child' maybeTabLabel position + touchManagedPtr _obj + touchManagedPtr child + whenJust tabLabel touchManagedPtr + return result + +data NotebookInsertPageMethodInfo +instance (signature ~ (b -> Maybe (c) -> Int32 -> m Int32), MonadIO m, NotebookK a, WidgetK b, WidgetK c) => MethodInfo NotebookInsertPageMethodInfo a signature where + overloadedMethod _ = notebookInsertPage + +-- method Notebook::insert_page_menu +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_insert_page_menu" gtk_notebook_insert_page_menu :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" + Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" + Int32 -> -- position : TBasicType TInt32 + IO Int32 + + +notebookInsertPageMenu :: + (MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => + a -- _obj + -> b -- child + -> Maybe (c) -- tabLabel + -> Maybe (d) -- menuLabel + -> Int32 -- position + -> m Int32 -- result +notebookInsertPageMenu _obj child tabLabel menuLabel position = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + maybeTabLabel <- case tabLabel of + Nothing -> return nullPtr + Just jTabLabel -> do + let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel + return jTabLabel' + maybeMenuLabel <- case menuLabel of + Nothing -> return nullPtr + Just jMenuLabel -> do + let jMenuLabel' = unsafeManagedPtrCastPtr jMenuLabel + return jMenuLabel' + result <- gtk_notebook_insert_page_menu _obj' child' maybeTabLabel maybeMenuLabel position + touchManagedPtr _obj + touchManagedPtr child + whenJust tabLabel touchManagedPtr + whenJust menuLabel touchManagedPtr + return result + +data NotebookInsertPageMenuMethodInfo +instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> Int32 -> m Int32), MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => MethodInfo NotebookInsertPageMenuMethodInfo a signature where + overloadedMethod _ = notebookInsertPageMenu + +-- method Notebook::next_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_next_page" gtk_notebook_next_page :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO () + + +notebookNextPage :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m () -- result +notebookNextPage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_notebook_next_page _obj' + touchManagedPtr _obj + return () + +data NotebookNextPageMethodInfo +instance (signature ~ (m ()), MonadIO m, NotebookK a) => MethodInfo NotebookNextPageMethodInfo a signature where + overloadedMethod _ = notebookNextPage + +-- method Notebook::page_num +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_page_num" gtk_notebook_page_num :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + IO Int32 + + +notebookPageNum :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> m Int32 -- result +notebookPageNum _obj child = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + result <- gtk_notebook_page_num _obj' child' + touchManagedPtr _obj + touchManagedPtr child + return result + +data NotebookPageNumMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookPageNumMethodInfo a signature where + overloadedMethod _ = notebookPageNum + +-- method Notebook::popup_disable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_popup_disable" gtk_notebook_popup_disable :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO () + + +notebookPopupDisable :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m () -- result +notebookPopupDisable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_notebook_popup_disable _obj' + touchManagedPtr _obj + return () + +data NotebookPopupDisableMethodInfo +instance (signature ~ (m ()), MonadIO m, NotebookK a) => MethodInfo NotebookPopupDisableMethodInfo a signature where + overloadedMethod _ = notebookPopupDisable + +-- method Notebook::popup_enable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_popup_enable" gtk_notebook_popup_enable :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO () + + +notebookPopupEnable :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m () -- result +notebookPopupEnable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_notebook_popup_enable _obj' + touchManagedPtr _obj + return () + +data NotebookPopupEnableMethodInfo +instance (signature ~ (m ()), MonadIO m, NotebookK a) => MethodInfo NotebookPopupEnableMethodInfo a signature where + overloadedMethod _ = notebookPopupEnable + +-- method Notebook::prepend_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_prepend_page" gtk_notebook_prepend_page :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" + IO Int32 + + +notebookPrependPage :: + (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => + a -- _obj + -> b -- child + -> Maybe (c) -- tabLabel + -> m Int32 -- result +notebookPrependPage _obj child tabLabel = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + maybeTabLabel <- case tabLabel of + Nothing -> return nullPtr + Just jTabLabel -> do + let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel + return jTabLabel' + result <- gtk_notebook_prepend_page _obj' child' maybeTabLabel + touchManagedPtr _obj + touchManagedPtr child + whenJust tabLabel touchManagedPtr + return result + +data NotebookPrependPageMethodInfo +instance (signature ~ (b -> Maybe (c) -> m Int32), MonadIO m, NotebookK a, WidgetK b, WidgetK c) => MethodInfo NotebookPrependPageMethodInfo a signature where + overloadedMethod _ = notebookPrependPage + +-- method Notebook::prepend_page_menu +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_prepend_page_menu" gtk_notebook_prepend_page_menu :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" + Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" + IO Int32 + + +notebookPrependPageMenu :: + (MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => + a -- _obj + -> b -- child + -> Maybe (c) -- tabLabel + -> Maybe (d) -- menuLabel + -> m Int32 -- result +notebookPrependPageMenu _obj child tabLabel menuLabel = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + maybeTabLabel <- case tabLabel of + Nothing -> return nullPtr + Just jTabLabel -> do + let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel + return jTabLabel' + maybeMenuLabel <- case menuLabel of + Nothing -> return nullPtr + Just jMenuLabel -> do + let jMenuLabel' = unsafeManagedPtrCastPtr jMenuLabel + return jMenuLabel' + result <- gtk_notebook_prepend_page_menu _obj' child' maybeTabLabel maybeMenuLabel + touchManagedPtr _obj + touchManagedPtr child + whenJust tabLabel touchManagedPtr + whenJust menuLabel touchManagedPtr + return result + +data NotebookPrependPageMenuMethodInfo +instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> m Int32), MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => MethodInfo NotebookPrependPageMenuMethodInfo a signature where + overloadedMethod _ = notebookPrependPageMenu + +-- method Notebook::prev_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_prev_page" gtk_notebook_prev_page :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + IO () + + +notebookPrevPage :: + (MonadIO m, NotebookK a) => + a -- _obj + -> m () -- result +notebookPrevPage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_notebook_prev_page _obj' + touchManagedPtr _obj + return () + +data NotebookPrevPageMethodInfo +instance (signature ~ (m ()), MonadIO m, NotebookK a) => MethodInfo NotebookPrevPageMethodInfo a signature where + overloadedMethod _ = notebookPrevPage + +-- method Notebook::remove_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_remove_page" gtk_notebook_remove_page :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Int32 -> -- page_num : TBasicType TInt32 + IO () + + +notebookRemovePage :: + (MonadIO m, NotebookK a) => + a -- _obj + -> Int32 -- pageNum + -> m () -- result +notebookRemovePage _obj pageNum = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_notebook_remove_page _obj' pageNum + touchManagedPtr _obj + return () + +data NotebookRemovePageMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookRemovePageMethodInfo a signature where + overloadedMethod _ = notebookRemovePage + +-- method Notebook::reorder_child +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_reorder_child" gtk_notebook_reorder_child :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + Int32 -> -- position : TBasicType TInt32 + IO () + + +notebookReorderChild :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> Int32 -- position + -> m () -- result +notebookReorderChild _obj child position = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + gtk_notebook_reorder_child _obj' child' position + touchManagedPtr _obj + touchManagedPtr child + return () + +data NotebookReorderChildMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookReorderChildMethodInfo a signature where + overloadedMethod _ = notebookReorderChild + +-- method Notebook::set_action_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_action_widget" gtk_notebook_set_action_widget :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- widget : TInterface "Gtk" "Widget" + CUInt -> -- pack_type : TInterface "Gtk" "PackType" + IO () + + +notebookSetActionWidget :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- widget + -> PackType -- packType + -> m () -- result +notebookSetActionWidget _obj widget packType = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let widget' = unsafeManagedPtrCastPtr widget + let packType' = (fromIntegral . fromEnum) packType + gtk_notebook_set_action_widget _obj' widget' packType' + touchManagedPtr _obj + touchManagedPtr widget + return () + +data NotebookSetActionWidgetMethodInfo +instance (signature ~ (b -> PackType -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookSetActionWidgetMethodInfo a signature where + overloadedMethod _ = notebookSetActionWidget + +-- method Notebook::set_current_page +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_current_page" gtk_notebook_set_current_page :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Int32 -> -- page_num : TBasicType TInt32 + IO () + + +notebookSetCurrentPage :: + (MonadIO m, NotebookK a) => + a -- _obj + -> Int32 -- pageNum + -> m () -- result +notebookSetCurrentPage _obj pageNum = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_notebook_set_current_page _obj' pageNum + touchManagedPtr _obj + return () + +data NotebookSetCurrentPageMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookSetCurrentPageMethodInfo a signature where + overloadedMethod _ = notebookSetCurrentPage + +-- method Notebook::set_group_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_group_name" gtk_notebook_set_group_name :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + CString -> -- group_name : TBasicType TUTF8 + IO () + + +notebookSetGroupName :: + (MonadIO m, NotebookK a) => + a -- _obj + -> Maybe (T.Text) -- groupName + -> m () -- result +notebookSetGroupName _obj groupName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeGroupName <- case groupName of + Nothing -> return nullPtr + Just jGroupName -> do + jGroupName' <- textToCString jGroupName + return jGroupName' + gtk_notebook_set_group_name _obj' maybeGroupName + touchManagedPtr _obj + freeMem maybeGroupName + return () + +data NotebookSetGroupNameMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookSetGroupNameMethodInfo a signature where + overloadedMethod _ = notebookSetGroupName + +-- method Notebook::set_menu_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_menu_label" gtk_notebook_set_menu_label :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" + IO () + + +notebookSetMenuLabel :: + (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => + a -- _obj + -> b -- child + -> Maybe (c) -- menuLabel + -> m () -- result +notebookSetMenuLabel _obj child menuLabel = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + maybeMenuLabel <- case menuLabel of + Nothing -> return nullPtr + Just jMenuLabel -> do + let jMenuLabel' = unsafeManagedPtrCastPtr jMenuLabel + return jMenuLabel' + gtk_notebook_set_menu_label _obj' child' maybeMenuLabel + touchManagedPtr _obj + touchManagedPtr child + whenJust menuLabel touchManagedPtr + return () + +data NotebookSetMenuLabelMethodInfo +instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, NotebookK a, WidgetK b, WidgetK c) => MethodInfo NotebookSetMenuLabelMethodInfo a signature where + overloadedMethod _ = notebookSetMenuLabel + +-- method Notebook::set_menu_label_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_menu_label_text" gtk_notebook_set_menu_label_text :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + CString -> -- menu_text : TBasicType TUTF8 + IO () + + +notebookSetMenuLabelText :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> T.Text -- menuText + -> m () -- result +notebookSetMenuLabelText _obj child menuText = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + menuText' <- textToCString menuText + gtk_notebook_set_menu_label_text _obj' child' menuText' + touchManagedPtr _obj + touchManagedPtr child + freeMem menuText' + return () + +data NotebookSetMenuLabelTextMethodInfo +instance (signature ~ (b -> T.Text -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookSetMenuLabelTextMethodInfo a signature where + overloadedMethod _ = notebookSetMenuLabelText + +-- method Notebook::set_scrollable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scrollable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_scrollable" gtk_notebook_set_scrollable :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + CInt -> -- scrollable : TBasicType TBoolean + IO () + + +notebookSetScrollable :: + (MonadIO m, NotebookK a) => + a -- _obj + -> Bool -- scrollable + -> m () -- result +notebookSetScrollable _obj scrollable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let scrollable' = (fromIntegral . fromEnum) scrollable + gtk_notebook_set_scrollable _obj' scrollable' + touchManagedPtr _obj + return () + +data NotebookSetScrollableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookSetScrollableMethodInfo a signature where + overloadedMethod _ = notebookSetScrollable + +-- method Notebook::set_show_border +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_border", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_show_border" gtk_notebook_set_show_border :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + CInt -> -- show_border : TBasicType TBoolean + IO () + + +notebookSetShowBorder :: + (MonadIO m, NotebookK a) => + a -- _obj + -> Bool -- showBorder + -> m () -- result +notebookSetShowBorder _obj showBorder = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let showBorder' = (fromIntegral . fromEnum) showBorder + gtk_notebook_set_show_border _obj' showBorder' + touchManagedPtr _obj + return () + +data NotebookSetShowBorderMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookSetShowBorderMethodInfo a signature where + overloadedMethod _ = notebookSetShowBorder + +-- method Notebook::set_show_tabs +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_tabs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_show_tabs" gtk_notebook_set_show_tabs :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + CInt -> -- show_tabs : TBasicType TBoolean + IO () + + +notebookSetShowTabs :: + (MonadIO m, NotebookK a) => + a -- _obj + -> Bool -- showTabs + -> m () -- result +notebookSetShowTabs _obj showTabs = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let showTabs' = (fromIntegral . fromEnum) showTabs + gtk_notebook_set_show_tabs _obj' showTabs' + touchManagedPtr _obj + return () + +data NotebookSetShowTabsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookSetShowTabsMethodInfo a signature where + overloadedMethod _ = notebookSetShowTabs + +-- method Notebook::set_tab_detachable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detachable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_tab_detachable" gtk_notebook_set_tab_detachable :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + CInt -> -- detachable : TBasicType TBoolean + IO () + + +notebookSetTabDetachable :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> Bool -- detachable + -> m () -- result +notebookSetTabDetachable _obj child detachable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + let detachable' = (fromIntegral . fromEnum) detachable + gtk_notebook_set_tab_detachable _obj' child' detachable' + touchManagedPtr _obj + touchManagedPtr child + return () + +data NotebookSetTabDetachableMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookSetTabDetachableMethodInfo a signature where + overloadedMethod _ = notebookSetTabDetachable + +-- method Notebook::set_tab_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_tab_label" gtk_notebook_set_tab_label :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" + IO () + + +notebookSetTabLabel :: + (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => + a -- _obj + -> b -- child + -> Maybe (c) -- tabLabel + -> m () -- result +notebookSetTabLabel _obj child tabLabel = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + maybeTabLabel <- case tabLabel of + Nothing -> return nullPtr + Just jTabLabel -> do + let jTabLabel' = unsafeManagedPtrCastPtr jTabLabel + return jTabLabel' + gtk_notebook_set_tab_label _obj' child' maybeTabLabel + touchManagedPtr _obj + touchManagedPtr child + whenJust tabLabel touchManagedPtr + return () + +data NotebookSetTabLabelMethodInfo +instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, NotebookK a, WidgetK b, WidgetK c) => MethodInfo NotebookSetTabLabelMethodInfo a signature where + overloadedMethod _ = notebookSetTabLabel + +-- method Notebook::set_tab_label_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_tab_label_text" gtk_notebook_set_tab_label_text :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + CString -> -- tab_text : TBasicType TUTF8 + IO () + + +notebookSetTabLabelText :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> T.Text -- tabText + -> m () -- result +notebookSetTabLabelText _obj child tabText = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + tabText' <- textToCString tabText + gtk_notebook_set_tab_label_text _obj' child' tabText' + touchManagedPtr _obj + touchManagedPtr child + freeMem tabText' + return () + +data NotebookSetTabLabelTextMethodInfo +instance (signature ~ (b -> T.Text -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookSetTabLabelTextMethodInfo a signature where + overloadedMethod _ = notebookSetTabLabelText + +-- method Notebook::set_tab_pos +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_tab_pos" gtk_notebook_set_tab_pos :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + CUInt -> -- pos : TInterface "Gtk" "PositionType" + IO () + + +notebookSetTabPos :: + (MonadIO m, NotebookK a) => + a -- _obj + -> PositionType -- pos + -> m () -- result +notebookSetTabPos _obj pos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let pos' = (fromIntegral . fromEnum) pos + gtk_notebook_set_tab_pos _obj' pos' + touchManagedPtr _obj + return () + +data NotebookSetTabPosMethodInfo +instance (signature ~ (PositionType -> m ()), MonadIO m, NotebookK a) => MethodInfo NotebookSetTabPosMethodInfo a signature where + overloadedMethod _ = notebookSetTabPos + +-- method Notebook::set_tab_reorderable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_notebook_set_tab_reorderable" gtk_notebook_set_tab_reorderable :: + Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + CInt -> -- reorderable : TBasicType TBoolean + IO () + + +notebookSetTabReorderable :: + (MonadIO m, NotebookK a, WidgetK b) => + a -- _obj + -> b -- child + -> Bool -- reorderable + -> m () -- result +notebookSetTabReorderable _obj child reorderable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + let reorderable' = (fromIntegral . fromEnum) reorderable + gtk_notebook_set_tab_reorderable _obj' child' reorderable' + touchManagedPtr _obj + touchManagedPtr child + return () + +data NotebookSetTabReorderableMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, NotebookK a, WidgetK b) => MethodInfo NotebookSetTabReorderableMethodInfo a signature where + overloadedMethod _ = notebookSetTabReorderable diff --git a/GI/Gtk/Objects/Notebook.hs-boot b/GI/Gtk/Objects/Notebook.hs-boot --- a/GI/Gtk/Objects/Notebook.hs-boot +++ b/GI/Gtk/Objects/Notebook.hs-boot @@ -28,3 +28,47 @@ data NotebookReorderTabSignalInfo data NotebookSelectPageSignalInfo data NotebookSwitchPageSignalInfo +data NotebookAppendPageMethodInfo +data NotebookAppendPageMenuMethodInfo +data NotebookDetachTabMethodInfo +data NotebookGetActionWidgetMethodInfo +data NotebookGetCurrentPageMethodInfo +data NotebookGetGroupNameMethodInfo +data NotebookGetMenuLabelMethodInfo +data NotebookGetMenuLabelTextMethodInfo +data NotebookGetNPagesMethodInfo +data NotebookGetNthPageMethodInfo +data NotebookGetScrollableMethodInfo +data NotebookGetShowBorderMethodInfo +data NotebookGetShowTabsMethodInfo +data NotebookGetTabDetachableMethodInfo +data NotebookGetTabHborderMethodInfo +data NotebookGetTabLabelMethodInfo +data NotebookGetTabLabelTextMethodInfo +data NotebookGetTabPosMethodInfo +data NotebookGetTabReorderableMethodInfo +data NotebookGetTabVborderMethodInfo +data NotebookInsertPageMethodInfo +data NotebookInsertPageMenuMethodInfo +data NotebookNextPageMethodInfo +data NotebookPageNumMethodInfo +data NotebookPopupDisableMethodInfo +data NotebookPopupEnableMethodInfo +data NotebookPrependPageMethodInfo +data NotebookPrependPageMenuMethodInfo +data NotebookPrevPageMethodInfo +data NotebookRemovePageMethodInfo +data NotebookReorderChildMethodInfo +data NotebookSetActionWidgetMethodInfo +data NotebookSetCurrentPageMethodInfo +data NotebookSetGroupNameMethodInfo +data NotebookSetMenuLabelMethodInfo +data NotebookSetMenuLabelTextMethodInfo +data NotebookSetScrollableMethodInfo +data NotebookSetShowBorderMethodInfo +data NotebookSetShowTabsMethodInfo +data NotebookSetTabDetachableMethodInfo +data NotebookSetTabLabelMethodInfo +data NotebookSetTabLabelTextMethodInfo +data NotebookSetTabPosMethodInfo +data NotebookSetTabReorderableMethodInfo diff --git a/GI/Gtk/Objects/NotebookAccessible.hs b/GI/Gtk/Objects/NotebookAccessible.hs --- a/GI/Gtk/Objects/NotebookAccessible.hs +++ b/GI/Gtk/Objects/NotebookAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,85 @@ noNotebookAccessible :: Maybe NotebookAccessible noNotebookAccessible = Nothing +type family ResolveNotebookAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveNotebookAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveNotebookAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo + ResolveNotebookAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveNotebookAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveNotebookAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo + ResolveNotebookAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveNotebookAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveNotebookAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveNotebookAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveNotebookAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveNotebookAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveNotebookAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo + ResolveNotebookAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveNotebookAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveNotebookAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveNotebookAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveNotebookAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveNotebookAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveNotebookAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveNotebookAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveNotebookAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveNotebookAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo + ResolveNotebookAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveNotebookAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveNotebookAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveNotebookAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveNotebookAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveNotebookAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo + ResolveNotebookAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveNotebookAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveNotebookAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveNotebookAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo + ResolveNotebookAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveNotebookAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveNotebookAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveNotebookAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveNotebookAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveNotebookAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveNotebookAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveNotebookAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveNotebookAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveNotebookAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveNotebookAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveNotebookAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveNotebookAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveNotebookAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveNotebookAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveNotebookAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveNotebookAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveNotebookAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveNotebookAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveNotebookAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo + ResolveNotebookAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveNotebookAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveNotebookAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveNotebookAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveNotebookAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveNotebookAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveNotebookAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveNotebookAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveNotebookAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveNotebookAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveNotebookAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveNotebookAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveNotebookAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveNotebookAccessibleMethod t NotebookAccessible, MethodInfo info NotebookAccessible p) => IsLabelProxy t (NotebookAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveNotebookAccessibleMethod t NotebookAccessible, MethodInfo info NotebookAccessible p) => IsLabel t (NotebookAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList NotebookAccessible = NotebookAccessibleAttributeList -type NotebookAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type NotebookAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList NotebookAccessible = NotebookAccessibleSignalList -type NotebookAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type NotebookAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/NotebookPageAccessible.hs b/GI/Gtk/Objects/NotebookPageAccessible.hs --- a/GI/Gtk/Objects/NotebookPageAccessible.hs +++ b/GI/Gtk/Objects/NotebookPageAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** notebookPageAccessibleInvalidate + NotebookPageAccessibleInvalidateMethodInfo, notebookPageAccessibleInvalidate , @@ -61,17 +63,82 @@ noNotebookPageAccessible :: Maybe NotebookPageAccessible noNotebookPageAccessible = Nothing +type family ResolveNotebookPageAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveNotebookPageAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveNotebookPageAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveNotebookPageAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveNotebookPageAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveNotebookPageAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveNotebookPageAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveNotebookPageAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveNotebookPageAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveNotebookPageAccessibleMethod "invalidate" o = NotebookPageAccessibleInvalidateMethodInfo + ResolveNotebookPageAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveNotebookPageAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveNotebookPageAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveNotebookPageAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveNotebookPageAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveNotebookPageAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveNotebookPageAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveNotebookPageAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveNotebookPageAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveNotebookPageAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveNotebookPageAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveNotebookPageAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveNotebookPageAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveNotebookPageAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveNotebookPageAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveNotebookPageAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveNotebookPageAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveNotebookPageAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveNotebookPageAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveNotebookPageAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveNotebookPageAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveNotebookPageAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveNotebookPageAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveNotebookPageAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveNotebookPageAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveNotebookPageAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveNotebookPageAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveNotebookPageAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveNotebookPageAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveNotebookPageAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveNotebookPageAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveNotebookPageAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveNotebookPageAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveNotebookPageAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveNotebookPageAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveNotebookPageAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveNotebookPageAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveNotebookPageAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveNotebookPageAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveNotebookPageAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveNotebookPageAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveNotebookPageAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveNotebookPageAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveNotebookPageAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveNotebookPageAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveNotebookPageAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveNotebookPageAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveNotebookPageAccessibleMethod t NotebookPageAccessible, MethodInfo info NotebookPageAccessible p) => IsLabelProxy t (NotebookPageAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveNotebookPageAccessibleMethod t NotebookPageAccessible, MethodInfo info NotebookPageAccessible p) => IsLabel t (NotebookPageAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList NotebookPageAccessible = NotebookPageAccessibleAttributeList -type NotebookPageAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) +type NotebookPageAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) type instance SignalList NotebookPageAccessible = NotebookPageAccessibleSignalList -type NotebookPageAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type NotebookPageAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) -- method NotebookPageAccessible::new -- method type : Constructor --- Args : [Arg {argName = "notebook", argType = TInterface "Gtk" "NotebookAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "notebook", argType = TInterface "Gtk" "NotebookAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "notebook", argType = TInterface "Gtk" "NotebookAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "NotebookPageAccessible" -- throws : False -- Skip return : False @@ -84,9 +151,9 @@ notebookPageAccessibleNew :: (MonadIO m, NotebookAccessibleK a, WidgetK b) => - a -> -- notebook - b -> -- child - m NotebookPageAccessible + a -- notebook + -> b -- child + -> m NotebookPageAccessible -- result notebookPageAccessibleNew notebook child = liftIO $ do let notebook' = unsafeManagedPtrCastPtr notebook let child' = unsafeManagedPtrCastPtr child @@ -99,9 +166,8 @@ -- method NotebookPageAccessible::invalidate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NotebookPageAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NotebookPageAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NotebookPageAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -113,12 +179,16 @@ notebookPageAccessibleInvalidate :: (MonadIO m, NotebookPageAccessibleK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result notebookPageAccessibleInvalidate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_notebook_page_accessible_invalidate _obj' touchManagedPtr _obj return () + +data NotebookPageAccessibleInvalidateMethodInfo +instance (signature ~ (m ()), MonadIO m, NotebookPageAccessibleK a) => MethodInfo NotebookPageAccessibleInvalidateMethodInfo a signature where + overloadedMethod _ = notebookPageAccessibleInvalidate diff --git a/GI/Gtk/Objects/NotebookPageAccessible.hs-boot b/GI/Gtk/Objects/NotebookPageAccessible.hs-boot --- a/GI/Gtk/Objects/NotebookPageAccessible.hs-boot +++ b/GI/Gtk/Objects/NotebookPageAccessible.hs-boot @@ -11,3 +11,4 @@ instance GObject NotebookPageAccessible where class GObject o => NotebookPageAccessibleK o instance (GObject o, IsDescendantOf NotebookPageAccessible o) => NotebookPageAccessibleK o +data NotebookPageAccessibleInvalidateMethodInfo diff --git a/GI/Gtk/Objects/NumerableIcon.hs b/GI/Gtk/Objects/NumerableIcon.hs --- a/GI/Gtk/Objects/NumerableIcon.hs +++ b/GI/Gtk/Objects/NumerableIcon.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** numerableIconGetBackgroundGicon + NumerableIconGetBackgroundGiconMethodInfo, numerableIconGetBackgroundGicon , -- ** numerableIconGetBackgroundIconName + NumerableIconGetBackgroundIconNameMethodInfo, numerableIconGetBackgroundIconName , -- ** numerableIconGetCount + NumerableIconGetCountMethodInfo , numerableIconGetCount , -- ** numerableIconGetLabel + NumerableIconGetLabelMethodInfo , numerableIconGetLabel , -- ** numerableIconGetStyleContext + NumerableIconGetStyleContextMethodInfo , numerableIconGetStyleContext , @@ -45,22 +51,27 @@ -- ** numerableIconSetBackgroundGicon + NumerableIconSetBackgroundGiconMethodInfo, numerableIconSetBackgroundGicon , -- ** numerableIconSetBackgroundIconName + NumerableIconSetBackgroundIconNameMethodInfo, numerableIconSetBackgroundIconName , -- ** numerableIconSetCount + NumerableIconSetCountMethodInfo , numerableIconSetCount , -- ** numerableIconSetLabel + NumerableIconSetLabelMethodInfo , numerableIconSetLabel , -- ** numerableIconSetStyleContext + NumerableIconSetStyleContextMethodInfo , numerableIconSetStyleContext , @@ -139,6 +150,56 @@ noNumerableIcon :: Maybe NumerableIcon noNumerableIcon = Nothing +type family ResolveNumerableIconMethod (t :: Symbol) (o :: *) :: * where + ResolveNumerableIconMethod "addEmblem" o = Gio.EmblemedIconAddEmblemMethodInfo + ResolveNumerableIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveNumerableIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveNumerableIconMethod "clearEmblems" o = Gio.EmblemedIconClearEmblemsMethodInfo + ResolveNumerableIconMethod "equal" o = Gio.IconEqualMethodInfo + ResolveNumerableIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveNumerableIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveNumerableIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveNumerableIconMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveNumerableIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveNumerableIconMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveNumerableIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveNumerableIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveNumerableIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveNumerableIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveNumerableIconMethod "serialize" o = Gio.IconSerializeMethodInfo + ResolveNumerableIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveNumerableIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveNumerableIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveNumerableIconMethod "toString" o = Gio.IconToStringMethodInfo + ResolveNumerableIconMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveNumerableIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveNumerableIconMethod "getBackgroundGicon" o = NumerableIconGetBackgroundGiconMethodInfo + ResolveNumerableIconMethod "getBackgroundIconName" o = NumerableIconGetBackgroundIconNameMethodInfo + ResolveNumerableIconMethod "getCount" o = NumerableIconGetCountMethodInfo + ResolveNumerableIconMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveNumerableIconMethod "getEmblems" o = Gio.EmblemedIconGetEmblemsMethodInfo + ResolveNumerableIconMethod "getIcon" o = Gio.EmblemedIconGetIconMethodInfo + ResolveNumerableIconMethod "getLabel" o = NumerableIconGetLabelMethodInfo + ResolveNumerableIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveNumerableIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveNumerableIconMethod "getStyleContext" o = NumerableIconGetStyleContextMethodInfo + ResolveNumerableIconMethod "setBackgroundGicon" o = NumerableIconSetBackgroundGiconMethodInfo + ResolveNumerableIconMethod "setBackgroundIconName" o = NumerableIconSetBackgroundIconNameMethodInfo + ResolveNumerableIconMethod "setCount" o = NumerableIconSetCountMethodInfo + ResolveNumerableIconMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveNumerableIconMethod "setLabel" o = NumerableIconSetLabelMethodInfo + ResolveNumerableIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveNumerableIconMethod "setStyleContext" o = NumerableIconSetStyleContextMethodInfo + ResolveNumerableIconMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveNumerableIconMethod t NumerableIcon, MethodInfo info NumerableIcon p) => IsLabelProxy t (NumerableIcon -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveNumerableIconMethod t NumerableIcon, MethodInfo info NumerableIcon p) => IsLabel t (NumerableIcon -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "background-icon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable] @@ -158,7 +219,7 @@ type AttrSetTypeConstraint NumerableIconBackgroundIconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint NumerableIconBackgroundIconPropertyInfo = NumerableIconK type AttrGetType NumerableIconBackgroundIconPropertyInfo = Gio.Icon - type AttrLabel NumerableIconBackgroundIconPropertyInfo = "NumerableIcon::background-icon" + type AttrLabel NumerableIconBackgroundIconPropertyInfo = "background-icon" attrGet _ = getNumerableIconBackgroundIcon attrSet _ = setNumerableIconBackgroundIcon attrConstruct _ = constructNumerableIconBackgroundIcon @@ -182,7 +243,7 @@ type AttrSetTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = NumerableIconK type AttrGetType NumerableIconBackgroundIconNamePropertyInfo = T.Text - type AttrLabel NumerableIconBackgroundIconNamePropertyInfo = "NumerableIcon::background-icon-name" + type AttrLabel NumerableIconBackgroundIconNamePropertyInfo = "background-icon-name" attrGet _ = getNumerableIconBackgroundIconName attrSet _ = setNumerableIconBackgroundIconName attrConstruct _ = constructNumerableIconBackgroundIconName @@ -206,7 +267,7 @@ type AttrSetTypeConstraint NumerableIconCountPropertyInfo = (~) Int32 type AttrBaseTypeConstraint NumerableIconCountPropertyInfo = NumerableIconK type AttrGetType NumerableIconCountPropertyInfo = Int32 - type AttrLabel NumerableIconCountPropertyInfo = "NumerableIcon::count" + type AttrLabel NumerableIconCountPropertyInfo = "count" attrGet _ = getNumerableIconCount attrSet _ = setNumerableIconCount attrConstruct _ = constructNumerableIconCount @@ -230,7 +291,7 @@ type AttrSetTypeConstraint NumerableIconLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint NumerableIconLabelPropertyInfo = NumerableIconK type AttrGetType NumerableIconLabelPropertyInfo = T.Text - type AttrLabel NumerableIconLabelPropertyInfo = "NumerableIcon::label" + type AttrLabel NumerableIconLabelPropertyInfo = "label" attrGet _ = getNumerableIconLabel attrSet _ = setNumerableIconLabel attrConstruct _ = constructNumerableIconLabel @@ -254,22 +315,21 @@ type AttrSetTypeConstraint NumerableIconStyleContextPropertyInfo = StyleContextK type AttrBaseTypeConstraint NumerableIconStyleContextPropertyInfo = NumerableIconK type AttrGetType NumerableIconStyleContextPropertyInfo = StyleContext - type AttrLabel NumerableIconStyleContextPropertyInfo = "NumerableIcon::style-context" + type AttrLabel NumerableIconStyleContextPropertyInfo = "style-context" attrGet _ = getNumerableIconStyleContext attrSet _ = setNumerableIconStyleContext attrConstruct _ = constructNumerableIconStyleContext type instance AttributeList NumerableIcon = NumerableIconAttributeList -type NumerableIconAttributeList = ('[ '("background-icon", NumerableIconBackgroundIconPropertyInfo), '("background-icon-name", NumerableIconBackgroundIconNamePropertyInfo), '("count", NumerableIconCountPropertyInfo), '("gicon", Gio.EmblemedIconGiconPropertyInfo), '("label", NumerableIconLabelPropertyInfo), '("style-context", NumerableIconStyleContextPropertyInfo)] :: [(Symbol, *)]) +type NumerableIconAttributeList = ('[ '("backgroundIcon", NumerableIconBackgroundIconPropertyInfo), '("backgroundIconName", NumerableIconBackgroundIconNamePropertyInfo), '("count", NumerableIconCountPropertyInfo), '("gicon", Gio.EmblemedIconGiconPropertyInfo), '("label", NumerableIconLabelPropertyInfo), '("styleContext", NumerableIconStyleContextPropertyInfo)] :: [(Symbol, *)]) type instance SignalList NumerableIcon = NumerableIconSignalList -type NumerableIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type NumerableIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method NumerableIcon::get_background_gicon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -281,8 +341,8 @@ {-# DEPRECATED numerableIconGetBackgroundGicon ["(Since version 3.14)"]#-} numerableIconGetBackgroundGicon :: (MonadIO m, NumerableIconK a) => - a -> -- _obj - m Gio.Icon + a -- _obj + -> m Gio.Icon -- result numerableIconGetBackgroundGicon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_numerable_icon_get_background_gicon _obj' @@ -291,11 +351,14 @@ touchManagedPtr _obj return result' +data NumerableIconGetBackgroundGiconMethodInfo +instance (signature ~ (m Gio.Icon), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconGetBackgroundGiconMethodInfo a signature where + overloadedMethod _ = numerableIconGetBackgroundGicon + -- method NumerableIcon::get_background_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -307,8 +370,8 @@ {-# DEPRECATED numerableIconGetBackgroundIconName ["(Since version 3.14)"]#-} numerableIconGetBackgroundIconName :: (MonadIO m, NumerableIconK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result numerableIconGetBackgroundIconName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_numerable_icon_get_background_icon_name _obj' @@ -317,11 +380,14 @@ touchManagedPtr _obj return result' +data NumerableIconGetBackgroundIconNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconGetBackgroundIconNameMethodInfo a signature where + overloadedMethod _ = numerableIconGetBackgroundIconName + -- method NumerableIcon::get_count -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -333,19 +399,22 @@ {-# DEPRECATED numerableIconGetCount ["(Since version 3.14)"]#-} numerableIconGetCount :: (MonadIO m, NumerableIconK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result numerableIconGetCount _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_numerable_icon_get_count _obj' touchManagedPtr _obj return result +data NumerableIconGetCountMethodInfo +instance (signature ~ (m Int32), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconGetCountMethodInfo a signature where + overloadedMethod _ = numerableIconGetCount + -- method NumerableIcon::get_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -357,8 +426,8 @@ {-# DEPRECATED numerableIconGetLabel ["(Since version 3.14)"]#-} numerableIconGetLabel :: (MonadIO m, NumerableIconK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result numerableIconGetLabel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_numerable_icon_get_label _obj' @@ -367,11 +436,14 @@ touchManagedPtr _obj return result' +data NumerableIconGetLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconGetLabelMethodInfo a signature where + overloadedMethod _ = numerableIconGetLabel + -- method NumerableIcon::get_style_context -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StyleContext" -- throws : False -- Skip return : False @@ -383,8 +455,8 @@ {-# DEPRECATED numerableIconGetStyleContext ["(Since version 3.14)"]#-} numerableIconGetStyleContext :: (MonadIO m, NumerableIconK a) => - a -> -- _obj - m StyleContext + a -- _obj + -> m StyleContext -- result numerableIconGetStyleContext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_numerable_icon_get_style_context _obj' @@ -393,11 +465,14 @@ touchManagedPtr _obj return result' +data NumerableIconGetStyleContextMethodInfo +instance (signature ~ (m StyleContext), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconGetStyleContextMethodInfo a signature where + overloadedMethod _ = numerableIconGetStyleContext + -- method NumerableIcon::set_background_gicon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -410,9 +485,9 @@ {-# DEPRECATED numerableIconSetBackgroundGicon ["(Since version 3.14)"]#-} numerableIconSetBackgroundGicon :: (MonadIO m, NumerableIconK a, Gio.IconK b) => - a -> -- _obj - Maybe (b) -> -- icon - m () + a -- _obj + -> Maybe (b) -- icon + -> m () -- result numerableIconSetBackgroundGicon _obj icon = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeIcon <- case icon of @@ -425,11 +500,14 @@ whenJust icon touchManagedPtr return () +data NumerableIconSetBackgroundGiconMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, NumerableIconK a, Gio.IconK b) => MethodInfo NumerableIconSetBackgroundGiconMethodInfo a signature where + overloadedMethod _ = numerableIconSetBackgroundGicon + -- method NumerableIcon::set_background_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -442,26 +520,29 @@ {-# DEPRECATED numerableIconSetBackgroundIconName ["(Since version 3.14)"]#-} numerableIconSetBackgroundIconName :: (MonadIO m, NumerableIconK a) => - a -> -- _obj - Maybe (T.Text) -> -- icon_name - m () -numerableIconSetBackgroundIconName _obj icon_name = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- iconName + -> m () -- result +numerableIconSetBackgroundIconName _obj iconName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon_name <- case icon_name of + maybeIconName <- case iconName of Nothing -> return nullPtr - Just jIcon_name -> do - jIcon_name' <- textToCString jIcon_name - return jIcon_name' - gtk_numerable_icon_set_background_icon_name _obj' maybeIcon_name + Just jIconName -> do + jIconName' <- textToCString jIconName + return jIconName' + gtk_numerable_icon_set_background_icon_name _obj' maybeIconName touchManagedPtr _obj - freeMem maybeIcon_name + freeMem maybeIconName return () +data NumerableIconSetBackgroundIconNameMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconSetBackgroundIconNameMethodInfo a signature where + overloadedMethod _ = numerableIconSetBackgroundIconName + -- method NumerableIcon::set_count -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -474,20 +555,23 @@ {-# DEPRECATED numerableIconSetCount ["(Since version 3.14)"]#-} numerableIconSetCount :: (MonadIO m, NumerableIconK a) => - a -> -- _obj - Int32 -> -- count - m () + a -- _obj + -> Int32 -- count + -> m () -- result numerableIconSetCount _obj count = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_numerable_icon_set_count _obj' count touchManagedPtr _obj return () +data NumerableIconSetCountMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconSetCountMethodInfo a signature where + overloadedMethod _ = numerableIconSetCount + -- method NumerableIcon::set_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -500,9 +584,9 @@ {-# DEPRECATED numerableIconSetLabel ["(Since version 3.14)"]#-} numerableIconSetLabel :: (MonadIO m, NumerableIconK a) => - a -> -- _obj - Maybe (T.Text) -> -- label - m () + a -- _obj + -> Maybe (T.Text) -- label + -> m () -- result numerableIconSetLabel _obj label = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLabel <- case label of @@ -515,11 +599,14 @@ freeMem maybeLabel return () +data NumerableIconSetLabelMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, NumerableIconK a) => MethodInfo NumerableIconSetLabelMethodInfo a signature where + overloadedMethod _ = numerableIconSetLabel + -- method NumerableIcon::set_style_context -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -532,9 +619,9 @@ {-# DEPRECATED numerableIconSetStyleContext ["(Since version 3.14)"]#-} numerableIconSetStyleContext :: (MonadIO m, NumerableIconK a, StyleContextK b) => - a -> -- _obj - b -> -- style - m () + a -- _obj + -> b -- style + -> m () -- result numerableIconSetStyleContext _obj style = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let style' = unsafeManagedPtrCastPtr style @@ -543,11 +630,14 @@ touchManagedPtr style return () +data NumerableIconSetStyleContextMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, NumerableIconK a, StyleContextK b) => MethodInfo NumerableIconSetStyleContextMethodInfo a signature where + overloadedMethod _ = numerableIconSetStyleContext + -- method NumerableIcon::new -- method type : MemberFunction --- Args : [Arg {argName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -559,21 +649,20 @@ {-# DEPRECATED numerableIconNew ["(Since version 3.14)"]#-} numerableIconNew :: (MonadIO m, Gio.IconK a) => - a -> -- base_icon - m Gio.Icon -numerableIconNew base_icon = liftIO $ do - let base_icon' = unsafeManagedPtrCastPtr base_icon - result <- gtk_numerable_icon_new base_icon' + a -- baseIcon + -> m Gio.Icon -- result +numerableIconNew baseIcon = liftIO $ do + let baseIcon' = unsafeManagedPtrCastPtr baseIcon + result <- gtk_numerable_icon_new baseIcon' checkUnexpectedReturnNULL "gtk_numerable_icon_new" result result' <- (wrapObject Gio.Icon) result - touchManagedPtr base_icon + touchManagedPtr baseIcon return result' -- method NumerableIcon::new_with_style_context -- method type : MemberFunction --- Args : [Arg {argName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -586,16 +675,16 @@ {-# DEPRECATED numerableIconNewWithStyleContext ["(Since version 3.14)"]#-} numerableIconNewWithStyleContext :: (MonadIO m, Gio.IconK a, StyleContextK b) => - a -> -- base_icon - b -> -- context - m Gio.Icon -numerableIconNewWithStyleContext base_icon context = liftIO $ do - let base_icon' = unsafeManagedPtrCastPtr base_icon + a -- baseIcon + -> b -- context + -> m Gio.Icon -- result +numerableIconNewWithStyleContext baseIcon context = liftIO $ do + let baseIcon' = unsafeManagedPtrCastPtr baseIcon let context' = unsafeManagedPtrCastPtr context - result <- gtk_numerable_icon_new_with_style_context base_icon' context' + result <- gtk_numerable_icon_new_with_style_context baseIcon' context' checkUnexpectedReturnNULL "gtk_numerable_icon_new_with_style_context" result result' <- (wrapObject Gio.Icon) result - touchManagedPtr base_icon + touchManagedPtr baseIcon touchManagedPtr context return result' diff --git a/GI/Gtk/Objects/NumerableIcon.hs-boot b/GI/Gtk/Objects/NumerableIcon.hs-boot --- a/GI/Gtk/Objects/NumerableIcon.hs-boot +++ b/GI/Gtk/Objects/NumerableIcon.hs-boot @@ -16,3 +16,13 @@ data NumerableIconCountPropertyInfo data NumerableIconLabelPropertyInfo data NumerableIconStyleContextPropertyInfo +data NumerableIconGetBackgroundGiconMethodInfo +data NumerableIconGetBackgroundIconNameMethodInfo +data NumerableIconGetCountMethodInfo +data NumerableIconGetLabelMethodInfo +data NumerableIconGetStyleContextMethodInfo +data NumerableIconSetBackgroundGiconMethodInfo +data NumerableIconSetBackgroundIconNameMethodInfo +data NumerableIconSetCountMethodInfo +data NumerableIconSetLabelMethodInfo +data NumerableIconSetStyleContextMethodInfo diff --git a/GI/Gtk/Objects/OffscreenWindow.hs b/GI/Gtk/Objects/OffscreenWindow.hs --- a/GI/Gtk/Objects/OffscreenWindow.hs +++ b/GI/Gtk/Objects/OffscreenWindow.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** offscreenWindowGetPixbuf + OffscreenWindowGetPixbufMethodInfo , offscreenWindowGetPixbuf , -- ** offscreenWindowGetSurface + OffscreenWindowGetSurfaceMethodInfo , offscreenWindowGetSurface , @@ -67,17 +70,442 @@ noOffscreenWindow :: Maybe OffscreenWindow noOffscreenWindow = Nothing +type family ResolveOffscreenWindowMethod (t :: Symbol) (o :: *) :: * where + ResolveOffscreenWindowMethod "activate" o = WidgetActivateMethodInfo + ResolveOffscreenWindowMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveOffscreenWindowMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveOffscreenWindowMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveOffscreenWindowMethod "add" o = ContainerAddMethodInfo + ResolveOffscreenWindowMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveOffscreenWindowMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveOffscreenWindowMethod "addChild" o = BuildableAddChildMethodInfo + ResolveOffscreenWindowMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveOffscreenWindowMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveOffscreenWindowMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveOffscreenWindowMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveOffscreenWindowMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveOffscreenWindowMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveOffscreenWindowMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveOffscreenWindowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveOffscreenWindowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveOffscreenWindowMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveOffscreenWindowMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveOffscreenWindowMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveOffscreenWindowMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveOffscreenWindowMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveOffscreenWindowMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveOffscreenWindowMethod "childType" o = ContainerChildTypeMethodInfo + ResolveOffscreenWindowMethod "classPath" o = WidgetClassPathMethodInfo + ResolveOffscreenWindowMethod "close" o = WindowCloseMethodInfo + ResolveOffscreenWindowMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveOffscreenWindowMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveOffscreenWindowMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveOffscreenWindowMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveOffscreenWindowMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveOffscreenWindowMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveOffscreenWindowMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveOffscreenWindowMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveOffscreenWindowMethod "destroy" o = WidgetDestroyMethodInfo + ResolveOffscreenWindowMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveOffscreenWindowMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveOffscreenWindowMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveOffscreenWindowMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveOffscreenWindowMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveOffscreenWindowMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveOffscreenWindowMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveOffscreenWindowMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveOffscreenWindowMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveOffscreenWindowMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveOffscreenWindowMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveOffscreenWindowMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveOffscreenWindowMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveOffscreenWindowMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveOffscreenWindowMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveOffscreenWindowMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveOffscreenWindowMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveOffscreenWindowMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveOffscreenWindowMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveOffscreenWindowMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveOffscreenWindowMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveOffscreenWindowMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveOffscreenWindowMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveOffscreenWindowMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveOffscreenWindowMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveOffscreenWindowMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveOffscreenWindowMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveOffscreenWindowMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveOffscreenWindowMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveOffscreenWindowMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveOffscreenWindowMethod "draw" o = WidgetDrawMethodInfo + ResolveOffscreenWindowMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveOffscreenWindowMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveOffscreenWindowMethod "event" o = WidgetEventMethodInfo + ResolveOffscreenWindowMethod "forall" o = ContainerForallMethodInfo + ResolveOffscreenWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveOffscreenWindowMethod "foreach" o = ContainerForeachMethodInfo + ResolveOffscreenWindowMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveOffscreenWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveOffscreenWindowMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveOffscreenWindowMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveOffscreenWindowMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveOffscreenWindowMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveOffscreenWindowMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveOffscreenWindowMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveOffscreenWindowMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveOffscreenWindowMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveOffscreenWindowMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveOffscreenWindowMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveOffscreenWindowMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveOffscreenWindowMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveOffscreenWindowMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveOffscreenWindowMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveOffscreenWindowMethod "hide" o = WidgetHideMethodInfo + ResolveOffscreenWindowMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveOffscreenWindowMethod "iconify" o = WindowIconifyMethodInfo + ResolveOffscreenWindowMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveOffscreenWindowMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveOffscreenWindowMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveOffscreenWindowMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveOffscreenWindowMethod "intersect" o = WidgetIntersectMethodInfo + ResolveOffscreenWindowMethod "isActive" o = WindowIsActiveMethodInfo + ResolveOffscreenWindowMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveOffscreenWindowMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveOffscreenWindowMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveOffscreenWindowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveOffscreenWindowMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveOffscreenWindowMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveOffscreenWindowMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveOffscreenWindowMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveOffscreenWindowMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveOffscreenWindowMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveOffscreenWindowMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveOffscreenWindowMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveOffscreenWindowMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveOffscreenWindowMethod "map" o = WidgetMapMethodInfo + ResolveOffscreenWindowMethod "maximize" o = WindowMaximizeMethodInfo + ResolveOffscreenWindowMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveOffscreenWindowMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveOffscreenWindowMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveOffscreenWindowMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveOffscreenWindowMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveOffscreenWindowMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveOffscreenWindowMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveOffscreenWindowMethod "move" o = WindowMoveMethodInfo + ResolveOffscreenWindowMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveOffscreenWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveOffscreenWindowMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveOffscreenWindowMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveOffscreenWindowMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveOffscreenWindowMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveOffscreenWindowMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveOffscreenWindowMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveOffscreenWindowMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveOffscreenWindowMethod "path" o = WidgetPathMethodInfo + ResolveOffscreenWindowMethod "present" o = WindowPresentMethodInfo + ResolveOffscreenWindowMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveOffscreenWindowMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveOffscreenWindowMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveOffscreenWindowMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveOffscreenWindowMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveOffscreenWindowMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveOffscreenWindowMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveOffscreenWindowMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveOffscreenWindowMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveOffscreenWindowMethod "realize" o = WidgetRealizeMethodInfo + ResolveOffscreenWindowMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveOffscreenWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveOffscreenWindowMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveOffscreenWindowMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveOffscreenWindowMethod "remove" o = ContainerRemoveMethodInfo + ResolveOffscreenWindowMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveOffscreenWindowMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveOffscreenWindowMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveOffscreenWindowMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveOffscreenWindowMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveOffscreenWindowMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveOffscreenWindowMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveOffscreenWindowMethod "reparent" o = WidgetReparentMethodInfo + ResolveOffscreenWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveOffscreenWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveOffscreenWindowMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveOffscreenWindowMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveOffscreenWindowMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveOffscreenWindowMethod "resize" o = WindowResizeMethodInfo + ResolveOffscreenWindowMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveOffscreenWindowMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveOffscreenWindowMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveOffscreenWindowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveOffscreenWindowMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveOffscreenWindowMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveOffscreenWindowMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveOffscreenWindowMethod "show" o = WidgetShowMethodInfo + ResolveOffscreenWindowMethod "showAll" o = WidgetShowAllMethodInfo + ResolveOffscreenWindowMethod "showNow" o = WidgetShowNowMethodInfo + ResolveOffscreenWindowMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveOffscreenWindowMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveOffscreenWindowMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveOffscreenWindowMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveOffscreenWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveOffscreenWindowMethod "stick" o = WindowStickMethodInfo + ResolveOffscreenWindowMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveOffscreenWindowMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveOffscreenWindowMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveOffscreenWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveOffscreenWindowMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveOffscreenWindowMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveOffscreenWindowMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveOffscreenWindowMethod "unmap" o = WidgetUnmapMethodInfo + ResolveOffscreenWindowMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveOffscreenWindowMethod "unparent" o = WidgetUnparentMethodInfo + ResolveOffscreenWindowMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveOffscreenWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveOffscreenWindowMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveOffscreenWindowMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveOffscreenWindowMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveOffscreenWindowMethod "unstick" o = WindowUnstickMethodInfo + ResolveOffscreenWindowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveOffscreenWindowMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveOffscreenWindowMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveOffscreenWindowMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveOffscreenWindowMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveOffscreenWindowMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveOffscreenWindowMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveOffscreenWindowMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveOffscreenWindowMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveOffscreenWindowMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveOffscreenWindowMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveOffscreenWindowMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveOffscreenWindowMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveOffscreenWindowMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveOffscreenWindowMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveOffscreenWindowMethod "getChild" o = BinGetChildMethodInfo + ResolveOffscreenWindowMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveOffscreenWindowMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveOffscreenWindowMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveOffscreenWindowMethod "getClip" o = WidgetGetClipMethodInfo + ResolveOffscreenWindowMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveOffscreenWindowMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveOffscreenWindowMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveOffscreenWindowMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveOffscreenWindowMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveOffscreenWindowMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveOffscreenWindowMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveOffscreenWindowMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveOffscreenWindowMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveOffscreenWindowMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveOffscreenWindowMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveOffscreenWindowMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveOffscreenWindowMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveOffscreenWindowMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveOffscreenWindowMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveOffscreenWindowMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveOffscreenWindowMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveOffscreenWindowMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveOffscreenWindowMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveOffscreenWindowMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveOffscreenWindowMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveOffscreenWindowMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveOffscreenWindowMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveOffscreenWindowMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveOffscreenWindowMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveOffscreenWindowMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveOffscreenWindowMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveOffscreenWindowMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveOffscreenWindowMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveOffscreenWindowMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveOffscreenWindowMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveOffscreenWindowMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveOffscreenWindowMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveOffscreenWindowMethod "getIcon" o = WindowGetIconMethodInfo + ResolveOffscreenWindowMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveOffscreenWindowMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveOffscreenWindowMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveOffscreenWindowMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveOffscreenWindowMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveOffscreenWindowMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveOffscreenWindowMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveOffscreenWindowMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveOffscreenWindowMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveOffscreenWindowMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveOffscreenWindowMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveOffscreenWindowMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveOffscreenWindowMethod "getModal" o = WindowGetModalMethodInfo + ResolveOffscreenWindowMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveOffscreenWindowMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveOffscreenWindowMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveOffscreenWindowMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveOffscreenWindowMethod "getParent" o = WidgetGetParentMethodInfo + ResolveOffscreenWindowMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveOffscreenWindowMethod "getPath" o = WidgetGetPathMethodInfo + ResolveOffscreenWindowMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveOffscreenWindowMethod "getPixbuf" o = OffscreenWindowGetPixbufMethodInfo + ResolveOffscreenWindowMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveOffscreenWindowMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveOffscreenWindowMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveOffscreenWindowMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveOffscreenWindowMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveOffscreenWindowMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveOffscreenWindowMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveOffscreenWindowMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveOffscreenWindowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveOffscreenWindowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveOffscreenWindowMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveOffscreenWindowMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveOffscreenWindowMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveOffscreenWindowMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveOffscreenWindowMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveOffscreenWindowMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveOffscreenWindowMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveOffscreenWindowMethod "getRole" o = WindowGetRoleMethodInfo + ResolveOffscreenWindowMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveOffscreenWindowMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveOffscreenWindowMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveOffscreenWindowMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveOffscreenWindowMethod "getSize" o = WindowGetSizeMethodInfo + ResolveOffscreenWindowMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveOffscreenWindowMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveOffscreenWindowMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveOffscreenWindowMethod "getState" o = WidgetGetStateMethodInfo + ResolveOffscreenWindowMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveOffscreenWindowMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveOffscreenWindowMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveOffscreenWindowMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveOffscreenWindowMethod "getSurface" o = OffscreenWindowGetSurfaceMethodInfo + ResolveOffscreenWindowMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveOffscreenWindowMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveOffscreenWindowMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveOffscreenWindowMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveOffscreenWindowMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveOffscreenWindowMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveOffscreenWindowMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveOffscreenWindowMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveOffscreenWindowMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveOffscreenWindowMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveOffscreenWindowMethod "getValign" o = WidgetGetValignMethodInfo + ResolveOffscreenWindowMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveOffscreenWindowMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveOffscreenWindowMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveOffscreenWindowMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveOffscreenWindowMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveOffscreenWindowMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveOffscreenWindowMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveOffscreenWindowMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveOffscreenWindowMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveOffscreenWindowMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveOffscreenWindowMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveOffscreenWindowMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveOffscreenWindowMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveOffscreenWindowMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveOffscreenWindowMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveOffscreenWindowMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveOffscreenWindowMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveOffscreenWindowMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveOffscreenWindowMethod "setClip" o = WidgetSetClipMethodInfo + ResolveOffscreenWindowMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveOffscreenWindowMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveOffscreenWindowMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveOffscreenWindowMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveOffscreenWindowMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveOffscreenWindowMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveOffscreenWindowMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveOffscreenWindowMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveOffscreenWindowMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveOffscreenWindowMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveOffscreenWindowMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveOffscreenWindowMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveOffscreenWindowMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveOffscreenWindowMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveOffscreenWindowMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveOffscreenWindowMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveOffscreenWindowMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveOffscreenWindowMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveOffscreenWindowMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveOffscreenWindowMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveOffscreenWindowMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveOffscreenWindowMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveOffscreenWindowMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveOffscreenWindowMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveOffscreenWindowMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveOffscreenWindowMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveOffscreenWindowMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveOffscreenWindowMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveOffscreenWindowMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveOffscreenWindowMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveOffscreenWindowMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveOffscreenWindowMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveOffscreenWindowMethod "setIcon" o = WindowSetIconMethodInfo + ResolveOffscreenWindowMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveOffscreenWindowMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveOffscreenWindowMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveOffscreenWindowMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveOffscreenWindowMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveOffscreenWindowMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveOffscreenWindowMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveOffscreenWindowMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveOffscreenWindowMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveOffscreenWindowMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveOffscreenWindowMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveOffscreenWindowMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveOffscreenWindowMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveOffscreenWindowMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveOffscreenWindowMethod "setModal" o = WindowSetModalMethodInfo + ResolveOffscreenWindowMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveOffscreenWindowMethod "setParent" o = WidgetSetParentMethodInfo + ResolveOffscreenWindowMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveOffscreenWindowMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveOffscreenWindowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveOffscreenWindowMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveOffscreenWindowMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveOffscreenWindowMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveOffscreenWindowMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveOffscreenWindowMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveOffscreenWindowMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveOffscreenWindowMethod "setRole" o = WindowSetRoleMethodInfo + ResolveOffscreenWindowMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveOffscreenWindowMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveOffscreenWindowMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveOffscreenWindowMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveOffscreenWindowMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveOffscreenWindowMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveOffscreenWindowMethod "setState" o = WidgetSetStateMethodInfo + ResolveOffscreenWindowMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveOffscreenWindowMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveOffscreenWindowMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveOffscreenWindowMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveOffscreenWindowMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveOffscreenWindowMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveOffscreenWindowMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveOffscreenWindowMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveOffscreenWindowMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveOffscreenWindowMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveOffscreenWindowMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveOffscreenWindowMethod "setValign" o = WidgetSetValignMethodInfo + ResolveOffscreenWindowMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveOffscreenWindowMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveOffscreenWindowMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveOffscreenWindowMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveOffscreenWindowMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveOffscreenWindowMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveOffscreenWindowMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveOffscreenWindowMethod t OffscreenWindow, MethodInfo info OffscreenWindow p) => IsLabelProxy t (OffscreenWindow -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveOffscreenWindowMethod t OffscreenWindow, MethodInfo info OffscreenWindow p) => IsLabel t (OffscreenWindow -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList OffscreenWindow = OffscreenWindowAttributeList -type OffscreenWindowAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type OffscreenWindowAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) type instance SignalList OffscreenWindow = OffscreenWindowSignalList -type OffscreenWindowSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type OffscreenWindowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method OffscreenWindow::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "OffscreenWindow" -- throws : False -- Skip return : False @@ -88,7 +516,7 @@ offscreenWindowNew :: (MonadIO m) => - m OffscreenWindow + m OffscreenWindow -- result offscreenWindowNew = liftIO $ do result <- gtk_offscreen_window_new checkUnexpectedReturnNULL "gtk_offscreen_window_new" result @@ -97,9 +525,8 @@ -- method OffscreenWindow::get_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -111,8 +538,8 @@ offscreenWindowGetPixbuf :: (MonadIO m, OffscreenWindowK a) => - a -> -- _obj - m GdkPixbuf.Pixbuf + a -- _obj + -> m GdkPixbuf.Pixbuf -- result offscreenWindowGetPixbuf _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_offscreen_window_get_pixbuf _obj' @@ -121,11 +548,14 @@ touchManagedPtr _obj return result' +data OffscreenWindowGetPixbufMethodInfo +instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, OffscreenWindowK a) => MethodInfo OffscreenWindowGetPixbufMethodInfo a signature where + overloadedMethod _ = offscreenWindowGetPixbuf + -- method OffscreenWindow::get_surface -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Surface" -- throws : False -- Skip return : False @@ -137,8 +567,8 @@ offscreenWindowGetSurface :: (MonadIO m, OffscreenWindowK a) => - a -> -- _obj - m Cairo.Surface + a -- _obj + -> m Cairo.Surface -- result offscreenWindowGetSurface _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_offscreen_window_get_surface _obj' @@ -146,5 +576,9 @@ result' <- (newBoxed Cairo.Surface) result touchManagedPtr _obj return result' + +data OffscreenWindowGetSurfaceMethodInfo +instance (signature ~ (m Cairo.Surface), MonadIO m, OffscreenWindowK a) => MethodInfo OffscreenWindowGetSurfaceMethodInfo a signature where + overloadedMethod _ = offscreenWindowGetSurface diff --git a/GI/Gtk/Objects/OffscreenWindow.hs-boot b/GI/Gtk/Objects/OffscreenWindow.hs-boot --- a/GI/Gtk/Objects/OffscreenWindow.hs-boot +++ b/GI/Gtk/Objects/OffscreenWindow.hs-boot @@ -11,3 +11,5 @@ instance GObject OffscreenWindow where class GObject o => OffscreenWindowK o instance (GObject o, IsDescendantOf OffscreenWindow o) => OffscreenWindowK o +data OffscreenWindowGetPixbufMethodInfo +data OffscreenWindowGetSurfaceMethodInfo diff --git a/GI/Gtk/Objects/Overlay.hs b/GI/Gtk/Objects/Overlay.hs --- a/GI/Gtk/Objects/Overlay.hs +++ b/GI/Gtk/Objects/Overlay.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** overlayAddOverlay + OverlayAddOverlayMethodInfo , overlayAddOverlay , -- ** overlayGetOverlayPassThrough + OverlayGetOverlayPassThroughMethodInfo , overlayGetOverlayPassThrough , @@ -29,10 +32,12 @@ -- ** overlayReorderOverlay + OverlayReorderOverlayMethodInfo , overlayReorderOverlay , -- ** overlaySetOverlayPassThrough + OverlaySetOverlayPassThroughMethodInfo , overlaySetOverlayPassThrough , @@ -73,17 +78,343 @@ noOverlay :: Maybe Overlay noOverlay = Nothing +type family ResolveOverlayMethod (t :: Symbol) (o :: *) :: * where + ResolveOverlayMethod "activate" o = WidgetActivateMethodInfo + ResolveOverlayMethod "add" o = ContainerAddMethodInfo + ResolveOverlayMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveOverlayMethod "addChild" o = BuildableAddChildMethodInfo + ResolveOverlayMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveOverlayMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveOverlayMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveOverlayMethod "addOverlay" o = OverlayAddOverlayMethodInfo + ResolveOverlayMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveOverlayMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveOverlayMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveOverlayMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveOverlayMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveOverlayMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveOverlayMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveOverlayMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveOverlayMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveOverlayMethod "childType" o = ContainerChildTypeMethodInfo + ResolveOverlayMethod "classPath" o = WidgetClassPathMethodInfo + ResolveOverlayMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveOverlayMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveOverlayMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveOverlayMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveOverlayMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveOverlayMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveOverlayMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveOverlayMethod "destroy" o = WidgetDestroyMethodInfo + ResolveOverlayMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveOverlayMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveOverlayMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveOverlayMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveOverlayMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveOverlayMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveOverlayMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveOverlayMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveOverlayMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveOverlayMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveOverlayMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveOverlayMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveOverlayMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveOverlayMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveOverlayMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveOverlayMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveOverlayMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveOverlayMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveOverlayMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveOverlayMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveOverlayMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveOverlayMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveOverlayMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveOverlayMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveOverlayMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveOverlayMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveOverlayMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveOverlayMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveOverlayMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveOverlayMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveOverlayMethod "draw" o = WidgetDrawMethodInfo + ResolveOverlayMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveOverlayMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveOverlayMethod "event" o = WidgetEventMethodInfo + ResolveOverlayMethod "forall" o = ContainerForallMethodInfo + ResolveOverlayMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveOverlayMethod "foreach" o = ContainerForeachMethodInfo + ResolveOverlayMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveOverlayMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveOverlayMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveOverlayMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveOverlayMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveOverlayMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveOverlayMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveOverlayMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveOverlayMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveOverlayMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveOverlayMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveOverlayMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveOverlayMethod "hide" o = WidgetHideMethodInfo + ResolveOverlayMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveOverlayMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveOverlayMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveOverlayMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveOverlayMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveOverlayMethod "intersect" o = WidgetIntersectMethodInfo + ResolveOverlayMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveOverlayMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveOverlayMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveOverlayMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveOverlayMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveOverlayMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveOverlayMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveOverlayMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveOverlayMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveOverlayMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveOverlayMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveOverlayMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveOverlayMethod "map" o = WidgetMapMethodInfo + ResolveOverlayMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveOverlayMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveOverlayMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveOverlayMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveOverlayMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveOverlayMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveOverlayMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveOverlayMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveOverlayMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveOverlayMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveOverlayMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveOverlayMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveOverlayMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveOverlayMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveOverlayMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveOverlayMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveOverlayMethod "path" o = WidgetPathMethodInfo + ResolveOverlayMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveOverlayMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveOverlayMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveOverlayMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveOverlayMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveOverlayMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveOverlayMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveOverlayMethod "realize" o = WidgetRealizeMethodInfo + ResolveOverlayMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveOverlayMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveOverlayMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveOverlayMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveOverlayMethod "remove" o = ContainerRemoveMethodInfo + ResolveOverlayMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveOverlayMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveOverlayMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveOverlayMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveOverlayMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveOverlayMethod "reorderOverlay" o = OverlayReorderOverlayMethodInfo + ResolveOverlayMethod "reparent" o = WidgetReparentMethodInfo + ResolveOverlayMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveOverlayMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveOverlayMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveOverlayMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveOverlayMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveOverlayMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveOverlayMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveOverlayMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveOverlayMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveOverlayMethod "show" o = WidgetShowMethodInfo + ResolveOverlayMethod "showAll" o = WidgetShowAllMethodInfo + ResolveOverlayMethod "showNow" o = WidgetShowNowMethodInfo + ResolveOverlayMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveOverlayMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveOverlayMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveOverlayMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveOverlayMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveOverlayMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveOverlayMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveOverlayMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveOverlayMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveOverlayMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveOverlayMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveOverlayMethod "unmap" o = WidgetUnmapMethodInfo + ResolveOverlayMethod "unparent" o = WidgetUnparentMethodInfo + ResolveOverlayMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveOverlayMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveOverlayMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveOverlayMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveOverlayMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveOverlayMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveOverlayMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveOverlayMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveOverlayMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveOverlayMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveOverlayMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveOverlayMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveOverlayMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveOverlayMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveOverlayMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveOverlayMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveOverlayMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveOverlayMethod "getChild" o = BinGetChildMethodInfo + ResolveOverlayMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveOverlayMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveOverlayMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveOverlayMethod "getClip" o = WidgetGetClipMethodInfo + ResolveOverlayMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveOverlayMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveOverlayMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveOverlayMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveOverlayMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveOverlayMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveOverlayMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveOverlayMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveOverlayMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveOverlayMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveOverlayMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveOverlayMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveOverlayMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveOverlayMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveOverlayMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveOverlayMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveOverlayMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveOverlayMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveOverlayMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveOverlayMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveOverlayMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveOverlayMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveOverlayMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveOverlayMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveOverlayMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveOverlayMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveOverlayMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveOverlayMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveOverlayMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveOverlayMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveOverlayMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveOverlayMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveOverlayMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveOverlayMethod "getOverlayPassThrough" o = OverlayGetOverlayPassThroughMethodInfo + ResolveOverlayMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveOverlayMethod "getParent" o = WidgetGetParentMethodInfo + ResolveOverlayMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveOverlayMethod "getPath" o = WidgetGetPathMethodInfo + ResolveOverlayMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveOverlayMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveOverlayMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveOverlayMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveOverlayMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveOverlayMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveOverlayMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveOverlayMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveOverlayMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveOverlayMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveOverlayMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveOverlayMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveOverlayMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveOverlayMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveOverlayMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveOverlayMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveOverlayMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveOverlayMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveOverlayMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveOverlayMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveOverlayMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveOverlayMethod "getState" o = WidgetGetStateMethodInfo + ResolveOverlayMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveOverlayMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveOverlayMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveOverlayMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveOverlayMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveOverlayMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveOverlayMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveOverlayMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveOverlayMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveOverlayMethod "getValign" o = WidgetGetValignMethodInfo + ResolveOverlayMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveOverlayMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveOverlayMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveOverlayMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveOverlayMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveOverlayMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveOverlayMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveOverlayMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveOverlayMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveOverlayMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveOverlayMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveOverlayMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveOverlayMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveOverlayMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveOverlayMethod "setClip" o = WidgetSetClipMethodInfo + ResolveOverlayMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveOverlayMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveOverlayMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveOverlayMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveOverlayMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveOverlayMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveOverlayMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveOverlayMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveOverlayMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveOverlayMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveOverlayMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveOverlayMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveOverlayMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveOverlayMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveOverlayMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveOverlayMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveOverlayMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveOverlayMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveOverlayMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveOverlayMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveOverlayMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveOverlayMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveOverlayMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveOverlayMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveOverlayMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveOverlayMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveOverlayMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveOverlayMethod "setOverlayPassThrough" o = OverlaySetOverlayPassThroughMethodInfo + ResolveOverlayMethod "setParent" o = WidgetSetParentMethodInfo + ResolveOverlayMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveOverlayMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveOverlayMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveOverlayMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveOverlayMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveOverlayMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveOverlayMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveOverlayMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveOverlayMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveOverlayMethod "setState" o = WidgetSetStateMethodInfo + ResolveOverlayMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveOverlayMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveOverlayMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveOverlayMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveOverlayMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveOverlayMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveOverlayMethod "setValign" o = WidgetSetValignMethodInfo + ResolveOverlayMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveOverlayMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveOverlayMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveOverlayMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveOverlayMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveOverlayMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveOverlayMethod t Overlay, MethodInfo info Overlay p) => IsLabelProxy t (Overlay -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveOverlayMethod t Overlay, MethodInfo info Overlay p) => IsLabel t (Overlay -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList Overlay = OverlayAttributeList -type OverlayAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type OverlayAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Overlay = OverlaySignalList -type OverlaySignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type OverlaySignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Overlay::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Overlay" -- throws : False -- Skip return : False @@ -94,7 +425,7 @@ overlayNew :: (MonadIO m) => - m Overlay + m Overlay -- result overlayNew = liftIO $ do result <- gtk_overlay_new checkUnexpectedReturnNULL "gtk_overlay_new" result @@ -103,9 +434,8 @@ -- method Overlay::add_overlay -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -118,9 +448,9 @@ overlayAddOverlay :: (MonadIO m, OverlayK a, WidgetK b) => - a -> -- _obj - b -> -- widget - m () + a -- _obj + -> b -- widget + -> m () -- result overlayAddOverlay _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget @@ -129,11 +459,14 @@ touchManagedPtr widget return () +data OverlayAddOverlayMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, OverlayK a, WidgetK b) => MethodInfo OverlayAddOverlayMethodInfo a signature where + overloadedMethod _ = overlayAddOverlay + -- method Overlay::get_overlay_pass_through -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -146,9 +479,9 @@ overlayGetOverlayPassThrough :: (MonadIO m, OverlayK a, WidgetK b) => - a -> -- _obj - b -> -- widget - m Bool + a -- _obj + -> b -- widget + -> m Bool -- result overlayGetOverlayPassThrough _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget @@ -158,11 +491,14 @@ touchManagedPtr widget return result' +data OverlayGetOverlayPassThroughMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, OverlayK a, WidgetK b) => MethodInfo OverlayGetOverlayPassThroughMethodInfo a signature where + overloadedMethod _ = overlayGetOverlayPassThrough + -- method Overlay::reorder_overlay -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -176,10 +512,10 @@ overlayReorderOverlay :: (MonadIO m, OverlayK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- position - m () + a -- _obj + -> b -- child + -> Int32 -- position + -> m () -- result overlayReorderOverlay _obj child position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -188,11 +524,14 @@ touchManagedPtr child return () +data OverlayReorderOverlayMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, OverlayK a, WidgetK b) => MethodInfo OverlayReorderOverlayMethodInfo a signature where + overloadedMethod _ = overlayReorderOverlay + -- method Overlay::set_overlay_pass_through -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pass_through", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pass_through", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pass_through", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -206,17 +545,21 @@ overlaySetOverlayPassThrough :: (MonadIO m, OverlayK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Bool -> -- pass_through - m () -overlaySetOverlayPassThrough _obj widget pass_through = liftIO $ do + a -- _obj + -> b -- widget + -> Bool -- passThrough + -> m () -- result +overlaySetOverlayPassThrough _obj widget passThrough = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget - let pass_through' = (fromIntegral . fromEnum) pass_through - gtk_overlay_set_overlay_pass_through _obj' widget' pass_through' + let passThrough' = (fromIntegral . fromEnum) passThrough + gtk_overlay_set_overlay_pass_through _obj' widget' passThrough' touchManagedPtr _obj touchManagedPtr widget return () + +data OverlaySetOverlayPassThroughMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, OverlayK a, WidgetK b) => MethodInfo OverlaySetOverlayPassThroughMethodInfo a signature where + overloadedMethod _ = overlaySetOverlayPassThrough diff --git a/GI/Gtk/Objects/Overlay.hs-boot b/GI/Gtk/Objects/Overlay.hs-boot --- a/GI/Gtk/Objects/Overlay.hs-boot +++ b/GI/Gtk/Objects/Overlay.hs-boot @@ -11,3 +11,7 @@ instance GObject Overlay where class GObject o => OverlayK o instance (GObject o, IsDescendantOf Overlay o) => OverlayK o +data OverlayAddOverlayMethodInfo +data OverlayGetOverlayPassThroughMethodInfo +data OverlayReorderOverlayMethodInfo +data OverlaySetOverlayPassThroughMethodInfo diff --git a/GI/Gtk/Objects/PageSetup.hs b/GI/Gtk/Objects/PageSetup.hs --- a/GI/Gtk/Objects/PageSetup.hs +++ b/GI/Gtk/Objects/PageSetup.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,54 +18,67 @@ -- * Methods -- ** pageSetupCopy + PageSetupCopyMethodInfo , pageSetupCopy , -- ** pageSetupGetBottomMargin + PageSetupGetBottomMarginMethodInfo , pageSetupGetBottomMargin , -- ** pageSetupGetLeftMargin + PageSetupGetLeftMarginMethodInfo , pageSetupGetLeftMargin , -- ** pageSetupGetOrientation + PageSetupGetOrientationMethodInfo , pageSetupGetOrientation , -- ** pageSetupGetPageHeight + PageSetupGetPageHeightMethodInfo , pageSetupGetPageHeight , -- ** pageSetupGetPageWidth + PageSetupGetPageWidthMethodInfo , pageSetupGetPageWidth , -- ** pageSetupGetPaperHeight + PageSetupGetPaperHeightMethodInfo , pageSetupGetPaperHeight , -- ** pageSetupGetPaperSize + PageSetupGetPaperSizeMethodInfo , pageSetupGetPaperSize , -- ** pageSetupGetPaperWidth + PageSetupGetPaperWidthMethodInfo , pageSetupGetPaperWidth , -- ** pageSetupGetRightMargin + PageSetupGetRightMarginMethodInfo , pageSetupGetRightMargin , -- ** pageSetupGetTopMargin + PageSetupGetTopMarginMethodInfo , pageSetupGetTopMargin , -- ** pageSetupLoadFile + PageSetupLoadFileMethodInfo , pageSetupLoadFile , -- ** pageSetupLoadKeyFile + PageSetupLoadKeyFileMethodInfo , pageSetupLoadKeyFile , @@ -81,38 +95,47 @@ -- ** pageSetupSetBottomMargin + PageSetupSetBottomMarginMethodInfo , pageSetupSetBottomMargin , -- ** pageSetupSetLeftMargin + PageSetupSetLeftMarginMethodInfo , pageSetupSetLeftMargin , -- ** pageSetupSetOrientation + PageSetupSetOrientationMethodInfo , pageSetupSetOrientation , -- ** pageSetupSetPaperSize + PageSetupSetPaperSizeMethodInfo , pageSetupSetPaperSize , -- ** pageSetupSetPaperSizeAndDefaultMargins + PageSetupSetPaperSizeAndDefaultMarginsMethodInfo, pageSetupSetPaperSizeAndDefaultMargins , -- ** pageSetupSetRightMargin + PageSetupSetRightMarginMethodInfo , pageSetupSetRightMargin , -- ** pageSetupSetTopMargin + PageSetupSetTopMarginMethodInfo , pageSetupSetTopMargin , -- ** pageSetupToFile + PageSetupToFileMethodInfo , pageSetupToFile , -- ** pageSetupToKeyFile + PageSetupToKeyFileMethodInfo , pageSetupToKeyFile , @@ -153,17 +176,71 @@ noPageSetup :: Maybe PageSetup noPageSetup = Nothing +type family ResolvePageSetupMethod (t :: Symbol) (o :: *) :: * where + ResolvePageSetupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePageSetupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePageSetupMethod "copy" o = PageSetupCopyMethodInfo + ResolvePageSetupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePageSetupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePageSetupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePageSetupMethod "loadFile" o = PageSetupLoadFileMethodInfo + ResolvePageSetupMethod "loadKeyFile" o = PageSetupLoadKeyFileMethodInfo + ResolvePageSetupMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePageSetupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePageSetupMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePageSetupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePageSetupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePageSetupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePageSetupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePageSetupMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePageSetupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePageSetupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePageSetupMethod "toFile" o = PageSetupToFileMethodInfo + ResolvePageSetupMethod "toKeyFile" o = PageSetupToKeyFileMethodInfo + ResolvePageSetupMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePageSetupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePageSetupMethod "getBottomMargin" o = PageSetupGetBottomMarginMethodInfo + ResolvePageSetupMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePageSetupMethod "getLeftMargin" o = PageSetupGetLeftMarginMethodInfo + ResolvePageSetupMethod "getOrientation" o = PageSetupGetOrientationMethodInfo + ResolvePageSetupMethod "getPageHeight" o = PageSetupGetPageHeightMethodInfo + ResolvePageSetupMethod "getPageWidth" o = PageSetupGetPageWidthMethodInfo + ResolvePageSetupMethod "getPaperHeight" o = PageSetupGetPaperHeightMethodInfo + ResolvePageSetupMethod "getPaperSize" o = PageSetupGetPaperSizeMethodInfo + ResolvePageSetupMethod "getPaperWidth" o = PageSetupGetPaperWidthMethodInfo + ResolvePageSetupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePageSetupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePageSetupMethod "getRightMargin" o = PageSetupGetRightMarginMethodInfo + ResolvePageSetupMethod "getTopMargin" o = PageSetupGetTopMarginMethodInfo + ResolvePageSetupMethod "setBottomMargin" o = PageSetupSetBottomMarginMethodInfo + ResolvePageSetupMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePageSetupMethod "setLeftMargin" o = PageSetupSetLeftMarginMethodInfo + ResolvePageSetupMethod "setOrientation" o = PageSetupSetOrientationMethodInfo + ResolvePageSetupMethod "setPaperSize" o = PageSetupSetPaperSizeMethodInfo + ResolvePageSetupMethod "setPaperSizeAndDefaultMargins" o = PageSetupSetPaperSizeAndDefaultMarginsMethodInfo + ResolvePageSetupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePageSetupMethod "setRightMargin" o = PageSetupSetRightMarginMethodInfo + ResolvePageSetupMethod "setTopMargin" o = PageSetupSetTopMarginMethodInfo + ResolvePageSetupMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePageSetupMethod t PageSetup, MethodInfo info PageSetup p) => IsLabelProxy t (PageSetup -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePageSetupMethod t PageSetup, MethodInfo info PageSetup p) => IsLabel t (PageSetup -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList PageSetup = PageSetupAttributeList type PageSetupAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList PageSetup = PageSetupSignalList -type PageSetupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PageSetupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method PageSetup::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "PageSetup" -- throws : False -- Skip return : False @@ -174,7 +251,7 @@ pageSetupNew :: (MonadIO m) => - m PageSetup + m PageSetup -- result pageSetupNew = liftIO $ do result <- gtk_page_setup_new checkUnexpectedReturnNULL "gtk_page_setup_new" result @@ -183,9 +260,8 @@ -- method PageSetup::new_from_file -- method type : Constructor --- Args : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PageSetup" -- throws : True -- Skip return : False @@ -198,25 +274,24 @@ pageSetupNewFromFile :: (MonadIO m) => - [Char] -> -- file_name - m PageSetup -pageSetupNewFromFile file_name = liftIO $ do - file_name' <- stringToCString file_name + [Char] -- fileName + -> m PageSetup -- result +pageSetupNewFromFile fileName = liftIO $ do + fileName' <- stringToCString fileName onException (do - result <- propagateGError $ gtk_page_setup_new_from_file file_name' + result <- propagateGError $ gtk_page_setup_new_from_file fileName' checkUnexpectedReturnNULL "gtk_page_setup_new_from_file" result result' <- (wrapObject PageSetup) result - freeMem file_name' + freeMem fileName' return result' ) (do - freeMem file_name' + freeMem fileName' ) -- method PageSetup::new_from_key_file -- method type : Constructor --- Args : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PageSetup" -- throws : True -- Skip return : False @@ -230,32 +305,31 @@ pageSetupNewFromKeyFile :: (MonadIO m) => - GLib.KeyFile -> -- key_file - Maybe (T.Text) -> -- group_name - m PageSetup -pageSetupNewFromKeyFile key_file group_name = liftIO $ do - let key_file' = unsafeManagedPtrGetPtr key_file - maybeGroup_name <- case group_name of + GLib.KeyFile -- keyFile + -> Maybe (T.Text) -- groupName + -> m PageSetup -- result +pageSetupNewFromKeyFile keyFile groupName = liftIO $ do + let keyFile' = unsafeManagedPtrGetPtr keyFile + maybeGroupName <- case groupName of Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' + Just jGroupName -> do + jGroupName' <- textToCString jGroupName + return jGroupName' onException (do - result <- propagateGError $ gtk_page_setup_new_from_key_file key_file' maybeGroup_name + result <- propagateGError $ gtk_page_setup_new_from_key_file keyFile' maybeGroupName checkUnexpectedReturnNULL "gtk_page_setup_new_from_key_file" result result' <- (wrapObject PageSetup) result - touchManagedPtr key_file - freeMem maybeGroup_name + touchManagedPtr keyFile + freeMem maybeGroupName return result' ) (do - freeMem maybeGroup_name + freeMem maybeGroupName ) -- method PageSetup::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PageSetup" -- throws : False -- Skip return : False @@ -267,8 +341,8 @@ pageSetupCopy :: (MonadIO m, PageSetupK a) => - a -> -- _obj - m PageSetup + a -- _obj + -> m PageSetup -- result pageSetupCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_page_setup_copy _obj' @@ -277,11 +351,14 @@ touchManagedPtr _obj return result' +data PageSetupCopyMethodInfo +instance (signature ~ (m PageSetup), MonadIO m, PageSetupK a) => MethodInfo PageSetupCopyMethodInfo a signature where + overloadedMethod _ = pageSetupCopy + -- method PageSetup::get_bottom_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -294,9 +371,9 @@ pageSetupGetBottomMargin :: (MonadIO m, PageSetupK a) => - a -> -- _obj - Unit -> -- unit - m Double + a -- _obj + -> Unit -- unit + -> m Double -- result pageSetupGetBottomMargin _obj unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -305,11 +382,14 @@ touchManagedPtr _obj return result' +data PageSetupGetBottomMarginMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetBottomMarginMethodInfo a signature where + overloadedMethod _ = pageSetupGetBottomMargin + -- method PageSetup::get_left_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -322,9 +402,9 @@ pageSetupGetLeftMargin :: (MonadIO m, PageSetupK a) => - a -> -- _obj - Unit -> -- unit - m Double + a -- _obj + -> Unit -- unit + -> m Double -- result pageSetupGetLeftMargin _obj unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -333,11 +413,14 @@ touchManagedPtr _obj return result' +data PageSetupGetLeftMarginMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetLeftMarginMethodInfo a signature where + overloadedMethod _ = pageSetupGetLeftMargin + -- method PageSetup::get_orientation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PageOrientation" -- throws : False -- Skip return : False @@ -349,8 +432,8 @@ pageSetupGetOrientation :: (MonadIO m, PageSetupK a) => - a -> -- _obj - m PageOrientation + a -- _obj + -> m PageOrientation -- result pageSetupGetOrientation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_page_setup_get_orientation _obj' @@ -358,11 +441,14 @@ touchManagedPtr _obj return result' +data PageSetupGetOrientationMethodInfo +instance (signature ~ (m PageOrientation), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetOrientationMethodInfo a signature where + overloadedMethod _ = pageSetupGetOrientation + -- method PageSetup::get_page_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -375,9 +461,9 @@ pageSetupGetPageHeight :: (MonadIO m, PageSetupK a) => - a -> -- _obj - Unit -> -- unit - m Double + a -- _obj + -> Unit -- unit + -> m Double -- result pageSetupGetPageHeight _obj unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -386,11 +472,14 @@ touchManagedPtr _obj return result' +data PageSetupGetPageHeightMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetPageHeightMethodInfo a signature where + overloadedMethod _ = pageSetupGetPageHeight + -- method PageSetup::get_page_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -403,9 +492,9 @@ pageSetupGetPageWidth :: (MonadIO m, PageSetupK a) => - a -> -- _obj - Unit -> -- unit - m Double + a -- _obj + -> Unit -- unit + -> m Double -- result pageSetupGetPageWidth _obj unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -414,11 +503,14 @@ touchManagedPtr _obj return result' +data PageSetupGetPageWidthMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetPageWidthMethodInfo a signature where + overloadedMethod _ = pageSetupGetPageWidth + -- method PageSetup::get_paper_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -431,9 +523,9 @@ pageSetupGetPaperHeight :: (MonadIO m, PageSetupK a) => - a -> -- _obj - Unit -> -- unit - m Double + a -- _obj + -> Unit -- unit + -> m Double -- result pageSetupGetPaperHeight _obj unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -442,11 +534,14 @@ touchManagedPtr _obj return result' +data PageSetupGetPaperHeightMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetPaperHeightMethodInfo a signature where + overloadedMethod _ = pageSetupGetPaperHeight + -- method PageSetup::get_paper_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PaperSize" -- throws : False -- Skip return : False @@ -458,8 +553,8 @@ pageSetupGetPaperSize :: (MonadIO m, PageSetupK a) => - a -> -- _obj - m PaperSize + a -- _obj + -> m PaperSize -- result pageSetupGetPaperSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_page_setup_get_paper_size _obj' @@ -468,11 +563,14 @@ touchManagedPtr _obj return result' +data PageSetupGetPaperSizeMethodInfo +instance (signature ~ (m PaperSize), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetPaperSizeMethodInfo a signature where + overloadedMethod _ = pageSetupGetPaperSize + -- method PageSetup::get_paper_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -485,9 +583,9 @@ pageSetupGetPaperWidth :: (MonadIO m, PageSetupK a) => - a -> -- _obj - Unit -> -- unit - m Double + a -- _obj + -> Unit -- unit + -> m Double -- result pageSetupGetPaperWidth _obj unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -496,11 +594,14 @@ touchManagedPtr _obj return result' +data PageSetupGetPaperWidthMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetPaperWidthMethodInfo a signature where + overloadedMethod _ = pageSetupGetPaperWidth + -- method PageSetup::get_right_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -513,9 +614,9 @@ pageSetupGetRightMargin :: (MonadIO m, PageSetupK a) => - a -> -- _obj - Unit -> -- unit - m Double + a -- _obj + -> Unit -- unit + -> m Double -- result pageSetupGetRightMargin _obj unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -524,11 +625,14 @@ touchManagedPtr _obj return result' +data PageSetupGetRightMarginMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetRightMarginMethodInfo a signature where + overloadedMethod _ = pageSetupGetRightMargin + -- method PageSetup::get_top_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -541,9 +645,9 @@ pageSetupGetTopMargin :: (MonadIO m, PageSetupK a) => - a -> -- _obj - Unit -> -- unit - m Double + a -- _obj + -> Unit -- unit + -> m Double -- result pageSetupGetTopMargin _obj unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -552,11 +656,14 @@ touchManagedPtr _obj return result' +data PageSetupGetTopMarginMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m, PageSetupK a) => MethodInfo PageSetupGetTopMarginMethodInfo a signature where + overloadedMethod _ = pageSetupGetTopMargin + -- method PageSetup::load_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -570,26 +677,29 @@ pageSetupLoadFile :: (MonadIO m, PageSetupK a) => - a -> -- _obj - [Char] -> -- file_name - m () -pageSetupLoadFile _obj file_name = liftIO $ do + a -- _obj + -> [Char] -- fileName + -> m () -- result +pageSetupLoadFile _obj fileName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - file_name' <- stringToCString file_name + fileName' <- stringToCString fileName onException (do - _ <- propagateGError $ gtk_page_setup_load_file _obj' file_name' + _ <- propagateGError $ gtk_page_setup_load_file _obj' fileName' touchManagedPtr _obj - freeMem file_name' + freeMem fileName' return () ) (do - freeMem file_name' + freeMem fileName' ) +data PageSetupLoadFileMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupLoadFileMethodInfo a signature where + overloadedMethod _ = pageSetupLoadFile + -- method PageSetup::load_key_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -604,33 +714,36 @@ pageSetupLoadKeyFile :: (MonadIO m, PageSetupK a) => - a -> -- _obj - GLib.KeyFile -> -- key_file - Maybe (T.Text) -> -- group_name - m () -pageSetupLoadKeyFile _obj key_file group_name = liftIO $ do + a -- _obj + -> GLib.KeyFile -- keyFile + -> Maybe (T.Text) -- groupName + -> m () -- result +pageSetupLoadKeyFile _obj keyFile groupName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let key_file' = unsafeManagedPtrGetPtr key_file - maybeGroup_name <- case group_name of + let keyFile' = unsafeManagedPtrGetPtr keyFile + maybeGroupName <- case groupName of Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' + Just jGroupName -> do + jGroupName' <- textToCString jGroupName + return jGroupName' onException (do - _ <- propagateGError $ gtk_page_setup_load_key_file _obj' key_file' maybeGroup_name + _ <- propagateGError $ gtk_page_setup_load_key_file _obj' keyFile' maybeGroupName touchManagedPtr _obj - touchManagedPtr key_file - freeMem maybeGroup_name + touchManagedPtr keyFile + freeMem maybeGroupName return () ) (do - freeMem maybeGroup_name + freeMem maybeGroupName ) +data PageSetupLoadKeyFileMethodInfo +instance (signature ~ (GLib.KeyFile -> Maybe (T.Text) -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupLoadKeyFileMethodInfo a signature where + overloadedMethod _ = pageSetupLoadKeyFile + -- method PageSetup::set_bottom_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -644,10 +757,10 @@ pageSetupSetBottomMargin :: (MonadIO m, PageSetupK a) => - a -> -- _obj - Double -> -- margin - Unit -> -- unit - m () + a -- _obj + -> Double -- margin + -> Unit -- unit + -> m () -- result pageSetupSetBottomMargin _obj margin unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let margin' = realToFrac margin @@ -656,11 +769,14 @@ touchManagedPtr _obj return () +data PageSetupSetBottomMarginMethodInfo +instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetBottomMarginMethodInfo a signature where + overloadedMethod _ = pageSetupSetBottomMargin + -- method PageSetup::set_left_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -674,10 +790,10 @@ pageSetupSetLeftMargin :: (MonadIO m, PageSetupK a) => - a -> -- _obj - Double -> -- margin - Unit -> -- unit - m () + a -- _obj + -> Double -- margin + -> Unit -- unit + -> m () -- result pageSetupSetLeftMargin _obj margin unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let margin' = realToFrac margin @@ -686,11 +802,14 @@ touchManagedPtr _obj return () +data PageSetupSetLeftMarginMethodInfo +instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetLeftMarginMethodInfo a signature where + overloadedMethod _ = pageSetupSetLeftMargin + -- method PageSetup::set_orientation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -703,9 +822,9 @@ pageSetupSetOrientation :: (MonadIO m, PageSetupK a) => - a -> -- _obj - PageOrientation -> -- orientation - m () + a -- _obj + -> PageOrientation -- orientation + -> m () -- result pageSetupSetOrientation _obj orientation = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let orientation' = (fromIntegral . fromEnum) orientation @@ -713,11 +832,14 @@ touchManagedPtr _obj return () +data PageSetupSetOrientationMethodInfo +instance (signature ~ (PageOrientation -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetOrientationMethodInfo a signature where + overloadedMethod _ = pageSetupSetOrientation + -- method PageSetup::set_paper_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -730,9 +852,9 @@ pageSetupSetPaperSize :: (MonadIO m, PageSetupK a) => - a -> -- _obj - PaperSize -> -- size - m () + a -- _obj + -> PaperSize -- size + -> m () -- result pageSetupSetPaperSize _obj size = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let size' = unsafeManagedPtrGetPtr size @@ -741,11 +863,14 @@ touchManagedPtr size return () +data PageSetupSetPaperSizeMethodInfo +instance (signature ~ (PaperSize -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetPaperSizeMethodInfo a signature where + overloadedMethod _ = pageSetupSetPaperSize + -- method PageSetup::set_paper_size_and_default_margins -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -758,9 +883,9 @@ pageSetupSetPaperSizeAndDefaultMargins :: (MonadIO m, PageSetupK a) => - a -> -- _obj - PaperSize -> -- size - m () + a -- _obj + -> PaperSize -- size + -> m () -- result pageSetupSetPaperSizeAndDefaultMargins _obj size = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let size' = unsafeManagedPtrGetPtr size @@ -769,11 +894,14 @@ touchManagedPtr size return () +data PageSetupSetPaperSizeAndDefaultMarginsMethodInfo +instance (signature ~ (PaperSize -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetPaperSizeAndDefaultMarginsMethodInfo a signature where + overloadedMethod _ = pageSetupSetPaperSizeAndDefaultMargins + -- method PageSetup::set_right_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -787,10 +915,10 @@ pageSetupSetRightMargin :: (MonadIO m, PageSetupK a) => - a -> -- _obj - Double -> -- margin - Unit -> -- unit - m () + a -- _obj + -> Double -- margin + -> Unit -- unit + -> m () -- result pageSetupSetRightMargin _obj margin unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let margin' = realToFrac margin @@ -799,11 +927,14 @@ touchManagedPtr _obj return () +data PageSetupSetRightMarginMethodInfo +instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetRightMarginMethodInfo a signature where + overloadedMethod _ = pageSetupSetRightMargin + -- method PageSetup::set_top_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -817,10 +948,10 @@ pageSetupSetTopMargin :: (MonadIO m, PageSetupK a) => - a -> -- _obj - Double -> -- margin - Unit -> -- unit - m () + a -- _obj + -> Double -- margin + -> Unit -- unit + -> m () -- result pageSetupSetTopMargin _obj margin unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let margin' = realToFrac margin @@ -829,11 +960,14 @@ touchManagedPtr _obj return () +data PageSetupSetTopMarginMethodInfo +instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupSetTopMarginMethodInfo a signature where + overloadedMethod _ = pageSetupSetTopMargin + -- method PageSetup::to_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -847,26 +981,29 @@ pageSetupToFile :: (MonadIO m, PageSetupK a) => - a -> -- _obj - [Char] -> -- file_name - m () -pageSetupToFile _obj file_name = liftIO $ do + a -- _obj + -> [Char] -- fileName + -> m () -- result +pageSetupToFile _obj fileName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - file_name' <- stringToCString file_name + fileName' <- stringToCString fileName onException (do - _ <- propagateGError $ gtk_page_setup_to_file _obj' file_name' + _ <- propagateGError $ gtk_page_setup_to_file _obj' fileName' touchManagedPtr _obj - freeMem file_name' + freeMem fileName' return () ) (do - freeMem file_name' + freeMem fileName' ) +data PageSetupToFileMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupToFileMethodInfo a signature where + overloadedMethod _ = pageSetupToFile + -- method PageSetup::to_key_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -880,18 +1017,22 @@ pageSetupToKeyFile :: (MonadIO m, PageSetupK a) => - a -> -- _obj - GLib.KeyFile -> -- key_file - T.Text -> -- group_name - m () -pageSetupToKeyFile _obj key_file group_name = liftIO $ do + a -- _obj + -> GLib.KeyFile -- keyFile + -> T.Text -- groupName + -> m () -- result +pageSetupToKeyFile _obj keyFile groupName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let key_file' = unsafeManagedPtrGetPtr key_file - group_name' <- textToCString group_name - gtk_page_setup_to_key_file _obj' key_file' group_name' + let keyFile' = unsafeManagedPtrGetPtr keyFile + groupName' <- textToCString groupName + gtk_page_setup_to_key_file _obj' keyFile' groupName' touchManagedPtr _obj - touchManagedPtr key_file - freeMem group_name' + touchManagedPtr keyFile + freeMem groupName' return () + +data PageSetupToKeyFileMethodInfo +instance (signature ~ (GLib.KeyFile -> T.Text -> m ()), MonadIO m, PageSetupK a) => MethodInfo PageSetupToKeyFileMethodInfo a signature where + overloadedMethod _ = pageSetupToKeyFile diff --git a/GI/Gtk/Objects/PageSetup.hs-boot b/GI/Gtk/Objects/PageSetup.hs-boot --- a/GI/Gtk/Objects/PageSetup.hs-boot +++ b/GI/Gtk/Objects/PageSetup.hs-boot @@ -11,3 +11,25 @@ instance GObject PageSetup where class GObject o => PageSetupK o instance (GObject o, IsDescendantOf PageSetup o) => PageSetupK o +data PageSetupCopyMethodInfo +data PageSetupGetBottomMarginMethodInfo +data PageSetupGetLeftMarginMethodInfo +data PageSetupGetOrientationMethodInfo +data PageSetupGetPageHeightMethodInfo +data PageSetupGetPageWidthMethodInfo +data PageSetupGetPaperHeightMethodInfo +data PageSetupGetPaperSizeMethodInfo +data PageSetupGetPaperWidthMethodInfo +data PageSetupGetRightMarginMethodInfo +data PageSetupGetTopMarginMethodInfo +data PageSetupLoadFileMethodInfo +data PageSetupLoadKeyFileMethodInfo +data PageSetupSetBottomMarginMethodInfo +data PageSetupSetLeftMarginMethodInfo +data PageSetupSetOrientationMethodInfo +data PageSetupSetPaperSizeMethodInfo +data PageSetupSetPaperSizeAndDefaultMarginsMethodInfo +data PageSetupSetRightMarginMethodInfo +data PageSetupSetTopMarginMethodInfo +data PageSetupToFileMethodInfo +data PageSetupToKeyFileMethodInfo diff --git a/GI/Gtk/Objects/Paned.hs b/GI/Gtk/Objects/Paned.hs --- a/GI/Gtk/Objects/Paned.hs +++ b/GI/Gtk/Objects/Paned.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,30 +18,37 @@ -- * Methods -- ** panedAdd1 + PanedAdd1MethodInfo , panedAdd1 , -- ** panedAdd2 + PanedAdd2MethodInfo , panedAdd2 , -- ** panedGetChild1 + PanedGetChild1MethodInfo , panedGetChild1 , -- ** panedGetChild2 + PanedGetChild2MethodInfo , panedGetChild2 , -- ** panedGetHandleWindow + PanedGetHandleWindowMethodInfo , panedGetHandleWindow , -- ** panedGetPosition + PanedGetPositionMethodInfo , panedGetPosition , -- ** panedGetWideHandle + PanedGetWideHandleMethodInfo , panedGetWideHandle , @@ -49,18 +57,22 @@ -- ** panedPack1 + PanedPack1MethodInfo , panedPack1 , -- ** panedPack2 + PanedPack2MethodInfo , panedPack2 , -- ** panedSetPosition + PanedSetPositionMethodInfo , panedSetPosition , -- ** panedSetWideHandle + PanedSetWideHandleMethodInfo , panedSetWideHandle , @@ -211,6 +223,341 @@ noPaned :: Maybe Paned noPaned = Nothing +type family ResolvePanedMethod (t :: Symbol) (o :: *) :: * where + ResolvePanedMethod "activate" o = WidgetActivateMethodInfo + ResolvePanedMethod "add" o = ContainerAddMethodInfo + ResolvePanedMethod "add1" o = PanedAdd1MethodInfo + ResolvePanedMethod "add2" o = PanedAdd2MethodInfo + ResolvePanedMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolvePanedMethod "addChild" o = BuildableAddChildMethodInfo + ResolvePanedMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolvePanedMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolvePanedMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolvePanedMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolvePanedMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePanedMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePanedMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolvePanedMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolvePanedMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolvePanedMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolvePanedMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolvePanedMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolvePanedMethod "childType" o = ContainerChildTypeMethodInfo + ResolvePanedMethod "classPath" o = WidgetClassPathMethodInfo + ResolvePanedMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolvePanedMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolvePanedMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolvePanedMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolvePanedMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolvePanedMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolvePanedMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolvePanedMethod "destroy" o = WidgetDestroyMethodInfo + ResolvePanedMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolvePanedMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolvePanedMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolvePanedMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolvePanedMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolvePanedMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolvePanedMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolvePanedMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolvePanedMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolvePanedMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolvePanedMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolvePanedMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolvePanedMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolvePanedMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolvePanedMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolvePanedMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolvePanedMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolvePanedMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolvePanedMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolvePanedMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolvePanedMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolvePanedMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolvePanedMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolvePanedMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolvePanedMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolvePanedMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolvePanedMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolvePanedMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolvePanedMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolvePanedMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolvePanedMethod "draw" o = WidgetDrawMethodInfo + ResolvePanedMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolvePanedMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolvePanedMethod "event" o = WidgetEventMethodInfo + ResolvePanedMethod "forall" o = ContainerForallMethodInfo + ResolvePanedMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePanedMethod "foreach" o = ContainerForeachMethodInfo + ResolvePanedMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolvePanedMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePanedMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolvePanedMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolvePanedMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolvePanedMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolvePanedMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolvePanedMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolvePanedMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolvePanedMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolvePanedMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolvePanedMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolvePanedMethod "hide" o = WidgetHideMethodInfo + ResolvePanedMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolvePanedMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolvePanedMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolvePanedMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolvePanedMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolvePanedMethod "intersect" o = WidgetIntersectMethodInfo + ResolvePanedMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolvePanedMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolvePanedMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolvePanedMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePanedMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolvePanedMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolvePanedMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolvePanedMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolvePanedMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolvePanedMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolvePanedMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolvePanedMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolvePanedMethod "map" o = WidgetMapMethodInfo + ResolvePanedMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolvePanedMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolvePanedMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolvePanedMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolvePanedMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolvePanedMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolvePanedMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolvePanedMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolvePanedMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePanedMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePanedMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolvePanedMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolvePanedMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolvePanedMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolvePanedMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolvePanedMethod "pack1" o = PanedPack1MethodInfo + ResolvePanedMethod "pack2" o = PanedPack2MethodInfo + ResolvePanedMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolvePanedMethod "path" o = WidgetPathMethodInfo + ResolvePanedMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolvePanedMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolvePanedMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolvePanedMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolvePanedMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolvePanedMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolvePanedMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolvePanedMethod "realize" o = WidgetRealizeMethodInfo + ResolvePanedMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePanedMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePanedMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolvePanedMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolvePanedMethod "remove" o = ContainerRemoveMethodInfo + ResolvePanedMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolvePanedMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolvePanedMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolvePanedMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolvePanedMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolvePanedMethod "reparent" o = WidgetReparentMethodInfo + ResolvePanedMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePanedMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePanedMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolvePanedMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolvePanedMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolvePanedMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePanedMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolvePanedMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolvePanedMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolvePanedMethod "show" o = WidgetShowMethodInfo + ResolvePanedMethod "showAll" o = WidgetShowAllMethodInfo + ResolvePanedMethod "showNow" o = WidgetShowNowMethodInfo + ResolvePanedMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolvePanedMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolvePanedMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolvePanedMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePanedMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePanedMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolvePanedMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolvePanedMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolvePanedMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePanedMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolvePanedMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolvePanedMethod "unmap" o = WidgetUnmapMethodInfo + ResolvePanedMethod "unparent" o = WidgetUnparentMethodInfo + ResolvePanedMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolvePanedMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePanedMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolvePanedMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolvePanedMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolvePanedMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePanedMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolvePanedMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolvePanedMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolvePanedMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolvePanedMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolvePanedMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolvePanedMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolvePanedMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolvePanedMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolvePanedMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolvePanedMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolvePanedMethod "getChild1" o = PanedGetChild1MethodInfo + ResolvePanedMethod "getChild2" o = PanedGetChild2MethodInfo + ResolvePanedMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolvePanedMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolvePanedMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolvePanedMethod "getClip" o = WidgetGetClipMethodInfo + ResolvePanedMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolvePanedMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolvePanedMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePanedMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolvePanedMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolvePanedMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolvePanedMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolvePanedMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolvePanedMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolvePanedMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolvePanedMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolvePanedMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolvePanedMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolvePanedMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolvePanedMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolvePanedMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolvePanedMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolvePanedMethod "getHandleWindow" o = PanedGetHandleWindowMethodInfo + ResolvePanedMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolvePanedMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolvePanedMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolvePanedMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolvePanedMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolvePanedMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolvePanedMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolvePanedMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolvePanedMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolvePanedMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolvePanedMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolvePanedMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolvePanedMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolvePanedMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolvePanedMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolvePanedMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolvePanedMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolvePanedMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolvePanedMethod "getParent" o = WidgetGetParentMethodInfo + ResolvePanedMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolvePanedMethod "getPath" o = WidgetGetPathMethodInfo + ResolvePanedMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolvePanedMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolvePanedMethod "getPosition" o = PanedGetPositionMethodInfo + ResolvePanedMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolvePanedMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolvePanedMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolvePanedMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolvePanedMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolvePanedMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolvePanedMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePanedMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePanedMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolvePanedMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolvePanedMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolvePanedMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolvePanedMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolvePanedMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolvePanedMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolvePanedMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolvePanedMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolvePanedMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolvePanedMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolvePanedMethod "getState" o = WidgetGetStateMethodInfo + ResolvePanedMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolvePanedMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolvePanedMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolvePanedMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolvePanedMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolvePanedMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolvePanedMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolvePanedMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolvePanedMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolvePanedMethod "getValign" o = WidgetGetValignMethodInfo + ResolvePanedMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolvePanedMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolvePanedMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolvePanedMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolvePanedMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolvePanedMethod "getWideHandle" o = PanedGetWideHandleMethodInfo + ResolvePanedMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolvePanedMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolvePanedMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolvePanedMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolvePanedMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolvePanedMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolvePanedMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolvePanedMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolvePanedMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolvePanedMethod "setClip" o = WidgetSetClipMethodInfo + ResolvePanedMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolvePanedMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePanedMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolvePanedMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolvePanedMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolvePanedMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolvePanedMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolvePanedMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolvePanedMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolvePanedMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolvePanedMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolvePanedMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolvePanedMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolvePanedMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolvePanedMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolvePanedMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolvePanedMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolvePanedMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolvePanedMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolvePanedMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolvePanedMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolvePanedMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolvePanedMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolvePanedMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolvePanedMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolvePanedMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolvePanedMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolvePanedMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolvePanedMethod "setParent" o = WidgetSetParentMethodInfo + ResolvePanedMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolvePanedMethod "setPosition" o = PanedSetPositionMethodInfo + ResolvePanedMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePanedMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolvePanedMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolvePanedMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolvePanedMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolvePanedMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolvePanedMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolvePanedMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolvePanedMethod "setState" o = WidgetSetStateMethodInfo + ResolvePanedMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolvePanedMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolvePanedMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolvePanedMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolvePanedMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolvePanedMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolvePanedMethod "setValign" o = WidgetSetValignMethodInfo + ResolvePanedMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolvePanedMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolvePanedMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolvePanedMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolvePanedMethod "setWideHandle" o = PanedSetWideHandleMethodInfo + ResolvePanedMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolvePanedMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePanedMethod t Paned, MethodInfo info Paned p) => IsLabelProxy t (Paned -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePanedMethod t Paned, MethodInfo info Paned p) => IsLabel t (Paned -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Paned::accept-position type PanedAcceptPositionCallback = IO Bool @@ -406,9 +753,9 @@ CUInt -> Ptr () -> IO CInt -panedMoveHandleCallbackWrapper _cb _ scroll_type _ = do - let scroll_type' = (toEnum . fromIntegral) scroll_type - result <- _cb scroll_type' +panedMoveHandleCallbackWrapper _cb _ scrollType _ = do + let scrollType' = (toEnum . fromIntegral) scrollType + result <- _cb scrollType' let result' = (fromIntegral . fromEnum) result return result' @@ -476,7 +823,7 @@ type AttrSetTypeConstraint PanedMaxPositionPropertyInfo = (~) () type AttrBaseTypeConstraint PanedMaxPositionPropertyInfo = PanedK type AttrGetType PanedMaxPositionPropertyInfo = Int32 - type AttrLabel PanedMaxPositionPropertyInfo = "Paned::max-position" + type AttrLabel PanedMaxPositionPropertyInfo = "max-position" attrGet _ = getPanedMaxPosition attrSet _ = undefined attrConstruct _ = undefined @@ -494,7 +841,7 @@ type AttrSetTypeConstraint PanedMinPositionPropertyInfo = (~) () type AttrBaseTypeConstraint PanedMinPositionPropertyInfo = PanedK type AttrGetType PanedMinPositionPropertyInfo = Int32 - type AttrLabel PanedMinPositionPropertyInfo = "Paned::min-position" + type AttrLabel PanedMinPositionPropertyInfo = "min-position" attrGet _ = getPanedMinPosition attrSet _ = undefined attrConstruct _ = undefined @@ -518,7 +865,7 @@ type AttrSetTypeConstraint PanedPositionPropertyInfo = (~) Int32 type AttrBaseTypeConstraint PanedPositionPropertyInfo = PanedK type AttrGetType PanedPositionPropertyInfo = Int32 - type AttrLabel PanedPositionPropertyInfo = "Paned::position" + type AttrLabel PanedPositionPropertyInfo = "position" attrGet _ = getPanedPosition attrSet _ = setPanedPosition attrConstruct _ = constructPanedPosition @@ -542,7 +889,7 @@ type AttrSetTypeConstraint PanedPositionSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint PanedPositionSetPropertyInfo = PanedK type AttrGetType PanedPositionSetPropertyInfo = Bool - type AttrLabel PanedPositionSetPropertyInfo = "Paned::position-set" + type AttrLabel PanedPositionSetPropertyInfo = "position-set" attrGet _ = getPanedPositionSet attrSet _ = setPanedPositionSet attrConstruct _ = constructPanedPositionSet @@ -566,13 +913,13 @@ type AttrSetTypeConstraint PanedWideHandlePropertyInfo = (~) Bool type AttrBaseTypeConstraint PanedWideHandlePropertyInfo = PanedK type AttrGetType PanedWideHandlePropertyInfo = Bool - type AttrLabel PanedWideHandlePropertyInfo = "Paned::wide-handle" + type AttrLabel PanedWideHandlePropertyInfo = "wide-handle" attrGet _ = getPanedWideHandle attrSet _ = setPanedWideHandle attrConstruct _ = constructPanedWideHandle type instance AttributeList Paned = PanedAttributeList -type PanedAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-position", PanedMaxPositionPropertyInfo), '("min-position", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("position-set", PanedPositionSetPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wide-handle", PanedWideHandlePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type PanedAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxPosition", PanedMaxPositionPropertyInfo), '("minPosition", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("positionSet", PanedPositionSetPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wideHandle", PanedWideHandlePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data PanedAcceptPositionSignalInfo instance SignalInfo PanedAcceptPositionSignalInfo where @@ -605,13 +952,12 @@ connectSignal _ = connectPanedToggleHandleFocus type instance SignalList Paned = PanedSignalList -type PanedSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("accept-position", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel-position", PanedCancelPositionSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-child-focus", PanedCycleChildFocusSignalInfo), '("cycle-handle-focus", PanedCycleHandleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-handle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-handle-focus", PanedToggleHandleFocusSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PanedSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("acceptPosition", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancelPosition", PanedCancelPositionSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleChildFocus", PanedCycleChildFocusSignalInfo), '("cycleHandleFocus", PanedCycleHandleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveHandle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleHandleFocus", PanedToggleHandleFocusSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Paned::new -- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Paned" -- throws : False -- Skip return : False @@ -623,8 +969,8 @@ panedNew :: (MonadIO m) => - Orientation -> -- orientation - m Paned + Orientation -- orientation + -> m Paned -- result panedNew orientation = liftIO $ do let orientation' = (fromIntegral . fromEnum) orientation result <- gtk_paned_new orientation' @@ -634,9 +980,8 @@ -- method Paned::add1 -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -649,9 +994,9 @@ panedAdd1 :: (MonadIO m, PanedK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result panedAdd1 _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -660,11 +1005,14 @@ touchManagedPtr child return () +data PanedAdd1MethodInfo +instance (signature ~ (b -> m ()), MonadIO m, PanedK a, WidgetK b) => MethodInfo PanedAdd1MethodInfo a signature where + overloadedMethod _ = panedAdd1 + -- method Paned::add2 -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -677,9 +1025,9 @@ panedAdd2 :: (MonadIO m, PanedK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result panedAdd2 _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -688,11 +1036,14 @@ touchManagedPtr child return () +data PanedAdd2MethodInfo +instance (signature ~ (b -> m ()), MonadIO m, PanedK a, WidgetK b) => MethodInfo PanedAdd2MethodInfo a signature where + overloadedMethod _ = panedAdd2 + -- method Paned::get_child1 -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -704,8 +1055,8 @@ panedGetChild1 :: (MonadIO m, PanedK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result panedGetChild1 _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_paned_get_child1 _obj' @@ -714,11 +1065,14 @@ touchManagedPtr _obj return result' +data PanedGetChild1MethodInfo +instance (signature ~ (m Widget), MonadIO m, PanedK a) => MethodInfo PanedGetChild1MethodInfo a signature where + overloadedMethod _ = panedGetChild1 + -- method Paned::get_child2 -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -730,8 +1084,8 @@ panedGetChild2 :: (MonadIO m, PanedK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result panedGetChild2 _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_paned_get_child2 _obj' @@ -740,11 +1094,14 @@ touchManagedPtr _obj return result' +data PanedGetChild2MethodInfo +instance (signature ~ (m Widget), MonadIO m, PanedK a) => MethodInfo PanedGetChild2MethodInfo a signature where + overloadedMethod _ = panedGetChild2 + -- method Paned::get_handle_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False @@ -756,8 +1113,8 @@ panedGetHandleWindow :: (MonadIO m, PanedK a) => - a -> -- _obj - m Gdk.Window + a -- _obj + -> m Gdk.Window -- result panedGetHandleWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_paned_get_handle_window _obj' @@ -766,11 +1123,14 @@ touchManagedPtr _obj return result' +data PanedGetHandleWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, PanedK a) => MethodInfo PanedGetHandleWindowMethodInfo a signature where + overloadedMethod _ = panedGetHandleWindow + -- method Paned::get_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -782,19 +1142,22 @@ panedGetPosition :: (MonadIO m, PanedK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result panedGetPosition _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_paned_get_position _obj' touchManagedPtr _obj return result +data PanedGetPositionMethodInfo +instance (signature ~ (m Int32), MonadIO m, PanedK a) => MethodInfo PanedGetPositionMethodInfo a signature where + overloadedMethod _ = panedGetPosition + -- method Paned::get_wide_handle -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -806,8 +1169,8 @@ panedGetWideHandle :: (MonadIO m, PanedK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result panedGetWideHandle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_paned_get_wide_handle _obj' @@ -815,11 +1178,14 @@ touchManagedPtr _obj return result' +data PanedGetWideHandleMethodInfo +instance (signature ~ (m Bool), MonadIO m, PanedK a) => MethodInfo PanedGetWideHandleMethodInfo a signature where + overloadedMethod _ = panedGetWideHandle + -- method Paned::pack1 -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -834,11 +1200,11 @@ panedPack1 :: (MonadIO m, PanedK a, WidgetK b) => - a -> -- _obj - b -> -- child - Bool -> -- resize - Bool -> -- shrink - m () + a -- _obj + -> b -- child + -> Bool -- resize + -> Bool -- shrink + -> m () -- result panedPack1 _obj child resize shrink = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -849,11 +1215,14 @@ touchManagedPtr child return () +data PanedPack1MethodInfo +instance (signature ~ (b -> Bool -> Bool -> m ()), MonadIO m, PanedK a, WidgetK b) => MethodInfo PanedPack1MethodInfo a signature where + overloadedMethod _ = panedPack1 + -- method Paned::pack2 -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -868,11 +1237,11 @@ panedPack2 :: (MonadIO m, PanedK a, WidgetK b) => - a -> -- _obj - b -> -- child - Bool -> -- resize - Bool -> -- shrink - m () + a -- _obj + -> b -- child + -> Bool -- resize + -> Bool -- shrink + -> m () -- result panedPack2 _obj child resize shrink = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -883,11 +1252,14 @@ touchManagedPtr child return () +data PanedPack2MethodInfo +instance (signature ~ (b -> Bool -> Bool -> m ()), MonadIO m, PanedK a, WidgetK b) => MethodInfo PanedPack2MethodInfo a signature where + overloadedMethod _ = panedPack2 + -- method Paned::set_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -900,20 +1272,23 @@ panedSetPosition :: (MonadIO m, PanedK a) => - a -> -- _obj - Int32 -> -- position - m () + a -- _obj + -> Int32 -- position + -> m () -- result panedSetPosition _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_paned_set_position _obj' position touchManagedPtr _obj return () +data PanedSetPositionMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, PanedK a) => MethodInfo PanedSetPositionMethodInfo a signature where + overloadedMethod _ = panedSetPosition + -- method Paned::set_wide_handle -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -926,14 +1301,18 @@ panedSetWideHandle :: (MonadIO m, PanedK a) => - a -> -- _obj - Bool -> -- wide - m () + a -- _obj + -> Bool -- wide + -> m () -- result panedSetWideHandle _obj wide = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let wide' = (fromIntegral . fromEnum) wide gtk_paned_set_wide_handle _obj' wide' touchManagedPtr _obj return () + +data PanedSetWideHandleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PanedK a) => MethodInfo PanedSetWideHandleMethodInfo a signature where + overloadedMethod _ = panedSetWideHandle diff --git a/GI/Gtk/Objects/Paned.hs-boot b/GI/Gtk/Objects/Paned.hs-boot --- a/GI/Gtk/Objects/Paned.hs-boot +++ b/GI/Gtk/Objects/Paned.hs-boot @@ -22,3 +22,14 @@ data PanedCycleHandleFocusSignalInfo data PanedMoveHandleSignalInfo data PanedToggleHandleFocusSignalInfo +data PanedAdd1MethodInfo +data PanedAdd2MethodInfo +data PanedGetChild1MethodInfo +data PanedGetChild2MethodInfo +data PanedGetHandleWindowMethodInfo +data PanedGetPositionMethodInfo +data PanedGetWideHandleMethodInfo +data PanedPack1MethodInfo +data PanedPack2MethodInfo +data PanedSetPositionMethodInfo +data PanedSetWideHandleMethodInfo diff --git a/GI/Gtk/Objects/PanedAccessible.hs b/GI/Gtk/Objects/PanedAccessible.hs --- a/GI/Gtk/Objects/PanedAccessible.hs +++ b/GI/Gtk/Objects/PanedAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,88 @@ noPanedAccessible :: Maybe PanedAccessible noPanedAccessible = Nothing +type family ResolvePanedAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolvePanedAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolvePanedAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePanedAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePanedAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolvePanedAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolvePanedAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePanedAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePanedAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolvePanedAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolvePanedAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePanedAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePanedAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePanedAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolvePanedAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolvePanedAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePanedAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolvePanedAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolvePanedAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolvePanedAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePanedAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolvePanedAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolvePanedAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolvePanedAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolvePanedAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePanedAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePanedAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePanedAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePanedAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePanedAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePanedAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePanedAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePanedAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolvePanedAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolvePanedAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo + ResolvePanedAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePanedAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolvePanedAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolvePanedAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo + ResolvePanedAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolvePanedAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo + ResolvePanedAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo + ResolvePanedAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo + ResolvePanedAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolvePanedAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolvePanedAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolvePanedAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolvePanedAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolvePanedAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePanedAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePanedAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo + ResolvePanedAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolvePanedAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolvePanedAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo + ResolvePanedAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo + ResolvePanedAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolvePanedAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo + ResolvePanedAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePanedAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolvePanedAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolvePanedAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolvePanedAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolvePanedAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolvePanedAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePanedAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolvePanedAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolvePanedAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo + ResolvePanedAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolvePanedAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePanedAccessibleMethod t PanedAccessible, MethodInfo info PanedAccessible p) => IsLabelProxy t (PanedAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePanedAccessibleMethod t PanedAccessible, MethodInfo info PanedAccessible p) => IsLabel t (PanedAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList PanedAccessible = PanedAccessibleAttributeList -type PanedAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type PanedAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList PanedAccessible = PanedAccessibleSignalList -type PanedAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PanedAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/PlacesSidebar.hs b/GI/Gtk/Objects/PlacesSidebar.hs --- a/GI/Gtk/Objects/PlacesSidebar.hs +++ b/GI/Gtk/Objects/PlacesSidebar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,50 +18,62 @@ -- * Methods -- ** placesSidebarAddShortcut + PlacesSidebarAddShortcutMethodInfo , placesSidebarAddShortcut , -- ** placesSidebarGetLocalOnly + PlacesSidebarGetLocalOnlyMethodInfo , placesSidebarGetLocalOnly , -- ** placesSidebarGetLocation + PlacesSidebarGetLocationMethodInfo , placesSidebarGetLocation , -- ** placesSidebarGetNthBookmark + PlacesSidebarGetNthBookmarkMethodInfo , placesSidebarGetNthBookmark , -- ** placesSidebarGetOpenFlags + PlacesSidebarGetOpenFlagsMethodInfo , placesSidebarGetOpenFlags , -- ** placesSidebarGetShowConnectToServer + PlacesSidebarGetShowConnectToServerMethodInfo, placesSidebarGetShowConnectToServer , -- ** placesSidebarGetShowDesktop + PlacesSidebarGetShowDesktopMethodInfo , placesSidebarGetShowDesktop , -- ** placesSidebarGetShowEnterLocation + PlacesSidebarGetShowEnterLocationMethodInfo, placesSidebarGetShowEnterLocation , -- ** placesSidebarGetShowOtherLocations + PlacesSidebarGetShowOtherLocationsMethodInfo, placesSidebarGetShowOtherLocations , -- ** placesSidebarGetShowRecent + PlacesSidebarGetShowRecentMethodInfo , placesSidebarGetShowRecent , -- ** placesSidebarGetShowTrash + PlacesSidebarGetShowTrashMethodInfo , placesSidebarGetShowTrash , -- ** placesSidebarListShortcuts + PlacesSidebarListShortcutsMethodInfo , placesSidebarListShortcuts , @@ -69,46 +82,57 @@ -- ** placesSidebarRemoveShortcut + PlacesSidebarRemoveShortcutMethodInfo , placesSidebarRemoveShortcut , -- ** placesSidebarSetDropTargetsVisible + PlacesSidebarSetDropTargetsVisibleMethodInfo, placesSidebarSetDropTargetsVisible , -- ** placesSidebarSetLocalOnly + PlacesSidebarSetLocalOnlyMethodInfo , placesSidebarSetLocalOnly , -- ** placesSidebarSetLocation + PlacesSidebarSetLocationMethodInfo , placesSidebarSetLocation , -- ** placesSidebarSetOpenFlags + PlacesSidebarSetOpenFlagsMethodInfo , placesSidebarSetOpenFlags , -- ** placesSidebarSetShowConnectToServer + PlacesSidebarSetShowConnectToServerMethodInfo, placesSidebarSetShowConnectToServer , -- ** placesSidebarSetShowDesktop + PlacesSidebarSetShowDesktopMethodInfo , placesSidebarSetShowDesktop , -- ** placesSidebarSetShowEnterLocation + PlacesSidebarSetShowEnterLocationMethodInfo, placesSidebarSetShowEnterLocation , -- ** placesSidebarSetShowOtherLocations + PlacesSidebarSetShowOtherLocationsMethodInfo, placesSidebarSetShowOtherLocations , -- ** placesSidebarSetShowRecent + PlacesSidebarSetShowRecentMethodInfo , placesSidebarSetShowRecent , -- ** placesSidebarSetShowTrash + PlacesSidebarSetShowTrashMethodInfo , placesSidebarSetShowTrash , @@ -335,6 +359,376 @@ noPlacesSidebar :: Maybe PlacesSidebar noPlacesSidebar = Nothing +type family ResolvePlacesSidebarMethod (t :: Symbol) (o :: *) :: * where + ResolvePlacesSidebarMethod "activate" o = WidgetActivateMethodInfo + ResolvePlacesSidebarMethod "add" o = ContainerAddMethodInfo + ResolvePlacesSidebarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolvePlacesSidebarMethod "addChild" o = BuildableAddChildMethodInfo + ResolvePlacesSidebarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolvePlacesSidebarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolvePlacesSidebarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolvePlacesSidebarMethod "addShortcut" o = PlacesSidebarAddShortcutMethodInfo + ResolvePlacesSidebarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolvePlacesSidebarMethod "addWithViewport" o = ScrolledWindowAddWithViewportMethodInfo + ResolvePlacesSidebarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePlacesSidebarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePlacesSidebarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolvePlacesSidebarMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolvePlacesSidebarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolvePlacesSidebarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolvePlacesSidebarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolvePlacesSidebarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolvePlacesSidebarMethod "childType" o = ContainerChildTypeMethodInfo + ResolvePlacesSidebarMethod "classPath" o = WidgetClassPathMethodInfo + ResolvePlacesSidebarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolvePlacesSidebarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolvePlacesSidebarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolvePlacesSidebarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolvePlacesSidebarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolvePlacesSidebarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolvePlacesSidebarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolvePlacesSidebarMethod "destroy" o = WidgetDestroyMethodInfo + ResolvePlacesSidebarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolvePlacesSidebarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolvePlacesSidebarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolvePlacesSidebarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolvePlacesSidebarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolvePlacesSidebarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolvePlacesSidebarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolvePlacesSidebarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolvePlacesSidebarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolvePlacesSidebarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolvePlacesSidebarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolvePlacesSidebarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolvePlacesSidebarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolvePlacesSidebarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolvePlacesSidebarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolvePlacesSidebarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolvePlacesSidebarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolvePlacesSidebarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolvePlacesSidebarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolvePlacesSidebarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolvePlacesSidebarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolvePlacesSidebarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolvePlacesSidebarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolvePlacesSidebarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolvePlacesSidebarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolvePlacesSidebarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolvePlacesSidebarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolvePlacesSidebarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolvePlacesSidebarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolvePlacesSidebarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolvePlacesSidebarMethod "draw" o = WidgetDrawMethodInfo + ResolvePlacesSidebarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolvePlacesSidebarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolvePlacesSidebarMethod "event" o = WidgetEventMethodInfo + ResolvePlacesSidebarMethod "forall" o = ContainerForallMethodInfo + ResolvePlacesSidebarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePlacesSidebarMethod "foreach" o = ContainerForeachMethodInfo + ResolvePlacesSidebarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolvePlacesSidebarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePlacesSidebarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolvePlacesSidebarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolvePlacesSidebarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolvePlacesSidebarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolvePlacesSidebarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolvePlacesSidebarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolvePlacesSidebarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolvePlacesSidebarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolvePlacesSidebarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolvePlacesSidebarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolvePlacesSidebarMethod "hide" o = WidgetHideMethodInfo + ResolvePlacesSidebarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolvePlacesSidebarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolvePlacesSidebarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolvePlacesSidebarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolvePlacesSidebarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolvePlacesSidebarMethod "intersect" o = WidgetIntersectMethodInfo + ResolvePlacesSidebarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolvePlacesSidebarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolvePlacesSidebarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolvePlacesSidebarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePlacesSidebarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolvePlacesSidebarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolvePlacesSidebarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolvePlacesSidebarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolvePlacesSidebarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolvePlacesSidebarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolvePlacesSidebarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolvePlacesSidebarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolvePlacesSidebarMethod "listShortcuts" o = PlacesSidebarListShortcutsMethodInfo + ResolvePlacesSidebarMethod "map" o = WidgetMapMethodInfo + ResolvePlacesSidebarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolvePlacesSidebarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolvePlacesSidebarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolvePlacesSidebarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolvePlacesSidebarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolvePlacesSidebarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolvePlacesSidebarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolvePlacesSidebarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolvePlacesSidebarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePlacesSidebarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePlacesSidebarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolvePlacesSidebarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolvePlacesSidebarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolvePlacesSidebarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolvePlacesSidebarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolvePlacesSidebarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolvePlacesSidebarMethod "path" o = WidgetPathMethodInfo + ResolvePlacesSidebarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolvePlacesSidebarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolvePlacesSidebarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolvePlacesSidebarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolvePlacesSidebarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolvePlacesSidebarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolvePlacesSidebarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolvePlacesSidebarMethod "realize" o = WidgetRealizeMethodInfo + ResolvePlacesSidebarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePlacesSidebarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePlacesSidebarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolvePlacesSidebarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolvePlacesSidebarMethod "remove" o = ContainerRemoveMethodInfo + ResolvePlacesSidebarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolvePlacesSidebarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolvePlacesSidebarMethod "removeShortcut" o = PlacesSidebarRemoveShortcutMethodInfo + ResolvePlacesSidebarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolvePlacesSidebarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolvePlacesSidebarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolvePlacesSidebarMethod "reparent" o = WidgetReparentMethodInfo + ResolvePlacesSidebarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePlacesSidebarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePlacesSidebarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolvePlacesSidebarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolvePlacesSidebarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolvePlacesSidebarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePlacesSidebarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolvePlacesSidebarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolvePlacesSidebarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolvePlacesSidebarMethod "show" o = WidgetShowMethodInfo + ResolvePlacesSidebarMethod "showAll" o = WidgetShowAllMethodInfo + ResolvePlacesSidebarMethod "showNow" o = WidgetShowNowMethodInfo + ResolvePlacesSidebarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolvePlacesSidebarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolvePlacesSidebarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolvePlacesSidebarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePlacesSidebarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePlacesSidebarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolvePlacesSidebarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolvePlacesSidebarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolvePlacesSidebarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePlacesSidebarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolvePlacesSidebarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolvePlacesSidebarMethod "unmap" o = WidgetUnmapMethodInfo + ResolvePlacesSidebarMethod "unparent" o = WidgetUnparentMethodInfo + ResolvePlacesSidebarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolvePlacesSidebarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePlacesSidebarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolvePlacesSidebarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolvePlacesSidebarMethod "unsetPlacement" o = ScrolledWindowUnsetPlacementMethodInfo + ResolvePlacesSidebarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolvePlacesSidebarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePlacesSidebarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolvePlacesSidebarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolvePlacesSidebarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolvePlacesSidebarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolvePlacesSidebarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolvePlacesSidebarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolvePlacesSidebarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolvePlacesSidebarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolvePlacesSidebarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolvePlacesSidebarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolvePlacesSidebarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolvePlacesSidebarMethod "getCaptureButtonPress" o = ScrolledWindowGetCaptureButtonPressMethodInfo + ResolvePlacesSidebarMethod "getChild" o = BinGetChildMethodInfo + ResolvePlacesSidebarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolvePlacesSidebarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolvePlacesSidebarMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolvePlacesSidebarMethod "getClip" o = WidgetGetClipMethodInfo + ResolvePlacesSidebarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolvePlacesSidebarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolvePlacesSidebarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePlacesSidebarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolvePlacesSidebarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolvePlacesSidebarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolvePlacesSidebarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolvePlacesSidebarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolvePlacesSidebarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolvePlacesSidebarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolvePlacesSidebarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolvePlacesSidebarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolvePlacesSidebarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolvePlacesSidebarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolvePlacesSidebarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolvePlacesSidebarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolvePlacesSidebarMethod "getHadjustment" o = ScrolledWindowGetHadjustmentMethodInfo + ResolvePlacesSidebarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolvePlacesSidebarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolvePlacesSidebarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolvePlacesSidebarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolvePlacesSidebarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolvePlacesSidebarMethod "getHscrollbar" o = ScrolledWindowGetHscrollbarMethodInfo + ResolvePlacesSidebarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolvePlacesSidebarMethod "getKineticScrolling" o = ScrolledWindowGetKineticScrollingMethodInfo + ResolvePlacesSidebarMethod "getLocalOnly" o = PlacesSidebarGetLocalOnlyMethodInfo + ResolvePlacesSidebarMethod "getLocation" o = PlacesSidebarGetLocationMethodInfo + ResolvePlacesSidebarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolvePlacesSidebarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolvePlacesSidebarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolvePlacesSidebarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolvePlacesSidebarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolvePlacesSidebarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolvePlacesSidebarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolvePlacesSidebarMethod "getMinContentHeight" o = ScrolledWindowGetMinContentHeightMethodInfo + ResolvePlacesSidebarMethod "getMinContentWidth" o = ScrolledWindowGetMinContentWidthMethodInfo + ResolvePlacesSidebarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolvePlacesSidebarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolvePlacesSidebarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolvePlacesSidebarMethod "getNthBookmark" o = PlacesSidebarGetNthBookmarkMethodInfo + ResolvePlacesSidebarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolvePlacesSidebarMethod "getOpenFlags" o = PlacesSidebarGetOpenFlagsMethodInfo + ResolvePlacesSidebarMethod "getOverlayScrolling" o = ScrolledWindowGetOverlayScrollingMethodInfo + ResolvePlacesSidebarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolvePlacesSidebarMethod "getParent" o = WidgetGetParentMethodInfo + ResolvePlacesSidebarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolvePlacesSidebarMethod "getPath" o = WidgetGetPathMethodInfo + ResolvePlacesSidebarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolvePlacesSidebarMethod "getPlacement" o = ScrolledWindowGetPlacementMethodInfo + ResolvePlacesSidebarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolvePlacesSidebarMethod "getPolicy" o = ScrolledWindowGetPolicyMethodInfo + ResolvePlacesSidebarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolvePlacesSidebarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolvePlacesSidebarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolvePlacesSidebarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolvePlacesSidebarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolvePlacesSidebarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolvePlacesSidebarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePlacesSidebarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePlacesSidebarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolvePlacesSidebarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolvePlacesSidebarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolvePlacesSidebarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolvePlacesSidebarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolvePlacesSidebarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolvePlacesSidebarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolvePlacesSidebarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolvePlacesSidebarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolvePlacesSidebarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolvePlacesSidebarMethod "getShadowType" o = ScrolledWindowGetShadowTypeMethodInfo + ResolvePlacesSidebarMethod "getShowConnectToServer" o = PlacesSidebarGetShowConnectToServerMethodInfo + ResolvePlacesSidebarMethod "getShowDesktop" o = PlacesSidebarGetShowDesktopMethodInfo + ResolvePlacesSidebarMethod "getShowEnterLocation" o = PlacesSidebarGetShowEnterLocationMethodInfo + ResolvePlacesSidebarMethod "getShowOtherLocations" o = PlacesSidebarGetShowOtherLocationsMethodInfo + ResolvePlacesSidebarMethod "getShowRecent" o = PlacesSidebarGetShowRecentMethodInfo + ResolvePlacesSidebarMethod "getShowTrash" o = PlacesSidebarGetShowTrashMethodInfo + ResolvePlacesSidebarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolvePlacesSidebarMethod "getState" o = WidgetGetStateMethodInfo + ResolvePlacesSidebarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolvePlacesSidebarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolvePlacesSidebarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolvePlacesSidebarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolvePlacesSidebarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolvePlacesSidebarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolvePlacesSidebarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolvePlacesSidebarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolvePlacesSidebarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolvePlacesSidebarMethod "getVadjustment" o = ScrolledWindowGetVadjustmentMethodInfo + ResolvePlacesSidebarMethod "getValign" o = WidgetGetValignMethodInfo + ResolvePlacesSidebarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolvePlacesSidebarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolvePlacesSidebarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolvePlacesSidebarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolvePlacesSidebarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolvePlacesSidebarMethod "getVscrollbar" o = ScrolledWindowGetVscrollbarMethodInfo + ResolvePlacesSidebarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolvePlacesSidebarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolvePlacesSidebarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolvePlacesSidebarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolvePlacesSidebarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolvePlacesSidebarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolvePlacesSidebarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolvePlacesSidebarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolvePlacesSidebarMethod "setCaptureButtonPress" o = ScrolledWindowSetCaptureButtonPressMethodInfo + ResolvePlacesSidebarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolvePlacesSidebarMethod "setClip" o = WidgetSetClipMethodInfo + ResolvePlacesSidebarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolvePlacesSidebarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePlacesSidebarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolvePlacesSidebarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolvePlacesSidebarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolvePlacesSidebarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolvePlacesSidebarMethod "setDropTargetsVisible" o = PlacesSidebarSetDropTargetsVisibleMethodInfo + ResolvePlacesSidebarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolvePlacesSidebarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolvePlacesSidebarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolvePlacesSidebarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolvePlacesSidebarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolvePlacesSidebarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolvePlacesSidebarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolvePlacesSidebarMethod "setHadjustment" o = ScrolledWindowSetHadjustmentMethodInfo + ResolvePlacesSidebarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolvePlacesSidebarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolvePlacesSidebarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolvePlacesSidebarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolvePlacesSidebarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolvePlacesSidebarMethod "setKineticScrolling" o = ScrolledWindowSetKineticScrollingMethodInfo + ResolvePlacesSidebarMethod "setLocalOnly" o = PlacesSidebarSetLocalOnlyMethodInfo + ResolvePlacesSidebarMethod "setLocation" o = PlacesSidebarSetLocationMethodInfo + ResolvePlacesSidebarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolvePlacesSidebarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolvePlacesSidebarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolvePlacesSidebarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolvePlacesSidebarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolvePlacesSidebarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolvePlacesSidebarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolvePlacesSidebarMethod "setMinContentHeight" o = ScrolledWindowSetMinContentHeightMethodInfo + ResolvePlacesSidebarMethod "setMinContentWidth" o = ScrolledWindowSetMinContentWidthMethodInfo + ResolvePlacesSidebarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolvePlacesSidebarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolvePlacesSidebarMethod "setOpenFlags" o = PlacesSidebarSetOpenFlagsMethodInfo + ResolvePlacesSidebarMethod "setOverlayScrolling" o = ScrolledWindowSetOverlayScrollingMethodInfo + ResolvePlacesSidebarMethod "setParent" o = WidgetSetParentMethodInfo + ResolvePlacesSidebarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolvePlacesSidebarMethod "setPlacement" o = ScrolledWindowSetPlacementMethodInfo + ResolvePlacesSidebarMethod "setPolicy" o = ScrolledWindowSetPolicyMethodInfo + ResolvePlacesSidebarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePlacesSidebarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolvePlacesSidebarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolvePlacesSidebarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolvePlacesSidebarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolvePlacesSidebarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolvePlacesSidebarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolvePlacesSidebarMethod "setShadowType" o = ScrolledWindowSetShadowTypeMethodInfo + ResolvePlacesSidebarMethod "setShowConnectToServer" o = PlacesSidebarSetShowConnectToServerMethodInfo + ResolvePlacesSidebarMethod "setShowDesktop" o = PlacesSidebarSetShowDesktopMethodInfo + ResolvePlacesSidebarMethod "setShowEnterLocation" o = PlacesSidebarSetShowEnterLocationMethodInfo + ResolvePlacesSidebarMethod "setShowOtherLocations" o = PlacesSidebarSetShowOtherLocationsMethodInfo + ResolvePlacesSidebarMethod "setShowRecent" o = PlacesSidebarSetShowRecentMethodInfo + ResolvePlacesSidebarMethod "setShowTrash" o = PlacesSidebarSetShowTrashMethodInfo + ResolvePlacesSidebarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolvePlacesSidebarMethod "setState" o = WidgetSetStateMethodInfo + ResolvePlacesSidebarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolvePlacesSidebarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolvePlacesSidebarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolvePlacesSidebarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolvePlacesSidebarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolvePlacesSidebarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolvePlacesSidebarMethod "setVadjustment" o = ScrolledWindowSetVadjustmentMethodInfo + ResolvePlacesSidebarMethod "setValign" o = WidgetSetValignMethodInfo + ResolvePlacesSidebarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolvePlacesSidebarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolvePlacesSidebarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolvePlacesSidebarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolvePlacesSidebarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolvePlacesSidebarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePlacesSidebarMethod t PlacesSidebar, MethodInfo info PlacesSidebar p) => IsLabelProxy t (PlacesSidebar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePlacesSidebarMethod t PlacesSidebar, MethodInfo info PlacesSidebar p) => IsLabel t (PlacesSidebar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal PlacesSidebar::drag-action-ask type PlacesSidebarDragActionAskCallback = Int32 -> @@ -410,12 +804,12 @@ Ptr (GList (Ptr Gio.File)) -> Ptr () -> IO Int32 -placesSidebarDragActionRequestedCallbackWrapper _cb _ context dest_file source_file_list _ = do +placesSidebarDragActionRequestedCallbackWrapper _cb _ context destFile sourceFileList _ = do context' <- (newObject Gdk.DragContext) context - dest_file' <- (newObject Gio.File) dest_file - source_file_list' <- unpackGList source_file_list - source_file_list'' <- mapM (newObject Gio.File) source_file_list' - result <- _cb context' dest_file' source_file_list'' + destFile' <- (newObject Gio.File) destFile + sourceFileList' <- unpackGList sourceFileList + sourceFileList'' <- mapM (newObject Gio.File) sourceFileList' + result <- _cb context' destFile' sourceFileList'' return result onPlacesSidebarDragActionRequested :: (GObject a, MonadIO m) => a -> PlacesSidebarDragActionRequestedCallback -> m SignalHandlerId @@ -462,11 +856,11 @@ Int32 -> Ptr () -> IO () -placesSidebarDragPerformDropCallbackWrapper _cb _ dest_file source_file_list action _ = do - dest_file' <- (newObject Gio.File) dest_file - source_file_list' <- unpackGList source_file_list - source_file_list'' <- mapM (newObject Gio.File) source_file_list' - _cb dest_file' source_file_list'' action +placesSidebarDragPerformDropCallbackWrapper _cb _ destFile sourceFileList action _ = do + destFile' <- (newObject Gio.File) destFile + sourceFileList' <- unpackGList sourceFileList + sourceFileList'' <- mapM (newObject Gio.File) sourceFileList' + _cb destFile' sourceFileList'' action onPlacesSidebarDragPerformDrop :: (GObject a, MonadIO m) => a -> PlacesSidebarDragPerformDropCallback -> m SignalHandlerId onPlacesSidebarDragPerformDrop obj cb = liftIO $ connectPlacesSidebarDragPerformDrop obj cb SignalConnectBefore @@ -509,10 +903,10 @@ CUInt -> Ptr () -> IO () -placesSidebarOpenLocationCallbackWrapper _cb _ location open_flags _ = do +placesSidebarOpenLocationCallbackWrapper _cb _ location openFlags _ = do location' <- (newObject Gio.File) location - let open_flags' = wordToGFlags open_flags - _cb location' open_flags' + let openFlags' = wordToGFlags openFlags + _cb location' openFlags' onPlacesSidebarOpenLocation :: (GObject a, MonadIO m) => a -> PlacesSidebarOpenLocationCallback -> m SignalHandlerId onPlacesSidebarOpenLocation obj cb = liftIO $ connectPlacesSidebarOpenLocation obj cb SignalConnectBefore @@ -558,21 +952,21 @@ Ptr Gio.Volume -> Ptr () -> IO () -placesSidebarPopulatePopupCallbackWrapper _cb _ container selected_item selected_volume _ = do +placesSidebarPopulatePopupCallbackWrapper _cb _ container selectedItem selectedVolume _ = do container' <- (newObject Widget) container - maybeSelected_item <- - if selected_item == nullPtr + maybeSelectedItem <- + if selectedItem == nullPtr then return Nothing else do - selected_item' <- (newObject Gio.File) selected_item - return $ Just selected_item' - maybeSelected_volume <- - if selected_volume == nullPtr + selectedItem' <- (newObject Gio.File) selectedItem + return $ Just selectedItem' + maybeSelectedVolume <- + if selectedVolume == nullPtr then return Nothing else do - selected_volume' <- (newObject Gio.Volume) selected_volume - return $ Just selected_volume' - _cb container' maybeSelected_item maybeSelected_volume + selectedVolume' <- (newObject Gio.Volume) selectedVolume + return $ Just selectedVolume' + _cb container' maybeSelectedItem maybeSelectedVolume onPlacesSidebarPopulatePopup :: (GObject a, MonadIO m) => a -> PlacesSidebarPopulatePopupCallback -> m SignalHandlerId onPlacesSidebarPopulatePopup obj cb = liftIO $ connectPlacesSidebarPopulatePopup obj cb SignalConnectBefore @@ -764,7 +1158,7 @@ type AttrSetTypeConstraint PlacesSidebarLocalOnlyPropertyInfo = (~) Bool type AttrBaseTypeConstraint PlacesSidebarLocalOnlyPropertyInfo = PlacesSidebarK type AttrGetType PlacesSidebarLocalOnlyPropertyInfo = Bool - type AttrLabel PlacesSidebarLocalOnlyPropertyInfo = "PlacesSidebar::local-only" + type AttrLabel PlacesSidebarLocalOnlyPropertyInfo = "local-only" attrGet _ = getPlacesSidebarLocalOnly attrSet _ = setPlacesSidebarLocalOnly attrConstruct _ = constructPlacesSidebarLocalOnly @@ -788,7 +1182,7 @@ type AttrSetTypeConstraint PlacesSidebarLocationPropertyInfo = Gio.FileK type AttrBaseTypeConstraint PlacesSidebarLocationPropertyInfo = PlacesSidebarK type AttrGetType PlacesSidebarLocationPropertyInfo = Gio.File - type AttrLabel PlacesSidebarLocationPropertyInfo = "PlacesSidebar::location" + type AttrLabel PlacesSidebarLocationPropertyInfo = "location" attrGet _ = getPlacesSidebarLocation attrSet _ = setPlacesSidebarLocation attrConstruct _ = constructPlacesSidebarLocation @@ -812,7 +1206,7 @@ type AttrSetTypeConstraint PlacesSidebarOpenFlagsPropertyInfo = (~) [PlacesOpenFlags] type AttrBaseTypeConstraint PlacesSidebarOpenFlagsPropertyInfo = PlacesSidebarK type AttrGetType PlacesSidebarOpenFlagsPropertyInfo = [PlacesOpenFlags] - type AttrLabel PlacesSidebarOpenFlagsPropertyInfo = "PlacesSidebar::open-flags" + type AttrLabel PlacesSidebarOpenFlagsPropertyInfo = "open-flags" attrGet _ = getPlacesSidebarOpenFlags attrSet _ = setPlacesSidebarOpenFlags attrConstruct _ = constructPlacesSidebarOpenFlags @@ -836,7 +1230,7 @@ type AttrSetTypeConstraint PlacesSidebarPopulateAllPropertyInfo = (~) Bool type AttrBaseTypeConstraint PlacesSidebarPopulateAllPropertyInfo = PlacesSidebarK type AttrGetType PlacesSidebarPopulateAllPropertyInfo = Bool - type AttrLabel PlacesSidebarPopulateAllPropertyInfo = "PlacesSidebar::populate-all" + type AttrLabel PlacesSidebarPopulateAllPropertyInfo = "populate-all" attrGet _ = getPlacesSidebarPopulateAll attrSet _ = setPlacesSidebarPopulateAll attrConstruct _ = constructPlacesSidebarPopulateAll @@ -860,7 +1254,7 @@ type AttrSetTypeConstraint PlacesSidebarShowConnectToServerPropertyInfo = (~) Bool type AttrBaseTypeConstraint PlacesSidebarShowConnectToServerPropertyInfo = PlacesSidebarK type AttrGetType PlacesSidebarShowConnectToServerPropertyInfo = Bool - type AttrLabel PlacesSidebarShowConnectToServerPropertyInfo = "PlacesSidebar::show-connect-to-server" + type AttrLabel PlacesSidebarShowConnectToServerPropertyInfo = "show-connect-to-server" attrGet _ = getPlacesSidebarShowConnectToServer attrSet _ = setPlacesSidebarShowConnectToServer attrConstruct _ = constructPlacesSidebarShowConnectToServer @@ -884,7 +1278,7 @@ type AttrSetTypeConstraint PlacesSidebarShowDesktopPropertyInfo = (~) Bool type AttrBaseTypeConstraint PlacesSidebarShowDesktopPropertyInfo = PlacesSidebarK type AttrGetType PlacesSidebarShowDesktopPropertyInfo = Bool - type AttrLabel PlacesSidebarShowDesktopPropertyInfo = "PlacesSidebar::show-desktop" + type AttrLabel PlacesSidebarShowDesktopPropertyInfo = "show-desktop" attrGet _ = getPlacesSidebarShowDesktop attrSet _ = setPlacesSidebarShowDesktop attrConstruct _ = constructPlacesSidebarShowDesktop @@ -908,7 +1302,7 @@ type AttrSetTypeConstraint PlacesSidebarShowEnterLocationPropertyInfo = (~) Bool type AttrBaseTypeConstraint PlacesSidebarShowEnterLocationPropertyInfo = PlacesSidebarK type AttrGetType PlacesSidebarShowEnterLocationPropertyInfo = Bool - type AttrLabel PlacesSidebarShowEnterLocationPropertyInfo = "PlacesSidebar::show-enter-location" + type AttrLabel PlacesSidebarShowEnterLocationPropertyInfo = "show-enter-location" attrGet _ = getPlacesSidebarShowEnterLocation attrSet _ = setPlacesSidebarShowEnterLocation attrConstruct _ = constructPlacesSidebarShowEnterLocation @@ -932,7 +1326,7 @@ type AttrSetTypeConstraint PlacesSidebarShowOtherLocationsPropertyInfo = (~) Bool type AttrBaseTypeConstraint PlacesSidebarShowOtherLocationsPropertyInfo = PlacesSidebarK type AttrGetType PlacesSidebarShowOtherLocationsPropertyInfo = Bool - type AttrLabel PlacesSidebarShowOtherLocationsPropertyInfo = "PlacesSidebar::show-other-locations" + type AttrLabel PlacesSidebarShowOtherLocationsPropertyInfo = "show-other-locations" attrGet _ = getPlacesSidebarShowOtherLocations attrSet _ = setPlacesSidebarShowOtherLocations attrConstruct _ = constructPlacesSidebarShowOtherLocations @@ -956,7 +1350,7 @@ type AttrSetTypeConstraint PlacesSidebarShowRecentPropertyInfo = (~) Bool type AttrBaseTypeConstraint PlacesSidebarShowRecentPropertyInfo = PlacesSidebarK type AttrGetType PlacesSidebarShowRecentPropertyInfo = Bool - type AttrLabel PlacesSidebarShowRecentPropertyInfo = "PlacesSidebar::show-recent" + type AttrLabel PlacesSidebarShowRecentPropertyInfo = "show-recent" attrGet _ = getPlacesSidebarShowRecent attrSet _ = setPlacesSidebarShowRecent attrConstruct _ = constructPlacesSidebarShowRecent @@ -980,13 +1374,13 @@ type AttrSetTypeConstraint PlacesSidebarShowTrashPropertyInfo = (~) Bool type AttrBaseTypeConstraint PlacesSidebarShowTrashPropertyInfo = PlacesSidebarK type AttrGetType PlacesSidebarShowTrashPropertyInfo = Bool - type AttrLabel PlacesSidebarShowTrashPropertyInfo = "PlacesSidebar::show-trash" + type AttrLabel PlacesSidebarShowTrashPropertyInfo = "show-trash" attrGet _ = getPlacesSidebarShowTrash attrSet _ = setPlacesSidebarShowTrash attrConstruct _ = constructPlacesSidebarShowTrash type instance AttributeList PlacesSidebar = PlacesSidebarAttributeList -type PlacesSidebarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscrollbar-policy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("kinetic-scrolling", ScrolledWindowKineticScrollingPropertyInfo), '("local-only", PlacesSidebarLocalOnlyPropertyInfo), '("location", PlacesSidebarLocationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("min-content-height", ScrolledWindowMinContentHeightPropertyInfo), '("min-content-width", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("open-flags", PlacesSidebarOpenFlagsPropertyInfo), '("overlay-scrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("populate-all", PlacesSidebarPopulateAllPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ScrolledWindowShadowTypePropertyInfo), '("show-connect-to-server", PlacesSidebarShowConnectToServerPropertyInfo), '("show-desktop", PlacesSidebarShowDesktopPropertyInfo), '("show-enter-location", PlacesSidebarShowEnterLocationPropertyInfo), '("show-other-locations", PlacesSidebarShowOtherLocationsPropertyInfo), '("show-recent", PlacesSidebarShowRecentPropertyInfo), '("show-trash", PlacesSidebarShowTrashPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbar-policy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-placement", ScrolledWindowWindowPlacementPropertyInfo), '("window-placement-set", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)]) +type PlacesSidebarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollbarPolicy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("kineticScrolling", ScrolledWindowKineticScrollingPropertyInfo), '("localOnly", PlacesSidebarLocalOnlyPropertyInfo), '("location", PlacesSidebarLocationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("minContentHeight", ScrolledWindowMinContentHeightPropertyInfo), '("minContentWidth", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("openFlags", PlacesSidebarOpenFlagsPropertyInfo), '("overlayScrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("populateAll", PlacesSidebarPopulateAllPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ScrolledWindowShadowTypePropertyInfo), '("showConnectToServer", PlacesSidebarShowConnectToServerPropertyInfo), '("showDesktop", PlacesSidebarShowDesktopPropertyInfo), '("showEnterLocation", PlacesSidebarShowEnterLocationPropertyInfo), '("showOtherLocations", PlacesSidebarShowOtherLocationsPropertyInfo), '("showRecent", PlacesSidebarShowRecentPropertyInfo), '("showTrash", PlacesSidebarShowTrashPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbarPolicy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPlacement", ScrolledWindowWindowPlacementPropertyInfo), '("windowPlacementSet", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)]) data PlacesSidebarDragActionAskSignalInfo instance SignalInfo PlacesSidebarDragActionAskSignalInfo where @@ -1034,13 +1428,12 @@ connectSignal _ = connectPlacesSidebarShowOtherLocations type instance SignalList PlacesSidebar = PlacesSidebarSignalList -type PlacesSidebarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-action-ask", PlacesSidebarDragActionAskSignalInfo), '("drag-action-requested", PlacesSidebarDragActionRequestedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("drag-perform-drop", PlacesSidebarDragPerformDropSignalInfo), '("draw", WidgetDrawSignalInfo), '("edge-overshot", ScrolledWindowEdgeOvershotSignalInfo), '("edge-reached", ScrolledWindowEdgeReachedSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-focus-out", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open-location", PlacesSidebarOpenLocationSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", PlacesSidebarPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-child", ScrolledWindowScrollChildSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-connect-to-server", PlacesSidebarShowConnectToServerSignalInfo), '("show-enter-location", PlacesSidebarShowEnterLocationSignalInfo), '("show-error-message", PlacesSidebarShowErrorMessageSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("show-other-locations", PlacesSidebarShowOtherLocationsSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PlacesSidebarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragActionAsk", PlacesSidebarDragActionAskSignalInfo), '("dragActionRequested", PlacesSidebarDragActionRequestedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("dragPerformDrop", PlacesSidebarDragPerformDropSignalInfo), '("draw", WidgetDrawSignalInfo), '("edgeOvershot", ScrolledWindowEdgeOvershotSignalInfo), '("edgeReached", ScrolledWindowEdgeReachedSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveFocusOut", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("openLocation", PlacesSidebarOpenLocationSignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("populatePopup", PlacesSidebarPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollChild", ScrolledWindowScrollChildSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showConnectToServer", PlacesSidebarShowConnectToServerSignalInfo), '("showEnterLocation", PlacesSidebarShowEnterLocationSignalInfo), '("showErrorMessage", PlacesSidebarShowErrorMessageSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("showOtherLocations", PlacesSidebarShowOtherLocationsSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method PlacesSidebar::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "PlacesSidebar" -- throws : False -- Skip return : False @@ -1051,7 +1444,7 @@ placesSidebarNew :: (MonadIO m) => - m PlacesSidebar + m PlacesSidebar -- result placesSidebarNew = liftIO $ do result <- gtk_places_sidebar_new checkUnexpectedReturnNULL "gtk_places_sidebar_new" result @@ -1060,9 +1453,8 @@ -- method PlacesSidebar::add_shortcut -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1075,9 +1467,9 @@ placesSidebarAddShortcut :: (MonadIO m, PlacesSidebarK a, Gio.FileK b) => - a -> -- _obj - b -> -- location - m () + a -- _obj + -> b -- location + -> m () -- result placesSidebarAddShortcut _obj location = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let location' = unsafeManagedPtrCastPtr location @@ -1086,11 +1478,14 @@ touchManagedPtr location return () +data PlacesSidebarAddShortcutMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, PlacesSidebarK a, Gio.FileK b) => MethodInfo PlacesSidebarAddShortcutMethodInfo a signature where + overloadedMethod _ = placesSidebarAddShortcut + -- method PlacesSidebar::get_local_only -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1102,8 +1497,8 @@ placesSidebarGetLocalOnly :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result placesSidebarGetLocalOnly _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_get_local_only _obj' @@ -1111,11 +1506,14 @@ touchManagedPtr _obj return result' +data PlacesSidebarGetLocalOnlyMethodInfo +instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetLocalOnlyMethodInfo a signature where + overloadedMethod _ = placesSidebarGetLocalOnly + -- method PlacesSidebar::get_location -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -1127,8 +1525,8 @@ placesSidebarGetLocation :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - m Gio.File + a -- _obj + -> m Gio.File -- result placesSidebarGetLocation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_get_location _obj' @@ -1137,11 +1535,14 @@ touchManagedPtr _obj return result' +data PlacesSidebarGetLocationMethodInfo +instance (signature ~ (m Gio.File), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetLocationMethodInfo a signature where + overloadedMethod _ = placesSidebarGetLocation + -- method PlacesSidebar::get_nth_bookmark -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -1154,9 +1555,9 @@ placesSidebarGetNthBookmark :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - Int32 -> -- n - m Gio.File + a -- _obj + -> Int32 -- n + -> m Gio.File -- result placesSidebarGetNthBookmark _obj n = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_get_nth_bookmark _obj' n @@ -1165,11 +1566,14 @@ touchManagedPtr _obj return result' +data PlacesSidebarGetNthBookmarkMethodInfo +instance (signature ~ (Int32 -> m Gio.File), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetNthBookmarkMethodInfo a signature where + overloadedMethod _ = placesSidebarGetNthBookmark + -- method PlacesSidebar::get_open_flags -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PlacesOpenFlags" -- throws : False -- Skip return : False @@ -1181,8 +1585,8 @@ placesSidebarGetOpenFlags :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - m [PlacesOpenFlags] + a -- _obj + -> m [PlacesOpenFlags] -- result placesSidebarGetOpenFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_get_open_flags _obj' @@ -1190,11 +1594,14 @@ touchManagedPtr _obj return result' +data PlacesSidebarGetOpenFlagsMethodInfo +instance (signature ~ (m [PlacesOpenFlags]), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetOpenFlagsMethodInfo a signature where + overloadedMethod _ = placesSidebarGetOpenFlags + -- method PlacesSidebar::get_show_connect_to_server -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1206,8 +1613,8 @@ {-# DEPRECATED placesSidebarGetShowConnectToServer ["(Since version 3.18)","It is recommended to group this functionality with the drives"," and network location under the new 'Other Location' item"]#-} placesSidebarGetShowConnectToServer :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result placesSidebarGetShowConnectToServer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_get_show_connect_to_server _obj' @@ -1215,11 +1622,14 @@ touchManagedPtr _obj return result' +data PlacesSidebarGetShowConnectToServerMethodInfo +instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetShowConnectToServerMethodInfo a signature where + overloadedMethod _ = placesSidebarGetShowConnectToServer + -- method PlacesSidebar::get_show_desktop -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1231,8 +1641,8 @@ placesSidebarGetShowDesktop :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result placesSidebarGetShowDesktop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_get_show_desktop _obj' @@ -1240,11 +1650,14 @@ touchManagedPtr _obj return result' +data PlacesSidebarGetShowDesktopMethodInfo +instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetShowDesktopMethodInfo a signature where + overloadedMethod _ = placesSidebarGetShowDesktop + -- method PlacesSidebar::get_show_enter_location -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1256,8 +1669,8 @@ placesSidebarGetShowEnterLocation :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result placesSidebarGetShowEnterLocation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_get_show_enter_location _obj' @@ -1265,11 +1678,14 @@ touchManagedPtr _obj return result' +data PlacesSidebarGetShowEnterLocationMethodInfo +instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetShowEnterLocationMethodInfo a signature where + overloadedMethod _ = placesSidebarGetShowEnterLocation + -- method PlacesSidebar::get_show_other_locations -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1281,8 +1697,8 @@ placesSidebarGetShowOtherLocations :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result placesSidebarGetShowOtherLocations _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_get_show_other_locations _obj' @@ -1290,11 +1706,14 @@ touchManagedPtr _obj return result' +data PlacesSidebarGetShowOtherLocationsMethodInfo +instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetShowOtherLocationsMethodInfo a signature where + overloadedMethod _ = placesSidebarGetShowOtherLocations + -- method PlacesSidebar::get_show_recent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1306,8 +1725,8 @@ placesSidebarGetShowRecent :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result placesSidebarGetShowRecent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_get_show_recent _obj' @@ -1315,11 +1734,14 @@ touchManagedPtr _obj return result' +data PlacesSidebarGetShowRecentMethodInfo +instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetShowRecentMethodInfo a signature where + overloadedMethod _ = placesSidebarGetShowRecent + -- method PlacesSidebar::get_show_trash -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1331,8 +1753,8 @@ placesSidebarGetShowTrash :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result placesSidebarGetShowTrash _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_get_show_trash _obj' @@ -1340,11 +1762,14 @@ touchManagedPtr _obj return result' +data PlacesSidebarGetShowTrashMethodInfo +instance (signature ~ (m Bool), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarGetShowTrashMethodInfo a signature where + overloadedMethod _ = placesSidebarGetShowTrash + -- method PlacesSidebar::list_shortcuts -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TInterface "Gio" "File") -- throws : False -- Skip return : False @@ -1356,8 +1781,8 @@ placesSidebarListShortcuts :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - m [Gio.File] + a -- _obj + -> m [Gio.File] -- result placesSidebarListShortcuts _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_list_shortcuts _obj' @@ -1368,11 +1793,14 @@ touchManagedPtr _obj return result'' +data PlacesSidebarListShortcutsMethodInfo +instance (signature ~ (m [Gio.File]), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarListShortcutsMethodInfo a signature where + overloadedMethod _ = placesSidebarListShortcuts + -- method PlacesSidebar::remove_shortcut -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1385,9 +1813,9 @@ placesSidebarRemoveShortcut :: (MonadIO m, PlacesSidebarK a, Gio.FileK b) => - a -> -- _obj - b -> -- location - m () + a -- _obj + -> b -- location + -> m () -- result placesSidebarRemoveShortcut _obj location = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let location' = unsafeManagedPtrCastPtr location @@ -1396,11 +1824,14 @@ touchManagedPtr location return () +data PlacesSidebarRemoveShortcutMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, PlacesSidebarK a, Gio.FileK b) => MethodInfo PlacesSidebarRemoveShortcutMethodInfo a signature where + overloadedMethod _ = placesSidebarRemoveShortcut + -- method PlacesSidebar::set_drop_targets_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1414,10 +1845,10 @@ placesSidebarSetDropTargetsVisible :: (MonadIO m, PlacesSidebarK a, Gdk.DragContextK b) => - a -> -- _obj - Bool -> -- visible - b -> -- context - m () + a -- _obj + -> Bool -- visible + -> b -- context + -> m () -- result placesSidebarSetDropTargetsVisible _obj visible context = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let visible' = (fromIntegral . fromEnum) visible @@ -1427,11 +1858,14 @@ touchManagedPtr context return () +data PlacesSidebarSetDropTargetsVisibleMethodInfo +instance (signature ~ (Bool -> b -> m ()), MonadIO m, PlacesSidebarK a, Gdk.DragContextK b) => MethodInfo PlacesSidebarSetDropTargetsVisibleMethodInfo a signature where + overloadedMethod _ = placesSidebarSetDropTargetsVisible + -- method PlacesSidebar::set_local_only -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1444,21 +1878,24 @@ placesSidebarSetLocalOnly :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - Bool -> -- local_only - m () -placesSidebarSetLocalOnly _obj local_only = liftIO $ do + a -- _obj + -> Bool -- localOnly + -> m () -- result +placesSidebarSetLocalOnly _obj localOnly = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let local_only' = (fromIntegral . fromEnum) local_only - gtk_places_sidebar_set_local_only _obj' local_only' + let localOnly' = (fromIntegral . fromEnum) localOnly + gtk_places_sidebar_set_local_only _obj' localOnly' touchManagedPtr _obj return () +data PlacesSidebarSetLocalOnlyMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetLocalOnlyMethodInfo a signature where + overloadedMethod _ = placesSidebarSetLocalOnly + -- method PlacesSidebar::set_location -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1471,9 +1908,9 @@ placesSidebarSetLocation :: (MonadIO m, PlacesSidebarK a, Gio.FileK b) => - a -> -- _obj - Maybe (b) -> -- location - m () + a -- _obj + -> Maybe (b) -- location + -> m () -- result placesSidebarSetLocation _obj location = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLocation <- case location of @@ -1486,11 +1923,14 @@ whenJust location touchManagedPtr return () +data PlacesSidebarSetLocationMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PlacesSidebarK a, Gio.FileK b) => MethodInfo PlacesSidebarSetLocationMethodInfo a signature where + overloadedMethod _ = placesSidebarSetLocation + -- method PlacesSidebar::set_open_flags -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "PlacesOpenFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "PlacesOpenFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "PlacesOpenFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1503,9 +1943,9 @@ placesSidebarSetOpenFlags :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - [PlacesOpenFlags] -> -- flags - m () + a -- _obj + -> [PlacesOpenFlags] -- flags + -> m () -- result placesSidebarSetOpenFlags _obj flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let flags' = gflagsToWord flags @@ -1513,11 +1953,14 @@ touchManagedPtr _obj return () +data PlacesSidebarSetOpenFlagsMethodInfo +instance (signature ~ ([PlacesOpenFlags] -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetOpenFlagsMethodInfo a signature where + overloadedMethod _ = placesSidebarSetOpenFlags + -- method PlacesSidebar::set_show_connect_to_server -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_connect_to_server", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_connect_to_server", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_connect_to_server", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1530,21 +1973,24 @@ {-# DEPRECATED placesSidebarSetShowConnectToServer ["(Since version 3.18)","It is recommended to group this functionality with the drives"," and network location under the new 'Other Location' item"]#-} placesSidebarSetShowConnectToServer :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - Bool -> -- show_connect_to_server - m () -placesSidebarSetShowConnectToServer _obj show_connect_to_server = liftIO $ do + a -- _obj + -> Bool -- showConnectToServer + -> m () -- result +placesSidebarSetShowConnectToServer _obj showConnectToServer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_connect_to_server' = (fromIntegral . fromEnum) show_connect_to_server - gtk_places_sidebar_set_show_connect_to_server _obj' show_connect_to_server' + let showConnectToServer' = (fromIntegral . fromEnum) showConnectToServer + gtk_places_sidebar_set_show_connect_to_server _obj' showConnectToServer' touchManagedPtr _obj return () +data PlacesSidebarSetShowConnectToServerMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetShowConnectToServerMethodInfo a signature where + overloadedMethod _ = placesSidebarSetShowConnectToServer + -- method PlacesSidebar::set_show_desktop -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_desktop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_desktop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_desktop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1557,21 +2003,24 @@ placesSidebarSetShowDesktop :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - Bool -> -- show_desktop - m () -placesSidebarSetShowDesktop _obj show_desktop = liftIO $ do + a -- _obj + -> Bool -- showDesktop + -> m () -- result +placesSidebarSetShowDesktop _obj showDesktop = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_desktop' = (fromIntegral . fromEnum) show_desktop - gtk_places_sidebar_set_show_desktop _obj' show_desktop' + let showDesktop' = (fromIntegral . fromEnum) showDesktop + gtk_places_sidebar_set_show_desktop _obj' showDesktop' touchManagedPtr _obj return () +data PlacesSidebarSetShowDesktopMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetShowDesktopMethodInfo a signature where + overloadedMethod _ = placesSidebarSetShowDesktop + -- method PlacesSidebar::set_show_enter_location -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_enter_location", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_enter_location", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_enter_location", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1584,21 +2033,24 @@ placesSidebarSetShowEnterLocation :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - Bool -> -- show_enter_location - m () -placesSidebarSetShowEnterLocation _obj show_enter_location = liftIO $ do + a -- _obj + -> Bool -- showEnterLocation + -> m () -- result +placesSidebarSetShowEnterLocation _obj showEnterLocation = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_enter_location' = (fromIntegral . fromEnum) show_enter_location - gtk_places_sidebar_set_show_enter_location _obj' show_enter_location' + let showEnterLocation' = (fromIntegral . fromEnum) showEnterLocation + gtk_places_sidebar_set_show_enter_location _obj' showEnterLocation' touchManagedPtr _obj return () +data PlacesSidebarSetShowEnterLocationMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetShowEnterLocationMethodInfo a signature where + overloadedMethod _ = placesSidebarSetShowEnterLocation + -- method PlacesSidebar::set_show_other_locations -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_other_locations", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_other_locations", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_other_locations", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1611,21 +2063,24 @@ placesSidebarSetShowOtherLocations :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - Bool -> -- show_other_locations - m () -placesSidebarSetShowOtherLocations _obj show_other_locations = liftIO $ do + a -- _obj + -> Bool -- showOtherLocations + -> m () -- result +placesSidebarSetShowOtherLocations _obj showOtherLocations = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_other_locations' = (fromIntegral . fromEnum) show_other_locations - gtk_places_sidebar_set_show_other_locations _obj' show_other_locations' + let showOtherLocations' = (fromIntegral . fromEnum) showOtherLocations + gtk_places_sidebar_set_show_other_locations _obj' showOtherLocations' touchManagedPtr _obj return () +data PlacesSidebarSetShowOtherLocationsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetShowOtherLocationsMethodInfo a signature where + overloadedMethod _ = placesSidebarSetShowOtherLocations + -- method PlacesSidebar::set_show_recent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_recent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_recent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_recent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1638,21 +2093,24 @@ placesSidebarSetShowRecent :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - Bool -> -- show_recent - m () -placesSidebarSetShowRecent _obj show_recent = liftIO $ do + a -- _obj + -> Bool -- showRecent + -> m () -- result +placesSidebarSetShowRecent _obj showRecent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_recent' = (fromIntegral . fromEnum) show_recent - gtk_places_sidebar_set_show_recent _obj' show_recent' + let showRecent' = (fromIntegral . fromEnum) showRecent + gtk_places_sidebar_set_show_recent _obj' showRecent' touchManagedPtr _obj return () +data PlacesSidebarSetShowRecentMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetShowRecentMethodInfo a signature where + overloadedMethod _ = placesSidebarSetShowRecent + -- method PlacesSidebar::set_show_trash -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_trash", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_trash", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_trash", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1665,14 +2123,18 @@ placesSidebarSetShowTrash :: (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - Bool -> -- show_trash - m () -placesSidebarSetShowTrash _obj show_trash = liftIO $ do + a -- _obj + -> Bool -- showTrash + -> m () -- result +placesSidebarSetShowTrash _obj showTrash = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_trash' = (fromIntegral . fromEnum) show_trash - gtk_places_sidebar_set_show_trash _obj' show_trash' + let showTrash' = (fromIntegral . fromEnum) showTrash + gtk_places_sidebar_set_show_trash _obj' showTrash' touchManagedPtr _obj return () + +data PlacesSidebarSetShowTrashMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PlacesSidebarK a) => MethodInfo PlacesSidebarSetShowTrashMethodInfo a signature where + overloadedMethod _ = placesSidebarSetShowTrash diff --git a/GI/Gtk/Objects/PlacesSidebar.hs-boot b/GI/Gtk/Objects/PlacesSidebar.hs-boot --- a/GI/Gtk/Objects/PlacesSidebar.hs-boot +++ b/GI/Gtk/Objects/PlacesSidebar.hs-boot @@ -30,3 +30,26 @@ data PlacesSidebarShowEnterLocationSignalInfo data PlacesSidebarShowErrorMessageSignalInfo data PlacesSidebarShowOtherLocationsSignalInfo +data PlacesSidebarAddShortcutMethodInfo +data PlacesSidebarGetLocalOnlyMethodInfo +data PlacesSidebarGetLocationMethodInfo +data PlacesSidebarGetNthBookmarkMethodInfo +data PlacesSidebarGetOpenFlagsMethodInfo +data PlacesSidebarGetShowConnectToServerMethodInfo +data PlacesSidebarGetShowDesktopMethodInfo +data PlacesSidebarGetShowEnterLocationMethodInfo +data PlacesSidebarGetShowOtherLocationsMethodInfo +data PlacesSidebarGetShowRecentMethodInfo +data PlacesSidebarGetShowTrashMethodInfo +data PlacesSidebarListShortcutsMethodInfo +data PlacesSidebarRemoveShortcutMethodInfo +data PlacesSidebarSetDropTargetsVisibleMethodInfo +data PlacesSidebarSetLocalOnlyMethodInfo +data PlacesSidebarSetLocationMethodInfo +data PlacesSidebarSetOpenFlagsMethodInfo +data PlacesSidebarSetShowConnectToServerMethodInfo +data PlacesSidebarSetShowDesktopMethodInfo +data PlacesSidebarSetShowEnterLocationMethodInfo +data PlacesSidebarSetShowOtherLocationsMethodInfo +data PlacesSidebarSetShowRecentMethodInfo +data PlacesSidebarSetShowTrashMethodInfo diff --git a/GI/Gtk/Objects/Plug.hs b/GI/Gtk/Objects/Plug.hs --- a/GI/Gtk/Objects/Plug.hs +++ b/GI/Gtk/Objects/Plug.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** plugConstruct + PlugConstructMethodInfo , plugConstruct , -- ** plugConstructForDisplay + PlugConstructForDisplayMethodInfo , plugConstructForDisplay , -- ** plugGetEmbedded + PlugGetEmbeddedMethodInfo , plugGetEmbedded , -- ** plugGetId + PlugGetIdMethodInfo , plugGetId , -- ** plugGetSocketWindow + PlugGetSocketWindowMethodInfo , plugGetSocketWindow , @@ -110,6 +116,435 @@ noPlug :: Maybe Plug noPlug = Nothing +type family ResolvePlugMethod (t :: Symbol) (o :: *) :: * where + ResolvePlugMethod "activate" o = WidgetActivateMethodInfo + ResolvePlugMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolvePlugMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolvePlugMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolvePlugMethod "add" o = ContainerAddMethodInfo + ResolvePlugMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolvePlugMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolvePlugMethod "addChild" o = BuildableAddChildMethodInfo + ResolvePlugMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolvePlugMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolvePlugMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolvePlugMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolvePlugMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolvePlugMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolvePlugMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolvePlugMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePlugMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePlugMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolvePlugMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolvePlugMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolvePlugMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolvePlugMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolvePlugMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolvePlugMethod "childType" o = ContainerChildTypeMethodInfo + ResolvePlugMethod "classPath" o = WidgetClassPathMethodInfo + ResolvePlugMethod "close" o = WindowCloseMethodInfo + ResolvePlugMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolvePlugMethod "construct" o = PlugConstructMethodInfo + ResolvePlugMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolvePlugMethod "constructForDisplay" o = PlugConstructForDisplayMethodInfo + ResolvePlugMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolvePlugMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolvePlugMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolvePlugMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolvePlugMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolvePlugMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolvePlugMethod "destroy" o = WidgetDestroyMethodInfo + ResolvePlugMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolvePlugMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolvePlugMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolvePlugMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolvePlugMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolvePlugMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolvePlugMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolvePlugMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolvePlugMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolvePlugMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolvePlugMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolvePlugMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolvePlugMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolvePlugMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolvePlugMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolvePlugMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolvePlugMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolvePlugMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolvePlugMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolvePlugMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolvePlugMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolvePlugMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolvePlugMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolvePlugMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolvePlugMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolvePlugMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolvePlugMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolvePlugMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolvePlugMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolvePlugMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolvePlugMethod "draw" o = WidgetDrawMethodInfo + ResolvePlugMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolvePlugMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolvePlugMethod "event" o = WidgetEventMethodInfo + ResolvePlugMethod "forall" o = ContainerForallMethodInfo + ResolvePlugMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePlugMethod "foreach" o = ContainerForeachMethodInfo + ResolvePlugMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolvePlugMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePlugMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolvePlugMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolvePlugMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolvePlugMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolvePlugMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolvePlugMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolvePlugMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolvePlugMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolvePlugMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolvePlugMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolvePlugMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolvePlugMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolvePlugMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolvePlugMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolvePlugMethod "hide" o = WidgetHideMethodInfo + ResolvePlugMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolvePlugMethod "iconify" o = WindowIconifyMethodInfo + ResolvePlugMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolvePlugMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolvePlugMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolvePlugMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolvePlugMethod "intersect" o = WidgetIntersectMethodInfo + ResolvePlugMethod "isActive" o = WindowIsActiveMethodInfo + ResolvePlugMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolvePlugMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolvePlugMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolvePlugMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePlugMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolvePlugMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolvePlugMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolvePlugMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolvePlugMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolvePlugMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolvePlugMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolvePlugMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolvePlugMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolvePlugMethod "map" o = WidgetMapMethodInfo + ResolvePlugMethod "maximize" o = WindowMaximizeMethodInfo + ResolvePlugMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolvePlugMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolvePlugMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolvePlugMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolvePlugMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolvePlugMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolvePlugMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolvePlugMethod "move" o = WindowMoveMethodInfo + ResolvePlugMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePlugMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePlugMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolvePlugMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolvePlugMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolvePlugMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolvePlugMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolvePlugMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolvePlugMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolvePlugMethod "path" o = WidgetPathMethodInfo + ResolvePlugMethod "present" o = WindowPresentMethodInfo + ResolvePlugMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolvePlugMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolvePlugMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolvePlugMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolvePlugMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolvePlugMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolvePlugMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolvePlugMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolvePlugMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolvePlugMethod "realize" o = WidgetRealizeMethodInfo + ResolvePlugMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePlugMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePlugMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolvePlugMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolvePlugMethod "remove" o = ContainerRemoveMethodInfo + ResolvePlugMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolvePlugMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolvePlugMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolvePlugMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolvePlugMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolvePlugMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolvePlugMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolvePlugMethod "reparent" o = WidgetReparentMethodInfo + ResolvePlugMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePlugMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePlugMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolvePlugMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolvePlugMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolvePlugMethod "resize" o = WindowResizeMethodInfo + ResolvePlugMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolvePlugMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolvePlugMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolvePlugMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePlugMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolvePlugMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolvePlugMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolvePlugMethod "show" o = WidgetShowMethodInfo + ResolvePlugMethod "showAll" o = WidgetShowAllMethodInfo + ResolvePlugMethod "showNow" o = WidgetShowNowMethodInfo + ResolvePlugMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolvePlugMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolvePlugMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolvePlugMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePlugMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePlugMethod "stick" o = WindowStickMethodInfo + ResolvePlugMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolvePlugMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolvePlugMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolvePlugMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePlugMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolvePlugMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolvePlugMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolvePlugMethod "unmap" o = WidgetUnmapMethodInfo + ResolvePlugMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolvePlugMethod "unparent" o = WidgetUnparentMethodInfo + ResolvePlugMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolvePlugMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePlugMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolvePlugMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolvePlugMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolvePlugMethod "unstick" o = WindowUnstickMethodInfo + ResolvePlugMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePlugMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolvePlugMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolvePlugMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolvePlugMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolvePlugMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolvePlugMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolvePlugMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolvePlugMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolvePlugMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolvePlugMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolvePlugMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolvePlugMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolvePlugMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolvePlugMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolvePlugMethod "getChild" o = BinGetChildMethodInfo + ResolvePlugMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolvePlugMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolvePlugMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolvePlugMethod "getClip" o = WidgetGetClipMethodInfo + ResolvePlugMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolvePlugMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolvePlugMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePlugMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolvePlugMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolvePlugMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolvePlugMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolvePlugMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolvePlugMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolvePlugMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolvePlugMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolvePlugMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolvePlugMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolvePlugMethod "getEmbedded" o = PlugGetEmbeddedMethodInfo + ResolvePlugMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolvePlugMethod "getFocus" o = WindowGetFocusMethodInfo + ResolvePlugMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolvePlugMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolvePlugMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolvePlugMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolvePlugMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolvePlugMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolvePlugMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolvePlugMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolvePlugMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolvePlugMethod "getGravity" o = WindowGetGravityMethodInfo + ResolvePlugMethod "getGroup" o = WindowGetGroupMethodInfo + ResolvePlugMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolvePlugMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolvePlugMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolvePlugMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolvePlugMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolvePlugMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolvePlugMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolvePlugMethod "getIcon" o = WindowGetIconMethodInfo + ResolvePlugMethod "getIconList" o = WindowGetIconListMethodInfo + ResolvePlugMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolvePlugMethod "getId" o = PlugGetIdMethodInfo + ResolvePlugMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolvePlugMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolvePlugMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolvePlugMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolvePlugMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolvePlugMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolvePlugMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolvePlugMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolvePlugMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolvePlugMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolvePlugMethod "getModal" o = WindowGetModalMethodInfo + ResolvePlugMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolvePlugMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolvePlugMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolvePlugMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolvePlugMethod "getParent" o = WidgetGetParentMethodInfo + ResolvePlugMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolvePlugMethod "getPath" o = WidgetGetPathMethodInfo + ResolvePlugMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolvePlugMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolvePlugMethod "getPosition" o = WindowGetPositionMethodInfo + ResolvePlugMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolvePlugMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolvePlugMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolvePlugMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolvePlugMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolvePlugMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolvePlugMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePlugMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePlugMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolvePlugMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolvePlugMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolvePlugMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolvePlugMethod "getResizable" o = WindowGetResizableMethodInfo + ResolvePlugMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolvePlugMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolvePlugMethod "getRole" o = WindowGetRoleMethodInfo + ResolvePlugMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolvePlugMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolvePlugMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolvePlugMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolvePlugMethod "getSize" o = WindowGetSizeMethodInfo + ResolvePlugMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolvePlugMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolvePlugMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolvePlugMethod "getSocketWindow" o = PlugGetSocketWindowMethodInfo + ResolvePlugMethod "getState" o = WidgetGetStateMethodInfo + ResolvePlugMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolvePlugMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolvePlugMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolvePlugMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolvePlugMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolvePlugMethod "getTitle" o = WindowGetTitleMethodInfo + ResolvePlugMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolvePlugMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolvePlugMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolvePlugMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolvePlugMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolvePlugMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolvePlugMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolvePlugMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolvePlugMethod "getValign" o = WidgetGetValignMethodInfo + ResolvePlugMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolvePlugMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolvePlugMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolvePlugMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolvePlugMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolvePlugMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolvePlugMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolvePlugMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolvePlugMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolvePlugMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolvePlugMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolvePlugMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolvePlugMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolvePlugMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolvePlugMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolvePlugMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolvePlugMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolvePlugMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolvePlugMethod "setClip" o = WidgetSetClipMethodInfo + ResolvePlugMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolvePlugMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePlugMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolvePlugMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolvePlugMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolvePlugMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolvePlugMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolvePlugMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolvePlugMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolvePlugMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolvePlugMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolvePlugMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolvePlugMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolvePlugMethod "setFocus" o = WindowSetFocusMethodInfo + ResolvePlugMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolvePlugMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolvePlugMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolvePlugMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolvePlugMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolvePlugMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolvePlugMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolvePlugMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolvePlugMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolvePlugMethod "setGravity" o = WindowSetGravityMethodInfo + ResolvePlugMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolvePlugMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolvePlugMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolvePlugMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolvePlugMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolvePlugMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolvePlugMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolvePlugMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolvePlugMethod "setIcon" o = WindowSetIconMethodInfo + ResolvePlugMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolvePlugMethod "setIconList" o = WindowSetIconListMethodInfo + ResolvePlugMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolvePlugMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolvePlugMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolvePlugMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolvePlugMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolvePlugMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolvePlugMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolvePlugMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolvePlugMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolvePlugMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolvePlugMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolvePlugMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolvePlugMethod "setModal" o = WindowSetModalMethodInfo + ResolvePlugMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolvePlugMethod "setParent" o = WidgetSetParentMethodInfo + ResolvePlugMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolvePlugMethod "setPosition" o = WindowSetPositionMethodInfo + ResolvePlugMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePlugMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolvePlugMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolvePlugMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolvePlugMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolvePlugMethod "setResizable" o = WindowSetResizableMethodInfo + ResolvePlugMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolvePlugMethod "setRole" o = WindowSetRoleMethodInfo + ResolvePlugMethod "setScreen" o = WindowSetScreenMethodInfo + ResolvePlugMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolvePlugMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolvePlugMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolvePlugMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolvePlugMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolvePlugMethod "setState" o = WidgetSetStateMethodInfo + ResolvePlugMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolvePlugMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolvePlugMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolvePlugMethod "setTitle" o = WindowSetTitleMethodInfo + ResolvePlugMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolvePlugMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolvePlugMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolvePlugMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolvePlugMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolvePlugMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolvePlugMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolvePlugMethod "setValign" o = WidgetSetValignMethodInfo + ResolvePlugMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolvePlugMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolvePlugMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolvePlugMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolvePlugMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolvePlugMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolvePlugMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePlugMethod t Plug, MethodInfo info Plug p) => IsLabelProxy t (Plug -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePlugMethod t Plug, MethodInfo info Plug p) => IsLabel t (Plug -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Plug::embedded type PlugEmbeddedCallback = IO () @@ -161,7 +596,7 @@ type AttrSetTypeConstraint PlugEmbeddedPropertyInfo = (~) () type AttrBaseTypeConstraint PlugEmbeddedPropertyInfo = PlugK type AttrGetType PlugEmbeddedPropertyInfo = Bool - type AttrLabel PlugEmbeddedPropertyInfo = "Plug::embedded" + type AttrLabel PlugEmbeddedPropertyInfo = "embedded" attrGet _ = getPlugEmbedded attrSet _ = undefined attrConstruct _ = undefined @@ -179,13 +614,13 @@ type AttrSetTypeConstraint PlugSocketWindowPropertyInfo = (~) () type AttrBaseTypeConstraint PlugSocketWindowPropertyInfo = PlugK type AttrGetType PlugSocketWindowPropertyInfo = Gdk.Window - type AttrLabel PlugSocketWindowPropertyInfo = "Plug::socket-window" + type AttrLabel PlugSocketWindowPropertyInfo = "socket-window" attrGet _ = getPlugSocketWindow attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList Plug = PlugAttributeList -type PlugAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("embedded", PlugEmbeddedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("socket-window", PlugSocketWindowPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type PlugAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("embedded", PlugEmbeddedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("socketWindow", PlugSocketWindowPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) data PlugEmbeddedSignalInfo instance SignalInfo PlugEmbeddedSignalInfo where @@ -193,13 +628,12 @@ connectSignal _ = connectPlugEmbedded type instance SignalList Plug = PlugSignalList -type PlugSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("embedded", PlugEmbeddedSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PlugSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("embedded", PlugEmbeddedSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Plug::new -- method type : Constructor --- Args : [Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Plug" -- throws : False -- Skip return : False @@ -211,19 +645,18 @@ plugNew :: (MonadIO m) => - Word64 -> -- socket_id - m Plug -plugNew socket_id = liftIO $ do - result <- gtk_plug_new socket_id + Word64 -- socketId + -> m Plug -- result +plugNew socketId = liftIO $ do + result <- gtk_plug_new socketId checkUnexpectedReturnNULL "gtk_plug_new" result result' <- (newObject Plug) result return result' -- method Plug::new_for_display -- method type : Constructor --- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Plug" -- throws : False -- Skip return : False @@ -236,12 +669,12 @@ plugNewForDisplay :: (MonadIO m, Gdk.DisplayK a) => - a -> -- display - Word64 -> -- socket_id - m Plug -plugNewForDisplay display socket_id = liftIO $ do + a -- display + -> Word64 -- socketId + -> m Plug -- result +plugNewForDisplay display socketId = liftIO $ do let display' = unsafeManagedPtrCastPtr display - result <- gtk_plug_new_for_display display' socket_id + result <- gtk_plug_new_for_display display' socketId checkUnexpectedReturnNULL "gtk_plug_new_for_display" result result' <- (newObject Plug) result touchManagedPtr display @@ -249,9 +682,8 @@ -- method Plug::construct -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -264,20 +696,23 @@ plugConstruct :: (MonadIO m, PlugK a) => - a -> -- _obj - Word64 -> -- socket_id - m () -plugConstruct _obj socket_id = liftIO $ do + a -- _obj + -> Word64 -- socketId + -> m () -- result +plugConstruct _obj socketId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_plug_construct _obj' socket_id + gtk_plug_construct _obj' socketId touchManagedPtr _obj return () +data PlugConstructMethodInfo +instance (signature ~ (Word64 -> m ()), MonadIO m, PlugK a) => MethodInfo PlugConstructMethodInfo a signature where + overloadedMethod _ = plugConstruct + -- method Plug::construct_for_display -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -291,23 +726,26 @@ plugConstructForDisplay :: (MonadIO m, PlugK a, Gdk.DisplayK b) => - a -> -- _obj - b -> -- display - Word64 -> -- socket_id - m () -plugConstructForDisplay _obj display socket_id = liftIO $ do + a -- _obj + -> b -- display + -> Word64 -- socketId + -> m () -- result +plugConstructForDisplay _obj display socketId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let display' = unsafeManagedPtrCastPtr display - gtk_plug_construct_for_display _obj' display' socket_id + gtk_plug_construct_for_display _obj' display' socketId touchManagedPtr _obj touchManagedPtr display return () +data PlugConstructForDisplayMethodInfo +instance (signature ~ (b -> Word64 -> m ()), MonadIO m, PlugK a, Gdk.DisplayK b) => MethodInfo PlugConstructForDisplayMethodInfo a signature where + overloadedMethod _ = plugConstructForDisplay + -- method Plug::get_embedded -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -319,8 +757,8 @@ plugGetEmbedded :: (MonadIO m, PlugK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result plugGetEmbedded _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_plug_get_embedded _obj' @@ -328,11 +766,14 @@ touchManagedPtr _obj return result' +data PlugGetEmbeddedMethodInfo +instance (signature ~ (m Bool), MonadIO m, PlugK a) => MethodInfo PlugGetEmbeddedMethodInfo a signature where + overloadedMethod _ = plugGetEmbedded + -- method Plug::get_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -344,19 +785,22 @@ plugGetId :: (MonadIO m, PlugK a) => - a -> -- _obj - m Word64 + a -- _obj + -> m Word64 -- result plugGetId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_plug_get_id _obj' touchManagedPtr _obj return result +data PlugGetIdMethodInfo +instance (signature ~ (m Word64), MonadIO m, PlugK a) => MethodInfo PlugGetIdMethodInfo a signature where + overloadedMethod _ = plugGetId + -- method Plug::get_socket_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False @@ -368,8 +812,8 @@ plugGetSocketWindow :: (MonadIO m, PlugK a) => - a -> -- _obj - m Gdk.Window + a -- _obj + -> m Gdk.Window -- result plugGetSocketWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_plug_get_socket_window _obj' @@ -377,5 +821,9 @@ result' <- (newObject Gdk.Window) result touchManagedPtr _obj return result' + +data PlugGetSocketWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, PlugK a) => MethodInfo PlugGetSocketWindowMethodInfo a signature where + overloadedMethod _ = plugGetSocketWindow diff --git a/GI/Gtk/Objects/Plug.hs-boot b/GI/Gtk/Objects/Plug.hs-boot --- a/GI/Gtk/Objects/Plug.hs-boot +++ b/GI/Gtk/Objects/Plug.hs-boot @@ -14,3 +14,8 @@ data PlugEmbeddedPropertyInfo data PlugSocketWindowPropertyInfo data PlugEmbeddedSignalInfo +data PlugConstructMethodInfo +data PlugConstructForDisplayMethodInfo +data PlugGetEmbeddedMethodInfo +data PlugGetIdMethodInfo +data PlugGetSocketWindowMethodInfo diff --git a/GI/Gtk/Objects/Popover.hs b/GI/Gtk/Objects/Popover.hs --- a/GI/Gtk/Objects/Popover.hs +++ b/GI/Gtk/Objects/Popover.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,30 +18,37 @@ -- * Methods -- ** popoverBindModel + PopoverBindModelMethodInfo , popoverBindModel , -- ** popoverGetDefaultWidget + PopoverGetDefaultWidgetMethodInfo , popoverGetDefaultWidget , -- ** popoverGetModal + PopoverGetModalMethodInfo , popoverGetModal , -- ** popoverGetPointingTo + PopoverGetPointingToMethodInfo , popoverGetPointingTo , -- ** popoverGetPosition + PopoverGetPositionMethodInfo , popoverGetPosition , -- ** popoverGetRelativeTo + PopoverGetRelativeToMethodInfo , popoverGetRelativeTo , -- ** popoverGetTransitionsEnabled + PopoverGetTransitionsEnabledMethodInfo , popoverGetTransitionsEnabled , @@ -53,26 +61,32 @@ -- ** popoverSetDefaultWidget + PopoverSetDefaultWidgetMethodInfo , popoverSetDefaultWidget , -- ** popoverSetModal + PopoverSetModalMethodInfo , popoverSetModal , -- ** popoverSetPointingTo + PopoverSetPointingToMethodInfo , popoverSetPointingTo , -- ** popoverSetPosition + PopoverSetPositionMethodInfo , popoverSetPosition , -- ** popoverSetRelativeTo + PopoverSetRelativeToMethodInfo , popoverSetRelativeTo , -- ** popoverSetTransitionsEnabled + PopoverSetTransitionsEnabledMethodInfo , popoverSetTransitionsEnabled , @@ -168,6 +182,342 @@ noPopover :: Maybe Popover noPopover = Nothing +type family ResolvePopoverMethod (t :: Symbol) (o :: *) :: * where + ResolvePopoverMethod "activate" o = WidgetActivateMethodInfo + ResolvePopoverMethod "add" o = ContainerAddMethodInfo + ResolvePopoverMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolvePopoverMethod "addChild" o = BuildableAddChildMethodInfo + ResolvePopoverMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolvePopoverMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolvePopoverMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolvePopoverMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolvePopoverMethod "bindModel" o = PopoverBindModelMethodInfo + ResolvePopoverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePopoverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePopoverMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolvePopoverMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolvePopoverMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolvePopoverMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolvePopoverMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolvePopoverMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolvePopoverMethod "childType" o = ContainerChildTypeMethodInfo + ResolvePopoverMethod "classPath" o = WidgetClassPathMethodInfo + ResolvePopoverMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolvePopoverMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolvePopoverMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolvePopoverMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolvePopoverMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolvePopoverMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolvePopoverMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolvePopoverMethod "destroy" o = WidgetDestroyMethodInfo + ResolvePopoverMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolvePopoverMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolvePopoverMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolvePopoverMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolvePopoverMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolvePopoverMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolvePopoverMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolvePopoverMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolvePopoverMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolvePopoverMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolvePopoverMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolvePopoverMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolvePopoverMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolvePopoverMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolvePopoverMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolvePopoverMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolvePopoverMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolvePopoverMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolvePopoverMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolvePopoverMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolvePopoverMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolvePopoverMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolvePopoverMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolvePopoverMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolvePopoverMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolvePopoverMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolvePopoverMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolvePopoverMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolvePopoverMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolvePopoverMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolvePopoverMethod "draw" o = WidgetDrawMethodInfo + ResolvePopoverMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolvePopoverMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolvePopoverMethod "event" o = WidgetEventMethodInfo + ResolvePopoverMethod "forall" o = ContainerForallMethodInfo + ResolvePopoverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePopoverMethod "foreach" o = ContainerForeachMethodInfo + ResolvePopoverMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolvePopoverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePopoverMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolvePopoverMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolvePopoverMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolvePopoverMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolvePopoverMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolvePopoverMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolvePopoverMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolvePopoverMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolvePopoverMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolvePopoverMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolvePopoverMethod "hide" o = WidgetHideMethodInfo + ResolvePopoverMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolvePopoverMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolvePopoverMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolvePopoverMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolvePopoverMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolvePopoverMethod "intersect" o = WidgetIntersectMethodInfo + ResolvePopoverMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolvePopoverMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolvePopoverMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolvePopoverMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePopoverMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolvePopoverMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolvePopoverMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolvePopoverMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolvePopoverMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolvePopoverMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolvePopoverMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolvePopoverMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolvePopoverMethod "map" o = WidgetMapMethodInfo + ResolvePopoverMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolvePopoverMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolvePopoverMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolvePopoverMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolvePopoverMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolvePopoverMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolvePopoverMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolvePopoverMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolvePopoverMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePopoverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePopoverMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolvePopoverMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolvePopoverMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolvePopoverMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolvePopoverMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolvePopoverMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolvePopoverMethod "path" o = WidgetPathMethodInfo + ResolvePopoverMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolvePopoverMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolvePopoverMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolvePopoverMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolvePopoverMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolvePopoverMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolvePopoverMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolvePopoverMethod "realize" o = WidgetRealizeMethodInfo + ResolvePopoverMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePopoverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePopoverMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolvePopoverMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolvePopoverMethod "remove" o = ContainerRemoveMethodInfo + ResolvePopoverMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolvePopoverMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolvePopoverMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolvePopoverMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolvePopoverMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolvePopoverMethod "reparent" o = WidgetReparentMethodInfo + ResolvePopoverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePopoverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePopoverMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolvePopoverMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolvePopoverMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolvePopoverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePopoverMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolvePopoverMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolvePopoverMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolvePopoverMethod "show" o = WidgetShowMethodInfo + ResolvePopoverMethod "showAll" o = WidgetShowAllMethodInfo + ResolvePopoverMethod "showNow" o = WidgetShowNowMethodInfo + ResolvePopoverMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolvePopoverMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolvePopoverMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolvePopoverMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePopoverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePopoverMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolvePopoverMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolvePopoverMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolvePopoverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePopoverMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolvePopoverMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolvePopoverMethod "unmap" o = WidgetUnmapMethodInfo + ResolvePopoverMethod "unparent" o = WidgetUnparentMethodInfo + ResolvePopoverMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolvePopoverMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePopoverMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolvePopoverMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolvePopoverMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolvePopoverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePopoverMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolvePopoverMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolvePopoverMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolvePopoverMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolvePopoverMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolvePopoverMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolvePopoverMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolvePopoverMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolvePopoverMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolvePopoverMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolvePopoverMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolvePopoverMethod "getChild" o = BinGetChildMethodInfo + ResolvePopoverMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolvePopoverMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolvePopoverMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolvePopoverMethod "getClip" o = WidgetGetClipMethodInfo + ResolvePopoverMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolvePopoverMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolvePopoverMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePopoverMethod "getDefaultWidget" o = PopoverGetDefaultWidgetMethodInfo + ResolvePopoverMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolvePopoverMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolvePopoverMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolvePopoverMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolvePopoverMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolvePopoverMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolvePopoverMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolvePopoverMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolvePopoverMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolvePopoverMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolvePopoverMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolvePopoverMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolvePopoverMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolvePopoverMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolvePopoverMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolvePopoverMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolvePopoverMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolvePopoverMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolvePopoverMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolvePopoverMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolvePopoverMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolvePopoverMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolvePopoverMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolvePopoverMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolvePopoverMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolvePopoverMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolvePopoverMethod "getModal" o = PopoverGetModalMethodInfo + ResolvePopoverMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolvePopoverMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolvePopoverMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolvePopoverMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolvePopoverMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolvePopoverMethod "getParent" o = WidgetGetParentMethodInfo + ResolvePopoverMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolvePopoverMethod "getPath" o = WidgetGetPathMethodInfo + ResolvePopoverMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolvePopoverMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolvePopoverMethod "getPointingTo" o = PopoverGetPointingToMethodInfo + ResolvePopoverMethod "getPosition" o = PopoverGetPositionMethodInfo + ResolvePopoverMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolvePopoverMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolvePopoverMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolvePopoverMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolvePopoverMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolvePopoverMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolvePopoverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePopoverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePopoverMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolvePopoverMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolvePopoverMethod "getRelativeTo" o = PopoverGetRelativeToMethodInfo + ResolvePopoverMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolvePopoverMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolvePopoverMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolvePopoverMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolvePopoverMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolvePopoverMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolvePopoverMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolvePopoverMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolvePopoverMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolvePopoverMethod "getState" o = WidgetGetStateMethodInfo + ResolvePopoverMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolvePopoverMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolvePopoverMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolvePopoverMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolvePopoverMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolvePopoverMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolvePopoverMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolvePopoverMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolvePopoverMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolvePopoverMethod "getTransitionsEnabled" o = PopoverGetTransitionsEnabledMethodInfo + ResolvePopoverMethod "getValign" o = WidgetGetValignMethodInfo + ResolvePopoverMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolvePopoverMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolvePopoverMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolvePopoverMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolvePopoverMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolvePopoverMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolvePopoverMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolvePopoverMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolvePopoverMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolvePopoverMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolvePopoverMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolvePopoverMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolvePopoverMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolvePopoverMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolvePopoverMethod "setClip" o = WidgetSetClipMethodInfo + ResolvePopoverMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolvePopoverMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePopoverMethod "setDefaultWidget" o = PopoverSetDefaultWidgetMethodInfo + ResolvePopoverMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolvePopoverMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolvePopoverMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolvePopoverMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolvePopoverMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolvePopoverMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolvePopoverMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolvePopoverMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolvePopoverMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolvePopoverMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolvePopoverMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolvePopoverMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolvePopoverMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolvePopoverMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolvePopoverMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolvePopoverMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolvePopoverMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolvePopoverMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolvePopoverMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolvePopoverMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolvePopoverMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolvePopoverMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolvePopoverMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolvePopoverMethod "setModal" o = PopoverSetModalMethodInfo + ResolvePopoverMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolvePopoverMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolvePopoverMethod "setParent" o = WidgetSetParentMethodInfo + ResolvePopoverMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolvePopoverMethod "setPointingTo" o = PopoverSetPointingToMethodInfo + ResolvePopoverMethod "setPosition" o = PopoverSetPositionMethodInfo + ResolvePopoverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePopoverMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolvePopoverMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolvePopoverMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolvePopoverMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolvePopoverMethod "setRelativeTo" o = PopoverSetRelativeToMethodInfo + ResolvePopoverMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolvePopoverMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolvePopoverMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolvePopoverMethod "setState" o = WidgetSetStateMethodInfo + ResolvePopoverMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolvePopoverMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolvePopoverMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolvePopoverMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolvePopoverMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolvePopoverMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolvePopoverMethod "setTransitionsEnabled" o = PopoverSetTransitionsEnabledMethodInfo + ResolvePopoverMethod "setValign" o = WidgetSetValignMethodInfo + ResolvePopoverMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolvePopoverMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolvePopoverMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolvePopoverMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolvePopoverMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolvePopoverMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePopoverMethod t Popover, MethodInfo info Popover p) => IsLabelProxy t (Popover -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePopoverMethod t Popover, MethodInfo info Popover p) => IsLabel t (Popover -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Popover::closed type PopoverClosedCallback = IO () @@ -225,7 +575,7 @@ type AttrSetTypeConstraint PopoverModalPropertyInfo = (~) Bool type AttrBaseTypeConstraint PopoverModalPropertyInfo = PopoverK type AttrGetType PopoverModalPropertyInfo = Bool - type AttrLabel PopoverModalPropertyInfo = "Popover::modal" + type AttrLabel PopoverModalPropertyInfo = "modal" attrGet _ = getPopoverModal attrSet _ = setPopoverModal attrConstruct _ = constructPopoverModal @@ -249,7 +599,7 @@ type AttrSetTypeConstraint PopoverPointingToPropertyInfo = (~) Gdk.Rectangle type AttrBaseTypeConstraint PopoverPointingToPropertyInfo = PopoverK type AttrGetType PopoverPointingToPropertyInfo = Gdk.Rectangle - type AttrLabel PopoverPointingToPropertyInfo = "Popover::pointing-to" + type AttrLabel PopoverPointingToPropertyInfo = "pointing-to" attrGet _ = getPopoverPointingTo attrSet _ = setPopoverPointingTo attrConstruct _ = constructPopoverPointingTo @@ -273,7 +623,7 @@ type AttrSetTypeConstraint PopoverPositionPropertyInfo = (~) PositionType type AttrBaseTypeConstraint PopoverPositionPropertyInfo = PopoverK type AttrGetType PopoverPositionPropertyInfo = PositionType - type AttrLabel PopoverPositionPropertyInfo = "Popover::position" + type AttrLabel PopoverPositionPropertyInfo = "position" attrGet _ = getPopoverPosition attrSet _ = setPopoverPosition attrConstruct _ = constructPopoverPosition @@ -297,7 +647,7 @@ type AttrSetTypeConstraint PopoverRelativeToPropertyInfo = WidgetK type AttrBaseTypeConstraint PopoverRelativeToPropertyInfo = PopoverK type AttrGetType PopoverRelativeToPropertyInfo = Widget - type AttrLabel PopoverRelativeToPropertyInfo = "Popover::relative-to" + type AttrLabel PopoverRelativeToPropertyInfo = "relative-to" attrGet _ = getPopoverRelativeTo attrSet _ = setPopoverRelativeTo attrConstruct _ = constructPopoverRelativeTo @@ -321,13 +671,13 @@ type AttrSetTypeConstraint PopoverTransitionsEnabledPropertyInfo = (~) Bool type AttrBaseTypeConstraint PopoverTransitionsEnabledPropertyInfo = PopoverK type AttrGetType PopoverTransitionsEnabledPropertyInfo = Bool - type AttrLabel PopoverTransitionsEnabledPropertyInfo = "Popover::transitions-enabled" + type AttrLabel PopoverTransitionsEnabledPropertyInfo = "transitions-enabled" attrGet _ = getPopoverTransitionsEnabled attrSet _ = setPopoverTransitionsEnabled attrConstruct _ = constructPopoverTransitionsEnabled type instance AttributeList Popover = PopoverAttributeList -type PopoverAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointing-to", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("relative-to", PopoverRelativeToPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transitions-enabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type PopoverAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointingTo", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relativeTo", PopoverRelativeToPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionsEnabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data PopoverClosedSignalInfo instance SignalInfo PopoverClosedSignalInfo where @@ -335,13 +685,12 @@ connectSignal _ = connectPopoverClosed type instance SignalList Popover = PopoverSignalList -type PopoverSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PopoverSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Popover::new -- method type : Constructor --- Args : [Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Popover" -- throws : False -- Skip return : False @@ -353,25 +702,24 @@ popoverNew :: (MonadIO m, WidgetK a) => - Maybe (a) -> -- relative_to - m Popover -popoverNew relative_to = liftIO $ do - maybeRelative_to <- case relative_to of + Maybe (a) -- relativeTo + -> m Popover -- result +popoverNew relativeTo = liftIO $ do + maybeRelativeTo <- case relativeTo of Nothing -> return nullPtr - Just jRelative_to -> do - let jRelative_to' = unsafeManagedPtrCastPtr jRelative_to - return jRelative_to' - result <- gtk_popover_new maybeRelative_to + Just jRelativeTo -> do + let jRelativeTo' = unsafeManagedPtrCastPtr jRelativeTo + return jRelativeTo' + result <- gtk_popover_new maybeRelativeTo checkUnexpectedReturnNULL "gtk_popover_new" result result' <- (newObject Popover) result - whenJust relative_to touchManagedPtr + whenJust relativeTo touchManagedPtr return result' -- method Popover::new_from_model -- method type : Constructor --- Args : [Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Popover" -- throws : False -- Skip return : False @@ -384,28 +732,27 @@ popoverNewFromModel :: (MonadIO m, WidgetK a, Gio.MenuModelK b) => - Maybe (a) -> -- relative_to - b -> -- model - m Popover -popoverNewFromModel relative_to model = liftIO $ do - maybeRelative_to <- case relative_to of + Maybe (a) -- relativeTo + -> b -- model + -> m Popover -- result +popoverNewFromModel relativeTo model = liftIO $ do + maybeRelativeTo <- case relativeTo of Nothing -> return nullPtr - Just jRelative_to -> do - let jRelative_to' = unsafeManagedPtrCastPtr jRelative_to - return jRelative_to' + Just jRelativeTo -> do + let jRelativeTo' = unsafeManagedPtrCastPtr jRelativeTo + return jRelativeTo' let model' = unsafeManagedPtrCastPtr model - result <- gtk_popover_new_from_model maybeRelative_to model' + result <- gtk_popover_new_from_model maybeRelativeTo model' checkUnexpectedReturnNULL "gtk_popover_new_from_model" result result' <- (newObject Popover) result - whenJust relative_to touchManagedPtr + whenJust relativeTo touchManagedPtr touchManagedPtr model return result' -- method Popover::bind_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -419,33 +766,36 @@ popoverBindModel :: (MonadIO m, PopoverK a, Gio.MenuModelK b) => - a -> -- _obj - Maybe (b) -> -- model - Maybe (T.Text) -> -- action_namespace - m () -popoverBindModel _obj model action_namespace = liftIO $ do + a -- _obj + -> Maybe (b) -- model + -> Maybe (T.Text) -- actionNamespace + -> m () -- result +popoverBindModel _obj model actionNamespace = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeModel <- case model of Nothing -> return nullPtr Just jModel -> do let jModel' = unsafeManagedPtrCastPtr jModel return jModel' - maybeAction_namespace <- case action_namespace of + maybeActionNamespace <- case actionNamespace of Nothing -> return nullPtr - Just jAction_namespace -> do - jAction_namespace' <- textToCString jAction_namespace - return jAction_namespace' - gtk_popover_bind_model _obj' maybeModel maybeAction_namespace + Just jActionNamespace -> do + jActionNamespace' <- textToCString jActionNamespace + return jActionNamespace' + gtk_popover_bind_model _obj' maybeModel maybeActionNamespace touchManagedPtr _obj whenJust model touchManagedPtr - freeMem maybeAction_namespace + freeMem maybeActionNamespace return () +data PopoverBindModelMethodInfo +instance (signature ~ (Maybe (b) -> Maybe (T.Text) -> m ()), MonadIO m, PopoverK a, Gio.MenuModelK b) => MethodInfo PopoverBindModelMethodInfo a signature where + overloadedMethod _ = popoverBindModel + -- method Popover::get_default_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -457,8 +807,8 @@ popoverGetDefaultWidget :: (MonadIO m, PopoverK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result popoverGetDefaultWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_popover_get_default_widget _obj' @@ -467,11 +817,14 @@ touchManagedPtr _obj return result' +data PopoverGetDefaultWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, PopoverK a) => MethodInfo PopoverGetDefaultWidgetMethodInfo a signature where + overloadedMethod _ = popoverGetDefaultWidget + -- method Popover::get_modal -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -483,8 +836,8 @@ popoverGetModal :: (MonadIO m, PopoverK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result popoverGetModal _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_popover_get_modal _obj' @@ -492,11 +845,14 @@ touchManagedPtr _obj return result' +data PopoverGetModalMethodInfo +instance (signature ~ (m Bool), MonadIO m, PopoverK a) => MethodInfo PopoverGetModalMethodInfo a signature where + overloadedMethod _ = popoverGetModal + -- method Popover::get_pointing_to -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -509,8 +865,8 @@ popoverGetPointingTo :: (MonadIO m, PopoverK a) => - a -> -- _obj - m (Bool,Gdk.Rectangle) + a -- _obj + -> m (Bool,Gdk.Rectangle) -- result popoverGetPointingTo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) @@ -520,11 +876,14 @@ touchManagedPtr _obj return (result', rect') +data PopoverGetPointingToMethodInfo +instance (signature ~ (m (Bool,Gdk.Rectangle)), MonadIO m, PopoverK a) => MethodInfo PopoverGetPointingToMethodInfo a signature where + overloadedMethod _ = popoverGetPointingTo + -- method Popover::get_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PositionType" -- throws : False -- Skip return : False @@ -536,8 +895,8 @@ popoverGetPosition :: (MonadIO m, PopoverK a) => - a -> -- _obj - m PositionType + a -- _obj + -> m PositionType -- result popoverGetPosition _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_popover_get_position _obj' @@ -545,11 +904,14 @@ touchManagedPtr _obj return result' +data PopoverGetPositionMethodInfo +instance (signature ~ (m PositionType), MonadIO m, PopoverK a) => MethodInfo PopoverGetPositionMethodInfo a signature where + overloadedMethod _ = popoverGetPosition + -- method Popover::get_relative_to -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -561,8 +923,8 @@ popoverGetRelativeTo :: (MonadIO m, PopoverK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result popoverGetRelativeTo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_popover_get_relative_to _obj' @@ -571,11 +933,14 @@ touchManagedPtr _obj return result' +data PopoverGetRelativeToMethodInfo +instance (signature ~ (m Widget), MonadIO m, PopoverK a) => MethodInfo PopoverGetRelativeToMethodInfo a signature where + overloadedMethod _ = popoverGetRelativeTo + -- method Popover::get_transitions_enabled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -587,8 +952,8 @@ popoverGetTransitionsEnabled :: (MonadIO m, PopoverK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result popoverGetTransitionsEnabled _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_popover_get_transitions_enabled _obj' @@ -596,11 +961,14 @@ touchManagedPtr _obj return result' +data PopoverGetTransitionsEnabledMethodInfo +instance (signature ~ (m Bool), MonadIO m, PopoverK a) => MethodInfo PopoverGetTransitionsEnabledMethodInfo a signature where + overloadedMethod _ = popoverGetTransitionsEnabled + -- method Popover::set_default_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -613,9 +981,9 @@ popoverSetDefaultWidget :: (MonadIO m, PopoverK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- widget - m () + a -- _obj + -> Maybe (b) -- widget + -> m () -- result popoverSetDefaultWidget _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeWidget <- case widget of @@ -628,11 +996,14 @@ whenJust widget touchManagedPtr return () +data PopoverSetDefaultWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PopoverK a, WidgetK b) => MethodInfo PopoverSetDefaultWidgetMethodInfo a signature where + overloadedMethod _ = popoverSetDefaultWidget + -- method Popover::set_modal -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -645,9 +1016,9 @@ popoverSetModal :: (MonadIO m, PopoverK a) => - a -> -- _obj - Bool -> -- modal - m () + a -- _obj + -> Bool -- modal + -> m () -- result popoverSetModal _obj modal = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let modal' = (fromIntegral . fromEnum) modal @@ -655,11 +1026,14 @@ touchManagedPtr _obj return () +data PopoverSetModalMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PopoverK a) => MethodInfo PopoverSetModalMethodInfo a signature where + overloadedMethod _ = popoverSetModal + -- method Popover::set_pointing_to -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -672,9 +1046,9 @@ popoverSetPointingTo :: (MonadIO m, PopoverK a) => - a -> -- _obj - Gdk.Rectangle -> -- rect - m () + a -- _obj + -> Gdk.Rectangle -- rect + -> m () -- result popoverSetPointingTo _obj rect = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let rect' = unsafeManagedPtrGetPtr rect @@ -683,11 +1057,14 @@ touchManagedPtr rect return () +data PopoverSetPointingToMethodInfo +instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, PopoverK a) => MethodInfo PopoverSetPointingToMethodInfo a signature where + overloadedMethod _ = popoverSetPointingTo + -- method Popover::set_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -700,9 +1077,9 @@ popoverSetPosition :: (MonadIO m, PopoverK a) => - a -> -- _obj - PositionType -> -- position - m () + a -- _obj + -> PositionType -- position + -> m () -- result popoverSetPosition _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let position' = (fromIntegral . fromEnum) position @@ -710,11 +1087,14 @@ touchManagedPtr _obj return () +data PopoverSetPositionMethodInfo +instance (signature ~ (PositionType -> m ()), MonadIO m, PopoverK a) => MethodInfo PopoverSetPositionMethodInfo a signature where + overloadedMethod _ = popoverSetPosition + -- method Popover::set_relative_to -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -727,26 +1107,29 @@ popoverSetRelativeTo :: (MonadIO m, PopoverK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- relative_to - m () -popoverSetRelativeTo _obj relative_to = liftIO $ do + a -- _obj + -> Maybe (b) -- relativeTo + -> m () -- result +popoverSetRelativeTo _obj relativeTo = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeRelative_to <- case relative_to of + maybeRelativeTo <- case relativeTo of Nothing -> return nullPtr - Just jRelative_to -> do - let jRelative_to' = unsafeManagedPtrCastPtr jRelative_to - return jRelative_to' - gtk_popover_set_relative_to _obj' maybeRelative_to + Just jRelativeTo -> do + let jRelativeTo' = unsafeManagedPtrCastPtr jRelativeTo + return jRelativeTo' + gtk_popover_set_relative_to _obj' maybeRelativeTo touchManagedPtr _obj - whenJust relative_to touchManagedPtr + whenJust relativeTo touchManagedPtr return () +data PopoverSetRelativeToMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PopoverK a, WidgetK b) => MethodInfo PopoverSetRelativeToMethodInfo a signature where + overloadedMethod _ = popoverSetRelativeTo + -- method Popover::set_transitions_enabled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transitions_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "transitions_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transitions_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -759,14 +1142,18 @@ popoverSetTransitionsEnabled :: (MonadIO m, PopoverK a) => - a -> -- _obj - Bool -> -- transitions_enabled - m () -popoverSetTransitionsEnabled _obj transitions_enabled = liftIO $ do + a -- _obj + -> Bool -- transitionsEnabled + -> m () -- result +popoverSetTransitionsEnabled _obj transitionsEnabled = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let transitions_enabled' = (fromIntegral . fromEnum) transitions_enabled - gtk_popover_set_transitions_enabled _obj' transitions_enabled' + let transitionsEnabled' = (fromIntegral . fromEnum) transitionsEnabled + gtk_popover_set_transitions_enabled _obj' transitionsEnabled' touchManagedPtr _obj return () + +data PopoverSetTransitionsEnabledMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PopoverK a) => MethodInfo PopoverSetTransitionsEnabledMethodInfo a signature where + overloadedMethod _ = popoverSetTransitionsEnabled diff --git a/GI/Gtk/Objects/Popover.hs-boot b/GI/Gtk/Objects/Popover.hs-boot --- a/GI/Gtk/Objects/Popover.hs-boot +++ b/GI/Gtk/Objects/Popover.hs-boot @@ -17,3 +17,16 @@ data PopoverRelativeToPropertyInfo data PopoverTransitionsEnabledPropertyInfo data PopoverClosedSignalInfo +data PopoverBindModelMethodInfo +data PopoverGetDefaultWidgetMethodInfo +data PopoverGetModalMethodInfo +data PopoverGetPointingToMethodInfo +data PopoverGetPositionMethodInfo +data PopoverGetRelativeToMethodInfo +data PopoverGetTransitionsEnabledMethodInfo +data PopoverSetDefaultWidgetMethodInfo +data PopoverSetModalMethodInfo +data PopoverSetPointingToMethodInfo +data PopoverSetPositionMethodInfo +data PopoverSetRelativeToMethodInfo +data PopoverSetTransitionsEnabledMethodInfo diff --git a/GI/Gtk/Objects/PopoverAccessible.hs b/GI/Gtk/Objects/PopoverAccessible.hs --- a/GI/Gtk/Objects/PopoverAccessible.hs +++ b/GI/Gtk/Objects/PopoverAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,78 @@ noPopoverAccessible :: Maybe PopoverAccessible noPopoverAccessible = Nothing +type family ResolvePopoverAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolvePopoverAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolvePopoverAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePopoverAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePopoverAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolvePopoverAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolvePopoverAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePopoverAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePopoverAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolvePopoverAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolvePopoverAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePopoverAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePopoverAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePopoverAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolvePopoverAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolvePopoverAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePopoverAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolvePopoverAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolvePopoverAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolvePopoverAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePopoverAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolvePopoverAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolvePopoverAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolvePopoverAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolvePopoverAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePopoverAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePopoverAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePopoverAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePopoverAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePopoverAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePopoverAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePopoverAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePopoverAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolvePopoverAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolvePopoverAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePopoverAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolvePopoverAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolvePopoverAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolvePopoverAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolvePopoverAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolvePopoverAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolvePopoverAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolvePopoverAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolvePopoverAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePopoverAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePopoverAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolvePopoverAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolvePopoverAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolvePopoverAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePopoverAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolvePopoverAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolvePopoverAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolvePopoverAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolvePopoverAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolvePopoverAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePopoverAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolvePopoverAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolvePopoverAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolvePopoverAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePopoverAccessibleMethod t PopoverAccessible, MethodInfo info PopoverAccessible p) => IsLabelProxy t (PopoverAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePopoverAccessibleMethod t PopoverAccessible, MethodInfo info PopoverAccessible p) => IsLabel t (PopoverAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList PopoverAccessible = PopoverAccessibleAttributeList -type PopoverAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type PopoverAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList PopoverAccessible = PopoverAccessibleSignalList -type PopoverAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PopoverAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/PopoverMenu.hs b/GI/Gtk/Objects/PopoverMenu.hs --- a/GI/Gtk/Objects/PopoverMenu.hs +++ b/GI/Gtk/Objects/PopoverMenu.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,6 +22,7 @@ -- ** popoverMenuOpenSubmenu + PopoverMenuOpenSubmenuMethodInfo , popoverMenuOpenSubmenu , @@ -71,6 +73,343 @@ noPopoverMenu :: Maybe PopoverMenu noPopoverMenu = Nothing +type family ResolvePopoverMenuMethod (t :: Symbol) (o :: *) :: * where + ResolvePopoverMenuMethod "activate" o = WidgetActivateMethodInfo + ResolvePopoverMenuMethod "add" o = ContainerAddMethodInfo + ResolvePopoverMenuMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolvePopoverMenuMethod "addChild" o = BuildableAddChildMethodInfo + ResolvePopoverMenuMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolvePopoverMenuMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolvePopoverMenuMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolvePopoverMenuMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolvePopoverMenuMethod "bindModel" o = PopoverBindModelMethodInfo + ResolvePopoverMenuMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePopoverMenuMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePopoverMenuMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolvePopoverMenuMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolvePopoverMenuMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolvePopoverMenuMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolvePopoverMenuMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolvePopoverMenuMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolvePopoverMenuMethod "childType" o = ContainerChildTypeMethodInfo + ResolvePopoverMenuMethod "classPath" o = WidgetClassPathMethodInfo + ResolvePopoverMenuMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolvePopoverMenuMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolvePopoverMenuMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolvePopoverMenuMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolvePopoverMenuMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolvePopoverMenuMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolvePopoverMenuMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolvePopoverMenuMethod "destroy" o = WidgetDestroyMethodInfo + ResolvePopoverMenuMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolvePopoverMenuMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolvePopoverMenuMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolvePopoverMenuMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolvePopoverMenuMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolvePopoverMenuMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolvePopoverMenuMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolvePopoverMenuMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolvePopoverMenuMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolvePopoverMenuMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolvePopoverMenuMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolvePopoverMenuMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolvePopoverMenuMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolvePopoverMenuMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolvePopoverMenuMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolvePopoverMenuMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolvePopoverMenuMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolvePopoverMenuMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolvePopoverMenuMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolvePopoverMenuMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolvePopoverMenuMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolvePopoverMenuMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolvePopoverMenuMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolvePopoverMenuMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolvePopoverMenuMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolvePopoverMenuMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolvePopoverMenuMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolvePopoverMenuMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolvePopoverMenuMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolvePopoverMenuMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolvePopoverMenuMethod "draw" o = WidgetDrawMethodInfo + ResolvePopoverMenuMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolvePopoverMenuMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolvePopoverMenuMethod "event" o = WidgetEventMethodInfo + ResolvePopoverMenuMethod "forall" o = ContainerForallMethodInfo + ResolvePopoverMenuMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePopoverMenuMethod "foreach" o = ContainerForeachMethodInfo + ResolvePopoverMenuMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolvePopoverMenuMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePopoverMenuMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolvePopoverMenuMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolvePopoverMenuMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolvePopoverMenuMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolvePopoverMenuMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolvePopoverMenuMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolvePopoverMenuMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolvePopoverMenuMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolvePopoverMenuMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolvePopoverMenuMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolvePopoverMenuMethod "hide" o = WidgetHideMethodInfo + ResolvePopoverMenuMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolvePopoverMenuMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolvePopoverMenuMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolvePopoverMenuMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolvePopoverMenuMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolvePopoverMenuMethod "intersect" o = WidgetIntersectMethodInfo + ResolvePopoverMenuMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolvePopoverMenuMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolvePopoverMenuMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolvePopoverMenuMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePopoverMenuMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolvePopoverMenuMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolvePopoverMenuMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolvePopoverMenuMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolvePopoverMenuMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolvePopoverMenuMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolvePopoverMenuMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolvePopoverMenuMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolvePopoverMenuMethod "map" o = WidgetMapMethodInfo + ResolvePopoverMenuMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolvePopoverMenuMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolvePopoverMenuMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolvePopoverMenuMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolvePopoverMenuMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolvePopoverMenuMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolvePopoverMenuMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolvePopoverMenuMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolvePopoverMenuMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePopoverMenuMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePopoverMenuMethod "openSubmenu" o = PopoverMenuOpenSubmenuMethodInfo + ResolvePopoverMenuMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolvePopoverMenuMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolvePopoverMenuMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolvePopoverMenuMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolvePopoverMenuMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolvePopoverMenuMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolvePopoverMenuMethod "path" o = WidgetPathMethodInfo + ResolvePopoverMenuMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolvePopoverMenuMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolvePopoverMenuMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolvePopoverMenuMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolvePopoverMenuMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolvePopoverMenuMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolvePopoverMenuMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolvePopoverMenuMethod "realize" o = WidgetRealizeMethodInfo + ResolvePopoverMenuMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePopoverMenuMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePopoverMenuMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolvePopoverMenuMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolvePopoverMenuMethod "remove" o = ContainerRemoveMethodInfo + ResolvePopoverMenuMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolvePopoverMenuMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolvePopoverMenuMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolvePopoverMenuMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolvePopoverMenuMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolvePopoverMenuMethod "reparent" o = WidgetReparentMethodInfo + ResolvePopoverMenuMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePopoverMenuMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePopoverMenuMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolvePopoverMenuMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolvePopoverMenuMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolvePopoverMenuMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePopoverMenuMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolvePopoverMenuMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolvePopoverMenuMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolvePopoverMenuMethod "show" o = WidgetShowMethodInfo + ResolvePopoverMenuMethod "showAll" o = WidgetShowAllMethodInfo + ResolvePopoverMenuMethod "showNow" o = WidgetShowNowMethodInfo + ResolvePopoverMenuMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolvePopoverMenuMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolvePopoverMenuMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolvePopoverMenuMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePopoverMenuMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePopoverMenuMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolvePopoverMenuMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolvePopoverMenuMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolvePopoverMenuMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePopoverMenuMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolvePopoverMenuMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolvePopoverMenuMethod "unmap" o = WidgetUnmapMethodInfo + ResolvePopoverMenuMethod "unparent" o = WidgetUnparentMethodInfo + ResolvePopoverMenuMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolvePopoverMenuMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePopoverMenuMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolvePopoverMenuMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolvePopoverMenuMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolvePopoverMenuMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePopoverMenuMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolvePopoverMenuMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolvePopoverMenuMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolvePopoverMenuMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolvePopoverMenuMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolvePopoverMenuMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolvePopoverMenuMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolvePopoverMenuMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolvePopoverMenuMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolvePopoverMenuMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolvePopoverMenuMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolvePopoverMenuMethod "getChild" o = BinGetChildMethodInfo + ResolvePopoverMenuMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolvePopoverMenuMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolvePopoverMenuMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolvePopoverMenuMethod "getClip" o = WidgetGetClipMethodInfo + ResolvePopoverMenuMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolvePopoverMenuMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolvePopoverMenuMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePopoverMenuMethod "getDefaultWidget" o = PopoverGetDefaultWidgetMethodInfo + ResolvePopoverMenuMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolvePopoverMenuMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolvePopoverMenuMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolvePopoverMenuMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolvePopoverMenuMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolvePopoverMenuMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolvePopoverMenuMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolvePopoverMenuMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolvePopoverMenuMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolvePopoverMenuMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolvePopoverMenuMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolvePopoverMenuMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolvePopoverMenuMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolvePopoverMenuMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolvePopoverMenuMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolvePopoverMenuMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolvePopoverMenuMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolvePopoverMenuMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolvePopoverMenuMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolvePopoverMenuMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolvePopoverMenuMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolvePopoverMenuMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolvePopoverMenuMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolvePopoverMenuMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolvePopoverMenuMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolvePopoverMenuMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolvePopoverMenuMethod "getModal" o = PopoverGetModalMethodInfo + ResolvePopoverMenuMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolvePopoverMenuMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolvePopoverMenuMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolvePopoverMenuMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolvePopoverMenuMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolvePopoverMenuMethod "getParent" o = WidgetGetParentMethodInfo + ResolvePopoverMenuMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolvePopoverMenuMethod "getPath" o = WidgetGetPathMethodInfo + ResolvePopoverMenuMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolvePopoverMenuMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolvePopoverMenuMethod "getPointingTo" o = PopoverGetPointingToMethodInfo + ResolvePopoverMenuMethod "getPosition" o = PopoverGetPositionMethodInfo + ResolvePopoverMenuMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolvePopoverMenuMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolvePopoverMenuMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolvePopoverMenuMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolvePopoverMenuMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolvePopoverMenuMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolvePopoverMenuMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePopoverMenuMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePopoverMenuMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolvePopoverMenuMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolvePopoverMenuMethod "getRelativeTo" o = PopoverGetRelativeToMethodInfo + ResolvePopoverMenuMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolvePopoverMenuMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolvePopoverMenuMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolvePopoverMenuMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolvePopoverMenuMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolvePopoverMenuMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolvePopoverMenuMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolvePopoverMenuMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolvePopoverMenuMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolvePopoverMenuMethod "getState" o = WidgetGetStateMethodInfo + ResolvePopoverMenuMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolvePopoverMenuMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolvePopoverMenuMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolvePopoverMenuMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolvePopoverMenuMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolvePopoverMenuMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolvePopoverMenuMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolvePopoverMenuMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolvePopoverMenuMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolvePopoverMenuMethod "getTransitionsEnabled" o = PopoverGetTransitionsEnabledMethodInfo + ResolvePopoverMenuMethod "getValign" o = WidgetGetValignMethodInfo + ResolvePopoverMenuMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolvePopoverMenuMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolvePopoverMenuMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolvePopoverMenuMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolvePopoverMenuMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolvePopoverMenuMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolvePopoverMenuMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolvePopoverMenuMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolvePopoverMenuMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolvePopoverMenuMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolvePopoverMenuMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolvePopoverMenuMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolvePopoverMenuMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolvePopoverMenuMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolvePopoverMenuMethod "setClip" o = WidgetSetClipMethodInfo + ResolvePopoverMenuMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolvePopoverMenuMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePopoverMenuMethod "setDefaultWidget" o = PopoverSetDefaultWidgetMethodInfo + ResolvePopoverMenuMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolvePopoverMenuMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolvePopoverMenuMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolvePopoverMenuMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolvePopoverMenuMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolvePopoverMenuMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolvePopoverMenuMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolvePopoverMenuMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolvePopoverMenuMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolvePopoverMenuMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolvePopoverMenuMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolvePopoverMenuMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolvePopoverMenuMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolvePopoverMenuMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolvePopoverMenuMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolvePopoverMenuMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolvePopoverMenuMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolvePopoverMenuMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolvePopoverMenuMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolvePopoverMenuMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolvePopoverMenuMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolvePopoverMenuMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolvePopoverMenuMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolvePopoverMenuMethod "setModal" o = PopoverSetModalMethodInfo + ResolvePopoverMenuMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolvePopoverMenuMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolvePopoverMenuMethod "setParent" o = WidgetSetParentMethodInfo + ResolvePopoverMenuMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolvePopoverMenuMethod "setPointingTo" o = PopoverSetPointingToMethodInfo + ResolvePopoverMenuMethod "setPosition" o = PopoverSetPositionMethodInfo + ResolvePopoverMenuMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePopoverMenuMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolvePopoverMenuMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolvePopoverMenuMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolvePopoverMenuMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolvePopoverMenuMethod "setRelativeTo" o = PopoverSetRelativeToMethodInfo + ResolvePopoverMenuMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolvePopoverMenuMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolvePopoverMenuMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolvePopoverMenuMethod "setState" o = WidgetSetStateMethodInfo + ResolvePopoverMenuMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolvePopoverMenuMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolvePopoverMenuMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolvePopoverMenuMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolvePopoverMenuMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolvePopoverMenuMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolvePopoverMenuMethod "setTransitionsEnabled" o = PopoverSetTransitionsEnabledMethodInfo + ResolvePopoverMenuMethod "setValign" o = WidgetSetValignMethodInfo + ResolvePopoverMenuMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolvePopoverMenuMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolvePopoverMenuMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolvePopoverMenuMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolvePopoverMenuMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolvePopoverMenuMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePopoverMenuMethod t PopoverMenu, MethodInfo info PopoverMenu p) => IsLabelProxy t (PopoverMenu -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePopoverMenuMethod t PopoverMenu, MethodInfo info PopoverMenu p) => IsLabel t (PopoverMenu -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "visible-submenu" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] @@ -90,22 +429,21 @@ type AttrSetTypeConstraint PopoverMenuVisibleSubmenuPropertyInfo = (~) T.Text type AttrBaseTypeConstraint PopoverMenuVisibleSubmenuPropertyInfo = PopoverMenuK type AttrGetType PopoverMenuVisibleSubmenuPropertyInfo = T.Text - type AttrLabel PopoverMenuVisibleSubmenuPropertyInfo = "PopoverMenu::visible-submenu" + type AttrLabel PopoverMenuVisibleSubmenuPropertyInfo = "visible-submenu" attrGet _ = getPopoverMenuVisibleSubmenu attrSet _ = setPopoverMenuVisibleSubmenu attrConstruct _ = constructPopoverMenuVisibleSubmenu type instance AttributeList PopoverMenu = PopoverMenuAttributeList -type PopoverMenuAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointing-to", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("relative-to", PopoverRelativeToPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transitions-enabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-submenu", PopoverMenuVisibleSubmenuPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type PopoverMenuAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointingTo", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relativeTo", PopoverRelativeToPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionsEnabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleSubmenu", PopoverMenuVisibleSubmenuPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList PopoverMenu = PopoverMenuSignalList -type PopoverMenuSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PopoverMenuSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method PopoverMenu::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "PopoverMenu" -- throws : False -- Skip return : False @@ -116,7 +454,7 @@ popoverMenuNew :: (MonadIO m) => - m PopoverMenu + m PopoverMenu -- result popoverMenuNew = liftIO $ do result <- gtk_popover_menu_new checkUnexpectedReturnNULL "gtk_popover_menu_new" result @@ -125,9 +463,8 @@ -- method PopoverMenu::open_submenu -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PopoverMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PopoverMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PopoverMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -140,9 +477,9 @@ popoverMenuOpenSubmenu :: (MonadIO m, PopoverMenuK a) => - a -> -- _obj - T.Text -> -- name - m () + a -- _obj + -> T.Text -- name + -> m () -- result popoverMenuOpenSubmenu _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -150,5 +487,9 @@ touchManagedPtr _obj freeMem name' return () + +data PopoverMenuOpenSubmenuMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, PopoverMenuK a) => MethodInfo PopoverMenuOpenSubmenuMethodInfo a signature where + overloadedMethod _ = popoverMenuOpenSubmenu diff --git a/GI/Gtk/Objects/PopoverMenu.hs-boot b/GI/Gtk/Objects/PopoverMenu.hs-boot --- a/GI/Gtk/Objects/PopoverMenu.hs-boot +++ b/GI/Gtk/Objects/PopoverMenu.hs-boot @@ -12,3 +12,4 @@ class GObject o => PopoverMenuK o instance (GObject o, IsDescendantOf PopoverMenu o) => PopoverMenuK o data PopoverMenuVisibleSubmenuPropertyInfo +data PopoverMenuOpenSubmenuMethodInfo diff --git a/GI/Gtk/Objects/PrintContext.hs b/GI/Gtk/Objects/PrintContext.hs --- a/GI/Gtk/Objects/PrintContext.hs +++ b/GI/Gtk/Objects/PrintContext.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,46 +18,57 @@ -- * Methods -- ** printContextCreatePangoContext + PrintContextCreatePangoContextMethodInfo, printContextCreatePangoContext , -- ** printContextCreatePangoLayout + PrintContextCreatePangoLayoutMethodInfo , printContextCreatePangoLayout , -- ** printContextGetCairoContext + PrintContextGetCairoContextMethodInfo , printContextGetCairoContext , -- ** printContextGetDpiX + PrintContextGetDpiXMethodInfo , printContextGetDpiX , -- ** printContextGetDpiY + PrintContextGetDpiYMethodInfo , printContextGetDpiY , -- ** printContextGetHardMargins + PrintContextGetHardMarginsMethodInfo , printContextGetHardMargins , -- ** printContextGetHeight + PrintContextGetHeightMethodInfo , printContextGetHeight , -- ** printContextGetPageSetup + PrintContextGetPageSetupMethodInfo , printContextGetPageSetup , -- ** printContextGetPangoFontmap + PrintContextGetPangoFontmapMethodInfo , printContextGetPangoFontmap , -- ** printContextGetWidth + PrintContextGetWidthMethodInfo , printContextGetWidth , -- ** printContextSetCairoContext + PrintContextSetCairoContextMethodInfo , printContextSetCairoContext , @@ -98,17 +110,60 @@ noPrintContext :: Maybe PrintContext noPrintContext = Nothing +type family ResolvePrintContextMethod (t :: Symbol) (o :: *) :: * where + ResolvePrintContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePrintContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePrintContextMethod "createPangoContext" o = PrintContextCreatePangoContextMethodInfo + ResolvePrintContextMethod "createPangoLayout" o = PrintContextCreatePangoLayoutMethodInfo + ResolvePrintContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePrintContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePrintContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePrintContextMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePrintContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePrintContextMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePrintContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePrintContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePrintContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePrintContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePrintContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePrintContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePrintContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePrintContextMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePrintContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePrintContextMethod "getCairoContext" o = PrintContextGetCairoContextMethodInfo + ResolvePrintContextMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePrintContextMethod "getDpiX" o = PrintContextGetDpiXMethodInfo + ResolvePrintContextMethod "getDpiY" o = PrintContextGetDpiYMethodInfo + ResolvePrintContextMethod "getHardMargins" o = PrintContextGetHardMarginsMethodInfo + ResolvePrintContextMethod "getHeight" o = PrintContextGetHeightMethodInfo + ResolvePrintContextMethod "getPageSetup" o = PrintContextGetPageSetupMethodInfo + ResolvePrintContextMethod "getPangoFontmap" o = PrintContextGetPangoFontmapMethodInfo + ResolvePrintContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePrintContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePrintContextMethod "getWidth" o = PrintContextGetWidthMethodInfo + ResolvePrintContextMethod "setCairoContext" o = PrintContextSetCairoContextMethodInfo + ResolvePrintContextMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePrintContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePrintContextMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePrintContextMethod t PrintContext, MethodInfo info PrintContext p) => IsLabelProxy t (PrintContext -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePrintContextMethod t PrintContext, MethodInfo info PrintContext p) => IsLabel t (PrintContext -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList PrintContext = PrintContextAttributeList type PrintContextAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList PrintContext = PrintContextSignalList -type PrintContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PrintContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method PrintContext::create_pango_context -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "Context" -- throws : False -- Skip return : False @@ -120,8 +175,8 @@ printContextCreatePangoContext :: (MonadIO m, PrintContextK a) => - a -> -- _obj - m Pango.Context + a -- _obj + -> m Pango.Context -- result printContextCreatePangoContext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_context_create_pango_context _obj' @@ -130,11 +185,14 @@ touchManagedPtr _obj return result' +data PrintContextCreatePangoContextMethodInfo +instance (signature ~ (m Pango.Context), MonadIO m, PrintContextK a) => MethodInfo PrintContextCreatePangoContextMethodInfo a signature where + overloadedMethod _ = printContextCreatePangoContext + -- method PrintContext::create_pango_layout -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "Layout" -- throws : False -- Skip return : False @@ -146,8 +204,8 @@ printContextCreatePangoLayout :: (MonadIO m, PrintContextK a) => - a -> -- _obj - m Pango.Layout + a -- _obj + -> m Pango.Layout -- result printContextCreatePangoLayout _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_context_create_pango_layout _obj' @@ -156,11 +214,14 @@ touchManagedPtr _obj return result' +data PrintContextCreatePangoLayoutMethodInfo +instance (signature ~ (m Pango.Layout), MonadIO m, PrintContextK a) => MethodInfo PrintContextCreatePangoLayoutMethodInfo a signature where + overloadedMethod _ = printContextCreatePangoLayout + -- method PrintContext::get_cairo_context -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Context" -- throws : False -- Skip return : False @@ -172,8 +233,8 @@ printContextGetCairoContext :: (MonadIO m, PrintContextK a) => - a -> -- _obj - m Cairo.Context + a -- _obj + -> m Cairo.Context -- result printContextGetCairoContext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_context_get_cairo_context _obj' @@ -182,11 +243,14 @@ touchManagedPtr _obj return result' +data PrintContextGetCairoContextMethodInfo +instance (signature ~ (m Cairo.Context), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetCairoContextMethodInfo a signature where + overloadedMethod _ = printContextGetCairoContext + -- method PrintContext::get_dpi_x -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -198,8 +262,8 @@ printContextGetDpiX :: (MonadIO m, PrintContextK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result printContextGetDpiX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_context_get_dpi_x _obj' @@ -207,11 +271,14 @@ touchManagedPtr _obj return result' +data PrintContextGetDpiXMethodInfo +instance (signature ~ (m Double), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetDpiXMethodInfo a signature where + overloadedMethod _ = printContextGetDpiX + -- method PrintContext::get_dpi_y -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -223,8 +290,8 @@ printContextGetDpiY :: (MonadIO m, PrintContextK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result printContextGetDpiY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_context_get_dpi_y _obj' @@ -232,11 +299,14 @@ touchManagedPtr _obj return result' +data PrintContextGetDpiYMethodInfo +instance (signature ~ (m Double), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetDpiYMethodInfo a signature where + overloadedMethod _ = printContextGetDpiY + -- method PrintContext::get_hard_margins -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "bottom", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "left", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "right", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "bottom", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "left", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "right", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -252,8 +322,8 @@ printContextGetHardMargins :: (MonadIO m, PrintContextK a) => - a -> -- _obj - m (Bool,Double,Double,Double,Double) + a -- _obj + -> m (Bool,Double,Double,Double,Double) -- result printContextGetHardMargins _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj top <- allocMem :: IO (Ptr CDouble) @@ -277,11 +347,14 @@ freeMem right return (result', top'', bottom'', left'', right'') +data PrintContextGetHardMarginsMethodInfo +instance (signature ~ (m (Bool,Double,Double,Double,Double)), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetHardMarginsMethodInfo a signature where + overloadedMethod _ = printContextGetHardMargins + -- method PrintContext::get_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -293,8 +366,8 @@ printContextGetHeight :: (MonadIO m, PrintContextK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result printContextGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_context_get_height _obj' @@ -302,11 +375,14 @@ touchManagedPtr _obj return result' +data PrintContextGetHeightMethodInfo +instance (signature ~ (m Double), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetHeightMethodInfo a signature where + overloadedMethod _ = printContextGetHeight + -- method PrintContext::get_page_setup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PageSetup" -- throws : False -- Skip return : False @@ -318,8 +394,8 @@ printContextGetPageSetup :: (MonadIO m, PrintContextK a) => - a -> -- _obj - m PageSetup + a -- _obj + -> m PageSetup -- result printContextGetPageSetup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_context_get_page_setup _obj' @@ -328,11 +404,14 @@ touchManagedPtr _obj return result' +data PrintContextGetPageSetupMethodInfo +instance (signature ~ (m PageSetup), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetPageSetupMethodInfo a signature where + overloadedMethod _ = printContextGetPageSetup + -- method PrintContext::get_pango_fontmap -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "FontMap" -- throws : False -- Skip return : False @@ -344,8 +423,8 @@ printContextGetPangoFontmap :: (MonadIO m, PrintContextK a) => - a -> -- _obj - m Pango.FontMap + a -- _obj + -> m Pango.FontMap -- result printContextGetPangoFontmap _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_context_get_pango_fontmap _obj' @@ -354,11 +433,14 @@ touchManagedPtr _obj return result' +data PrintContextGetPangoFontmapMethodInfo +instance (signature ~ (m Pango.FontMap), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetPangoFontmapMethodInfo a signature where + overloadedMethod _ = printContextGetPangoFontmap + -- method PrintContext::get_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -370,8 +452,8 @@ printContextGetWidth :: (MonadIO m, PrintContextK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result printContextGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_context_get_width _obj' @@ -379,11 +461,14 @@ touchManagedPtr _obj return result' +data PrintContextGetWidthMethodInfo +instance (signature ~ (m Double), MonadIO m, PrintContextK a) => MethodInfo PrintContextGetWidthMethodInfo a signature where + overloadedMethod _ = printContextGetWidth + -- method PrintContext::set_cairo_context -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dpi_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dpi_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -398,19 +483,23 @@ printContextSetCairoContext :: (MonadIO m, PrintContextK a) => - a -> -- _obj - Cairo.Context -> -- cr - Double -> -- dpi_x - Double -> -- dpi_y - m () -printContextSetCairoContext _obj cr dpi_x dpi_y = liftIO $ do + a -- _obj + -> Cairo.Context -- cr + -> Double -- dpiX + -> Double -- dpiY + -> m () -- result +printContextSetCairoContext _obj cr dpiX dpiY = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cr' = unsafeManagedPtrGetPtr cr - let dpi_x' = realToFrac dpi_x - let dpi_y' = realToFrac dpi_y - gtk_print_context_set_cairo_context _obj' cr' dpi_x' dpi_y' + let dpiX' = realToFrac dpiX + let dpiY' = realToFrac dpiY + gtk_print_context_set_cairo_context _obj' cr' dpiX' dpiY' touchManagedPtr _obj touchManagedPtr cr return () + +data PrintContextSetCairoContextMethodInfo +instance (signature ~ (Cairo.Context -> Double -> Double -> m ()), MonadIO m, PrintContextK a) => MethodInfo PrintContextSetCairoContextMethodInfo a signature where + overloadedMethod _ = printContextSetCairoContext diff --git a/GI/Gtk/Objects/PrintContext.hs-boot b/GI/Gtk/Objects/PrintContext.hs-boot --- a/GI/Gtk/Objects/PrintContext.hs-boot +++ b/GI/Gtk/Objects/PrintContext.hs-boot @@ -11,3 +11,14 @@ instance GObject PrintContext where class GObject o => PrintContextK o instance (GObject o, IsDescendantOf PrintContext o) => PrintContextK o +data PrintContextCreatePangoContextMethodInfo +data PrintContextCreatePangoLayoutMethodInfo +data PrintContextGetCairoContextMethodInfo +data PrintContextGetDpiXMethodInfo +data PrintContextGetDpiYMethodInfo +data PrintContextGetHardMarginsMethodInfo +data PrintContextGetHeightMethodInfo +data PrintContextGetPageSetupMethodInfo +data PrintContextGetPangoFontmapMethodInfo +data PrintContextGetWidthMethodInfo +data PrintContextSetCairoContextMethodInfo diff --git a/GI/Gtk/Objects/PrintOperation.hs b/GI/Gtk/Objects/PrintOperation.hs --- a/GI/Gtk/Objects/PrintOperation.hs +++ b/GI/Gtk/Objects/PrintOperation.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,50 +18,62 @@ -- * Methods -- ** printOperationCancel + PrintOperationCancelMethodInfo , printOperationCancel , -- ** printOperationDrawPageFinish + PrintOperationDrawPageFinishMethodInfo , printOperationDrawPageFinish , -- ** printOperationGetDefaultPageSetup + PrintOperationGetDefaultPageSetupMethodInfo, printOperationGetDefaultPageSetup , -- ** printOperationGetEmbedPageSetup + PrintOperationGetEmbedPageSetupMethodInfo, printOperationGetEmbedPageSetup , -- ** printOperationGetError + PrintOperationGetErrorMethodInfo , printOperationGetError , -- ** printOperationGetHasSelection + PrintOperationGetHasSelectionMethodInfo , printOperationGetHasSelection , -- ** printOperationGetNPagesToPrint + PrintOperationGetNPagesToPrintMethodInfo, printOperationGetNPagesToPrint , -- ** printOperationGetPrintSettings + PrintOperationGetPrintSettingsMethodInfo, printOperationGetPrintSettings , -- ** printOperationGetStatus + PrintOperationGetStatusMethodInfo , printOperationGetStatus , -- ** printOperationGetStatusString + PrintOperationGetStatusStringMethodInfo , printOperationGetStatusString , -- ** printOperationGetSupportSelection + PrintOperationGetSupportSelectionMethodInfo, printOperationGetSupportSelection , -- ** printOperationIsFinished + PrintOperationIsFinishedMethodInfo , printOperationIsFinished , @@ -69,70 +82,87 @@ -- ** printOperationRun + PrintOperationRunMethodInfo , printOperationRun , -- ** printOperationSetAllowAsync + PrintOperationSetAllowAsyncMethodInfo , printOperationSetAllowAsync , -- ** printOperationSetCurrentPage + PrintOperationSetCurrentPageMethodInfo , printOperationSetCurrentPage , -- ** printOperationSetCustomTabLabel + PrintOperationSetCustomTabLabelMethodInfo, printOperationSetCustomTabLabel , -- ** printOperationSetDefaultPageSetup + PrintOperationSetDefaultPageSetupMethodInfo, printOperationSetDefaultPageSetup , -- ** printOperationSetDeferDrawing + PrintOperationSetDeferDrawingMethodInfo , printOperationSetDeferDrawing , -- ** printOperationSetEmbedPageSetup + PrintOperationSetEmbedPageSetupMethodInfo, printOperationSetEmbedPageSetup , -- ** printOperationSetExportFilename + PrintOperationSetExportFilenameMethodInfo, printOperationSetExportFilename , -- ** printOperationSetHasSelection + PrintOperationSetHasSelectionMethodInfo , printOperationSetHasSelection , -- ** printOperationSetJobName + PrintOperationSetJobNameMethodInfo , printOperationSetJobName , -- ** printOperationSetNPages + PrintOperationSetNPagesMethodInfo , printOperationSetNPages , -- ** printOperationSetPrintSettings + PrintOperationSetPrintSettingsMethodInfo, printOperationSetPrintSettings , -- ** printOperationSetShowProgress + PrintOperationSetShowProgressMethodInfo , printOperationSetShowProgress , -- ** printOperationSetSupportSelection + PrintOperationSetSupportSelectionMethodInfo, printOperationSetSupportSelection , -- ** printOperationSetTrackPrintStatus + PrintOperationSetTrackPrintStatusMethodInfo, printOperationSetTrackPrintStatus , -- ** printOperationSetUnit + PrintOperationSetUnitMethodInfo , printOperationSetUnit , -- ** printOperationSetUseFullPage + PrintOperationSetUseFullPageMethodInfo , printOperationSetUseFullPage , @@ -430,6 +460,71 @@ noPrintOperation :: Maybe PrintOperation noPrintOperation = Nothing +type family ResolvePrintOperationMethod (t :: Symbol) (o :: *) :: * where + ResolvePrintOperationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePrintOperationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePrintOperationMethod "cancel" o = PrintOperationCancelMethodInfo + ResolvePrintOperationMethod "drawPageFinish" o = PrintOperationDrawPageFinishMethodInfo + ResolvePrintOperationMethod "endPreview" o = PrintOperationPreviewEndPreviewMethodInfo + ResolvePrintOperationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePrintOperationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePrintOperationMethod "isFinished" o = PrintOperationIsFinishedMethodInfo + ResolvePrintOperationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePrintOperationMethod "isSelected" o = PrintOperationPreviewIsSelectedMethodInfo + ResolvePrintOperationMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePrintOperationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePrintOperationMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePrintOperationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePrintOperationMethod "renderPage" o = PrintOperationPreviewRenderPageMethodInfo + ResolvePrintOperationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePrintOperationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePrintOperationMethod "run" o = PrintOperationRunMethodInfo + ResolvePrintOperationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePrintOperationMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePrintOperationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePrintOperationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePrintOperationMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePrintOperationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePrintOperationMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePrintOperationMethod "getDefaultPageSetup" o = PrintOperationGetDefaultPageSetupMethodInfo + ResolvePrintOperationMethod "getEmbedPageSetup" o = PrintOperationGetEmbedPageSetupMethodInfo + ResolvePrintOperationMethod "getError" o = PrintOperationGetErrorMethodInfo + ResolvePrintOperationMethod "getHasSelection" o = PrintOperationGetHasSelectionMethodInfo + ResolvePrintOperationMethod "getNPagesToPrint" o = PrintOperationGetNPagesToPrintMethodInfo + ResolvePrintOperationMethod "getPrintSettings" o = PrintOperationGetPrintSettingsMethodInfo + ResolvePrintOperationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePrintOperationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePrintOperationMethod "getStatus" o = PrintOperationGetStatusMethodInfo + ResolvePrintOperationMethod "getStatusString" o = PrintOperationGetStatusStringMethodInfo + ResolvePrintOperationMethod "getSupportSelection" o = PrintOperationGetSupportSelectionMethodInfo + ResolvePrintOperationMethod "setAllowAsync" o = PrintOperationSetAllowAsyncMethodInfo + ResolvePrintOperationMethod "setCurrentPage" o = PrintOperationSetCurrentPageMethodInfo + ResolvePrintOperationMethod "setCustomTabLabel" o = PrintOperationSetCustomTabLabelMethodInfo + ResolvePrintOperationMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePrintOperationMethod "setDefaultPageSetup" o = PrintOperationSetDefaultPageSetupMethodInfo + ResolvePrintOperationMethod "setDeferDrawing" o = PrintOperationSetDeferDrawingMethodInfo + ResolvePrintOperationMethod "setEmbedPageSetup" o = PrintOperationSetEmbedPageSetupMethodInfo + ResolvePrintOperationMethod "setExportFilename" o = PrintOperationSetExportFilenameMethodInfo + ResolvePrintOperationMethod "setHasSelection" o = PrintOperationSetHasSelectionMethodInfo + ResolvePrintOperationMethod "setJobName" o = PrintOperationSetJobNameMethodInfo + ResolvePrintOperationMethod "setNPages" o = PrintOperationSetNPagesMethodInfo + ResolvePrintOperationMethod "setPrintSettings" o = PrintOperationSetPrintSettingsMethodInfo + ResolvePrintOperationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePrintOperationMethod "setShowProgress" o = PrintOperationSetShowProgressMethodInfo + ResolvePrintOperationMethod "setSupportSelection" o = PrintOperationSetSupportSelectionMethodInfo + ResolvePrintOperationMethod "setTrackPrintStatus" o = PrintOperationSetTrackPrintStatusMethodInfo + ResolvePrintOperationMethod "setUnit" o = PrintOperationSetUnitMethodInfo + ResolvePrintOperationMethod "setUseFullPage" o = PrintOperationSetUseFullPageMethodInfo + ResolvePrintOperationMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePrintOperationMethod t PrintOperation, MethodInfo info PrintOperation p) => IsLabelProxy t (PrintOperation -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePrintOperationMethod t PrintOperation, MethodInfo info PrintOperation p) => IsLabel t (PrintOperation -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal PrintOperation::begin-print type PrintOperationBeginPrintCallback = PrintContext -> @@ -626,9 +721,9 @@ Int32 -> Ptr () -> IO () -printOperationDrawPageCallbackWrapper _cb _ context page_nr _ = do +printOperationDrawPageCallbackWrapper _cb _ context pageNr _ = do context' <- (newObject PrintContext) context - _cb context' page_nr + _cb context' pageNr onPrintOperationDrawPage :: (GObject a, MonadIO m) => a -> PrintOperationDrawPageCallback -> m SignalHandlerId onPrintOperationDrawPage obj cb = liftIO $ connectPrintOperationDrawPage obj cb SignalConnectBefore @@ -817,10 +912,10 @@ Ptr PageSetup -> Ptr () -> IO () -printOperationRequestPageSetupCallbackWrapper _cb _ context page_nr setup _ = do +printOperationRequestPageSetupCallbackWrapper _cb _ context pageNr setup _ = do context' <- (newObject PrintContext) context setup' <- (newObject PageSetup) setup - _cb context' page_nr setup' + _cb context' pageNr setup' onPrintOperationRequestPageSetup :: (GObject a, MonadIO m) => a -> PrintOperationRequestPageSetupCallback -> m SignalHandlerId onPrintOperationRequestPageSetup obj cb = liftIO $ connectPrintOperationRequestPageSetup obj cb SignalConnectBefore @@ -940,7 +1035,7 @@ type AttrSetTypeConstraint PrintOperationAllowAsyncPropertyInfo = (~) Bool type AttrBaseTypeConstraint PrintOperationAllowAsyncPropertyInfo = PrintOperationK type AttrGetType PrintOperationAllowAsyncPropertyInfo = Bool - type AttrLabel PrintOperationAllowAsyncPropertyInfo = "PrintOperation::allow-async" + type AttrLabel PrintOperationAllowAsyncPropertyInfo = "allow-async" attrGet _ = getPrintOperationAllowAsync attrSet _ = setPrintOperationAllowAsync attrConstruct _ = constructPrintOperationAllowAsync @@ -964,7 +1059,7 @@ type AttrSetTypeConstraint PrintOperationCurrentPagePropertyInfo = (~) Int32 type AttrBaseTypeConstraint PrintOperationCurrentPagePropertyInfo = PrintOperationK type AttrGetType PrintOperationCurrentPagePropertyInfo = Int32 - type AttrLabel PrintOperationCurrentPagePropertyInfo = "PrintOperation::current-page" + type AttrLabel PrintOperationCurrentPagePropertyInfo = "current-page" attrGet _ = getPrintOperationCurrentPage attrSet _ = setPrintOperationCurrentPage attrConstruct _ = constructPrintOperationCurrentPage @@ -988,7 +1083,7 @@ type AttrSetTypeConstraint PrintOperationCustomTabLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint PrintOperationCustomTabLabelPropertyInfo = PrintOperationK type AttrGetType PrintOperationCustomTabLabelPropertyInfo = T.Text - type AttrLabel PrintOperationCustomTabLabelPropertyInfo = "PrintOperation::custom-tab-label" + type AttrLabel PrintOperationCustomTabLabelPropertyInfo = "custom-tab-label" attrGet _ = getPrintOperationCustomTabLabel attrSet _ = setPrintOperationCustomTabLabel attrConstruct _ = constructPrintOperationCustomTabLabel @@ -1012,7 +1107,7 @@ type AttrSetTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = PageSetupK type AttrBaseTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = PrintOperationK type AttrGetType PrintOperationDefaultPageSetupPropertyInfo = PageSetup - type AttrLabel PrintOperationDefaultPageSetupPropertyInfo = "PrintOperation::default-page-setup" + type AttrLabel PrintOperationDefaultPageSetupPropertyInfo = "default-page-setup" attrGet _ = getPrintOperationDefaultPageSetup attrSet _ = setPrintOperationDefaultPageSetup attrConstruct _ = constructPrintOperationDefaultPageSetup @@ -1036,7 +1131,7 @@ type AttrSetTypeConstraint PrintOperationEmbedPageSetupPropertyInfo = (~) Bool type AttrBaseTypeConstraint PrintOperationEmbedPageSetupPropertyInfo = PrintOperationK type AttrGetType PrintOperationEmbedPageSetupPropertyInfo = Bool - type AttrLabel PrintOperationEmbedPageSetupPropertyInfo = "PrintOperation::embed-page-setup" + type AttrLabel PrintOperationEmbedPageSetupPropertyInfo = "embed-page-setup" attrGet _ = getPrintOperationEmbedPageSetup attrSet _ = setPrintOperationEmbedPageSetup attrConstruct _ = constructPrintOperationEmbedPageSetup @@ -1060,7 +1155,7 @@ type AttrSetTypeConstraint PrintOperationExportFilenamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint PrintOperationExportFilenamePropertyInfo = PrintOperationK type AttrGetType PrintOperationExportFilenamePropertyInfo = T.Text - type AttrLabel PrintOperationExportFilenamePropertyInfo = "PrintOperation::export-filename" + type AttrLabel PrintOperationExportFilenamePropertyInfo = "export-filename" attrGet _ = getPrintOperationExportFilename attrSet _ = setPrintOperationExportFilename attrConstruct _ = constructPrintOperationExportFilename @@ -1084,7 +1179,7 @@ type AttrSetTypeConstraint PrintOperationHasSelectionPropertyInfo = (~) Bool type AttrBaseTypeConstraint PrintOperationHasSelectionPropertyInfo = PrintOperationK type AttrGetType PrintOperationHasSelectionPropertyInfo = Bool - type AttrLabel PrintOperationHasSelectionPropertyInfo = "PrintOperation::has-selection" + type AttrLabel PrintOperationHasSelectionPropertyInfo = "has-selection" attrGet _ = getPrintOperationHasSelection attrSet _ = setPrintOperationHasSelection attrConstruct _ = constructPrintOperationHasSelection @@ -1108,7 +1203,7 @@ type AttrSetTypeConstraint PrintOperationJobNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint PrintOperationJobNamePropertyInfo = PrintOperationK type AttrGetType PrintOperationJobNamePropertyInfo = T.Text - type AttrLabel PrintOperationJobNamePropertyInfo = "PrintOperation::job-name" + type AttrLabel PrintOperationJobNamePropertyInfo = "job-name" attrGet _ = getPrintOperationJobName attrSet _ = setPrintOperationJobName attrConstruct _ = constructPrintOperationJobName @@ -1132,7 +1227,7 @@ type AttrSetTypeConstraint PrintOperationNPagesPropertyInfo = (~) Int32 type AttrBaseTypeConstraint PrintOperationNPagesPropertyInfo = PrintOperationK type AttrGetType PrintOperationNPagesPropertyInfo = Int32 - type AttrLabel PrintOperationNPagesPropertyInfo = "PrintOperation::n-pages" + type AttrLabel PrintOperationNPagesPropertyInfo = "n-pages" attrGet _ = getPrintOperationNPages attrSet _ = setPrintOperationNPages attrConstruct _ = constructPrintOperationNPages @@ -1150,7 +1245,7 @@ type AttrSetTypeConstraint PrintOperationNPagesToPrintPropertyInfo = (~) () type AttrBaseTypeConstraint PrintOperationNPagesToPrintPropertyInfo = PrintOperationK type AttrGetType PrintOperationNPagesToPrintPropertyInfo = Int32 - type AttrLabel PrintOperationNPagesToPrintPropertyInfo = "PrintOperation::n-pages-to-print" + type AttrLabel PrintOperationNPagesToPrintPropertyInfo = "n-pages-to-print" attrGet _ = getPrintOperationNPagesToPrint attrSet _ = undefined attrConstruct _ = undefined @@ -1174,7 +1269,7 @@ type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintSettingsK type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintOperationK type AttrGetType PrintOperationPrintSettingsPropertyInfo = PrintSettings - type AttrLabel PrintOperationPrintSettingsPropertyInfo = "PrintOperation::print-settings" + type AttrLabel PrintOperationPrintSettingsPropertyInfo = "print-settings" attrGet _ = getPrintOperationPrintSettings attrSet _ = setPrintOperationPrintSettings attrConstruct _ = constructPrintOperationPrintSettings @@ -1198,7 +1293,7 @@ type AttrSetTypeConstraint PrintOperationShowProgressPropertyInfo = (~) Bool type AttrBaseTypeConstraint PrintOperationShowProgressPropertyInfo = PrintOperationK type AttrGetType PrintOperationShowProgressPropertyInfo = Bool - type AttrLabel PrintOperationShowProgressPropertyInfo = "PrintOperation::show-progress" + type AttrLabel PrintOperationShowProgressPropertyInfo = "show-progress" attrGet _ = getPrintOperationShowProgress attrSet _ = setPrintOperationShowProgress attrConstruct _ = constructPrintOperationShowProgress @@ -1216,7 +1311,7 @@ type AttrSetTypeConstraint PrintOperationStatusPropertyInfo = (~) () type AttrBaseTypeConstraint PrintOperationStatusPropertyInfo = PrintOperationK type AttrGetType PrintOperationStatusPropertyInfo = PrintStatus - type AttrLabel PrintOperationStatusPropertyInfo = "PrintOperation::status" + type AttrLabel PrintOperationStatusPropertyInfo = "status" attrGet _ = getPrintOperationStatus attrSet _ = undefined attrConstruct _ = undefined @@ -1234,7 +1329,7 @@ type AttrSetTypeConstraint PrintOperationStatusStringPropertyInfo = (~) () type AttrBaseTypeConstraint PrintOperationStatusStringPropertyInfo = PrintOperationK type AttrGetType PrintOperationStatusStringPropertyInfo = T.Text - type AttrLabel PrintOperationStatusStringPropertyInfo = "PrintOperation::status-string" + type AttrLabel PrintOperationStatusStringPropertyInfo = "status-string" attrGet _ = getPrintOperationStatusString attrSet _ = undefined attrConstruct _ = undefined @@ -1258,7 +1353,7 @@ type AttrSetTypeConstraint PrintOperationSupportSelectionPropertyInfo = (~) Bool type AttrBaseTypeConstraint PrintOperationSupportSelectionPropertyInfo = PrintOperationK type AttrGetType PrintOperationSupportSelectionPropertyInfo = Bool - type AttrLabel PrintOperationSupportSelectionPropertyInfo = "PrintOperation::support-selection" + type AttrLabel PrintOperationSupportSelectionPropertyInfo = "support-selection" attrGet _ = getPrintOperationSupportSelection attrSet _ = setPrintOperationSupportSelection attrConstruct _ = constructPrintOperationSupportSelection @@ -1282,7 +1377,7 @@ type AttrSetTypeConstraint PrintOperationTrackPrintStatusPropertyInfo = (~) Bool type AttrBaseTypeConstraint PrintOperationTrackPrintStatusPropertyInfo = PrintOperationK type AttrGetType PrintOperationTrackPrintStatusPropertyInfo = Bool - type AttrLabel PrintOperationTrackPrintStatusPropertyInfo = "PrintOperation::track-print-status" + type AttrLabel PrintOperationTrackPrintStatusPropertyInfo = "track-print-status" attrGet _ = getPrintOperationTrackPrintStatus attrSet _ = setPrintOperationTrackPrintStatus attrConstruct _ = constructPrintOperationTrackPrintStatus @@ -1306,7 +1401,7 @@ type AttrSetTypeConstraint PrintOperationUnitPropertyInfo = (~) Unit type AttrBaseTypeConstraint PrintOperationUnitPropertyInfo = PrintOperationK type AttrGetType PrintOperationUnitPropertyInfo = Unit - type AttrLabel PrintOperationUnitPropertyInfo = "PrintOperation::unit" + type AttrLabel PrintOperationUnitPropertyInfo = "unit" attrGet _ = getPrintOperationUnit attrSet _ = setPrintOperationUnit attrConstruct _ = constructPrintOperationUnit @@ -1330,13 +1425,13 @@ type AttrSetTypeConstraint PrintOperationUseFullPagePropertyInfo = (~) Bool type AttrBaseTypeConstraint PrintOperationUseFullPagePropertyInfo = PrintOperationK type AttrGetType PrintOperationUseFullPagePropertyInfo = Bool - type AttrLabel PrintOperationUseFullPagePropertyInfo = "PrintOperation::use-full-page" + type AttrLabel PrintOperationUseFullPagePropertyInfo = "use-full-page" attrGet _ = getPrintOperationUseFullPage attrSet _ = setPrintOperationUseFullPage attrConstruct _ = constructPrintOperationUseFullPage type instance AttributeList PrintOperation = PrintOperationAttributeList -type PrintOperationAttributeList = ('[ '("allow-async", PrintOperationAllowAsyncPropertyInfo), '("current-page", PrintOperationCurrentPagePropertyInfo), '("custom-tab-label", PrintOperationCustomTabLabelPropertyInfo), '("default-page-setup", PrintOperationDefaultPageSetupPropertyInfo), '("embed-page-setup", PrintOperationEmbedPageSetupPropertyInfo), '("export-filename", PrintOperationExportFilenamePropertyInfo), '("has-selection", PrintOperationHasSelectionPropertyInfo), '("job-name", PrintOperationJobNamePropertyInfo), '("n-pages", PrintOperationNPagesPropertyInfo), '("n-pages-to-print", PrintOperationNPagesToPrintPropertyInfo), '("print-settings", PrintOperationPrintSettingsPropertyInfo), '("show-progress", PrintOperationShowProgressPropertyInfo), '("status", PrintOperationStatusPropertyInfo), '("status-string", PrintOperationStatusStringPropertyInfo), '("support-selection", PrintOperationSupportSelectionPropertyInfo), '("track-print-status", PrintOperationTrackPrintStatusPropertyInfo), '("unit", PrintOperationUnitPropertyInfo), '("use-full-page", PrintOperationUseFullPagePropertyInfo)] :: [(Symbol, *)]) +type PrintOperationAttributeList = ('[ '("allowAsync", PrintOperationAllowAsyncPropertyInfo), '("currentPage", PrintOperationCurrentPagePropertyInfo), '("customTabLabel", PrintOperationCustomTabLabelPropertyInfo), '("defaultPageSetup", PrintOperationDefaultPageSetupPropertyInfo), '("embedPageSetup", PrintOperationEmbedPageSetupPropertyInfo), '("exportFilename", PrintOperationExportFilenamePropertyInfo), '("hasSelection", PrintOperationHasSelectionPropertyInfo), '("jobName", PrintOperationJobNamePropertyInfo), '("nPages", PrintOperationNPagesPropertyInfo), '("nPagesToPrint", PrintOperationNPagesToPrintPropertyInfo), '("printSettings", PrintOperationPrintSettingsPropertyInfo), '("showProgress", PrintOperationShowProgressPropertyInfo), '("status", PrintOperationStatusPropertyInfo), '("statusString", PrintOperationStatusStringPropertyInfo), '("supportSelection", PrintOperationSupportSelectionPropertyInfo), '("trackPrintStatus", PrintOperationTrackPrintStatusPropertyInfo), '("unit", PrintOperationUnitPropertyInfo), '("useFullPage", PrintOperationUseFullPagePropertyInfo)] :: [(Symbol, *)]) data PrintOperationBeginPrintSignalInfo instance SignalInfo PrintOperationBeginPrintSignalInfo where @@ -1394,13 +1489,12 @@ connectSignal _ = connectPrintOperationUpdateCustomWidget type instance SignalList PrintOperation = PrintOperationSignalList -type PrintOperationSignalList = ('[ '("begin-print", PrintOperationBeginPrintSignalInfo), '("create-custom-widget", PrintOperationCreateCustomWidgetSignalInfo), '("custom-widget-apply", PrintOperationCustomWidgetApplySignalInfo), '("done", PrintOperationDoneSignalInfo), '("draw-page", PrintOperationDrawPageSignalInfo), '("end-print", PrintOperationEndPrintSignalInfo), '("got-page-size", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paginate", PrintOperationPaginateSignalInfo), '("preview", PrintOperationPreviewSignalInfo), '("ready", PrintOperationPreviewReadySignalInfo), '("request-page-setup", PrintOperationRequestPageSetupSignalInfo), '("status-changed", PrintOperationStatusChangedSignalInfo), '("update-custom-widget", PrintOperationUpdateCustomWidgetSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PrintOperationSignalList = ('[ '("beginPrint", PrintOperationBeginPrintSignalInfo), '("createCustomWidget", PrintOperationCreateCustomWidgetSignalInfo), '("customWidgetApply", PrintOperationCustomWidgetApplySignalInfo), '("done", PrintOperationDoneSignalInfo), '("drawPage", PrintOperationDrawPageSignalInfo), '("endPrint", PrintOperationEndPrintSignalInfo), '("gotPageSize", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paginate", PrintOperationPaginateSignalInfo), '("preview", PrintOperationPreviewSignalInfo), '("ready", PrintOperationPreviewReadySignalInfo), '("requestPageSetup", PrintOperationRequestPageSetupSignalInfo), '("statusChanged", PrintOperationStatusChangedSignalInfo), '("updateCustomWidget", PrintOperationUpdateCustomWidgetSignalInfo)] :: [(Symbol, *)]) -- method PrintOperation::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "PrintOperation" -- throws : False -- Skip return : False @@ -1411,7 +1505,7 @@ printOperationNew :: (MonadIO m) => - m PrintOperation + m PrintOperation -- result printOperationNew = liftIO $ do result <- gtk_print_operation_new checkUnexpectedReturnNULL "gtk_print_operation_new" result @@ -1420,9 +1514,8 @@ -- method PrintOperation::cancel -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1434,19 +1527,22 @@ printOperationCancel :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result printOperationCancel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_print_operation_cancel _obj' touchManagedPtr _obj return () +data PrintOperationCancelMethodInfo +instance (signature ~ (m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationCancelMethodInfo a signature where + overloadedMethod _ = printOperationCancel + -- method PrintOperation::draw_page_finish -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1458,19 +1554,22 @@ printOperationDrawPageFinish :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result printOperationDrawPageFinish _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_print_operation_draw_page_finish _obj' touchManagedPtr _obj return () +data PrintOperationDrawPageFinishMethodInfo +instance (signature ~ (m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationDrawPageFinishMethodInfo a signature where + overloadedMethod _ = printOperationDrawPageFinish + -- method PrintOperation::get_default_page_setup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PageSetup" -- throws : False -- Skip return : False @@ -1482,8 +1581,8 @@ printOperationGetDefaultPageSetup :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m PageSetup + a -- _obj + -> m PageSetup -- result printOperationGetDefaultPageSetup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_operation_get_default_page_setup _obj' @@ -1492,11 +1591,14 @@ touchManagedPtr _obj return result' +data PrintOperationGetDefaultPageSetupMethodInfo +instance (signature ~ (m PageSetup), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetDefaultPageSetupMethodInfo a signature where + overloadedMethod _ = printOperationGetDefaultPageSetup + -- method PrintOperation::get_embed_page_setup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1508,8 +1610,8 @@ printOperationGetEmbedPageSetup :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result printOperationGetEmbedPageSetup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_operation_get_embed_page_setup _obj' @@ -1517,11 +1619,14 @@ touchManagedPtr _obj return result' +data PrintOperationGetEmbedPageSetupMethodInfo +instance (signature ~ (m Bool), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetEmbedPageSetupMethodInfo a signature where + overloadedMethod _ = printOperationGetEmbedPageSetup + -- method PrintOperation::get_error -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : True -- Skip return : False @@ -1534,8 +1639,8 @@ printOperationGetError :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result printOperationGetError _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -1546,11 +1651,14 @@ return () ) +data PrintOperationGetErrorMethodInfo +instance (signature ~ (m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetErrorMethodInfo a signature where + overloadedMethod _ = printOperationGetError + -- method PrintOperation::get_has_selection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1562,8 +1670,8 @@ printOperationGetHasSelection :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result printOperationGetHasSelection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_operation_get_has_selection _obj' @@ -1571,11 +1679,14 @@ touchManagedPtr _obj return result' +data PrintOperationGetHasSelectionMethodInfo +instance (signature ~ (m Bool), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetHasSelectionMethodInfo a signature where + overloadedMethod _ = printOperationGetHasSelection + -- method PrintOperation::get_n_pages_to_print -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1587,19 +1698,22 @@ printOperationGetNPagesToPrint :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result printOperationGetNPagesToPrint _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_operation_get_n_pages_to_print _obj' touchManagedPtr _obj return result +data PrintOperationGetNPagesToPrintMethodInfo +instance (signature ~ (m Int32), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetNPagesToPrintMethodInfo a signature where + overloadedMethod _ = printOperationGetNPagesToPrint + -- method PrintOperation::get_print_settings -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PrintSettings" -- throws : False -- Skip return : False @@ -1611,8 +1725,8 @@ printOperationGetPrintSettings :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m PrintSettings + a -- _obj + -> m PrintSettings -- result printOperationGetPrintSettings _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_operation_get_print_settings _obj' @@ -1621,11 +1735,14 @@ touchManagedPtr _obj return result' +data PrintOperationGetPrintSettingsMethodInfo +instance (signature ~ (m PrintSettings), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetPrintSettingsMethodInfo a signature where + overloadedMethod _ = printOperationGetPrintSettings + -- method PrintOperation::get_status -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PrintStatus" -- throws : False -- Skip return : False @@ -1637,8 +1754,8 @@ printOperationGetStatus :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m PrintStatus + a -- _obj + -> m PrintStatus -- result printOperationGetStatus _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_operation_get_status _obj' @@ -1646,11 +1763,14 @@ touchManagedPtr _obj return result' +data PrintOperationGetStatusMethodInfo +instance (signature ~ (m PrintStatus), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetStatusMethodInfo a signature where + overloadedMethod _ = printOperationGetStatus + -- method PrintOperation::get_status_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1662,8 +1782,8 @@ printOperationGetStatusString :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result printOperationGetStatusString _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_operation_get_status_string _obj' @@ -1672,11 +1792,14 @@ touchManagedPtr _obj return result' +data PrintOperationGetStatusStringMethodInfo +instance (signature ~ (m T.Text), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetStatusStringMethodInfo a signature where + overloadedMethod _ = printOperationGetStatusString + -- method PrintOperation::get_support_selection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1688,8 +1811,8 @@ printOperationGetSupportSelection :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result printOperationGetSupportSelection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_operation_get_support_selection _obj' @@ -1697,11 +1820,14 @@ touchManagedPtr _obj return result' +data PrintOperationGetSupportSelectionMethodInfo +instance (signature ~ (m Bool), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationGetSupportSelectionMethodInfo a signature where + overloadedMethod _ = printOperationGetSupportSelection + -- method PrintOperation::is_finished -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1713,8 +1839,8 @@ printOperationIsFinished :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result printOperationIsFinished _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_print_operation_is_finished _obj' @@ -1722,11 +1848,14 @@ touchManagedPtr _obj return result' +data PrintOperationIsFinishedMethodInfo +instance (signature ~ (m Bool), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationIsFinishedMethodInfo a signature where + overloadedMethod _ = printOperationIsFinished + -- method PrintOperation::run -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PrintOperationResult" -- throws : True -- Skip return : False @@ -1741,10 +1870,10 @@ printOperationRun :: (MonadIO m, PrintOperationK a, WindowK b) => - a -> -- _obj - PrintOperationAction -> -- action - Maybe (b) -> -- parent - m PrintOperationResult + a -- _obj + -> PrintOperationAction -- action + -> Maybe (b) -- parent + -> m PrintOperationResult -- result printOperationRun _obj action parent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let action' = (fromIntegral . fromEnum) action @@ -1763,11 +1892,14 @@ return () ) +data PrintOperationRunMethodInfo +instance (signature ~ (PrintOperationAction -> Maybe (b) -> m PrintOperationResult), MonadIO m, PrintOperationK a, WindowK b) => MethodInfo PrintOperationRunMethodInfo a signature where + overloadedMethod _ = printOperationRun + -- method PrintOperation::set_allow_async -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_async", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allow_async", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_async", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1780,21 +1912,24 @@ printOperationSetAllowAsync :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - Bool -> -- allow_async - m () -printOperationSetAllowAsync _obj allow_async = liftIO $ do + a -- _obj + -> Bool -- allowAsync + -> m () -- result +printOperationSetAllowAsync _obj allowAsync = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let allow_async' = (fromIntegral . fromEnum) allow_async - gtk_print_operation_set_allow_async _obj' allow_async' + let allowAsync' = (fromIntegral . fromEnum) allowAsync + gtk_print_operation_set_allow_async _obj' allowAsync' touchManagedPtr _obj return () +data PrintOperationSetAllowAsyncMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetAllowAsyncMethodInfo a signature where + overloadedMethod _ = printOperationSetAllowAsync + -- method PrintOperation::set_current_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_page", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_page", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_page", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1807,20 +1942,23 @@ printOperationSetCurrentPage :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - Int32 -> -- current_page - m () -printOperationSetCurrentPage _obj current_page = liftIO $ do + a -- _obj + -> Int32 -- currentPage + -> m () -- result +printOperationSetCurrentPage _obj currentPage = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_set_current_page _obj' current_page + gtk_print_operation_set_current_page _obj' currentPage touchManagedPtr _obj return () +data PrintOperationSetCurrentPageMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetCurrentPageMethodInfo a signature where + overloadedMethod _ = printOperationSetCurrentPage + -- method PrintOperation::set_custom_tab_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1833,9 +1971,9 @@ printOperationSetCustomTabLabel :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - Maybe (T.Text) -> -- label - m () + a -- _obj + -> Maybe (T.Text) -- label + -> m () -- result printOperationSetCustomTabLabel _obj label = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLabel <- case label of @@ -1848,11 +1986,14 @@ freeMem maybeLabel return () +data PrintOperationSetCustomTabLabelMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetCustomTabLabelMethodInfo a signature where + overloadedMethod _ = printOperationSetCustomTabLabel + -- method PrintOperation::set_default_page_setup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1865,26 +2006,29 @@ printOperationSetDefaultPageSetup :: (MonadIO m, PrintOperationK a, PageSetupK b) => - a -> -- _obj - Maybe (b) -> -- default_page_setup - m () -printOperationSetDefaultPageSetup _obj default_page_setup = liftIO $ do + a -- _obj + -> Maybe (b) -- defaultPageSetup + -> m () -- result +printOperationSetDefaultPageSetup _obj defaultPageSetup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeDefault_page_setup <- case default_page_setup of + maybeDefaultPageSetup <- case defaultPageSetup of Nothing -> return nullPtr - Just jDefault_page_setup -> do - let jDefault_page_setup' = unsafeManagedPtrCastPtr jDefault_page_setup - return jDefault_page_setup' - gtk_print_operation_set_default_page_setup _obj' maybeDefault_page_setup + Just jDefaultPageSetup -> do + let jDefaultPageSetup' = unsafeManagedPtrCastPtr jDefaultPageSetup + return jDefaultPageSetup' + gtk_print_operation_set_default_page_setup _obj' maybeDefaultPageSetup touchManagedPtr _obj - whenJust default_page_setup touchManagedPtr + whenJust defaultPageSetup touchManagedPtr return () +data PrintOperationSetDefaultPageSetupMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PrintOperationK a, PageSetupK b) => MethodInfo PrintOperationSetDefaultPageSetupMethodInfo a signature where + overloadedMethod _ = printOperationSetDefaultPageSetup + -- method PrintOperation::set_defer_drawing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1896,19 +2040,22 @@ printOperationSetDeferDrawing :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result printOperationSetDeferDrawing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_print_operation_set_defer_drawing _obj' touchManagedPtr _obj return () +data PrintOperationSetDeferDrawingMethodInfo +instance (signature ~ (m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetDeferDrawingMethodInfo a signature where + overloadedMethod _ = printOperationSetDeferDrawing + -- method PrintOperation::set_embed_page_setup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "embed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1921,9 +2068,9 @@ printOperationSetEmbedPageSetup :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - Bool -> -- embed - m () + a -- _obj + -> Bool -- embed + -> m () -- result printOperationSetEmbedPageSetup _obj embed = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let embed' = (fromIntegral . fromEnum) embed @@ -1931,11 +2078,14 @@ touchManagedPtr _obj return () +data PrintOperationSetEmbedPageSetupMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetEmbedPageSetupMethodInfo a signature where + overloadedMethod _ = printOperationSetEmbedPageSetup + -- method PrintOperation::set_export_filename -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1948,9 +2098,9 @@ printOperationSetExportFilename :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - [Char] -> -- filename - m () + a -- _obj + -> [Char] -- filename + -> m () -- result printOperationSetExportFilename _obj filename = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj filename' <- stringToCString filename @@ -1959,11 +2109,14 @@ freeMem filename' return () +data PrintOperationSetExportFilenameMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetExportFilenameMethodInfo a signature where + overloadedMethod _ = printOperationSetExportFilename + -- method PrintOperation::set_has_selection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1976,21 +2129,24 @@ printOperationSetHasSelection :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - Bool -> -- has_selection - m () -printOperationSetHasSelection _obj has_selection = liftIO $ do + a -- _obj + -> Bool -- hasSelection + -> m () -- result +printOperationSetHasSelection _obj hasSelection = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let has_selection' = (fromIntegral . fromEnum) has_selection - gtk_print_operation_set_has_selection _obj' has_selection' + let hasSelection' = (fromIntegral . fromEnum) hasSelection + gtk_print_operation_set_has_selection _obj' hasSelection' touchManagedPtr _obj return () +data PrintOperationSetHasSelectionMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetHasSelectionMethodInfo a signature where + overloadedMethod _ = printOperationSetHasSelection + -- method PrintOperation::set_job_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "job_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "job_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "job_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2003,22 +2159,25 @@ printOperationSetJobName :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - T.Text -> -- job_name - m () -printOperationSetJobName _obj job_name = liftIO $ do + a -- _obj + -> T.Text -- jobName + -> m () -- result +printOperationSetJobName _obj jobName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - job_name' <- textToCString job_name - gtk_print_operation_set_job_name _obj' job_name' + jobName' <- textToCString jobName + gtk_print_operation_set_job_name _obj' jobName' touchManagedPtr _obj - freeMem job_name' + freeMem jobName' return () +data PrintOperationSetJobNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetJobNameMethodInfo a signature where + overloadedMethod _ = printOperationSetJobName + -- method PrintOperation::set_n_pages -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_pages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_pages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_pages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2031,20 +2190,23 @@ printOperationSetNPages :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - Int32 -> -- n_pages - m () -printOperationSetNPages _obj n_pages = liftIO $ do + a -- _obj + -> Int32 -- nPages + -> m () -- result +printOperationSetNPages _obj nPages = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_set_n_pages _obj' n_pages + gtk_print_operation_set_n_pages _obj' nPages touchManagedPtr _obj return () +data PrintOperationSetNPagesMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetNPagesMethodInfo a signature where + overloadedMethod _ = printOperationSetNPages + -- method PrintOperation::set_print_settings -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2057,26 +2219,29 @@ printOperationSetPrintSettings :: (MonadIO m, PrintOperationK a, PrintSettingsK b) => - a -> -- _obj - Maybe (b) -> -- print_settings - m () -printOperationSetPrintSettings _obj print_settings = liftIO $ do + a -- _obj + -> Maybe (b) -- printSettings + -> m () -- result +printOperationSetPrintSettings _obj printSettings = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybePrint_settings <- case print_settings of + maybePrintSettings <- case printSettings of Nothing -> return nullPtr - Just jPrint_settings -> do - let jPrint_settings' = unsafeManagedPtrCastPtr jPrint_settings - return jPrint_settings' - gtk_print_operation_set_print_settings _obj' maybePrint_settings + Just jPrintSettings -> do + let jPrintSettings' = unsafeManagedPtrCastPtr jPrintSettings + return jPrintSettings' + gtk_print_operation_set_print_settings _obj' maybePrintSettings touchManagedPtr _obj - whenJust print_settings touchManagedPtr + whenJust printSettings touchManagedPtr return () +data PrintOperationSetPrintSettingsMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PrintOperationK a, PrintSettingsK b) => MethodInfo PrintOperationSetPrintSettingsMethodInfo a signature where + overloadedMethod _ = printOperationSetPrintSettings + -- method PrintOperation::set_show_progress -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_progress", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_progress", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_progress", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2089,21 +2254,24 @@ printOperationSetShowProgress :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - Bool -> -- show_progress - m () -printOperationSetShowProgress _obj show_progress = liftIO $ do + a -- _obj + -> Bool -- showProgress + -> m () -- result +printOperationSetShowProgress _obj showProgress = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_progress' = (fromIntegral . fromEnum) show_progress - gtk_print_operation_set_show_progress _obj' show_progress' + let showProgress' = (fromIntegral . fromEnum) showProgress + gtk_print_operation_set_show_progress _obj' showProgress' touchManagedPtr _obj return () +data PrintOperationSetShowProgressMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetShowProgressMethodInfo a signature where + overloadedMethod _ = printOperationSetShowProgress + -- method PrintOperation::set_support_selection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "support_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2116,21 +2284,24 @@ printOperationSetSupportSelection :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - Bool -> -- support_selection - m () -printOperationSetSupportSelection _obj support_selection = liftIO $ do + a -- _obj + -> Bool -- supportSelection + -> m () -- result +printOperationSetSupportSelection _obj supportSelection = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let support_selection' = (fromIntegral . fromEnum) support_selection - gtk_print_operation_set_support_selection _obj' support_selection' + let supportSelection' = (fromIntegral . fromEnum) supportSelection + gtk_print_operation_set_support_selection _obj' supportSelection' touchManagedPtr _obj return () +data PrintOperationSetSupportSelectionMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetSupportSelectionMethodInfo a signature where + overloadedMethod _ = printOperationSetSupportSelection + -- method PrintOperation::set_track_print_status -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_status", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "track_status", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_status", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2143,21 +2314,24 @@ printOperationSetTrackPrintStatus :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - Bool -> -- track_status - m () -printOperationSetTrackPrintStatus _obj track_status = liftIO $ do + a -- _obj + -> Bool -- trackStatus + -> m () -- result +printOperationSetTrackPrintStatus _obj trackStatus = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let track_status' = (fromIntegral . fromEnum) track_status - gtk_print_operation_set_track_print_status _obj' track_status' + let trackStatus' = (fromIntegral . fromEnum) trackStatus + gtk_print_operation_set_track_print_status _obj' trackStatus' touchManagedPtr _obj return () +data PrintOperationSetTrackPrintStatusMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetTrackPrintStatusMethodInfo a signature where + overloadedMethod _ = printOperationSetTrackPrintStatus + -- method PrintOperation::set_unit -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2170,9 +2344,9 @@ printOperationSetUnit :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - Unit -> -- unit - m () + a -- _obj + -> Unit -- unit + -> m () -- result printOperationSetUnit _obj unit = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -2180,11 +2354,14 @@ touchManagedPtr _obj return () +data PrintOperationSetUnitMethodInfo +instance (signature ~ (Unit -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetUnitMethodInfo a signature where + overloadedMethod _ = printOperationSetUnit + -- method PrintOperation::set_use_full_page -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_page", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "full_page", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_page", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2197,14 +2374,18 @@ printOperationSetUseFullPage :: (MonadIO m, PrintOperationK a) => - a -> -- _obj - Bool -> -- full_page - m () -printOperationSetUseFullPage _obj full_page = liftIO $ do + a -- _obj + -> Bool -- fullPage + -> m () -- result +printOperationSetUseFullPage _obj fullPage = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let full_page' = (fromIntegral . fromEnum) full_page - gtk_print_operation_set_use_full_page _obj' full_page' + let fullPage' = (fromIntegral . fromEnum) fullPage + gtk_print_operation_set_use_full_page _obj' fullPage' touchManagedPtr _obj return () + +data PrintOperationSetUseFullPageMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PrintOperationK a) => MethodInfo PrintOperationSetUseFullPageMethodInfo a signature where + overloadedMethod _ = printOperationSetUseFullPage diff --git a/GI/Gtk/Objects/PrintOperation.hs-boot b/GI/Gtk/Objects/PrintOperation.hs-boot --- a/GI/Gtk/Objects/PrintOperation.hs-boot +++ b/GI/Gtk/Objects/PrintOperation.hs-boot @@ -40,3 +40,32 @@ data PrintOperationRequestPageSetupSignalInfo data PrintOperationStatusChangedSignalInfo data PrintOperationUpdateCustomWidgetSignalInfo +data PrintOperationCancelMethodInfo +data PrintOperationDrawPageFinishMethodInfo +data PrintOperationGetDefaultPageSetupMethodInfo +data PrintOperationGetEmbedPageSetupMethodInfo +data PrintOperationGetErrorMethodInfo +data PrintOperationGetHasSelectionMethodInfo +data PrintOperationGetNPagesToPrintMethodInfo +data PrintOperationGetPrintSettingsMethodInfo +data PrintOperationGetStatusMethodInfo +data PrintOperationGetStatusStringMethodInfo +data PrintOperationGetSupportSelectionMethodInfo +data PrintOperationIsFinishedMethodInfo +data PrintOperationRunMethodInfo +data PrintOperationSetAllowAsyncMethodInfo +data PrintOperationSetCurrentPageMethodInfo +data PrintOperationSetCustomTabLabelMethodInfo +data PrintOperationSetDefaultPageSetupMethodInfo +data PrintOperationSetDeferDrawingMethodInfo +data PrintOperationSetEmbedPageSetupMethodInfo +data PrintOperationSetExportFilenameMethodInfo +data PrintOperationSetHasSelectionMethodInfo +data PrintOperationSetJobNameMethodInfo +data PrintOperationSetNPagesMethodInfo +data PrintOperationSetPrintSettingsMethodInfo +data PrintOperationSetShowProgressMethodInfo +data PrintOperationSetSupportSelectionMethodInfo +data PrintOperationSetTrackPrintStatusMethodInfo +data PrintOperationSetUnitMethodInfo +data PrintOperationSetUseFullPageMethodInfo diff --git a/GI/Gtk/Objects/PrintSettings.hs b/GI/Gtk/Objects/PrintSettings.hs --- a/GI/Gtk/Objects/PrintSettings.hs +++ b/GI/Gtk/Objects/PrintSettings.hs @@ -1,2430 +1,2816 @@ -{- | -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.Objects.PrintSettings - ( - --- * Exported types - PrintSettings(..) , - PrintSettingsK , - toPrintSettings , - noPrintSettings , - - - -- * Methods --- ** printSettingsCopy - printSettingsCopy , - - --- ** printSettingsForeach - printSettingsForeach , - - --- ** printSettingsGet - printSettingsGet , - - --- ** printSettingsGetBool - printSettingsGetBool , - - --- ** printSettingsGetCollate - printSettingsGetCollate , - - --- ** printSettingsGetDefaultSource - printSettingsGetDefaultSource , - - --- ** printSettingsGetDither - printSettingsGetDither , - - --- ** printSettingsGetDouble - printSettingsGetDouble , - - --- ** printSettingsGetDoubleWithDefault - printSettingsGetDoubleWithDefault , - - --- ** printSettingsGetDuplex - printSettingsGetDuplex , - - --- ** printSettingsGetFinishings - printSettingsGetFinishings , - - --- ** printSettingsGetInt - printSettingsGetInt , - - --- ** printSettingsGetIntWithDefault - printSettingsGetIntWithDefault , - - --- ** printSettingsGetLength - printSettingsGetLength , - - --- ** printSettingsGetMediaType - printSettingsGetMediaType , - - --- ** printSettingsGetNCopies - printSettingsGetNCopies , - - --- ** printSettingsGetNumberUp - printSettingsGetNumberUp , - - --- ** printSettingsGetNumberUpLayout - printSettingsGetNumberUpLayout , - - --- ** printSettingsGetOrientation - printSettingsGetOrientation , - - --- ** printSettingsGetOutputBin - printSettingsGetOutputBin , - - --- ** printSettingsGetPageRanges - printSettingsGetPageRanges , - - --- ** printSettingsGetPageSet - printSettingsGetPageSet , - - --- ** printSettingsGetPaperHeight - printSettingsGetPaperHeight , - - --- ** printSettingsGetPaperSize - printSettingsGetPaperSize , - - --- ** printSettingsGetPaperWidth - printSettingsGetPaperWidth , - - --- ** printSettingsGetPrintPages - printSettingsGetPrintPages , - - --- ** printSettingsGetPrinter - printSettingsGetPrinter , - - --- ** printSettingsGetPrinterLpi - printSettingsGetPrinterLpi , - - --- ** printSettingsGetQuality - printSettingsGetQuality , - - --- ** printSettingsGetResolution - printSettingsGetResolution , - - --- ** printSettingsGetResolutionX - printSettingsGetResolutionX , - - --- ** printSettingsGetResolutionY - printSettingsGetResolutionY , - - --- ** printSettingsGetReverse - printSettingsGetReverse , - - --- ** printSettingsGetScale - printSettingsGetScale , - - --- ** printSettingsGetUseColor - printSettingsGetUseColor , - - --- ** printSettingsHasKey - printSettingsHasKey , - - --- ** printSettingsLoadFile - printSettingsLoadFile , - - --- ** printSettingsLoadKeyFile - printSettingsLoadKeyFile , - - --- ** printSettingsNew - printSettingsNew , - - --- ** printSettingsNewFromFile - printSettingsNewFromFile , - - --- ** printSettingsNewFromKeyFile - printSettingsNewFromKeyFile , - - --- ** printSettingsSet - printSettingsSet , - - --- ** printSettingsSetBool - printSettingsSetBool , - - --- ** printSettingsSetCollate - printSettingsSetCollate , - - --- ** printSettingsSetDefaultSource - printSettingsSetDefaultSource , - - --- ** printSettingsSetDither - printSettingsSetDither , - - --- ** printSettingsSetDouble - printSettingsSetDouble , - - --- ** printSettingsSetDuplex - printSettingsSetDuplex , - - --- ** printSettingsSetFinishings - printSettingsSetFinishings , - - --- ** printSettingsSetInt - printSettingsSetInt , - - --- ** printSettingsSetLength - printSettingsSetLength , - - --- ** printSettingsSetMediaType - printSettingsSetMediaType , - - --- ** printSettingsSetNCopies - printSettingsSetNCopies , - - --- ** printSettingsSetNumberUp - printSettingsSetNumberUp , - - --- ** printSettingsSetNumberUpLayout - printSettingsSetNumberUpLayout , - - --- ** printSettingsSetOrientation - printSettingsSetOrientation , - - --- ** printSettingsSetOutputBin - printSettingsSetOutputBin , - - --- ** printSettingsSetPageRanges - printSettingsSetPageRanges , - - --- ** printSettingsSetPageSet - printSettingsSetPageSet , - - --- ** printSettingsSetPaperHeight - printSettingsSetPaperHeight , - - --- ** printSettingsSetPaperSize - printSettingsSetPaperSize , - - --- ** printSettingsSetPaperWidth - printSettingsSetPaperWidth , - - --- ** printSettingsSetPrintPages - printSettingsSetPrintPages , - - --- ** printSettingsSetPrinter - printSettingsSetPrinter , - - --- ** printSettingsSetPrinterLpi - printSettingsSetPrinterLpi , - - --- ** printSettingsSetQuality - printSettingsSetQuality , - - --- ** printSettingsSetResolution - printSettingsSetResolution , - - --- ** printSettingsSetResolutionXy - printSettingsSetResolutionXy , - - --- ** printSettingsSetReverse - printSettingsSetReverse , - - --- ** printSettingsSetScale - printSettingsSetScale , - - --- ** printSettingsSetUseColor - printSettingsSetUseColor , - - --- ** printSettingsToFile - printSettingsToFile , - - --- ** printSettingsToKeyFile - printSettingsToKeyFile , - - --- ** printSettingsUnset - printSettingsUnset , - - - - - ) 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 - -newtype PrintSettings = PrintSettings (ForeignPtr PrintSettings) -foreign import ccall "gtk_print_settings_get_type" - c_gtk_print_settings_get_type :: IO GType - -type instance ParentTypes PrintSettings = PrintSettingsParentTypes -type PrintSettingsParentTypes = '[GObject.Object] - -instance GObject PrintSettings where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_print_settings_get_type - - -class GObject o => PrintSettingsK o -instance (GObject o, IsDescendantOf PrintSettings o) => PrintSettingsK o - -toPrintSettings :: PrintSettingsK o => o -> IO PrintSettings -toPrintSettings = unsafeCastTo PrintSettings - -noPrintSettings :: Maybe PrintSettings -noPrintSettings = Nothing - -type instance AttributeList PrintSettings = PrintSettingsAttributeList -type PrintSettingsAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PrintSettings = PrintSettingsSignalList -type PrintSettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PrintSettings::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Gtk" "PrintSettings" --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_new" gtk_print_settings_new :: - IO (Ptr PrintSettings) - - -printSettingsNew :: - (MonadIO m) => - m PrintSettings -printSettingsNew = liftIO $ do - result <- gtk_print_settings_new - checkUnexpectedReturnNULL "gtk_print_settings_new" result - result' <- (wrapObject PrintSettings) result - return result' - --- method PrintSettings::new_from_file --- method type : Constructor --- Args : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "PrintSettings" --- throws : True --- Skip return : False - -foreign import ccall "gtk_print_settings_new_from_file" gtk_print_settings_new_from_file :: - CString -> -- file_name : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO (Ptr PrintSettings) - - -printSettingsNewFromFile :: - (MonadIO m) => - [Char] -> -- file_name - m PrintSettings -printSettingsNewFromFile file_name = liftIO $ do - file_name' <- stringToCString file_name - onException (do - result <- propagateGError $ gtk_print_settings_new_from_file file_name' - checkUnexpectedReturnNULL "gtk_print_settings_new_from_file" result - result' <- (wrapObject PrintSettings) result - freeMem file_name' - return result' - ) (do - freeMem file_name' - ) - --- method PrintSettings::new_from_key_file --- method type : Constructor --- Args : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "PrintSettings" --- throws : True --- Skip return : False - -foreign import ccall "gtk_print_settings_new_from_key_file" gtk_print_settings_new_from_key_file :: - Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr PrintSettings) - - -printSettingsNewFromKeyFile :: - (MonadIO m) => - GLib.KeyFile -> -- key_file - Maybe (T.Text) -> -- group_name - m PrintSettings -printSettingsNewFromKeyFile key_file group_name = liftIO $ do - let key_file' = unsafeManagedPtrGetPtr key_file - maybeGroup_name <- case group_name of - Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' - onException (do - result <- propagateGError $ gtk_print_settings_new_from_key_file key_file' maybeGroup_name - checkUnexpectedReturnNULL "gtk_print_settings_new_from_key_file" result - result' <- (wrapObject PrintSettings) result - touchManagedPtr key_file - freeMem maybeGroup_name - return result' - ) (do - freeMem maybeGroup_name - ) - --- method PrintSettings::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "PrintSettings" --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_copy" gtk_print_settings_copy :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO (Ptr PrintSettings) - - -printSettingsCopy :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m PrintSettings -printSettingsCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_copy _obj' - checkUnexpectedReturnNULL "gtk_print_settings_copy" result - result' <- (wrapObject PrintSettings) result - touchManagedPtr _obj - return result' - --- method PrintSettings::foreach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_foreach" gtk_print_settings_foreach :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - FunPtr PrintSettingsFuncC -> -- func : TInterface "Gtk" "PrintSettingsFunc" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -printSettingsForeach :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - PrintSettingsFunc -> -- func - m () -printSettingsForeach _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkPrintSettingsFunc (printSettingsFuncWrapper Nothing func) - let user_data = nullPtr - gtk_print_settings_foreach _obj' func' user_data - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - --- method PrintSettings::get --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get" gtk_print_settings_get :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - IO CString - - -printSettingsGet :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - m T.Text -printSettingsGet _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_print_settings_get _obj' key' - checkUnexpectedReturnNULL "gtk_print_settings_get" result - result' <- cstringToText result - touchManagedPtr _obj - freeMem key' - return result' - --- method PrintSettings::get_bool --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_bool" gtk_print_settings_get_bool :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - IO CInt - - -printSettingsGetBool :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - m Bool -printSettingsGetBool _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_print_settings_get_bool _obj' key' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - --- method PrintSettings::get_collate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_collate" gtk_print_settings_get_collate :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CInt - - -printSettingsGetCollate :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m Bool -printSettingsGetCollate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_collate _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_default_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_default_source" gtk_print_settings_get_default_source :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CString - - -printSettingsGetDefaultSource :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m T.Text -printSettingsGetDefaultSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_default_source _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_default_source" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_dither --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_dither" gtk_print_settings_get_dither :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CString - - -printSettingsGetDither :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m T.Text -printSettingsGetDither _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_dither _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_dither" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_double --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_double" gtk_print_settings_get_double :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - IO CDouble - - -printSettingsGetDouble :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - m Double -printSettingsGetDouble _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_print_settings_get_double _obj' key' - let result' = realToFrac result - touchManagedPtr _obj - freeMem key' - return result' - --- method PrintSettings::get_double_with_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "def", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "def", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_double_with_default" gtk_print_settings_get_double_with_default :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - CDouble -> -- def : TBasicType TDouble - IO CDouble - - -printSettingsGetDoubleWithDefault :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - Double -> -- def - m Double -printSettingsGetDoubleWithDefault _obj key def = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let def' = realToFrac def - result <- gtk_print_settings_get_double_with_default _obj' key' def' - let result' = realToFrac result - touchManagedPtr _obj - freeMem key' - return result' - --- method PrintSettings::get_duplex --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "PrintDuplex" --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_duplex" gtk_print_settings_get_duplex :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CUInt - - -printSettingsGetDuplex :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m PrintDuplex -printSettingsGetDuplex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_duplex _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_finishings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_finishings" gtk_print_settings_get_finishings :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CString - - -printSettingsGetFinishings :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m T.Text -printSettingsGetFinishings _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_finishings _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_finishings" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_int --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_int" gtk_print_settings_get_int :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - IO Int32 - - -printSettingsGetInt :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - m Int32 -printSettingsGetInt _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_print_settings_get_int _obj' key' - touchManagedPtr _obj - freeMem key' - return result - --- method PrintSettings::get_int_with_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "def", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "def", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_int_with_default" gtk_print_settings_get_int_with_default :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - Int32 -> -- def : TBasicType TInt32 - IO Int32 - - -printSettingsGetIntWithDefault :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - Int32 -> -- def - m Int32 -printSettingsGetIntWithDefault _obj key def = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_print_settings_get_int_with_default _obj' key' def - touchManagedPtr _obj - freeMem key' - return result - --- method PrintSettings::get_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_length" gtk_print_settings_get_length :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -printSettingsGetLength :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - Unit -> -- unit - m Double -printSettingsGetLength _obj key unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_print_settings_get_length _obj' key' unit' - let result' = realToFrac result - touchManagedPtr _obj - freeMem key' - return result' - --- method PrintSettings::get_media_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_media_type" gtk_print_settings_get_media_type :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CString - - -printSettingsGetMediaType :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m T.Text -printSettingsGetMediaType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_media_type _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_media_type" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_n_copies --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_n_copies" gtk_print_settings_get_n_copies :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO Int32 - - -printSettingsGetNCopies :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m Int32 -printSettingsGetNCopies _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_n_copies _obj' - touchManagedPtr _obj - return result - --- method PrintSettings::get_number_up --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_number_up" gtk_print_settings_get_number_up :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO Int32 - - -printSettingsGetNumberUp :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m Int32 -printSettingsGetNumberUp _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_number_up _obj' - touchManagedPtr _obj - return result - --- method PrintSettings::get_number_up_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "NumberUpLayout" --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_number_up_layout" gtk_print_settings_get_number_up_layout :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CUInt - - -printSettingsGetNumberUpLayout :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m NumberUpLayout -printSettingsGetNumberUpLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_number_up_layout _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "PageOrientation" --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_orientation" gtk_print_settings_get_orientation :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CUInt - - -printSettingsGetOrientation :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m PageOrientation -printSettingsGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_output_bin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_output_bin" gtk_print_settings_get_output_bin :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CString - - -printSettingsGetOutputBin :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m T.Text -printSettingsGetOutputBin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_output_bin _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_output_bin" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_page_ranges --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray False (-1) 1 (TInterface "Gtk" "PageRange") --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_page_ranges" gtk_print_settings_get_page_ranges :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Ptr Int32 -> -- num_ranges : TBasicType TInt32 - IO (Ptr PageRange) - - -printSettingsGetPageRanges :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m [PageRange] -printSettingsGetPageRanges _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - num_ranges <- allocMem :: IO (Ptr Int32) - result <- gtk_print_settings_get_page_ranges _obj' num_ranges - num_ranges' <- peek num_ranges - checkUnexpectedReturnNULL "gtk_print_settings_get_page_ranges" result - result' <- (unpackBlockArrayWithLength 8 num_ranges') result - result'' <- mapM (wrapPtr PageRange) result' - freeMem result - touchManagedPtr _obj - freeMem num_ranges - return result'' - --- method PrintSettings::get_page_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "PageSet" --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_page_set" gtk_print_settings_get_page_set :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CUInt - - -printSettingsGetPageSet :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m PageSet -printSettingsGetPageSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_page_set _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_paper_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_paper_height" gtk_print_settings_get_paper_height :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -printSettingsGetPaperHeight :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Unit -> -- unit - m Double -printSettingsGetPaperHeight _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_print_settings_get_paper_height _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_paper_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "PaperSize" --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_paper_size" gtk_print_settings_get_paper_size :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO (Ptr PaperSize) - - -printSettingsGetPaperSize :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m PaperSize -printSettingsGetPaperSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_paper_size _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_paper_size" result - result' <- (wrapBoxed PaperSize) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_paper_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_paper_width" gtk_print_settings_get_paper_width :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO CDouble - - -printSettingsGetPaperWidth :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Unit -> -- unit - m Double -printSettingsGetPaperWidth _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_print_settings_get_paper_width _obj' unit' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_print_pages --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "PrintPages" --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_print_pages" gtk_print_settings_get_print_pages :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CUInt - - -printSettingsGetPrintPages :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m PrintPages -printSettingsGetPrintPages _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_print_pages _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_printer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_printer" gtk_print_settings_get_printer :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CString - - -printSettingsGetPrinter :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m T.Text -printSettingsGetPrinter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_printer _obj' - checkUnexpectedReturnNULL "gtk_print_settings_get_printer" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_printer_lpi --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_printer_lpi" gtk_print_settings_get_printer_lpi :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CDouble - - -printSettingsGetPrinterLpi :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m Double -printSettingsGetPrinterLpi _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_printer_lpi _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_quality --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "PrintQuality" --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_quality" gtk_print_settings_get_quality :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CUInt - - -printSettingsGetQuality :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m PrintQuality -printSettingsGetQuality _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_quality _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_resolution --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_resolution" gtk_print_settings_get_resolution :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO Int32 - - -printSettingsGetResolution :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m Int32 -printSettingsGetResolution _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_resolution _obj' - touchManagedPtr _obj - return result - --- method PrintSettings::get_resolution_x --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_resolution_x" gtk_print_settings_get_resolution_x :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO Int32 - - -printSettingsGetResolutionX :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m Int32 -printSettingsGetResolutionX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_resolution_x _obj' - touchManagedPtr _obj - return result - --- method PrintSettings::get_resolution_y --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_resolution_y" gtk_print_settings_get_resolution_y :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO Int32 - - -printSettingsGetResolutionY :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m Int32 -printSettingsGetResolutionY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_resolution_y _obj' - touchManagedPtr _obj - return result - --- method PrintSettings::get_reverse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_reverse" gtk_print_settings_get_reverse :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CInt - - -printSettingsGetReverse :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m Bool -printSettingsGetReverse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_reverse _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_scale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_scale" gtk_print_settings_get_scale :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CDouble - - -printSettingsGetScale :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m Double -printSettingsGetScale _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_scale _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_use_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_get_use_color" gtk_print_settings_get_use_color :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - IO CInt - - -printSettingsGetUseColor :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m Bool -printSettingsGetUseColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_use_color _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PrintSettings::has_key --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_has_key" gtk_print_settings_has_key :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - IO CInt - - -printSettingsHasKey :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - m Bool -printSettingsHasKey _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gtk_print_settings_has_key _obj' key' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - --- method PrintSettings::load_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_print_settings_load_file" gtk_print_settings_load_file :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- file_name : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -printSettingsLoadFile :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - [Char] -> -- file_name - m () -printSettingsLoadFile _obj file_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - file_name' <- stringToCString file_name - onException (do - _ <- propagateGError $ gtk_print_settings_load_file _obj' file_name' - touchManagedPtr _obj - freeMem file_name' - return () - ) (do - freeMem file_name' - ) - --- method PrintSettings::load_key_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_print_settings_load_key_file" gtk_print_settings_load_key_file :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -printSettingsLoadKeyFile :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - GLib.KeyFile -> -- key_file - Maybe (T.Text) -> -- group_name - m () -printSettingsLoadKeyFile _obj key_file group_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let key_file' = unsafeManagedPtrGetPtr key_file - maybeGroup_name <- case group_name of - Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' - onException (do - _ <- propagateGError $ gtk_print_settings_load_key_file _obj' key_file' maybeGroup_name - touchManagedPtr _obj - touchManagedPtr key_file - freeMem maybeGroup_name - return () - ) (do - freeMem maybeGroup_name - ) - --- method PrintSettings::set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set" gtk_print_settings_set :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - IO () - - -printSettingsSet :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - Maybe (T.Text) -> -- value - m () -printSettingsSet _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - maybeValue <- case value of - Nothing -> return nullPtr - Just jValue -> do - jValue' <- textToCString jValue - return jValue' - gtk_print_settings_set _obj' key' maybeValue - touchManagedPtr _obj - freeMem key' - freeMem maybeValue - return () - --- method PrintSettings::set_bool --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_bool" gtk_print_settings_set_bool :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - CInt -> -- value : TBasicType TBoolean - IO () - - -printSettingsSetBool :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - Bool -> -- value - m () -printSettingsSetBool _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let value' = (fromIntegral . fromEnum) value - gtk_print_settings_set_bool _obj' key' value' - touchManagedPtr _obj - freeMem key' - return () - --- method PrintSettings::set_collate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "collate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "collate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_collate" gtk_print_settings_set_collate :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CInt -> -- collate : TBasicType TBoolean - IO () - - -printSettingsSetCollate :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Bool -> -- collate - m () -printSettingsSetCollate _obj collate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let collate' = (fromIntegral . fromEnum) collate - gtk_print_settings_set_collate _obj' collate' - touchManagedPtr _obj - return () - --- method PrintSettings::set_default_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_default_source" gtk_print_settings_set_default_source :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- default_source : TBasicType TUTF8 - IO () - - -printSettingsSetDefaultSource :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- default_source - m () -printSettingsSetDefaultSource _obj default_source = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - default_source' <- textToCString default_source - gtk_print_settings_set_default_source _obj' default_source' - touchManagedPtr _obj - freeMem default_source' - return () - --- method PrintSettings::set_dither --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dither", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dither", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_dither" gtk_print_settings_set_dither :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- dither : TBasicType TUTF8 - IO () - - -printSettingsSetDither :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- dither - m () -printSettingsSetDither _obj dither = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - dither' <- textToCString dither - gtk_print_settings_set_dither _obj' dither' - touchManagedPtr _obj - freeMem dither' - return () - --- method PrintSettings::set_double --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_double" gtk_print_settings_set_double :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - CDouble -> -- value : TBasicType TDouble - IO () - - -printSettingsSetDouble :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - Double -> -- value - m () -printSettingsSetDouble _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let value' = realToFrac value - gtk_print_settings_set_double _obj' key' value' - touchManagedPtr _obj - freeMem key' - return () - --- method PrintSettings::set_duplex --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duplex", argType = TInterface "Gtk" "PrintDuplex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duplex", argType = TInterface "Gtk" "PrintDuplex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_duplex" gtk_print_settings_set_duplex :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- duplex : TInterface "Gtk" "PrintDuplex" - IO () - - -printSettingsSetDuplex :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - PrintDuplex -> -- duplex - m () -printSettingsSetDuplex _obj duplex = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let duplex' = (fromIntegral . fromEnum) duplex - gtk_print_settings_set_duplex _obj' duplex' - touchManagedPtr _obj - return () - --- method PrintSettings::set_finishings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "finishings", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "finishings", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_finishings" gtk_print_settings_set_finishings :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- finishings : TBasicType TUTF8 - IO () - - -printSettingsSetFinishings :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- finishings - m () -printSettingsSetFinishings _obj finishings = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - finishings' <- textToCString finishings - gtk_print_settings_set_finishings _obj' finishings' - touchManagedPtr _obj - freeMem finishings' - return () - --- method PrintSettings::set_int --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_int" gtk_print_settings_set_int :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - Int32 -> -- value : TBasicType TInt32 - IO () - - -printSettingsSetInt :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - Int32 -> -- value - m () -printSettingsSetInt _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - gtk_print_settings_set_int _obj' key' value - touchManagedPtr _obj - freeMem key' - return () - --- method PrintSettings::set_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_length" gtk_print_settings_set_length :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - CDouble -> -- value : TBasicType TDouble - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO () - - -printSettingsSetLength :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - Double -> -- value - Unit -> -- unit - m () -printSettingsSetLength _obj key value unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let value' = realToFrac value - let unit' = (fromIntegral . fromEnum) unit - gtk_print_settings_set_length _obj' key' value' unit' - touchManagedPtr _obj - freeMem key' - return () - --- method PrintSettings::set_media_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "media_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "media_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_media_type" gtk_print_settings_set_media_type :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- media_type : TBasicType TUTF8 - IO () - - -printSettingsSetMediaType :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- media_type - m () -printSettingsSetMediaType _obj media_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - media_type' <- textToCString media_type - gtk_print_settings_set_media_type _obj' media_type' - touchManagedPtr _obj - freeMem media_type' - return () - --- method PrintSettings::set_n_copies --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_copies", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_copies", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_n_copies" gtk_print_settings_set_n_copies :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- num_copies : TBasicType TInt32 - IO () - - -printSettingsSetNCopies :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Int32 -> -- num_copies - m () -printSettingsSetNCopies _obj num_copies = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_settings_set_n_copies _obj' num_copies - touchManagedPtr _obj - return () - --- method PrintSettings::set_number_up --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_up", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_up", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_number_up" gtk_print_settings_set_number_up :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- number_up : TBasicType TInt32 - IO () - - -printSettingsSetNumberUp :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Int32 -> -- number_up - m () -printSettingsSetNumberUp _obj number_up = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_settings_set_number_up _obj' number_up - touchManagedPtr _obj - return () - --- method PrintSettings::set_number_up_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_up_layout", argType = TInterface "Gtk" "NumberUpLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_up_layout", argType = TInterface "Gtk" "NumberUpLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_number_up_layout" gtk_print_settings_set_number_up_layout :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- number_up_layout : TInterface "Gtk" "NumberUpLayout" - IO () - - -printSettingsSetNumberUpLayout :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - NumberUpLayout -> -- number_up_layout - m () -printSettingsSetNumberUpLayout _obj number_up_layout = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let number_up_layout' = (fromIntegral . fromEnum) number_up_layout - gtk_print_settings_set_number_up_layout _obj' number_up_layout' - touchManagedPtr _obj - return () - --- method PrintSettings::set_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_orientation" gtk_print_settings_set_orientation :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- orientation : TInterface "Gtk" "PageOrientation" - IO () - - -printSettingsSetOrientation :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - PageOrientation -> -- orientation - m () -printSettingsSetOrientation _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - gtk_print_settings_set_orientation _obj' orientation' - touchManagedPtr _obj - return () - --- method PrintSettings::set_output_bin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "output_bin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "output_bin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_output_bin" gtk_print_settings_set_output_bin :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- output_bin : TBasicType TUTF8 - IO () - - -printSettingsSetOutputBin :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- output_bin - m () -printSettingsSetOutputBin _obj output_bin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - output_bin' <- textToCString output_bin - gtk_print_settings_set_output_bin _obj' output_bin' - touchManagedPtr _obj - freeMem output_bin' - return () - --- method PrintSettings::set_page_ranges --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_page_ranges" gtk_print_settings_set_page_ranges :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Ptr PageRange -> -- page_ranges : TCArray False (-1) 2 (TInterface "Gtk" "PageRange") - Int32 -> -- num_ranges : TBasicType TInt32 - IO () - - -printSettingsSetPageRanges :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - [PageRange] -> -- page_ranges - m () -printSettingsSetPageRanges _obj page_ranges = liftIO $ do - let num_ranges = fromIntegral $ length page_ranges - let _obj' = unsafeManagedPtrCastPtr _obj - let page_ranges' = map unsafeManagedPtrGetPtr page_ranges - page_ranges'' <- packBlockArray 8 page_ranges' - gtk_print_settings_set_page_ranges _obj' page_ranges'' num_ranges - touchManagedPtr _obj - mapM_ touchManagedPtr page_ranges - freeMem page_ranges'' - return () - --- method PrintSettings::set_page_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_set", argType = TInterface "Gtk" "PageSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_set", argType = TInterface "Gtk" "PageSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_page_set" gtk_print_settings_set_page_set :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- page_set : TInterface "Gtk" "PageSet" - IO () - - -printSettingsSetPageSet :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - PageSet -> -- page_set - m () -printSettingsSetPageSet _obj page_set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page_set' = (fromIntegral . fromEnum) page_set - gtk_print_settings_set_page_set _obj' page_set' - touchManagedPtr _obj - return () - --- method PrintSettings::set_paper_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_paper_height" gtk_print_settings_set_paper_height :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CDouble -> -- height : TBasicType TDouble - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO () - - -printSettingsSetPaperHeight :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Double -> -- height - Unit -> -- unit - m () -printSettingsSetPaperHeight _obj height unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let height' = realToFrac height - let unit' = (fromIntegral . fromEnum) unit - gtk_print_settings_set_paper_height _obj' height' unit' - touchManagedPtr _obj - return () - --- method PrintSettings::set_paper_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paper_size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paper_size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_paper_size" gtk_print_settings_set_paper_size :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Ptr PaperSize -> -- paper_size : TInterface "Gtk" "PaperSize" - IO () - - -printSettingsSetPaperSize :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - PaperSize -> -- paper_size - m () -printSettingsSetPaperSize _obj paper_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let paper_size' = unsafeManagedPtrGetPtr paper_size - gtk_print_settings_set_paper_size _obj' paper_size' - touchManagedPtr _obj - touchManagedPtr paper_size - return () - --- method PrintSettings::set_paper_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_paper_width" gtk_print_settings_set_paper_width :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CDouble -> -- width : TBasicType TDouble - CUInt -> -- unit : TInterface "Gtk" "Unit" - IO () - - -printSettingsSetPaperWidth :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Double -> -- width - Unit -> -- unit - m () -printSettingsSetPaperWidth _obj width unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let width' = realToFrac width - let unit' = (fromIntegral . fromEnum) unit - gtk_print_settings_set_paper_width _obj' width' unit' - touchManagedPtr _obj - return () - --- method PrintSettings::set_print_pages --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pages", argType = TInterface "Gtk" "PrintPages", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pages", argType = TInterface "Gtk" "PrintPages", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_print_pages" gtk_print_settings_set_print_pages :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- pages : TInterface "Gtk" "PrintPages" - IO () - - -printSettingsSetPrintPages :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - PrintPages -> -- pages - m () -printSettingsSetPrintPages _obj pages = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pages' = (fromIntegral . fromEnum) pages - gtk_print_settings_set_print_pages _obj' pages' - touchManagedPtr _obj - return () - --- method PrintSettings::set_printer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_printer" gtk_print_settings_set_printer :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- printer : TBasicType TUTF8 - IO () - - -printSettingsSetPrinter :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- printer - m () -printSettingsSetPrinter _obj printer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - printer' <- textToCString printer - gtk_print_settings_set_printer _obj' printer' - touchManagedPtr _obj - freeMem printer' - return () - --- method PrintSettings::set_printer_lpi --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_printer_lpi" gtk_print_settings_set_printer_lpi :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CDouble -> -- lpi : TBasicType TDouble - IO () - - -printSettingsSetPrinterLpi :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Double -> -- lpi - m () -printSettingsSetPrinterLpi _obj lpi = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let lpi' = realToFrac lpi - gtk_print_settings_set_printer_lpi _obj' lpi' - touchManagedPtr _obj - return () - --- method PrintSettings::set_quality --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quality", argType = TInterface "Gtk" "PrintQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quality", argType = TInterface "Gtk" "PrintQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_quality" gtk_print_settings_set_quality :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CUInt -> -- quality : TInterface "Gtk" "PrintQuality" - IO () - - -printSettingsSetQuality :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - PrintQuality -> -- quality - m () -printSettingsSetQuality _obj quality = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let quality' = (fromIntegral . fromEnum) quality - gtk_print_settings_set_quality _obj' quality' - touchManagedPtr _obj - return () - --- method PrintSettings::set_resolution --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_resolution" gtk_print_settings_set_resolution :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- resolution : TBasicType TInt32 - IO () - - -printSettingsSetResolution :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Int32 -> -- resolution - m () -printSettingsSetResolution _obj resolution = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_settings_set_resolution _obj' resolution - touchManagedPtr _obj - return () - --- method PrintSettings::set_resolution_xy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_resolution_xy" gtk_print_settings_set_resolution_xy :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- resolution_x : TBasicType TInt32 - Int32 -> -- resolution_y : TBasicType TInt32 - IO () - - -printSettingsSetResolutionXy :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Int32 -> -- resolution_x - Int32 -> -- resolution_y - m () -printSettingsSetResolutionXy _obj resolution_x resolution_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_settings_set_resolution_xy _obj' resolution_x resolution_y - touchManagedPtr _obj - return () - --- method PrintSettings::set_reverse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reverse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reverse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_reverse" gtk_print_settings_set_reverse :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CInt -> -- reverse : TBasicType TBoolean - IO () - - -printSettingsSetReverse :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Bool -> -- reverse - m () -printSettingsSetReverse _obj reverse = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reverse' = (fromIntegral . fromEnum) reverse - gtk_print_settings_set_reverse _obj' reverse' - touchManagedPtr _obj - return () - --- method PrintSettings::set_scale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_scale" gtk_print_settings_set_scale :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CDouble -> -- scale : TBasicType TDouble - IO () - - -printSettingsSetScale :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Double -> -- scale - m () -printSettingsSetScale _obj scale = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let scale' = realToFrac scale - gtk_print_settings_set_scale _obj' scale' - touchManagedPtr _obj - return () - --- method PrintSettings::set_use_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_use_color" gtk_print_settings_set_use_color :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CInt -> -- use_color : TBasicType TBoolean - IO () - - -printSettingsSetUseColor :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Bool -> -- use_color - m () -printSettingsSetUseColor _obj use_color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_color' = (fromIntegral . fromEnum) use_color - gtk_print_settings_set_use_color _obj' use_color' - touchManagedPtr _obj - return () - --- method PrintSettings::to_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_print_settings_to_file" gtk_print_settings_to_file :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- file_name : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -printSettingsToFile :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - [Char] -> -- file_name - m () -printSettingsToFile _obj file_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - file_name' <- stringToCString file_name - onException (do - _ <- propagateGError $ gtk_print_settings_to_file _obj' file_name' - touchManagedPtr _obj - freeMem file_name' - return () - ) (do - freeMem file_name' - ) - --- method PrintSettings::to_key_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_to_key_file" gtk_print_settings_to_key_file :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - IO () - - -printSettingsToKeyFile :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - GLib.KeyFile -> -- key_file - T.Text -> -- group_name - m () -printSettingsToKeyFile _obj key_file group_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let key_file' = unsafeManagedPtrGetPtr key_file - group_name' <- textToCString group_name - gtk_print_settings_to_key_file _obj' key_file' group_name' - touchManagedPtr _obj - touchManagedPtr key_file - freeMem group_name' - return () - --- method PrintSettings::unset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_unset" gtk_print_settings_unset :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - IO () - - -printSettingsUnset :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - m () -printSettingsUnset _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - gtk_print_settings_unset _obj' key' - touchManagedPtr _obj - freeMem key' - return () + +{- | +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.Objects.PrintSettings + ( + +-- * Exported types + PrintSettings(..) , + PrintSettingsK , + toPrintSettings , + noPrintSettings , + + + -- * Methods +-- ** printSettingsCopy + PrintSettingsCopyMethodInfo , + printSettingsCopy , + + +-- ** printSettingsForeach + PrintSettingsForeachMethodInfo , + printSettingsForeach , + + +-- ** printSettingsGet + PrintSettingsGetMethodInfo , + printSettingsGet , + + +-- ** printSettingsGetBool + PrintSettingsGetBoolMethodInfo , + printSettingsGetBool , + + +-- ** printSettingsGetCollate + PrintSettingsGetCollateMethodInfo , + printSettingsGetCollate , + + +-- ** printSettingsGetDefaultSource + PrintSettingsGetDefaultSourceMethodInfo , + printSettingsGetDefaultSource , + + +-- ** printSettingsGetDither + PrintSettingsGetDitherMethodInfo , + printSettingsGetDither , + + +-- ** printSettingsGetDouble + PrintSettingsGetDoubleMethodInfo , + printSettingsGetDouble , + + +-- ** printSettingsGetDoubleWithDefault + PrintSettingsGetDoubleWithDefaultMethodInfo, + printSettingsGetDoubleWithDefault , + + +-- ** printSettingsGetDuplex + PrintSettingsGetDuplexMethodInfo , + printSettingsGetDuplex , + + +-- ** printSettingsGetFinishings + PrintSettingsGetFinishingsMethodInfo , + printSettingsGetFinishings , + + +-- ** printSettingsGetInt + PrintSettingsGetIntMethodInfo , + printSettingsGetInt , + + +-- ** printSettingsGetIntWithDefault + PrintSettingsGetIntWithDefaultMethodInfo, + printSettingsGetIntWithDefault , + + +-- ** printSettingsGetLength + PrintSettingsGetLengthMethodInfo , + printSettingsGetLength , + + +-- ** printSettingsGetMediaType + PrintSettingsGetMediaTypeMethodInfo , + printSettingsGetMediaType , + + +-- ** printSettingsGetNCopies + PrintSettingsGetNCopiesMethodInfo , + printSettingsGetNCopies , + + +-- ** printSettingsGetNumberUp + PrintSettingsGetNumberUpMethodInfo , + printSettingsGetNumberUp , + + +-- ** printSettingsGetNumberUpLayout + PrintSettingsGetNumberUpLayoutMethodInfo, + printSettingsGetNumberUpLayout , + + +-- ** printSettingsGetOrientation + PrintSettingsGetOrientationMethodInfo , + printSettingsGetOrientation , + + +-- ** printSettingsGetOutputBin + PrintSettingsGetOutputBinMethodInfo , + printSettingsGetOutputBin , + + +-- ** printSettingsGetPageRanges + PrintSettingsGetPageRangesMethodInfo , + printSettingsGetPageRanges , + + +-- ** printSettingsGetPageSet + PrintSettingsGetPageSetMethodInfo , + printSettingsGetPageSet , + + +-- ** printSettingsGetPaperHeight + PrintSettingsGetPaperHeightMethodInfo , + printSettingsGetPaperHeight , + + +-- ** printSettingsGetPaperSize + PrintSettingsGetPaperSizeMethodInfo , + printSettingsGetPaperSize , + + +-- ** printSettingsGetPaperWidth + PrintSettingsGetPaperWidthMethodInfo , + printSettingsGetPaperWidth , + + +-- ** printSettingsGetPrintPages + PrintSettingsGetPrintPagesMethodInfo , + printSettingsGetPrintPages , + + +-- ** printSettingsGetPrinter + PrintSettingsGetPrinterMethodInfo , + printSettingsGetPrinter , + + +-- ** printSettingsGetPrinterLpi + PrintSettingsGetPrinterLpiMethodInfo , + printSettingsGetPrinterLpi , + + +-- ** printSettingsGetQuality + PrintSettingsGetQualityMethodInfo , + printSettingsGetQuality , + + +-- ** printSettingsGetResolution + PrintSettingsGetResolutionMethodInfo , + printSettingsGetResolution , + + +-- ** printSettingsGetResolutionX + PrintSettingsGetResolutionXMethodInfo , + printSettingsGetResolutionX , + + +-- ** printSettingsGetResolutionY + PrintSettingsGetResolutionYMethodInfo , + printSettingsGetResolutionY , + + +-- ** printSettingsGetReverse + PrintSettingsGetReverseMethodInfo , + printSettingsGetReverse , + + +-- ** printSettingsGetScale + PrintSettingsGetScaleMethodInfo , + printSettingsGetScale , + + +-- ** printSettingsGetUseColor + PrintSettingsGetUseColorMethodInfo , + printSettingsGetUseColor , + + +-- ** printSettingsHasKey + PrintSettingsHasKeyMethodInfo , + printSettingsHasKey , + + +-- ** printSettingsLoadFile + PrintSettingsLoadFileMethodInfo , + printSettingsLoadFile , + + +-- ** printSettingsLoadKeyFile + PrintSettingsLoadKeyFileMethodInfo , + printSettingsLoadKeyFile , + + +-- ** printSettingsNew + printSettingsNew , + + +-- ** printSettingsNewFromFile + printSettingsNewFromFile , + + +-- ** printSettingsNewFromKeyFile + printSettingsNewFromKeyFile , + + +-- ** printSettingsSet + PrintSettingsSetMethodInfo , + printSettingsSet , + + +-- ** printSettingsSetBool + PrintSettingsSetBoolMethodInfo , + printSettingsSetBool , + + +-- ** printSettingsSetCollate + PrintSettingsSetCollateMethodInfo , + printSettingsSetCollate , + + +-- ** printSettingsSetDefaultSource + PrintSettingsSetDefaultSourceMethodInfo , + printSettingsSetDefaultSource , + + +-- ** printSettingsSetDither + PrintSettingsSetDitherMethodInfo , + printSettingsSetDither , + + +-- ** printSettingsSetDouble + PrintSettingsSetDoubleMethodInfo , + printSettingsSetDouble , + + +-- ** printSettingsSetDuplex + PrintSettingsSetDuplexMethodInfo , + printSettingsSetDuplex , + + +-- ** printSettingsSetFinishings + PrintSettingsSetFinishingsMethodInfo , + printSettingsSetFinishings , + + +-- ** printSettingsSetInt + PrintSettingsSetIntMethodInfo , + printSettingsSetInt , + + +-- ** printSettingsSetLength + PrintSettingsSetLengthMethodInfo , + printSettingsSetLength , + + +-- ** printSettingsSetMediaType + PrintSettingsSetMediaTypeMethodInfo , + printSettingsSetMediaType , + + +-- ** printSettingsSetNCopies + PrintSettingsSetNCopiesMethodInfo , + printSettingsSetNCopies , + + +-- ** printSettingsSetNumberUp + PrintSettingsSetNumberUpMethodInfo , + printSettingsSetNumberUp , + + +-- ** printSettingsSetNumberUpLayout + PrintSettingsSetNumberUpLayoutMethodInfo, + printSettingsSetNumberUpLayout , + + +-- ** printSettingsSetOrientation + PrintSettingsSetOrientationMethodInfo , + printSettingsSetOrientation , + + +-- ** printSettingsSetOutputBin + PrintSettingsSetOutputBinMethodInfo , + printSettingsSetOutputBin , + + +-- ** printSettingsSetPageRanges + PrintSettingsSetPageRangesMethodInfo , + printSettingsSetPageRanges , + + +-- ** printSettingsSetPageSet + PrintSettingsSetPageSetMethodInfo , + printSettingsSetPageSet , + + +-- ** printSettingsSetPaperHeight + PrintSettingsSetPaperHeightMethodInfo , + printSettingsSetPaperHeight , + + +-- ** printSettingsSetPaperSize + PrintSettingsSetPaperSizeMethodInfo , + printSettingsSetPaperSize , + + +-- ** printSettingsSetPaperWidth + PrintSettingsSetPaperWidthMethodInfo , + printSettingsSetPaperWidth , + + +-- ** printSettingsSetPrintPages + PrintSettingsSetPrintPagesMethodInfo , + printSettingsSetPrintPages , + + +-- ** printSettingsSetPrinter + PrintSettingsSetPrinterMethodInfo , + printSettingsSetPrinter , + + +-- ** printSettingsSetPrinterLpi + PrintSettingsSetPrinterLpiMethodInfo , + printSettingsSetPrinterLpi , + + +-- ** printSettingsSetQuality + PrintSettingsSetQualityMethodInfo , + printSettingsSetQuality , + + +-- ** printSettingsSetResolution + PrintSettingsSetResolutionMethodInfo , + printSettingsSetResolution , + + +-- ** printSettingsSetResolutionXy + PrintSettingsSetResolutionXyMethodInfo , + printSettingsSetResolutionXy , + + +-- ** printSettingsSetReverse + PrintSettingsSetReverseMethodInfo , + printSettingsSetReverse , + + +-- ** printSettingsSetScale + PrintSettingsSetScaleMethodInfo , + printSettingsSetScale , + + +-- ** printSettingsSetUseColor + PrintSettingsSetUseColorMethodInfo , + printSettingsSetUseColor , + + +-- ** printSettingsToFile + PrintSettingsToFileMethodInfo , + printSettingsToFile , + + +-- ** printSettingsToKeyFile + PrintSettingsToKeyFileMethodInfo , + printSettingsToKeyFile , + + +-- ** printSettingsUnset + PrintSettingsUnsetMethodInfo , + printSettingsUnset , + + + + + ) 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 + +newtype PrintSettings = PrintSettings (ForeignPtr PrintSettings) +foreign import ccall "gtk_print_settings_get_type" + c_gtk_print_settings_get_type :: IO GType + +type instance ParentTypes PrintSettings = PrintSettingsParentTypes +type PrintSettingsParentTypes = '[GObject.Object] + +instance GObject PrintSettings where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_gtk_print_settings_get_type + + +class GObject o => PrintSettingsK o +instance (GObject o, IsDescendantOf PrintSettings o) => PrintSettingsK o + +toPrintSettings :: PrintSettingsK o => o -> IO PrintSettings +toPrintSettings = unsafeCastTo PrintSettings + +noPrintSettings :: Maybe PrintSettings +noPrintSettings = Nothing + +type family ResolvePrintSettingsMethod (t :: Symbol) (o :: *) :: * where + ResolvePrintSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePrintSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePrintSettingsMethod "copy" o = PrintSettingsCopyMethodInfo + ResolvePrintSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePrintSettingsMethod "foreach" o = PrintSettingsForeachMethodInfo + ResolvePrintSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePrintSettingsMethod "get" o = PrintSettingsGetMethodInfo + ResolvePrintSettingsMethod "hasKey" o = PrintSettingsHasKeyMethodInfo + ResolvePrintSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePrintSettingsMethod "loadFile" o = PrintSettingsLoadFileMethodInfo + ResolvePrintSettingsMethod "loadKeyFile" o = PrintSettingsLoadKeyFileMethodInfo + ResolvePrintSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePrintSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePrintSettingsMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePrintSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePrintSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePrintSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePrintSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePrintSettingsMethod "set" o = PrintSettingsSetMethodInfo + ResolvePrintSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePrintSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePrintSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePrintSettingsMethod "toFile" o = PrintSettingsToFileMethodInfo + ResolvePrintSettingsMethod "toKeyFile" o = PrintSettingsToKeyFileMethodInfo + ResolvePrintSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePrintSettingsMethod "unset" o = PrintSettingsUnsetMethodInfo + ResolvePrintSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePrintSettingsMethod "getBool" o = PrintSettingsGetBoolMethodInfo + ResolvePrintSettingsMethod "getCollate" o = PrintSettingsGetCollateMethodInfo + ResolvePrintSettingsMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePrintSettingsMethod "getDefaultSource" o = PrintSettingsGetDefaultSourceMethodInfo + ResolvePrintSettingsMethod "getDither" o = PrintSettingsGetDitherMethodInfo + ResolvePrintSettingsMethod "getDouble" o = PrintSettingsGetDoubleMethodInfo + ResolvePrintSettingsMethod "getDoubleWithDefault" o = PrintSettingsGetDoubleWithDefaultMethodInfo + ResolvePrintSettingsMethod "getDuplex" o = PrintSettingsGetDuplexMethodInfo + ResolvePrintSettingsMethod "getFinishings" o = PrintSettingsGetFinishingsMethodInfo + ResolvePrintSettingsMethod "getInt" o = PrintSettingsGetIntMethodInfo + ResolvePrintSettingsMethod "getIntWithDefault" o = PrintSettingsGetIntWithDefaultMethodInfo + ResolvePrintSettingsMethod "getLength" o = PrintSettingsGetLengthMethodInfo + ResolvePrintSettingsMethod "getMediaType" o = PrintSettingsGetMediaTypeMethodInfo + ResolvePrintSettingsMethod "getNCopies" o = PrintSettingsGetNCopiesMethodInfo + ResolvePrintSettingsMethod "getNumberUp" o = PrintSettingsGetNumberUpMethodInfo + ResolvePrintSettingsMethod "getNumberUpLayout" o = PrintSettingsGetNumberUpLayoutMethodInfo + ResolvePrintSettingsMethod "getOrientation" o = PrintSettingsGetOrientationMethodInfo + ResolvePrintSettingsMethod "getOutputBin" o = PrintSettingsGetOutputBinMethodInfo + ResolvePrintSettingsMethod "getPageRanges" o = PrintSettingsGetPageRangesMethodInfo + ResolvePrintSettingsMethod "getPageSet" o = PrintSettingsGetPageSetMethodInfo + ResolvePrintSettingsMethod "getPaperHeight" o = PrintSettingsGetPaperHeightMethodInfo + ResolvePrintSettingsMethod "getPaperSize" o = PrintSettingsGetPaperSizeMethodInfo + ResolvePrintSettingsMethod "getPaperWidth" o = PrintSettingsGetPaperWidthMethodInfo + ResolvePrintSettingsMethod "getPrintPages" o = PrintSettingsGetPrintPagesMethodInfo + ResolvePrintSettingsMethod "getPrinter" o = PrintSettingsGetPrinterMethodInfo + ResolvePrintSettingsMethod "getPrinterLpi" o = PrintSettingsGetPrinterLpiMethodInfo + ResolvePrintSettingsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePrintSettingsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePrintSettingsMethod "getQuality" o = PrintSettingsGetQualityMethodInfo + ResolvePrintSettingsMethod "getResolution" o = PrintSettingsGetResolutionMethodInfo + ResolvePrintSettingsMethod "getResolutionX" o = PrintSettingsGetResolutionXMethodInfo + ResolvePrintSettingsMethod "getResolutionY" o = PrintSettingsGetResolutionYMethodInfo + ResolvePrintSettingsMethod "getReverse" o = PrintSettingsGetReverseMethodInfo + ResolvePrintSettingsMethod "getScale" o = PrintSettingsGetScaleMethodInfo + ResolvePrintSettingsMethod "getUseColor" o = PrintSettingsGetUseColorMethodInfo + ResolvePrintSettingsMethod "setBool" o = PrintSettingsSetBoolMethodInfo + ResolvePrintSettingsMethod "setCollate" o = PrintSettingsSetCollateMethodInfo + ResolvePrintSettingsMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePrintSettingsMethod "setDefaultSource" o = PrintSettingsSetDefaultSourceMethodInfo + ResolvePrintSettingsMethod "setDither" o = PrintSettingsSetDitherMethodInfo + ResolvePrintSettingsMethod "setDouble" o = PrintSettingsSetDoubleMethodInfo + ResolvePrintSettingsMethod "setDuplex" o = PrintSettingsSetDuplexMethodInfo + ResolvePrintSettingsMethod "setFinishings" o = PrintSettingsSetFinishingsMethodInfo + ResolvePrintSettingsMethod "setInt" o = PrintSettingsSetIntMethodInfo + ResolvePrintSettingsMethod "setLength" o = PrintSettingsSetLengthMethodInfo + ResolvePrintSettingsMethod "setMediaType" o = PrintSettingsSetMediaTypeMethodInfo + ResolvePrintSettingsMethod "setNCopies" o = PrintSettingsSetNCopiesMethodInfo + ResolvePrintSettingsMethod "setNumberUp" o = PrintSettingsSetNumberUpMethodInfo + ResolvePrintSettingsMethod "setNumberUpLayout" o = PrintSettingsSetNumberUpLayoutMethodInfo + ResolvePrintSettingsMethod "setOrientation" o = PrintSettingsSetOrientationMethodInfo + ResolvePrintSettingsMethod "setOutputBin" o = PrintSettingsSetOutputBinMethodInfo + ResolvePrintSettingsMethod "setPageRanges" o = PrintSettingsSetPageRangesMethodInfo + ResolvePrintSettingsMethod "setPageSet" o = PrintSettingsSetPageSetMethodInfo + ResolvePrintSettingsMethod "setPaperHeight" o = PrintSettingsSetPaperHeightMethodInfo + ResolvePrintSettingsMethod "setPaperSize" o = PrintSettingsSetPaperSizeMethodInfo + ResolvePrintSettingsMethod "setPaperWidth" o = PrintSettingsSetPaperWidthMethodInfo + ResolvePrintSettingsMethod "setPrintPages" o = PrintSettingsSetPrintPagesMethodInfo + ResolvePrintSettingsMethod "setPrinter" o = PrintSettingsSetPrinterMethodInfo + ResolvePrintSettingsMethod "setPrinterLpi" o = PrintSettingsSetPrinterLpiMethodInfo + ResolvePrintSettingsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePrintSettingsMethod "setQuality" o = PrintSettingsSetQualityMethodInfo + ResolvePrintSettingsMethod "setResolution" o = PrintSettingsSetResolutionMethodInfo + ResolvePrintSettingsMethod "setResolutionXy" o = PrintSettingsSetResolutionXyMethodInfo + ResolvePrintSettingsMethod "setReverse" o = PrintSettingsSetReverseMethodInfo + ResolvePrintSettingsMethod "setScale" o = PrintSettingsSetScaleMethodInfo + ResolvePrintSettingsMethod "setUseColor" o = PrintSettingsSetUseColorMethodInfo + ResolvePrintSettingsMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePrintSettingsMethod t PrintSettings, MethodInfo info PrintSettings p) => IsLabelProxy t (PrintSettings -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePrintSettingsMethod t PrintSettings, MethodInfo info PrintSettings p) => IsLabel t (PrintSettings -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +type instance AttributeList PrintSettings = PrintSettingsAttributeList +type PrintSettingsAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList PrintSettings = PrintSettingsSignalList +type PrintSettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method PrintSettings::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- returnType : TInterface "Gtk" "PrintSettings" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_new" gtk_print_settings_new :: + IO (Ptr PrintSettings) + + +printSettingsNew :: + (MonadIO m) => + m PrintSettings -- result +printSettingsNew = liftIO $ do + result <- gtk_print_settings_new + checkUnexpectedReturnNULL "gtk_print_settings_new" result + result' <- (wrapObject PrintSettings) result + return result' + +-- method PrintSettings::new_from_file +-- method type : Constructor +-- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "PrintSettings" +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_print_settings_new_from_file" gtk_print_settings_new_from_file :: + CString -> -- file_name : TBasicType TFileName + Ptr (Ptr GError) -> -- error + IO (Ptr PrintSettings) + + +printSettingsNewFromFile :: + (MonadIO m) => + [Char] -- fileName + -> m PrintSettings -- result +printSettingsNewFromFile fileName = liftIO $ do + fileName' <- stringToCString fileName + onException (do + result <- propagateGError $ gtk_print_settings_new_from_file fileName' + checkUnexpectedReturnNULL "gtk_print_settings_new_from_file" result + result' <- (wrapObject PrintSettings) result + freeMem fileName' + return result' + ) (do + freeMem fileName' + ) + +-- method PrintSettings::new_from_key_file +-- method type : Constructor +-- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "PrintSettings" +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_print_settings_new_from_key_file" gtk_print_settings_new_from_key_file :: + Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr PrintSettings) + + +printSettingsNewFromKeyFile :: + (MonadIO m) => + GLib.KeyFile -- keyFile + -> Maybe (T.Text) -- groupName + -> m PrintSettings -- result +printSettingsNewFromKeyFile keyFile groupName = liftIO $ do + let keyFile' = unsafeManagedPtrGetPtr keyFile + maybeGroupName <- case groupName of + Nothing -> return nullPtr + Just jGroupName -> do + jGroupName' <- textToCString jGroupName + return jGroupName' + onException (do + result <- propagateGError $ gtk_print_settings_new_from_key_file keyFile' maybeGroupName + checkUnexpectedReturnNULL "gtk_print_settings_new_from_key_file" result + result' <- (wrapObject PrintSettings) result + touchManagedPtr keyFile + freeMem maybeGroupName + return result' + ) (do + freeMem maybeGroupName + ) + +-- method PrintSettings::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "PrintSettings" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_copy" gtk_print_settings_copy :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO (Ptr PrintSettings) + + +printSettingsCopy :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m PrintSettings -- result +printSettingsCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_copy _obj' + checkUnexpectedReturnNULL "gtk_print_settings_copy" result + result' <- (wrapObject PrintSettings) result + touchManagedPtr _obj + return result' + +data PrintSettingsCopyMethodInfo +instance (signature ~ (m PrintSettings), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsCopyMethodInfo a signature where + overloadedMethod _ = printSettingsCopy + +-- method PrintSettings::foreach +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_foreach" gtk_print_settings_foreach :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + FunPtr PrintSettingsFuncC -> -- func : TInterface "Gtk" "PrintSettingsFunc" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +printSettingsForeach :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> PrintSettingsFunc -- func + -> m () -- result +printSettingsForeach _obj func = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + func' <- mkPrintSettingsFunc (printSettingsFuncWrapper Nothing func) + let userData = nullPtr + gtk_print_settings_foreach _obj' func' userData + safeFreeFunPtr $ castFunPtrToPtr func' + touchManagedPtr _obj + return () + +data PrintSettingsForeachMethodInfo +instance (signature ~ (PrintSettingsFunc -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsForeachMethodInfo a signature where + overloadedMethod _ = printSettingsForeach + +-- method PrintSettings::get +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get" gtk_print_settings_get :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + IO CString + + +printSettingsGet :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> m T.Text -- result +printSettingsGet _obj key = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + result <- gtk_print_settings_get _obj' key' + checkUnexpectedReturnNULL "gtk_print_settings_get" result + result' <- cstringToText result + touchManagedPtr _obj + freeMem key' + return result' + +data PrintSettingsGetMethodInfo +instance (signature ~ (T.Text -> m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetMethodInfo a signature where + overloadedMethod _ = printSettingsGet + +-- method PrintSettings::get_bool +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_bool" gtk_print_settings_get_bool :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + IO CInt + + +printSettingsGetBool :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> m Bool -- result +printSettingsGetBool _obj key = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + result <- gtk_print_settings_get_bool _obj' key' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem key' + return result' + +data PrintSettingsGetBoolMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetBoolMethodInfo a signature where + overloadedMethod _ = printSettingsGetBool + +-- method PrintSettings::get_collate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_collate" gtk_print_settings_get_collate :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CInt + + +printSettingsGetCollate :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m Bool -- result +printSettingsGetCollate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_collate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data PrintSettingsGetCollateMethodInfo +instance (signature ~ (m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetCollateMethodInfo a signature where + overloadedMethod _ = printSettingsGetCollate + +-- method PrintSettings::get_default_source +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_default_source" gtk_print_settings_get_default_source :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CString + + +printSettingsGetDefaultSource :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m T.Text -- result +printSettingsGetDefaultSource _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_default_source _obj' + checkUnexpectedReturnNULL "gtk_print_settings_get_default_source" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data PrintSettingsGetDefaultSourceMethodInfo +instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDefaultSourceMethodInfo a signature where + overloadedMethod _ = printSettingsGetDefaultSource + +-- method PrintSettings::get_dither +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_dither" gtk_print_settings_get_dither :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CString + + +printSettingsGetDither :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m T.Text -- result +printSettingsGetDither _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_dither _obj' + checkUnexpectedReturnNULL "gtk_print_settings_get_dither" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data PrintSettingsGetDitherMethodInfo +instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDitherMethodInfo a signature where + overloadedMethod _ = printSettingsGetDither + +-- method PrintSettings::get_double +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_double" gtk_print_settings_get_double :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + IO CDouble + + +printSettingsGetDouble :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> m Double -- result +printSettingsGetDouble _obj key = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + result <- gtk_print_settings_get_double _obj' key' + let result' = realToFrac result + touchManagedPtr _obj + freeMem key' + return result' + +data PrintSettingsGetDoubleMethodInfo +instance (signature ~ (T.Text -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDoubleMethodInfo a signature where + overloadedMethod _ = printSettingsGetDouble + +-- method PrintSettings::get_double_with_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "def", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_double_with_default" gtk_print_settings_get_double_with_default :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + CDouble -> -- def : TBasicType TDouble + IO CDouble + + +printSettingsGetDoubleWithDefault :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> Double -- def + -> m Double -- result +printSettingsGetDoubleWithDefault _obj key def = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + let def' = realToFrac def + result <- gtk_print_settings_get_double_with_default _obj' key' def' + let result' = realToFrac result + touchManagedPtr _obj + freeMem key' + return result' + +data PrintSettingsGetDoubleWithDefaultMethodInfo +instance (signature ~ (T.Text -> Double -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDoubleWithDefaultMethodInfo a signature where + overloadedMethod _ = printSettingsGetDoubleWithDefault + +-- method PrintSettings::get_duplex +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "PrintDuplex" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_duplex" gtk_print_settings_get_duplex :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CUInt + + +printSettingsGetDuplex :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m PrintDuplex -- result +printSettingsGetDuplex _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_duplex _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data PrintSettingsGetDuplexMethodInfo +instance (signature ~ (m PrintDuplex), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetDuplexMethodInfo a signature where + overloadedMethod _ = printSettingsGetDuplex + +-- method PrintSettings::get_finishings +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_finishings" gtk_print_settings_get_finishings :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CString + + +printSettingsGetFinishings :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m T.Text -- result +printSettingsGetFinishings _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_finishings _obj' + checkUnexpectedReturnNULL "gtk_print_settings_get_finishings" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data PrintSettingsGetFinishingsMethodInfo +instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetFinishingsMethodInfo a signature where + overloadedMethod _ = printSettingsGetFinishings + +-- method PrintSettings::get_int +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_int" gtk_print_settings_get_int :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + IO Int32 + + +printSettingsGetInt :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> m Int32 -- result +printSettingsGetInt _obj key = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + result <- gtk_print_settings_get_int _obj' key' + touchManagedPtr _obj + freeMem key' + return result + +data PrintSettingsGetIntMethodInfo +instance (signature ~ (T.Text -> m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetIntMethodInfo a signature where + overloadedMethod _ = printSettingsGetInt + +-- method PrintSettings::get_int_with_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "def", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_int_with_default" gtk_print_settings_get_int_with_default :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + Int32 -> -- def : TBasicType TInt32 + IO Int32 + + +printSettingsGetIntWithDefault :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> Int32 -- def + -> m Int32 -- result +printSettingsGetIntWithDefault _obj key def = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + result <- gtk_print_settings_get_int_with_default _obj' key' def + touchManagedPtr _obj + freeMem key' + return result + +data PrintSettingsGetIntWithDefaultMethodInfo +instance (signature ~ (T.Text -> Int32 -> m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetIntWithDefaultMethodInfo a signature where + overloadedMethod _ = printSettingsGetIntWithDefault + +-- method PrintSettings::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_length" gtk_print_settings_get_length :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + CUInt -> -- unit : TInterface "Gtk" "Unit" + IO CDouble + + +printSettingsGetLength :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> Unit -- unit + -> m Double -- result +printSettingsGetLength _obj key unit = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + let unit' = (fromIntegral . fromEnum) unit + result <- gtk_print_settings_get_length _obj' key' unit' + let result' = realToFrac result + touchManagedPtr _obj + freeMem key' + return result' + +data PrintSettingsGetLengthMethodInfo +instance (signature ~ (T.Text -> Unit -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetLengthMethodInfo a signature where + overloadedMethod _ = printSettingsGetLength + +-- method PrintSettings::get_media_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_media_type" gtk_print_settings_get_media_type :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CString + + +printSettingsGetMediaType :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m T.Text -- result +printSettingsGetMediaType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_media_type _obj' + checkUnexpectedReturnNULL "gtk_print_settings_get_media_type" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data PrintSettingsGetMediaTypeMethodInfo +instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetMediaTypeMethodInfo a signature where + overloadedMethod _ = printSettingsGetMediaType + +-- method PrintSettings::get_n_copies +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_n_copies" gtk_print_settings_get_n_copies :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO Int32 + + +printSettingsGetNCopies :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m Int32 -- result +printSettingsGetNCopies _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_n_copies _obj' + touchManagedPtr _obj + return result + +data PrintSettingsGetNCopiesMethodInfo +instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetNCopiesMethodInfo a signature where + overloadedMethod _ = printSettingsGetNCopies + +-- method PrintSettings::get_number_up +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_number_up" gtk_print_settings_get_number_up :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO Int32 + + +printSettingsGetNumberUp :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m Int32 -- result +printSettingsGetNumberUp _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_number_up _obj' + touchManagedPtr _obj + return result + +data PrintSettingsGetNumberUpMethodInfo +instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetNumberUpMethodInfo a signature where + overloadedMethod _ = printSettingsGetNumberUp + +-- method PrintSettings::get_number_up_layout +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "NumberUpLayout" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_number_up_layout" gtk_print_settings_get_number_up_layout :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CUInt + + +printSettingsGetNumberUpLayout :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m NumberUpLayout -- result +printSettingsGetNumberUpLayout _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_number_up_layout _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data PrintSettingsGetNumberUpLayoutMethodInfo +instance (signature ~ (m NumberUpLayout), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetNumberUpLayoutMethodInfo a signature where + overloadedMethod _ = printSettingsGetNumberUpLayout + +-- method PrintSettings::get_orientation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "PageOrientation" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_orientation" gtk_print_settings_get_orientation :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CUInt + + +printSettingsGetOrientation :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m PageOrientation -- result +printSettingsGetOrientation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_orientation _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data PrintSettingsGetOrientationMethodInfo +instance (signature ~ (m PageOrientation), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetOrientationMethodInfo a signature where + overloadedMethod _ = printSettingsGetOrientation + +-- method PrintSettings::get_output_bin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_output_bin" gtk_print_settings_get_output_bin :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CString + + +printSettingsGetOutputBin :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m T.Text -- result +printSettingsGetOutputBin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_output_bin _obj' + checkUnexpectedReturnNULL "gtk_print_settings_get_output_bin" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data PrintSettingsGetOutputBinMethodInfo +instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetOutputBinMethodInfo a signature where + overloadedMethod _ = printSettingsGetOutputBin + +-- method PrintSettings::get_page_ranges +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : TCArray False (-1) 1 (TInterface "Gtk" "PageRange") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_page_ranges" gtk_print_settings_get_page_ranges :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + Ptr Int32 -> -- num_ranges : TBasicType TInt32 + IO (Ptr PageRange) + + +printSettingsGetPageRanges :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m [PageRange] -- result +printSettingsGetPageRanges _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + numRanges <- allocMem :: IO (Ptr Int32) + result <- gtk_print_settings_get_page_ranges _obj' numRanges + numRanges' <- peek numRanges + checkUnexpectedReturnNULL "gtk_print_settings_get_page_ranges" result + result' <- (unpackBlockArrayWithLength 8 numRanges') result + result'' <- mapM (wrapPtr PageRange) result' + freeMem result + touchManagedPtr _obj + freeMem numRanges + return result'' + +data PrintSettingsGetPageRangesMethodInfo +instance (signature ~ (m [PageRange]), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPageRangesMethodInfo a signature where + overloadedMethod _ = printSettingsGetPageRanges + +-- method PrintSettings::get_page_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "PageSet" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_page_set" gtk_print_settings_get_page_set :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CUInt + + +printSettingsGetPageSet :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m PageSet -- result +printSettingsGetPageSet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_page_set _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data PrintSettingsGetPageSetMethodInfo +instance (signature ~ (m PageSet), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPageSetMethodInfo a signature where + overloadedMethod _ = printSettingsGetPageSet + +-- method PrintSettings::get_paper_height +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_paper_height" gtk_print_settings_get_paper_height :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CUInt -> -- unit : TInterface "Gtk" "Unit" + IO CDouble + + +printSettingsGetPaperHeight :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Unit -- unit + -> m Double -- result +printSettingsGetPaperHeight _obj unit = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let unit' = (fromIntegral . fromEnum) unit + result <- gtk_print_settings_get_paper_height _obj' unit' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data PrintSettingsGetPaperHeightMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPaperHeightMethodInfo a signature where + overloadedMethod _ = printSettingsGetPaperHeight + +-- method PrintSettings::get_paper_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "PaperSize" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_paper_size" gtk_print_settings_get_paper_size :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO (Ptr PaperSize) + + +printSettingsGetPaperSize :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m PaperSize -- result +printSettingsGetPaperSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_paper_size _obj' + checkUnexpectedReturnNULL "gtk_print_settings_get_paper_size" result + result' <- (wrapBoxed PaperSize) result + touchManagedPtr _obj + return result' + +data PrintSettingsGetPaperSizeMethodInfo +instance (signature ~ (m PaperSize), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPaperSizeMethodInfo a signature where + overloadedMethod _ = printSettingsGetPaperSize + +-- method PrintSettings::get_paper_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_paper_width" gtk_print_settings_get_paper_width :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CUInt -> -- unit : TInterface "Gtk" "Unit" + IO CDouble + + +printSettingsGetPaperWidth :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Unit -- unit + -> m Double -- result +printSettingsGetPaperWidth _obj unit = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let unit' = (fromIntegral . fromEnum) unit + result <- gtk_print_settings_get_paper_width _obj' unit' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data PrintSettingsGetPaperWidthMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPaperWidthMethodInfo a signature where + overloadedMethod _ = printSettingsGetPaperWidth + +-- method PrintSettings::get_print_pages +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "PrintPages" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_print_pages" gtk_print_settings_get_print_pages :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CUInt + + +printSettingsGetPrintPages :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m PrintPages -- result +printSettingsGetPrintPages _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_print_pages _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data PrintSettingsGetPrintPagesMethodInfo +instance (signature ~ (m PrintPages), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPrintPagesMethodInfo a signature where + overloadedMethod _ = printSettingsGetPrintPages + +-- method PrintSettings::get_printer +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_printer" gtk_print_settings_get_printer :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CString + + +printSettingsGetPrinter :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m T.Text -- result +printSettingsGetPrinter _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_printer _obj' + checkUnexpectedReturnNULL "gtk_print_settings_get_printer" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data PrintSettingsGetPrinterMethodInfo +instance (signature ~ (m T.Text), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPrinterMethodInfo a signature where + overloadedMethod _ = printSettingsGetPrinter + +-- method PrintSettings::get_printer_lpi +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_printer_lpi" gtk_print_settings_get_printer_lpi :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CDouble + + +printSettingsGetPrinterLpi :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m Double -- result +printSettingsGetPrinterLpi _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_printer_lpi _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data PrintSettingsGetPrinterLpiMethodInfo +instance (signature ~ (m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetPrinterLpiMethodInfo a signature where + overloadedMethod _ = printSettingsGetPrinterLpi + +-- method PrintSettings::get_quality +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "PrintQuality" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_quality" gtk_print_settings_get_quality :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CUInt + + +printSettingsGetQuality :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m PrintQuality -- result +printSettingsGetQuality _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_quality _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data PrintSettingsGetQualityMethodInfo +instance (signature ~ (m PrintQuality), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetQualityMethodInfo a signature where + overloadedMethod _ = printSettingsGetQuality + +-- method PrintSettings::get_resolution +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_resolution" gtk_print_settings_get_resolution :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO Int32 + + +printSettingsGetResolution :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m Int32 -- result +printSettingsGetResolution _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_resolution _obj' + touchManagedPtr _obj + return result + +data PrintSettingsGetResolutionMethodInfo +instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetResolutionMethodInfo a signature where + overloadedMethod _ = printSettingsGetResolution + +-- method PrintSettings::get_resolution_x +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_resolution_x" gtk_print_settings_get_resolution_x :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO Int32 + + +printSettingsGetResolutionX :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m Int32 -- result +printSettingsGetResolutionX _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_resolution_x _obj' + touchManagedPtr _obj + return result + +data PrintSettingsGetResolutionXMethodInfo +instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetResolutionXMethodInfo a signature where + overloadedMethod _ = printSettingsGetResolutionX + +-- method PrintSettings::get_resolution_y +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_resolution_y" gtk_print_settings_get_resolution_y :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO Int32 + + +printSettingsGetResolutionY :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m Int32 -- result +printSettingsGetResolutionY _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_resolution_y _obj' + touchManagedPtr _obj + return result + +data PrintSettingsGetResolutionYMethodInfo +instance (signature ~ (m Int32), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetResolutionYMethodInfo a signature where + overloadedMethod _ = printSettingsGetResolutionY + +-- method PrintSettings::get_reverse +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_reverse" gtk_print_settings_get_reverse :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CInt + + +printSettingsGetReverse :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m Bool -- result +printSettingsGetReverse _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_reverse _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data PrintSettingsGetReverseMethodInfo +instance (signature ~ (m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetReverseMethodInfo a signature where + overloadedMethod _ = printSettingsGetReverse + +-- method PrintSettings::get_scale +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_scale" gtk_print_settings_get_scale :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CDouble + + +printSettingsGetScale :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m Double -- result +printSettingsGetScale _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_scale _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data PrintSettingsGetScaleMethodInfo +instance (signature ~ (m Double), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetScaleMethodInfo a signature where + overloadedMethod _ = printSettingsGetScale + +-- method PrintSettings::get_use_color +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_get_use_color" gtk_print_settings_get_use_color :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + IO CInt + + +printSettingsGetUseColor :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> m Bool -- result +printSettingsGetUseColor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_print_settings_get_use_color _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data PrintSettingsGetUseColorMethodInfo +instance (signature ~ (m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsGetUseColorMethodInfo a signature where + overloadedMethod _ = printSettingsGetUseColor + +-- method PrintSettings::has_key +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_has_key" gtk_print_settings_has_key :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + IO CInt + + +printSettingsHasKey :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> m Bool -- result +printSettingsHasKey _obj key = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + result <- gtk_print_settings_has_key _obj' key' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem key' + return result' + +data PrintSettingsHasKeyMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsHasKeyMethodInfo a signature where + overloadedMethod _ = printSettingsHasKey + +-- method PrintSettings::load_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_print_settings_load_file" gtk_print_settings_load_file :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- file_name : TBasicType TFileName + Ptr (Ptr GError) -> -- error + IO CInt + + +printSettingsLoadFile :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> [Char] -- fileName + -> m () -- result +printSettingsLoadFile _obj fileName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + fileName' <- stringToCString fileName + onException (do + _ <- propagateGError $ gtk_print_settings_load_file _obj' fileName' + touchManagedPtr _obj + freeMem fileName' + return () + ) (do + freeMem fileName' + ) + +data PrintSettingsLoadFileMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsLoadFileMethodInfo a signature where + overloadedMethod _ = printSettingsLoadFile + +-- method PrintSettings::load_key_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_print_settings_load_key_file" gtk_print_settings_load_key_file :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +printSettingsLoadKeyFile :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> GLib.KeyFile -- keyFile + -> Maybe (T.Text) -- groupName + -> m () -- result +printSettingsLoadKeyFile _obj keyFile groupName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let keyFile' = unsafeManagedPtrGetPtr keyFile + maybeGroupName <- case groupName of + Nothing -> return nullPtr + Just jGroupName -> do + jGroupName' <- textToCString jGroupName + return jGroupName' + onException (do + _ <- propagateGError $ gtk_print_settings_load_key_file _obj' keyFile' maybeGroupName + touchManagedPtr _obj + touchManagedPtr keyFile + freeMem maybeGroupName + return () + ) (do + freeMem maybeGroupName + ) + +data PrintSettingsLoadKeyFileMethodInfo +instance (signature ~ (GLib.KeyFile -> Maybe (T.Text) -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsLoadKeyFileMethodInfo a signature where + overloadedMethod _ = printSettingsLoadKeyFile + +-- method PrintSettings::set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set" gtk_print_settings_set :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + CString -> -- value : TBasicType TUTF8 + IO () + + +printSettingsSet :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> Maybe (T.Text) -- value + -> m () -- result +printSettingsSet _obj key value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + maybeValue <- case value of + Nothing -> return nullPtr + Just jValue -> do + jValue' <- textToCString jValue + return jValue' + gtk_print_settings_set _obj' key' maybeValue + touchManagedPtr _obj + freeMem key' + freeMem maybeValue + return () + +data PrintSettingsSetMethodInfo +instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetMethodInfo a signature where + overloadedMethod _ = printSettingsSet + +-- method PrintSettings::set_bool +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_bool" gtk_print_settings_set_bool :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + CInt -> -- value : TBasicType TBoolean + IO () + + +printSettingsSetBool :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> Bool -- value + -> m () -- result +printSettingsSetBool _obj key value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + let value' = (fromIntegral . fromEnum) value + gtk_print_settings_set_bool _obj' key' value' + touchManagedPtr _obj + freeMem key' + return () + +data PrintSettingsSetBoolMethodInfo +instance (signature ~ (T.Text -> Bool -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetBoolMethodInfo a signature where + overloadedMethod _ = printSettingsSetBool + +-- method PrintSettings::set_collate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "collate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_collate" gtk_print_settings_set_collate :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CInt -> -- collate : TBasicType TBoolean + IO () + + +printSettingsSetCollate :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Bool -- collate + -> m () -- result +printSettingsSetCollate _obj collate = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let collate' = (fromIntegral . fromEnum) collate + gtk_print_settings_set_collate _obj' collate' + touchManagedPtr _obj + return () + +data PrintSettingsSetCollateMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetCollateMethodInfo a signature where + overloadedMethod _ = printSettingsSetCollate + +-- method PrintSettings::set_default_source +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_default_source" gtk_print_settings_set_default_source :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- default_source : TBasicType TUTF8 + IO () + + +printSettingsSetDefaultSource :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- defaultSource + -> m () -- result +printSettingsSetDefaultSource _obj defaultSource = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + defaultSource' <- textToCString defaultSource + gtk_print_settings_set_default_source _obj' defaultSource' + touchManagedPtr _obj + freeMem defaultSource' + return () + +data PrintSettingsSetDefaultSourceMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetDefaultSourceMethodInfo a signature where + overloadedMethod _ = printSettingsSetDefaultSource + +-- method PrintSettings::set_dither +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dither", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_dither" gtk_print_settings_set_dither :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- dither : TBasicType TUTF8 + IO () + + +printSettingsSetDither :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- dither + -> m () -- result +printSettingsSetDither _obj dither = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + dither' <- textToCString dither + gtk_print_settings_set_dither _obj' dither' + touchManagedPtr _obj + freeMem dither' + return () + +data PrintSettingsSetDitherMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetDitherMethodInfo a signature where + overloadedMethod _ = printSettingsSetDither + +-- method PrintSettings::set_double +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_double" gtk_print_settings_set_double :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + CDouble -> -- value : TBasicType TDouble + IO () + + +printSettingsSetDouble :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> Double -- value + -> m () -- result +printSettingsSetDouble _obj key value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + let value' = realToFrac value + gtk_print_settings_set_double _obj' key' value' + touchManagedPtr _obj + freeMem key' + return () + +data PrintSettingsSetDoubleMethodInfo +instance (signature ~ (T.Text -> Double -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetDoubleMethodInfo a signature where + overloadedMethod _ = printSettingsSetDouble + +-- method PrintSettings::set_duplex +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duplex", argType = TInterface "Gtk" "PrintDuplex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_duplex" gtk_print_settings_set_duplex :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CUInt -> -- duplex : TInterface "Gtk" "PrintDuplex" + IO () + + +printSettingsSetDuplex :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> PrintDuplex -- duplex + -> m () -- result +printSettingsSetDuplex _obj duplex = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let duplex' = (fromIntegral . fromEnum) duplex + gtk_print_settings_set_duplex _obj' duplex' + touchManagedPtr _obj + return () + +data PrintSettingsSetDuplexMethodInfo +instance (signature ~ (PrintDuplex -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetDuplexMethodInfo a signature where + overloadedMethod _ = printSettingsSetDuplex + +-- method PrintSettings::set_finishings +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "finishings", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_finishings" gtk_print_settings_set_finishings :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- finishings : TBasicType TUTF8 + IO () + + +printSettingsSetFinishings :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- finishings + -> m () -- result +printSettingsSetFinishings _obj finishings = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + finishings' <- textToCString finishings + gtk_print_settings_set_finishings _obj' finishings' + touchManagedPtr _obj + freeMem finishings' + return () + +data PrintSettingsSetFinishingsMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetFinishingsMethodInfo a signature where + overloadedMethod _ = printSettingsSetFinishings + +-- method PrintSettings::set_int +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_int" gtk_print_settings_set_int :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + Int32 -> -- value : TBasicType TInt32 + IO () + + +printSettingsSetInt :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> Int32 -- value + -> m () -- result +printSettingsSetInt _obj key value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + gtk_print_settings_set_int _obj' key' value + touchManagedPtr _obj + freeMem key' + return () + +data PrintSettingsSetIntMethodInfo +instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetIntMethodInfo a signature where + overloadedMethod _ = printSettingsSetInt + +-- method PrintSettings::set_length +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_length" gtk_print_settings_set_length :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + CDouble -> -- value : TBasicType TDouble + CUInt -> -- unit : TInterface "Gtk" "Unit" + IO () + + +printSettingsSetLength :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> Double -- value + -> Unit -- unit + -> m () -- result +printSettingsSetLength _obj key value unit = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + let value' = realToFrac value + let unit' = (fromIntegral . fromEnum) unit + gtk_print_settings_set_length _obj' key' value' unit' + touchManagedPtr _obj + freeMem key' + return () + +data PrintSettingsSetLengthMethodInfo +instance (signature ~ (T.Text -> Double -> Unit -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetLengthMethodInfo a signature where + overloadedMethod _ = printSettingsSetLength + +-- method PrintSettings::set_media_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "media_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_media_type" gtk_print_settings_set_media_type :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- media_type : TBasicType TUTF8 + IO () + + +printSettingsSetMediaType :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- mediaType + -> m () -- result +printSettingsSetMediaType _obj mediaType = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + mediaType' <- textToCString mediaType + gtk_print_settings_set_media_type _obj' mediaType' + touchManagedPtr _obj + freeMem mediaType' + return () + +data PrintSettingsSetMediaTypeMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetMediaTypeMethodInfo a signature where + overloadedMethod _ = printSettingsSetMediaType + +-- method PrintSettings::set_n_copies +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_copies", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_n_copies" gtk_print_settings_set_n_copies :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + Int32 -> -- num_copies : TBasicType TInt32 + IO () + + +printSettingsSetNCopies :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Int32 -- numCopies + -> m () -- result +printSettingsSetNCopies _obj numCopies = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_print_settings_set_n_copies _obj' numCopies + touchManagedPtr _obj + return () + +data PrintSettingsSetNCopiesMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetNCopiesMethodInfo a signature where + overloadedMethod _ = printSettingsSetNCopies + +-- method PrintSettings::set_number_up +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_up", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_number_up" gtk_print_settings_set_number_up :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + Int32 -> -- number_up : TBasicType TInt32 + IO () + + +printSettingsSetNumberUp :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Int32 -- numberUp + -> m () -- result +printSettingsSetNumberUp _obj numberUp = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_print_settings_set_number_up _obj' numberUp + touchManagedPtr _obj + return () + +data PrintSettingsSetNumberUpMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetNumberUpMethodInfo a signature where + overloadedMethod _ = printSettingsSetNumberUp + +-- method PrintSettings::set_number_up_layout +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_up_layout", argType = TInterface "Gtk" "NumberUpLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_number_up_layout" gtk_print_settings_set_number_up_layout :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CUInt -> -- number_up_layout : TInterface "Gtk" "NumberUpLayout" + IO () + + +printSettingsSetNumberUpLayout :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> NumberUpLayout -- numberUpLayout + -> m () -- result +printSettingsSetNumberUpLayout _obj numberUpLayout = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let numberUpLayout' = (fromIntegral . fromEnum) numberUpLayout + gtk_print_settings_set_number_up_layout _obj' numberUpLayout' + touchManagedPtr _obj + return () + +data PrintSettingsSetNumberUpLayoutMethodInfo +instance (signature ~ (NumberUpLayout -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetNumberUpLayoutMethodInfo a signature where + overloadedMethod _ = printSettingsSetNumberUpLayout + +-- method PrintSettings::set_orientation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_orientation" gtk_print_settings_set_orientation :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CUInt -> -- orientation : TInterface "Gtk" "PageOrientation" + IO () + + +printSettingsSetOrientation :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> PageOrientation -- orientation + -> m () -- result +printSettingsSetOrientation _obj orientation = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let orientation' = (fromIntegral . fromEnum) orientation + gtk_print_settings_set_orientation _obj' orientation' + touchManagedPtr _obj + return () + +data PrintSettingsSetOrientationMethodInfo +instance (signature ~ (PageOrientation -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetOrientationMethodInfo a signature where + overloadedMethod _ = printSettingsSetOrientation + +-- method PrintSettings::set_output_bin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "output_bin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_output_bin" gtk_print_settings_set_output_bin :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- output_bin : TBasicType TUTF8 + IO () + + +printSettingsSetOutputBin :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- outputBin + -> m () -- result +printSettingsSetOutputBin _obj outputBin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + outputBin' <- textToCString outputBin + gtk_print_settings_set_output_bin _obj' outputBin' + touchManagedPtr _obj + freeMem outputBin' + return () + +data PrintSettingsSetOutputBinMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetOutputBinMethodInfo a signature where + overloadedMethod _ = printSettingsSetOutputBin + +-- method PrintSettings::set_page_ranges +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_page_ranges" gtk_print_settings_set_page_ranges :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + Ptr PageRange -> -- page_ranges : TCArray False (-1) 2 (TInterface "Gtk" "PageRange") + Int32 -> -- num_ranges : TBasicType TInt32 + IO () + + +printSettingsSetPageRanges :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> [PageRange] -- pageRanges + -> m () -- result +printSettingsSetPageRanges _obj pageRanges = liftIO $ do + let numRanges = fromIntegral $ length pageRanges + let _obj' = unsafeManagedPtrCastPtr _obj + let pageRanges' = map unsafeManagedPtrGetPtr pageRanges + pageRanges'' <- packBlockArray 8 pageRanges' + gtk_print_settings_set_page_ranges _obj' pageRanges'' numRanges + touchManagedPtr _obj + mapM_ touchManagedPtr pageRanges + freeMem pageRanges'' + return () + +data PrintSettingsSetPageRangesMethodInfo +instance (signature ~ ([PageRange] -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPageRangesMethodInfo a signature where + overloadedMethod _ = printSettingsSetPageRanges + +-- method PrintSettings::set_page_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_set", argType = TInterface "Gtk" "PageSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_page_set" gtk_print_settings_set_page_set :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CUInt -> -- page_set : TInterface "Gtk" "PageSet" + IO () + + +printSettingsSetPageSet :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> PageSet -- pageSet + -> m () -- result +printSettingsSetPageSet _obj pageSet = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let pageSet' = (fromIntegral . fromEnum) pageSet + gtk_print_settings_set_page_set _obj' pageSet' + touchManagedPtr _obj + return () + +data PrintSettingsSetPageSetMethodInfo +instance (signature ~ (PageSet -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPageSetMethodInfo a signature where + overloadedMethod _ = printSettingsSetPageSet + +-- method PrintSettings::set_paper_height +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_paper_height" gtk_print_settings_set_paper_height :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CDouble -> -- height : TBasicType TDouble + CUInt -> -- unit : TInterface "Gtk" "Unit" + IO () + + +printSettingsSetPaperHeight :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Double -- height + -> Unit -- unit + -> m () -- result +printSettingsSetPaperHeight _obj height unit = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let height' = realToFrac height + let unit' = (fromIntegral . fromEnum) unit + gtk_print_settings_set_paper_height _obj' height' unit' + touchManagedPtr _obj + return () + +data PrintSettingsSetPaperHeightMethodInfo +instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPaperHeightMethodInfo a signature where + overloadedMethod _ = printSettingsSetPaperHeight + +-- method PrintSettings::set_paper_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paper_size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_paper_size" gtk_print_settings_set_paper_size :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + Ptr PaperSize -> -- paper_size : TInterface "Gtk" "PaperSize" + IO () + + +printSettingsSetPaperSize :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> PaperSize -- paperSize + -> m () -- result +printSettingsSetPaperSize _obj paperSize = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let paperSize' = unsafeManagedPtrGetPtr paperSize + gtk_print_settings_set_paper_size _obj' paperSize' + touchManagedPtr _obj + touchManagedPtr paperSize + return () + +data PrintSettingsSetPaperSizeMethodInfo +instance (signature ~ (PaperSize -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPaperSizeMethodInfo a signature where + overloadedMethod _ = printSettingsSetPaperSize + +-- method PrintSettings::set_paper_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_paper_width" gtk_print_settings_set_paper_width :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CDouble -> -- width : TBasicType TDouble + CUInt -> -- unit : TInterface "Gtk" "Unit" + IO () + + +printSettingsSetPaperWidth :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Double -- width + -> Unit -- unit + -> m () -- result +printSettingsSetPaperWidth _obj width unit = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let width' = realToFrac width + let unit' = (fromIntegral . fromEnum) unit + gtk_print_settings_set_paper_width _obj' width' unit' + touchManagedPtr _obj + return () + +data PrintSettingsSetPaperWidthMethodInfo +instance (signature ~ (Double -> Unit -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPaperWidthMethodInfo a signature where + overloadedMethod _ = printSettingsSetPaperWidth + +-- method PrintSettings::set_print_pages +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pages", argType = TInterface "Gtk" "PrintPages", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_print_pages" gtk_print_settings_set_print_pages :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CUInt -> -- pages : TInterface "Gtk" "PrintPages" + IO () + + +printSettingsSetPrintPages :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> PrintPages -- pages + -> m () -- result +printSettingsSetPrintPages _obj pages = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let pages' = (fromIntegral . fromEnum) pages + gtk_print_settings_set_print_pages _obj' pages' + touchManagedPtr _obj + return () + +data PrintSettingsSetPrintPagesMethodInfo +instance (signature ~ (PrintPages -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPrintPagesMethodInfo a signature where + overloadedMethod _ = printSettingsSetPrintPages + +-- method PrintSettings::set_printer +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_printer" gtk_print_settings_set_printer :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- printer : TBasicType TUTF8 + IO () + + +printSettingsSetPrinter :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- printer + -> m () -- result +printSettingsSetPrinter _obj printer = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + printer' <- textToCString printer + gtk_print_settings_set_printer _obj' printer' + touchManagedPtr _obj + freeMem printer' + return () + +data PrintSettingsSetPrinterMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPrinterMethodInfo a signature where + overloadedMethod _ = printSettingsSetPrinter + +-- method PrintSettings::set_printer_lpi +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_printer_lpi" gtk_print_settings_set_printer_lpi :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CDouble -> -- lpi : TBasicType TDouble + IO () + + +printSettingsSetPrinterLpi :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Double -- lpi + -> m () -- result +printSettingsSetPrinterLpi _obj lpi = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let lpi' = realToFrac lpi + gtk_print_settings_set_printer_lpi _obj' lpi' + touchManagedPtr _obj + return () + +data PrintSettingsSetPrinterLpiMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetPrinterLpiMethodInfo a signature where + overloadedMethod _ = printSettingsSetPrinterLpi + +-- method PrintSettings::set_quality +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quality", argType = TInterface "Gtk" "PrintQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_quality" gtk_print_settings_set_quality :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CUInt -> -- quality : TInterface "Gtk" "PrintQuality" + IO () + + +printSettingsSetQuality :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> PrintQuality -- quality + -> m () -- result +printSettingsSetQuality _obj quality = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let quality' = (fromIntegral . fromEnum) quality + gtk_print_settings_set_quality _obj' quality' + touchManagedPtr _obj + return () + +data PrintSettingsSetQualityMethodInfo +instance (signature ~ (PrintQuality -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetQualityMethodInfo a signature where + overloadedMethod _ = printSettingsSetQuality + +-- method PrintSettings::set_resolution +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_resolution" gtk_print_settings_set_resolution :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + Int32 -> -- resolution : TBasicType TInt32 + IO () + + +printSettingsSetResolution :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Int32 -- resolution + -> m () -- result +printSettingsSetResolution _obj resolution = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_print_settings_set_resolution _obj' resolution + touchManagedPtr _obj + return () + +data PrintSettingsSetResolutionMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetResolutionMethodInfo a signature where + overloadedMethod _ = printSettingsSetResolution + +-- method PrintSettings::set_resolution_xy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_resolution_xy" gtk_print_settings_set_resolution_xy :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + Int32 -> -- resolution_x : TBasicType TInt32 + Int32 -> -- resolution_y : TBasicType TInt32 + IO () + + +printSettingsSetResolutionXy :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Int32 -- resolutionX + -> Int32 -- resolutionY + -> m () -- result +printSettingsSetResolutionXy _obj resolutionX resolutionY = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_print_settings_set_resolution_xy _obj' resolutionX resolutionY + touchManagedPtr _obj + return () + +data PrintSettingsSetResolutionXyMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetResolutionXyMethodInfo a signature where + overloadedMethod _ = printSettingsSetResolutionXy + +-- method PrintSettings::set_reverse +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reverse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_reverse" gtk_print_settings_set_reverse :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CInt -> -- reverse : TBasicType TBoolean + IO () + + +printSettingsSetReverse :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Bool -- reverse + -> m () -- result +printSettingsSetReverse _obj reverse = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let reverse' = (fromIntegral . fromEnum) reverse + gtk_print_settings_set_reverse _obj' reverse' + touchManagedPtr _obj + return () + +data PrintSettingsSetReverseMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetReverseMethodInfo a signature where + overloadedMethod _ = printSettingsSetReverse + +-- method PrintSettings::set_scale +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_scale" gtk_print_settings_set_scale :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CDouble -> -- scale : TBasicType TDouble + IO () + + +printSettingsSetScale :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Double -- scale + -> m () -- result +printSettingsSetScale _obj scale = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let scale' = realToFrac scale + gtk_print_settings_set_scale _obj' scale' + touchManagedPtr _obj + return () + +data PrintSettingsSetScaleMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetScaleMethodInfo a signature where + overloadedMethod _ = printSettingsSetScale + +-- method PrintSettings::set_use_color +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_set_use_color" gtk_print_settings_set_use_color :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CInt -> -- use_color : TBasicType TBoolean + IO () + + +printSettingsSetUseColor :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> Bool -- useColor + -> m () -- result +printSettingsSetUseColor _obj useColor = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let useColor' = (fromIntegral . fromEnum) useColor + gtk_print_settings_set_use_color _obj' useColor' + touchManagedPtr _obj + return () + +data PrintSettingsSetUseColorMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsSetUseColorMethodInfo a signature where + overloadedMethod _ = printSettingsSetUseColor + +-- method PrintSettings::to_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_print_settings_to_file" gtk_print_settings_to_file :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- file_name : TBasicType TFileName + Ptr (Ptr GError) -> -- error + IO CInt + + +printSettingsToFile :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> [Char] -- fileName + -> m () -- result +printSettingsToFile _obj fileName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + fileName' <- stringToCString fileName + onException (do + _ <- propagateGError $ gtk_print_settings_to_file _obj' fileName' + touchManagedPtr _obj + freeMem fileName' + return () + ) (do + freeMem fileName' + ) + +data PrintSettingsToFileMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsToFileMethodInfo a signature where + overloadedMethod _ = printSettingsToFile + +-- method PrintSettings::to_key_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_to_key_file" gtk_print_settings_to_key_file :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + IO () + + +printSettingsToKeyFile :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> GLib.KeyFile -- keyFile + -> T.Text -- groupName + -> m () -- result +printSettingsToKeyFile _obj keyFile groupName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let keyFile' = unsafeManagedPtrGetPtr keyFile + groupName' <- textToCString groupName + gtk_print_settings_to_key_file _obj' keyFile' groupName' + touchManagedPtr _obj + touchManagedPtr keyFile + freeMem groupName' + return () + +data PrintSettingsToKeyFileMethodInfo +instance (signature ~ (GLib.KeyFile -> T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsToKeyFileMethodInfo a signature where + overloadedMethod _ = printSettingsToKeyFile + +-- method PrintSettings::unset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_print_settings_unset" gtk_print_settings_unset :: + Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" + CString -> -- key : TBasicType TUTF8 + IO () + + +printSettingsUnset :: + (MonadIO m, PrintSettingsK a) => + a -- _obj + -> T.Text -- key + -> m () -- result +printSettingsUnset _obj key = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + gtk_print_settings_unset _obj' key' + touchManagedPtr _obj + freeMem key' + return () + +data PrintSettingsUnsetMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, PrintSettingsK a) => MethodInfo PrintSettingsUnsetMethodInfo a signature where + overloadedMethod _ = printSettingsUnset diff --git a/GI/Gtk/Objects/PrintSettings.hs-boot b/GI/Gtk/Objects/PrintSettings.hs-boot --- a/GI/Gtk/Objects/PrintSettings.hs-boot +++ b/GI/Gtk/Objects/PrintSettings.hs-boot @@ -11,3 +11,74 @@ instance GObject PrintSettings where class GObject o => PrintSettingsK o instance (GObject o, IsDescendantOf PrintSettings o) => PrintSettingsK o +data PrintSettingsCopyMethodInfo +data PrintSettingsForeachMethodInfo +data PrintSettingsGetMethodInfo +data PrintSettingsGetBoolMethodInfo +data PrintSettingsGetCollateMethodInfo +data PrintSettingsGetDefaultSourceMethodInfo +data PrintSettingsGetDitherMethodInfo +data PrintSettingsGetDoubleMethodInfo +data PrintSettingsGetDoubleWithDefaultMethodInfo +data PrintSettingsGetDuplexMethodInfo +data PrintSettingsGetFinishingsMethodInfo +data PrintSettingsGetIntMethodInfo +data PrintSettingsGetIntWithDefaultMethodInfo +data PrintSettingsGetLengthMethodInfo +data PrintSettingsGetMediaTypeMethodInfo +data PrintSettingsGetNCopiesMethodInfo +data PrintSettingsGetNumberUpMethodInfo +data PrintSettingsGetNumberUpLayoutMethodInfo +data PrintSettingsGetOrientationMethodInfo +data PrintSettingsGetOutputBinMethodInfo +data PrintSettingsGetPageRangesMethodInfo +data PrintSettingsGetPageSetMethodInfo +data PrintSettingsGetPaperHeightMethodInfo +data PrintSettingsGetPaperSizeMethodInfo +data PrintSettingsGetPaperWidthMethodInfo +data PrintSettingsGetPrintPagesMethodInfo +data PrintSettingsGetPrinterMethodInfo +data PrintSettingsGetPrinterLpiMethodInfo +data PrintSettingsGetQualityMethodInfo +data PrintSettingsGetResolutionMethodInfo +data PrintSettingsGetResolutionXMethodInfo +data PrintSettingsGetResolutionYMethodInfo +data PrintSettingsGetReverseMethodInfo +data PrintSettingsGetScaleMethodInfo +data PrintSettingsGetUseColorMethodInfo +data PrintSettingsHasKeyMethodInfo +data PrintSettingsLoadFileMethodInfo +data PrintSettingsLoadKeyFileMethodInfo +data PrintSettingsSetMethodInfo +data PrintSettingsSetBoolMethodInfo +data PrintSettingsSetCollateMethodInfo +data PrintSettingsSetDefaultSourceMethodInfo +data PrintSettingsSetDitherMethodInfo +data PrintSettingsSetDoubleMethodInfo +data PrintSettingsSetDuplexMethodInfo +data PrintSettingsSetFinishingsMethodInfo +data PrintSettingsSetIntMethodInfo +data PrintSettingsSetLengthMethodInfo +data PrintSettingsSetMediaTypeMethodInfo +data PrintSettingsSetNCopiesMethodInfo +data PrintSettingsSetNumberUpMethodInfo +data PrintSettingsSetNumberUpLayoutMethodInfo +data PrintSettingsSetOrientationMethodInfo +data PrintSettingsSetOutputBinMethodInfo +data PrintSettingsSetPageRangesMethodInfo +data PrintSettingsSetPageSetMethodInfo +data PrintSettingsSetPaperHeightMethodInfo +data PrintSettingsSetPaperSizeMethodInfo +data PrintSettingsSetPaperWidthMethodInfo +data PrintSettingsSetPrintPagesMethodInfo +data PrintSettingsSetPrinterMethodInfo +data PrintSettingsSetPrinterLpiMethodInfo +data PrintSettingsSetQualityMethodInfo +data PrintSettingsSetResolutionMethodInfo +data PrintSettingsSetResolutionXyMethodInfo +data PrintSettingsSetReverseMethodInfo +data PrintSettingsSetScaleMethodInfo +data PrintSettingsSetUseColorMethodInfo +data PrintSettingsToFileMethodInfo +data PrintSettingsToKeyFileMethodInfo +data PrintSettingsUnsetMethodInfo diff --git a/GI/Gtk/Objects/ProgressBar.hs b/GI/Gtk/Objects/ProgressBar.hs --- a/GI/Gtk/Objects/ProgressBar.hs +++ b/GI/Gtk/Objects/ProgressBar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** progressBarGetEllipsize + ProgressBarGetEllipsizeMethodInfo , progressBarGetEllipsize , -- ** progressBarGetFraction + ProgressBarGetFractionMethodInfo , progressBarGetFraction , -- ** progressBarGetInverted + ProgressBarGetInvertedMethodInfo , progressBarGetInverted , -- ** progressBarGetPulseStep + ProgressBarGetPulseStepMethodInfo , progressBarGetPulseStep , -- ** progressBarGetShowText + ProgressBarGetShowTextMethodInfo , progressBarGetShowText , -- ** progressBarGetText + ProgressBarGetTextMethodInfo , progressBarGetText , @@ -45,30 +52,37 @@ -- ** progressBarPulse + ProgressBarPulseMethodInfo , progressBarPulse , -- ** progressBarSetEllipsize + ProgressBarSetEllipsizeMethodInfo , progressBarSetEllipsize , -- ** progressBarSetFraction + ProgressBarSetFractionMethodInfo , progressBarSetFraction , -- ** progressBarSetInverted + ProgressBarSetInvertedMethodInfo , progressBarSetInverted , -- ** progressBarSetPulseStep + ProgressBarSetPulseStepMethodInfo , progressBarSetPulseStep , -- ** progressBarSetShowText + ProgressBarSetShowTextMethodInfo , progressBarSetShowText , -- ** progressBarSetText + ProgressBarSetTextMethodInfo , progressBarSetText , @@ -155,6 +169,317 @@ noProgressBar :: Maybe ProgressBar noProgressBar = Nothing +type family ResolveProgressBarMethod (t :: Symbol) (o :: *) :: * where + ResolveProgressBarMethod "activate" o = WidgetActivateMethodInfo + ResolveProgressBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveProgressBarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveProgressBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveProgressBarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveProgressBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveProgressBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveProgressBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveProgressBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveProgressBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveProgressBarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveProgressBarMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveProgressBarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveProgressBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveProgressBarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveProgressBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveProgressBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveProgressBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveProgressBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveProgressBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveProgressBarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveProgressBarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveProgressBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveProgressBarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveProgressBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveProgressBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveProgressBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveProgressBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveProgressBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveProgressBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveProgressBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveProgressBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveProgressBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveProgressBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveProgressBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveProgressBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveProgressBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveProgressBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveProgressBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveProgressBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveProgressBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveProgressBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveProgressBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveProgressBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveProgressBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveProgressBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveProgressBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveProgressBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveProgressBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveProgressBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveProgressBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveProgressBarMethod "draw" o = WidgetDrawMethodInfo + ResolveProgressBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveProgressBarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveProgressBarMethod "event" o = WidgetEventMethodInfo + ResolveProgressBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveProgressBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveProgressBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveProgressBarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveProgressBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveProgressBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveProgressBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveProgressBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveProgressBarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveProgressBarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveProgressBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveProgressBarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveProgressBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveProgressBarMethod "hide" o = WidgetHideMethodInfo + ResolveProgressBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveProgressBarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveProgressBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveProgressBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveProgressBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveProgressBarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveProgressBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveProgressBarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveProgressBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveProgressBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveProgressBarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveProgressBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveProgressBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveProgressBarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveProgressBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveProgressBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveProgressBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveProgressBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveProgressBarMethod "map" o = WidgetMapMethodInfo + ResolveProgressBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveProgressBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveProgressBarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveProgressBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveProgressBarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveProgressBarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveProgressBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveProgressBarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveProgressBarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveProgressBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveProgressBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveProgressBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveProgressBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveProgressBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveProgressBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveProgressBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveProgressBarMethod "path" o = WidgetPathMethodInfo + ResolveProgressBarMethod "pulse" o = ProgressBarPulseMethodInfo + ResolveProgressBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveProgressBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveProgressBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveProgressBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveProgressBarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveProgressBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveProgressBarMethod "realize" o = WidgetRealizeMethodInfo + ResolveProgressBarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveProgressBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveProgressBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveProgressBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveProgressBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveProgressBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveProgressBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveProgressBarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveProgressBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveProgressBarMethod "reparent" o = WidgetReparentMethodInfo + ResolveProgressBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveProgressBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveProgressBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveProgressBarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveProgressBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveProgressBarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveProgressBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveProgressBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveProgressBarMethod "show" o = WidgetShowMethodInfo + ResolveProgressBarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveProgressBarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveProgressBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveProgressBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveProgressBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveProgressBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveProgressBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveProgressBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveProgressBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveProgressBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveProgressBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveProgressBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveProgressBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveProgressBarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveProgressBarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveProgressBarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveProgressBarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveProgressBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveProgressBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveProgressBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveProgressBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveProgressBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveProgressBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveProgressBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveProgressBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveProgressBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveProgressBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveProgressBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveProgressBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveProgressBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveProgressBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveProgressBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveProgressBarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveProgressBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveProgressBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveProgressBarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveProgressBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveProgressBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveProgressBarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveProgressBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveProgressBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveProgressBarMethod "getEllipsize" o = ProgressBarGetEllipsizeMethodInfo + ResolveProgressBarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveProgressBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveProgressBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveProgressBarMethod "getFraction" o = ProgressBarGetFractionMethodInfo + ResolveProgressBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveProgressBarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveProgressBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveProgressBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveProgressBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveProgressBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveProgressBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveProgressBarMethod "getInverted" o = ProgressBarGetInvertedMethodInfo + ResolveProgressBarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveProgressBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveProgressBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveProgressBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveProgressBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveProgressBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveProgressBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveProgressBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveProgressBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveProgressBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveProgressBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveProgressBarMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveProgressBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveProgressBarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveProgressBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveProgressBarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveProgressBarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveProgressBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveProgressBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveProgressBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveProgressBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveProgressBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveProgressBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveProgressBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveProgressBarMethod "getPulseStep" o = ProgressBarGetPulseStepMethodInfo + ResolveProgressBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveProgressBarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveProgressBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveProgressBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveProgressBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveProgressBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveProgressBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveProgressBarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveProgressBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveProgressBarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveProgressBarMethod "getShowText" o = ProgressBarGetShowTextMethodInfo + ResolveProgressBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveProgressBarMethod "getState" o = WidgetGetStateMethodInfo + ResolveProgressBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveProgressBarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveProgressBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveProgressBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveProgressBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveProgressBarMethod "getText" o = ProgressBarGetTextMethodInfo + ResolveProgressBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveProgressBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveProgressBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveProgressBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveProgressBarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveProgressBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveProgressBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveProgressBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveProgressBarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveProgressBarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveProgressBarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveProgressBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveProgressBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveProgressBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveProgressBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveProgressBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveProgressBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveProgressBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveProgressBarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveProgressBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveProgressBarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveProgressBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveProgressBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveProgressBarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveProgressBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveProgressBarMethod "setEllipsize" o = ProgressBarSetEllipsizeMethodInfo + ResolveProgressBarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveProgressBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveProgressBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveProgressBarMethod "setFraction" o = ProgressBarSetFractionMethodInfo + ResolveProgressBarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveProgressBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveProgressBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveProgressBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveProgressBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveProgressBarMethod "setInverted" o = ProgressBarSetInvertedMethodInfo + ResolveProgressBarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveProgressBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveProgressBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveProgressBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveProgressBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveProgressBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveProgressBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveProgressBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveProgressBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveProgressBarMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveProgressBarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveProgressBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveProgressBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveProgressBarMethod "setPulseStep" o = ProgressBarSetPulseStepMethodInfo + ResolveProgressBarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveProgressBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveProgressBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveProgressBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveProgressBarMethod "setShowText" o = ProgressBarSetShowTextMethodInfo + ResolveProgressBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveProgressBarMethod "setState" o = WidgetSetStateMethodInfo + ResolveProgressBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveProgressBarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveProgressBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveProgressBarMethod "setText" o = ProgressBarSetTextMethodInfo + ResolveProgressBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveProgressBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveProgressBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveProgressBarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveProgressBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveProgressBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveProgressBarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveProgressBarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveProgressBarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveProgressBarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveProgressBarMethod t ProgressBar, MethodInfo info ProgressBar p) => IsLabelProxy t (ProgressBar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveProgressBarMethod t ProgressBar, MethodInfo info ProgressBar p) => IsLabel t (ProgressBar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "ellipsize" -- Type: TInterface "Pango" "EllipsizeMode" -- Flags: [PropertyReadable,PropertyWritable] @@ -174,7 +499,7 @@ type AttrSetTypeConstraint ProgressBarEllipsizePropertyInfo = (~) Pango.EllipsizeMode type AttrBaseTypeConstraint ProgressBarEllipsizePropertyInfo = ProgressBarK type AttrGetType ProgressBarEllipsizePropertyInfo = Pango.EllipsizeMode - type AttrLabel ProgressBarEllipsizePropertyInfo = "ProgressBar::ellipsize" + type AttrLabel ProgressBarEllipsizePropertyInfo = "ellipsize" attrGet _ = getProgressBarEllipsize attrSet _ = setProgressBarEllipsize attrConstruct _ = constructProgressBarEllipsize @@ -198,7 +523,7 @@ type AttrSetTypeConstraint ProgressBarFractionPropertyInfo = (~) Double type AttrBaseTypeConstraint ProgressBarFractionPropertyInfo = ProgressBarK type AttrGetType ProgressBarFractionPropertyInfo = Double - type AttrLabel ProgressBarFractionPropertyInfo = "ProgressBar::fraction" + type AttrLabel ProgressBarFractionPropertyInfo = "fraction" attrGet _ = getProgressBarFraction attrSet _ = setProgressBarFraction attrConstruct _ = constructProgressBarFraction @@ -222,7 +547,7 @@ type AttrSetTypeConstraint ProgressBarInvertedPropertyInfo = (~) Bool type AttrBaseTypeConstraint ProgressBarInvertedPropertyInfo = ProgressBarK type AttrGetType ProgressBarInvertedPropertyInfo = Bool - type AttrLabel ProgressBarInvertedPropertyInfo = "ProgressBar::inverted" + type AttrLabel ProgressBarInvertedPropertyInfo = "inverted" attrGet _ = getProgressBarInverted attrSet _ = setProgressBarInverted attrConstruct _ = constructProgressBarInverted @@ -246,7 +571,7 @@ type AttrSetTypeConstraint ProgressBarPulseStepPropertyInfo = (~) Double type AttrBaseTypeConstraint ProgressBarPulseStepPropertyInfo = ProgressBarK type AttrGetType ProgressBarPulseStepPropertyInfo = Double - type AttrLabel ProgressBarPulseStepPropertyInfo = "ProgressBar::pulse-step" + type AttrLabel ProgressBarPulseStepPropertyInfo = "pulse-step" attrGet _ = getProgressBarPulseStep attrSet _ = setProgressBarPulseStep attrConstruct _ = constructProgressBarPulseStep @@ -270,7 +595,7 @@ type AttrSetTypeConstraint ProgressBarShowTextPropertyInfo = (~) Bool type AttrBaseTypeConstraint ProgressBarShowTextPropertyInfo = ProgressBarK type AttrGetType ProgressBarShowTextPropertyInfo = Bool - type AttrLabel ProgressBarShowTextPropertyInfo = "ProgressBar::show-text" + type AttrLabel ProgressBarShowTextPropertyInfo = "show-text" attrGet _ = getProgressBarShowText attrSet _ = setProgressBarShowText attrConstruct _ = constructProgressBarShowText @@ -294,22 +619,21 @@ type AttrSetTypeConstraint ProgressBarTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ProgressBarTextPropertyInfo = ProgressBarK type AttrGetType ProgressBarTextPropertyInfo = T.Text - type AttrLabel ProgressBarTextPropertyInfo = "ProgressBar::text" + type AttrLabel ProgressBarTextPropertyInfo = "text" attrGet _ = getProgressBarText attrSet _ = setProgressBarText attrConstruct _ = constructProgressBarText type instance AttributeList ProgressBar = ProgressBarAttributeList -type ProgressBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ProgressBarEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fraction", ProgressBarFractionPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", ProgressBarInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pulse-step", ProgressBarPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-text", ProgressBarShowTextPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ProgressBarTextPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ProgressBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ProgressBarEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fraction", ProgressBarFractionPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", ProgressBarInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pulseStep", ProgressBarPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showText", ProgressBarShowTextPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ProgressBarTextPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ProgressBar = ProgressBarSignalList -type ProgressBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ProgressBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ProgressBar::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ProgressBar" -- throws : False -- Skip return : False @@ -320,7 +644,7 @@ progressBarNew :: (MonadIO m) => - m ProgressBar + m ProgressBar -- result progressBarNew = liftIO $ do result <- gtk_progress_bar_new checkUnexpectedReturnNULL "gtk_progress_bar_new" result @@ -329,9 +653,8 @@ -- method ProgressBar::get_ellipsize -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "EllipsizeMode" -- throws : False -- Skip return : False @@ -343,8 +666,8 @@ progressBarGetEllipsize :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - m Pango.EllipsizeMode + a -- _obj + -> m Pango.EllipsizeMode -- result progressBarGetEllipsize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_progress_bar_get_ellipsize _obj' @@ -352,11 +675,14 @@ touchManagedPtr _obj return result' +data ProgressBarGetEllipsizeMethodInfo +instance (signature ~ (m Pango.EllipsizeMode), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarGetEllipsizeMethodInfo a signature where + overloadedMethod _ = progressBarGetEllipsize + -- method ProgressBar::get_fraction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -368,8 +694,8 @@ progressBarGetFraction :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result progressBarGetFraction _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_progress_bar_get_fraction _obj' @@ -377,11 +703,14 @@ touchManagedPtr _obj return result' +data ProgressBarGetFractionMethodInfo +instance (signature ~ (m Double), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarGetFractionMethodInfo a signature where + overloadedMethod _ = progressBarGetFraction + -- method ProgressBar::get_inverted -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -393,8 +722,8 @@ progressBarGetInverted :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result progressBarGetInverted _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_progress_bar_get_inverted _obj' @@ -402,11 +731,14 @@ touchManagedPtr _obj return result' +data ProgressBarGetInvertedMethodInfo +instance (signature ~ (m Bool), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarGetInvertedMethodInfo a signature where + overloadedMethod _ = progressBarGetInverted + -- method ProgressBar::get_pulse_step -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -418,8 +750,8 @@ progressBarGetPulseStep :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result progressBarGetPulseStep _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_progress_bar_get_pulse_step _obj' @@ -427,11 +759,14 @@ touchManagedPtr _obj return result' +data ProgressBarGetPulseStepMethodInfo +instance (signature ~ (m Double), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarGetPulseStepMethodInfo a signature where + overloadedMethod _ = progressBarGetPulseStep + -- method ProgressBar::get_show_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -443,8 +778,8 @@ progressBarGetShowText :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result progressBarGetShowText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_progress_bar_get_show_text _obj' @@ -452,11 +787,14 @@ touchManagedPtr _obj return result' +data ProgressBarGetShowTextMethodInfo +instance (signature ~ (m Bool), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarGetShowTextMethodInfo a signature where + overloadedMethod _ = progressBarGetShowText + -- method ProgressBar::get_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -468,8 +806,8 @@ progressBarGetText :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result progressBarGetText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_progress_bar_get_text _obj' @@ -478,11 +816,14 @@ touchManagedPtr _obj return result' +data ProgressBarGetTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarGetTextMethodInfo a signature where + overloadedMethod _ = progressBarGetText + -- method ProgressBar::pulse -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -494,19 +835,22 @@ progressBarPulse :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result progressBarPulse _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_progress_bar_pulse _obj' touchManagedPtr _obj return () +data ProgressBarPulseMethodInfo +instance (signature ~ (m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarPulseMethodInfo a signature where + overloadedMethod _ = progressBarPulse + -- method ProgressBar::set_ellipsize -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -519,9 +863,9 @@ progressBarSetEllipsize :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - Pango.EllipsizeMode -> -- mode - m () + a -- _obj + -> Pango.EllipsizeMode -- mode + -> m () -- result progressBarSetEllipsize _obj mode = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let mode' = (fromIntegral . fromEnum) mode @@ -529,11 +873,14 @@ touchManagedPtr _obj return () +data ProgressBarSetEllipsizeMethodInfo +instance (signature ~ (Pango.EllipsizeMode -> m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarSetEllipsizeMethodInfo a signature where + overloadedMethod _ = progressBarSetEllipsize + -- method ProgressBar::set_fraction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -546,9 +893,9 @@ progressBarSetFraction :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - Double -> -- fraction - m () + a -- _obj + -> Double -- fraction + -> m () -- result progressBarSetFraction _obj fraction = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let fraction' = realToFrac fraction @@ -556,11 +903,14 @@ touchManagedPtr _obj return () +data ProgressBarSetFractionMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarSetFractionMethodInfo a signature where + overloadedMethod _ = progressBarSetFraction + -- method ProgressBar::set_inverted -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -573,9 +923,9 @@ progressBarSetInverted :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - Bool -> -- inverted - m () + a -- _obj + -> Bool -- inverted + -> m () -- result progressBarSetInverted _obj inverted = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let inverted' = (fromIntegral . fromEnum) inverted @@ -583,11 +933,14 @@ touchManagedPtr _obj return () +data ProgressBarSetInvertedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarSetInvertedMethodInfo a signature where + overloadedMethod _ = progressBarSetInverted + -- method ProgressBar::set_pulse_step -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -600,9 +953,9 @@ progressBarSetPulseStep :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - Double -> -- fraction - m () + a -- _obj + -> Double -- fraction + -> m () -- result progressBarSetPulseStep _obj fraction = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let fraction' = realToFrac fraction @@ -610,11 +963,14 @@ touchManagedPtr _obj return () +data ProgressBarSetPulseStepMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarSetPulseStepMethodInfo a signature where + overloadedMethod _ = progressBarSetPulseStep + -- method ProgressBar::set_show_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -627,21 +983,24 @@ progressBarSetShowText :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - Bool -> -- show_text - m () -progressBarSetShowText _obj show_text = liftIO $ do + a -- _obj + -> Bool -- showText + -> m () -- result +progressBarSetShowText _obj showText = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_text' = (fromIntegral . fromEnum) show_text - gtk_progress_bar_set_show_text _obj' show_text' + let showText' = (fromIntegral . fromEnum) showText + gtk_progress_bar_set_show_text _obj' showText' touchManagedPtr _obj return () +data ProgressBarSetShowTextMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarSetShowTextMethodInfo a signature where + overloadedMethod _ = progressBarSetShowText + -- method ProgressBar::set_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -654,9 +1013,9 @@ progressBarSetText :: (MonadIO m, ProgressBarK a) => - a -> -- _obj - Maybe (T.Text) -> -- text - m () + a -- _obj + -> Maybe (T.Text) -- text + -> m () -- result progressBarSetText _obj text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeText <- case text of @@ -668,5 +1027,9 @@ touchManagedPtr _obj freeMem maybeText return () + +data ProgressBarSetTextMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ProgressBarK a) => MethodInfo ProgressBarSetTextMethodInfo a signature where + overloadedMethod _ = progressBarSetText diff --git a/GI/Gtk/Objects/ProgressBar.hs-boot b/GI/Gtk/Objects/ProgressBar.hs-boot --- a/GI/Gtk/Objects/ProgressBar.hs-boot +++ b/GI/Gtk/Objects/ProgressBar.hs-boot @@ -17,3 +17,16 @@ data ProgressBarPulseStepPropertyInfo data ProgressBarShowTextPropertyInfo data ProgressBarTextPropertyInfo +data ProgressBarGetEllipsizeMethodInfo +data ProgressBarGetFractionMethodInfo +data ProgressBarGetInvertedMethodInfo +data ProgressBarGetPulseStepMethodInfo +data ProgressBarGetShowTextMethodInfo +data ProgressBarGetTextMethodInfo +data ProgressBarPulseMethodInfo +data ProgressBarSetEllipsizeMethodInfo +data ProgressBarSetFractionMethodInfo +data ProgressBarSetInvertedMethodInfo +data ProgressBarSetPulseStepMethodInfo +data ProgressBarSetShowTextMethodInfo +data ProgressBarSetTextMethodInfo diff --git a/GI/Gtk/Objects/ProgressBarAccessible.hs b/GI/Gtk/Objects/ProgressBarAccessible.hs --- a/GI/Gtk/Objects/ProgressBarAccessible.hs +++ b/GI/Gtk/Objects/ProgressBarAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,88 @@ noProgressBarAccessible :: Maybe ProgressBarAccessible noProgressBarAccessible = Nothing +type family ResolveProgressBarAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveProgressBarAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveProgressBarAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveProgressBarAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveProgressBarAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveProgressBarAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveProgressBarAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveProgressBarAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveProgressBarAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveProgressBarAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveProgressBarAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveProgressBarAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveProgressBarAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveProgressBarAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveProgressBarAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveProgressBarAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveProgressBarAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveProgressBarAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveProgressBarAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveProgressBarAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveProgressBarAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveProgressBarAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveProgressBarAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveProgressBarAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveProgressBarAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveProgressBarAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveProgressBarAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveProgressBarAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveProgressBarAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveProgressBarAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveProgressBarAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveProgressBarAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveProgressBarAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveProgressBarAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveProgressBarAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo + ResolveProgressBarAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveProgressBarAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveProgressBarAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveProgressBarAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo + ResolveProgressBarAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveProgressBarAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo + ResolveProgressBarAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo + ResolveProgressBarAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo + ResolveProgressBarAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveProgressBarAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveProgressBarAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveProgressBarAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveProgressBarAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveProgressBarAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveProgressBarAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveProgressBarAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo + ResolveProgressBarAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveProgressBarAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveProgressBarAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo + ResolveProgressBarAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo + ResolveProgressBarAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveProgressBarAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo + ResolveProgressBarAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveProgressBarAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveProgressBarAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveProgressBarAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveProgressBarAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveProgressBarAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveProgressBarAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveProgressBarAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveProgressBarAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveProgressBarAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo + ResolveProgressBarAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveProgressBarAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveProgressBarAccessibleMethod t ProgressBarAccessible, MethodInfo info ProgressBarAccessible p) => IsLabelProxy t (ProgressBarAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveProgressBarAccessibleMethod t ProgressBarAccessible, MethodInfo info ProgressBarAccessible p) => IsLabel t (ProgressBarAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ProgressBarAccessible = ProgressBarAccessibleAttributeList -type ProgressBarAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ProgressBarAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ProgressBarAccessible = ProgressBarAccessibleSignalList -type ProgressBarAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ProgressBarAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/RadioAction.hs b/GI/Gtk/Objects/RadioAction.hs --- a/GI/Gtk/Objects/RadioAction.hs +++ b/GI/Gtk/Objects/RadioAction.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** radioActionGetCurrentValue + RadioActionGetCurrentValueMethodInfo , radioActionGetCurrentValue , -- ** radioActionGetGroup + RadioActionGetGroupMethodInfo , radioActionGetGroup , -- ** radioActionJoinGroup + RadioActionJoinGroupMethodInfo , radioActionJoinGroup , @@ -33,10 +37,12 @@ -- ** radioActionSetCurrentValue + RadioActionSetCurrentValueMethodInfo , radioActionSetCurrentValue , -- ** radioActionSetGroup + RadioActionSetGroupMethodInfo , radioActionSetGroup , @@ -114,6 +120,98 @@ noRadioAction :: Maybe RadioAction noRadioAction = Nothing +type family ResolveRadioActionMethod (t :: Symbol) (o :: *) :: * where + ResolveRadioActionMethod "activate" o = ActionActivateMethodInfo + ResolveRadioActionMethod "addChild" o = BuildableAddChildMethodInfo + ResolveRadioActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRadioActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRadioActionMethod "blockActivate" o = ActionBlockActivateMethodInfo + ResolveRadioActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo + ResolveRadioActionMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveRadioActionMethod "createIcon" o = ActionCreateIconMethodInfo + ResolveRadioActionMethod "createMenu" o = ActionCreateMenuMethodInfo + ResolveRadioActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo + ResolveRadioActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo + ResolveRadioActionMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveRadioActionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveRadioActionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveRadioActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo + ResolveRadioActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRadioActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRadioActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRadioActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo + ResolveRadioActionMethod "isVisible" o = ActionIsVisibleMethodInfo + ResolveRadioActionMethod "joinGroup" o = RadioActionJoinGroupMethodInfo + ResolveRadioActionMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRadioActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRadioActionMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveRadioActionMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRadioActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRadioActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRadioActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRadioActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRadioActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRadioActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRadioActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRadioActionMethod "toggled" o = ToggleActionToggledMethodInfo + ResolveRadioActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo + ResolveRadioActionMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRadioActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRadioActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo + ResolveRadioActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo + ResolveRadioActionMethod "getActive" o = ToggleActionGetActiveMethodInfo + ResolveRadioActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo + ResolveRadioActionMethod "getCurrentValue" o = RadioActionGetCurrentValueMethodInfo + ResolveRadioActionMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRadioActionMethod "getDrawAsRadio" o = ToggleActionGetDrawAsRadioMethodInfo + ResolveRadioActionMethod "getGicon" o = ActionGetGiconMethodInfo + ResolveRadioActionMethod "getGroup" o = RadioActionGetGroupMethodInfo + ResolveRadioActionMethod "getIconName" o = ActionGetIconNameMethodInfo + ResolveRadioActionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveRadioActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo + ResolveRadioActionMethod "getLabel" o = ActionGetLabelMethodInfo + ResolveRadioActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRadioActionMethod "getProxies" o = ActionGetProxiesMethodInfo + ResolveRadioActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRadioActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo + ResolveRadioActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo + ResolveRadioActionMethod "getStockId" o = ActionGetStockIdMethodInfo + ResolveRadioActionMethod "getTooltip" o = ActionGetTooltipMethodInfo + ResolveRadioActionMethod "getVisible" o = ActionGetVisibleMethodInfo + ResolveRadioActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo + ResolveRadioActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo + ResolveRadioActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo + ResolveRadioActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo + ResolveRadioActionMethod "setActive" o = ToggleActionSetActiveMethodInfo + ResolveRadioActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo + ResolveRadioActionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveRadioActionMethod "setCurrentValue" o = RadioActionSetCurrentValueMethodInfo + ResolveRadioActionMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRadioActionMethod "setDrawAsRadio" o = ToggleActionSetDrawAsRadioMethodInfo + ResolveRadioActionMethod "setGicon" o = ActionSetGiconMethodInfo + ResolveRadioActionMethod "setGroup" o = RadioActionSetGroupMethodInfo + ResolveRadioActionMethod "setIconName" o = ActionSetIconNameMethodInfo + ResolveRadioActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo + ResolveRadioActionMethod "setLabel" o = ActionSetLabelMethodInfo + ResolveRadioActionMethod "setName" o = BuildableSetNameMethodInfo + ResolveRadioActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRadioActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo + ResolveRadioActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo + ResolveRadioActionMethod "setStockId" o = ActionSetStockIdMethodInfo + ResolveRadioActionMethod "setTooltip" o = ActionSetTooltipMethodInfo + ResolveRadioActionMethod "setVisible" o = ActionSetVisibleMethodInfo + ResolveRadioActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo + ResolveRadioActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo + ResolveRadioActionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRadioActionMethod t RadioAction, MethodInfo info RadioAction p) => IsLabelProxy t (RadioAction -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRadioActionMethod t RadioAction, MethodInfo info RadioAction p) => IsLabel t (RadioAction -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal RadioAction::changed type RadioActionChangedCallback = RadioAction -> @@ -175,7 +273,7 @@ type AttrSetTypeConstraint RadioActionCurrentValuePropertyInfo = (~) Int32 type AttrBaseTypeConstraint RadioActionCurrentValuePropertyInfo = RadioActionK type AttrGetType RadioActionCurrentValuePropertyInfo = Int32 - type AttrLabel RadioActionCurrentValuePropertyInfo = "RadioAction::current-value" + type AttrLabel RadioActionCurrentValuePropertyInfo = "current-value" attrGet _ = getRadioActionCurrentValue attrSet _ = setRadioActionCurrentValue attrConstruct _ = constructRadioActionCurrentValue @@ -196,7 +294,7 @@ type AttrSetTypeConstraint RadioActionGroupPropertyInfo = RadioActionK type AttrBaseTypeConstraint RadioActionGroupPropertyInfo = RadioActionK type AttrGetType RadioActionGroupPropertyInfo = () - type AttrLabel RadioActionGroupPropertyInfo = "RadioAction::group" + type AttrLabel RadioActionGroupPropertyInfo = "group" attrGet _ = undefined attrSet _ = setRadioActionGroup attrConstruct _ = constructRadioActionGroup @@ -220,13 +318,13 @@ type AttrSetTypeConstraint RadioActionValuePropertyInfo = (~) Int32 type AttrBaseTypeConstraint RadioActionValuePropertyInfo = RadioActionK type AttrGetType RadioActionValuePropertyInfo = Int32 - type AttrLabel RadioActionValuePropertyInfo = "RadioAction::value" + type AttrLabel RadioActionValuePropertyInfo = "value" attrGet _ = getRadioActionValue attrSet _ = setRadioActionValue attrConstruct _ = constructRadioActionValue type instance AttributeList RadioAction = RadioActionAttributeList -type RadioActionAttributeList = ('[ '("action-group", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("always-show-image", ActionAlwaysShowImagePropertyInfo), '("current-value", RadioActionCurrentValuePropertyInfo), '("draw-as-radio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("group", RadioActionGroupPropertyInfo), '("hide-if-empty", ActionHideIfEmptyPropertyInfo), '("icon-name", ActionIconNamePropertyInfo), '("is-important", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("short-label", ActionShortLabelPropertyInfo), '("stock-id", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("value", RadioActionValuePropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visible-horizontal", ActionVisibleHorizontalPropertyInfo), '("visible-overflown", ActionVisibleOverflownPropertyInfo), '("visible-vertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) +type RadioActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("currentValue", RadioActionCurrentValuePropertyInfo), '("drawAsRadio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("group", RadioActionGroupPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("value", RadioActionValuePropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) data RadioActionChangedSignalInfo instance SignalInfo RadioActionChangedSignalInfo where @@ -234,13 +332,12 @@ connectSignal _ = connectRadioActionChanged type instance SignalList RadioAction = RadioActionSignalList -type RadioActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("changed", RadioActionChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", ToggleActionToggledSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RadioActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("changed", RadioActionChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", ToggleActionToggledSignalInfo)] :: [(Symbol, *)]) -- method RadioAction::new -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioAction" -- throws : False -- Skip return : False @@ -256,13 +353,13 @@ {-# DEPRECATED radioActionNew ["(Since version 3.10)"]#-} radioActionNew :: (MonadIO m) => - T.Text -> -- name - Maybe (T.Text) -> -- label - Maybe (T.Text) -> -- tooltip - Maybe (T.Text) -> -- stock_id - Int32 -> -- value - m RadioAction -radioActionNew name label tooltip stock_id value = liftIO $ do + T.Text -- name + -> Maybe (T.Text) -- label + -> Maybe (T.Text) -- tooltip + -> Maybe (T.Text) -- stockId + -> Int32 -- value + -> m RadioAction -- result +radioActionNew name label tooltip stockId value = liftIO $ do name' <- textToCString name maybeLabel <- case label of Nothing -> return nullPtr @@ -274,25 +371,24 @@ Just jTooltip -> do jTooltip' <- textToCString jTooltip return jTooltip' - maybeStock_id <- case stock_id of + maybeStockId <- case stockId of Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - result <- gtk_radio_action_new name' maybeLabel maybeTooltip maybeStock_id value + Just jStockId -> do + jStockId' <- textToCString jStockId + return jStockId' + result <- gtk_radio_action_new name' maybeLabel maybeTooltip maybeStockId value checkUnexpectedReturnNULL "gtk_radio_action_new" result result' <- (wrapObject RadioAction) result freeMem name' freeMem maybeLabel freeMem maybeTooltip - freeMem maybeStock_id + freeMem maybeStockId return result' -- method RadioAction::get_current_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -304,19 +400,22 @@ {-# DEPRECATED radioActionGetCurrentValue ["(Since version 3.10)"]#-} radioActionGetCurrentValue :: (MonadIO m, RadioActionK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result radioActionGetCurrentValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_action_get_current_value _obj' touchManagedPtr _obj return result +data RadioActionGetCurrentValueMethodInfo +instance (signature ~ (m Int32), MonadIO m, RadioActionK a) => MethodInfo RadioActionGetCurrentValueMethodInfo a signature where + overloadedMethod _ = radioActionGetCurrentValue + -- method RadioAction::get_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TInterface "Gtk" "RadioAction") -- throws : False -- Skip return : False @@ -328,8 +427,8 @@ {-# DEPRECATED radioActionGetGroup ["(Since version 3.10)"]#-} radioActionGetGroup :: (MonadIO m, RadioActionK a) => - a -> -- _obj - m [RadioAction] + a -- _obj + -> m [RadioAction] -- result radioActionGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_action_get_group _obj' @@ -339,11 +438,14 @@ touchManagedPtr _obj return result'' +data RadioActionGetGroupMethodInfo +instance (signature ~ (m [RadioAction]), MonadIO m, RadioActionK a) => MethodInfo RadioActionGetGroupMethodInfo a signature where + overloadedMethod _ = radioActionGetGroup + -- method RadioAction::join_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -356,26 +458,29 @@ {-# DEPRECATED radioActionJoinGroup ["(Since version 3.10)"]#-} radioActionJoinGroup :: (MonadIO m, RadioActionK a, RadioActionK b) => - a -> -- _obj - Maybe (b) -> -- group_source - m () -radioActionJoinGroup _obj group_source = liftIO $ do + a -- _obj + -> Maybe (b) -- groupSource + -> m () -- result +radioActionJoinGroup _obj groupSource = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeGroup_source <- case group_source of + maybeGroupSource <- case groupSource of Nothing -> return nullPtr - Just jGroup_source -> do - let jGroup_source' = unsafeManagedPtrCastPtr jGroup_source - return jGroup_source' - gtk_radio_action_join_group _obj' maybeGroup_source + Just jGroupSource -> do + let jGroupSource' = unsafeManagedPtrCastPtr jGroupSource + return jGroupSource' + gtk_radio_action_join_group _obj' maybeGroupSource touchManagedPtr _obj - whenJust group_source touchManagedPtr + whenJust groupSource touchManagedPtr return () +data RadioActionJoinGroupMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, RadioActionK a, RadioActionK b) => MethodInfo RadioActionJoinGroupMethodInfo a signature where + overloadedMethod _ = radioActionJoinGroup + -- method RadioAction::set_current_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -388,20 +493,23 @@ {-# DEPRECATED radioActionSetCurrentValue ["(Since version 3.10)"]#-} radioActionSetCurrentValue :: (MonadIO m, RadioActionK a) => - a -> -- _obj - Int32 -> -- current_value - m () -radioActionSetCurrentValue _obj current_value = liftIO $ do + a -- _obj + -> Int32 -- currentValue + -> m () -- result +radioActionSetCurrentValue _obj currentValue = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_radio_action_set_current_value _obj' current_value + gtk_radio_action_set_current_value _obj' currentValue touchManagedPtr _obj return () +data RadioActionSetCurrentValueMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, RadioActionK a) => MethodInfo RadioActionSetCurrentValueMethodInfo a signature where + overloadedMethod _ = radioActionSetCurrentValue + -- method RadioAction::set_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioAction"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioAction"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioAction"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -414,9 +522,9 @@ {-# DEPRECATED radioActionSetGroup ["(Since version 3.10)"]#-} radioActionSetGroup :: (MonadIO m, RadioActionK a, RadioActionK b) => - a -> -- _obj - [b] -> -- group - m () + a -- _obj + -> [b] -- group + -> m () -- result radioActionSetGroup _obj group = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let group' = map unsafeManagedPtrCastPtr group @@ -426,5 +534,9 @@ mapM_ touchManagedPtr group g_slist_free group'' return () + +data RadioActionSetGroupMethodInfo +instance (signature ~ ([b] -> m ()), MonadIO m, RadioActionK a, RadioActionK b) => MethodInfo RadioActionSetGroupMethodInfo a signature where + overloadedMethod _ = radioActionSetGroup diff --git a/GI/Gtk/Objects/RadioAction.hs-boot b/GI/Gtk/Objects/RadioAction.hs-boot --- a/GI/Gtk/Objects/RadioAction.hs-boot +++ b/GI/Gtk/Objects/RadioAction.hs-boot @@ -15,3 +15,8 @@ data RadioActionGroupPropertyInfo data RadioActionValuePropertyInfo data RadioActionChangedSignalInfo +data RadioActionGetCurrentValueMethodInfo +data RadioActionGetGroupMethodInfo +data RadioActionJoinGroupMethodInfo +data RadioActionSetCurrentValueMethodInfo +data RadioActionSetGroupMethodInfo diff --git a/GI/Gtk/Objects/RadioButton.hs b/GI/Gtk/Objects/RadioButton.hs --- a/GI/Gtk/Objects/RadioButton.hs +++ b/GI/Gtk/Objects/RadioButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** radioButtonGetGroup + RadioButtonGetGroupMethodInfo , radioButtonGetGroup , -- ** radioButtonJoinGroup + RadioButtonJoinGroupMethodInfo , radioButtonJoinGroup , @@ -49,6 +52,7 @@ -- ** radioButtonSetGroup + RadioButtonSetGroupMethodInfo , radioButtonSetGroup , @@ -113,6 +117,374 @@ noRadioButton :: Maybe RadioButton noRadioButton = Nothing +type family ResolveRadioButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveRadioButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveRadioButtonMethod "add" o = ContainerAddMethodInfo + ResolveRadioButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveRadioButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveRadioButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveRadioButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveRadioButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveRadioButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveRadioButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRadioButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRadioButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveRadioButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveRadioButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveRadioButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveRadioButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveRadioButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveRadioButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveRadioButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveRadioButtonMethod "clicked" o = ButtonClickedMethodInfo + ResolveRadioButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveRadioButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveRadioButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveRadioButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveRadioButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveRadioButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveRadioButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveRadioButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveRadioButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveRadioButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveRadioButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveRadioButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveRadioButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveRadioButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveRadioButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveRadioButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveRadioButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveRadioButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveRadioButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveRadioButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveRadioButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveRadioButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveRadioButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveRadioButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveRadioButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveRadioButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveRadioButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveRadioButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveRadioButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveRadioButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveRadioButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveRadioButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveRadioButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveRadioButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveRadioButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveRadioButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveRadioButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveRadioButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveRadioButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveRadioButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveRadioButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveRadioButtonMethod "enter" o = ButtonEnterMethodInfo + ResolveRadioButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveRadioButtonMethod "event" o = WidgetEventMethodInfo + ResolveRadioButtonMethod "forall" o = ContainerForallMethodInfo + ResolveRadioButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRadioButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveRadioButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveRadioButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRadioButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveRadioButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveRadioButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveRadioButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveRadioButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveRadioButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveRadioButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveRadioButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveRadioButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveRadioButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveRadioButtonMethod "hide" o = WidgetHideMethodInfo + ResolveRadioButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveRadioButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveRadioButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveRadioButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveRadioButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveRadioButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveRadioButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveRadioButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveRadioButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveRadioButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRadioButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveRadioButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveRadioButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveRadioButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveRadioButtonMethod "joinGroup" o = RadioButtonJoinGroupMethodInfo + ResolveRadioButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveRadioButtonMethod "leave" o = ButtonLeaveMethodInfo + ResolveRadioButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveRadioButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveRadioButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveRadioButtonMethod "map" o = WidgetMapMethodInfo + ResolveRadioButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveRadioButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveRadioButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveRadioButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveRadioButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveRadioButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveRadioButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveRadioButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveRadioButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRadioButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRadioButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveRadioButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveRadioButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveRadioButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveRadioButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveRadioButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveRadioButtonMethod "path" o = WidgetPathMethodInfo + ResolveRadioButtonMethod "pressed" o = ButtonPressedMethodInfo + ResolveRadioButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveRadioButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveRadioButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveRadioButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveRadioButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveRadioButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveRadioButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveRadioButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveRadioButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRadioButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRadioButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveRadioButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveRadioButtonMethod "released" o = ButtonReleasedMethodInfo + ResolveRadioButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveRadioButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveRadioButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveRadioButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveRadioButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveRadioButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveRadioButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveRadioButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRadioButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRadioButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveRadioButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveRadioButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveRadioButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRadioButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveRadioButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveRadioButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveRadioButtonMethod "show" o = WidgetShowMethodInfo + ResolveRadioButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveRadioButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveRadioButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveRadioButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveRadioButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveRadioButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRadioButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRadioButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveRadioButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveRadioButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveRadioButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveRadioButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRadioButtonMethod "toggled" o = ToggleButtonToggledMethodInfo + ResolveRadioButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveRadioButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveRadioButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveRadioButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveRadioButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveRadioButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRadioButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveRadioButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveRadioButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveRadioButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRadioButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveRadioButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveRadioButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveRadioButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveRadioButtonMethod "getActive" o = ToggleButtonGetActiveMethodInfo + ResolveRadioButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo + ResolveRadioButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveRadioButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveRadioButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveRadioButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveRadioButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo + ResolveRadioButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveRadioButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveRadioButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveRadioButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveRadioButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveRadioButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveRadioButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveRadioButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveRadioButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveRadioButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveRadioButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveRadioButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveRadioButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRadioButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveRadioButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveRadioButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveRadioButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveRadioButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveRadioButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo + ResolveRadioButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveRadioButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveRadioButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveRadioButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveRadioButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo + ResolveRadioButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveRadioButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveRadioButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveRadioButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveRadioButtonMethod "getGroup" o = RadioButtonGetGroupMethodInfo + ResolveRadioButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveRadioButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveRadioButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveRadioButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveRadioButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveRadioButtonMethod "getImage" o = ButtonGetImageMethodInfo + ResolveRadioButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo + ResolveRadioButtonMethod "getInconsistent" o = ToggleButtonGetInconsistentMethodInfo + ResolveRadioButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveRadioButtonMethod "getLabel" o = ButtonGetLabelMethodInfo + ResolveRadioButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveRadioButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveRadioButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveRadioButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveRadioButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveRadioButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveRadioButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveRadioButtonMethod "getMode" o = ToggleButtonGetModeMethodInfo + ResolveRadioButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveRadioButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveRadioButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveRadioButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveRadioButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveRadioButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveRadioButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveRadioButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveRadioButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveRadioButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveRadioButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveRadioButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveRadioButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveRadioButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveRadioButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveRadioButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveRadioButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRadioButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRadioButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveRadioButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveRadioButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveRadioButtonMethod "getRelief" o = ButtonGetReliefMethodInfo + ResolveRadioButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveRadioButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveRadioButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveRadioButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveRadioButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveRadioButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveRadioButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveRadioButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveRadioButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveRadioButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveRadioButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveRadioButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveRadioButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveRadioButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveRadioButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveRadioButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveRadioButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveRadioButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveRadioButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveRadioButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveRadioButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo + ResolveRadioButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo + ResolveRadioButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveRadioButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveRadioButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveRadioButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveRadioButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveRadioButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveRadioButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveRadioButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveRadioButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveRadioButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveRadioButtonMethod "setActive" o = ToggleButtonSetActiveMethodInfo + ResolveRadioButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo + ResolveRadioButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveRadioButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo + ResolveRadioButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveRadioButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveRadioButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveRadioButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveRadioButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveRadioButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveRadioButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveRadioButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveRadioButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRadioButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveRadioButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveRadioButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveRadioButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveRadioButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveRadioButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveRadioButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveRadioButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveRadioButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveRadioButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo + ResolveRadioButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveRadioButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveRadioButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveRadioButtonMethod "setGroup" o = RadioButtonSetGroupMethodInfo + ResolveRadioButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveRadioButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveRadioButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveRadioButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveRadioButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveRadioButtonMethod "setImage" o = ButtonSetImageMethodInfo + ResolveRadioButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo + ResolveRadioButtonMethod "setInconsistent" o = ToggleButtonSetInconsistentMethodInfo + ResolveRadioButtonMethod "setLabel" o = ButtonSetLabelMethodInfo + ResolveRadioButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveRadioButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveRadioButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveRadioButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveRadioButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveRadioButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveRadioButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveRadioButtonMethod "setMode" o = ToggleButtonSetModeMethodInfo + ResolveRadioButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveRadioButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveRadioButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveRadioButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveRadioButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRadioButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveRadioButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveRadioButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveRadioButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveRadioButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveRadioButtonMethod "setRelief" o = ButtonSetReliefMethodInfo + ResolveRadioButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveRadioButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveRadioButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveRadioButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveRadioButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveRadioButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveRadioButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveRadioButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveRadioButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveRadioButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveRadioButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveRadioButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo + ResolveRadioButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo + ResolveRadioButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveRadioButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveRadioButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveRadioButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveRadioButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveRadioButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveRadioButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRadioButtonMethod t RadioButton, MethodInfo info RadioButton p) => IsLabelProxy t (RadioButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRadioButtonMethod t RadioButton, MethodInfo info RadioButton p) => IsLabel t (RadioButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal RadioButton::group-changed type RadioButtonGroupChangedCallback = IO () @@ -167,13 +539,13 @@ type AttrSetTypeConstraint RadioButtonGroupPropertyInfo = RadioButtonK type AttrBaseTypeConstraint RadioButtonGroupPropertyInfo = RadioButtonK type AttrGetType RadioButtonGroupPropertyInfo = () - type AttrLabel RadioButtonGroupPropertyInfo = "RadioButton::group" + type AttrLabel RadioButtonGroupPropertyInfo = "group" attrGet _ = undefined attrSet _ = setRadioButtonGroup attrConstruct _ = constructRadioButtonGroup type instance AttributeList RadioButton = RadioButtonAttributeList -type RadioButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-indicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("group", RadioButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +type RadioButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("group", RadioButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) data RadioButtonGroupChangedSignalInfo instance SignalInfo RadioButtonGroupChangedSignalInfo where @@ -181,13 +553,12 @@ connectSignal _ = connectRadioButtonGroupChanged type instance SignalList RadioButton = RadioButtonSignalList -type RadioButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("group-changed", RadioButtonGroupChangedSignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RadioButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("groupChanged", RadioButtonGroupChangedSignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method RadioButton::new -- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioButton" -- throws : False -- Skip return : False @@ -199,8 +570,8 @@ radioButtonNew :: (MonadIO m, RadioButtonK a) => - [a] -> -- group - m RadioButton + [a] -- group + -> m RadioButton -- result radioButtonNew group = liftIO $ do let group' = map unsafeManagedPtrCastPtr group group'' <- packGSList group' @@ -213,9 +584,8 @@ -- method RadioButton::new_from_widget -- method type : Constructor --- Args : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioButton" -- throws : False -- Skip return : False @@ -227,25 +597,24 @@ radioButtonNewFromWidget :: (MonadIO m, RadioButtonK a) => - Maybe (a) -> -- radio_group_member - m RadioButton -radioButtonNewFromWidget radio_group_member = liftIO $ do - maybeRadio_group_member <- case radio_group_member of + Maybe (a) -- radioGroupMember + -> m RadioButton -- result +radioButtonNewFromWidget radioGroupMember = liftIO $ do + maybeRadioGroupMember <- case radioGroupMember of Nothing -> return nullPtr - Just jRadio_group_member -> do - let jRadio_group_member' = unsafeManagedPtrCastPtr jRadio_group_member - return jRadio_group_member' - result <- gtk_radio_button_new_from_widget maybeRadio_group_member + Just jRadioGroupMember -> do + let jRadioGroupMember' = unsafeManagedPtrCastPtr jRadioGroupMember + return jRadioGroupMember' + result <- gtk_radio_button_new_from_widget maybeRadioGroupMember checkUnexpectedReturnNULL "gtk_radio_button_new_from_widget" result result' <- (newObject RadioButton) result - whenJust radio_group_member touchManagedPtr + whenJust radioGroupMember touchManagedPtr return result' -- method RadioButton::new_with_label -- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioButton" -- throws : False -- Skip return : False @@ -258,9 +627,9 @@ radioButtonNewWithLabel :: (MonadIO m, RadioButtonK a) => - [a] -> -- group - T.Text -> -- label - m RadioButton + [a] -- group + -> T.Text -- label + -> m RadioButton -- result radioButtonNewWithLabel group label = liftIO $ do let group' = map unsafeManagedPtrCastPtr group group'' <- packGSList group' @@ -275,9 +644,8 @@ -- method RadioButton::new_with_label_from_widget -- method type : Constructor --- Args : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioButton" -- throws : False -- Skip return : False @@ -290,28 +658,27 @@ radioButtonNewWithLabelFromWidget :: (MonadIO m, RadioButtonK a) => - Maybe (a) -> -- radio_group_member - T.Text -> -- label - m RadioButton -radioButtonNewWithLabelFromWidget radio_group_member label = liftIO $ do - maybeRadio_group_member <- case radio_group_member of + Maybe (a) -- radioGroupMember + -> T.Text -- label + -> m RadioButton -- result +radioButtonNewWithLabelFromWidget radioGroupMember label = liftIO $ do + maybeRadioGroupMember <- case radioGroupMember of Nothing -> return nullPtr - Just jRadio_group_member -> do - let jRadio_group_member' = unsafeManagedPtrCastPtr jRadio_group_member - return jRadio_group_member' + Just jRadioGroupMember -> do + let jRadioGroupMember' = unsafeManagedPtrCastPtr jRadioGroupMember + return jRadioGroupMember' label' <- textToCString label - result <- gtk_radio_button_new_with_label_from_widget maybeRadio_group_member label' + result <- gtk_radio_button_new_with_label_from_widget maybeRadioGroupMember label' checkUnexpectedReturnNULL "gtk_radio_button_new_with_label_from_widget" result result' <- (newObject RadioButton) result - whenJust radio_group_member touchManagedPtr + whenJust radioGroupMember touchManagedPtr freeMem label' return result' -- method RadioButton::new_with_mnemonic -- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioButton" -- throws : False -- Skip return : False @@ -324,9 +691,9 @@ radioButtonNewWithMnemonic :: (MonadIO m, RadioButtonK a) => - [a] -> -- group - T.Text -> -- label - m RadioButton + [a] -- group + -> T.Text -- label + -> m RadioButton -- result radioButtonNewWithMnemonic group label = liftIO $ do let group' = map unsafeManagedPtrCastPtr group group'' <- packGSList group' @@ -341,9 +708,8 @@ -- method RadioButton::new_with_mnemonic_from_widget -- method type : Constructor --- Args : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioButton" -- throws : False -- Skip return : False @@ -356,28 +722,27 @@ radioButtonNewWithMnemonicFromWidget :: (MonadIO m, RadioButtonK a) => - Maybe (a) -> -- radio_group_member - T.Text -> -- label - m RadioButton -radioButtonNewWithMnemonicFromWidget radio_group_member label = liftIO $ do - maybeRadio_group_member <- case radio_group_member of + Maybe (a) -- radioGroupMember + -> T.Text -- label + -> m RadioButton -- result +radioButtonNewWithMnemonicFromWidget radioGroupMember label = liftIO $ do + maybeRadioGroupMember <- case radioGroupMember of Nothing -> return nullPtr - Just jRadio_group_member -> do - let jRadio_group_member' = unsafeManagedPtrCastPtr jRadio_group_member - return jRadio_group_member' + Just jRadioGroupMember -> do + let jRadioGroupMember' = unsafeManagedPtrCastPtr jRadioGroupMember + return jRadioGroupMember' label' <- textToCString label - result <- gtk_radio_button_new_with_mnemonic_from_widget maybeRadio_group_member label' + result <- gtk_radio_button_new_with_mnemonic_from_widget maybeRadioGroupMember label' checkUnexpectedReturnNULL "gtk_radio_button_new_with_mnemonic_from_widget" result result' <- (newObject RadioButton) result - whenJust radio_group_member touchManagedPtr + whenJust radioGroupMember touchManagedPtr freeMem label' return result' -- method RadioButton::get_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -389,8 +754,8 @@ radioButtonGetGroup :: (MonadIO m, RadioButtonK a) => - a -> -- _obj - m [RadioButton] + a -- _obj + -> m [RadioButton] -- result radioButtonGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_button_get_group _obj' @@ -400,11 +765,14 @@ touchManagedPtr _obj return result'' +data RadioButtonGetGroupMethodInfo +instance (signature ~ (m [RadioButton]), MonadIO m, RadioButtonK a) => MethodInfo RadioButtonGetGroupMethodInfo a signature where + overloadedMethod _ = radioButtonGetGroup + -- method RadioButton::join_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -417,26 +785,29 @@ radioButtonJoinGroup :: (MonadIO m, RadioButtonK a, RadioButtonK b) => - a -> -- _obj - Maybe (b) -> -- group_source - m () -radioButtonJoinGroup _obj group_source = liftIO $ do + a -- _obj + -> Maybe (b) -- groupSource + -> m () -- result +radioButtonJoinGroup _obj groupSource = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeGroup_source <- case group_source of + maybeGroupSource <- case groupSource of Nothing -> return nullPtr - Just jGroup_source -> do - let jGroup_source' = unsafeManagedPtrCastPtr jGroup_source - return jGroup_source' - gtk_radio_button_join_group _obj' maybeGroup_source + Just jGroupSource -> do + let jGroupSource' = unsafeManagedPtrCastPtr jGroupSource + return jGroupSource' + gtk_radio_button_join_group _obj' maybeGroupSource touchManagedPtr _obj - whenJust group_source touchManagedPtr + whenJust groupSource touchManagedPtr return () +data RadioButtonJoinGroupMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, RadioButtonK a, RadioButtonK b) => MethodInfo RadioButtonJoinGroupMethodInfo a signature where + overloadedMethod _ = radioButtonJoinGroup + -- method RadioButton::set_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -449,9 +820,9 @@ radioButtonSetGroup :: (MonadIO m, RadioButtonK a, RadioButtonK b) => - a -> -- _obj - [b] -> -- group - m () + a -- _obj + -> [b] -- group + -> m () -- result radioButtonSetGroup _obj group = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let group' = map unsafeManagedPtrCastPtr group @@ -461,5 +832,9 @@ mapM_ touchManagedPtr group g_slist_free group'' return () + +data RadioButtonSetGroupMethodInfo +instance (signature ~ ([b] -> m ()), MonadIO m, RadioButtonK a, RadioButtonK b) => MethodInfo RadioButtonSetGroupMethodInfo a signature where + overloadedMethod _ = radioButtonSetGroup diff --git a/GI/Gtk/Objects/RadioButton.hs-boot b/GI/Gtk/Objects/RadioButton.hs-boot --- a/GI/Gtk/Objects/RadioButton.hs-boot +++ b/GI/Gtk/Objects/RadioButton.hs-boot @@ -13,3 +13,6 @@ instance (GObject o, IsDescendantOf RadioButton o) => RadioButtonK o data RadioButtonGroupPropertyInfo data RadioButtonGroupChangedSignalInfo +data RadioButtonGetGroupMethodInfo +data RadioButtonJoinGroupMethodInfo +data RadioButtonSetGroupMethodInfo diff --git a/GI/Gtk/Objects/RadioButtonAccessible.hs b/GI/Gtk/Objects/RadioButtonAccessible.hs --- a/GI/Gtk/Objects/RadioButtonAccessible.hs +++ b/GI/Gtk/Objects/RadioButtonAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,84 @@ noRadioButtonAccessible :: Maybe RadioButtonAccessible noRadioButtonAccessible = Nothing +type family ResolveRadioButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveRadioButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveRadioButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRadioButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRadioButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveRadioButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveRadioButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveRadioButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRadioButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRadioButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveRadioButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveRadioButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRadioButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRadioButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRadioButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveRadioButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveRadioButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRadioButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveRadioButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveRadioButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveRadioButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRadioButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveRadioButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveRadioButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveRadioButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveRadioButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRadioButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRadioButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRadioButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRadioButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRadioButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRadioButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRadioButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRadioButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveRadioButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveRadioButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRadioButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveRadioButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo + ResolveRadioButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo + ResolveRadioButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo + ResolveRadioButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo + ResolveRadioButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveRadioButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveRadioButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveRadioButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveRadioButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveRadioButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveRadioButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveRadioButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveRadioButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRadioButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRadioButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveRadioButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveRadioButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveRadioButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRadioButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveRadioButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo + ResolveRadioButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveRadioButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveRadioButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveRadioButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRadioButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveRadioButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveRadioButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveRadioButtonAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRadioButtonAccessibleMethod t RadioButtonAccessible, MethodInfo info RadioButtonAccessible p) => IsLabelProxy t (RadioButtonAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRadioButtonAccessibleMethod t RadioButtonAccessible, MethodInfo info RadioButtonAccessible p) => IsLabel t (RadioButtonAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList RadioButtonAccessible = RadioButtonAccessibleAttributeList -type RadioButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type RadioButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList RadioButtonAccessible = RadioButtonAccessibleSignalList -type RadioButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RadioButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/RadioMenuItem.hs b/GI/Gtk/Objects/RadioMenuItem.hs --- a/GI/Gtk/Objects/RadioMenuItem.hs +++ b/GI/Gtk/Objects/RadioMenuItem.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** radioMenuItemGetGroup + RadioMenuItemGetGroupMethodInfo , radioMenuItemGetGroup , -- ** radioMenuItemJoinGroup + RadioMenuItemJoinGroupMethodInfo , radioMenuItemJoinGroup , @@ -49,6 +52,7 @@ -- ** radioMenuItemSetGroup + RadioMenuItemSetGroupMethodInfo , radioMenuItemSetGroup , @@ -113,6 +117,363 @@ noRadioMenuItem :: Maybe RadioMenuItem noRadioMenuItem = Nothing +type family ResolveRadioMenuItemMethod (t :: Symbol) (o :: *) :: * where + ResolveRadioMenuItemMethod "add" o = ContainerAddMethodInfo + ResolveRadioMenuItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveRadioMenuItemMethod "addChild" o = BuildableAddChildMethodInfo + ResolveRadioMenuItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveRadioMenuItemMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveRadioMenuItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveRadioMenuItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveRadioMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRadioMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRadioMenuItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveRadioMenuItemMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveRadioMenuItemMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveRadioMenuItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveRadioMenuItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveRadioMenuItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveRadioMenuItemMethod "childType" o = ContainerChildTypeMethodInfo + ResolveRadioMenuItemMethod "classPath" o = WidgetClassPathMethodInfo + ResolveRadioMenuItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveRadioMenuItemMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveRadioMenuItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveRadioMenuItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveRadioMenuItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveRadioMenuItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveRadioMenuItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveRadioMenuItemMethod "deselect" o = MenuItemDeselectMethodInfo + ResolveRadioMenuItemMethod "destroy" o = WidgetDestroyMethodInfo + ResolveRadioMenuItemMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveRadioMenuItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveRadioMenuItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveRadioMenuItemMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveRadioMenuItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveRadioMenuItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveRadioMenuItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveRadioMenuItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveRadioMenuItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveRadioMenuItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveRadioMenuItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveRadioMenuItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveRadioMenuItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveRadioMenuItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveRadioMenuItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveRadioMenuItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveRadioMenuItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveRadioMenuItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveRadioMenuItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveRadioMenuItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveRadioMenuItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveRadioMenuItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveRadioMenuItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveRadioMenuItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveRadioMenuItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveRadioMenuItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveRadioMenuItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveRadioMenuItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveRadioMenuItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveRadioMenuItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveRadioMenuItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveRadioMenuItemMethod "draw" o = WidgetDrawMethodInfo + ResolveRadioMenuItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveRadioMenuItemMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveRadioMenuItemMethod "event" o = WidgetEventMethodInfo + ResolveRadioMenuItemMethod "forall" o = ContainerForallMethodInfo + ResolveRadioMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRadioMenuItemMethod "foreach" o = ContainerForeachMethodInfo + ResolveRadioMenuItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveRadioMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRadioMenuItemMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveRadioMenuItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveRadioMenuItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveRadioMenuItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveRadioMenuItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveRadioMenuItemMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveRadioMenuItemMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveRadioMenuItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveRadioMenuItemMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveRadioMenuItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveRadioMenuItemMethod "hide" o = WidgetHideMethodInfo + ResolveRadioMenuItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveRadioMenuItemMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveRadioMenuItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveRadioMenuItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveRadioMenuItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveRadioMenuItemMethod "intersect" o = WidgetIntersectMethodInfo + ResolveRadioMenuItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveRadioMenuItemMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveRadioMenuItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveRadioMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRadioMenuItemMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveRadioMenuItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveRadioMenuItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveRadioMenuItemMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveRadioMenuItemMethod "joinGroup" o = RadioMenuItemJoinGroupMethodInfo + ResolveRadioMenuItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveRadioMenuItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveRadioMenuItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveRadioMenuItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveRadioMenuItemMethod "map" o = WidgetMapMethodInfo + ResolveRadioMenuItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveRadioMenuItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveRadioMenuItemMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveRadioMenuItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveRadioMenuItemMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveRadioMenuItemMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveRadioMenuItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveRadioMenuItemMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveRadioMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRadioMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRadioMenuItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveRadioMenuItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveRadioMenuItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveRadioMenuItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveRadioMenuItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveRadioMenuItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveRadioMenuItemMethod "path" o = WidgetPathMethodInfo + ResolveRadioMenuItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveRadioMenuItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveRadioMenuItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveRadioMenuItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveRadioMenuItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveRadioMenuItemMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveRadioMenuItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveRadioMenuItemMethod "realize" o = WidgetRealizeMethodInfo + ResolveRadioMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRadioMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRadioMenuItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveRadioMenuItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveRadioMenuItemMethod "remove" o = ContainerRemoveMethodInfo + ResolveRadioMenuItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveRadioMenuItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveRadioMenuItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveRadioMenuItemMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveRadioMenuItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveRadioMenuItemMethod "reparent" o = WidgetReparentMethodInfo + ResolveRadioMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRadioMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRadioMenuItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveRadioMenuItemMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveRadioMenuItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveRadioMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRadioMenuItemMethod "select" o = MenuItemSelectMethodInfo + ResolveRadioMenuItemMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveRadioMenuItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveRadioMenuItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveRadioMenuItemMethod "show" o = WidgetShowMethodInfo + ResolveRadioMenuItemMethod "showAll" o = WidgetShowAllMethodInfo + ResolveRadioMenuItemMethod "showNow" o = WidgetShowNowMethodInfo + ResolveRadioMenuItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveRadioMenuItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveRadioMenuItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveRadioMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRadioMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRadioMenuItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveRadioMenuItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveRadioMenuItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveRadioMenuItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveRadioMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRadioMenuItemMethod "toggleSizeAllocate" o = MenuItemToggleSizeAllocateMethodInfo + ResolveRadioMenuItemMethod "toggleSizeRequest" o = MenuItemToggleSizeRequestMethodInfo + ResolveRadioMenuItemMethod "toggled" o = CheckMenuItemToggledMethodInfo + ResolveRadioMenuItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveRadioMenuItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveRadioMenuItemMethod "unmap" o = WidgetUnmapMethodInfo + ResolveRadioMenuItemMethod "unparent" o = WidgetUnparentMethodInfo + ResolveRadioMenuItemMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveRadioMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRadioMenuItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveRadioMenuItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveRadioMenuItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveRadioMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRadioMenuItemMethod "getAccelPath" o = MenuItemGetAccelPathMethodInfo + ResolveRadioMenuItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveRadioMenuItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveRadioMenuItemMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveRadioMenuItemMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveRadioMenuItemMethod "getActive" o = CheckMenuItemGetActiveMethodInfo + ResolveRadioMenuItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveRadioMenuItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveRadioMenuItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveRadioMenuItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveRadioMenuItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveRadioMenuItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveRadioMenuItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveRadioMenuItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveRadioMenuItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveRadioMenuItemMethod "getChild" o = BinGetChildMethodInfo + ResolveRadioMenuItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveRadioMenuItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveRadioMenuItemMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveRadioMenuItemMethod "getClip" o = WidgetGetClipMethodInfo + ResolveRadioMenuItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveRadioMenuItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveRadioMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRadioMenuItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveRadioMenuItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveRadioMenuItemMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveRadioMenuItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveRadioMenuItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveRadioMenuItemMethod "getDrawAsRadio" o = CheckMenuItemGetDrawAsRadioMethodInfo + ResolveRadioMenuItemMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveRadioMenuItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveRadioMenuItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveRadioMenuItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveRadioMenuItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveRadioMenuItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveRadioMenuItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveRadioMenuItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveRadioMenuItemMethod "getGroup" o = RadioMenuItemGetGroupMethodInfo + ResolveRadioMenuItemMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveRadioMenuItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveRadioMenuItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveRadioMenuItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveRadioMenuItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveRadioMenuItemMethod "getInconsistent" o = CheckMenuItemGetInconsistentMethodInfo + ResolveRadioMenuItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveRadioMenuItemMethod "getLabel" o = MenuItemGetLabelMethodInfo + ResolveRadioMenuItemMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveRadioMenuItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveRadioMenuItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveRadioMenuItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveRadioMenuItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveRadioMenuItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveRadioMenuItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveRadioMenuItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveRadioMenuItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveRadioMenuItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveRadioMenuItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveRadioMenuItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveRadioMenuItemMethod "getParent" o = WidgetGetParentMethodInfo + ResolveRadioMenuItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveRadioMenuItemMethod "getPath" o = WidgetGetPathMethodInfo + ResolveRadioMenuItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveRadioMenuItemMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveRadioMenuItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveRadioMenuItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveRadioMenuItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveRadioMenuItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveRadioMenuItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveRadioMenuItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveRadioMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRadioMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRadioMenuItemMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveRadioMenuItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveRadioMenuItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveRadioMenuItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveRadioMenuItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveRadioMenuItemMethod "getReserveIndicator" o = MenuItemGetReserveIndicatorMethodInfo + ResolveRadioMenuItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveRadioMenuItemMethod "getRightJustified" o = MenuItemGetRightJustifiedMethodInfo + ResolveRadioMenuItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveRadioMenuItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveRadioMenuItemMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveRadioMenuItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveRadioMenuItemMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveRadioMenuItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveRadioMenuItemMethod "getState" o = WidgetGetStateMethodInfo + ResolveRadioMenuItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveRadioMenuItemMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveRadioMenuItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveRadioMenuItemMethod "getSubmenu" o = MenuItemGetSubmenuMethodInfo + ResolveRadioMenuItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveRadioMenuItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveRadioMenuItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveRadioMenuItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveRadioMenuItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveRadioMenuItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveRadioMenuItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveRadioMenuItemMethod "getUseUnderline" o = MenuItemGetUseUnderlineMethodInfo + ResolveRadioMenuItemMethod "getValign" o = WidgetGetValignMethodInfo + ResolveRadioMenuItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveRadioMenuItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveRadioMenuItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveRadioMenuItemMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveRadioMenuItemMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveRadioMenuItemMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveRadioMenuItemMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveRadioMenuItemMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveRadioMenuItemMethod "setActive" o = CheckMenuItemSetActiveMethodInfo + ResolveRadioMenuItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveRadioMenuItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveRadioMenuItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveRadioMenuItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveRadioMenuItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveRadioMenuItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveRadioMenuItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveRadioMenuItemMethod "setClip" o = WidgetSetClipMethodInfo + ResolveRadioMenuItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveRadioMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRadioMenuItemMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveRadioMenuItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveRadioMenuItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveRadioMenuItemMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveRadioMenuItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveRadioMenuItemMethod "setDrawAsRadio" o = CheckMenuItemSetDrawAsRadioMethodInfo + ResolveRadioMenuItemMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveRadioMenuItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveRadioMenuItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveRadioMenuItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveRadioMenuItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveRadioMenuItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveRadioMenuItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveRadioMenuItemMethod "setGroup" o = RadioMenuItemSetGroupMethodInfo + ResolveRadioMenuItemMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveRadioMenuItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveRadioMenuItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveRadioMenuItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveRadioMenuItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveRadioMenuItemMethod "setInconsistent" o = CheckMenuItemSetInconsistentMethodInfo + ResolveRadioMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo + ResolveRadioMenuItemMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveRadioMenuItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveRadioMenuItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveRadioMenuItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveRadioMenuItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveRadioMenuItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveRadioMenuItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveRadioMenuItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveRadioMenuItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveRadioMenuItemMethod "setParent" o = WidgetSetParentMethodInfo + ResolveRadioMenuItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveRadioMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRadioMenuItemMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveRadioMenuItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveRadioMenuItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveRadioMenuItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveRadioMenuItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveRadioMenuItemMethod "setReserveIndicator" o = MenuItemSetReserveIndicatorMethodInfo + ResolveRadioMenuItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveRadioMenuItemMethod "setRightJustified" o = MenuItemSetRightJustifiedMethodInfo + ResolveRadioMenuItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveRadioMenuItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveRadioMenuItemMethod "setState" o = WidgetSetStateMethodInfo + ResolveRadioMenuItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveRadioMenuItemMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveRadioMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo + ResolveRadioMenuItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveRadioMenuItemMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveRadioMenuItemMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveRadioMenuItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveRadioMenuItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveRadioMenuItemMethod "setUseUnderline" o = MenuItemSetUseUnderlineMethodInfo + ResolveRadioMenuItemMethod "setValign" o = WidgetSetValignMethodInfo + ResolveRadioMenuItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveRadioMenuItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveRadioMenuItemMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveRadioMenuItemMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveRadioMenuItemMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveRadioMenuItemMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRadioMenuItemMethod t RadioMenuItem, MethodInfo info RadioMenuItem p) => IsLabelProxy t (RadioMenuItem -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRadioMenuItemMethod t RadioMenuItem, MethodInfo info RadioMenuItem p) => IsLabel t (RadioMenuItem -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal RadioMenuItem::group-changed type RadioMenuItemGroupChangedCallback = IO () @@ -167,13 +528,13 @@ type AttrSetTypeConstraint RadioMenuItemGroupPropertyInfo = RadioMenuItemK type AttrBaseTypeConstraint RadioMenuItemGroupPropertyInfo = RadioMenuItemK type AttrGetType RadioMenuItemGroupPropertyInfo = () - type AttrLabel RadioMenuItemGroupPropertyInfo = "RadioMenuItem::group" + type AttrLabel RadioMenuItemGroupPropertyInfo = "group" attrGet _ = undefined attrSet _ = setRadioMenuItemGroup attrConstruct _ = constructRadioMenuItemGroup type instance AttributeList RadioMenuItem = RadioMenuItemAttributeList -type RadioMenuItemAttributeList = ('[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-as-radio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioMenuItemGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type RadioMenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawAsRadio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioMenuItemGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data RadioMenuItemGroupChangedSignalInfo instance SignalInfo RadioMenuItemGroupChangedSignalInfo where @@ -181,13 +542,12 @@ connectSignal _ = connectRadioMenuItemGroupChanged type instance SignalList RadioMenuItem = RadioMenuItemSignalList -type RadioMenuItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("group-changed", RadioMenuItemGroupChangedSignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("toggled", CheckMenuItemToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RadioMenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("groupChanged", RadioMenuItemGroupChangedSignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("toggled", CheckMenuItemToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method RadioMenuItem::new -- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioMenuItem" -- throws : False -- Skip return : False @@ -199,8 +559,8 @@ radioMenuItemNew :: (MonadIO m, RadioMenuItemK a) => - [a] -> -- group - m RadioMenuItem + [a] -- group + -> m RadioMenuItem -- result radioMenuItemNew group = liftIO $ do let group' = map unsafeManagedPtrCastPtr group group'' <- packGSList group' @@ -213,9 +573,8 @@ -- method RadioMenuItem::new_from_widget -- method type : Constructor --- Args : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioMenuItem" -- throws : False -- Skip return : False @@ -227,8 +586,8 @@ radioMenuItemNewFromWidget :: (MonadIO m, RadioMenuItemK a) => - Maybe (a) -> -- group - m RadioMenuItem + Maybe (a) -- group + -> m RadioMenuItem -- result radioMenuItemNewFromWidget group = liftIO $ do maybeGroup <- case group of Nothing -> return nullPtr @@ -243,9 +602,8 @@ -- method RadioMenuItem::new_with_label -- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioMenuItem" -- throws : False -- Skip return : False @@ -258,9 +616,9 @@ radioMenuItemNewWithLabel :: (MonadIO m, RadioMenuItemK a) => - [a] -> -- group - T.Text -> -- label - m RadioMenuItem + [a] -- group + -> T.Text -- label + -> m RadioMenuItem -- result radioMenuItemNewWithLabel group label = liftIO $ do let group' = map unsafeManagedPtrCastPtr group group'' <- packGSList group' @@ -275,9 +633,8 @@ -- method RadioMenuItem::new_with_label_from_widget -- method type : Constructor --- Args : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioMenuItem" -- throws : False -- Skip return : False @@ -290,9 +647,9 @@ radioMenuItemNewWithLabelFromWidget :: (MonadIO m, RadioMenuItemK a) => - Maybe (a) -> -- group - Maybe (T.Text) -> -- label - m RadioMenuItem + Maybe (a) -- group + -> Maybe (T.Text) -- label + -> m RadioMenuItem -- result radioMenuItemNewWithLabelFromWidget group label = liftIO $ do maybeGroup <- case group of Nothing -> return nullPtr @@ -313,9 +670,8 @@ -- method RadioMenuItem::new_with_mnemonic -- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioMenuItem" -- throws : False -- Skip return : False @@ -328,9 +684,9 @@ radioMenuItemNewWithMnemonic :: (MonadIO m, RadioMenuItemK a) => - [a] -> -- group - T.Text -> -- label - m RadioMenuItem + [a] -- group + -> T.Text -- label + -> m RadioMenuItem -- result radioMenuItemNewWithMnemonic group label = liftIO $ do let group' = map unsafeManagedPtrCastPtr group group'' <- packGSList group' @@ -345,9 +701,8 @@ -- method RadioMenuItem::new_with_mnemonic_from_widget -- method type : Constructor --- Args : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioMenuItem" -- throws : False -- Skip return : False @@ -360,9 +715,9 @@ radioMenuItemNewWithMnemonicFromWidget :: (MonadIO m, RadioMenuItemK a) => - Maybe (a) -> -- group - Maybe (T.Text) -> -- label - m RadioMenuItem + Maybe (a) -- group + -> Maybe (T.Text) -- label + -> m RadioMenuItem -- result radioMenuItemNewWithMnemonicFromWidget group label = liftIO $ do maybeGroup <- case group of Nothing -> return nullPtr @@ -383,9 +738,8 @@ -- method RadioMenuItem::get_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -397,8 +751,8 @@ radioMenuItemGetGroup :: (MonadIO m, RadioMenuItemK a) => - a -> -- _obj - m [RadioMenuItem] + a -- _obj + -> m [RadioMenuItem] -- result radioMenuItemGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_menu_item_get_group _obj' @@ -408,11 +762,14 @@ touchManagedPtr _obj return result'' +data RadioMenuItemGetGroupMethodInfo +instance (signature ~ (m [RadioMenuItem]), MonadIO m, RadioMenuItemK a) => MethodInfo RadioMenuItemGetGroupMethodInfo a signature where + overloadedMethod _ = radioMenuItemGetGroup + -- method RadioMenuItem::join_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -425,26 +782,29 @@ radioMenuItemJoinGroup :: (MonadIO m, RadioMenuItemK a, RadioMenuItemK b) => - a -> -- _obj - Maybe (b) -> -- group_source - m () -radioMenuItemJoinGroup _obj group_source = liftIO $ do + a -- _obj + -> Maybe (b) -- groupSource + -> m () -- result +radioMenuItemJoinGroup _obj groupSource = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeGroup_source <- case group_source of + maybeGroupSource <- case groupSource of Nothing -> return nullPtr - Just jGroup_source -> do - let jGroup_source' = unsafeManagedPtrCastPtr jGroup_source - return jGroup_source' - gtk_radio_menu_item_join_group _obj' maybeGroup_source + Just jGroupSource -> do + let jGroupSource' = unsafeManagedPtrCastPtr jGroupSource + return jGroupSource' + gtk_radio_menu_item_join_group _obj' maybeGroupSource touchManagedPtr _obj - whenJust group_source touchManagedPtr + whenJust groupSource touchManagedPtr return () +data RadioMenuItemJoinGroupMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, RadioMenuItemK a, RadioMenuItemK b) => MethodInfo RadioMenuItemJoinGroupMethodInfo a signature where + overloadedMethod _ = radioMenuItemJoinGroup + -- method RadioMenuItem::set_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -457,9 +817,9 @@ radioMenuItemSetGroup :: (MonadIO m, RadioMenuItemK a, RadioMenuItemK b) => - a -> -- _obj - [b] -> -- group - m () + a -- _obj + -> [b] -- group + -> m () -- result radioMenuItemSetGroup _obj group = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let group' = map unsafeManagedPtrCastPtr group @@ -469,5 +829,9 @@ mapM_ touchManagedPtr group g_slist_free group'' return () + +data RadioMenuItemSetGroupMethodInfo +instance (signature ~ ([b] -> m ()), MonadIO m, RadioMenuItemK a, RadioMenuItemK b) => MethodInfo RadioMenuItemSetGroupMethodInfo a signature where + overloadedMethod _ = radioMenuItemSetGroup diff --git a/GI/Gtk/Objects/RadioMenuItem.hs-boot b/GI/Gtk/Objects/RadioMenuItem.hs-boot --- a/GI/Gtk/Objects/RadioMenuItem.hs-boot +++ b/GI/Gtk/Objects/RadioMenuItem.hs-boot @@ -13,3 +13,6 @@ instance (GObject o, IsDescendantOf RadioMenuItem o) => RadioMenuItemK o data RadioMenuItemGroupPropertyInfo data RadioMenuItemGroupChangedSignalInfo +data RadioMenuItemGetGroupMethodInfo +data RadioMenuItemJoinGroupMethodInfo +data RadioMenuItemSetGroupMethodInfo diff --git a/GI/Gtk/Objects/RadioMenuItemAccessible.hs b/GI/Gtk/Objects/RadioMenuItemAccessible.hs --- a/GI/Gtk/Objects/RadioMenuItemAccessible.hs +++ b/GI/Gtk/Objects/RadioMenuItemAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,86 @@ noRadioMenuItemAccessible :: Maybe RadioMenuItemAccessible noRadioMenuItemAccessible = Nothing +type family ResolveRadioMenuItemAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveRadioMenuItemAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveRadioMenuItemAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo + ResolveRadioMenuItemAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRadioMenuItemAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRadioMenuItemAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo + ResolveRadioMenuItemAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveRadioMenuItemAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveRadioMenuItemAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveRadioMenuItemAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRadioMenuItemAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRadioMenuItemAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveRadioMenuItemAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveRadioMenuItemAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo + ResolveRadioMenuItemAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRadioMenuItemAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRadioMenuItemAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRadioMenuItemAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveRadioMenuItemAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveRadioMenuItemAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRadioMenuItemAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveRadioMenuItemAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveRadioMenuItemAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveRadioMenuItemAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo + ResolveRadioMenuItemAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRadioMenuItemAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveRadioMenuItemAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveRadioMenuItemAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveRadioMenuItemAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveRadioMenuItemAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo + ResolveRadioMenuItemAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRadioMenuItemAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRadioMenuItemAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRadioMenuItemAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo + ResolveRadioMenuItemAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRadioMenuItemAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRadioMenuItemAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRadioMenuItemAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRadioMenuItemAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRadioMenuItemAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveRadioMenuItemAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveRadioMenuItemAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRadioMenuItemAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveRadioMenuItemAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveRadioMenuItemAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveRadioMenuItemAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveRadioMenuItemAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveRadioMenuItemAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveRadioMenuItemAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveRadioMenuItemAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveRadioMenuItemAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveRadioMenuItemAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRadioMenuItemAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRadioMenuItemAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveRadioMenuItemAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo + ResolveRadioMenuItemAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveRadioMenuItemAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveRadioMenuItemAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRadioMenuItemAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveRadioMenuItemAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveRadioMenuItemAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveRadioMenuItemAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveRadioMenuItemAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRadioMenuItemAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveRadioMenuItemAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveRadioMenuItemAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveRadioMenuItemAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRadioMenuItemAccessibleMethod t RadioMenuItemAccessible, MethodInfo info RadioMenuItemAccessible p) => IsLabelProxy t (RadioMenuItemAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRadioMenuItemAccessibleMethod t RadioMenuItemAccessible, MethodInfo info RadioMenuItemAccessible p) => IsLabel t (RadioMenuItemAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList RadioMenuItemAccessible = RadioMenuItemAccessibleAttributeList -type RadioMenuItemAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type RadioMenuItemAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList RadioMenuItemAccessible = RadioMenuItemAccessibleSignalList -type RadioMenuItemAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RadioMenuItemAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/RadioToolButton.hs b/GI/Gtk/Objects/RadioToolButton.hs --- a/GI/Gtk/Objects/RadioToolButton.hs +++ b/GI/Gtk/Objects/RadioToolButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** radioToolButtonGetGroup + RadioToolButtonGetGroupMethodInfo , radioToolButtonGetGroup , @@ -37,6 +39,7 @@ -- ** radioToolButtonSetGroup + RadioToolButtonSetGroupMethodInfo , radioToolButtonSetGroup , @@ -86,6 +89,379 @@ noRadioToolButton :: Maybe RadioToolButton noRadioToolButton = Nothing +type family ResolveRadioToolButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveRadioToolButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveRadioToolButtonMethod "add" o = ContainerAddMethodInfo + ResolveRadioToolButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveRadioToolButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveRadioToolButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveRadioToolButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveRadioToolButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveRadioToolButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveRadioToolButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRadioToolButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRadioToolButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveRadioToolButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveRadioToolButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveRadioToolButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveRadioToolButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveRadioToolButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveRadioToolButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveRadioToolButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveRadioToolButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveRadioToolButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveRadioToolButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveRadioToolButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveRadioToolButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveRadioToolButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveRadioToolButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveRadioToolButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveRadioToolButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveRadioToolButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveRadioToolButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveRadioToolButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveRadioToolButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveRadioToolButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveRadioToolButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveRadioToolButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveRadioToolButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveRadioToolButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveRadioToolButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveRadioToolButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveRadioToolButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveRadioToolButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveRadioToolButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveRadioToolButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveRadioToolButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveRadioToolButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveRadioToolButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveRadioToolButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveRadioToolButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveRadioToolButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveRadioToolButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveRadioToolButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveRadioToolButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveRadioToolButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveRadioToolButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveRadioToolButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveRadioToolButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveRadioToolButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveRadioToolButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveRadioToolButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveRadioToolButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveRadioToolButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveRadioToolButtonMethod "event" o = WidgetEventMethodInfo + ResolveRadioToolButtonMethod "forall" o = ContainerForallMethodInfo + ResolveRadioToolButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRadioToolButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveRadioToolButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveRadioToolButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRadioToolButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveRadioToolButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveRadioToolButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveRadioToolButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveRadioToolButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveRadioToolButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveRadioToolButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveRadioToolButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveRadioToolButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveRadioToolButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveRadioToolButtonMethod "hide" o = WidgetHideMethodInfo + ResolveRadioToolButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveRadioToolButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveRadioToolButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveRadioToolButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveRadioToolButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveRadioToolButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveRadioToolButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveRadioToolButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveRadioToolButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveRadioToolButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRadioToolButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveRadioToolButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveRadioToolButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveRadioToolButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveRadioToolButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveRadioToolButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveRadioToolButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveRadioToolButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveRadioToolButtonMethod "map" o = WidgetMapMethodInfo + ResolveRadioToolButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveRadioToolButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveRadioToolButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveRadioToolButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveRadioToolButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveRadioToolButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveRadioToolButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveRadioToolButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveRadioToolButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRadioToolButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRadioToolButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveRadioToolButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveRadioToolButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveRadioToolButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveRadioToolButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveRadioToolButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveRadioToolButtonMethod "path" o = WidgetPathMethodInfo + ResolveRadioToolButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveRadioToolButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveRadioToolButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveRadioToolButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveRadioToolButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveRadioToolButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveRadioToolButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveRadioToolButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveRadioToolButtonMethod "rebuildMenu" o = ToolItemRebuildMenuMethodInfo + ResolveRadioToolButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRadioToolButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRadioToolButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveRadioToolButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveRadioToolButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveRadioToolButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveRadioToolButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveRadioToolButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveRadioToolButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveRadioToolButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveRadioToolButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveRadioToolButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRadioToolButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRadioToolButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveRadioToolButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveRadioToolButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveRadioToolButtonMethod "retrieveProxyMenuItem" o = ToolItemRetrieveProxyMenuItemMethodInfo + ResolveRadioToolButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRadioToolButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveRadioToolButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveRadioToolButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveRadioToolButtonMethod "show" o = WidgetShowMethodInfo + ResolveRadioToolButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveRadioToolButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveRadioToolButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveRadioToolButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveRadioToolButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveRadioToolButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRadioToolButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRadioToolButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveRadioToolButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveRadioToolButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveRadioToolButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveRadioToolButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRadioToolButtonMethod "toolbarReconfigured" o = ToolItemToolbarReconfiguredMethodInfo + ResolveRadioToolButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveRadioToolButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveRadioToolButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveRadioToolButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveRadioToolButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveRadioToolButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRadioToolButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveRadioToolButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveRadioToolButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveRadioToolButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRadioToolButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveRadioToolButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveRadioToolButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveRadioToolButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveRadioToolButtonMethod "getActive" o = ToggleToolButtonGetActiveMethodInfo + ResolveRadioToolButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveRadioToolButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveRadioToolButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveRadioToolButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveRadioToolButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveRadioToolButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveRadioToolButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveRadioToolButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveRadioToolButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveRadioToolButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveRadioToolButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveRadioToolButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveRadioToolButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveRadioToolButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveRadioToolButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveRadioToolButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveRadioToolButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRadioToolButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveRadioToolButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveRadioToolButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveRadioToolButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveRadioToolButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveRadioToolButtonMethod "getEllipsizeMode" o = ToolItemGetEllipsizeModeMethodInfo + ResolveRadioToolButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveRadioToolButtonMethod "getExpand" o = ToolItemGetExpandMethodInfo + ResolveRadioToolButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveRadioToolButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveRadioToolButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveRadioToolButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveRadioToolButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveRadioToolButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveRadioToolButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveRadioToolButtonMethod "getGroup" o = RadioToolButtonGetGroupMethodInfo + ResolveRadioToolButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveRadioToolButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveRadioToolButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveRadioToolButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveRadioToolButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveRadioToolButtonMethod "getHomogeneous" o = ToolItemGetHomogeneousMethodInfo + ResolveRadioToolButtonMethod "getIconName" o = ToolButtonGetIconNameMethodInfo + ResolveRadioToolButtonMethod "getIconSize" o = ToolItemGetIconSizeMethodInfo + ResolveRadioToolButtonMethod "getIconWidget" o = ToolButtonGetIconWidgetMethodInfo + ResolveRadioToolButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveRadioToolButtonMethod "getIsImportant" o = ToolItemGetIsImportantMethodInfo + ResolveRadioToolButtonMethod "getLabel" o = ToolButtonGetLabelMethodInfo + ResolveRadioToolButtonMethod "getLabelWidget" o = ToolButtonGetLabelWidgetMethodInfo + ResolveRadioToolButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveRadioToolButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveRadioToolButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveRadioToolButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveRadioToolButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveRadioToolButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveRadioToolButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveRadioToolButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveRadioToolButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveRadioToolButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveRadioToolButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveRadioToolButtonMethod "getOrientation" o = ToolItemGetOrientationMethodInfo + ResolveRadioToolButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveRadioToolButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveRadioToolButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveRadioToolButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveRadioToolButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveRadioToolButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveRadioToolButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveRadioToolButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveRadioToolButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveRadioToolButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveRadioToolButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveRadioToolButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveRadioToolButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRadioToolButtonMethod "getProxyMenuItem" o = ToolItemGetProxyMenuItemMethodInfo + ResolveRadioToolButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRadioToolButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveRadioToolButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveRadioToolButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveRadioToolButtonMethod "getReliefStyle" o = ToolItemGetReliefStyleMethodInfo + ResolveRadioToolButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveRadioToolButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveRadioToolButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveRadioToolButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveRadioToolButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveRadioToolButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveRadioToolButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveRadioToolButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveRadioToolButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveRadioToolButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveRadioToolButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveRadioToolButtonMethod "getStockId" o = ToolButtonGetStockIdMethodInfo + ResolveRadioToolButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveRadioToolButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveRadioToolButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveRadioToolButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveRadioToolButtonMethod "getTextAlignment" o = ToolItemGetTextAlignmentMethodInfo + ResolveRadioToolButtonMethod "getTextOrientation" o = ToolItemGetTextOrientationMethodInfo + ResolveRadioToolButtonMethod "getTextSizeGroup" o = ToolItemGetTextSizeGroupMethodInfo + ResolveRadioToolButtonMethod "getToolbarStyle" o = ToolItemGetToolbarStyleMethodInfo + ResolveRadioToolButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveRadioToolButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveRadioToolButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveRadioToolButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveRadioToolButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveRadioToolButtonMethod "getUseDragWindow" o = ToolItemGetUseDragWindowMethodInfo + ResolveRadioToolButtonMethod "getUseUnderline" o = ToolButtonGetUseUnderlineMethodInfo + ResolveRadioToolButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveRadioToolButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveRadioToolButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveRadioToolButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveRadioToolButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveRadioToolButtonMethod "getVisibleHorizontal" o = ToolItemGetVisibleHorizontalMethodInfo + ResolveRadioToolButtonMethod "getVisibleVertical" o = ToolItemGetVisibleVerticalMethodInfo + ResolveRadioToolButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveRadioToolButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveRadioToolButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveRadioToolButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveRadioToolButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveRadioToolButtonMethod "setActive" o = ToggleToolButtonSetActiveMethodInfo + ResolveRadioToolButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveRadioToolButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveRadioToolButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveRadioToolButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveRadioToolButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveRadioToolButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveRadioToolButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveRadioToolButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveRadioToolButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveRadioToolButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRadioToolButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveRadioToolButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveRadioToolButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveRadioToolButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveRadioToolButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveRadioToolButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveRadioToolButtonMethod "setExpand" o = ToolItemSetExpandMethodInfo + ResolveRadioToolButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveRadioToolButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveRadioToolButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveRadioToolButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveRadioToolButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveRadioToolButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveRadioToolButtonMethod "setGroup" o = RadioToolButtonSetGroupMethodInfo + ResolveRadioToolButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveRadioToolButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveRadioToolButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveRadioToolButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveRadioToolButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveRadioToolButtonMethod "setHomogeneous" o = ToolItemSetHomogeneousMethodInfo + ResolveRadioToolButtonMethod "setIconName" o = ToolButtonSetIconNameMethodInfo + ResolveRadioToolButtonMethod "setIconWidget" o = ToolButtonSetIconWidgetMethodInfo + ResolveRadioToolButtonMethod "setIsImportant" o = ToolItemSetIsImportantMethodInfo + ResolveRadioToolButtonMethod "setLabel" o = ToolButtonSetLabelMethodInfo + ResolveRadioToolButtonMethod "setLabelWidget" o = ToolButtonSetLabelWidgetMethodInfo + ResolveRadioToolButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveRadioToolButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveRadioToolButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveRadioToolButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveRadioToolButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveRadioToolButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveRadioToolButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveRadioToolButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveRadioToolButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveRadioToolButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveRadioToolButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveRadioToolButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRadioToolButtonMethod "setProxyMenuItem" o = ToolItemSetProxyMenuItemMethodInfo + ResolveRadioToolButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveRadioToolButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveRadioToolButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveRadioToolButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveRadioToolButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveRadioToolButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveRadioToolButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveRadioToolButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveRadioToolButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveRadioToolButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveRadioToolButtonMethod "setStockId" o = ToolButtonSetStockIdMethodInfo + ResolveRadioToolButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveRadioToolButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveRadioToolButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveRadioToolButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveRadioToolButtonMethod "setUseDragWindow" o = ToolItemSetUseDragWindowMethodInfo + ResolveRadioToolButtonMethod "setUseUnderline" o = ToolButtonSetUseUnderlineMethodInfo + ResolveRadioToolButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveRadioToolButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveRadioToolButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveRadioToolButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveRadioToolButtonMethod "setVisibleHorizontal" o = ToolItemSetVisibleHorizontalMethodInfo + ResolveRadioToolButtonMethod "setVisibleVertical" o = ToolItemSetVisibleVerticalMethodInfo + ResolveRadioToolButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveRadioToolButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveRadioToolButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRadioToolButtonMethod t RadioToolButton, MethodInfo info RadioToolButton p) => IsLabelProxy t (RadioToolButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRadioToolButtonMethod t RadioToolButton, MethodInfo info RadioToolButton p) => IsLabel t (RadioToolButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "group" -- Type: TInterface "Gtk" "RadioToolButton" -- Flags: [PropertyWritable] @@ -102,22 +478,21 @@ type AttrSetTypeConstraint RadioToolButtonGroupPropertyInfo = RadioToolButtonK type AttrBaseTypeConstraint RadioToolButtonGroupPropertyInfo = RadioToolButtonK type AttrGetType RadioToolButtonGroupPropertyInfo = () - type AttrLabel RadioToolButtonGroupPropertyInfo = "RadioToolButton::group" + type AttrLabel RadioToolButtonGroupPropertyInfo = "group" attrGet _ = undefined attrSet _ = setRadioToolButtonGroup attrConstruct _ = constructRadioToolButtonGroup type instance AttributeList RadioToolButton = RadioToolButtonAttributeList -type RadioToolButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioToolButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ToolButtonIconNamePropertyInfo), '("icon-widget", ToolButtonIconWidgetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("label-widget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock-id", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type RadioToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioToolButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList RadioToolButton = RadioToolButtonSignalList -type RadioToolButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleToolButtonToggledSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RadioToolButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleToolButtonToggledSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method RadioToolButton::new -- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioToolButton" -- throws : False -- Skip return : False @@ -129,8 +504,8 @@ radioToolButtonNew :: (MonadIO m, RadioButtonK a) => - [a] -> -- group - m RadioToolButton + [a] -- group + -> m RadioToolButton -- result radioToolButtonNew group = liftIO $ do let group' = map unsafeManagedPtrCastPtr group group'' <- packGSList group' @@ -143,9 +518,8 @@ -- method RadioToolButton::new_from_stock -- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioToolButton" -- throws : False -- Skip return : False @@ -158,26 +532,25 @@ {-# DEPRECATED radioToolButtonNewFromStock ["(Since version 3.10)","Use gtk_radio_tool_button_new() instead."]#-} radioToolButtonNewFromStock :: (MonadIO m, RadioButtonK a) => - [a] -> -- group - T.Text -> -- stock_id - m RadioToolButton -radioToolButtonNewFromStock group stock_id = liftIO $ do + [a] -- group + -> T.Text -- stockId + -> m RadioToolButton -- result +radioToolButtonNewFromStock group stockId = liftIO $ do let group' = map unsafeManagedPtrCastPtr group group'' <- packGSList group' - stock_id' <- textToCString stock_id - result <- gtk_radio_tool_button_new_from_stock group'' stock_id' + stockId' <- textToCString stockId + result <- gtk_radio_tool_button_new_from_stock group'' stockId' checkUnexpectedReturnNULL "gtk_radio_tool_button_new_from_stock" result result' <- (newObject RadioToolButton) result mapM_ touchManagedPtr group g_slist_free group'' - freeMem stock_id' + freeMem stockId' return result' -- method RadioToolButton::new_from_widget -- method type : Constructor --- Args : [Arg {argName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioToolButton" -- throws : False -- Skip return : False @@ -189,8 +562,8 @@ radioToolButtonNewFromWidget :: (MonadIO m, RadioToolButtonK a) => - Maybe (a) -> -- group - m RadioToolButton + Maybe (a) -- group + -> m RadioToolButton -- result radioToolButtonNewFromWidget group = liftIO $ do maybeGroup <- case group of Nothing -> return nullPtr @@ -205,9 +578,8 @@ -- method RadioToolButton::new_with_stock_from_widget -- method type : Constructor --- Args : [Arg {argName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RadioToolButton" -- throws : False -- Skip return : False @@ -220,28 +592,27 @@ {-# DEPRECATED radioToolButtonNewWithStockFromWidget ["(Since version 3.10)","gtk_radio_tool_button_new_from_widget"]#-} radioToolButtonNewWithStockFromWidget :: (MonadIO m, RadioToolButtonK a) => - Maybe (a) -> -- group - T.Text -> -- stock_id - m RadioToolButton -radioToolButtonNewWithStockFromWidget group stock_id = liftIO $ do + Maybe (a) -- group + -> T.Text -- stockId + -> m RadioToolButton -- result +radioToolButtonNewWithStockFromWidget group stockId = liftIO $ do maybeGroup <- case group of Nothing -> return nullPtr Just jGroup -> do let jGroup' = unsafeManagedPtrCastPtr jGroup return jGroup' - stock_id' <- textToCString stock_id - result <- gtk_radio_tool_button_new_with_stock_from_widget maybeGroup stock_id' + stockId' <- textToCString stockId + result <- gtk_radio_tool_button_new_with_stock_from_widget maybeGroup stockId' checkUnexpectedReturnNULL "gtk_radio_tool_button_new_with_stock_from_widget" result result' <- (newObject RadioToolButton) result whenJust group touchManagedPtr - freeMem stock_id' + freeMem stockId' return result' -- method RadioToolButton::get_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -253,8 +624,8 @@ radioToolButtonGetGroup :: (MonadIO m, RadioToolButtonK a) => - a -> -- _obj - m [RadioButton] + a -- _obj + -> m [RadioButton] -- result radioToolButtonGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_tool_button_get_group _obj' @@ -264,11 +635,14 @@ touchManagedPtr _obj return result'' +data RadioToolButtonGetGroupMethodInfo +instance (signature ~ (m [RadioButton]), MonadIO m, RadioToolButtonK a) => MethodInfo RadioToolButtonGetGroupMethodInfo a signature where + overloadedMethod _ = radioToolButtonGetGroup + -- method RadioToolButton::set_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -281,9 +655,9 @@ radioToolButtonSetGroup :: (MonadIO m, RadioToolButtonK a, RadioButtonK b) => - a -> -- _obj - [b] -> -- group - m () + a -- _obj + -> [b] -- group + -> m () -- result radioToolButtonSetGroup _obj group = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let group' = map unsafeManagedPtrCastPtr group @@ -293,5 +667,9 @@ mapM_ touchManagedPtr group g_slist_free group'' return () + +data RadioToolButtonSetGroupMethodInfo +instance (signature ~ ([b] -> m ()), MonadIO m, RadioToolButtonK a, RadioButtonK b) => MethodInfo RadioToolButtonSetGroupMethodInfo a signature where + overloadedMethod _ = radioToolButtonSetGroup diff --git a/GI/Gtk/Objects/RadioToolButton.hs-boot b/GI/Gtk/Objects/RadioToolButton.hs-boot --- a/GI/Gtk/Objects/RadioToolButton.hs-boot +++ b/GI/Gtk/Objects/RadioToolButton.hs-boot @@ -12,3 +12,5 @@ class GObject o => RadioToolButtonK o instance (GObject o, IsDescendantOf RadioToolButton o) => RadioToolButtonK o data RadioToolButtonGroupPropertyInfo +data RadioToolButtonGetGroupMethodInfo +data RadioToolButtonSetGroupMethodInfo diff --git a/GI/Gtk/Objects/Range.hs b/GI/Gtk/Objects/Range.hs --- a/GI/Gtk/Objects/Range.hs +++ b/GI/Gtk/Objects/Range.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,114 +18,142 @@ -- * Methods -- ** rangeGetAdjustment + RangeGetAdjustmentMethodInfo , rangeGetAdjustment , -- ** rangeGetFillLevel + RangeGetFillLevelMethodInfo , rangeGetFillLevel , -- ** rangeGetFlippable + RangeGetFlippableMethodInfo , rangeGetFlippable , -- ** rangeGetInverted + RangeGetInvertedMethodInfo , rangeGetInverted , -- ** rangeGetLowerStepperSensitivity + RangeGetLowerStepperSensitivityMethodInfo, rangeGetLowerStepperSensitivity , -- ** rangeGetMinSliderSize + RangeGetMinSliderSizeMethodInfo , rangeGetMinSliderSize , -- ** rangeGetRangeRect + RangeGetRangeRectMethodInfo , rangeGetRangeRect , -- ** rangeGetRestrictToFillLevel + RangeGetRestrictToFillLevelMethodInfo , rangeGetRestrictToFillLevel , -- ** rangeGetRoundDigits + RangeGetRoundDigitsMethodInfo , rangeGetRoundDigits , -- ** rangeGetShowFillLevel + RangeGetShowFillLevelMethodInfo , rangeGetShowFillLevel , -- ** rangeGetSliderRange + RangeGetSliderRangeMethodInfo , rangeGetSliderRange , -- ** rangeGetSliderSizeFixed + RangeGetSliderSizeFixedMethodInfo , rangeGetSliderSizeFixed , -- ** rangeGetUpperStepperSensitivity + RangeGetUpperStepperSensitivityMethodInfo, rangeGetUpperStepperSensitivity , -- ** rangeGetValue + RangeGetValueMethodInfo , rangeGetValue , -- ** rangeSetAdjustment + RangeSetAdjustmentMethodInfo , rangeSetAdjustment , -- ** rangeSetFillLevel + RangeSetFillLevelMethodInfo , rangeSetFillLevel , -- ** rangeSetFlippable + RangeSetFlippableMethodInfo , rangeSetFlippable , -- ** rangeSetIncrements + RangeSetIncrementsMethodInfo , rangeSetIncrements , -- ** rangeSetInverted + RangeSetInvertedMethodInfo , rangeSetInverted , -- ** rangeSetLowerStepperSensitivity + RangeSetLowerStepperSensitivityMethodInfo, rangeSetLowerStepperSensitivity , -- ** rangeSetMinSliderSize + RangeSetMinSliderSizeMethodInfo , rangeSetMinSliderSize , -- ** rangeSetRange + RangeSetRangeMethodInfo , rangeSetRange , -- ** rangeSetRestrictToFillLevel + RangeSetRestrictToFillLevelMethodInfo , rangeSetRestrictToFillLevel , -- ** rangeSetRoundDigits + RangeSetRoundDigitsMethodInfo , rangeSetRoundDigits , -- ** rangeSetShowFillLevel + RangeSetShowFillLevelMethodInfo , rangeSetShowFillLevel , -- ** rangeSetSliderSizeFixed + RangeSetSliderSizeFixedMethodInfo , rangeSetSliderSizeFixed , -- ** rangeSetUpperStepperSensitivity + RangeSetUpperStepperSensitivityMethodInfo, rangeSetUpperStepperSensitivity , -- ** rangeSetValue + RangeSetValueMethodInfo , rangeSetValue , @@ -276,6 +305,332 @@ noRange :: Maybe Range noRange = Nothing +type family ResolveRangeMethod (t :: Symbol) (o :: *) :: * where + ResolveRangeMethod "activate" o = WidgetActivateMethodInfo + ResolveRangeMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveRangeMethod "addChild" o = BuildableAddChildMethodInfo + ResolveRangeMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveRangeMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveRangeMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveRangeMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveRangeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRangeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRangeMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveRangeMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveRangeMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveRangeMethod "classPath" o = WidgetClassPathMethodInfo + ResolveRangeMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveRangeMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveRangeMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveRangeMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveRangeMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveRangeMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveRangeMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveRangeMethod "destroy" o = WidgetDestroyMethodInfo + ResolveRangeMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveRangeMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveRangeMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveRangeMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveRangeMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveRangeMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveRangeMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveRangeMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveRangeMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveRangeMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveRangeMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveRangeMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveRangeMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveRangeMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveRangeMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveRangeMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveRangeMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveRangeMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveRangeMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveRangeMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveRangeMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveRangeMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveRangeMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveRangeMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveRangeMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveRangeMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveRangeMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveRangeMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveRangeMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveRangeMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveRangeMethod "draw" o = WidgetDrawMethodInfo + ResolveRangeMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveRangeMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveRangeMethod "event" o = WidgetEventMethodInfo + ResolveRangeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRangeMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveRangeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRangeMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveRangeMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveRangeMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveRangeMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveRangeMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveRangeMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveRangeMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveRangeMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveRangeMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveRangeMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveRangeMethod "hide" o = WidgetHideMethodInfo + ResolveRangeMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveRangeMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveRangeMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveRangeMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveRangeMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveRangeMethod "intersect" o = WidgetIntersectMethodInfo + ResolveRangeMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveRangeMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveRangeMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveRangeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRangeMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveRangeMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveRangeMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveRangeMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveRangeMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveRangeMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveRangeMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveRangeMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveRangeMethod "map" o = WidgetMapMethodInfo + ResolveRangeMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveRangeMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveRangeMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveRangeMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveRangeMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveRangeMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveRangeMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveRangeMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveRangeMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRangeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRangeMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveRangeMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveRangeMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveRangeMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveRangeMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveRangeMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveRangeMethod "path" o = WidgetPathMethodInfo + ResolveRangeMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveRangeMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveRangeMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveRangeMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveRangeMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveRangeMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveRangeMethod "realize" o = WidgetRealizeMethodInfo + ResolveRangeMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRangeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRangeMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveRangeMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveRangeMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveRangeMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveRangeMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveRangeMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveRangeMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveRangeMethod "reparent" o = WidgetReparentMethodInfo + ResolveRangeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRangeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRangeMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveRangeMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveRangeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRangeMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveRangeMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveRangeMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveRangeMethod "show" o = WidgetShowMethodInfo + ResolveRangeMethod "showAll" o = WidgetShowAllMethodInfo + ResolveRangeMethod "showNow" o = WidgetShowNowMethodInfo + ResolveRangeMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveRangeMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveRangeMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveRangeMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRangeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRangeMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveRangeMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveRangeMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveRangeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRangeMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveRangeMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveRangeMethod "unmap" o = WidgetUnmapMethodInfo + ResolveRangeMethod "unparent" o = WidgetUnparentMethodInfo + ResolveRangeMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveRangeMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRangeMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveRangeMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveRangeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRangeMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveRangeMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveRangeMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo + ResolveRangeMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveRangeMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveRangeMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveRangeMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveRangeMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveRangeMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveRangeMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveRangeMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveRangeMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveRangeMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveRangeMethod "getClip" o = WidgetGetClipMethodInfo + ResolveRangeMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveRangeMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveRangeMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRangeMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveRangeMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveRangeMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveRangeMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveRangeMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveRangeMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveRangeMethod "getFillLevel" o = RangeGetFillLevelMethodInfo + ResolveRangeMethod "getFlippable" o = RangeGetFlippableMethodInfo + ResolveRangeMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveRangeMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveRangeMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveRangeMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveRangeMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveRangeMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveRangeMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveRangeMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveRangeMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveRangeMethod "getInverted" o = RangeGetInvertedMethodInfo + ResolveRangeMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo + ResolveRangeMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveRangeMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveRangeMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveRangeMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveRangeMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveRangeMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveRangeMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveRangeMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo + ResolveRangeMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveRangeMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveRangeMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveRangeMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveRangeMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveRangeMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveRangeMethod "getParent" o = WidgetGetParentMethodInfo + ResolveRangeMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveRangeMethod "getPath" o = WidgetGetPathMethodInfo + ResolveRangeMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveRangeMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveRangeMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveRangeMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveRangeMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveRangeMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveRangeMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveRangeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRangeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRangeMethod "getRangeRect" o = RangeGetRangeRectMethodInfo + ResolveRangeMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveRangeMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveRangeMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveRangeMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveRangeMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo + ResolveRangeMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveRangeMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo + ResolveRangeMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveRangeMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveRangeMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveRangeMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveRangeMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo + ResolveRangeMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveRangeMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo + ResolveRangeMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo + ResolveRangeMethod "getState" o = WidgetGetStateMethodInfo + ResolveRangeMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveRangeMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveRangeMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveRangeMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveRangeMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveRangeMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveRangeMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveRangeMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveRangeMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveRangeMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo + ResolveRangeMethod "getValign" o = WidgetGetValignMethodInfo + ResolveRangeMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveRangeMethod "getValue" o = RangeGetValueMethodInfo + ResolveRangeMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveRangeMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveRangeMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveRangeMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveRangeMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveRangeMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveRangeMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo + ResolveRangeMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveRangeMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveRangeMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveRangeMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveRangeMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveRangeMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveRangeMethod "setClip" o = WidgetSetClipMethodInfo + ResolveRangeMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveRangeMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRangeMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveRangeMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveRangeMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveRangeMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveRangeMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveRangeMethod "setFillLevel" o = RangeSetFillLevelMethodInfo + ResolveRangeMethod "setFlippable" o = RangeSetFlippableMethodInfo + ResolveRangeMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveRangeMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveRangeMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveRangeMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveRangeMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveRangeMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveRangeMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveRangeMethod "setIncrements" o = RangeSetIncrementsMethodInfo + ResolveRangeMethod "setInverted" o = RangeSetInvertedMethodInfo + ResolveRangeMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo + ResolveRangeMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveRangeMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveRangeMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveRangeMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveRangeMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveRangeMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveRangeMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveRangeMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo + ResolveRangeMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveRangeMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveRangeMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveRangeMethod "setParent" o = WidgetSetParentMethodInfo + ResolveRangeMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveRangeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRangeMethod "setRange" o = RangeSetRangeMethodInfo + ResolveRangeMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveRangeMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveRangeMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveRangeMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo + ResolveRangeMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo + ResolveRangeMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveRangeMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo + ResolveRangeMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveRangeMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo + ResolveRangeMethod "setState" o = WidgetSetStateMethodInfo + ResolveRangeMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveRangeMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveRangeMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveRangeMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveRangeMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveRangeMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveRangeMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo + ResolveRangeMethod "setValign" o = WidgetSetValignMethodInfo + ResolveRangeMethod "setValue" o = RangeSetValueMethodInfo + ResolveRangeMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveRangeMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveRangeMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveRangeMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveRangeMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveRangeMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRangeMethod t Range, MethodInfo info Range p) => IsLabelProxy t (Range -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRangeMethod t Range, MethodInfo info Range p) => IsLabel t (Range -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Range::adjust-bounds type RangeAdjustBoundsCallback = Double -> @@ -465,7 +820,7 @@ type AttrSetTypeConstraint RangeAdjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint RangeAdjustmentPropertyInfo = RangeK type AttrGetType RangeAdjustmentPropertyInfo = Adjustment - type AttrLabel RangeAdjustmentPropertyInfo = "Range::adjustment" + type AttrLabel RangeAdjustmentPropertyInfo = "adjustment" attrGet _ = getRangeAdjustment attrSet _ = setRangeAdjustment attrConstruct _ = constructRangeAdjustment @@ -489,7 +844,7 @@ type AttrSetTypeConstraint RangeFillLevelPropertyInfo = (~) Double type AttrBaseTypeConstraint RangeFillLevelPropertyInfo = RangeK type AttrGetType RangeFillLevelPropertyInfo = Double - type AttrLabel RangeFillLevelPropertyInfo = "Range::fill-level" + type AttrLabel RangeFillLevelPropertyInfo = "fill-level" attrGet _ = getRangeFillLevel attrSet _ = setRangeFillLevel attrConstruct _ = constructRangeFillLevel @@ -513,7 +868,7 @@ type AttrSetTypeConstraint RangeInvertedPropertyInfo = (~) Bool type AttrBaseTypeConstraint RangeInvertedPropertyInfo = RangeK type AttrGetType RangeInvertedPropertyInfo = Bool - type AttrLabel RangeInvertedPropertyInfo = "Range::inverted" + type AttrLabel RangeInvertedPropertyInfo = "inverted" attrGet _ = getRangeInverted attrSet _ = setRangeInverted attrConstruct _ = constructRangeInverted @@ -537,7 +892,7 @@ type AttrSetTypeConstraint RangeLowerStepperSensitivityPropertyInfo = (~) SensitivityType type AttrBaseTypeConstraint RangeLowerStepperSensitivityPropertyInfo = RangeK type AttrGetType RangeLowerStepperSensitivityPropertyInfo = SensitivityType - type AttrLabel RangeLowerStepperSensitivityPropertyInfo = "Range::lower-stepper-sensitivity" + type AttrLabel RangeLowerStepperSensitivityPropertyInfo = "lower-stepper-sensitivity" attrGet _ = getRangeLowerStepperSensitivity attrSet _ = setRangeLowerStepperSensitivity attrConstruct _ = constructRangeLowerStepperSensitivity @@ -561,7 +916,7 @@ type AttrSetTypeConstraint RangeRestrictToFillLevelPropertyInfo = (~) Bool type AttrBaseTypeConstraint RangeRestrictToFillLevelPropertyInfo = RangeK type AttrGetType RangeRestrictToFillLevelPropertyInfo = Bool - type AttrLabel RangeRestrictToFillLevelPropertyInfo = "Range::restrict-to-fill-level" + type AttrLabel RangeRestrictToFillLevelPropertyInfo = "restrict-to-fill-level" attrGet _ = getRangeRestrictToFillLevel attrSet _ = setRangeRestrictToFillLevel attrConstruct _ = constructRangeRestrictToFillLevel @@ -585,7 +940,7 @@ type AttrSetTypeConstraint RangeRoundDigitsPropertyInfo = (~) Int32 type AttrBaseTypeConstraint RangeRoundDigitsPropertyInfo = RangeK type AttrGetType RangeRoundDigitsPropertyInfo = Int32 - type AttrLabel RangeRoundDigitsPropertyInfo = "Range::round-digits" + type AttrLabel RangeRoundDigitsPropertyInfo = "round-digits" attrGet _ = getRangeRoundDigits attrSet _ = setRangeRoundDigits attrConstruct _ = constructRangeRoundDigits @@ -609,7 +964,7 @@ type AttrSetTypeConstraint RangeShowFillLevelPropertyInfo = (~) Bool type AttrBaseTypeConstraint RangeShowFillLevelPropertyInfo = RangeK type AttrGetType RangeShowFillLevelPropertyInfo = Bool - type AttrLabel RangeShowFillLevelPropertyInfo = "Range::show-fill-level" + type AttrLabel RangeShowFillLevelPropertyInfo = "show-fill-level" attrGet _ = getRangeShowFillLevel attrSet _ = setRangeShowFillLevel attrConstruct _ = constructRangeShowFillLevel @@ -633,13 +988,13 @@ type AttrSetTypeConstraint RangeUpperStepperSensitivityPropertyInfo = (~) SensitivityType type AttrBaseTypeConstraint RangeUpperStepperSensitivityPropertyInfo = RangeK type AttrGetType RangeUpperStepperSensitivityPropertyInfo = SensitivityType - type AttrLabel RangeUpperStepperSensitivityPropertyInfo = "Range::upper-stepper-sensitivity" + type AttrLabel RangeUpperStepperSensitivityPropertyInfo = "upper-stepper-sensitivity" attrGet _ = getRangeUpperStepperSensitivity attrSet _ = setRangeUpperStepperSensitivity attrConstruct _ = constructRangeUpperStepperSensitivity type instance AttributeList Range = RangeAttributeList -type RangeAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type RangeAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data RangeAdjustBoundsSignalInfo instance SignalInfo RangeAdjustBoundsSignalInfo where @@ -662,13 +1017,12 @@ connectSignal _ = connectRangeValueChanged type instance SignalList Range = RangeSignalList -type RangeSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RangeSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Range::get_adjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -680,8 +1034,8 @@ rangeGetAdjustment :: (MonadIO m, RangeK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result rangeGetAdjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_range_get_adjustment _obj' @@ -690,11 +1044,14 @@ touchManagedPtr _obj return result' +data RangeGetAdjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, RangeK a) => MethodInfo RangeGetAdjustmentMethodInfo a signature where + overloadedMethod _ = rangeGetAdjustment + -- method Range::get_fill_level -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -706,8 +1063,8 @@ rangeGetFillLevel :: (MonadIO m, RangeK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result rangeGetFillLevel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_range_get_fill_level _obj' @@ -715,11 +1072,14 @@ touchManagedPtr _obj return result' +data RangeGetFillLevelMethodInfo +instance (signature ~ (m Double), MonadIO m, RangeK a) => MethodInfo RangeGetFillLevelMethodInfo a signature where + overloadedMethod _ = rangeGetFillLevel + -- method Range::get_flippable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -731,8 +1091,8 @@ rangeGetFlippable :: (MonadIO m, RangeK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result rangeGetFlippable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_range_get_flippable _obj' @@ -740,11 +1100,14 @@ touchManagedPtr _obj return result' +data RangeGetFlippableMethodInfo +instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetFlippableMethodInfo a signature where + overloadedMethod _ = rangeGetFlippable + -- method Range::get_inverted -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -756,8 +1119,8 @@ rangeGetInverted :: (MonadIO m, RangeK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result rangeGetInverted _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_range_get_inverted _obj' @@ -765,11 +1128,14 @@ touchManagedPtr _obj return result' +data RangeGetInvertedMethodInfo +instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetInvertedMethodInfo a signature where + overloadedMethod _ = rangeGetInverted + -- method Range::get_lower_stepper_sensitivity -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SensitivityType" -- throws : False -- Skip return : False @@ -781,8 +1147,8 @@ rangeGetLowerStepperSensitivity :: (MonadIO m, RangeK a) => - a -> -- _obj - m SensitivityType + a -- _obj + -> m SensitivityType -- result rangeGetLowerStepperSensitivity _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_range_get_lower_stepper_sensitivity _obj' @@ -790,11 +1156,14 @@ touchManagedPtr _obj return result' +data RangeGetLowerStepperSensitivityMethodInfo +instance (signature ~ (m SensitivityType), MonadIO m, RangeK a) => MethodInfo RangeGetLowerStepperSensitivityMethodInfo a signature where + overloadedMethod _ = rangeGetLowerStepperSensitivity + -- method Range::get_min_slider_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -806,19 +1175,22 @@ rangeGetMinSliderSize :: (MonadIO m, RangeK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result rangeGetMinSliderSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_range_get_min_slider_size _obj' touchManagedPtr _obj return result +data RangeGetMinSliderSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m, RangeK a) => MethodInfo RangeGetMinSliderSizeMethodInfo a signature where + overloadedMethod _ = rangeGetMinSliderSize + -- method Range::get_range_rect -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "range_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -831,21 +1203,24 @@ rangeGetRangeRect :: (MonadIO m, RangeK a) => - a -> -- _obj - m (Gdk.Rectangle) + a -- _obj + -> m (Gdk.Rectangle) -- result rangeGetRangeRect _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - range_rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_range_get_range_rect _obj' range_rect - range_rect' <- (wrapBoxed Gdk.Rectangle) range_rect + rangeRect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_range_get_range_rect _obj' rangeRect + rangeRect' <- (wrapBoxed Gdk.Rectangle) rangeRect touchManagedPtr _obj - return range_rect' + return rangeRect' +data RangeGetRangeRectMethodInfo +instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, RangeK a) => MethodInfo RangeGetRangeRectMethodInfo a signature where + overloadedMethod _ = rangeGetRangeRect + -- method Range::get_restrict_to_fill_level -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -857,8 +1232,8 @@ rangeGetRestrictToFillLevel :: (MonadIO m, RangeK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result rangeGetRestrictToFillLevel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_range_get_restrict_to_fill_level _obj' @@ -866,11 +1241,14 @@ touchManagedPtr _obj return result' +data RangeGetRestrictToFillLevelMethodInfo +instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetRestrictToFillLevelMethodInfo a signature where + overloadedMethod _ = rangeGetRestrictToFillLevel + -- method Range::get_round_digits -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -882,19 +1260,22 @@ rangeGetRoundDigits :: (MonadIO m, RangeK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result rangeGetRoundDigits _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_range_get_round_digits _obj' touchManagedPtr _obj return result +data RangeGetRoundDigitsMethodInfo +instance (signature ~ (m Int32), MonadIO m, RangeK a) => MethodInfo RangeGetRoundDigitsMethodInfo a signature where + overloadedMethod _ = rangeGetRoundDigits + -- method Range::get_show_fill_level -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -906,8 +1287,8 @@ rangeGetShowFillLevel :: (MonadIO m, RangeK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result rangeGetShowFillLevel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_range_get_show_fill_level _obj' @@ -915,11 +1296,14 @@ touchManagedPtr _obj return result' +data RangeGetShowFillLevelMethodInfo +instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetShowFillLevelMethodInfo a signature where + overloadedMethod _ = rangeGetShowFillLevel + -- method Range::get_slider_range -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "slider_start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "slider_end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "slider_start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "slider_end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -933,25 +1317,28 @@ rangeGetSliderRange :: (MonadIO m, RangeK a) => - a -> -- _obj - m (Int32,Int32) + a -- _obj + -> m (Int32,Int32) -- result rangeGetSliderRange _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - slider_start <- allocMem :: IO (Ptr Int32) - slider_end <- allocMem :: IO (Ptr Int32) - gtk_range_get_slider_range _obj' slider_start slider_end - slider_start' <- peek slider_start - slider_end' <- peek slider_end + sliderStart <- allocMem :: IO (Ptr Int32) + sliderEnd <- allocMem :: IO (Ptr Int32) + gtk_range_get_slider_range _obj' sliderStart sliderEnd + sliderStart' <- peek sliderStart + sliderEnd' <- peek sliderEnd touchManagedPtr _obj - freeMem slider_start - freeMem slider_end - return (slider_start', slider_end') + freeMem sliderStart + freeMem sliderEnd + return (sliderStart', sliderEnd') +data RangeGetSliderRangeMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, RangeK a) => MethodInfo RangeGetSliderRangeMethodInfo a signature where + overloadedMethod _ = rangeGetSliderRange + -- method Range::get_slider_size_fixed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -963,8 +1350,8 @@ rangeGetSliderSizeFixed :: (MonadIO m, RangeK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result rangeGetSliderSizeFixed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_range_get_slider_size_fixed _obj' @@ -972,11 +1359,14 @@ touchManagedPtr _obj return result' +data RangeGetSliderSizeFixedMethodInfo +instance (signature ~ (m Bool), MonadIO m, RangeK a) => MethodInfo RangeGetSliderSizeFixedMethodInfo a signature where + overloadedMethod _ = rangeGetSliderSizeFixed + -- method Range::get_upper_stepper_sensitivity -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SensitivityType" -- throws : False -- Skip return : False @@ -988,8 +1378,8 @@ rangeGetUpperStepperSensitivity :: (MonadIO m, RangeK a) => - a -> -- _obj - m SensitivityType + a -- _obj + -> m SensitivityType -- result rangeGetUpperStepperSensitivity _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_range_get_upper_stepper_sensitivity _obj' @@ -997,11 +1387,14 @@ touchManagedPtr _obj return result' +data RangeGetUpperStepperSensitivityMethodInfo +instance (signature ~ (m SensitivityType), MonadIO m, RangeK a) => MethodInfo RangeGetUpperStepperSensitivityMethodInfo a signature where + overloadedMethod _ = rangeGetUpperStepperSensitivity + -- method Range::get_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -1013,8 +1406,8 @@ rangeGetValue :: (MonadIO m, RangeK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result rangeGetValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_range_get_value _obj' @@ -1022,11 +1415,14 @@ touchManagedPtr _obj return result' +data RangeGetValueMethodInfo +instance (signature ~ (m Double), MonadIO m, RangeK a) => MethodInfo RangeGetValueMethodInfo a signature where + overloadedMethod _ = rangeGetValue + -- method Range::set_adjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1039,9 +1435,9 @@ rangeSetAdjustment :: (MonadIO m, RangeK a, AdjustmentK b) => - a -> -- _obj - b -> -- adjustment - m () + a -- _obj + -> b -- adjustment + -> m () -- result rangeSetAdjustment _obj adjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let adjustment' = unsafeManagedPtrCastPtr adjustment @@ -1050,11 +1446,14 @@ touchManagedPtr adjustment return () +data RangeSetAdjustmentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, RangeK a, AdjustmentK b) => MethodInfo RangeSetAdjustmentMethodInfo a signature where + overloadedMethod _ = rangeSetAdjustment + -- method Range::set_fill_level -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1067,21 +1466,24 @@ rangeSetFillLevel :: (MonadIO m, RangeK a) => - a -> -- _obj - Double -> -- fill_level - m () -rangeSetFillLevel _obj fill_level = liftIO $ do + a -- _obj + -> Double -- fillLevel + -> m () -- result +rangeSetFillLevel _obj fillLevel = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let fill_level' = realToFrac fill_level - gtk_range_set_fill_level _obj' fill_level' + let fillLevel' = realToFrac fillLevel + gtk_range_set_fill_level _obj' fillLevel' touchManagedPtr _obj return () +data RangeSetFillLevelMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetFillLevelMethodInfo a signature where + overloadedMethod _ = rangeSetFillLevel + -- method Range::set_flippable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flippable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flippable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flippable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1094,9 +1496,9 @@ rangeSetFlippable :: (MonadIO m, RangeK a) => - a -> -- _obj - Bool -> -- flippable - m () + a -- _obj + -> Bool -- flippable + -> m () -- result rangeSetFlippable _obj flippable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let flippable' = (fromIntegral . fromEnum) flippable @@ -1104,11 +1506,14 @@ touchManagedPtr _obj return () +data RangeSetFlippableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetFlippableMethodInfo a signature where + overloadedMethod _ = rangeSetFlippable + -- method Range::set_increments -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1122,10 +1527,10 @@ rangeSetIncrements :: (MonadIO m, RangeK a) => - a -> -- _obj - Double -> -- step - Double -> -- page - m () + a -- _obj + -> Double -- step + -> Double -- page + -> m () -- result rangeSetIncrements _obj step page = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let step' = realToFrac step @@ -1134,11 +1539,14 @@ touchManagedPtr _obj return () +data RangeSetIncrementsMethodInfo +instance (signature ~ (Double -> Double -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetIncrementsMethodInfo a signature where + overloadedMethod _ = rangeSetIncrements + -- method Range::set_inverted -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1151,9 +1559,9 @@ rangeSetInverted :: (MonadIO m, RangeK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result rangeSetInverted _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -1161,11 +1569,14 @@ touchManagedPtr _obj return () +data RangeSetInvertedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetInvertedMethodInfo a signature where + overloadedMethod _ = rangeSetInverted + -- method Range::set_lower_stepper_sensitivity -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1178,9 +1589,9 @@ rangeSetLowerStepperSensitivity :: (MonadIO m, RangeK a) => - a -> -- _obj - SensitivityType -> -- sensitivity - m () + a -- _obj + -> SensitivityType -- sensitivity + -> m () -- result rangeSetLowerStepperSensitivity _obj sensitivity = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sensitivity' = (fromIntegral . fromEnum) sensitivity @@ -1188,11 +1599,14 @@ touchManagedPtr _obj return () +data RangeSetLowerStepperSensitivityMethodInfo +instance (signature ~ (SensitivityType -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetLowerStepperSensitivityMethodInfo a signature where + overloadedMethod _ = rangeSetLowerStepperSensitivity + -- method Range::set_min_slider_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1205,20 +1619,23 @@ rangeSetMinSliderSize :: (MonadIO m, RangeK a) => - a -> -- _obj - Int32 -> -- min_size - m () -rangeSetMinSliderSize _obj min_size = liftIO $ do + a -- _obj + -> Int32 -- minSize + -> m () -- result +rangeSetMinSliderSize _obj minSize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_range_set_min_slider_size _obj' min_size + gtk_range_set_min_slider_size _obj' minSize touchManagedPtr _obj return () +data RangeSetMinSliderSizeMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetMinSliderSizeMethodInfo a signature where + overloadedMethod _ = rangeSetMinSliderSize + -- method Range::set_range -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1232,10 +1649,10 @@ rangeSetRange :: (MonadIO m, RangeK a) => - a -> -- _obj - Double -> -- min - Double -> -- max - m () + a -- _obj + -> Double -- min + -> Double -- max + -> m () -- result rangeSetRange _obj min max = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let min' = realToFrac min @@ -1244,11 +1661,14 @@ touchManagedPtr _obj return () +data RangeSetRangeMethodInfo +instance (signature ~ (Double -> Double -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetRangeMethodInfo a signature where + overloadedMethod _ = rangeSetRange + -- method Range::set_restrict_to_fill_level -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "restrict_to_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "restrict_to_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "restrict_to_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1261,21 +1681,24 @@ rangeSetRestrictToFillLevel :: (MonadIO m, RangeK a) => - a -> -- _obj - Bool -> -- restrict_to_fill_level - m () -rangeSetRestrictToFillLevel _obj restrict_to_fill_level = liftIO $ do + a -- _obj + -> Bool -- restrictToFillLevel + -> m () -- result +rangeSetRestrictToFillLevel _obj restrictToFillLevel = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let restrict_to_fill_level' = (fromIntegral . fromEnum) restrict_to_fill_level - gtk_range_set_restrict_to_fill_level _obj' restrict_to_fill_level' + let restrictToFillLevel' = (fromIntegral . fromEnum) restrictToFillLevel + gtk_range_set_restrict_to_fill_level _obj' restrictToFillLevel' touchManagedPtr _obj return () +data RangeSetRestrictToFillLevelMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetRestrictToFillLevelMethodInfo a signature where + overloadedMethod _ = rangeSetRestrictToFillLevel + -- method Range::set_round_digits -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "round_digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "round_digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "round_digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1288,20 +1711,23 @@ rangeSetRoundDigits :: (MonadIO m, RangeK a) => - a -> -- _obj - Int32 -> -- round_digits - m () -rangeSetRoundDigits _obj round_digits = liftIO $ do + a -- _obj + -> Int32 -- roundDigits + -> m () -- result +rangeSetRoundDigits _obj roundDigits = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_range_set_round_digits _obj' round_digits + gtk_range_set_round_digits _obj' roundDigits touchManagedPtr _obj return () +data RangeSetRoundDigitsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetRoundDigitsMethodInfo a signature where + overloadedMethod _ = rangeSetRoundDigits + -- method Range::set_show_fill_level -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1314,21 +1740,24 @@ rangeSetShowFillLevel :: (MonadIO m, RangeK a) => - a -> -- _obj - Bool -> -- show_fill_level - m () -rangeSetShowFillLevel _obj show_fill_level = liftIO $ do + a -- _obj + -> Bool -- showFillLevel + -> m () -- result +rangeSetShowFillLevel _obj showFillLevel = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_fill_level' = (fromIntegral . fromEnum) show_fill_level - gtk_range_set_show_fill_level _obj' show_fill_level' + let showFillLevel' = (fromIntegral . fromEnum) showFillLevel + gtk_range_set_show_fill_level _obj' showFillLevel' touchManagedPtr _obj return () +data RangeSetShowFillLevelMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetShowFillLevelMethodInfo a signature where + overloadedMethod _ = rangeSetShowFillLevel + -- method Range::set_slider_size_fixed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size_fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size_fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size_fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1341,21 +1770,24 @@ rangeSetSliderSizeFixed :: (MonadIO m, RangeK a) => - a -> -- _obj - Bool -> -- size_fixed - m () -rangeSetSliderSizeFixed _obj size_fixed = liftIO $ do + a -- _obj + -> Bool -- sizeFixed + -> m () -- result +rangeSetSliderSizeFixed _obj sizeFixed = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let size_fixed' = (fromIntegral . fromEnum) size_fixed - gtk_range_set_slider_size_fixed _obj' size_fixed' + let sizeFixed' = (fromIntegral . fromEnum) sizeFixed + gtk_range_set_slider_size_fixed _obj' sizeFixed' touchManagedPtr _obj return () +data RangeSetSliderSizeFixedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetSliderSizeFixedMethodInfo a signature where + overloadedMethod _ = rangeSetSliderSizeFixed + -- method Range::set_upper_stepper_sensitivity -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1368,9 +1800,9 @@ rangeSetUpperStepperSensitivity :: (MonadIO m, RangeK a) => - a -> -- _obj - SensitivityType -> -- sensitivity - m () + a -- _obj + -> SensitivityType -- sensitivity + -> m () -- result rangeSetUpperStepperSensitivity _obj sensitivity = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sensitivity' = (fromIntegral . fromEnum) sensitivity @@ -1378,11 +1810,14 @@ touchManagedPtr _obj return () +data RangeSetUpperStepperSensitivityMethodInfo +instance (signature ~ (SensitivityType -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetUpperStepperSensitivityMethodInfo a signature where + overloadedMethod _ = rangeSetUpperStepperSensitivity + -- method Range::set_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1395,14 +1830,18 @@ rangeSetValue :: (MonadIO m, RangeK a) => - a -> -- _obj - Double -> -- value - m () + a -- _obj + -> Double -- value + -> m () -- result rangeSetValue _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = realToFrac value gtk_range_set_value _obj' value' touchManagedPtr _obj return () + +data RangeSetValueMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, RangeK a) => MethodInfo RangeSetValueMethodInfo a signature where + overloadedMethod _ = rangeSetValue diff --git a/GI/Gtk/Objects/Range.hs-boot b/GI/Gtk/Objects/Range.hs-boot --- a/GI/Gtk/Objects/Range.hs-boot +++ b/GI/Gtk/Objects/Range.hs-boot @@ -23,3 +23,31 @@ data RangeChangeValueSignalInfo data RangeMoveSliderSignalInfo data RangeValueChangedSignalInfo +data RangeGetAdjustmentMethodInfo +data RangeGetFillLevelMethodInfo +data RangeGetFlippableMethodInfo +data RangeGetInvertedMethodInfo +data RangeGetLowerStepperSensitivityMethodInfo +data RangeGetMinSliderSizeMethodInfo +data RangeGetRangeRectMethodInfo +data RangeGetRestrictToFillLevelMethodInfo +data RangeGetRoundDigitsMethodInfo +data RangeGetShowFillLevelMethodInfo +data RangeGetSliderRangeMethodInfo +data RangeGetSliderSizeFixedMethodInfo +data RangeGetUpperStepperSensitivityMethodInfo +data RangeGetValueMethodInfo +data RangeSetAdjustmentMethodInfo +data RangeSetFillLevelMethodInfo +data RangeSetFlippableMethodInfo +data RangeSetIncrementsMethodInfo +data RangeSetInvertedMethodInfo +data RangeSetLowerStepperSensitivityMethodInfo +data RangeSetMinSliderSizeMethodInfo +data RangeSetRangeMethodInfo +data RangeSetRestrictToFillLevelMethodInfo +data RangeSetRoundDigitsMethodInfo +data RangeSetShowFillLevelMethodInfo +data RangeSetSliderSizeFixedMethodInfo +data RangeSetUpperStepperSensitivityMethodInfo +data RangeSetValueMethodInfo diff --git a/GI/Gtk/Objects/RangeAccessible.hs b/GI/Gtk/Objects/RangeAccessible.hs --- a/GI/Gtk/Objects/RangeAccessible.hs +++ b/GI/Gtk/Objects/RangeAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,88 @@ noRangeAccessible :: Maybe RangeAccessible noRangeAccessible = Nothing +type family ResolveRangeAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveRangeAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveRangeAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRangeAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRangeAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveRangeAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveRangeAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRangeAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRangeAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveRangeAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveRangeAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRangeAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRangeAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRangeAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveRangeAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveRangeAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRangeAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveRangeAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveRangeAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveRangeAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRangeAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveRangeAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveRangeAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveRangeAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveRangeAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRangeAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRangeAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRangeAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRangeAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRangeAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRangeAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRangeAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRangeAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveRangeAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveRangeAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo + ResolveRangeAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRangeAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveRangeAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveRangeAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo + ResolveRangeAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveRangeAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo + ResolveRangeAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo + ResolveRangeAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo + ResolveRangeAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveRangeAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveRangeAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveRangeAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveRangeAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveRangeAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRangeAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRangeAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo + ResolveRangeAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveRangeAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveRangeAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo + ResolveRangeAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo + ResolveRangeAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveRangeAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo + ResolveRangeAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRangeAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveRangeAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveRangeAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveRangeAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveRangeAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveRangeAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRangeAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveRangeAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveRangeAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo + ResolveRangeAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveRangeAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRangeAccessibleMethod t RangeAccessible, MethodInfo info RangeAccessible p) => IsLabelProxy t (RangeAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRangeAccessibleMethod t RangeAccessible, MethodInfo info RangeAccessible p) => IsLabel t (RangeAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList RangeAccessible = RangeAccessibleAttributeList -type RangeAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type RangeAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList RangeAccessible = RangeAccessibleSignalList -type RangeAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RangeAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/RcStyle.hs b/GI/Gtk/Objects/RcStyle.hs --- a/GI/Gtk/Objects/RcStyle.hs +++ b/GI/Gtk/Objects/RcStyle.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** rcStyleCopy + RcStyleCopyMethodInfo , rcStyleCopy , @@ -60,17 +62,50 @@ noRcStyle :: Maybe RcStyle noRcStyle = Nothing +type family ResolveRcStyleMethod (t :: Symbol) (o :: *) :: * where + ResolveRcStyleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRcStyleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRcStyleMethod "copy" o = RcStyleCopyMethodInfo + ResolveRcStyleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRcStyleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRcStyleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRcStyleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRcStyleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRcStyleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRcStyleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRcStyleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRcStyleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRcStyleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRcStyleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRcStyleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRcStyleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRcStyleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRcStyleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRcStyleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRcStyleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRcStyleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRcStyleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRcStyleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRcStyleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRcStyleMethod t RcStyle, MethodInfo info RcStyle p) => IsLabelProxy t (RcStyle -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRcStyleMethod t RcStyle, MethodInfo info RcStyle p) => IsLabel t (RcStyle -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList RcStyle = RcStyleAttributeList type RcStyleAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList RcStyle = RcStyleSignalList -type RcStyleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RcStyleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method RcStyle::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "RcStyle" -- throws : False -- Skip return : False @@ -81,7 +116,7 @@ {-# DEPRECATED rcStyleNew ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} rcStyleNew :: (MonadIO m) => - m RcStyle + m RcStyle -- result rcStyleNew = liftIO $ do result <- gtk_rc_style_new checkUnexpectedReturnNULL "gtk_rc_style_new" result @@ -90,9 +125,8 @@ -- method RcStyle::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RcStyle" -- throws : False -- Skip return : False @@ -104,8 +138,8 @@ {-# DEPRECATED rcStyleCopy ["(Since version 3.0)","Use #GtkCssProvider instead."]#-} rcStyleCopy :: (MonadIO m, RcStyleK a) => - a -> -- _obj - m RcStyle + a -- _obj + -> m RcStyle -- result rcStyleCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_rc_style_copy _obj' @@ -113,5 +147,9 @@ result' <- (wrapObject RcStyle) result touchManagedPtr _obj return result' + +data RcStyleCopyMethodInfo +instance (signature ~ (m RcStyle), MonadIO m, RcStyleK a) => MethodInfo RcStyleCopyMethodInfo a signature where + overloadedMethod _ = rcStyleCopy diff --git a/GI/Gtk/Objects/RcStyle.hs-boot b/GI/Gtk/Objects/RcStyle.hs-boot --- a/GI/Gtk/Objects/RcStyle.hs-boot +++ b/GI/Gtk/Objects/RcStyle.hs-boot @@ -11,3 +11,4 @@ instance GObject RcStyle where class GObject o => RcStyleK o instance (GObject o, IsDescendantOf RcStyle o) => RcStyleK o +data RcStyleCopyMethodInfo diff --git a/GI/Gtk/Objects/RecentAction.hs b/GI/Gtk/Objects/RecentAction.hs --- a/GI/Gtk/Objects/RecentAction.hs +++ b/GI/Gtk/Objects/RecentAction.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** recentActionGetShowNumbers + RecentActionGetShowNumbersMethodInfo , recentActionGetShowNumbers , @@ -29,6 +31,7 @@ -- ** recentActionSetShowNumbers + RecentActionSetShowNumbersMethodInfo , recentActionSetShowNumbers , @@ -78,6 +81,121 @@ noRecentAction :: Maybe RecentAction noRecentAction = Nothing +type family ResolveRecentActionMethod (t :: Symbol) (o :: *) :: * where + ResolveRecentActionMethod "activate" o = ActionActivateMethodInfo + ResolveRecentActionMethod "addChild" o = BuildableAddChildMethodInfo + ResolveRecentActionMethod "addFilter" o = RecentChooserAddFilterMethodInfo + ResolveRecentActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRecentActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRecentActionMethod "blockActivate" o = ActionBlockActivateMethodInfo + ResolveRecentActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo + ResolveRecentActionMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveRecentActionMethod "createIcon" o = ActionCreateIconMethodInfo + ResolveRecentActionMethod "createMenu" o = ActionCreateMenuMethodInfo + ResolveRecentActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo + ResolveRecentActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo + ResolveRecentActionMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveRecentActionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveRecentActionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveRecentActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo + ResolveRecentActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRecentActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRecentActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRecentActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo + ResolveRecentActionMethod "isVisible" o = ActionIsVisibleMethodInfo + ResolveRecentActionMethod "listFilters" o = RecentChooserListFiltersMethodInfo + ResolveRecentActionMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRecentActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRecentActionMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveRecentActionMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRecentActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRecentActionMethod "removeFilter" o = RecentChooserRemoveFilterMethodInfo + ResolveRecentActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRecentActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRecentActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRecentActionMethod "selectAll" o = RecentChooserSelectAllMethodInfo + ResolveRecentActionMethod "selectUri" o = RecentChooserSelectUriMethodInfo + ResolveRecentActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRecentActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRecentActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRecentActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo + ResolveRecentActionMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRecentActionMethod "unselectAll" o = RecentChooserUnselectAllMethodInfo + ResolveRecentActionMethod "unselectUri" o = RecentChooserUnselectUriMethodInfo + ResolveRecentActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRecentActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo + ResolveRecentActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo + ResolveRecentActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo + ResolveRecentActionMethod "getCurrentItem" o = RecentChooserGetCurrentItemMethodInfo + ResolveRecentActionMethod "getCurrentUri" o = RecentChooserGetCurrentUriMethodInfo + ResolveRecentActionMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRecentActionMethod "getFilter" o = RecentChooserGetFilterMethodInfo + ResolveRecentActionMethod "getGicon" o = ActionGetGiconMethodInfo + ResolveRecentActionMethod "getIconName" o = ActionGetIconNameMethodInfo + ResolveRecentActionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveRecentActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo + ResolveRecentActionMethod "getItems" o = RecentChooserGetItemsMethodInfo + ResolveRecentActionMethod "getLabel" o = ActionGetLabelMethodInfo + ResolveRecentActionMethod "getLimit" o = RecentChooserGetLimitMethodInfo + ResolveRecentActionMethod "getLocalOnly" o = RecentChooserGetLocalOnlyMethodInfo + ResolveRecentActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRecentActionMethod "getProxies" o = ActionGetProxiesMethodInfo + ResolveRecentActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRecentActionMethod "getSelectMultiple" o = RecentChooserGetSelectMultipleMethodInfo + ResolveRecentActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo + ResolveRecentActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo + ResolveRecentActionMethod "getShowIcons" o = RecentChooserGetShowIconsMethodInfo + ResolveRecentActionMethod "getShowNotFound" o = RecentChooserGetShowNotFoundMethodInfo + ResolveRecentActionMethod "getShowNumbers" o = RecentActionGetShowNumbersMethodInfo + ResolveRecentActionMethod "getShowPrivate" o = RecentChooserGetShowPrivateMethodInfo + ResolveRecentActionMethod "getShowTips" o = RecentChooserGetShowTipsMethodInfo + ResolveRecentActionMethod "getSortType" o = RecentChooserGetSortTypeMethodInfo + ResolveRecentActionMethod "getStockId" o = ActionGetStockIdMethodInfo + ResolveRecentActionMethod "getTooltip" o = ActionGetTooltipMethodInfo + ResolveRecentActionMethod "getUris" o = RecentChooserGetUrisMethodInfo + ResolveRecentActionMethod "getVisible" o = ActionGetVisibleMethodInfo + ResolveRecentActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo + ResolveRecentActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo + ResolveRecentActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo + ResolveRecentActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo + ResolveRecentActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo + ResolveRecentActionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveRecentActionMethod "setCurrentUri" o = RecentChooserSetCurrentUriMethodInfo + ResolveRecentActionMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRecentActionMethod "setFilter" o = RecentChooserSetFilterMethodInfo + ResolveRecentActionMethod "setGicon" o = ActionSetGiconMethodInfo + ResolveRecentActionMethod "setIconName" o = ActionSetIconNameMethodInfo + ResolveRecentActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo + ResolveRecentActionMethod "setLabel" o = ActionSetLabelMethodInfo + ResolveRecentActionMethod "setLimit" o = RecentChooserSetLimitMethodInfo + ResolveRecentActionMethod "setLocalOnly" o = RecentChooserSetLocalOnlyMethodInfo + ResolveRecentActionMethod "setName" o = BuildableSetNameMethodInfo + ResolveRecentActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRecentActionMethod "setSelectMultiple" o = RecentChooserSetSelectMultipleMethodInfo + ResolveRecentActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo + ResolveRecentActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo + ResolveRecentActionMethod "setShowIcons" o = RecentChooserSetShowIconsMethodInfo + ResolveRecentActionMethod "setShowNotFound" o = RecentChooserSetShowNotFoundMethodInfo + ResolveRecentActionMethod "setShowNumbers" o = RecentActionSetShowNumbersMethodInfo + ResolveRecentActionMethod "setShowPrivate" o = RecentChooserSetShowPrivateMethodInfo + ResolveRecentActionMethod "setShowTips" o = RecentChooserSetShowTipsMethodInfo + ResolveRecentActionMethod "setSortFunc" o = RecentChooserSetSortFuncMethodInfo + ResolveRecentActionMethod "setSortType" o = RecentChooserSetSortTypeMethodInfo + ResolveRecentActionMethod "setStockId" o = ActionSetStockIdMethodInfo + ResolveRecentActionMethod "setTooltip" o = ActionSetTooltipMethodInfo + ResolveRecentActionMethod "setVisible" o = ActionSetVisibleMethodInfo + ResolveRecentActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo + ResolveRecentActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo + ResolveRecentActionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRecentActionMethod t RecentAction, MethodInfo info RecentAction p) => IsLabelProxy t (RecentAction -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRecentActionMethod t RecentAction, MethodInfo info RecentAction p) => IsLabel t (RecentAction -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "show-numbers" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -97,22 +215,21 @@ type AttrSetTypeConstraint RecentActionShowNumbersPropertyInfo = (~) Bool type AttrBaseTypeConstraint RecentActionShowNumbersPropertyInfo = RecentActionK type AttrGetType RecentActionShowNumbersPropertyInfo = Bool - type AttrLabel RecentActionShowNumbersPropertyInfo = "RecentAction::show-numbers" + type AttrLabel RecentActionShowNumbersPropertyInfo = "show-numbers" attrGet _ = getRecentActionShowNumbers attrSet _ = setRecentActionShowNumbers attrConstruct _ = constructRecentActionShowNumbers type instance AttributeList RecentAction = RecentActionAttributeList -type RecentActionAttributeList = ('[ '("action-group", ActionActionGroupPropertyInfo), '("always-show-image", ActionAlwaysShowImagePropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hide-if-empty", ActionHideIfEmptyPropertyInfo), '("icon-name", ActionIconNamePropertyInfo), '("is-important", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("name", ActionNamePropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("short-label", ActionShortLabelPropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-numbers", RecentActionShowNumbersPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo), '("stock-id", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visible-horizontal", ActionVisibleHorizontalPropertyInfo), '("visible-overflown", ActionVisibleOverflownPropertyInfo), '("visible-vertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) +type RecentActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("name", ActionNamePropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showNumbers", RecentActionShowNumbersPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) type instance SignalList RecentAction = RecentActionSignalList -type RecentActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("item-activated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RecentActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("itemActivated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo)] :: [(Symbol, *)]) -- method RecentAction::new -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RecentAction" -- throws : False -- Skip return : False @@ -127,12 +244,12 @@ {-# DEPRECATED recentActionNew ["(Since version 3.10)"]#-} recentActionNew :: (MonadIO m) => - T.Text -> -- name - Maybe (T.Text) -> -- label - Maybe (T.Text) -> -- tooltip - Maybe (T.Text) -> -- stock_id - m RecentAction -recentActionNew name label tooltip stock_id = liftIO $ do + T.Text -- name + -> Maybe (T.Text) -- label + -> Maybe (T.Text) -- tooltip + -> Maybe (T.Text) -- stockId + -> m RecentAction -- result +recentActionNew name label tooltip stockId = liftIO $ do name' <- textToCString name maybeLabel <- case label of Nothing -> return nullPtr @@ -144,25 +261,24 @@ Just jTooltip -> do jTooltip' <- textToCString jTooltip return jTooltip' - maybeStock_id <- case stock_id of + maybeStockId <- case stockId of Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - result <- gtk_recent_action_new name' maybeLabel maybeTooltip maybeStock_id + Just jStockId -> do + jStockId' <- textToCString jStockId + return jStockId' + result <- gtk_recent_action_new name' maybeLabel maybeTooltip maybeStockId checkUnexpectedReturnNULL "gtk_recent_action_new" result result' <- (wrapObject RecentAction) result freeMem name' freeMem maybeLabel freeMem maybeTooltip - freeMem maybeStock_id + freeMem maybeStockId return result' -- method RecentAction::new_for_manager -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RecentAction" -- throws : False -- Skip return : False @@ -178,13 +294,13 @@ {-# DEPRECATED recentActionNewForManager ["(Since version 3.10)"]#-} recentActionNewForManager :: (MonadIO m, RecentManagerK a) => - T.Text -> -- name - Maybe (T.Text) -> -- label - Maybe (T.Text) -> -- tooltip - Maybe (T.Text) -> -- stock_id - Maybe (a) -> -- manager - m RecentAction -recentActionNewForManager name label tooltip stock_id manager = liftIO $ do + T.Text -- name + -> Maybe (T.Text) -- label + -> Maybe (T.Text) -- tooltip + -> Maybe (T.Text) -- stockId + -> Maybe (a) -- manager + -> m RecentAction -- result +recentActionNewForManager name label tooltip stockId manager = liftIO $ do name' <- textToCString name maybeLabel <- case label of Nothing -> return nullPtr @@ -196,31 +312,30 @@ Just jTooltip -> do jTooltip' <- textToCString jTooltip return jTooltip' - maybeStock_id <- case stock_id of + maybeStockId <- case stockId of Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' + Just jStockId -> do + jStockId' <- textToCString jStockId + return jStockId' maybeManager <- case manager of Nothing -> return nullPtr Just jManager -> do let jManager' = unsafeManagedPtrCastPtr jManager return jManager' - result <- gtk_recent_action_new_for_manager name' maybeLabel maybeTooltip maybeStock_id maybeManager + result <- gtk_recent_action_new_for_manager name' maybeLabel maybeTooltip maybeStockId maybeManager checkUnexpectedReturnNULL "gtk_recent_action_new_for_manager" result result' <- (wrapObject RecentAction) result whenJust manager touchManagedPtr freeMem name' freeMem maybeLabel freeMem maybeTooltip - freeMem maybeStock_id + freeMem maybeStockId return result' -- method RecentAction::get_show_numbers -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -232,8 +347,8 @@ {-# DEPRECATED recentActionGetShowNumbers ["(Since version 3.10)"]#-} recentActionGetShowNumbers :: (MonadIO m, RecentActionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result recentActionGetShowNumbers _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_action_get_show_numbers _obj' @@ -241,11 +356,14 @@ touchManagedPtr _obj return result' +data RecentActionGetShowNumbersMethodInfo +instance (signature ~ (m Bool), MonadIO m, RecentActionK a) => MethodInfo RecentActionGetShowNumbersMethodInfo a signature where + overloadedMethod _ = recentActionGetShowNumbers + -- method RecentAction::set_show_numbers -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -258,14 +376,18 @@ {-# DEPRECATED recentActionSetShowNumbers ["(Since version 3.10)"]#-} recentActionSetShowNumbers :: (MonadIO m, RecentActionK a) => - a -> -- _obj - Bool -> -- show_numbers - m () -recentActionSetShowNumbers _obj show_numbers = liftIO $ do + a -- _obj + -> Bool -- showNumbers + -> m () -- result +recentActionSetShowNumbers _obj showNumbers = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_numbers' = (fromIntegral . fromEnum) show_numbers - gtk_recent_action_set_show_numbers _obj' show_numbers' + let showNumbers' = (fromIntegral . fromEnum) showNumbers + gtk_recent_action_set_show_numbers _obj' showNumbers' touchManagedPtr _obj return () + +data RecentActionSetShowNumbersMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RecentActionK a) => MethodInfo RecentActionSetShowNumbersMethodInfo a signature where + overloadedMethod _ = recentActionSetShowNumbers diff --git a/GI/Gtk/Objects/RecentAction.hs-boot b/GI/Gtk/Objects/RecentAction.hs-boot --- a/GI/Gtk/Objects/RecentAction.hs-boot +++ b/GI/Gtk/Objects/RecentAction.hs-boot @@ -12,3 +12,5 @@ class GObject o => RecentActionK o instance (GObject o, IsDescendantOf RecentAction o) => RecentActionK o data RecentActionShowNumbersPropertyInfo +data RecentActionGetShowNumbersMethodInfo +data RecentActionSetShowNumbersMethodInfo diff --git a/GI/Gtk/Objects/RecentChooserDialog.hs b/GI/Gtk/Objects/RecentChooserDialog.hs --- a/GI/Gtk/Objects/RecentChooserDialog.hs +++ b/GI/Gtk/Objects/RecentChooserDialog.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,477 @@ noRecentChooserDialog :: Maybe RecentChooserDialog noRecentChooserDialog = Nothing +type family ResolveRecentChooserDialogMethod (t :: Symbol) (o :: *) :: * where + ResolveRecentChooserDialogMethod "activate" o = WidgetActivateMethodInfo + ResolveRecentChooserDialogMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveRecentChooserDialogMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveRecentChooserDialogMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveRecentChooserDialogMethod "add" o = ContainerAddMethodInfo + ResolveRecentChooserDialogMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveRecentChooserDialogMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveRecentChooserDialogMethod "addActionWidget" o = DialogAddActionWidgetMethodInfo + ResolveRecentChooserDialogMethod "addButton" o = DialogAddButtonMethodInfo + ResolveRecentChooserDialogMethod "addChild" o = BuildableAddChildMethodInfo + ResolveRecentChooserDialogMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveRecentChooserDialogMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveRecentChooserDialogMethod "addFilter" o = RecentChooserAddFilterMethodInfo + ResolveRecentChooserDialogMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveRecentChooserDialogMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveRecentChooserDialogMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveRecentChooserDialogMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveRecentChooserDialogMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveRecentChooserDialogMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRecentChooserDialogMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRecentChooserDialogMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveRecentChooserDialogMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveRecentChooserDialogMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveRecentChooserDialogMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveRecentChooserDialogMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveRecentChooserDialogMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveRecentChooserDialogMethod "childType" o = ContainerChildTypeMethodInfo + ResolveRecentChooserDialogMethod "classPath" o = WidgetClassPathMethodInfo + ResolveRecentChooserDialogMethod "close" o = WindowCloseMethodInfo + ResolveRecentChooserDialogMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveRecentChooserDialogMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveRecentChooserDialogMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveRecentChooserDialogMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveRecentChooserDialogMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveRecentChooserDialogMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveRecentChooserDialogMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveRecentChooserDialogMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveRecentChooserDialogMethod "destroy" o = WidgetDestroyMethodInfo + ResolveRecentChooserDialogMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveRecentChooserDialogMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveRecentChooserDialogMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveRecentChooserDialogMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveRecentChooserDialogMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveRecentChooserDialogMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveRecentChooserDialogMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveRecentChooserDialogMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveRecentChooserDialogMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveRecentChooserDialogMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveRecentChooserDialogMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveRecentChooserDialogMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveRecentChooserDialogMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveRecentChooserDialogMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveRecentChooserDialogMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveRecentChooserDialogMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveRecentChooserDialogMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveRecentChooserDialogMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveRecentChooserDialogMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveRecentChooserDialogMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveRecentChooserDialogMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveRecentChooserDialogMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveRecentChooserDialogMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveRecentChooserDialogMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveRecentChooserDialogMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveRecentChooserDialogMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveRecentChooserDialogMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveRecentChooserDialogMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveRecentChooserDialogMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveRecentChooserDialogMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveRecentChooserDialogMethod "draw" o = WidgetDrawMethodInfo + ResolveRecentChooserDialogMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveRecentChooserDialogMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveRecentChooserDialogMethod "event" o = WidgetEventMethodInfo + ResolveRecentChooserDialogMethod "forall" o = ContainerForallMethodInfo + ResolveRecentChooserDialogMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRecentChooserDialogMethod "foreach" o = ContainerForeachMethodInfo + ResolveRecentChooserDialogMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveRecentChooserDialogMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRecentChooserDialogMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveRecentChooserDialogMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveRecentChooserDialogMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveRecentChooserDialogMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveRecentChooserDialogMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveRecentChooserDialogMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveRecentChooserDialogMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveRecentChooserDialogMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveRecentChooserDialogMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveRecentChooserDialogMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveRecentChooserDialogMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveRecentChooserDialogMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveRecentChooserDialogMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveRecentChooserDialogMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveRecentChooserDialogMethod "hide" o = WidgetHideMethodInfo + ResolveRecentChooserDialogMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveRecentChooserDialogMethod "iconify" o = WindowIconifyMethodInfo + ResolveRecentChooserDialogMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveRecentChooserDialogMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveRecentChooserDialogMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveRecentChooserDialogMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveRecentChooserDialogMethod "intersect" o = WidgetIntersectMethodInfo + ResolveRecentChooserDialogMethod "isActive" o = WindowIsActiveMethodInfo + ResolveRecentChooserDialogMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveRecentChooserDialogMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveRecentChooserDialogMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveRecentChooserDialogMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRecentChooserDialogMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveRecentChooserDialogMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveRecentChooserDialogMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveRecentChooserDialogMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveRecentChooserDialogMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveRecentChooserDialogMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveRecentChooserDialogMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveRecentChooserDialogMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveRecentChooserDialogMethod "listFilters" o = RecentChooserListFiltersMethodInfo + ResolveRecentChooserDialogMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveRecentChooserDialogMethod "map" o = WidgetMapMethodInfo + ResolveRecentChooserDialogMethod "maximize" o = WindowMaximizeMethodInfo + ResolveRecentChooserDialogMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveRecentChooserDialogMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveRecentChooserDialogMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveRecentChooserDialogMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveRecentChooserDialogMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveRecentChooserDialogMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveRecentChooserDialogMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveRecentChooserDialogMethod "move" o = WindowMoveMethodInfo + ResolveRecentChooserDialogMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRecentChooserDialogMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRecentChooserDialogMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveRecentChooserDialogMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveRecentChooserDialogMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveRecentChooserDialogMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveRecentChooserDialogMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveRecentChooserDialogMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveRecentChooserDialogMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveRecentChooserDialogMethod "path" o = WidgetPathMethodInfo + ResolveRecentChooserDialogMethod "present" o = WindowPresentMethodInfo + ResolveRecentChooserDialogMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveRecentChooserDialogMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveRecentChooserDialogMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveRecentChooserDialogMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveRecentChooserDialogMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveRecentChooserDialogMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveRecentChooserDialogMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveRecentChooserDialogMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveRecentChooserDialogMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveRecentChooserDialogMethod "realize" o = WidgetRealizeMethodInfo + ResolveRecentChooserDialogMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRecentChooserDialogMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRecentChooserDialogMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveRecentChooserDialogMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveRecentChooserDialogMethod "remove" o = ContainerRemoveMethodInfo + ResolveRecentChooserDialogMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveRecentChooserDialogMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveRecentChooserDialogMethod "removeFilter" o = RecentChooserRemoveFilterMethodInfo + ResolveRecentChooserDialogMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveRecentChooserDialogMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveRecentChooserDialogMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveRecentChooserDialogMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveRecentChooserDialogMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveRecentChooserDialogMethod "reparent" o = WidgetReparentMethodInfo + ResolveRecentChooserDialogMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRecentChooserDialogMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRecentChooserDialogMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveRecentChooserDialogMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveRecentChooserDialogMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveRecentChooserDialogMethod "resize" o = WindowResizeMethodInfo + ResolveRecentChooserDialogMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveRecentChooserDialogMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveRecentChooserDialogMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveRecentChooserDialogMethod "response" o = DialogResponseMethodInfo + ResolveRecentChooserDialogMethod "run" o = DialogRunMethodInfo + ResolveRecentChooserDialogMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRecentChooserDialogMethod "selectAll" o = RecentChooserSelectAllMethodInfo + ResolveRecentChooserDialogMethod "selectUri" o = RecentChooserSelectUriMethodInfo + ResolveRecentChooserDialogMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveRecentChooserDialogMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveRecentChooserDialogMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveRecentChooserDialogMethod "show" o = WidgetShowMethodInfo + ResolveRecentChooserDialogMethod "showAll" o = WidgetShowAllMethodInfo + ResolveRecentChooserDialogMethod "showNow" o = WidgetShowNowMethodInfo + ResolveRecentChooserDialogMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveRecentChooserDialogMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveRecentChooserDialogMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveRecentChooserDialogMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRecentChooserDialogMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRecentChooserDialogMethod "stick" o = WindowStickMethodInfo + ResolveRecentChooserDialogMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveRecentChooserDialogMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveRecentChooserDialogMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveRecentChooserDialogMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRecentChooserDialogMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveRecentChooserDialogMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveRecentChooserDialogMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveRecentChooserDialogMethod "unmap" o = WidgetUnmapMethodInfo + ResolveRecentChooserDialogMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveRecentChooserDialogMethod "unparent" o = WidgetUnparentMethodInfo + ResolveRecentChooserDialogMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveRecentChooserDialogMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRecentChooserDialogMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveRecentChooserDialogMethod "unselectAll" o = RecentChooserUnselectAllMethodInfo + ResolveRecentChooserDialogMethod "unselectUri" o = RecentChooserUnselectUriMethodInfo + ResolveRecentChooserDialogMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveRecentChooserDialogMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveRecentChooserDialogMethod "unstick" o = WindowUnstickMethodInfo + ResolveRecentChooserDialogMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRecentChooserDialogMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveRecentChooserDialogMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveRecentChooserDialogMethod "getActionArea" o = DialogGetActionAreaMethodInfo + ResolveRecentChooserDialogMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveRecentChooserDialogMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveRecentChooserDialogMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveRecentChooserDialogMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveRecentChooserDialogMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveRecentChooserDialogMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveRecentChooserDialogMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveRecentChooserDialogMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveRecentChooserDialogMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveRecentChooserDialogMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveRecentChooserDialogMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveRecentChooserDialogMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveRecentChooserDialogMethod "getChild" o = BinGetChildMethodInfo + ResolveRecentChooserDialogMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveRecentChooserDialogMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveRecentChooserDialogMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveRecentChooserDialogMethod "getClip" o = WidgetGetClipMethodInfo + ResolveRecentChooserDialogMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveRecentChooserDialogMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveRecentChooserDialogMethod "getContentArea" o = DialogGetContentAreaMethodInfo + ResolveRecentChooserDialogMethod "getCurrentItem" o = RecentChooserGetCurrentItemMethodInfo + ResolveRecentChooserDialogMethod "getCurrentUri" o = RecentChooserGetCurrentUriMethodInfo + ResolveRecentChooserDialogMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRecentChooserDialogMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveRecentChooserDialogMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveRecentChooserDialogMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveRecentChooserDialogMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveRecentChooserDialogMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveRecentChooserDialogMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveRecentChooserDialogMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveRecentChooserDialogMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveRecentChooserDialogMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveRecentChooserDialogMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveRecentChooserDialogMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveRecentChooserDialogMethod "getFilter" o = RecentChooserGetFilterMethodInfo + ResolveRecentChooserDialogMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveRecentChooserDialogMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveRecentChooserDialogMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveRecentChooserDialogMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveRecentChooserDialogMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveRecentChooserDialogMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveRecentChooserDialogMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveRecentChooserDialogMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveRecentChooserDialogMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveRecentChooserDialogMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveRecentChooserDialogMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveRecentChooserDialogMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveRecentChooserDialogMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveRecentChooserDialogMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveRecentChooserDialogMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveRecentChooserDialogMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveRecentChooserDialogMethod "getHeaderBar" o = DialogGetHeaderBarMethodInfo + ResolveRecentChooserDialogMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveRecentChooserDialogMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveRecentChooserDialogMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveRecentChooserDialogMethod "getIcon" o = WindowGetIconMethodInfo + ResolveRecentChooserDialogMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveRecentChooserDialogMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveRecentChooserDialogMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveRecentChooserDialogMethod "getItems" o = RecentChooserGetItemsMethodInfo + ResolveRecentChooserDialogMethod "getLimit" o = RecentChooserGetLimitMethodInfo + ResolveRecentChooserDialogMethod "getLocalOnly" o = RecentChooserGetLocalOnlyMethodInfo + ResolveRecentChooserDialogMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveRecentChooserDialogMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveRecentChooserDialogMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveRecentChooserDialogMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveRecentChooserDialogMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveRecentChooserDialogMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveRecentChooserDialogMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveRecentChooserDialogMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveRecentChooserDialogMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveRecentChooserDialogMethod "getModal" o = WindowGetModalMethodInfo + ResolveRecentChooserDialogMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveRecentChooserDialogMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveRecentChooserDialogMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveRecentChooserDialogMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveRecentChooserDialogMethod "getParent" o = WidgetGetParentMethodInfo + ResolveRecentChooserDialogMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveRecentChooserDialogMethod "getPath" o = WidgetGetPathMethodInfo + ResolveRecentChooserDialogMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveRecentChooserDialogMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveRecentChooserDialogMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveRecentChooserDialogMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveRecentChooserDialogMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveRecentChooserDialogMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveRecentChooserDialogMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveRecentChooserDialogMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveRecentChooserDialogMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveRecentChooserDialogMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRecentChooserDialogMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRecentChooserDialogMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveRecentChooserDialogMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveRecentChooserDialogMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveRecentChooserDialogMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveRecentChooserDialogMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveRecentChooserDialogMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveRecentChooserDialogMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveRecentChooserDialogMethod "getResponseForWidget" o = DialogGetResponseForWidgetMethodInfo + ResolveRecentChooserDialogMethod "getRole" o = WindowGetRoleMethodInfo + ResolveRecentChooserDialogMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveRecentChooserDialogMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveRecentChooserDialogMethod "getSelectMultiple" o = RecentChooserGetSelectMultipleMethodInfo + ResolveRecentChooserDialogMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveRecentChooserDialogMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveRecentChooserDialogMethod "getShowIcons" o = RecentChooserGetShowIconsMethodInfo + ResolveRecentChooserDialogMethod "getShowNotFound" o = RecentChooserGetShowNotFoundMethodInfo + ResolveRecentChooserDialogMethod "getShowPrivate" o = RecentChooserGetShowPrivateMethodInfo + ResolveRecentChooserDialogMethod "getShowTips" o = RecentChooserGetShowTipsMethodInfo + ResolveRecentChooserDialogMethod "getSize" o = WindowGetSizeMethodInfo + ResolveRecentChooserDialogMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveRecentChooserDialogMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveRecentChooserDialogMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveRecentChooserDialogMethod "getSortType" o = RecentChooserGetSortTypeMethodInfo + ResolveRecentChooserDialogMethod "getState" o = WidgetGetStateMethodInfo + ResolveRecentChooserDialogMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveRecentChooserDialogMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveRecentChooserDialogMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveRecentChooserDialogMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveRecentChooserDialogMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveRecentChooserDialogMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveRecentChooserDialogMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveRecentChooserDialogMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveRecentChooserDialogMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveRecentChooserDialogMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveRecentChooserDialogMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveRecentChooserDialogMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveRecentChooserDialogMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveRecentChooserDialogMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveRecentChooserDialogMethod "getUris" o = RecentChooserGetUrisMethodInfo + ResolveRecentChooserDialogMethod "getValign" o = WidgetGetValignMethodInfo + ResolveRecentChooserDialogMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveRecentChooserDialogMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveRecentChooserDialogMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveRecentChooserDialogMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveRecentChooserDialogMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveRecentChooserDialogMethod "getWidgetForResponse" o = DialogGetWidgetForResponseMethodInfo + ResolveRecentChooserDialogMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveRecentChooserDialogMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveRecentChooserDialogMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveRecentChooserDialogMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveRecentChooserDialogMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveRecentChooserDialogMethod "setAlternativeButtonOrderFromArray" o = DialogSetAlternativeButtonOrderFromArrayMethodInfo + ResolveRecentChooserDialogMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveRecentChooserDialogMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveRecentChooserDialogMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveRecentChooserDialogMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveRecentChooserDialogMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveRecentChooserDialogMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveRecentChooserDialogMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveRecentChooserDialogMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveRecentChooserDialogMethod "setClip" o = WidgetSetClipMethodInfo + ResolveRecentChooserDialogMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveRecentChooserDialogMethod "setCurrentUri" o = RecentChooserSetCurrentUriMethodInfo + ResolveRecentChooserDialogMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRecentChooserDialogMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveRecentChooserDialogMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveRecentChooserDialogMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveRecentChooserDialogMethod "setDefaultResponse" o = DialogSetDefaultResponseMethodInfo + ResolveRecentChooserDialogMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveRecentChooserDialogMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveRecentChooserDialogMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveRecentChooserDialogMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveRecentChooserDialogMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveRecentChooserDialogMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveRecentChooserDialogMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveRecentChooserDialogMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveRecentChooserDialogMethod "setFilter" o = RecentChooserSetFilterMethodInfo + ResolveRecentChooserDialogMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveRecentChooserDialogMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveRecentChooserDialogMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveRecentChooserDialogMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveRecentChooserDialogMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveRecentChooserDialogMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveRecentChooserDialogMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveRecentChooserDialogMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveRecentChooserDialogMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveRecentChooserDialogMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveRecentChooserDialogMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveRecentChooserDialogMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveRecentChooserDialogMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveRecentChooserDialogMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveRecentChooserDialogMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveRecentChooserDialogMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveRecentChooserDialogMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveRecentChooserDialogMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveRecentChooserDialogMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveRecentChooserDialogMethod "setIcon" o = WindowSetIconMethodInfo + ResolveRecentChooserDialogMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveRecentChooserDialogMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveRecentChooserDialogMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveRecentChooserDialogMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveRecentChooserDialogMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveRecentChooserDialogMethod "setLimit" o = RecentChooserSetLimitMethodInfo + ResolveRecentChooserDialogMethod "setLocalOnly" o = RecentChooserSetLocalOnlyMethodInfo + ResolveRecentChooserDialogMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveRecentChooserDialogMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveRecentChooserDialogMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveRecentChooserDialogMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveRecentChooserDialogMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveRecentChooserDialogMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveRecentChooserDialogMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveRecentChooserDialogMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveRecentChooserDialogMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveRecentChooserDialogMethod "setModal" o = WindowSetModalMethodInfo + ResolveRecentChooserDialogMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveRecentChooserDialogMethod "setParent" o = WidgetSetParentMethodInfo + ResolveRecentChooserDialogMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveRecentChooserDialogMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveRecentChooserDialogMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRecentChooserDialogMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveRecentChooserDialogMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveRecentChooserDialogMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveRecentChooserDialogMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveRecentChooserDialogMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveRecentChooserDialogMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveRecentChooserDialogMethod "setResponseSensitive" o = DialogSetResponseSensitiveMethodInfo + ResolveRecentChooserDialogMethod "setRole" o = WindowSetRoleMethodInfo + ResolveRecentChooserDialogMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveRecentChooserDialogMethod "setSelectMultiple" o = RecentChooserSetSelectMultipleMethodInfo + ResolveRecentChooserDialogMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveRecentChooserDialogMethod "setShowIcons" o = RecentChooserSetShowIconsMethodInfo + ResolveRecentChooserDialogMethod "setShowNotFound" o = RecentChooserSetShowNotFoundMethodInfo + ResolveRecentChooserDialogMethod "setShowPrivate" o = RecentChooserSetShowPrivateMethodInfo + ResolveRecentChooserDialogMethod "setShowTips" o = RecentChooserSetShowTipsMethodInfo + ResolveRecentChooserDialogMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveRecentChooserDialogMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveRecentChooserDialogMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveRecentChooserDialogMethod "setSortFunc" o = RecentChooserSetSortFuncMethodInfo + ResolveRecentChooserDialogMethod "setSortType" o = RecentChooserSetSortTypeMethodInfo + ResolveRecentChooserDialogMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveRecentChooserDialogMethod "setState" o = WidgetSetStateMethodInfo + ResolveRecentChooserDialogMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveRecentChooserDialogMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveRecentChooserDialogMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveRecentChooserDialogMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveRecentChooserDialogMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveRecentChooserDialogMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveRecentChooserDialogMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveRecentChooserDialogMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveRecentChooserDialogMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveRecentChooserDialogMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveRecentChooserDialogMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveRecentChooserDialogMethod "setValign" o = WidgetSetValignMethodInfo + ResolveRecentChooserDialogMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveRecentChooserDialogMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveRecentChooserDialogMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveRecentChooserDialogMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveRecentChooserDialogMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveRecentChooserDialogMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveRecentChooserDialogMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRecentChooserDialogMethod t RecentChooserDialog, MethodInfo info RecentChooserDialog p) => IsLabelProxy t (RecentChooserDialog -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRecentChooserDialogMethod t RecentChooserDialog, MethodInfo info RecentChooserDialog p) => IsLabel t (RecentChooserDialog -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList RecentChooserDialog = RecentChooserDialogAttributeList -type RecentChooserDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +type RecentChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) type instance SignalList RecentChooserDialog = RecentChooserDialogSignalList -type RecentChooserDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("item-activated", RecentChooserItemActivatedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RecentChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("itemActivated", RecentChooserItemActivatedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/RecentChooserMenu.hs b/GI/Gtk/Objects/RecentChooserMenu.hs --- a/GI/Gtk/Objects/RecentChooserMenu.hs +++ b/GI/Gtk/Objects/RecentChooserMenu.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** recentChooserMenuGetShowNumbers + RecentChooserMenuGetShowNumbersMethodInfo, recentChooserMenuGetShowNumbers , @@ -29,6 +31,7 @@ -- ** recentChooserMenuSetShowNumbers + RecentChooserMenuSetShowNumbersMethodInfo, recentChooserMenuSetShowNumbers , @@ -79,6 +82,403 @@ noRecentChooserMenu :: Maybe RecentChooserMenu noRecentChooserMenu = Nothing +type family ResolveRecentChooserMenuMethod (t :: Symbol) (o :: *) :: * where + ResolveRecentChooserMenuMethod "activate" o = WidgetActivateMethodInfo + ResolveRecentChooserMenuMethod "activateItem" o = MenuShellActivateItemMethodInfo + ResolveRecentChooserMenuMethod "add" o = ContainerAddMethodInfo + ResolveRecentChooserMenuMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveRecentChooserMenuMethod "addChild" o = BuildableAddChildMethodInfo + ResolveRecentChooserMenuMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveRecentChooserMenuMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveRecentChooserMenuMethod "addFilter" o = RecentChooserAddFilterMethodInfo + ResolveRecentChooserMenuMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveRecentChooserMenuMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveRecentChooserMenuMethod "append" o = MenuShellAppendMethodInfo + ResolveRecentChooserMenuMethod "attach" o = MenuAttachMethodInfo + ResolveRecentChooserMenuMethod "attachToWidget" o = MenuAttachToWidgetMethodInfo + ResolveRecentChooserMenuMethod "bindModel" o = MenuShellBindModelMethodInfo + ResolveRecentChooserMenuMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRecentChooserMenuMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRecentChooserMenuMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveRecentChooserMenuMethod "cancel" o = MenuShellCancelMethodInfo + ResolveRecentChooserMenuMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveRecentChooserMenuMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveRecentChooserMenuMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveRecentChooserMenuMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveRecentChooserMenuMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveRecentChooserMenuMethod "childType" o = ContainerChildTypeMethodInfo + ResolveRecentChooserMenuMethod "classPath" o = WidgetClassPathMethodInfo + ResolveRecentChooserMenuMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveRecentChooserMenuMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveRecentChooserMenuMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveRecentChooserMenuMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveRecentChooserMenuMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveRecentChooserMenuMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveRecentChooserMenuMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveRecentChooserMenuMethod "deactivate" o = MenuShellDeactivateMethodInfo + ResolveRecentChooserMenuMethod "deselect" o = MenuShellDeselectMethodInfo + ResolveRecentChooserMenuMethod "destroy" o = WidgetDestroyMethodInfo + ResolveRecentChooserMenuMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveRecentChooserMenuMethod "detach" o = MenuDetachMethodInfo + ResolveRecentChooserMenuMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveRecentChooserMenuMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveRecentChooserMenuMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveRecentChooserMenuMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveRecentChooserMenuMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveRecentChooserMenuMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveRecentChooserMenuMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveRecentChooserMenuMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveRecentChooserMenuMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveRecentChooserMenuMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveRecentChooserMenuMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveRecentChooserMenuMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveRecentChooserMenuMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveRecentChooserMenuMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveRecentChooserMenuMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveRecentChooserMenuMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveRecentChooserMenuMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveRecentChooserMenuMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveRecentChooserMenuMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveRecentChooserMenuMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveRecentChooserMenuMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveRecentChooserMenuMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveRecentChooserMenuMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveRecentChooserMenuMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveRecentChooserMenuMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveRecentChooserMenuMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveRecentChooserMenuMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveRecentChooserMenuMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveRecentChooserMenuMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveRecentChooserMenuMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveRecentChooserMenuMethod "draw" o = WidgetDrawMethodInfo + ResolveRecentChooserMenuMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveRecentChooserMenuMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveRecentChooserMenuMethod "event" o = WidgetEventMethodInfo + ResolveRecentChooserMenuMethod "forall" o = ContainerForallMethodInfo + ResolveRecentChooserMenuMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRecentChooserMenuMethod "foreach" o = ContainerForeachMethodInfo + ResolveRecentChooserMenuMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveRecentChooserMenuMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRecentChooserMenuMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveRecentChooserMenuMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveRecentChooserMenuMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveRecentChooserMenuMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveRecentChooserMenuMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveRecentChooserMenuMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveRecentChooserMenuMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveRecentChooserMenuMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveRecentChooserMenuMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveRecentChooserMenuMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveRecentChooserMenuMethod "hide" o = WidgetHideMethodInfo + ResolveRecentChooserMenuMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveRecentChooserMenuMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveRecentChooserMenuMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveRecentChooserMenuMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveRecentChooserMenuMethod "insert" o = MenuShellInsertMethodInfo + ResolveRecentChooserMenuMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveRecentChooserMenuMethod "intersect" o = WidgetIntersectMethodInfo + ResolveRecentChooserMenuMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveRecentChooserMenuMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveRecentChooserMenuMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveRecentChooserMenuMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRecentChooserMenuMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveRecentChooserMenuMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveRecentChooserMenuMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveRecentChooserMenuMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveRecentChooserMenuMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveRecentChooserMenuMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveRecentChooserMenuMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveRecentChooserMenuMethod "listFilters" o = RecentChooserListFiltersMethodInfo + ResolveRecentChooserMenuMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveRecentChooserMenuMethod "map" o = WidgetMapMethodInfo + ResolveRecentChooserMenuMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveRecentChooserMenuMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveRecentChooserMenuMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveRecentChooserMenuMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveRecentChooserMenuMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveRecentChooserMenuMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveRecentChooserMenuMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveRecentChooserMenuMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveRecentChooserMenuMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRecentChooserMenuMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRecentChooserMenuMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveRecentChooserMenuMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveRecentChooserMenuMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveRecentChooserMenuMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveRecentChooserMenuMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveRecentChooserMenuMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveRecentChooserMenuMethod "path" o = WidgetPathMethodInfo + ResolveRecentChooserMenuMethod "popdown" o = MenuPopdownMethodInfo + ResolveRecentChooserMenuMethod "popup" o = MenuPopupMethodInfo + ResolveRecentChooserMenuMethod "popupForDevice" o = MenuPopupForDeviceMethodInfo + ResolveRecentChooserMenuMethod "prepend" o = MenuShellPrependMethodInfo + ResolveRecentChooserMenuMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveRecentChooserMenuMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveRecentChooserMenuMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveRecentChooserMenuMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveRecentChooserMenuMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveRecentChooserMenuMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveRecentChooserMenuMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveRecentChooserMenuMethod "realize" o = WidgetRealizeMethodInfo + ResolveRecentChooserMenuMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRecentChooserMenuMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRecentChooserMenuMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveRecentChooserMenuMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveRecentChooserMenuMethod "remove" o = ContainerRemoveMethodInfo + ResolveRecentChooserMenuMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveRecentChooserMenuMethod "removeFilter" o = RecentChooserRemoveFilterMethodInfo + ResolveRecentChooserMenuMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveRecentChooserMenuMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveRecentChooserMenuMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveRecentChooserMenuMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveRecentChooserMenuMethod "reorderChild" o = MenuReorderChildMethodInfo + ResolveRecentChooserMenuMethod "reparent" o = WidgetReparentMethodInfo + ResolveRecentChooserMenuMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRecentChooserMenuMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRecentChooserMenuMethod "reposition" o = MenuRepositionMethodInfo + ResolveRecentChooserMenuMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveRecentChooserMenuMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveRecentChooserMenuMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveRecentChooserMenuMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRecentChooserMenuMethod "selectAll" o = RecentChooserSelectAllMethodInfo + ResolveRecentChooserMenuMethod "selectFirst" o = MenuShellSelectFirstMethodInfo + ResolveRecentChooserMenuMethod "selectItem" o = MenuShellSelectItemMethodInfo + ResolveRecentChooserMenuMethod "selectUri" o = RecentChooserSelectUriMethodInfo + ResolveRecentChooserMenuMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveRecentChooserMenuMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveRecentChooserMenuMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveRecentChooserMenuMethod "show" o = WidgetShowMethodInfo + ResolveRecentChooserMenuMethod "showAll" o = WidgetShowAllMethodInfo + ResolveRecentChooserMenuMethod "showNow" o = WidgetShowNowMethodInfo + ResolveRecentChooserMenuMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveRecentChooserMenuMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveRecentChooserMenuMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveRecentChooserMenuMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRecentChooserMenuMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRecentChooserMenuMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveRecentChooserMenuMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveRecentChooserMenuMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveRecentChooserMenuMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveRecentChooserMenuMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRecentChooserMenuMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveRecentChooserMenuMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveRecentChooserMenuMethod "unmap" o = WidgetUnmapMethodInfo + ResolveRecentChooserMenuMethod "unparent" o = WidgetUnparentMethodInfo + ResolveRecentChooserMenuMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveRecentChooserMenuMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRecentChooserMenuMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveRecentChooserMenuMethod "unselectAll" o = RecentChooserUnselectAllMethodInfo + ResolveRecentChooserMenuMethod "unselectUri" o = RecentChooserUnselectUriMethodInfo + ResolveRecentChooserMenuMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveRecentChooserMenuMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveRecentChooserMenuMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRecentChooserMenuMethod "getAccelGroup" o = MenuGetAccelGroupMethodInfo + ResolveRecentChooserMenuMethod "getAccelPath" o = MenuGetAccelPathMethodInfo + ResolveRecentChooserMenuMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveRecentChooserMenuMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveRecentChooserMenuMethod "getActive" o = MenuGetActiveMethodInfo + ResolveRecentChooserMenuMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveRecentChooserMenuMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveRecentChooserMenuMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveRecentChooserMenuMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveRecentChooserMenuMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveRecentChooserMenuMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveRecentChooserMenuMethod "getAttachWidget" o = MenuGetAttachWidgetMethodInfo + ResolveRecentChooserMenuMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveRecentChooserMenuMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveRecentChooserMenuMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveRecentChooserMenuMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveRecentChooserMenuMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveRecentChooserMenuMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveRecentChooserMenuMethod "getClip" o = WidgetGetClipMethodInfo + ResolveRecentChooserMenuMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveRecentChooserMenuMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveRecentChooserMenuMethod "getCurrentItem" o = RecentChooserGetCurrentItemMethodInfo + ResolveRecentChooserMenuMethod "getCurrentUri" o = RecentChooserGetCurrentUriMethodInfo + ResolveRecentChooserMenuMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRecentChooserMenuMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveRecentChooserMenuMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveRecentChooserMenuMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveRecentChooserMenuMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveRecentChooserMenuMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveRecentChooserMenuMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveRecentChooserMenuMethod "getFilter" o = RecentChooserGetFilterMethodInfo + ResolveRecentChooserMenuMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveRecentChooserMenuMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveRecentChooserMenuMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveRecentChooserMenuMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveRecentChooserMenuMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveRecentChooserMenuMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveRecentChooserMenuMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveRecentChooserMenuMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveRecentChooserMenuMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveRecentChooserMenuMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveRecentChooserMenuMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveRecentChooserMenuMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveRecentChooserMenuMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveRecentChooserMenuMethod "getItems" o = RecentChooserGetItemsMethodInfo + ResolveRecentChooserMenuMethod "getLimit" o = RecentChooserGetLimitMethodInfo + ResolveRecentChooserMenuMethod "getLocalOnly" o = RecentChooserGetLocalOnlyMethodInfo + ResolveRecentChooserMenuMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveRecentChooserMenuMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveRecentChooserMenuMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveRecentChooserMenuMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveRecentChooserMenuMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveRecentChooserMenuMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveRecentChooserMenuMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveRecentChooserMenuMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveRecentChooserMenuMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveRecentChooserMenuMethod "getMonitor" o = MenuGetMonitorMethodInfo + ResolveRecentChooserMenuMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveRecentChooserMenuMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveRecentChooserMenuMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveRecentChooserMenuMethod "getParent" o = WidgetGetParentMethodInfo + ResolveRecentChooserMenuMethod "getParentShell" o = MenuShellGetParentShellMethodInfo + ResolveRecentChooserMenuMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveRecentChooserMenuMethod "getPath" o = WidgetGetPathMethodInfo + ResolveRecentChooserMenuMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveRecentChooserMenuMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveRecentChooserMenuMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveRecentChooserMenuMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveRecentChooserMenuMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveRecentChooserMenuMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveRecentChooserMenuMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveRecentChooserMenuMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveRecentChooserMenuMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRecentChooserMenuMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRecentChooserMenuMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveRecentChooserMenuMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveRecentChooserMenuMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveRecentChooserMenuMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveRecentChooserMenuMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveRecentChooserMenuMethod "getReserveToggleSize" o = MenuGetReserveToggleSizeMethodInfo + ResolveRecentChooserMenuMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveRecentChooserMenuMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveRecentChooserMenuMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveRecentChooserMenuMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveRecentChooserMenuMethod "getSelectMultiple" o = RecentChooserGetSelectMultipleMethodInfo + ResolveRecentChooserMenuMethod "getSelectedItem" o = MenuShellGetSelectedItemMethodInfo + ResolveRecentChooserMenuMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveRecentChooserMenuMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveRecentChooserMenuMethod "getShowIcons" o = RecentChooserGetShowIconsMethodInfo + ResolveRecentChooserMenuMethod "getShowNotFound" o = RecentChooserGetShowNotFoundMethodInfo + ResolveRecentChooserMenuMethod "getShowNumbers" o = RecentChooserMenuGetShowNumbersMethodInfo + ResolveRecentChooserMenuMethod "getShowPrivate" o = RecentChooserGetShowPrivateMethodInfo + ResolveRecentChooserMenuMethod "getShowTips" o = RecentChooserGetShowTipsMethodInfo + ResolveRecentChooserMenuMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveRecentChooserMenuMethod "getSortType" o = RecentChooserGetSortTypeMethodInfo + ResolveRecentChooserMenuMethod "getState" o = WidgetGetStateMethodInfo + ResolveRecentChooserMenuMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveRecentChooserMenuMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveRecentChooserMenuMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveRecentChooserMenuMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveRecentChooserMenuMethod "getTakeFocus" o = MenuShellGetTakeFocusMethodInfo + ResolveRecentChooserMenuMethod "getTearoffState" o = MenuGetTearoffStateMethodInfo + ResolveRecentChooserMenuMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveRecentChooserMenuMethod "getTitle" o = MenuGetTitleMethodInfo + ResolveRecentChooserMenuMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveRecentChooserMenuMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveRecentChooserMenuMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveRecentChooserMenuMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveRecentChooserMenuMethod "getUris" o = RecentChooserGetUrisMethodInfo + ResolveRecentChooserMenuMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveRecentChooserMenuMethod "getValign" o = WidgetGetValignMethodInfo + ResolveRecentChooserMenuMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveRecentChooserMenuMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveRecentChooserMenuMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveRecentChooserMenuMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveRecentChooserMenuMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveRecentChooserMenuMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveRecentChooserMenuMethod "setAccelGroup" o = MenuSetAccelGroupMethodInfo + ResolveRecentChooserMenuMethod "setActive" o = MenuSetActiveMethodInfo + ResolveRecentChooserMenuMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveRecentChooserMenuMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveRecentChooserMenuMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveRecentChooserMenuMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveRecentChooserMenuMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveRecentChooserMenuMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveRecentChooserMenuMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveRecentChooserMenuMethod "setClip" o = WidgetSetClipMethodInfo + ResolveRecentChooserMenuMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveRecentChooserMenuMethod "setCurrentUri" o = RecentChooserSetCurrentUriMethodInfo + ResolveRecentChooserMenuMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRecentChooserMenuMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveRecentChooserMenuMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveRecentChooserMenuMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveRecentChooserMenuMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveRecentChooserMenuMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveRecentChooserMenuMethod "setFilter" o = RecentChooserSetFilterMethodInfo + ResolveRecentChooserMenuMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveRecentChooserMenuMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveRecentChooserMenuMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveRecentChooserMenuMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveRecentChooserMenuMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveRecentChooserMenuMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveRecentChooserMenuMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveRecentChooserMenuMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveRecentChooserMenuMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveRecentChooserMenuMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveRecentChooserMenuMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveRecentChooserMenuMethod "setLimit" o = RecentChooserSetLimitMethodInfo + ResolveRecentChooserMenuMethod "setLocalOnly" o = RecentChooserSetLocalOnlyMethodInfo + ResolveRecentChooserMenuMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveRecentChooserMenuMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveRecentChooserMenuMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveRecentChooserMenuMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveRecentChooserMenuMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveRecentChooserMenuMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveRecentChooserMenuMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveRecentChooserMenuMethod "setMonitor" o = MenuSetMonitorMethodInfo + ResolveRecentChooserMenuMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveRecentChooserMenuMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveRecentChooserMenuMethod "setParent" o = WidgetSetParentMethodInfo + ResolveRecentChooserMenuMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveRecentChooserMenuMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRecentChooserMenuMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveRecentChooserMenuMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveRecentChooserMenuMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveRecentChooserMenuMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveRecentChooserMenuMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveRecentChooserMenuMethod "setReserveToggleSize" o = MenuSetReserveToggleSizeMethodInfo + ResolveRecentChooserMenuMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveRecentChooserMenuMethod "setScreen" o = MenuSetScreenMethodInfo + ResolveRecentChooserMenuMethod "setSelectMultiple" o = RecentChooserSetSelectMultipleMethodInfo + ResolveRecentChooserMenuMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveRecentChooserMenuMethod "setShowIcons" o = RecentChooserSetShowIconsMethodInfo + ResolveRecentChooserMenuMethod "setShowNotFound" o = RecentChooserSetShowNotFoundMethodInfo + ResolveRecentChooserMenuMethod "setShowNumbers" o = RecentChooserMenuSetShowNumbersMethodInfo + ResolveRecentChooserMenuMethod "setShowPrivate" o = RecentChooserSetShowPrivateMethodInfo + ResolveRecentChooserMenuMethod "setShowTips" o = RecentChooserSetShowTipsMethodInfo + ResolveRecentChooserMenuMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveRecentChooserMenuMethod "setSortFunc" o = RecentChooserSetSortFuncMethodInfo + ResolveRecentChooserMenuMethod "setSortType" o = RecentChooserSetSortTypeMethodInfo + ResolveRecentChooserMenuMethod "setState" o = WidgetSetStateMethodInfo + ResolveRecentChooserMenuMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveRecentChooserMenuMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveRecentChooserMenuMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveRecentChooserMenuMethod "setTakeFocus" o = MenuShellSetTakeFocusMethodInfo + ResolveRecentChooserMenuMethod "setTearoffState" o = MenuSetTearoffStateMethodInfo + ResolveRecentChooserMenuMethod "setTitle" o = MenuSetTitleMethodInfo + ResolveRecentChooserMenuMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveRecentChooserMenuMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveRecentChooserMenuMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveRecentChooserMenuMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveRecentChooserMenuMethod "setValign" o = WidgetSetValignMethodInfo + ResolveRecentChooserMenuMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveRecentChooserMenuMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveRecentChooserMenuMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveRecentChooserMenuMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveRecentChooserMenuMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveRecentChooserMenuMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRecentChooserMenuMethod t RecentChooserMenu, MethodInfo info RecentChooserMenu p) => IsLabelProxy t (RecentChooserMenu -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRecentChooserMenuMethod t RecentChooserMenu, MethodInfo info RecentChooserMenu p) => IsLabel t (RecentChooserMenu -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "show-numbers" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -98,22 +498,21 @@ type AttrSetTypeConstraint RecentChooserMenuShowNumbersPropertyInfo = (~) Bool type AttrBaseTypeConstraint RecentChooserMenuShowNumbersPropertyInfo = RecentChooserMenuK type AttrGetType RecentChooserMenuShowNumbersPropertyInfo = Bool - type AttrLabel RecentChooserMenuShowNumbersPropertyInfo = "RecentChooserMenu::show-numbers" + type AttrLabel RecentChooserMenuShowNumbersPropertyInfo = "show-numbers" attrGet _ = getRecentChooserMenuShowNumbers attrSet _ = setRecentChooserMenuShowNumbers attrConstruct _ = constructRecentChooserMenuShowNumbers type instance AttributeList RecentChooserMenu = RecentChooserMenuAttributeList -type RecentChooserMenuAttributeList = ('[ '("accel-group", MenuAccelGroupPropertyInfo), '("accel-path", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attach-widget", MenuAttachWidgetPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("reserve-toggle-size", MenuReserveToggleSizePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-numbers", RecentChooserMenuShowNumbersPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("take-focus", MenuShellTakeFocusPropertyInfo), '("tearoff-state", MenuTearoffStatePropertyInfo), '("tearoff-title", MenuTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type RecentChooserMenuAttributeList = ('[ '("accelGroup", MenuAccelGroupPropertyInfo), '("accelPath", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attachWidget", MenuAttachWidgetPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("reserveToggleSize", MenuReserveToggleSizePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showNumbers", RecentChooserMenuShowNumbersPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tearoffState", MenuTearoffStatePropertyInfo), '("tearoffTitle", MenuTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList RecentChooserMenu = RecentChooserMenuSignalList -type RecentChooserMenuSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-focus", MenuShellCycleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("item-activated", RecentChooserItemActivatedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-current", MenuShellMoveCurrentSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-scroll", MenuMoveScrollSignalInfo), '("move-selected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-done", MenuShellSelectionDoneSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RecentChooserMenuSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleFocus", MenuShellCycleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("itemActivated", RecentChooserItemActivatedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCurrent", MenuShellMoveCurrentSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveScroll", MenuMoveScrollSignalInfo), '("moveSelected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionDone", MenuShellSelectionDoneSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method RecentChooserMenu::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "RecentChooserMenu" -- throws : False -- Skip return : False @@ -124,7 +523,7 @@ recentChooserMenuNew :: (MonadIO m) => - m RecentChooserMenu + m RecentChooserMenu -- result recentChooserMenuNew = liftIO $ do result <- gtk_recent_chooser_menu_new checkUnexpectedReturnNULL "gtk_recent_chooser_menu_new" result @@ -133,9 +532,8 @@ -- method RecentChooserMenu::new_for_manager -- method type : Constructor --- Args : [Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RecentChooserMenu" -- throws : False -- Skip return : False @@ -147,8 +545,8 @@ recentChooserMenuNewForManager :: (MonadIO m, RecentManagerK a) => - a -> -- manager - m RecentChooserMenu + a -- manager + -> m RecentChooserMenu -- result recentChooserMenuNewForManager manager = liftIO $ do let manager' = unsafeManagedPtrCastPtr manager result <- gtk_recent_chooser_menu_new_for_manager manager' @@ -159,9 +557,8 @@ -- method RecentChooserMenu::get_show_numbers -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -173,8 +570,8 @@ recentChooserMenuGetShowNumbers :: (MonadIO m, RecentChooserMenuK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result recentChooserMenuGetShowNumbers _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_menu_get_show_numbers _obj' @@ -182,11 +579,14 @@ touchManagedPtr _obj return result' +data RecentChooserMenuGetShowNumbersMethodInfo +instance (signature ~ (m Bool), MonadIO m, RecentChooserMenuK a) => MethodInfo RecentChooserMenuGetShowNumbersMethodInfo a signature where + overloadedMethod _ = recentChooserMenuGetShowNumbers + -- method RecentChooserMenu::set_show_numbers -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -199,14 +599,18 @@ recentChooserMenuSetShowNumbers :: (MonadIO m, RecentChooserMenuK a) => - a -> -- _obj - Bool -> -- show_numbers - m () -recentChooserMenuSetShowNumbers _obj show_numbers = liftIO $ do + a -- _obj + -> Bool -- showNumbers + -> m () -- result +recentChooserMenuSetShowNumbers _obj showNumbers = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_numbers' = (fromIntegral . fromEnum) show_numbers - gtk_recent_chooser_menu_set_show_numbers _obj' show_numbers' + let showNumbers' = (fromIntegral . fromEnum) showNumbers + gtk_recent_chooser_menu_set_show_numbers _obj' showNumbers' touchManagedPtr _obj return () + +data RecentChooserMenuSetShowNumbersMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RecentChooserMenuK a) => MethodInfo RecentChooserMenuSetShowNumbersMethodInfo a signature where + overloadedMethod _ = recentChooserMenuSetShowNumbers diff --git a/GI/Gtk/Objects/RecentChooserMenu.hs-boot b/GI/Gtk/Objects/RecentChooserMenu.hs-boot --- a/GI/Gtk/Objects/RecentChooserMenu.hs-boot +++ b/GI/Gtk/Objects/RecentChooserMenu.hs-boot @@ -12,3 +12,5 @@ class GObject o => RecentChooserMenuK o instance (GObject o, IsDescendantOf RecentChooserMenu o) => RecentChooserMenuK o data RecentChooserMenuShowNumbersPropertyInfo +data RecentChooserMenuGetShowNumbersMethodInfo +data RecentChooserMenuSetShowNumbersMethodInfo diff --git a/GI/Gtk/Objects/RecentChooserWidget.hs b/GI/Gtk/Objects/RecentChooserWidget.hs --- a/GI/Gtk/Objects/RecentChooserWidget.hs +++ b/GI/Gtk/Objects/RecentChooserWidget.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -61,17 +62,384 @@ noRecentChooserWidget :: Maybe RecentChooserWidget noRecentChooserWidget = Nothing +type family ResolveRecentChooserWidgetMethod (t :: Symbol) (o :: *) :: * where + ResolveRecentChooserWidgetMethod "activate" o = WidgetActivateMethodInfo + ResolveRecentChooserWidgetMethod "add" o = ContainerAddMethodInfo + ResolveRecentChooserWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveRecentChooserWidgetMethod "addChild" o = BuildableAddChildMethodInfo + ResolveRecentChooserWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveRecentChooserWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveRecentChooserWidgetMethod "addFilter" o = RecentChooserAddFilterMethodInfo + ResolveRecentChooserWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveRecentChooserWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveRecentChooserWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRecentChooserWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRecentChooserWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveRecentChooserWidgetMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveRecentChooserWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveRecentChooserWidgetMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveRecentChooserWidgetMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveRecentChooserWidgetMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveRecentChooserWidgetMethod "childType" o = ContainerChildTypeMethodInfo + ResolveRecentChooserWidgetMethod "classPath" o = WidgetClassPathMethodInfo + ResolveRecentChooserWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveRecentChooserWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveRecentChooserWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveRecentChooserWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveRecentChooserWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveRecentChooserWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveRecentChooserWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveRecentChooserWidgetMethod "destroy" o = WidgetDestroyMethodInfo + ResolveRecentChooserWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveRecentChooserWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveRecentChooserWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveRecentChooserWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveRecentChooserWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveRecentChooserWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveRecentChooserWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveRecentChooserWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveRecentChooserWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveRecentChooserWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveRecentChooserWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveRecentChooserWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveRecentChooserWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveRecentChooserWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveRecentChooserWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveRecentChooserWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveRecentChooserWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveRecentChooserWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveRecentChooserWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveRecentChooserWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveRecentChooserWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveRecentChooserWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveRecentChooserWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveRecentChooserWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveRecentChooserWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveRecentChooserWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveRecentChooserWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveRecentChooserWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveRecentChooserWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveRecentChooserWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveRecentChooserWidgetMethod "draw" o = WidgetDrawMethodInfo + ResolveRecentChooserWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveRecentChooserWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveRecentChooserWidgetMethod "event" o = WidgetEventMethodInfo + ResolveRecentChooserWidgetMethod "forall" o = ContainerForallMethodInfo + ResolveRecentChooserWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRecentChooserWidgetMethod "foreach" o = ContainerForeachMethodInfo + ResolveRecentChooserWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveRecentChooserWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRecentChooserWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveRecentChooserWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveRecentChooserWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveRecentChooserWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveRecentChooserWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveRecentChooserWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveRecentChooserWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveRecentChooserWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveRecentChooserWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveRecentChooserWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveRecentChooserWidgetMethod "hide" o = WidgetHideMethodInfo + ResolveRecentChooserWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveRecentChooserWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveRecentChooserWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveRecentChooserWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveRecentChooserWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveRecentChooserWidgetMethod "intersect" o = WidgetIntersectMethodInfo + ResolveRecentChooserWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveRecentChooserWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveRecentChooserWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveRecentChooserWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRecentChooserWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveRecentChooserWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveRecentChooserWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveRecentChooserWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveRecentChooserWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveRecentChooserWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveRecentChooserWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveRecentChooserWidgetMethod "listFilters" o = RecentChooserListFiltersMethodInfo + ResolveRecentChooserWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveRecentChooserWidgetMethod "map" o = WidgetMapMethodInfo + ResolveRecentChooserWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveRecentChooserWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveRecentChooserWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveRecentChooserWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveRecentChooserWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveRecentChooserWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveRecentChooserWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveRecentChooserWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveRecentChooserWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRecentChooserWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRecentChooserWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveRecentChooserWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveRecentChooserWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveRecentChooserWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveRecentChooserWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveRecentChooserWidgetMethod "packEnd" o = BoxPackEndMethodInfo + ResolveRecentChooserWidgetMethod "packStart" o = BoxPackStartMethodInfo + ResolveRecentChooserWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveRecentChooserWidgetMethod "path" o = WidgetPathMethodInfo + ResolveRecentChooserWidgetMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveRecentChooserWidgetMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveRecentChooserWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveRecentChooserWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveRecentChooserWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveRecentChooserWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveRecentChooserWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveRecentChooserWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveRecentChooserWidgetMethod "realize" o = WidgetRealizeMethodInfo + ResolveRecentChooserWidgetMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRecentChooserWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRecentChooserWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveRecentChooserWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveRecentChooserWidgetMethod "remove" o = ContainerRemoveMethodInfo + ResolveRecentChooserWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveRecentChooserWidgetMethod "removeFilter" o = RecentChooserRemoveFilterMethodInfo + ResolveRecentChooserWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveRecentChooserWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveRecentChooserWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveRecentChooserWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveRecentChooserWidgetMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveRecentChooserWidgetMethod "reparent" o = WidgetReparentMethodInfo + ResolveRecentChooserWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRecentChooserWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRecentChooserWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveRecentChooserWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveRecentChooserWidgetMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveRecentChooserWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRecentChooserWidgetMethod "selectAll" o = RecentChooserSelectAllMethodInfo + ResolveRecentChooserWidgetMethod "selectUri" o = RecentChooserSelectUriMethodInfo + ResolveRecentChooserWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveRecentChooserWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveRecentChooserWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveRecentChooserWidgetMethod "show" o = WidgetShowMethodInfo + ResolveRecentChooserWidgetMethod "showAll" o = WidgetShowAllMethodInfo + ResolveRecentChooserWidgetMethod "showNow" o = WidgetShowNowMethodInfo + ResolveRecentChooserWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveRecentChooserWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveRecentChooserWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveRecentChooserWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRecentChooserWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRecentChooserWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveRecentChooserWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveRecentChooserWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveRecentChooserWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRecentChooserWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveRecentChooserWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveRecentChooserWidgetMethod "unmap" o = WidgetUnmapMethodInfo + ResolveRecentChooserWidgetMethod "unparent" o = WidgetUnparentMethodInfo + ResolveRecentChooserWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveRecentChooserWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRecentChooserWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveRecentChooserWidgetMethod "unselectAll" o = RecentChooserUnselectAllMethodInfo + ResolveRecentChooserWidgetMethod "unselectUri" o = RecentChooserUnselectUriMethodInfo + ResolveRecentChooserWidgetMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveRecentChooserWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveRecentChooserWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRecentChooserWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveRecentChooserWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveRecentChooserWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveRecentChooserWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveRecentChooserWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveRecentChooserWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveRecentChooserWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveRecentChooserWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveRecentChooserWidgetMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveRecentChooserWidgetMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveRecentChooserWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveRecentChooserWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveRecentChooserWidgetMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveRecentChooserWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveRecentChooserWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveRecentChooserWidgetMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveRecentChooserWidgetMethod "getClip" o = WidgetGetClipMethodInfo + ResolveRecentChooserWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveRecentChooserWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveRecentChooserWidgetMethod "getCurrentItem" o = RecentChooserGetCurrentItemMethodInfo + ResolveRecentChooserWidgetMethod "getCurrentUri" o = RecentChooserGetCurrentUriMethodInfo + ResolveRecentChooserWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRecentChooserWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveRecentChooserWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveRecentChooserWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveRecentChooserWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveRecentChooserWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveRecentChooserWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveRecentChooserWidgetMethod "getFilter" o = RecentChooserGetFilterMethodInfo + ResolveRecentChooserWidgetMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveRecentChooserWidgetMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveRecentChooserWidgetMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveRecentChooserWidgetMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveRecentChooserWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveRecentChooserWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveRecentChooserWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveRecentChooserWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveRecentChooserWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveRecentChooserWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveRecentChooserWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveRecentChooserWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveRecentChooserWidgetMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveRecentChooserWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveRecentChooserWidgetMethod "getItems" o = RecentChooserGetItemsMethodInfo + ResolveRecentChooserWidgetMethod "getLimit" o = RecentChooserGetLimitMethodInfo + ResolveRecentChooserWidgetMethod "getLocalOnly" o = RecentChooserGetLocalOnlyMethodInfo + ResolveRecentChooserWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveRecentChooserWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveRecentChooserWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveRecentChooserWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveRecentChooserWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveRecentChooserWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveRecentChooserWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveRecentChooserWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveRecentChooserWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveRecentChooserWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveRecentChooserWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveRecentChooserWidgetMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveRecentChooserWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveRecentChooserWidgetMethod "getParent" o = WidgetGetParentMethodInfo + ResolveRecentChooserWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveRecentChooserWidgetMethod "getPath" o = WidgetGetPathMethodInfo + ResolveRecentChooserWidgetMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveRecentChooserWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveRecentChooserWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveRecentChooserWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveRecentChooserWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveRecentChooserWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveRecentChooserWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveRecentChooserWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveRecentChooserWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRecentChooserWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRecentChooserWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveRecentChooserWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveRecentChooserWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveRecentChooserWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveRecentChooserWidgetMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveRecentChooserWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveRecentChooserWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveRecentChooserWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveRecentChooserWidgetMethod "getSelectMultiple" o = RecentChooserGetSelectMultipleMethodInfo + ResolveRecentChooserWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveRecentChooserWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveRecentChooserWidgetMethod "getShowIcons" o = RecentChooserGetShowIconsMethodInfo + ResolveRecentChooserWidgetMethod "getShowNotFound" o = RecentChooserGetShowNotFoundMethodInfo + ResolveRecentChooserWidgetMethod "getShowPrivate" o = RecentChooserGetShowPrivateMethodInfo + ResolveRecentChooserWidgetMethod "getShowTips" o = RecentChooserGetShowTipsMethodInfo + ResolveRecentChooserWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveRecentChooserWidgetMethod "getSortType" o = RecentChooserGetSortTypeMethodInfo + ResolveRecentChooserWidgetMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveRecentChooserWidgetMethod "getState" o = WidgetGetStateMethodInfo + ResolveRecentChooserWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveRecentChooserWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveRecentChooserWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveRecentChooserWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveRecentChooserWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveRecentChooserWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveRecentChooserWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveRecentChooserWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveRecentChooserWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveRecentChooserWidgetMethod "getUris" o = RecentChooserGetUrisMethodInfo + ResolveRecentChooserWidgetMethod "getValign" o = WidgetGetValignMethodInfo + ResolveRecentChooserWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveRecentChooserWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveRecentChooserWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveRecentChooserWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveRecentChooserWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveRecentChooserWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveRecentChooserWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveRecentChooserWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveRecentChooserWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveRecentChooserWidgetMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveRecentChooserWidgetMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveRecentChooserWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveRecentChooserWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveRecentChooserWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveRecentChooserWidgetMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveRecentChooserWidgetMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveRecentChooserWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveRecentChooserWidgetMethod "setClip" o = WidgetSetClipMethodInfo + ResolveRecentChooserWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveRecentChooserWidgetMethod "setCurrentUri" o = RecentChooserSetCurrentUriMethodInfo + ResolveRecentChooserWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRecentChooserWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveRecentChooserWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveRecentChooserWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveRecentChooserWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveRecentChooserWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveRecentChooserWidgetMethod "setFilter" o = RecentChooserSetFilterMethodInfo + ResolveRecentChooserWidgetMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveRecentChooserWidgetMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveRecentChooserWidgetMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveRecentChooserWidgetMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveRecentChooserWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveRecentChooserWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveRecentChooserWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveRecentChooserWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveRecentChooserWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveRecentChooserWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveRecentChooserWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveRecentChooserWidgetMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveRecentChooserWidgetMethod "setLimit" o = RecentChooserSetLimitMethodInfo + ResolveRecentChooserWidgetMethod "setLocalOnly" o = RecentChooserSetLocalOnlyMethodInfo + ResolveRecentChooserWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveRecentChooserWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveRecentChooserWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveRecentChooserWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveRecentChooserWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveRecentChooserWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveRecentChooserWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveRecentChooserWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveRecentChooserWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveRecentChooserWidgetMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveRecentChooserWidgetMethod "setParent" o = WidgetSetParentMethodInfo + ResolveRecentChooserWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveRecentChooserWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRecentChooserWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveRecentChooserWidgetMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveRecentChooserWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveRecentChooserWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveRecentChooserWidgetMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveRecentChooserWidgetMethod "setSelectMultiple" o = RecentChooserSetSelectMultipleMethodInfo + ResolveRecentChooserWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveRecentChooserWidgetMethod "setShowIcons" o = RecentChooserSetShowIconsMethodInfo + ResolveRecentChooserWidgetMethod "setShowNotFound" o = RecentChooserSetShowNotFoundMethodInfo + ResolveRecentChooserWidgetMethod "setShowPrivate" o = RecentChooserSetShowPrivateMethodInfo + ResolveRecentChooserWidgetMethod "setShowTips" o = RecentChooserSetShowTipsMethodInfo + ResolveRecentChooserWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveRecentChooserWidgetMethod "setSortFunc" o = RecentChooserSetSortFuncMethodInfo + ResolveRecentChooserWidgetMethod "setSortType" o = RecentChooserSetSortTypeMethodInfo + ResolveRecentChooserWidgetMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveRecentChooserWidgetMethod "setState" o = WidgetSetStateMethodInfo + ResolveRecentChooserWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveRecentChooserWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveRecentChooserWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveRecentChooserWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveRecentChooserWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveRecentChooserWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveRecentChooserWidgetMethod "setValign" o = WidgetSetValignMethodInfo + ResolveRecentChooserWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveRecentChooserWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveRecentChooserWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveRecentChooserWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveRecentChooserWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveRecentChooserWidgetMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRecentChooserWidgetMethod t RecentChooserWidget, MethodInfo info RecentChooserWidget p) => IsLabelProxy t (RecentChooserWidget -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRecentChooserWidgetMethod t RecentChooserWidget, MethodInfo info RecentChooserWidget p) => IsLabel t (RecentChooserWidget -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList RecentChooserWidget = RecentChooserWidgetAttributeList -type RecentChooserWidgetAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type RecentChooserWidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList RecentChooserWidget = RecentChooserWidgetSignalList -type RecentChooserWidgetSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("item-activated", RecentChooserItemActivatedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RecentChooserWidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("itemActivated", RecentChooserItemActivatedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method RecentChooserWidget::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "RecentChooserWidget" -- throws : False -- Skip return : False @@ -82,7 +450,7 @@ recentChooserWidgetNew :: (MonadIO m) => - m RecentChooserWidget + m RecentChooserWidget -- result recentChooserWidgetNew = liftIO $ do result <- gtk_recent_chooser_widget_new checkUnexpectedReturnNULL "gtk_recent_chooser_widget_new" result @@ -91,9 +459,8 @@ -- method RecentChooserWidget::new_for_manager -- method type : Constructor --- Args : [Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RecentChooserWidget" -- throws : False -- Skip return : False @@ -105,8 +472,8 @@ recentChooserWidgetNewForManager :: (MonadIO m, RecentManagerK a) => - a -> -- manager - m RecentChooserWidget + a -- manager + -> m RecentChooserWidget -- result recentChooserWidgetNewForManager manager = liftIO $ do let manager' = unsafeManagedPtrCastPtr manager result <- gtk_recent_chooser_widget_new_for_manager manager' diff --git a/GI/Gtk/Objects/RecentFilter.hs b/GI/Gtk/Objects/RecentFilter.hs --- a/GI/Gtk/Objects/RecentFilter.hs +++ b/GI/Gtk/Objects/RecentFilter.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,42 +18,52 @@ -- * Methods -- ** recentFilterAddAge + RecentFilterAddAgeMethodInfo , recentFilterAddAge , -- ** recentFilterAddApplication + RecentFilterAddApplicationMethodInfo , recentFilterAddApplication , -- ** recentFilterAddCustom + RecentFilterAddCustomMethodInfo , recentFilterAddCustom , -- ** recentFilterAddGroup + RecentFilterAddGroupMethodInfo , recentFilterAddGroup , -- ** recentFilterAddMimeType + RecentFilterAddMimeTypeMethodInfo , recentFilterAddMimeType , -- ** recentFilterAddPattern + RecentFilterAddPatternMethodInfo , recentFilterAddPattern , -- ** recentFilterAddPixbufFormats + RecentFilterAddPixbufFormatsMethodInfo , recentFilterAddPixbufFormats , -- ** recentFilterFilter + RecentFilterFilterMethodInfo , recentFilterFilter , -- ** recentFilterGetName + RecentFilterGetNameMethodInfo , recentFilterGetName , -- ** recentFilterGetNeeded + RecentFilterGetNeededMethodInfo , recentFilterGetNeeded , @@ -61,6 +72,7 @@ -- ** recentFilterSetName + RecentFilterSetNameMethodInfo , recentFilterSetName , @@ -101,17 +113,66 @@ noRecentFilter :: Maybe RecentFilter noRecentFilter = Nothing +type family ResolveRecentFilterMethod (t :: Symbol) (o :: *) :: * where + ResolveRecentFilterMethod "addAge" o = RecentFilterAddAgeMethodInfo + ResolveRecentFilterMethod "addApplication" o = RecentFilterAddApplicationMethodInfo + ResolveRecentFilterMethod "addChild" o = BuildableAddChildMethodInfo + ResolveRecentFilterMethod "addCustom" o = RecentFilterAddCustomMethodInfo + ResolveRecentFilterMethod "addGroup" o = RecentFilterAddGroupMethodInfo + ResolveRecentFilterMethod "addMimeType" o = RecentFilterAddMimeTypeMethodInfo + ResolveRecentFilterMethod "addPattern" o = RecentFilterAddPatternMethodInfo + ResolveRecentFilterMethod "addPixbufFormats" o = RecentFilterAddPixbufFormatsMethodInfo + ResolveRecentFilterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRecentFilterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRecentFilterMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveRecentFilterMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveRecentFilterMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveRecentFilterMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveRecentFilterMethod "filter" o = RecentFilterFilterMethodInfo + ResolveRecentFilterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRecentFilterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRecentFilterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRecentFilterMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRecentFilterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRecentFilterMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveRecentFilterMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRecentFilterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRecentFilterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRecentFilterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRecentFilterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRecentFilterMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRecentFilterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRecentFilterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRecentFilterMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRecentFilterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRecentFilterMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRecentFilterMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveRecentFilterMethod "getNeeded" o = RecentFilterGetNeededMethodInfo + ResolveRecentFilterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRecentFilterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRecentFilterMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveRecentFilterMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRecentFilterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRecentFilterMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRecentFilterMethod t RecentFilter, MethodInfo info RecentFilter p) => IsLabelProxy t (RecentFilter -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRecentFilterMethod t RecentFilter, MethodInfo info RecentFilter p) => IsLabel t (RecentFilter -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList RecentFilter = RecentFilterAttributeList type RecentFilterAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList RecentFilter = RecentFilterSignalList -type RecentFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RecentFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method RecentFilter::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "RecentFilter" -- throws : False -- Skip return : False @@ -122,7 +183,7 @@ recentFilterNew :: (MonadIO m) => - m RecentFilter + m RecentFilter -- result recentFilterNew = liftIO $ do result <- gtk_recent_filter_new checkUnexpectedReturnNULL "gtk_recent_filter_new" result @@ -131,9 +192,8 @@ -- method RecentFilter::add_age -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -146,20 +206,23 @@ recentFilterAddAge :: (MonadIO m, RecentFilterK a) => - a -> -- _obj - Int32 -> -- days - m () + a -- _obj + -> Int32 -- days + -> m () -- result recentFilterAddAge _obj days = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_recent_filter_add_age _obj' days touchManagedPtr _obj return () +data RecentFilterAddAgeMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddAgeMethodInfo a signature where + overloadedMethod _ = recentFilterAddAge + -- method RecentFilter::add_application -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -172,9 +235,9 @@ recentFilterAddApplication :: (MonadIO m, RecentFilterK a) => - a -> -- _obj - T.Text -> -- application - m () + a -- _obj + -> T.Text -- application + -> m () -- result recentFilterAddApplication _obj application = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj application' <- textToCString application @@ -183,11 +246,14 @@ freeMem application' return () +data RecentFilterAddApplicationMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddApplicationMethodInfo a signature where + overloadedMethod _ = recentFilterAddApplication + -- method RecentFilter::add_custom -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needed", argType = TInterface "Gtk" "RecentFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "RecentFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needed", argType = TInterface "Gtk" "RecentFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "RecentFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needed", argType = TInterface "Gtk" "RecentFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "RecentFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -203,25 +269,28 @@ recentFilterAddCustom :: (MonadIO m, RecentFilterK a) => - a -> -- _obj - [RecentFilterFlags] -> -- needed - RecentFilterFunc -> -- func - m () + a -- _obj + -> [RecentFilterFlags] -- needed + -> RecentFilterFunc -- func + -> m () -- result recentFilterAddCustom _obj needed func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let needed' = gflagsToWord needed func' <- mkRecentFilterFunc (recentFilterFuncWrapper Nothing func) let data_ = castFunPtrToPtr func' - let data_destroy = safeFreeFunPtrPtr - gtk_recent_filter_add_custom _obj' needed' func' data_ data_destroy + let dataDestroy = safeFreeFunPtrPtr + gtk_recent_filter_add_custom _obj' needed' func' data_ dataDestroy touchManagedPtr _obj return () +data RecentFilterAddCustomMethodInfo +instance (signature ~ ([RecentFilterFlags] -> RecentFilterFunc -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddCustomMethodInfo a signature where + overloadedMethod _ = recentFilterAddCustom + -- method RecentFilter::add_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -234,9 +303,9 @@ recentFilterAddGroup :: (MonadIO m, RecentFilterK a) => - a -> -- _obj - T.Text -> -- group - m () + a -- _obj + -> T.Text -- group + -> m () -- result recentFilterAddGroup _obj group = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj group' <- textToCString group @@ -245,11 +314,14 @@ freeMem group' return () +data RecentFilterAddGroupMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddGroupMethodInfo a signature where + overloadedMethod _ = recentFilterAddGroup + -- method RecentFilter::add_mime_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -262,22 +334,25 @@ recentFilterAddMimeType :: (MonadIO m, RecentFilterK a) => - a -> -- _obj - T.Text -> -- mime_type - m () -recentFilterAddMimeType _obj mime_type = liftIO $ do + a -- _obj + -> T.Text -- mimeType + -> m () -- result +recentFilterAddMimeType _obj mimeType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - mime_type' <- textToCString mime_type - gtk_recent_filter_add_mime_type _obj' mime_type' + mimeType' <- textToCString mimeType + gtk_recent_filter_add_mime_type _obj' mimeType' touchManagedPtr _obj - freeMem mime_type' + freeMem mimeType' return () +data RecentFilterAddMimeTypeMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddMimeTypeMethodInfo a signature where + overloadedMethod _ = recentFilterAddMimeType + -- method RecentFilter::add_pattern -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -290,9 +365,9 @@ recentFilterAddPattern :: (MonadIO m, RecentFilterK a) => - a -> -- _obj - T.Text -> -- pattern - m () + a -- _obj + -> T.Text -- pattern + -> m () -- result recentFilterAddPattern _obj pattern = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj pattern' <- textToCString pattern @@ -301,11 +376,14 @@ freeMem pattern' return () +data RecentFilterAddPatternMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddPatternMethodInfo a signature where + overloadedMethod _ = recentFilterAddPattern + -- method RecentFilter::add_pixbuf_formats -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -317,19 +395,22 @@ recentFilterAddPixbufFormats :: (MonadIO m, RecentFilterK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result recentFilterAddPixbufFormats _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_recent_filter_add_pixbuf_formats _obj' touchManagedPtr _obj return () +data RecentFilterAddPixbufFormatsMethodInfo +instance (signature ~ (m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterAddPixbufFormatsMethodInfo a signature where + overloadedMethod _ = recentFilterAddPixbufFormats + -- method RecentFilter::filter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_info", argType = TInterface "Gtk" "RecentFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_info", argType = TInterface "Gtk" "RecentFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_info", argType = TInterface "Gtk" "RecentFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -342,23 +423,26 @@ recentFilterFilter :: (MonadIO m, RecentFilterK a) => - a -> -- _obj - RecentFilterInfo -> -- filter_info - m Bool -recentFilterFilter _obj filter_info = liftIO $ do + a -- _obj + -> RecentFilterInfo -- filterInfo + -> m Bool -- result +recentFilterFilter _obj filterInfo = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let filter_info' = unsafeManagedPtrGetPtr filter_info - result <- gtk_recent_filter_filter _obj' filter_info' + let filterInfo' = unsafeManagedPtrGetPtr filterInfo + result <- gtk_recent_filter_filter _obj' filterInfo' let result' = (/= 0) result touchManagedPtr _obj - touchManagedPtr filter_info + touchManagedPtr filterInfo return result' +data RecentFilterFilterMethodInfo +instance (signature ~ (RecentFilterInfo -> m Bool), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterFilterMethodInfo a signature where + overloadedMethod _ = recentFilterFilter + -- method RecentFilter::get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -370,8 +454,8 @@ recentFilterGetName :: (MonadIO m, RecentFilterK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result recentFilterGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_filter_get_name _obj' @@ -380,11 +464,14 @@ touchManagedPtr _obj return result' +data RecentFilterGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterGetNameMethodInfo a signature where + overloadedMethod _ = recentFilterGetName + -- method RecentFilter::get_needed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RecentFilterFlags" -- throws : False -- Skip return : False @@ -396,8 +483,8 @@ recentFilterGetNeeded :: (MonadIO m, RecentFilterK a) => - a -> -- _obj - m [RecentFilterFlags] + a -- _obj + -> m [RecentFilterFlags] -- result recentFilterGetNeeded _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_filter_get_needed _obj' @@ -405,11 +492,14 @@ touchManagedPtr _obj return result' +data RecentFilterGetNeededMethodInfo +instance (signature ~ (m [RecentFilterFlags]), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterGetNeededMethodInfo a signature where + overloadedMethod _ = recentFilterGetNeeded + -- method RecentFilter::set_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -422,9 +512,9 @@ recentFilterSetName :: (MonadIO m, RecentFilterK a) => - a -> -- _obj - T.Text -> -- name - m () + a -- _obj + -> T.Text -- name + -> m () -- result recentFilterSetName _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -432,5 +522,9 @@ touchManagedPtr _obj freeMem name' return () + +data RecentFilterSetNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, RecentFilterK a) => MethodInfo RecentFilterSetNameMethodInfo a signature where + overloadedMethod _ = recentFilterSetName diff --git a/GI/Gtk/Objects/RecentFilter.hs-boot b/GI/Gtk/Objects/RecentFilter.hs-boot --- a/GI/Gtk/Objects/RecentFilter.hs-boot +++ b/GI/Gtk/Objects/RecentFilter.hs-boot @@ -11,3 +11,14 @@ instance GObject RecentFilter where class GObject o => RecentFilterK o instance (GObject o, IsDescendantOf RecentFilter o) => RecentFilterK o +data RecentFilterAddAgeMethodInfo +data RecentFilterAddApplicationMethodInfo +data RecentFilterAddCustomMethodInfo +data RecentFilterAddGroupMethodInfo +data RecentFilterAddMimeTypeMethodInfo +data RecentFilterAddPatternMethodInfo +data RecentFilterAddPixbufFormatsMethodInfo +data RecentFilterFilterMethodInfo +data RecentFilterGetNameMethodInfo +data RecentFilterGetNeededMethodInfo +data RecentFilterSetNameMethodInfo diff --git a/GI/Gtk/Objects/RecentManager.hs b/GI/Gtk/Objects/RecentManager.hs --- a/GI/Gtk/Objects/RecentManager.hs +++ b/GI/Gtk/Objects/RecentManager.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** recentManagerAddFull + RecentManagerAddFullMethodInfo , recentManagerAddFull , -- ** recentManagerAddItem + RecentManagerAddItemMethodInfo , recentManagerAddItem , @@ -29,18 +32,22 @@ -- ** recentManagerGetItems + RecentManagerGetItemsMethodInfo , recentManagerGetItems , -- ** recentManagerHasItem + RecentManagerHasItemMethodInfo , recentManagerHasItem , -- ** recentManagerLookupItem + RecentManagerLookupItemMethodInfo , recentManagerLookupItem , -- ** recentManagerMoveItem + RecentManagerMoveItemMethodInfo , recentManagerMoveItem , @@ -49,10 +56,12 @@ -- ** recentManagerPurgeItems + RecentManagerPurgeItemsMethodInfo , recentManagerPurgeItems , -- ** recentManagerRemoveItem + RecentManagerRemoveItemMethodInfo , recentManagerRemoveItem , @@ -121,6 +130,47 @@ noRecentManager :: Maybe RecentManager noRecentManager = Nothing +type family ResolveRecentManagerMethod (t :: Symbol) (o :: *) :: * where + ResolveRecentManagerMethod "addFull" o = RecentManagerAddFullMethodInfo + ResolveRecentManagerMethod "addItem" o = RecentManagerAddItemMethodInfo + ResolveRecentManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRecentManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRecentManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRecentManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRecentManagerMethod "hasItem" o = RecentManagerHasItemMethodInfo + ResolveRecentManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRecentManagerMethod "lookupItem" o = RecentManagerLookupItemMethodInfo + ResolveRecentManagerMethod "moveItem" o = RecentManagerMoveItemMethodInfo + ResolveRecentManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRecentManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRecentManagerMethod "purgeItems" o = RecentManagerPurgeItemsMethodInfo + ResolveRecentManagerMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRecentManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRecentManagerMethod "removeItem" o = RecentManagerRemoveItemMethodInfo + ResolveRecentManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRecentManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRecentManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRecentManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRecentManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRecentManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRecentManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRecentManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRecentManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRecentManagerMethod "getItems" o = RecentManagerGetItemsMethodInfo + ResolveRecentManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRecentManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRecentManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRecentManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRecentManagerMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRecentManagerMethod t RecentManager, MethodInfo info RecentManager p) => IsLabelProxy t (RecentManager -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRecentManagerMethod t RecentManager, MethodInfo info RecentManager p) => IsLabel t (RecentManager -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal RecentManager::changed type RecentManagerChangedCallback = IO () @@ -175,7 +225,7 @@ type AttrSetTypeConstraint RecentManagerFilenamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint RecentManagerFilenamePropertyInfo = RecentManagerK type AttrGetType RecentManagerFilenamePropertyInfo = T.Text - type AttrLabel RecentManagerFilenamePropertyInfo = "RecentManager::filename" + type AttrLabel RecentManagerFilenamePropertyInfo = "filename" attrGet _ = getRecentManagerFilename attrSet _ = undefined attrConstruct _ = constructRecentManagerFilename @@ -193,7 +243,7 @@ type AttrSetTypeConstraint RecentManagerSizePropertyInfo = (~) () type AttrBaseTypeConstraint RecentManagerSizePropertyInfo = RecentManagerK type AttrGetType RecentManagerSizePropertyInfo = Int32 - type AttrLabel RecentManagerSizePropertyInfo = "RecentManager::size" + type AttrLabel RecentManagerSizePropertyInfo = "size" attrGet _ = getRecentManagerSize attrSet _ = undefined attrConstruct _ = undefined @@ -207,13 +257,12 @@ connectSignal _ = connectRecentManagerChanged type instance SignalList RecentManager = RecentManagerSignalList -type RecentManagerSignalList = ('[ '("changed", RecentManagerChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RecentManagerSignalList = ('[ '("changed", RecentManagerChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method RecentManager::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "RecentManager" -- throws : False -- Skip return : False @@ -224,7 +273,7 @@ recentManagerNew :: (MonadIO m) => - m RecentManager + m RecentManager -- result recentManagerNew = liftIO $ do result <- gtk_recent_manager_new checkUnexpectedReturnNULL "gtk_recent_manager_new" result @@ -233,9 +282,8 @@ -- method RecentManager::add_full -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "recent_data", argType = TInterface "Gtk" "RecentData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "recent_data", argType = TInterface "Gtk" "RecentData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "recent_data", argType = TInterface "Gtk" "RecentData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -249,26 +297,29 @@ recentManagerAddFull :: (MonadIO m, RecentManagerK a) => - a -> -- _obj - T.Text -> -- uri - RecentData -> -- recent_data - m Bool -recentManagerAddFull _obj uri recent_data = liftIO $ do + a -- _obj + -> T.Text -- uri + -> RecentData -- recentData + -> m Bool -- result +recentManagerAddFull _obj uri recentData = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri - let recent_data' = unsafeManagedPtrGetPtr recent_data - result <- gtk_recent_manager_add_full _obj' uri' recent_data' + let recentData' = unsafeManagedPtrGetPtr recentData + result <- gtk_recent_manager_add_full _obj' uri' recentData' let result' = (/= 0) result touchManagedPtr _obj - touchManagedPtr recent_data + touchManagedPtr recentData freeMem uri' return result' +data RecentManagerAddFullMethodInfo +instance (signature ~ (T.Text -> RecentData -> m Bool), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerAddFullMethodInfo a signature where + overloadedMethod _ = recentManagerAddFull + -- method RecentManager::add_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -281,9 +332,9 @@ recentManagerAddItem :: (MonadIO m, RecentManagerK a) => - a -> -- _obj - T.Text -> -- uri - m Bool + a -- _obj + -> T.Text -- uri + -> m Bool -- result recentManagerAddItem _obj uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri @@ -293,11 +344,14 @@ freeMem uri' return result' +data RecentManagerAddItemMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerAddItemMethodInfo a signature where + overloadedMethod _ = recentManagerAddItem + -- method RecentManager::get_items -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "RecentInfo") -- throws : False -- Skip return : False @@ -309,8 +363,8 @@ recentManagerGetItems :: (MonadIO m, RecentManagerK a) => - a -> -- _obj - m [RecentInfo] + a -- _obj + -> m [RecentInfo] -- result recentManagerGetItems _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_manager_get_items _obj' @@ -321,11 +375,14 @@ touchManagedPtr _obj return result'' +data RecentManagerGetItemsMethodInfo +instance (signature ~ (m [RecentInfo]), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerGetItemsMethodInfo a signature where + overloadedMethod _ = recentManagerGetItems + -- method RecentManager::has_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -338,9 +395,9 @@ recentManagerHasItem :: (MonadIO m, RecentManagerK a) => - a -> -- _obj - T.Text -> -- uri - m Bool + a -- _obj + -> T.Text -- uri + -> m Bool -- result recentManagerHasItem _obj uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri @@ -350,11 +407,14 @@ freeMem uri' return result' +data RecentManagerHasItemMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerHasItemMethodInfo a signature where + overloadedMethod _ = recentManagerHasItem + -- method RecentManager::lookup_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RecentInfo" -- throws : True -- Skip return : False @@ -368,9 +428,9 @@ recentManagerLookupItem :: (MonadIO m, RecentManagerK a) => - a -> -- _obj - T.Text -> -- uri - m RecentInfo + a -- _obj + -> T.Text -- uri + -> m RecentInfo -- result recentManagerLookupItem _obj uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri @@ -385,11 +445,14 @@ freeMem uri' ) +data RecentManagerLookupItemMethodInfo +instance (signature ~ (T.Text -> m RecentInfo), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerLookupItemMethodInfo a signature where + overloadedMethod _ = recentManagerLookupItem + -- method RecentManager::move_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -404,34 +467,37 @@ recentManagerMoveItem :: (MonadIO m, RecentManagerK a) => - a -> -- _obj - T.Text -> -- uri - Maybe (T.Text) -> -- new_uri - m () -recentManagerMoveItem _obj uri new_uri = liftIO $ do + a -- _obj + -> T.Text -- uri + -> Maybe (T.Text) -- newUri + -> m () -- result +recentManagerMoveItem _obj uri newUri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri - maybeNew_uri <- case new_uri of + maybeNewUri <- case newUri of Nothing -> return nullPtr - Just jNew_uri -> do - jNew_uri' <- textToCString jNew_uri - return jNew_uri' + Just jNewUri -> do + jNewUri' <- textToCString jNewUri + return jNewUri' onException (do - _ <- propagateGError $ gtk_recent_manager_move_item _obj' uri' maybeNew_uri + _ <- propagateGError $ gtk_recent_manager_move_item _obj' uri' maybeNewUri touchManagedPtr _obj freeMem uri' - freeMem maybeNew_uri + freeMem maybeNewUri return () ) (do freeMem uri' - freeMem maybeNew_uri + freeMem maybeNewUri ) +data RecentManagerMoveItemMethodInfo +instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerMoveItemMethodInfo a signature where + overloadedMethod _ = recentManagerMoveItem + -- method RecentManager::purge_items -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : True -- Skip return : False @@ -444,8 +510,8 @@ recentManagerPurgeItems :: (MonadIO m, RecentManagerK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result recentManagerPurgeItems _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -456,11 +522,14 @@ return () ) +data RecentManagerPurgeItemsMethodInfo +instance (signature ~ (m Int32), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerPurgeItemsMethodInfo a signature where + overloadedMethod _ = recentManagerPurgeItems + -- method RecentManager::remove_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -474,9 +543,9 @@ recentManagerRemoveItem :: (MonadIO m, RecentManagerK a) => - a -> -- _obj - T.Text -> -- uri - m () + a -- _obj + -> T.Text -- uri + -> m () -- result recentManagerRemoveItem _obj uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri @@ -489,11 +558,14 @@ freeMem uri' ) +data RecentManagerRemoveItemMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, RecentManagerK a) => MethodInfo RecentManagerRemoveItemMethodInfo a signature where + overloadedMethod _ = recentManagerRemoveItem + -- method RecentManager::get_default -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "RecentManager" -- throws : False -- Skip return : False @@ -504,7 +576,7 @@ recentManagerGetDefault :: (MonadIO m) => - m RecentManager + m RecentManager -- result recentManagerGetDefault = liftIO $ do result <- gtk_recent_manager_get_default checkUnexpectedReturnNULL "gtk_recent_manager_get_default" result diff --git a/GI/Gtk/Objects/RecentManager.hs-boot b/GI/Gtk/Objects/RecentManager.hs-boot --- a/GI/Gtk/Objects/RecentManager.hs-boot +++ b/GI/Gtk/Objects/RecentManager.hs-boot @@ -14,3 +14,11 @@ data RecentManagerFilenamePropertyInfo data RecentManagerSizePropertyInfo data RecentManagerChangedSignalInfo +data RecentManagerAddFullMethodInfo +data RecentManagerAddItemMethodInfo +data RecentManagerGetItemsMethodInfo +data RecentManagerHasItemMethodInfo +data RecentManagerLookupItemMethodInfo +data RecentManagerMoveItemMethodInfo +data RecentManagerPurgeItemsMethodInfo +data RecentManagerRemoveItemMethodInfo diff --git a/GI/Gtk/Objects/RendererCellAccessible.hs b/GI/Gtk/Objects/RendererCellAccessible.hs --- a/GI/Gtk/Objects/RendererCellAccessible.hs +++ b/GI/Gtk/Objects/RendererCellAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -66,6 +67,75 @@ noRendererCellAccessible :: Maybe RendererCellAccessible noRendererCellAccessible = Nothing +type family ResolveRendererCellAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveRendererCellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveRendererCellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRendererCellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRendererCellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveRendererCellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveRendererCellAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveRendererCellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRendererCellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRendererCellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveRendererCellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveRendererCellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRendererCellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRendererCellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRendererCellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveRendererCellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveRendererCellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRendererCellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveRendererCellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveRendererCellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveRendererCellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRendererCellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveRendererCellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveRendererCellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveRendererCellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveRendererCellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRendererCellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRendererCellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRendererCellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRendererCellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRendererCellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRendererCellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRendererCellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRendererCellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveRendererCellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveRendererCellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRendererCellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveRendererCellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveRendererCellAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveRendererCellAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveRendererCellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveRendererCellAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveRendererCellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveRendererCellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveRendererCellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveRendererCellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRendererCellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRendererCellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveRendererCellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveRendererCellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveRendererCellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRendererCellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveRendererCellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveRendererCellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveRendererCellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveRendererCellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRendererCellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveRendererCellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveRendererCellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveRendererCellAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRendererCellAccessibleMethod t RendererCellAccessible, MethodInfo info RendererCellAccessible p) => IsLabelProxy t (RendererCellAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRendererCellAccessibleMethod t RendererCellAccessible, MethodInfo info RendererCellAccessible p) => IsLabel t (RendererCellAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "renderer" -- Type: TInterface "Gtk" "CellRenderer" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] @@ -82,22 +152,21 @@ type AttrSetTypeConstraint RendererCellAccessibleRendererPropertyInfo = CellRendererK type AttrBaseTypeConstraint RendererCellAccessibleRendererPropertyInfo = RendererCellAccessibleK type AttrGetType RendererCellAccessibleRendererPropertyInfo = CellRenderer - type AttrLabel RendererCellAccessibleRendererPropertyInfo = "RendererCellAccessible::renderer" + type AttrLabel RendererCellAccessibleRendererPropertyInfo = "renderer" attrGet _ = getRendererCellAccessibleRenderer attrSet _ = undefined attrConstruct _ = constructRendererCellAccessibleRenderer type instance AttributeList RendererCellAccessible = RendererCellAccessibleAttributeList -type RendererCellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type RendererCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList RendererCellAccessible = RendererCellAccessibleSignalList -type RendererCellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RendererCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) -- method RendererCellAccessible::new -- method type : Constructor --- Args : [Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RendererCellAccessible" -- throws : False -- Skip return : False @@ -109,8 +178,8 @@ rendererCellAccessibleNew :: (MonadIO m, CellRendererK a) => - a -> -- renderer - m RendererCellAccessible + a -- renderer + -> m RendererCellAccessible -- result rendererCellAccessibleNew renderer = liftIO $ do let renderer' = unsafeManagedPtrCastPtr renderer result <- gtk_renderer_cell_accessible_new renderer' diff --git a/GI/Gtk/Objects/Revealer.hs b/GI/Gtk/Objects/Revealer.hs --- a/GI/Gtk/Objects/Revealer.hs +++ b/GI/Gtk/Objects/Revealer.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** revealerGetChildRevealed + RevealerGetChildRevealedMethodInfo , revealerGetChildRevealed , -- ** revealerGetRevealChild + RevealerGetRevealChildMethodInfo , revealerGetRevealChild , -- ** revealerGetTransitionDuration + RevealerGetTransitionDurationMethodInfo , revealerGetTransitionDuration , -- ** revealerGetTransitionType + RevealerGetTransitionTypeMethodInfo , revealerGetTransitionType , @@ -37,14 +42,17 @@ -- ** revealerSetRevealChild + RevealerSetRevealChildMethodInfo , revealerSetRevealChild , -- ** revealerSetTransitionDuration + RevealerSetTransitionDurationMethodInfo , revealerSetTransitionDuration , -- ** revealerSetTransitionType + RevealerSetTransitionTypeMethodInfo , revealerSetTransitionType , @@ -114,6 +122,336 @@ noRevealer :: Maybe Revealer noRevealer = Nothing +type family ResolveRevealerMethod (t :: Symbol) (o :: *) :: * where + ResolveRevealerMethod "activate" o = WidgetActivateMethodInfo + ResolveRevealerMethod "add" o = ContainerAddMethodInfo + ResolveRevealerMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveRevealerMethod "addChild" o = BuildableAddChildMethodInfo + ResolveRevealerMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveRevealerMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveRevealerMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveRevealerMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveRevealerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveRevealerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveRevealerMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveRevealerMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveRevealerMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveRevealerMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveRevealerMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveRevealerMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveRevealerMethod "childType" o = ContainerChildTypeMethodInfo + ResolveRevealerMethod "classPath" o = WidgetClassPathMethodInfo + ResolveRevealerMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveRevealerMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveRevealerMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveRevealerMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveRevealerMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveRevealerMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveRevealerMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveRevealerMethod "destroy" o = WidgetDestroyMethodInfo + ResolveRevealerMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveRevealerMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveRevealerMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveRevealerMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveRevealerMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveRevealerMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveRevealerMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveRevealerMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveRevealerMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveRevealerMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveRevealerMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveRevealerMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveRevealerMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveRevealerMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveRevealerMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveRevealerMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveRevealerMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveRevealerMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveRevealerMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveRevealerMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveRevealerMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveRevealerMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveRevealerMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveRevealerMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveRevealerMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveRevealerMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveRevealerMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveRevealerMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveRevealerMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveRevealerMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveRevealerMethod "draw" o = WidgetDrawMethodInfo + ResolveRevealerMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveRevealerMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveRevealerMethod "event" o = WidgetEventMethodInfo + ResolveRevealerMethod "forall" o = ContainerForallMethodInfo + ResolveRevealerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveRevealerMethod "foreach" o = ContainerForeachMethodInfo + ResolveRevealerMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveRevealerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveRevealerMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveRevealerMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveRevealerMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveRevealerMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveRevealerMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveRevealerMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveRevealerMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveRevealerMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveRevealerMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveRevealerMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveRevealerMethod "hide" o = WidgetHideMethodInfo + ResolveRevealerMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveRevealerMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveRevealerMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveRevealerMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveRevealerMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveRevealerMethod "intersect" o = WidgetIntersectMethodInfo + ResolveRevealerMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveRevealerMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveRevealerMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveRevealerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveRevealerMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveRevealerMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveRevealerMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveRevealerMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveRevealerMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveRevealerMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveRevealerMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveRevealerMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveRevealerMethod "map" o = WidgetMapMethodInfo + ResolveRevealerMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveRevealerMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveRevealerMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveRevealerMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveRevealerMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveRevealerMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveRevealerMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveRevealerMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveRevealerMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveRevealerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveRevealerMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveRevealerMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveRevealerMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveRevealerMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveRevealerMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveRevealerMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveRevealerMethod "path" o = WidgetPathMethodInfo + ResolveRevealerMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveRevealerMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveRevealerMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveRevealerMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveRevealerMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveRevealerMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveRevealerMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveRevealerMethod "realize" o = WidgetRealizeMethodInfo + ResolveRevealerMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveRevealerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveRevealerMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveRevealerMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveRevealerMethod "remove" o = ContainerRemoveMethodInfo + ResolveRevealerMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveRevealerMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveRevealerMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveRevealerMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveRevealerMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveRevealerMethod "reparent" o = WidgetReparentMethodInfo + ResolveRevealerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveRevealerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveRevealerMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveRevealerMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveRevealerMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveRevealerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveRevealerMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveRevealerMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveRevealerMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveRevealerMethod "show" o = WidgetShowMethodInfo + ResolveRevealerMethod "showAll" o = WidgetShowAllMethodInfo + ResolveRevealerMethod "showNow" o = WidgetShowNowMethodInfo + ResolveRevealerMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveRevealerMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveRevealerMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveRevealerMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveRevealerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveRevealerMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveRevealerMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveRevealerMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveRevealerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveRevealerMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveRevealerMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveRevealerMethod "unmap" o = WidgetUnmapMethodInfo + ResolveRevealerMethod "unparent" o = WidgetUnparentMethodInfo + ResolveRevealerMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveRevealerMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveRevealerMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveRevealerMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveRevealerMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveRevealerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveRevealerMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveRevealerMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveRevealerMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveRevealerMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveRevealerMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveRevealerMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveRevealerMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveRevealerMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveRevealerMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveRevealerMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveRevealerMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveRevealerMethod "getChild" o = BinGetChildMethodInfo + ResolveRevealerMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveRevealerMethod "getChildRevealed" o = RevealerGetChildRevealedMethodInfo + ResolveRevealerMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveRevealerMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveRevealerMethod "getClip" o = WidgetGetClipMethodInfo + ResolveRevealerMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveRevealerMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveRevealerMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveRevealerMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveRevealerMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveRevealerMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveRevealerMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveRevealerMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveRevealerMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveRevealerMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveRevealerMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveRevealerMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveRevealerMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveRevealerMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveRevealerMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveRevealerMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveRevealerMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveRevealerMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveRevealerMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveRevealerMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveRevealerMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveRevealerMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveRevealerMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveRevealerMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveRevealerMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveRevealerMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveRevealerMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveRevealerMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveRevealerMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveRevealerMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveRevealerMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveRevealerMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveRevealerMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveRevealerMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveRevealerMethod "getParent" o = WidgetGetParentMethodInfo + ResolveRevealerMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveRevealerMethod "getPath" o = WidgetGetPathMethodInfo + ResolveRevealerMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveRevealerMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveRevealerMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveRevealerMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveRevealerMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveRevealerMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveRevealerMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveRevealerMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveRevealerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveRevealerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveRevealerMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveRevealerMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveRevealerMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveRevealerMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveRevealerMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveRevealerMethod "getRevealChild" o = RevealerGetRevealChildMethodInfo + ResolveRevealerMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveRevealerMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveRevealerMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveRevealerMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveRevealerMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveRevealerMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveRevealerMethod "getState" o = WidgetGetStateMethodInfo + ResolveRevealerMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveRevealerMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveRevealerMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveRevealerMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveRevealerMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveRevealerMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveRevealerMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveRevealerMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveRevealerMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveRevealerMethod "getTransitionDuration" o = RevealerGetTransitionDurationMethodInfo + ResolveRevealerMethod "getTransitionType" o = RevealerGetTransitionTypeMethodInfo + ResolveRevealerMethod "getValign" o = WidgetGetValignMethodInfo + ResolveRevealerMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveRevealerMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveRevealerMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveRevealerMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveRevealerMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveRevealerMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveRevealerMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveRevealerMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveRevealerMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveRevealerMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveRevealerMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveRevealerMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveRevealerMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveRevealerMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveRevealerMethod "setClip" o = WidgetSetClipMethodInfo + ResolveRevealerMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveRevealerMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveRevealerMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveRevealerMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveRevealerMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveRevealerMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveRevealerMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveRevealerMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveRevealerMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveRevealerMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveRevealerMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveRevealerMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveRevealerMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveRevealerMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveRevealerMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveRevealerMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveRevealerMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveRevealerMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveRevealerMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveRevealerMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveRevealerMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveRevealerMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveRevealerMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveRevealerMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveRevealerMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveRevealerMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveRevealerMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveRevealerMethod "setParent" o = WidgetSetParentMethodInfo + ResolveRevealerMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveRevealerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveRevealerMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveRevealerMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveRevealerMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveRevealerMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveRevealerMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveRevealerMethod "setRevealChild" o = RevealerSetRevealChildMethodInfo + ResolveRevealerMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveRevealerMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveRevealerMethod "setState" o = WidgetSetStateMethodInfo + ResolveRevealerMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveRevealerMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveRevealerMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveRevealerMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveRevealerMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveRevealerMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveRevealerMethod "setTransitionDuration" o = RevealerSetTransitionDurationMethodInfo + ResolveRevealerMethod "setTransitionType" o = RevealerSetTransitionTypeMethodInfo + ResolveRevealerMethod "setValign" o = WidgetSetValignMethodInfo + ResolveRevealerMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveRevealerMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveRevealerMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveRevealerMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveRevealerMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveRevealerMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRevealerMethod t Revealer, MethodInfo info Revealer p) => IsLabelProxy t (Revealer -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRevealerMethod t Revealer, MethodInfo info Revealer p) => IsLabel t (Revealer -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "child-revealed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] @@ -127,7 +465,7 @@ type AttrSetTypeConstraint RevealerChildRevealedPropertyInfo = (~) () type AttrBaseTypeConstraint RevealerChildRevealedPropertyInfo = RevealerK type AttrGetType RevealerChildRevealedPropertyInfo = Bool - type AttrLabel RevealerChildRevealedPropertyInfo = "Revealer::child-revealed" + type AttrLabel RevealerChildRevealedPropertyInfo = "child-revealed" attrGet _ = getRevealerChildRevealed attrSet _ = undefined attrConstruct _ = undefined @@ -151,7 +489,7 @@ type AttrSetTypeConstraint RevealerRevealChildPropertyInfo = (~) Bool type AttrBaseTypeConstraint RevealerRevealChildPropertyInfo = RevealerK type AttrGetType RevealerRevealChildPropertyInfo = Bool - type AttrLabel RevealerRevealChildPropertyInfo = "Revealer::reveal-child" + type AttrLabel RevealerRevealChildPropertyInfo = "reveal-child" attrGet _ = getRevealerRevealChild attrSet _ = setRevealerRevealChild attrConstruct _ = constructRevealerRevealChild @@ -175,7 +513,7 @@ type AttrSetTypeConstraint RevealerTransitionDurationPropertyInfo = (~) Word32 type AttrBaseTypeConstraint RevealerTransitionDurationPropertyInfo = RevealerK type AttrGetType RevealerTransitionDurationPropertyInfo = Word32 - type AttrLabel RevealerTransitionDurationPropertyInfo = "Revealer::transition-duration" + type AttrLabel RevealerTransitionDurationPropertyInfo = "transition-duration" attrGet _ = getRevealerTransitionDuration attrSet _ = setRevealerTransitionDuration attrConstruct _ = constructRevealerTransitionDuration @@ -199,22 +537,21 @@ type AttrSetTypeConstraint RevealerTransitionTypePropertyInfo = (~) RevealerTransitionType type AttrBaseTypeConstraint RevealerTransitionTypePropertyInfo = RevealerK type AttrGetType RevealerTransitionTypePropertyInfo = RevealerTransitionType - type AttrLabel RevealerTransitionTypePropertyInfo = "Revealer::transition-type" + type AttrLabel RevealerTransitionTypePropertyInfo = "transition-type" attrGet _ = getRevealerTransitionType attrSet _ = setRevealerTransitionType attrConstruct _ = constructRevealerTransitionType type instance AttributeList Revealer = RevealerAttributeList -type RevealerAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("child-revealed", RevealerChildRevealedPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("reveal-child", RevealerRevealChildPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transition-duration", RevealerTransitionDurationPropertyInfo), '("transition-type", RevealerTransitionTypePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type RevealerAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("childRevealed", RevealerChildRevealedPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("revealChild", RevealerRevealChildPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionDuration", RevealerTransitionDurationPropertyInfo), '("transitionType", RevealerTransitionTypePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Revealer = RevealerSignalList -type RevealerSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type RevealerSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Revealer::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Revealer" -- throws : False -- Skip return : False @@ -225,7 +562,7 @@ revealerNew :: (MonadIO m) => - m Revealer + m Revealer -- result revealerNew = liftIO $ do result <- gtk_revealer_new checkUnexpectedReturnNULL "gtk_revealer_new" result @@ -234,9 +571,8 @@ -- method Revealer::get_child_revealed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -248,8 +584,8 @@ revealerGetChildRevealed :: (MonadIO m, RevealerK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result revealerGetChildRevealed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_revealer_get_child_revealed _obj' @@ -257,11 +593,14 @@ touchManagedPtr _obj return result' +data RevealerGetChildRevealedMethodInfo +instance (signature ~ (m Bool), MonadIO m, RevealerK a) => MethodInfo RevealerGetChildRevealedMethodInfo a signature where + overloadedMethod _ = revealerGetChildRevealed + -- method Revealer::get_reveal_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -273,8 +612,8 @@ revealerGetRevealChild :: (MonadIO m, RevealerK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result revealerGetRevealChild _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_revealer_get_reveal_child _obj' @@ -282,11 +621,14 @@ touchManagedPtr _obj return result' +data RevealerGetRevealChildMethodInfo +instance (signature ~ (m Bool), MonadIO m, RevealerK a) => MethodInfo RevealerGetRevealChildMethodInfo a signature where + overloadedMethod _ = revealerGetRevealChild + -- method Revealer::get_transition_duration -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -298,19 +640,22 @@ revealerGetTransitionDuration :: (MonadIO m, RevealerK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result revealerGetTransitionDuration _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_revealer_get_transition_duration _obj' touchManagedPtr _obj return result +data RevealerGetTransitionDurationMethodInfo +instance (signature ~ (m Word32), MonadIO m, RevealerK a) => MethodInfo RevealerGetTransitionDurationMethodInfo a signature where + overloadedMethod _ = revealerGetTransitionDuration + -- method Revealer::get_transition_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RevealerTransitionType" -- throws : False -- Skip return : False @@ -322,8 +667,8 @@ revealerGetTransitionType :: (MonadIO m, RevealerK a) => - a -> -- _obj - m RevealerTransitionType + a -- _obj + -> m RevealerTransitionType -- result revealerGetTransitionType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_revealer_get_transition_type _obj' @@ -331,11 +676,14 @@ touchManagedPtr _obj return result' +data RevealerGetTransitionTypeMethodInfo +instance (signature ~ (m RevealerTransitionType), MonadIO m, RevealerK a) => MethodInfo RevealerGetTransitionTypeMethodInfo a signature where + overloadedMethod _ = revealerGetTransitionType + -- method Revealer::set_reveal_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reveal_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reveal_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reveal_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -348,21 +696,24 @@ revealerSetRevealChild :: (MonadIO m, RevealerK a) => - a -> -- _obj - Bool -> -- reveal_child - m () -revealerSetRevealChild _obj reveal_child = liftIO $ do + a -- _obj + -> Bool -- revealChild + -> m () -- result +revealerSetRevealChild _obj revealChild = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let reveal_child' = (fromIntegral . fromEnum) reveal_child - gtk_revealer_set_reveal_child _obj' reveal_child' + let revealChild' = (fromIntegral . fromEnum) revealChild + gtk_revealer_set_reveal_child _obj' revealChild' touchManagedPtr _obj return () +data RevealerSetRevealChildMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, RevealerK a) => MethodInfo RevealerSetRevealChildMethodInfo a signature where + overloadedMethod _ = revealerSetRevealChild + -- method Revealer::set_transition_duration -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -375,20 +726,23 @@ revealerSetTransitionDuration :: (MonadIO m, RevealerK a) => - a -> -- _obj - Word32 -> -- duration - m () + a -- _obj + -> Word32 -- duration + -> m () -- result revealerSetTransitionDuration _obj duration = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_revealer_set_transition_duration _obj' duration touchManagedPtr _obj return () +data RevealerSetTransitionDurationMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, RevealerK a) => MethodInfo RevealerSetTransitionDurationMethodInfo a signature where + overloadedMethod _ = revealerSetTransitionDuration + -- method Revealer::set_transition_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "RevealerTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "transition", argType = TInterface "Gtk" "RevealerTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "RevealerTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -401,14 +755,18 @@ revealerSetTransitionType :: (MonadIO m, RevealerK a) => - a -> -- _obj - RevealerTransitionType -> -- transition - m () + a -- _obj + -> RevealerTransitionType -- transition + -> m () -- result revealerSetTransitionType _obj transition = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let transition' = (fromIntegral . fromEnum) transition gtk_revealer_set_transition_type _obj' transition' touchManagedPtr _obj return () + +data RevealerSetTransitionTypeMethodInfo +instance (signature ~ (RevealerTransitionType -> m ()), MonadIO m, RevealerK a) => MethodInfo RevealerSetTransitionTypeMethodInfo a signature where + overloadedMethod _ = revealerSetTransitionType diff --git a/GI/Gtk/Objects/Revealer.hs-boot b/GI/Gtk/Objects/Revealer.hs-boot --- a/GI/Gtk/Objects/Revealer.hs-boot +++ b/GI/Gtk/Objects/Revealer.hs-boot @@ -15,3 +15,10 @@ data RevealerRevealChildPropertyInfo data RevealerTransitionDurationPropertyInfo data RevealerTransitionTypePropertyInfo +data RevealerGetChildRevealedMethodInfo +data RevealerGetRevealChildMethodInfo +data RevealerGetTransitionDurationMethodInfo +data RevealerGetTransitionTypeMethodInfo +data RevealerSetRevealChildMethodInfo +data RevealerSetTransitionDurationMethodInfo +data RevealerSetTransitionTypeMethodInfo diff --git a/GI/Gtk/Objects/Scale.hs b/GI/Gtk/Objects/Scale.hs --- a/GI/Gtk/Objects/Scale.hs +++ b/GI/Gtk/Objects/Scale.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * Methods -- ** scaleAddMark + ScaleAddMarkMethodInfo , scaleAddMark , -- ** scaleClearMarks + ScaleClearMarksMethodInfo , scaleClearMarks , -- ** scaleGetDigits + ScaleGetDigitsMethodInfo , scaleGetDigits , -- ** scaleGetDrawValue + ScaleGetDrawValueMethodInfo , scaleGetDrawValue , -- ** scaleGetHasOrigin + ScaleGetHasOriginMethodInfo , scaleGetHasOrigin , -- ** scaleGetLayout + ScaleGetLayoutMethodInfo , scaleGetLayout , -- ** scaleGetLayoutOffsets + ScaleGetLayoutOffsetsMethodInfo , scaleGetLayoutOffsets , -- ** scaleGetValuePos + ScaleGetValuePosMethodInfo , scaleGetValuePos , @@ -57,18 +66,22 @@ -- ** scaleSetDigits + ScaleSetDigitsMethodInfo , scaleSetDigits , -- ** scaleSetDrawValue + ScaleSetDrawValueMethodInfo , scaleSetDrawValue , -- ** scaleSetHasOrigin + ScaleSetHasOriginMethodInfo , scaleSetHasOrigin , -- ** scaleSetValuePos + ScaleSetValuePosMethodInfo , scaleSetValuePos , @@ -156,6 +169,344 @@ noScale :: Maybe Scale noScale = Nothing +type family ResolveScaleMethod (t :: Symbol) (o :: *) :: * where + ResolveScaleMethod "activate" o = WidgetActivateMethodInfo + ResolveScaleMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveScaleMethod "addChild" o = BuildableAddChildMethodInfo + ResolveScaleMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveScaleMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveScaleMethod "addMark" o = ScaleAddMarkMethodInfo + ResolveScaleMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveScaleMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveScaleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveScaleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveScaleMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveScaleMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveScaleMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveScaleMethod "classPath" o = WidgetClassPathMethodInfo + ResolveScaleMethod "clearMarks" o = ScaleClearMarksMethodInfo + ResolveScaleMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveScaleMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveScaleMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveScaleMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveScaleMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveScaleMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveScaleMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveScaleMethod "destroy" o = WidgetDestroyMethodInfo + ResolveScaleMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveScaleMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveScaleMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveScaleMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveScaleMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveScaleMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveScaleMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveScaleMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveScaleMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveScaleMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveScaleMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveScaleMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveScaleMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveScaleMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveScaleMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveScaleMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveScaleMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveScaleMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveScaleMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveScaleMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveScaleMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveScaleMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveScaleMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveScaleMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveScaleMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveScaleMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveScaleMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveScaleMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveScaleMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveScaleMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveScaleMethod "draw" o = WidgetDrawMethodInfo + ResolveScaleMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveScaleMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveScaleMethod "event" o = WidgetEventMethodInfo + ResolveScaleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveScaleMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveScaleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveScaleMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveScaleMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveScaleMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveScaleMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveScaleMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveScaleMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveScaleMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveScaleMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveScaleMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveScaleMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveScaleMethod "hide" o = WidgetHideMethodInfo + ResolveScaleMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveScaleMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveScaleMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveScaleMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveScaleMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveScaleMethod "intersect" o = WidgetIntersectMethodInfo + ResolveScaleMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveScaleMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveScaleMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveScaleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveScaleMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveScaleMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveScaleMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveScaleMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveScaleMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveScaleMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveScaleMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveScaleMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveScaleMethod "map" o = WidgetMapMethodInfo + ResolveScaleMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveScaleMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveScaleMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveScaleMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveScaleMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveScaleMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveScaleMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveScaleMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveScaleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveScaleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveScaleMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveScaleMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveScaleMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveScaleMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveScaleMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveScaleMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveScaleMethod "path" o = WidgetPathMethodInfo + ResolveScaleMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveScaleMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveScaleMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveScaleMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveScaleMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveScaleMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveScaleMethod "realize" o = WidgetRealizeMethodInfo + ResolveScaleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveScaleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveScaleMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveScaleMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveScaleMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveScaleMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveScaleMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveScaleMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveScaleMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveScaleMethod "reparent" o = WidgetReparentMethodInfo + ResolveScaleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveScaleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveScaleMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveScaleMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveScaleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveScaleMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveScaleMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveScaleMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveScaleMethod "show" o = WidgetShowMethodInfo + ResolveScaleMethod "showAll" o = WidgetShowAllMethodInfo + ResolveScaleMethod "showNow" o = WidgetShowNowMethodInfo + ResolveScaleMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveScaleMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveScaleMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveScaleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveScaleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveScaleMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveScaleMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveScaleMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveScaleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveScaleMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveScaleMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveScaleMethod "unmap" o = WidgetUnmapMethodInfo + ResolveScaleMethod "unparent" o = WidgetUnparentMethodInfo + ResolveScaleMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveScaleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveScaleMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveScaleMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveScaleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveScaleMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveScaleMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveScaleMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo + ResolveScaleMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveScaleMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveScaleMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveScaleMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveScaleMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveScaleMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveScaleMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveScaleMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveScaleMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveScaleMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveScaleMethod "getClip" o = WidgetGetClipMethodInfo + ResolveScaleMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveScaleMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveScaleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveScaleMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveScaleMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveScaleMethod "getDigits" o = ScaleGetDigitsMethodInfo + ResolveScaleMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveScaleMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveScaleMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveScaleMethod "getDrawValue" o = ScaleGetDrawValueMethodInfo + ResolveScaleMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveScaleMethod "getFillLevel" o = RangeGetFillLevelMethodInfo + ResolveScaleMethod "getFlippable" o = RangeGetFlippableMethodInfo + ResolveScaleMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveScaleMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveScaleMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveScaleMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveScaleMethod "getHasOrigin" o = ScaleGetHasOriginMethodInfo + ResolveScaleMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveScaleMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveScaleMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveScaleMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveScaleMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveScaleMethod "getInverted" o = RangeGetInvertedMethodInfo + ResolveScaleMethod "getLayout" o = ScaleGetLayoutMethodInfo + ResolveScaleMethod "getLayoutOffsets" o = ScaleGetLayoutOffsetsMethodInfo + ResolveScaleMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo + ResolveScaleMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveScaleMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveScaleMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveScaleMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveScaleMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveScaleMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveScaleMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveScaleMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo + ResolveScaleMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveScaleMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveScaleMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveScaleMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveScaleMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveScaleMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveScaleMethod "getParent" o = WidgetGetParentMethodInfo + ResolveScaleMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveScaleMethod "getPath" o = WidgetGetPathMethodInfo + ResolveScaleMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveScaleMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveScaleMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveScaleMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveScaleMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveScaleMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveScaleMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveScaleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveScaleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveScaleMethod "getRangeRect" o = RangeGetRangeRectMethodInfo + ResolveScaleMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveScaleMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveScaleMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveScaleMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveScaleMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo + ResolveScaleMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveScaleMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo + ResolveScaleMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveScaleMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveScaleMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveScaleMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveScaleMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo + ResolveScaleMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveScaleMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo + ResolveScaleMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo + ResolveScaleMethod "getState" o = WidgetGetStateMethodInfo + ResolveScaleMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveScaleMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveScaleMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveScaleMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveScaleMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveScaleMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveScaleMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveScaleMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveScaleMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveScaleMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo + ResolveScaleMethod "getValign" o = WidgetGetValignMethodInfo + ResolveScaleMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveScaleMethod "getValue" o = RangeGetValueMethodInfo + ResolveScaleMethod "getValuePos" o = ScaleGetValuePosMethodInfo + ResolveScaleMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveScaleMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveScaleMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveScaleMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveScaleMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveScaleMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveScaleMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo + ResolveScaleMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveScaleMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveScaleMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveScaleMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveScaleMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveScaleMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveScaleMethod "setClip" o = WidgetSetClipMethodInfo + ResolveScaleMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveScaleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveScaleMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveScaleMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveScaleMethod "setDigits" o = ScaleSetDigitsMethodInfo + ResolveScaleMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveScaleMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveScaleMethod "setDrawValue" o = ScaleSetDrawValueMethodInfo + ResolveScaleMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveScaleMethod "setFillLevel" o = RangeSetFillLevelMethodInfo + ResolveScaleMethod "setFlippable" o = RangeSetFlippableMethodInfo + ResolveScaleMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveScaleMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveScaleMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveScaleMethod "setHasOrigin" o = ScaleSetHasOriginMethodInfo + ResolveScaleMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveScaleMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveScaleMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveScaleMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveScaleMethod "setIncrements" o = RangeSetIncrementsMethodInfo + ResolveScaleMethod "setInverted" o = RangeSetInvertedMethodInfo + ResolveScaleMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo + ResolveScaleMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveScaleMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveScaleMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveScaleMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveScaleMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveScaleMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveScaleMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveScaleMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo + ResolveScaleMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveScaleMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveScaleMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveScaleMethod "setParent" o = WidgetSetParentMethodInfo + ResolveScaleMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveScaleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveScaleMethod "setRange" o = RangeSetRangeMethodInfo + ResolveScaleMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveScaleMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveScaleMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveScaleMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo + ResolveScaleMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo + ResolveScaleMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveScaleMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo + ResolveScaleMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveScaleMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo + ResolveScaleMethod "setState" o = WidgetSetStateMethodInfo + ResolveScaleMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveScaleMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveScaleMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveScaleMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveScaleMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveScaleMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveScaleMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo + ResolveScaleMethod "setValign" o = WidgetSetValignMethodInfo + ResolveScaleMethod "setValue" o = RangeSetValueMethodInfo + ResolveScaleMethod "setValuePos" o = ScaleSetValuePosMethodInfo + ResolveScaleMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveScaleMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveScaleMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveScaleMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveScaleMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveScaleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveScaleMethod t Scale, MethodInfo info Scale p) => IsLabelProxy t (Scale -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveScaleMethod t Scale, MethodInfo info Scale p) => IsLabel t (Scale -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Scale::format-value type ScaleFormatValueCallback = Double -> @@ -219,7 +570,7 @@ type AttrSetTypeConstraint ScaleDigitsPropertyInfo = (~) Int32 type AttrBaseTypeConstraint ScaleDigitsPropertyInfo = ScaleK type AttrGetType ScaleDigitsPropertyInfo = Int32 - type AttrLabel ScaleDigitsPropertyInfo = "Scale::digits" + type AttrLabel ScaleDigitsPropertyInfo = "digits" attrGet _ = getScaleDigits attrSet _ = setScaleDigits attrConstruct _ = constructScaleDigits @@ -243,7 +594,7 @@ type AttrSetTypeConstraint ScaleDrawValuePropertyInfo = (~) Bool type AttrBaseTypeConstraint ScaleDrawValuePropertyInfo = ScaleK type AttrGetType ScaleDrawValuePropertyInfo = Bool - type AttrLabel ScaleDrawValuePropertyInfo = "Scale::draw-value" + type AttrLabel ScaleDrawValuePropertyInfo = "draw-value" attrGet _ = getScaleDrawValue attrSet _ = setScaleDrawValue attrConstruct _ = constructScaleDrawValue @@ -267,7 +618,7 @@ type AttrSetTypeConstraint ScaleHasOriginPropertyInfo = (~) Bool type AttrBaseTypeConstraint ScaleHasOriginPropertyInfo = ScaleK type AttrGetType ScaleHasOriginPropertyInfo = Bool - type AttrLabel ScaleHasOriginPropertyInfo = "Scale::has-origin" + type AttrLabel ScaleHasOriginPropertyInfo = "has-origin" attrGet _ = getScaleHasOrigin attrSet _ = setScaleHasOrigin attrConstruct _ = constructScaleHasOrigin @@ -291,13 +642,13 @@ type AttrSetTypeConstraint ScaleValuePosPropertyInfo = (~) PositionType type AttrBaseTypeConstraint ScaleValuePosPropertyInfo = ScaleK type AttrGetType ScaleValuePosPropertyInfo = PositionType - type AttrLabel ScaleValuePosPropertyInfo = "Scale::value-pos" + type AttrLabel ScaleValuePosPropertyInfo = "value-pos" attrGet _ = getScaleValuePos attrSet _ = setScaleValuePos attrConstruct _ = constructScaleValuePos type instance AttributeList Scale = ScaleAttributeList -type ScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-value", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-origin", ScaleHasOriginPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value-pos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawValue", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasOrigin", ScaleHasOriginPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("valuePos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data ScaleFormatValueSignalInfo instance SignalInfo ScaleFormatValueSignalInfo where @@ -305,13 +656,12 @@ connectSignal _ = connectScaleFormatValue type instance SignalList Scale = ScaleSignalList -type ScaleSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-value", ScaleFormatValueSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ScaleSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("formatValue", ScaleFormatValueSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Scale::new -- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Scale" -- throws : False -- Skip return : False @@ -324,9 +674,9 @@ scaleNew :: (MonadIO m, AdjustmentK a) => - Orientation -> -- orientation - Maybe (a) -> -- adjustment - m Scale + Orientation -- orientation + -> Maybe (a) -- adjustment + -> m Scale -- result scaleNew orientation adjustment = liftIO $ do let orientation' = (fromIntegral . fromEnum) orientation maybeAdjustment <- case adjustment of @@ -342,9 +692,8 @@ -- method Scale::new_with_range -- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Scale" -- throws : False -- Skip return : False @@ -359,11 +708,11 @@ scaleNewWithRange :: (MonadIO m) => - Orientation -> -- orientation - Double -> -- min - Double -> -- max - Double -> -- step - m Scale + Orientation -- orientation + -> Double -- min + -> Double -- max + -> Double -- step + -> m Scale -- result scaleNewWithRange orientation min max step = liftIO $ do let orientation' = (fromIntegral . fromEnum) orientation let min' = realToFrac min @@ -376,9 +725,8 @@ -- method Scale::add_mark -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -393,11 +741,11 @@ scaleAddMark :: (MonadIO m, ScaleK a) => - a -> -- _obj - Double -> -- value - PositionType -> -- position - Maybe (T.Text) -> -- markup - m () + a -- _obj + -> Double -- value + -> PositionType -- position + -> Maybe (T.Text) -- markup + -> m () -- result scaleAddMark _obj value position markup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = realToFrac value @@ -412,11 +760,14 @@ freeMem maybeMarkup return () +data ScaleAddMarkMethodInfo +instance (signature ~ (Double -> PositionType -> Maybe (T.Text) -> m ()), MonadIO m, ScaleK a) => MethodInfo ScaleAddMarkMethodInfo a signature where + overloadedMethod _ = scaleAddMark + -- method Scale::clear_marks -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -428,19 +779,22 @@ scaleClearMarks :: (MonadIO m, ScaleK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result scaleClearMarks _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_scale_clear_marks _obj' touchManagedPtr _obj return () +data ScaleClearMarksMethodInfo +instance (signature ~ (m ()), MonadIO m, ScaleK a) => MethodInfo ScaleClearMarksMethodInfo a signature where + overloadedMethod _ = scaleClearMarks + -- method Scale::get_digits -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -452,19 +806,22 @@ scaleGetDigits :: (MonadIO m, ScaleK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result scaleGetDigits _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scale_get_digits _obj' touchManagedPtr _obj return result +data ScaleGetDigitsMethodInfo +instance (signature ~ (m Int32), MonadIO m, ScaleK a) => MethodInfo ScaleGetDigitsMethodInfo a signature where + overloadedMethod _ = scaleGetDigits + -- method Scale::get_draw_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -476,8 +833,8 @@ scaleGetDrawValue :: (MonadIO m, ScaleK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result scaleGetDrawValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scale_get_draw_value _obj' @@ -485,11 +842,14 @@ touchManagedPtr _obj return result' +data ScaleGetDrawValueMethodInfo +instance (signature ~ (m Bool), MonadIO m, ScaleK a) => MethodInfo ScaleGetDrawValueMethodInfo a signature where + overloadedMethod _ = scaleGetDrawValue + -- method Scale::get_has_origin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -501,8 +861,8 @@ scaleGetHasOrigin :: (MonadIO m, ScaleK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result scaleGetHasOrigin _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scale_get_has_origin _obj' @@ -510,11 +870,14 @@ touchManagedPtr _obj return result' +data ScaleGetHasOriginMethodInfo +instance (signature ~ (m Bool), MonadIO m, ScaleK a) => MethodInfo ScaleGetHasOriginMethodInfo a signature where + overloadedMethod _ = scaleGetHasOrigin + -- method Scale::get_layout -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "Layout" -- throws : False -- Skip return : False @@ -526,8 +889,8 @@ scaleGetLayout :: (MonadIO m, ScaleK a) => - a -> -- _obj - m Pango.Layout + a -- _obj + -> m Pango.Layout -- result scaleGetLayout _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scale_get_layout _obj' @@ -536,11 +899,14 @@ touchManagedPtr _obj return result' +data ScaleGetLayoutMethodInfo +instance (signature ~ (m Pango.Layout), MonadIO m, ScaleK a) => MethodInfo ScaleGetLayoutMethodInfo a signature where + overloadedMethod _ = scaleGetLayout + -- method Scale::get_layout_offsets -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -554,8 +920,8 @@ scaleGetLayoutOffsets :: (MonadIO m, ScaleK a) => - a -> -- _obj - m (Int32,Int32) + a -- _obj + -> m (Int32,Int32) -- result scaleGetLayoutOffsets _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj x <- allocMem :: IO (Ptr Int32) @@ -568,11 +934,14 @@ freeMem y return (x', y') +data ScaleGetLayoutOffsetsMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, ScaleK a) => MethodInfo ScaleGetLayoutOffsetsMethodInfo a signature where + overloadedMethod _ = scaleGetLayoutOffsets + -- method Scale::get_value_pos -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PositionType" -- throws : False -- Skip return : False @@ -584,8 +953,8 @@ scaleGetValuePos :: (MonadIO m, ScaleK a) => - a -> -- _obj - m PositionType + a -- _obj + -> m PositionType -- result scaleGetValuePos _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scale_get_value_pos _obj' @@ -593,11 +962,14 @@ touchManagedPtr _obj return result' +data ScaleGetValuePosMethodInfo +instance (signature ~ (m PositionType), MonadIO m, ScaleK a) => MethodInfo ScaleGetValuePosMethodInfo a signature where + overloadedMethod _ = scaleGetValuePos + -- method Scale::set_digits -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -610,20 +982,23 @@ scaleSetDigits :: (MonadIO m, ScaleK a) => - a -> -- _obj - Int32 -> -- digits - m () + a -- _obj + -> Int32 -- digits + -> m () -- result scaleSetDigits _obj digits = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_scale_set_digits _obj' digits touchManagedPtr _obj return () +data ScaleSetDigitsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ScaleK a) => MethodInfo ScaleSetDigitsMethodInfo a signature where + overloadedMethod _ = scaleSetDigits + -- method Scale::set_draw_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -636,21 +1011,24 @@ scaleSetDrawValue :: (MonadIO m, ScaleK a) => - a -> -- _obj - Bool -> -- draw_value - m () -scaleSetDrawValue _obj draw_value = liftIO $ do + a -- _obj + -> Bool -- drawValue + -> m () -- result +scaleSetDrawValue _obj drawValue = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let draw_value' = (fromIntegral . fromEnum) draw_value - gtk_scale_set_draw_value _obj' draw_value' + let drawValue' = (fromIntegral . fromEnum) drawValue + gtk_scale_set_draw_value _obj' drawValue' touchManagedPtr _obj return () +data ScaleSetDrawValueMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ScaleK a) => MethodInfo ScaleSetDrawValueMethodInfo a signature where + overloadedMethod _ = scaleSetDrawValue + -- method Scale::set_has_origin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_origin", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_origin", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_origin", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -663,21 +1041,24 @@ scaleSetHasOrigin :: (MonadIO m, ScaleK a) => - a -> -- _obj - Bool -> -- has_origin - m () -scaleSetHasOrigin _obj has_origin = liftIO $ do + a -- _obj + -> Bool -- hasOrigin + -> m () -- result +scaleSetHasOrigin _obj hasOrigin = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let has_origin' = (fromIntegral . fromEnum) has_origin - gtk_scale_set_has_origin _obj' has_origin' + let hasOrigin' = (fromIntegral . fromEnum) hasOrigin + gtk_scale_set_has_origin _obj' hasOrigin' touchManagedPtr _obj return () +data ScaleSetHasOriginMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ScaleK a) => MethodInfo ScaleSetHasOriginMethodInfo a signature where + overloadedMethod _ = scaleSetHasOrigin + -- method Scale::set_value_pos -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -690,14 +1071,18 @@ scaleSetValuePos :: (MonadIO m, ScaleK a) => - a -> -- _obj - PositionType -> -- pos - m () + a -- _obj + -> PositionType -- pos + -> m () -- result scaleSetValuePos _obj pos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let pos' = (fromIntegral . fromEnum) pos gtk_scale_set_value_pos _obj' pos' touchManagedPtr _obj return () + +data ScaleSetValuePosMethodInfo +instance (signature ~ (PositionType -> m ()), MonadIO m, ScaleK a) => MethodInfo ScaleSetValuePosMethodInfo a signature where + overloadedMethod _ = scaleSetValuePos diff --git a/GI/Gtk/Objects/Scale.hs-boot b/GI/Gtk/Objects/Scale.hs-boot --- a/GI/Gtk/Objects/Scale.hs-boot +++ b/GI/Gtk/Objects/Scale.hs-boot @@ -16,3 +16,15 @@ data ScaleHasOriginPropertyInfo data ScaleValuePosPropertyInfo data ScaleFormatValueSignalInfo +data ScaleAddMarkMethodInfo +data ScaleClearMarksMethodInfo +data ScaleGetDigitsMethodInfo +data ScaleGetDrawValueMethodInfo +data ScaleGetHasOriginMethodInfo +data ScaleGetLayoutMethodInfo +data ScaleGetLayoutOffsetsMethodInfo +data ScaleGetValuePosMethodInfo +data ScaleSetDigitsMethodInfo +data ScaleSetDrawValueMethodInfo +data ScaleSetHasOriginMethodInfo +data ScaleSetValuePosMethodInfo diff --git a/GI/Gtk/Objects/ScaleAccessible.hs b/GI/Gtk/Objects/ScaleAccessible.hs --- a/GI/Gtk/Objects/ScaleAccessible.hs +++ b/GI/Gtk/Objects/ScaleAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,88 @@ noScaleAccessible :: Maybe ScaleAccessible noScaleAccessible = Nothing +type family ResolveScaleAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveScaleAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveScaleAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveScaleAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveScaleAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveScaleAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveScaleAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveScaleAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveScaleAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveScaleAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveScaleAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveScaleAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveScaleAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveScaleAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveScaleAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveScaleAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveScaleAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveScaleAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveScaleAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveScaleAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveScaleAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveScaleAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveScaleAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveScaleAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveScaleAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveScaleAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveScaleAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveScaleAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveScaleAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveScaleAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveScaleAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveScaleAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveScaleAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveScaleAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveScaleAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo + ResolveScaleAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveScaleAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveScaleAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveScaleAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo + ResolveScaleAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveScaleAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo + ResolveScaleAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo + ResolveScaleAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo + ResolveScaleAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveScaleAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveScaleAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveScaleAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveScaleAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveScaleAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveScaleAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveScaleAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo + ResolveScaleAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveScaleAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveScaleAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo + ResolveScaleAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo + ResolveScaleAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveScaleAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo + ResolveScaleAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveScaleAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveScaleAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveScaleAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveScaleAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveScaleAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveScaleAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveScaleAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveScaleAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveScaleAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo + ResolveScaleAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveScaleAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveScaleAccessibleMethod t ScaleAccessible, MethodInfo info ScaleAccessible p) => IsLabelProxy t (ScaleAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveScaleAccessibleMethod t ScaleAccessible, MethodInfo info ScaleAccessible p) => IsLabel t (ScaleAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ScaleAccessible = ScaleAccessibleAttributeList -type ScaleAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ScaleAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ScaleAccessible = ScaleAccessibleSignalList -type ScaleAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ScaleAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/ScaleButton.hs b/GI/Gtk/Objects/ScaleButton.hs --- a/GI/Gtk/Objects/ScaleButton.hs +++ b/GI/Gtk/Objects/ScaleButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** scaleButtonGetAdjustment + ScaleButtonGetAdjustmentMethodInfo , scaleButtonGetAdjustment , -- ** scaleButtonGetMinusButton + ScaleButtonGetMinusButtonMethodInfo , scaleButtonGetMinusButton , -- ** scaleButtonGetPlusButton + ScaleButtonGetPlusButtonMethodInfo , scaleButtonGetPlusButton , -- ** scaleButtonGetPopup + ScaleButtonGetPopupMethodInfo , scaleButtonGetPopup , -- ** scaleButtonGetValue + ScaleButtonGetValueMethodInfo , scaleButtonGetValue , @@ -41,14 +47,17 @@ -- ** scaleButtonSetAdjustment + ScaleButtonSetAdjustmentMethodInfo , scaleButtonSetAdjustment , -- ** scaleButtonSetIcons + ScaleButtonSetIconsMethodInfo , scaleButtonSetIcons , -- ** scaleButtonSetValue + ScaleButtonSetValueMethodInfo , scaleButtonSetValue , @@ -159,6 +168,374 @@ noScaleButton :: Maybe ScaleButton noScaleButton = Nothing +type family ResolveScaleButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveScaleButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveScaleButtonMethod "add" o = ContainerAddMethodInfo + ResolveScaleButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveScaleButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveScaleButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveScaleButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveScaleButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveScaleButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveScaleButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveScaleButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveScaleButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveScaleButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveScaleButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveScaleButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveScaleButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveScaleButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveScaleButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveScaleButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveScaleButtonMethod "clicked" o = ButtonClickedMethodInfo + ResolveScaleButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveScaleButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveScaleButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveScaleButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveScaleButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveScaleButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveScaleButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveScaleButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveScaleButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveScaleButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveScaleButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveScaleButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveScaleButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveScaleButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveScaleButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveScaleButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveScaleButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveScaleButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveScaleButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveScaleButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveScaleButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveScaleButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveScaleButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveScaleButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveScaleButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveScaleButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveScaleButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveScaleButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveScaleButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveScaleButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveScaleButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveScaleButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveScaleButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveScaleButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveScaleButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveScaleButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveScaleButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveScaleButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveScaleButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveScaleButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveScaleButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveScaleButtonMethod "enter" o = ButtonEnterMethodInfo + ResolveScaleButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveScaleButtonMethod "event" o = WidgetEventMethodInfo + ResolveScaleButtonMethod "forall" o = ContainerForallMethodInfo + ResolveScaleButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveScaleButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveScaleButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveScaleButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveScaleButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveScaleButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveScaleButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveScaleButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveScaleButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveScaleButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveScaleButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveScaleButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveScaleButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveScaleButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveScaleButtonMethod "hide" o = WidgetHideMethodInfo + ResolveScaleButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveScaleButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveScaleButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveScaleButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveScaleButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveScaleButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveScaleButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveScaleButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveScaleButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveScaleButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveScaleButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveScaleButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveScaleButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveScaleButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveScaleButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveScaleButtonMethod "leave" o = ButtonLeaveMethodInfo + ResolveScaleButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveScaleButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveScaleButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveScaleButtonMethod "map" o = WidgetMapMethodInfo + ResolveScaleButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveScaleButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveScaleButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveScaleButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveScaleButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveScaleButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveScaleButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveScaleButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveScaleButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveScaleButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveScaleButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveScaleButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveScaleButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveScaleButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveScaleButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveScaleButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveScaleButtonMethod "path" o = WidgetPathMethodInfo + ResolveScaleButtonMethod "pressed" o = ButtonPressedMethodInfo + ResolveScaleButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveScaleButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveScaleButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveScaleButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveScaleButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveScaleButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveScaleButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveScaleButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveScaleButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveScaleButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveScaleButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveScaleButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveScaleButtonMethod "released" o = ButtonReleasedMethodInfo + ResolveScaleButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveScaleButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveScaleButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveScaleButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveScaleButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveScaleButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveScaleButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveScaleButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveScaleButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveScaleButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveScaleButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveScaleButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveScaleButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveScaleButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveScaleButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveScaleButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveScaleButtonMethod "show" o = WidgetShowMethodInfo + ResolveScaleButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveScaleButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveScaleButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveScaleButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveScaleButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveScaleButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveScaleButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveScaleButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveScaleButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveScaleButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveScaleButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveScaleButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveScaleButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveScaleButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveScaleButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveScaleButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveScaleButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveScaleButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveScaleButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveScaleButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveScaleButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveScaleButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveScaleButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveScaleButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveScaleButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveScaleButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveScaleButtonMethod "getAdjustment" o = ScaleButtonGetAdjustmentMethodInfo + ResolveScaleButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo + ResolveScaleButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveScaleButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveScaleButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveScaleButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveScaleButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo + ResolveScaleButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveScaleButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveScaleButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveScaleButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveScaleButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveScaleButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveScaleButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveScaleButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveScaleButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveScaleButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveScaleButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveScaleButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveScaleButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveScaleButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveScaleButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveScaleButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveScaleButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveScaleButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveScaleButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo + ResolveScaleButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveScaleButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveScaleButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveScaleButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveScaleButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo + ResolveScaleButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveScaleButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveScaleButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveScaleButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveScaleButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveScaleButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveScaleButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveScaleButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveScaleButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveScaleButtonMethod "getImage" o = ButtonGetImageMethodInfo + ResolveScaleButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo + ResolveScaleButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveScaleButtonMethod "getLabel" o = ButtonGetLabelMethodInfo + ResolveScaleButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveScaleButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveScaleButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveScaleButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveScaleButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveScaleButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveScaleButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveScaleButtonMethod "getMinusButton" o = ScaleButtonGetMinusButtonMethodInfo + ResolveScaleButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveScaleButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveScaleButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveScaleButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveScaleButtonMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveScaleButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveScaleButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveScaleButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveScaleButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveScaleButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveScaleButtonMethod "getPlusButton" o = ScaleButtonGetPlusButtonMethodInfo + ResolveScaleButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveScaleButtonMethod "getPopup" o = ScaleButtonGetPopupMethodInfo + ResolveScaleButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveScaleButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveScaleButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveScaleButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveScaleButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveScaleButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveScaleButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveScaleButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveScaleButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveScaleButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveScaleButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveScaleButtonMethod "getRelief" o = ButtonGetReliefMethodInfo + ResolveScaleButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveScaleButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveScaleButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveScaleButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveScaleButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveScaleButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveScaleButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveScaleButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveScaleButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveScaleButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveScaleButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveScaleButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveScaleButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveScaleButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveScaleButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveScaleButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveScaleButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveScaleButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveScaleButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveScaleButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveScaleButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo + ResolveScaleButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo + ResolveScaleButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveScaleButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveScaleButtonMethod "getValue" o = ScaleButtonGetValueMethodInfo + ResolveScaleButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveScaleButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveScaleButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveScaleButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveScaleButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveScaleButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveScaleButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveScaleButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveScaleButtonMethod "setAdjustment" o = ScaleButtonSetAdjustmentMethodInfo + ResolveScaleButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo + ResolveScaleButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveScaleButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo + ResolveScaleButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveScaleButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveScaleButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveScaleButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveScaleButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveScaleButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveScaleButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveScaleButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveScaleButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveScaleButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveScaleButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveScaleButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveScaleButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveScaleButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveScaleButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveScaleButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveScaleButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveScaleButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveScaleButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo + ResolveScaleButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveScaleButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveScaleButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveScaleButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveScaleButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveScaleButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveScaleButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveScaleButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveScaleButtonMethod "setIcons" o = ScaleButtonSetIconsMethodInfo + ResolveScaleButtonMethod "setImage" o = ButtonSetImageMethodInfo + ResolveScaleButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo + ResolveScaleButtonMethod "setLabel" o = ButtonSetLabelMethodInfo + ResolveScaleButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveScaleButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveScaleButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveScaleButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveScaleButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveScaleButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveScaleButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveScaleButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveScaleButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveScaleButtonMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveScaleButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveScaleButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveScaleButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveScaleButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveScaleButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveScaleButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveScaleButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveScaleButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveScaleButtonMethod "setRelief" o = ButtonSetReliefMethodInfo + ResolveScaleButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveScaleButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveScaleButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveScaleButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveScaleButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveScaleButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveScaleButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveScaleButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveScaleButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveScaleButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveScaleButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveScaleButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo + ResolveScaleButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo + ResolveScaleButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveScaleButtonMethod "setValue" o = ScaleButtonSetValueMethodInfo + ResolveScaleButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveScaleButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveScaleButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveScaleButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveScaleButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveScaleButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveScaleButtonMethod t ScaleButton, MethodInfo info ScaleButton p) => IsLabelProxy t (ScaleButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveScaleButtonMethod t ScaleButton, MethodInfo info ScaleButton p) => IsLabel t (ScaleButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ScaleButton::popdown type ScaleButtonPopdownCallback = IO () @@ -296,7 +673,7 @@ type AttrSetTypeConstraint ScaleButtonAdjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint ScaleButtonAdjustmentPropertyInfo = ScaleButtonK type AttrGetType ScaleButtonAdjustmentPropertyInfo = Adjustment - type AttrLabel ScaleButtonAdjustmentPropertyInfo = "ScaleButton::adjustment" + type AttrLabel ScaleButtonAdjustmentPropertyInfo = "adjustment" attrGet _ = getScaleButtonAdjustment attrSet _ = setScaleButtonAdjustment attrConstruct _ = constructScaleButtonAdjustment @@ -320,7 +697,7 @@ type AttrSetTypeConstraint ScaleButtonIconsPropertyInfo = (~) [T.Text] type AttrBaseTypeConstraint ScaleButtonIconsPropertyInfo = ScaleButtonK type AttrGetType ScaleButtonIconsPropertyInfo = [T.Text] - type AttrLabel ScaleButtonIconsPropertyInfo = "ScaleButton::icons" + type AttrLabel ScaleButtonIconsPropertyInfo = "icons" attrGet _ = getScaleButtonIcons attrSet _ = setScaleButtonIcons attrConstruct _ = constructScaleButtonIcons @@ -344,7 +721,7 @@ type AttrSetTypeConstraint ScaleButtonSizePropertyInfo = (~) IconSize type AttrBaseTypeConstraint ScaleButtonSizePropertyInfo = ScaleButtonK type AttrGetType ScaleButtonSizePropertyInfo = IconSize - type AttrLabel ScaleButtonSizePropertyInfo = "ScaleButton::size" + type AttrLabel ScaleButtonSizePropertyInfo = "size" attrGet _ = getScaleButtonSize attrSet _ = setScaleButtonSize attrConstruct _ = constructScaleButtonSize @@ -368,13 +745,13 @@ type AttrSetTypeConstraint ScaleButtonValuePropertyInfo = (~) Double type AttrBaseTypeConstraint ScaleButtonValuePropertyInfo = ScaleButtonK type AttrGetType ScaleButtonValuePropertyInfo = Double - type AttrLabel ScaleButtonValuePropertyInfo = "ScaleButton::value" + type AttrLabel ScaleButtonValuePropertyInfo = "value" attrGet _ = getScaleButtonValue attrSet _ = setScaleButtonValue attrConstruct _ = constructScaleButtonValue type instance AttributeList ScaleButton = ScaleButtonAttributeList -type ScaleButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icons", ScaleButtonIconsPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("size", ScaleButtonSizePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +type ScaleButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("icons", ScaleButtonIconsPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("size", ScaleButtonSizePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) data ScaleButtonPopdownSignalInfo instance SignalInfo ScaleButtonPopdownSignalInfo where @@ -392,13 +769,12 @@ connectSignal _ = connectScaleButtonValueChanged type instance SignalList ScaleButton = ScaleButtonSignalList -type ScaleButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ScaleButtonPopdownSignalInfo), '("popup", ScaleButtonPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", ScaleButtonValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ScaleButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popdown", ScaleButtonPopdownSignalInfo), '("popup", ScaleButtonPopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", ScaleButtonValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ScaleButton::new -- method type : Constructor --- Args : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ScaleButton" -- throws : False -- Skip return : False @@ -414,12 +790,12 @@ scaleButtonNew :: (MonadIO m) => - Int32 -> -- size - Double -> -- min - Double -> -- max - Double -> -- step - Maybe ([T.Text]) -> -- icons - m ScaleButton + Int32 -- size + -> Double -- min + -> Double -- max + -> Double -- step + -> Maybe ([T.Text]) -- icons + -> m ScaleButton -- result scaleButtonNew size min max step icons = liftIO $ do let min' = realToFrac min let max' = realToFrac max @@ -438,9 +814,8 @@ -- method ScaleButton::get_adjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -452,8 +827,8 @@ scaleButtonGetAdjustment :: (MonadIO m, ScaleButtonK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result scaleButtonGetAdjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scale_button_get_adjustment _obj' @@ -462,11 +837,14 @@ touchManagedPtr _obj return result' +data ScaleButtonGetAdjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonGetAdjustmentMethodInfo a signature where + overloadedMethod _ = scaleButtonGetAdjustment + -- method ScaleButton::get_minus_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Button" -- throws : False -- Skip return : False @@ -478,8 +856,8 @@ scaleButtonGetMinusButton :: (MonadIO m, ScaleButtonK a) => - a -> -- _obj - m Button + a -- _obj + -> m Button -- result scaleButtonGetMinusButton _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scale_button_get_minus_button _obj' @@ -488,11 +866,14 @@ touchManagedPtr _obj return result' +data ScaleButtonGetMinusButtonMethodInfo +instance (signature ~ (m Button), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonGetMinusButtonMethodInfo a signature where + overloadedMethod _ = scaleButtonGetMinusButton + -- method ScaleButton::get_plus_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Button" -- throws : False -- Skip return : False @@ -504,8 +885,8 @@ scaleButtonGetPlusButton :: (MonadIO m, ScaleButtonK a) => - a -> -- _obj - m Button + a -- _obj + -> m Button -- result scaleButtonGetPlusButton _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scale_button_get_plus_button _obj' @@ -514,11 +895,14 @@ touchManagedPtr _obj return result' +data ScaleButtonGetPlusButtonMethodInfo +instance (signature ~ (m Button), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonGetPlusButtonMethodInfo a signature where + overloadedMethod _ = scaleButtonGetPlusButton + -- method ScaleButton::get_popup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -530,8 +914,8 @@ scaleButtonGetPopup :: (MonadIO m, ScaleButtonK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result scaleButtonGetPopup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scale_button_get_popup _obj' @@ -540,11 +924,14 @@ touchManagedPtr _obj return result' +data ScaleButtonGetPopupMethodInfo +instance (signature ~ (m Widget), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonGetPopupMethodInfo a signature where + overloadedMethod _ = scaleButtonGetPopup + -- method ScaleButton::get_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -556,8 +943,8 @@ scaleButtonGetValue :: (MonadIO m, ScaleButtonK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result scaleButtonGetValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scale_button_get_value _obj' @@ -565,11 +952,14 @@ touchManagedPtr _obj return result' +data ScaleButtonGetValueMethodInfo +instance (signature ~ (m Double), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonGetValueMethodInfo a signature where + overloadedMethod _ = scaleButtonGetValue + -- method ScaleButton::set_adjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -582,9 +972,9 @@ scaleButtonSetAdjustment :: (MonadIO m, ScaleButtonK a, AdjustmentK b) => - a -> -- _obj - b -> -- adjustment - m () + a -- _obj + -> b -- adjustment + -> m () -- result scaleButtonSetAdjustment _obj adjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let adjustment' = unsafeManagedPtrCastPtr adjustment @@ -593,11 +983,14 @@ touchManagedPtr adjustment return () +data ScaleButtonSetAdjustmentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ScaleButtonK a, AdjustmentK b) => MethodInfo ScaleButtonSetAdjustmentMethodInfo a signature where + overloadedMethod _ = scaleButtonSetAdjustment + -- method ScaleButton::set_icons -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -610,9 +1003,9 @@ scaleButtonSetIcons :: (MonadIO m, ScaleButtonK a) => - a -> -- _obj - [T.Text] -> -- icons - m () + a -- _obj + -> [T.Text] -- icons + -> m () -- result scaleButtonSetIcons _obj icons = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj icons' <- packZeroTerminatedUTF8CArray icons @@ -622,11 +1015,14 @@ freeMem icons' return () +data ScaleButtonSetIconsMethodInfo +instance (signature ~ ([T.Text] -> m ()), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonSetIconsMethodInfo a signature where + overloadedMethod _ = scaleButtonSetIcons + -- method ScaleButton::set_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -639,14 +1035,18 @@ scaleButtonSetValue :: (MonadIO m, ScaleButtonK a) => - a -> -- _obj - Double -> -- value - m () + a -- _obj + -> Double -- value + -> m () -- result scaleButtonSetValue _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = realToFrac value gtk_scale_button_set_value _obj' value' touchManagedPtr _obj return () + +data ScaleButtonSetValueMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, ScaleButtonK a) => MethodInfo ScaleButtonSetValueMethodInfo a signature where + overloadedMethod _ = scaleButtonSetValue diff --git a/GI/Gtk/Objects/ScaleButton.hs-boot b/GI/Gtk/Objects/ScaleButton.hs-boot --- a/GI/Gtk/Objects/ScaleButton.hs-boot +++ b/GI/Gtk/Objects/ScaleButton.hs-boot @@ -18,3 +18,11 @@ data ScaleButtonPopdownSignalInfo data ScaleButtonPopupSignalInfo data ScaleButtonValueChangedSignalInfo +data ScaleButtonGetAdjustmentMethodInfo +data ScaleButtonGetMinusButtonMethodInfo +data ScaleButtonGetPlusButtonMethodInfo +data ScaleButtonGetPopupMethodInfo +data ScaleButtonGetValueMethodInfo +data ScaleButtonSetAdjustmentMethodInfo +data ScaleButtonSetIconsMethodInfo +data ScaleButtonSetValueMethodInfo diff --git a/GI/Gtk/Objects/ScaleButtonAccessible.hs b/GI/Gtk/Objects/ScaleButtonAccessible.hs --- a/GI/Gtk/Objects/ScaleButtonAccessible.hs +++ b/GI/Gtk/Objects/ScaleButtonAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,94 @@ noScaleButtonAccessible :: Maybe ScaleButtonAccessible noScaleButtonAccessible = Nothing +type family ResolveScaleButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveScaleButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveScaleButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveScaleButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveScaleButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveScaleButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveScaleButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveScaleButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveScaleButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveScaleButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveScaleButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveScaleButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveScaleButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveScaleButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveScaleButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveScaleButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveScaleButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveScaleButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveScaleButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveScaleButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveScaleButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveScaleButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveScaleButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveScaleButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveScaleButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveScaleButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveScaleButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveScaleButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveScaleButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveScaleButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveScaleButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveScaleButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveScaleButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveScaleButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveScaleButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveScaleButtonAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo + ResolveScaleButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveScaleButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveScaleButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo + ResolveScaleButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo + ResolveScaleButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo + ResolveScaleButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo + ResolveScaleButtonAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo + ResolveScaleButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveScaleButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveScaleButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveScaleButtonAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo + ResolveScaleButtonAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo + ResolveScaleButtonAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo + ResolveScaleButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveScaleButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveScaleButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveScaleButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveScaleButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveScaleButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveScaleButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveScaleButtonAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo + ResolveScaleButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveScaleButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveScaleButtonAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo + ResolveScaleButtonAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo + ResolveScaleButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveScaleButtonAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo + ResolveScaleButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveScaleButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveScaleButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo + ResolveScaleButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveScaleButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveScaleButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveScaleButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveScaleButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveScaleButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveScaleButtonAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo + ResolveScaleButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveScaleButtonAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveScaleButtonAccessibleMethod t ScaleButtonAccessible, MethodInfo info ScaleButtonAccessible p) => IsLabelProxy t (ScaleButtonAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveScaleButtonAccessibleMethod t ScaleButtonAccessible, MethodInfo info ScaleButtonAccessible p) => IsLabel t (ScaleButtonAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ScaleButtonAccessible = ScaleButtonAccessibleAttributeList -type ScaleButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ScaleButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ScaleButtonAccessible = ScaleButtonAccessibleSignalList -type ScaleButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ScaleButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/Scrollbar.hs b/GI/Gtk/Objects/Scrollbar.hs --- a/GI/Gtk/Objects/Scrollbar.hs +++ b/GI/Gtk/Objects/Scrollbar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,342 @@ noScrollbar :: Maybe Scrollbar noScrollbar = Nothing +type family ResolveScrollbarMethod (t :: Symbol) (o :: *) :: * where + ResolveScrollbarMethod "activate" o = WidgetActivateMethodInfo + ResolveScrollbarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveScrollbarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveScrollbarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveScrollbarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveScrollbarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveScrollbarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveScrollbarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveScrollbarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveScrollbarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveScrollbarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveScrollbarMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveScrollbarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveScrollbarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveScrollbarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveScrollbarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveScrollbarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveScrollbarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveScrollbarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveScrollbarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveScrollbarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveScrollbarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveScrollbarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveScrollbarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveScrollbarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveScrollbarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveScrollbarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveScrollbarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveScrollbarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveScrollbarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveScrollbarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveScrollbarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveScrollbarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveScrollbarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveScrollbarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveScrollbarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveScrollbarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveScrollbarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveScrollbarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveScrollbarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveScrollbarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveScrollbarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveScrollbarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveScrollbarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveScrollbarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveScrollbarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveScrollbarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveScrollbarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveScrollbarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveScrollbarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveScrollbarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveScrollbarMethod "draw" o = WidgetDrawMethodInfo + ResolveScrollbarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveScrollbarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveScrollbarMethod "event" o = WidgetEventMethodInfo + ResolveScrollbarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveScrollbarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveScrollbarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveScrollbarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveScrollbarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveScrollbarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveScrollbarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveScrollbarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveScrollbarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveScrollbarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveScrollbarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveScrollbarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveScrollbarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveScrollbarMethod "hide" o = WidgetHideMethodInfo + ResolveScrollbarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveScrollbarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveScrollbarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveScrollbarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveScrollbarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveScrollbarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveScrollbarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveScrollbarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveScrollbarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveScrollbarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveScrollbarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveScrollbarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveScrollbarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveScrollbarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveScrollbarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveScrollbarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveScrollbarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveScrollbarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveScrollbarMethod "map" o = WidgetMapMethodInfo + ResolveScrollbarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveScrollbarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveScrollbarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveScrollbarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveScrollbarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveScrollbarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveScrollbarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveScrollbarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveScrollbarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveScrollbarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveScrollbarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveScrollbarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveScrollbarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveScrollbarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveScrollbarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveScrollbarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveScrollbarMethod "path" o = WidgetPathMethodInfo + ResolveScrollbarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveScrollbarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveScrollbarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveScrollbarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveScrollbarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveScrollbarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveScrollbarMethod "realize" o = WidgetRealizeMethodInfo + ResolveScrollbarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveScrollbarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveScrollbarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveScrollbarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveScrollbarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveScrollbarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveScrollbarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveScrollbarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveScrollbarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveScrollbarMethod "reparent" o = WidgetReparentMethodInfo + ResolveScrollbarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveScrollbarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveScrollbarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveScrollbarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveScrollbarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveScrollbarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveScrollbarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveScrollbarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveScrollbarMethod "show" o = WidgetShowMethodInfo + ResolveScrollbarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveScrollbarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveScrollbarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveScrollbarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveScrollbarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveScrollbarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveScrollbarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveScrollbarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveScrollbarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveScrollbarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveScrollbarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveScrollbarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveScrollbarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveScrollbarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveScrollbarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveScrollbarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveScrollbarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveScrollbarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveScrollbarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveScrollbarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveScrollbarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveScrollbarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveScrollbarMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo + ResolveScrollbarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveScrollbarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveScrollbarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveScrollbarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveScrollbarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveScrollbarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveScrollbarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveScrollbarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveScrollbarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveScrollbarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveScrollbarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveScrollbarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveScrollbarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveScrollbarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveScrollbarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveScrollbarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveScrollbarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveScrollbarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveScrollbarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveScrollbarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveScrollbarMethod "getFillLevel" o = RangeGetFillLevelMethodInfo + ResolveScrollbarMethod "getFlippable" o = RangeGetFlippableMethodInfo + ResolveScrollbarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveScrollbarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveScrollbarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveScrollbarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveScrollbarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveScrollbarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveScrollbarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveScrollbarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveScrollbarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveScrollbarMethod "getInverted" o = RangeGetInvertedMethodInfo + ResolveScrollbarMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo + ResolveScrollbarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveScrollbarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveScrollbarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveScrollbarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveScrollbarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveScrollbarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveScrollbarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveScrollbarMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo + ResolveScrollbarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveScrollbarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveScrollbarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveScrollbarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveScrollbarMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveScrollbarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveScrollbarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveScrollbarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveScrollbarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveScrollbarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveScrollbarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveScrollbarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveScrollbarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveScrollbarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveScrollbarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveScrollbarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveScrollbarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveScrollbarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveScrollbarMethod "getRangeRect" o = RangeGetRangeRectMethodInfo + ResolveScrollbarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveScrollbarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveScrollbarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveScrollbarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveScrollbarMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo + ResolveScrollbarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveScrollbarMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo + ResolveScrollbarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveScrollbarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveScrollbarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveScrollbarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveScrollbarMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo + ResolveScrollbarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveScrollbarMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo + ResolveScrollbarMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo + ResolveScrollbarMethod "getState" o = WidgetGetStateMethodInfo + ResolveScrollbarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveScrollbarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveScrollbarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveScrollbarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveScrollbarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveScrollbarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveScrollbarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveScrollbarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveScrollbarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveScrollbarMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo + ResolveScrollbarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveScrollbarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveScrollbarMethod "getValue" o = RangeGetValueMethodInfo + ResolveScrollbarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveScrollbarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveScrollbarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveScrollbarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveScrollbarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveScrollbarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveScrollbarMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo + ResolveScrollbarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveScrollbarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveScrollbarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveScrollbarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveScrollbarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveScrollbarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveScrollbarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveScrollbarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveScrollbarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveScrollbarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveScrollbarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveScrollbarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveScrollbarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveScrollbarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveScrollbarMethod "setFillLevel" o = RangeSetFillLevelMethodInfo + ResolveScrollbarMethod "setFlippable" o = RangeSetFlippableMethodInfo + ResolveScrollbarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveScrollbarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveScrollbarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveScrollbarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveScrollbarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveScrollbarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveScrollbarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveScrollbarMethod "setIncrements" o = RangeSetIncrementsMethodInfo + ResolveScrollbarMethod "setInverted" o = RangeSetInvertedMethodInfo + ResolveScrollbarMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo + ResolveScrollbarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveScrollbarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveScrollbarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveScrollbarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveScrollbarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveScrollbarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveScrollbarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveScrollbarMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo + ResolveScrollbarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveScrollbarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveScrollbarMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveScrollbarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveScrollbarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveScrollbarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveScrollbarMethod "setRange" o = RangeSetRangeMethodInfo + ResolveScrollbarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveScrollbarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveScrollbarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveScrollbarMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo + ResolveScrollbarMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo + ResolveScrollbarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveScrollbarMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo + ResolveScrollbarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveScrollbarMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo + ResolveScrollbarMethod "setState" o = WidgetSetStateMethodInfo + ResolveScrollbarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveScrollbarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveScrollbarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveScrollbarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveScrollbarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveScrollbarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveScrollbarMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo + ResolveScrollbarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveScrollbarMethod "setValue" o = RangeSetValueMethodInfo + ResolveScrollbarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveScrollbarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveScrollbarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveScrollbarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveScrollbarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveScrollbarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveScrollbarMethod t Scrollbar, MethodInfo info Scrollbar p) => IsLabelProxy t (Scrollbar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveScrollbarMethod t Scrollbar, MethodInfo info Scrollbar p) => IsLabel t (Scrollbar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList Scrollbar = ScrollbarAttributeList -type ScrollbarAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ScrollbarAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Scrollbar = ScrollbarSignalList -type ScrollbarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ScrollbarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Scrollbar::new -- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Scrollbar" -- throws : False -- Skip return : False @@ -80,9 +406,9 @@ scrollbarNew :: (MonadIO m, AdjustmentK a) => - Orientation -> -- orientation - Maybe (a) -> -- adjustment - m Scrollbar + Orientation -- orientation + -> Maybe (a) -- adjustment + -> m Scrollbar -- result scrollbarNew orientation adjustment = liftIO $ do let orientation' = (fromIntegral . fromEnum) orientation maybeAdjustment <- case adjustment of diff --git a/GI/Gtk/Objects/ScrolledWindow.hs b/GI/Gtk/Objects/ScrolledWindow.hs --- a/GI/Gtk/Objects/ScrolledWindow.hs +++ b/GI/Gtk/Objects/ScrolledWindow.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,54 +18,67 @@ -- * Methods -- ** scrolledWindowAddWithViewport + ScrolledWindowAddWithViewportMethodInfo , scrolledWindowAddWithViewport , -- ** scrolledWindowGetCaptureButtonPress + ScrolledWindowGetCaptureButtonPressMethodInfo, scrolledWindowGetCaptureButtonPress , -- ** scrolledWindowGetHadjustment + ScrolledWindowGetHadjustmentMethodInfo , scrolledWindowGetHadjustment , -- ** scrolledWindowGetHscrollbar + ScrolledWindowGetHscrollbarMethodInfo , scrolledWindowGetHscrollbar , -- ** scrolledWindowGetKineticScrolling + ScrolledWindowGetKineticScrollingMethodInfo, scrolledWindowGetKineticScrolling , -- ** scrolledWindowGetMinContentHeight + ScrolledWindowGetMinContentHeightMethodInfo, scrolledWindowGetMinContentHeight , -- ** scrolledWindowGetMinContentWidth + ScrolledWindowGetMinContentWidthMethodInfo, scrolledWindowGetMinContentWidth , -- ** scrolledWindowGetOverlayScrolling + ScrolledWindowGetOverlayScrollingMethodInfo, scrolledWindowGetOverlayScrolling , -- ** scrolledWindowGetPlacement + ScrolledWindowGetPlacementMethodInfo , scrolledWindowGetPlacement , -- ** scrolledWindowGetPolicy + ScrolledWindowGetPolicyMethodInfo , scrolledWindowGetPolicy , -- ** scrolledWindowGetShadowType + ScrolledWindowGetShadowTypeMethodInfo , scrolledWindowGetShadowType , -- ** scrolledWindowGetVadjustment + ScrolledWindowGetVadjustmentMethodInfo , scrolledWindowGetVadjustment , -- ** scrolledWindowGetVscrollbar + ScrolledWindowGetVscrollbarMethodInfo , scrolledWindowGetVscrollbar , @@ -73,46 +87,57 @@ -- ** scrolledWindowSetCaptureButtonPress + ScrolledWindowSetCaptureButtonPressMethodInfo, scrolledWindowSetCaptureButtonPress , -- ** scrolledWindowSetHadjustment + ScrolledWindowSetHadjustmentMethodInfo , scrolledWindowSetHadjustment , -- ** scrolledWindowSetKineticScrolling + ScrolledWindowSetKineticScrollingMethodInfo, scrolledWindowSetKineticScrolling , -- ** scrolledWindowSetMinContentHeight + ScrolledWindowSetMinContentHeightMethodInfo, scrolledWindowSetMinContentHeight , -- ** scrolledWindowSetMinContentWidth + ScrolledWindowSetMinContentWidthMethodInfo, scrolledWindowSetMinContentWidth , -- ** scrolledWindowSetOverlayScrolling + ScrolledWindowSetOverlayScrollingMethodInfo, scrolledWindowSetOverlayScrolling , -- ** scrolledWindowSetPlacement + ScrolledWindowSetPlacementMethodInfo , scrolledWindowSetPlacement , -- ** scrolledWindowSetPolicy + ScrolledWindowSetPolicyMethodInfo , scrolledWindowSetPolicy , -- ** scrolledWindowSetShadowType + ScrolledWindowSetShadowTypeMethodInfo , scrolledWindowSetShadowType , -- ** scrolledWindowSetVadjustment + ScrolledWindowSetVadjustmentMethodInfo , scrolledWindowSetVadjustment , -- ** scrolledWindowUnsetPlacement + ScrolledWindowUnsetPlacementMethodInfo , scrolledWindowUnsetPlacement , @@ -284,6 +309,353 @@ noScrolledWindow :: Maybe ScrolledWindow noScrolledWindow = Nothing +type family ResolveScrolledWindowMethod (t :: Symbol) (o :: *) :: * where + ResolveScrolledWindowMethod "activate" o = WidgetActivateMethodInfo + ResolveScrolledWindowMethod "add" o = ContainerAddMethodInfo + ResolveScrolledWindowMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveScrolledWindowMethod "addChild" o = BuildableAddChildMethodInfo + ResolveScrolledWindowMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveScrolledWindowMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveScrolledWindowMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveScrolledWindowMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveScrolledWindowMethod "addWithViewport" o = ScrolledWindowAddWithViewportMethodInfo + ResolveScrolledWindowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveScrolledWindowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveScrolledWindowMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveScrolledWindowMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveScrolledWindowMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveScrolledWindowMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveScrolledWindowMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveScrolledWindowMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveScrolledWindowMethod "childType" o = ContainerChildTypeMethodInfo + ResolveScrolledWindowMethod "classPath" o = WidgetClassPathMethodInfo + ResolveScrolledWindowMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveScrolledWindowMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveScrolledWindowMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveScrolledWindowMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveScrolledWindowMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveScrolledWindowMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveScrolledWindowMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveScrolledWindowMethod "destroy" o = WidgetDestroyMethodInfo + ResolveScrolledWindowMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveScrolledWindowMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveScrolledWindowMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveScrolledWindowMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveScrolledWindowMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveScrolledWindowMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveScrolledWindowMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveScrolledWindowMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveScrolledWindowMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveScrolledWindowMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveScrolledWindowMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveScrolledWindowMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveScrolledWindowMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveScrolledWindowMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveScrolledWindowMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveScrolledWindowMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveScrolledWindowMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveScrolledWindowMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveScrolledWindowMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveScrolledWindowMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveScrolledWindowMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveScrolledWindowMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveScrolledWindowMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveScrolledWindowMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveScrolledWindowMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveScrolledWindowMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveScrolledWindowMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveScrolledWindowMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveScrolledWindowMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveScrolledWindowMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveScrolledWindowMethod "draw" o = WidgetDrawMethodInfo + ResolveScrolledWindowMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveScrolledWindowMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveScrolledWindowMethod "event" o = WidgetEventMethodInfo + ResolveScrolledWindowMethod "forall" o = ContainerForallMethodInfo + ResolveScrolledWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveScrolledWindowMethod "foreach" o = ContainerForeachMethodInfo + ResolveScrolledWindowMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveScrolledWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveScrolledWindowMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveScrolledWindowMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveScrolledWindowMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveScrolledWindowMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveScrolledWindowMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveScrolledWindowMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveScrolledWindowMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveScrolledWindowMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveScrolledWindowMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveScrolledWindowMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveScrolledWindowMethod "hide" o = WidgetHideMethodInfo + ResolveScrolledWindowMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveScrolledWindowMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveScrolledWindowMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveScrolledWindowMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveScrolledWindowMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveScrolledWindowMethod "intersect" o = WidgetIntersectMethodInfo + ResolveScrolledWindowMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveScrolledWindowMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveScrolledWindowMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveScrolledWindowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveScrolledWindowMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveScrolledWindowMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveScrolledWindowMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveScrolledWindowMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveScrolledWindowMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveScrolledWindowMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveScrolledWindowMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveScrolledWindowMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveScrolledWindowMethod "map" o = WidgetMapMethodInfo + ResolveScrolledWindowMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveScrolledWindowMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveScrolledWindowMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveScrolledWindowMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveScrolledWindowMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveScrolledWindowMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveScrolledWindowMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveScrolledWindowMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveScrolledWindowMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveScrolledWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveScrolledWindowMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveScrolledWindowMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveScrolledWindowMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveScrolledWindowMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveScrolledWindowMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveScrolledWindowMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveScrolledWindowMethod "path" o = WidgetPathMethodInfo + ResolveScrolledWindowMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveScrolledWindowMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveScrolledWindowMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveScrolledWindowMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveScrolledWindowMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveScrolledWindowMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveScrolledWindowMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveScrolledWindowMethod "realize" o = WidgetRealizeMethodInfo + ResolveScrolledWindowMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveScrolledWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveScrolledWindowMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveScrolledWindowMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveScrolledWindowMethod "remove" o = ContainerRemoveMethodInfo + ResolveScrolledWindowMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveScrolledWindowMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveScrolledWindowMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveScrolledWindowMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveScrolledWindowMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveScrolledWindowMethod "reparent" o = WidgetReparentMethodInfo + ResolveScrolledWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveScrolledWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveScrolledWindowMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveScrolledWindowMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveScrolledWindowMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveScrolledWindowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveScrolledWindowMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveScrolledWindowMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveScrolledWindowMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveScrolledWindowMethod "show" o = WidgetShowMethodInfo + ResolveScrolledWindowMethod "showAll" o = WidgetShowAllMethodInfo + ResolveScrolledWindowMethod "showNow" o = WidgetShowNowMethodInfo + ResolveScrolledWindowMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveScrolledWindowMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveScrolledWindowMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveScrolledWindowMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveScrolledWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveScrolledWindowMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveScrolledWindowMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveScrolledWindowMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveScrolledWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveScrolledWindowMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveScrolledWindowMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveScrolledWindowMethod "unmap" o = WidgetUnmapMethodInfo + ResolveScrolledWindowMethod "unparent" o = WidgetUnparentMethodInfo + ResolveScrolledWindowMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveScrolledWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveScrolledWindowMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveScrolledWindowMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveScrolledWindowMethod "unsetPlacement" o = ScrolledWindowUnsetPlacementMethodInfo + ResolveScrolledWindowMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveScrolledWindowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveScrolledWindowMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveScrolledWindowMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveScrolledWindowMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveScrolledWindowMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveScrolledWindowMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveScrolledWindowMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveScrolledWindowMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveScrolledWindowMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveScrolledWindowMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveScrolledWindowMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveScrolledWindowMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveScrolledWindowMethod "getCaptureButtonPress" o = ScrolledWindowGetCaptureButtonPressMethodInfo + ResolveScrolledWindowMethod "getChild" o = BinGetChildMethodInfo + ResolveScrolledWindowMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveScrolledWindowMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveScrolledWindowMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveScrolledWindowMethod "getClip" o = WidgetGetClipMethodInfo + ResolveScrolledWindowMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveScrolledWindowMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveScrolledWindowMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveScrolledWindowMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveScrolledWindowMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveScrolledWindowMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveScrolledWindowMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveScrolledWindowMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveScrolledWindowMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveScrolledWindowMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveScrolledWindowMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveScrolledWindowMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveScrolledWindowMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveScrolledWindowMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveScrolledWindowMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveScrolledWindowMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveScrolledWindowMethod "getHadjustment" o = ScrolledWindowGetHadjustmentMethodInfo + ResolveScrolledWindowMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveScrolledWindowMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveScrolledWindowMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveScrolledWindowMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveScrolledWindowMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveScrolledWindowMethod "getHscrollbar" o = ScrolledWindowGetHscrollbarMethodInfo + ResolveScrolledWindowMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveScrolledWindowMethod "getKineticScrolling" o = ScrolledWindowGetKineticScrollingMethodInfo + ResolveScrolledWindowMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveScrolledWindowMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveScrolledWindowMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveScrolledWindowMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveScrolledWindowMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveScrolledWindowMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveScrolledWindowMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveScrolledWindowMethod "getMinContentHeight" o = ScrolledWindowGetMinContentHeightMethodInfo + ResolveScrolledWindowMethod "getMinContentWidth" o = ScrolledWindowGetMinContentWidthMethodInfo + ResolveScrolledWindowMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveScrolledWindowMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveScrolledWindowMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveScrolledWindowMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveScrolledWindowMethod "getOverlayScrolling" o = ScrolledWindowGetOverlayScrollingMethodInfo + ResolveScrolledWindowMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveScrolledWindowMethod "getParent" o = WidgetGetParentMethodInfo + ResolveScrolledWindowMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveScrolledWindowMethod "getPath" o = WidgetGetPathMethodInfo + ResolveScrolledWindowMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveScrolledWindowMethod "getPlacement" o = ScrolledWindowGetPlacementMethodInfo + ResolveScrolledWindowMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveScrolledWindowMethod "getPolicy" o = ScrolledWindowGetPolicyMethodInfo + ResolveScrolledWindowMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveScrolledWindowMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveScrolledWindowMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveScrolledWindowMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveScrolledWindowMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveScrolledWindowMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveScrolledWindowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveScrolledWindowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveScrolledWindowMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveScrolledWindowMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveScrolledWindowMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveScrolledWindowMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveScrolledWindowMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveScrolledWindowMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveScrolledWindowMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveScrolledWindowMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveScrolledWindowMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveScrolledWindowMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveScrolledWindowMethod "getShadowType" o = ScrolledWindowGetShadowTypeMethodInfo + ResolveScrolledWindowMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveScrolledWindowMethod "getState" o = WidgetGetStateMethodInfo + ResolveScrolledWindowMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveScrolledWindowMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveScrolledWindowMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveScrolledWindowMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveScrolledWindowMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveScrolledWindowMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveScrolledWindowMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveScrolledWindowMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveScrolledWindowMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveScrolledWindowMethod "getVadjustment" o = ScrolledWindowGetVadjustmentMethodInfo + ResolveScrolledWindowMethod "getValign" o = WidgetGetValignMethodInfo + ResolveScrolledWindowMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveScrolledWindowMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveScrolledWindowMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveScrolledWindowMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveScrolledWindowMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveScrolledWindowMethod "getVscrollbar" o = ScrolledWindowGetVscrollbarMethodInfo + ResolveScrolledWindowMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveScrolledWindowMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveScrolledWindowMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveScrolledWindowMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveScrolledWindowMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveScrolledWindowMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveScrolledWindowMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveScrolledWindowMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveScrolledWindowMethod "setCaptureButtonPress" o = ScrolledWindowSetCaptureButtonPressMethodInfo + ResolveScrolledWindowMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveScrolledWindowMethod "setClip" o = WidgetSetClipMethodInfo + ResolveScrolledWindowMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveScrolledWindowMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveScrolledWindowMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveScrolledWindowMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveScrolledWindowMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveScrolledWindowMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveScrolledWindowMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveScrolledWindowMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveScrolledWindowMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveScrolledWindowMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveScrolledWindowMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveScrolledWindowMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveScrolledWindowMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveScrolledWindowMethod "setHadjustment" o = ScrolledWindowSetHadjustmentMethodInfo + ResolveScrolledWindowMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveScrolledWindowMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveScrolledWindowMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveScrolledWindowMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveScrolledWindowMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveScrolledWindowMethod "setKineticScrolling" o = ScrolledWindowSetKineticScrollingMethodInfo + ResolveScrolledWindowMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveScrolledWindowMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveScrolledWindowMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveScrolledWindowMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveScrolledWindowMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveScrolledWindowMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveScrolledWindowMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveScrolledWindowMethod "setMinContentHeight" o = ScrolledWindowSetMinContentHeightMethodInfo + ResolveScrolledWindowMethod "setMinContentWidth" o = ScrolledWindowSetMinContentWidthMethodInfo + ResolveScrolledWindowMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveScrolledWindowMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveScrolledWindowMethod "setOverlayScrolling" o = ScrolledWindowSetOverlayScrollingMethodInfo + ResolveScrolledWindowMethod "setParent" o = WidgetSetParentMethodInfo + ResolveScrolledWindowMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveScrolledWindowMethod "setPlacement" o = ScrolledWindowSetPlacementMethodInfo + ResolveScrolledWindowMethod "setPolicy" o = ScrolledWindowSetPolicyMethodInfo + ResolveScrolledWindowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveScrolledWindowMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveScrolledWindowMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveScrolledWindowMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveScrolledWindowMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveScrolledWindowMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveScrolledWindowMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveScrolledWindowMethod "setShadowType" o = ScrolledWindowSetShadowTypeMethodInfo + ResolveScrolledWindowMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveScrolledWindowMethod "setState" o = WidgetSetStateMethodInfo + ResolveScrolledWindowMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveScrolledWindowMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveScrolledWindowMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveScrolledWindowMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveScrolledWindowMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveScrolledWindowMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveScrolledWindowMethod "setVadjustment" o = ScrolledWindowSetVadjustmentMethodInfo + ResolveScrolledWindowMethod "setValign" o = WidgetSetValignMethodInfo + ResolveScrolledWindowMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveScrolledWindowMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveScrolledWindowMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveScrolledWindowMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveScrolledWindowMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveScrolledWindowMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveScrolledWindowMethod t ScrolledWindow, MethodInfo info ScrolledWindow p) => IsLabelProxy t (ScrolledWindow -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveScrolledWindowMethod t ScrolledWindow, MethodInfo info ScrolledWindow p) => IsLabel t (ScrolledWindow -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ScrolledWindow::edge-overshot type ScrolledWindowEdgeOvershotCallback = PositionType -> @@ -395,9 +767,9 @@ CUInt -> Ptr () -> IO () -scrolledWindowMoveFocusOutCallbackWrapper _cb _ direction_type _ = do - let direction_type' = (toEnum . fromIntegral) direction_type - _cb direction_type' +scrolledWindowMoveFocusOutCallbackWrapper _cb _ directionType _ = do + let directionType' = (toEnum . fromIntegral) directionType + _cb directionType' onScrolledWindowMoveFocusOut :: (GObject a, MonadIO m) => a -> ScrolledWindowMoveFocusOutCallback -> m SignalHandlerId onScrolledWindowMoveFocusOut obj cb = liftIO $ connectScrolledWindowMoveFocusOut obj cb SignalConnectBefore @@ -477,7 +849,7 @@ type AttrSetTypeConstraint ScrolledWindowHadjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint ScrolledWindowHadjustmentPropertyInfo = ScrolledWindowK type AttrGetType ScrolledWindowHadjustmentPropertyInfo = Adjustment - type AttrLabel ScrolledWindowHadjustmentPropertyInfo = "ScrolledWindow::hadjustment" + type AttrLabel ScrolledWindowHadjustmentPropertyInfo = "hadjustment" attrGet _ = getScrolledWindowHadjustment attrSet _ = setScrolledWindowHadjustment attrConstruct _ = constructScrolledWindowHadjustment @@ -501,7 +873,7 @@ type AttrSetTypeConstraint ScrolledWindowHscrollbarPolicyPropertyInfo = (~) PolicyType type AttrBaseTypeConstraint ScrolledWindowHscrollbarPolicyPropertyInfo = ScrolledWindowK type AttrGetType ScrolledWindowHscrollbarPolicyPropertyInfo = PolicyType - type AttrLabel ScrolledWindowHscrollbarPolicyPropertyInfo = "ScrolledWindow::hscrollbar-policy" + type AttrLabel ScrolledWindowHscrollbarPolicyPropertyInfo = "hscrollbar-policy" attrGet _ = getScrolledWindowHscrollbarPolicy attrSet _ = setScrolledWindowHscrollbarPolicy attrConstruct _ = constructScrolledWindowHscrollbarPolicy @@ -525,7 +897,7 @@ type AttrSetTypeConstraint ScrolledWindowKineticScrollingPropertyInfo = (~) Bool type AttrBaseTypeConstraint ScrolledWindowKineticScrollingPropertyInfo = ScrolledWindowK type AttrGetType ScrolledWindowKineticScrollingPropertyInfo = Bool - type AttrLabel ScrolledWindowKineticScrollingPropertyInfo = "ScrolledWindow::kinetic-scrolling" + type AttrLabel ScrolledWindowKineticScrollingPropertyInfo = "kinetic-scrolling" attrGet _ = getScrolledWindowKineticScrolling attrSet _ = setScrolledWindowKineticScrolling attrConstruct _ = constructScrolledWindowKineticScrolling @@ -549,7 +921,7 @@ type AttrSetTypeConstraint ScrolledWindowMinContentHeightPropertyInfo = (~) Int32 type AttrBaseTypeConstraint ScrolledWindowMinContentHeightPropertyInfo = ScrolledWindowK type AttrGetType ScrolledWindowMinContentHeightPropertyInfo = Int32 - type AttrLabel ScrolledWindowMinContentHeightPropertyInfo = "ScrolledWindow::min-content-height" + type AttrLabel ScrolledWindowMinContentHeightPropertyInfo = "min-content-height" attrGet _ = getScrolledWindowMinContentHeight attrSet _ = setScrolledWindowMinContentHeight attrConstruct _ = constructScrolledWindowMinContentHeight @@ -573,7 +945,7 @@ type AttrSetTypeConstraint ScrolledWindowMinContentWidthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint ScrolledWindowMinContentWidthPropertyInfo = ScrolledWindowK type AttrGetType ScrolledWindowMinContentWidthPropertyInfo = Int32 - type AttrLabel ScrolledWindowMinContentWidthPropertyInfo = "ScrolledWindow::min-content-width" + type AttrLabel ScrolledWindowMinContentWidthPropertyInfo = "min-content-width" attrGet _ = getScrolledWindowMinContentWidth attrSet _ = setScrolledWindowMinContentWidth attrConstruct _ = constructScrolledWindowMinContentWidth @@ -597,7 +969,7 @@ type AttrSetTypeConstraint ScrolledWindowOverlayScrollingPropertyInfo = (~) Bool type AttrBaseTypeConstraint ScrolledWindowOverlayScrollingPropertyInfo = ScrolledWindowK type AttrGetType ScrolledWindowOverlayScrollingPropertyInfo = Bool - type AttrLabel ScrolledWindowOverlayScrollingPropertyInfo = "ScrolledWindow::overlay-scrolling" + type AttrLabel ScrolledWindowOverlayScrollingPropertyInfo = "overlay-scrolling" attrGet _ = getScrolledWindowOverlayScrolling attrSet _ = setScrolledWindowOverlayScrolling attrConstruct _ = constructScrolledWindowOverlayScrolling @@ -621,7 +993,7 @@ type AttrSetTypeConstraint ScrolledWindowShadowTypePropertyInfo = (~) ShadowType type AttrBaseTypeConstraint ScrolledWindowShadowTypePropertyInfo = ScrolledWindowK type AttrGetType ScrolledWindowShadowTypePropertyInfo = ShadowType - type AttrLabel ScrolledWindowShadowTypePropertyInfo = "ScrolledWindow::shadow-type" + type AttrLabel ScrolledWindowShadowTypePropertyInfo = "shadow-type" attrGet _ = getScrolledWindowShadowType attrSet _ = setScrolledWindowShadowType attrConstruct _ = constructScrolledWindowShadowType @@ -645,7 +1017,7 @@ type AttrSetTypeConstraint ScrolledWindowVadjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint ScrolledWindowVadjustmentPropertyInfo = ScrolledWindowK type AttrGetType ScrolledWindowVadjustmentPropertyInfo = Adjustment - type AttrLabel ScrolledWindowVadjustmentPropertyInfo = "ScrolledWindow::vadjustment" + type AttrLabel ScrolledWindowVadjustmentPropertyInfo = "vadjustment" attrGet _ = getScrolledWindowVadjustment attrSet _ = setScrolledWindowVadjustment attrConstruct _ = constructScrolledWindowVadjustment @@ -669,7 +1041,7 @@ type AttrSetTypeConstraint ScrolledWindowVscrollbarPolicyPropertyInfo = (~) PolicyType type AttrBaseTypeConstraint ScrolledWindowVscrollbarPolicyPropertyInfo = ScrolledWindowK type AttrGetType ScrolledWindowVscrollbarPolicyPropertyInfo = PolicyType - type AttrLabel ScrolledWindowVscrollbarPolicyPropertyInfo = "ScrolledWindow::vscrollbar-policy" + type AttrLabel ScrolledWindowVscrollbarPolicyPropertyInfo = "vscrollbar-policy" attrGet _ = getScrolledWindowVscrollbarPolicy attrSet _ = setScrolledWindowVscrollbarPolicy attrConstruct _ = constructScrolledWindowVscrollbarPolicy @@ -693,7 +1065,7 @@ type AttrSetTypeConstraint ScrolledWindowWindowPlacementPropertyInfo = (~) CornerType type AttrBaseTypeConstraint ScrolledWindowWindowPlacementPropertyInfo = ScrolledWindowK type AttrGetType ScrolledWindowWindowPlacementPropertyInfo = CornerType - type AttrLabel ScrolledWindowWindowPlacementPropertyInfo = "ScrolledWindow::window-placement" + type AttrLabel ScrolledWindowWindowPlacementPropertyInfo = "window-placement" attrGet _ = getScrolledWindowWindowPlacement attrSet _ = setScrolledWindowWindowPlacement attrConstruct _ = constructScrolledWindowWindowPlacement @@ -717,13 +1089,13 @@ type AttrSetTypeConstraint ScrolledWindowWindowPlacementSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint ScrolledWindowWindowPlacementSetPropertyInfo = ScrolledWindowK type AttrGetType ScrolledWindowWindowPlacementSetPropertyInfo = Bool - type AttrLabel ScrolledWindowWindowPlacementSetPropertyInfo = "ScrolledWindow::window-placement-set" + type AttrLabel ScrolledWindowWindowPlacementSetPropertyInfo = "window-placement-set" attrGet _ = getScrolledWindowWindowPlacementSet attrSet _ = setScrolledWindowWindowPlacementSet attrConstruct _ = constructScrolledWindowWindowPlacementSet type instance AttributeList ScrolledWindow = ScrolledWindowAttributeList -type ScrolledWindowAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscrollbar-policy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("kinetic-scrolling", ScrolledWindowKineticScrollingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("min-content-height", ScrolledWindowMinContentHeightPropertyInfo), '("min-content-width", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overlay-scrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ScrolledWindowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbar-policy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-placement", ScrolledWindowWindowPlacementPropertyInfo), '("window-placement-set", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)]) +type ScrolledWindowAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollbarPolicy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("kineticScrolling", ScrolledWindowKineticScrollingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("minContentHeight", ScrolledWindowMinContentHeightPropertyInfo), '("minContentWidth", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overlayScrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ScrolledWindowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbarPolicy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPlacement", ScrolledWindowWindowPlacementPropertyInfo), '("windowPlacementSet", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)]) data ScrolledWindowEdgeOvershotSignalInfo instance SignalInfo ScrolledWindowEdgeOvershotSignalInfo where @@ -746,13 +1118,12 @@ connectSignal _ = connectScrolledWindowScrollChild type instance SignalList ScrolledWindow = ScrolledWindowSignalList -type ScrolledWindowSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("edge-overshot", ScrolledWindowEdgeOvershotSignalInfo), '("edge-reached", ScrolledWindowEdgeReachedSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-focus-out", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-child", ScrolledWindowScrollChildSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ScrolledWindowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("edgeOvershot", ScrolledWindowEdgeOvershotSignalInfo), '("edgeReached", ScrolledWindowEdgeReachedSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveFocusOut", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollChild", ScrolledWindowScrollChildSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ScrolledWindow::new -- method type : Constructor --- Args : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ScrolledWindow" -- throws : False -- Skip return : False @@ -765,9 +1136,9 @@ scrolledWindowNew :: (MonadIO m, AdjustmentK a, AdjustmentK b) => - Maybe (a) -> -- hadjustment - Maybe (b) -> -- vadjustment - m ScrolledWindow + Maybe (a) -- hadjustment + -> Maybe (b) -- vadjustment + -> m ScrolledWindow -- result scrolledWindowNew hadjustment vadjustment = liftIO $ do maybeHadjustment <- case hadjustment of Nothing -> return nullPtr @@ -788,9 +1159,8 @@ -- method ScrolledWindow::add_with_viewport -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -803,9 +1173,9 @@ {-# DEPRECATED scrolledWindowAddWithViewport ["(Since version 3.8)","gtk_container_add() will automatically add","a #GtkViewport if the child doesn\8217t implement #GtkScrollable."]#-} scrolledWindowAddWithViewport :: (MonadIO m, ScrolledWindowK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result scrolledWindowAddWithViewport _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -814,11 +1184,14 @@ touchManagedPtr child return () +data ScrolledWindowAddWithViewportMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ScrolledWindowK a, WidgetK b) => MethodInfo ScrolledWindowAddWithViewportMethodInfo a signature where + overloadedMethod _ = scrolledWindowAddWithViewport + -- method ScrolledWindow::get_capture_button_press -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -830,8 +1203,8 @@ scrolledWindowGetCaptureButtonPress :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result scrolledWindowGetCaptureButtonPress _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrolled_window_get_capture_button_press _obj' @@ -839,11 +1212,14 @@ touchManagedPtr _obj return result' +data ScrolledWindowGetCaptureButtonPressMethodInfo +instance (signature ~ (m Bool), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetCaptureButtonPressMethodInfo a signature where + overloadedMethod _ = scrolledWindowGetCaptureButtonPress + -- method ScrolledWindow::get_hadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -855,8 +1231,8 @@ scrolledWindowGetHadjustment :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result scrolledWindowGetHadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrolled_window_get_hadjustment _obj' @@ -865,11 +1241,14 @@ touchManagedPtr _obj return result' +data ScrolledWindowGetHadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetHadjustmentMethodInfo a signature where + overloadedMethod _ = scrolledWindowGetHadjustment + -- method ScrolledWindow::get_hscrollbar -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -881,8 +1260,8 @@ scrolledWindowGetHscrollbar :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result scrolledWindowGetHscrollbar _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrolled_window_get_hscrollbar _obj' @@ -891,11 +1270,14 @@ touchManagedPtr _obj return result' +data ScrolledWindowGetHscrollbarMethodInfo +instance (signature ~ (m Widget), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetHscrollbarMethodInfo a signature where + overloadedMethod _ = scrolledWindowGetHscrollbar + -- method ScrolledWindow::get_kinetic_scrolling -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -907,8 +1289,8 @@ scrolledWindowGetKineticScrolling :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result scrolledWindowGetKineticScrolling _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrolled_window_get_kinetic_scrolling _obj' @@ -916,11 +1298,14 @@ touchManagedPtr _obj return result' +data ScrolledWindowGetKineticScrollingMethodInfo +instance (signature ~ (m Bool), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetKineticScrollingMethodInfo a signature where + overloadedMethod _ = scrolledWindowGetKineticScrolling + -- method ScrolledWindow::get_min_content_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -932,19 +1317,22 @@ scrolledWindowGetMinContentHeight :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result scrolledWindowGetMinContentHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrolled_window_get_min_content_height _obj' touchManagedPtr _obj return result +data ScrolledWindowGetMinContentHeightMethodInfo +instance (signature ~ (m Int32), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetMinContentHeightMethodInfo a signature where + overloadedMethod _ = scrolledWindowGetMinContentHeight + -- method ScrolledWindow::get_min_content_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -956,19 +1344,22 @@ scrolledWindowGetMinContentWidth :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result scrolledWindowGetMinContentWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrolled_window_get_min_content_width _obj' touchManagedPtr _obj return result +data ScrolledWindowGetMinContentWidthMethodInfo +instance (signature ~ (m Int32), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetMinContentWidthMethodInfo a signature where + overloadedMethod _ = scrolledWindowGetMinContentWidth + -- method ScrolledWindow::get_overlay_scrolling -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -980,8 +1371,8 @@ scrolledWindowGetOverlayScrolling :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result scrolledWindowGetOverlayScrolling _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrolled_window_get_overlay_scrolling _obj' @@ -989,11 +1380,14 @@ touchManagedPtr _obj return result' +data ScrolledWindowGetOverlayScrollingMethodInfo +instance (signature ~ (m Bool), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetOverlayScrollingMethodInfo a signature where + overloadedMethod _ = scrolledWindowGetOverlayScrolling + -- method ScrolledWindow::get_placement -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CornerType" -- throws : False -- Skip return : False @@ -1005,8 +1399,8 @@ scrolledWindowGetPlacement :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m CornerType + a -- _obj + -> m CornerType -- result scrolledWindowGetPlacement _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrolled_window_get_placement _obj' @@ -1014,11 +1408,14 @@ touchManagedPtr _obj return result' +data ScrolledWindowGetPlacementMethodInfo +instance (signature ~ (m CornerType), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetPlacementMethodInfo a signature where + overloadedMethod _ = scrolledWindowGetPlacement + -- method ScrolledWindow::get_policy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1032,27 +1429,30 @@ scrolledWindowGetPolicy :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m (PolicyType,PolicyType) + a -- _obj + -> m (PolicyType,PolicyType) -- result scrolledWindowGetPolicy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - hscrollbar_policy <- allocMem :: IO (Ptr CUInt) - vscrollbar_policy <- allocMem :: IO (Ptr CUInt) - gtk_scrolled_window_get_policy _obj' hscrollbar_policy vscrollbar_policy - hscrollbar_policy' <- peek hscrollbar_policy - let hscrollbar_policy'' = (toEnum . fromIntegral) hscrollbar_policy' - vscrollbar_policy' <- peek vscrollbar_policy - let vscrollbar_policy'' = (toEnum . fromIntegral) vscrollbar_policy' + hscrollbarPolicy <- allocMem :: IO (Ptr CUInt) + vscrollbarPolicy <- allocMem :: IO (Ptr CUInt) + gtk_scrolled_window_get_policy _obj' hscrollbarPolicy vscrollbarPolicy + hscrollbarPolicy' <- peek hscrollbarPolicy + let hscrollbarPolicy'' = (toEnum . fromIntegral) hscrollbarPolicy' + vscrollbarPolicy' <- peek vscrollbarPolicy + let vscrollbarPolicy'' = (toEnum . fromIntegral) vscrollbarPolicy' touchManagedPtr _obj - freeMem hscrollbar_policy - freeMem vscrollbar_policy - return (hscrollbar_policy'', vscrollbar_policy'') + freeMem hscrollbarPolicy + freeMem vscrollbarPolicy + return (hscrollbarPolicy'', vscrollbarPolicy'') +data ScrolledWindowGetPolicyMethodInfo +instance (signature ~ (m (PolicyType,PolicyType)), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetPolicyMethodInfo a signature where + overloadedMethod _ = scrolledWindowGetPolicy + -- method ScrolledWindow::get_shadow_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ShadowType" -- throws : False -- Skip return : False @@ -1064,8 +1464,8 @@ scrolledWindowGetShadowType :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m ShadowType + a -- _obj + -> m ShadowType -- result scrolledWindowGetShadowType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrolled_window_get_shadow_type _obj' @@ -1073,11 +1473,14 @@ touchManagedPtr _obj return result' +data ScrolledWindowGetShadowTypeMethodInfo +instance (signature ~ (m ShadowType), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetShadowTypeMethodInfo a signature where + overloadedMethod _ = scrolledWindowGetShadowType + -- method ScrolledWindow::get_vadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -1089,8 +1492,8 @@ scrolledWindowGetVadjustment :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result scrolledWindowGetVadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrolled_window_get_vadjustment _obj' @@ -1099,11 +1502,14 @@ touchManagedPtr _obj return result' +data ScrolledWindowGetVadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetVadjustmentMethodInfo a signature where + overloadedMethod _ = scrolledWindowGetVadjustment + -- method ScrolledWindow::get_vscrollbar -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -1115,8 +1521,8 @@ scrolledWindowGetVscrollbar :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result scrolledWindowGetVscrollbar _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_scrolled_window_get_vscrollbar _obj' @@ -1125,11 +1531,14 @@ touchManagedPtr _obj return result' +data ScrolledWindowGetVscrollbarMethodInfo +instance (signature ~ (m Widget), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowGetVscrollbarMethodInfo a signature where + overloadedMethod _ = scrolledWindowGetVscrollbar + -- method ScrolledWindow::set_capture_button_press -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "capture_button_press", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "capture_button_press", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "capture_button_press", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1142,21 +1551,24 @@ scrolledWindowSetCaptureButtonPress :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - Bool -> -- capture_button_press - m () -scrolledWindowSetCaptureButtonPress _obj capture_button_press = liftIO $ do + a -- _obj + -> Bool -- captureButtonPress + -> m () -- result +scrolledWindowSetCaptureButtonPress _obj captureButtonPress = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let capture_button_press' = (fromIntegral . fromEnum) capture_button_press - gtk_scrolled_window_set_capture_button_press _obj' capture_button_press' + let captureButtonPress' = (fromIntegral . fromEnum) captureButtonPress + gtk_scrolled_window_set_capture_button_press _obj' captureButtonPress' touchManagedPtr _obj return () +data ScrolledWindowSetCaptureButtonPressMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetCaptureButtonPressMethodInfo a signature where + overloadedMethod _ = scrolledWindowSetCaptureButtonPress + -- method ScrolledWindow::set_hadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1169,9 +1581,9 @@ scrolledWindowSetHadjustment :: (MonadIO m, ScrolledWindowK a, AdjustmentK b) => - a -> -- _obj - b -> -- hadjustment - m () + a -- _obj + -> b -- hadjustment + -> m () -- result scrolledWindowSetHadjustment _obj hadjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let hadjustment' = unsafeManagedPtrCastPtr hadjustment @@ -1180,11 +1592,14 @@ touchManagedPtr hadjustment return () +data ScrolledWindowSetHadjustmentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ScrolledWindowK a, AdjustmentK b) => MethodInfo ScrolledWindowSetHadjustmentMethodInfo a signature where + overloadedMethod _ = scrolledWindowSetHadjustment + -- method ScrolledWindow::set_kinetic_scrolling -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kinetic_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "kinetic_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kinetic_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1197,21 +1612,24 @@ scrolledWindowSetKineticScrolling :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - Bool -> -- kinetic_scrolling - m () -scrolledWindowSetKineticScrolling _obj kinetic_scrolling = liftIO $ do + a -- _obj + -> Bool -- kineticScrolling + -> m () -- result +scrolledWindowSetKineticScrolling _obj kineticScrolling = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let kinetic_scrolling' = (fromIntegral . fromEnum) kinetic_scrolling - gtk_scrolled_window_set_kinetic_scrolling _obj' kinetic_scrolling' + let kineticScrolling' = (fromIntegral . fromEnum) kineticScrolling + gtk_scrolled_window_set_kinetic_scrolling _obj' kineticScrolling' touchManagedPtr _obj return () +data ScrolledWindowSetKineticScrollingMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetKineticScrollingMethodInfo a signature where + overloadedMethod _ = scrolledWindowSetKineticScrolling + -- method ScrolledWindow::set_min_content_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1224,20 +1642,23 @@ scrolledWindowSetMinContentHeight :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - Int32 -> -- height - m () + a -- _obj + -> Int32 -- height + -> m () -- result scrolledWindowSetMinContentHeight _obj height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_scrolled_window_set_min_content_height _obj' height touchManagedPtr _obj return () +data ScrolledWindowSetMinContentHeightMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetMinContentHeightMethodInfo a signature where + overloadedMethod _ = scrolledWindowSetMinContentHeight + -- method ScrolledWindow::set_min_content_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1250,20 +1671,23 @@ scrolledWindowSetMinContentWidth :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - Int32 -> -- width - m () + a -- _obj + -> Int32 -- width + -> m () -- result scrolledWindowSetMinContentWidth _obj width = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_scrolled_window_set_min_content_width _obj' width touchManagedPtr _obj return () +data ScrolledWindowSetMinContentWidthMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetMinContentWidthMethodInfo a signature where + overloadedMethod _ = scrolledWindowSetMinContentWidth + -- method ScrolledWindow::set_overlay_scrolling -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overlay_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overlay_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overlay_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1276,21 +1700,24 @@ scrolledWindowSetOverlayScrolling :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - Bool -> -- overlay_scrolling - m () -scrolledWindowSetOverlayScrolling _obj overlay_scrolling = liftIO $ do + a -- _obj + -> Bool -- overlayScrolling + -> m () -- result +scrolledWindowSetOverlayScrolling _obj overlayScrolling = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let overlay_scrolling' = (fromIntegral . fromEnum) overlay_scrolling - gtk_scrolled_window_set_overlay_scrolling _obj' overlay_scrolling' + let overlayScrolling' = (fromIntegral . fromEnum) overlayScrolling + gtk_scrolled_window_set_overlay_scrolling _obj' overlayScrolling' touchManagedPtr _obj return () +data ScrolledWindowSetOverlayScrollingMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetOverlayScrollingMethodInfo a signature where + overloadedMethod _ = scrolledWindowSetOverlayScrolling + -- method ScrolledWindow::set_placement -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_placement", argType = TInterface "Gtk" "CornerType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_placement", argType = TInterface "Gtk" "CornerType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_placement", argType = TInterface "Gtk" "CornerType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1303,21 +1730,24 @@ scrolledWindowSetPlacement :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - CornerType -> -- window_placement - m () -scrolledWindowSetPlacement _obj window_placement = liftIO $ do + a -- _obj + -> CornerType -- windowPlacement + -> m () -- result +scrolledWindowSetPlacement _obj windowPlacement = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let window_placement' = (fromIntegral . fromEnum) window_placement - gtk_scrolled_window_set_placement _obj' window_placement' + let windowPlacement' = (fromIntegral . fromEnum) windowPlacement + gtk_scrolled_window_set_placement _obj' windowPlacement' touchManagedPtr _obj return () +data ScrolledWindowSetPlacementMethodInfo +instance (signature ~ (CornerType -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetPlacementMethodInfo a signature where + overloadedMethod _ = scrolledWindowSetPlacement + -- method ScrolledWindow::set_policy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1331,23 +1761,26 @@ scrolledWindowSetPolicy :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - PolicyType -> -- hscrollbar_policy - PolicyType -> -- vscrollbar_policy - m () -scrolledWindowSetPolicy _obj hscrollbar_policy vscrollbar_policy = liftIO $ do + a -- _obj + -> PolicyType -- hscrollbarPolicy + -> PolicyType -- vscrollbarPolicy + -> m () -- result +scrolledWindowSetPolicy _obj hscrollbarPolicy vscrollbarPolicy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let hscrollbar_policy' = (fromIntegral . fromEnum) hscrollbar_policy - let vscrollbar_policy' = (fromIntegral . fromEnum) vscrollbar_policy - gtk_scrolled_window_set_policy _obj' hscrollbar_policy' vscrollbar_policy' + let hscrollbarPolicy' = (fromIntegral . fromEnum) hscrollbarPolicy + let vscrollbarPolicy' = (fromIntegral . fromEnum) vscrollbarPolicy + gtk_scrolled_window_set_policy _obj' hscrollbarPolicy' vscrollbarPolicy' touchManagedPtr _obj return () +data ScrolledWindowSetPolicyMethodInfo +instance (signature ~ (PolicyType -> PolicyType -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetPolicyMethodInfo a signature where + overloadedMethod _ = scrolledWindowSetPolicy + -- method ScrolledWindow::set_shadow_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1360,9 +1793,9 @@ scrolledWindowSetShadowType :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - ShadowType -> -- type - m () + a -- _obj + -> ShadowType -- type_ + -> m () -- result scrolledWindowSetShadowType _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let type_' = (fromIntegral . fromEnum) type_ @@ -1370,11 +1803,14 @@ touchManagedPtr _obj return () +data ScrolledWindowSetShadowTypeMethodInfo +instance (signature ~ (ShadowType -> m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowSetShadowTypeMethodInfo a signature where + overloadedMethod _ = scrolledWindowSetShadowType + -- method ScrolledWindow::set_vadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1387,9 +1823,9 @@ scrolledWindowSetVadjustment :: (MonadIO m, ScrolledWindowK a, AdjustmentK b) => - a -> -- _obj - b -> -- vadjustment - m () + a -- _obj + -> b -- vadjustment + -> m () -- result scrolledWindowSetVadjustment _obj vadjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let vadjustment' = unsafeManagedPtrCastPtr vadjustment @@ -1398,11 +1834,14 @@ touchManagedPtr vadjustment return () +data ScrolledWindowSetVadjustmentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ScrolledWindowK a, AdjustmentK b) => MethodInfo ScrolledWindowSetVadjustmentMethodInfo a signature where + overloadedMethod _ = scrolledWindowSetVadjustment + -- method ScrolledWindow::unset_placement -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1414,12 +1853,16 @@ scrolledWindowUnsetPlacement :: (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result scrolledWindowUnsetPlacement _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_scrolled_window_unset_placement _obj' touchManagedPtr _obj return () + +data ScrolledWindowUnsetPlacementMethodInfo +instance (signature ~ (m ()), MonadIO m, ScrolledWindowK a) => MethodInfo ScrolledWindowUnsetPlacementMethodInfo a signature where + overloadedMethod _ = scrolledWindowUnsetPlacement diff --git a/GI/Gtk/Objects/ScrolledWindow.hs-boot b/GI/Gtk/Objects/ScrolledWindow.hs-boot --- a/GI/Gtk/Objects/ScrolledWindow.hs-boot +++ b/GI/Gtk/Objects/ScrolledWindow.hs-boot @@ -26,3 +26,27 @@ data ScrolledWindowEdgeReachedSignalInfo data ScrolledWindowMoveFocusOutSignalInfo data ScrolledWindowScrollChildSignalInfo +data ScrolledWindowAddWithViewportMethodInfo +data ScrolledWindowGetCaptureButtonPressMethodInfo +data ScrolledWindowGetHadjustmentMethodInfo +data ScrolledWindowGetHscrollbarMethodInfo +data ScrolledWindowGetKineticScrollingMethodInfo +data ScrolledWindowGetMinContentHeightMethodInfo +data ScrolledWindowGetMinContentWidthMethodInfo +data ScrolledWindowGetOverlayScrollingMethodInfo +data ScrolledWindowGetPlacementMethodInfo +data ScrolledWindowGetPolicyMethodInfo +data ScrolledWindowGetShadowTypeMethodInfo +data ScrolledWindowGetVadjustmentMethodInfo +data ScrolledWindowGetVscrollbarMethodInfo +data ScrolledWindowSetCaptureButtonPressMethodInfo +data ScrolledWindowSetHadjustmentMethodInfo +data ScrolledWindowSetKineticScrollingMethodInfo +data ScrolledWindowSetMinContentHeightMethodInfo +data ScrolledWindowSetMinContentWidthMethodInfo +data ScrolledWindowSetOverlayScrollingMethodInfo +data ScrolledWindowSetPlacementMethodInfo +data ScrolledWindowSetPolicyMethodInfo +data ScrolledWindowSetShadowTypeMethodInfo +data ScrolledWindowSetVadjustmentMethodInfo +data ScrolledWindowUnsetPlacementMethodInfo diff --git a/GI/Gtk/Objects/ScrolledWindowAccessible.hs b/GI/Gtk/Objects/ScrolledWindowAccessible.hs --- a/GI/Gtk/Objects/ScrolledWindowAccessible.hs +++ b/GI/Gtk/Objects/ScrolledWindowAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,78 @@ noScrolledWindowAccessible :: Maybe ScrolledWindowAccessible noScrolledWindowAccessible = Nothing +type family ResolveScrolledWindowAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveScrolledWindowAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveScrolledWindowAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveScrolledWindowAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveScrolledWindowAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveScrolledWindowAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveScrolledWindowAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveScrolledWindowAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveScrolledWindowAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveScrolledWindowAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveScrolledWindowAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveScrolledWindowAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveScrolledWindowAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveScrolledWindowAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveScrolledWindowAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveScrolledWindowAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveScrolledWindowAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveScrolledWindowAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveScrolledWindowAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveScrolledWindowAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveScrolledWindowAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveScrolledWindowAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveScrolledWindowAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveScrolledWindowAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveScrolledWindowAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveScrolledWindowAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveScrolledWindowAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveScrolledWindowAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveScrolledWindowAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveScrolledWindowAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveScrolledWindowAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveScrolledWindowAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveScrolledWindowAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveScrolledWindowAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveScrolledWindowAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveScrolledWindowAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveScrolledWindowAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveScrolledWindowAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveScrolledWindowAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveScrolledWindowAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveScrolledWindowAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveScrolledWindowAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveScrolledWindowAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveScrolledWindowAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveScrolledWindowAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveScrolledWindowAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveScrolledWindowAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveScrolledWindowAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveScrolledWindowAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveScrolledWindowAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveScrolledWindowAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveScrolledWindowAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveScrolledWindowAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveScrolledWindowAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveScrolledWindowAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveScrolledWindowAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveScrolledWindowAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveScrolledWindowAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveScrolledWindowAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveScrolledWindowAccessibleMethod t ScrolledWindowAccessible, MethodInfo info ScrolledWindowAccessible p) => IsLabelProxy t (ScrolledWindowAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveScrolledWindowAccessibleMethod t ScrolledWindowAccessible, MethodInfo info ScrolledWindowAccessible p) => IsLabel t (ScrolledWindowAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ScrolledWindowAccessible = ScrolledWindowAccessibleAttributeList -type ScrolledWindowAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ScrolledWindowAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ScrolledWindowAccessible = ScrolledWindowAccessibleSignalList -type ScrolledWindowAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ScrolledWindowAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/SearchBar.hs b/GI/Gtk/Objects/SearchBar.hs --- a/GI/Gtk/Objects/SearchBar.hs +++ b/GI/Gtk/Objects/SearchBar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** searchBarConnectEntry + SearchBarConnectEntryMethodInfo , searchBarConnectEntry , -- ** searchBarGetSearchMode + SearchBarGetSearchModeMethodInfo , searchBarGetSearchMode , -- ** searchBarGetShowCloseButton + SearchBarGetShowCloseButtonMethodInfo , searchBarGetShowCloseButton , -- ** searchBarHandleEvent + SearchBarHandleEventMethodInfo , searchBarHandleEvent , @@ -37,10 +42,12 @@ -- ** searchBarSetSearchMode + SearchBarSetSearchModeMethodInfo , searchBarSetSearchMode , -- ** searchBarSetShowCloseButton + SearchBarSetShowCloseButtonMethodInfo , searchBarSetShowCloseButton , @@ -99,6 +106,335 @@ noSearchBar :: Maybe SearchBar noSearchBar = Nothing +type family ResolveSearchBarMethod (t :: Symbol) (o :: *) :: * where + ResolveSearchBarMethod "activate" o = WidgetActivateMethodInfo + ResolveSearchBarMethod "add" o = ContainerAddMethodInfo + ResolveSearchBarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveSearchBarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveSearchBarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveSearchBarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveSearchBarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveSearchBarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveSearchBarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSearchBarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSearchBarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveSearchBarMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveSearchBarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveSearchBarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveSearchBarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveSearchBarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveSearchBarMethod "childType" o = ContainerChildTypeMethodInfo + ResolveSearchBarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveSearchBarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveSearchBarMethod "connectEntry" o = SearchBarConnectEntryMethodInfo + ResolveSearchBarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveSearchBarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveSearchBarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveSearchBarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveSearchBarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveSearchBarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveSearchBarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveSearchBarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveSearchBarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveSearchBarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveSearchBarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveSearchBarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveSearchBarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveSearchBarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveSearchBarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveSearchBarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveSearchBarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveSearchBarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveSearchBarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveSearchBarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveSearchBarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveSearchBarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveSearchBarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveSearchBarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveSearchBarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveSearchBarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveSearchBarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveSearchBarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveSearchBarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveSearchBarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveSearchBarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveSearchBarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveSearchBarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveSearchBarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveSearchBarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveSearchBarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveSearchBarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveSearchBarMethod "draw" o = WidgetDrawMethodInfo + ResolveSearchBarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveSearchBarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveSearchBarMethod "event" o = WidgetEventMethodInfo + ResolveSearchBarMethod "forall" o = ContainerForallMethodInfo + ResolveSearchBarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSearchBarMethod "foreach" o = ContainerForeachMethodInfo + ResolveSearchBarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveSearchBarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSearchBarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveSearchBarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveSearchBarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveSearchBarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveSearchBarMethod "handleEvent" o = SearchBarHandleEventMethodInfo + ResolveSearchBarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveSearchBarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveSearchBarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveSearchBarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveSearchBarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveSearchBarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveSearchBarMethod "hide" o = WidgetHideMethodInfo + ResolveSearchBarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveSearchBarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveSearchBarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveSearchBarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveSearchBarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveSearchBarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveSearchBarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveSearchBarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveSearchBarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveSearchBarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSearchBarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveSearchBarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveSearchBarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveSearchBarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveSearchBarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveSearchBarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveSearchBarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveSearchBarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveSearchBarMethod "map" o = WidgetMapMethodInfo + ResolveSearchBarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveSearchBarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveSearchBarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveSearchBarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveSearchBarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveSearchBarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveSearchBarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveSearchBarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveSearchBarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSearchBarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSearchBarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveSearchBarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveSearchBarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveSearchBarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveSearchBarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveSearchBarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveSearchBarMethod "path" o = WidgetPathMethodInfo + ResolveSearchBarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveSearchBarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveSearchBarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveSearchBarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveSearchBarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveSearchBarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveSearchBarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveSearchBarMethod "realize" o = WidgetRealizeMethodInfo + ResolveSearchBarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSearchBarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSearchBarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveSearchBarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveSearchBarMethod "remove" o = ContainerRemoveMethodInfo + ResolveSearchBarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveSearchBarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveSearchBarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveSearchBarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveSearchBarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveSearchBarMethod "reparent" o = WidgetReparentMethodInfo + ResolveSearchBarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSearchBarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSearchBarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveSearchBarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveSearchBarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveSearchBarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSearchBarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveSearchBarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveSearchBarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveSearchBarMethod "show" o = WidgetShowMethodInfo + ResolveSearchBarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveSearchBarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveSearchBarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveSearchBarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveSearchBarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveSearchBarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSearchBarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSearchBarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveSearchBarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveSearchBarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveSearchBarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSearchBarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveSearchBarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveSearchBarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveSearchBarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveSearchBarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveSearchBarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSearchBarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveSearchBarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveSearchBarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveSearchBarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSearchBarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveSearchBarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveSearchBarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveSearchBarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveSearchBarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveSearchBarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveSearchBarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveSearchBarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveSearchBarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveSearchBarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveSearchBarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveSearchBarMethod "getChild" o = BinGetChildMethodInfo + ResolveSearchBarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveSearchBarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveSearchBarMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveSearchBarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveSearchBarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveSearchBarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveSearchBarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSearchBarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveSearchBarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveSearchBarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveSearchBarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveSearchBarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveSearchBarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveSearchBarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveSearchBarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveSearchBarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveSearchBarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveSearchBarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveSearchBarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveSearchBarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveSearchBarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveSearchBarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveSearchBarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveSearchBarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveSearchBarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveSearchBarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveSearchBarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveSearchBarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveSearchBarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveSearchBarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveSearchBarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveSearchBarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveSearchBarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveSearchBarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveSearchBarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveSearchBarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveSearchBarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveSearchBarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveSearchBarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveSearchBarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveSearchBarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveSearchBarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveSearchBarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveSearchBarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveSearchBarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveSearchBarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveSearchBarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveSearchBarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveSearchBarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveSearchBarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSearchBarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSearchBarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveSearchBarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveSearchBarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveSearchBarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveSearchBarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveSearchBarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveSearchBarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveSearchBarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveSearchBarMethod "getSearchMode" o = SearchBarGetSearchModeMethodInfo + ResolveSearchBarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveSearchBarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveSearchBarMethod "getShowCloseButton" o = SearchBarGetShowCloseButtonMethodInfo + ResolveSearchBarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveSearchBarMethod "getState" o = WidgetGetStateMethodInfo + ResolveSearchBarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveSearchBarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveSearchBarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveSearchBarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveSearchBarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveSearchBarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveSearchBarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveSearchBarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveSearchBarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveSearchBarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveSearchBarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveSearchBarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveSearchBarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveSearchBarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveSearchBarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveSearchBarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveSearchBarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveSearchBarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveSearchBarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveSearchBarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveSearchBarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveSearchBarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveSearchBarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveSearchBarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveSearchBarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveSearchBarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveSearchBarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSearchBarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveSearchBarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveSearchBarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveSearchBarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveSearchBarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveSearchBarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveSearchBarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveSearchBarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveSearchBarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveSearchBarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveSearchBarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveSearchBarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveSearchBarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveSearchBarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveSearchBarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveSearchBarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveSearchBarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveSearchBarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveSearchBarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveSearchBarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveSearchBarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveSearchBarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveSearchBarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveSearchBarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveSearchBarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveSearchBarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveSearchBarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveSearchBarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSearchBarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveSearchBarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveSearchBarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveSearchBarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveSearchBarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveSearchBarMethod "setSearchMode" o = SearchBarSetSearchModeMethodInfo + ResolveSearchBarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveSearchBarMethod "setShowCloseButton" o = SearchBarSetShowCloseButtonMethodInfo + ResolveSearchBarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveSearchBarMethod "setState" o = WidgetSetStateMethodInfo + ResolveSearchBarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveSearchBarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveSearchBarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveSearchBarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveSearchBarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveSearchBarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveSearchBarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveSearchBarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveSearchBarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveSearchBarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveSearchBarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveSearchBarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveSearchBarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSearchBarMethod t SearchBar, MethodInfo info SearchBar p) => IsLabelProxy t (SearchBar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSearchBarMethod t SearchBar, MethodInfo info SearchBar p) => IsLabel t (SearchBar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "search-mode-enabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -118,7 +454,7 @@ type AttrSetTypeConstraint SearchBarSearchModeEnabledPropertyInfo = (~) Bool type AttrBaseTypeConstraint SearchBarSearchModeEnabledPropertyInfo = SearchBarK type AttrGetType SearchBarSearchModeEnabledPropertyInfo = Bool - type AttrLabel SearchBarSearchModeEnabledPropertyInfo = "SearchBar::search-mode-enabled" + type AttrLabel SearchBarSearchModeEnabledPropertyInfo = "search-mode-enabled" attrGet _ = getSearchBarSearchModeEnabled attrSet _ = setSearchBarSearchModeEnabled attrConstruct _ = constructSearchBarSearchModeEnabled @@ -142,22 +478,21 @@ type AttrSetTypeConstraint SearchBarShowCloseButtonPropertyInfo = (~) Bool type AttrBaseTypeConstraint SearchBarShowCloseButtonPropertyInfo = SearchBarK type AttrGetType SearchBarShowCloseButtonPropertyInfo = Bool - type AttrLabel SearchBarShowCloseButtonPropertyInfo = "SearchBar::show-close-button" + type AttrLabel SearchBarShowCloseButtonPropertyInfo = "show-close-button" attrGet _ = getSearchBarShowCloseButton attrSet _ = setSearchBarShowCloseButton attrConstruct _ = constructSearchBarShowCloseButton type instance AttributeList SearchBar = SearchBarAttributeList -type SearchBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("search-mode-enabled", SearchBarSearchModeEnabledPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-close-button", SearchBarShowCloseButtonPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type SearchBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("searchModeEnabled", SearchBarSearchModeEnabledPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showCloseButton", SearchBarShowCloseButtonPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList SearchBar = SearchBarSignalList -type SearchBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SearchBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method SearchBar::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "SearchBar" -- throws : False -- Skip return : False @@ -168,7 +503,7 @@ searchBarNew :: (MonadIO m) => - m SearchBar + m SearchBar -- result searchBarNew = liftIO $ do result <- gtk_search_bar_new checkUnexpectedReturnNULL "gtk_search_bar_new" result @@ -177,9 +512,8 @@ -- method SearchBar::connect_entry -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -192,9 +526,9 @@ searchBarConnectEntry :: (MonadIO m, SearchBarK a, EntryK b) => - a -> -- _obj - b -> -- entry - m () + a -- _obj + -> b -- entry + -> m () -- result searchBarConnectEntry _obj entry = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let entry' = unsafeManagedPtrCastPtr entry @@ -203,11 +537,14 @@ touchManagedPtr entry return () +data SearchBarConnectEntryMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, SearchBarK a, EntryK b) => MethodInfo SearchBarConnectEntryMethodInfo a signature where + overloadedMethod _ = searchBarConnectEntry + -- method SearchBar::get_search_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -219,8 +556,8 @@ searchBarGetSearchMode :: (MonadIO m, SearchBarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result searchBarGetSearchMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_search_bar_get_search_mode _obj' @@ -228,11 +565,14 @@ touchManagedPtr _obj return result' +data SearchBarGetSearchModeMethodInfo +instance (signature ~ (m Bool), MonadIO m, SearchBarK a) => MethodInfo SearchBarGetSearchModeMethodInfo a signature where + overloadedMethod _ = searchBarGetSearchMode + -- method SearchBar::get_show_close_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -244,8 +584,8 @@ searchBarGetShowCloseButton :: (MonadIO m, SearchBarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result searchBarGetShowCloseButton _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_search_bar_get_show_close_button _obj' @@ -253,11 +593,14 @@ touchManagedPtr _obj return result' +data SearchBarGetShowCloseButtonMethodInfo +instance (signature ~ (m Bool), MonadIO m, SearchBarK a) => MethodInfo SearchBarGetShowCloseButtonMethodInfo a signature where + overloadedMethod _ = searchBarGetShowCloseButton + -- method SearchBar::handle_event -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -270,9 +613,9 @@ searchBarHandleEvent :: (MonadIO m, SearchBarK a) => - a -> -- _obj - Gdk.Event -> -- event - m Bool + a -- _obj + -> Gdk.Event -- event + -> m Bool -- result searchBarHandleEvent _obj event = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let event' = unsafeManagedPtrGetPtr event @@ -282,11 +625,14 @@ touchManagedPtr event return result' +data SearchBarHandleEventMethodInfo +instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, SearchBarK a) => MethodInfo SearchBarHandleEventMethodInfo a signature where + overloadedMethod _ = searchBarHandleEvent + -- method SearchBar::set_search_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -299,21 +645,24 @@ searchBarSetSearchMode :: (MonadIO m, SearchBarK a) => - a -> -- _obj - Bool -> -- search_mode - m () -searchBarSetSearchMode _obj search_mode = liftIO $ do + a -- _obj + -> Bool -- searchMode + -> m () -- result +searchBarSetSearchMode _obj searchMode = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let search_mode' = (fromIntegral . fromEnum) search_mode - gtk_search_bar_set_search_mode _obj' search_mode' + let searchMode' = (fromIntegral . fromEnum) searchMode + gtk_search_bar_set_search_mode _obj' searchMode' touchManagedPtr _obj return () +data SearchBarSetSearchModeMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SearchBarK a) => MethodInfo SearchBarSetSearchModeMethodInfo a signature where + overloadedMethod _ = searchBarSetSearchMode + -- method SearchBar::set_show_close_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -326,14 +675,18 @@ searchBarSetShowCloseButton :: (MonadIO m, SearchBarK a) => - a -> -- _obj - Bool -> -- visible - m () + a -- _obj + -> Bool -- visible + -> m () -- result searchBarSetShowCloseButton _obj visible = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let visible' = (fromIntegral . fromEnum) visible gtk_search_bar_set_show_close_button _obj' visible' touchManagedPtr _obj return () + +data SearchBarSetShowCloseButtonMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SearchBarK a) => MethodInfo SearchBarSetShowCloseButtonMethodInfo a signature where + overloadedMethod _ = searchBarSetShowCloseButton diff --git a/GI/Gtk/Objects/SearchBar.hs-boot b/GI/Gtk/Objects/SearchBar.hs-boot --- a/GI/Gtk/Objects/SearchBar.hs-boot +++ b/GI/Gtk/Objects/SearchBar.hs-boot @@ -13,3 +13,9 @@ instance (GObject o, IsDescendantOf SearchBar o) => SearchBarK o data SearchBarSearchModeEnabledPropertyInfo data SearchBarShowCloseButtonPropertyInfo +data SearchBarConnectEntryMethodInfo +data SearchBarGetSearchModeMethodInfo +data SearchBarGetShowCloseButtonMethodInfo +data SearchBarHandleEventMethodInfo +data SearchBarSetSearchModeMethodInfo +data SearchBarSetShowCloseButtonMethodInfo diff --git a/GI/Gtk/Objects/SearchEntry.hs b/GI/Gtk/Objects/SearchEntry.hs --- a/GI/Gtk/Objects/SearchEntry.hs +++ b/GI/Gtk/Objects/SearchEntry.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** searchEntryHandleEvent + SearchEntryHandleEventMethodInfo , searchEntryHandleEvent , @@ -113,6 +115,393 @@ noSearchEntry :: Maybe SearchEntry noSearchEntry = Nothing +type family ResolveSearchEntryMethod (t :: Symbol) (o :: *) :: * where + ResolveSearchEntryMethod "activate" o = WidgetActivateMethodInfo + ResolveSearchEntryMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveSearchEntryMethod "addChild" o = BuildableAddChildMethodInfo + ResolveSearchEntryMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveSearchEntryMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveSearchEntryMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveSearchEntryMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveSearchEntryMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSearchEntryMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSearchEntryMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveSearchEntryMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveSearchEntryMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveSearchEntryMethod "classPath" o = WidgetClassPathMethodInfo + ResolveSearchEntryMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveSearchEntryMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveSearchEntryMethod "copyClipboard" o = EditableCopyClipboardMethodInfo + ResolveSearchEntryMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveSearchEntryMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveSearchEntryMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveSearchEntryMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveSearchEntryMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveSearchEntryMethod "cutClipboard" o = EditableCutClipboardMethodInfo + ResolveSearchEntryMethod "deleteSelection" o = EditableDeleteSelectionMethodInfo + ResolveSearchEntryMethod "deleteText" o = EditableDeleteTextMethodInfo + ResolveSearchEntryMethod "destroy" o = WidgetDestroyMethodInfo + ResolveSearchEntryMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveSearchEntryMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveSearchEntryMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveSearchEntryMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveSearchEntryMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveSearchEntryMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveSearchEntryMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveSearchEntryMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveSearchEntryMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveSearchEntryMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveSearchEntryMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveSearchEntryMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveSearchEntryMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveSearchEntryMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveSearchEntryMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveSearchEntryMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveSearchEntryMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveSearchEntryMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveSearchEntryMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveSearchEntryMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveSearchEntryMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveSearchEntryMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveSearchEntryMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveSearchEntryMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveSearchEntryMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveSearchEntryMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveSearchEntryMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveSearchEntryMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveSearchEntryMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveSearchEntryMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveSearchEntryMethod "draw" o = WidgetDrawMethodInfo + ResolveSearchEntryMethod "editingDone" o = CellEditableEditingDoneMethodInfo + ResolveSearchEntryMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveSearchEntryMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveSearchEntryMethod "event" o = WidgetEventMethodInfo + ResolveSearchEntryMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSearchEntryMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveSearchEntryMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSearchEntryMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveSearchEntryMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveSearchEntryMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveSearchEntryMethod "grabFocusWithoutSelecting" o = EntryGrabFocusWithoutSelectingMethodInfo + ResolveSearchEntryMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveSearchEntryMethod "handleEvent" o = SearchEntryHandleEventMethodInfo + ResolveSearchEntryMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveSearchEntryMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveSearchEntryMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveSearchEntryMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveSearchEntryMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveSearchEntryMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveSearchEntryMethod "hide" o = WidgetHideMethodInfo + ResolveSearchEntryMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveSearchEntryMethod "imContextFilterKeypress" o = EntryImContextFilterKeypressMethodInfo + ResolveSearchEntryMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveSearchEntryMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveSearchEntryMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveSearchEntryMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveSearchEntryMethod "insertText" o = EditableInsertTextMethodInfo + ResolveSearchEntryMethod "intersect" o = WidgetIntersectMethodInfo + ResolveSearchEntryMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveSearchEntryMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveSearchEntryMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveSearchEntryMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSearchEntryMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveSearchEntryMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveSearchEntryMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveSearchEntryMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveSearchEntryMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveSearchEntryMethod "layoutIndexToTextIndex" o = EntryLayoutIndexToTextIndexMethodInfo + ResolveSearchEntryMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveSearchEntryMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveSearchEntryMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveSearchEntryMethod "map" o = WidgetMapMethodInfo + ResolveSearchEntryMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveSearchEntryMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveSearchEntryMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveSearchEntryMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveSearchEntryMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveSearchEntryMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveSearchEntryMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveSearchEntryMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveSearchEntryMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSearchEntryMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSearchEntryMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveSearchEntryMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveSearchEntryMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveSearchEntryMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveSearchEntryMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveSearchEntryMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveSearchEntryMethod "pasteClipboard" o = EditablePasteClipboardMethodInfo + ResolveSearchEntryMethod "path" o = WidgetPathMethodInfo + ResolveSearchEntryMethod "progressPulse" o = EntryProgressPulseMethodInfo + ResolveSearchEntryMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveSearchEntryMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveSearchEntryMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveSearchEntryMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveSearchEntryMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveSearchEntryMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveSearchEntryMethod "realize" o = WidgetRealizeMethodInfo + ResolveSearchEntryMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSearchEntryMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSearchEntryMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveSearchEntryMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveSearchEntryMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveSearchEntryMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveSearchEntryMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveSearchEntryMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo + ResolveSearchEntryMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveSearchEntryMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveSearchEntryMethod "reparent" o = WidgetReparentMethodInfo + ResolveSearchEntryMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSearchEntryMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSearchEntryMethod "resetImContext" o = EntryResetImContextMethodInfo + ResolveSearchEntryMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveSearchEntryMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveSearchEntryMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSearchEntryMethod "selectRegion" o = EditableSelectRegionMethodInfo + ResolveSearchEntryMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveSearchEntryMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveSearchEntryMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveSearchEntryMethod "show" o = WidgetShowMethodInfo + ResolveSearchEntryMethod "showAll" o = WidgetShowAllMethodInfo + ResolveSearchEntryMethod "showNow" o = WidgetShowNowMethodInfo + ResolveSearchEntryMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveSearchEntryMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveSearchEntryMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveSearchEntryMethod "startEditing" o = CellEditableStartEditingMethodInfo + ResolveSearchEntryMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSearchEntryMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSearchEntryMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveSearchEntryMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveSearchEntryMethod "textIndexToLayoutIndex" o = EntryTextIndexToLayoutIndexMethodInfo + ResolveSearchEntryMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveSearchEntryMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSearchEntryMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveSearchEntryMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveSearchEntryMethod "unmap" o = WidgetUnmapMethodInfo + ResolveSearchEntryMethod "unparent" o = WidgetUnparentMethodInfo + ResolveSearchEntryMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveSearchEntryMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSearchEntryMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveSearchEntryMethod "unsetInvisibleChar" o = EntryUnsetInvisibleCharMethodInfo + ResolveSearchEntryMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveSearchEntryMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSearchEntryMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveSearchEntryMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveSearchEntryMethod "getActivatesDefault" o = EntryGetActivatesDefaultMethodInfo + ResolveSearchEntryMethod "getAlignment" o = EntryGetAlignmentMethodInfo + ResolveSearchEntryMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveSearchEntryMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveSearchEntryMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveSearchEntryMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveSearchEntryMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveSearchEntryMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveSearchEntryMethod "getAttributes" o = EntryGetAttributesMethodInfo + ResolveSearchEntryMethod "getBuffer" o = EntryGetBufferMethodInfo + ResolveSearchEntryMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveSearchEntryMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveSearchEntryMethod "getChars" o = EditableGetCharsMethodInfo + ResolveSearchEntryMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveSearchEntryMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveSearchEntryMethod "getClip" o = WidgetGetClipMethodInfo + ResolveSearchEntryMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveSearchEntryMethod "getCompletion" o = EntryGetCompletionMethodInfo + ResolveSearchEntryMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveSearchEntryMethod "getCurrentIconDragSource" o = EntryGetCurrentIconDragSourceMethodInfo + ResolveSearchEntryMethod "getCursorHadjustment" o = EntryGetCursorHadjustmentMethodInfo + ResolveSearchEntryMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSearchEntryMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveSearchEntryMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveSearchEntryMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveSearchEntryMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveSearchEntryMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveSearchEntryMethod "getEditable" o = EditableGetEditableMethodInfo + ResolveSearchEntryMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveSearchEntryMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveSearchEntryMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveSearchEntryMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveSearchEntryMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveSearchEntryMethod "getHasFrame" o = EntryGetHasFrameMethodInfo + ResolveSearchEntryMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveSearchEntryMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveSearchEntryMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveSearchEntryMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveSearchEntryMethod "getIconActivatable" o = EntryGetIconActivatableMethodInfo + ResolveSearchEntryMethod "getIconArea" o = EntryGetIconAreaMethodInfo + ResolveSearchEntryMethod "getIconAtPos" o = EntryGetIconAtPosMethodInfo + ResolveSearchEntryMethod "getIconGicon" o = EntryGetIconGiconMethodInfo + ResolveSearchEntryMethod "getIconName" o = EntryGetIconNameMethodInfo + ResolveSearchEntryMethod "getIconPixbuf" o = EntryGetIconPixbufMethodInfo + ResolveSearchEntryMethod "getIconSensitive" o = EntryGetIconSensitiveMethodInfo + ResolveSearchEntryMethod "getIconStock" o = EntryGetIconStockMethodInfo + ResolveSearchEntryMethod "getIconStorageType" o = EntryGetIconStorageTypeMethodInfo + ResolveSearchEntryMethod "getIconTooltipMarkup" o = EntryGetIconTooltipMarkupMethodInfo + ResolveSearchEntryMethod "getIconTooltipText" o = EntryGetIconTooltipTextMethodInfo + ResolveSearchEntryMethod "getInnerBorder" o = EntryGetInnerBorderMethodInfo + ResolveSearchEntryMethod "getInputHints" o = EntryGetInputHintsMethodInfo + ResolveSearchEntryMethod "getInputPurpose" o = EntryGetInputPurposeMethodInfo + ResolveSearchEntryMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveSearchEntryMethod "getInvisibleChar" o = EntryGetInvisibleCharMethodInfo + ResolveSearchEntryMethod "getLayout" o = EntryGetLayoutMethodInfo + ResolveSearchEntryMethod "getLayoutOffsets" o = EntryGetLayoutOffsetsMethodInfo + ResolveSearchEntryMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveSearchEntryMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveSearchEntryMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveSearchEntryMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveSearchEntryMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveSearchEntryMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveSearchEntryMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveSearchEntryMethod "getMaxLength" o = EntryGetMaxLengthMethodInfo + ResolveSearchEntryMethod "getMaxWidthChars" o = EntryGetMaxWidthCharsMethodInfo + ResolveSearchEntryMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveSearchEntryMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveSearchEntryMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveSearchEntryMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveSearchEntryMethod "getOverwriteMode" o = EntryGetOverwriteModeMethodInfo + ResolveSearchEntryMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveSearchEntryMethod "getParent" o = WidgetGetParentMethodInfo + ResolveSearchEntryMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveSearchEntryMethod "getPath" o = WidgetGetPathMethodInfo + ResolveSearchEntryMethod "getPlaceholderText" o = EntryGetPlaceholderTextMethodInfo + ResolveSearchEntryMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveSearchEntryMethod "getPosition" o = EditableGetPositionMethodInfo + ResolveSearchEntryMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveSearchEntryMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveSearchEntryMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveSearchEntryMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveSearchEntryMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveSearchEntryMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveSearchEntryMethod "getProgressFraction" o = EntryGetProgressFractionMethodInfo + ResolveSearchEntryMethod "getProgressPulseStep" o = EntryGetProgressPulseStepMethodInfo + ResolveSearchEntryMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSearchEntryMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSearchEntryMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveSearchEntryMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveSearchEntryMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveSearchEntryMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveSearchEntryMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveSearchEntryMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveSearchEntryMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveSearchEntryMethod "getSelectionBounds" o = EditableGetSelectionBoundsMethodInfo + ResolveSearchEntryMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveSearchEntryMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveSearchEntryMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveSearchEntryMethod "getState" o = WidgetGetStateMethodInfo + ResolveSearchEntryMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveSearchEntryMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveSearchEntryMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveSearchEntryMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveSearchEntryMethod "getTabs" o = EntryGetTabsMethodInfo + ResolveSearchEntryMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveSearchEntryMethod "getText" o = EntryGetTextMethodInfo + ResolveSearchEntryMethod "getTextArea" o = EntryGetTextAreaMethodInfo + ResolveSearchEntryMethod "getTextLength" o = EntryGetTextLengthMethodInfo + ResolveSearchEntryMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveSearchEntryMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveSearchEntryMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveSearchEntryMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveSearchEntryMethod "getValign" o = WidgetGetValignMethodInfo + ResolveSearchEntryMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveSearchEntryMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveSearchEntryMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveSearchEntryMethod "getVisibility" o = EntryGetVisibilityMethodInfo + ResolveSearchEntryMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveSearchEntryMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveSearchEntryMethod "getWidthChars" o = EntryGetWidthCharsMethodInfo + ResolveSearchEntryMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveSearchEntryMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveSearchEntryMethod "setActivatesDefault" o = EntrySetActivatesDefaultMethodInfo + ResolveSearchEntryMethod "setAlignment" o = EntrySetAlignmentMethodInfo + ResolveSearchEntryMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveSearchEntryMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveSearchEntryMethod "setAttributes" o = EntrySetAttributesMethodInfo + ResolveSearchEntryMethod "setBuffer" o = EntrySetBufferMethodInfo + ResolveSearchEntryMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveSearchEntryMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveSearchEntryMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveSearchEntryMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveSearchEntryMethod "setClip" o = WidgetSetClipMethodInfo + ResolveSearchEntryMethod "setCompletion" o = EntrySetCompletionMethodInfo + ResolveSearchEntryMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveSearchEntryMethod "setCursorHadjustment" o = EntrySetCursorHadjustmentMethodInfo + ResolveSearchEntryMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSearchEntryMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveSearchEntryMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveSearchEntryMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveSearchEntryMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveSearchEntryMethod "setEditable" o = EditableSetEditableMethodInfo + ResolveSearchEntryMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveSearchEntryMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveSearchEntryMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveSearchEntryMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveSearchEntryMethod "setHasFrame" o = EntrySetHasFrameMethodInfo + ResolveSearchEntryMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveSearchEntryMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveSearchEntryMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveSearchEntryMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveSearchEntryMethod "setIconActivatable" o = EntrySetIconActivatableMethodInfo + ResolveSearchEntryMethod "setIconDragSource" o = EntrySetIconDragSourceMethodInfo + ResolveSearchEntryMethod "setIconFromGicon" o = EntrySetIconFromGiconMethodInfo + ResolveSearchEntryMethod "setIconFromIconName" o = EntrySetIconFromIconNameMethodInfo + ResolveSearchEntryMethod "setIconFromPixbuf" o = EntrySetIconFromPixbufMethodInfo + ResolveSearchEntryMethod "setIconFromStock" o = EntrySetIconFromStockMethodInfo + ResolveSearchEntryMethod "setIconSensitive" o = EntrySetIconSensitiveMethodInfo + ResolveSearchEntryMethod "setIconTooltipMarkup" o = EntrySetIconTooltipMarkupMethodInfo + ResolveSearchEntryMethod "setIconTooltipText" o = EntrySetIconTooltipTextMethodInfo + ResolveSearchEntryMethod "setInnerBorder" o = EntrySetInnerBorderMethodInfo + ResolveSearchEntryMethod "setInputHints" o = EntrySetInputHintsMethodInfo + ResolveSearchEntryMethod "setInputPurpose" o = EntrySetInputPurposeMethodInfo + ResolveSearchEntryMethod "setInvisibleChar" o = EntrySetInvisibleCharMethodInfo + ResolveSearchEntryMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveSearchEntryMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveSearchEntryMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveSearchEntryMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveSearchEntryMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveSearchEntryMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveSearchEntryMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveSearchEntryMethod "setMaxLength" o = EntrySetMaxLengthMethodInfo + ResolveSearchEntryMethod "setMaxWidthChars" o = EntrySetMaxWidthCharsMethodInfo + ResolveSearchEntryMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveSearchEntryMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveSearchEntryMethod "setOverwriteMode" o = EntrySetOverwriteModeMethodInfo + ResolveSearchEntryMethod "setParent" o = WidgetSetParentMethodInfo + ResolveSearchEntryMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveSearchEntryMethod "setPlaceholderText" o = EntrySetPlaceholderTextMethodInfo + ResolveSearchEntryMethod "setPosition" o = EditableSetPositionMethodInfo + ResolveSearchEntryMethod "setProgressFraction" o = EntrySetProgressFractionMethodInfo + ResolveSearchEntryMethod "setProgressPulseStep" o = EntrySetProgressPulseStepMethodInfo + ResolveSearchEntryMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSearchEntryMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveSearchEntryMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveSearchEntryMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveSearchEntryMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveSearchEntryMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveSearchEntryMethod "setState" o = WidgetSetStateMethodInfo + ResolveSearchEntryMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveSearchEntryMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveSearchEntryMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveSearchEntryMethod "setTabs" o = EntrySetTabsMethodInfo + ResolveSearchEntryMethod "setText" o = EntrySetTextMethodInfo + ResolveSearchEntryMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveSearchEntryMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveSearchEntryMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveSearchEntryMethod "setValign" o = WidgetSetValignMethodInfo + ResolveSearchEntryMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveSearchEntryMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveSearchEntryMethod "setVisibility" o = EntrySetVisibilityMethodInfo + ResolveSearchEntryMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveSearchEntryMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveSearchEntryMethod "setWidthChars" o = EntrySetWidthCharsMethodInfo + ResolveSearchEntryMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveSearchEntryMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSearchEntryMethod t SearchEntry, MethodInfo info SearchEntry p) => IsLabelProxy t (SearchEntry -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSearchEntryMethod t SearchEntry, MethodInfo info SearchEntry p) => IsLabel t (SearchEntry -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal SearchEntry::next-match type SearchEntryNextMatchCallback = IO () @@ -266,7 +655,7 @@ connectSignalFunPtr obj "stop-search" cb' after type instance AttributeList SearchEntry = SearchEntryAttributeList -type SearchEntryAttributeList = ('[ '("activates-default", EntryActivatesDefaultPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("caps-lock-warning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", EntryCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", EntryHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("im-module", EntryImModulePropertyInfo), '("inner-border", EntryInnerBorderPropertyInfo), '("input-hints", EntryInputHintsPropertyInfo), '("input-purpose", EntryInputPurposePropertyInfo), '("invisible-char", EntryInvisibleCharPropertyInfo), '("invisible-char-set", EntryInvisibleCharSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-length", EntryMaxLengthPropertyInfo), '("max-width-chars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite-mode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholder-text", EntryPlaceholderTextPropertyInfo), '("populate-all", EntryPopulateAllPropertyInfo), '("primary-icon-activatable", EntryPrimaryIconActivatablePropertyInfo), '("primary-icon-gicon", EntryPrimaryIconGiconPropertyInfo), '("primary-icon-name", EntryPrimaryIconNamePropertyInfo), '("primary-icon-pixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primary-icon-sensitive", EntryPrimaryIconSensitivePropertyInfo), '("primary-icon-stock", EntryPrimaryIconStockPropertyInfo), '("primary-icon-storage-type", EntryPrimaryIconStorageTypePropertyInfo), '("primary-icon-tooltip-markup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primary-icon-tooltip-text", EntryPrimaryIconTooltipTextPropertyInfo), '("progress-fraction", EntryProgressFractionPropertyInfo), '("progress-pulse-step", EntryProgressPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scroll-offset", EntryScrollOffsetPropertyInfo), '("secondary-icon-activatable", EntrySecondaryIconActivatablePropertyInfo), '("secondary-icon-gicon", EntrySecondaryIconGiconPropertyInfo), '("secondary-icon-name", EntrySecondaryIconNamePropertyInfo), '("secondary-icon-pixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondary-icon-sensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondary-icon-stock", EntrySecondaryIconStockPropertyInfo), '("secondary-icon-storage-type", EntrySecondaryIconStorageTypePropertyInfo), '("secondary-icon-tooltip-markup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondary-icon-tooltip-text", EntrySecondaryIconTooltipTextPropertyInfo), '("selection-bound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("text-length", EntryTextLengthPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("truncate-multiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", EntryWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) +type SearchEntryAttributeList = ('[ '("activatesDefault", EntryActivatesDefaultPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("capsLockWarning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", EntryCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", EntryHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("imModule", EntryImModulePropertyInfo), '("innerBorder", EntryInnerBorderPropertyInfo), '("inputHints", EntryInputHintsPropertyInfo), '("inputPurpose", EntryInputPurposePropertyInfo), '("invisibleChar", EntryInvisibleCharPropertyInfo), '("invisibleCharSet", EntryInvisibleCharSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxLength", EntryMaxLengthPropertyInfo), '("maxWidthChars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwriteMode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholderText", EntryPlaceholderTextPropertyInfo), '("populateAll", EntryPopulateAllPropertyInfo), '("primaryIconActivatable", EntryPrimaryIconActivatablePropertyInfo), '("primaryIconGicon", EntryPrimaryIconGiconPropertyInfo), '("primaryIconName", EntryPrimaryIconNamePropertyInfo), '("primaryIconPixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primaryIconSensitive", EntryPrimaryIconSensitivePropertyInfo), '("primaryIconStock", EntryPrimaryIconStockPropertyInfo), '("primaryIconStorageType", EntryPrimaryIconStorageTypePropertyInfo), '("primaryIconTooltipMarkup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primaryIconTooltipText", EntryPrimaryIconTooltipTextPropertyInfo), '("progressFraction", EntryProgressFractionPropertyInfo), '("progressPulseStep", EntryProgressPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollOffset", EntryScrollOffsetPropertyInfo), '("secondaryIconActivatable", EntrySecondaryIconActivatablePropertyInfo), '("secondaryIconGicon", EntrySecondaryIconGiconPropertyInfo), '("secondaryIconName", EntrySecondaryIconNamePropertyInfo), '("secondaryIconPixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondaryIconSensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondaryIconStock", EntrySecondaryIconStockPropertyInfo), '("secondaryIconStorageType", EntrySecondaryIconStorageTypePropertyInfo), '("secondaryIconTooltipMarkup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondaryIconTooltipText", EntrySecondaryIconTooltipTextPropertyInfo), '("selectionBound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("textLength", EntryTextLengthPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("truncateMultiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", EntryWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) data SearchEntryNextMatchSignalInfo instance SignalInfo SearchEntryNextMatchSignalInfo where @@ -289,13 +678,12 @@ connectSignal _ = connectSearchEntryStopSearch type instance SignalList SearchEntry = SearchEntrySignalList -type SearchEntrySignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", EditableChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", EntryCopyClipboardSignalInfo), '("cut-clipboard", EntryCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", EntryDeleteFromCursorSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("icon-press", EntryIconPressSignalInfo), '("icon-release", EntryIconReleaseSignalInfo), '("insert-at-cursor", EntryInsertAtCursorSignalInfo), '("insert-text", EditableInsertTextSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", EntryMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("next-match", SearchEntryNextMatchSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", EntryPasteClipboardSignalInfo), '("populate-popup", EntryPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", EntryPreeditChangedSignalInfo), '("previous-match", SearchEntryPreviousMatchSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("search-changed", SearchEntrySearchChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("stop-search", SearchEntryStopSearchSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-overwrite", EntryToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SearchEntrySignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changed", EditableChangedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", EntryCopyClipboardSignalInfo), '("cutClipboard", EntryCutClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deleteFromCursor", EntryDeleteFromCursorSignalInfo), '("deleteText", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("iconPress", EntryIconPressSignalInfo), '("iconRelease", EntryIconReleaseSignalInfo), '("insertAtCursor", EntryInsertAtCursorSignalInfo), '("insertText", EditableInsertTextSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", EntryMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("nextMatch", SearchEntryNextMatchSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("pasteClipboard", EntryPasteClipboardSignalInfo), '("populatePopup", EntryPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("preeditChanged", EntryPreeditChangedSignalInfo), '("previousMatch", SearchEntryPreviousMatchSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("searchChanged", SearchEntrySearchChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("stopSearch", SearchEntryStopSearchSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleOverwrite", EntryToggleOverwriteSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method SearchEntry::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "SearchEntry" -- throws : False -- Skip return : False @@ -306,7 +694,7 @@ searchEntryNew :: (MonadIO m) => - m SearchEntry + m SearchEntry -- result searchEntryNew = liftIO $ do result <- gtk_search_entry_new checkUnexpectedReturnNULL "gtk_search_entry_new" result @@ -315,9 +703,8 @@ -- method SearchEntry::handle_event -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -330,9 +717,9 @@ searchEntryHandleEvent :: (MonadIO m, SearchEntryK a) => - a -> -- _obj - Gdk.Event -> -- event - m Bool + a -- _obj + -> Gdk.Event -- event + -> m Bool -- result searchEntryHandleEvent _obj event = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let event' = unsafeManagedPtrGetPtr event @@ -341,5 +728,9 @@ touchManagedPtr _obj touchManagedPtr event return result' + +data SearchEntryHandleEventMethodInfo +instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, SearchEntryK a) => MethodInfo SearchEntryHandleEventMethodInfo a signature where + overloadedMethod _ = searchEntryHandleEvent diff --git a/GI/Gtk/Objects/SearchEntry.hs-boot b/GI/Gtk/Objects/SearchEntry.hs-boot --- a/GI/Gtk/Objects/SearchEntry.hs-boot +++ b/GI/Gtk/Objects/SearchEntry.hs-boot @@ -15,3 +15,4 @@ data SearchEntryPreviousMatchSignalInfo data SearchEntrySearchChangedSignalInfo data SearchEntryStopSearchSignalInfo +data SearchEntryHandleEventMethodInfo diff --git a/GI/Gtk/Objects/Separator.hs b/GI/Gtk/Objects/Separator.hs --- a/GI/Gtk/Objects/Separator.hs +++ b/GI/Gtk/Objects/Separator.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,314 @@ noSeparator :: Maybe Separator noSeparator = Nothing +type family ResolveSeparatorMethod (t :: Symbol) (o :: *) :: * where + ResolveSeparatorMethod "activate" o = WidgetActivateMethodInfo + ResolveSeparatorMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveSeparatorMethod "addChild" o = BuildableAddChildMethodInfo + ResolveSeparatorMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveSeparatorMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveSeparatorMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveSeparatorMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveSeparatorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSeparatorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSeparatorMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveSeparatorMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveSeparatorMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveSeparatorMethod "classPath" o = WidgetClassPathMethodInfo + ResolveSeparatorMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveSeparatorMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveSeparatorMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveSeparatorMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveSeparatorMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveSeparatorMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveSeparatorMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveSeparatorMethod "destroy" o = WidgetDestroyMethodInfo + ResolveSeparatorMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveSeparatorMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveSeparatorMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveSeparatorMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveSeparatorMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveSeparatorMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveSeparatorMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveSeparatorMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveSeparatorMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveSeparatorMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveSeparatorMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveSeparatorMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveSeparatorMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveSeparatorMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveSeparatorMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveSeparatorMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveSeparatorMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveSeparatorMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveSeparatorMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveSeparatorMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveSeparatorMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveSeparatorMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveSeparatorMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveSeparatorMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveSeparatorMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveSeparatorMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveSeparatorMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveSeparatorMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveSeparatorMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveSeparatorMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveSeparatorMethod "draw" o = WidgetDrawMethodInfo + ResolveSeparatorMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveSeparatorMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveSeparatorMethod "event" o = WidgetEventMethodInfo + ResolveSeparatorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSeparatorMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveSeparatorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSeparatorMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveSeparatorMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveSeparatorMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveSeparatorMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveSeparatorMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveSeparatorMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveSeparatorMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveSeparatorMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveSeparatorMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveSeparatorMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveSeparatorMethod "hide" o = WidgetHideMethodInfo + ResolveSeparatorMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveSeparatorMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveSeparatorMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveSeparatorMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveSeparatorMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveSeparatorMethod "intersect" o = WidgetIntersectMethodInfo + ResolveSeparatorMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveSeparatorMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveSeparatorMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveSeparatorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSeparatorMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveSeparatorMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveSeparatorMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveSeparatorMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveSeparatorMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveSeparatorMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveSeparatorMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveSeparatorMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveSeparatorMethod "map" o = WidgetMapMethodInfo + ResolveSeparatorMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveSeparatorMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveSeparatorMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveSeparatorMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveSeparatorMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveSeparatorMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveSeparatorMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveSeparatorMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveSeparatorMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSeparatorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSeparatorMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveSeparatorMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveSeparatorMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveSeparatorMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveSeparatorMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveSeparatorMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveSeparatorMethod "path" o = WidgetPathMethodInfo + ResolveSeparatorMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveSeparatorMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveSeparatorMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveSeparatorMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveSeparatorMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveSeparatorMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveSeparatorMethod "realize" o = WidgetRealizeMethodInfo + ResolveSeparatorMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSeparatorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSeparatorMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveSeparatorMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveSeparatorMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveSeparatorMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveSeparatorMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveSeparatorMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveSeparatorMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveSeparatorMethod "reparent" o = WidgetReparentMethodInfo + ResolveSeparatorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSeparatorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSeparatorMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveSeparatorMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveSeparatorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSeparatorMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveSeparatorMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveSeparatorMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveSeparatorMethod "show" o = WidgetShowMethodInfo + ResolveSeparatorMethod "showAll" o = WidgetShowAllMethodInfo + ResolveSeparatorMethod "showNow" o = WidgetShowNowMethodInfo + ResolveSeparatorMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveSeparatorMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveSeparatorMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveSeparatorMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSeparatorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSeparatorMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveSeparatorMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveSeparatorMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveSeparatorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSeparatorMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveSeparatorMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveSeparatorMethod "unmap" o = WidgetUnmapMethodInfo + ResolveSeparatorMethod "unparent" o = WidgetUnparentMethodInfo + ResolveSeparatorMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveSeparatorMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSeparatorMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveSeparatorMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveSeparatorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSeparatorMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveSeparatorMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveSeparatorMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveSeparatorMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveSeparatorMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveSeparatorMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveSeparatorMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveSeparatorMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveSeparatorMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveSeparatorMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveSeparatorMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveSeparatorMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveSeparatorMethod "getClip" o = WidgetGetClipMethodInfo + ResolveSeparatorMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveSeparatorMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveSeparatorMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSeparatorMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveSeparatorMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveSeparatorMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveSeparatorMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveSeparatorMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveSeparatorMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveSeparatorMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveSeparatorMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveSeparatorMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveSeparatorMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveSeparatorMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveSeparatorMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveSeparatorMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveSeparatorMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveSeparatorMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveSeparatorMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveSeparatorMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveSeparatorMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveSeparatorMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveSeparatorMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveSeparatorMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveSeparatorMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveSeparatorMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveSeparatorMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveSeparatorMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveSeparatorMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveSeparatorMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveSeparatorMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveSeparatorMethod "getParent" o = WidgetGetParentMethodInfo + ResolveSeparatorMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveSeparatorMethod "getPath" o = WidgetGetPathMethodInfo + ResolveSeparatorMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveSeparatorMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveSeparatorMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveSeparatorMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveSeparatorMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveSeparatorMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveSeparatorMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveSeparatorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSeparatorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSeparatorMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveSeparatorMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveSeparatorMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveSeparatorMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveSeparatorMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveSeparatorMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveSeparatorMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveSeparatorMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveSeparatorMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveSeparatorMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveSeparatorMethod "getState" o = WidgetGetStateMethodInfo + ResolveSeparatorMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveSeparatorMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveSeparatorMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveSeparatorMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveSeparatorMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveSeparatorMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveSeparatorMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveSeparatorMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveSeparatorMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveSeparatorMethod "getValign" o = WidgetGetValignMethodInfo + ResolveSeparatorMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveSeparatorMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveSeparatorMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveSeparatorMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveSeparatorMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveSeparatorMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveSeparatorMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveSeparatorMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveSeparatorMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveSeparatorMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveSeparatorMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveSeparatorMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveSeparatorMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveSeparatorMethod "setClip" o = WidgetSetClipMethodInfo + ResolveSeparatorMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveSeparatorMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSeparatorMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveSeparatorMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveSeparatorMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveSeparatorMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveSeparatorMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveSeparatorMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveSeparatorMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveSeparatorMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveSeparatorMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveSeparatorMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveSeparatorMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveSeparatorMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveSeparatorMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveSeparatorMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveSeparatorMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveSeparatorMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveSeparatorMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveSeparatorMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveSeparatorMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveSeparatorMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveSeparatorMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveSeparatorMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveSeparatorMethod "setParent" o = WidgetSetParentMethodInfo + ResolveSeparatorMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveSeparatorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSeparatorMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveSeparatorMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveSeparatorMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveSeparatorMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveSeparatorMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveSeparatorMethod "setState" o = WidgetSetStateMethodInfo + ResolveSeparatorMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveSeparatorMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveSeparatorMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveSeparatorMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveSeparatorMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveSeparatorMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveSeparatorMethod "setValign" o = WidgetSetValignMethodInfo + ResolveSeparatorMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveSeparatorMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveSeparatorMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveSeparatorMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveSeparatorMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveSeparatorMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSeparatorMethod t Separator, MethodInfo info Separator p) => IsLabelProxy t (Separator -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSeparatorMethod t Separator, MethodInfo info Separator p) => IsLabel t (Separator -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList Separator = SeparatorAttributeList -type SeparatorAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type SeparatorAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Separator = SeparatorSignalList -type SeparatorSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SeparatorSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Separator::new -- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Separator" -- throws : False -- Skip return : False @@ -79,8 +377,8 @@ separatorNew :: (MonadIO m) => - Orientation -> -- orientation - m Separator + Orientation -- orientation + -> m Separator -- result separatorNew orientation = liftIO $ do let orientation' = (fromIntegral . fromEnum) orientation result <- gtk_separator_new orientation' diff --git a/GI/Gtk/Objects/SeparatorMenuItem.hs b/GI/Gtk/Objects/SeparatorMenuItem.hs --- a/GI/Gtk/Objects/SeparatorMenuItem.hs +++ b/GI/Gtk/Objects/SeparatorMenuItem.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,363 @@ noSeparatorMenuItem :: Maybe SeparatorMenuItem noSeparatorMenuItem = Nothing +type family ResolveSeparatorMenuItemMethod (t :: Symbol) (o :: *) :: * where + ResolveSeparatorMenuItemMethod "add" o = ContainerAddMethodInfo + ResolveSeparatorMenuItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveSeparatorMenuItemMethod "addChild" o = BuildableAddChildMethodInfo + ResolveSeparatorMenuItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveSeparatorMenuItemMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveSeparatorMenuItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveSeparatorMenuItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveSeparatorMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSeparatorMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSeparatorMenuItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveSeparatorMenuItemMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveSeparatorMenuItemMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveSeparatorMenuItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveSeparatorMenuItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveSeparatorMenuItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveSeparatorMenuItemMethod "childType" o = ContainerChildTypeMethodInfo + ResolveSeparatorMenuItemMethod "classPath" o = WidgetClassPathMethodInfo + ResolveSeparatorMenuItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveSeparatorMenuItemMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveSeparatorMenuItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveSeparatorMenuItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveSeparatorMenuItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveSeparatorMenuItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveSeparatorMenuItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveSeparatorMenuItemMethod "deselect" o = MenuItemDeselectMethodInfo + ResolveSeparatorMenuItemMethod "destroy" o = WidgetDestroyMethodInfo + ResolveSeparatorMenuItemMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveSeparatorMenuItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveSeparatorMenuItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveSeparatorMenuItemMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveSeparatorMenuItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveSeparatorMenuItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveSeparatorMenuItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveSeparatorMenuItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveSeparatorMenuItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveSeparatorMenuItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveSeparatorMenuItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveSeparatorMenuItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveSeparatorMenuItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveSeparatorMenuItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveSeparatorMenuItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveSeparatorMenuItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveSeparatorMenuItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveSeparatorMenuItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveSeparatorMenuItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveSeparatorMenuItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveSeparatorMenuItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveSeparatorMenuItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveSeparatorMenuItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveSeparatorMenuItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveSeparatorMenuItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveSeparatorMenuItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveSeparatorMenuItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveSeparatorMenuItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveSeparatorMenuItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveSeparatorMenuItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveSeparatorMenuItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveSeparatorMenuItemMethod "draw" o = WidgetDrawMethodInfo + ResolveSeparatorMenuItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveSeparatorMenuItemMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveSeparatorMenuItemMethod "event" o = WidgetEventMethodInfo + ResolveSeparatorMenuItemMethod "forall" o = ContainerForallMethodInfo + ResolveSeparatorMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSeparatorMenuItemMethod "foreach" o = ContainerForeachMethodInfo + ResolveSeparatorMenuItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveSeparatorMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSeparatorMenuItemMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveSeparatorMenuItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveSeparatorMenuItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveSeparatorMenuItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveSeparatorMenuItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveSeparatorMenuItemMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveSeparatorMenuItemMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveSeparatorMenuItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveSeparatorMenuItemMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveSeparatorMenuItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveSeparatorMenuItemMethod "hide" o = WidgetHideMethodInfo + ResolveSeparatorMenuItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveSeparatorMenuItemMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveSeparatorMenuItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveSeparatorMenuItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveSeparatorMenuItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveSeparatorMenuItemMethod "intersect" o = WidgetIntersectMethodInfo + ResolveSeparatorMenuItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveSeparatorMenuItemMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveSeparatorMenuItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveSeparatorMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSeparatorMenuItemMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveSeparatorMenuItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveSeparatorMenuItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveSeparatorMenuItemMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveSeparatorMenuItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveSeparatorMenuItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveSeparatorMenuItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveSeparatorMenuItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveSeparatorMenuItemMethod "map" o = WidgetMapMethodInfo + ResolveSeparatorMenuItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveSeparatorMenuItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveSeparatorMenuItemMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveSeparatorMenuItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveSeparatorMenuItemMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveSeparatorMenuItemMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveSeparatorMenuItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveSeparatorMenuItemMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveSeparatorMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSeparatorMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSeparatorMenuItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveSeparatorMenuItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveSeparatorMenuItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveSeparatorMenuItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveSeparatorMenuItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveSeparatorMenuItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveSeparatorMenuItemMethod "path" o = WidgetPathMethodInfo + ResolveSeparatorMenuItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveSeparatorMenuItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveSeparatorMenuItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveSeparatorMenuItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveSeparatorMenuItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveSeparatorMenuItemMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveSeparatorMenuItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveSeparatorMenuItemMethod "realize" o = WidgetRealizeMethodInfo + ResolveSeparatorMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSeparatorMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSeparatorMenuItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveSeparatorMenuItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveSeparatorMenuItemMethod "remove" o = ContainerRemoveMethodInfo + ResolveSeparatorMenuItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveSeparatorMenuItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveSeparatorMenuItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveSeparatorMenuItemMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveSeparatorMenuItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveSeparatorMenuItemMethod "reparent" o = WidgetReparentMethodInfo + ResolveSeparatorMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSeparatorMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSeparatorMenuItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveSeparatorMenuItemMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveSeparatorMenuItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveSeparatorMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSeparatorMenuItemMethod "select" o = MenuItemSelectMethodInfo + ResolveSeparatorMenuItemMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveSeparatorMenuItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveSeparatorMenuItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveSeparatorMenuItemMethod "show" o = WidgetShowMethodInfo + ResolveSeparatorMenuItemMethod "showAll" o = WidgetShowAllMethodInfo + ResolveSeparatorMenuItemMethod "showNow" o = WidgetShowNowMethodInfo + ResolveSeparatorMenuItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveSeparatorMenuItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveSeparatorMenuItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveSeparatorMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSeparatorMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSeparatorMenuItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveSeparatorMenuItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveSeparatorMenuItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveSeparatorMenuItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveSeparatorMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSeparatorMenuItemMethod "toggleSizeAllocate" o = MenuItemToggleSizeAllocateMethodInfo + ResolveSeparatorMenuItemMethod "toggleSizeRequest" o = MenuItemToggleSizeRequestMethodInfo + ResolveSeparatorMenuItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveSeparatorMenuItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveSeparatorMenuItemMethod "unmap" o = WidgetUnmapMethodInfo + ResolveSeparatorMenuItemMethod "unparent" o = WidgetUnparentMethodInfo + ResolveSeparatorMenuItemMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveSeparatorMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSeparatorMenuItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveSeparatorMenuItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveSeparatorMenuItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveSeparatorMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSeparatorMenuItemMethod "getAccelPath" o = MenuItemGetAccelPathMethodInfo + ResolveSeparatorMenuItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveSeparatorMenuItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveSeparatorMenuItemMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveSeparatorMenuItemMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveSeparatorMenuItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveSeparatorMenuItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveSeparatorMenuItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveSeparatorMenuItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveSeparatorMenuItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveSeparatorMenuItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveSeparatorMenuItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveSeparatorMenuItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveSeparatorMenuItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveSeparatorMenuItemMethod "getChild" o = BinGetChildMethodInfo + ResolveSeparatorMenuItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveSeparatorMenuItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveSeparatorMenuItemMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveSeparatorMenuItemMethod "getClip" o = WidgetGetClipMethodInfo + ResolveSeparatorMenuItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveSeparatorMenuItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveSeparatorMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSeparatorMenuItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveSeparatorMenuItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveSeparatorMenuItemMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveSeparatorMenuItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveSeparatorMenuItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveSeparatorMenuItemMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveSeparatorMenuItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveSeparatorMenuItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveSeparatorMenuItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveSeparatorMenuItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveSeparatorMenuItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveSeparatorMenuItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveSeparatorMenuItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveSeparatorMenuItemMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveSeparatorMenuItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveSeparatorMenuItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveSeparatorMenuItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveSeparatorMenuItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveSeparatorMenuItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveSeparatorMenuItemMethod "getLabel" o = MenuItemGetLabelMethodInfo + ResolveSeparatorMenuItemMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveSeparatorMenuItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveSeparatorMenuItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveSeparatorMenuItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveSeparatorMenuItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveSeparatorMenuItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveSeparatorMenuItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveSeparatorMenuItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveSeparatorMenuItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveSeparatorMenuItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveSeparatorMenuItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveSeparatorMenuItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveSeparatorMenuItemMethod "getParent" o = WidgetGetParentMethodInfo + ResolveSeparatorMenuItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveSeparatorMenuItemMethod "getPath" o = WidgetGetPathMethodInfo + ResolveSeparatorMenuItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveSeparatorMenuItemMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveSeparatorMenuItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveSeparatorMenuItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveSeparatorMenuItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveSeparatorMenuItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveSeparatorMenuItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveSeparatorMenuItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveSeparatorMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSeparatorMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSeparatorMenuItemMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveSeparatorMenuItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveSeparatorMenuItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveSeparatorMenuItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveSeparatorMenuItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveSeparatorMenuItemMethod "getReserveIndicator" o = MenuItemGetReserveIndicatorMethodInfo + ResolveSeparatorMenuItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveSeparatorMenuItemMethod "getRightJustified" o = MenuItemGetRightJustifiedMethodInfo + ResolveSeparatorMenuItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveSeparatorMenuItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveSeparatorMenuItemMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveSeparatorMenuItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveSeparatorMenuItemMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveSeparatorMenuItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveSeparatorMenuItemMethod "getState" o = WidgetGetStateMethodInfo + ResolveSeparatorMenuItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveSeparatorMenuItemMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveSeparatorMenuItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveSeparatorMenuItemMethod "getSubmenu" o = MenuItemGetSubmenuMethodInfo + ResolveSeparatorMenuItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveSeparatorMenuItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveSeparatorMenuItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveSeparatorMenuItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveSeparatorMenuItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveSeparatorMenuItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveSeparatorMenuItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveSeparatorMenuItemMethod "getUseUnderline" o = MenuItemGetUseUnderlineMethodInfo + ResolveSeparatorMenuItemMethod "getValign" o = WidgetGetValignMethodInfo + ResolveSeparatorMenuItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveSeparatorMenuItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveSeparatorMenuItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveSeparatorMenuItemMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveSeparatorMenuItemMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveSeparatorMenuItemMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveSeparatorMenuItemMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveSeparatorMenuItemMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveSeparatorMenuItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveSeparatorMenuItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveSeparatorMenuItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveSeparatorMenuItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveSeparatorMenuItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveSeparatorMenuItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveSeparatorMenuItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveSeparatorMenuItemMethod "setClip" o = WidgetSetClipMethodInfo + ResolveSeparatorMenuItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveSeparatorMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSeparatorMenuItemMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveSeparatorMenuItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveSeparatorMenuItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveSeparatorMenuItemMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveSeparatorMenuItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveSeparatorMenuItemMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveSeparatorMenuItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveSeparatorMenuItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveSeparatorMenuItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveSeparatorMenuItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveSeparatorMenuItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveSeparatorMenuItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveSeparatorMenuItemMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveSeparatorMenuItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveSeparatorMenuItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveSeparatorMenuItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveSeparatorMenuItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveSeparatorMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo + ResolveSeparatorMenuItemMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveSeparatorMenuItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveSeparatorMenuItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveSeparatorMenuItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveSeparatorMenuItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveSeparatorMenuItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveSeparatorMenuItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveSeparatorMenuItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveSeparatorMenuItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveSeparatorMenuItemMethod "setParent" o = WidgetSetParentMethodInfo + ResolveSeparatorMenuItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveSeparatorMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSeparatorMenuItemMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveSeparatorMenuItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveSeparatorMenuItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveSeparatorMenuItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveSeparatorMenuItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveSeparatorMenuItemMethod "setReserveIndicator" o = MenuItemSetReserveIndicatorMethodInfo + ResolveSeparatorMenuItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveSeparatorMenuItemMethod "setRightJustified" o = MenuItemSetRightJustifiedMethodInfo + ResolveSeparatorMenuItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveSeparatorMenuItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveSeparatorMenuItemMethod "setState" o = WidgetSetStateMethodInfo + ResolveSeparatorMenuItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveSeparatorMenuItemMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveSeparatorMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo + ResolveSeparatorMenuItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveSeparatorMenuItemMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveSeparatorMenuItemMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveSeparatorMenuItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveSeparatorMenuItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveSeparatorMenuItemMethod "setUseUnderline" o = MenuItemSetUseUnderlineMethodInfo + ResolveSeparatorMenuItemMethod "setValign" o = WidgetSetValignMethodInfo + ResolveSeparatorMenuItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveSeparatorMenuItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveSeparatorMenuItemMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveSeparatorMenuItemMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveSeparatorMenuItemMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveSeparatorMenuItemMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSeparatorMenuItemMethod t SeparatorMenuItem, MethodInfo info SeparatorMenuItem p) => IsLabelProxy t (SeparatorMenuItem -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSeparatorMenuItemMethod t SeparatorMenuItem, MethodInfo info SeparatorMenuItem p) => IsLabel t (SeparatorMenuItem -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList SeparatorMenuItem = SeparatorMenuItemAttributeList -type SeparatorMenuItemAttributeList = ('[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type SeparatorMenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList SeparatorMenuItem = SeparatorMenuItemSignalList -type SeparatorMenuItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SeparatorMenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method SeparatorMenuItem::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "SeparatorMenuItem" -- throws : False -- Skip return : False @@ -78,7 +425,7 @@ separatorMenuItemNew :: (MonadIO m) => - m SeparatorMenuItem + m SeparatorMenuItem -- result separatorMenuItemNew = liftIO $ do result <- gtk_separator_menu_item_new checkUnexpectedReturnNULL "gtk_separator_menu_item_new" result diff --git a/GI/Gtk/Objects/SeparatorToolItem.hs b/GI/Gtk/Objects/SeparatorToolItem.hs --- a/GI/Gtk/Objects/SeparatorToolItem.hs +++ b/GI/Gtk/Objects/SeparatorToolItem.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** separatorToolItemGetDraw + SeparatorToolItemGetDrawMethodInfo , separatorToolItemGetDraw , @@ -25,6 +27,7 @@ -- ** separatorToolItemSetDraw + SeparatorToolItemSetDrawMethodInfo , separatorToolItemSetDraw , @@ -75,6 +78,360 @@ noSeparatorToolItem :: Maybe SeparatorToolItem noSeparatorToolItem = Nothing +type family ResolveSeparatorToolItemMethod (t :: Symbol) (o :: *) :: * where + ResolveSeparatorToolItemMethod "activate" o = WidgetActivateMethodInfo + ResolveSeparatorToolItemMethod "add" o = ContainerAddMethodInfo + ResolveSeparatorToolItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveSeparatorToolItemMethod "addChild" o = BuildableAddChildMethodInfo + ResolveSeparatorToolItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveSeparatorToolItemMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveSeparatorToolItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveSeparatorToolItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveSeparatorToolItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSeparatorToolItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSeparatorToolItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveSeparatorToolItemMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveSeparatorToolItemMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveSeparatorToolItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveSeparatorToolItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveSeparatorToolItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveSeparatorToolItemMethod "childType" o = ContainerChildTypeMethodInfo + ResolveSeparatorToolItemMethod "classPath" o = WidgetClassPathMethodInfo + ResolveSeparatorToolItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveSeparatorToolItemMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveSeparatorToolItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveSeparatorToolItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveSeparatorToolItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveSeparatorToolItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveSeparatorToolItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveSeparatorToolItemMethod "destroy" o = WidgetDestroyMethodInfo + ResolveSeparatorToolItemMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveSeparatorToolItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveSeparatorToolItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveSeparatorToolItemMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveSeparatorToolItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveSeparatorToolItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveSeparatorToolItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveSeparatorToolItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveSeparatorToolItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveSeparatorToolItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveSeparatorToolItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveSeparatorToolItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveSeparatorToolItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveSeparatorToolItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveSeparatorToolItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveSeparatorToolItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveSeparatorToolItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveSeparatorToolItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveSeparatorToolItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveSeparatorToolItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveSeparatorToolItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveSeparatorToolItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveSeparatorToolItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveSeparatorToolItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveSeparatorToolItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveSeparatorToolItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveSeparatorToolItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveSeparatorToolItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveSeparatorToolItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveSeparatorToolItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveSeparatorToolItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveSeparatorToolItemMethod "draw" o = WidgetDrawMethodInfo + ResolveSeparatorToolItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveSeparatorToolItemMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveSeparatorToolItemMethod "event" o = WidgetEventMethodInfo + ResolveSeparatorToolItemMethod "forall" o = ContainerForallMethodInfo + ResolveSeparatorToolItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSeparatorToolItemMethod "foreach" o = ContainerForeachMethodInfo + ResolveSeparatorToolItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveSeparatorToolItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSeparatorToolItemMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveSeparatorToolItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveSeparatorToolItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveSeparatorToolItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveSeparatorToolItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveSeparatorToolItemMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveSeparatorToolItemMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveSeparatorToolItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveSeparatorToolItemMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveSeparatorToolItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveSeparatorToolItemMethod "hide" o = WidgetHideMethodInfo + ResolveSeparatorToolItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveSeparatorToolItemMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveSeparatorToolItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveSeparatorToolItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveSeparatorToolItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveSeparatorToolItemMethod "intersect" o = WidgetIntersectMethodInfo + ResolveSeparatorToolItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveSeparatorToolItemMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveSeparatorToolItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveSeparatorToolItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSeparatorToolItemMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveSeparatorToolItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveSeparatorToolItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveSeparatorToolItemMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveSeparatorToolItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveSeparatorToolItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveSeparatorToolItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveSeparatorToolItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveSeparatorToolItemMethod "map" o = WidgetMapMethodInfo + ResolveSeparatorToolItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveSeparatorToolItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveSeparatorToolItemMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveSeparatorToolItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveSeparatorToolItemMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveSeparatorToolItemMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveSeparatorToolItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveSeparatorToolItemMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveSeparatorToolItemMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSeparatorToolItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSeparatorToolItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveSeparatorToolItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveSeparatorToolItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveSeparatorToolItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveSeparatorToolItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveSeparatorToolItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveSeparatorToolItemMethod "path" o = WidgetPathMethodInfo + ResolveSeparatorToolItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveSeparatorToolItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveSeparatorToolItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveSeparatorToolItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveSeparatorToolItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveSeparatorToolItemMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveSeparatorToolItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveSeparatorToolItemMethod "realize" o = WidgetRealizeMethodInfo + ResolveSeparatorToolItemMethod "rebuildMenu" o = ToolItemRebuildMenuMethodInfo + ResolveSeparatorToolItemMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSeparatorToolItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSeparatorToolItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveSeparatorToolItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveSeparatorToolItemMethod "remove" o = ContainerRemoveMethodInfo + ResolveSeparatorToolItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveSeparatorToolItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveSeparatorToolItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveSeparatorToolItemMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveSeparatorToolItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveSeparatorToolItemMethod "reparent" o = WidgetReparentMethodInfo + ResolveSeparatorToolItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSeparatorToolItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSeparatorToolItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveSeparatorToolItemMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveSeparatorToolItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveSeparatorToolItemMethod "retrieveProxyMenuItem" o = ToolItemRetrieveProxyMenuItemMethodInfo + ResolveSeparatorToolItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSeparatorToolItemMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveSeparatorToolItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveSeparatorToolItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveSeparatorToolItemMethod "show" o = WidgetShowMethodInfo + ResolveSeparatorToolItemMethod "showAll" o = WidgetShowAllMethodInfo + ResolveSeparatorToolItemMethod "showNow" o = WidgetShowNowMethodInfo + ResolveSeparatorToolItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveSeparatorToolItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveSeparatorToolItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveSeparatorToolItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSeparatorToolItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSeparatorToolItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveSeparatorToolItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveSeparatorToolItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveSeparatorToolItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveSeparatorToolItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSeparatorToolItemMethod "toolbarReconfigured" o = ToolItemToolbarReconfiguredMethodInfo + ResolveSeparatorToolItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveSeparatorToolItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveSeparatorToolItemMethod "unmap" o = WidgetUnmapMethodInfo + ResolveSeparatorToolItemMethod "unparent" o = WidgetUnparentMethodInfo + ResolveSeparatorToolItemMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveSeparatorToolItemMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSeparatorToolItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveSeparatorToolItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveSeparatorToolItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveSeparatorToolItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSeparatorToolItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveSeparatorToolItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveSeparatorToolItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveSeparatorToolItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveSeparatorToolItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveSeparatorToolItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveSeparatorToolItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveSeparatorToolItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveSeparatorToolItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveSeparatorToolItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveSeparatorToolItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveSeparatorToolItemMethod "getChild" o = BinGetChildMethodInfo + ResolveSeparatorToolItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveSeparatorToolItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveSeparatorToolItemMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveSeparatorToolItemMethod "getClip" o = WidgetGetClipMethodInfo + ResolveSeparatorToolItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveSeparatorToolItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveSeparatorToolItemMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSeparatorToolItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveSeparatorToolItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveSeparatorToolItemMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveSeparatorToolItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveSeparatorToolItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveSeparatorToolItemMethod "getDraw" o = SeparatorToolItemGetDrawMethodInfo + ResolveSeparatorToolItemMethod "getEllipsizeMode" o = ToolItemGetEllipsizeModeMethodInfo + ResolveSeparatorToolItemMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveSeparatorToolItemMethod "getExpand" o = ToolItemGetExpandMethodInfo + ResolveSeparatorToolItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveSeparatorToolItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveSeparatorToolItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveSeparatorToolItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveSeparatorToolItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveSeparatorToolItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveSeparatorToolItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveSeparatorToolItemMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveSeparatorToolItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveSeparatorToolItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveSeparatorToolItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveSeparatorToolItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveSeparatorToolItemMethod "getHomogeneous" o = ToolItemGetHomogeneousMethodInfo + ResolveSeparatorToolItemMethod "getIconSize" o = ToolItemGetIconSizeMethodInfo + ResolveSeparatorToolItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveSeparatorToolItemMethod "getIsImportant" o = ToolItemGetIsImportantMethodInfo + ResolveSeparatorToolItemMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveSeparatorToolItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveSeparatorToolItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveSeparatorToolItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveSeparatorToolItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveSeparatorToolItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveSeparatorToolItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveSeparatorToolItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveSeparatorToolItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveSeparatorToolItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveSeparatorToolItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveSeparatorToolItemMethod "getOrientation" o = ToolItemGetOrientationMethodInfo + ResolveSeparatorToolItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveSeparatorToolItemMethod "getParent" o = WidgetGetParentMethodInfo + ResolveSeparatorToolItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveSeparatorToolItemMethod "getPath" o = WidgetGetPathMethodInfo + ResolveSeparatorToolItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveSeparatorToolItemMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveSeparatorToolItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveSeparatorToolItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveSeparatorToolItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveSeparatorToolItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveSeparatorToolItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveSeparatorToolItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveSeparatorToolItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSeparatorToolItemMethod "getProxyMenuItem" o = ToolItemGetProxyMenuItemMethodInfo + ResolveSeparatorToolItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSeparatorToolItemMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveSeparatorToolItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveSeparatorToolItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveSeparatorToolItemMethod "getReliefStyle" o = ToolItemGetReliefStyleMethodInfo + ResolveSeparatorToolItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveSeparatorToolItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveSeparatorToolItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveSeparatorToolItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveSeparatorToolItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveSeparatorToolItemMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveSeparatorToolItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveSeparatorToolItemMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveSeparatorToolItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveSeparatorToolItemMethod "getState" o = WidgetGetStateMethodInfo + ResolveSeparatorToolItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveSeparatorToolItemMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveSeparatorToolItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveSeparatorToolItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveSeparatorToolItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveSeparatorToolItemMethod "getTextAlignment" o = ToolItemGetTextAlignmentMethodInfo + ResolveSeparatorToolItemMethod "getTextOrientation" o = ToolItemGetTextOrientationMethodInfo + ResolveSeparatorToolItemMethod "getTextSizeGroup" o = ToolItemGetTextSizeGroupMethodInfo + ResolveSeparatorToolItemMethod "getToolbarStyle" o = ToolItemGetToolbarStyleMethodInfo + ResolveSeparatorToolItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveSeparatorToolItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveSeparatorToolItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveSeparatorToolItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveSeparatorToolItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveSeparatorToolItemMethod "getUseDragWindow" o = ToolItemGetUseDragWindowMethodInfo + ResolveSeparatorToolItemMethod "getValign" o = WidgetGetValignMethodInfo + ResolveSeparatorToolItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveSeparatorToolItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveSeparatorToolItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveSeparatorToolItemMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveSeparatorToolItemMethod "getVisibleHorizontal" o = ToolItemGetVisibleHorizontalMethodInfo + ResolveSeparatorToolItemMethod "getVisibleVertical" o = ToolItemGetVisibleVerticalMethodInfo + ResolveSeparatorToolItemMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveSeparatorToolItemMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveSeparatorToolItemMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveSeparatorToolItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveSeparatorToolItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveSeparatorToolItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveSeparatorToolItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveSeparatorToolItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveSeparatorToolItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveSeparatorToolItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveSeparatorToolItemMethod "setClip" o = WidgetSetClipMethodInfo + ResolveSeparatorToolItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveSeparatorToolItemMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSeparatorToolItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveSeparatorToolItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveSeparatorToolItemMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveSeparatorToolItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveSeparatorToolItemMethod "setDraw" o = SeparatorToolItemSetDrawMethodInfo + ResolveSeparatorToolItemMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveSeparatorToolItemMethod "setExpand" o = ToolItemSetExpandMethodInfo + ResolveSeparatorToolItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveSeparatorToolItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveSeparatorToolItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveSeparatorToolItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveSeparatorToolItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveSeparatorToolItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveSeparatorToolItemMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveSeparatorToolItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveSeparatorToolItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveSeparatorToolItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveSeparatorToolItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveSeparatorToolItemMethod "setHomogeneous" o = ToolItemSetHomogeneousMethodInfo + ResolveSeparatorToolItemMethod "setIsImportant" o = ToolItemSetIsImportantMethodInfo + ResolveSeparatorToolItemMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveSeparatorToolItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveSeparatorToolItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveSeparatorToolItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveSeparatorToolItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveSeparatorToolItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveSeparatorToolItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveSeparatorToolItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveSeparatorToolItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveSeparatorToolItemMethod "setParent" o = WidgetSetParentMethodInfo + ResolveSeparatorToolItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveSeparatorToolItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSeparatorToolItemMethod "setProxyMenuItem" o = ToolItemSetProxyMenuItemMethodInfo + ResolveSeparatorToolItemMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveSeparatorToolItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveSeparatorToolItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveSeparatorToolItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveSeparatorToolItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveSeparatorToolItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveSeparatorToolItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveSeparatorToolItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveSeparatorToolItemMethod "setState" o = WidgetSetStateMethodInfo + ResolveSeparatorToolItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveSeparatorToolItemMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveSeparatorToolItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveSeparatorToolItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveSeparatorToolItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveSeparatorToolItemMethod "setUseDragWindow" o = ToolItemSetUseDragWindowMethodInfo + ResolveSeparatorToolItemMethod "setValign" o = WidgetSetValignMethodInfo + ResolveSeparatorToolItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveSeparatorToolItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveSeparatorToolItemMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveSeparatorToolItemMethod "setVisibleHorizontal" o = ToolItemSetVisibleHorizontalMethodInfo + ResolveSeparatorToolItemMethod "setVisibleVertical" o = ToolItemSetVisibleVerticalMethodInfo + ResolveSeparatorToolItemMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveSeparatorToolItemMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveSeparatorToolItemMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSeparatorToolItemMethod t SeparatorToolItem, MethodInfo info SeparatorToolItem p) => IsLabelProxy t (SeparatorToolItem -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSeparatorToolItemMethod t SeparatorToolItem, MethodInfo info SeparatorToolItem p) => IsLabel t (SeparatorToolItem -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "draw" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -94,22 +451,21 @@ type AttrSetTypeConstraint SeparatorToolItemDrawPropertyInfo = (~) Bool type AttrBaseTypeConstraint SeparatorToolItemDrawPropertyInfo = SeparatorToolItemK type AttrGetType SeparatorToolItemDrawPropertyInfo = Bool - type AttrLabel SeparatorToolItemDrawPropertyInfo = "SeparatorToolItem::draw" + type AttrLabel SeparatorToolItemDrawPropertyInfo = "draw" attrGet _ = getSeparatorToolItemDraw attrSet _ = setSeparatorToolItemDraw attrConstruct _ = constructSeparatorToolItemDraw type instance AttributeList SeparatorToolItem = SeparatorToolItemAttributeList -type SeparatorToolItemAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw", SeparatorToolItemDrawPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type SeparatorToolItemAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("draw", SeparatorToolItemDrawPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList SeparatorToolItem = SeparatorToolItemSignalList -type SeparatorToolItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SeparatorToolItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method SeparatorToolItem::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "SeparatorToolItem" -- throws : False -- Skip return : False @@ -120,7 +476,7 @@ separatorToolItemNew :: (MonadIO m) => - m SeparatorToolItem + m SeparatorToolItem -- result separatorToolItemNew = liftIO $ do result <- gtk_separator_tool_item_new checkUnexpectedReturnNULL "gtk_separator_tool_item_new" result @@ -129,9 +485,8 @@ -- method SeparatorToolItem::get_draw -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -143,8 +498,8 @@ separatorToolItemGetDraw :: (MonadIO m, SeparatorToolItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result separatorToolItemGetDraw _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_separator_tool_item_get_draw _obj' @@ -152,11 +507,14 @@ touchManagedPtr _obj return result' +data SeparatorToolItemGetDrawMethodInfo +instance (signature ~ (m Bool), MonadIO m, SeparatorToolItemK a) => MethodInfo SeparatorToolItemGetDrawMethodInfo a signature where + overloadedMethod _ = separatorToolItemGetDraw + -- method SeparatorToolItem::set_draw -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -169,14 +527,18 @@ separatorToolItemSetDraw :: (MonadIO m, SeparatorToolItemK a) => - a -> -- _obj - Bool -> -- draw - m () + a -- _obj + -> Bool -- draw + -> m () -- result separatorToolItemSetDraw _obj draw = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let draw' = (fromIntegral . fromEnum) draw gtk_separator_tool_item_set_draw _obj' draw' touchManagedPtr _obj return () + +data SeparatorToolItemSetDrawMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SeparatorToolItemK a) => MethodInfo SeparatorToolItemSetDrawMethodInfo a signature where + overloadedMethod _ = separatorToolItemSetDraw diff --git a/GI/Gtk/Objects/SeparatorToolItem.hs-boot b/GI/Gtk/Objects/SeparatorToolItem.hs-boot --- a/GI/Gtk/Objects/SeparatorToolItem.hs-boot +++ b/GI/Gtk/Objects/SeparatorToolItem.hs-boot @@ -12,3 +12,5 @@ class GObject o => SeparatorToolItemK o instance (GObject o, IsDescendantOf SeparatorToolItem o) => SeparatorToolItemK o data SeparatorToolItemDrawPropertyInfo +data SeparatorToolItemGetDrawMethodInfo +data SeparatorToolItemSetDrawMethodInfo diff --git a/GI/Gtk/Objects/Settings.hs b/GI/Gtk/Objects/Settings.hs --- a/GI/Gtk/Objects/Settings.hs +++ b/GI/Gtk/Objects/Settings.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -33,18 +34,22 @@ -- ** settingsSetDoubleProperty + SettingsSetDoublePropertyMethodInfo , settingsSetDoubleProperty , -- ** settingsSetLongProperty + SettingsSetLongPropertyMethodInfo , settingsSetLongProperty , -- ** settingsSetPropertyValue + SettingsSetPropertyValueMethodInfo , settingsSetPropertyValue , -- ** settingsSetStringProperty + SettingsSetStringPropertyMethodInfo , settingsSetStringProperty , @@ -659,6 +664,46 @@ noSettings :: Maybe Settings noSettings = Nothing +type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where + ResolveSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSettingsMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSettingsMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSettingsMethod "getIconFactory" o = StyleProviderGetIconFactoryMethodInfo + ResolveSettingsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSettingsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSettingsMethod "getStyle" o = StyleProviderGetStyleMethodInfo + ResolveSettingsMethod "getStyleProperty" o = StyleProviderGetStylePropertyMethodInfo + ResolveSettingsMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSettingsMethod "setDoubleProperty" o = SettingsSetDoublePropertyMethodInfo + ResolveSettingsMethod "setLongProperty" o = SettingsSetLongPropertyMethodInfo + ResolveSettingsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSettingsMethod "setPropertyValue" o = SettingsSetPropertyValueMethodInfo + ResolveSettingsMethod "setStringProperty" o = SettingsSetStringPropertyMethodInfo + ResolveSettingsMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabelProxy t (Settings -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabel t (Settings -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- XXX Generation of property "color-hash" of object "Settings" failed: Not implemented: "Property SettingsColorHash has unsupported transfer type TransferContainer" -- XXX Placeholder data SettingsColorHashPropertyInfo @@ -690,7 +735,7 @@ type AttrSetTypeConstraint SettingsGtkAlternativeButtonOrderPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkAlternativeButtonOrderPropertyInfo = SettingsK type AttrGetType SettingsGtkAlternativeButtonOrderPropertyInfo = Bool - type AttrLabel SettingsGtkAlternativeButtonOrderPropertyInfo = "Settings::gtk-alternative-button-order" + type AttrLabel SettingsGtkAlternativeButtonOrderPropertyInfo = "gtk-alternative-button-order" attrGet _ = getSettingsGtkAlternativeButtonOrder attrSet _ = setSettingsGtkAlternativeButtonOrder attrConstruct _ = constructSettingsGtkAlternativeButtonOrder @@ -714,7 +759,7 @@ type AttrSetTypeConstraint SettingsGtkAlternativeSortArrowsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkAlternativeSortArrowsPropertyInfo = SettingsK type AttrGetType SettingsGtkAlternativeSortArrowsPropertyInfo = Bool - type AttrLabel SettingsGtkAlternativeSortArrowsPropertyInfo = "Settings::gtk-alternative-sort-arrows" + type AttrLabel SettingsGtkAlternativeSortArrowsPropertyInfo = "gtk-alternative-sort-arrows" attrGet _ = getSettingsGtkAlternativeSortArrows attrSet _ = setSettingsGtkAlternativeSortArrows attrConstruct _ = constructSettingsGtkAlternativeSortArrows @@ -738,7 +783,7 @@ type AttrSetTypeConstraint SettingsGtkApplicationPreferDarkThemePropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkApplicationPreferDarkThemePropertyInfo = SettingsK type AttrGetType SettingsGtkApplicationPreferDarkThemePropertyInfo = Bool - type AttrLabel SettingsGtkApplicationPreferDarkThemePropertyInfo = "Settings::gtk-application-prefer-dark-theme" + type AttrLabel SettingsGtkApplicationPreferDarkThemePropertyInfo = "gtk-application-prefer-dark-theme" attrGet _ = getSettingsGtkApplicationPreferDarkTheme attrSet _ = setSettingsGtkApplicationPreferDarkTheme attrConstruct _ = constructSettingsGtkApplicationPreferDarkTheme @@ -762,7 +807,7 @@ type AttrSetTypeConstraint SettingsGtkAutoMnemonicsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkAutoMnemonicsPropertyInfo = SettingsK type AttrGetType SettingsGtkAutoMnemonicsPropertyInfo = Bool - type AttrLabel SettingsGtkAutoMnemonicsPropertyInfo = "Settings::gtk-auto-mnemonics" + type AttrLabel SettingsGtkAutoMnemonicsPropertyInfo = "gtk-auto-mnemonics" attrGet _ = getSettingsGtkAutoMnemonics attrSet _ = setSettingsGtkAutoMnemonics attrConstruct _ = constructSettingsGtkAutoMnemonics @@ -786,7 +831,7 @@ type AttrSetTypeConstraint SettingsGtkButtonImagesPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkButtonImagesPropertyInfo = SettingsK type AttrGetType SettingsGtkButtonImagesPropertyInfo = Bool - type AttrLabel SettingsGtkButtonImagesPropertyInfo = "Settings::gtk-button-images" + type AttrLabel SettingsGtkButtonImagesPropertyInfo = "gtk-button-images" attrGet _ = getSettingsGtkButtonImages attrSet _ = setSettingsGtkButtonImages attrConstruct _ = constructSettingsGtkButtonImages @@ -810,7 +855,7 @@ type AttrSetTypeConstraint SettingsGtkCanChangeAccelsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkCanChangeAccelsPropertyInfo = SettingsK type AttrGetType SettingsGtkCanChangeAccelsPropertyInfo = Bool - type AttrLabel SettingsGtkCanChangeAccelsPropertyInfo = "Settings::gtk-can-change-accels" + type AttrLabel SettingsGtkCanChangeAccelsPropertyInfo = "gtk-can-change-accels" attrGet _ = getSettingsGtkCanChangeAccels attrSet _ = setSettingsGtkCanChangeAccels attrConstruct _ = constructSettingsGtkCanChangeAccels @@ -834,7 +879,7 @@ type AttrSetTypeConstraint SettingsGtkColorPalettePropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkColorPalettePropertyInfo = SettingsK type AttrGetType SettingsGtkColorPalettePropertyInfo = T.Text - type AttrLabel SettingsGtkColorPalettePropertyInfo = "Settings::gtk-color-palette" + type AttrLabel SettingsGtkColorPalettePropertyInfo = "gtk-color-palette" attrGet _ = getSettingsGtkColorPalette attrSet _ = setSettingsGtkColorPalette attrConstruct _ = constructSettingsGtkColorPalette @@ -858,7 +903,7 @@ type AttrSetTypeConstraint SettingsGtkColorSchemePropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkColorSchemePropertyInfo = SettingsK type AttrGetType SettingsGtkColorSchemePropertyInfo = T.Text - type AttrLabel SettingsGtkColorSchemePropertyInfo = "Settings::gtk-color-scheme" + type AttrLabel SettingsGtkColorSchemePropertyInfo = "gtk-color-scheme" attrGet _ = getSettingsGtkColorScheme attrSet _ = setSettingsGtkColorScheme attrConstruct _ = constructSettingsGtkColorScheme @@ -882,7 +927,7 @@ type AttrSetTypeConstraint SettingsGtkCursorBlinkPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkCursorBlinkPropertyInfo = SettingsK type AttrGetType SettingsGtkCursorBlinkPropertyInfo = Bool - type AttrLabel SettingsGtkCursorBlinkPropertyInfo = "Settings::gtk-cursor-blink" + type AttrLabel SettingsGtkCursorBlinkPropertyInfo = "gtk-cursor-blink" attrGet _ = getSettingsGtkCursorBlink attrSet _ = setSettingsGtkCursorBlink attrConstruct _ = constructSettingsGtkCursorBlink @@ -906,7 +951,7 @@ type AttrSetTypeConstraint SettingsGtkCursorBlinkTimePropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkCursorBlinkTimePropertyInfo = SettingsK type AttrGetType SettingsGtkCursorBlinkTimePropertyInfo = Int32 - type AttrLabel SettingsGtkCursorBlinkTimePropertyInfo = "Settings::gtk-cursor-blink-time" + type AttrLabel SettingsGtkCursorBlinkTimePropertyInfo = "gtk-cursor-blink-time" attrGet _ = getSettingsGtkCursorBlinkTime attrSet _ = setSettingsGtkCursorBlinkTime attrConstruct _ = constructSettingsGtkCursorBlinkTime @@ -930,7 +975,7 @@ type AttrSetTypeConstraint SettingsGtkCursorBlinkTimeoutPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkCursorBlinkTimeoutPropertyInfo = SettingsK type AttrGetType SettingsGtkCursorBlinkTimeoutPropertyInfo = Int32 - type AttrLabel SettingsGtkCursorBlinkTimeoutPropertyInfo = "Settings::gtk-cursor-blink-timeout" + type AttrLabel SettingsGtkCursorBlinkTimeoutPropertyInfo = "gtk-cursor-blink-timeout" attrGet _ = getSettingsGtkCursorBlinkTimeout attrSet _ = setSettingsGtkCursorBlinkTimeout attrConstruct _ = constructSettingsGtkCursorBlinkTimeout @@ -954,7 +999,7 @@ type AttrSetTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = SettingsK type AttrGetType SettingsGtkCursorThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkCursorThemeNamePropertyInfo = "Settings::gtk-cursor-theme-name" + type AttrLabel SettingsGtkCursorThemeNamePropertyInfo = "gtk-cursor-theme-name" attrGet _ = getSettingsGtkCursorThemeName attrSet _ = setSettingsGtkCursorThemeName attrConstruct _ = constructSettingsGtkCursorThemeName @@ -978,7 +1023,7 @@ type AttrSetTypeConstraint SettingsGtkCursorThemeSizePropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkCursorThemeSizePropertyInfo = SettingsK type AttrGetType SettingsGtkCursorThemeSizePropertyInfo = Int32 - type AttrLabel SettingsGtkCursorThemeSizePropertyInfo = "Settings::gtk-cursor-theme-size" + type AttrLabel SettingsGtkCursorThemeSizePropertyInfo = "gtk-cursor-theme-size" attrGet _ = getSettingsGtkCursorThemeSize attrSet _ = setSettingsGtkCursorThemeSize attrConstruct _ = constructSettingsGtkCursorThemeSize @@ -1002,7 +1047,7 @@ type AttrSetTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = SettingsK type AttrGetType SettingsGtkDecorationLayoutPropertyInfo = T.Text - type AttrLabel SettingsGtkDecorationLayoutPropertyInfo = "Settings::gtk-decoration-layout" + type AttrLabel SettingsGtkDecorationLayoutPropertyInfo = "gtk-decoration-layout" attrGet _ = getSettingsGtkDecorationLayout attrSet _ = setSettingsGtkDecorationLayout attrConstruct _ = constructSettingsGtkDecorationLayout @@ -1026,7 +1071,7 @@ type AttrSetTypeConstraint SettingsGtkDialogsUseHeaderPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkDialogsUseHeaderPropertyInfo = SettingsK type AttrGetType SettingsGtkDialogsUseHeaderPropertyInfo = Bool - type AttrLabel SettingsGtkDialogsUseHeaderPropertyInfo = "Settings::gtk-dialogs-use-header" + type AttrLabel SettingsGtkDialogsUseHeaderPropertyInfo = "gtk-dialogs-use-header" attrGet _ = getSettingsGtkDialogsUseHeader attrSet _ = setSettingsGtkDialogsUseHeader attrConstruct _ = constructSettingsGtkDialogsUseHeader @@ -1050,7 +1095,7 @@ type AttrSetTypeConstraint SettingsGtkDndDragThresholdPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkDndDragThresholdPropertyInfo = SettingsK type AttrGetType SettingsGtkDndDragThresholdPropertyInfo = Int32 - type AttrLabel SettingsGtkDndDragThresholdPropertyInfo = "Settings::gtk-dnd-drag-threshold" + type AttrLabel SettingsGtkDndDragThresholdPropertyInfo = "gtk-dnd-drag-threshold" attrGet _ = getSettingsGtkDndDragThreshold attrSet _ = setSettingsGtkDndDragThreshold attrConstruct _ = constructSettingsGtkDndDragThreshold @@ -1074,7 +1119,7 @@ type AttrSetTypeConstraint SettingsGtkDoubleClickDistancePropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkDoubleClickDistancePropertyInfo = SettingsK type AttrGetType SettingsGtkDoubleClickDistancePropertyInfo = Int32 - type AttrLabel SettingsGtkDoubleClickDistancePropertyInfo = "Settings::gtk-double-click-distance" + type AttrLabel SettingsGtkDoubleClickDistancePropertyInfo = "gtk-double-click-distance" attrGet _ = getSettingsGtkDoubleClickDistance attrSet _ = setSettingsGtkDoubleClickDistance attrConstruct _ = constructSettingsGtkDoubleClickDistance @@ -1098,7 +1143,7 @@ type AttrSetTypeConstraint SettingsGtkDoubleClickTimePropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkDoubleClickTimePropertyInfo = SettingsK type AttrGetType SettingsGtkDoubleClickTimePropertyInfo = Int32 - type AttrLabel SettingsGtkDoubleClickTimePropertyInfo = "Settings::gtk-double-click-time" + type AttrLabel SettingsGtkDoubleClickTimePropertyInfo = "gtk-double-click-time" attrGet _ = getSettingsGtkDoubleClickTime attrSet _ = setSettingsGtkDoubleClickTime attrConstruct _ = constructSettingsGtkDoubleClickTime @@ -1122,7 +1167,7 @@ type AttrSetTypeConstraint SettingsGtkEnableAccelsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkEnableAccelsPropertyInfo = SettingsK type AttrGetType SettingsGtkEnableAccelsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableAccelsPropertyInfo = "Settings::gtk-enable-accels" + type AttrLabel SettingsGtkEnableAccelsPropertyInfo = "gtk-enable-accels" attrGet _ = getSettingsGtkEnableAccels attrSet _ = setSettingsGtkEnableAccels attrConstruct _ = constructSettingsGtkEnableAccels @@ -1146,7 +1191,7 @@ type AttrSetTypeConstraint SettingsGtkEnableAnimationsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkEnableAnimationsPropertyInfo = SettingsK type AttrGetType SettingsGtkEnableAnimationsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableAnimationsPropertyInfo = "Settings::gtk-enable-animations" + type AttrLabel SettingsGtkEnableAnimationsPropertyInfo = "gtk-enable-animations" attrGet _ = getSettingsGtkEnableAnimations attrSet _ = setSettingsGtkEnableAnimations attrConstruct _ = constructSettingsGtkEnableAnimations @@ -1170,7 +1215,7 @@ type AttrSetTypeConstraint SettingsGtkEnableEventSoundsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkEnableEventSoundsPropertyInfo = SettingsK type AttrGetType SettingsGtkEnableEventSoundsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableEventSoundsPropertyInfo = "Settings::gtk-enable-event-sounds" + type AttrLabel SettingsGtkEnableEventSoundsPropertyInfo = "gtk-enable-event-sounds" attrGet _ = getSettingsGtkEnableEventSounds attrSet _ = setSettingsGtkEnableEventSounds attrConstruct _ = constructSettingsGtkEnableEventSounds @@ -1194,7 +1239,7 @@ type AttrSetTypeConstraint SettingsGtkEnableInputFeedbackSoundsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkEnableInputFeedbackSoundsPropertyInfo = SettingsK type AttrGetType SettingsGtkEnableInputFeedbackSoundsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableInputFeedbackSoundsPropertyInfo = "Settings::gtk-enable-input-feedback-sounds" + type AttrLabel SettingsGtkEnableInputFeedbackSoundsPropertyInfo = "gtk-enable-input-feedback-sounds" attrGet _ = getSettingsGtkEnableInputFeedbackSounds attrSet _ = setSettingsGtkEnableInputFeedbackSounds attrConstruct _ = constructSettingsGtkEnableInputFeedbackSounds @@ -1218,7 +1263,7 @@ type AttrSetTypeConstraint SettingsGtkEnableMnemonicsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkEnableMnemonicsPropertyInfo = SettingsK type AttrGetType SettingsGtkEnableMnemonicsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableMnemonicsPropertyInfo = "Settings::gtk-enable-mnemonics" + type AttrLabel SettingsGtkEnableMnemonicsPropertyInfo = "gtk-enable-mnemonics" attrGet _ = getSettingsGtkEnableMnemonics attrSet _ = setSettingsGtkEnableMnemonics attrConstruct _ = constructSettingsGtkEnableMnemonics @@ -1242,7 +1287,7 @@ type AttrSetTypeConstraint SettingsGtkEnablePrimaryPastePropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkEnablePrimaryPastePropertyInfo = SettingsK type AttrGetType SettingsGtkEnablePrimaryPastePropertyInfo = Bool - type AttrLabel SettingsGtkEnablePrimaryPastePropertyInfo = "Settings::gtk-enable-primary-paste" + type AttrLabel SettingsGtkEnablePrimaryPastePropertyInfo = "gtk-enable-primary-paste" attrGet _ = getSettingsGtkEnablePrimaryPaste attrSet _ = setSettingsGtkEnablePrimaryPaste attrConstruct _ = constructSettingsGtkEnablePrimaryPaste @@ -1266,7 +1311,7 @@ type AttrSetTypeConstraint SettingsGtkEnableTooltipsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkEnableTooltipsPropertyInfo = SettingsK type AttrGetType SettingsGtkEnableTooltipsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableTooltipsPropertyInfo = "Settings::gtk-enable-tooltips" + type AttrLabel SettingsGtkEnableTooltipsPropertyInfo = "gtk-enable-tooltips" attrGet _ = getSettingsGtkEnableTooltips attrSet _ = setSettingsGtkEnableTooltips attrConstruct _ = constructSettingsGtkEnableTooltips @@ -1290,7 +1335,7 @@ type AttrSetTypeConstraint SettingsGtkEntryPasswordHintTimeoutPropertyInfo = (~) Word32 type AttrBaseTypeConstraint SettingsGtkEntryPasswordHintTimeoutPropertyInfo = SettingsK type AttrGetType SettingsGtkEntryPasswordHintTimeoutPropertyInfo = Word32 - type AttrLabel SettingsGtkEntryPasswordHintTimeoutPropertyInfo = "Settings::gtk-entry-password-hint-timeout" + type AttrLabel SettingsGtkEntryPasswordHintTimeoutPropertyInfo = "gtk-entry-password-hint-timeout" attrGet _ = getSettingsGtkEntryPasswordHintTimeout attrSet _ = setSettingsGtkEntryPasswordHintTimeout attrConstruct _ = constructSettingsGtkEntryPasswordHintTimeout @@ -1314,7 +1359,7 @@ type AttrSetTypeConstraint SettingsGtkEntrySelectOnFocusPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkEntrySelectOnFocusPropertyInfo = SettingsK type AttrGetType SettingsGtkEntrySelectOnFocusPropertyInfo = Bool - type AttrLabel SettingsGtkEntrySelectOnFocusPropertyInfo = "Settings::gtk-entry-select-on-focus" + type AttrLabel SettingsGtkEntrySelectOnFocusPropertyInfo = "gtk-entry-select-on-focus" attrGet _ = getSettingsGtkEntrySelectOnFocus attrSet _ = setSettingsGtkEntrySelectOnFocus attrConstruct _ = constructSettingsGtkEntrySelectOnFocus @@ -1338,7 +1383,7 @@ type AttrSetTypeConstraint SettingsGtkErrorBellPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkErrorBellPropertyInfo = SettingsK type AttrGetType SettingsGtkErrorBellPropertyInfo = Bool - type AttrLabel SettingsGtkErrorBellPropertyInfo = "Settings::gtk-error-bell" + type AttrLabel SettingsGtkErrorBellPropertyInfo = "gtk-error-bell" attrGet _ = getSettingsGtkErrorBell attrSet _ = setSettingsGtkErrorBell attrConstruct _ = constructSettingsGtkErrorBell @@ -1362,7 +1407,7 @@ type AttrSetTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = SettingsK type AttrGetType SettingsGtkFallbackIconThemePropertyInfo = T.Text - type AttrLabel SettingsGtkFallbackIconThemePropertyInfo = "Settings::gtk-fallback-icon-theme" + type AttrLabel SettingsGtkFallbackIconThemePropertyInfo = "gtk-fallback-icon-theme" attrGet _ = getSettingsGtkFallbackIconTheme attrSet _ = setSettingsGtkFallbackIconTheme attrConstruct _ = constructSettingsGtkFallbackIconTheme @@ -1386,7 +1431,7 @@ type AttrSetTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = SettingsK type AttrGetType SettingsGtkFileChooserBackendPropertyInfo = T.Text - type AttrLabel SettingsGtkFileChooserBackendPropertyInfo = "Settings::gtk-file-chooser-backend" + type AttrLabel SettingsGtkFileChooserBackendPropertyInfo = "gtk-file-chooser-backend" attrGet _ = getSettingsGtkFileChooserBackend attrSet _ = setSettingsGtkFileChooserBackend attrConstruct _ = constructSettingsGtkFileChooserBackend @@ -1410,7 +1455,7 @@ type AttrSetTypeConstraint SettingsGtkFontNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkFontNamePropertyInfo = SettingsK type AttrGetType SettingsGtkFontNamePropertyInfo = T.Text - type AttrLabel SettingsGtkFontNamePropertyInfo = "Settings::gtk-font-name" + type AttrLabel SettingsGtkFontNamePropertyInfo = "gtk-font-name" attrGet _ = getSettingsGtkFontName attrSet _ = setSettingsGtkFontName attrConstruct _ = constructSettingsGtkFontName @@ -1434,7 +1479,7 @@ type AttrSetTypeConstraint SettingsGtkFontconfigTimestampPropertyInfo = (~) Word32 type AttrBaseTypeConstraint SettingsGtkFontconfigTimestampPropertyInfo = SettingsK type AttrGetType SettingsGtkFontconfigTimestampPropertyInfo = Word32 - type AttrLabel SettingsGtkFontconfigTimestampPropertyInfo = "Settings::gtk-fontconfig-timestamp" + type AttrLabel SettingsGtkFontconfigTimestampPropertyInfo = "gtk-fontconfig-timestamp" attrGet _ = getSettingsGtkFontconfigTimestamp attrSet _ = setSettingsGtkFontconfigTimestamp attrConstruct _ = constructSettingsGtkFontconfigTimestamp @@ -1458,7 +1503,7 @@ type AttrSetTypeConstraint SettingsGtkIconSizesPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkIconSizesPropertyInfo = SettingsK type AttrGetType SettingsGtkIconSizesPropertyInfo = T.Text - type AttrLabel SettingsGtkIconSizesPropertyInfo = "Settings::gtk-icon-sizes" + type AttrLabel SettingsGtkIconSizesPropertyInfo = "gtk-icon-sizes" attrGet _ = getSettingsGtkIconSizes attrSet _ = setSettingsGtkIconSizes attrConstruct _ = constructSettingsGtkIconSizes @@ -1482,7 +1527,7 @@ type AttrSetTypeConstraint SettingsGtkIconThemeNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkIconThemeNamePropertyInfo = SettingsK type AttrGetType SettingsGtkIconThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkIconThemeNamePropertyInfo = "Settings::gtk-icon-theme-name" + type AttrLabel SettingsGtkIconThemeNamePropertyInfo = "gtk-icon-theme-name" attrGet _ = getSettingsGtkIconThemeName attrSet _ = setSettingsGtkIconThemeName attrConstruct _ = constructSettingsGtkIconThemeName @@ -1506,7 +1551,7 @@ type AttrSetTypeConstraint SettingsGtkImModulePropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkImModulePropertyInfo = SettingsK type AttrGetType SettingsGtkImModulePropertyInfo = T.Text - type AttrLabel SettingsGtkImModulePropertyInfo = "Settings::gtk-im-module" + type AttrLabel SettingsGtkImModulePropertyInfo = "gtk-im-module" attrGet _ = getSettingsGtkImModule attrSet _ = setSettingsGtkImModule attrConstruct _ = constructSettingsGtkImModule @@ -1530,7 +1575,7 @@ type AttrSetTypeConstraint SettingsGtkImPreeditStylePropertyInfo = (~) IMPreeditStyle type AttrBaseTypeConstraint SettingsGtkImPreeditStylePropertyInfo = SettingsK type AttrGetType SettingsGtkImPreeditStylePropertyInfo = IMPreeditStyle - type AttrLabel SettingsGtkImPreeditStylePropertyInfo = "Settings::gtk-im-preedit-style" + type AttrLabel SettingsGtkImPreeditStylePropertyInfo = "gtk-im-preedit-style" attrGet _ = getSettingsGtkImPreeditStyle attrSet _ = setSettingsGtkImPreeditStyle attrConstruct _ = constructSettingsGtkImPreeditStyle @@ -1554,7 +1599,7 @@ type AttrSetTypeConstraint SettingsGtkImStatusStylePropertyInfo = (~) IMStatusStyle type AttrBaseTypeConstraint SettingsGtkImStatusStylePropertyInfo = SettingsK type AttrGetType SettingsGtkImStatusStylePropertyInfo = IMStatusStyle - type AttrLabel SettingsGtkImStatusStylePropertyInfo = "Settings::gtk-im-status-style" + type AttrLabel SettingsGtkImStatusStylePropertyInfo = "gtk-im-status-style" attrGet _ = getSettingsGtkImStatusStyle attrSet _ = setSettingsGtkImStatusStyle attrConstruct _ = constructSettingsGtkImStatusStyle @@ -1578,7 +1623,7 @@ type AttrSetTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = SettingsK type AttrGetType SettingsGtkKeyThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkKeyThemeNamePropertyInfo = "Settings::gtk-key-theme-name" + type AttrLabel SettingsGtkKeyThemeNamePropertyInfo = "gtk-key-theme-name" attrGet _ = getSettingsGtkKeyThemeName attrSet _ = setSettingsGtkKeyThemeName attrConstruct _ = constructSettingsGtkKeyThemeName @@ -1602,7 +1647,7 @@ type AttrSetTypeConstraint SettingsGtkKeynavCursorOnlyPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkKeynavCursorOnlyPropertyInfo = SettingsK type AttrGetType SettingsGtkKeynavCursorOnlyPropertyInfo = Bool - type AttrLabel SettingsGtkKeynavCursorOnlyPropertyInfo = "Settings::gtk-keynav-cursor-only" + type AttrLabel SettingsGtkKeynavCursorOnlyPropertyInfo = "gtk-keynav-cursor-only" attrGet _ = getSettingsGtkKeynavCursorOnly attrSet _ = setSettingsGtkKeynavCursorOnly attrConstruct _ = constructSettingsGtkKeynavCursorOnly @@ -1626,7 +1671,7 @@ type AttrSetTypeConstraint SettingsGtkKeynavWrapAroundPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkKeynavWrapAroundPropertyInfo = SettingsK type AttrGetType SettingsGtkKeynavWrapAroundPropertyInfo = Bool - type AttrLabel SettingsGtkKeynavWrapAroundPropertyInfo = "Settings::gtk-keynav-wrap-around" + type AttrLabel SettingsGtkKeynavWrapAroundPropertyInfo = "gtk-keynav-wrap-around" attrGet _ = getSettingsGtkKeynavWrapAround attrSet _ = setSettingsGtkKeynavWrapAround attrConstruct _ = constructSettingsGtkKeynavWrapAround @@ -1650,7 +1695,7 @@ type AttrSetTypeConstraint SettingsGtkLabelSelectOnFocusPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkLabelSelectOnFocusPropertyInfo = SettingsK type AttrGetType SettingsGtkLabelSelectOnFocusPropertyInfo = Bool - type AttrLabel SettingsGtkLabelSelectOnFocusPropertyInfo = "Settings::gtk-label-select-on-focus" + type AttrLabel SettingsGtkLabelSelectOnFocusPropertyInfo = "gtk-label-select-on-focus" attrGet _ = getSettingsGtkLabelSelectOnFocus attrSet _ = setSettingsGtkLabelSelectOnFocus attrConstruct _ = constructSettingsGtkLabelSelectOnFocus @@ -1674,7 +1719,7 @@ type AttrSetTypeConstraint SettingsGtkLongPressTimePropertyInfo = (~) Word32 type AttrBaseTypeConstraint SettingsGtkLongPressTimePropertyInfo = SettingsK type AttrGetType SettingsGtkLongPressTimePropertyInfo = Word32 - type AttrLabel SettingsGtkLongPressTimePropertyInfo = "Settings::gtk-long-press-time" + type AttrLabel SettingsGtkLongPressTimePropertyInfo = "gtk-long-press-time" attrGet _ = getSettingsGtkLongPressTime attrSet _ = setSettingsGtkLongPressTime attrConstruct _ = constructSettingsGtkLongPressTime @@ -1698,7 +1743,7 @@ type AttrSetTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = SettingsK type AttrGetType SettingsGtkMenuBarAccelPropertyInfo = T.Text - type AttrLabel SettingsGtkMenuBarAccelPropertyInfo = "Settings::gtk-menu-bar-accel" + type AttrLabel SettingsGtkMenuBarAccelPropertyInfo = "gtk-menu-bar-accel" attrGet _ = getSettingsGtkMenuBarAccel attrSet _ = setSettingsGtkMenuBarAccel attrConstruct _ = constructSettingsGtkMenuBarAccel @@ -1722,7 +1767,7 @@ type AttrSetTypeConstraint SettingsGtkMenuBarPopupDelayPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkMenuBarPopupDelayPropertyInfo = SettingsK type AttrGetType SettingsGtkMenuBarPopupDelayPropertyInfo = Int32 - type AttrLabel SettingsGtkMenuBarPopupDelayPropertyInfo = "Settings::gtk-menu-bar-popup-delay" + type AttrLabel SettingsGtkMenuBarPopupDelayPropertyInfo = "gtk-menu-bar-popup-delay" attrGet _ = getSettingsGtkMenuBarPopupDelay attrSet _ = setSettingsGtkMenuBarPopupDelay attrConstruct _ = constructSettingsGtkMenuBarPopupDelay @@ -1746,7 +1791,7 @@ type AttrSetTypeConstraint SettingsGtkMenuImagesPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkMenuImagesPropertyInfo = SettingsK type AttrGetType SettingsGtkMenuImagesPropertyInfo = Bool - type AttrLabel SettingsGtkMenuImagesPropertyInfo = "Settings::gtk-menu-images" + type AttrLabel SettingsGtkMenuImagesPropertyInfo = "gtk-menu-images" attrGet _ = getSettingsGtkMenuImages attrSet _ = setSettingsGtkMenuImages attrConstruct _ = constructSettingsGtkMenuImages @@ -1770,7 +1815,7 @@ type AttrSetTypeConstraint SettingsGtkMenuPopdownDelayPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkMenuPopdownDelayPropertyInfo = SettingsK type AttrGetType SettingsGtkMenuPopdownDelayPropertyInfo = Int32 - type AttrLabel SettingsGtkMenuPopdownDelayPropertyInfo = "Settings::gtk-menu-popdown-delay" + type AttrLabel SettingsGtkMenuPopdownDelayPropertyInfo = "gtk-menu-popdown-delay" attrGet _ = getSettingsGtkMenuPopdownDelay attrSet _ = setSettingsGtkMenuPopdownDelay attrConstruct _ = constructSettingsGtkMenuPopdownDelay @@ -1794,7 +1839,7 @@ type AttrSetTypeConstraint SettingsGtkMenuPopupDelayPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkMenuPopupDelayPropertyInfo = SettingsK type AttrGetType SettingsGtkMenuPopupDelayPropertyInfo = Int32 - type AttrLabel SettingsGtkMenuPopupDelayPropertyInfo = "Settings::gtk-menu-popup-delay" + type AttrLabel SettingsGtkMenuPopupDelayPropertyInfo = "gtk-menu-popup-delay" attrGet _ = getSettingsGtkMenuPopupDelay attrSet _ = setSettingsGtkMenuPopupDelay attrConstruct _ = constructSettingsGtkMenuPopupDelay @@ -1818,7 +1863,7 @@ type AttrSetTypeConstraint SettingsGtkModulesPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkModulesPropertyInfo = SettingsK type AttrGetType SettingsGtkModulesPropertyInfo = T.Text - type AttrLabel SettingsGtkModulesPropertyInfo = "Settings::gtk-modules" + type AttrLabel SettingsGtkModulesPropertyInfo = "gtk-modules" attrGet _ = getSettingsGtkModules attrSet _ = setSettingsGtkModules attrConstruct _ = constructSettingsGtkModules @@ -1842,7 +1887,7 @@ type AttrSetTypeConstraint SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = SettingsK type AttrGetType SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = Bool - type AttrLabel SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = "Settings::gtk-primary-button-warps-slider" + type AttrLabel SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = "gtk-primary-button-warps-slider" attrGet _ = getSettingsGtkPrimaryButtonWarpsSlider attrSet _ = setSettingsGtkPrimaryButtonWarpsSlider attrConstruct _ = constructSettingsGtkPrimaryButtonWarpsSlider @@ -1866,7 +1911,7 @@ type AttrSetTypeConstraint SettingsGtkPrintBackendsPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkPrintBackendsPropertyInfo = SettingsK type AttrGetType SettingsGtkPrintBackendsPropertyInfo = T.Text - type AttrLabel SettingsGtkPrintBackendsPropertyInfo = "Settings::gtk-print-backends" + type AttrLabel SettingsGtkPrintBackendsPropertyInfo = "gtk-print-backends" attrGet _ = getSettingsGtkPrintBackends attrSet _ = setSettingsGtkPrintBackends attrConstruct _ = constructSettingsGtkPrintBackends @@ -1890,7 +1935,7 @@ type AttrSetTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = SettingsK type AttrGetType SettingsGtkPrintPreviewCommandPropertyInfo = T.Text - type AttrLabel SettingsGtkPrintPreviewCommandPropertyInfo = "Settings::gtk-print-preview-command" + type AttrLabel SettingsGtkPrintPreviewCommandPropertyInfo = "gtk-print-preview-command" attrGet _ = getSettingsGtkPrintPreviewCommand attrSet _ = setSettingsGtkPrintPreviewCommand attrConstruct _ = constructSettingsGtkPrintPreviewCommand @@ -1914,7 +1959,7 @@ type AttrSetTypeConstraint SettingsGtkRecentFilesEnabledPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkRecentFilesEnabledPropertyInfo = SettingsK type AttrGetType SettingsGtkRecentFilesEnabledPropertyInfo = Bool - type AttrLabel SettingsGtkRecentFilesEnabledPropertyInfo = "Settings::gtk-recent-files-enabled" + type AttrLabel SettingsGtkRecentFilesEnabledPropertyInfo = "gtk-recent-files-enabled" attrGet _ = getSettingsGtkRecentFilesEnabled attrSet _ = setSettingsGtkRecentFilesEnabled attrConstruct _ = constructSettingsGtkRecentFilesEnabled @@ -1938,7 +1983,7 @@ type AttrSetTypeConstraint SettingsGtkRecentFilesLimitPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkRecentFilesLimitPropertyInfo = SettingsK type AttrGetType SettingsGtkRecentFilesLimitPropertyInfo = Int32 - type AttrLabel SettingsGtkRecentFilesLimitPropertyInfo = "Settings::gtk-recent-files-limit" + type AttrLabel SettingsGtkRecentFilesLimitPropertyInfo = "gtk-recent-files-limit" attrGet _ = getSettingsGtkRecentFilesLimit attrSet _ = setSettingsGtkRecentFilesLimit attrConstruct _ = constructSettingsGtkRecentFilesLimit @@ -1962,7 +2007,7 @@ type AttrSetTypeConstraint SettingsGtkRecentFilesMaxAgePropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkRecentFilesMaxAgePropertyInfo = SettingsK type AttrGetType SettingsGtkRecentFilesMaxAgePropertyInfo = Int32 - type AttrLabel SettingsGtkRecentFilesMaxAgePropertyInfo = "Settings::gtk-recent-files-max-age" + type AttrLabel SettingsGtkRecentFilesMaxAgePropertyInfo = "gtk-recent-files-max-age" attrGet _ = getSettingsGtkRecentFilesMaxAge attrSet _ = setSettingsGtkRecentFilesMaxAge attrConstruct _ = constructSettingsGtkRecentFilesMaxAge @@ -1986,7 +2031,7 @@ type AttrSetTypeConstraint SettingsGtkScrolledWindowPlacementPropertyInfo = (~) CornerType type AttrBaseTypeConstraint SettingsGtkScrolledWindowPlacementPropertyInfo = SettingsK type AttrGetType SettingsGtkScrolledWindowPlacementPropertyInfo = CornerType - type AttrLabel SettingsGtkScrolledWindowPlacementPropertyInfo = "Settings::gtk-scrolled-window-placement" + type AttrLabel SettingsGtkScrolledWindowPlacementPropertyInfo = "gtk-scrolled-window-placement" attrGet _ = getSettingsGtkScrolledWindowPlacement attrSet _ = setSettingsGtkScrolledWindowPlacement attrConstruct _ = constructSettingsGtkScrolledWindowPlacement @@ -2010,7 +2055,7 @@ type AttrSetTypeConstraint SettingsGtkShellShowsAppMenuPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkShellShowsAppMenuPropertyInfo = SettingsK type AttrGetType SettingsGtkShellShowsAppMenuPropertyInfo = Bool - type AttrLabel SettingsGtkShellShowsAppMenuPropertyInfo = "Settings::gtk-shell-shows-app-menu" + type AttrLabel SettingsGtkShellShowsAppMenuPropertyInfo = "gtk-shell-shows-app-menu" attrGet _ = getSettingsGtkShellShowsAppMenu attrSet _ = setSettingsGtkShellShowsAppMenu attrConstruct _ = constructSettingsGtkShellShowsAppMenu @@ -2034,7 +2079,7 @@ type AttrSetTypeConstraint SettingsGtkShellShowsDesktopPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkShellShowsDesktopPropertyInfo = SettingsK type AttrGetType SettingsGtkShellShowsDesktopPropertyInfo = Bool - type AttrLabel SettingsGtkShellShowsDesktopPropertyInfo = "Settings::gtk-shell-shows-desktop" + type AttrLabel SettingsGtkShellShowsDesktopPropertyInfo = "gtk-shell-shows-desktop" attrGet _ = getSettingsGtkShellShowsDesktop attrSet _ = setSettingsGtkShellShowsDesktop attrConstruct _ = constructSettingsGtkShellShowsDesktop @@ -2058,7 +2103,7 @@ type AttrSetTypeConstraint SettingsGtkShellShowsMenubarPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkShellShowsMenubarPropertyInfo = SettingsK type AttrGetType SettingsGtkShellShowsMenubarPropertyInfo = Bool - type AttrLabel SettingsGtkShellShowsMenubarPropertyInfo = "Settings::gtk-shell-shows-menubar" + type AttrLabel SettingsGtkShellShowsMenubarPropertyInfo = "gtk-shell-shows-menubar" attrGet _ = getSettingsGtkShellShowsMenubar attrSet _ = setSettingsGtkShellShowsMenubar attrConstruct _ = constructSettingsGtkShellShowsMenubar @@ -2082,7 +2127,7 @@ type AttrSetTypeConstraint SettingsGtkShowInputMethodMenuPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkShowInputMethodMenuPropertyInfo = SettingsK type AttrGetType SettingsGtkShowInputMethodMenuPropertyInfo = Bool - type AttrLabel SettingsGtkShowInputMethodMenuPropertyInfo = "Settings::gtk-show-input-method-menu" + type AttrLabel SettingsGtkShowInputMethodMenuPropertyInfo = "gtk-show-input-method-menu" attrGet _ = getSettingsGtkShowInputMethodMenu attrSet _ = setSettingsGtkShowInputMethodMenu attrConstruct _ = constructSettingsGtkShowInputMethodMenu @@ -2106,7 +2151,7 @@ type AttrSetTypeConstraint SettingsGtkShowUnicodeMenuPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkShowUnicodeMenuPropertyInfo = SettingsK type AttrGetType SettingsGtkShowUnicodeMenuPropertyInfo = Bool - type AttrLabel SettingsGtkShowUnicodeMenuPropertyInfo = "Settings::gtk-show-unicode-menu" + type AttrLabel SettingsGtkShowUnicodeMenuPropertyInfo = "gtk-show-unicode-menu" attrGet _ = getSettingsGtkShowUnicodeMenu attrSet _ = setSettingsGtkShowUnicodeMenu attrConstruct _ = constructSettingsGtkShowUnicodeMenu @@ -2130,7 +2175,7 @@ type AttrSetTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = SettingsK type AttrGetType SettingsGtkSoundThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkSoundThemeNamePropertyInfo = "Settings::gtk-sound-theme-name" + type AttrLabel SettingsGtkSoundThemeNamePropertyInfo = "gtk-sound-theme-name" attrGet _ = getSettingsGtkSoundThemeName attrSet _ = setSettingsGtkSoundThemeName attrConstruct _ = constructSettingsGtkSoundThemeName @@ -2154,7 +2199,7 @@ type AttrSetTypeConstraint SettingsGtkSplitCursorPropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkSplitCursorPropertyInfo = SettingsK type AttrGetType SettingsGtkSplitCursorPropertyInfo = Bool - type AttrLabel SettingsGtkSplitCursorPropertyInfo = "Settings::gtk-split-cursor" + type AttrLabel SettingsGtkSplitCursorPropertyInfo = "gtk-split-cursor" attrGet _ = getSettingsGtkSplitCursor attrSet _ = setSettingsGtkSplitCursor attrConstruct _ = constructSettingsGtkSplitCursor @@ -2178,7 +2223,7 @@ type AttrSetTypeConstraint SettingsGtkThemeNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkThemeNamePropertyInfo = SettingsK type AttrGetType SettingsGtkThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkThemeNamePropertyInfo = "Settings::gtk-theme-name" + type AttrLabel SettingsGtkThemeNamePropertyInfo = "gtk-theme-name" attrGet _ = getSettingsGtkThemeName attrSet _ = setSettingsGtkThemeName attrConstruct _ = constructSettingsGtkThemeName @@ -2202,7 +2247,7 @@ type AttrSetTypeConstraint SettingsGtkTimeoutExpandPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkTimeoutExpandPropertyInfo = SettingsK type AttrGetType SettingsGtkTimeoutExpandPropertyInfo = Int32 - type AttrLabel SettingsGtkTimeoutExpandPropertyInfo = "Settings::gtk-timeout-expand" + type AttrLabel SettingsGtkTimeoutExpandPropertyInfo = "gtk-timeout-expand" attrGet _ = getSettingsGtkTimeoutExpand attrSet _ = setSettingsGtkTimeoutExpand attrConstruct _ = constructSettingsGtkTimeoutExpand @@ -2226,7 +2271,7 @@ type AttrSetTypeConstraint SettingsGtkTimeoutInitialPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkTimeoutInitialPropertyInfo = SettingsK type AttrGetType SettingsGtkTimeoutInitialPropertyInfo = Int32 - type AttrLabel SettingsGtkTimeoutInitialPropertyInfo = "Settings::gtk-timeout-initial" + type AttrLabel SettingsGtkTimeoutInitialPropertyInfo = "gtk-timeout-initial" attrGet _ = getSettingsGtkTimeoutInitial attrSet _ = setSettingsGtkTimeoutInitial attrConstruct _ = constructSettingsGtkTimeoutInitial @@ -2250,7 +2295,7 @@ type AttrSetTypeConstraint SettingsGtkTimeoutRepeatPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkTimeoutRepeatPropertyInfo = SettingsK type AttrGetType SettingsGtkTimeoutRepeatPropertyInfo = Int32 - type AttrLabel SettingsGtkTimeoutRepeatPropertyInfo = "Settings::gtk-timeout-repeat" + type AttrLabel SettingsGtkTimeoutRepeatPropertyInfo = "gtk-timeout-repeat" attrGet _ = getSettingsGtkTimeoutRepeat attrSet _ = setSettingsGtkTimeoutRepeat attrConstruct _ = constructSettingsGtkTimeoutRepeat @@ -2274,7 +2319,7 @@ type AttrSetTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = SettingsK type AttrGetType SettingsGtkTitlebarDoubleClickPropertyInfo = T.Text - type AttrLabel SettingsGtkTitlebarDoubleClickPropertyInfo = "Settings::gtk-titlebar-double-click" + type AttrLabel SettingsGtkTitlebarDoubleClickPropertyInfo = "gtk-titlebar-double-click" attrGet _ = getSettingsGtkTitlebarDoubleClick attrSet _ = setSettingsGtkTitlebarDoubleClick attrConstruct _ = constructSettingsGtkTitlebarDoubleClick @@ -2298,7 +2343,7 @@ type AttrSetTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = SettingsK type AttrGetType SettingsGtkTitlebarMiddleClickPropertyInfo = T.Text - type AttrLabel SettingsGtkTitlebarMiddleClickPropertyInfo = "Settings::gtk-titlebar-middle-click" + type AttrLabel SettingsGtkTitlebarMiddleClickPropertyInfo = "gtk-titlebar-middle-click" attrGet _ = getSettingsGtkTitlebarMiddleClick attrSet _ = setSettingsGtkTitlebarMiddleClick attrConstruct _ = constructSettingsGtkTitlebarMiddleClick @@ -2322,7 +2367,7 @@ type AttrSetTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = SettingsK type AttrGetType SettingsGtkTitlebarRightClickPropertyInfo = T.Text - type AttrLabel SettingsGtkTitlebarRightClickPropertyInfo = "Settings::gtk-titlebar-right-click" + type AttrLabel SettingsGtkTitlebarRightClickPropertyInfo = "gtk-titlebar-right-click" attrGet _ = getSettingsGtkTitlebarRightClick attrSet _ = setSettingsGtkTitlebarRightClick attrConstruct _ = constructSettingsGtkTitlebarRightClick @@ -2346,7 +2391,7 @@ type AttrSetTypeConstraint SettingsGtkToolbarIconSizePropertyInfo = (~) IconSize type AttrBaseTypeConstraint SettingsGtkToolbarIconSizePropertyInfo = SettingsK type AttrGetType SettingsGtkToolbarIconSizePropertyInfo = IconSize - type AttrLabel SettingsGtkToolbarIconSizePropertyInfo = "Settings::gtk-toolbar-icon-size" + type AttrLabel SettingsGtkToolbarIconSizePropertyInfo = "gtk-toolbar-icon-size" attrGet _ = getSettingsGtkToolbarIconSize attrSet _ = setSettingsGtkToolbarIconSize attrConstruct _ = constructSettingsGtkToolbarIconSize @@ -2370,7 +2415,7 @@ type AttrSetTypeConstraint SettingsGtkToolbarStylePropertyInfo = (~) ToolbarStyle type AttrBaseTypeConstraint SettingsGtkToolbarStylePropertyInfo = SettingsK type AttrGetType SettingsGtkToolbarStylePropertyInfo = ToolbarStyle - type AttrLabel SettingsGtkToolbarStylePropertyInfo = "Settings::gtk-toolbar-style" + type AttrLabel SettingsGtkToolbarStylePropertyInfo = "gtk-toolbar-style" attrGet _ = getSettingsGtkToolbarStyle attrSet _ = setSettingsGtkToolbarStyle attrConstruct _ = constructSettingsGtkToolbarStyle @@ -2394,7 +2439,7 @@ type AttrSetTypeConstraint SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = SettingsK type AttrGetType SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = Int32 - type AttrLabel SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = "Settings::gtk-tooltip-browse-mode-timeout" + type AttrLabel SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = "gtk-tooltip-browse-mode-timeout" attrGet _ = getSettingsGtkTooltipBrowseModeTimeout attrSet _ = setSettingsGtkTooltipBrowseModeTimeout attrConstruct _ = constructSettingsGtkTooltipBrowseModeTimeout @@ -2418,7 +2463,7 @@ type AttrSetTypeConstraint SettingsGtkTooltipBrowseTimeoutPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkTooltipBrowseTimeoutPropertyInfo = SettingsK type AttrGetType SettingsGtkTooltipBrowseTimeoutPropertyInfo = Int32 - type AttrLabel SettingsGtkTooltipBrowseTimeoutPropertyInfo = "Settings::gtk-tooltip-browse-timeout" + type AttrLabel SettingsGtkTooltipBrowseTimeoutPropertyInfo = "gtk-tooltip-browse-timeout" attrGet _ = getSettingsGtkTooltipBrowseTimeout attrSet _ = setSettingsGtkTooltipBrowseTimeout attrConstruct _ = constructSettingsGtkTooltipBrowseTimeout @@ -2442,7 +2487,7 @@ type AttrSetTypeConstraint SettingsGtkTooltipTimeoutPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkTooltipTimeoutPropertyInfo = SettingsK type AttrGetType SettingsGtkTooltipTimeoutPropertyInfo = Int32 - type AttrLabel SettingsGtkTooltipTimeoutPropertyInfo = "Settings::gtk-tooltip-timeout" + type AttrLabel SettingsGtkTooltipTimeoutPropertyInfo = "gtk-tooltip-timeout" attrGet _ = getSettingsGtkTooltipTimeout attrSet _ = setSettingsGtkTooltipTimeout attrConstruct _ = constructSettingsGtkTooltipTimeout @@ -2466,7 +2511,7 @@ type AttrSetTypeConstraint SettingsGtkTouchscreenModePropertyInfo = (~) Bool type AttrBaseTypeConstraint SettingsGtkTouchscreenModePropertyInfo = SettingsK type AttrGetType SettingsGtkTouchscreenModePropertyInfo = Bool - type AttrLabel SettingsGtkTouchscreenModePropertyInfo = "Settings::gtk-touchscreen-mode" + type AttrLabel SettingsGtkTouchscreenModePropertyInfo = "gtk-touchscreen-mode" attrGet _ = getSettingsGtkTouchscreenMode attrSet _ = setSettingsGtkTouchscreenMode attrConstruct _ = constructSettingsGtkTouchscreenMode @@ -2490,7 +2535,7 @@ type AttrSetTypeConstraint SettingsGtkVisibleFocusPropertyInfo = (~) PolicyType type AttrBaseTypeConstraint SettingsGtkVisibleFocusPropertyInfo = SettingsK type AttrGetType SettingsGtkVisibleFocusPropertyInfo = PolicyType - type AttrLabel SettingsGtkVisibleFocusPropertyInfo = "Settings::gtk-visible-focus" + type AttrLabel SettingsGtkVisibleFocusPropertyInfo = "gtk-visible-focus" attrGet _ = getSettingsGtkVisibleFocus attrSet _ = setSettingsGtkVisibleFocus attrConstruct _ = constructSettingsGtkVisibleFocus @@ -2514,7 +2559,7 @@ type AttrSetTypeConstraint SettingsGtkXftAntialiasPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkXftAntialiasPropertyInfo = SettingsK type AttrGetType SettingsGtkXftAntialiasPropertyInfo = Int32 - type AttrLabel SettingsGtkXftAntialiasPropertyInfo = "Settings::gtk-xft-antialias" + type AttrLabel SettingsGtkXftAntialiasPropertyInfo = "gtk-xft-antialias" attrGet _ = getSettingsGtkXftAntialias attrSet _ = setSettingsGtkXftAntialias attrConstruct _ = constructSettingsGtkXftAntialias @@ -2538,7 +2583,7 @@ type AttrSetTypeConstraint SettingsGtkXftDpiPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkXftDpiPropertyInfo = SettingsK type AttrGetType SettingsGtkXftDpiPropertyInfo = Int32 - type AttrLabel SettingsGtkXftDpiPropertyInfo = "Settings::gtk-xft-dpi" + type AttrLabel SettingsGtkXftDpiPropertyInfo = "gtk-xft-dpi" attrGet _ = getSettingsGtkXftDpi attrSet _ = setSettingsGtkXftDpi attrConstruct _ = constructSettingsGtkXftDpi @@ -2562,7 +2607,7 @@ type AttrSetTypeConstraint SettingsGtkXftHintingPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SettingsGtkXftHintingPropertyInfo = SettingsK type AttrGetType SettingsGtkXftHintingPropertyInfo = Int32 - type AttrLabel SettingsGtkXftHintingPropertyInfo = "Settings::gtk-xft-hinting" + type AttrLabel SettingsGtkXftHintingPropertyInfo = "gtk-xft-hinting" attrGet _ = getSettingsGtkXftHinting attrSet _ = setSettingsGtkXftHinting attrConstruct _ = constructSettingsGtkXftHinting @@ -2586,7 +2631,7 @@ type AttrSetTypeConstraint SettingsGtkXftHintstylePropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkXftHintstylePropertyInfo = SettingsK type AttrGetType SettingsGtkXftHintstylePropertyInfo = T.Text - type AttrLabel SettingsGtkXftHintstylePropertyInfo = "Settings::gtk-xft-hintstyle" + type AttrLabel SettingsGtkXftHintstylePropertyInfo = "gtk-xft-hintstyle" attrGet _ = getSettingsGtkXftHintstyle attrSet _ = setSettingsGtkXftHintstyle attrConstruct _ = constructSettingsGtkXftHintstyle @@ -2610,22 +2655,21 @@ type AttrSetTypeConstraint SettingsGtkXftRgbaPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsGtkXftRgbaPropertyInfo = SettingsK type AttrGetType SettingsGtkXftRgbaPropertyInfo = T.Text - type AttrLabel SettingsGtkXftRgbaPropertyInfo = "Settings::gtk-xft-rgba" + type AttrLabel SettingsGtkXftRgbaPropertyInfo = "gtk-xft-rgba" attrGet _ = getSettingsGtkXftRgba attrSet _ = setSettingsGtkXftRgba attrConstruct _ = constructSettingsGtkXftRgba type instance AttributeList Settings = SettingsAttributeList -type SettingsAttributeList = ('[ '("color-hash", SettingsColorHashPropertyInfo), '("gtk-alternative-button-order", SettingsGtkAlternativeButtonOrderPropertyInfo), '("gtk-alternative-sort-arrows", SettingsGtkAlternativeSortArrowsPropertyInfo), '("gtk-application-prefer-dark-theme", SettingsGtkApplicationPreferDarkThemePropertyInfo), '("gtk-auto-mnemonics", SettingsGtkAutoMnemonicsPropertyInfo), '("gtk-button-images", SettingsGtkButtonImagesPropertyInfo), '("gtk-can-change-accels", SettingsGtkCanChangeAccelsPropertyInfo), '("gtk-color-palette", SettingsGtkColorPalettePropertyInfo), '("gtk-color-scheme", SettingsGtkColorSchemePropertyInfo), '("gtk-cursor-blink", SettingsGtkCursorBlinkPropertyInfo), '("gtk-cursor-blink-time", SettingsGtkCursorBlinkTimePropertyInfo), '("gtk-cursor-blink-timeout", SettingsGtkCursorBlinkTimeoutPropertyInfo), '("gtk-cursor-theme-name", SettingsGtkCursorThemeNamePropertyInfo), '("gtk-cursor-theme-size", SettingsGtkCursorThemeSizePropertyInfo), '("gtk-decoration-layout", SettingsGtkDecorationLayoutPropertyInfo), '("gtk-dialogs-use-header", SettingsGtkDialogsUseHeaderPropertyInfo), '("gtk-dnd-drag-threshold", SettingsGtkDndDragThresholdPropertyInfo), '("gtk-double-click-distance", SettingsGtkDoubleClickDistancePropertyInfo), '("gtk-double-click-time", SettingsGtkDoubleClickTimePropertyInfo), '("gtk-enable-accels", SettingsGtkEnableAccelsPropertyInfo), '("gtk-enable-animations", SettingsGtkEnableAnimationsPropertyInfo), '("gtk-enable-event-sounds", SettingsGtkEnableEventSoundsPropertyInfo), '("gtk-enable-input-feedback-sounds", SettingsGtkEnableInputFeedbackSoundsPropertyInfo), '("gtk-enable-mnemonics", SettingsGtkEnableMnemonicsPropertyInfo), '("gtk-enable-primary-paste", SettingsGtkEnablePrimaryPastePropertyInfo), '("gtk-enable-tooltips", SettingsGtkEnableTooltipsPropertyInfo), '("gtk-entry-password-hint-timeout", SettingsGtkEntryPasswordHintTimeoutPropertyInfo), '("gtk-entry-select-on-focus", SettingsGtkEntrySelectOnFocusPropertyInfo), '("gtk-error-bell", SettingsGtkErrorBellPropertyInfo), '("gtk-fallback-icon-theme", SettingsGtkFallbackIconThemePropertyInfo), '("gtk-file-chooser-backend", SettingsGtkFileChooserBackendPropertyInfo), '("gtk-font-name", SettingsGtkFontNamePropertyInfo), '("gtk-fontconfig-timestamp", SettingsGtkFontconfigTimestampPropertyInfo), '("gtk-icon-sizes", SettingsGtkIconSizesPropertyInfo), '("gtk-icon-theme-name", SettingsGtkIconThemeNamePropertyInfo), '("gtk-im-module", SettingsGtkImModulePropertyInfo), '("gtk-im-preedit-style", SettingsGtkImPreeditStylePropertyInfo), '("gtk-im-status-style", SettingsGtkImStatusStylePropertyInfo), '("gtk-key-theme-name", SettingsGtkKeyThemeNamePropertyInfo), '("gtk-keynav-cursor-only", SettingsGtkKeynavCursorOnlyPropertyInfo), '("gtk-keynav-wrap-around", SettingsGtkKeynavWrapAroundPropertyInfo), '("gtk-label-select-on-focus", SettingsGtkLabelSelectOnFocusPropertyInfo), '("gtk-long-press-time", SettingsGtkLongPressTimePropertyInfo), '("gtk-menu-bar-accel", SettingsGtkMenuBarAccelPropertyInfo), '("gtk-menu-bar-popup-delay", SettingsGtkMenuBarPopupDelayPropertyInfo), '("gtk-menu-images", SettingsGtkMenuImagesPropertyInfo), '("gtk-menu-popdown-delay", SettingsGtkMenuPopdownDelayPropertyInfo), '("gtk-menu-popup-delay", SettingsGtkMenuPopupDelayPropertyInfo), '("gtk-modules", SettingsGtkModulesPropertyInfo), '("gtk-primary-button-warps-slider", SettingsGtkPrimaryButtonWarpsSliderPropertyInfo), '("gtk-print-backends", SettingsGtkPrintBackendsPropertyInfo), '("gtk-print-preview-command", SettingsGtkPrintPreviewCommandPropertyInfo), '("gtk-recent-files-enabled", SettingsGtkRecentFilesEnabledPropertyInfo), '("gtk-recent-files-limit", SettingsGtkRecentFilesLimitPropertyInfo), '("gtk-recent-files-max-age", SettingsGtkRecentFilesMaxAgePropertyInfo), '("gtk-scrolled-window-placement", SettingsGtkScrolledWindowPlacementPropertyInfo), '("gtk-shell-shows-app-menu", SettingsGtkShellShowsAppMenuPropertyInfo), '("gtk-shell-shows-desktop", SettingsGtkShellShowsDesktopPropertyInfo), '("gtk-shell-shows-menubar", SettingsGtkShellShowsMenubarPropertyInfo), '("gtk-show-input-method-menu", SettingsGtkShowInputMethodMenuPropertyInfo), '("gtk-show-unicode-menu", SettingsGtkShowUnicodeMenuPropertyInfo), '("gtk-sound-theme-name", SettingsGtkSoundThemeNamePropertyInfo), '("gtk-split-cursor", SettingsGtkSplitCursorPropertyInfo), '("gtk-theme-name", SettingsGtkThemeNamePropertyInfo), '("gtk-timeout-expand", SettingsGtkTimeoutExpandPropertyInfo), '("gtk-timeout-initial", SettingsGtkTimeoutInitialPropertyInfo), '("gtk-timeout-repeat", SettingsGtkTimeoutRepeatPropertyInfo), '("gtk-titlebar-double-click", SettingsGtkTitlebarDoubleClickPropertyInfo), '("gtk-titlebar-middle-click", SettingsGtkTitlebarMiddleClickPropertyInfo), '("gtk-titlebar-right-click", SettingsGtkTitlebarRightClickPropertyInfo), '("gtk-toolbar-icon-size", SettingsGtkToolbarIconSizePropertyInfo), '("gtk-toolbar-style", SettingsGtkToolbarStylePropertyInfo), '("gtk-tooltip-browse-mode-timeout", SettingsGtkTooltipBrowseModeTimeoutPropertyInfo), '("gtk-tooltip-browse-timeout", SettingsGtkTooltipBrowseTimeoutPropertyInfo), '("gtk-tooltip-timeout", SettingsGtkTooltipTimeoutPropertyInfo), '("gtk-touchscreen-mode", SettingsGtkTouchscreenModePropertyInfo), '("gtk-visible-focus", SettingsGtkVisibleFocusPropertyInfo), '("gtk-xft-antialias", SettingsGtkXftAntialiasPropertyInfo), '("gtk-xft-dpi", SettingsGtkXftDpiPropertyInfo), '("gtk-xft-hinting", SettingsGtkXftHintingPropertyInfo), '("gtk-xft-hintstyle", SettingsGtkXftHintstylePropertyInfo), '("gtk-xft-rgba", SettingsGtkXftRgbaPropertyInfo)] :: [(Symbol, *)]) +type SettingsAttributeList = ('[ '("colorHash", SettingsColorHashPropertyInfo), '("gtkAlternativeButtonOrder", SettingsGtkAlternativeButtonOrderPropertyInfo), '("gtkAlternativeSortArrows", SettingsGtkAlternativeSortArrowsPropertyInfo), '("gtkApplicationPreferDarkTheme", SettingsGtkApplicationPreferDarkThemePropertyInfo), '("gtkAutoMnemonics", SettingsGtkAutoMnemonicsPropertyInfo), '("gtkButtonImages", SettingsGtkButtonImagesPropertyInfo), '("gtkCanChangeAccels", SettingsGtkCanChangeAccelsPropertyInfo), '("gtkColorPalette", SettingsGtkColorPalettePropertyInfo), '("gtkColorScheme", SettingsGtkColorSchemePropertyInfo), '("gtkCursorBlink", SettingsGtkCursorBlinkPropertyInfo), '("gtkCursorBlinkTime", SettingsGtkCursorBlinkTimePropertyInfo), '("gtkCursorBlinkTimeout", SettingsGtkCursorBlinkTimeoutPropertyInfo), '("gtkCursorThemeName", SettingsGtkCursorThemeNamePropertyInfo), '("gtkCursorThemeSize", SettingsGtkCursorThemeSizePropertyInfo), '("gtkDecorationLayout", SettingsGtkDecorationLayoutPropertyInfo), '("gtkDialogsUseHeader", SettingsGtkDialogsUseHeaderPropertyInfo), '("gtkDndDragThreshold", SettingsGtkDndDragThresholdPropertyInfo), '("gtkDoubleClickDistance", SettingsGtkDoubleClickDistancePropertyInfo), '("gtkDoubleClickTime", SettingsGtkDoubleClickTimePropertyInfo), '("gtkEnableAccels", SettingsGtkEnableAccelsPropertyInfo), '("gtkEnableAnimations", SettingsGtkEnableAnimationsPropertyInfo), '("gtkEnableEventSounds", SettingsGtkEnableEventSoundsPropertyInfo), '("gtkEnableInputFeedbackSounds", SettingsGtkEnableInputFeedbackSoundsPropertyInfo), '("gtkEnableMnemonics", SettingsGtkEnableMnemonicsPropertyInfo), '("gtkEnablePrimaryPaste", SettingsGtkEnablePrimaryPastePropertyInfo), '("gtkEnableTooltips", SettingsGtkEnableTooltipsPropertyInfo), '("gtkEntryPasswordHintTimeout", SettingsGtkEntryPasswordHintTimeoutPropertyInfo), '("gtkEntrySelectOnFocus", SettingsGtkEntrySelectOnFocusPropertyInfo), '("gtkErrorBell", SettingsGtkErrorBellPropertyInfo), '("gtkFallbackIconTheme", SettingsGtkFallbackIconThemePropertyInfo), '("gtkFileChooserBackend", SettingsGtkFileChooserBackendPropertyInfo), '("gtkFontName", SettingsGtkFontNamePropertyInfo), '("gtkFontconfigTimestamp", SettingsGtkFontconfigTimestampPropertyInfo), '("gtkIconSizes", SettingsGtkIconSizesPropertyInfo), '("gtkIconThemeName", SettingsGtkIconThemeNamePropertyInfo), '("gtkImModule", SettingsGtkImModulePropertyInfo), '("gtkImPreeditStyle", SettingsGtkImPreeditStylePropertyInfo), '("gtkImStatusStyle", SettingsGtkImStatusStylePropertyInfo), '("gtkKeyThemeName", SettingsGtkKeyThemeNamePropertyInfo), '("gtkKeynavCursorOnly", SettingsGtkKeynavCursorOnlyPropertyInfo), '("gtkKeynavWrapAround", SettingsGtkKeynavWrapAroundPropertyInfo), '("gtkLabelSelectOnFocus", SettingsGtkLabelSelectOnFocusPropertyInfo), '("gtkLongPressTime", SettingsGtkLongPressTimePropertyInfo), '("gtkMenuBarAccel", SettingsGtkMenuBarAccelPropertyInfo), '("gtkMenuBarPopupDelay", SettingsGtkMenuBarPopupDelayPropertyInfo), '("gtkMenuImages", SettingsGtkMenuImagesPropertyInfo), '("gtkMenuPopdownDelay", SettingsGtkMenuPopdownDelayPropertyInfo), '("gtkMenuPopupDelay", SettingsGtkMenuPopupDelayPropertyInfo), '("gtkModules", SettingsGtkModulesPropertyInfo), '("gtkPrimaryButtonWarpsSlider", SettingsGtkPrimaryButtonWarpsSliderPropertyInfo), '("gtkPrintBackends", SettingsGtkPrintBackendsPropertyInfo), '("gtkPrintPreviewCommand", SettingsGtkPrintPreviewCommandPropertyInfo), '("gtkRecentFilesEnabled", SettingsGtkRecentFilesEnabledPropertyInfo), '("gtkRecentFilesLimit", SettingsGtkRecentFilesLimitPropertyInfo), '("gtkRecentFilesMaxAge", SettingsGtkRecentFilesMaxAgePropertyInfo), '("gtkScrolledWindowPlacement", SettingsGtkScrolledWindowPlacementPropertyInfo), '("gtkShellShowsAppMenu", SettingsGtkShellShowsAppMenuPropertyInfo), '("gtkShellShowsDesktop", SettingsGtkShellShowsDesktopPropertyInfo), '("gtkShellShowsMenubar", SettingsGtkShellShowsMenubarPropertyInfo), '("gtkShowInputMethodMenu", SettingsGtkShowInputMethodMenuPropertyInfo), '("gtkShowUnicodeMenu", SettingsGtkShowUnicodeMenuPropertyInfo), '("gtkSoundThemeName", SettingsGtkSoundThemeNamePropertyInfo), '("gtkSplitCursor", SettingsGtkSplitCursorPropertyInfo), '("gtkThemeName", SettingsGtkThemeNamePropertyInfo), '("gtkTimeoutExpand", SettingsGtkTimeoutExpandPropertyInfo), '("gtkTimeoutInitial", SettingsGtkTimeoutInitialPropertyInfo), '("gtkTimeoutRepeat", SettingsGtkTimeoutRepeatPropertyInfo), '("gtkTitlebarDoubleClick", SettingsGtkTitlebarDoubleClickPropertyInfo), '("gtkTitlebarMiddleClick", SettingsGtkTitlebarMiddleClickPropertyInfo), '("gtkTitlebarRightClick", SettingsGtkTitlebarRightClickPropertyInfo), '("gtkToolbarIconSize", SettingsGtkToolbarIconSizePropertyInfo), '("gtkToolbarStyle", SettingsGtkToolbarStylePropertyInfo), '("gtkTooltipBrowseModeTimeout", SettingsGtkTooltipBrowseModeTimeoutPropertyInfo), '("gtkTooltipBrowseTimeout", SettingsGtkTooltipBrowseTimeoutPropertyInfo), '("gtkTooltipTimeout", SettingsGtkTooltipTimeoutPropertyInfo), '("gtkTouchscreenMode", SettingsGtkTouchscreenModePropertyInfo), '("gtkVisibleFocus", SettingsGtkVisibleFocusPropertyInfo), '("gtkXftAntialias", SettingsGtkXftAntialiasPropertyInfo), '("gtkXftDpi", SettingsGtkXftDpiPropertyInfo), '("gtkXftHinting", SettingsGtkXftHintingPropertyInfo), '("gtkXftHintstyle", SettingsGtkXftHintstylePropertyInfo), '("gtkXftRgba", SettingsGtkXftRgbaPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Settings = SettingsSignalList -type SettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Settings::set_double_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_double", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v_double", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_double", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2640,27 +2684,30 @@ {-# DEPRECATED settingsSetDoubleProperty ["(Since version 3.16)","Use g_object_set() instead."]#-} settingsSetDoubleProperty :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- name - Double -> -- v_double - T.Text -> -- origin - m () -settingsSetDoubleProperty _obj name v_double origin = liftIO $ do + a -- _obj + -> T.Text -- name + -> Double -- vDouble + -> T.Text -- origin + -> m () -- result +settingsSetDoubleProperty _obj name vDouble origin = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name - let v_double' = realToFrac v_double + let vDouble' = realToFrac vDouble origin' <- textToCString origin - gtk_settings_set_double_property _obj' name' v_double' origin' + gtk_settings_set_double_property _obj' name' vDouble' origin' touchManagedPtr _obj freeMem name' freeMem origin' return () +data SettingsSetDoublePropertyMethodInfo +instance (signature ~ (T.Text -> Double -> T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDoublePropertyMethodInfo a signature where + overloadedMethod _ = settingsSetDoubleProperty + -- method Settings::set_long_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_long", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v_long", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_long", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2675,26 +2722,29 @@ {-# DEPRECATED settingsSetLongProperty ["(Since version 3.16)","Use g_object_set() instead."]#-} settingsSetLongProperty :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- name - Int64 -> -- v_long - T.Text -> -- origin - m () -settingsSetLongProperty _obj name v_long origin = liftIO $ do + a -- _obj + -> T.Text -- name + -> Int64 -- vLong + -> T.Text -- origin + -> m () -- result +settingsSetLongProperty _obj name vLong origin = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name origin' <- textToCString origin - gtk_settings_set_long_property _obj' name' v_long origin' + gtk_settings_set_long_property _obj' name' vLong origin' touchManagedPtr _obj freeMem name' freeMem origin' return () +data SettingsSetLongPropertyMethodInfo +instance (signature ~ (T.Text -> Int64 -> T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetLongPropertyMethodInfo a signature where + overloadedMethod _ = settingsSetLongProperty + -- method Settings::set_property_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "svalue", argType = TInterface "Gtk" "SettingsValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "svalue", argType = TInterface "Gtk" "SettingsValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "svalue", argType = TInterface "Gtk" "SettingsValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2708,10 +2758,10 @@ {-# DEPRECATED settingsSetPropertyValue ["(Since version 3.16)","Use g_object_set() instead."]#-} settingsSetPropertyValue :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- name - SettingsValue -> -- svalue - m () + a -- _obj + -> T.Text -- name + -> SettingsValue -- svalue + -> m () -- result settingsSetPropertyValue _obj name svalue = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -2722,11 +2772,14 @@ freeMem name' return () +data SettingsSetPropertyValueMethodInfo +instance (signature ~ (T.Text -> SettingsValue -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetPropertyValueMethodInfo a signature where + overloadedMethod _ = settingsSetPropertyValue + -- method Settings::set_string_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2741,28 +2794,31 @@ {-# DEPRECATED settingsSetStringProperty ["(Since version 3.16)","Use g_object_set() instead."]#-} settingsSetStringProperty :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- name - T.Text -> -- v_string - T.Text -> -- origin - m () -settingsSetStringProperty _obj name v_string origin = liftIO $ do + a -- _obj + -> T.Text -- name + -> T.Text -- vString + -> T.Text -- origin + -> m () -- result +settingsSetStringProperty _obj name vString origin = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name - v_string' <- textToCString v_string + vString' <- textToCString vString origin' <- textToCString origin - gtk_settings_set_string_property _obj' name' v_string' origin' + gtk_settings_set_string_property _obj' name' vString' origin' touchManagedPtr _obj freeMem name' - freeMem v_string' + freeMem vString' freeMem origin' return () +data SettingsSetStringPropertyMethodInfo +instance (signature ~ (T.Text -> T.Text -> T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetStringPropertyMethodInfo a signature where + overloadedMethod _ = settingsSetStringProperty + -- method Settings::get_default -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Settings" -- throws : False -- Skip return : False @@ -2773,7 +2829,7 @@ settingsGetDefault :: (MonadIO m) => - m Settings + m Settings -- result settingsGetDefault = liftIO $ do result <- gtk_settings_get_default checkUnexpectedReturnNULL "gtk_settings_get_default" result @@ -2782,9 +2838,8 @@ -- method Settings::get_for_screen -- method type : MemberFunction --- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Settings" -- throws : False -- Skip return : False @@ -2796,8 +2851,8 @@ settingsGetForScreen :: (MonadIO m, Gdk.ScreenK a) => - a -> -- screen - m Settings + a -- screen + -> m Settings -- result settingsGetForScreen screen = liftIO $ do let screen' = unsafeManagedPtrCastPtr screen result <- gtk_settings_get_for_screen screen' @@ -2808,9 +2863,8 @@ -- method Settings::install_property -- method type : MemberFunction --- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2822,8 +2876,8 @@ {-# DEPRECATED settingsInstallProperty ["(Since version 3.16)","This function is not useful outside GTK+."]#-} settingsInstallProperty :: (MonadIO m) => - GParamSpec -> -- pspec - m () + GParamSpec -- pspec + -> m () -- result settingsInstallProperty pspec = liftIO $ do let pspec' = unsafeManagedPtrGetPtr pspec gtk_settings_install_property pspec' @@ -2831,9 +2885,8 @@ -- method Settings::install_property_parser -- method type : MemberFunction --- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "Gtk" "RcPropertyParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parser", argType = TInterface "Gtk" "RcPropertyParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "Gtk" "RcPropertyParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2846,9 +2899,9 @@ {-# DEPRECATED settingsInstallPropertyParser ["(Since version 3.16)","This function is not useful outside GTK+."]#-} settingsInstallPropertyParser :: (MonadIO m) => - GParamSpec -> -- pspec - RcPropertyParser -> -- parser - m () + GParamSpec -- pspec + -> RcPropertyParser -- parser + -> m () -- result settingsInstallPropertyParser pspec parser = liftIO $ do let pspec' = unsafeManagedPtrGetPtr pspec parser' <- mkRcPropertyParser (rcPropertyParserWrapper Nothing parser) diff --git a/GI/Gtk/Objects/Settings.hs-boot b/GI/Gtk/Objects/Settings.hs-boot --- a/GI/Gtk/Objects/Settings.hs-boot +++ b/GI/Gtk/Objects/Settings.hs-boot @@ -92,3 +92,7 @@ data SettingsGtkXftHintingPropertyInfo data SettingsGtkXftHintstylePropertyInfo data SettingsGtkXftRgbaPropertyInfo +data SettingsSetDoublePropertyMethodInfo +data SettingsSetLongPropertyMethodInfo +data SettingsSetPropertyValueMethodInfo +data SettingsSetStringPropertyMethodInfo diff --git a/GI/Gtk/Objects/SizeGroup.hs b/GI/Gtk/Objects/SizeGroup.hs --- a/GI/Gtk/Objects/SizeGroup.hs +++ b/GI/Gtk/Objects/SizeGroup.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** sizeGroupAddWidget + SizeGroupAddWidgetMethodInfo , sizeGroupAddWidget , -- ** sizeGroupGetIgnoreHidden + SizeGroupGetIgnoreHiddenMethodInfo , sizeGroupGetIgnoreHidden , -- ** sizeGroupGetMode + SizeGroupGetModeMethodInfo , sizeGroupGetMode , -- ** sizeGroupGetWidgets + SizeGroupGetWidgetsMethodInfo , sizeGroupGetWidgets , @@ -37,14 +42,17 @@ -- ** sizeGroupRemoveWidget + SizeGroupRemoveWidgetMethodInfo , sizeGroupRemoveWidget , -- ** sizeGroupSetIgnoreHidden + SizeGroupSetIgnoreHiddenMethodInfo , sizeGroupSetIgnoreHidden , -- ** sizeGroupSetMode + SizeGroupSetModeMethodInfo , sizeGroupSetMode , @@ -101,6 +109,56 @@ noSizeGroup :: Maybe SizeGroup noSizeGroup = Nothing +type family ResolveSizeGroupMethod (t :: Symbol) (o :: *) :: * where + ResolveSizeGroupMethod "addChild" o = BuildableAddChildMethodInfo + ResolveSizeGroupMethod "addWidget" o = SizeGroupAddWidgetMethodInfo + ResolveSizeGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSizeGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSizeGroupMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveSizeGroupMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveSizeGroupMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveSizeGroupMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveSizeGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSizeGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSizeGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSizeGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSizeGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSizeGroupMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveSizeGroupMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSizeGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSizeGroupMethod "removeWidget" o = SizeGroupRemoveWidgetMethodInfo + ResolveSizeGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSizeGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSizeGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSizeGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSizeGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSizeGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSizeGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSizeGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSizeGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSizeGroupMethod "getIgnoreHidden" o = SizeGroupGetIgnoreHiddenMethodInfo + ResolveSizeGroupMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveSizeGroupMethod "getMode" o = SizeGroupGetModeMethodInfo + ResolveSizeGroupMethod "getName" o = BuildableGetNameMethodInfo + ResolveSizeGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSizeGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSizeGroupMethod "getWidgets" o = SizeGroupGetWidgetsMethodInfo + ResolveSizeGroupMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveSizeGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSizeGroupMethod "setIgnoreHidden" o = SizeGroupSetIgnoreHiddenMethodInfo + ResolveSizeGroupMethod "setMode" o = SizeGroupSetModeMethodInfo + ResolveSizeGroupMethod "setName" o = BuildableSetNameMethodInfo + ResolveSizeGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSizeGroupMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSizeGroupMethod t SizeGroup, MethodInfo info SizeGroup p) => IsLabelProxy t (SizeGroup -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSizeGroupMethod t SizeGroup, MethodInfo info SizeGroup p) => IsLabel t (SizeGroup -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "ignore-hidden" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -120,7 +178,7 @@ type AttrSetTypeConstraint SizeGroupIgnoreHiddenPropertyInfo = (~) Bool type AttrBaseTypeConstraint SizeGroupIgnoreHiddenPropertyInfo = SizeGroupK type AttrGetType SizeGroupIgnoreHiddenPropertyInfo = Bool - type AttrLabel SizeGroupIgnoreHiddenPropertyInfo = "SizeGroup::ignore-hidden" + type AttrLabel SizeGroupIgnoreHiddenPropertyInfo = "ignore-hidden" attrGet _ = getSizeGroupIgnoreHidden attrSet _ = setSizeGroupIgnoreHidden attrConstruct _ = constructSizeGroupIgnoreHidden @@ -144,22 +202,21 @@ type AttrSetTypeConstraint SizeGroupModePropertyInfo = (~) SizeGroupMode type AttrBaseTypeConstraint SizeGroupModePropertyInfo = SizeGroupK type AttrGetType SizeGroupModePropertyInfo = SizeGroupMode - type AttrLabel SizeGroupModePropertyInfo = "SizeGroup::mode" + type AttrLabel SizeGroupModePropertyInfo = "mode" attrGet _ = getSizeGroupMode attrSet _ = setSizeGroupMode attrConstruct _ = constructSizeGroupMode type instance AttributeList SizeGroup = SizeGroupAttributeList -type SizeGroupAttributeList = ('[ '("ignore-hidden", SizeGroupIgnoreHiddenPropertyInfo), '("mode", SizeGroupModePropertyInfo)] :: [(Symbol, *)]) +type SizeGroupAttributeList = ('[ '("ignoreHidden", SizeGroupIgnoreHiddenPropertyInfo), '("mode", SizeGroupModePropertyInfo)] :: [(Symbol, *)]) type instance SignalList SizeGroup = SizeGroupSignalList -type SizeGroupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SizeGroupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SizeGroup::new -- method type : Constructor --- Args : [Arg {argName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SizeGroup" -- throws : False -- Skip return : False @@ -171,8 +228,8 @@ sizeGroupNew :: (MonadIO m) => - SizeGroupMode -> -- mode - m SizeGroup + SizeGroupMode -- mode + -> m SizeGroup -- result sizeGroupNew mode = liftIO $ do let mode' = (fromIntegral . fromEnum) mode result <- gtk_size_group_new mode' @@ -182,9 +239,8 @@ -- method SizeGroup::add_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -197,9 +253,9 @@ sizeGroupAddWidget :: (MonadIO m, SizeGroupK a, WidgetK b) => - a -> -- _obj - b -> -- widget - m () + a -- _obj + -> b -- widget + -> m () -- result sizeGroupAddWidget _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget @@ -208,11 +264,14 @@ touchManagedPtr widget return () +data SizeGroupAddWidgetMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, SizeGroupK a, WidgetK b) => MethodInfo SizeGroupAddWidgetMethodInfo a signature where + overloadedMethod _ = sizeGroupAddWidget + -- method SizeGroup::get_ignore_hidden -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -224,8 +283,8 @@ sizeGroupGetIgnoreHidden :: (MonadIO m, SizeGroupK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result sizeGroupGetIgnoreHidden _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_size_group_get_ignore_hidden _obj' @@ -233,11 +292,14 @@ touchManagedPtr _obj return result' +data SizeGroupGetIgnoreHiddenMethodInfo +instance (signature ~ (m Bool), MonadIO m, SizeGroupK a) => MethodInfo SizeGroupGetIgnoreHiddenMethodInfo a signature where + overloadedMethod _ = sizeGroupGetIgnoreHidden + -- method SizeGroup::get_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SizeGroupMode" -- throws : False -- Skip return : False @@ -249,8 +311,8 @@ sizeGroupGetMode :: (MonadIO m, SizeGroupK a) => - a -> -- _obj - m SizeGroupMode + a -- _obj + -> m SizeGroupMode -- result sizeGroupGetMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_size_group_get_mode _obj' @@ -258,11 +320,14 @@ touchManagedPtr _obj return result' +data SizeGroupGetModeMethodInfo +instance (signature ~ (m SizeGroupMode), MonadIO m, SizeGroupK a) => MethodInfo SizeGroupGetModeMethodInfo a signature where + overloadedMethod _ = sizeGroupGetMode + -- method SizeGroup::get_widgets -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -274,8 +339,8 @@ sizeGroupGetWidgets :: (MonadIO m, SizeGroupK a) => - a -> -- _obj - m [Widget] + a -- _obj + -> m [Widget] -- result sizeGroupGetWidgets _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_size_group_get_widgets _obj' @@ -285,11 +350,14 @@ touchManagedPtr _obj return result'' +data SizeGroupGetWidgetsMethodInfo +instance (signature ~ (m [Widget]), MonadIO m, SizeGroupK a) => MethodInfo SizeGroupGetWidgetsMethodInfo a signature where + overloadedMethod _ = sizeGroupGetWidgets + -- method SizeGroup::remove_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -302,9 +370,9 @@ sizeGroupRemoveWidget :: (MonadIO m, SizeGroupK a, WidgetK b) => - a -> -- _obj - b -> -- widget - m () + a -- _obj + -> b -- widget + -> m () -- result sizeGroupRemoveWidget _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget @@ -313,11 +381,14 @@ touchManagedPtr widget return () +data SizeGroupRemoveWidgetMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, SizeGroupK a, WidgetK b) => MethodInfo SizeGroupRemoveWidgetMethodInfo a signature where + overloadedMethod _ = sizeGroupRemoveWidget + -- method SizeGroup::set_ignore_hidden -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ignore_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -330,21 +401,24 @@ sizeGroupSetIgnoreHidden :: (MonadIO m, SizeGroupK a) => - a -> -- _obj - Bool -> -- ignore_hidden - m () -sizeGroupSetIgnoreHidden _obj ignore_hidden = liftIO $ do + a -- _obj + -> Bool -- ignoreHidden + -> m () -- result +sizeGroupSetIgnoreHidden _obj ignoreHidden = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let ignore_hidden' = (fromIntegral . fromEnum) ignore_hidden - gtk_size_group_set_ignore_hidden _obj' ignore_hidden' + let ignoreHidden' = (fromIntegral . fromEnum) ignoreHidden + gtk_size_group_set_ignore_hidden _obj' ignoreHidden' touchManagedPtr _obj return () +data SizeGroupSetIgnoreHiddenMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SizeGroupK a) => MethodInfo SizeGroupSetIgnoreHiddenMethodInfo a signature where + overloadedMethod _ = sizeGroupSetIgnoreHidden + -- method SizeGroup::set_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -357,14 +431,18 @@ sizeGroupSetMode :: (MonadIO m, SizeGroupK a) => - a -> -- _obj - SizeGroupMode -> -- mode - m () + a -- _obj + -> SizeGroupMode -- mode + -> m () -- result sizeGroupSetMode _obj mode = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let mode' = (fromIntegral . fromEnum) mode gtk_size_group_set_mode _obj' mode' touchManagedPtr _obj return () + +data SizeGroupSetModeMethodInfo +instance (signature ~ (SizeGroupMode -> m ()), MonadIO m, SizeGroupK a) => MethodInfo SizeGroupSetModeMethodInfo a signature where + overloadedMethod _ = sizeGroupSetMode diff --git a/GI/Gtk/Objects/SizeGroup.hs-boot b/GI/Gtk/Objects/SizeGroup.hs-boot --- a/GI/Gtk/Objects/SizeGroup.hs-boot +++ b/GI/Gtk/Objects/SizeGroup.hs-boot @@ -13,3 +13,10 @@ instance (GObject o, IsDescendantOf SizeGroup o) => SizeGroupK o data SizeGroupIgnoreHiddenPropertyInfo data SizeGroupModePropertyInfo +data SizeGroupAddWidgetMethodInfo +data SizeGroupGetIgnoreHiddenMethodInfo +data SizeGroupGetModeMethodInfo +data SizeGroupGetWidgetsMethodInfo +data SizeGroupRemoveWidgetMethodInfo +data SizeGroupSetIgnoreHiddenMethodInfo +data SizeGroupSetModeMethodInfo diff --git a/GI/Gtk/Objects/Socket.hs b/GI/Gtk/Objects/Socket.hs --- a/GI/Gtk/Objects/Socket.hs +++ b/GI/Gtk/Objects/Socket.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** socketAddId + SocketAddIdMethodInfo , socketAddId , -- ** socketGetId + SocketGetIdMethodInfo , socketGetId , -- ** socketGetPlugWindow + SocketGetPlugWindowMethodInfo , socketGetPlugWindow , @@ -97,6 +101,331 @@ noSocket :: Maybe Socket noSocket = Nothing +type family ResolveSocketMethod (t :: Symbol) (o :: *) :: * where + ResolveSocketMethod "activate" o = WidgetActivateMethodInfo + ResolveSocketMethod "add" o = ContainerAddMethodInfo + ResolveSocketMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveSocketMethod "addChild" o = BuildableAddChildMethodInfo + ResolveSocketMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveSocketMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveSocketMethod "addId" o = SocketAddIdMethodInfo + ResolveSocketMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveSocketMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveSocketMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSocketMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSocketMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveSocketMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveSocketMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveSocketMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveSocketMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveSocketMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveSocketMethod "childType" o = ContainerChildTypeMethodInfo + ResolveSocketMethod "classPath" o = WidgetClassPathMethodInfo + ResolveSocketMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveSocketMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveSocketMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveSocketMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveSocketMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveSocketMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveSocketMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveSocketMethod "destroy" o = WidgetDestroyMethodInfo + ResolveSocketMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveSocketMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveSocketMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveSocketMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveSocketMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveSocketMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveSocketMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveSocketMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveSocketMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveSocketMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveSocketMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveSocketMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveSocketMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveSocketMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveSocketMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveSocketMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveSocketMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveSocketMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveSocketMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveSocketMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveSocketMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveSocketMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveSocketMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveSocketMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveSocketMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveSocketMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveSocketMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveSocketMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveSocketMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveSocketMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveSocketMethod "draw" o = WidgetDrawMethodInfo + ResolveSocketMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveSocketMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveSocketMethod "event" o = WidgetEventMethodInfo + ResolveSocketMethod "forall" o = ContainerForallMethodInfo + ResolveSocketMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSocketMethod "foreach" o = ContainerForeachMethodInfo + ResolveSocketMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveSocketMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSocketMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveSocketMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveSocketMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveSocketMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveSocketMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveSocketMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveSocketMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveSocketMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveSocketMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveSocketMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveSocketMethod "hide" o = WidgetHideMethodInfo + ResolveSocketMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveSocketMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveSocketMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveSocketMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveSocketMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveSocketMethod "intersect" o = WidgetIntersectMethodInfo + ResolveSocketMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveSocketMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveSocketMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveSocketMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSocketMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveSocketMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveSocketMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveSocketMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveSocketMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveSocketMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveSocketMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveSocketMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveSocketMethod "map" o = WidgetMapMethodInfo + ResolveSocketMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveSocketMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveSocketMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveSocketMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveSocketMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveSocketMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveSocketMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveSocketMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveSocketMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSocketMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSocketMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveSocketMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveSocketMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveSocketMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveSocketMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveSocketMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveSocketMethod "path" o = WidgetPathMethodInfo + ResolveSocketMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveSocketMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveSocketMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveSocketMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveSocketMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveSocketMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveSocketMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveSocketMethod "realize" o = WidgetRealizeMethodInfo + ResolveSocketMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSocketMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSocketMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveSocketMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveSocketMethod "remove" o = ContainerRemoveMethodInfo + ResolveSocketMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveSocketMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveSocketMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveSocketMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveSocketMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveSocketMethod "reparent" o = WidgetReparentMethodInfo + ResolveSocketMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSocketMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSocketMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveSocketMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveSocketMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveSocketMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSocketMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveSocketMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveSocketMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveSocketMethod "show" o = WidgetShowMethodInfo + ResolveSocketMethod "showAll" o = WidgetShowAllMethodInfo + ResolveSocketMethod "showNow" o = WidgetShowNowMethodInfo + ResolveSocketMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveSocketMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveSocketMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveSocketMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSocketMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSocketMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveSocketMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveSocketMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveSocketMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSocketMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveSocketMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveSocketMethod "unmap" o = WidgetUnmapMethodInfo + ResolveSocketMethod "unparent" o = WidgetUnparentMethodInfo + ResolveSocketMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveSocketMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSocketMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveSocketMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveSocketMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveSocketMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSocketMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveSocketMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveSocketMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveSocketMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveSocketMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveSocketMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveSocketMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveSocketMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveSocketMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveSocketMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveSocketMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveSocketMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveSocketMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveSocketMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveSocketMethod "getClip" o = WidgetGetClipMethodInfo + ResolveSocketMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveSocketMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveSocketMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSocketMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveSocketMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveSocketMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveSocketMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveSocketMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveSocketMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveSocketMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveSocketMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveSocketMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveSocketMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveSocketMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveSocketMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveSocketMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveSocketMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveSocketMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveSocketMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveSocketMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveSocketMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveSocketMethod "getId" o = SocketGetIdMethodInfo + ResolveSocketMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveSocketMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveSocketMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveSocketMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveSocketMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveSocketMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveSocketMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveSocketMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveSocketMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveSocketMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveSocketMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveSocketMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveSocketMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveSocketMethod "getParent" o = WidgetGetParentMethodInfo + ResolveSocketMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveSocketMethod "getPath" o = WidgetGetPathMethodInfo + ResolveSocketMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveSocketMethod "getPlugWindow" o = SocketGetPlugWindowMethodInfo + ResolveSocketMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveSocketMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveSocketMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveSocketMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveSocketMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveSocketMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveSocketMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveSocketMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSocketMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSocketMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveSocketMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveSocketMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveSocketMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveSocketMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveSocketMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveSocketMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveSocketMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveSocketMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveSocketMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveSocketMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveSocketMethod "getState" o = WidgetGetStateMethodInfo + ResolveSocketMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveSocketMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveSocketMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveSocketMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveSocketMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveSocketMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveSocketMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveSocketMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveSocketMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveSocketMethod "getValign" o = WidgetGetValignMethodInfo + ResolveSocketMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveSocketMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveSocketMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveSocketMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveSocketMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveSocketMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveSocketMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveSocketMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveSocketMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveSocketMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveSocketMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveSocketMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveSocketMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveSocketMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveSocketMethod "setClip" o = WidgetSetClipMethodInfo + ResolveSocketMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveSocketMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSocketMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveSocketMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveSocketMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveSocketMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveSocketMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveSocketMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveSocketMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveSocketMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveSocketMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveSocketMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveSocketMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveSocketMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveSocketMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveSocketMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveSocketMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveSocketMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveSocketMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveSocketMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveSocketMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveSocketMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveSocketMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveSocketMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveSocketMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveSocketMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveSocketMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveSocketMethod "setParent" o = WidgetSetParentMethodInfo + ResolveSocketMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveSocketMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSocketMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveSocketMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveSocketMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveSocketMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveSocketMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveSocketMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveSocketMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveSocketMethod "setState" o = WidgetSetStateMethodInfo + ResolveSocketMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveSocketMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveSocketMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveSocketMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveSocketMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveSocketMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveSocketMethod "setValign" o = WidgetSetValignMethodInfo + ResolveSocketMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveSocketMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveSocketMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveSocketMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveSocketMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveSocketMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSocketMethod t Socket, MethodInfo info Socket p) => IsLabelProxy t (Socket -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSocketMethod t Socket, MethodInfo info Socket p) => IsLabel t (Socket -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Socket::plug-added type SocketPlugAddedCallback = IO () @@ -176,7 +505,7 @@ connectSignalFunPtr obj "plug-removed" cb' after type instance AttributeList Socket = SocketAttributeList -type SocketAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type SocketAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data SocketPlugAddedSignalInfo instance SignalInfo SocketPlugAddedSignalInfo where @@ -189,13 +518,12 @@ connectSignal _ = connectSocketPlugRemoved type instance SignalList Socket = SocketSignalList -type SocketSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("plug-added", SocketPlugAddedSignalInfo), '("plug-removed", SocketPlugRemovedSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SocketSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("plugAdded", SocketPlugAddedSignalInfo), '("plugRemoved", SocketPlugRemovedSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Socket::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Socket" -- throws : False -- Skip return : False @@ -206,7 +534,7 @@ socketNew :: (MonadIO m) => - m Socket + m Socket -- result socketNew = liftIO $ do result <- gtk_socket_new checkUnexpectedReturnNULL "gtk_socket_new" result @@ -215,9 +543,8 @@ -- method Socket::add_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -230,20 +557,23 @@ socketAddId :: (MonadIO m, SocketK a) => - a -> -- _obj - Word64 -> -- window - m () + a -- _obj + -> Word64 -- window + -> m () -- result socketAddId _obj window = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_socket_add_id _obj' window touchManagedPtr _obj return () +data SocketAddIdMethodInfo +instance (signature ~ (Word64 -> m ()), MonadIO m, SocketK a) => MethodInfo SocketAddIdMethodInfo a signature where + overloadedMethod _ = socketAddId + -- method Socket::get_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -255,19 +585,22 @@ socketGetId :: (MonadIO m, SocketK a) => - a -> -- _obj - m Word64 + a -- _obj + -> m Word64 -- result socketGetId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_socket_get_id _obj' touchManagedPtr _obj return result +data SocketGetIdMethodInfo +instance (signature ~ (m Word64), MonadIO m, SocketK a) => MethodInfo SocketGetIdMethodInfo a signature where + overloadedMethod _ = socketGetId + -- method Socket::get_plug_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False @@ -279,8 +612,8 @@ socketGetPlugWindow :: (MonadIO m, SocketK a) => - a -> -- _obj - m Gdk.Window + a -- _obj + -> m Gdk.Window -- result socketGetPlugWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_socket_get_plug_window _obj' @@ -288,5 +621,9 @@ result' <- (newObject Gdk.Window) result touchManagedPtr _obj return result' + +data SocketGetPlugWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, SocketK a) => MethodInfo SocketGetPlugWindowMethodInfo a signature where + overloadedMethod _ = socketGetPlugWindow diff --git a/GI/Gtk/Objects/Socket.hs-boot b/GI/Gtk/Objects/Socket.hs-boot --- a/GI/Gtk/Objects/Socket.hs-boot +++ b/GI/Gtk/Objects/Socket.hs-boot @@ -13,3 +13,6 @@ instance (GObject o, IsDescendantOf Socket o) => SocketK o data SocketPlugAddedSignalInfo data SocketPlugRemovedSignalInfo +data SocketAddIdMethodInfo +data SocketGetIdMethodInfo +data SocketGetPlugWindowMethodInfo diff --git a/GI/Gtk/Objects/SpinButton.hs b/GI/Gtk/Objects/SpinButton.hs --- a/GI/Gtk/Objects/SpinButton.hs +++ b/GI/Gtk/Objects/SpinButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,46 +18,57 @@ -- * Methods -- ** spinButtonConfigure + SpinButtonConfigureMethodInfo , spinButtonConfigure , -- ** spinButtonGetAdjustment + SpinButtonGetAdjustmentMethodInfo , spinButtonGetAdjustment , -- ** spinButtonGetDigits + SpinButtonGetDigitsMethodInfo , spinButtonGetDigits , -- ** spinButtonGetIncrements + SpinButtonGetIncrementsMethodInfo , spinButtonGetIncrements , -- ** spinButtonGetNumeric + SpinButtonGetNumericMethodInfo , spinButtonGetNumeric , -- ** spinButtonGetRange + SpinButtonGetRangeMethodInfo , spinButtonGetRange , -- ** spinButtonGetSnapToTicks + SpinButtonGetSnapToTicksMethodInfo , spinButtonGetSnapToTicks , -- ** spinButtonGetUpdatePolicy + SpinButtonGetUpdatePolicyMethodInfo , spinButtonGetUpdatePolicy , -- ** spinButtonGetValue + SpinButtonGetValueMethodInfo , spinButtonGetValue , -- ** spinButtonGetValueAsInt + SpinButtonGetValueAsIntMethodInfo , spinButtonGetValueAsInt , -- ** spinButtonGetWrap + SpinButtonGetWrapMethodInfo , spinButtonGetWrap , @@ -69,46 +81,57 @@ -- ** spinButtonSetAdjustment + SpinButtonSetAdjustmentMethodInfo , spinButtonSetAdjustment , -- ** spinButtonSetDigits + SpinButtonSetDigitsMethodInfo , spinButtonSetDigits , -- ** spinButtonSetIncrements + SpinButtonSetIncrementsMethodInfo , spinButtonSetIncrements , -- ** spinButtonSetNumeric + SpinButtonSetNumericMethodInfo , spinButtonSetNumeric , -- ** spinButtonSetRange + SpinButtonSetRangeMethodInfo , spinButtonSetRange , -- ** spinButtonSetSnapToTicks + SpinButtonSetSnapToTicksMethodInfo , spinButtonSetSnapToTicks , -- ** spinButtonSetUpdatePolicy + SpinButtonSetUpdatePolicyMethodInfo , spinButtonSetUpdatePolicy , -- ** spinButtonSetValue + SpinButtonSetValueMethodInfo , spinButtonSetValue , -- ** spinButtonSetWrap + SpinButtonSetWrapMethodInfo , spinButtonSetWrap , -- ** spinButtonSpin + SpinButtonSpinMethodInfo , spinButtonSpin , -- ** spinButtonUpdate + SpinButtonUpdateMethodInfo , spinButtonUpdate , @@ -271,6 +294,416 @@ noSpinButton :: Maybe SpinButton noSpinButton = Nothing +type family ResolveSpinButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveSpinButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveSpinButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveSpinButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveSpinButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveSpinButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveSpinButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveSpinButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveSpinButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSpinButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSpinButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveSpinButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveSpinButtonMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveSpinButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveSpinButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveSpinButtonMethod "configure" o = SpinButtonConfigureMethodInfo + ResolveSpinButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveSpinButtonMethod "copyClipboard" o = EditableCopyClipboardMethodInfo + ResolveSpinButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveSpinButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveSpinButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveSpinButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveSpinButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveSpinButtonMethod "cutClipboard" o = EditableCutClipboardMethodInfo + ResolveSpinButtonMethod "deleteSelection" o = EditableDeleteSelectionMethodInfo + ResolveSpinButtonMethod "deleteText" o = EditableDeleteTextMethodInfo + ResolveSpinButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveSpinButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveSpinButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveSpinButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveSpinButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveSpinButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveSpinButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveSpinButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveSpinButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveSpinButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveSpinButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveSpinButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveSpinButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveSpinButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveSpinButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveSpinButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveSpinButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveSpinButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveSpinButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveSpinButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveSpinButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveSpinButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveSpinButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveSpinButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveSpinButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveSpinButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveSpinButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveSpinButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveSpinButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveSpinButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveSpinButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveSpinButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveSpinButtonMethod "editingDone" o = CellEditableEditingDoneMethodInfo + ResolveSpinButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveSpinButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveSpinButtonMethod "event" o = WidgetEventMethodInfo + ResolveSpinButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSpinButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveSpinButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSpinButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveSpinButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveSpinButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveSpinButtonMethod "grabFocusWithoutSelecting" o = EntryGrabFocusWithoutSelectingMethodInfo + ResolveSpinButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveSpinButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveSpinButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveSpinButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveSpinButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveSpinButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveSpinButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveSpinButtonMethod "hide" o = WidgetHideMethodInfo + ResolveSpinButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveSpinButtonMethod "imContextFilterKeypress" o = EntryImContextFilterKeypressMethodInfo + ResolveSpinButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveSpinButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveSpinButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveSpinButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveSpinButtonMethod "insertText" o = EditableInsertTextMethodInfo + ResolveSpinButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveSpinButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveSpinButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveSpinButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveSpinButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSpinButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveSpinButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveSpinButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveSpinButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveSpinButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveSpinButtonMethod "layoutIndexToTextIndex" o = EntryLayoutIndexToTextIndexMethodInfo + ResolveSpinButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveSpinButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveSpinButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveSpinButtonMethod "map" o = WidgetMapMethodInfo + ResolveSpinButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveSpinButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveSpinButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveSpinButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveSpinButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveSpinButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveSpinButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveSpinButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveSpinButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSpinButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSpinButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveSpinButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveSpinButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveSpinButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveSpinButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveSpinButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveSpinButtonMethod "pasteClipboard" o = EditablePasteClipboardMethodInfo + ResolveSpinButtonMethod "path" o = WidgetPathMethodInfo + ResolveSpinButtonMethod "progressPulse" o = EntryProgressPulseMethodInfo + ResolveSpinButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveSpinButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveSpinButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveSpinButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveSpinButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveSpinButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveSpinButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveSpinButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSpinButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSpinButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveSpinButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveSpinButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveSpinButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveSpinButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveSpinButtonMethod "removeWidget" o = CellEditableRemoveWidgetMethodInfo + ResolveSpinButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveSpinButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveSpinButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveSpinButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSpinButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSpinButtonMethod "resetImContext" o = EntryResetImContextMethodInfo + ResolveSpinButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveSpinButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveSpinButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSpinButtonMethod "selectRegion" o = EditableSelectRegionMethodInfo + ResolveSpinButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveSpinButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveSpinButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveSpinButtonMethod "show" o = WidgetShowMethodInfo + ResolveSpinButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveSpinButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveSpinButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveSpinButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveSpinButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveSpinButtonMethod "spin" o = SpinButtonSpinMethodInfo + ResolveSpinButtonMethod "startEditing" o = CellEditableStartEditingMethodInfo + ResolveSpinButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSpinButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSpinButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveSpinButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveSpinButtonMethod "textIndexToLayoutIndex" o = EntryTextIndexToLayoutIndexMethodInfo + ResolveSpinButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveSpinButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSpinButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveSpinButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveSpinButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveSpinButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveSpinButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveSpinButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSpinButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveSpinButtonMethod "unsetInvisibleChar" o = EntryUnsetInvisibleCharMethodInfo + ResolveSpinButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveSpinButtonMethod "update" o = SpinButtonUpdateMethodInfo + ResolveSpinButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSpinButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveSpinButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveSpinButtonMethod "getActivatesDefault" o = EntryGetActivatesDefaultMethodInfo + ResolveSpinButtonMethod "getAdjustment" o = SpinButtonGetAdjustmentMethodInfo + ResolveSpinButtonMethod "getAlignment" o = EntryGetAlignmentMethodInfo + ResolveSpinButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveSpinButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveSpinButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveSpinButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveSpinButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveSpinButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveSpinButtonMethod "getAttributes" o = EntryGetAttributesMethodInfo + ResolveSpinButtonMethod "getBuffer" o = EntryGetBufferMethodInfo + ResolveSpinButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveSpinButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveSpinButtonMethod "getChars" o = EditableGetCharsMethodInfo + ResolveSpinButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveSpinButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveSpinButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveSpinButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveSpinButtonMethod "getCompletion" o = EntryGetCompletionMethodInfo + ResolveSpinButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveSpinButtonMethod "getCurrentIconDragSource" o = EntryGetCurrentIconDragSourceMethodInfo + ResolveSpinButtonMethod "getCursorHadjustment" o = EntryGetCursorHadjustmentMethodInfo + ResolveSpinButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSpinButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveSpinButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveSpinButtonMethod "getDigits" o = SpinButtonGetDigitsMethodInfo + ResolveSpinButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveSpinButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveSpinButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveSpinButtonMethod "getEditable" o = EditableGetEditableMethodInfo + ResolveSpinButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveSpinButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveSpinButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveSpinButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveSpinButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveSpinButtonMethod "getHasFrame" o = EntryGetHasFrameMethodInfo + ResolveSpinButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveSpinButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveSpinButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveSpinButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveSpinButtonMethod "getIconActivatable" o = EntryGetIconActivatableMethodInfo + ResolveSpinButtonMethod "getIconArea" o = EntryGetIconAreaMethodInfo + ResolveSpinButtonMethod "getIconAtPos" o = EntryGetIconAtPosMethodInfo + ResolveSpinButtonMethod "getIconGicon" o = EntryGetIconGiconMethodInfo + ResolveSpinButtonMethod "getIconName" o = EntryGetIconNameMethodInfo + ResolveSpinButtonMethod "getIconPixbuf" o = EntryGetIconPixbufMethodInfo + ResolveSpinButtonMethod "getIconSensitive" o = EntryGetIconSensitiveMethodInfo + ResolveSpinButtonMethod "getIconStock" o = EntryGetIconStockMethodInfo + ResolveSpinButtonMethod "getIconStorageType" o = EntryGetIconStorageTypeMethodInfo + ResolveSpinButtonMethod "getIconTooltipMarkup" o = EntryGetIconTooltipMarkupMethodInfo + ResolveSpinButtonMethod "getIconTooltipText" o = EntryGetIconTooltipTextMethodInfo + ResolveSpinButtonMethod "getIncrements" o = SpinButtonGetIncrementsMethodInfo + ResolveSpinButtonMethod "getInnerBorder" o = EntryGetInnerBorderMethodInfo + ResolveSpinButtonMethod "getInputHints" o = EntryGetInputHintsMethodInfo + ResolveSpinButtonMethod "getInputPurpose" o = EntryGetInputPurposeMethodInfo + ResolveSpinButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveSpinButtonMethod "getInvisibleChar" o = EntryGetInvisibleCharMethodInfo + ResolveSpinButtonMethod "getLayout" o = EntryGetLayoutMethodInfo + ResolveSpinButtonMethod "getLayoutOffsets" o = EntryGetLayoutOffsetsMethodInfo + ResolveSpinButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveSpinButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveSpinButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveSpinButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveSpinButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveSpinButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveSpinButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveSpinButtonMethod "getMaxLength" o = EntryGetMaxLengthMethodInfo + ResolveSpinButtonMethod "getMaxWidthChars" o = EntryGetMaxWidthCharsMethodInfo + ResolveSpinButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveSpinButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveSpinButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveSpinButtonMethod "getNumeric" o = SpinButtonGetNumericMethodInfo + ResolveSpinButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveSpinButtonMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveSpinButtonMethod "getOverwriteMode" o = EntryGetOverwriteModeMethodInfo + ResolveSpinButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveSpinButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveSpinButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveSpinButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveSpinButtonMethod "getPlaceholderText" o = EntryGetPlaceholderTextMethodInfo + ResolveSpinButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveSpinButtonMethod "getPosition" o = EditableGetPositionMethodInfo + ResolveSpinButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveSpinButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveSpinButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveSpinButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveSpinButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveSpinButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveSpinButtonMethod "getProgressFraction" o = EntryGetProgressFractionMethodInfo + ResolveSpinButtonMethod "getProgressPulseStep" o = EntryGetProgressPulseStepMethodInfo + ResolveSpinButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSpinButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSpinButtonMethod "getRange" o = SpinButtonGetRangeMethodInfo + ResolveSpinButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveSpinButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveSpinButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveSpinButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveSpinButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveSpinButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveSpinButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveSpinButtonMethod "getSelectionBounds" o = EditableGetSelectionBoundsMethodInfo + ResolveSpinButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveSpinButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveSpinButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveSpinButtonMethod "getSnapToTicks" o = SpinButtonGetSnapToTicksMethodInfo + ResolveSpinButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveSpinButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveSpinButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveSpinButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveSpinButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveSpinButtonMethod "getTabs" o = EntryGetTabsMethodInfo + ResolveSpinButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveSpinButtonMethod "getText" o = EntryGetTextMethodInfo + ResolveSpinButtonMethod "getTextArea" o = EntryGetTextAreaMethodInfo + ResolveSpinButtonMethod "getTextLength" o = EntryGetTextLengthMethodInfo + ResolveSpinButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveSpinButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveSpinButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveSpinButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveSpinButtonMethod "getUpdatePolicy" o = SpinButtonGetUpdatePolicyMethodInfo + ResolveSpinButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveSpinButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveSpinButtonMethod "getValue" o = SpinButtonGetValueMethodInfo + ResolveSpinButtonMethod "getValueAsInt" o = SpinButtonGetValueAsIntMethodInfo + ResolveSpinButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveSpinButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveSpinButtonMethod "getVisibility" o = EntryGetVisibilityMethodInfo + ResolveSpinButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveSpinButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveSpinButtonMethod "getWidthChars" o = EntryGetWidthCharsMethodInfo + ResolveSpinButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveSpinButtonMethod "getWrap" o = SpinButtonGetWrapMethodInfo + ResolveSpinButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveSpinButtonMethod "setActivatesDefault" o = EntrySetActivatesDefaultMethodInfo + ResolveSpinButtonMethod "setAdjustment" o = SpinButtonSetAdjustmentMethodInfo + ResolveSpinButtonMethod "setAlignment" o = EntrySetAlignmentMethodInfo + ResolveSpinButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveSpinButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveSpinButtonMethod "setAttributes" o = EntrySetAttributesMethodInfo + ResolveSpinButtonMethod "setBuffer" o = EntrySetBufferMethodInfo + ResolveSpinButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveSpinButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveSpinButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveSpinButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveSpinButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveSpinButtonMethod "setCompletion" o = EntrySetCompletionMethodInfo + ResolveSpinButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveSpinButtonMethod "setCursorHadjustment" o = EntrySetCursorHadjustmentMethodInfo + ResolveSpinButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSpinButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveSpinButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveSpinButtonMethod "setDigits" o = SpinButtonSetDigitsMethodInfo + ResolveSpinButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveSpinButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveSpinButtonMethod "setEditable" o = EditableSetEditableMethodInfo + ResolveSpinButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveSpinButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveSpinButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveSpinButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveSpinButtonMethod "setHasFrame" o = EntrySetHasFrameMethodInfo + ResolveSpinButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveSpinButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveSpinButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveSpinButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveSpinButtonMethod "setIconActivatable" o = EntrySetIconActivatableMethodInfo + ResolveSpinButtonMethod "setIconDragSource" o = EntrySetIconDragSourceMethodInfo + ResolveSpinButtonMethod "setIconFromGicon" o = EntrySetIconFromGiconMethodInfo + ResolveSpinButtonMethod "setIconFromIconName" o = EntrySetIconFromIconNameMethodInfo + ResolveSpinButtonMethod "setIconFromPixbuf" o = EntrySetIconFromPixbufMethodInfo + ResolveSpinButtonMethod "setIconFromStock" o = EntrySetIconFromStockMethodInfo + ResolveSpinButtonMethod "setIconSensitive" o = EntrySetIconSensitiveMethodInfo + ResolveSpinButtonMethod "setIconTooltipMarkup" o = EntrySetIconTooltipMarkupMethodInfo + ResolveSpinButtonMethod "setIconTooltipText" o = EntrySetIconTooltipTextMethodInfo + ResolveSpinButtonMethod "setIncrements" o = SpinButtonSetIncrementsMethodInfo + ResolveSpinButtonMethod "setInnerBorder" o = EntrySetInnerBorderMethodInfo + ResolveSpinButtonMethod "setInputHints" o = EntrySetInputHintsMethodInfo + ResolveSpinButtonMethod "setInputPurpose" o = EntrySetInputPurposeMethodInfo + ResolveSpinButtonMethod "setInvisibleChar" o = EntrySetInvisibleCharMethodInfo + ResolveSpinButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveSpinButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveSpinButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveSpinButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveSpinButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveSpinButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveSpinButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveSpinButtonMethod "setMaxLength" o = EntrySetMaxLengthMethodInfo + ResolveSpinButtonMethod "setMaxWidthChars" o = EntrySetMaxWidthCharsMethodInfo + ResolveSpinButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveSpinButtonMethod "setNumeric" o = SpinButtonSetNumericMethodInfo + ResolveSpinButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveSpinButtonMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveSpinButtonMethod "setOverwriteMode" o = EntrySetOverwriteModeMethodInfo + ResolveSpinButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveSpinButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveSpinButtonMethod "setPlaceholderText" o = EntrySetPlaceholderTextMethodInfo + ResolveSpinButtonMethod "setPosition" o = EditableSetPositionMethodInfo + ResolveSpinButtonMethod "setProgressFraction" o = EntrySetProgressFractionMethodInfo + ResolveSpinButtonMethod "setProgressPulseStep" o = EntrySetProgressPulseStepMethodInfo + ResolveSpinButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSpinButtonMethod "setRange" o = SpinButtonSetRangeMethodInfo + ResolveSpinButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveSpinButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveSpinButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveSpinButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveSpinButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveSpinButtonMethod "setSnapToTicks" o = SpinButtonSetSnapToTicksMethodInfo + ResolveSpinButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveSpinButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveSpinButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveSpinButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveSpinButtonMethod "setTabs" o = EntrySetTabsMethodInfo + ResolveSpinButtonMethod "setText" o = EntrySetTextMethodInfo + ResolveSpinButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveSpinButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveSpinButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveSpinButtonMethod "setUpdatePolicy" o = SpinButtonSetUpdatePolicyMethodInfo + ResolveSpinButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveSpinButtonMethod "setValue" o = SpinButtonSetValueMethodInfo + ResolveSpinButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveSpinButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveSpinButtonMethod "setVisibility" o = EntrySetVisibilityMethodInfo + ResolveSpinButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveSpinButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveSpinButtonMethod "setWidthChars" o = EntrySetWidthCharsMethodInfo + ResolveSpinButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveSpinButtonMethod "setWrap" o = SpinButtonSetWrapMethodInfo + ResolveSpinButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSpinButtonMethod t SpinButton, MethodInfo info SpinButton p) => IsLabelProxy t (SpinButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSpinButtonMethod t SpinButton, MethodInfo info SpinButton p) => IsLabel t (SpinButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal SpinButton::change-value type SpinButtonChangeValueCallback = ScrollType -> @@ -339,10 +772,10 @@ Ptr CDouble -> Ptr () -> IO Int32 -spinButtonInputCallbackWrapper _cb _ new_value _ = do - (result, outnew_value) <- _cb - let outnew_value' = realToFrac outnew_value - poke new_value outnew_value' +spinButtonInputCallbackWrapper _cb _ newValue _ = do + (result, outnewValue) <- _cb + let outnewValue' = realToFrac outnewValue + poke newValue outnewValue' return result onSpinButtonInput :: (GObject a, MonadIO m) => a -> SpinButtonInputCallback -> m SignalHandlerId @@ -491,7 +924,7 @@ type AttrSetTypeConstraint SpinButtonAdjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint SpinButtonAdjustmentPropertyInfo = SpinButtonK type AttrGetType SpinButtonAdjustmentPropertyInfo = Adjustment - type AttrLabel SpinButtonAdjustmentPropertyInfo = "SpinButton::adjustment" + type AttrLabel SpinButtonAdjustmentPropertyInfo = "adjustment" attrGet _ = getSpinButtonAdjustment attrSet _ = setSpinButtonAdjustment attrConstruct _ = constructSpinButtonAdjustment @@ -515,7 +948,7 @@ type AttrSetTypeConstraint SpinButtonClimbRatePropertyInfo = (~) Double type AttrBaseTypeConstraint SpinButtonClimbRatePropertyInfo = SpinButtonK type AttrGetType SpinButtonClimbRatePropertyInfo = Double - type AttrLabel SpinButtonClimbRatePropertyInfo = "SpinButton::climb-rate" + type AttrLabel SpinButtonClimbRatePropertyInfo = "climb-rate" attrGet _ = getSpinButtonClimbRate attrSet _ = setSpinButtonClimbRate attrConstruct _ = constructSpinButtonClimbRate @@ -539,7 +972,7 @@ type AttrSetTypeConstraint SpinButtonDigitsPropertyInfo = (~) Word32 type AttrBaseTypeConstraint SpinButtonDigitsPropertyInfo = SpinButtonK type AttrGetType SpinButtonDigitsPropertyInfo = Word32 - type AttrLabel SpinButtonDigitsPropertyInfo = "SpinButton::digits" + type AttrLabel SpinButtonDigitsPropertyInfo = "digits" attrGet _ = getSpinButtonDigits attrSet _ = setSpinButtonDigits attrConstruct _ = constructSpinButtonDigits @@ -563,7 +996,7 @@ type AttrSetTypeConstraint SpinButtonNumericPropertyInfo = (~) Bool type AttrBaseTypeConstraint SpinButtonNumericPropertyInfo = SpinButtonK type AttrGetType SpinButtonNumericPropertyInfo = Bool - type AttrLabel SpinButtonNumericPropertyInfo = "SpinButton::numeric" + type AttrLabel SpinButtonNumericPropertyInfo = "numeric" attrGet _ = getSpinButtonNumeric attrSet _ = setSpinButtonNumeric attrConstruct _ = constructSpinButtonNumeric @@ -587,7 +1020,7 @@ type AttrSetTypeConstraint SpinButtonSnapToTicksPropertyInfo = (~) Bool type AttrBaseTypeConstraint SpinButtonSnapToTicksPropertyInfo = SpinButtonK type AttrGetType SpinButtonSnapToTicksPropertyInfo = Bool - type AttrLabel SpinButtonSnapToTicksPropertyInfo = "SpinButton::snap-to-ticks" + type AttrLabel SpinButtonSnapToTicksPropertyInfo = "snap-to-ticks" attrGet _ = getSpinButtonSnapToTicks attrSet _ = setSpinButtonSnapToTicks attrConstruct _ = constructSpinButtonSnapToTicks @@ -611,7 +1044,7 @@ type AttrSetTypeConstraint SpinButtonUpdatePolicyPropertyInfo = (~) SpinButtonUpdatePolicy type AttrBaseTypeConstraint SpinButtonUpdatePolicyPropertyInfo = SpinButtonK type AttrGetType SpinButtonUpdatePolicyPropertyInfo = SpinButtonUpdatePolicy - type AttrLabel SpinButtonUpdatePolicyPropertyInfo = "SpinButton::update-policy" + type AttrLabel SpinButtonUpdatePolicyPropertyInfo = "update-policy" attrGet _ = getSpinButtonUpdatePolicy attrSet _ = setSpinButtonUpdatePolicy attrConstruct _ = constructSpinButtonUpdatePolicy @@ -635,7 +1068,7 @@ type AttrSetTypeConstraint SpinButtonValuePropertyInfo = (~) Double type AttrBaseTypeConstraint SpinButtonValuePropertyInfo = SpinButtonK type AttrGetType SpinButtonValuePropertyInfo = Double - type AttrLabel SpinButtonValuePropertyInfo = "SpinButton::value" + type AttrLabel SpinButtonValuePropertyInfo = "value" attrGet _ = getSpinButtonValue attrSet _ = setSpinButtonValue attrConstruct _ = constructSpinButtonValue @@ -659,13 +1092,13 @@ type AttrSetTypeConstraint SpinButtonWrapPropertyInfo = (~) Bool type AttrBaseTypeConstraint SpinButtonWrapPropertyInfo = SpinButtonK type AttrGetType SpinButtonWrapPropertyInfo = Bool - type AttrLabel SpinButtonWrapPropertyInfo = "SpinButton::wrap" + type AttrLabel SpinButtonWrapPropertyInfo = "wrap" attrGet _ = getSpinButtonWrap attrSet _ = setSpinButtonWrap attrConstruct _ = constructSpinButtonWrap type instance AttributeList SpinButton = SpinButtonAttributeList -type SpinButtonAttributeList = ('[ '("activates-default", EntryActivatesDefaultPropertyInfo), '("adjustment", SpinButtonAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("caps-lock-warning", EntryCapsLockWarningPropertyInfo), '("climb-rate", SpinButtonClimbRatePropertyInfo), '("completion", EntryCompletionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", EntryCursorPositionPropertyInfo), '("digits", SpinButtonDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", EntryHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("im-module", EntryImModulePropertyInfo), '("inner-border", EntryInnerBorderPropertyInfo), '("input-hints", EntryInputHintsPropertyInfo), '("input-purpose", EntryInputPurposePropertyInfo), '("invisible-char", EntryInvisibleCharPropertyInfo), '("invisible-char-set", EntryInvisibleCharSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-length", EntryMaxLengthPropertyInfo), '("max-width-chars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("numeric", SpinButtonNumericPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("overwrite-mode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholder-text", EntryPlaceholderTextPropertyInfo), '("populate-all", EntryPopulateAllPropertyInfo), '("primary-icon-activatable", EntryPrimaryIconActivatablePropertyInfo), '("primary-icon-gicon", EntryPrimaryIconGiconPropertyInfo), '("primary-icon-name", EntryPrimaryIconNamePropertyInfo), '("primary-icon-pixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primary-icon-sensitive", EntryPrimaryIconSensitivePropertyInfo), '("primary-icon-stock", EntryPrimaryIconStockPropertyInfo), '("primary-icon-storage-type", EntryPrimaryIconStorageTypePropertyInfo), '("primary-icon-tooltip-markup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primary-icon-tooltip-text", EntryPrimaryIconTooltipTextPropertyInfo), '("progress-fraction", EntryProgressFractionPropertyInfo), '("progress-pulse-step", EntryProgressPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scroll-offset", EntryScrollOffsetPropertyInfo), '("secondary-icon-activatable", EntrySecondaryIconActivatablePropertyInfo), '("secondary-icon-gicon", EntrySecondaryIconGiconPropertyInfo), '("secondary-icon-name", EntrySecondaryIconNamePropertyInfo), '("secondary-icon-pixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondary-icon-sensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondary-icon-stock", EntrySecondaryIconStockPropertyInfo), '("secondary-icon-storage-type", EntrySecondaryIconStorageTypePropertyInfo), '("secondary-icon-tooltip-markup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondary-icon-tooltip-text", EntrySecondaryIconTooltipTextPropertyInfo), '("selection-bound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", EntryShadowTypePropertyInfo), '("snap-to-ticks", SpinButtonSnapToTicksPropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("text-length", EntryTextLengthPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("truncate-multiline", EntryTruncateMultilinePropertyInfo), '("update-policy", SpinButtonUpdatePolicyPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", SpinButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", EntryWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", SpinButtonWrapPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) +type SpinButtonAttributeList = ('[ '("activatesDefault", EntryActivatesDefaultPropertyInfo), '("adjustment", SpinButtonAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("capsLockWarning", EntryCapsLockWarningPropertyInfo), '("climbRate", SpinButtonClimbRatePropertyInfo), '("completion", EntryCompletionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", EntryCursorPositionPropertyInfo), '("digits", SpinButtonDigitsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", EntryHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("imModule", EntryImModulePropertyInfo), '("innerBorder", EntryInnerBorderPropertyInfo), '("inputHints", EntryInputHintsPropertyInfo), '("inputPurpose", EntryInputPurposePropertyInfo), '("invisibleChar", EntryInvisibleCharPropertyInfo), '("invisibleCharSet", EntryInvisibleCharSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxLength", EntryMaxLengthPropertyInfo), '("maxWidthChars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("numeric", SpinButtonNumericPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("overwriteMode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholderText", EntryPlaceholderTextPropertyInfo), '("populateAll", EntryPopulateAllPropertyInfo), '("primaryIconActivatable", EntryPrimaryIconActivatablePropertyInfo), '("primaryIconGicon", EntryPrimaryIconGiconPropertyInfo), '("primaryIconName", EntryPrimaryIconNamePropertyInfo), '("primaryIconPixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primaryIconSensitive", EntryPrimaryIconSensitivePropertyInfo), '("primaryIconStock", EntryPrimaryIconStockPropertyInfo), '("primaryIconStorageType", EntryPrimaryIconStorageTypePropertyInfo), '("primaryIconTooltipMarkup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primaryIconTooltipText", EntryPrimaryIconTooltipTextPropertyInfo), '("progressFraction", EntryProgressFractionPropertyInfo), '("progressPulseStep", EntryProgressPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollOffset", EntryScrollOffsetPropertyInfo), '("secondaryIconActivatable", EntrySecondaryIconActivatablePropertyInfo), '("secondaryIconGicon", EntrySecondaryIconGiconPropertyInfo), '("secondaryIconName", EntrySecondaryIconNamePropertyInfo), '("secondaryIconPixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondaryIconSensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondaryIconStock", EntrySecondaryIconStockPropertyInfo), '("secondaryIconStorageType", EntrySecondaryIconStorageTypePropertyInfo), '("secondaryIconTooltipMarkup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondaryIconTooltipText", EntrySecondaryIconTooltipTextPropertyInfo), '("selectionBound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", EntryShadowTypePropertyInfo), '("snapToTicks", SpinButtonSnapToTicksPropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("textLength", EntryTextLengthPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("truncateMultiline", EntryTruncateMultilinePropertyInfo), '("updatePolicy", SpinButtonUpdatePolicyPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", SpinButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", EntryWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", SpinButtonWrapPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) data SpinButtonChangeValueSignalInfo instance SignalInfo SpinButtonChangeValueSignalInfo where @@ -693,13 +1126,12 @@ connectSignal _ = connectSpinButtonWrapped type instance SignalList SpinButton = SpinButtonSignalList -type SpinButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", SpinButtonChangeValueSignalInfo), '("changed", EditableChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", EntryCopyClipboardSignalInfo), '("cut-clipboard", EntryCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", EntryDeleteFromCursorSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("icon-press", EntryIconPressSignalInfo), '("icon-release", EntryIconReleaseSignalInfo), '("input", SpinButtonInputSignalInfo), '("insert-at-cursor", EntryInsertAtCursorSignalInfo), '("insert-text", EditableInsertTextSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", EntryMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("output", SpinButtonOutputSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", EntryPasteClipboardSignalInfo), '("populate-popup", EntryPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", EntryPreeditChangedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-overwrite", EntryToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", SpinButtonValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("wrapped", SpinButtonWrappedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SpinButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", SpinButtonChangeValueSignalInfo), '("changed", EditableChangedSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", EntryCopyClipboardSignalInfo), '("cutClipboard", EntryCutClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deleteFromCursor", EntryDeleteFromCursorSignalInfo), '("deleteText", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editingDone", CellEditableEditingDoneSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("iconPress", EntryIconPressSignalInfo), '("iconRelease", EntryIconReleaseSignalInfo), '("input", SpinButtonInputSignalInfo), '("insertAtCursor", EntryInsertAtCursorSignalInfo), '("insertText", EditableInsertTextSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", EntryMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("output", SpinButtonOutputSignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("pasteClipboard", EntryPasteClipboardSignalInfo), '("populatePopup", EntryPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("preeditChanged", EntryPreeditChangedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("removeWidget", CellEditableRemoveWidgetSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleOverwrite", EntryToggleOverwriteSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", SpinButtonValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo), '("wrapped", SpinButtonWrappedSignalInfo)] :: [(Symbol, *)]) -- method SpinButton::new -- method type : Constructor --- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SpinButton" -- throws : False -- Skip return : False @@ -713,18 +1145,18 @@ spinButtonNew :: (MonadIO m, AdjustmentK a) => - Maybe (a) -> -- adjustment - Double -> -- climb_rate - Word32 -> -- digits - m SpinButton -spinButtonNew adjustment climb_rate digits = liftIO $ do + Maybe (a) -- adjustment + -> Double -- climbRate + -> Word32 -- digits + -> m SpinButton -- result +spinButtonNew adjustment climbRate digits = liftIO $ do maybeAdjustment <- case adjustment of Nothing -> return nullPtr Just jAdjustment -> do let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment return jAdjustment' - let climb_rate' = realToFrac climb_rate - result <- gtk_spin_button_new maybeAdjustment climb_rate' digits + let climbRate' = realToFrac climbRate + result <- gtk_spin_button_new maybeAdjustment climbRate' digits checkUnexpectedReturnNULL "gtk_spin_button_new" result result' <- (newObject SpinButton) result whenJust adjustment touchManagedPtr @@ -732,9 +1164,8 @@ -- method SpinButton::new_with_range -- method type : Constructor --- Args : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SpinButton" -- throws : False -- Skip return : False @@ -748,10 +1179,10 @@ spinButtonNewWithRange :: (MonadIO m) => - Double -> -- min - Double -> -- max - Double -> -- step - m SpinButton + Double -- min + -> Double -- max + -> Double -- step + -> m SpinButton -- result spinButtonNewWithRange min max step = liftIO $ do let min' = realToFrac min let max' = realToFrac max @@ -763,9 +1194,8 @@ -- method SpinButton::configure -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -780,29 +1210,32 @@ spinButtonConfigure :: (MonadIO m, SpinButtonK a, AdjustmentK b) => - a -> -- _obj - Maybe (b) -> -- adjustment - Double -> -- climb_rate - Word32 -> -- digits - m () -spinButtonConfigure _obj adjustment climb_rate digits = liftIO $ do + a -- _obj + -> Maybe (b) -- adjustment + -> Double -- climbRate + -> Word32 -- digits + -> m () -- result +spinButtonConfigure _obj adjustment climbRate digits = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeAdjustment <- case adjustment of Nothing -> return nullPtr Just jAdjustment -> do let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment return jAdjustment' - let climb_rate' = realToFrac climb_rate - gtk_spin_button_configure _obj' maybeAdjustment climb_rate' digits + let climbRate' = realToFrac climbRate + gtk_spin_button_configure _obj' maybeAdjustment climbRate' digits touchManagedPtr _obj whenJust adjustment touchManagedPtr return () +data SpinButtonConfigureMethodInfo +instance (signature ~ (Maybe (b) -> Double -> Word32 -> m ()), MonadIO m, SpinButtonK a, AdjustmentK b) => MethodInfo SpinButtonConfigureMethodInfo a signature where + overloadedMethod _ = spinButtonConfigure + -- method SpinButton::get_adjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -814,8 +1247,8 @@ spinButtonGetAdjustment :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result spinButtonGetAdjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_spin_button_get_adjustment _obj' @@ -824,11 +1257,14 @@ touchManagedPtr _obj return result' +data SpinButtonGetAdjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetAdjustmentMethodInfo a signature where + overloadedMethod _ = spinButtonGetAdjustment + -- method SpinButton::get_digits -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -840,19 +1276,22 @@ spinButtonGetDigits :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result spinButtonGetDigits _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_spin_button_get_digits _obj' touchManagedPtr _obj return result +data SpinButtonGetDigitsMethodInfo +instance (signature ~ (m Word32), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetDigitsMethodInfo a signature where + overloadedMethod _ = spinButtonGetDigits + -- method SpinButton::get_increments -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "page", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -866,8 +1305,8 @@ spinButtonGetIncrements :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - m (Double,Double) + a -- _obj + -> m (Double,Double) -- result spinButtonGetIncrements _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj step <- allocMem :: IO (Ptr CDouble) @@ -882,11 +1321,14 @@ freeMem page return (step'', page'') +data SpinButtonGetIncrementsMethodInfo +instance (signature ~ (m (Double,Double)), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetIncrementsMethodInfo a signature where + overloadedMethod _ = spinButtonGetIncrements + -- method SpinButton::get_numeric -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -898,8 +1340,8 @@ spinButtonGetNumeric :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result spinButtonGetNumeric _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_spin_button_get_numeric _obj' @@ -907,11 +1349,14 @@ touchManagedPtr _obj return result' +data SpinButtonGetNumericMethodInfo +instance (signature ~ (m Bool), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetNumericMethodInfo a signature where + overloadedMethod _ = spinButtonGetNumeric + -- method SpinButton::get_range -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -925,8 +1370,8 @@ spinButtonGetRange :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - m (Double,Double) + a -- _obj + -> m (Double,Double) -- result spinButtonGetRange _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj min <- allocMem :: IO (Ptr CDouble) @@ -941,11 +1386,14 @@ freeMem max return (min'', max'') +data SpinButtonGetRangeMethodInfo +instance (signature ~ (m (Double,Double)), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetRangeMethodInfo a signature where + overloadedMethod _ = spinButtonGetRange + -- method SpinButton::get_snap_to_ticks -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -957,8 +1405,8 @@ spinButtonGetSnapToTicks :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result spinButtonGetSnapToTicks _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_spin_button_get_snap_to_ticks _obj' @@ -966,11 +1414,14 @@ touchManagedPtr _obj return result' +data SpinButtonGetSnapToTicksMethodInfo +instance (signature ~ (m Bool), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetSnapToTicksMethodInfo a signature where + overloadedMethod _ = spinButtonGetSnapToTicks + -- method SpinButton::get_update_policy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SpinButtonUpdatePolicy" -- throws : False -- Skip return : False @@ -982,8 +1433,8 @@ spinButtonGetUpdatePolicy :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - m SpinButtonUpdatePolicy + a -- _obj + -> m SpinButtonUpdatePolicy -- result spinButtonGetUpdatePolicy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_spin_button_get_update_policy _obj' @@ -991,11 +1442,14 @@ touchManagedPtr _obj return result' +data SpinButtonGetUpdatePolicyMethodInfo +instance (signature ~ (m SpinButtonUpdatePolicy), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetUpdatePolicyMethodInfo a signature where + overloadedMethod _ = spinButtonGetUpdatePolicy + -- method SpinButton::get_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -1007,8 +1461,8 @@ spinButtonGetValue :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - m Double + a -- _obj + -> m Double -- result spinButtonGetValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_spin_button_get_value _obj' @@ -1016,11 +1470,14 @@ touchManagedPtr _obj return result' +data SpinButtonGetValueMethodInfo +instance (signature ~ (m Double), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetValueMethodInfo a signature where + overloadedMethod _ = spinButtonGetValue + -- method SpinButton::get_value_as_int -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1032,19 +1489,22 @@ spinButtonGetValueAsInt :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result spinButtonGetValueAsInt _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_spin_button_get_value_as_int _obj' touchManagedPtr _obj return result +data SpinButtonGetValueAsIntMethodInfo +instance (signature ~ (m Int32), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetValueAsIntMethodInfo a signature where + overloadedMethod _ = spinButtonGetValueAsInt + -- method SpinButton::get_wrap -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1056,8 +1516,8 @@ spinButtonGetWrap :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result spinButtonGetWrap _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_spin_button_get_wrap _obj' @@ -1065,11 +1525,14 @@ touchManagedPtr _obj return result' +data SpinButtonGetWrapMethodInfo +instance (signature ~ (m Bool), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonGetWrapMethodInfo a signature where + overloadedMethod _ = spinButtonGetWrap + -- method SpinButton::set_adjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1082,9 +1545,9 @@ spinButtonSetAdjustment :: (MonadIO m, SpinButtonK a, AdjustmentK b) => - a -> -- _obj - b -> -- adjustment - m () + a -- _obj + -> b -- adjustment + -> m () -- result spinButtonSetAdjustment _obj adjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let adjustment' = unsafeManagedPtrCastPtr adjustment @@ -1093,11 +1556,14 @@ touchManagedPtr adjustment return () +data SpinButtonSetAdjustmentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, SpinButtonK a, AdjustmentK b) => MethodInfo SpinButtonSetAdjustmentMethodInfo a signature where + overloadedMethod _ = spinButtonSetAdjustment + -- method SpinButton::set_digits -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1110,20 +1576,23 @@ spinButtonSetDigits :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - Word32 -> -- digits - m () + a -- _obj + -> Word32 -- digits + -> m () -- result spinButtonSetDigits _obj digits = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_spin_button_set_digits _obj' digits touchManagedPtr _obj return () +data SpinButtonSetDigitsMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetDigitsMethodInfo a signature where + overloadedMethod _ = spinButtonSetDigits + -- method SpinButton::set_increments -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1137,10 +1606,10 @@ spinButtonSetIncrements :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - Double -> -- step - Double -> -- page - m () + a -- _obj + -> Double -- step + -> Double -- page + -> m () -- result spinButtonSetIncrements _obj step page = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let step' = realToFrac step @@ -1149,11 +1618,14 @@ touchManagedPtr _obj return () +data SpinButtonSetIncrementsMethodInfo +instance (signature ~ (Double -> Double -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetIncrementsMethodInfo a signature where + overloadedMethod _ = spinButtonSetIncrements + -- method SpinButton::set_numeric -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "numeric", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "numeric", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "numeric", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1166,9 +1638,9 @@ spinButtonSetNumeric :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - Bool -> -- numeric - m () + a -- _obj + -> Bool -- numeric + -> m () -- result spinButtonSetNumeric _obj numeric = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let numeric' = (fromIntegral . fromEnum) numeric @@ -1176,11 +1648,14 @@ touchManagedPtr _obj return () +data SpinButtonSetNumericMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetNumericMethodInfo a signature where + overloadedMethod _ = spinButtonSetNumeric + -- method SpinButton::set_range -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1194,10 +1669,10 @@ spinButtonSetRange :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - Double -> -- min - Double -> -- max - m () + a -- _obj + -> Double -- min + -> Double -- max + -> m () -- result spinButtonSetRange _obj min max = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let min' = realToFrac min @@ -1206,11 +1681,14 @@ touchManagedPtr _obj return () +data SpinButtonSetRangeMethodInfo +instance (signature ~ (Double -> Double -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetRangeMethodInfo a signature where + overloadedMethod _ = spinButtonSetRange + -- method SpinButton::set_snap_to_ticks -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "snap_to_ticks", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "snap_to_ticks", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "snap_to_ticks", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1223,21 +1701,24 @@ spinButtonSetSnapToTicks :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - Bool -> -- snap_to_ticks - m () -spinButtonSetSnapToTicks _obj snap_to_ticks = liftIO $ do + a -- _obj + -> Bool -- snapToTicks + -> m () -- result +spinButtonSetSnapToTicks _obj snapToTicks = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let snap_to_ticks' = (fromIntegral . fromEnum) snap_to_ticks - gtk_spin_button_set_snap_to_ticks _obj' snap_to_ticks' + let snapToTicks' = (fromIntegral . fromEnum) snapToTicks + gtk_spin_button_set_snap_to_ticks _obj' snapToTicks' touchManagedPtr _obj return () +data SpinButtonSetSnapToTicksMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetSnapToTicksMethodInfo a signature where + overloadedMethod _ = spinButtonSetSnapToTicks + -- method SpinButton::set_update_policy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "SpinButtonUpdatePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Gtk" "SpinButtonUpdatePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "SpinButtonUpdatePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1250,9 +1731,9 @@ spinButtonSetUpdatePolicy :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - SpinButtonUpdatePolicy -> -- policy - m () + a -- _obj + -> SpinButtonUpdatePolicy -- policy + -> m () -- result spinButtonSetUpdatePolicy _obj policy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let policy' = (fromIntegral . fromEnum) policy @@ -1260,11 +1741,14 @@ touchManagedPtr _obj return () +data SpinButtonSetUpdatePolicyMethodInfo +instance (signature ~ (SpinButtonUpdatePolicy -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetUpdatePolicyMethodInfo a signature where + overloadedMethod _ = spinButtonSetUpdatePolicy + -- method SpinButton::set_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1277,9 +1761,9 @@ spinButtonSetValue :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - Double -> -- value - m () + a -- _obj + -> Double -- value + -> m () -- result spinButtonSetValue _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = realToFrac value @@ -1287,11 +1771,14 @@ touchManagedPtr _obj return () +data SpinButtonSetValueMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetValueMethodInfo a signature where + overloadedMethod _ = spinButtonSetValue + -- method SpinButton::set_wrap -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1304,9 +1791,9 @@ spinButtonSetWrap :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - Bool -> -- wrap - m () + a -- _obj + -> Bool -- wrap + -> m () -- result spinButtonSetWrap _obj wrap = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let wrap' = (fromIntegral . fromEnum) wrap @@ -1314,11 +1801,14 @@ touchManagedPtr _obj return () +data SpinButtonSetWrapMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSetWrapMethodInfo a signature where + overloadedMethod _ = spinButtonSetWrap + -- method SpinButton::spin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "SpinType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "SpinType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "SpinType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1332,10 +1822,10 @@ spinButtonSpin :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - SpinType -> -- direction - Double -> -- increment - m () + a -- _obj + -> SpinType -- direction + -> Double -- increment + -> m () -- result spinButtonSpin _obj direction increment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let direction' = (fromIntegral . fromEnum) direction @@ -1344,11 +1834,14 @@ touchManagedPtr _obj return () +data SpinButtonSpinMethodInfo +instance (signature ~ (SpinType -> Double -> m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonSpinMethodInfo a signature where + overloadedMethod _ = spinButtonSpin + -- method SpinButton::update -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1360,12 +1853,16 @@ spinButtonUpdate :: (MonadIO m, SpinButtonK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result spinButtonUpdate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_spin_button_update _obj' touchManagedPtr _obj return () + +data SpinButtonUpdateMethodInfo +instance (signature ~ (m ()), MonadIO m, SpinButtonK a) => MethodInfo SpinButtonUpdateMethodInfo a signature where + overloadedMethod _ = spinButtonUpdate diff --git a/GI/Gtk/Objects/SpinButton.hs-boot b/GI/Gtk/Objects/SpinButton.hs-boot --- a/GI/Gtk/Objects/SpinButton.hs-boot +++ b/GI/Gtk/Objects/SpinButton.hs-boot @@ -24,3 +24,25 @@ data SpinButtonOutputSignalInfo data SpinButtonValueChangedSignalInfo data SpinButtonWrappedSignalInfo +data SpinButtonConfigureMethodInfo +data SpinButtonGetAdjustmentMethodInfo +data SpinButtonGetDigitsMethodInfo +data SpinButtonGetIncrementsMethodInfo +data SpinButtonGetNumericMethodInfo +data SpinButtonGetRangeMethodInfo +data SpinButtonGetSnapToTicksMethodInfo +data SpinButtonGetUpdatePolicyMethodInfo +data SpinButtonGetValueMethodInfo +data SpinButtonGetValueAsIntMethodInfo +data SpinButtonGetWrapMethodInfo +data SpinButtonSetAdjustmentMethodInfo +data SpinButtonSetDigitsMethodInfo +data SpinButtonSetIncrementsMethodInfo +data SpinButtonSetNumericMethodInfo +data SpinButtonSetRangeMethodInfo +data SpinButtonSetSnapToTicksMethodInfo +data SpinButtonSetUpdatePolicyMethodInfo +data SpinButtonSetValueMethodInfo +data SpinButtonSetWrapMethodInfo +data SpinButtonSpinMethodInfo +data SpinButtonUpdateMethodInfo diff --git a/GI/Gtk/Objects/SpinButtonAccessible.hs b/GI/Gtk/Objects/SpinButtonAccessible.hs --- a/GI/Gtk/Objects/SpinButtonAccessible.hs +++ b/GI/Gtk/Objects/SpinButtonAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,116 @@ noSpinButtonAccessible :: Maybe SpinButtonAccessible noSpinButtonAccessible = Nothing +type family ResolveSpinButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveSpinButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveSpinButtonAccessibleMethod "addSelection" o = Atk.TextAddSelectionMethodInfo + ResolveSpinButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSpinButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSpinButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveSpinButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveSpinButtonAccessibleMethod "copyText" o = Atk.EditableTextCopyTextMethodInfo + ResolveSpinButtonAccessibleMethod "cutText" o = Atk.EditableTextCutTextMethodInfo + ResolveSpinButtonAccessibleMethod "deleteText" o = Atk.EditableTextDeleteTextMethodInfo + ResolveSpinButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveSpinButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSpinButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSpinButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveSpinButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveSpinButtonAccessibleMethod "insertText" o = Atk.EditableTextInsertTextMethodInfo + ResolveSpinButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSpinButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSpinButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSpinButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveSpinButtonAccessibleMethod "pasteText" o = Atk.EditableTextPasteTextMethodInfo + ResolveSpinButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveSpinButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSpinButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveSpinButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveSpinButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveSpinButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSpinButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveSpinButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveSpinButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveSpinButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveSpinButtonAccessibleMethod "removeSelection" o = Atk.TextRemoveSelectionMethodInfo + ResolveSpinButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSpinButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSpinButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSpinButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSpinButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSpinButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSpinButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSpinButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSpinButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveSpinButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveSpinButtonAccessibleMethod "getBoundedRanges" o = Atk.TextGetBoundedRangesMethodInfo + ResolveSpinButtonAccessibleMethod "getCaretOffset" o = Atk.TextGetCaretOffsetMethodInfo + ResolveSpinButtonAccessibleMethod "getCharacterAtOffset" o = Atk.TextGetCharacterAtOffsetMethodInfo + ResolveSpinButtonAccessibleMethod "getCharacterCount" o = Atk.TextGetCharacterCountMethodInfo + ResolveSpinButtonAccessibleMethod "getCharacterExtents" o = Atk.TextGetCharacterExtentsMethodInfo + ResolveSpinButtonAccessibleMethod "getCurrentValue" o = Atk.ValueGetCurrentValueMethodInfo + ResolveSpinButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSpinButtonAccessibleMethod "getDefaultAttributes" o = Atk.TextGetDefaultAttributesMethodInfo + ResolveSpinButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveSpinButtonAccessibleMethod "getIncrement" o = Atk.ValueGetIncrementMethodInfo + ResolveSpinButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveSpinButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveSpinButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveSpinButtonAccessibleMethod "getMaximumValue" o = Atk.ValueGetMaximumValueMethodInfo + ResolveSpinButtonAccessibleMethod "getMinimumIncrement" o = Atk.ValueGetMinimumIncrementMethodInfo + ResolveSpinButtonAccessibleMethod "getMinimumValue" o = Atk.ValueGetMinimumValueMethodInfo + ResolveSpinButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveSpinButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveSpinButtonAccessibleMethod "getNSelections" o = Atk.TextGetNSelectionsMethodInfo + ResolveSpinButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveSpinButtonAccessibleMethod "getOffsetAtPoint" o = Atk.TextGetOffsetAtPointMethodInfo + ResolveSpinButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveSpinButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveSpinButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSpinButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSpinButtonAccessibleMethod "getRange" o = Atk.ValueGetRangeMethodInfo + ResolveSpinButtonAccessibleMethod "getRangeExtents" o = Atk.TextGetRangeExtentsMethodInfo + ResolveSpinButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveSpinButtonAccessibleMethod "getRunAttributes" o = Atk.TextGetRunAttributesMethodInfo + ResolveSpinButtonAccessibleMethod "getSelection" o = Atk.TextGetSelectionMethodInfo + ResolveSpinButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveSpinButtonAccessibleMethod "getStringAtOffset" o = Atk.TextGetStringAtOffsetMethodInfo + ResolveSpinButtonAccessibleMethod "getSubRanges" o = Atk.ValueGetSubRangesMethodInfo + ResolveSpinButtonAccessibleMethod "getText" o = Atk.TextGetTextMethodInfo + ResolveSpinButtonAccessibleMethod "getTextAfterOffset" o = Atk.TextGetTextAfterOffsetMethodInfo + ResolveSpinButtonAccessibleMethod "getTextAtOffset" o = Atk.TextGetTextAtOffsetMethodInfo + ResolveSpinButtonAccessibleMethod "getTextBeforeOffset" o = Atk.TextGetTextBeforeOffsetMethodInfo + ResolveSpinButtonAccessibleMethod "getValueAndText" o = Atk.ValueGetValueAndTextMethodInfo + ResolveSpinButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveSpinButtonAccessibleMethod "setCaretOffset" o = Atk.TextSetCaretOffsetMethodInfo + ResolveSpinButtonAccessibleMethod "setCurrentValue" o = Atk.ValueSetCurrentValueMethodInfo + ResolveSpinButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSpinButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveSpinButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveSpinButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveSpinButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveSpinButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSpinButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveSpinButtonAccessibleMethod "setRunAttributes" o = Atk.EditableTextSetRunAttributesMethodInfo + ResolveSpinButtonAccessibleMethod "setSelection" o = Atk.TextSetSelectionMethodInfo + ResolveSpinButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveSpinButtonAccessibleMethod "setTextContents" o = Atk.EditableTextSetTextContentsMethodInfo + ResolveSpinButtonAccessibleMethod "setValue" o = Atk.ValueSetValueMethodInfo + ResolveSpinButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveSpinButtonAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSpinButtonAccessibleMethod t SpinButtonAccessible, MethodInfo info SpinButtonAccessible p) => IsLabelProxy t (SpinButtonAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSpinButtonAccessibleMethod t SpinButtonAccessible, MethodInfo info SpinButtonAccessible p) => IsLabel t (SpinButtonAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList SpinButtonAccessible = SpinButtonAccessibleAttributeList -type SpinButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type SpinButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList SpinButtonAccessible = SpinButtonAccessibleSignalList -type SpinButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SpinButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("textAttributesChanged", Atk.TextTextAttributesChangedSignalInfo), '("textCaretMoved", Atk.TextTextCaretMovedSignalInfo), '("textChanged", Atk.TextTextChangedSignalInfo), '("textInsert", Atk.TextTextInsertSignalInfo), '("textRemove", Atk.TextTextRemoveSignalInfo), '("textSelectionChanged", Atk.TextTextSelectionChangedSignalInfo), '("valueChanged", Atk.ValueValueChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/Spinner.hs b/GI/Gtk/Objects/Spinner.hs --- a/GI/Gtk/Objects/Spinner.hs +++ b/GI/Gtk/Objects/Spinner.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,10 +22,12 @@ -- ** spinnerStart + SpinnerStartMethodInfo , spinnerStart , -- ** spinnerStop + SpinnerStopMethodInfo , spinnerStop , @@ -75,6 +78,304 @@ noSpinner :: Maybe Spinner noSpinner = Nothing +type family ResolveSpinnerMethod (t :: Symbol) (o :: *) :: * where + ResolveSpinnerMethod "activate" o = WidgetActivateMethodInfo + ResolveSpinnerMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveSpinnerMethod "addChild" o = BuildableAddChildMethodInfo + ResolveSpinnerMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveSpinnerMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveSpinnerMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveSpinnerMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveSpinnerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSpinnerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSpinnerMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveSpinnerMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveSpinnerMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveSpinnerMethod "classPath" o = WidgetClassPathMethodInfo + ResolveSpinnerMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveSpinnerMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveSpinnerMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveSpinnerMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveSpinnerMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveSpinnerMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveSpinnerMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveSpinnerMethod "destroy" o = WidgetDestroyMethodInfo + ResolveSpinnerMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveSpinnerMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveSpinnerMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveSpinnerMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveSpinnerMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveSpinnerMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveSpinnerMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveSpinnerMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveSpinnerMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveSpinnerMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveSpinnerMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveSpinnerMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveSpinnerMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveSpinnerMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveSpinnerMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveSpinnerMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveSpinnerMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveSpinnerMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveSpinnerMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveSpinnerMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveSpinnerMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveSpinnerMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveSpinnerMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveSpinnerMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveSpinnerMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveSpinnerMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveSpinnerMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveSpinnerMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveSpinnerMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveSpinnerMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveSpinnerMethod "draw" o = WidgetDrawMethodInfo + ResolveSpinnerMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveSpinnerMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveSpinnerMethod "event" o = WidgetEventMethodInfo + ResolveSpinnerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSpinnerMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveSpinnerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSpinnerMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveSpinnerMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveSpinnerMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveSpinnerMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveSpinnerMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveSpinnerMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveSpinnerMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveSpinnerMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveSpinnerMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveSpinnerMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveSpinnerMethod "hide" o = WidgetHideMethodInfo + ResolveSpinnerMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveSpinnerMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveSpinnerMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveSpinnerMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveSpinnerMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveSpinnerMethod "intersect" o = WidgetIntersectMethodInfo + ResolveSpinnerMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveSpinnerMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveSpinnerMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveSpinnerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSpinnerMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveSpinnerMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveSpinnerMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveSpinnerMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveSpinnerMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveSpinnerMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveSpinnerMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveSpinnerMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveSpinnerMethod "map" o = WidgetMapMethodInfo + ResolveSpinnerMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveSpinnerMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveSpinnerMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveSpinnerMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveSpinnerMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveSpinnerMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveSpinnerMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveSpinnerMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveSpinnerMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSpinnerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSpinnerMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveSpinnerMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveSpinnerMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveSpinnerMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveSpinnerMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveSpinnerMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveSpinnerMethod "path" o = WidgetPathMethodInfo + ResolveSpinnerMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveSpinnerMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveSpinnerMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveSpinnerMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveSpinnerMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveSpinnerMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveSpinnerMethod "realize" o = WidgetRealizeMethodInfo + ResolveSpinnerMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSpinnerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSpinnerMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveSpinnerMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveSpinnerMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveSpinnerMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveSpinnerMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveSpinnerMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveSpinnerMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveSpinnerMethod "reparent" o = WidgetReparentMethodInfo + ResolveSpinnerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSpinnerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSpinnerMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveSpinnerMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveSpinnerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSpinnerMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveSpinnerMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveSpinnerMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveSpinnerMethod "show" o = WidgetShowMethodInfo + ResolveSpinnerMethod "showAll" o = WidgetShowAllMethodInfo + ResolveSpinnerMethod "showNow" o = WidgetShowNowMethodInfo + ResolveSpinnerMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveSpinnerMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveSpinnerMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveSpinnerMethod "start" o = SpinnerStartMethodInfo + ResolveSpinnerMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSpinnerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSpinnerMethod "stop" o = SpinnerStopMethodInfo + ResolveSpinnerMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveSpinnerMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveSpinnerMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveSpinnerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSpinnerMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveSpinnerMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveSpinnerMethod "unmap" o = WidgetUnmapMethodInfo + ResolveSpinnerMethod "unparent" o = WidgetUnparentMethodInfo + ResolveSpinnerMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveSpinnerMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSpinnerMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveSpinnerMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveSpinnerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSpinnerMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveSpinnerMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveSpinnerMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveSpinnerMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveSpinnerMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveSpinnerMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveSpinnerMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveSpinnerMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveSpinnerMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveSpinnerMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveSpinnerMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveSpinnerMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveSpinnerMethod "getClip" o = WidgetGetClipMethodInfo + ResolveSpinnerMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveSpinnerMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveSpinnerMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSpinnerMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveSpinnerMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveSpinnerMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveSpinnerMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveSpinnerMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveSpinnerMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveSpinnerMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveSpinnerMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveSpinnerMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveSpinnerMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveSpinnerMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveSpinnerMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveSpinnerMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveSpinnerMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveSpinnerMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveSpinnerMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveSpinnerMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveSpinnerMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveSpinnerMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveSpinnerMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveSpinnerMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveSpinnerMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveSpinnerMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveSpinnerMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveSpinnerMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveSpinnerMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveSpinnerMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveSpinnerMethod "getParent" o = WidgetGetParentMethodInfo + ResolveSpinnerMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveSpinnerMethod "getPath" o = WidgetGetPathMethodInfo + ResolveSpinnerMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveSpinnerMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveSpinnerMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveSpinnerMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveSpinnerMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveSpinnerMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveSpinnerMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveSpinnerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSpinnerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSpinnerMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveSpinnerMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveSpinnerMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveSpinnerMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveSpinnerMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveSpinnerMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveSpinnerMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveSpinnerMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveSpinnerMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveSpinnerMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveSpinnerMethod "getState" o = WidgetGetStateMethodInfo + ResolveSpinnerMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveSpinnerMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveSpinnerMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveSpinnerMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveSpinnerMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveSpinnerMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveSpinnerMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveSpinnerMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveSpinnerMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveSpinnerMethod "getValign" o = WidgetGetValignMethodInfo + ResolveSpinnerMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveSpinnerMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveSpinnerMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveSpinnerMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveSpinnerMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveSpinnerMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveSpinnerMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveSpinnerMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveSpinnerMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveSpinnerMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveSpinnerMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveSpinnerMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveSpinnerMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveSpinnerMethod "setClip" o = WidgetSetClipMethodInfo + ResolveSpinnerMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveSpinnerMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSpinnerMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveSpinnerMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveSpinnerMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveSpinnerMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveSpinnerMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveSpinnerMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveSpinnerMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveSpinnerMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveSpinnerMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveSpinnerMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveSpinnerMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveSpinnerMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveSpinnerMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveSpinnerMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveSpinnerMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveSpinnerMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveSpinnerMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveSpinnerMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveSpinnerMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveSpinnerMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveSpinnerMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveSpinnerMethod "setParent" o = WidgetSetParentMethodInfo + ResolveSpinnerMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveSpinnerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSpinnerMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveSpinnerMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveSpinnerMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveSpinnerMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveSpinnerMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveSpinnerMethod "setState" o = WidgetSetStateMethodInfo + ResolveSpinnerMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveSpinnerMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveSpinnerMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveSpinnerMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveSpinnerMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveSpinnerMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveSpinnerMethod "setValign" o = WidgetSetValignMethodInfo + ResolveSpinnerMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveSpinnerMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveSpinnerMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveSpinnerMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveSpinnerMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveSpinnerMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSpinnerMethod t Spinner, MethodInfo info Spinner p) => IsLabelProxy t (Spinner -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSpinnerMethod t Spinner, MethodInfo info Spinner p) => IsLabel t (Spinner -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -94,22 +395,21 @@ type AttrSetTypeConstraint SpinnerActivePropertyInfo = (~) Bool type AttrBaseTypeConstraint SpinnerActivePropertyInfo = SpinnerK type AttrGetType SpinnerActivePropertyInfo = Bool - type AttrLabel SpinnerActivePropertyInfo = "Spinner::active" + type AttrLabel SpinnerActivePropertyInfo = "active" attrGet _ = getSpinnerActive attrSet _ = setSpinnerActive attrConstruct _ = constructSpinnerActive type instance AttributeList Spinner = SpinnerAttributeList -type SpinnerAttributeList = ('[ '("active", SpinnerActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type SpinnerAttributeList = ('[ '("active", SpinnerActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Spinner = SpinnerSignalList -type SpinnerSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SpinnerSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Spinner::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Spinner" -- throws : False -- Skip return : False @@ -120,7 +420,7 @@ spinnerNew :: (MonadIO m) => - m Spinner + m Spinner -- result spinnerNew = liftIO $ do result <- gtk_spinner_new checkUnexpectedReturnNULL "gtk_spinner_new" result @@ -129,9 +429,8 @@ -- method Spinner::start -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -143,19 +442,22 @@ spinnerStart :: (MonadIO m, SpinnerK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result spinnerStart _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_spinner_start _obj' touchManagedPtr _obj return () +data SpinnerStartMethodInfo +instance (signature ~ (m ()), MonadIO m, SpinnerK a) => MethodInfo SpinnerStartMethodInfo a signature where + overloadedMethod _ = spinnerStart + -- method Spinner::stop -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -167,12 +469,16 @@ spinnerStop :: (MonadIO m, SpinnerK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result spinnerStop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_spinner_stop _obj' touchManagedPtr _obj return () + +data SpinnerStopMethodInfo +instance (signature ~ (m ()), MonadIO m, SpinnerK a) => MethodInfo SpinnerStopMethodInfo a signature where + overloadedMethod _ = spinnerStop diff --git a/GI/Gtk/Objects/Spinner.hs-boot b/GI/Gtk/Objects/Spinner.hs-boot --- a/GI/Gtk/Objects/Spinner.hs-boot +++ b/GI/Gtk/Objects/Spinner.hs-boot @@ -12,3 +12,5 @@ class GObject o => SpinnerK o instance (GObject o, IsDescendantOf Spinner o) => SpinnerK o data SpinnerActivePropertyInfo +data SpinnerStartMethodInfo +data SpinnerStopMethodInfo diff --git a/GI/Gtk/Objects/SpinnerAccessible.hs b/GI/Gtk/Objects/SpinnerAccessible.hs --- a/GI/Gtk/Objects/SpinnerAccessible.hs +++ b/GI/Gtk/Objects/SpinnerAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,83 @@ noSpinnerAccessible :: Maybe SpinnerAccessible noSpinnerAccessible = Nothing +type family ResolveSpinnerAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveSpinnerAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveSpinnerAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSpinnerAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSpinnerAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveSpinnerAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveSpinnerAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSpinnerAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSpinnerAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveSpinnerAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveSpinnerAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSpinnerAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSpinnerAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSpinnerAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveSpinnerAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveSpinnerAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSpinnerAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveSpinnerAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveSpinnerAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveSpinnerAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSpinnerAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveSpinnerAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveSpinnerAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveSpinnerAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveSpinnerAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSpinnerAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSpinnerAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSpinnerAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSpinnerAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSpinnerAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSpinnerAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSpinnerAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSpinnerAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveSpinnerAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveSpinnerAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSpinnerAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveSpinnerAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveSpinnerAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo + ResolveSpinnerAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo + ResolveSpinnerAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo + ResolveSpinnerAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo + ResolveSpinnerAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveSpinnerAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveSpinnerAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveSpinnerAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveSpinnerAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveSpinnerAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveSpinnerAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSpinnerAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSpinnerAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveSpinnerAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveSpinnerAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveSpinnerAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSpinnerAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveSpinnerAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveSpinnerAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo + ResolveSpinnerAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveSpinnerAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveSpinnerAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveSpinnerAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSpinnerAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveSpinnerAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveSpinnerAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveSpinnerAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSpinnerAccessibleMethod t SpinnerAccessible, MethodInfo info SpinnerAccessible p) => IsLabelProxy t (SpinnerAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSpinnerAccessibleMethod t SpinnerAccessible, MethodInfo info SpinnerAccessible p) => IsLabel t (SpinnerAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList SpinnerAccessible = SpinnerAccessibleAttributeList -type SpinnerAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type SpinnerAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList SpinnerAccessible = SpinnerAccessibleSignalList -type SpinnerAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SpinnerAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/Stack.hs b/GI/Gtk/Objects/Stack.hs --- a/GI/Gtk/Objects/Stack.hs +++ b/GI/Gtk/Objects/Stack.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,50 +18,62 @@ -- * Methods -- ** stackAddNamed + StackAddNamedMethodInfo , stackAddNamed , -- ** stackAddTitled + StackAddTitledMethodInfo , stackAddTitled , -- ** stackGetChildByName + StackGetChildByNameMethodInfo , stackGetChildByName , -- ** stackGetHhomogeneous + StackGetHhomogeneousMethodInfo , stackGetHhomogeneous , -- ** stackGetHomogeneous + StackGetHomogeneousMethodInfo , stackGetHomogeneous , -- ** stackGetInterpolateSize + StackGetInterpolateSizeMethodInfo , stackGetInterpolateSize , -- ** stackGetTransitionDuration + StackGetTransitionDurationMethodInfo , stackGetTransitionDuration , -- ** stackGetTransitionRunning + StackGetTransitionRunningMethodInfo , stackGetTransitionRunning , -- ** stackGetTransitionType + StackGetTransitionTypeMethodInfo , stackGetTransitionType , -- ** stackGetVhomogeneous + StackGetVhomogeneousMethodInfo , stackGetVhomogeneous , -- ** stackGetVisibleChild + StackGetVisibleChildMethodInfo , stackGetVisibleChild , -- ** stackGetVisibleChildName + StackGetVisibleChildNameMethodInfo , stackGetVisibleChildName , @@ -69,38 +82,47 @@ -- ** stackSetHhomogeneous + StackSetHhomogeneousMethodInfo , stackSetHhomogeneous , -- ** stackSetHomogeneous + StackSetHomogeneousMethodInfo , stackSetHomogeneous , -- ** stackSetInterpolateSize + StackSetInterpolateSizeMethodInfo , stackSetInterpolateSize , -- ** stackSetTransitionDuration + StackSetTransitionDurationMethodInfo , stackSetTransitionDuration , -- ** stackSetTransitionType + StackSetTransitionTypeMethodInfo , stackSetTransitionType , -- ** stackSetVhomogeneous + StackSetVhomogeneousMethodInfo , stackSetVhomogeneous , -- ** stackSetVisibleChild + StackSetVisibleChildMethodInfo , stackSetVisibleChild , -- ** stackSetVisibleChildFull + StackSetVisibleChildFullMethodInfo , stackSetVisibleChildFull , -- ** stackSetVisibleChildName + StackSetVisibleChildNameMethodInfo , stackSetVisibleChildName , @@ -205,6 +227,349 @@ noStack :: Maybe Stack noStack = Nothing +type family ResolveStackMethod (t :: Symbol) (o :: *) :: * where + ResolveStackMethod "activate" o = WidgetActivateMethodInfo + ResolveStackMethod "add" o = ContainerAddMethodInfo + ResolveStackMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveStackMethod "addChild" o = BuildableAddChildMethodInfo + ResolveStackMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveStackMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveStackMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveStackMethod "addNamed" o = StackAddNamedMethodInfo + ResolveStackMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveStackMethod "addTitled" o = StackAddTitledMethodInfo + ResolveStackMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveStackMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveStackMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveStackMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveStackMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveStackMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveStackMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveStackMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveStackMethod "childType" o = ContainerChildTypeMethodInfo + ResolveStackMethod "classPath" o = WidgetClassPathMethodInfo + ResolveStackMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveStackMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveStackMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveStackMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveStackMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveStackMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveStackMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveStackMethod "destroy" o = WidgetDestroyMethodInfo + ResolveStackMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveStackMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveStackMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveStackMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveStackMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveStackMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveStackMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveStackMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveStackMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveStackMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveStackMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveStackMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveStackMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveStackMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveStackMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveStackMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveStackMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveStackMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveStackMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveStackMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveStackMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveStackMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveStackMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveStackMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveStackMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveStackMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveStackMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveStackMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveStackMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveStackMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveStackMethod "draw" o = WidgetDrawMethodInfo + ResolveStackMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveStackMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveStackMethod "event" o = WidgetEventMethodInfo + ResolveStackMethod "forall" o = ContainerForallMethodInfo + ResolveStackMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveStackMethod "foreach" o = ContainerForeachMethodInfo + ResolveStackMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveStackMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveStackMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveStackMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveStackMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveStackMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveStackMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveStackMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveStackMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveStackMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveStackMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveStackMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveStackMethod "hide" o = WidgetHideMethodInfo + ResolveStackMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveStackMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveStackMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveStackMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveStackMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveStackMethod "intersect" o = WidgetIntersectMethodInfo + ResolveStackMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveStackMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveStackMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveStackMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveStackMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveStackMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveStackMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveStackMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveStackMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveStackMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveStackMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveStackMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveStackMethod "map" o = WidgetMapMethodInfo + ResolveStackMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveStackMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveStackMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveStackMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveStackMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveStackMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveStackMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveStackMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveStackMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveStackMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveStackMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveStackMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveStackMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveStackMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveStackMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveStackMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveStackMethod "path" o = WidgetPathMethodInfo + ResolveStackMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveStackMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveStackMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveStackMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveStackMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveStackMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveStackMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveStackMethod "realize" o = WidgetRealizeMethodInfo + ResolveStackMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveStackMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveStackMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveStackMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveStackMethod "remove" o = ContainerRemoveMethodInfo + ResolveStackMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveStackMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveStackMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveStackMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveStackMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveStackMethod "reparent" o = WidgetReparentMethodInfo + ResolveStackMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveStackMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveStackMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveStackMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveStackMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveStackMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveStackMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveStackMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveStackMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveStackMethod "show" o = WidgetShowMethodInfo + ResolveStackMethod "showAll" o = WidgetShowAllMethodInfo + ResolveStackMethod "showNow" o = WidgetShowNowMethodInfo + ResolveStackMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveStackMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveStackMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveStackMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveStackMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveStackMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveStackMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveStackMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveStackMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveStackMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveStackMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveStackMethod "unmap" o = WidgetUnmapMethodInfo + ResolveStackMethod "unparent" o = WidgetUnparentMethodInfo + ResolveStackMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveStackMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveStackMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveStackMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveStackMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveStackMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveStackMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveStackMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveStackMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveStackMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveStackMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveStackMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveStackMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveStackMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveStackMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveStackMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveStackMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveStackMethod "getChildByName" o = StackGetChildByNameMethodInfo + ResolveStackMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveStackMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveStackMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveStackMethod "getClip" o = WidgetGetClipMethodInfo + ResolveStackMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveStackMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveStackMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveStackMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveStackMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveStackMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveStackMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveStackMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveStackMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveStackMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveStackMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveStackMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveStackMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveStackMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveStackMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveStackMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveStackMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveStackMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveStackMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveStackMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveStackMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveStackMethod "getHhomogeneous" o = StackGetHhomogeneousMethodInfo + ResolveStackMethod "getHomogeneous" o = StackGetHomogeneousMethodInfo + ResolveStackMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveStackMethod "getInterpolateSize" o = StackGetInterpolateSizeMethodInfo + ResolveStackMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveStackMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveStackMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveStackMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveStackMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveStackMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveStackMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveStackMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveStackMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveStackMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveStackMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveStackMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveStackMethod "getParent" o = WidgetGetParentMethodInfo + ResolveStackMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveStackMethod "getPath" o = WidgetGetPathMethodInfo + ResolveStackMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveStackMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveStackMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveStackMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveStackMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveStackMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveStackMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveStackMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveStackMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveStackMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveStackMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveStackMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveStackMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveStackMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveStackMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveStackMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveStackMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveStackMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveStackMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveStackMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveStackMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveStackMethod "getState" o = WidgetGetStateMethodInfo + ResolveStackMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveStackMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveStackMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveStackMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveStackMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveStackMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveStackMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveStackMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveStackMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveStackMethod "getTransitionDuration" o = StackGetTransitionDurationMethodInfo + ResolveStackMethod "getTransitionRunning" o = StackGetTransitionRunningMethodInfo + ResolveStackMethod "getTransitionType" o = StackGetTransitionTypeMethodInfo + ResolveStackMethod "getValign" o = WidgetGetValignMethodInfo + ResolveStackMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveStackMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveStackMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveStackMethod "getVhomogeneous" o = StackGetVhomogeneousMethodInfo + ResolveStackMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveStackMethod "getVisibleChild" o = StackGetVisibleChildMethodInfo + ResolveStackMethod "getVisibleChildName" o = StackGetVisibleChildNameMethodInfo + ResolveStackMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveStackMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveStackMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveStackMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveStackMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveStackMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveStackMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveStackMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveStackMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveStackMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveStackMethod "setClip" o = WidgetSetClipMethodInfo + ResolveStackMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveStackMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveStackMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveStackMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveStackMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveStackMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveStackMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveStackMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveStackMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveStackMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveStackMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveStackMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveStackMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveStackMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveStackMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveStackMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveStackMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveStackMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveStackMethod "setHhomogeneous" o = StackSetHhomogeneousMethodInfo + ResolveStackMethod "setHomogeneous" o = StackSetHomogeneousMethodInfo + ResolveStackMethod "setInterpolateSize" o = StackSetInterpolateSizeMethodInfo + ResolveStackMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveStackMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveStackMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveStackMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveStackMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveStackMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveStackMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveStackMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveStackMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveStackMethod "setParent" o = WidgetSetParentMethodInfo + ResolveStackMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveStackMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveStackMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveStackMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveStackMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveStackMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveStackMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveStackMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveStackMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveStackMethod "setState" o = WidgetSetStateMethodInfo + ResolveStackMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveStackMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveStackMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveStackMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveStackMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveStackMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveStackMethod "setTransitionDuration" o = StackSetTransitionDurationMethodInfo + ResolveStackMethod "setTransitionType" o = StackSetTransitionTypeMethodInfo + ResolveStackMethod "setValign" o = WidgetSetValignMethodInfo + ResolveStackMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveStackMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveStackMethod "setVhomogeneous" o = StackSetVhomogeneousMethodInfo + ResolveStackMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveStackMethod "setVisibleChild" o = StackSetVisibleChildMethodInfo + ResolveStackMethod "setVisibleChildFull" o = StackSetVisibleChildFullMethodInfo + ResolveStackMethod "setVisibleChildName" o = StackSetVisibleChildNameMethodInfo + ResolveStackMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveStackMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveStackMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveStackMethod t Stack, MethodInfo info Stack p) => IsLabelProxy t (Stack -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveStackMethod t Stack, MethodInfo info Stack p) => IsLabel t (Stack -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "hhomogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] @@ -224,7 +589,7 @@ type AttrSetTypeConstraint StackHhomogeneousPropertyInfo = (~) Bool type AttrBaseTypeConstraint StackHhomogeneousPropertyInfo = StackK type AttrGetType StackHhomogeneousPropertyInfo = Bool - type AttrLabel StackHhomogeneousPropertyInfo = "Stack::hhomogeneous" + type AttrLabel StackHhomogeneousPropertyInfo = "hhomogeneous" attrGet _ = getStackHhomogeneous attrSet _ = setStackHhomogeneous attrConstruct _ = constructStackHhomogeneous @@ -248,7 +613,7 @@ type AttrSetTypeConstraint StackHomogeneousPropertyInfo = (~) Bool type AttrBaseTypeConstraint StackHomogeneousPropertyInfo = StackK type AttrGetType StackHomogeneousPropertyInfo = Bool - type AttrLabel StackHomogeneousPropertyInfo = "Stack::homogeneous" + type AttrLabel StackHomogeneousPropertyInfo = "homogeneous" attrGet _ = getStackHomogeneous attrSet _ = setStackHomogeneous attrConstruct _ = constructStackHomogeneous @@ -272,7 +637,7 @@ type AttrSetTypeConstraint StackInterpolateSizePropertyInfo = (~) Bool type AttrBaseTypeConstraint StackInterpolateSizePropertyInfo = StackK type AttrGetType StackInterpolateSizePropertyInfo = Bool - type AttrLabel StackInterpolateSizePropertyInfo = "Stack::interpolate-size" + type AttrLabel StackInterpolateSizePropertyInfo = "interpolate-size" attrGet _ = getStackInterpolateSize attrSet _ = setStackInterpolateSize attrConstruct _ = constructStackInterpolateSize @@ -296,7 +661,7 @@ type AttrSetTypeConstraint StackTransitionDurationPropertyInfo = (~) Word32 type AttrBaseTypeConstraint StackTransitionDurationPropertyInfo = StackK type AttrGetType StackTransitionDurationPropertyInfo = Word32 - type AttrLabel StackTransitionDurationPropertyInfo = "Stack::transition-duration" + type AttrLabel StackTransitionDurationPropertyInfo = "transition-duration" attrGet _ = getStackTransitionDuration attrSet _ = setStackTransitionDuration attrConstruct _ = constructStackTransitionDuration @@ -314,7 +679,7 @@ type AttrSetTypeConstraint StackTransitionRunningPropertyInfo = (~) () type AttrBaseTypeConstraint StackTransitionRunningPropertyInfo = StackK type AttrGetType StackTransitionRunningPropertyInfo = Bool - type AttrLabel StackTransitionRunningPropertyInfo = "Stack::transition-running" + type AttrLabel StackTransitionRunningPropertyInfo = "transition-running" attrGet _ = getStackTransitionRunning attrSet _ = undefined attrConstruct _ = undefined @@ -338,7 +703,7 @@ type AttrSetTypeConstraint StackTransitionTypePropertyInfo = (~) StackTransitionType type AttrBaseTypeConstraint StackTransitionTypePropertyInfo = StackK type AttrGetType StackTransitionTypePropertyInfo = StackTransitionType - type AttrLabel StackTransitionTypePropertyInfo = "Stack::transition-type" + type AttrLabel StackTransitionTypePropertyInfo = "transition-type" attrGet _ = getStackTransitionType attrSet _ = setStackTransitionType attrConstruct _ = constructStackTransitionType @@ -362,7 +727,7 @@ type AttrSetTypeConstraint StackVhomogeneousPropertyInfo = (~) Bool type AttrBaseTypeConstraint StackVhomogeneousPropertyInfo = StackK type AttrGetType StackVhomogeneousPropertyInfo = Bool - type AttrLabel StackVhomogeneousPropertyInfo = "Stack::vhomogeneous" + type AttrLabel StackVhomogeneousPropertyInfo = "vhomogeneous" attrGet _ = getStackVhomogeneous attrSet _ = setStackVhomogeneous attrConstruct _ = constructStackVhomogeneous @@ -386,7 +751,7 @@ type AttrSetTypeConstraint StackVisibleChildPropertyInfo = WidgetK type AttrBaseTypeConstraint StackVisibleChildPropertyInfo = StackK type AttrGetType StackVisibleChildPropertyInfo = Widget - type AttrLabel StackVisibleChildPropertyInfo = "Stack::visible-child" + type AttrLabel StackVisibleChildPropertyInfo = "visible-child" attrGet _ = getStackVisibleChild attrSet _ = setStackVisibleChild attrConstruct _ = constructStackVisibleChild @@ -410,22 +775,21 @@ type AttrSetTypeConstraint StackVisibleChildNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint StackVisibleChildNamePropertyInfo = StackK type AttrGetType StackVisibleChildNamePropertyInfo = T.Text - type AttrLabel StackVisibleChildNamePropertyInfo = "Stack::visible-child-name" + type AttrLabel StackVisibleChildNamePropertyInfo = "visible-child-name" attrGet _ = getStackVisibleChildName attrSet _ = setStackVisibleChildName attrConstruct _ = constructStackVisibleChildName type instance AttributeList Stack = StackAttributeList -type StackAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hhomogeneous", StackHhomogeneousPropertyInfo), '("homogeneous", StackHomogeneousPropertyInfo), '("interpolate-size", StackInterpolateSizePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transition-duration", StackTransitionDurationPropertyInfo), '("transition-running", StackTransitionRunningPropertyInfo), '("transition-type", StackTransitionTypePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("vhomogeneous", StackVhomogeneousPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-child", StackVisibleChildPropertyInfo), '("visible-child-name", StackVisibleChildNamePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type StackAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hhomogeneous", StackHhomogeneousPropertyInfo), '("homogeneous", StackHomogeneousPropertyInfo), '("interpolateSize", StackInterpolateSizePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionDuration", StackTransitionDurationPropertyInfo), '("transitionRunning", StackTransitionRunningPropertyInfo), '("transitionType", StackTransitionTypePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("vhomogeneous", StackVhomogeneousPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleChild", StackVisibleChildPropertyInfo), '("visibleChildName", StackVisibleChildNamePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Stack = StackSignalList -type StackSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type StackSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Stack::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Stack" -- throws : False -- Skip return : False @@ -436,7 +800,7 @@ stackNew :: (MonadIO m) => - m Stack + m Stack -- result stackNew = liftIO $ do result <- gtk_stack_new checkUnexpectedReturnNULL "gtk_stack_new" result @@ -445,9 +809,8 @@ -- method Stack::add_named -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -461,10 +824,10 @@ stackAddNamed :: (MonadIO m, StackK a, WidgetK b) => - a -> -- _obj - b -> -- child - T.Text -> -- name - m () + a -- _obj + -> b -- child + -> T.Text -- name + -> m () -- result stackAddNamed _obj child name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -475,11 +838,14 @@ freeMem name' return () +data StackAddNamedMethodInfo +instance (signature ~ (b -> T.Text -> m ()), MonadIO m, StackK a, WidgetK b) => MethodInfo StackAddNamedMethodInfo a signature where + overloadedMethod _ = stackAddNamed + -- method Stack::add_titled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -494,11 +860,11 @@ stackAddTitled :: (MonadIO m, StackK a, WidgetK b) => - a -> -- _obj - b -> -- child - T.Text -> -- name - T.Text -> -- title - m () + a -- _obj + -> b -- child + -> T.Text -- name + -> T.Text -- title + -> m () -- result stackAddTitled _obj child name title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -511,11 +877,14 @@ freeMem title' return () +data StackAddTitledMethodInfo +instance (signature ~ (b -> T.Text -> T.Text -> m ()), MonadIO m, StackK a, WidgetK b) => MethodInfo StackAddTitledMethodInfo a signature where + overloadedMethod _ = stackAddTitled + -- method Stack::get_child_by_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -528,9 +897,9 @@ stackGetChildByName :: (MonadIO m, StackK a) => - a -> -- _obj - T.Text -> -- name - m Widget + a -- _obj + -> T.Text -- name + -> m Widget -- result stackGetChildByName _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -541,11 +910,14 @@ freeMem name' return result' +data StackGetChildByNameMethodInfo +instance (signature ~ (T.Text -> m Widget), MonadIO m, StackK a) => MethodInfo StackGetChildByNameMethodInfo a signature where + overloadedMethod _ = stackGetChildByName + -- method Stack::get_hhomogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -557,8 +929,8 @@ stackGetHhomogeneous :: (MonadIO m, StackK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result stackGetHhomogeneous _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_stack_get_hhomogeneous _obj' @@ -566,11 +938,14 @@ touchManagedPtr _obj return result' +data StackGetHhomogeneousMethodInfo +instance (signature ~ (m Bool), MonadIO m, StackK a) => MethodInfo StackGetHhomogeneousMethodInfo a signature where + overloadedMethod _ = stackGetHhomogeneous + -- method Stack::get_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -582,8 +957,8 @@ stackGetHomogeneous :: (MonadIO m, StackK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result stackGetHomogeneous _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_stack_get_homogeneous _obj' @@ -591,11 +966,14 @@ touchManagedPtr _obj return result' +data StackGetHomogeneousMethodInfo +instance (signature ~ (m Bool), MonadIO m, StackK a) => MethodInfo StackGetHomogeneousMethodInfo a signature where + overloadedMethod _ = stackGetHomogeneous + -- method Stack::get_interpolate_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -607,8 +985,8 @@ stackGetInterpolateSize :: (MonadIO m, StackK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result stackGetInterpolateSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_stack_get_interpolate_size _obj' @@ -616,11 +994,14 @@ touchManagedPtr _obj return result' +data StackGetInterpolateSizeMethodInfo +instance (signature ~ (m Bool), MonadIO m, StackK a) => MethodInfo StackGetInterpolateSizeMethodInfo a signature where + overloadedMethod _ = stackGetInterpolateSize + -- method Stack::get_transition_duration -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -632,19 +1013,22 @@ stackGetTransitionDuration :: (MonadIO m, StackK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result stackGetTransitionDuration _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_stack_get_transition_duration _obj' touchManagedPtr _obj return result +data StackGetTransitionDurationMethodInfo +instance (signature ~ (m Word32), MonadIO m, StackK a) => MethodInfo StackGetTransitionDurationMethodInfo a signature where + overloadedMethod _ = stackGetTransitionDuration + -- method Stack::get_transition_running -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -656,8 +1040,8 @@ stackGetTransitionRunning :: (MonadIO m, StackK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result stackGetTransitionRunning _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_stack_get_transition_running _obj' @@ -665,11 +1049,14 @@ touchManagedPtr _obj return result' +data StackGetTransitionRunningMethodInfo +instance (signature ~ (m Bool), MonadIO m, StackK a) => MethodInfo StackGetTransitionRunningMethodInfo a signature where + overloadedMethod _ = stackGetTransitionRunning + -- method Stack::get_transition_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StackTransitionType" -- throws : False -- Skip return : False @@ -681,8 +1068,8 @@ stackGetTransitionType :: (MonadIO m, StackK a) => - a -> -- _obj - m StackTransitionType + a -- _obj + -> m StackTransitionType -- result stackGetTransitionType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_stack_get_transition_type _obj' @@ -690,11 +1077,14 @@ touchManagedPtr _obj return result' +data StackGetTransitionTypeMethodInfo +instance (signature ~ (m StackTransitionType), MonadIO m, StackK a) => MethodInfo StackGetTransitionTypeMethodInfo a signature where + overloadedMethod _ = stackGetTransitionType + -- method Stack::get_vhomogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -706,8 +1096,8 @@ stackGetVhomogeneous :: (MonadIO m, StackK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result stackGetVhomogeneous _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_stack_get_vhomogeneous _obj' @@ -715,11 +1105,14 @@ touchManagedPtr _obj return result' +data StackGetVhomogeneousMethodInfo +instance (signature ~ (m Bool), MonadIO m, StackK a) => MethodInfo StackGetVhomogeneousMethodInfo a signature where + overloadedMethod _ = stackGetVhomogeneous + -- method Stack::get_visible_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -731,8 +1124,8 @@ stackGetVisibleChild :: (MonadIO m, StackK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result stackGetVisibleChild _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_stack_get_visible_child _obj' @@ -741,11 +1134,14 @@ touchManagedPtr _obj return result' +data StackGetVisibleChildMethodInfo +instance (signature ~ (m Widget), MonadIO m, StackK a) => MethodInfo StackGetVisibleChildMethodInfo a signature where + overloadedMethod _ = stackGetVisibleChild + -- method Stack::get_visible_child_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -757,8 +1153,8 @@ stackGetVisibleChildName :: (MonadIO m, StackK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result stackGetVisibleChildName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_stack_get_visible_child_name _obj' @@ -767,11 +1163,14 @@ touchManagedPtr _obj return result' +data StackGetVisibleChildNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, StackK a) => MethodInfo StackGetVisibleChildNameMethodInfo a signature where + overloadedMethod _ = stackGetVisibleChildName + -- method Stack::set_hhomogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -784,9 +1183,9 @@ stackSetHhomogeneous :: (MonadIO m, StackK a) => - a -> -- _obj - Bool -> -- hhomogeneous - m () + a -- _obj + -> Bool -- hhomogeneous + -> m () -- result stackSetHhomogeneous _obj hhomogeneous = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let hhomogeneous' = (fromIntegral . fromEnum) hhomogeneous @@ -794,11 +1193,14 @@ touchManagedPtr _obj return () +data StackSetHhomogeneousMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, StackK a) => MethodInfo StackSetHhomogeneousMethodInfo a signature where + overloadedMethod _ = stackSetHhomogeneous + -- method Stack::set_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -811,9 +1213,9 @@ stackSetHomogeneous :: (MonadIO m, StackK a) => - a -> -- _obj - Bool -> -- homogeneous - m () + a -- _obj + -> Bool -- homogeneous + -> m () -- result stackSetHomogeneous _obj homogeneous = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let homogeneous' = (fromIntegral . fromEnum) homogeneous @@ -821,11 +1223,14 @@ touchManagedPtr _obj return () +data StackSetHomogeneousMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, StackK a) => MethodInfo StackSetHomogeneousMethodInfo a signature where + overloadedMethod _ = stackSetHomogeneous + -- method Stack::set_interpolate_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interpolate_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interpolate_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interpolate_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -838,21 +1243,24 @@ stackSetInterpolateSize :: (MonadIO m, StackK a) => - a -> -- _obj - Bool -> -- interpolate_size - m () -stackSetInterpolateSize _obj interpolate_size = liftIO $ do + a -- _obj + -> Bool -- interpolateSize + -> m () -- result +stackSetInterpolateSize _obj interpolateSize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let interpolate_size' = (fromIntegral . fromEnum) interpolate_size - gtk_stack_set_interpolate_size _obj' interpolate_size' + let interpolateSize' = (fromIntegral . fromEnum) interpolateSize + gtk_stack_set_interpolate_size _obj' interpolateSize' touchManagedPtr _obj return () +data StackSetInterpolateSizeMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, StackK a) => MethodInfo StackSetInterpolateSizeMethodInfo a signature where + overloadedMethod _ = stackSetInterpolateSize + -- method Stack::set_transition_duration -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -865,20 +1273,23 @@ stackSetTransitionDuration :: (MonadIO m, StackK a) => - a -> -- _obj - Word32 -> -- duration - m () + a -- _obj + -> Word32 -- duration + -> m () -- result stackSetTransitionDuration _obj duration = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_stack_set_transition_duration _obj' duration touchManagedPtr _obj return () +data StackSetTransitionDurationMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, StackK a) => MethodInfo StackSetTransitionDurationMethodInfo a signature where + overloadedMethod _ = stackSetTransitionDuration + -- method Stack::set_transition_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -891,9 +1302,9 @@ stackSetTransitionType :: (MonadIO m, StackK a) => - a -> -- _obj - StackTransitionType -> -- transition - m () + a -- _obj + -> StackTransitionType -- transition + -> m () -- result stackSetTransitionType _obj transition = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let transition' = (fromIntegral . fromEnum) transition @@ -901,11 +1312,14 @@ touchManagedPtr _obj return () +data StackSetTransitionTypeMethodInfo +instance (signature ~ (StackTransitionType -> m ()), MonadIO m, StackK a) => MethodInfo StackSetTransitionTypeMethodInfo a signature where + overloadedMethod _ = stackSetTransitionType + -- method Stack::set_vhomogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -918,9 +1332,9 @@ stackSetVhomogeneous :: (MonadIO m, StackK a) => - a -> -- _obj - Bool -> -- vhomogeneous - m () + a -- _obj + -> Bool -- vhomogeneous + -> m () -- result stackSetVhomogeneous _obj vhomogeneous = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let vhomogeneous' = (fromIntegral . fromEnum) vhomogeneous @@ -928,11 +1342,14 @@ touchManagedPtr _obj return () +data StackSetVhomogeneousMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, StackK a) => MethodInfo StackSetVhomogeneousMethodInfo a signature where + overloadedMethod _ = stackSetVhomogeneous + -- method Stack::set_visible_child -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -945,9 +1362,9 @@ stackSetVisibleChild :: (MonadIO m, StackK a, WidgetK b) => - a -> -- _obj - b -> -- child - m () + a -- _obj + -> b -- child + -> m () -- result stackSetVisibleChild _obj child = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child @@ -956,11 +1373,14 @@ touchManagedPtr child return () +data StackSetVisibleChildMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, StackK a, WidgetK b) => MethodInfo StackSetVisibleChildMethodInfo a signature where + overloadedMethod _ = stackSetVisibleChild + -- method Stack::set_visible_child_full -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -974,10 +1394,10 @@ stackSetVisibleChildFull :: (MonadIO m, StackK a) => - a -> -- _obj - T.Text -> -- name - StackTransitionType -> -- transition - m () + a -- _obj + -> T.Text -- name + -> StackTransitionType -- transition + -> m () -- result stackSetVisibleChildFull _obj name transition = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -987,11 +1407,14 @@ freeMem name' return () +data StackSetVisibleChildFullMethodInfo +instance (signature ~ (T.Text -> StackTransitionType -> m ()), MonadIO m, StackK a) => MethodInfo StackSetVisibleChildFullMethodInfo a signature where + overloadedMethod _ = stackSetVisibleChildFull + -- method Stack::set_visible_child_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1004,9 +1427,9 @@ stackSetVisibleChildName :: (MonadIO m, StackK a) => - a -> -- _obj - T.Text -> -- name - m () + a -- _obj + -> T.Text -- name + -> m () -- result stackSetVisibleChildName _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -1014,5 +1437,9 @@ touchManagedPtr _obj freeMem name' return () + +data StackSetVisibleChildNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, StackK a) => MethodInfo StackSetVisibleChildNameMethodInfo a signature where + overloadedMethod _ = stackSetVisibleChildName diff --git a/GI/Gtk/Objects/Stack.hs-boot b/GI/Gtk/Objects/Stack.hs-boot --- a/GI/Gtk/Objects/Stack.hs-boot +++ b/GI/Gtk/Objects/Stack.hs-boot @@ -20,3 +20,24 @@ data StackVhomogeneousPropertyInfo data StackVisibleChildPropertyInfo data StackVisibleChildNamePropertyInfo +data StackAddNamedMethodInfo +data StackAddTitledMethodInfo +data StackGetChildByNameMethodInfo +data StackGetHhomogeneousMethodInfo +data StackGetHomogeneousMethodInfo +data StackGetInterpolateSizeMethodInfo +data StackGetTransitionDurationMethodInfo +data StackGetTransitionRunningMethodInfo +data StackGetTransitionTypeMethodInfo +data StackGetVhomogeneousMethodInfo +data StackGetVisibleChildMethodInfo +data StackGetVisibleChildNameMethodInfo +data StackSetHhomogeneousMethodInfo +data StackSetHomogeneousMethodInfo +data StackSetInterpolateSizeMethodInfo +data StackSetTransitionDurationMethodInfo +data StackSetTransitionTypeMethodInfo +data StackSetVhomogeneousMethodInfo +data StackSetVisibleChildMethodInfo +data StackSetVisibleChildFullMethodInfo +data StackSetVisibleChildNameMethodInfo diff --git a/GI/Gtk/Objects/StackSidebar.hs b/GI/Gtk/Objects/StackSidebar.hs --- a/GI/Gtk/Objects/StackSidebar.hs +++ b/GI/Gtk/Objects/StackSidebar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** stackSidebarGetStack + StackSidebarGetStackMethodInfo , stackSidebarGetStack , @@ -25,6 +27,7 @@ -- ** stackSidebarSetStack + StackSidebarSetStackMethodInfo , stackSidebarSetStack , @@ -75,6 +78,331 @@ noStackSidebar :: Maybe StackSidebar noStackSidebar = Nothing +type family ResolveStackSidebarMethod (t :: Symbol) (o :: *) :: * where + ResolveStackSidebarMethod "activate" o = WidgetActivateMethodInfo + ResolveStackSidebarMethod "add" o = ContainerAddMethodInfo + ResolveStackSidebarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveStackSidebarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveStackSidebarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveStackSidebarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveStackSidebarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveStackSidebarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveStackSidebarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveStackSidebarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveStackSidebarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveStackSidebarMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveStackSidebarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveStackSidebarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveStackSidebarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveStackSidebarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveStackSidebarMethod "childType" o = ContainerChildTypeMethodInfo + ResolveStackSidebarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveStackSidebarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveStackSidebarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveStackSidebarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveStackSidebarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveStackSidebarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveStackSidebarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveStackSidebarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveStackSidebarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveStackSidebarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveStackSidebarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveStackSidebarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveStackSidebarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveStackSidebarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveStackSidebarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveStackSidebarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveStackSidebarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveStackSidebarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveStackSidebarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveStackSidebarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveStackSidebarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveStackSidebarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveStackSidebarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveStackSidebarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveStackSidebarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveStackSidebarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveStackSidebarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveStackSidebarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveStackSidebarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveStackSidebarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveStackSidebarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveStackSidebarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveStackSidebarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveStackSidebarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveStackSidebarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveStackSidebarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveStackSidebarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveStackSidebarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveStackSidebarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveStackSidebarMethod "draw" o = WidgetDrawMethodInfo + ResolveStackSidebarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveStackSidebarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveStackSidebarMethod "event" o = WidgetEventMethodInfo + ResolveStackSidebarMethod "forall" o = ContainerForallMethodInfo + ResolveStackSidebarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveStackSidebarMethod "foreach" o = ContainerForeachMethodInfo + ResolveStackSidebarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveStackSidebarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveStackSidebarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveStackSidebarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveStackSidebarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveStackSidebarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveStackSidebarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveStackSidebarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveStackSidebarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveStackSidebarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveStackSidebarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveStackSidebarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveStackSidebarMethod "hide" o = WidgetHideMethodInfo + ResolveStackSidebarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveStackSidebarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveStackSidebarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveStackSidebarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveStackSidebarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveStackSidebarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveStackSidebarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveStackSidebarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveStackSidebarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveStackSidebarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveStackSidebarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveStackSidebarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveStackSidebarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveStackSidebarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveStackSidebarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveStackSidebarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveStackSidebarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveStackSidebarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveStackSidebarMethod "map" o = WidgetMapMethodInfo + ResolveStackSidebarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveStackSidebarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveStackSidebarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveStackSidebarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveStackSidebarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveStackSidebarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveStackSidebarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveStackSidebarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveStackSidebarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveStackSidebarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveStackSidebarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveStackSidebarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveStackSidebarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveStackSidebarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveStackSidebarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveStackSidebarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveStackSidebarMethod "path" o = WidgetPathMethodInfo + ResolveStackSidebarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveStackSidebarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveStackSidebarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveStackSidebarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveStackSidebarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveStackSidebarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveStackSidebarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveStackSidebarMethod "realize" o = WidgetRealizeMethodInfo + ResolveStackSidebarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveStackSidebarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveStackSidebarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveStackSidebarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveStackSidebarMethod "remove" o = ContainerRemoveMethodInfo + ResolveStackSidebarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveStackSidebarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveStackSidebarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveStackSidebarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveStackSidebarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveStackSidebarMethod "reparent" o = WidgetReparentMethodInfo + ResolveStackSidebarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveStackSidebarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveStackSidebarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveStackSidebarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveStackSidebarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveStackSidebarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveStackSidebarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveStackSidebarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveStackSidebarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveStackSidebarMethod "show" o = WidgetShowMethodInfo + ResolveStackSidebarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveStackSidebarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveStackSidebarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveStackSidebarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveStackSidebarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveStackSidebarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveStackSidebarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveStackSidebarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveStackSidebarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveStackSidebarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveStackSidebarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveStackSidebarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveStackSidebarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveStackSidebarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveStackSidebarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveStackSidebarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveStackSidebarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveStackSidebarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveStackSidebarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveStackSidebarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveStackSidebarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveStackSidebarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveStackSidebarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveStackSidebarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveStackSidebarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveStackSidebarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveStackSidebarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveStackSidebarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveStackSidebarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveStackSidebarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveStackSidebarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveStackSidebarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveStackSidebarMethod "getChild" o = BinGetChildMethodInfo + ResolveStackSidebarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveStackSidebarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveStackSidebarMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveStackSidebarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveStackSidebarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveStackSidebarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveStackSidebarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveStackSidebarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveStackSidebarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveStackSidebarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveStackSidebarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveStackSidebarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveStackSidebarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveStackSidebarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveStackSidebarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveStackSidebarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveStackSidebarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveStackSidebarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveStackSidebarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveStackSidebarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveStackSidebarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveStackSidebarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveStackSidebarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveStackSidebarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveStackSidebarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveStackSidebarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveStackSidebarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveStackSidebarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveStackSidebarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveStackSidebarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveStackSidebarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveStackSidebarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveStackSidebarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveStackSidebarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveStackSidebarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveStackSidebarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveStackSidebarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveStackSidebarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveStackSidebarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveStackSidebarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveStackSidebarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveStackSidebarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveStackSidebarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveStackSidebarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveStackSidebarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveStackSidebarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveStackSidebarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveStackSidebarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveStackSidebarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveStackSidebarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveStackSidebarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveStackSidebarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveStackSidebarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveStackSidebarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveStackSidebarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveStackSidebarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveStackSidebarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveStackSidebarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveStackSidebarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveStackSidebarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveStackSidebarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveStackSidebarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveStackSidebarMethod "getStack" o = StackSidebarGetStackMethodInfo + ResolveStackSidebarMethod "getState" o = WidgetGetStateMethodInfo + ResolveStackSidebarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveStackSidebarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveStackSidebarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveStackSidebarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveStackSidebarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveStackSidebarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveStackSidebarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveStackSidebarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveStackSidebarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveStackSidebarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveStackSidebarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveStackSidebarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveStackSidebarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveStackSidebarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveStackSidebarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveStackSidebarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveStackSidebarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveStackSidebarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveStackSidebarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveStackSidebarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveStackSidebarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveStackSidebarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveStackSidebarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveStackSidebarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveStackSidebarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveStackSidebarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveStackSidebarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveStackSidebarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveStackSidebarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveStackSidebarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveStackSidebarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveStackSidebarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveStackSidebarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveStackSidebarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveStackSidebarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveStackSidebarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveStackSidebarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveStackSidebarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveStackSidebarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveStackSidebarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveStackSidebarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveStackSidebarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveStackSidebarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveStackSidebarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveStackSidebarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveStackSidebarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveStackSidebarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveStackSidebarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveStackSidebarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveStackSidebarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveStackSidebarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveStackSidebarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveStackSidebarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveStackSidebarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveStackSidebarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveStackSidebarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveStackSidebarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveStackSidebarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveStackSidebarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveStackSidebarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveStackSidebarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveStackSidebarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveStackSidebarMethod "setStack" o = StackSidebarSetStackMethodInfo + ResolveStackSidebarMethod "setState" o = WidgetSetStateMethodInfo + ResolveStackSidebarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveStackSidebarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveStackSidebarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveStackSidebarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveStackSidebarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveStackSidebarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveStackSidebarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveStackSidebarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveStackSidebarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveStackSidebarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveStackSidebarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveStackSidebarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveStackSidebarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveStackSidebarMethod t StackSidebar, MethodInfo info StackSidebar p) => IsLabelProxy t (StackSidebar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveStackSidebarMethod t StackSidebar, MethodInfo info StackSidebar p) => IsLabel t (StackSidebar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "stack" -- Type: TInterface "Gtk" "Stack" -- Flags: [PropertyReadable,PropertyWritable] @@ -94,22 +422,21 @@ type AttrSetTypeConstraint StackSidebarStackPropertyInfo = StackK type AttrBaseTypeConstraint StackSidebarStackPropertyInfo = StackSidebarK type AttrGetType StackSidebarStackPropertyInfo = Stack - type AttrLabel StackSidebarStackPropertyInfo = "StackSidebar::stack" + type AttrLabel StackSidebarStackPropertyInfo = "stack" attrGet _ = getStackSidebarStack attrSet _ = setStackSidebarStack attrConstruct _ = constructStackSidebarStack type instance AttributeList StackSidebar = StackSidebarAttributeList -type StackSidebarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stack", StackSidebarStackPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type StackSidebarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stack", StackSidebarStackPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList StackSidebar = StackSidebarSignalList -type StackSidebarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type StackSidebarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method StackSidebar::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "StackSidebar" -- throws : False -- Skip return : False @@ -120,7 +447,7 @@ stackSidebarNew :: (MonadIO m) => - m StackSidebar + m StackSidebar -- result stackSidebarNew = liftIO $ do result <- gtk_stack_sidebar_new checkUnexpectedReturnNULL "gtk_stack_sidebar_new" result @@ -129,9 +456,8 @@ -- method StackSidebar::get_stack -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Stack" -- throws : False -- Skip return : False @@ -143,8 +469,8 @@ stackSidebarGetStack :: (MonadIO m, StackSidebarK a) => - a -> -- _obj - m Stack + a -- _obj + -> m Stack -- result stackSidebarGetStack _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_stack_sidebar_get_stack _obj' @@ -153,11 +479,14 @@ touchManagedPtr _obj return result' +data StackSidebarGetStackMethodInfo +instance (signature ~ (m Stack), MonadIO m, StackSidebarK a) => MethodInfo StackSidebarGetStackMethodInfo a signature where + overloadedMethod _ = stackSidebarGetStack + -- method StackSidebar::set_stack -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -170,9 +499,9 @@ stackSidebarSetStack :: (MonadIO m, StackSidebarK a, StackK b) => - a -> -- _obj - b -> -- stack - m () + a -- _obj + -> b -- stack + -> m () -- result stackSidebarSetStack _obj stack = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let stack' = unsafeManagedPtrCastPtr stack @@ -180,5 +509,9 @@ touchManagedPtr _obj touchManagedPtr stack return () + +data StackSidebarSetStackMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, StackSidebarK a, StackK b) => MethodInfo StackSidebarSetStackMethodInfo a signature where + overloadedMethod _ = stackSidebarSetStack diff --git a/GI/Gtk/Objects/StackSidebar.hs-boot b/GI/Gtk/Objects/StackSidebar.hs-boot --- a/GI/Gtk/Objects/StackSidebar.hs-boot +++ b/GI/Gtk/Objects/StackSidebar.hs-boot @@ -12,3 +12,5 @@ class GObject o => StackSidebarK o instance (GObject o, IsDescendantOf StackSidebar o) => StackSidebarK o data StackSidebarStackPropertyInfo +data StackSidebarGetStackMethodInfo +data StackSidebarSetStackMethodInfo diff --git a/GI/Gtk/Objects/StackSwitcher.hs b/GI/Gtk/Objects/StackSwitcher.hs --- a/GI/Gtk/Objects/StackSwitcher.hs +++ b/GI/Gtk/Objects/StackSwitcher.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** stackSwitcherGetStack + StackSwitcherGetStackMethodInfo , stackSwitcherGetStack , @@ -25,6 +27,7 @@ -- ** stackSwitcherSetStack + StackSwitcherSetStackMethodInfo , stackSwitcherSetStack , @@ -75,6 +78,345 @@ noStackSwitcher :: Maybe StackSwitcher noStackSwitcher = Nothing +type family ResolveStackSwitcherMethod (t :: Symbol) (o :: *) :: * where + ResolveStackSwitcherMethod "activate" o = WidgetActivateMethodInfo + ResolveStackSwitcherMethod "add" o = ContainerAddMethodInfo + ResolveStackSwitcherMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveStackSwitcherMethod "addChild" o = BuildableAddChildMethodInfo + ResolveStackSwitcherMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveStackSwitcherMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveStackSwitcherMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveStackSwitcherMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveStackSwitcherMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveStackSwitcherMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveStackSwitcherMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveStackSwitcherMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveStackSwitcherMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveStackSwitcherMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveStackSwitcherMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveStackSwitcherMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveStackSwitcherMethod "childType" o = ContainerChildTypeMethodInfo + ResolveStackSwitcherMethod "classPath" o = WidgetClassPathMethodInfo + ResolveStackSwitcherMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveStackSwitcherMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveStackSwitcherMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveStackSwitcherMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveStackSwitcherMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveStackSwitcherMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveStackSwitcherMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveStackSwitcherMethod "destroy" o = WidgetDestroyMethodInfo + ResolveStackSwitcherMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveStackSwitcherMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveStackSwitcherMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveStackSwitcherMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveStackSwitcherMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveStackSwitcherMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveStackSwitcherMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveStackSwitcherMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveStackSwitcherMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveStackSwitcherMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveStackSwitcherMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveStackSwitcherMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveStackSwitcherMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveStackSwitcherMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveStackSwitcherMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveStackSwitcherMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveStackSwitcherMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveStackSwitcherMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveStackSwitcherMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveStackSwitcherMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveStackSwitcherMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveStackSwitcherMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveStackSwitcherMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveStackSwitcherMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveStackSwitcherMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveStackSwitcherMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveStackSwitcherMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveStackSwitcherMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveStackSwitcherMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveStackSwitcherMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveStackSwitcherMethod "draw" o = WidgetDrawMethodInfo + ResolveStackSwitcherMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveStackSwitcherMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveStackSwitcherMethod "event" o = WidgetEventMethodInfo + ResolveStackSwitcherMethod "forall" o = ContainerForallMethodInfo + ResolveStackSwitcherMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveStackSwitcherMethod "foreach" o = ContainerForeachMethodInfo + ResolveStackSwitcherMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveStackSwitcherMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveStackSwitcherMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveStackSwitcherMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveStackSwitcherMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveStackSwitcherMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveStackSwitcherMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveStackSwitcherMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveStackSwitcherMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveStackSwitcherMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveStackSwitcherMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveStackSwitcherMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveStackSwitcherMethod "hide" o = WidgetHideMethodInfo + ResolveStackSwitcherMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveStackSwitcherMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveStackSwitcherMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveStackSwitcherMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveStackSwitcherMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveStackSwitcherMethod "intersect" o = WidgetIntersectMethodInfo + ResolveStackSwitcherMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveStackSwitcherMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveStackSwitcherMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveStackSwitcherMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveStackSwitcherMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveStackSwitcherMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveStackSwitcherMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveStackSwitcherMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveStackSwitcherMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveStackSwitcherMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveStackSwitcherMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveStackSwitcherMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveStackSwitcherMethod "map" o = WidgetMapMethodInfo + ResolveStackSwitcherMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveStackSwitcherMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveStackSwitcherMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveStackSwitcherMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveStackSwitcherMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveStackSwitcherMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveStackSwitcherMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveStackSwitcherMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveStackSwitcherMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveStackSwitcherMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveStackSwitcherMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveStackSwitcherMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveStackSwitcherMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveStackSwitcherMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveStackSwitcherMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveStackSwitcherMethod "packEnd" o = BoxPackEndMethodInfo + ResolveStackSwitcherMethod "packStart" o = BoxPackStartMethodInfo + ResolveStackSwitcherMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveStackSwitcherMethod "path" o = WidgetPathMethodInfo + ResolveStackSwitcherMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveStackSwitcherMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveStackSwitcherMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveStackSwitcherMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveStackSwitcherMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveStackSwitcherMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveStackSwitcherMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveStackSwitcherMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveStackSwitcherMethod "realize" o = WidgetRealizeMethodInfo + ResolveStackSwitcherMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveStackSwitcherMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveStackSwitcherMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveStackSwitcherMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveStackSwitcherMethod "remove" o = ContainerRemoveMethodInfo + ResolveStackSwitcherMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveStackSwitcherMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveStackSwitcherMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveStackSwitcherMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveStackSwitcherMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveStackSwitcherMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveStackSwitcherMethod "reparent" o = WidgetReparentMethodInfo + ResolveStackSwitcherMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveStackSwitcherMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveStackSwitcherMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveStackSwitcherMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveStackSwitcherMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveStackSwitcherMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveStackSwitcherMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveStackSwitcherMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveStackSwitcherMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveStackSwitcherMethod "show" o = WidgetShowMethodInfo + ResolveStackSwitcherMethod "showAll" o = WidgetShowAllMethodInfo + ResolveStackSwitcherMethod "showNow" o = WidgetShowNowMethodInfo + ResolveStackSwitcherMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveStackSwitcherMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveStackSwitcherMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveStackSwitcherMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveStackSwitcherMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveStackSwitcherMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveStackSwitcherMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveStackSwitcherMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveStackSwitcherMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveStackSwitcherMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveStackSwitcherMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveStackSwitcherMethod "unmap" o = WidgetUnmapMethodInfo + ResolveStackSwitcherMethod "unparent" o = WidgetUnparentMethodInfo + ResolveStackSwitcherMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveStackSwitcherMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveStackSwitcherMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveStackSwitcherMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveStackSwitcherMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveStackSwitcherMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveStackSwitcherMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveStackSwitcherMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveStackSwitcherMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveStackSwitcherMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveStackSwitcherMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveStackSwitcherMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveStackSwitcherMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveStackSwitcherMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveStackSwitcherMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveStackSwitcherMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveStackSwitcherMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveStackSwitcherMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveStackSwitcherMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveStackSwitcherMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveStackSwitcherMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveStackSwitcherMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveStackSwitcherMethod "getClip" o = WidgetGetClipMethodInfo + ResolveStackSwitcherMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveStackSwitcherMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveStackSwitcherMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveStackSwitcherMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveStackSwitcherMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveStackSwitcherMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveStackSwitcherMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveStackSwitcherMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveStackSwitcherMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveStackSwitcherMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveStackSwitcherMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveStackSwitcherMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveStackSwitcherMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveStackSwitcherMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveStackSwitcherMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveStackSwitcherMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveStackSwitcherMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveStackSwitcherMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveStackSwitcherMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveStackSwitcherMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveStackSwitcherMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveStackSwitcherMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveStackSwitcherMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveStackSwitcherMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveStackSwitcherMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveStackSwitcherMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveStackSwitcherMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveStackSwitcherMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveStackSwitcherMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveStackSwitcherMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveStackSwitcherMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveStackSwitcherMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveStackSwitcherMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveStackSwitcherMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveStackSwitcherMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveStackSwitcherMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveStackSwitcherMethod "getParent" o = WidgetGetParentMethodInfo + ResolveStackSwitcherMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveStackSwitcherMethod "getPath" o = WidgetGetPathMethodInfo + ResolveStackSwitcherMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveStackSwitcherMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveStackSwitcherMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveStackSwitcherMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveStackSwitcherMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveStackSwitcherMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveStackSwitcherMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveStackSwitcherMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveStackSwitcherMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveStackSwitcherMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveStackSwitcherMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveStackSwitcherMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveStackSwitcherMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveStackSwitcherMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveStackSwitcherMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveStackSwitcherMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveStackSwitcherMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveStackSwitcherMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveStackSwitcherMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveStackSwitcherMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveStackSwitcherMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveStackSwitcherMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveStackSwitcherMethod "getStack" o = StackSwitcherGetStackMethodInfo + ResolveStackSwitcherMethod "getState" o = WidgetGetStateMethodInfo + ResolveStackSwitcherMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveStackSwitcherMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveStackSwitcherMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveStackSwitcherMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveStackSwitcherMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveStackSwitcherMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveStackSwitcherMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveStackSwitcherMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveStackSwitcherMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveStackSwitcherMethod "getValign" o = WidgetGetValignMethodInfo + ResolveStackSwitcherMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveStackSwitcherMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveStackSwitcherMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveStackSwitcherMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveStackSwitcherMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveStackSwitcherMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveStackSwitcherMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveStackSwitcherMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveStackSwitcherMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveStackSwitcherMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveStackSwitcherMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveStackSwitcherMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveStackSwitcherMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveStackSwitcherMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveStackSwitcherMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveStackSwitcherMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveStackSwitcherMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveStackSwitcherMethod "setClip" o = WidgetSetClipMethodInfo + ResolveStackSwitcherMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveStackSwitcherMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveStackSwitcherMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveStackSwitcherMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveStackSwitcherMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveStackSwitcherMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveStackSwitcherMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveStackSwitcherMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveStackSwitcherMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveStackSwitcherMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveStackSwitcherMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveStackSwitcherMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveStackSwitcherMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveStackSwitcherMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveStackSwitcherMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveStackSwitcherMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveStackSwitcherMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveStackSwitcherMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveStackSwitcherMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveStackSwitcherMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveStackSwitcherMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveStackSwitcherMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveStackSwitcherMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveStackSwitcherMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveStackSwitcherMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveStackSwitcherMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveStackSwitcherMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveStackSwitcherMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveStackSwitcherMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveStackSwitcherMethod "setParent" o = WidgetSetParentMethodInfo + ResolveStackSwitcherMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveStackSwitcherMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveStackSwitcherMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveStackSwitcherMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveStackSwitcherMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveStackSwitcherMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveStackSwitcherMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveStackSwitcherMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveStackSwitcherMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveStackSwitcherMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveStackSwitcherMethod "setStack" o = StackSwitcherSetStackMethodInfo + ResolveStackSwitcherMethod "setState" o = WidgetSetStateMethodInfo + ResolveStackSwitcherMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveStackSwitcherMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveStackSwitcherMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveStackSwitcherMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveStackSwitcherMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveStackSwitcherMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveStackSwitcherMethod "setValign" o = WidgetSetValignMethodInfo + ResolveStackSwitcherMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveStackSwitcherMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveStackSwitcherMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveStackSwitcherMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveStackSwitcherMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveStackSwitcherMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveStackSwitcherMethod t StackSwitcher, MethodInfo info StackSwitcher p) => IsLabelProxy t (StackSwitcher -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveStackSwitcherMethod t StackSwitcher, MethodInfo info StackSwitcher p) => IsLabel t (StackSwitcher -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "stack" -- Type: TInterface "Gtk" "Stack" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] @@ -94,22 +436,21 @@ type AttrSetTypeConstraint StackSwitcherStackPropertyInfo = StackK type AttrBaseTypeConstraint StackSwitcherStackPropertyInfo = StackSwitcherK type AttrGetType StackSwitcherStackPropertyInfo = Stack - type AttrLabel StackSwitcherStackPropertyInfo = "StackSwitcher::stack" + type AttrLabel StackSwitcherStackPropertyInfo = "stack" attrGet _ = getStackSwitcherStack attrSet _ = setStackSwitcherStack attrConstruct _ = constructStackSwitcherStack type instance AttributeList StackSwitcher = StackSwitcherAttributeList -type StackSwitcherAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("stack", StackSwitcherStackPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type StackSwitcherAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("stack", StackSwitcherStackPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList StackSwitcher = StackSwitcherSignalList -type StackSwitcherSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type StackSwitcherSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method StackSwitcher::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "StackSwitcher" -- throws : False -- Skip return : False @@ -120,7 +461,7 @@ stackSwitcherNew :: (MonadIO m) => - m StackSwitcher + m StackSwitcher -- result stackSwitcherNew = liftIO $ do result <- gtk_stack_switcher_new checkUnexpectedReturnNULL "gtk_stack_switcher_new" result @@ -129,9 +470,8 @@ -- method StackSwitcher::get_stack -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Stack" -- throws : False -- Skip return : False @@ -143,8 +483,8 @@ stackSwitcherGetStack :: (MonadIO m, StackSwitcherK a) => - a -> -- _obj - m Stack + a -- _obj + -> m Stack -- result stackSwitcherGetStack _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_stack_switcher_get_stack _obj' @@ -153,11 +493,14 @@ touchManagedPtr _obj return result' +data StackSwitcherGetStackMethodInfo +instance (signature ~ (m Stack), MonadIO m, StackSwitcherK a) => MethodInfo StackSwitcherGetStackMethodInfo a signature where + overloadedMethod _ = stackSwitcherGetStack + -- method StackSwitcher::set_stack -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -170,9 +513,9 @@ stackSwitcherSetStack :: (MonadIO m, StackSwitcherK a, StackK b) => - a -> -- _obj - Maybe (b) -> -- stack - m () + a -- _obj + -> Maybe (b) -- stack + -> m () -- result stackSwitcherSetStack _obj stack = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeStack <- case stack of @@ -184,5 +527,9 @@ touchManagedPtr _obj whenJust stack touchManagedPtr return () + +data StackSwitcherSetStackMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, StackSwitcherK a, StackK b) => MethodInfo StackSwitcherSetStackMethodInfo a signature where + overloadedMethod _ = stackSwitcherSetStack diff --git a/GI/Gtk/Objects/StackSwitcher.hs-boot b/GI/Gtk/Objects/StackSwitcher.hs-boot --- a/GI/Gtk/Objects/StackSwitcher.hs-boot +++ b/GI/Gtk/Objects/StackSwitcher.hs-boot @@ -12,3 +12,5 @@ class GObject o => StackSwitcherK o instance (GObject o, IsDescendantOf StackSwitcher o) => StackSwitcherK o data StackSwitcherStackPropertyInfo +data StackSwitcherGetStackMethodInfo +data StackSwitcherSetStackMethodInfo diff --git a/GI/Gtk/Objects/StatusIcon.hs b/GI/Gtk/Objects/StatusIcon.hs --- a/GI/Gtk/Objects/StatusIcon.hs +++ b/GI/Gtk/Objects/StatusIcon.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,62 +18,77 @@ -- * Methods -- ** statusIconGetGeometry + StatusIconGetGeometryMethodInfo , statusIconGetGeometry , -- ** statusIconGetGicon + StatusIconGetGiconMethodInfo , statusIconGetGicon , -- ** statusIconGetHasTooltip + StatusIconGetHasTooltipMethodInfo , statusIconGetHasTooltip , -- ** statusIconGetIconName + StatusIconGetIconNameMethodInfo , statusIconGetIconName , -- ** statusIconGetPixbuf + StatusIconGetPixbufMethodInfo , statusIconGetPixbuf , -- ** statusIconGetScreen + StatusIconGetScreenMethodInfo , statusIconGetScreen , -- ** statusIconGetSize + StatusIconGetSizeMethodInfo , statusIconGetSize , -- ** statusIconGetStock + StatusIconGetStockMethodInfo , statusIconGetStock , -- ** statusIconGetStorageType + StatusIconGetStorageTypeMethodInfo , statusIconGetStorageType , -- ** statusIconGetTitle + StatusIconGetTitleMethodInfo , statusIconGetTitle , -- ** statusIconGetTooltipMarkup + StatusIconGetTooltipMarkupMethodInfo , statusIconGetTooltipMarkup , -- ** statusIconGetTooltipText + StatusIconGetTooltipTextMethodInfo , statusIconGetTooltipText , -- ** statusIconGetVisible + StatusIconGetVisibleMethodInfo , statusIconGetVisible , -- ** statusIconGetX11WindowId + StatusIconGetX11WindowIdMethodInfo , statusIconGetX11WindowId , -- ** statusIconIsEmbedded + StatusIconIsEmbeddedMethodInfo , statusIconIsEmbedded , @@ -105,50 +121,62 @@ -- ** statusIconSetFromFile + StatusIconSetFromFileMethodInfo , statusIconSetFromFile , -- ** statusIconSetFromGicon + StatusIconSetFromGiconMethodInfo , statusIconSetFromGicon , -- ** statusIconSetFromIconName + StatusIconSetFromIconNameMethodInfo , statusIconSetFromIconName , -- ** statusIconSetFromPixbuf + StatusIconSetFromPixbufMethodInfo , statusIconSetFromPixbuf , -- ** statusIconSetFromStock + StatusIconSetFromStockMethodInfo , statusIconSetFromStock , -- ** statusIconSetHasTooltip + StatusIconSetHasTooltipMethodInfo , statusIconSetHasTooltip , -- ** statusIconSetName + StatusIconSetNameMethodInfo , statusIconSetName , -- ** statusIconSetScreen + StatusIconSetScreenMethodInfo , statusIconSetScreen , -- ** statusIconSetTitle + StatusIconSetTitleMethodInfo , statusIconSetTitle , -- ** statusIconSetTooltipMarkup + StatusIconSetTooltipMarkupMethodInfo , statusIconSetTooltipMarkup , -- ** statusIconSetTooltipText + StatusIconSetTooltipTextMethodInfo , statusIconSetTooltipText , -- ** statusIconSetVisible + StatusIconSetVisibleMethodInfo , statusIconSetVisible , @@ -377,6 +405,66 @@ noStatusIcon :: Maybe StatusIcon noStatusIcon = Nothing +type family ResolveStatusIconMethod (t :: Symbol) (o :: *) :: * where + ResolveStatusIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveStatusIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveStatusIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveStatusIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveStatusIconMethod "isEmbedded" o = StatusIconIsEmbeddedMethodInfo + ResolveStatusIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveStatusIconMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveStatusIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveStatusIconMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveStatusIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveStatusIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveStatusIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveStatusIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveStatusIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveStatusIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveStatusIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveStatusIconMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveStatusIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveStatusIconMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveStatusIconMethod "getGeometry" o = StatusIconGetGeometryMethodInfo + ResolveStatusIconMethod "getGicon" o = StatusIconGetGiconMethodInfo + ResolveStatusIconMethod "getHasTooltip" o = StatusIconGetHasTooltipMethodInfo + ResolveStatusIconMethod "getIconName" o = StatusIconGetIconNameMethodInfo + ResolveStatusIconMethod "getPixbuf" o = StatusIconGetPixbufMethodInfo + ResolveStatusIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveStatusIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveStatusIconMethod "getScreen" o = StatusIconGetScreenMethodInfo + ResolveStatusIconMethod "getSize" o = StatusIconGetSizeMethodInfo + ResolveStatusIconMethod "getStock" o = StatusIconGetStockMethodInfo + ResolveStatusIconMethod "getStorageType" o = StatusIconGetStorageTypeMethodInfo + ResolveStatusIconMethod "getTitle" o = StatusIconGetTitleMethodInfo + ResolveStatusIconMethod "getTooltipMarkup" o = StatusIconGetTooltipMarkupMethodInfo + ResolveStatusIconMethod "getTooltipText" o = StatusIconGetTooltipTextMethodInfo + ResolveStatusIconMethod "getVisible" o = StatusIconGetVisibleMethodInfo + ResolveStatusIconMethod "getX11WindowId" o = StatusIconGetX11WindowIdMethodInfo + ResolveStatusIconMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveStatusIconMethod "setFromFile" o = StatusIconSetFromFileMethodInfo + ResolveStatusIconMethod "setFromGicon" o = StatusIconSetFromGiconMethodInfo + ResolveStatusIconMethod "setFromIconName" o = StatusIconSetFromIconNameMethodInfo + ResolveStatusIconMethod "setFromPixbuf" o = StatusIconSetFromPixbufMethodInfo + ResolveStatusIconMethod "setFromStock" o = StatusIconSetFromStockMethodInfo + ResolveStatusIconMethod "setHasTooltip" o = StatusIconSetHasTooltipMethodInfo + ResolveStatusIconMethod "setName" o = StatusIconSetNameMethodInfo + ResolveStatusIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveStatusIconMethod "setScreen" o = StatusIconSetScreenMethodInfo + ResolveStatusIconMethod "setTitle" o = StatusIconSetTitleMethodInfo + ResolveStatusIconMethod "setTooltipMarkup" o = StatusIconSetTooltipMarkupMethodInfo + ResolveStatusIconMethod "setTooltipText" o = StatusIconSetTooltipTextMethodInfo + ResolveStatusIconMethod "setVisible" o = StatusIconSetVisibleMethodInfo + ResolveStatusIconMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveStatusIconMethod t StatusIcon, MethodInfo info StatusIcon p) => IsLabelProxy t (StatusIcon -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveStatusIconMethod t StatusIcon, MethodInfo info StatusIcon p) => IsLabel t (StatusIcon -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal StatusIcon::activate type StatusIconActivateCallback = IO () @@ -533,8 +621,8 @@ Word32 -> Ptr () -> IO () -statusIconPopupMenuCallbackWrapper _cb _ button activate_time _ = do - _cb button activate_time +statusIconPopupMenuCallbackWrapper _cb _ button activateTime _ = do + _cb button activateTime onStatusIconPopupMenu :: (GObject a, MonadIO m) => a -> StatusIconPopupMenuCallback -> m SignalHandlerId onStatusIconPopupMenu obj cb = liftIO $ connectStatusIconPopupMenu obj cb SignalConnectBefore @@ -583,10 +671,10 @@ Ptr Tooltip -> Ptr () -> IO CInt -statusIconQueryTooltipCallbackWrapper _cb _ x y keyboard_mode tooltip _ = do - let keyboard_mode' = (/= 0) keyboard_mode +statusIconQueryTooltipCallbackWrapper _cb _ x y keyboardMode tooltip _ = do + let keyboardMode' = (/= 0) keyboardMode tooltip' <- (newObject Tooltip) tooltip - result <- _cb x y keyboard_mode' tooltip' + result <- _cb x y keyboardMode' tooltip' let result' = (fromIntegral . fromEnum) result return result' @@ -701,7 +789,7 @@ type AttrSetTypeConstraint StatusIconEmbeddedPropertyInfo = (~) () type AttrBaseTypeConstraint StatusIconEmbeddedPropertyInfo = StatusIconK type AttrGetType StatusIconEmbeddedPropertyInfo = Bool - type AttrLabel StatusIconEmbeddedPropertyInfo = "StatusIcon::embedded" + type AttrLabel StatusIconEmbeddedPropertyInfo = "embedded" attrGet _ = getStatusIconEmbedded attrSet _ = undefined attrConstruct _ = undefined @@ -722,7 +810,7 @@ type AttrSetTypeConstraint StatusIconFilePropertyInfo = (~) T.Text type AttrBaseTypeConstraint StatusIconFilePropertyInfo = StatusIconK type AttrGetType StatusIconFilePropertyInfo = () - type AttrLabel StatusIconFilePropertyInfo = "StatusIcon::file" + type AttrLabel StatusIconFilePropertyInfo = "file" attrGet _ = undefined attrSet _ = setStatusIconFile attrConstruct _ = constructStatusIconFile @@ -746,7 +834,7 @@ type AttrSetTypeConstraint StatusIconGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint StatusIconGiconPropertyInfo = StatusIconK type AttrGetType StatusIconGiconPropertyInfo = Gio.Icon - type AttrLabel StatusIconGiconPropertyInfo = "StatusIcon::gicon" + type AttrLabel StatusIconGiconPropertyInfo = "gicon" attrGet _ = getStatusIconGicon attrSet _ = setStatusIconGicon attrConstruct _ = constructStatusIconGicon @@ -770,7 +858,7 @@ type AttrSetTypeConstraint StatusIconHasTooltipPropertyInfo = (~) Bool type AttrBaseTypeConstraint StatusIconHasTooltipPropertyInfo = StatusIconK type AttrGetType StatusIconHasTooltipPropertyInfo = Bool - type AttrLabel StatusIconHasTooltipPropertyInfo = "StatusIcon::has-tooltip" + type AttrLabel StatusIconHasTooltipPropertyInfo = "has-tooltip" attrGet _ = getStatusIconHasTooltip attrSet _ = setStatusIconHasTooltip attrConstruct _ = constructStatusIconHasTooltip @@ -794,7 +882,7 @@ type AttrSetTypeConstraint StatusIconIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint StatusIconIconNamePropertyInfo = StatusIconK type AttrGetType StatusIconIconNamePropertyInfo = T.Text - type AttrLabel StatusIconIconNamePropertyInfo = "StatusIcon::icon-name" + type AttrLabel StatusIconIconNamePropertyInfo = "icon-name" attrGet _ = getStatusIconIconName attrSet _ = setStatusIconIconName attrConstruct _ = constructStatusIconIconName @@ -812,7 +900,7 @@ type AttrSetTypeConstraint StatusIconOrientationPropertyInfo = (~) () type AttrBaseTypeConstraint StatusIconOrientationPropertyInfo = StatusIconK type AttrGetType StatusIconOrientationPropertyInfo = Orientation - type AttrLabel StatusIconOrientationPropertyInfo = "StatusIcon::orientation" + type AttrLabel StatusIconOrientationPropertyInfo = "orientation" attrGet _ = getStatusIconOrientation attrSet _ = undefined attrConstruct _ = undefined @@ -836,7 +924,7 @@ type AttrSetTypeConstraint StatusIconPixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint StatusIconPixbufPropertyInfo = StatusIconK type AttrGetType StatusIconPixbufPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel StatusIconPixbufPropertyInfo = "StatusIcon::pixbuf" + type AttrLabel StatusIconPixbufPropertyInfo = "pixbuf" attrGet _ = getStatusIconPixbuf attrSet _ = setStatusIconPixbuf attrConstruct _ = constructStatusIconPixbuf @@ -860,7 +948,7 @@ type AttrSetTypeConstraint StatusIconScreenPropertyInfo = Gdk.ScreenK type AttrBaseTypeConstraint StatusIconScreenPropertyInfo = StatusIconK type AttrGetType StatusIconScreenPropertyInfo = Gdk.Screen - type AttrLabel StatusIconScreenPropertyInfo = "StatusIcon::screen" + type AttrLabel StatusIconScreenPropertyInfo = "screen" attrGet _ = getStatusIconScreen attrSet _ = setStatusIconScreen attrConstruct _ = constructStatusIconScreen @@ -878,7 +966,7 @@ type AttrSetTypeConstraint StatusIconSizePropertyInfo = (~) () type AttrBaseTypeConstraint StatusIconSizePropertyInfo = StatusIconK type AttrGetType StatusIconSizePropertyInfo = Int32 - type AttrLabel StatusIconSizePropertyInfo = "StatusIcon::size" + type AttrLabel StatusIconSizePropertyInfo = "size" attrGet _ = getStatusIconSize attrSet _ = undefined attrConstruct _ = undefined @@ -902,7 +990,7 @@ type AttrSetTypeConstraint StatusIconStockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint StatusIconStockPropertyInfo = StatusIconK type AttrGetType StatusIconStockPropertyInfo = T.Text - type AttrLabel StatusIconStockPropertyInfo = "StatusIcon::stock" + type AttrLabel StatusIconStockPropertyInfo = "stock" attrGet _ = getStatusIconStock attrSet _ = setStatusIconStock attrConstruct _ = constructStatusIconStock @@ -920,7 +1008,7 @@ type AttrSetTypeConstraint StatusIconStorageTypePropertyInfo = (~) () type AttrBaseTypeConstraint StatusIconStorageTypePropertyInfo = StatusIconK type AttrGetType StatusIconStorageTypePropertyInfo = ImageType - type AttrLabel StatusIconStorageTypePropertyInfo = "StatusIcon::storage-type" + type AttrLabel StatusIconStorageTypePropertyInfo = "storage-type" attrGet _ = getStatusIconStorageType attrSet _ = undefined attrConstruct _ = undefined @@ -944,7 +1032,7 @@ type AttrSetTypeConstraint StatusIconTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint StatusIconTitlePropertyInfo = StatusIconK type AttrGetType StatusIconTitlePropertyInfo = T.Text - type AttrLabel StatusIconTitlePropertyInfo = "StatusIcon::title" + type AttrLabel StatusIconTitlePropertyInfo = "title" attrGet _ = getStatusIconTitle attrSet _ = setStatusIconTitle attrConstruct _ = constructStatusIconTitle @@ -968,7 +1056,7 @@ type AttrSetTypeConstraint StatusIconTooltipMarkupPropertyInfo = (~) T.Text type AttrBaseTypeConstraint StatusIconTooltipMarkupPropertyInfo = StatusIconK type AttrGetType StatusIconTooltipMarkupPropertyInfo = T.Text - type AttrLabel StatusIconTooltipMarkupPropertyInfo = "StatusIcon::tooltip-markup" + type AttrLabel StatusIconTooltipMarkupPropertyInfo = "tooltip-markup" attrGet _ = getStatusIconTooltipMarkup attrSet _ = setStatusIconTooltipMarkup attrConstruct _ = constructStatusIconTooltipMarkup @@ -992,7 +1080,7 @@ type AttrSetTypeConstraint StatusIconTooltipTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint StatusIconTooltipTextPropertyInfo = StatusIconK type AttrGetType StatusIconTooltipTextPropertyInfo = T.Text - type AttrLabel StatusIconTooltipTextPropertyInfo = "StatusIcon::tooltip-text" + type AttrLabel StatusIconTooltipTextPropertyInfo = "tooltip-text" attrGet _ = getStatusIconTooltipText attrSet _ = setStatusIconTooltipText attrConstruct _ = constructStatusIconTooltipText @@ -1016,13 +1104,13 @@ type AttrSetTypeConstraint StatusIconVisiblePropertyInfo = (~) Bool type AttrBaseTypeConstraint StatusIconVisiblePropertyInfo = StatusIconK type AttrGetType StatusIconVisiblePropertyInfo = Bool - type AttrLabel StatusIconVisiblePropertyInfo = "StatusIcon::visible" + type AttrLabel StatusIconVisiblePropertyInfo = "visible" attrGet _ = getStatusIconVisible attrSet _ = setStatusIconVisible attrConstruct _ = constructStatusIconVisible type instance AttributeList StatusIcon = StatusIconAttributeList -type StatusIconAttributeList = ('[ '("embedded", StatusIconEmbeddedPropertyInfo), '("file", StatusIconFilePropertyInfo), '("gicon", StatusIconGiconPropertyInfo), '("has-tooltip", StatusIconHasTooltipPropertyInfo), '("icon-name", StatusIconIconNamePropertyInfo), '("orientation", StatusIconOrientationPropertyInfo), '("pixbuf", StatusIconPixbufPropertyInfo), '("screen", StatusIconScreenPropertyInfo), '("size", StatusIconSizePropertyInfo), '("stock", StatusIconStockPropertyInfo), '("storage-type", StatusIconStorageTypePropertyInfo), '("title", StatusIconTitlePropertyInfo), '("tooltip-markup", StatusIconTooltipMarkupPropertyInfo), '("tooltip-text", StatusIconTooltipTextPropertyInfo), '("visible", StatusIconVisiblePropertyInfo)] :: [(Symbol, *)]) +type StatusIconAttributeList = ('[ '("embedded", StatusIconEmbeddedPropertyInfo), '("file", StatusIconFilePropertyInfo), '("gicon", StatusIconGiconPropertyInfo), '("hasTooltip", StatusIconHasTooltipPropertyInfo), '("iconName", StatusIconIconNamePropertyInfo), '("orientation", StatusIconOrientationPropertyInfo), '("pixbuf", StatusIconPixbufPropertyInfo), '("screen", StatusIconScreenPropertyInfo), '("size", StatusIconSizePropertyInfo), '("stock", StatusIconStockPropertyInfo), '("storageType", StatusIconStorageTypePropertyInfo), '("title", StatusIconTitlePropertyInfo), '("tooltipMarkup", StatusIconTooltipMarkupPropertyInfo), '("tooltipText", StatusIconTooltipTextPropertyInfo), '("visible", StatusIconVisiblePropertyInfo)] :: [(Symbol, *)]) data StatusIconActivateSignalInfo instance SignalInfo StatusIconActivateSignalInfo where @@ -1060,13 +1148,12 @@ connectSignal _ = connectStatusIconSizeChanged type instance SignalList StatusIcon = StatusIconSignalList -type StatusIconSignalList = ('[ '("activate", StatusIconActivateSignalInfo), '("button-press-event", StatusIconButtonPressEventSignalInfo), '("button-release-event", StatusIconButtonReleaseEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("popup-menu", StatusIconPopupMenuSignalInfo), '("query-tooltip", StatusIconQueryTooltipSignalInfo), '("scroll-event", StatusIconScrollEventSignalInfo), '("size-changed", StatusIconSizeChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type StatusIconSignalList = ('[ '("activate", StatusIconActivateSignalInfo), '("buttonPressEvent", StatusIconButtonPressEventSignalInfo), '("buttonReleaseEvent", StatusIconButtonReleaseEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("popupMenu", StatusIconPopupMenuSignalInfo), '("queryTooltip", StatusIconQueryTooltipSignalInfo), '("scrollEvent", StatusIconScrollEventSignalInfo), '("sizeChanged", StatusIconSizeChangedSignalInfo)] :: [(Symbol, *)]) -- method StatusIcon::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "StatusIcon" -- throws : False -- Skip return : False @@ -1077,7 +1164,7 @@ {-# DEPRECATED statusIconNew ["(Since version 3.14)","Use notifications"]#-} statusIconNew :: (MonadIO m) => - m StatusIcon + m StatusIcon -- result statusIconNew = liftIO $ do result <- gtk_status_icon_new checkUnexpectedReturnNULL "gtk_status_icon_new" result @@ -1086,9 +1173,8 @@ -- method StatusIcon::new_from_file -- method type : Constructor --- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StatusIcon" -- throws : False -- Skip return : False @@ -1100,8 +1186,8 @@ {-# DEPRECATED statusIconNewFromFile ["(Since version 3.14)","Use notifications"]#-} statusIconNewFromFile :: (MonadIO m) => - [Char] -> -- filename - m StatusIcon + [Char] -- filename + -> m StatusIcon -- result statusIconNewFromFile filename = liftIO $ do filename' <- stringToCString filename result <- gtk_status_icon_new_from_file filename' @@ -1112,9 +1198,8 @@ -- method StatusIcon::new_from_gicon -- method type : Constructor --- Args : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StatusIcon" -- throws : False -- Skip return : False @@ -1126,8 +1211,8 @@ {-# DEPRECATED statusIconNewFromGicon ["(Since version 3.14)","Use notifications"]#-} statusIconNewFromGicon :: (MonadIO m, Gio.IconK a) => - a -> -- icon - m StatusIcon + a -- icon + -> m StatusIcon -- result statusIconNewFromGicon icon = liftIO $ do let icon' = unsafeManagedPtrCastPtr icon result <- gtk_status_icon_new_from_gicon icon' @@ -1138,9 +1223,8 @@ -- method StatusIcon::new_from_icon_name -- method type : Constructor --- Args : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StatusIcon" -- throws : False -- Skip return : False @@ -1152,21 +1236,20 @@ {-# DEPRECATED statusIconNewFromIconName ["(Since version 3.14)","Use notifications"]#-} statusIconNewFromIconName :: (MonadIO m) => - T.Text -> -- icon_name - m StatusIcon -statusIconNewFromIconName icon_name = liftIO $ do - icon_name' <- textToCString icon_name - result <- gtk_status_icon_new_from_icon_name icon_name' + T.Text -- iconName + -> m StatusIcon -- result +statusIconNewFromIconName iconName = liftIO $ do + iconName' <- textToCString iconName + result <- gtk_status_icon_new_from_icon_name iconName' checkUnexpectedReturnNULL "gtk_status_icon_new_from_icon_name" result result' <- (wrapObject StatusIcon) result - freeMem icon_name' + freeMem iconName' return result' -- method StatusIcon::new_from_pixbuf -- method type : Constructor --- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StatusIcon" -- throws : False -- Skip return : False @@ -1178,8 +1261,8 @@ {-# DEPRECATED statusIconNewFromPixbuf ["(Since version 3.14)","Use notifications"]#-} statusIconNewFromPixbuf :: (MonadIO m, GdkPixbuf.PixbufK a) => - a -> -- pixbuf - m StatusIcon + a -- pixbuf + -> m StatusIcon -- result statusIconNewFromPixbuf pixbuf = liftIO $ do let pixbuf' = unsafeManagedPtrCastPtr pixbuf result <- gtk_status_icon_new_from_pixbuf pixbuf' @@ -1190,9 +1273,8 @@ -- method StatusIcon::new_from_stock -- method type : Constructor --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StatusIcon" -- throws : False -- Skip return : False @@ -1204,21 +1286,20 @@ {-# DEPRECATED statusIconNewFromStock ["(Since version 3.10)","Use gtk_status_icon_new_from_icon_name() instead."]#-} statusIconNewFromStock :: (MonadIO m) => - T.Text -> -- stock_id - m StatusIcon -statusIconNewFromStock stock_id = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_status_icon_new_from_stock stock_id' + T.Text -- stockId + -> m StatusIcon -- result +statusIconNewFromStock stockId = liftIO $ do + stockId' <- textToCString stockId + result <- gtk_status_icon_new_from_stock stockId' checkUnexpectedReturnNULL "gtk_status_icon_new_from_stock" result result' <- (wrapObject StatusIcon) result - freeMem stock_id' + freeMem stockId' return result' -- method StatusIcon::get_geometry -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1233,8 +1314,8 @@ {-# DEPRECATED statusIconGetGeometry ["(Since version 3.14)","Use notifications"]#-} statusIconGetGeometry :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m (Bool,Gdk.Screen,Gdk.Rectangle,Orientation) + a -- _obj + -> m (Bool,Gdk.Screen,Gdk.Rectangle,Orientation)-- result statusIconGetGeometry _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj screen <- allocMem :: IO (Ptr (Ptr Gdk.Screen)) @@ -1252,11 +1333,14 @@ freeMem orientation return (result', screen'', area', orientation'') +data StatusIconGetGeometryMethodInfo +instance (signature ~ (m (Bool,Gdk.Screen,Gdk.Rectangle,Orientation)), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetGeometryMethodInfo a signature where + overloadedMethod _ = statusIconGetGeometry + -- method StatusIcon::get_gicon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -1268,8 +1352,8 @@ {-# DEPRECATED statusIconGetGicon ["(Since version 3.14)","Use notifications"]#-} statusIconGetGicon :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m Gio.Icon + a -- _obj + -> m Gio.Icon -- result statusIconGetGicon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_gicon _obj' @@ -1278,11 +1362,14 @@ touchManagedPtr _obj return result' +data StatusIconGetGiconMethodInfo +instance (signature ~ (m Gio.Icon), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetGiconMethodInfo a signature where + overloadedMethod _ = statusIconGetGicon + -- method StatusIcon::get_has_tooltip -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1294,8 +1381,8 @@ {-# DEPRECATED statusIconGetHasTooltip ["(Since version 3.14)","Use notifications"]#-} statusIconGetHasTooltip :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result statusIconGetHasTooltip _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_has_tooltip _obj' @@ -1303,11 +1390,14 @@ touchManagedPtr _obj return result' +data StatusIconGetHasTooltipMethodInfo +instance (signature ~ (m Bool), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetHasTooltipMethodInfo a signature where + overloadedMethod _ = statusIconGetHasTooltip + -- method StatusIcon::get_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1319,8 +1409,8 @@ {-# DEPRECATED statusIconGetIconName ["(Since version 3.14)","Use notifications"]#-} statusIconGetIconName :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result statusIconGetIconName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_icon_name _obj' @@ -1329,11 +1419,14 @@ touchManagedPtr _obj return result' +data StatusIconGetIconNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetIconNameMethodInfo a signature where + overloadedMethod _ = statusIconGetIconName + -- method StatusIcon::get_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -1345,8 +1438,8 @@ {-# DEPRECATED statusIconGetPixbuf ["(Since version 3.14)","Use notifications"]#-} statusIconGetPixbuf :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m GdkPixbuf.Pixbuf + a -- _obj + -> m GdkPixbuf.Pixbuf -- result statusIconGetPixbuf _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_pixbuf _obj' @@ -1355,11 +1448,14 @@ touchManagedPtr _obj return result' +data StatusIconGetPixbufMethodInfo +instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetPixbufMethodInfo a signature where + overloadedMethod _ = statusIconGetPixbuf + -- method StatusIcon::get_screen -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Screen" -- throws : False -- Skip return : False @@ -1371,8 +1467,8 @@ {-# DEPRECATED statusIconGetScreen ["(Since version 3.14)","Use notifications"]#-} statusIconGetScreen :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m Gdk.Screen + a -- _obj + -> m Gdk.Screen -- result statusIconGetScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_screen _obj' @@ -1381,11 +1477,14 @@ touchManagedPtr _obj return result' +data StatusIconGetScreenMethodInfo +instance (signature ~ (m Gdk.Screen), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetScreenMethodInfo a signature where + overloadedMethod _ = statusIconGetScreen + -- method StatusIcon::get_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1397,19 +1496,22 @@ {-# DEPRECATED statusIconGetSize ["(Since version 3.14)","Use notifications"]#-} statusIconGetSize :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result statusIconGetSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_size _obj' touchManagedPtr _obj return result +data StatusIconGetSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetSizeMethodInfo a signature where + overloadedMethod _ = statusIconGetSize + -- method StatusIcon::get_stock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1421,8 +1523,8 @@ {-# DEPRECATED statusIconGetStock ["(Since version 3.10)","Use gtk_status_icon_get_icon_name() instead."]#-} statusIconGetStock :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result statusIconGetStock _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_stock _obj' @@ -1431,11 +1533,14 @@ touchManagedPtr _obj return result' +data StatusIconGetStockMethodInfo +instance (signature ~ (m T.Text), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetStockMethodInfo a signature where + overloadedMethod _ = statusIconGetStock + -- method StatusIcon::get_storage_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ImageType" -- throws : False -- Skip return : False @@ -1447,8 +1552,8 @@ {-# DEPRECATED statusIconGetStorageType ["(Since version 3.14)","Use notifications"]#-} statusIconGetStorageType :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m ImageType + a -- _obj + -> m ImageType -- result statusIconGetStorageType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_storage_type _obj' @@ -1456,11 +1561,14 @@ touchManagedPtr _obj return result' +data StatusIconGetStorageTypeMethodInfo +instance (signature ~ (m ImageType), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetStorageTypeMethodInfo a signature where + overloadedMethod _ = statusIconGetStorageType + -- method StatusIcon::get_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1472,8 +1580,8 @@ {-# DEPRECATED statusIconGetTitle ["(Since version 3.14)","Use notifications"]#-} statusIconGetTitle :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result statusIconGetTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_title _obj' @@ -1482,11 +1590,14 @@ touchManagedPtr _obj return result' +data StatusIconGetTitleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetTitleMethodInfo a signature where + overloadedMethod _ = statusIconGetTitle + -- method StatusIcon::get_tooltip_markup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1498,8 +1609,8 @@ {-# DEPRECATED statusIconGetTooltipMarkup ["(Since version 3.14)","Use notifications"]#-} statusIconGetTooltipMarkup :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result statusIconGetTooltipMarkup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_tooltip_markup _obj' @@ -1509,11 +1620,14 @@ touchManagedPtr _obj return result' +data StatusIconGetTooltipMarkupMethodInfo +instance (signature ~ (m T.Text), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetTooltipMarkupMethodInfo a signature where + overloadedMethod _ = statusIconGetTooltipMarkup + -- method StatusIcon::get_tooltip_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1525,8 +1639,8 @@ {-# DEPRECATED statusIconGetTooltipText ["(Since version 3.14)","Use notifications"]#-} statusIconGetTooltipText :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result statusIconGetTooltipText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_tooltip_text _obj' @@ -1536,11 +1650,14 @@ touchManagedPtr _obj return result' +data StatusIconGetTooltipTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetTooltipTextMethodInfo a signature where + overloadedMethod _ = statusIconGetTooltipText + -- method StatusIcon::get_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1552,8 +1669,8 @@ {-# DEPRECATED statusIconGetVisible ["(Since version 3.14)","Use notifications"]#-} statusIconGetVisible :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result statusIconGetVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_visible _obj' @@ -1561,11 +1678,14 @@ touchManagedPtr _obj return result' +data StatusIconGetVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetVisibleMethodInfo a signature where + overloadedMethod _ = statusIconGetVisible + -- method StatusIcon::get_x11_window_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -1577,19 +1697,22 @@ {-# DEPRECATED statusIconGetX11WindowId ["(Since version 3.14)","Use notifications"]#-} statusIconGetX11WindowId :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result statusIconGetX11WindowId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_get_x11_window_id _obj' touchManagedPtr _obj return result +data StatusIconGetX11WindowIdMethodInfo +instance (signature ~ (m Word32), MonadIO m, StatusIconK a) => MethodInfo StatusIconGetX11WindowIdMethodInfo a signature where + overloadedMethod _ = statusIconGetX11WindowId + -- method StatusIcon::is_embedded -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1601,8 +1724,8 @@ {-# DEPRECATED statusIconIsEmbedded ["(Since version 3.14)","Use notifications"]#-} statusIconIsEmbedded :: (MonadIO m, StatusIconK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result statusIconIsEmbedded _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_status_icon_is_embedded _obj' @@ -1610,11 +1733,14 @@ touchManagedPtr _obj return result' +data StatusIconIsEmbeddedMethodInfo +instance (signature ~ (m Bool), MonadIO m, StatusIconK a) => MethodInfo StatusIconIsEmbeddedMethodInfo a signature where + overloadedMethod _ = statusIconIsEmbedded + -- method StatusIcon::set_from_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1627,9 +1753,9 @@ {-# DEPRECATED statusIconSetFromFile ["(Since version 3.14)","Use notifications"]#-} statusIconSetFromFile :: (MonadIO m, StatusIconK a) => - a -> -- _obj - [Char] -> -- filename - m () + a -- _obj + -> [Char] -- filename + -> m () -- result statusIconSetFromFile _obj filename = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj filename' <- stringToCString filename @@ -1638,11 +1764,14 @@ freeMem filename' return () +data StatusIconSetFromFileMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetFromFileMethodInfo a signature where + overloadedMethod _ = statusIconSetFromFile + -- method StatusIcon::set_from_gicon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1655,9 +1784,9 @@ {-# DEPRECATED statusIconSetFromGicon ["(Since version 3.14)","Use notifications"]#-} statusIconSetFromGicon :: (MonadIO m, StatusIconK a, Gio.IconK b) => - a -> -- _obj - b -> -- icon - m () + a -- _obj + -> b -- icon + -> m () -- result statusIconSetFromGicon _obj icon = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let icon' = unsafeManagedPtrCastPtr icon @@ -1666,11 +1795,14 @@ touchManagedPtr icon return () +data StatusIconSetFromGiconMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, StatusIconK a, Gio.IconK b) => MethodInfo StatusIconSetFromGiconMethodInfo a signature where + overloadedMethod _ = statusIconSetFromGicon + -- method StatusIcon::set_from_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1683,22 +1815,25 @@ {-# DEPRECATED statusIconSetFromIconName ["(Since version 3.14)","Use notifications"]#-} statusIconSetFromIconName :: (MonadIO m, StatusIconK a) => - a -> -- _obj - T.Text -> -- icon_name - m () -statusIconSetFromIconName _obj icon_name = liftIO $ do + a -- _obj + -> T.Text -- iconName + -> m () -- result +statusIconSetFromIconName _obj iconName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - gtk_status_icon_set_from_icon_name _obj' icon_name' + iconName' <- textToCString iconName + gtk_status_icon_set_from_icon_name _obj' iconName' touchManagedPtr _obj - freeMem icon_name' + freeMem iconName' return () +data StatusIconSetFromIconNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetFromIconNameMethodInfo a signature where + overloadedMethod _ = statusIconSetFromIconName + -- method StatusIcon::set_from_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1711,9 +1846,9 @@ {-# DEPRECATED statusIconSetFromPixbuf ["(Since version 3.14)","Use notifications"]#-} statusIconSetFromPixbuf :: (MonadIO m, StatusIconK a, GdkPixbuf.PixbufK b) => - a -> -- _obj - Maybe (b) -> -- pixbuf - m () + a -- _obj + -> Maybe (b) -- pixbuf + -> m () -- result statusIconSetFromPixbuf _obj pixbuf = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybePixbuf <- case pixbuf of @@ -1726,11 +1861,14 @@ whenJust pixbuf touchManagedPtr return () +data StatusIconSetFromPixbufMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, StatusIconK a, GdkPixbuf.PixbufK b) => MethodInfo StatusIconSetFromPixbufMethodInfo a signature where + overloadedMethod _ = statusIconSetFromPixbuf + -- method StatusIcon::set_from_stock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1743,22 +1881,25 @@ {-# DEPRECATED statusIconSetFromStock ["(Since version 3.10)","Use gtk_status_icon_set_from_icon_name() instead."]#-} statusIconSetFromStock :: (MonadIO m, StatusIconK a) => - a -> -- _obj - T.Text -> -- stock_id - m () -statusIconSetFromStock _obj stock_id = liftIO $ do + a -- _obj + -> T.Text -- stockId + -> m () -- result +statusIconSetFromStock _obj stockId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - gtk_status_icon_set_from_stock _obj' stock_id' + stockId' <- textToCString stockId + gtk_status_icon_set_from_stock _obj' stockId' touchManagedPtr _obj - freeMem stock_id' + freeMem stockId' return () +data StatusIconSetFromStockMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetFromStockMethodInfo a signature where + overloadedMethod _ = statusIconSetFromStock + -- method StatusIcon::set_has_tooltip -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1771,21 +1912,24 @@ {-# DEPRECATED statusIconSetHasTooltip ["(Since version 3.14)","Use notifications"]#-} statusIconSetHasTooltip :: (MonadIO m, StatusIconK a) => - a -> -- _obj - Bool -> -- has_tooltip - m () -statusIconSetHasTooltip _obj has_tooltip = liftIO $ do + a -- _obj + -> Bool -- hasTooltip + -> m () -- result +statusIconSetHasTooltip _obj hasTooltip = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let has_tooltip' = (fromIntegral . fromEnum) has_tooltip - gtk_status_icon_set_has_tooltip _obj' has_tooltip' + let hasTooltip' = (fromIntegral . fromEnum) hasTooltip + gtk_status_icon_set_has_tooltip _obj' hasTooltip' touchManagedPtr _obj return () +data StatusIconSetHasTooltipMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetHasTooltipMethodInfo a signature where + overloadedMethod _ = statusIconSetHasTooltip + -- method StatusIcon::set_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1798,9 +1942,9 @@ {-# DEPRECATED statusIconSetName ["(Since version 3.14)","Use notifications"]#-} statusIconSetName :: (MonadIO m, StatusIconK a) => - a -> -- _obj - T.Text -> -- name - m () + a -- _obj + -> T.Text -- name + -> m () -- result statusIconSetName _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -1809,11 +1953,14 @@ freeMem name' return () +data StatusIconSetNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetNameMethodInfo a signature where + overloadedMethod _ = statusIconSetName + -- method StatusIcon::set_screen -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1826,9 +1973,9 @@ {-# DEPRECATED statusIconSetScreen ["(Since version 3.14)","Use notifications"]#-} statusIconSetScreen :: (MonadIO m, StatusIconK a, Gdk.ScreenK b) => - a -> -- _obj - b -> -- screen - m () + a -- _obj + -> b -- screen + -> m () -- result statusIconSetScreen _obj screen = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let screen' = unsafeManagedPtrCastPtr screen @@ -1837,11 +1984,14 @@ touchManagedPtr screen return () +data StatusIconSetScreenMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, StatusIconK a, Gdk.ScreenK b) => MethodInfo StatusIconSetScreenMethodInfo a signature where + overloadedMethod _ = statusIconSetScreen + -- method StatusIcon::set_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1854,9 +2004,9 @@ {-# DEPRECATED statusIconSetTitle ["(Since version 3.14)","Use notifications"]#-} statusIconSetTitle :: (MonadIO m, StatusIconK a) => - a -> -- _obj - T.Text -> -- title - m () + a -- _obj + -> T.Text -- title + -> m () -- result statusIconSetTitle _obj title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj title' <- textToCString title @@ -1865,11 +2015,14 @@ freeMem title' return () +data StatusIconSetTitleMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetTitleMethodInfo a signature where + overloadedMethod _ = statusIconSetTitle + -- method StatusIcon::set_tooltip_markup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1882,9 +2035,9 @@ {-# DEPRECATED statusIconSetTooltipMarkup ["(Since version 3.14)","Use notifications"]#-} statusIconSetTooltipMarkup :: (MonadIO m, StatusIconK a) => - a -> -- _obj - Maybe (T.Text) -> -- markup - m () + a -- _obj + -> Maybe (T.Text) -- markup + -> m () -- result statusIconSetTooltipMarkup _obj markup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeMarkup <- case markup of @@ -1897,11 +2050,14 @@ freeMem maybeMarkup return () +data StatusIconSetTooltipMarkupMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetTooltipMarkupMethodInfo a signature where + overloadedMethod _ = statusIconSetTooltipMarkup + -- method StatusIcon::set_tooltip_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1914,9 +2070,9 @@ {-# DEPRECATED statusIconSetTooltipText ["(Since version 3.14)","Use notifications"]#-} statusIconSetTooltipText :: (MonadIO m, StatusIconK a) => - a -> -- _obj - T.Text -> -- text - m () + a -- _obj + -> T.Text -- text + -> m () -- result statusIconSetTooltipText _obj text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text @@ -1925,11 +2081,14 @@ freeMem text' return () +data StatusIconSetTooltipTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetTooltipTextMethodInfo a signature where + overloadedMethod _ = statusIconSetTooltipText + -- method StatusIcon::set_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1942,9 +2101,9 @@ {-# DEPRECATED statusIconSetVisible ["(Since version 3.14)","Use notifications"]#-} statusIconSetVisible :: (MonadIO m, StatusIconK a) => - a -> -- _obj - Bool -> -- visible - m () + a -- _obj + -> Bool -- visible + -> m () -- result statusIconSetVisible _obj visible = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let visible' = (fromIntegral . fromEnum) visible @@ -1952,11 +2111,14 @@ touchManagedPtr _obj return () +data StatusIconSetVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, StatusIconK a) => MethodInfo StatusIconSetVisibleMethodInfo a signature where + overloadedMethod _ = statusIconSetVisible + -- method StatusIcon::position_menu -- method type : MemberFunction --- Args : [Arg {argName = "menu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "push_in", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "user_data", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "menu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "push_in", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "user_data", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "menu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "user_data", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1972,29 +2134,29 @@ {-# DEPRECATED statusIconPositionMenu ["(Since version 3.14)","Use notifications"]#-} statusIconPositionMenu :: (MonadIO m, MenuK a, StatusIconK b) => - a -> -- menu - Int32 -> -- x - Int32 -> -- y - b -> -- user_data - m (Int32,Int32,Bool) -statusIconPositionMenu menu x y user_data = liftIO $ do + a -- menu + -> Int32 -- x + -> Int32 -- y + -> b -- userData + -> m (Int32,Int32,Bool) -- result +statusIconPositionMenu menu x y userData = liftIO $ do let menu' = unsafeManagedPtrCastPtr menu x' <- allocMem :: IO (Ptr Int32) poke x' x y' <- allocMem :: IO (Ptr Int32) poke y' y - push_in <- allocMem :: IO (Ptr CInt) - let user_data' = unsafeManagedPtrCastPtr user_data - gtk_status_icon_position_menu menu' x' y' push_in user_data' + pushIn <- allocMem :: IO (Ptr CInt) + let userData' = unsafeManagedPtrCastPtr userData + gtk_status_icon_position_menu menu' x' y' pushIn userData' x'' <- peek x' y'' <- peek y' - push_in' <- peek push_in - let push_in'' = (/= 0) push_in' + pushIn' <- peek pushIn + let pushIn'' = (/= 0) pushIn' touchManagedPtr menu - touchManagedPtr user_data + touchManagedPtr userData freeMem x' freeMem y' - freeMem push_in - return (x'', y'', push_in'') + freeMem pushIn + return (x'', y'', pushIn'') diff --git a/GI/Gtk/Objects/StatusIcon.hs-boot b/GI/Gtk/Objects/StatusIcon.hs-boot --- a/GI/Gtk/Objects/StatusIcon.hs-boot +++ b/GI/Gtk/Objects/StatusIcon.hs-boot @@ -33,3 +33,30 @@ data StatusIconQueryTooltipSignalInfo data StatusIconScrollEventSignalInfo data StatusIconSizeChangedSignalInfo +data StatusIconGetGeometryMethodInfo +data StatusIconGetGiconMethodInfo +data StatusIconGetHasTooltipMethodInfo +data StatusIconGetIconNameMethodInfo +data StatusIconGetPixbufMethodInfo +data StatusIconGetScreenMethodInfo +data StatusIconGetSizeMethodInfo +data StatusIconGetStockMethodInfo +data StatusIconGetStorageTypeMethodInfo +data StatusIconGetTitleMethodInfo +data StatusIconGetTooltipMarkupMethodInfo +data StatusIconGetTooltipTextMethodInfo +data StatusIconGetVisibleMethodInfo +data StatusIconGetX11WindowIdMethodInfo +data StatusIconIsEmbeddedMethodInfo +data StatusIconSetFromFileMethodInfo +data StatusIconSetFromGiconMethodInfo +data StatusIconSetFromIconNameMethodInfo +data StatusIconSetFromPixbufMethodInfo +data StatusIconSetFromStockMethodInfo +data StatusIconSetHasTooltipMethodInfo +data StatusIconSetNameMethodInfo +data StatusIconSetScreenMethodInfo +data StatusIconSetTitleMethodInfo +data StatusIconSetTooltipMarkupMethodInfo +data StatusIconSetTooltipTextMethodInfo +data StatusIconSetVisibleMethodInfo diff --git a/GI/Gtk/Objects/Statusbar.hs b/GI/Gtk/Objects/Statusbar.hs --- a/GI/Gtk/Objects/Statusbar.hs +++ b/GI/Gtk/Objects/Statusbar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** statusbarGetContextId + StatusbarGetContextIdMethodInfo , statusbarGetContextId , -- ** statusbarGetMessageArea + StatusbarGetMessageAreaMethodInfo , statusbarGetMessageArea , @@ -29,18 +32,22 @@ -- ** statusbarPop + StatusbarPopMethodInfo , statusbarPop , -- ** statusbarPush + StatusbarPushMethodInfo , statusbarPush , -- ** statusbarRemove + StatusbarRemoveMethodInfo , statusbarRemove , -- ** statusbarRemoveAll + StatusbarRemoveAllMethodInfo , statusbarRemoveAll , @@ -108,6 +115,347 @@ noStatusbar :: Maybe Statusbar noStatusbar = Nothing +type family ResolveStatusbarMethod (t :: Symbol) (o :: *) :: * where + ResolveStatusbarMethod "activate" o = WidgetActivateMethodInfo + ResolveStatusbarMethod "add" o = ContainerAddMethodInfo + ResolveStatusbarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveStatusbarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveStatusbarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveStatusbarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveStatusbarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveStatusbarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveStatusbarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveStatusbarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveStatusbarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveStatusbarMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveStatusbarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveStatusbarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveStatusbarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveStatusbarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveStatusbarMethod "childType" o = ContainerChildTypeMethodInfo + ResolveStatusbarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveStatusbarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveStatusbarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveStatusbarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveStatusbarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveStatusbarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveStatusbarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveStatusbarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveStatusbarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveStatusbarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveStatusbarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveStatusbarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveStatusbarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveStatusbarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveStatusbarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveStatusbarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveStatusbarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveStatusbarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveStatusbarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveStatusbarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveStatusbarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveStatusbarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveStatusbarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveStatusbarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveStatusbarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveStatusbarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveStatusbarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveStatusbarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveStatusbarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveStatusbarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveStatusbarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveStatusbarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveStatusbarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveStatusbarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveStatusbarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveStatusbarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveStatusbarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveStatusbarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveStatusbarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveStatusbarMethod "draw" o = WidgetDrawMethodInfo + ResolveStatusbarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveStatusbarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveStatusbarMethod "event" o = WidgetEventMethodInfo + ResolveStatusbarMethod "forall" o = ContainerForallMethodInfo + ResolveStatusbarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveStatusbarMethod "foreach" o = ContainerForeachMethodInfo + ResolveStatusbarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveStatusbarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveStatusbarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveStatusbarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveStatusbarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveStatusbarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveStatusbarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveStatusbarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveStatusbarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveStatusbarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveStatusbarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveStatusbarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveStatusbarMethod "hide" o = WidgetHideMethodInfo + ResolveStatusbarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveStatusbarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveStatusbarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveStatusbarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveStatusbarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveStatusbarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveStatusbarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveStatusbarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveStatusbarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveStatusbarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveStatusbarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveStatusbarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveStatusbarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveStatusbarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveStatusbarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveStatusbarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveStatusbarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveStatusbarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveStatusbarMethod "map" o = WidgetMapMethodInfo + ResolveStatusbarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveStatusbarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveStatusbarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveStatusbarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveStatusbarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveStatusbarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveStatusbarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveStatusbarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveStatusbarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveStatusbarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveStatusbarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveStatusbarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveStatusbarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveStatusbarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveStatusbarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveStatusbarMethod "packEnd" o = BoxPackEndMethodInfo + ResolveStatusbarMethod "packStart" o = BoxPackStartMethodInfo + ResolveStatusbarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveStatusbarMethod "path" o = WidgetPathMethodInfo + ResolveStatusbarMethod "pop" o = StatusbarPopMethodInfo + ResolveStatusbarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveStatusbarMethod "push" o = StatusbarPushMethodInfo + ResolveStatusbarMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveStatusbarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveStatusbarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveStatusbarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveStatusbarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveStatusbarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveStatusbarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveStatusbarMethod "realize" o = WidgetRealizeMethodInfo + ResolveStatusbarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveStatusbarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveStatusbarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveStatusbarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveStatusbarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveStatusbarMethod "removeAll" o = StatusbarRemoveAllMethodInfo + ResolveStatusbarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveStatusbarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveStatusbarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveStatusbarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveStatusbarMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveStatusbarMethod "reparent" o = WidgetReparentMethodInfo + ResolveStatusbarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveStatusbarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveStatusbarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveStatusbarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveStatusbarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveStatusbarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveStatusbarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveStatusbarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveStatusbarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveStatusbarMethod "show" o = WidgetShowMethodInfo + ResolveStatusbarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveStatusbarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveStatusbarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveStatusbarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveStatusbarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveStatusbarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveStatusbarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveStatusbarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveStatusbarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveStatusbarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveStatusbarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveStatusbarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveStatusbarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveStatusbarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveStatusbarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveStatusbarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveStatusbarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveStatusbarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveStatusbarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveStatusbarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveStatusbarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveStatusbarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveStatusbarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveStatusbarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveStatusbarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveStatusbarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveStatusbarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveStatusbarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveStatusbarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveStatusbarMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveStatusbarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveStatusbarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveStatusbarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveStatusbarMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveStatusbarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveStatusbarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveStatusbarMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveStatusbarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveStatusbarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveStatusbarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveStatusbarMethod "getContextId" o = StatusbarGetContextIdMethodInfo + ResolveStatusbarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveStatusbarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveStatusbarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveStatusbarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveStatusbarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveStatusbarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveStatusbarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveStatusbarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveStatusbarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveStatusbarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveStatusbarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveStatusbarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveStatusbarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveStatusbarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveStatusbarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveStatusbarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveStatusbarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveStatusbarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveStatusbarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveStatusbarMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveStatusbarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveStatusbarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveStatusbarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveStatusbarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveStatusbarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveStatusbarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveStatusbarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveStatusbarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveStatusbarMethod "getMessageArea" o = StatusbarGetMessageAreaMethodInfo + ResolveStatusbarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveStatusbarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveStatusbarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveStatusbarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveStatusbarMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveStatusbarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveStatusbarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveStatusbarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveStatusbarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveStatusbarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveStatusbarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveStatusbarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveStatusbarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveStatusbarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveStatusbarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveStatusbarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveStatusbarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveStatusbarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveStatusbarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveStatusbarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveStatusbarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveStatusbarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveStatusbarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveStatusbarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveStatusbarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveStatusbarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveStatusbarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveStatusbarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveStatusbarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveStatusbarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveStatusbarMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveStatusbarMethod "getState" o = WidgetGetStateMethodInfo + ResolveStatusbarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveStatusbarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveStatusbarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveStatusbarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveStatusbarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveStatusbarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveStatusbarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveStatusbarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveStatusbarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveStatusbarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveStatusbarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveStatusbarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveStatusbarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveStatusbarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveStatusbarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveStatusbarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveStatusbarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveStatusbarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveStatusbarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveStatusbarMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveStatusbarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveStatusbarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveStatusbarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveStatusbarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveStatusbarMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveStatusbarMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveStatusbarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveStatusbarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveStatusbarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveStatusbarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveStatusbarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveStatusbarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveStatusbarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveStatusbarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveStatusbarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveStatusbarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveStatusbarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveStatusbarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveStatusbarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveStatusbarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveStatusbarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveStatusbarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveStatusbarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveStatusbarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveStatusbarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveStatusbarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveStatusbarMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveStatusbarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveStatusbarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveStatusbarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveStatusbarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveStatusbarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveStatusbarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveStatusbarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveStatusbarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveStatusbarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveStatusbarMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveStatusbarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveStatusbarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveStatusbarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveStatusbarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveStatusbarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveStatusbarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveStatusbarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveStatusbarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveStatusbarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveStatusbarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveStatusbarMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveStatusbarMethod "setState" o = WidgetSetStateMethodInfo + ResolveStatusbarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveStatusbarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveStatusbarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveStatusbarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveStatusbarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveStatusbarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveStatusbarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveStatusbarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveStatusbarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveStatusbarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveStatusbarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveStatusbarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveStatusbarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveStatusbarMethod t Statusbar, MethodInfo info Statusbar p) => IsLabelProxy t (Statusbar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveStatusbarMethod t Statusbar, MethodInfo info Statusbar p) => IsLabel t (Statusbar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Statusbar::text-popped type StatusbarTextPoppedCallback = Word32 -> @@ -138,9 +486,9 @@ CString -> Ptr () -> IO () -statusbarTextPoppedCallbackWrapper _cb _ context_id text _ = do +statusbarTextPoppedCallbackWrapper _cb _ contextId text _ = do text' <- cstringToText text - _cb context_id text' + _cb contextId text' onStatusbarTextPopped :: (GObject a, MonadIO m) => a -> StatusbarTextPoppedCallback -> m SignalHandlerId onStatusbarTextPopped obj cb = liftIO $ connectStatusbarTextPopped obj cb SignalConnectBefore @@ -183,9 +531,9 @@ CString -> Ptr () -> IO () -statusbarTextPushedCallbackWrapper _cb _ context_id text _ = do +statusbarTextPushedCallbackWrapper _cb _ contextId text _ = do text' <- cstringToText text - _cb context_id text' + _cb contextId text' onStatusbarTextPushed :: (GObject a, MonadIO m) => a -> StatusbarTextPushedCallback -> m SignalHandlerId onStatusbarTextPushed obj cb = liftIO $ connectStatusbarTextPushed obj cb SignalConnectBefore @@ -199,7 +547,7 @@ connectSignalFunPtr obj "text-pushed" cb' after type instance AttributeList Statusbar = StatusbarAttributeList -type StatusbarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type StatusbarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data StatusbarTextPoppedSignalInfo instance SignalInfo StatusbarTextPoppedSignalInfo where @@ -212,13 +560,12 @@ connectSignal _ = connectStatusbarTextPushed type instance SignalList Statusbar = StatusbarSignalList -type StatusbarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("text-popped", StatusbarTextPoppedSignalInfo), '("text-pushed", StatusbarTextPushedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type StatusbarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("textPopped", StatusbarTextPoppedSignalInfo), '("textPushed", StatusbarTextPushedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Statusbar::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Statusbar" -- throws : False -- Skip return : False @@ -229,7 +576,7 @@ statusbarNew :: (MonadIO m) => - m Statusbar + m Statusbar -- result statusbarNew = liftIO $ do result <- gtk_statusbar_new checkUnexpectedReturnNULL "gtk_statusbar_new" result @@ -238,9 +585,8 @@ -- method Statusbar::get_context_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -253,22 +599,25 @@ statusbarGetContextId :: (MonadIO m, StatusbarK a) => - a -> -- _obj - T.Text -> -- context_description - m Word32 -statusbarGetContextId _obj context_description = liftIO $ do + a -- _obj + -> T.Text -- contextDescription + -> m Word32 -- result +statusbarGetContextId _obj contextDescription = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - context_description' <- textToCString context_description - result <- gtk_statusbar_get_context_id _obj' context_description' + contextDescription' <- textToCString contextDescription + result <- gtk_statusbar_get_context_id _obj' contextDescription' touchManagedPtr _obj - freeMem context_description' + freeMem contextDescription' return result +data StatusbarGetContextIdMethodInfo +instance (signature ~ (T.Text -> m Word32), MonadIO m, StatusbarK a) => MethodInfo StatusbarGetContextIdMethodInfo a signature where + overloadedMethod _ = statusbarGetContextId + -- method Statusbar::get_message_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Box" -- throws : False -- Skip return : False @@ -280,8 +629,8 @@ statusbarGetMessageArea :: (MonadIO m, StatusbarK a) => - a -> -- _obj - m Box + a -- _obj + -> m Box -- result statusbarGetMessageArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_statusbar_get_message_area _obj' @@ -290,11 +639,14 @@ touchManagedPtr _obj return result' +data StatusbarGetMessageAreaMethodInfo +instance (signature ~ (m Box), MonadIO m, StatusbarK a) => MethodInfo StatusbarGetMessageAreaMethodInfo a signature where + overloadedMethod _ = statusbarGetMessageArea + -- method Statusbar::pop -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -307,20 +659,23 @@ statusbarPop :: (MonadIO m, StatusbarK a) => - a -> -- _obj - Word32 -> -- context_id - m () -statusbarPop _obj context_id = liftIO $ do + a -- _obj + -> Word32 -- contextId + -> m () -- result +statusbarPop _obj contextId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_statusbar_pop _obj' context_id + gtk_statusbar_pop _obj' contextId touchManagedPtr _obj return () +data StatusbarPopMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, StatusbarK a) => MethodInfo StatusbarPopMethodInfo a signature where + overloadedMethod _ = statusbarPop + -- method Statusbar::push -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -334,23 +689,26 @@ statusbarPush :: (MonadIO m, StatusbarK a) => - a -> -- _obj - Word32 -> -- context_id - T.Text -> -- text - m Word32 -statusbarPush _obj context_id text = liftIO $ do + a -- _obj + -> Word32 -- contextId + -> T.Text -- text + -> m Word32 -- result +statusbarPush _obj contextId text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text - result <- gtk_statusbar_push _obj' context_id text' + result <- gtk_statusbar_push _obj' contextId text' touchManagedPtr _obj freeMem text' return result +data StatusbarPushMethodInfo +instance (signature ~ (Word32 -> T.Text -> m Word32), MonadIO m, StatusbarK a) => MethodInfo StatusbarPushMethodInfo a signature where + overloadedMethod _ = statusbarPush + -- method Statusbar::remove -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -364,21 +722,24 @@ statusbarRemove :: (MonadIO m, StatusbarK a) => - a -> -- _obj - Word32 -> -- context_id - Word32 -> -- message_id - m () -statusbarRemove _obj context_id message_id = liftIO $ do + a -- _obj + -> Word32 -- contextId + -> Word32 -- messageId + -> m () -- result +statusbarRemove _obj contextId messageId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_statusbar_remove _obj' context_id message_id + gtk_statusbar_remove _obj' contextId messageId touchManagedPtr _obj return () +data StatusbarRemoveMethodInfo +instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, StatusbarK a) => MethodInfo StatusbarRemoveMethodInfo a signature where + overloadedMethod _ = statusbarRemove + -- method Statusbar::remove_all -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -391,13 +752,17 @@ statusbarRemoveAll :: (MonadIO m, StatusbarK a) => - a -> -- _obj - Word32 -> -- context_id - m () -statusbarRemoveAll _obj context_id = liftIO $ do + a -- _obj + -> Word32 -- contextId + -> m () -- result +statusbarRemoveAll _obj contextId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_statusbar_remove_all _obj' context_id + gtk_statusbar_remove_all _obj' contextId touchManagedPtr _obj return () + +data StatusbarRemoveAllMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, StatusbarK a) => MethodInfo StatusbarRemoveAllMethodInfo a signature where + overloadedMethod _ = statusbarRemoveAll diff --git a/GI/Gtk/Objects/Statusbar.hs-boot b/GI/Gtk/Objects/Statusbar.hs-boot --- a/GI/Gtk/Objects/Statusbar.hs-boot +++ b/GI/Gtk/Objects/Statusbar.hs-boot @@ -13,3 +13,9 @@ instance (GObject o, IsDescendantOf Statusbar o) => StatusbarK o data StatusbarTextPoppedSignalInfo data StatusbarTextPushedSignalInfo +data StatusbarGetContextIdMethodInfo +data StatusbarGetMessageAreaMethodInfo +data StatusbarPopMethodInfo +data StatusbarPushMethodInfo +data StatusbarRemoveMethodInfo +data StatusbarRemoveAllMethodInfo diff --git a/GI/Gtk/Objects/StatusbarAccessible.hs b/GI/Gtk/Objects/StatusbarAccessible.hs --- a/GI/Gtk/Objects/StatusbarAccessible.hs +++ b/GI/Gtk/Objects/StatusbarAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,78 @@ noStatusbarAccessible :: Maybe StatusbarAccessible noStatusbarAccessible = Nothing +type family ResolveStatusbarAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveStatusbarAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveStatusbarAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveStatusbarAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveStatusbarAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveStatusbarAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveStatusbarAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveStatusbarAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveStatusbarAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveStatusbarAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveStatusbarAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveStatusbarAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveStatusbarAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveStatusbarAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveStatusbarAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveStatusbarAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveStatusbarAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveStatusbarAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveStatusbarAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveStatusbarAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveStatusbarAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveStatusbarAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveStatusbarAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveStatusbarAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveStatusbarAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveStatusbarAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveStatusbarAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveStatusbarAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveStatusbarAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveStatusbarAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveStatusbarAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveStatusbarAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveStatusbarAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveStatusbarAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveStatusbarAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveStatusbarAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveStatusbarAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveStatusbarAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveStatusbarAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveStatusbarAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveStatusbarAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveStatusbarAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveStatusbarAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveStatusbarAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveStatusbarAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveStatusbarAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveStatusbarAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveStatusbarAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveStatusbarAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveStatusbarAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveStatusbarAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveStatusbarAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveStatusbarAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveStatusbarAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveStatusbarAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveStatusbarAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveStatusbarAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveStatusbarAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveStatusbarAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveStatusbarAccessibleMethod t StatusbarAccessible, MethodInfo info StatusbarAccessible p) => IsLabelProxy t (StatusbarAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveStatusbarAccessibleMethod t StatusbarAccessible, MethodInfo info StatusbarAccessible p) => IsLabel t (StatusbarAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList StatusbarAccessible = StatusbarAccessibleAttributeList -type StatusbarAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type StatusbarAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList StatusbarAccessible = StatusbarAccessibleSignalList -type StatusbarAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type StatusbarAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/Style.hs b/GI/Gtk/Objects/Style.hs --- a/GI/Gtk/Objects/Style.hs +++ b/GI/Gtk/Objects/Style.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,30 +18,37 @@ -- * Methods -- ** styleApplyDefaultBackground + StyleApplyDefaultBackgroundMethodInfo , styleApplyDefaultBackground , -- ** styleCopy + StyleCopyMethodInfo , styleCopy , -- ** styleDetach + StyleDetachMethodInfo , styleDetach , -- ** styleGetStyleProperty + StyleGetStylePropertyMethodInfo , styleGetStyleProperty , -- ** styleHasContext + StyleHasContextMethodInfo , styleHasContext , -- ** styleLookupColor + StyleLookupColorMethodInfo , styleLookupColor , -- ** styleLookupIconSet + StyleLookupIconSetMethodInfo , styleLookupIconSet , @@ -49,10 +57,12 @@ -- ** styleRenderIcon + StyleRenderIconMethodInfo , styleRenderIcon , -- ** styleSetBackground + StyleSetBackgroundMethodInfo , styleSetBackground , @@ -131,6 +141,48 @@ noStyle :: Maybe Style noStyle = Nothing +type family ResolveStyleMethod (t :: Symbol) (o :: *) :: * where + ResolveStyleMethod "applyDefaultBackground" o = StyleApplyDefaultBackgroundMethodInfo + ResolveStyleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveStyleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveStyleMethod "copy" o = StyleCopyMethodInfo + ResolveStyleMethod "detach" o = StyleDetachMethodInfo + ResolveStyleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveStyleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveStyleMethod "hasContext" o = StyleHasContextMethodInfo + ResolveStyleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveStyleMethod "lookupColor" o = StyleLookupColorMethodInfo + ResolveStyleMethod "lookupIconSet" o = StyleLookupIconSetMethodInfo + ResolveStyleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveStyleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveStyleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveStyleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveStyleMethod "renderIcon" o = StyleRenderIconMethodInfo + ResolveStyleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveStyleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveStyleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveStyleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveStyleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveStyleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveStyleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveStyleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveStyleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveStyleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveStyleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveStyleMethod "getStyleProperty" o = StyleGetStylePropertyMethodInfo + ResolveStyleMethod "setBackground" o = StyleSetBackgroundMethodInfo + ResolveStyleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveStyleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveStyleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveStyleMethod t Style, MethodInfo info Style p) => IsLabelProxy t (Style -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveStyleMethod t Style, MethodInfo info Style p) => IsLabel t (Style -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Style::realize type StyleRealizeCallback = IO () @@ -223,7 +275,7 @@ type AttrSetTypeConstraint StyleContextPropertyInfo = StyleContextK type AttrBaseTypeConstraint StyleContextPropertyInfo = StyleK type AttrGetType StyleContextPropertyInfo = StyleContext - type AttrLabel StyleContextPropertyInfo = "Style::context" + type AttrLabel StyleContextPropertyInfo = "context" attrGet _ = getStyleContext attrSet _ = undefined attrConstruct _ = constructStyleContext @@ -242,13 +294,12 @@ connectSignal _ = connectStyleUnrealize type instance SignalList Style = StyleSignalList -type StyleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("realize", StyleRealizeSignalInfo), '("unrealize", StyleUnrealizeSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type StyleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("realize", StyleRealizeSignalInfo), '("unrealize", StyleUnrealizeSignalInfo)] :: [(Symbol, *)]) -- method Style::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Style" -- throws : False -- Skip return : False @@ -259,7 +310,7 @@ {-# DEPRECATED styleNew ["(Since version 3.0)","Use #GtkStyleContext"]#-} styleNew :: (MonadIO m) => - m Style + m Style -- result styleNew = liftIO $ do result <- gtk_style_new checkUnexpectedReturnNULL "gtk_style_new" result @@ -268,9 +319,8 @@ -- method Style::apply_default_background -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -289,31 +339,34 @@ {-# DEPRECATED styleApplyDefaultBackground ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} styleApplyDefaultBackground :: (MonadIO m, StyleK a, Gdk.WindowK b) => - a -> -- _obj - Cairo.Context -> -- cr - b -> -- window - StateType -> -- state_type - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -styleApplyDefaultBackground _obj cr window state_type x y width height = liftIO $ do + a -- _obj + -> Cairo.Context -- cr + -> b -- window + -> StateType -- stateType + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +styleApplyDefaultBackground _obj cr window stateType x y width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cr' = unsafeManagedPtrGetPtr cr let window' = unsafeManagedPtrCastPtr window - let state_type' = (fromIntegral . fromEnum) state_type - gtk_style_apply_default_background _obj' cr' window' state_type' x y width height + let stateType' = (fromIntegral . fromEnum) stateType + gtk_style_apply_default_background _obj' cr' window' stateType' x y width height touchManagedPtr _obj touchManagedPtr cr touchManagedPtr window return () +data StyleApplyDefaultBackgroundMethodInfo +instance (signature ~ (Cairo.Context -> b -> StateType -> Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, StyleK a, Gdk.WindowK b) => MethodInfo StyleApplyDefaultBackgroundMethodInfo a signature where + overloadedMethod _ = styleApplyDefaultBackground + -- method Style::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Style" -- throws : False -- Skip return : False @@ -325,8 +378,8 @@ {-# DEPRECATED styleCopy ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} styleCopy :: (MonadIO m, StyleK a) => - a -> -- _obj - m Style + a -- _obj + -> m Style -- result styleCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_copy _obj' @@ -335,11 +388,14 @@ touchManagedPtr _obj return result' +data StyleCopyMethodInfo +instance (signature ~ (m Style), MonadIO m, StyleK a) => MethodInfo StyleCopyMethodInfo a signature where + overloadedMethod _ = styleCopy + -- method Style::detach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -351,19 +407,22 @@ {-# DEPRECATED styleDetach ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} styleDetach :: (MonadIO m, StyleK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result styleDetach _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_style_detach _obj' touchManagedPtr _obj return () +data StyleDetachMethodInfo +instance (signature ~ (m ()), MonadIO m, StyleK a) => MethodInfo StyleDetachMethodInfo a signature where + overloadedMethod _ = styleDetach + -- method Style::get_style_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -378,26 +437,29 @@ styleGetStyleProperty :: (MonadIO m, StyleK a) => - a -> -- _obj - GType -> -- widget_type - T.Text -> -- property_name - m (GValue) -styleGetStyleProperty _obj widget_type property_name = liftIO $ do + a -- _obj + -> GType -- widgetType + -> T.Text -- propertyName + -> m (GValue) -- result +styleGetStyleProperty _obj widgetType propertyName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let widget_type' = gtypeToCGType widget_type - property_name' <- textToCString property_name + let widgetType' = gtypeToCGType widgetType + propertyName' <- textToCString propertyName value <- callocBoxedBytes 24 :: IO (Ptr GValue) - gtk_style_get_style_property _obj' widget_type' property_name' value + gtk_style_get_style_property _obj' widgetType' propertyName' value value' <- (wrapBoxed GValue) value touchManagedPtr _obj - freeMem property_name' + freeMem propertyName' return value' +data StyleGetStylePropertyMethodInfo +instance (signature ~ (GType -> T.Text -> m (GValue)), MonadIO m, StyleK a) => MethodInfo StyleGetStylePropertyMethodInfo a signature where + overloadedMethod _ = styleGetStyleProperty + -- method Style::has_context -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -409,8 +471,8 @@ styleHasContext :: (MonadIO m, StyleK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result styleHasContext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_has_context _obj' @@ -418,11 +480,14 @@ touchManagedPtr _obj return result' +data StyleHasContextMethodInfo +instance (signature ~ (m Bool), MonadIO m, StyleK a) => MethodInfo StyleHasContextMethodInfo a signature where + overloadedMethod _ = styleHasContext + -- method Style::lookup_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -436,25 +501,28 @@ {-# DEPRECATED styleLookupColor ["(Since version 3.0)","Use gtk_style_context_lookup_color() instead"]#-} styleLookupColor :: (MonadIO m, StyleK a) => - a -> -- _obj - T.Text -> -- color_name - m (Bool,Gdk.Color) -styleLookupColor _obj color_name = liftIO $ do + a -- _obj + -> T.Text -- colorName + -> m (Bool,Gdk.Color) -- result +styleLookupColor _obj colorName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - color_name' <- textToCString color_name + colorName' <- textToCString colorName color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color) - result <- gtk_style_lookup_color _obj' color_name' color + result <- gtk_style_lookup_color _obj' colorName' color let result' = (/= 0) result color' <- (wrapBoxed Gdk.Color) color touchManagedPtr _obj - freeMem color_name' + freeMem colorName' return (result', color') +data StyleLookupColorMethodInfo +instance (signature ~ (T.Text -> m (Bool,Gdk.Color)), MonadIO m, StyleK a) => MethodInfo StyleLookupColorMethodInfo a signature where + overloadedMethod _ = styleLookupColor + -- method Style::lookup_icon_set -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconSet" -- throws : False -- Skip return : False @@ -467,24 +535,27 @@ {-# DEPRECATED styleLookupIconSet ["(Since version 3.0)","Use gtk_style_context_lookup_icon_set() instead"]#-} styleLookupIconSet :: (MonadIO m, StyleK a) => - a -> -- _obj - T.Text -> -- stock_id - m IconSet -styleLookupIconSet _obj stock_id = liftIO $ do + a -- _obj + -> T.Text -- stockId + -> m IconSet -- result +styleLookupIconSet _obj stockId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - result <- gtk_style_lookup_icon_set _obj' stock_id' + stockId' <- textToCString stockId + result <- gtk_style_lookup_icon_set _obj' stockId' checkUnexpectedReturnNULL "gtk_style_lookup_icon_set" result result' <- (newBoxed IconSet) result touchManagedPtr _obj - freeMem stock_id' + freeMem stockId' return result' +data StyleLookupIconSetMethodInfo +instance (signature ~ (T.Text -> m IconSet), MonadIO m, StyleK a) => MethodInfo StyleLookupIconSetMethodInfo a signature where + overloadedMethod _ = styleLookupIconSet + -- method Style::render_icon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -502,14 +573,14 @@ {-# DEPRECATED styleRenderIcon ["(Since version 3.0)","Use gtk_render_icon_pixbuf() instead"]#-} styleRenderIcon :: (MonadIO m, StyleK a, WidgetK b) => - a -> -- _obj - IconSource -> -- source - TextDirection -> -- direction - StateType -> -- state - Int32 -> -- size - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - m GdkPixbuf.Pixbuf + a -- _obj + -> IconSource -- source + -> TextDirection -- direction + -> StateType -- state + -> Int32 -- size + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> m GdkPixbuf.Pixbuf -- result styleRenderIcon _obj source direction state size widget detail = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let source' = unsafeManagedPtrGetPtr source @@ -534,11 +605,14 @@ freeMem maybeDetail return result' +data StyleRenderIconMethodInfo +instance (signature ~ (IconSource -> TextDirection -> StateType -> Int32 -> Maybe (b) -> Maybe (T.Text) -> m GdkPixbuf.Pixbuf), MonadIO m, StyleK a, WidgetK b) => MethodInfo StyleRenderIconMethodInfo a signature where + overloadedMethod _ = styleRenderIcon + -- method Style::set_background -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -552,17 +626,21 @@ {-# DEPRECATED styleSetBackground ["(Since version 3.0)","Use gtk_style_context_set_background() instead"]#-} styleSetBackground :: (MonadIO m, StyleK a, Gdk.WindowK b) => - a -> -- _obj - b -> -- window - StateType -> -- state_type - m () -styleSetBackground _obj window state_type = liftIO $ do + a -- _obj + -> b -- window + -> StateType -- stateType + -> m () -- result +styleSetBackground _obj window stateType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let window' = unsafeManagedPtrCastPtr window - let state_type' = (fromIntegral . fromEnum) state_type - gtk_style_set_background _obj' window' state_type' + let stateType' = (fromIntegral . fromEnum) stateType + gtk_style_set_background _obj' window' stateType' touchManagedPtr _obj touchManagedPtr window return () + +data StyleSetBackgroundMethodInfo +instance (signature ~ (b -> StateType -> m ()), MonadIO m, StyleK a, Gdk.WindowK b) => MethodInfo StyleSetBackgroundMethodInfo a signature where + overloadedMethod _ = styleSetBackground diff --git a/GI/Gtk/Objects/Style.hs-boot b/GI/Gtk/Objects/Style.hs-boot --- a/GI/Gtk/Objects/Style.hs-boot +++ b/GI/Gtk/Objects/Style.hs-boot @@ -14,3 +14,12 @@ data StyleContextPropertyInfo data StyleRealizeSignalInfo data StyleUnrealizeSignalInfo +data StyleApplyDefaultBackgroundMethodInfo +data StyleCopyMethodInfo +data StyleDetachMethodInfo +data StyleGetStylePropertyMethodInfo +data StyleHasContextMethodInfo +data StyleLookupColorMethodInfo +data StyleLookupIconSetMethodInfo +data StyleRenderIconMethodInfo +data StyleSetBackgroundMethodInfo diff --git a/GI/Gtk/Objects/StyleContext.hs b/GI/Gtk/Objects/StyleContext.hs --- a/GI/Gtk/Objects/StyleContext.hs +++ b/GI/Gtk/Objects/StyleContext.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** styleContextAddClass + StyleContextAddClassMethodInfo , styleContextAddClass , -- ** styleContextAddProvider + StyleContextAddProviderMethodInfo , styleContextAddProvider , @@ -29,110 +32,137 @@ -- ** styleContextAddRegion + StyleContextAddRegionMethodInfo , styleContextAddRegion , -- ** styleContextCancelAnimations + StyleContextCancelAnimationsMethodInfo , styleContextCancelAnimations , -- ** styleContextGetBackgroundColor + StyleContextGetBackgroundColorMethodInfo, styleContextGetBackgroundColor , -- ** styleContextGetBorder + StyleContextGetBorderMethodInfo , styleContextGetBorder , -- ** styleContextGetBorderColor + StyleContextGetBorderColorMethodInfo , styleContextGetBorderColor , -- ** styleContextGetColor + StyleContextGetColorMethodInfo , styleContextGetColor , -- ** styleContextGetDirection + StyleContextGetDirectionMethodInfo , styleContextGetDirection , -- ** styleContextGetFont + StyleContextGetFontMethodInfo , styleContextGetFont , -- ** styleContextGetFrameClock + StyleContextGetFrameClockMethodInfo , styleContextGetFrameClock , -- ** styleContextGetJunctionSides + StyleContextGetJunctionSidesMethodInfo , styleContextGetJunctionSides , -- ** styleContextGetMargin + StyleContextGetMarginMethodInfo , styleContextGetMargin , -- ** styleContextGetPadding + StyleContextGetPaddingMethodInfo , styleContextGetPadding , -- ** styleContextGetParent + StyleContextGetParentMethodInfo , styleContextGetParent , -- ** styleContextGetPath + StyleContextGetPathMethodInfo , styleContextGetPath , -- ** styleContextGetProperty + StyleContextGetPropertyMethodInfo , styleContextGetProperty , -- ** styleContextGetScale + StyleContextGetScaleMethodInfo , styleContextGetScale , -- ** styleContextGetScreen + StyleContextGetScreenMethodInfo , styleContextGetScreen , -- ** styleContextGetSection + StyleContextGetSectionMethodInfo , styleContextGetSection , -- ** styleContextGetState + StyleContextGetStateMethodInfo , styleContextGetState , -- ** styleContextGetStyleProperty + StyleContextGetStylePropertyMethodInfo , styleContextGetStyleProperty , -- ** styleContextHasClass + StyleContextHasClassMethodInfo , styleContextHasClass , -- ** styleContextHasRegion + StyleContextHasRegionMethodInfo , styleContextHasRegion , -- ** styleContextInvalidate + StyleContextInvalidateMethodInfo , styleContextInvalidate , -- ** styleContextListClasses + StyleContextListClassesMethodInfo , styleContextListClasses , -- ** styleContextListRegions + StyleContextListRegionsMethodInfo , styleContextListRegions , -- ** styleContextLookupColor + StyleContextLookupColorMethodInfo , styleContextLookupColor , -- ** styleContextLookupIconSet + StyleContextLookupIconSetMethodInfo , styleContextLookupIconSet , @@ -141,22 +171,27 @@ -- ** styleContextNotifyStateChange + StyleContextNotifyStateChangeMethodInfo , styleContextNotifyStateChange , -- ** styleContextPopAnimatableRegion + StyleContextPopAnimatableRegionMethodInfo, styleContextPopAnimatableRegion , -- ** styleContextPushAnimatableRegion + StyleContextPushAnimatableRegionMethodInfo, styleContextPushAnimatableRegion , -- ** styleContextRemoveClass + StyleContextRemoveClassMethodInfo , styleContextRemoveClass , -- ** styleContextRemoveProvider + StyleContextRemoveProviderMethodInfo , styleContextRemoveProvider , @@ -165,6 +200,7 @@ -- ** styleContextRemoveRegion + StyleContextRemoveRegionMethodInfo , styleContextRemoveRegion , @@ -173,54 +209,67 @@ -- ** styleContextRestore + StyleContextRestoreMethodInfo , styleContextRestore , -- ** styleContextSave + StyleContextSaveMethodInfo , styleContextSave , -- ** styleContextScrollAnimations + StyleContextScrollAnimationsMethodInfo , styleContextScrollAnimations , -- ** styleContextSetBackground + StyleContextSetBackgroundMethodInfo , styleContextSetBackground , -- ** styleContextSetDirection + StyleContextSetDirectionMethodInfo , styleContextSetDirection , -- ** styleContextSetFrameClock + StyleContextSetFrameClockMethodInfo , styleContextSetFrameClock , -- ** styleContextSetJunctionSides + StyleContextSetJunctionSidesMethodInfo , styleContextSetJunctionSides , -- ** styleContextSetParent + StyleContextSetParentMethodInfo , styleContextSetParent , -- ** styleContextSetPath + StyleContextSetPathMethodInfo , styleContextSetPath , -- ** styleContextSetScale + StyleContextSetScaleMethodInfo , styleContextSetScale , -- ** styleContextSetScreen + StyleContextSetScreenMethodInfo , styleContextSetScreen , -- ** styleContextSetState + StyleContextSetStateMethodInfo , styleContextSetState , -- ** styleContextStateIsRunning + StyleContextStateIsRunningMethodInfo , styleContextStateIsRunning , @@ -308,6 +357,85 @@ noStyleContext :: Maybe StyleContext noStyleContext = Nothing +type family ResolveStyleContextMethod (t :: Symbol) (o :: *) :: * where + ResolveStyleContextMethod "addClass" o = StyleContextAddClassMethodInfo + ResolveStyleContextMethod "addProvider" o = StyleContextAddProviderMethodInfo + ResolveStyleContextMethod "addRegion" o = StyleContextAddRegionMethodInfo + ResolveStyleContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveStyleContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveStyleContextMethod "cancelAnimations" o = StyleContextCancelAnimationsMethodInfo + ResolveStyleContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveStyleContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveStyleContextMethod "hasClass" o = StyleContextHasClassMethodInfo + ResolveStyleContextMethod "hasRegion" o = StyleContextHasRegionMethodInfo + ResolveStyleContextMethod "invalidate" o = StyleContextInvalidateMethodInfo + ResolveStyleContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveStyleContextMethod "listClasses" o = StyleContextListClassesMethodInfo + ResolveStyleContextMethod "listRegions" o = StyleContextListRegionsMethodInfo + ResolveStyleContextMethod "lookupColor" o = StyleContextLookupColorMethodInfo + ResolveStyleContextMethod "lookupIconSet" o = StyleContextLookupIconSetMethodInfo + ResolveStyleContextMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveStyleContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveStyleContextMethod "notifyStateChange" o = StyleContextNotifyStateChangeMethodInfo + ResolveStyleContextMethod "popAnimatableRegion" o = StyleContextPopAnimatableRegionMethodInfo + ResolveStyleContextMethod "pushAnimatableRegion" o = StyleContextPushAnimatableRegionMethodInfo + ResolveStyleContextMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveStyleContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveStyleContextMethod "removeClass" o = StyleContextRemoveClassMethodInfo + ResolveStyleContextMethod "removeProvider" o = StyleContextRemoveProviderMethodInfo + ResolveStyleContextMethod "removeRegion" o = StyleContextRemoveRegionMethodInfo + ResolveStyleContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveStyleContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveStyleContextMethod "restore" o = StyleContextRestoreMethodInfo + ResolveStyleContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveStyleContextMethod "save" o = StyleContextSaveMethodInfo + ResolveStyleContextMethod "scrollAnimations" o = StyleContextScrollAnimationsMethodInfo + ResolveStyleContextMethod "stateIsRunning" o = StyleContextStateIsRunningMethodInfo + ResolveStyleContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveStyleContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveStyleContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveStyleContextMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveStyleContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveStyleContextMethod "getBackgroundColor" o = StyleContextGetBackgroundColorMethodInfo + ResolveStyleContextMethod "getBorder" o = StyleContextGetBorderMethodInfo + ResolveStyleContextMethod "getBorderColor" o = StyleContextGetBorderColorMethodInfo + ResolveStyleContextMethod "getColor" o = StyleContextGetColorMethodInfo + ResolveStyleContextMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveStyleContextMethod "getDirection" o = StyleContextGetDirectionMethodInfo + ResolveStyleContextMethod "getFont" o = StyleContextGetFontMethodInfo + ResolveStyleContextMethod "getFrameClock" o = StyleContextGetFrameClockMethodInfo + ResolveStyleContextMethod "getJunctionSides" o = StyleContextGetJunctionSidesMethodInfo + ResolveStyleContextMethod "getMargin" o = StyleContextGetMarginMethodInfo + ResolveStyleContextMethod "getPadding" o = StyleContextGetPaddingMethodInfo + ResolveStyleContextMethod "getParent" o = StyleContextGetParentMethodInfo + ResolveStyleContextMethod "getPath" o = StyleContextGetPathMethodInfo + ResolveStyleContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveStyleContextMethod "getScale" o = StyleContextGetScaleMethodInfo + ResolveStyleContextMethod "getScreen" o = StyleContextGetScreenMethodInfo + ResolveStyleContextMethod "getSection" o = StyleContextGetSectionMethodInfo + ResolveStyleContextMethod "getState" o = StyleContextGetStateMethodInfo + ResolveStyleContextMethod "getStyleProperty" o = StyleContextGetStylePropertyMethodInfo + ResolveStyleContextMethod "setBackground" o = StyleContextSetBackgroundMethodInfo + ResolveStyleContextMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveStyleContextMethod "setDirection" o = StyleContextSetDirectionMethodInfo + ResolveStyleContextMethod "setFrameClock" o = StyleContextSetFrameClockMethodInfo + ResolveStyleContextMethod "setJunctionSides" o = StyleContextSetJunctionSidesMethodInfo + ResolveStyleContextMethod "setParent" o = StyleContextSetParentMethodInfo + ResolveStyleContextMethod "setPath" o = StyleContextSetPathMethodInfo + ResolveStyleContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveStyleContextMethod "setScale" o = StyleContextSetScaleMethodInfo + ResolveStyleContextMethod "setScreen" o = StyleContextSetScreenMethodInfo + ResolveStyleContextMethod "setState" o = StyleContextSetStateMethodInfo + ResolveStyleContextMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveStyleContextMethod t StyleContext, MethodInfo info StyleContext p) => IsLabelProxy t (StyleContext -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveStyleContextMethod t StyleContext, MethodInfo info StyleContext p) => IsLabel t (StyleContext -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal StyleContext::changed type StyleContextChangedCallback = IO () @@ -365,7 +493,7 @@ type AttrSetTypeConstraint StyleContextDirectionPropertyInfo = (~) TextDirection type AttrBaseTypeConstraint StyleContextDirectionPropertyInfo = StyleContextK type AttrGetType StyleContextDirectionPropertyInfo = TextDirection - type AttrLabel StyleContextDirectionPropertyInfo = "StyleContext::direction" + type AttrLabel StyleContextDirectionPropertyInfo = "direction" attrGet _ = getStyleContextDirection attrSet _ = setStyleContextDirection attrConstruct _ = constructStyleContextDirection @@ -389,7 +517,7 @@ type AttrSetTypeConstraint StyleContextPaintClockPropertyInfo = Gdk.FrameClockK type AttrBaseTypeConstraint StyleContextPaintClockPropertyInfo = StyleContextK type AttrGetType StyleContextPaintClockPropertyInfo = Gdk.FrameClock - type AttrLabel StyleContextPaintClockPropertyInfo = "StyleContext::paint-clock" + type AttrLabel StyleContextPaintClockPropertyInfo = "paint-clock" attrGet _ = getStyleContextPaintClock attrSet _ = setStyleContextPaintClock attrConstruct _ = constructStyleContextPaintClock @@ -413,7 +541,7 @@ type AttrSetTypeConstraint StyleContextParentPropertyInfo = StyleContextK type AttrBaseTypeConstraint StyleContextParentPropertyInfo = StyleContextK type AttrGetType StyleContextParentPropertyInfo = StyleContext - type AttrLabel StyleContextParentPropertyInfo = "StyleContext::parent" + type AttrLabel StyleContextParentPropertyInfo = "parent" attrGet _ = getStyleContextParent attrSet _ = setStyleContextParent attrConstruct _ = constructStyleContextParent @@ -437,13 +565,13 @@ type AttrSetTypeConstraint StyleContextScreenPropertyInfo = Gdk.ScreenK type AttrBaseTypeConstraint StyleContextScreenPropertyInfo = StyleContextK type AttrGetType StyleContextScreenPropertyInfo = Gdk.Screen - type AttrLabel StyleContextScreenPropertyInfo = "StyleContext::screen" + type AttrLabel StyleContextScreenPropertyInfo = "screen" attrGet _ = getStyleContextScreen attrSet _ = setStyleContextScreen attrConstruct _ = constructStyleContextScreen type instance AttributeList StyleContext = StyleContextAttributeList -type StyleContextAttributeList = ('[ '("direction", StyleContextDirectionPropertyInfo), '("paint-clock", StyleContextPaintClockPropertyInfo), '("parent", StyleContextParentPropertyInfo), '("screen", StyleContextScreenPropertyInfo)] :: [(Symbol, *)]) +type StyleContextAttributeList = ('[ '("direction", StyleContextDirectionPropertyInfo), '("paintClock", StyleContextPaintClockPropertyInfo), '("parent", StyleContextParentPropertyInfo), '("screen", StyleContextScreenPropertyInfo)] :: [(Symbol, *)]) data StyleContextChangedSignalInfo instance SignalInfo StyleContextChangedSignalInfo where @@ -451,13 +579,12 @@ connectSignal _ = connectStyleContextChanged type instance SignalList StyleContext = StyleContextSignalList -type StyleContextSignalList = ('[ '("changed", StyleContextChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type StyleContextSignalList = ('[ '("changed", StyleContextChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method StyleContext::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "StyleContext" -- throws : False -- Skip return : False @@ -468,7 +595,7 @@ styleContextNew :: (MonadIO m) => - m StyleContext + m StyleContext -- result styleContextNew = liftIO $ do result <- gtk_style_context_new checkUnexpectedReturnNULL "gtk_style_context_new" result @@ -477,9 +604,8 @@ -- method StyleContext::add_class -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -492,22 +618,25 @@ styleContextAddClass :: (MonadIO m, StyleContextK a) => - a -> -- _obj - T.Text -> -- class_name - m () -styleContextAddClass _obj class_name = liftIO $ do + a -- _obj + -> T.Text -- className + -> m () -- result +styleContextAddClass _obj className = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - class_name' <- textToCString class_name - gtk_style_context_add_class _obj' class_name' + className' <- textToCString className + gtk_style_context_add_class _obj' className' touchManagedPtr _obj - freeMem class_name' + freeMem className' return () +data StyleContextAddClassMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextAddClassMethodInfo a signature where + overloadedMethod _ = styleContextAddClass + -- method StyleContext::add_provider -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -521,10 +650,10 @@ styleContextAddProvider :: (MonadIO m, StyleContextK a, StyleProviderK b) => - a -> -- _obj - b -> -- provider - Word32 -> -- priority - m () + a -- _obj + -> b -- provider + -> Word32 -- priority + -> m () -- result styleContextAddProvider _obj provider priority = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let provider' = unsafeManagedPtrCastPtr provider @@ -533,11 +662,14 @@ touchManagedPtr provider return () +data StyleContextAddProviderMethodInfo +instance (signature ~ (b -> Word32 -> m ()), MonadIO m, StyleContextK a, StyleProviderK b) => MethodInfo StyleContextAddProviderMethodInfo a signature where + overloadedMethod _ = styleContextAddProvider + -- method StyleContext::add_region -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -551,24 +683,27 @@ {-# DEPRECATED styleContextAddRegion ["(Since version 3.14)"]#-} styleContextAddRegion :: (MonadIO m, StyleContextK a) => - a -> -- _obj - T.Text -> -- region_name - [RegionFlags] -> -- flags - m () -styleContextAddRegion _obj region_name flags = liftIO $ do + a -- _obj + -> T.Text -- regionName + -> [RegionFlags] -- flags + -> m () -- result +styleContextAddRegion _obj regionName flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - region_name' <- textToCString region_name + regionName' <- textToCString regionName let flags' = gflagsToWord flags - gtk_style_context_add_region _obj' region_name' flags' + gtk_style_context_add_region _obj' regionName' flags' touchManagedPtr _obj - freeMem region_name' + freeMem regionName' return () +data StyleContextAddRegionMethodInfo +instance (signature ~ (T.Text -> [RegionFlags] -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextAddRegionMethodInfo a signature where + overloadedMethod _ = styleContextAddRegion + -- method StyleContext::cancel_animations -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -581,24 +716,27 @@ {-# DEPRECATED styleContextCancelAnimations ["(Since version 3.6)","This function does nothing."]#-} styleContextCancelAnimations :: (MonadIO m, StyleContextK a) => - a -> -- _obj - Maybe (Ptr ()) -> -- region_id - m () -styleContextCancelAnimations _obj region_id = liftIO $ do + a -- _obj + -> Maybe (Ptr ()) -- regionId + -> m () -- result +styleContextCancelAnimations _obj regionId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeRegion_id <- case region_id of + maybeRegionId <- case regionId of Nothing -> return nullPtr - Just jRegion_id -> do - return jRegion_id - gtk_style_context_cancel_animations _obj' maybeRegion_id + Just jRegionId -> do + return jRegionId + gtk_style_context_cancel_animations _obj' maybeRegionId touchManagedPtr _obj return () +data StyleContextCancelAnimationsMethodInfo +instance (signature ~ (Maybe (Ptr ()) -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextCancelAnimationsMethodInfo a signature where + overloadedMethod _ = styleContextCancelAnimations + -- method StyleContext::get_background_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -612,9 +750,9 @@ {-# DEPRECATED styleContextGetBackgroundColor ["(Since version 3.16)","Use gtk_render_background() instead."]#-} styleContextGetBackgroundColor :: (MonadIO m, StyleContextK a) => - a -> -- _obj - [StateFlags] -> -- state - m (Gdk.RGBA) + a -- _obj + -> [StateFlags] -- state + -> m (Gdk.RGBA) -- result styleContextGetBackgroundColor _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -624,11 +762,14 @@ touchManagedPtr _obj return color' +data StyleContextGetBackgroundColorMethodInfo +instance (signature ~ ([StateFlags] -> m (Gdk.RGBA)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetBackgroundColorMethodInfo a signature where + overloadedMethod _ = styleContextGetBackgroundColor + -- method StyleContext::get_border -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -642,9 +783,9 @@ styleContextGetBorder :: (MonadIO m, StyleContextK a) => - a -> -- _obj - [StateFlags] -> -- state - m (Border) + a -- _obj + -> [StateFlags] -- state + -> m (Border) -- result styleContextGetBorder _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -654,11 +795,14 @@ touchManagedPtr _obj return border' +data StyleContextGetBorderMethodInfo +instance (signature ~ ([StateFlags] -> m (Border)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetBorderMethodInfo a signature where + overloadedMethod _ = styleContextGetBorder + -- method StyleContext::get_border_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -672,9 +816,9 @@ {-# DEPRECATED styleContextGetBorderColor ["(Since version 3.16)","Use gtk_render_border() instead."]#-} styleContextGetBorderColor :: (MonadIO m, StyleContextK a) => - a -> -- _obj - [StateFlags] -> -- state - m (Gdk.RGBA) + a -- _obj + -> [StateFlags] -- state + -> m (Gdk.RGBA) -- result styleContextGetBorderColor _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -684,11 +828,14 @@ touchManagedPtr _obj return color' +data StyleContextGetBorderColorMethodInfo +instance (signature ~ ([StateFlags] -> m (Gdk.RGBA)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetBorderColorMethodInfo a signature where + overloadedMethod _ = styleContextGetBorderColor + -- method StyleContext::get_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -702,9 +849,9 @@ styleContextGetColor :: (MonadIO m, StyleContextK a) => - a -> -- _obj - [StateFlags] -> -- state - m (Gdk.RGBA) + a -- _obj + -> [StateFlags] -- state + -> m (Gdk.RGBA) -- result styleContextGetColor _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -714,11 +861,14 @@ touchManagedPtr _obj return color' +data StyleContextGetColorMethodInfo +instance (signature ~ ([StateFlags] -> m (Gdk.RGBA)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetColorMethodInfo a signature where + overloadedMethod _ = styleContextGetColor + -- method StyleContext::get_direction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TextDirection" -- throws : False -- Skip return : False @@ -730,8 +880,8 @@ {-# DEPRECATED styleContextGetDirection ["(Since version 3.8)","Use gtk_style_context_get_state() and"," check for #GTK_STATE_FLAG_DIR_LTR and"," #GTK_STATE_FLAG_DIR_RTL instead."]#-} styleContextGetDirection :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m TextDirection + a -- _obj + -> m TextDirection -- result styleContextGetDirection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_context_get_direction _obj' @@ -739,11 +889,14 @@ touchManagedPtr _obj return result' +data StyleContextGetDirectionMethodInfo +instance (signature ~ (m TextDirection), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetDirectionMethodInfo a signature where + overloadedMethod _ = styleContextGetDirection + -- method StyleContext::get_font -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "FontDescription" -- throws : False -- Skip return : False @@ -756,9 +909,9 @@ {-# DEPRECATED styleContextGetFont ["(Since version 3.8)","Use gtk_style_context_get() for \"font\" or"," subproperties instead."]#-} styleContextGetFont :: (MonadIO m, StyleContextK a) => - a -> -- _obj - [StateFlags] -> -- state - m Pango.FontDescription + a -- _obj + -> [StateFlags] -- state + -> m Pango.FontDescription -- result styleContextGetFont _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -768,11 +921,14 @@ touchManagedPtr _obj return result' +data StyleContextGetFontMethodInfo +instance (signature ~ ([StateFlags] -> m Pango.FontDescription), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetFontMethodInfo a signature where + overloadedMethod _ = styleContextGetFont + -- method StyleContext::get_frame_clock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "FrameClock" -- throws : False -- Skip return : False @@ -784,8 +940,8 @@ styleContextGetFrameClock :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m Gdk.FrameClock + a -- _obj + -> m Gdk.FrameClock -- result styleContextGetFrameClock _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_context_get_frame_clock _obj' @@ -794,11 +950,14 @@ touchManagedPtr _obj return result' +data StyleContextGetFrameClockMethodInfo +instance (signature ~ (m Gdk.FrameClock), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetFrameClockMethodInfo a signature where + overloadedMethod _ = styleContextGetFrameClock + -- method StyleContext::get_junction_sides -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "JunctionSides" -- throws : False -- Skip return : False @@ -810,8 +969,8 @@ styleContextGetJunctionSides :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m [JunctionSides] + a -- _obj + -> m [JunctionSides] -- result styleContextGetJunctionSides _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_context_get_junction_sides _obj' @@ -819,11 +978,14 @@ touchManagedPtr _obj return result' +data StyleContextGetJunctionSidesMethodInfo +instance (signature ~ (m [JunctionSides]), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetJunctionSidesMethodInfo a signature where + overloadedMethod _ = styleContextGetJunctionSides + -- method StyleContext::get_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -837,9 +999,9 @@ styleContextGetMargin :: (MonadIO m, StyleContextK a) => - a -> -- _obj - [StateFlags] -> -- state - m (Border) + a -- _obj + -> [StateFlags] -- state + -> m (Border) -- result styleContextGetMargin _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -849,11 +1011,14 @@ touchManagedPtr _obj return margin' +data StyleContextGetMarginMethodInfo +instance (signature ~ ([StateFlags] -> m (Border)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetMarginMethodInfo a signature where + overloadedMethod _ = styleContextGetMargin + -- method StyleContext::get_padding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -867,9 +1032,9 @@ styleContextGetPadding :: (MonadIO m, StyleContextK a) => - a -> -- _obj - [StateFlags] -> -- state - m (Border) + a -- _obj + -> [StateFlags] -- state + -> m (Border) -- result styleContextGetPadding _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -879,11 +1044,14 @@ touchManagedPtr _obj return padding' +data StyleContextGetPaddingMethodInfo +instance (signature ~ ([StateFlags] -> m (Border)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetPaddingMethodInfo a signature where + overloadedMethod _ = styleContextGetPadding + -- method StyleContext::get_parent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StyleContext" -- throws : False -- Skip return : False @@ -895,8 +1063,8 @@ styleContextGetParent :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m StyleContext + a -- _obj + -> m StyleContext -- result styleContextGetParent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_context_get_parent _obj' @@ -905,11 +1073,14 @@ touchManagedPtr _obj return result' +data StyleContextGetParentMethodInfo +instance (signature ~ (m StyleContext), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetParentMethodInfo a signature where + overloadedMethod _ = styleContextGetParent + -- method StyleContext::get_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "WidgetPath" -- throws : False -- Skip return : False @@ -921,8 +1092,8 @@ styleContextGetPath :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m WidgetPath + a -- _obj + -> m WidgetPath -- result styleContextGetPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_context_get_path _obj' @@ -931,11 +1102,14 @@ touchManagedPtr _obj return result' +data StyleContextGetPathMethodInfo +instance (signature ~ (m WidgetPath), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetPathMethodInfo a signature where + overloadedMethod _ = styleContextGetPath + -- method StyleContext::get_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -950,10 +1124,10 @@ styleContextGetProperty :: (MonadIO m, StyleContextK a) => - a -> -- _obj - T.Text -> -- property - [StateFlags] -> -- state - m (GValue) + a -- _obj + -> T.Text -- property + -> [StateFlags] -- state + -> m (GValue) -- result styleContextGetProperty _obj property state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj property' <- textToCString property @@ -965,11 +1139,14 @@ freeMem property' return value' +data StyleContextGetPropertyMethodInfo +instance (signature ~ (T.Text -> [StateFlags] -> m (GValue)), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetPropertyMethodInfo a signature where + overloadedMethod _ = styleContextGetProperty + -- method StyleContext::get_scale -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -981,19 +1158,22 @@ styleContextGetScale :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result styleContextGetScale _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_context_get_scale _obj' touchManagedPtr _obj return result +data StyleContextGetScaleMethodInfo +instance (signature ~ (m Int32), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetScaleMethodInfo a signature where + overloadedMethod _ = styleContextGetScale + -- method StyleContext::get_screen -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Screen" -- throws : False -- Skip return : False @@ -1005,8 +1185,8 @@ styleContextGetScreen :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m Gdk.Screen + a -- _obj + -> m Gdk.Screen -- result styleContextGetScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_context_get_screen _obj' @@ -1015,11 +1195,14 @@ touchManagedPtr _obj return result' +data StyleContextGetScreenMethodInfo +instance (signature ~ (m Gdk.Screen), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetScreenMethodInfo a signature where + overloadedMethod _ = styleContextGetScreen + -- method StyleContext::get_section -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CssSection" -- throws : False -- Skip return : False @@ -1032,9 +1215,9 @@ styleContextGetSection :: (MonadIO m, StyleContextK a) => - a -> -- _obj - T.Text -> -- property - m CssSection + a -- _obj + -> T.Text -- property + -> m CssSection -- result styleContextGetSection _obj property = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj property' <- textToCString property @@ -1045,11 +1228,14 @@ freeMem property' return result' +data StyleContextGetSectionMethodInfo +instance (signature ~ (T.Text -> m CssSection), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetSectionMethodInfo a signature where + overloadedMethod _ = styleContextGetSection + -- method StyleContext::get_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StateFlags" -- throws : False -- Skip return : False @@ -1061,8 +1247,8 @@ styleContextGetState :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m [StateFlags] + a -- _obj + -> m [StateFlags] -- result styleContextGetState _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_context_get_state _obj' @@ -1070,11 +1256,14 @@ touchManagedPtr _obj return result' +data StyleContextGetStateMethodInfo +instance (signature ~ (m [StateFlags]), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetStateMethodInfo a signature where + overloadedMethod _ = styleContextGetState + -- method StyleContext::get_style_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1088,25 +1277,28 @@ styleContextGetStyleProperty :: (MonadIO m, StyleContextK a) => - a -> -- _obj - T.Text -> -- property_name - GValue -> -- value - m () -styleContextGetStyleProperty _obj property_name value = liftIO $ do + a -- _obj + -> T.Text -- propertyName + -> GValue -- value + -> m () -- result +styleContextGetStyleProperty _obj propertyName value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - property_name' <- textToCString property_name + propertyName' <- textToCString propertyName let value' = unsafeManagedPtrGetPtr value - gtk_style_context_get_style_property _obj' property_name' value' + gtk_style_context_get_style_property _obj' propertyName' value' touchManagedPtr _obj touchManagedPtr value - freeMem property_name' + freeMem propertyName' return () +data StyleContextGetStylePropertyMethodInfo +instance (signature ~ (T.Text -> GValue -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextGetStylePropertyMethodInfo a signature where + overloadedMethod _ = styleContextGetStyleProperty + -- method StyleContext::has_class -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1119,23 +1311,26 @@ styleContextHasClass :: (MonadIO m, StyleContextK a) => - a -> -- _obj - T.Text -> -- class_name - m Bool -styleContextHasClass _obj class_name = liftIO $ do + a -- _obj + -> T.Text -- className + -> m Bool -- result +styleContextHasClass _obj className = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - class_name' <- textToCString class_name - result <- gtk_style_context_has_class _obj' class_name' + className' <- textToCString className + result <- gtk_style_context_has_class _obj' className' let result' = (/= 0) result touchManagedPtr _obj - freeMem class_name' + freeMem className' return result' +data StyleContextHasClassMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, StyleContextK a) => MethodInfo StyleContextHasClassMethodInfo a signature where + overloadedMethod _ = styleContextHasClass + -- method StyleContext::has_region -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags_return", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags_return", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1149,27 +1344,30 @@ {-# DEPRECATED styleContextHasRegion ["(Since version 3.14)"]#-} styleContextHasRegion :: (MonadIO m, StyleContextK a) => - a -> -- _obj - T.Text -> -- region_name - m (Bool,[RegionFlags]) -styleContextHasRegion _obj region_name = liftIO $ do + a -- _obj + -> T.Text -- regionName + -> m (Bool,[RegionFlags]) -- result +styleContextHasRegion _obj regionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - region_name' <- textToCString region_name - flags_return <- allocMem :: IO (Ptr CUInt) - result <- gtk_style_context_has_region _obj' region_name' flags_return + regionName' <- textToCString regionName + flagsReturn <- allocMem :: IO (Ptr CUInt) + result <- gtk_style_context_has_region _obj' regionName' flagsReturn let result' = (/= 0) result - flags_return' <- peek flags_return - let flags_return'' = wordToGFlags flags_return' + flagsReturn' <- peek flagsReturn + let flagsReturn'' = wordToGFlags flagsReturn' touchManagedPtr _obj - freeMem region_name' - freeMem flags_return - return (result', flags_return'') + freeMem regionName' + freeMem flagsReturn + return (result', flagsReturn'') +data StyleContextHasRegionMethodInfo +instance (signature ~ (T.Text -> m (Bool,[RegionFlags])), MonadIO m, StyleContextK a) => MethodInfo StyleContextHasRegionMethodInfo a signature where + overloadedMethod _ = styleContextHasRegion + -- method StyleContext::invalidate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1181,19 +1379,22 @@ {-# DEPRECATED styleContextInvalidate ["(Since version 3.12)","Style contexts are invalidated automatically."]#-} styleContextInvalidate :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result styleContextInvalidate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_style_context_invalidate _obj' touchManagedPtr _obj return () +data StyleContextInvalidateMethodInfo +instance (signature ~ (m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextInvalidateMethodInfo a signature where + overloadedMethod _ = styleContextInvalidate + -- method StyleContext::list_classes -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1205,8 +1406,8 @@ styleContextListClasses :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result styleContextListClasses _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_context_list_classes _obj' @@ -1217,11 +1418,14 @@ touchManagedPtr _obj return result'' +data StyleContextListClassesMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, StyleContextK a) => MethodInfo StyleContextListClassesMethodInfo a signature where + overloadedMethod _ = styleContextListClasses + -- method StyleContext::list_regions -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1233,8 +1437,8 @@ {-# DEPRECATED styleContextListRegions ["(Since version 3.14)"]#-} styleContextListRegions :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result styleContextListRegions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_context_list_regions _obj' @@ -1245,11 +1449,14 @@ touchManagedPtr _obj return result'' +data StyleContextListRegionsMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, StyleContextK a) => MethodInfo StyleContextListRegionsMethodInfo a signature where + overloadedMethod _ = styleContextListRegions + -- method StyleContext::lookup_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1263,25 +1470,28 @@ styleContextLookupColor :: (MonadIO m, StyleContextK a) => - a -> -- _obj - T.Text -> -- color_name - m (Bool,Gdk.RGBA) -styleContextLookupColor _obj color_name = liftIO $ do + a -- _obj + -> T.Text -- colorName + -> m (Bool,Gdk.RGBA) -- result +styleContextLookupColor _obj colorName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - color_name' <- textToCString color_name + colorName' <- textToCString colorName color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - result <- gtk_style_context_lookup_color _obj' color_name' color + result <- gtk_style_context_lookup_color _obj' colorName' color let result' = (/= 0) result color' <- (wrapBoxed Gdk.RGBA) color touchManagedPtr _obj - freeMem color_name' + freeMem colorName' return (result', color') +data StyleContextLookupColorMethodInfo +instance (signature ~ (T.Text -> m (Bool,Gdk.RGBA)), MonadIO m, StyleContextK a) => MethodInfo StyleContextLookupColorMethodInfo a signature where + overloadedMethod _ = styleContextLookupColor + -- method StyleContext::lookup_icon_set -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconSet" -- throws : False -- Skip return : False @@ -1294,24 +1504,27 @@ {-# DEPRECATED styleContextLookupIconSet ["(Since version 3.10)","Use gtk_icon_theme_lookup_icon() instead."]#-} styleContextLookupIconSet :: (MonadIO m, StyleContextK a) => - a -> -- _obj - T.Text -> -- stock_id - m IconSet -styleContextLookupIconSet _obj stock_id = liftIO $ do + a -- _obj + -> T.Text -- stockId + -> m IconSet -- result +styleContextLookupIconSet _obj stockId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - result <- gtk_style_context_lookup_icon_set _obj' stock_id' + stockId' <- textToCString stockId + result <- gtk_style_context_lookup_icon_set _obj' stockId' checkUnexpectedReturnNULL "gtk_style_context_lookup_icon_set" result result' <- (newBoxed IconSet) result touchManagedPtr _obj - freeMem stock_id' + freeMem stockId' return result' +data StyleContextLookupIconSetMethodInfo +instance (signature ~ (T.Text -> m IconSet), MonadIO m, StyleContextK a) => MethodInfo StyleContextLookupIconSetMethodInfo a signature where + overloadedMethod _ = styleContextLookupIconSet + -- method StyleContext::notify_state_change -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1327,31 +1540,34 @@ {-# DEPRECATED styleContextNotifyStateChange ["(Since version 3.6)","This function does nothing."]#-} styleContextNotifyStateChange :: (MonadIO m, StyleContextK a, Gdk.WindowK b) => - a -> -- _obj - b -> -- window - Maybe (Ptr ()) -> -- region_id - StateType -> -- state - Bool -> -- state_value - m () -styleContextNotifyStateChange _obj window region_id state state_value = liftIO $ do + a -- _obj + -> b -- window + -> Maybe (Ptr ()) -- regionId + -> StateType -- state + -> Bool -- stateValue + -> m () -- result +styleContextNotifyStateChange _obj window regionId state stateValue = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let window' = unsafeManagedPtrCastPtr window - maybeRegion_id <- case region_id of + maybeRegionId <- case regionId of Nothing -> return nullPtr - Just jRegion_id -> do - return jRegion_id + Just jRegionId -> do + return jRegionId let state' = (fromIntegral . fromEnum) state - let state_value' = (fromIntegral . fromEnum) state_value - gtk_style_context_notify_state_change _obj' window' maybeRegion_id state' state_value' + let stateValue' = (fromIntegral . fromEnum) stateValue + gtk_style_context_notify_state_change _obj' window' maybeRegionId state' stateValue' touchManagedPtr _obj touchManagedPtr window return () +data StyleContextNotifyStateChangeMethodInfo +instance (signature ~ (b -> Maybe (Ptr ()) -> StateType -> Bool -> m ()), MonadIO m, StyleContextK a, Gdk.WindowK b) => MethodInfo StyleContextNotifyStateChangeMethodInfo a signature where + overloadedMethod _ = styleContextNotifyStateChange + -- method StyleContext::pop_animatable_region -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1363,19 +1579,22 @@ {-# DEPRECATED styleContextPopAnimatableRegion ["(Since version 3.6)","This function does nothing."]#-} styleContextPopAnimatableRegion :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result styleContextPopAnimatableRegion _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_style_context_pop_animatable_region _obj' touchManagedPtr _obj return () +data StyleContextPopAnimatableRegionMethodInfo +instance (signature ~ (m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextPopAnimatableRegionMethodInfo a signature where + overloadedMethod _ = styleContextPopAnimatableRegion + -- method StyleContext::push_animatable_region -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1388,20 +1607,23 @@ {-# DEPRECATED styleContextPushAnimatableRegion ["(Since version 3.6)","This function does nothing."]#-} styleContextPushAnimatableRegion :: (MonadIO m, StyleContextK a) => - a -> -- _obj - Ptr () -> -- region_id - m () -styleContextPushAnimatableRegion _obj region_id = liftIO $ do + a -- _obj + -> Ptr () -- regionId + -> m () -- result +styleContextPushAnimatableRegion _obj regionId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_push_animatable_region _obj' region_id + gtk_style_context_push_animatable_region _obj' regionId touchManagedPtr _obj return () +data StyleContextPushAnimatableRegionMethodInfo +instance (signature ~ (Ptr () -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextPushAnimatableRegionMethodInfo a signature where + overloadedMethod _ = styleContextPushAnimatableRegion + -- method StyleContext::remove_class -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1414,22 +1636,25 @@ styleContextRemoveClass :: (MonadIO m, StyleContextK a) => - a -> -- _obj - T.Text -> -- class_name - m () -styleContextRemoveClass _obj class_name = liftIO $ do + a -- _obj + -> T.Text -- className + -> m () -- result +styleContextRemoveClass _obj className = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - class_name' <- textToCString class_name - gtk_style_context_remove_class _obj' class_name' + className' <- textToCString className + gtk_style_context_remove_class _obj' className' touchManagedPtr _obj - freeMem class_name' + freeMem className' return () +data StyleContextRemoveClassMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextRemoveClassMethodInfo a signature where + overloadedMethod _ = styleContextRemoveClass + -- method StyleContext::remove_provider -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1442,9 +1667,9 @@ styleContextRemoveProvider :: (MonadIO m, StyleContextK a, StyleProviderK b) => - a -> -- _obj - b -> -- provider - m () + a -- _obj + -> b -- provider + -> m () -- result styleContextRemoveProvider _obj provider = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let provider' = unsafeManagedPtrCastPtr provider @@ -1453,11 +1678,14 @@ touchManagedPtr provider return () +data StyleContextRemoveProviderMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, StyleContextK a, StyleProviderK b) => MethodInfo StyleContextRemoveProviderMethodInfo a signature where + overloadedMethod _ = styleContextRemoveProvider + -- method StyleContext::remove_region -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1470,22 +1698,25 @@ {-# DEPRECATED styleContextRemoveRegion ["(Since version 3.14)"]#-} styleContextRemoveRegion :: (MonadIO m, StyleContextK a) => - a -> -- _obj - T.Text -> -- region_name - m () -styleContextRemoveRegion _obj region_name = liftIO $ do + a -- _obj + -> T.Text -- regionName + -> m () -- result +styleContextRemoveRegion _obj regionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - region_name' <- textToCString region_name - gtk_style_context_remove_region _obj' region_name' + regionName' <- textToCString regionName + gtk_style_context_remove_region _obj' regionName' touchManagedPtr _obj - freeMem region_name' + freeMem regionName' return () +data StyleContextRemoveRegionMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextRemoveRegionMethodInfo a signature where + overloadedMethod _ = styleContextRemoveRegion + -- method StyleContext::restore -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1497,19 +1728,22 @@ styleContextRestore :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result styleContextRestore _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_style_context_restore _obj' touchManagedPtr _obj return () +data StyleContextRestoreMethodInfo +instance (signature ~ (m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextRestoreMethodInfo a signature where + overloadedMethod _ = styleContextRestore + -- method StyleContext::save -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1521,19 +1755,22 @@ styleContextSave :: (MonadIO m, StyleContextK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result styleContextSave _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_style_context_save _obj' touchManagedPtr _obj return () +data StyleContextSaveMethodInfo +instance (signature ~ (m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextSaveMethodInfo a signature where + overloadedMethod _ = styleContextSave + -- method StyleContext::scroll_animations -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1548,11 +1785,11 @@ {-# DEPRECATED styleContextScrollAnimations ["(Since version 3.6)","This function does nothing."]#-} styleContextScrollAnimations :: (MonadIO m, StyleContextK a, Gdk.WindowK b) => - a -> -- _obj - b -> -- window - Int32 -> -- dx - Int32 -> -- dy - m () + a -- _obj + -> b -- window + -> Int32 -- dx + -> Int32 -- dy + -> m () -- result styleContextScrollAnimations _obj window dx dy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let window' = unsafeManagedPtrCastPtr window @@ -1561,11 +1798,14 @@ touchManagedPtr window return () +data StyleContextScrollAnimationsMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, StyleContextK a, Gdk.WindowK b) => MethodInfo StyleContextScrollAnimationsMethodInfo a signature where + overloadedMethod _ = styleContextScrollAnimations + -- method StyleContext::set_background -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1578,9 +1818,9 @@ {-# DEPRECATED styleContextSetBackground ["(Since version 3.18)","Use gtk_render_background() instead."," Note that clients still using this function are now responsible"," for calling this function again whenever @context is invalidated."]#-} styleContextSetBackground :: (MonadIO m, StyleContextK a, Gdk.WindowK b) => - a -> -- _obj - b -> -- window - m () + a -- _obj + -> b -- window + -> m () -- result styleContextSetBackground _obj window = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let window' = unsafeManagedPtrCastPtr window @@ -1589,11 +1829,14 @@ touchManagedPtr window return () +data StyleContextSetBackgroundMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, StyleContextK a, Gdk.WindowK b) => MethodInfo StyleContextSetBackgroundMethodInfo a signature where + overloadedMethod _ = styleContextSetBackground + -- method StyleContext::set_direction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1606,9 +1849,9 @@ {-# DEPRECATED styleContextSetDirection ["(Since version 3.8)","Use gtk_style_context_set_state() with"," #GTK_STATE_FLAG_DIR_LTR and #GTK_STATE_FLAG_DIR_RTL"," instead."]#-} styleContextSetDirection :: (MonadIO m, StyleContextK a) => - a -> -- _obj - TextDirection -> -- direction - m () + a -- _obj + -> TextDirection -- direction + -> m () -- result styleContextSetDirection _obj direction = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let direction' = (fromIntegral . fromEnum) direction @@ -1616,11 +1859,14 @@ touchManagedPtr _obj return () +data StyleContextSetDirectionMethodInfo +instance (signature ~ (TextDirection -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextSetDirectionMethodInfo a signature where + overloadedMethod _ = styleContextSetDirection + -- method StyleContext::set_frame_clock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_clock", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "frame_clock", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_clock", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1633,22 +1879,25 @@ styleContextSetFrameClock :: (MonadIO m, StyleContextK a, Gdk.FrameClockK b) => - a -> -- _obj - b -> -- frame_clock - m () -styleContextSetFrameClock _obj frame_clock = liftIO $ do + a -- _obj + -> b -- frameClock + -> m () -- result +styleContextSetFrameClock _obj frameClock = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let frame_clock' = unsafeManagedPtrCastPtr frame_clock - gtk_style_context_set_frame_clock _obj' frame_clock' + let frameClock' = unsafeManagedPtrCastPtr frameClock + gtk_style_context_set_frame_clock _obj' frameClock' touchManagedPtr _obj - touchManagedPtr frame_clock + touchManagedPtr frameClock return () +data StyleContextSetFrameClockMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, StyleContextK a, Gdk.FrameClockK b) => MethodInfo StyleContextSetFrameClockMethodInfo a signature where + overloadedMethod _ = styleContextSetFrameClock + -- method StyleContext::set_junction_sides -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sides", argType = TInterface "Gtk" "JunctionSides", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sides", argType = TInterface "Gtk" "JunctionSides", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sides", argType = TInterface "Gtk" "JunctionSides", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1661,9 +1910,9 @@ styleContextSetJunctionSides :: (MonadIO m, StyleContextK a) => - a -> -- _obj - [JunctionSides] -> -- sides - m () + a -- _obj + -> [JunctionSides] -- sides + -> m () -- result styleContextSetJunctionSides _obj sides = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sides' = gflagsToWord sides @@ -1671,11 +1920,14 @@ touchManagedPtr _obj return () +data StyleContextSetJunctionSidesMethodInfo +instance (signature ~ ([JunctionSides] -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextSetJunctionSidesMethodInfo a signature where + overloadedMethod _ = styleContextSetJunctionSides + -- method StyleContext::set_parent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1688,9 +1940,9 @@ styleContextSetParent :: (MonadIO m, StyleContextK a, StyleContextK b) => - a -> -- _obj - Maybe (b) -> -- parent - m () + a -- _obj + -> Maybe (b) -- parent + -> m () -- result styleContextSetParent _obj parent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeParent <- case parent of @@ -1703,11 +1955,14 @@ whenJust parent touchManagedPtr return () +data StyleContextSetParentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, StyleContextK a, StyleContextK b) => MethodInfo StyleContextSetParentMethodInfo a signature where + overloadedMethod _ = styleContextSetParent + -- method StyleContext::set_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1720,9 +1975,9 @@ styleContextSetPath :: (MonadIO m, StyleContextK a) => - a -> -- _obj - WidgetPath -> -- path - m () + a -- _obj + -> WidgetPath -- path + -> m () -- result styleContextSetPath _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -1731,11 +1986,14 @@ touchManagedPtr path return () +data StyleContextSetPathMethodInfo +instance (signature ~ (WidgetPath -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextSetPathMethodInfo a signature where + overloadedMethod _ = styleContextSetPath + -- method StyleContext::set_scale -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1748,20 +2006,23 @@ styleContextSetScale :: (MonadIO m, StyleContextK a) => - a -> -- _obj - Int32 -> -- scale - m () + a -- _obj + -> Int32 -- scale + -> m () -- result styleContextSetScale _obj scale = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_style_context_set_scale _obj' scale touchManagedPtr _obj return () +data StyleContextSetScaleMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextSetScaleMethodInfo a signature where + overloadedMethod _ = styleContextSetScale + -- method StyleContext::set_screen -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1774,9 +2035,9 @@ styleContextSetScreen :: (MonadIO m, StyleContextK a, Gdk.ScreenK b) => - a -> -- _obj - b -> -- screen - m () + a -- _obj + -> b -- screen + -> m () -- result styleContextSetScreen _obj screen = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let screen' = unsafeManagedPtrCastPtr screen @@ -1785,11 +2046,14 @@ touchManagedPtr screen return () +data StyleContextSetScreenMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, StyleContextK a, Gdk.ScreenK b) => MethodInfo StyleContextSetScreenMethodInfo a signature where + overloadedMethod _ = styleContextSetScreen + -- method StyleContext::set_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1802,9 +2066,9 @@ styleContextSetState :: (MonadIO m, StyleContextK a) => - a -> -- _obj - [StateFlags] -> -- flags - m () + a -- _obj + -> [StateFlags] -- flags + -> m () -- result styleContextSetState _obj flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let flags' = gflagsToWord flags @@ -1812,11 +2076,14 @@ touchManagedPtr _obj return () +data StyleContextSetStateMethodInfo +instance (signature ~ ([StateFlags] -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextSetStateMethodInfo a signature where + overloadedMethod _ = styleContextSetState + -- method StyleContext::state_is_running -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "progress", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1830,9 +2097,9 @@ {-# DEPRECATED styleContextStateIsRunning ["(Since version 3.6)","This function always returns %FALSE"]#-} styleContextStateIsRunning :: (MonadIO m, StyleContextK a) => - a -> -- _obj - StateType -> -- state - m (Bool,Double) + a -- _obj + -> StateType -- state + -> m (Bool,Double) -- result styleContextStateIsRunning _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = (fromIntegral . fromEnum) state @@ -1845,11 +2112,14 @@ freeMem progress return (result', progress'') +data StyleContextStateIsRunningMethodInfo +instance (signature ~ (StateType -> m (Bool,Double)), MonadIO m, StyleContextK a) => MethodInfo StyleContextStateIsRunningMethodInfo a signature where + overloadedMethod _ = styleContextStateIsRunning + -- method StyleContext::add_provider_for_screen -- method type : MemberFunction --- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1863,10 +2133,10 @@ styleContextAddProviderForScreen :: (MonadIO m, Gdk.ScreenK a, StyleProviderK b) => - a -> -- screen - b -> -- provider - Word32 -> -- priority - m () + a -- screen + -> b -- provider + -> Word32 -- priority + -> m () -- result styleContextAddProviderForScreen screen provider priority = liftIO $ do let screen' = unsafeManagedPtrCastPtr screen let provider' = unsafeManagedPtrCastPtr provider @@ -1877,9 +2147,8 @@ -- method StyleContext::remove_provider_for_screen -- method type : MemberFunction --- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1892,9 +2161,9 @@ styleContextRemoveProviderForScreen :: (MonadIO m, Gdk.ScreenK a, StyleProviderK b) => - a -> -- screen - b -> -- provider - m () + a -- screen + -> b -- provider + -> m () -- result styleContextRemoveProviderForScreen screen provider = liftIO $ do let screen' = unsafeManagedPtrCastPtr screen let provider' = unsafeManagedPtrCastPtr provider @@ -1905,9 +2174,8 @@ -- method StyleContext::reset_widgets -- method type : MemberFunction --- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1919,8 +2187,8 @@ styleContextResetWidgets :: (MonadIO m, Gdk.ScreenK a) => - a -> -- screen - m () + a -- screen + -> m () -- result styleContextResetWidgets screen = liftIO $ do let screen' = unsafeManagedPtrCastPtr screen gtk_style_context_reset_widgets screen' diff --git a/GI/Gtk/Objects/StyleContext.hs-boot b/GI/Gtk/Objects/StyleContext.hs-boot --- a/GI/Gtk/Objects/StyleContext.hs-boot +++ b/GI/Gtk/Objects/StyleContext.hs-boot @@ -16,3 +16,51 @@ data StyleContextParentPropertyInfo data StyleContextScreenPropertyInfo data StyleContextChangedSignalInfo +data StyleContextAddClassMethodInfo +data StyleContextAddProviderMethodInfo +data StyleContextAddRegionMethodInfo +data StyleContextCancelAnimationsMethodInfo +data StyleContextGetBackgroundColorMethodInfo +data StyleContextGetBorderMethodInfo +data StyleContextGetBorderColorMethodInfo +data StyleContextGetColorMethodInfo +data StyleContextGetDirectionMethodInfo +data StyleContextGetFontMethodInfo +data StyleContextGetFrameClockMethodInfo +data StyleContextGetJunctionSidesMethodInfo +data StyleContextGetMarginMethodInfo +data StyleContextGetPaddingMethodInfo +data StyleContextGetParentMethodInfo +data StyleContextGetPathMethodInfo +data StyleContextGetPropertyMethodInfo +data StyleContextGetScaleMethodInfo +data StyleContextGetScreenMethodInfo +data StyleContextGetSectionMethodInfo +data StyleContextGetStateMethodInfo +data StyleContextGetStylePropertyMethodInfo +data StyleContextHasClassMethodInfo +data StyleContextHasRegionMethodInfo +data StyleContextInvalidateMethodInfo +data StyleContextListClassesMethodInfo +data StyleContextListRegionsMethodInfo +data StyleContextLookupColorMethodInfo +data StyleContextLookupIconSetMethodInfo +data StyleContextNotifyStateChangeMethodInfo +data StyleContextPopAnimatableRegionMethodInfo +data StyleContextPushAnimatableRegionMethodInfo +data StyleContextRemoveClassMethodInfo +data StyleContextRemoveProviderMethodInfo +data StyleContextRemoveRegionMethodInfo +data StyleContextRestoreMethodInfo +data StyleContextSaveMethodInfo +data StyleContextScrollAnimationsMethodInfo +data StyleContextSetBackgroundMethodInfo +data StyleContextSetDirectionMethodInfo +data StyleContextSetFrameClockMethodInfo +data StyleContextSetJunctionSidesMethodInfo +data StyleContextSetParentMethodInfo +data StyleContextSetPathMethodInfo +data StyleContextSetScaleMethodInfo +data StyleContextSetScreenMethodInfo +data StyleContextSetStateMethodInfo +data StyleContextStateIsRunningMethodInfo diff --git a/GI/Gtk/Objects/StyleProperties.hs b/GI/Gtk/Objects/StyleProperties.hs --- a/GI/Gtk/Objects/StyleProperties.hs +++ b/GI/Gtk/Objects/StyleProperties.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** stylePropertiesClear + StylePropertiesClearMethodInfo , stylePropertiesClear , -- ** stylePropertiesGetProperty + StylePropertiesGetPropertyMethodInfo , stylePropertiesGetProperty , -- ** stylePropertiesLookupColor + StylePropertiesLookupColorMethodInfo , stylePropertiesLookupColor , -- ** stylePropertiesMapColor + StylePropertiesMapColorMethodInfo , stylePropertiesMapColor , -- ** stylePropertiesMerge + StylePropertiesMergeMethodInfo , stylePropertiesMerge , @@ -41,10 +47,12 @@ -- ** stylePropertiesSetProperty + StylePropertiesSetPropertyMethodInfo , stylePropertiesSetProperty , -- ** stylePropertiesUnsetProperty + StylePropertiesUnsetPropertyMethodInfo , stylePropertiesUnsetProperty , @@ -84,17 +92,55 @@ noStyleProperties :: Maybe StyleProperties noStyleProperties = Nothing +type family ResolveStylePropertiesMethod (t :: Symbol) (o :: *) :: * where + ResolveStylePropertiesMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveStylePropertiesMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveStylePropertiesMethod "clear" o = StylePropertiesClearMethodInfo + ResolveStylePropertiesMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveStylePropertiesMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveStylePropertiesMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveStylePropertiesMethod "lookupColor" o = StylePropertiesLookupColorMethodInfo + ResolveStylePropertiesMethod "mapColor" o = StylePropertiesMapColorMethodInfo + ResolveStylePropertiesMethod "merge" o = StylePropertiesMergeMethodInfo + ResolveStylePropertiesMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveStylePropertiesMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveStylePropertiesMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveStylePropertiesMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveStylePropertiesMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveStylePropertiesMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveStylePropertiesMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveStylePropertiesMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveStylePropertiesMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveStylePropertiesMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveStylePropertiesMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveStylePropertiesMethod "unsetProperty" o = StylePropertiesUnsetPropertyMethodInfo + ResolveStylePropertiesMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveStylePropertiesMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveStylePropertiesMethod "getIconFactory" o = StyleProviderGetIconFactoryMethodInfo + ResolveStylePropertiesMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveStylePropertiesMethod "getStyle" o = StyleProviderGetStyleMethodInfo + ResolveStylePropertiesMethod "getStyleProperty" o = StyleProviderGetStylePropertyMethodInfo + ResolveStylePropertiesMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveStylePropertiesMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveStylePropertiesMethod t StyleProperties, MethodInfo info StyleProperties p) => IsLabelProxy t (StyleProperties -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveStylePropertiesMethod t StyleProperties, MethodInfo info StyleProperties p) => IsLabel t (StyleProperties -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList StyleProperties = StylePropertiesAttributeList type StylePropertiesAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList StyleProperties = StylePropertiesSignalList -type StylePropertiesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type StylePropertiesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method StyleProperties::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "StyleProperties" -- throws : False -- Skip return : False @@ -105,7 +151,7 @@ {-# DEPRECATED stylePropertiesNew ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-} stylePropertiesNew :: (MonadIO m) => - m StyleProperties + m StyleProperties -- result stylePropertiesNew = liftIO $ do result <- gtk_style_properties_new checkUnexpectedReturnNULL "gtk_style_properties_new" result @@ -114,9 +160,8 @@ -- method StyleProperties::clear -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -128,19 +173,22 @@ {-# DEPRECATED stylePropertiesClear ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-} stylePropertiesClear :: (MonadIO m, StylePropertiesK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result stylePropertiesClear _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_style_properties_clear _obj' touchManagedPtr _obj return () +data StylePropertiesClearMethodInfo +instance (signature ~ (m ()), MonadIO m, StylePropertiesK a) => MethodInfo StylePropertiesClearMethodInfo a signature where + overloadedMethod _ = stylePropertiesClear + -- method StyleProperties::get_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -155,10 +203,10 @@ {-# DEPRECATED stylePropertiesGetProperty ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-} stylePropertiesGetProperty :: (MonadIO m, StylePropertiesK a) => - a -> -- _obj - T.Text -> -- property - [StateFlags] -> -- state - m (Bool,GValue) + a -- _obj + -> T.Text -- property + -> [StateFlags] -- state + -> m (Bool,GValue) -- result stylePropertiesGetProperty _obj property state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj property' <- textToCString property @@ -171,11 +219,14 @@ freeMem property' return (result', value') +data StylePropertiesGetPropertyMethodInfo +instance (signature ~ (T.Text -> [StateFlags] -> m (Bool,GValue)), MonadIO m, StylePropertiesK a) => MethodInfo StylePropertiesGetPropertyMethodInfo a signature where + overloadedMethod _ = stylePropertiesGetProperty + -- method StyleProperties::lookup_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SymbolicColor" -- throws : False -- Skip return : False @@ -188,9 +239,9 @@ {-# DEPRECATED stylePropertiesLookupColor ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} stylePropertiesLookupColor :: (MonadIO m, StylePropertiesK a) => - a -> -- _obj - T.Text -> -- name - m SymbolicColor + a -- _obj + -> T.Text -- name + -> m SymbolicColor -- result stylePropertiesLookupColor _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -201,11 +252,14 @@ freeMem name' return result' +data StylePropertiesLookupColorMethodInfo +instance (signature ~ (T.Text -> m SymbolicColor), MonadIO m, StylePropertiesK a) => MethodInfo StylePropertiesLookupColorMethodInfo a signature where + overloadedMethod _ = stylePropertiesLookupColor + -- method StyleProperties::map_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -219,10 +273,10 @@ {-# DEPRECATED stylePropertiesMapColor ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} stylePropertiesMapColor :: (MonadIO m, StylePropertiesK a) => - a -> -- _obj - T.Text -> -- name - SymbolicColor -> -- color - m () + a -- _obj + -> T.Text -- name + -> SymbolicColor -- color + -> m () -- result stylePropertiesMapColor _obj name color = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -233,11 +287,14 @@ freeMem name' return () +data StylePropertiesMapColorMethodInfo +instance (signature ~ (T.Text -> SymbolicColor -> m ()), MonadIO m, StylePropertiesK a) => MethodInfo StylePropertiesMapColorMethodInfo a signature where + overloadedMethod _ = stylePropertiesMapColor + -- method StyleProperties::merge -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props_to_merge", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "props_to_merge", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props_to_merge", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -251,24 +308,27 @@ {-# DEPRECATED stylePropertiesMerge ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-} stylePropertiesMerge :: (MonadIO m, StylePropertiesK a, StylePropertiesK b) => - a -> -- _obj - b -> -- props_to_merge - Bool -> -- replace - m () -stylePropertiesMerge _obj props_to_merge replace = liftIO $ do + a -- _obj + -> b -- propsToMerge + -> Bool -- replace + -> m () -- result +stylePropertiesMerge _obj propsToMerge replace = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let props_to_merge' = unsafeManagedPtrCastPtr props_to_merge + let propsToMerge' = unsafeManagedPtrCastPtr propsToMerge let replace' = (fromIntegral . fromEnum) replace - gtk_style_properties_merge _obj' props_to_merge' replace' + gtk_style_properties_merge _obj' propsToMerge' replace' touchManagedPtr _obj - touchManagedPtr props_to_merge + touchManagedPtr propsToMerge return () +data StylePropertiesMergeMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, StylePropertiesK a, StylePropertiesK b) => MethodInfo StylePropertiesMergeMethodInfo a signature where + overloadedMethod _ = stylePropertiesMerge + -- method StyleProperties::set_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -283,11 +343,11 @@ {-# DEPRECATED stylePropertiesSetProperty ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-} stylePropertiesSetProperty :: (MonadIO m, StylePropertiesK a) => - a -> -- _obj - T.Text -> -- property - [StateFlags] -> -- state - GValue -> -- value - m () + a -- _obj + -> T.Text -- property + -> [StateFlags] -- state + -> GValue -- value + -> m () -- result stylePropertiesSetProperty _obj property state value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj property' <- textToCString property @@ -299,11 +359,14 @@ freeMem property' return () +data StylePropertiesSetPropertyMethodInfo +instance (signature ~ (T.Text -> [StateFlags] -> GValue -> m ()), MonadIO m, StylePropertiesK a) => MethodInfo StylePropertiesSetPropertyMethodInfo a signature where + overloadedMethod _ = stylePropertiesSetProperty + -- method StyleProperties::unset_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -317,10 +380,10 @@ {-# DEPRECATED stylePropertiesUnsetProperty ["(Since version 3.16)","#GtkStyleProperties are deprecated."]#-} stylePropertiesUnsetProperty :: (MonadIO m, StylePropertiesK a) => - a -> -- _obj - T.Text -> -- property - [StateFlags] -> -- state - m () + a -- _obj + -> T.Text -- property + -> [StateFlags] -- state + -> m () -- result stylePropertiesUnsetProperty _obj property state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj property' <- textToCString property @@ -329,5 +392,9 @@ touchManagedPtr _obj freeMem property' return () + +data StylePropertiesUnsetPropertyMethodInfo +instance (signature ~ (T.Text -> [StateFlags] -> m ()), MonadIO m, StylePropertiesK a) => MethodInfo StylePropertiesUnsetPropertyMethodInfo a signature where + overloadedMethod _ = stylePropertiesUnsetProperty diff --git a/GI/Gtk/Objects/StyleProperties.hs-boot b/GI/Gtk/Objects/StyleProperties.hs-boot --- a/GI/Gtk/Objects/StyleProperties.hs-boot +++ b/GI/Gtk/Objects/StyleProperties.hs-boot @@ -11,3 +11,10 @@ instance GObject StyleProperties where class GObject o => StylePropertiesK o instance (GObject o, IsDescendantOf StyleProperties o) => StylePropertiesK o +data StylePropertiesClearMethodInfo +data StylePropertiesGetPropertyMethodInfo +data StylePropertiesLookupColorMethodInfo +data StylePropertiesMapColorMethodInfo +data StylePropertiesMergeMethodInfo +data StylePropertiesSetPropertyMethodInfo +data StylePropertiesUnsetPropertyMethodInfo diff --git a/GI/Gtk/Objects/Switch.hs b/GI/Gtk/Objects/Switch.hs --- a/GI/Gtk/Objects/Switch.hs +++ b/GI/Gtk/Objects/Switch.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** switchGetActive + SwitchGetActiveMethodInfo , switchGetActive , -- ** switchGetState + SwitchGetStateMethodInfo , switchGetState , @@ -29,10 +32,12 @@ -- ** switchSetActive + SwitchSetActiveMethodInfo , switchSetActive , -- ** switchSetState + SwitchSetStateMethodInfo , switchSetState , @@ -117,6 +122,313 @@ noSwitch :: Maybe Switch noSwitch = Nothing +type family ResolveSwitchMethod (t :: Symbol) (o :: *) :: * where + ResolveSwitchMethod "activate" o = WidgetActivateMethodInfo + ResolveSwitchMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveSwitchMethod "addChild" o = BuildableAddChildMethodInfo + ResolveSwitchMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveSwitchMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveSwitchMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveSwitchMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveSwitchMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSwitchMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSwitchMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveSwitchMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveSwitchMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveSwitchMethod "classPath" o = WidgetClassPathMethodInfo + ResolveSwitchMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveSwitchMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveSwitchMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveSwitchMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveSwitchMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveSwitchMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveSwitchMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveSwitchMethod "destroy" o = WidgetDestroyMethodInfo + ResolveSwitchMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveSwitchMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveSwitchMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveSwitchMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveSwitchMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveSwitchMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveSwitchMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveSwitchMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveSwitchMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveSwitchMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveSwitchMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveSwitchMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveSwitchMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveSwitchMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveSwitchMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveSwitchMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveSwitchMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveSwitchMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveSwitchMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveSwitchMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveSwitchMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveSwitchMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveSwitchMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveSwitchMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveSwitchMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveSwitchMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveSwitchMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveSwitchMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveSwitchMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveSwitchMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveSwitchMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveSwitchMethod "draw" o = WidgetDrawMethodInfo + ResolveSwitchMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveSwitchMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveSwitchMethod "event" o = WidgetEventMethodInfo + ResolveSwitchMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSwitchMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveSwitchMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSwitchMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveSwitchMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveSwitchMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveSwitchMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveSwitchMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveSwitchMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveSwitchMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveSwitchMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveSwitchMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveSwitchMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveSwitchMethod "hide" o = WidgetHideMethodInfo + ResolveSwitchMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveSwitchMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveSwitchMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveSwitchMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveSwitchMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveSwitchMethod "intersect" o = WidgetIntersectMethodInfo + ResolveSwitchMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveSwitchMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveSwitchMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveSwitchMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSwitchMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveSwitchMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveSwitchMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveSwitchMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveSwitchMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveSwitchMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveSwitchMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveSwitchMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveSwitchMethod "map" o = WidgetMapMethodInfo + ResolveSwitchMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveSwitchMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveSwitchMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveSwitchMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveSwitchMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveSwitchMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveSwitchMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveSwitchMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveSwitchMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSwitchMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSwitchMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveSwitchMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveSwitchMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveSwitchMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveSwitchMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveSwitchMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveSwitchMethod "path" o = WidgetPathMethodInfo + ResolveSwitchMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveSwitchMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveSwitchMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveSwitchMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveSwitchMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveSwitchMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveSwitchMethod "realize" o = WidgetRealizeMethodInfo + ResolveSwitchMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSwitchMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSwitchMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveSwitchMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveSwitchMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveSwitchMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveSwitchMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveSwitchMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveSwitchMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveSwitchMethod "reparent" o = WidgetReparentMethodInfo + ResolveSwitchMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSwitchMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSwitchMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveSwitchMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveSwitchMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSwitchMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveSwitchMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveSwitchMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveSwitchMethod "show" o = WidgetShowMethodInfo + ResolveSwitchMethod "showAll" o = WidgetShowAllMethodInfo + ResolveSwitchMethod "showNow" o = WidgetShowNowMethodInfo + ResolveSwitchMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveSwitchMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveSwitchMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveSwitchMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSwitchMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSwitchMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveSwitchMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveSwitchMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveSwitchMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveSwitchMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSwitchMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveSwitchMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveSwitchMethod "unmap" o = WidgetUnmapMethodInfo + ResolveSwitchMethod "unparent" o = WidgetUnparentMethodInfo + ResolveSwitchMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveSwitchMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSwitchMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveSwitchMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveSwitchMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSwitchMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveSwitchMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveSwitchMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveSwitchMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveSwitchMethod "getActive" o = SwitchGetActiveMethodInfo + ResolveSwitchMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveSwitchMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveSwitchMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveSwitchMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveSwitchMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveSwitchMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveSwitchMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveSwitchMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveSwitchMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveSwitchMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveSwitchMethod "getClip" o = WidgetGetClipMethodInfo + ResolveSwitchMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveSwitchMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveSwitchMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSwitchMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveSwitchMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveSwitchMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveSwitchMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveSwitchMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveSwitchMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveSwitchMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveSwitchMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveSwitchMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveSwitchMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveSwitchMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveSwitchMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveSwitchMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveSwitchMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveSwitchMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveSwitchMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveSwitchMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveSwitchMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveSwitchMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveSwitchMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveSwitchMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveSwitchMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveSwitchMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveSwitchMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveSwitchMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveSwitchMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveSwitchMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveSwitchMethod "getParent" o = WidgetGetParentMethodInfo + ResolveSwitchMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveSwitchMethod "getPath" o = WidgetGetPathMethodInfo + ResolveSwitchMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveSwitchMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveSwitchMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveSwitchMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveSwitchMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveSwitchMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveSwitchMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveSwitchMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSwitchMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSwitchMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveSwitchMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveSwitchMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveSwitchMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveSwitchMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveSwitchMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveSwitchMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveSwitchMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveSwitchMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveSwitchMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveSwitchMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveSwitchMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveSwitchMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveSwitchMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveSwitchMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveSwitchMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveSwitchMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveSwitchMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveSwitchMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveSwitchMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveSwitchMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveSwitchMethod "getValign" o = WidgetGetValignMethodInfo + ResolveSwitchMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveSwitchMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveSwitchMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveSwitchMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveSwitchMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveSwitchMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveSwitchMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveSwitchMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveSwitchMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveSwitchMethod "setActive" o = SwitchSetActiveMethodInfo + ResolveSwitchMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveSwitchMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveSwitchMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveSwitchMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveSwitchMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveSwitchMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveSwitchMethod "setClip" o = WidgetSetClipMethodInfo + ResolveSwitchMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveSwitchMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSwitchMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveSwitchMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveSwitchMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveSwitchMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveSwitchMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveSwitchMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveSwitchMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveSwitchMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveSwitchMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveSwitchMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveSwitchMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveSwitchMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveSwitchMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveSwitchMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveSwitchMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveSwitchMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveSwitchMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveSwitchMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveSwitchMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveSwitchMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveSwitchMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveSwitchMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveSwitchMethod "setParent" o = WidgetSetParentMethodInfo + ResolveSwitchMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveSwitchMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSwitchMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveSwitchMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveSwitchMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveSwitchMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveSwitchMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveSwitchMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveSwitchMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveSwitchMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveSwitchMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveSwitchMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveSwitchMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveSwitchMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveSwitchMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveSwitchMethod "setValign" o = WidgetSetValignMethodInfo + ResolveSwitchMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveSwitchMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveSwitchMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveSwitchMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveSwitchMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveSwitchMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSwitchMethod t Switch, MethodInfo info Switch p) => IsLabelProxy t (Switch -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSwitchMethod t Switch, MethodInfo info Switch p) => IsLabel t (Switch -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Switch::activate type SwitchActivateCallback = IO () @@ -218,7 +530,7 @@ type AttrSetTypeConstraint SwitchActivePropertyInfo = (~) Bool type AttrBaseTypeConstraint SwitchActivePropertyInfo = SwitchK type AttrGetType SwitchActivePropertyInfo = Bool - type AttrLabel SwitchActivePropertyInfo = "Switch::active" + type AttrLabel SwitchActivePropertyInfo = "active" attrGet _ = getSwitchActive attrSet _ = setSwitchActive attrConstruct _ = constructSwitchActive @@ -242,13 +554,13 @@ type AttrSetTypeConstraint SwitchStatePropertyInfo = (~) Bool type AttrBaseTypeConstraint SwitchStatePropertyInfo = SwitchK type AttrGetType SwitchStatePropertyInfo = Bool - type AttrLabel SwitchStatePropertyInfo = "Switch::state" + type AttrLabel SwitchStatePropertyInfo = "state" attrGet _ = getSwitchState attrSet _ = setSwitchState attrConstruct _ = constructSwitchState type instance AttributeList Switch = SwitchAttributeList -type SwitchAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", SwitchActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("state", SwitchStatePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type SwitchAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", SwitchActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("state", SwitchStatePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data SwitchActivateSignalInfo instance SignalInfo SwitchActivateSignalInfo where @@ -261,13 +573,12 @@ connectSignal _ = connectSwitchStateSet type instance SignalList Switch = SwitchSignalList -type SwitchSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", SwitchActivateSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("state-set", SwitchStateSetSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SwitchSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", SwitchActivateSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("stateSet", SwitchStateSetSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Switch::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Switch" -- throws : False -- Skip return : False @@ -278,7 +589,7 @@ switchNew :: (MonadIO m) => - m Switch + m Switch -- result switchNew = liftIO $ do result <- gtk_switch_new checkUnexpectedReturnNULL "gtk_switch_new" result @@ -287,9 +598,8 @@ -- method Switch::get_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -301,8 +611,8 @@ switchGetActive :: (MonadIO m, SwitchK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result switchGetActive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_switch_get_active _obj' @@ -310,11 +620,14 @@ touchManagedPtr _obj return result' +data SwitchGetActiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, SwitchK a) => MethodInfo SwitchGetActiveMethodInfo a signature where + overloadedMethod _ = switchGetActive + -- method Switch::get_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -326,8 +639,8 @@ switchGetState :: (MonadIO m, SwitchK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result switchGetState _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_switch_get_state _obj' @@ -335,11 +648,14 @@ touchManagedPtr _obj return result' +data SwitchGetStateMethodInfo +instance (signature ~ (m Bool), MonadIO m, SwitchK a) => MethodInfo SwitchGetStateMethodInfo a signature where + overloadedMethod _ = switchGetState + -- method Switch::set_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -352,21 +668,24 @@ switchSetActive :: (MonadIO m, SwitchK a) => - a -> -- _obj - Bool -> -- is_active - m () -switchSetActive _obj is_active = liftIO $ do + a -- _obj + -> Bool -- isActive + -> m () -- result +switchSetActive _obj isActive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let is_active' = (fromIntegral . fromEnum) is_active - gtk_switch_set_active _obj' is_active' + let isActive' = (fromIntegral . fromEnum) isActive + gtk_switch_set_active _obj' isActive' touchManagedPtr _obj return () +data SwitchSetActiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SwitchK a) => MethodInfo SwitchSetActiveMethodInfo a signature where + overloadedMethod _ = switchSetActive + -- method Switch::set_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -379,14 +698,18 @@ switchSetState :: (MonadIO m, SwitchK a) => - a -> -- _obj - Bool -> -- state - m () + a -- _obj + -> Bool -- state + -> m () -- result switchSetState _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = (fromIntegral . fromEnum) state gtk_switch_set_state _obj' state' touchManagedPtr _obj return () + +data SwitchSetStateMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, SwitchK a) => MethodInfo SwitchSetStateMethodInfo a signature where + overloadedMethod _ = switchSetState diff --git a/GI/Gtk/Objects/Switch.hs-boot b/GI/Gtk/Objects/Switch.hs-boot --- a/GI/Gtk/Objects/Switch.hs-boot +++ b/GI/Gtk/Objects/Switch.hs-boot @@ -15,3 +15,7 @@ data SwitchStatePropertyInfo data SwitchActivateSignalInfo data SwitchStateSetSignalInfo +data SwitchGetActiveMethodInfo +data SwitchGetStateMethodInfo +data SwitchSetActiveMethodInfo +data SwitchSetStateMethodInfo diff --git a/GI/Gtk/Objects/SwitchAccessible.hs b/GI/Gtk/Objects/SwitchAccessible.hs --- a/GI/Gtk/Objects/SwitchAccessible.hs +++ b/GI/Gtk/Objects/SwitchAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,79 @@ noSwitchAccessible :: Maybe SwitchAccessible noSwitchAccessible = Nothing +type family ResolveSwitchAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveSwitchAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveSwitchAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSwitchAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSwitchAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveSwitchAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveSwitchAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveSwitchAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSwitchAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSwitchAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveSwitchAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveSwitchAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSwitchAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSwitchAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSwitchAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveSwitchAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveSwitchAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSwitchAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveSwitchAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveSwitchAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveSwitchAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSwitchAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveSwitchAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveSwitchAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveSwitchAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveSwitchAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSwitchAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSwitchAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSwitchAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSwitchAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSwitchAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSwitchAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSwitchAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSwitchAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveSwitchAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveSwitchAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSwitchAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveSwitchAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveSwitchAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveSwitchAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveSwitchAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveSwitchAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveSwitchAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveSwitchAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveSwitchAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveSwitchAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSwitchAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSwitchAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveSwitchAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveSwitchAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveSwitchAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSwitchAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveSwitchAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveSwitchAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveSwitchAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveSwitchAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSwitchAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveSwitchAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveSwitchAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveSwitchAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSwitchAccessibleMethod t SwitchAccessible, MethodInfo info SwitchAccessible p) => IsLabelProxy t (SwitchAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSwitchAccessibleMethod t SwitchAccessible, MethodInfo info SwitchAccessible p) => IsLabel t (SwitchAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList SwitchAccessible = SwitchAccessibleAttributeList -type SwitchAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type SwitchAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList SwitchAccessible = SwitchAccessibleSignalList -type SwitchAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SwitchAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/Table.hs b/GI/Gtk/Objects/Table.hs --- a/GI/Gtk/Objects/Table.hs +++ b/GI/Gtk/Objects/Table.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * Methods -- ** tableAttach + TableAttachMethodInfo , tableAttach , -- ** tableAttachDefaults + TableAttachDefaultsMethodInfo , tableAttachDefaults , -- ** tableGetColSpacing + TableGetColSpacingMethodInfo , tableGetColSpacing , -- ** tableGetDefaultColSpacing + TableGetDefaultColSpacingMethodInfo , tableGetDefaultColSpacing , -- ** tableGetDefaultRowSpacing + TableGetDefaultRowSpacingMethodInfo , tableGetDefaultRowSpacing , -- ** tableGetHomogeneous + TableGetHomogeneousMethodInfo , tableGetHomogeneous , -- ** tableGetRowSpacing + TableGetRowSpacingMethodInfo , tableGetRowSpacing , -- ** tableGetSize + TableGetSizeMethodInfo , tableGetSize , @@ -53,26 +62,32 @@ -- ** tableResize + TableResizeMethodInfo , tableResize , -- ** tableSetColSpacing + TableSetColSpacingMethodInfo , tableSetColSpacing , -- ** tableSetColSpacings + TableSetColSpacingsMethodInfo , tableSetColSpacings , -- ** tableSetHomogeneous + TableSetHomogeneousMethodInfo , tableSetHomogeneous , -- ** tableSetRowSpacing + TableSetRowSpacingMethodInfo , tableSetRowSpacing , -- ** tableSetRowSpacings + TableSetRowSpacingsMethodInfo , tableSetRowSpacings , @@ -151,6 +166,342 @@ noTable :: Maybe Table noTable = Nothing +type family ResolveTableMethod (t :: Symbol) (o :: *) :: * where + ResolveTableMethod "activate" o = WidgetActivateMethodInfo + ResolveTableMethod "add" o = ContainerAddMethodInfo + ResolveTableMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveTableMethod "addChild" o = BuildableAddChildMethodInfo + ResolveTableMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveTableMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveTableMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveTableMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveTableMethod "attach" o = TableAttachMethodInfo + ResolveTableMethod "attachDefaults" o = TableAttachDefaultsMethodInfo + ResolveTableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTableMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveTableMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveTableMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveTableMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveTableMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveTableMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveTableMethod "childType" o = ContainerChildTypeMethodInfo + ResolveTableMethod "classPath" o = WidgetClassPathMethodInfo + ResolveTableMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveTableMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveTableMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveTableMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveTableMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveTableMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveTableMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveTableMethod "destroy" o = WidgetDestroyMethodInfo + ResolveTableMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveTableMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveTableMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveTableMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveTableMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveTableMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveTableMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveTableMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveTableMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveTableMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveTableMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveTableMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveTableMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveTableMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveTableMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveTableMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveTableMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveTableMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveTableMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveTableMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveTableMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveTableMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveTableMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveTableMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveTableMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveTableMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveTableMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveTableMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveTableMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveTableMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveTableMethod "draw" o = WidgetDrawMethodInfo + ResolveTableMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveTableMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveTableMethod "event" o = WidgetEventMethodInfo + ResolveTableMethod "forall" o = ContainerForallMethodInfo + ResolveTableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTableMethod "foreach" o = ContainerForeachMethodInfo + ResolveTableMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveTableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTableMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveTableMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveTableMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveTableMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveTableMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveTableMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveTableMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveTableMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveTableMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveTableMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveTableMethod "hide" o = WidgetHideMethodInfo + ResolveTableMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveTableMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveTableMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveTableMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveTableMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveTableMethod "intersect" o = WidgetIntersectMethodInfo + ResolveTableMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveTableMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveTableMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveTableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTableMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveTableMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveTableMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveTableMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveTableMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveTableMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveTableMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveTableMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveTableMethod "map" o = WidgetMapMethodInfo + ResolveTableMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveTableMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveTableMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveTableMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveTableMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveTableMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveTableMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveTableMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveTableMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTableMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveTableMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveTableMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveTableMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveTableMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveTableMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveTableMethod "path" o = WidgetPathMethodInfo + ResolveTableMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveTableMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveTableMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveTableMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveTableMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveTableMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveTableMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveTableMethod "realize" o = WidgetRealizeMethodInfo + ResolveTableMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTableMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveTableMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveTableMethod "remove" o = ContainerRemoveMethodInfo + ResolveTableMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveTableMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveTableMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveTableMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveTableMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveTableMethod "reparent" o = WidgetReparentMethodInfo + ResolveTableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTableMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveTableMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveTableMethod "resize" o = TableResizeMethodInfo + ResolveTableMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveTableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTableMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveTableMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveTableMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveTableMethod "show" o = WidgetShowMethodInfo + ResolveTableMethod "showAll" o = WidgetShowAllMethodInfo + ResolveTableMethod "showNow" o = WidgetShowNowMethodInfo + ResolveTableMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveTableMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveTableMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveTableMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTableMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveTableMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveTableMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveTableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTableMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveTableMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveTableMethod "unmap" o = WidgetUnmapMethodInfo + ResolveTableMethod "unparent" o = WidgetUnparentMethodInfo + ResolveTableMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveTableMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTableMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveTableMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveTableMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveTableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTableMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveTableMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveTableMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveTableMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveTableMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveTableMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveTableMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveTableMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveTableMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveTableMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveTableMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveTableMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveTableMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveTableMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveTableMethod "getClip" o = WidgetGetClipMethodInfo + ResolveTableMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveTableMethod "getColSpacing" o = TableGetColSpacingMethodInfo + ResolveTableMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveTableMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTableMethod "getDefaultColSpacing" o = TableGetDefaultColSpacingMethodInfo + ResolveTableMethod "getDefaultRowSpacing" o = TableGetDefaultRowSpacingMethodInfo + ResolveTableMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveTableMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveTableMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveTableMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveTableMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveTableMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveTableMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveTableMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveTableMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveTableMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveTableMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveTableMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveTableMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveTableMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveTableMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveTableMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveTableMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveTableMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveTableMethod "getHomogeneous" o = TableGetHomogeneousMethodInfo + ResolveTableMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveTableMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveTableMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveTableMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveTableMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveTableMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveTableMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveTableMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveTableMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveTableMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveTableMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveTableMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveTableMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveTableMethod "getParent" o = WidgetGetParentMethodInfo + ResolveTableMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveTableMethod "getPath" o = WidgetGetPathMethodInfo + ResolveTableMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveTableMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveTableMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveTableMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveTableMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveTableMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveTableMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveTableMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveTableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTableMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveTableMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveTableMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveTableMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveTableMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveTableMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveTableMethod "getRowSpacing" o = TableGetRowSpacingMethodInfo + ResolveTableMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveTableMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveTableMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveTableMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveTableMethod "getSize" o = TableGetSizeMethodInfo + ResolveTableMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveTableMethod "getState" o = WidgetGetStateMethodInfo + ResolveTableMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveTableMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveTableMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveTableMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveTableMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveTableMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveTableMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveTableMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveTableMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveTableMethod "getValign" o = WidgetGetValignMethodInfo + ResolveTableMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveTableMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveTableMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveTableMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveTableMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveTableMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveTableMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveTableMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveTableMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveTableMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveTableMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveTableMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveTableMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveTableMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveTableMethod "setClip" o = WidgetSetClipMethodInfo + ResolveTableMethod "setColSpacing" o = TableSetColSpacingMethodInfo + ResolveTableMethod "setColSpacings" o = TableSetColSpacingsMethodInfo + ResolveTableMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveTableMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTableMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveTableMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveTableMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveTableMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveTableMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveTableMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveTableMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveTableMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveTableMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveTableMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveTableMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveTableMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveTableMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveTableMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveTableMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveTableMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveTableMethod "setHomogeneous" o = TableSetHomogeneousMethodInfo + ResolveTableMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveTableMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveTableMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveTableMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveTableMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveTableMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveTableMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveTableMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveTableMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveTableMethod "setParent" o = WidgetSetParentMethodInfo + ResolveTableMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveTableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTableMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveTableMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveTableMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveTableMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveTableMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveTableMethod "setRowSpacing" o = TableSetRowSpacingMethodInfo + ResolveTableMethod "setRowSpacings" o = TableSetRowSpacingsMethodInfo + ResolveTableMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveTableMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveTableMethod "setState" o = WidgetSetStateMethodInfo + ResolveTableMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveTableMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveTableMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveTableMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveTableMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveTableMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveTableMethod "setValign" o = WidgetSetValignMethodInfo + ResolveTableMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveTableMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveTableMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveTableMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveTableMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveTableMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTableMethod t Table, MethodInfo info Table p) => IsLabelProxy t (Table -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTableMethod t Table, MethodInfo info Table p) => IsLabel t (Table -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "column-spacing" -- Type: TBasicType TUInt32 -- Flags: [PropertyReadable,PropertyWritable] @@ -170,7 +521,7 @@ type AttrSetTypeConstraint TableColumnSpacingPropertyInfo = (~) Word32 type AttrBaseTypeConstraint TableColumnSpacingPropertyInfo = TableK type AttrGetType TableColumnSpacingPropertyInfo = Word32 - type AttrLabel TableColumnSpacingPropertyInfo = "Table::column-spacing" + type AttrLabel TableColumnSpacingPropertyInfo = "column-spacing" attrGet _ = getTableColumnSpacing attrSet _ = setTableColumnSpacing attrConstruct _ = constructTableColumnSpacing @@ -194,7 +545,7 @@ type AttrSetTypeConstraint TableHomogeneousPropertyInfo = (~) Bool type AttrBaseTypeConstraint TableHomogeneousPropertyInfo = TableK type AttrGetType TableHomogeneousPropertyInfo = Bool - type AttrLabel TableHomogeneousPropertyInfo = "Table::homogeneous" + type AttrLabel TableHomogeneousPropertyInfo = "homogeneous" attrGet _ = getTableHomogeneous attrSet _ = setTableHomogeneous attrConstruct _ = constructTableHomogeneous @@ -218,7 +569,7 @@ type AttrSetTypeConstraint TableNColumnsPropertyInfo = (~) Word32 type AttrBaseTypeConstraint TableNColumnsPropertyInfo = TableK type AttrGetType TableNColumnsPropertyInfo = Word32 - type AttrLabel TableNColumnsPropertyInfo = "Table::n-columns" + type AttrLabel TableNColumnsPropertyInfo = "n-columns" attrGet _ = getTableNColumns attrSet _ = setTableNColumns attrConstruct _ = constructTableNColumns @@ -242,7 +593,7 @@ type AttrSetTypeConstraint TableNRowsPropertyInfo = (~) Word32 type AttrBaseTypeConstraint TableNRowsPropertyInfo = TableK type AttrGetType TableNRowsPropertyInfo = Word32 - type AttrLabel TableNRowsPropertyInfo = "Table::n-rows" + type AttrLabel TableNRowsPropertyInfo = "n-rows" attrGet _ = getTableNRows attrSet _ = setTableNRows attrConstruct _ = constructTableNRows @@ -266,22 +617,21 @@ type AttrSetTypeConstraint TableRowSpacingPropertyInfo = (~) Word32 type AttrBaseTypeConstraint TableRowSpacingPropertyInfo = TableK type AttrGetType TableRowSpacingPropertyInfo = Word32 - type AttrLabel TableRowSpacingPropertyInfo = "Table::row-spacing" + type AttrLabel TableRowSpacingPropertyInfo = "row-spacing" attrGet _ = getTableRowSpacing attrSet _ = setTableRowSpacing attrConstruct _ = constructTableRowSpacing type instance AttributeList Table = TableAttributeList -type TableAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-spacing", TableColumnSpacingPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", TableHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("n-columns", TableNColumnsPropertyInfo), '("n-rows", TableNRowsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-spacing", TableRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type TableAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpacing", TableColumnSpacingPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", TableHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("nColumns", TableNColumnsPropertyInfo), '("nRows", TableNRowsPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpacing", TableRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Table = TableSignalList -type TableSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TableSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Table::new -- method type : Constructor --- Args : [Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Table" -- throws : False -- Skip return : False @@ -295,10 +645,10 @@ {-# DEPRECATED tableNew ["(Since version 3.4)","Use gtk_grid_new()."]#-} tableNew :: (MonadIO m) => - Word32 -> -- rows - Word32 -> -- columns - Bool -> -- homogeneous - m Table + Word32 -- rows + -> Word32 -- columns + -> Bool -- homogeneous + -> m Table -- result tableNew rows columns homogeneous = liftIO $ do let homogeneous' = (fromIntegral . fromEnum) homogeneous result <- gtk_table_new rows columns homogeneous' @@ -308,9 +658,8 @@ -- method Table::attach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -331,32 +680,35 @@ {-# DEPRECATED tableAttach ["(Since version 3.4)","Use gtk_grid_attach() with #GtkGrid. Note that the attach"," arguments differ between those two functions."]#-} tableAttach :: (MonadIO m, TableK a, WidgetK b) => - a -> -- _obj - b -> -- child - Word32 -> -- left_attach - Word32 -> -- right_attach - Word32 -> -- top_attach - Word32 -> -- bottom_attach - [AttachOptions] -> -- xoptions - [AttachOptions] -> -- yoptions - Word32 -> -- xpadding - Word32 -> -- ypadding - m () -tableAttach _obj child left_attach right_attach top_attach bottom_attach xoptions yoptions xpadding ypadding = liftIO $ do + a -- _obj + -> b -- child + -> Word32 -- leftAttach + -> Word32 -- rightAttach + -> Word32 -- topAttach + -> Word32 -- bottomAttach + -> [AttachOptions] -- xoptions + -> [AttachOptions] -- yoptions + -> Word32 -- xpadding + -> Word32 -- ypadding + -> m () -- result +tableAttach _obj child leftAttach rightAttach topAttach bottomAttach xoptions yoptions xpadding ypadding = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let child' = unsafeManagedPtrCastPtr child let xoptions' = gflagsToWord xoptions let yoptions' = gflagsToWord yoptions - gtk_table_attach _obj' child' left_attach right_attach top_attach bottom_attach xoptions' yoptions' xpadding ypadding + gtk_table_attach _obj' child' leftAttach rightAttach topAttach bottomAttach xoptions' yoptions' xpadding ypadding touchManagedPtr _obj touchManagedPtr child return () +data TableAttachMethodInfo +instance (signature ~ (b -> Word32 -> Word32 -> Word32 -> Word32 -> [AttachOptions] -> [AttachOptions] -> Word32 -> Word32 -> m ()), MonadIO m, TableK a, WidgetK b) => MethodInfo TableAttachMethodInfo a signature where + overloadedMethod _ = tableAttach + -- method Table::attach_defaults -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -373,26 +725,29 @@ {-# DEPRECATED tableAttachDefaults ["(Since version 3.4)","Use gtk_grid_attach() with #GtkGrid. Note that the attach"," arguments differ between those two functions."]#-} tableAttachDefaults :: (MonadIO m, TableK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Word32 -> -- left_attach - Word32 -> -- right_attach - Word32 -> -- top_attach - Word32 -> -- bottom_attach - m () -tableAttachDefaults _obj widget left_attach right_attach top_attach bottom_attach = liftIO $ do + a -- _obj + -> b -- widget + -> Word32 -- leftAttach + -> Word32 -- rightAttach + -> Word32 -- topAttach + -> Word32 -- bottomAttach + -> m () -- result +tableAttachDefaults _obj widget leftAttach rightAttach topAttach bottomAttach = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget - gtk_table_attach_defaults _obj' widget' left_attach right_attach top_attach bottom_attach + gtk_table_attach_defaults _obj' widget' leftAttach rightAttach topAttach bottomAttach touchManagedPtr _obj touchManagedPtr widget return () +data TableAttachDefaultsMethodInfo +instance (signature ~ (b -> Word32 -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m, TableK a, WidgetK b) => MethodInfo TableAttachDefaultsMethodInfo a signature where + overloadedMethod _ = tableAttachDefaults + -- method Table::get_col_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -405,20 +760,23 @@ {-# DEPRECATED tableGetColSpacing ["(Since version 3.4)","#GtkGrid does not offer a replacement for this"," functionality."]#-} tableGetColSpacing :: (MonadIO m, TableK a) => - a -> -- _obj - Word32 -> -- column - m Word32 + a -- _obj + -> Word32 -- column + -> m Word32 -- result tableGetColSpacing _obj column = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_table_get_col_spacing _obj' column touchManagedPtr _obj return result +data TableGetColSpacingMethodInfo +instance (signature ~ (Word32 -> m Word32), MonadIO m, TableK a) => MethodInfo TableGetColSpacingMethodInfo a signature where + overloadedMethod _ = tableGetColSpacing + -- method Table::get_default_col_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -430,19 +788,22 @@ {-# DEPRECATED tableGetDefaultColSpacing ["(Since version 3.4)","Use gtk_grid_get_column_spacing() with #GtkGrid."]#-} tableGetDefaultColSpacing :: (MonadIO m, TableK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result tableGetDefaultColSpacing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_table_get_default_col_spacing _obj' touchManagedPtr _obj return result +data TableGetDefaultColSpacingMethodInfo +instance (signature ~ (m Word32), MonadIO m, TableK a) => MethodInfo TableGetDefaultColSpacingMethodInfo a signature where + overloadedMethod _ = tableGetDefaultColSpacing + -- method Table::get_default_row_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -454,19 +815,22 @@ {-# DEPRECATED tableGetDefaultRowSpacing ["(Since version 3.4)","Use gtk_grid_get_row_spacing() with #GtkGrid."]#-} tableGetDefaultRowSpacing :: (MonadIO m, TableK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result tableGetDefaultRowSpacing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_table_get_default_row_spacing _obj' touchManagedPtr _obj return result +data TableGetDefaultRowSpacingMethodInfo +instance (signature ~ (m Word32), MonadIO m, TableK a) => MethodInfo TableGetDefaultRowSpacingMethodInfo a signature where + overloadedMethod _ = tableGetDefaultRowSpacing + -- method Table::get_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -478,8 +842,8 @@ {-# DEPRECATED tableGetHomogeneous ["(Since version 3.4)","Use gtk_grid_get_row_homogeneous() and"," gtk_grid_get_column_homogeneous() with #GtkGrid."]#-} tableGetHomogeneous :: (MonadIO m, TableK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result tableGetHomogeneous _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_table_get_homogeneous _obj' @@ -487,11 +851,14 @@ touchManagedPtr _obj return result' +data TableGetHomogeneousMethodInfo +instance (signature ~ (m Bool), MonadIO m, TableK a) => MethodInfo TableGetHomogeneousMethodInfo a signature where + overloadedMethod _ = tableGetHomogeneous + -- method Table::get_row_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -504,20 +871,23 @@ {-# DEPRECATED tableGetRowSpacing ["(Since version 3.4)","#GtkGrid does not offer a replacement for this"," functionality."]#-} tableGetRowSpacing :: (MonadIO m, TableK a) => - a -> -- _obj - Word32 -> -- row - m Word32 + a -- _obj + -> Word32 -- row + -> m Word32 -- result tableGetRowSpacing _obj row = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_table_get_row_spacing _obj' row touchManagedPtr _obj return result +data TableGetRowSpacingMethodInfo +instance (signature ~ (Word32 -> m Word32), MonadIO m, TableK a) => MethodInfo TableGetRowSpacingMethodInfo a signature where + overloadedMethod _ = tableGetRowSpacing + -- method Table::get_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "columns", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -531,8 +901,8 @@ {-# DEPRECATED tableGetSize ["(Since version 3.4)","#GtkGrid does not expose the number of columns and"," rows."]#-} tableGetSize :: (MonadIO m, TableK a) => - a -> -- _obj - m (Word32,Word32) + a -- _obj + -> m (Word32,Word32) -- result tableGetSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj rows <- allocMem :: IO (Ptr Word32) @@ -545,11 +915,14 @@ freeMem columns return (rows', columns') +data TableGetSizeMethodInfo +instance (signature ~ (m (Word32,Word32)), MonadIO m, TableK a) => MethodInfo TableGetSizeMethodInfo a signature where + overloadedMethod _ = tableGetSize + -- method Table::resize -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -563,21 +936,24 @@ {-# DEPRECATED tableResize ["(Since version 3.4)","#GtkGrid resizes automatically."]#-} tableResize :: (MonadIO m, TableK a) => - a -> -- _obj - Word32 -> -- rows - Word32 -> -- columns - m () + a -- _obj + -> Word32 -- rows + -> Word32 -- columns + -> m () -- result tableResize _obj rows columns = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_table_resize _obj' rows columns touchManagedPtr _obj return () +data TableResizeMethodInfo +instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, TableK a) => MethodInfo TableResizeMethodInfo a signature where + overloadedMethod _ = tableResize + -- method Table::set_col_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -591,21 +967,24 @@ {-# DEPRECATED tableSetColSpacing ["(Since version 3.4)","Use gtk_widget_set_margin_start() and"," gtk_widget_set_margin_end() on the widgets contained in the row if"," you need this functionality. #GtkGrid does not support per-row spacing."]#-} tableSetColSpacing :: (MonadIO m, TableK a) => - a -> -- _obj - Word32 -> -- column - Word32 -> -- spacing - m () + a -- _obj + -> Word32 -- column + -> Word32 -- spacing + -> m () -- result tableSetColSpacing _obj column spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_table_set_col_spacing _obj' column spacing touchManagedPtr _obj return () +data TableSetColSpacingMethodInfo +instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, TableK a) => MethodInfo TableSetColSpacingMethodInfo a signature where + overloadedMethod _ = tableSetColSpacing + -- method Table::set_col_spacings -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -618,20 +997,23 @@ {-# DEPRECATED tableSetColSpacings ["(Since version 3.4)","Use gtk_grid_set_column_spacing() with #GtkGrid."]#-} tableSetColSpacings :: (MonadIO m, TableK a) => - a -> -- _obj - Word32 -> -- spacing - m () + a -- _obj + -> Word32 -- spacing + -> m () -- result tableSetColSpacings _obj spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_table_set_col_spacings _obj' spacing touchManagedPtr _obj return () +data TableSetColSpacingsMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, TableK a) => MethodInfo TableSetColSpacingsMethodInfo a signature where + overloadedMethod _ = tableSetColSpacings + -- method Table::set_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -644,9 +1026,9 @@ {-# DEPRECATED tableSetHomogeneous ["(Since version 3.4)","Use gtk_grid_set_row_homogeneous() and"," gtk_grid_set_column_homogeneous() with #GtkGrid."]#-} tableSetHomogeneous :: (MonadIO m, TableK a) => - a -> -- _obj - Bool -> -- homogeneous - m () + a -- _obj + -> Bool -- homogeneous + -> m () -- result tableSetHomogeneous _obj homogeneous = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let homogeneous' = (fromIntegral . fromEnum) homogeneous @@ -654,11 +1036,14 @@ touchManagedPtr _obj return () +data TableSetHomogeneousMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TableK a) => MethodInfo TableSetHomogeneousMethodInfo a signature where + overloadedMethod _ = tableSetHomogeneous + -- method Table::set_row_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -672,21 +1057,24 @@ {-# DEPRECATED tableSetRowSpacing ["(Since version 3.4)","Use gtk_widget_set_margin_top() and"," gtk_widget_set_margin_bottom() on the widgets contained in the row if"," you need this functionality. #GtkGrid does not support per-row spacing."]#-} tableSetRowSpacing :: (MonadIO m, TableK a) => - a -> -- _obj - Word32 -> -- row - Word32 -> -- spacing - m () + a -- _obj + -> Word32 -- row + -> Word32 -- spacing + -> m () -- result tableSetRowSpacing _obj row spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_table_set_row_spacing _obj' row spacing touchManagedPtr _obj return () +data TableSetRowSpacingMethodInfo +instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, TableK a) => MethodInfo TableSetRowSpacingMethodInfo a signature where + overloadedMethod _ = tableSetRowSpacing + -- method Table::set_row_spacings -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -699,13 +1087,17 @@ {-# DEPRECATED tableSetRowSpacings ["(Since version 3.4)","Use gtk_grid_set_row_spacing() with #GtkGrid."]#-} tableSetRowSpacings :: (MonadIO m, TableK a) => - a -> -- _obj - Word32 -> -- spacing - m () + a -- _obj + -> Word32 -- spacing + -> m () -- result tableSetRowSpacings _obj spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_table_set_row_spacings _obj' spacing touchManagedPtr _obj return () + +data TableSetRowSpacingsMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, TableK a) => MethodInfo TableSetRowSpacingsMethodInfo a signature where + overloadedMethod _ = tableSetRowSpacings diff --git a/GI/Gtk/Objects/Table.hs-boot b/GI/Gtk/Objects/Table.hs-boot --- a/GI/Gtk/Objects/Table.hs-boot +++ b/GI/Gtk/Objects/Table.hs-boot @@ -16,3 +16,17 @@ data TableNColumnsPropertyInfo data TableNRowsPropertyInfo data TableRowSpacingPropertyInfo +data TableAttachMethodInfo +data TableAttachDefaultsMethodInfo +data TableGetColSpacingMethodInfo +data TableGetDefaultColSpacingMethodInfo +data TableGetDefaultRowSpacingMethodInfo +data TableGetHomogeneousMethodInfo +data TableGetRowSpacingMethodInfo +data TableGetSizeMethodInfo +data TableResizeMethodInfo +data TableSetColSpacingMethodInfo +data TableSetColSpacingsMethodInfo +data TableSetHomogeneousMethodInfo +data TableSetRowSpacingMethodInfo +data TableSetRowSpacingsMethodInfo diff --git a/GI/Gtk/Objects/TearoffMenuItem.hs b/GI/Gtk/Objects/TearoffMenuItem.hs --- a/GI/Gtk/Objects/TearoffMenuItem.hs +++ b/GI/Gtk/Objects/TearoffMenuItem.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,363 @@ noTearoffMenuItem :: Maybe TearoffMenuItem noTearoffMenuItem = Nothing +type family ResolveTearoffMenuItemMethod (t :: Symbol) (o :: *) :: * where + ResolveTearoffMenuItemMethod "add" o = ContainerAddMethodInfo + ResolveTearoffMenuItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveTearoffMenuItemMethod "addChild" o = BuildableAddChildMethodInfo + ResolveTearoffMenuItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveTearoffMenuItemMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveTearoffMenuItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveTearoffMenuItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveTearoffMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTearoffMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTearoffMenuItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveTearoffMenuItemMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveTearoffMenuItemMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveTearoffMenuItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveTearoffMenuItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveTearoffMenuItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveTearoffMenuItemMethod "childType" o = ContainerChildTypeMethodInfo + ResolveTearoffMenuItemMethod "classPath" o = WidgetClassPathMethodInfo + ResolveTearoffMenuItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveTearoffMenuItemMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveTearoffMenuItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveTearoffMenuItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveTearoffMenuItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveTearoffMenuItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveTearoffMenuItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveTearoffMenuItemMethod "deselect" o = MenuItemDeselectMethodInfo + ResolveTearoffMenuItemMethod "destroy" o = WidgetDestroyMethodInfo + ResolveTearoffMenuItemMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveTearoffMenuItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveTearoffMenuItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveTearoffMenuItemMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveTearoffMenuItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveTearoffMenuItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveTearoffMenuItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveTearoffMenuItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveTearoffMenuItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveTearoffMenuItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveTearoffMenuItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveTearoffMenuItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveTearoffMenuItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveTearoffMenuItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveTearoffMenuItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveTearoffMenuItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveTearoffMenuItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveTearoffMenuItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveTearoffMenuItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveTearoffMenuItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveTearoffMenuItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveTearoffMenuItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveTearoffMenuItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveTearoffMenuItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveTearoffMenuItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveTearoffMenuItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveTearoffMenuItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveTearoffMenuItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveTearoffMenuItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveTearoffMenuItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveTearoffMenuItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveTearoffMenuItemMethod "draw" o = WidgetDrawMethodInfo + ResolveTearoffMenuItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveTearoffMenuItemMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveTearoffMenuItemMethod "event" o = WidgetEventMethodInfo + ResolveTearoffMenuItemMethod "forall" o = ContainerForallMethodInfo + ResolveTearoffMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTearoffMenuItemMethod "foreach" o = ContainerForeachMethodInfo + ResolveTearoffMenuItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveTearoffMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTearoffMenuItemMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveTearoffMenuItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveTearoffMenuItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveTearoffMenuItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveTearoffMenuItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveTearoffMenuItemMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveTearoffMenuItemMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveTearoffMenuItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveTearoffMenuItemMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveTearoffMenuItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveTearoffMenuItemMethod "hide" o = WidgetHideMethodInfo + ResolveTearoffMenuItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveTearoffMenuItemMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveTearoffMenuItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveTearoffMenuItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveTearoffMenuItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveTearoffMenuItemMethod "intersect" o = WidgetIntersectMethodInfo + ResolveTearoffMenuItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveTearoffMenuItemMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveTearoffMenuItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveTearoffMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTearoffMenuItemMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveTearoffMenuItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveTearoffMenuItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveTearoffMenuItemMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveTearoffMenuItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveTearoffMenuItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveTearoffMenuItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveTearoffMenuItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveTearoffMenuItemMethod "map" o = WidgetMapMethodInfo + ResolveTearoffMenuItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveTearoffMenuItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveTearoffMenuItemMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveTearoffMenuItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveTearoffMenuItemMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveTearoffMenuItemMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveTearoffMenuItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveTearoffMenuItemMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveTearoffMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTearoffMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTearoffMenuItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveTearoffMenuItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveTearoffMenuItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveTearoffMenuItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveTearoffMenuItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveTearoffMenuItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveTearoffMenuItemMethod "path" o = WidgetPathMethodInfo + ResolveTearoffMenuItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveTearoffMenuItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveTearoffMenuItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveTearoffMenuItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveTearoffMenuItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveTearoffMenuItemMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveTearoffMenuItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveTearoffMenuItemMethod "realize" o = WidgetRealizeMethodInfo + ResolveTearoffMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTearoffMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTearoffMenuItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveTearoffMenuItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveTearoffMenuItemMethod "remove" o = ContainerRemoveMethodInfo + ResolveTearoffMenuItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveTearoffMenuItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveTearoffMenuItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveTearoffMenuItemMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveTearoffMenuItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveTearoffMenuItemMethod "reparent" o = WidgetReparentMethodInfo + ResolveTearoffMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTearoffMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTearoffMenuItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveTearoffMenuItemMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveTearoffMenuItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveTearoffMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTearoffMenuItemMethod "select" o = MenuItemSelectMethodInfo + ResolveTearoffMenuItemMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveTearoffMenuItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveTearoffMenuItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveTearoffMenuItemMethod "show" o = WidgetShowMethodInfo + ResolveTearoffMenuItemMethod "showAll" o = WidgetShowAllMethodInfo + ResolveTearoffMenuItemMethod "showNow" o = WidgetShowNowMethodInfo + ResolveTearoffMenuItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveTearoffMenuItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveTearoffMenuItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveTearoffMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTearoffMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTearoffMenuItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveTearoffMenuItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveTearoffMenuItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveTearoffMenuItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveTearoffMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTearoffMenuItemMethod "toggleSizeAllocate" o = MenuItemToggleSizeAllocateMethodInfo + ResolveTearoffMenuItemMethod "toggleSizeRequest" o = MenuItemToggleSizeRequestMethodInfo + ResolveTearoffMenuItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveTearoffMenuItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveTearoffMenuItemMethod "unmap" o = WidgetUnmapMethodInfo + ResolveTearoffMenuItemMethod "unparent" o = WidgetUnparentMethodInfo + ResolveTearoffMenuItemMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveTearoffMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTearoffMenuItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveTearoffMenuItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveTearoffMenuItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveTearoffMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTearoffMenuItemMethod "getAccelPath" o = MenuItemGetAccelPathMethodInfo + ResolveTearoffMenuItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveTearoffMenuItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveTearoffMenuItemMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveTearoffMenuItemMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveTearoffMenuItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveTearoffMenuItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveTearoffMenuItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveTearoffMenuItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveTearoffMenuItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveTearoffMenuItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveTearoffMenuItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveTearoffMenuItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveTearoffMenuItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveTearoffMenuItemMethod "getChild" o = BinGetChildMethodInfo + ResolveTearoffMenuItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveTearoffMenuItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveTearoffMenuItemMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveTearoffMenuItemMethod "getClip" o = WidgetGetClipMethodInfo + ResolveTearoffMenuItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveTearoffMenuItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveTearoffMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTearoffMenuItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveTearoffMenuItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveTearoffMenuItemMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveTearoffMenuItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveTearoffMenuItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveTearoffMenuItemMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveTearoffMenuItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveTearoffMenuItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveTearoffMenuItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveTearoffMenuItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveTearoffMenuItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveTearoffMenuItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveTearoffMenuItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveTearoffMenuItemMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveTearoffMenuItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveTearoffMenuItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveTearoffMenuItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveTearoffMenuItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveTearoffMenuItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveTearoffMenuItemMethod "getLabel" o = MenuItemGetLabelMethodInfo + ResolveTearoffMenuItemMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveTearoffMenuItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveTearoffMenuItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveTearoffMenuItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveTearoffMenuItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveTearoffMenuItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveTearoffMenuItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveTearoffMenuItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveTearoffMenuItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveTearoffMenuItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveTearoffMenuItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveTearoffMenuItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveTearoffMenuItemMethod "getParent" o = WidgetGetParentMethodInfo + ResolveTearoffMenuItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveTearoffMenuItemMethod "getPath" o = WidgetGetPathMethodInfo + ResolveTearoffMenuItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveTearoffMenuItemMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveTearoffMenuItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveTearoffMenuItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveTearoffMenuItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveTearoffMenuItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveTearoffMenuItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveTearoffMenuItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveTearoffMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTearoffMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTearoffMenuItemMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveTearoffMenuItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveTearoffMenuItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveTearoffMenuItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveTearoffMenuItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveTearoffMenuItemMethod "getReserveIndicator" o = MenuItemGetReserveIndicatorMethodInfo + ResolveTearoffMenuItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveTearoffMenuItemMethod "getRightJustified" o = MenuItemGetRightJustifiedMethodInfo + ResolveTearoffMenuItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveTearoffMenuItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveTearoffMenuItemMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveTearoffMenuItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveTearoffMenuItemMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveTearoffMenuItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveTearoffMenuItemMethod "getState" o = WidgetGetStateMethodInfo + ResolveTearoffMenuItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveTearoffMenuItemMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveTearoffMenuItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveTearoffMenuItemMethod "getSubmenu" o = MenuItemGetSubmenuMethodInfo + ResolveTearoffMenuItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveTearoffMenuItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveTearoffMenuItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveTearoffMenuItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveTearoffMenuItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveTearoffMenuItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveTearoffMenuItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveTearoffMenuItemMethod "getUseUnderline" o = MenuItemGetUseUnderlineMethodInfo + ResolveTearoffMenuItemMethod "getValign" o = WidgetGetValignMethodInfo + ResolveTearoffMenuItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveTearoffMenuItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveTearoffMenuItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveTearoffMenuItemMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveTearoffMenuItemMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveTearoffMenuItemMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveTearoffMenuItemMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveTearoffMenuItemMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveTearoffMenuItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveTearoffMenuItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveTearoffMenuItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveTearoffMenuItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveTearoffMenuItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveTearoffMenuItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveTearoffMenuItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveTearoffMenuItemMethod "setClip" o = WidgetSetClipMethodInfo + ResolveTearoffMenuItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveTearoffMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTearoffMenuItemMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveTearoffMenuItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveTearoffMenuItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveTearoffMenuItemMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveTearoffMenuItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveTearoffMenuItemMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveTearoffMenuItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveTearoffMenuItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveTearoffMenuItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveTearoffMenuItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveTearoffMenuItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveTearoffMenuItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveTearoffMenuItemMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveTearoffMenuItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveTearoffMenuItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveTearoffMenuItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveTearoffMenuItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveTearoffMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo + ResolveTearoffMenuItemMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveTearoffMenuItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveTearoffMenuItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveTearoffMenuItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveTearoffMenuItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveTearoffMenuItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveTearoffMenuItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveTearoffMenuItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveTearoffMenuItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveTearoffMenuItemMethod "setParent" o = WidgetSetParentMethodInfo + ResolveTearoffMenuItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveTearoffMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTearoffMenuItemMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveTearoffMenuItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveTearoffMenuItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveTearoffMenuItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveTearoffMenuItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveTearoffMenuItemMethod "setReserveIndicator" o = MenuItemSetReserveIndicatorMethodInfo + ResolveTearoffMenuItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveTearoffMenuItemMethod "setRightJustified" o = MenuItemSetRightJustifiedMethodInfo + ResolveTearoffMenuItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveTearoffMenuItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveTearoffMenuItemMethod "setState" o = WidgetSetStateMethodInfo + ResolveTearoffMenuItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveTearoffMenuItemMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveTearoffMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo + ResolveTearoffMenuItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveTearoffMenuItemMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveTearoffMenuItemMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveTearoffMenuItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveTearoffMenuItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveTearoffMenuItemMethod "setUseUnderline" o = MenuItemSetUseUnderlineMethodInfo + ResolveTearoffMenuItemMethod "setValign" o = WidgetSetValignMethodInfo + ResolveTearoffMenuItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveTearoffMenuItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveTearoffMenuItemMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveTearoffMenuItemMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveTearoffMenuItemMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveTearoffMenuItemMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTearoffMenuItemMethod t TearoffMenuItem, MethodInfo info TearoffMenuItem p) => IsLabelProxy t (TearoffMenuItem -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTearoffMenuItemMethod t TearoffMenuItem, MethodInfo info TearoffMenuItem p) => IsLabel t (TearoffMenuItem -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList TearoffMenuItem = TearoffMenuItemAttributeList -type TearoffMenuItemAttributeList = ('[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type TearoffMenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TearoffMenuItem = TearoffMenuItemSignalList -type TearoffMenuItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TearoffMenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method TearoffMenuItem::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "TearoffMenuItem" -- throws : False -- Skip return : False @@ -78,7 +425,7 @@ {-# DEPRECATED tearoffMenuItemNew ["(Since version 3.4)","#GtkTearoffMenuItem is deprecated and should not be"," used in newly written code."]#-} tearoffMenuItemNew :: (MonadIO m) => - m TearoffMenuItem + m TearoffMenuItem -- result tearoffMenuItemNew = liftIO $ do result <- gtk_tearoff_menu_item_new checkUnexpectedReturnNULL "gtk_tearoff_menu_item_new" result diff --git a/GI/Gtk/Objects/TextBuffer.hs b/GI/Gtk/Objects/TextBuffer.hs --- a/GI/Gtk/Objects/TextBuffer.hs +++ b/GI/Gtk/Objects/TextBuffer.hs @@ -1,3539 +1,3922 @@ -{- | -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.Objects.TextBuffer - ( - --- * Exported types - TextBuffer(..) , - TextBufferK , - toTextBuffer , - noTextBuffer , - - - -- * Methods --- ** textBufferAddMark - textBufferAddMark , - - --- ** textBufferAddSelectionClipboard - textBufferAddSelectionClipboard , - - --- ** textBufferApplyTag - textBufferApplyTag , - - --- ** textBufferApplyTagByName - textBufferApplyTagByName , - - --- ** textBufferBackspace - textBufferBackspace , - - --- ** textBufferBeginUserAction - textBufferBeginUserAction , - - --- ** textBufferCopyClipboard - textBufferCopyClipboard , - - --- ** textBufferCreateChildAnchor - textBufferCreateChildAnchor , - - --- ** textBufferCreateMark - textBufferCreateMark , - - --- ** textBufferCutClipboard - textBufferCutClipboard , - - --- ** textBufferDelete - textBufferDelete , - - --- ** textBufferDeleteInteractive - textBufferDeleteInteractive , - - --- ** textBufferDeleteMark - textBufferDeleteMark , - - --- ** textBufferDeleteMarkByName - textBufferDeleteMarkByName , - - --- ** textBufferDeleteSelection - textBufferDeleteSelection , - - --- ** textBufferDeserialize - textBufferDeserialize , - - --- ** textBufferDeserializeGetCanCreateTags - textBufferDeserializeGetCanCreateTags , - - --- ** textBufferDeserializeSetCanCreateTags - textBufferDeserializeSetCanCreateTags , - - --- ** textBufferEndUserAction - textBufferEndUserAction , - - --- ** textBufferGetBounds - textBufferGetBounds , - - --- ** textBufferGetCharCount - textBufferGetCharCount , - - --- ** textBufferGetCopyTargetList - textBufferGetCopyTargetList , - - --- ** textBufferGetDeserializeFormats - textBufferGetDeserializeFormats , - - --- ** textBufferGetEndIter - textBufferGetEndIter , - - --- ** textBufferGetHasSelection - textBufferGetHasSelection , - - --- ** textBufferGetInsert - textBufferGetInsert , - - --- ** textBufferGetIterAtChildAnchor - textBufferGetIterAtChildAnchor , - - --- ** textBufferGetIterAtLine - textBufferGetIterAtLine , - - --- ** textBufferGetIterAtLineIndex - textBufferGetIterAtLineIndex , - - --- ** textBufferGetIterAtLineOffset - textBufferGetIterAtLineOffset , - - --- ** textBufferGetIterAtMark - textBufferGetIterAtMark , - - --- ** textBufferGetIterAtOffset - textBufferGetIterAtOffset , - - --- ** textBufferGetLineCount - textBufferGetLineCount , - - --- ** textBufferGetMark - textBufferGetMark , - - --- ** textBufferGetModified - textBufferGetModified , - - --- ** textBufferGetPasteTargetList - textBufferGetPasteTargetList , - - --- ** textBufferGetSelectionBound - textBufferGetSelectionBound , - - --- ** textBufferGetSelectionBounds - textBufferGetSelectionBounds , - - --- ** textBufferGetSerializeFormats - textBufferGetSerializeFormats , - - --- ** textBufferGetSlice - textBufferGetSlice , - - --- ** textBufferGetStartIter - textBufferGetStartIter , - - --- ** textBufferGetTagTable - textBufferGetTagTable , - - --- ** textBufferGetText - textBufferGetText , - - --- ** textBufferInsert - textBufferInsert , - - --- ** textBufferInsertAtCursor - textBufferInsertAtCursor , - - --- ** textBufferInsertChildAnchor - textBufferInsertChildAnchor , - - --- ** textBufferInsertInteractive - textBufferInsertInteractive , - - --- ** textBufferInsertInteractiveAtCursor - textBufferInsertInteractiveAtCursor , - - --- ** textBufferInsertMarkup - textBufferInsertMarkup , - - --- ** textBufferInsertPixbuf - textBufferInsertPixbuf , - - --- ** textBufferInsertRange - textBufferInsertRange , - - --- ** textBufferInsertRangeInteractive - textBufferInsertRangeInteractive , - - --- ** textBufferMoveMark - textBufferMoveMark , - - --- ** textBufferMoveMarkByName - textBufferMoveMarkByName , - - --- ** textBufferNew - textBufferNew , - - --- ** textBufferPasteClipboard - textBufferPasteClipboard , - - --- ** textBufferPlaceCursor - textBufferPlaceCursor , - - --- ** textBufferRegisterDeserializeFormat - textBufferRegisterDeserializeFormat , - - --- ** textBufferRegisterDeserializeTagset - textBufferRegisterDeserializeTagset , - - --- ** textBufferRegisterSerializeFormat - textBufferRegisterSerializeFormat , - - --- ** textBufferRegisterSerializeTagset - textBufferRegisterSerializeTagset , - - --- ** textBufferRemoveAllTags - textBufferRemoveAllTags , - - --- ** textBufferRemoveSelectionClipboard - textBufferRemoveSelectionClipboard , - - --- ** textBufferRemoveTag - textBufferRemoveTag , - - --- ** textBufferRemoveTagByName - textBufferRemoveTagByName , - - --- ** textBufferSelectRange - textBufferSelectRange , - - --- ** textBufferSerialize - textBufferSerialize , - - --- ** textBufferSetModified - textBufferSetModified , - - --- ** textBufferSetText - textBufferSetText , - - --- ** textBufferUnregisterDeserializeFormat - textBufferUnregisterDeserializeFormat , - - --- ** textBufferUnregisterSerializeFormat - textBufferUnregisterSerializeFormat , - - - - - -- * Properties --- ** CopyTargetList - TextBufferCopyTargetListPropertyInfo , - getTextBufferCopyTargetList , - - --- ** CursorPosition - TextBufferCursorPositionPropertyInfo , - getTextBufferCursorPosition , - - --- ** HasSelection - TextBufferHasSelectionPropertyInfo , - getTextBufferHasSelection , - - --- ** PasteTargetList - TextBufferPasteTargetListPropertyInfo , - getTextBufferPasteTargetList , - - --- ** TagTable - TextBufferTagTablePropertyInfo , - constructTextBufferTagTable , - getTextBufferTagTable , - - --- ** Text - TextBufferTextPropertyInfo , - constructTextBufferText , - getTextBufferText , - setTextBufferText , - - - - - -- * Signals --- ** ApplyTag - TextBufferApplyTagCallback , - TextBufferApplyTagCallbackC , - TextBufferApplyTagSignalInfo , - afterTextBufferApplyTag , - mkTextBufferApplyTagCallback , - noTextBufferApplyTagCallback , - onTextBufferApplyTag , - textBufferApplyTagCallbackWrapper , - textBufferApplyTagClosure , - - --- ** BeginUserAction - TextBufferBeginUserActionCallback , - TextBufferBeginUserActionCallbackC , - TextBufferBeginUserActionSignalInfo , - afterTextBufferBeginUserAction , - mkTextBufferBeginUserActionCallback , - noTextBufferBeginUserActionCallback , - onTextBufferBeginUserAction , - textBufferBeginUserActionCallbackWrapper, - textBufferBeginUserActionClosure , - - --- ** Changed - TextBufferChangedCallback , - TextBufferChangedCallbackC , - TextBufferChangedSignalInfo , - afterTextBufferChanged , - mkTextBufferChangedCallback , - noTextBufferChangedCallback , - onTextBufferChanged , - textBufferChangedCallbackWrapper , - textBufferChangedClosure , - - --- ** DeleteRange - TextBufferDeleteRangeCallback , - TextBufferDeleteRangeCallbackC , - TextBufferDeleteRangeSignalInfo , - afterTextBufferDeleteRange , - mkTextBufferDeleteRangeCallback , - noTextBufferDeleteRangeCallback , - onTextBufferDeleteRange , - textBufferDeleteRangeCallbackWrapper , - textBufferDeleteRangeClosure , - - --- ** EndUserAction - TextBufferEndUserActionCallback , - TextBufferEndUserActionCallbackC , - TextBufferEndUserActionSignalInfo , - afterTextBufferEndUserAction , - mkTextBufferEndUserActionCallback , - noTextBufferEndUserActionCallback , - onTextBufferEndUserAction , - textBufferEndUserActionCallbackWrapper , - textBufferEndUserActionClosure , - - --- ** InsertChildAnchor - TextBufferInsertChildAnchorCallback , - TextBufferInsertChildAnchorCallbackC , - TextBufferInsertChildAnchorSignalInfo , - afterTextBufferInsertChildAnchor , - mkTextBufferInsertChildAnchorCallback , - noTextBufferInsertChildAnchorCallback , - onTextBufferInsertChildAnchor , - textBufferInsertChildAnchorCallbackWrapper, - textBufferInsertChildAnchorClosure , - - --- ** InsertPixbuf - TextBufferInsertPixbufCallback , - TextBufferInsertPixbufCallbackC , - TextBufferInsertPixbufSignalInfo , - afterTextBufferInsertPixbuf , - mkTextBufferInsertPixbufCallback , - noTextBufferInsertPixbufCallback , - onTextBufferInsertPixbuf , - textBufferInsertPixbufCallbackWrapper , - textBufferInsertPixbufClosure , - - --- ** InsertText - TextBufferInsertTextCallback , - TextBufferInsertTextCallbackC , - TextBufferInsertTextSignalInfo , - afterTextBufferInsertText , - mkTextBufferInsertTextCallback , - noTextBufferInsertTextCallback , - onTextBufferInsertText , - textBufferInsertTextCallbackWrapper , - textBufferInsertTextClosure , - - --- ** MarkDeleted - TextBufferMarkDeletedCallback , - TextBufferMarkDeletedCallbackC , - TextBufferMarkDeletedSignalInfo , - afterTextBufferMarkDeleted , - mkTextBufferMarkDeletedCallback , - noTextBufferMarkDeletedCallback , - onTextBufferMarkDeleted , - textBufferMarkDeletedCallbackWrapper , - textBufferMarkDeletedClosure , - - --- ** MarkSet - TextBufferMarkSetCallback , - TextBufferMarkSetCallbackC , - TextBufferMarkSetSignalInfo , - afterTextBufferMarkSet , - mkTextBufferMarkSetCallback , - noTextBufferMarkSetCallback , - onTextBufferMarkSet , - textBufferMarkSetCallbackWrapper , - textBufferMarkSetClosure , - - --- ** ModifiedChanged - TextBufferModifiedChangedCallback , - TextBufferModifiedChangedCallbackC , - TextBufferModifiedChangedSignalInfo , - afterTextBufferModifiedChanged , - mkTextBufferModifiedChangedCallback , - noTextBufferModifiedChangedCallback , - onTextBufferModifiedChanged , - textBufferModifiedChangedCallbackWrapper, - textBufferModifiedChangedClosure , - - --- ** PasteDone - TextBufferPasteDoneCallback , - TextBufferPasteDoneCallbackC , - TextBufferPasteDoneSignalInfo , - afterTextBufferPasteDone , - mkTextBufferPasteDoneCallback , - noTextBufferPasteDoneCallback , - onTextBufferPasteDone , - textBufferPasteDoneCallbackWrapper , - textBufferPasteDoneClosure , - - --- ** RemoveTag - TextBufferRemoveTagCallback , - TextBufferRemoveTagCallbackC , - TextBufferRemoveTagSignalInfo , - afterTextBufferRemoveTag , - mkTextBufferRemoveTagCallback , - noTextBufferRemoveTagCallback , - onTextBufferRemoveTag , - textBufferRemoveTagCallbackWrapper , - textBufferRemoveTagClosure , - - - - - ) 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 - -newtype TextBuffer = TextBuffer (ForeignPtr TextBuffer) -foreign import ccall "gtk_text_buffer_get_type" - c_gtk_text_buffer_get_type :: IO GType - -type instance ParentTypes TextBuffer = TextBufferParentTypes -type TextBufferParentTypes = '[GObject.Object] - -instance GObject TextBuffer where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_text_buffer_get_type - - -class GObject o => TextBufferK o -instance (GObject o, IsDescendantOf TextBuffer o) => TextBufferK o - -toTextBuffer :: TextBufferK o => o -> IO TextBuffer -toTextBuffer = unsafeCastTo TextBuffer - -noTextBuffer :: Maybe TextBuffer -noTextBuffer = Nothing - --- signal TextBuffer::apply-tag -type TextBufferApplyTagCallback = - TextTag -> - TextIter -> - TextIter -> - IO () - -noTextBufferApplyTagCallback :: Maybe TextBufferApplyTagCallback -noTextBufferApplyTagCallback = Nothing - -type TextBufferApplyTagCallbackC = - Ptr () -> -- object - Ptr TextTag -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferApplyTagCallback :: TextBufferApplyTagCallbackC -> IO (FunPtr TextBufferApplyTagCallbackC) - -textBufferApplyTagClosure :: TextBufferApplyTagCallback -> IO Closure -textBufferApplyTagClosure cb = newCClosure =<< mkTextBufferApplyTagCallback wrapped - where wrapped = textBufferApplyTagCallbackWrapper cb - -textBufferApplyTagCallbackWrapper :: - TextBufferApplyTagCallback -> - Ptr () -> - Ptr TextTag -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> - IO () -textBufferApplyTagCallbackWrapper _cb _ tag start end _ = do - tag' <- (newObject TextTag) tag - start' <- (newBoxed TextIter) start - end' <- (newBoxed TextIter) end - _cb tag' start' end' - -onTextBufferApplyTag :: (GObject a, MonadIO m) => a -> TextBufferApplyTagCallback -> m SignalHandlerId -onTextBufferApplyTag obj cb = liftIO $ connectTextBufferApplyTag obj cb SignalConnectBefore -afterTextBufferApplyTag :: (GObject a, MonadIO m) => a -> TextBufferApplyTagCallback -> m SignalHandlerId -afterTextBufferApplyTag obj cb = connectTextBufferApplyTag obj cb SignalConnectAfter - -connectTextBufferApplyTag :: (GObject a, MonadIO m) => - a -> TextBufferApplyTagCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferApplyTag obj cb after = liftIO $ do - cb' <- mkTextBufferApplyTagCallback (textBufferApplyTagCallbackWrapper cb) - connectSignalFunPtr obj "apply-tag" cb' after - --- signal TextBuffer::begin-user-action -type TextBufferBeginUserActionCallback = - IO () - -noTextBufferBeginUserActionCallback :: Maybe TextBufferBeginUserActionCallback -noTextBufferBeginUserActionCallback = Nothing - -type TextBufferBeginUserActionCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferBeginUserActionCallback :: TextBufferBeginUserActionCallbackC -> IO (FunPtr TextBufferBeginUserActionCallbackC) - -textBufferBeginUserActionClosure :: TextBufferBeginUserActionCallback -> IO Closure -textBufferBeginUserActionClosure cb = newCClosure =<< mkTextBufferBeginUserActionCallback wrapped - where wrapped = textBufferBeginUserActionCallbackWrapper cb - -textBufferBeginUserActionCallbackWrapper :: - TextBufferBeginUserActionCallback -> - Ptr () -> - Ptr () -> - IO () -textBufferBeginUserActionCallbackWrapper _cb _ _ = do - _cb - -onTextBufferBeginUserAction :: (GObject a, MonadIO m) => a -> TextBufferBeginUserActionCallback -> m SignalHandlerId -onTextBufferBeginUserAction obj cb = liftIO $ connectTextBufferBeginUserAction obj cb SignalConnectBefore -afterTextBufferBeginUserAction :: (GObject a, MonadIO m) => a -> TextBufferBeginUserActionCallback -> m SignalHandlerId -afterTextBufferBeginUserAction obj cb = connectTextBufferBeginUserAction obj cb SignalConnectAfter - -connectTextBufferBeginUserAction :: (GObject a, MonadIO m) => - a -> TextBufferBeginUserActionCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferBeginUserAction obj cb after = liftIO $ do - cb' <- mkTextBufferBeginUserActionCallback (textBufferBeginUserActionCallbackWrapper cb) - connectSignalFunPtr obj "begin-user-action" cb' after - --- signal TextBuffer::changed -type TextBufferChangedCallback = - IO () - -noTextBufferChangedCallback :: Maybe TextBufferChangedCallback -noTextBufferChangedCallback = Nothing - -type TextBufferChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferChangedCallback :: TextBufferChangedCallbackC -> IO (FunPtr TextBufferChangedCallbackC) - -textBufferChangedClosure :: TextBufferChangedCallback -> IO Closure -textBufferChangedClosure cb = newCClosure =<< mkTextBufferChangedCallback wrapped - where wrapped = textBufferChangedCallbackWrapper cb - -textBufferChangedCallbackWrapper :: - TextBufferChangedCallback -> - Ptr () -> - Ptr () -> - IO () -textBufferChangedCallbackWrapper _cb _ _ = do - _cb - -onTextBufferChanged :: (GObject a, MonadIO m) => a -> TextBufferChangedCallback -> m SignalHandlerId -onTextBufferChanged obj cb = liftIO $ connectTextBufferChanged obj cb SignalConnectBefore -afterTextBufferChanged :: (GObject a, MonadIO m) => a -> TextBufferChangedCallback -> m SignalHandlerId -afterTextBufferChanged obj cb = connectTextBufferChanged obj cb SignalConnectAfter - -connectTextBufferChanged :: (GObject a, MonadIO m) => - a -> TextBufferChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferChanged obj cb after = liftIO $ do - cb' <- mkTextBufferChangedCallback (textBufferChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- signal TextBuffer::delete-range -type TextBufferDeleteRangeCallback = - TextIter -> - TextIter -> - IO () - -noTextBufferDeleteRangeCallback :: Maybe TextBufferDeleteRangeCallback -noTextBufferDeleteRangeCallback = Nothing - -type TextBufferDeleteRangeCallbackC = - Ptr () -> -- object - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferDeleteRangeCallback :: TextBufferDeleteRangeCallbackC -> IO (FunPtr TextBufferDeleteRangeCallbackC) - -textBufferDeleteRangeClosure :: TextBufferDeleteRangeCallback -> IO Closure -textBufferDeleteRangeClosure cb = newCClosure =<< mkTextBufferDeleteRangeCallback wrapped - where wrapped = textBufferDeleteRangeCallbackWrapper cb - -textBufferDeleteRangeCallbackWrapper :: - TextBufferDeleteRangeCallback -> - Ptr () -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> - IO () -textBufferDeleteRangeCallbackWrapper _cb _ start end _ = do - start' <- (newBoxed TextIter) start - end' <- (newBoxed TextIter) end - _cb start' end' - -onTextBufferDeleteRange :: (GObject a, MonadIO m) => a -> TextBufferDeleteRangeCallback -> m SignalHandlerId -onTextBufferDeleteRange obj cb = liftIO $ connectTextBufferDeleteRange obj cb SignalConnectBefore -afterTextBufferDeleteRange :: (GObject a, MonadIO m) => a -> TextBufferDeleteRangeCallback -> m SignalHandlerId -afterTextBufferDeleteRange obj cb = connectTextBufferDeleteRange obj cb SignalConnectAfter - -connectTextBufferDeleteRange :: (GObject a, MonadIO m) => - a -> TextBufferDeleteRangeCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferDeleteRange obj cb after = liftIO $ do - cb' <- mkTextBufferDeleteRangeCallback (textBufferDeleteRangeCallbackWrapper cb) - connectSignalFunPtr obj "delete-range" cb' after - --- signal TextBuffer::end-user-action -type TextBufferEndUserActionCallback = - IO () - -noTextBufferEndUserActionCallback :: Maybe TextBufferEndUserActionCallback -noTextBufferEndUserActionCallback = Nothing - -type TextBufferEndUserActionCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferEndUserActionCallback :: TextBufferEndUserActionCallbackC -> IO (FunPtr TextBufferEndUserActionCallbackC) - -textBufferEndUserActionClosure :: TextBufferEndUserActionCallback -> IO Closure -textBufferEndUserActionClosure cb = newCClosure =<< mkTextBufferEndUserActionCallback wrapped - where wrapped = textBufferEndUserActionCallbackWrapper cb - -textBufferEndUserActionCallbackWrapper :: - TextBufferEndUserActionCallback -> - Ptr () -> - Ptr () -> - IO () -textBufferEndUserActionCallbackWrapper _cb _ _ = do - _cb - -onTextBufferEndUserAction :: (GObject a, MonadIO m) => a -> TextBufferEndUserActionCallback -> m SignalHandlerId -onTextBufferEndUserAction obj cb = liftIO $ connectTextBufferEndUserAction obj cb SignalConnectBefore -afterTextBufferEndUserAction :: (GObject a, MonadIO m) => a -> TextBufferEndUserActionCallback -> m SignalHandlerId -afterTextBufferEndUserAction obj cb = connectTextBufferEndUserAction obj cb SignalConnectAfter - -connectTextBufferEndUserAction :: (GObject a, MonadIO m) => - a -> TextBufferEndUserActionCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferEndUserAction obj cb after = liftIO $ do - cb' <- mkTextBufferEndUserActionCallback (textBufferEndUserActionCallbackWrapper cb) - connectSignalFunPtr obj "end-user-action" cb' after - --- signal TextBuffer::insert-child-anchor -type TextBufferInsertChildAnchorCallback = - TextIter -> - TextChildAnchor -> - IO () - -noTextBufferInsertChildAnchorCallback :: Maybe TextBufferInsertChildAnchorCallback -noTextBufferInsertChildAnchorCallback = Nothing - -type TextBufferInsertChildAnchorCallbackC = - Ptr () -> -- object - Ptr TextIter -> - Ptr TextChildAnchor -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferInsertChildAnchorCallback :: TextBufferInsertChildAnchorCallbackC -> IO (FunPtr TextBufferInsertChildAnchorCallbackC) - -textBufferInsertChildAnchorClosure :: TextBufferInsertChildAnchorCallback -> IO Closure -textBufferInsertChildAnchorClosure cb = newCClosure =<< mkTextBufferInsertChildAnchorCallback wrapped - where wrapped = textBufferInsertChildAnchorCallbackWrapper cb - -textBufferInsertChildAnchorCallbackWrapper :: - TextBufferInsertChildAnchorCallback -> - Ptr () -> - Ptr TextIter -> - Ptr TextChildAnchor -> - Ptr () -> - IO () -textBufferInsertChildAnchorCallbackWrapper _cb _ location anchor _ = do - location' <- (newBoxed TextIter) location - anchor' <- (newObject TextChildAnchor) anchor - _cb location' anchor' - -onTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => a -> TextBufferInsertChildAnchorCallback -> m SignalHandlerId -onTextBufferInsertChildAnchor obj cb = liftIO $ connectTextBufferInsertChildAnchor obj cb SignalConnectBefore -afterTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => a -> TextBufferInsertChildAnchorCallback -> m SignalHandlerId -afterTextBufferInsertChildAnchor obj cb = connectTextBufferInsertChildAnchor obj cb SignalConnectAfter - -connectTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => - a -> TextBufferInsertChildAnchorCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferInsertChildAnchor obj cb after = liftIO $ do - cb' <- mkTextBufferInsertChildAnchorCallback (textBufferInsertChildAnchorCallbackWrapper cb) - connectSignalFunPtr obj "insert-child-anchor" cb' after - --- signal TextBuffer::insert-pixbuf -type TextBufferInsertPixbufCallback = - TextIter -> - GdkPixbuf.Pixbuf -> - IO () - -noTextBufferInsertPixbufCallback :: Maybe TextBufferInsertPixbufCallback -noTextBufferInsertPixbufCallback = Nothing - -type TextBufferInsertPixbufCallbackC = - Ptr () -> -- object - Ptr TextIter -> - Ptr GdkPixbuf.Pixbuf -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferInsertPixbufCallback :: TextBufferInsertPixbufCallbackC -> IO (FunPtr TextBufferInsertPixbufCallbackC) - -textBufferInsertPixbufClosure :: TextBufferInsertPixbufCallback -> IO Closure -textBufferInsertPixbufClosure cb = newCClosure =<< mkTextBufferInsertPixbufCallback wrapped - where wrapped = textBufferInsertPixbufCallbackWrapper cb - -textBufferInsertPixbufCallbackWrapper :: - TextBufferInsertPixbufCallback -> - Ptr () -> - Ptr TextIter -> - Ptr GdkPixbuf.Pixbuf -> - Ptr () -> - IO () -textBufferInsertPixbufCallbackWrapper _cb _ location pixbuf _ = do - location' <- (newBoxed TextIter) location - pixbuf' <- (newObject GdkPixbuf.Pixbuf) pixbuf - _cb location' pixbuf' - -onTextBufferInsertPixbuf :: (GObject a, MonadIO m) => a -> TextBufferInsertPixbufCallback -> m SignalHandlerId -onTextBufferInsertPixbuf obj cb = liftIO $ connectTextBufferInsertPixbuf obj cb SignalConnectBefore -afterTextBufferInsertPixbuf :: (GObject a, MonadIO m) => a -> TextBufferInsertPixbufCallback -> m SignalHandlerId -afterTextBufferInsertPixbuf obj cb = connectTextBufferInsertPixbuf obj cb SignalConnectAfter - -connectTextBufferInsertPixbuf :: (GObject a, MonadIO m) => - a -> TextBufferInsertPixbufCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferInsertPixbuf obj cb after = liftIO $ do - cb' <- mkTextBufferInsertPixbufCallback (textBufferInsertPixbufCallbackWrapper cb) - connectSignalFunPtr obj "insert-pixbuf" cb' after - --- signal TextBuffer::insert-text -type TextBufferInsertTextCallback = - TextIter -> - T.Text -> - Int32 -> - IO () - -noTextBufferInsertTextCallback :: Maybe TextBufferInsertTextCallback -noTextBufferInsertTextCallback = Nothing - -type TextBufferInsertTextCallbackC = - Ptr () -> -- object - Ptr TextIter -> - CString -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferInsertTextCallback :: TextBufferInsertTextCallbackC -> IO (FunPtr TextBufferInsertTextCallbackC) - -textBufferInsertTextClosure :: TextBufferInsertTextCallback -> IO Closure -textBufferInsertTextClosure cb = newCClosure =<< mkTextBufferInsertTextCallback wrapped - where wrapped = textBufferInsertTextCallbackWrapper cb - -textBufferInsertTextCallbackWrapper :: - TextBufferInsertTextCallback -> - Ptr () -> - Ptr TextIter -> - CString -> - Int32 -> - Ptr () -> - IO () -textBufferInsertTextCallbackWrapper _cb _ location text len _ = do - location' <- (newBoxed TextIter) location - text' <- cstringToText text - _cb location' text' len - -onTextBufferInsertText :: (GObject a, MonadIO m) => a -> TextBufferInsertTextCallback -> m SignalHandlerId -onTextBufferInsertText obj cb = liftIO $ connectTextBufferInsertText obj cb SignalConnectBefore -afterTextBufferInsertText :: (GObject a, MonadIO m) => a -> TextBufferInsertTextCallback -> m SignalHandlerId -afterTextBufferInsertText obj cb = connectTextBufferInsertText obj cb SignalConnectAfter - -connectTextBufferInsertText :: (GObject a, MonadIO m) => - a -> TextBufferInsertTextCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferInsertText obj cb after = liftIO $ do - cb' <- mkTextBufferInsertTextCallback (textBufferInsertTextCallbackWrapper cb) - connectSignalFunPtr obj "insert-text" cb' after - --- signal TextBuffer::mark-deleted -type TextBufferMarkDeletedCallback = - TextMark -> - IO () - -noTextBufferMarkDeletedCallback :: Maybe TextBufferMarkDeletedCallback -noTextBufferMarkDeletedCallback = Nothing - -type TextBufferMarkDeletedCallbackC = - Ptr () -> -- object - Ptr TextMark -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferMarkDeletedCallback :: TextBufferMarkDeletedCallbackC -> IO (FunPtr TextBufferMarkDeletedCallbackC) - -textBufferMarkDeletedClosure :: TextBufferMarkDeletedCallback -> IO Closure -textBufferMarkDeletedClosure cb = newCClosure =<< mkTextBufferMarkDeletedCallback wrapped - where wrapped = textBufferMarkDeletedCallbackWrapper cb - -textBufferMarkDeletedCallbackWrapper :: - TextBufferMarkDeletedCallback -> - Ptr () -> - Ptr TextMark -> - Ptr () -> - IO () -textBufferMarkDeletedCallbackWrapper _cb _ mark _ = do - mark' <- (newObject TextMark) mark - _cb mark' - -onTextBufferMarkDeleted :: (GObject a, MonadIO m) => a -> TextBufferMarkDeletedCallback -> m SignalHandlerId -onTextBufferMarkDeleted obj cb = liftIO $ connectTextBufferMarkDeleted obj cb SignalConnectBefore -afterTextBufferMarkDeleted :: (GObject a, MonadIO m) => a -> TextBufferMarkDeletedCallback -> m SignalHandlerId -afterTextBufferMarkDeleted obj cb = connectTextBufferMarkDeleted obj cb SignalConnectAfter - -connectTextBufferMarkDeleted :: (GObject a, MonadIO m) => - a -> TextBufferMarkDeletedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferMarkDeleted obj cb after = liftIO $ do - cb' <- mkTextBufferMarkDeletedCallback (textBufferMarkDeletedCallbackWrapper cb) - connectSignalFunPtr obj "mark-deleted" cb' after - --- signal TextBuffer::mark-set -type TextBufferMarkSetCallback = - TextIter -> - TextMark -> - IO () - -noTextBufferMarkSetCallback :: Maybe TextBufferMarkSetCallback -noTextBufferMarkSetCallback = Nothing - -type TextBufferMarkSetCallbackC = - Ptr () -> -- object - Ptr TextIter -> - Ptr TextMark -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferMarkSetCallback :: TextBufferMarkSetCallbackC -> IO (FunPtr TextBufferMarkSetCallbackC) - -textBufferMarkSetClosure :: TextBufferMarkSetCallback -> IO Closure -textBufferMarkSetClosure cb = newCClosure =<< mkTextBufferMarkSetCallback wrapped - where wrapped = textBufferMarkSetCallbackWrapper cb - -textBufferMarkSetCallbackWrapper :: - TextBufferMarkSetCallback -> - Ptr () -> - Ptr TextIter -> - Ptr TextMark -> - Ptr () -> - IO () -textBufferMarkSetCallbackWrapper _cb _ location mark _ = do - location' <- (newBoxed TextIter) location - mark' <- (newObject TextMark) mark - _cb location' mark' - -onTextBufferMarkSet :: (GObject a, MonadIO m) => a -> TextBufferMarkSetCallback -> m SignalHandlerId -onTextBufferMarkSet obj cb = liftIO $ connectTextBufferMarkSet obj cb SignalConnectBefore -afterTextBufferMarkSet :: (GObject a, MonadIO m) => a -> TextBufferMarkSetCallback -> m SignalHandlerId -afterTextBufferMarkSet obj cb = connectTextBufferMarkSet obj cb SignalConnectAfter - -connectTextBufferMarkSet :: (GObject a, MonadIO m) => - a -> TextBufferMarkSetCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferMarkSet obj cb after = liftIO $ do - cb' <- mkTextBufferMarkSetCallback (textBufferMarkSetCallbackWrapper cb) - connectSignalFunPtr obj "mark-set" cb' after - --- signal TextBuffer::modified-changed -type TextBufferModifiedChangedCallback = - IO () - -noTextBufferModifiedChangedCallback :: Maybe TextBufferModifiedChangedCallback -noTextBufferModifiedChangedCallback = Nothing - -type TextBufferModifiedChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferModifiedChangedCallback :: TextBufferModifiedChangedCallbackC -> IO (FunPtr TextBufferModifiedChangedCallbackC) - -textBufferModifiedChangedClosure :: TextBufferModifiedChangedCallback -> IO Closure -textBufferModifiedChangedClosure cb = newCClosure =<< mkTextBufferModifiedChangedCallback wrapped - where wrapped = textBufferModifiedChangedCallbackWrapper cb - -textBufferModifiedChangedCallbackWrapper :: - TextBufferModifiedChangedCallback -> - Ptr () -> - Ptr () -> - IO () -textBufferModifiedChangedCallbackWrapper _cb _ _ = do - _cb - -onTextBufferModifiedChanged :: (GObject a, MonadIO m) => a -> TextBufferModifiedChangedCallback -> m SignalHandlerId -onTextBufferModifiedChanged obj cb = liftIO $ connectTextBufferModifiedChanged obj cb SignalConnectBefore -afterTextBufferModifiedChanged :: (GObject a, MonadIO m) => a -> TextBufferModifiedChangedCallback -> m SignalHandlerId -afterTextBufferModifiedChanged obj cb = connectTextBufferModifiedChanged obj cb SignalConnectAfter - -connectTextBufferModifiedChanged :: (GObject a, MonadIO m) => - a -> TextBufferModifiedChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferModifiedChanged obj cb after = liftIO $ do - cb' <- mkTextBufferModifiedChangedCallback (textBufferModifiedChangedCallbackWrapper cb) - connectSignalFunPtr obj "modified-changed" cb' after - --- signal TextBuffer::paste-done -type TextBufferPasteDoneCallback = - Clipboard -> - IO () - -noTextBufferPasteDoneCallback :: Maybe TextBufferPasteDoneCallback -noTextBufferPasteDoneCallback = Nothing - -type TextBufferPasteDoneCallbackC = - Ptr () -> -- object - Ptr Clipboard -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferPasteDoneCallback :: TextBufferPasteDoneCallbackC -> IO (FunPtr TextBufferPasteDoneCallbackC) - -textBufferPasteDoneClosure :: TextBufferPasteDoneCallback -> IO Closure -textBufferPasteDoneClosure cb = newCClosure =<< mkTextBufferPasteDoneCallback wrapped - where wrapped = textBufferPasteDoneCallbackWrapper cb - -textBufferPasteDoneCallbackWrapper :: - TextBufferPasteDoneCallback -> - Ptr () -> - Ptr Clipboard -> - Ptr () -> - IO () -textBufferPasteDoneCallbackWrapper _cb _ clipboard _ = do - clipboard' <- (newObject Clipboard) clipboard - _cb clipboard' - -onTextBufferPasteDone :: (GObject a, MonadIO m) => a -> TextBufferPasteDoneCallback -> m SignalHandlerId -onTextBufferPasteDone obj cb = liftIO $ connectTextBufferPasteDone obj cb SignalConnectBefore -afterTextBufferPasteDone :: (GObject a, MonadIO m) => a -> TextBufferPasteDoneCallback -> m SignalHandlerId -afterTextBufferPasteDone obj cb = connectTextBufferPasteDone obj cb SignalConnectAfter - -connectTextBufferPasteDone :: (GObject a, MonadIO m) => - a -> TextBufferPasteDoneCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferPasteDone obj cb after = liftIO $ do - cb' <- mkTextBufferPasteDoneCallback (textBufferPasteDoneCallbackWrapper cb) - connectSignalFunPtr obj "paste-done" cb' after - --- signal TextBuffer::remove-tag -type TextBufferRemoveTagCallback = - TextTag -> - TextIter -> - TextIter -> - IO () - -noTextBufferRemoveTagCallback :: Maybe TextBufferRemoveTagCallback -noTextBufferRemoveTagCallback = Nothing - -type TextBufferRemoveTagCallbackC = - Ptr () -> -- object - Ptr TextTag -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextBufferRemoveTagCallback :: TextBufferRemoveTagCallbackC -> IO (FunPtr TextBufferRemoveTagCallbackC) - -textBufferRemoveTagClosure :: TextBufferRemoveTagCallback -> IO Closure -textBufferRemoveTagClosure cb = newCClosure =<< mkTextBufferRemoveTagCallback wrapped - where wrapped = textBufferRemoveTagCallbackWrapper cb - -textBufferRemoveTagCallbackWrapper :: - TextBufferRemoveTagCallback -> - Ptr () -> - Ptr TextTag -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> - IO () -textBufferRemoveTagCallbackWrapper _cb _ tag start end _ = do - tag' <- (newObject TextTag) tag - start' <- (newBoxed TextIter) start - end' <- (newBoxed TextIter) end - _cb tag' start' end' - -onTextBufferRemoveTag :: (GObject a, MonadIO m) => a -> TextBufferRemoveTagCallback -> m SignalHandlerId -onTextBufferRemoveTag obj cb = liftIO $ connectTextBufferRemoveTag obj cb SignalConnectBefore -afterTextBufferRemoveTag :: (GObject a, MonadIO m) => a -> TextBufferRemoveTagCallback -> m SignalHandlerId -afterTextBufferRemoveTag obj cb = connectTextBufferRemoveTag obj cb SignalConnectAfter - -connectTextBufferRemoveTag :: (GObject a, MonadIO m) => - a -> TextBufferRemoveTagCallback -> SignalConnectMode -> m SignalHandlerId -connectTextBufferRemoveTag obj cb after = liftIO $ do - cb' <- mkTextBufferRemoveTagCallback (textBufferRemoveTagCallbackWrapper cb) - connectSignalFunPtr obj "remove-tag" cb' after - --- VVV Prop "copy-target-list" - -- Type: TInterface "Gtk" "TargetList" - -- Flags: [PropertyReadable] - -getTextBufferCopyTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList -getTextBufferCopyTargetList obj = liftIO $ getObjectPropertyBoxed obj "copy-target-list" TargetList - -data TextBufferCopyTargetListPropertyInfo -instance AttrInfo TextBufferCopyTargetListPropertyInfo where - type AttrAllowedOps TextBufferCopyTargetListPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TextBufferCopyTargetListPropertyInfo = (~) () - type AttrBaseTypeConstraint TextBufferCopyTargetListPropertyInfo = TextBufferK - type AttrGetType TextBufferCopyTargetListPropertyInfo = TargetList - type AttrLabel TextBufferCopyTargetListPropertyInfo = "TextBuffer::copy-target-list" - attrGet _ = getTextBufferCopyTargetList - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "cursor-position" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getTextBufferCursorPosition :: (MonadIO m, TextBufferK o) => o -> m Int32 -getTextBufferCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position" - -data TextBufferCursorPositionPropertyInfo -instance AttrInfo TextBufferCursorPositionPropertyInfo where - type AttrAllowedOps TextBufferCursorPositionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TextBufferCursorPositionPropertyInfo = (~) () - type AttrBaseTypeConstraint TextBufferCursorPositionPropertyInfo = TextBufferK - type AttrGetType TextBufferCursorPositionPropertyInfo = Int32 - type AttrLabel TextBufferCursorPositionPropertyInfo = "TextBuffer::cursor-position" - attrGet _ = getTextBufferCursorPosition - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "has-selection" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getTextBufferHasSelection :: (MonadIO m, TextBufferK o) => o -> m Bool -getTextBufferHasSelection obj = liftIO $ getObjectPropertyBool obj "has-selection" - -data TextBufferHasSelectionPropertyInfo -instance AttrInfo TextBufferHasSelectionPropertyInfo where - type AttrAllowedOps TextBufferHasSelectionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TextBufferHasSelectionPropertyInfo = (~) () - type AttrBaseTypeConstraint TextBufferHasSelectionPropertyInfo = TextBufferK - type AttrGetType TextBufferHasSelectionPropertyInfo = Bool - type AttrLabel TextBufferHasSelectionPropertyInfo = "TextBuffer::has-selection" - attrGet _ = getTextBufferHasSelection - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "paste-target-list" - -- Type: TInterface "Gtk" "TargetList" - -- Flags: [PropertyReadable] - -getTextBufferPasteTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList -getTextBufferPasteTargetList obj = liftIO $ getObjectPropertyBoxed obj "paste-target-list" TargetList - -data TextBufferPasteTargetListPropertyInfo -instance AttrInfo TextBufferPasteTargetListPropertyInfo where - type AttrAllowedOps TextBufferPasteTargetListPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TextBufferPasteTargetListPropertyInfo = (~) () - type AttrBaseTypeConstraint TextBufferPasteTargetListPropertyInfo = TextBufferK - type AttrGetType TextBufferPasteTargetListPropertyInfo = TargetList - type AttrLabel TextBufferPasteTargetListPropertyInfo = "TextBuffer::paste-target-list" - attrGet _ = getTextBufferPasteTargetList - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "tag-table" - -- Type: TInterface "Gtk" "TextTagTable" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getTextBufferTagTable :: (MonadIO m, TextBufferK o) => o -> m TextTagTable -getTextBufferTagTable obj = liftIO $ getObjectPropertyObject obj "tag-table" TextTagTable - -constructTextBufferTagTable :: (TextTagTableK a) => a -> IO ([Char], GValue) -constructTextBufferTagTable val = constructObjectPropertyObject "tag-table" val - -data TextBufferTagTablePropertyInfo -instance AttrInfo TextBufferTagTablePropertyInfo where - type AttrAllowedOps TextBufferTagTablePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextBufferTagTablePropertyInfo = TextTagTableK - type AttrBaseTypeConstraint TextBufferTagTablePropertyInfo = TextBufferK - type AttrGetType TextBufferTagTablePropertyInfo = TextTagTable - type AttrLabel TextBufferTagTablePropertyInfo = "TextBuffer::tag-table" - attrGet _ = getTextBufferTagTable - attrSet _ = undefined - attrConstruct _ = constructTextBufferTagTable - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextBufferText :: (MonadIO m, TextBufferK o) => o -> m T.Text -getTextBufferText obj = liftIO $ getObjectPropertyString obj "text" - -setTextBufferText :: (MonadIO m, TextBufferK o) => o -> T.Text -> m () -setTextBufferText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructTextBufferText :: T.Text -> IO ([Char], GValue) -constructTextBufferText val = constructObjectPropertyString "text" val - -data TextBufferTextPropertyInfo -instance AttrInfo TextBufferTextPropertyInfo where - type AttrAllowedOps TextBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextBufferTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextBufferTextPropertyInfo = TextBufferK - type AttrGetType TextBufferTextPropertyInfo = T.Text - type AttrLabel TextBufferTextPropertyInfo = "TextBuffer::text" - attrGet _ = getTextBufferText - attrSet _ = setTextBufferText - attrConstruct _ = constructTextBufferText - -type instance AttributeList TextBuffer = TextBufferAttributeList -type TextBufferAttributeList = ('[ '("copy-target-list", TextBufferCopyTargetListPropertyInfo), '("cursor-position", TextBufferCursorPositionPropertyInfo), '("has-selection", TextBufferHasSelectionPropertyInfo), '("paste-target-list", TextBufferPasteTargetListPropertyInfo), '("tag-table", TextBufferTagTablePropertyInfo), '("text", TextBufferTextPropertyInfo)] :: [(Symbol, *)]) - -data TextBufferApplyTagSignalInfo -instance SignalInfo TextBufferApplyTagSignalInfo where - type HaskellCallbackType TextBufferApplyTagSignalInfo = TextBufferApplyTagCallback - connectSignal _ = connectTextBufferApplyTag - -data TextBufferBeginUserActionSignalInfo -instance SignalInfo TextBufferBeginUserActionSignalInfo where - type HaskellCallbackType TextBufferBeginUserActionSignalInfo = TextBufferBeginUserActionCallback - connectSignal _ = connectTextBufferBeginUserAction - -data TextBufferChangedSignalInfo -instance SignalInfo TextBufferChangedSignalInfo where - type HaskellCallbackType TextBufferChangedSignalInfo = TextBufferChangedCallback - connectSignal _ = connectTextBufferChanged - -data TextBufferDeleteRangeSignalInfo -instance SignalInfo TextBufferDeleteRangeSignalInfo where - type HaskellCallbackType TextBufferDeleteRangeSignalInfo = TextBufferDeleteRangeCallback - connectSignal _ = connectTextBufferDeleteRange - -data TextBufferEndUserActionSignalInfo -instance SignalInfo TextBufferEndUserActionSignalInfo where - type HaskellCallbackType TextBufferEndUserActionSignalInfo = TextBufferEndUserActionCallback - connectSignal _ = connectTextBufferEndUserAction - -data TextBufferInsertChildAnchorSignalInfo -instance SignalInfo TextBufferInsertChildAnchorSignalInfo where - type HaskellCallbackType TextBufferInsertChildAnchorSignalInfo = TextBufferInsertChildAnchorCallback - connectSignal _ = connectTextBufferInsertChildAnchor - -data TextBufferInsertPixbufSignalInfo -instance SignalInfo TextBufferInsertPixbufSignalInfo where - type HaskellCallbackType TextBufferInsertPixbufSignalInfo = TextBufferInsertPixbufCallback - connectSignal _ = connectTextBufferInsertPixbuf - -data TextBufferInsertTextSignalInfo -instance SignalInfo TextBufferInsertTextSignalInfo where - type HaskellCallbackType TextBufferInsertTextSignalInfo = TextBufferInsertTextCallback - connectSignal _ = connectTextBufferInsertText - -data TextBufferMarkDeletedSignalInfo -instance SignalInfo TextBufferMarkDeletedSignalInfo where - type HaskellCallbackType TextBufferMarkDeletedSignalInfo = TextBufferMarkDeletedCallback - connectSignal _ = connectTextBufferMarkDeleted - -data TextBufferMarkSetSignalInfo -instance SignalInfo TextBufferMarkSetSignalInfo where - type HaskellCallbackType TextBufferMarkSetSignalInfo = TextBufferMarkSetCallback - connectSignal _ = connectTextBufferMarkSet - -data TextBufferModifiedChangedSignalInfo -instance SignalInfo TextBufferModifiedChangedSignalInfo where - type HaskellCallbackType TextBufferModifiedChangedSignalInfo = TextBufferModifiedChangedCallback - connectSignal _ = connectTextBufferModifiedChanged - -data TextBufferPasteDoneSignalInfo -instance SignalInfo TextBufferPasteDoneSignalInfo where - type HaskellCallbackType TextBufferPasteDoneSignalInfo = TextBufferPasteDoneCallback - connectSignal _ = connectTextBufferPasteDone - -data TextBufferRemoveTagSignalInfo -instance SignalInfo TextBufferRemoveTagSignalInfo where - type HaskellCallbackType TextBufferRemoveTagSignalInfo = TextBufferRemoveTagCallback - connectSignal _ = connectTextBufferRemoveTag - -type instance SignalList TextBuffer = TextBufferSignalList -type TextBufferSignalList = ('[ '("apply-tag", TextBufferApplyTagSignalInfo), '("begin-user-action", TextBufferBeginUserActionSignalInfo), '("changed", TextBufferChangedSignalInfo), '("delete-range", TextBufferDeleteRangeSignalInfo), '("end-user-action", TextBufferEndUserActionSignalInfo), '("insert-child-anchor", TextBufferInsertChildAnchorSignalInfo), '("insert-pixbuf", TextBufferInsertPixbufSignalInfo), '("insert-text", TextBufferInsertTextSignalInfo), '("mark-deleted", TextBufferMarkDeletedSignalInfo), '("mark-set", TextBufferMarkSetSignalInfo), '("modified-changed", TextBufferModifiedChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paste-done", TextBufferPasteDoneSignalInfo), '("remove-tag", TextBufferRemoveTagSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TextBuffer::new --- method type : Constructor --- Args : [Arg {argName = "table", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "table", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextBuffer" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_new" gtk_text_buffer_new :: - Ptr TextTagTable -> -- table : TInterface "Gtk" "TextTagTable" - IO (Ptr TextBuffer) - - -textBufferNew :: - (MonadIO m, TextTagTableK a) => - Maybe (a) -> -- table - m TextBuffer -textBufferNew table = liftIO $ do - maybeTable <- case table of - Nothing -> return nullPtr - Just jTable -> do - let jTable' = unsafeManagedPtrCastPtr jTable - return jTable' - result <- gtk_text_buffer_new maybeTable - checkUnexpectedReturnNULL "gtk_text_buffer_new" result - result' <- (wrapObject TextBuffer) result - whenJust table touchManagedPtr - return result' - --- method TextBuffer::add_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_add_mark" gtk_text_buffer_add_mark :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" - IO () - - -textBufferAddMark :: - (MonadIO m, TextBufferK a, TextMarkK b) => - a -> -- _obj - b -> -- mark - TextIter -> -- where - m () -textBufferAddMark _obj mark where_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - let where_' = unsafeManagedPtrGetPtr where_ - gtk_text_buffer_add_mark _obj' mark' where_' - touchManagedPtr _obj - touchManagedPtr mark - touchManagedPtr where_ - return () - --- method TextBuffer::add_selection_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_add_selection_clipboard" gtk_text_buffer_add_selection_clipboard :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" - IO () - - -textBufferAddSelectionClipboard :: - (MonadIO m, TextBufferK a, ClipboardK b) => - a -> -- _obj - b -> -- clipboard - m () -textBufferAddSelectionClipboard _obj clipboard = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboard' = unsafeManagedPtrCastPtr clipboard - gtk_text_buffer_add_selection_clipboard _obj' clipboard' - touchManagedPtr _obj - touchManagedPtr clipboard - return () - --- method TextBuffer::apply_tag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_apply_tag" gtk_text_buffer_apply_tag :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferApplyTag :: - (MonadIO m, TextBufferK a, TextTagK b) => - a -> -- _obj - b -> -- tag - TextIter -> -- start - TextIter -> -- end - m () -textBufferApplyTag _obj tag start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tag' = unsafeManagedPtrCastPtr tag - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_apply_tag _obj' tag' start' end' - touchManagedPtr _obj - touchManagedPtr tag - touchManagedPtr start - touchManagedPtr end - return () - --- method TextBuffer::apply_tag_by_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_apply_tag_by_name" gtk_text_buffer_apply_tag_by_name :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- name : TBasicType TUTF8 - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferApplyTagByName :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- name - TextIter -> -- start - TextIter -> -- end - m () -textBufferApplyTagByName _obj name start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_apply_tag_by_name _obj' name' start' end' - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - freeMem name' - return () - --- method TextBuffer::backspace --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_backspace" gtk_text_buffer_backspace :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - CInt -> -- interactive : TBasicType TBoolean - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferBackspace :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- iter - Bool -> -- interactive - Bool -> -- default_editable - m Bool -textBufferBackspace _obj iter interactive default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let interactive' = (fromIntegral . fromEnum) interactive - let default_editable' = (fromIntegral . fromEnum) default_editable - result <- gtk_text_buffer_backspace _obj' iter' interactive' default_editable' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - --- method TextBuffer::begin_user_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_begin_user_action" gtk_text_buffer_begin_user_action :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO () - - -textBufferBeginUserAction :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m () -textBufferBeginUserAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_buffer_begin_user_action _obj' - touchManagedPtr _obj - return () - --- method TextBuffer::copy_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_copy_clipboard" gtk_text_buffer_copy_clipboard :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" - IO () - - -textBufferCopyClipboard :: - (MonadIO m, TextBufferK a, ClipboardK b) => - a -> -- _obj - b -> -- clipboard - m () -textBufferCopyClipboard _obj clipboard = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboard' = unsafeManagedPtrCastPtr clipboard - gtk_text_buffer_copy_clipboard _obj' clipboard' - touchManagedPtr _obj - touchManagedPtr clipboard - return () - --- method TextBuffer::create_child_anchor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextChildAnchor" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_create_child_anchor" gtk_text_buffer_create_child_anchor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO (Ptr TextChildAnchor) - - -textBufferCreateChildAnchor :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- iter - m TextChildAnchor -textBufferCreateChildAnchor _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_buffer_create_child_anchor _obj' iter' - checkUnexpectedReturnNULL "gtk_text_buffer_create_child_anchor" result - result' <- (newObject TextChildAnchor) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - --- method TextBuffer::create_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextMark" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_create_mark" gtk_text_buffer_create_mark :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- mark_name : TBasicType TUTF8 - Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" - CInt -> -- left_gravity : TBasicType TBoolean - IO (Ptr TextMark) - - -textBufferCreateMark :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Maybe (T.Text) -> -- mark_name - TextIter -> -- where - Bool -> -- left_gravity - m TextMark -textBufferCreateMark _obj mark_name where_ left_gravity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeMark_name <- case mark_name of - Nothing -> return nullPtr - Just jMark_name -> do - jMark_name' <- textToCString jMark_name - return jMark_name' - let where_' = unsafeManagedPtrGetPtr where_ - let left_gravity' = (fromIntegral . fromEnum) left_gravity - result <- gtk_text_buffer_create_mark _obj' maybeMark_name where_' left_gravity' - checkUnexpectedReturnNULL "gtk_text_buffer_create_mark" result - result' <- (newObject TextMark) result - touchManagedPtr _obj - touchManagedPtr where_ - freeMem maybeMark_name - return result' - --- method TextBuffer::cut_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_cut_clipboard" gtk_text_buffer_cut_clipboard :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" - CInt -> -- default_editable : TBasicType TBoolean - IO () - - -textBufferCutClipboard :: - (MonadIO m, TextBufferK a, ClipboardK b) => - a -> -- _obj - b -> -- clipboard - Bool -> -- default_editable - m () -textBufferCutClipboard _obj clipboard default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboard' = unsafeManagedPtrCastPtr clipboard - let default_editable' = (fromIntegral . fromEnum) default_editable - gtk_text_buffer_cut_clipboard _obj' clipboard' default_editable' - touchManagedPtr _obj - touchManagedPtr clipboard - return () - --- method TextBuffer::delete --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_delete" gtk_text_buffer_delete :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferDelete :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- start - TextIter -> -- end - m () -textBufferDelete _obj start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_delete _obj' start' end' - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return () - --- method TextBuffer::delete_interactive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_delete_interactive" gtk_text_buffer_delete_interactive :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start_iter : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end_iter : TInterface "Gtk" "TextIter" - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferDeleteInteractive :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- start_iter - TextIter -> -- end_iter - Bool -> -- default_editable - m Bool -textBufferDeleteInteractive _obj start_iter end_iter default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start_iter' = unsafeManagedPtrGetPtr start_iter - let end_iter' = unsafeManagedPtrGetPtr end_iter - let default_editable' = (fromIntegral . fromEnum) default_editable - result <- gtk_text_buffer_delete_interactive _obj' start_iter' end_iter' default_editable' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr start_iter - touchManagedPtr end_iter - return result' - --- method TextBuffer::delete_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_delete_mark" gtk_text_buffer_delete_mark :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - IO () - - -textBufferDeleteMark :: - (MonadIO m, TextBufferK a, TextMarkK b) => - a -> -- _obj - b -> -- mark - m () -textBufferDeleteMark _obj mark = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - gtk_text_buffer_delete_mark _obj' mark' - touchManagedPtr _obj - touchManagedPtr mark - return () - --- method TextBuffer::delete_mark_by_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_delete_mark_by_name" gtk_text_buffer_delete_mark_by_name :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- name : TBasicType TUTF8 - IO () - - -textBufferDeleteMarkByName :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- name - m () -textBufferDeleteMarkByName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_text_buffer_delete_mark_by_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - --- method TextBuffer::delete_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_delete_selection" gtk_text_buffer_delete_selection :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CInt -> -- interactive : TBasicType TBoolean - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferDeleteSelection :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Bool -> -- interactive - Bool -> -- default_editable - m Bool -textBufferDeleteSelection _obj interactive default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let interactive' = (fromIntegral . fromEnum) interactive - let default_editable' = (fromIntegral . fromEnum) default_editable - result <- gtk_text_buffer_delete_selection _obj' interactive' default_editable' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextBuffer::deserialize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 5 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 5 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_text_buffer_deserialize" gtk_text_buffer_deserialize :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextBuffer -> -- content_buffer : TInterface "Gtk" "TextBuffer" - Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr Word8 -> -- data : TCArray False (-1) 5 (TBasicType TUInt8) - Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -textBufferDeserialize :: - (MonadIO m, TextBufferK a, TextBufferK b) => - a -> -- _obj - b -> -- content_buffer - Gdk.Atom -> -- format - TextIter -> -- iter - ByteString -> -- data - m () -textBufferDeserialize _obj content_buffer format iter data_ = liftIO $ do - let length_ = fromIntegral $ B.length data_ - let _obj' = unsafeManagedPtrCastPtr _obj - let content_buffer' = unsafeManagedPtrCastPtr content_buffer - let format' = unsafeManagedPtrGetPtr format - let iter' = unsafeManagedPtrGetPtr iter - data_' <- packByteString data_ - onException (do - _ <- propagateGError $ gtk_text_buffer_deserialize _obj' content_buffer' format' iter' data_' length_ - touchManagedPtr _obj - touchManagedPtr content_buffer - touchManagedPtr format - touchManagedPtr iter - freeMem data_' - return () - ) (do - freeMem data_' - ) - --- method TextBuffer::deserialize_get_can_create_tags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_deserialize_get_can_create_tags" gtk_text_buffer_deserialize_get_can_create_tags :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" - IO CInt - - -textBufferDeserializeGetCanCreateTags :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Gdk.Atom -> -- format - m Bool -textBufferDeserializeGetCanCreateTags _obj format = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let format' = unsafeManagedPtrGetPtr format - result <- gtk_text_buffer_deserialize_get_can_create_tags _obj' format' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr format - return result' - --- method TextBuffer::deserialize_set_can_create_tags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_create_tags", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_create_tags", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_deserialize_set_can_create_tags" gtk_text_buffer_deserialize_set_can_create_tags :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" - CInt -> -- can_create_tags : TBasicType TBoolean - IO () - - -textBufferDeserializeSetCanCreateTags :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Gdk.Atom -> -- format - Bool -> -- can_create_tags - m () -textBufferDeserializeSetCanCreateTags _obj format can_create_tags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let format' = unsafeManagedPtrGetPtr format - let can_create_tags' = (fromIntegral . fromEnum) can_create_tags - gtk_text_buffer_deserialize_set_can_create_tags _obj' format' can_create_tags' - touchManagedPtr _obj - touchManagedPtr format - return () - --- method TextBuffer::end_user_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_end_user_action" gtk_text_buffer_end_user_action :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO () - - -textBufferEndUserAction :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m () -textBufferEndUserAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_buffer_end_user_action _obj' - touchManagedPtr _obj - return () - --- method TextBuffer::get_bounds --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_bounds" gtk_text_buffer_get_bounds :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferGetBounds :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m (TextIter,TextIter) -textBufferGetBounds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start <- callocBoxedBytes 80 :: IO (Ptr TextIter) - end <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_bounds _obj' start end - start' <- (wrapBoxed TextIter) start - end' <- (wrapBoxed TextIter) end - touchManagedPtr _obj - return (start', end') - --- method TextBuffer::get_char_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_char_count" gtk_text_buffer_get_char_count :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO Int32 - - -textBufferGetCharCount :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m Int32 -textBufferGetCharCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_char_count _obj' - touchManagedPtr _obj - return result - --- method TextBuffer::get_copy_target_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TargetList" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_copy_target_list" gtk_text_buffer_get_copy_target_list :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO (Ptr TargetList) - - -textBufferGetCopyTargetList :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m TargetList -textBufferGetCopyTargetList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_copy_target_list _obj' - checkUnexpectedReturnNULL "gtk_text_buffer_get_copy_target_list" result - result' <- (newBoxed TargetList) result - touchManagedPtr _obj - return result' - --- method TextBuffer::get_deserialize_formats --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray False (-1) 1 (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_deserialize_formats" gtk_text_buffer_get_deserialize_formats :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Int32 -> -- n_formats : TBasicType TInt32 - IO (Ptr (Ptr Gdk.Atom)) - - -textBufferGetDeserializeFormats :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m [Gdk.Atom] -textBufferGetDeserializeFormats _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - n_formats <- allocMem :: IO (Ptr Int32) - result <- gtk_text_buffer_get_deserialize_formats _obj' n_formats - n_formats' <- peek n_formats - checkUnexpectedReturnNULL "gtk_text_buffer_get_deserialize_formats" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (unpackPtrArrayWithLength n_formats') result - result'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) result' - freeMem result - touchManagedPtr _obj - freeMem n_formats - return result'' - --- method TextBuffer::get_end_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_end_iter" gtk_text_buffer_get_end_iter :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO () - - -textBufferGetEndIter :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m (TextIter) -textBufferGetEndIter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_end_iter _obj' iter - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - --- method TextBuffer::get_has_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_has_selection" gtk_text_buffer_get_has_selection :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO CInt - - -textBufferGetHasSelection :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m Bool -textBufferGetHasSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_has_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextBuffer::get_insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextMark" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_insert" gtk_text_buffer_get_insert :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO (Ptr TextMark) - - -textBufferGetInsert :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m TextMark -textBufferGetInsert _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_insert _obj' - checkUnexpectedReturnNULL "gtk_text_buffer_get_insert" result - result' <- (newObject TextMark) result - touchManagedPtr _obj - return result' - --- method TextBuffer::get_iter_at_child_anchor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_iter_at_child_anchor" gtk_text_buffer_get_iter_at_child_anchor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor" - IO () - - -textBufferGetIterAtChildAnchor :: - (MonadIO m, TextBufferK a, TextChildAnchorK b) => - a -> -- _obj - b -> -- anchor - m (TextIter) -textBufferGetIterAtChildAnchor _obj anchor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - let anchor' = unsafeManagedPtrCastPtr anchor - gtk_text_buffer_get_iter_at_child_anchor _obj' iter anchor' - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - touchManagedPtr anchor - return iter' - --- method TextBuffer::get_iter_at_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_iter_at_line" gtk_text_buffer_get_iter_at_line :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt32 - IO () - - -textBufferGetIterAtLine :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Int32 -> -- line_number - m (TextIter) -textBufferGetIterAtLine _obj line_number = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_iter_at_line _obj' iter line_number - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - --- method TextBuffer::get_iter_at_line_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_iter_at_line_index" gtk_text_buffer_get_iter_at_line_index :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt32 - Int32 -> -- byte_index : TBasicType TInt32 - IO () - - -textBufferGetIterAtLineIndex :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Int32 -> -- line_number - Int32 -> -- byte_index - m (TextIter) -textBufferGetIterAtLineIndex _obj line_number byte_index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_iter_at_line_index _obj' iter line_number byte_index - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - --- method TextBuffer::get_iter_at_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_iter_at_line_offset" gtk_text_buffer_get_iter_at_line_offset :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt32 - Int32 -> -- char_offset : TBasicType TInt32 - IO () - - -textBufferGetIterAtLineOffset :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Int32 -> -- line_number - Int32 -> -- char_offset - m (TextIter) -textBufferGetIterAtLineOffset _obj line_number char_offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_iter_at_line_offset _obj' iter line_number char_offset - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - --- method TextBuffer::get_iter_at_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_iter_at_mark" gtk_text_buffer_get_iter_at_mark :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - IO () - - -textBufferGetIterAtMark :: - (MonadIO m, TextBufferK a, TextMarkK b) => - a -> -- _obj - b -> -- mark - m (TextIter) -textBufferGetIterAtMark _obj mark = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - let mark' = unsafeManagedPtrCastPtr mark - gtk_text_buffer_get_iter_at_mark _obj' iter mark' - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - touchManagedPtr mark - return iter' - --- method TextBuffer::get_iter_at_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_iter_at_offset" gtk_text_buffer_get_iter_at_offset :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- char_offset : TBasicType TInt32 - IO () - - -textBufferGetIterAtOffset :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Int32 -> -- char_offset - m (TextIter) -textBufferGetIterAtOffset _obj char_offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_iter_at_offset _obj' iter char_offset - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - --- method TextBuffer::get_line_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_line_count" gtk_text_buffer_get_line_count :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO Int32 - - -textBufferGetLineCount :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m Int32 -textBufferGetLineCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_line_count _obj' - touchManagedPtr _obj - return result - --- method TextBuffer::get_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextMark" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_mark" gtk_text_buffer_get_mark :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- name : TBasicType TUTF8 - IO (Ptr TextMark) - - -textBufferGetMark :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- name - m TextMark -textBufferGetMark _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- gtk_text_buffer_get_mark _obj' name' - checkUnexpectedReturnNULL "gtk_text_buffer_get_mark" result - result' <- (newObject TextMark) result - touchManagedPtr _obj - freeMem name' - return result' - --- method TextBuffer::get_modified --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_modified" gtk_text_buffer_get_modified :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO CInt - - -textBufferGetModified :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m Bool -textBufferGetModified _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_modified _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextBuffer::get_paste_target_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TargetList" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_paste_target_list" gtk_text_buffer_get_paste_target_list :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO (Ptr TargetList) - - -textBufferGetPasteTargetList :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m TargetList -textBufferGetPasteTargetList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_paste_target_list _obj' - checkUnexpectedReturnNULL "gtk_text_buffer_get_paste_target_list" result - result' <- (newBoxed TargetList) result - touchManagedPtr _obj - return result' - --- method TextBuffer::get_selection_bound --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextMark" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_selection_bound" gtk_text_buffer_get_selection_bound :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO (Ptr TextMark) - - -textBufferGetSelectionBound :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m TextMark -textBufferGetSelectionBound _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_selection_bound _obj' - checkUnexpectedReturnNULL "gtk_text_buffer_get_selection_bound" result - result' <- (newObject TextMark) result - touchManagedPtr _obj - return result' - --- method TextBuffer::get_selection_bounds --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_selection_bounds" gtk_text_buffer_get_selection_bounds :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO CInt - - -textBufferGetSelectionBounds :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m (Bool,TextIter,TextIter) -textBufferGetSelectionBounds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start <- callocBoxedBytes 80 :: IO (Ptr TextIter) - end <- callocBoxedBytes 80 :: IO (Ptr TextIter) - result <- gtk_text_buffer_get_selection_bounds _obj' start end - let result' = (/= 0) result - start' <- (wrapBoxed TextIter) start - end' <- (wrapBoxed TextIter) end - touchManagedPtr _obj - return (result', start', end') - --- method TextBuffer::get_serialize_formats --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray False (-1) 1 (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_serialize_formats" gtk_text_buffer_get_serialize_formats :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Int32 -> -- n_formats : TBasicType TInt32 - IO (Ptr (Ptr Gdk.Atom)) - - -textBufferGetSerializeFormats :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m [Gdk.Atom] -textBufferGetSerializeFormats _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - n_formats <- allocMem :: IO (Ptr Int32) - result <- gtk_text_buffer_get_serialize_formats _obj' n_formats - n_formats' <- peek n_formats - checkUnexpectedReturnNULL "gtk_text_buffer_get_serialize_formats" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (unpackPtrArrayWithLength n_formats') result - result'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) result' - freeMem result - touchManagedPtr _obj - freeMem n_formats - return result'' - --- method TextBuffer::get_slice --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_slice" gtk_text_buffer_get_slice :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - CInt -> -- include_hidden_chars : TBasicType TBoolean - IO CString - - -textBufferGetSlice :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- start - TextIter -> -- end - Bool -> -- include_hidden_chars - m T.Text -textBufferGetSlice _obj start end include_hidden_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - let include_hidden_chars' = (fromIntegral . fromEnum) include_hidden_chars - result <- gtk_text_buffer_get_slice _obj' start' end' include_hidden_chars' - checkUnexpectedReturnNULL "gtk_text_buffer_get_slice" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return result' - --- method TextBuffer::get_start_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_start_iter" gtk_text_buffer_get_start_iter :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO () - - -textBufferGetStartIter :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m (TextIter) -textBufferGetStartIter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_start_iter _obj' iter - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - --- method TextBuffer::get_tag_table --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextTagTable" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_tag_table" gtk_text_buffer_get_tag_table :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - IO (Ptr TextTagTable) - - -textBufferGetTagTable :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m TextTagTable -textBufferGetTagTable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_tag_table _obj' - checkUnexpectedReturnNULL "gtk_text_buffer_get_tag_table" result - result' <- (newObject TextTagTable) result - touchManagedPtr _obj - return result' - --- method TextBuffer::get_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_get_text" gtk_text_buffer_get_text :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - CInt -> -- include_hidden_chars : TBasicType TBoolean - IO CString - - -textBufferGetText :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- start - TextIter -> -- end - Bool -> -- include_hidden_chars - m T.Text -textBufferGetText _obj start end include_hidden_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - let include_hidden_chars' = (fromIntegral . fromEnum) include_hidden_chars - result <- gtk_text_buffer_get_text _obj' start' end' include_hidden_chars' - checkUnexpectedReturnNULL "gtk_text_buffer_get_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return result' - --- method TextBuffer::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_insert" gtk_text_buffer_insert :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - IO () - - -textBufferInsert :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- iter - T.Text -> -- text - Int32 -> -- len - m () -textBufferInsert _obj iter text len = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - text' <- textToCString text - gtk_text_buffer_insert _obj' iter' text' len - touchManagedPtr _obj - touchManagedPtr iter - freeMem text' - return () - --- method TextBuffer::insert_at_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_insert_at_cursor" gtk_text_buffer_insert_at_cursor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - IO () - - -textBufferInsertAtCursor :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- text - Int32 -> -- len - m () -textBufferInsertAtCursor _obj text len = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_text_buffer_insert_at_cursor _obj' text' len - touchManagedPtr _obj - freeMem text' - return () - --- method TextBuffer::insert_child_anchor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_insert_child_anchor" gtk_text_buffer_insert_child_anchor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor" - IO () - - -textBufferInsertChildAnchor :: - (MonadIO m, TextBufferK a, TextChildAnchorK b) => - a -> -- _obj - TextIter -> -- iter - b -> -- anchor - m () -textBufferInsertChildAnchor _obj iter anchor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let anchor' = unsafeManagedPtrCastPtr anchor - gtk_text_buffer_insert_child_anchor _obj' iter' anchor' - touchManagedPtr _obj - touchManagedPtr iter - touchManagedPtr anchor - return () - --- method TextBuffer::insert_interactive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_insert_interactive" gtk_text_buffer_insert_interactive :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferInsertInteractive :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- iter - T.Text -> -- text - Int32 -> -- len - Bool -> -- default_editable - m Bool -textBufferInsertInteractive _obj iter text len default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - text' <- textToCString text - let default_editable' = (fromIntegral . fromEnum) default_editable - result <- gtk_text_buffer_insert_interactive _obj' iter' text' len default_editable' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - freeMem text' - return result' - --- method TextBuffer::insert_interactive_at_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_insert_interactive_at_cursor" gtk_text_buffer_insert_interactive_at_cursor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferInsertInteractiveAtCursor :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- text - Int32 -> -- len - Bool -> -- default_editable - m Bool -textBufferInsertInteractiveAtCursor _obj text len default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - let default_editable' = (fromIntegral . fromEnum) default_editable - result <- gtk_text_buffer_insert_interactive_at_cursor _obj' text' len default_editable' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem text' - return result' - --- method TextBuffer::insert_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_insert_markup" gtk_text_buffer_insert_markup :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - CString -> -- markup : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - IO () - - -textBufferInsertMarkup :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- iter - T.Text -> -- markup - Int32 -> -- len - m () -textBufferInsertMarkup _obj iter markup len = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - markup' <- textToCString markup - gtk_text_buffer_insert_markup _obj' iter' markup' len - touchManagedPtr _obj - touchManagedPtr iter - freeMem markup' - return () - --- method TextBuffer::insert_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_insert_pixbuf" gtk_text_buffer_insert_pixbuf :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -textBufferInsertPixbuf :: - (MonadIO m, TextBufferK a, GdkPixbuf.PixbufK b) => - a -> -- _obj - TextIter -> -- iter - b -> -- pixbuf - m () -textBufferInsertPixbuf _obj iter pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_text_buffer_insert_pixbuf _obj' iter' pixbuf' - touchManagedPtr _obj - touchManagedPtr iter - touchManagedPtr pixbuf - return () - --- method TextBuffer::insert_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_insert_range" gtk_text_buffer_insert_range :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferInsertRange :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- iter - TextIter -> -- start - TextIter -> -- end - m () -textBufferInsertRange _obj iter start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_insert_range _obj' iter' start' end' - touchManagedPtr _obj - touchManagedPtr iter - touchManagedPtr start - touchManagedPtr end - return () - --- method TextBuffer::insert_range_interactive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_insert_range_interactive" gtk_text_buffer_insert_range_interactive :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferInsertRangeInteractive :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- iter - TextIter -> -- start - TextIter -> -- end - Bool -> -- default_editable - m Bool -textBufferInsertRangeInteractive _obj iter start end default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - let default_editable' = (fromIntegral . fromEnum) default_editable - result <- gtk_text_buffer_insert_range_interactive _obj' iter' start' end' default_editable' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - touchManagedPtr start - touchManagedPtr end - return result' - --- method TextBuffer::move_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_move_mark" gtk_text_buffer_move_mark :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" - IO () - - -textBufferMoveMark :: - (MonadIO m, TextBufferK a, TextMarkK b) => - a -> -- _obj - b -> -- mark - TextIter -> -- where - m () -textBufferMoveMark _obj mark where_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - let where_' = unsafeManagedPtrGetPtr where_ - gtk_text_buffer_move_mark _obj' mark' where_' - touchManagedPtr _obj - touchManagedPtr mark - touchManagedPtr where_ - return () - --- method TextBuffer::move_mark_by_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_move_mark_by_name" gtk_text_buffer_move_mark_by_name :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- name : TBasicType TUTF8 - Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" - IO () - - -textBufferMoveMarkByName :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- name - TextIter -> -- where - m () -textBufferMoveMarkByName _obj name where_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let where_' = unsafeManagedPtrGetPtr where_ - gtk_text_buffer_move_mark_by_name _obj' name' where_' - touchManagedPtr _obj - touchManagedPtr where_ - freeMem name' - return () - --- method TextBuffer::paste_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_location", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_location", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_paste_clipboard" gtk_text_buffer_paste_clipboard :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" - Ptr TextIter -> -- override_location : TInterface "Gtk" "TextIter" - CInt -> -- default_editable : TBasicType TBoolean - IO () - - -textBufferPasteClipboard :: - (MonadIO m, TextBufferK a, ClipboardK b) => - a -> -- _obj - b -> -- clipboard - Maybe (TextIter) -> -- override_location - Bool -> -- default_editable - m () -textBufferPasteClipboard _obj clipboard override_location default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboard' = unsafeManagedPtrCastPtr clipboard - maybeOverride_location <- case override_location of - Nothing -> return nullPtr - Just jOverride_location -> do - let jOverride_location' = unsafeManagedPtrGetPtr jOverride_location - return jOverride_location' - let default_editable' = (fromIntegral . fromEnum) default_editable - gtk_text_buffer_paste_clipboard _obj' clipboard' maybeOverride_location default_editable' - touchManagedPtr _obj - touchManagedPtr clipboard - whenJust override_location touchManagedPtr - return () - --- method TextBuffer::place_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_place_cursor" gtk_text_buffer_place_cursor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" - IO () - - -textBufferPlaceCursor :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- where - m () -textBufferPlaceCursor _obj where_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let where_' = unsafeManagedPtrGetPtr where_ - gtk_text_buffer_place_cursor _obj' where_' - touchManagedPtr _obj - touchManagedPtr where_ - return () - --- method TextBuffer::register_deserialize_format --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "Gtk" "TextBufferDeserializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "Gtk" "TextBufferDeserializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Atom" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_register_deserialize_format" gtk_text_buffer_register_deserialize_format :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- mime_type : TBasicType TUTF8 - FunPtr TextBufferDeserializeFuncC -> -- function : TInterface "Gtk" "TextBufferDeserializeFunc" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify" - IO (Ptr Gdk.Atom) - - -textBufferRegisterDeserializeFormat :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- mime_type - TextBufferDeserializeFunc -> -- function - m Gdk.Atom -textBufferRegisterDeserializeFormat _obj mime_type function = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mime_type' <- textToCString mime_type - function' <- mkTextBufferDeserializeFunc (textBufferDeserializeFuncWrapper Nothing function) - let user_data = castFunPtrToPtr function' - let user_data_destroy = safeFreeFunPtrPtr - result <- gtk_text_buffer_register_deserialize_format _obj' mime_type' function' user_data user_data_destroy - checkUnexpectedReturnNULL "gtk_text_buffer_register_deserialize_format" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - freeMem mime_type' - return result' - --- method TextBuffer::register_deserialize_tagset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Atom" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_register_deserialize_tagset" gtk_text_buffer_register_deserialize_tagset :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- tagset_name : TBasicType TUTF8 - IO (Ptr Gdk.Atom) - - -textBufferRegisterDeserializeTagset :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Maybe (T.Text) -> -- tagset_name - m Gdk.Atom -textBufferRegisterDeserializeTagset _obj tagset_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTagset_name <- case tagset_name of - Nothing -> return nullPtr - Just jTagset_name -> do - jTagset_name' <- textToCString jTagset_name - return jTagset_name' - result <- gtk_text_buffer_register_deserialize_tagset _obj' maybeTagset_name - checkUnexpectedReturnNULL "gtk_text_buffer_register_deserialize_tagset" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - freeMem maybeTagset_name - return result' - --- method TextBuffer::register_serialize_format --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "Gtk" "TextBufferSerializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "Gtk" "TextBufferSerializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Atom" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_register_serialize_format" gtk_text_buffer_register_serialize_format :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- mime_type : TBasicType TUTF8 - FunPtr TextBufferSerializeFuncC -> -- function : TInterface "Gtk" "TextBufferSerializeFunc" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify" - IO (Ptr Gdk.Atom) - - -textBufferRegisterSerializeFormat :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- mime_type - TextBufferSerializeFunc -> -- function - m Gdk.Atom -textBufferRegisterSerializeFormat _obj mime_type function = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mime_type' <- textToCString mime_type - function' <- mkTextBufferSerializeFunc (textBufferSerializeFuncWrapper Nothing function) - let user_data = castFunPtrToPtr function' - let user_data_destroy = safeFreeFunPtrPtr - result <- gtk_text_buffer_register_serialize_format _obj' mime_type' function' user_data user_data_destroy - checkUnexpectedReturnNULL "gtk_text_buffer_register_serialize_format" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - freeMem mime_type' - return result' - --- method TextBuffer::register_serialize_tagset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Atom" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_register_serialize_tagset" gtk_text_buffer_register_serialize_tagset :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- tagset_name : TBasicType TUTF8 - IO (Ptr Gdk.Atom) - - -textBufferRegisterSerializeTagset :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Maybe (T.Text) -> -- tagset_name - m Gdk.Atom -textBufferRegisterSerializeTagset _obj tagset_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTagset_name <- case tagset_name of - Nothing -> return nullPtr - Just jTagset_name -> do - jTagset_name' <- textToCString jTagset_name - return jTagset_name' - result <- gtk_text_buffer_register_serialize_tagset _obj' maybeTagset_name - checkUnexpectedReturnNULL "gtk_text_buffer_register_serialize_tagset" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - freeMem maybeTagset_name - return result' - --- method TextBuffer::remove_all_tags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_remove_all_tags" gtk_text_buffer_remove_all_tags :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferRemoveAllTags :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- start - TextIter -> -- end - m () -textBufferRemoveAllTags _obj start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_remove_all_tags _obj' start' end' - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return () - --- method TextBuffer::remove_selection_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_remove_selection_clipboard" gtk_text_buffer_remove_selection_clipboard :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" - IO () - - -textBufferRemoveSelectionClipboard :: - (MonadIO m, TextBufferK a, ClipboardK b) => - a -> -- _obj - b -> -- clipboard - m () -textBufferRemoveSelectionClipboard _obj clipboard = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboard' = unsafeManagedPtrCastPtr clipboard - gtk_text_buffer_remove_selection_clipboard _obj' clipboard' - touchManagedPtr _obj - touchManagedPtr clipboard - return () - --- method TextBuffer::remove_tag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_remove_tag" gtk_text_buffer_remove_tag :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferRemoveTag :: - (MonadIO m, TextBufferK a, TextTagK b) => - a -> -- _obj - b -> -- tag - TextIter -> -- start - TextIter -> -- end - m () -textBufferRemoveTag _obj tag start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tag' = unsafeManagedPtrCastPtr tag - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_remove_tag _obj' tag' start' end' - touchManagedPtr _obj - touchManagedPtr tag - touchManagedPtr start - touchManagedPtr end - return () - --- method TextBuffer::remove_tag_by_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_remove_tag_by_name" gtk_text_buffer_remove_tag_by_name :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- name : TBasicType TUTF8 - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO () - - -textBufferRemoveTagByName :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- name - TextIter -> -- start - TextIter -> -- end - m () -textBufferRemoveTagByName _obj name start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - gtk_text_buffer_remove_tag_by_name _obj' name' start' end' - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - freeMem name' - return () - --- method TextBuffer::select_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ins", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bound", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ins", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bound", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_select_range" gtk_text_buffer_select_range :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextIter -> -- ins : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- bound : TInterface "Gtk" "TextIter" - IO () - - -textBufferSelectRange :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- ins - TextIter -> -- bound - m () -textBufferSelectRange _obj ins bound = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let ins' = unsafeManagedPtrGetPtr ins - let bound' = unsafeManagedPtrGetPtr bound - gtk_text_buffer_select_range _obj' ins' bound' - touchManagedPtr _obj - touchManagedPtr ins - touchManagedPtr bound - return () - --- method TextBuffer::serialize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray False (-1) 5 (TBasicType TUInt8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_serialize" gtk_text_buffer_serialize :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr TextBuffer -> -- content_buffer : TInterface "Gtk" "TextBuffer" - Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - Ptr Word64 -> -- length : TBasicType TUInt64 - IO (Ptr Word8) - - -textBufferSerialize :: - (MonadIO m, TextBufferK a, TextBufferK b) => - a -> -- _obj - b -> -- content_buffer - Gdk.Atom -> -- format - TextIter -> -- start - TextIter -> -- end - m ByteString -textBufferSerialize _obj content_buffer format start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let content_buffer' = unsafeManagedPtrCastPtr content_buffer - let format' = unsafeManagedPtrGetPtr format - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - length_ <- allocMem :: IO (Ptr Word64) - result <- gtk_text_buffer_serialize _obj' content_buffer' format' start' end' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "gtk_text_buffer_serialize" result - result' <- (unpackByteStringWithLength length_') result - freeMem result - touchManagedPtr _obj - touchManagedPtr content_buffer - touchManagedPtr format - touchManagedPtr start - touchManagedPtr end - freeMem length_ - return result' - --- method TextBuffer::set_modified --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_set_modified" gtk_text_buffer_set_modified :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CInt -> -- setting : TBasicType TBoolean - IO () - - -textBufferSetModified :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Bool -> -- setting - m () -textBufferSetModified _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_text_buffer_set_modified _obj' setting' - touchManagedPtr _obj - return () - --- method TextBuffer::set_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_set_text" gtk_text_buffer_set_text :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - IO () - - -textBufferSetText :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- text - Int32 -> -- len - m () -textBufferSetText _obj text len = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_text_buffer_set_text _obj' text' len - touchManagedPtr _obj - freeMem text' - return () - --- method TextBuffer::unregister_deserialize_format --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_unregister_deserialize_format" gtk_text_buffer_unregister_deserialize_format :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" - IO () - - -textBufferUnregisterDeserializeFormat :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Gdk.Atom -> -- format - m () -textBufferUnregisterDeserializeFormat _obj format = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let format' = unsafeManagedPtrGetPtr format - gtk_text_buffer_unregister_deserialize_format _obj' format' - touchManagedPtr _obj - touchManagedPtr format - return () - --- method TextBuffer::unregister_serialize_format --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_unregister_serialize_format" gtk_text_buffer_unregister_serialize_format :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" - IO () - - -textBufferUnregisterSerializeFormat :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Gdk.Atom -> -- format - m () -textBufferUnregisterSerializeFormat _obj format = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let format' = unsafeManagedPtrGetPtr format - gtk_text_buffer_unregister_serialize_format _obj' format' - touchManagedPtr _obj - touchManagedPtr format - return () + +{- | +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.Objects.TextBuffer + ( + +-- * Exported types + TextBuffer(..) , + TextBufferK , + toTextBuffer , + noTextBuffer , + + + -- * Methods +-- ** textBufferAddMark + TextBufferAddMarkMethodInfo , + textBufferAddMark , + + +-- ** textBufferAddSelectionClipboard + TextBufferAddSelectionClipboardMethodInfo, + textBufferAddSelectionClipboard , + + +-- ** textBufferApplyTag + TextBufferApplyTagMethodInfo , + textBufferApplyTag , + + +-- ** textBufferApplyTagByName + TextBufferApplyTagByNameMethodInfo , + textBufferApplyTagByName , + + +-- ** textBufferBackspace + TextBufferBackspaceMethodInfo , + textBufferBackspace , + + +-- ** textBufferBeginUserAction + TextBufferBeginUserActionMethodInfo , + textBufferBeginUserAction , + + +-- ** textBufferCopyClipboard + TextBufferCopyClipboardMethodInfo , + textBufferCopyClipboard , + + +-- ** textBufferCreateChildAnchor + TextBufferCreateChildAnchorMethodInfo , + textBufferCreateChildAnchor , + + +-- ** textBufferCreateMark + TextBufferCreateMarkMethodInfo , + textBufferCreateMark , + + +-- ** textBufferCutClipboard + TextBufferCutClipboardMethodInfo , + textBufferCutClipboard , + + +-- ** textBufferDelete + TextBufferDeleteMethodInfo , + textBufferDelete , + + +-- ** textBufferDeleteInteractive + TextBufferDeleteInteractiveMethodInfo , + textBufferDeleteInteractive , + + +-- ** textBufferDeleteMark + TextBufferDeleteMarkMethodInfo , + textBufferDeleteMark , + + +-- ** textBufferDeleteMarkByName + TextBufferDeleteMarkByNameMethodInfo , + textBufferDeleteMarkByName , + + +-- ** textBufferDeleteSelection + TextBufferDeleteSelectionMethodInfo , + textBufferDeleteSelection , + + +-- ** textBufferDeserialize + TextBufferDeserializeMethodInfo , + textBufferDeserialize , + + +-- ** textBufferDeserializeGetCanCreateTags + TextBufferDeserializeGetCanCreateTagsMethodInfo, + textBufferDeserializeGetCanCreateTags , + + +-- ** textBufferDeserializeSetCanCreateTags + TextBufferDeserializeSetCanCreateTagsMethodInfo, + textBufferDeserializeSetCanCreateTags , + + +-- ** textBufferEndUserAction + TextBufferEndUserActionMethodInfo , + textBufferEndUserAction , + + +-- ** textBufferGetBounds + TextBufferGetBoundsMethodInfo , + textBufferGetBounds , + + +-- ** textBufferGetCharCount + TextBufferGetCharCountMethodInfo , + textBufferGetCharCount , + + +-- ** textBufferGetCopyTargetList + TextBufferGetCopyTargetListMethodInfo , + textBufferGetCopyTargetList , + + +-- ** textBufferGetDeserializeFormats + TextBufferGetDeserializeFormatsMethodInfo, + textBufferGetDeserializeFormats , + + +-- ** textBufferGetEndIter + TextBufferGetEndIterMethodInfo , + textBufferGetEndIter , + + +-- ** textBufferGetHasSelection + TextBufferGetHasSelectionMethodInfo , + textBufferGetHasSelection , + + +-- ** textBufferGetInsert + TextBufferGetInsertMethodInfo , + textBufferGetInsert , + + +-- ** textBufferGetIterAtChildAnchor + TextBufferGetIterAtChildAnchorMethodInfo, + textBufferGetIterAtChildAnchor , + + +-- ** textBufferGetIterAtLine + TextBufferGetIterAtLineMethodInfo , + textBufferGetIterAtLine , + + +-- ** textBufferGetIterAtLineIndex + TextBufferGetIterAtLineIndexMethodInfo , + textBufferGetIterAtLineIndex , + + +-- ** textBufferGetIterAtLineOffset + TextBufferGetIterAtLineOffsetMethodInfo , + textBufferGetIterAtLineOffset , + + +-- ** textBufferGetIterAtMark + TextBufferGetIterAtMarkMethodInfo , + textBufferGetIterAtMark , + + +-- ** textBufferGetIterAtOffset + TextBufferGetIterAtOffsetMethodInfo , + textBufferGetIterAtOffset , + + +-- ** textBufferGetLineCount + TextBufferGetLineCountMethodInfo , + textBufferGetLineCount , + + +-- ** textBufferGetMark + TextBufferGetMarkMethodInfo , + textBufferGetMark , + + +-- ** textBufferGetModified + TextBufferGetModifiedMethodInfo , + textBufferGetModified , + + +-- ** textBufferGetPasteTargetList + TextBufferGetPasteTargetListMethodInfo , + textBufferGetPasteTargetList , + + +-- ** textBufferGetSelectionBound + TextBufferGetSelectionBoundMethodInfo , + textBufferGetSelectionBound , + + +-- ** textBufferGetSelectionBounds + TextBufferGetSelectionBoundsMethodInfo , + textBufferGetSelectionBounds , + + +-- ** textBufferGetSerializeFormats + TextBufferGetSerializeFormatsMethodInfo , + textBufferGetSerializeFormats , + + +-- ** textBufferGetSlice + TextBufferGetSliceMethodInfo , + textBufferGetSlice , + + +-- ** textBufferGetStartIter + TextBufferGetStartIterMethodInfo , + textBufferGetStartIter , + + +-- ** textBufferGetTagTable + TextBufferGetTagTableMethodInfo , + textBufferGetTagTable , + + +-- ** textBufferGetText + TextBufferGetTextMethodInfo , + textBufferGetText , + + +-- ** textBufferInsert + TextBufferInsertMethodInfo , + textBufferInsert , + + +-- ** textBufferInsertAtCursor + TextBufferInsertAtCursorMethodInfo , + textBufferInsertAtCursor , + + +-- ** textBufferInsertChildAnchor + TextBufferInsertChildAnchorMethodInfo , + textBufferInsertChildAnchor , + + +-- ** textBufferInsertInteractive + TextBufferInsertInteractiveMethodInfo , + textBufferInsertInteractive , + + +-- ** textBufferInsertInteractiveAtCursor + TextBufferInsertInteractiveAtCursorMethodInfo, + textBufferInsertInteractiveAtCursor , + + +-- ** textBufferInsertMarkup + TextBufferInsertMarkupMethodInfo , + textBufferInsertMarkup , + + +-- ** textBufferInsertPixbuf + TextBufferInsertPixbufMethodInfo , + textBufferInsertPixbuf , + + +-- ** textBufferInsertRange + TextBufferInsertRangeMethodInfo , + textBufferInsertRange , + + +-- ** textBufferInsertRangeInteractive + TextBufferInsertRangeInteractiveMethodInfo, + textBufferInsertRangeInteractive , + + +-- ** textBufferMoveMark + TextBufferMoveMarkMethodInfo , + textBufferMoveMark , + + +-- ** textBufferMoveMarkByName + TextBufferMoveMarkByNameMethodInfo , + textBufferMoveMarkByName , + + +-- ** textBufferNew + textBufferNew , + + +-- ** textBufferPasteClipboard + TextBufferPasteClipboardMethodInfo , + textBufferPasteClipboard , + + +-- ** textBufferPlaceCursor + TextBufferPlaceCursorMethodInfo , + textBufferPlaceCursor , + + +-- ** textBufferRegisterDeserializeFormat + TextBufferRegisterDeserializeFormatMethodInfo, + textBufferRegisterDeserializeFormat , + + +-- ** textBufferRegisterDeserializeTagset + TextBufferRegisterDeserializeTagsetMethodInfo, + textBufferRegisterDeserializeTagset , + + +-- ** textBufferRegisterSerializeFormat + TextBufferRegisterSerializeFormatMethodInfo, + textBufferRegisterSerializeFormat , + + +-- ** textBufferRegisterSerializeTagset + TextBufferRegisterSerializeTagsetMethodInfo, + textBufferRegisterSerializeTagset , + + +-- ** textBufferRemoveAllTags + TextBufferRemoveAllTagsMethodInfo , + textBufferRemoveAllTags , + + +-- ** textBufferRemoveSelectionClipboard + TextBufferRemoveSelectionClipboardMethodInfo, + textBufferRemoveSelectionClipboard , + + +-- ** textBufferRemoveTag + TextBufferRemoveTagMethodInfo , + textBufferRemoveTag , + + +-- ** textBufferRemoveTagByName + TextBufferRemoveTagByNameMethodInfo , + textBufferRemoveTagByName , + + +-- ** textBufferSelectRange + TextBufferSelectRangeMethodInfo , + textBufferSelectRange , + + +-- ** textBufferSerialize + TextBufferSerializeMethodInfo , + textBufferSerialize , + + +-- ** textBufferSetModified + TextBufferSetModifiedMethodInfo , + textBufferSetModified , + + +-- ** textBufferSetText + TextBufferSetTextMethodInfo , + textBufferSetText , + + +-- ** textBufferUnregisterDeserializeFormat + TextBufferUnregisterDeserializeFormatMethodInfo, + textBufferUnregisterDeserializeFormat , + + +-- ** textBufferUnregisterSerializeFormat + TextBufferUnregisterSerializeFormatMethodInfo, + textBufferUnregisterSerializeFormat , + + + + + -- * Properties +-- ** CopyTargetList + TextBufferCopyTargetListPropertyInfo , + getTextBufferCopyTargetList , + + +-- ** CursorPosition + TextBufferCursorPositionPropertyInfo , + getTextBufferCursorPosition , + + +-- ** HasSelection + TextBufferHasSelectionPropertyInfo , + getTextBufferHasSelection , + + +-- ** PasteTargetList + TextBufferPasteTargetListPropertyInfo , + getTextBufferPasteTargetList , + + +-- ** TagTable + TextBufferTagTablePropertyInfo , + constructTextBufferTagTable , + getTextBufferTagTable , + + +-- ** Text + TextBufferTextPropertyInfo , + constructTextBufferText , + getTextBufferText , + setTextBufferText , + + + + + -- * Signals +-- ** ApplyTag + TextBufferApplyTagCallback , + TextBufferApplyTagCallbackC , + TextBufferApplyTagSignalInfo , + afterTextBufferApplyTag , + mkTextBufferApplyTagCallback , + noTextBufferApplyTagCallback , + onTextBufferApplyTag , + textBufferApplyTagCallbackWrapper , + textBufferApplyTagClosure , + + +-- ** BeginUserAction + TextBufferBeginUserActionCallback , + TextBufferBeginUserActionCallbackC , + TextBufferBeginUserActionSignalInfo , + afterTextBufferBeginUserAction , + mkTextBufferBeginUserActionCallback , + noTextBufferBeginUserActionCallback , + onTextBufferBeginUserAction , + textBufferBeginUserActionCallbackWrapper, + textBufferBeginUserActionClosure , + + +-- ** Changed + TextBufferChangedCallback , + TextBufferChangedCallbackC , + TextBufferChangedSignalInfo , + afterTextBufferChanged , + mkTextBufferChangedCallback , + noTextBufferChangedCallback , + onTextBufferChanged , + textBufferChangedCallbackWrapper , + textBufferChangedClosure , + + +-- ** DeleteRange + TextBufferDeleteRangeCallback , + TextBufferDeleteRangeCallbackC , + TextBufferDeleteRangeSignalInfo , + afterTextBufferDeleteRange , + mkTextBufferDeleteRangeCallback , + noTextBufferDeleteRangeCallback , + onTextBufferDeleteRange , + textBufferDeleteRangeCallbackWrapper , + textBufferDeleteRangeClosure , + + +-- ** EndUserAction + TextBufferEndUserActionCallback , + TextBufferEndUserActionCallbackC , + TextBufferEndUserActionSignalInfo , + afterTextBufferEndUserAction , + mkTextBufferEndUserActionCallback , + noTextBufferEndUserActionCallback , + onTextBufferEndUserAction , + textBufferEndUserActionCallbackWrapper , + textBufferEndUserActionClosure , + + +-- ** InsertChildAnchor + TextBufferInsertChildAnchorCallback , + TextBufferInsertChildAnchorCallbackC , + TextBufferInsertChildAnchorSignalInfo , + afterTextBufferInsertChildAnchor , + mkTextBufferInsertChildAnchorCallback , + noTextBufferInsertChildAnchorCallback , + onTextBufferInsertChildAnchor , + textBufferInsertChildAnchorCallbackWrapper, + textBufferInsertChildAnchorClosure , + + +-- ** InsertPixbuf + TextBufferInsertPixbufCallback , + TextBufferInsertPixbufCallbackC , + TextBufferInsertPixbufSignalInfo , + afterTextBufferInsertPixbuf , + mkTextBufferInsertPixbufCallback , + noTextBufferInsertPixbufCallback , + onTextBufferInsertPixbuf , + textBufferInsertPixbufCallbackWrapper , + textBufferInsertPixbufClosure , + + +-- ** InsertText + TextBufferInsertTextCallback , + TextBufferInsertTextCallbackC , + TextBufferInsertTextSignalInfo , + afterTextBufferInsertText , + mkTextBufferInsertTextCallback , + noTextBufferInsertTextCallback , + onTextBufferInsertText , + textBufferInsertTextCallbackWrapper , + textBufferInsertTextClosure , + + +-- ** MarkDeleted + TextBufferMarkDeletedCallback , + TextBufferMarkDeletedCallbackC , + TextBufferMarkDeletedSignalInfo , + afterTextBufferMarkDeleted , + mkTextBufferMarkDeletedCallback , + noTextBufferMarkDeletedCallback , + onTextBufferMarkDeleted , + textBufferMarkDeletedCallbackWrapper , + textBufferMarkDeletedClosure , + + +-- ** MarkSet + TextBufferMarkSetCallback , + TextBufferMarkSetCallbackC , + TextBufferMarkSetSignalInfo , + afterTextBufferMarkSet , + mkTextBufferMarkSetCallback , + noTextBufferMarkSetCallback , + onTextBufferMarkSet , + textBufferMarkSetCallbackWrapper , + textBufferMarkSetClosure , + + +-- ** ModifiedChanged + TextBufferModifiedChangedCallback , + TextBufferModifiedChangedCallbackC , + TextBufferModifiedChangedSignalInfo , + afterTextBufferModifiedChanged , + mkTextBufferModifiedChangedCallback , + noTextBufferModifiedChangedCallback , + onTextBufferModifiedChanged , + textBufferModifiedChangedCallbackWrapper, + textBufferModifiedChangedClosure , + + +-- ** PasteDone + TextBufferPasteDoneCallback , + TextBufferPasteDoneCallbackC , + TextBufferPasteDoneSignalInfo , + afterTextBufferPasteDone , + mkTextBufferPasteDoneCallback , + noTextBufferPasteDoneCallback , + onTextBufferPasteDone , + textBufferPasteDoneCallbackWrapper , + textBufferPasteDoneClosure , + + +-- ** RemoveTag + TextBufferRemoveTagCallback , + TextBufferRemoveTagCallbackC , + TextBufferRemoveTagSignalInfo , + afterTextBufferRemoveTag , + mkTextBufferRemoveTagCallback , + noTextBufferRemoveTagCallback , + onTextBufferRemoveTag , + textBufferRemoveTagCallbackWrapper , + textBufferRemoveTagClosure , + + + + + ) 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 + +newtype TextBuffer = TextBuffer (ForeignPtr TextBuffer) +foreign import ccall "gtk_text_buffer_get_type" + c_gtk_text_buffer_get_type :: IO GType + +type instance ParentTypes TextBuffer = TextBufferParentTypes +type TextBufferParentTypes = '[GObject.Object] + +instance GObject TextBuffer where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_gtk_text_buffer_get_type + + +class GObject o => TextBufferK o +instance (GObject o, IsDescendantOf TextBuffer o) => TextBufferK o + +toTextBuffer :: TextBufferK o => o -> IO TextBuffer +toTextBuffer = unsafeCastTo TextBuffer + +noTextBuffer :: Maybe TextBuffer +noTextBuffer = Nothing + +type family ResolveTextBufferMethod (t :: Symbol) (o :: *) :: * where + ResolveTextBufferMethod "addMark" o = TextBufferAddMarkMethodInfo + ResolveTextBufferMethod "addSelectionClipboard" o = TextBufferAddSelectionClipboardMethodInfo + ResolveTextBufferMethod "applyTag" o = TextBufferApplyTagMethodInfo + ResolveTextBufferMethod "applyTagByName" o = TextBufferApplyTagByNameMethodInfo + ResolveTextBufferMethod "backspace" o = TextBufferBackspaceMethodInfo + ResolveTextBufferMethod "beginUserAction" o = TextBufferBeginUserActionMethodInfo + ResolveTextBufferMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTextBufferMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTextBufferMethod "copyClipboard" o = TextBufferCopyClipboardMethodInfo + ResolveTextBufferMethod "createChildAnchor" o = TextBufferCreateChildAnchorMethodInfo + ResolveTextBufferMethod "createMark" o = TextBufferCreateMarkMethodInfo + ResolveTextBufferMethod "cutClipboard" o = TextBufferCutClipboardMethodInfo + ResolveTextBufferMethod "delete" o = TextBufferDeleteMethodInfo + ResolveTextBufferMethod "deleteInteractive" o = TextBufferDeleteInteractiveMethodInfo + ResolveTextBufferMethod "deleteMark" o = TextBufferDeleteMarkMethodInfo + ResolveTextBufferMethod "deleteMarkByName" o = TextBufferDeleteMarkByNameMethodInfo + ResolveTextBufferMethod "deleteSelection" o = TextBufferDeleteSelectionMethodInfo + ResolveTextBufferMethod "deserialize" o = TextBufferDeserializeMethodInfo + ResolveTextBufferMethod "deserializeGetCanCreateTags" o = TextBufferDeserializeGetCanCreateTagsMethodInfo + ResolveTextBufferMethod "deserializeSetCanCreateTags" o = TextBufferDeserializeSetCanCreateTagsMethodInfo + ResolveTextBufferMethod "endUserAction" o = TextBufferEndUserActionMethodInfo + ResolveTextBufferMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTextBufferMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTextBufferMethod "insert" o = TextBufferInsertMethodInfo + ResolveTextBufferMethod "insertAtCursor" o = TextBufferInsertAtCursorMethodInfo + ResolveTextBufferMethod "insertChildAnchor" o = TextBufferInsertChildAnchorMethodInfo + ResolveTextBufferMethod "insertInteractive" o = TextBufferInsertInteractiveMethodInfo + ResolveTextBufferMethod "insertInteractiveAtCursor" o = TextBufferInsertInteractiveAtCursorMethodInfo + ResolveTextBufferMethod "insertMarkup" o = TextBufferInsertMarkupMethodInfo + ResolveTextBufferMethod "insertPixbuf" o = TextBufferInsertPixbufMethodInfo + ResolveTextBufferMethod "insertRange" o = TextBufferInsertRangeMethodInfo + ResolveTextBufferMethod "insertRangeInteractive" o = TextBufferInsertRangeInteractiveMethodInfo + ResolveTextBufferMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTextBufferMethod "moveMark" o = TextBufferMoveMarkMethodInfo + ResolveTextBufferMethod "moveMarkByName" o = TextBufferMoveMarkByNameMethodInfo + ResolveTextBufferMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTextBufferMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTextBufferMethod "pasteClipboard" o = TextBufferPasteClipboardMethodInfo + ResolveTextBufferMethod "placeCursor" o = TextBufferPlaceCursorMethodInfo + ResolveTextBufferMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTextBufferMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTextBufferMethod "registerDeserializeFormat" o = TextBufferRegisterDeserializeFormatMethodInfo + ResolveTextBufferMethod "registerDeserializeTagset" o = TextBufferRegisterDeserializeTagsetMethodInfo + ResolveTextBufferMethod "registerSerializeFormat" o = TextBufferRegisterSerializeFormatMethodInfo + ResolveTextBufferMethod "registerSerializeTagset" o = TextBufferRegisterSerializeTagsetMethodInfo + ResolveTextBufferMethod "removeAllTags" o = TextBufferRemoveAllTagsMethodInfo + ResolveTextBufferMethod "removeSelectionClipboard" o = TextBufferRemoveSelectionClipboardMethodInfo + ResolveTextBufferMethod "removeTag" o = TextBufferRemoveTagMethodInfo + ResolveTextBufferMethod "removeTagByName" o = TextBufferRemoveTagByNameMethodInfo + ResolveTextBufferMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTextBufferMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTextBufferMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTextBufferMethod "selectRange" o = TextBufferSelectRangeMethodInfo + ResolveTextBufferMethod "serialize" o = TextBufferSerializeMethodInfo + ResolveTextBufferMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTextBufferMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTextBufferMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTextBufferMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTextBufferMethod "unregisterDeserializeFormat" o = TextBufferUnregisterDeserializeFormatMethodInfo + ResolveTextBufferMethod "unregisterSerializeFormat" o = TextBufferUnregisterSerializeFormatMethodInfo + ResolveTextBufferMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTextBufferMethod "getBounds" o = TextBufferGetBoundsMethodInfo + ResolveTextBufferMethod "getCharCount" o = TextBufferGetCharCountMethodInfo + ResolveTextBufferMethod "getCopyTargetList" o = TextBufferGetCopyTargetListMethodInfo + ResolveTextBufferMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTextBufferMethod "getDeserializeFormats" o = TextBufferGetDeserializeFormatsMethodInfo + ResolveTextBufferMethod "getEndIter" o = TextBufferGetEndIterMethodInfo + ResolveTextBufferMethod "getHasSelection" o = TextBufferGetHasSelectionMethodInfo + ResolveTextBufferMethod "getInsert" o = TextBufferGetInsertMethodInfo + ResolveTextBufferMethod "getIterAtChildAnchor" o = TextBufferGetIterAtChildAnchorMethodInfo + ResolveTextBufferMethod "getIterAtLine" o = TextBufferGetIterAtLineMethodInfo + ResolveTextBufferMethod "getIterAtLineIndex" o = TextBufferGetIterAtLineIndexMethodInfo + ResolveTextBufferMethod "getIterAtLineOffset" o = TextBufferGetIterAtLineOffsetMethodInfo + ResolveTextBufferMethod "getIterAtMark" o = TextBufferGetIterAtMarkMethodInfo + ResolveTextBufferMethod "getIterAtOffset" o = TextBufferGetIterAtOffsetMethodInfo + ResolveTextBufferMethod "getLineCount" o = TextBufferGetLineCountMethodInfo + ResolveTextBufferMethod "getMark" o = TextBufferGetMarkMethodInfo + ResolveTextBufferMethod "getModified" o = TextBufferGetModifiedMethodInfo + ResolveTextBufferMethod "getPasteTargetList" o = TextBufferGetPasteTargetListMethodInfo + ResolveTextBufferMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTextBufferMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTextBufferMethod "getSelectionBound" o = TextBufferGetSelectionBoundMethodInfo + ResolveTextBufferMethod "getSelectionBounds" o = TextBufferGetSelectionBoundsMethodInfo + ResolveTextBufferMethod "getSerializeFormats" o = TextBufferGetSerializeFormatsMethodInfo + ResolveTextBufferMethod "getSlice" o = TextBufferGetSliceMethodInfo + ResolveTextBufferMethod "getStartIter" o = TextBufferGetStartIterMethodInfo + ResolveTextBufferMethod "getTagTable" o = TextBufferGetTagTableMethodInfo + ResolveTextBufferMethod "getText" o = TextBufferGetTextMethodInfo + ResolveTextBufferMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTextBufferMethod "setModified" o = TextBufferSetModifiedMethodInfo + ResolveTextBufferMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTextBufferMethod "setText" o = TextBufferSetTextMethodInfo + ResolveTextBufferMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTextBufferMethod t TextBuffer, MethodInfo info TextBuffer p) => IsLabelProxy t (TextBuffer -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTextBufferMethod t TextBuffer, MethodInfo info TextBuffer p) => IsLabel t (TextBuffer -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- signal TextBuffer::apply-tag +type TextBufferApplyTagCallback = + TextTag -> + TextIter -> + TextIter -> + IO () + +noTextBufferApplyTagCallback :: Maybe TextBufferApplyTagCallback +noTextBufferApplyTagCallback = Nothing + +type TextBufferApplyTagCallbackC = + Ptr () -> -- object + Ptr TextTag -> + Ptr TextIter -> + Ptr TextIter -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferApplyTagCallback :: TextBufferApplyTagCallbackC -> IO (FunPtr TextBufferApplyTagCallbackC) + +textBufferApplyTagClosure :: TextBufferApplyTagCallback -> IO Closure +textBufferApplyTagClosure cb = newCClosure =<< mkTextBufferApplyTagCallback wrapped + where wrapped = textBufferApplyTagCallbackWrapper cb + +textBufferApplyTagCallbackWrapper :: + TextBufferApplyTagCallback -> + Ptr () -> + Ptr TextTag -> + Ptr TextIter -> + Ptr TextIter -> + Ptr () -> + IO () +textBufferApplyTagCallbackWrapper _cb _ tag start end _ = do + tag' <- (newObject TextTag) tag + start' <- (newBoxed TextIter) start + end' <- (newBoxed TextIter) end + _cb tag' start' end' + +onTextBufferApplyTag :: (GObject a, MonadIO m) => a -> TextBufferApplyTagCallback -> m SignalHandlerId +onTextBufferApplyTag obj cb = liftIO $ connectTextBufferApplyTag obj cb SignalConnectBefore +afterTextBufferApplyTag :: (GObject a, MonadIO m) => a -> TextBufferApplyTagCallback -> m SignalHandlerId +afterTextBufferApplyTag obj cb = connectTextBufferApplyTag obj cb SignalConnectAfter + +connectTextBufferApplyTag :: (GObject a, MonadIO m) => + a -> TextBufferApplyTagCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferApplyTag obj cb after = liftIO $ do + cb' <- mkTextBufferApplyTagCallback (textBufferApplyTagCallbackWrapper cb) + connectSignalFunPtr obj "apply-tag" cb' after + +-- signal TextBuffer::begin-user-action +type TextBufferBeginUserActionCallback = + IO () + +noTextBufferBeginUserActionCallback :: Maybe TextBufferBeginUserActionCallback +noTextBufferBeginUserActionCallback = Nothing + +type TextBufferBeginUserActionCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferBeginUserActionCallback :: TextBufferBeginUserActionCallbackC -> IO (FunPtr TextBufferBeginUserActionCallbackC) + +textBufferBeginUserActionClosure :: TextBufferBeginUserActionCallback -> IO Closure +textBufferBeginUserActionClosure cb = newCClosure =<< mkTextBufferBeginUserActionCallback wrapped + where wrapped = textBufferBeginUserActionCallbackWrapper cb + +textBufferBeginUserActionCallbackWrapper :: + TextBufferBeginUserActionCallback -> + Ptr () -> + Ptr () -> + IO () +textBufferBeginUserActionCallbackWrapper _cb _ _ = do + _cb + +onTextBufferBeginUserAction :: (GObject a, MonadIO m) => a -> TextBufferBeginUserActionCallback -> m SignalHandlerId +onTextBufferBeginUserAction obj cb = liftIO $ connectTextBufferBeginUserAction obj cb SignalConnectBefore +afterTextBufferBeginUserAction :: (GObject a, MonadIO m) => a -> TextBufferBeginUserActionCallback -> m SignalHandlerId +afterTextBufferBeginUserAction obj cb = connectTextBufferBeginUserAction obj cb SignalConnectAfter + +connectTextBufferBeginUserAction :: (GObject a, MonadIO m) => + a -> TextBufferBeginUserActionCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferBeginUserAction obj cb after = liftIO $ do + cb' <- mkTextBufferBeginUserActionCallback (textBufferBeginUserActionCallbackWrapper cb) + connectSignalFunPtr obj "begin-user-action" cb' after + +-- signal TextBuffer::changed +type TextBufferChangedCallback = + IO () + +noTextBufferChangedCallback :: Maybe TextBufferChangedCallback +noTextBufferChangedCallback = Nothing + +type TextBufferChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferChangedCallback :: TextBufferChangedCallbackC -> IO (FunPtr TextBufferChangedCallbackC) + +textBufferChangedClosure :: TextBufferChangedCallback -> IO Closure +textBufferChangedClosure cb = newCClosure =<< mkTextBufferChangedCallback wrapped + where wrapped = textBufferChangedCallbackWrapper cb + +textBufferChangedCallbackWrapper :: + TextBufferChangedCallback -> + Ptr () -> + Ptr () -> + IO () +textBufferChangedCallbackWrapper _cb _ _ = do + _cb + +onTextBufferChanged :: (GObject a, MonadIO m) => a -> TextBufferChangedCallback -> m SignalHandlerId +onTextBufferChanged obj cb = liftIO $ connectTextBufferChanged obj cb SignalConnectBefore +afterTextBufferChanged :: (GObject a, MonadIO m) => a -> TextBufferChangedCallback -> m SignalHandlerId +afterTextBufferChanged obj cb = connectTextBufferChanged obj cb SignalConnectAfter + +connectTextBufferChanged :: (GObject a, MonadIO m) => + a -> TextBufferChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferChanged obj cb after = liftIO $ do + cb' <- mkTextBufferChangedCallback (textBufferChangedCallbackWrapper cb) + connectSignalFunPtr obj "changed" cb' after + +-- signal TextBuffer::delete-range +type TextBufferDeleteRangeCallback = + TextIter -> + TextIter -> + IO () + +noTextBufferDeleteRangeCallback :: Maybe TextBufferDeleteRangeCallback +noTextBufferDeleteRangeCallback = Nothing + +type TextBufferDeleteRangeCallbackC = + Ptr () -> -- object + Ptr TextIter -> + Ptr TextIter -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferDeleteRangeCallback :: TextBufferDeleteRangeCallbackC -> IO (FunPtr TextBufferDeleteRangeCallbackC) + +textBufferDeleteRangeClosure :: TextBufferDeleteRangeCallback -> IO Closure +textBufferDeleteRangeClosure cb = newCClosure =<< mkTextBufferDeleteRangeCallback wrapped + where wrapped = textBufferDeleteRangeCallbackWrapper cb + +textBufferDeleteRangeCallbackWrapper :: + TextBufferDeleteRangeCallback -> + Ptr () -> + Ptr TextIter -> + Ptr TextIter -> + Ptr () -> + IO () +textBufferDeleteRangeCallbackWrapper _cb _ start end _ = do + start' <- (newBoxed TextIter) start + end' <- (newBoxed TextIter) end + _cb start' end' + +onTextBufferDeleteRange :: (GObject a, MonadIO m) => a -> TextBufferDeleteRangeCallback -> m SignalHandlerId +onTextBufferDeleteRange obj cb = liftIO $ connectTextBufferDeleteRange obj cb SignalConnectBefore +afterTextBufferDeleteRange :: (GObject a, MonadIO m) => a -> TextBufferDeleteRangeCallback -> m SignalHandlerId +afterTextBufferDeleteRange obj cb = connectTextBufferDeleteRange obj cb SignalConnectAfter + +connectTextBufferDeleteRange :: (GObject a, MonadIO m) => + a -> TextBufferDeleteRangeCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferDeleteRange obj cb after = liftIO $ do + cb' <- mkTextBufferDeleteRangeCallback (textBufferDeleteRangeCallbackWrapper cb) + connectSignalFunPtr obj "delete-range" cb' after + +-- signal TextBuffer::end-user-action +type TextBufferEndUserActionCallback = + IO () + +noTextBufferEndUserActionCallback :: Maybe TextBufferEndUserActionCallback +noTextBufferEndUserActionCallback = Nothing + +type TextBufferEndUserActionCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferEndUserActionCallback :: TextBufferEndUserActionCallbackC -> IO (FunPtr TextBufferEndUserActionCallbackC) + +textBufferEndUserActionClosure :: TextBufferEndUserActionCallback -> IO Closure +textBufferEndUserActionClosure cb = newCClosure =<< mkTextBufferEndUserActionCallback wrapped + where wrapped = textBufferEndUserActionCallbackWrapper cb + +textBufferEndUserActionCallbackWrapper :: + TextBufferEndUserActionCallback -> + Ptr () -> + Ptr () -> + IO () +textBufferEndUserActionCallbackWrapper _cb _ _ = do + _cb + +onTextBufferEndUserAction :: (GObject a, MonadIO m) => a -> TextBufferEndUserActionCallback -> m SignalHandlerId +onTextBufferEndUserAction obj cb = liftIO $ connectTextBufferEndUserAction obj cb SignalConnectBefore +afterTextBufferEndUserAction :: (GObject a, MonadIO m) => a -> TextBufferEndUserActionCallback -> m SignalHandlerId +afterTextBufferEndUserAction obj cb = connectTextBufferEndUserAction obj cb SignalConnectAfter + +connectTextBufferEndUserAction :: (GObject a, MonadIO m) => + a -> TextBufferEndUserActionCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferEndUserAction obj cb after = liftIO $ do + cb' <- mkTextBufferEndUserActionCallback (textBufferEndUserActionCallbackWrapper cb) + connectSignalFunPtr obj "end-user-action" cb' after + +-- signal TextBuffer::insert-child-anchor +type TextBufferInsertChildAnchorCallback = + TextIter -> + TextChildAnchor -> + IO () + +noTextBufferInsertChildAnchorCallback :: Maybe TextBufferInsertChildAnchorCallback +noTextBufferInsertChildAnchorCallback = Nothing + +type TextBufferInsertChildAnchorCallbackC = + Ptr () -> -- object + Ptr TextIter -> + Ptr TextChildAnchor -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferInsertChildAnchorCallback :: TextBufferInsertChildAnchorCallbackC -> IO (FunPtr TextBufferInsertChildAnchorCallbackC) + +textBufferInsertChildAnchorClosure :: TextBufferInsertChildAnchorCallback -> IO Closure +textBufferInsertChildAnchorClosure cb = newCClosure =<< mkTextBufferInsertChildAnchorCallback wrapped + where wrapped = textBufferInsertChildAnchorCallbackWrapper cb + +textBufferInsertChildAnchorCallbackWrapper :: + TextBufferInsertChildAnchorCallback -> + Ptr () -> + Ptr TextIter -> + Ptr TextChildAnchor -> + Ptr () -> + IO () +textBufferInsertChildAnchorCallbackWrapper _cb _ location anchor _ = do + location' <- (newBoxed TextIter) location + anchor' <- (newObject TextChildAnchor) anchor + _cb location' anchor' + +onTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => a -> TextBufferInsertChildAnchorCallback -> m SignalHandlerId +onTextBufferInsertChildAnchor obj cb = liftIO $ connectTextBufferInsertChildAnchor obj cb SignalConnectBefore +afterTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => a -> TextBufferInsertChildAnchorCallback -> m SignalHandlerId +afterTextBufferInsertChildAnchor obj cb = connectTextBufferInsertChildAnchor obj cb SignalConnectAfter + +connectTextBufferInsertChildAnchor :: (GObject a, MonadIO m) => + a -> TextBufferInsertChildAnchorCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferInsertChildAnchor obj cb after = liftIO $ do + cb' <- mkTextBufferInsertChildAnchorCallback (textBufferInsertChildAnchorCallbackWrapper cb) + connectSignalFunPtr obj "insert-child-anchor" cb' after + +-- signal TextBuffer::insert-pixbuf +type TextBufferInsertPixbufCallback = + TextIter -> + GdkPixbuf.Pixbuf -> + IO () + +noTextBufferInsertPixbufCallback :: Maybe TextBufferInsertPixbufCallback +noTextBufferInsertPixbufCallback = Nothing + +type TextBufferInsertPixbufCallbackC = + Ptr () -> -- object + Ptr TextIter -> + Ptr GdkPixbuf.Pixbuf -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferInsertPixbufCallback :: TextBufferInsertPixbufCallbackC -> IO (FunPtr TextBufferInsertPixbufCallbackC) + +textBufferInsertPixbufClosure :: TextBufferInsertPixbufCallback -> IO Closure +textBufferInsertPixbufClosure cb = newCClosure =<< mkTextBufferInsertPixbufCallback wrapped + where wrapped = textBufferInsertPixbufCallbackWrapper cb + +textBufferInsertPixbufCallbackWrapper :: + TextBufferInsertPixbufCallback -> + Ptr () -> + Ptr TextIter -> + Ptr GdkPixbuf.Pixbuf -> + Ptr () -> + IO () +textBufferInsertPixbufCallbackWrapper _cb _ location pixbuf _ = do + location' <- (newBoxed TextIter) location + pixbuf' <- (newObject GdkPixbuf.Pixbuf) pixbuf + _cb location' pixbuf' + +onTextBufferInsertPixbuf :: (GObject a, MonadIO m) => a -> TextBufferInsertPixbufCallback -> m SignalHandlerId +onTextBufferInsertPixbuf obj cb = liftIO $ connectTextBufferInsertPixbuf obj cb SignalConnectBefore +afterTextBufferInsertPixbuf :: (GObject a, MonadIO m) => a -> TextBufferInsertPixbufCallback -> m SignalHandlerId +afterTextBufferInsertPixbuf obj cb = connectTextBufferInsertPixbuf obj cb SignalConnectAfter + +connectTextBufferInsertPixbuf :: (GObject a, MonadIO m) => + a -> TextBufferInsertPixbufCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferInsertPixbuf obj cb after = liftIO $ do + cb' <- mkTextBufferInsertPixbufCallback (textBufferInsertPixbufCallbackWrapper cb) + connectSignalFunPtr obj "insert-pixbuf" cb' after + +-- signal TextBuffer::insert-text +type TextBufferInsertTextCallback = + TextIter -> + T.Text -> + Int32 -> + IO () + +noTextBufferInsertTextCallback :: Maybe TextBufferInsertTextCallback +noTextBufferInsertTextCallback = Nothing + +type TextBufferInsertTextCallbackC = + Ptr () -> -- object + Ptr TextIter -> + CString -> + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferInsertTextCallback :: TextBufferInsertTextCallbackC -> IO (FunPtr TextBufferInsertTextCallbackC) + +textBufferInsertTextClosure :: TextBufferInsertTextCallback -> IO Closure +textBufferInsertTextClosure cb = newCClosure =<< mkTextBufferInsertTextCallback wrapped + where wrapped = textBufferInsertTextCallbackWrapper cb + +textBufferInsertTextCallbackWrapper :: + TextBufferInsertTextCallback -> + Ptr () -> + Ptr TextIter -> + CString -> + Int32 -> + Ptr () -> + IO () +textBufferInsertTextCallbackWrapper _cb _ location text len _ = do + location' <- (newBoxed TextIter) location + text' <- cstringToText text + _cb location' text' len + +onTextBufferInsertText :: (GObject a, MonadIO m) => a -> TextBufferInsertTextCallback -> m SignalHandlerId +onTextBufferInsertText obj cb = liftIO $ connectTextBufferInsertText obj cb SignalConnectBefore +afterTextBufferInsertText :: (GObject a, MonadIO m) => a -> TextBufferInsertTextCallback -> m SignalHandlerId +afterTextBufferInsertText obj cb = connectTextBufferInsertText obj cb SignalConnectAfter + +connectTextBufferInsertText :: (GObject a, MonadIO m) => + a -> TextBufferInsertTextCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferInsertText obj cb after = liftIO $ do + cb' <- mkTextBufferInsertTextCallback (textBufferInsertTextCallbackWrapper cb) + connectSignalFunPtr obj "insert-text" cb' after + +-- signal TextBuffer::mark-deleted +type TextBufferMarkDeletedCallback = + TextMark -> + IO () + +noTextBufferMarkDeletedCallback :: Maybe TextBufferMarkDeletedCallback +noTextBufferMarkDeletedCallback = Nothing + +type TextBufferMarkDeletedCallbackC = + Ptr () -> -- object + Ptr TextMark -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferMarkDeletedCallback :: TextBufferMarkDeletedCallbackC -> IO (FunPtr TextBufferMarkDeletedCallbackC) + +textBufferMarkDeletedClosure :: TextBufferMarkDeletedCallback -> IO Closure +textBufferMarkDeletedClosure cb = newCClosure =<< mkTextBufferMarkDeletedCallback wrapped + where wrapped = textBufferMarkDeletedCallbackWrapper cb + +textBufferMarkDeletedCallbackWrapper :: + TextBufferMarkDeletedCallback -> + Ptr () -> + Ptr TextMark -> + Ptr () -> + IO () +textBufferMarkDeletedCallbackWrapper _cb _ mark _ = do + mark' <- (newObject TextMark) mark + _cb mark' + +onTextBufferMarkDeleted :: (GObject a, MonadIO m) => a -> TextBufferMarkDeletedCallback -> m SignalHandlerId +onTextBufferMarkDeleted obj cb = liftIO $ connectTextBufferMarkDeleted obj cb SignalConnectBefore +afterTextBufferMarkDeleted :: (GObject a, MonadIO m) => a -> TextBufferMarkDeletedCallback -> m SignalHandlerId +afterTextBufferMarkDeleted obj cb = connectTextBufferMarkDeleted obj cb SignalConnectAfter + +connectTextBufferMarkDeleted :: (GObject a, MonadIO m) => + a -> TextBufferMarkDeletedCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferMarkDeleted obj cb after = liftIO $ do + cb' <- mkTextBufferMarkDeletedCallback (textBufferMarkDeletedCallbackWrapper cb) + connectSignalFunPtr obj "mark-deleted" cb' after + +-- signal TextBuffer::mark-set +type TextBufferMarkSetCallback = + TextIter -> + TextMark -> + IO () + +noTextBufferMarkSetCallback :: Maybe TextBufferMarkSetCallback +noTextBufferMarkSetCallback = Nothing + +type TextBufferMarkSetCallbackC = + Ptr () -> -- object + Ptr TextIter -> + Ptr TextMark -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferMarkSetCallback :: TextBufferMarkSetCallbackC -> IO (FunPtr TextBufferMarkSetCallbackC) + +textBufferMarkSetClosure :: TextBufferMarkSetCallback -> IO Closure +textBufferMarkSetClosure cb = newCClosure =<< mkTextBufferMarkSetCallback wrapped + where wrapped = textBufferMarkSetCallbackWrapper cb + +textBufferMarkSetCallbackWrapper :: + TextBufferMarkSetCallback -> + Ptr () -> + Ptr TextIter -> + Ptr TextMark -> + Ptr () -> + IO () +textBufferMarkSetCallbackWrapper _cb _ location mark _ = do + location' <- (newBoxed TextIter) location + mark' <- (newObject TextMark) mark + _cb location' mark' + +onTextBufferMarkSet :: (GObject a, MonadIO m) => a -> TextBufferMarkSetCallback -> m SignalHandlerId +onTextBufferMarkSet obj cb = liftIO $ connectTextBufferMarkSet obj cb SignalConnectBefore +afterTextBufferMarkSet :: (GObject a, MonadIO m) => a -> TextBufferMarkSetCallback -> m SignalHandlerId +afterTextBufferMarkSet obj cb = connectTextBufferMarkSet obj cb SignalConnectAfter + +connectTextBufferMarkSet :: (GObject a, MonadIO m) => + a -> TextBufferMarkSetCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferMarkSet obj cb after = liftIO $ do + cb' <- mkTextBufferMarkSetCallback (textBufferMarkSetCallbackWrapper cb) + connectSignalFunPtr obj "mark-set" cb' after + +-- signal TextBuffer::modified-changed +type TextBufferModifiedChangedCallback = + IO () + +noTextBufferModifiedChangedCallback :: Maybe TextBufferModifiedChangedCallback +noTextBufferModifiedChangedCallback = Nothing + +type TextBufferModifiedChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferModifiedChangedCallback :: TextBufferModifiedChangedCallbackC -> IO (FunPtr TextBufferModifiedChangedCallbackC) + +textBufferModifiedChangedClosure :: TextBufferModifiedChangedCallback -> IO Closure +textBufferModifiedChangedClosure cb = newCClosure =<< mkTextBufferModifiedChangedCallback wrapped + where wrapped = textBufferModifiedChangedCallbackWrapper cb + +textBufferModifiedChangedCallbackWrapper :: + TextBufferModifiedChangedCallback -> + Ptr () -> + Ptr () -> + IO () +textBufferModifiedChangedCallbackWrapper _cb _ _ = do + _cb + +onTextBufferModifiedChanged :: (GObject a, MonadIO m) => a -> TextBufferModifiedChangedCallback -> m SignalHandlerId +onTextBufferModifiedChanged obj cb = liftIO $ connectTextBufferModifiedChanged obj cb SignalConnectBefore +afterTextBufferModifiedChanged :: (GObject a, MonadIO m) => a -> TextBufferModifiedChangedCallback -> m SignalHandlerId +afterTextBufferModifiedChanged obj cb = connectTextBufferModifiedChanged obj cb SignalConnectAfter + +connectTextBufferModifiedChanged :: (GObject a, MonadIO m) => + a -> TextBufferModifiedChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferModifiedChanged obj cb after = liftIO $ do + cb' <- mkTextBufferModifiedChangedCallback (textBufferModifiedChangedCallbackWrapper cb) + connectSignalFunPtr obj "modified-changed" cb' after + +-- signal TextBuffer::paste-done +type TextBufferPasteDoneCallback = + Clipboard -> + IO () + +noTextBufferPasteDoneCallback :: Maybe TextBufferPasteDoneCallback +noTextBufferPasteDoneCallback = Nothing + +type TextBufferPasteDoneCallbackC = + Ptr () -> -- object + Ptr Clipboard -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferPasteDoneCallback :: TextBufferPasteDoneCallbackC -> IO (FunPtr TextBufferPasteDoneCallbackC) + +textBufferPasteDoneClosure :: TextBufferPasteDoneCallback -> IO Closure +textBufferPasteDoneClosure cb = newCClosure =<< mkTextBufferPasteDoneCallback wrapped + where wrapped = textBufferPasteDoneCallbackWrapper cb + +textBufferPasteDoneCallbackWrapper :: + TextBufferPasteDoneCallback -> + Ptr () -> + Ptr Clipboard -> + Ptr () -> + IO () +textBufferPasteDoneCallbackWrapper _cb _ clipboard _ = do + clipboard' <- (newObject Clipboard) clipboard + _cb clipboard' + +onTextBufferPasteDone :: (GObject a, MonadIO m) => a -> TextBufferPasteDoneCallback -> m SignalHandlerId +onTextBufferPasteDone obj cb = liftIO $ connectTextBufferPasteDone obj cb SignalConnectBefore +afterTextBufferPasteDone :: (GObject a, MonadIO m) => a -> TextBufferPasteDoneCallback -> m SignalHandlerId +afterTextBufferPasteDone obj cb = connectTextBufferPasteDone obj cb SignalConnectAfter + +connectTextBufferPasteDone :: (GObject a, MonadIO m) => + a -> TextBufferPasteDoneCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferPasteDone obj cb after = liftIO $ do + cb' <- mkTextBufferPasteDoneCallback (textBufferPasteDoneCallbackWrapper cb) + connectSignalFunPtr obj "paste-done" cb' after + +-- signal TextBuffer::remove-tag +type TextBufferRemoveTagCallback = + TextTag -> + TextIter -> + TextIter -> + IO () + +noTextBufferRemoveTagCallback :: Maybe TextBufferRemoveTagCallback +noTextBufferRemoveTagCallback = Nothing + +type TextBufferRemoveTagCallbackC = + Ptr () -> -- object + Ptr TextTag -> + Ptr TextIter -> + Ptr TextIter -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextBufferRemoveTagCallback :: TextBufferRemoveTagCallbackC -> IO (FunPtr TextBufferRemoveTagCallbackC) + +textBufferRemoveTagClosure :: TextBufferRemoveTagCallback -> IO Closure +textBufferRemoveTagClosure cb = newCClosure =<< mkTextBufferRemoveTagCallback wrapped + where wrapped = textBufferRemoveTagCallbackWrapper cb + +textBufferRemoveTagCallbackWrapper :: + TextBufferRemoveTagCallback -> + Ptr () -> + Ptr TextTag -> + Ptr TextIter -> + Ptr TextIter -> + Ptr () -> + IO () +textBufferRemoveTagCallbackWrapper _cb _ tag start end _ = do + tag' <- (newObject TextTag) tag + start' <- (newBoxed TextIter) start + end' <- (newBoxed TextIter) end + _cb tag' start' end' + +onTextBufferRemoveTag :: (GObject a, MonadIO m) => a -> TextBufferRemoveTagCallback -> m SignalHandlerId +onTextBufferRemoveTag obj cb = liftIO $ connectTextBufferRemoveTag obj cb SignalConnectBefore +afterTextBufferRemoveTag :: (GObject a, MonadIO m) => a -> TextBufferRemoveTagCallback -> m SignalHandlerId +afterTextBufferRemoveTag obj cb = connectTextBufferRemoveTag obj cb SignalConnectAfter + +connectTextBufferRemoveTag :: (GObject a, MonadIO m) => + a -> TextBufferRemoveTagCallback -> SignalConnectMode -> m SignalHandlerId +connectTextBufferRemoveTag obj cb after = liftIO $ do + cb' <- mkTextBufferRemoveTagCallback (textBufferRemoveTagCallbackWrapper cb) + connectSignalFunPtr obj "remove-tag" cb' after + +-- VVV Prop "copy-target-list" + -- Type: TInterface "Gtk" "TargetList" + -- Flags: [PropertyReadable] + +getTextBufferCopyTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList +getTextBufferCopyTargetList obj = liftIO $ getObjectPropertyBoxed obj "copy-target-list" TargetList + +data TextBufferCopyTargetListPropertyInfo +instance AttrInfo TextBufferCopyTargetListPropertyInfo where + type AttrAllowedOps TextBufferCopyTargetListPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint TextBufferCopyTargetListPropertyInfo = (~) () + type AttrBaseTypeConstraint TextBufferCopyTargetListPropertyInfo = TextBufferK + type AttrGetType TextBufferCopyTargetListPropertyInfo = TargetList + type AttrLabel TextBufferCopyTargetListPropertyInfo = "copy-target-list" + attrGet _ = getTextBufferCopyTargetList + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cursor-position" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getTextBufferCursorPosition :: (MonadIO m, TextBufferK o) => o -> m Int32 +getTextBufferCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position" + +data TextBufferCursorPositionPropertyInfo +instance AttrInfo TextBufferCursorPositionPropertyInfo where + type AttrAllowedOps TextBufferCursorPositionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint TextBufferCursorPositionPropertyInfo = (~) () + type AttrBaseTypeConstraint TextBufferCursorPositionPropertyInfo = TextBufferK + type AttrGetType TextBufferCursorPositionPropertyInfo = Int32 + type AttrLabel TextBufferCursorPositionPropertyInfo = "cursor-position" + attrGet _ = getTextBufferCursorPosition + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "has-selection" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getTextBufferHasSelection :: (MonadIO m, TextBufferK o) => o -> m Bool +getTextBufferHasSelection obj = liftIO $ getObjectPropertyBool obj "has-selection" + +data TextBufferHasSelectionPropertyInfo +instance AttrInfo TextBufferHasSelectionPropertyInfo where + type AttrAllowedOps TextBufferHasSelectionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint TextBufferHasSelectionPropertyInfo = (~) () + type AttrBaseTypeConstraint TextBufferHasSelectionPropertyInfo = TextBufferK + type AttrGetType TextBufferHasSelectionPropertyInfo = Bool + type AttrLabel TextBufferHasSelectionPropertyInfo = "has-selection" + attrGet _ = getTextBufferHasSelection + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "paste-target-list" + -- Type: TInterface "Gtk" "TargetList" + -- Flags: [PropertyReadable] + +getTextBufferPasteTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList +getTextBufferPasteTargetList obj = liftIO $ getObjectPropertyBoxed obj "paste-target-list" TargetList + +data TextBufferPasteTargetListPropertyInfo +instance AttrInfo TextBufferPasteTargetListPropertyInfo where + type AttrAllowedOps TextBufferPasteTargetListPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint TextBufferPasteTargetListPropertyInfo = (~) () + type AttrBaseTypeConstraint TextBufferPasteTargetListPropertyInfo = TextBufferK + type AttrGetType TextBufferPasteTargetListPropertyInfo = TargetList + type AttrLabel TextBufferPasteTargetListPropertyInfo = "paste-target-list" + attrGet _ = getTextBufferPasteTargetList + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "tag-table" + -- Type: TInterface "Gtk" "TextTagTable" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getTextBufferTagTable :: (MonadIO m, TextBufferK o) => o -> m TextTagTable +getTextBufferTagTable obj = liftIO $ getObjectPropertyObject obj "tag-table" TextTagTable + +constructTextBufferTagTable :: (TextTagTableK a) => a -> IO ([Char], GValue) +constructTextBufferTagTable val = constructObjectPropertyObject "tag-table" val + +data TextBufferTagTablePropertyInfo +instance AttrInfo TextBufferTagTablePropertyInfo where + type AttrAllowedOps TextBufferTagTablePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextBufferTagTablePropertyInfo = TextTagTableK + type AttrBaseTypeConstraint TextBufferTagTablePropertyInfo = TextBufferK + type AttrGetType TextBufferTagTablePropertyInfo = TextTagTable + type AttrLabel TextBufferTagTablePropertyInfo = "tag-table" + attrGet _ = getTextBufferTagTable + attrSet _ = undefined + attrConstruct _ = constructTextBufferTagTable + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextBufferText :: (MonadIO m, TextBufferK o) => o -> m T.Text +getTextBufferText obj = liftIO $ getObjectPropertyString obj "text" + +setTextBufferText :: (MonadIO m, TextBufferK o) => o -> T.Text -> m () +setTextBufferText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructTextBufferText :: T.Text -> IO ([Char], GValue) +constructTextBufferText val = constructObjectPropertyString "text" val + +data TextBufferTextPropertyInfo +instance AttrInfo TextBufferTextPropertyInfo where + type AttrAllowedOps TextBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextBufferTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextBufferTextPropertyInfo = TextBufferK + type AttrGetType TextBufferTextPropertyInfo = T.Text + type AttrLabel TextBufferTextPropertyInfo = "text" + attrGet _ = getTextBufferText + attrSet _ = setTextBufferText + attrConstruct _ = constructTextBufferText + +type instance AttributeList TextBuffer = TextBufferAttributeList +type TextBufferAttributeList = ('[ '("copyTargetList", TextBufferCopyTargetListPropertyInfo), '("cursorPosition", TextBufferCursorPositionPropertyInfo), '("hasSelection", TextBufferHasSelectionPropertyInfo), '("pasteTargetList", TextBufferPasteTargetListPropertyInfo), '("tagTable", TextBufferTagTablePropertyInfo), '("text", TextBufferTextPropertyInfo)] :: [(Symbol, *)]) + +data TextBufferApplyTagSignalInfo +instance SignalInfo TextBufferApplyTagSignalInfo where + type HaskellCallbackType TextBufferApplyTagSignalInfo = TextBufferApplyTagCallback + connectSignal _ = connectTextBufferApplyTag + +data TextBufferBeginUserActionSignalInfo +instance SignalInfo TextBufferBeginUserActionSignalInfo where + type HaskellCallbackType TextBufferBeginUserActionSignalInfo = TextBufferBeginUserActionCallback + connectSignal _ = connectTextBufferBeginUserAction + +data TextBufferChangedSignalInfo +instance SignalInfo TextBufferChangedSignalInfo where + type HaskellCallbackType TextBufferChangedSignalInfo = TextBufferChangedCallback + connectSignal _ = connectTextBufferChanged + +data TextBufferDeleteRangeSignalInfo +instance SignalInfo TextBufferDeleteRangeSignalInfo where + type HaskellCallbackType TextBufferDeleteRangeSignalInfo = TextBufferDeleteRangeCallback + connectSignal _ = connectTextBufferDeleteRange + +data TextBufferEndUserActionSignalInfo +instance SignalInfo TextBufferEndUserActionSignalInfo where + type HaskellCallbackType TextBufferEndUserActionSignalInfo = TextBufferEndUserActionCallback + connectSignal _ = connectTextBufferEndUserAction + +data TextBufferInsertChildAnchorSignalInfo +instance SignalInfo TextBufferInsertChildAnchorSignalInfo where + type HaskellCallbackType TextBufferInsertChildAnchorSignalInfo = TextBufferInsertChildAnchorCallback + connectSignal _ = connectTextBufferInsertChildAnchor + +data TextBufferInsertPixbufSignalInfo +instance SignalInfo TextBufferInsertPixbufSignalInfo where + type HaskellCallbackType TextBufferInsertPixbufSignalInfo = TextBufferInsertPixbufCallback + connectSignal _ = connectTextBufferInsertPixbuf + +data TextBufferInsertTextSignalInfo +instance SignalInfo TextBufferInsertTextSignalInfo where + type HaskellCallbackType TextBufferInsertTextSignalInfo = TextBufferInsertTextCallback + connectSignal _ = connectTextBufferInsertText + +data TextBufferMarkDeletedSignalInfo +instance SignalInfo TextBufferMarkDeletedSignalInfo where + type HaskellCallbackType TextBufferMarkDeletedSignalInfo = TextBufferMarkDeletedCallback + connectSignal _ = connectTextBufferMarkDeleted + +data TextBufferMarkSetSignalInfo +instance SignalInfo TextBufferMarkSetSignalInfo where + type HaskellCallbackType TextBufferMarkSetSignalInfo = TextBufferMarkSetCallback + connectSignal _ = connectTextBufferMarkSet + +data TextBufferModifiedChangedSignalInfo +instance SignalInfo TextBufferModifiedChangedSignalInfo where + type HaskellCallbackType TextBufferModifiedChangedSignalInfo = TextBufferModifiedChangedCallback + connectSignal _ = connectTextBufferModifiedChanged + +data TextBufferPasteDoneSignalInfo +instance SignalInfo TextBufferPasteDoneSignalInfo where + type HaskellCallbackType TextBufferPasteDoneSignalInfo = TextBufferPasteDoneCallback + connectSignal _ = connectTextBufferPasteDone + +data TextBufferRemoveTagSignalInfo +instance SignalInfo TextBufferRemoveTagSignalInfo where + type HaskellCallbackType TextBufferRemoveTagSignalInfo = TextBufferRemoveTagCallback + connectSignal _ = connectTextBufferRemoveTag + +type instance SignalList TextBuffer = TextBufferSignalList +type TextBufferSignalList = ('[ '("applyTag", TextBufferApplyTagSignalInfo), '("beginUserAction", TextBufferBeginUserActionSignalInfo), '("changed", TextBufferChangedSignalInfo), '("deleteRange", TextBufferDeleteRangeSignalInfo), '("endUserAction", TextBufferEndUserActionSignalInfo), '("insertChildAnchor", TextBufferInsertChildAnchorSignalInfo), '("insertPixbuf", TextBufferInsertPixbufSignalInfo), '("insertText", TextBufferInsertTextSignalInfo), '("markDeleted", TextBufferMarkDeletedSignalInfo), '("markSet", TextBufferMarkSetSignalInfo), '("modifiedChanged", TextBufferModifiedChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pasteDone", TextBufferPasteDoneSignalInfo), '("removeTag", TextBufferRemoveTagSignalInfo)] :: [(Symbol, *)]) + +-- method TextBuffer::new +-- method type : Constructor +-- Args : [Arg {argCName = "table", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextBuffer" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_new" gtk_text_buffer_new :: + Ptr TextTagTable -> -- table : TInterface "Gtk" "TextTagTable" + IO (Ptr TextBuffer) + + +textBufferNew :: + (MonadIO m, TextTagTableK a) => + Maybe (a) -- table + -> m TextBuffer -- result +textBufferNew table = liftIO $ do + maybeTable <- case table of + Nothing -> return nullPtr + Just jTable -> do + let jTable' = unsafeManagedPtrCastPtr jTable + return jTable' + result <- gtk_text_buffer_new maybeTable + checkUnexpectedReturnNULL "gtk_text_buffer_new" result + result' <- (wrapObject TextBuffer) result + whenJust table touchManagedPtr + return result' + +-- method TextBuffer::add_mark +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_add_mark" gtk_text_buffer_add_mark :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" + Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" + IO () + + +textBufferAddMark :: + (MonadIO m, TextBufferK a, TextMarkK b) => + a -- _obj + -> b -- mark + -> TextIter -- where_ + -> m () -- result +textBufferAddMark _obj mark where_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let mark' = unsafeManagedPtrCastPtr mark + let where_' = unsafeManagedPtrGetPtr where_ + gtk_text_buffer_add_mark _obj' mark' where_' + touchManagedPtr _obj + touchManagedPtr mark + touchManagedPtr where_ + return () + +data TextBufferAddMarkMethodInfo +instance (signature ~ (b -> TextIter -> m ()), MonadIO m, TextBufferK a, TextMarkK b) => MethodInfo TextBufferAddMarkMethodInfo a signature where + overloadedMethod _ = textBufferAddMark + +-- method TextBuffer::add_selection_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_add_selection_clipboard" gtk_text_buffer_add_selection_clipboard :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" + IO () + + +textBufferAddSelectionClipboard :: + (MonadIO m, TextBufferK a, ClipboardK b) => + a -- _obj + -> b -- clipboard + -> m () -- result +textBufferAddSelectionClipboard _obj clipboard = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let clipboard' = unsafeManagedPtrCastPtr clipboard + gtk_text_buffer_add_selection_clipboard _obj' clipboard' + touchManagedPtr _obj + touchManagedPtr clipboard + return () + +data TextBufferAddSelectionClipboardMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferAddSelectionClipboardMethodInfo a signature where + overloadedMethod _ = textBufferAddSelectionClipboard + +-- method TextBuffer::apply_tag +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_apply_tag" gtk_text_buffer_apply_tag :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO () + + +textBufferApplyTag :: + (MonadIO m, TextBufferK a, TextTagK b) => + a -- _obj + -> b -- tag + -> TextIter -- start + -> TextIter -- end + -> m () -- result +textBufferApplyTag _obj tag start end = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let tag' = unsafeManagedPtrCastPtr tag + let start' = unsafeManagedPtrGetPtr start + let end' = unsafeManagedPtrGetPtr end + gtk_text_buffer_apply_tag _obj' tag' start' end' + touchManagedPtr _obj + touchManagedPtr tag + touchManagedPtr start + touchManagedPtr end + return () + +data TextBufferApplyTagMethodInfo +instance (signature ~ (b -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a, TextTagK b) => MethodInfo TextBufferApplyTagMethodInfo a signature where + overloadedMethod _ = textBufferApplyTag + +-- method TextBuffer::apply_tag_by_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_apply_tag_by_name" gtk_text_buffer_apply_tag_by_name :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- name : TBasicType TUTF8 + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO () + + +textBufferApplyTagByName :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> T.Text -- name + -> TextIter -- start + -> TextIter -- end + -> m () -- result +textBufferApplyTagByName _obj name start end = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + let start' = unsafeManagedPtrGetPtr start + let end' = unsafeManagedPtrGetPtr end + gtk_text_buffer_apply_tag_by_name _obj' name' start' end' + touchManagedPtr _obj + touchManagedPtr start + touchManagedPtr end + freeMem name' + return () + +data TextBufferApplyTagByNameMethodInfo +instance (signature ~ (T.Text -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferApplyTagByNameMethodInfo a signature where + overloadedMethod _ = textBufferApplyTagByName + +-- method TextBuffer::backspace +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_backspace" gtk_text_buffer_backspace :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + CInt -> -- interactive : TBasicType TBoolean + CInt -> -- default_editable : TBasicType TBoolean + IO CInt + + +textBufferBackspace :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- iter + -> Bool -- interactive + -> Bool -- defaultEditable + -> m Bool -- result +textBufferBackspace _obj iter interactive defaultEditable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + let interactive' = (fromIntegral . fromEnum) interactive + let defaultEditable' = (fromIntegral . fromEnum) defaultEditable + result <- gtk_text_buffer_backspace _obj' iter' interactive' defaultEditable' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr iter + return result' + +data TextBufferBackspaceMethodInfo +instance (signature ~ (TextIter -> Bool -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferBackspaceMethodInfo a signature where + overloadedMethod _ = textBufferBackspace + +-- method TextBuffer::begin_user_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_begin_user_action" gtk_text_buffer_begin_user_action :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + IO () + + +textBufferBeginUserAction :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m () -- result +textBufferBeginUserAction _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_text_buffer_begin_user_action _obj' + touchManagedPtr _obj + return () + +data TextBufferBeginUserActionMethodInfo +instance (signature ~ (m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferBeginUserActionMethodInfo a signature where + overloadedMethod _ = textBufferBeginUserAction + +-- method TextBuffer::copy_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_copy_clipboard" gtk_text_buffer_copy_clipboard :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" + IO () + + +textBufferCopyClipboard :: + (MonadIO m, TextBufferK a, ClipboardK b) => + a -- _obj + -> b -- clipboard + -> m () -- result +textBufferCopyClipboard _obj clipboard = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let clipboard' = unsafeManagedPtrCastPtr clipboard + gtk_text_buffer_copy_clipboard _obj' clipboard' + touchManagedPtr _obj + touchManagedPtr clipboard + return () + +data TextBufferCopyClipboardMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferCopyClipboardMethodInfo a signature where + overloadedMethod _ = textBufferCopyClipboard + +-- method TextBuffer::create_child_anchor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextChildAnchor" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_create_child_anchor" gtk_text_buffer_create_child_anchor :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + IO (Ptr TextChildAnchor) + + +textBufferCreateChildAnchor :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- iter + -> m TextChildAnchor -- result +textBufferCreateChildAnchor _obj iter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + result <- gtk_text_buffer_create_child_anchor _obj' iter' + checkUnexpectedReturnNULL "gtk_text_buffer_create_child_anchor" result + result' <- (newObject TextChildAnchor) result + touchManagedPtr _obj + touchManagedPtr iter + return result' + +data TextBufferCreateChildAnchorMethodInfo +instance (signature ~ (TextIter -> m TextChildAnchor), MonadIO m, TextBufferK a) => MethodInfo TextBufferCreateChildAnchorMethodInfo a signature where + overloadedMethod _ = textBufferCreateChildAnchor + +-- method TextBuffer::create_mark +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextMark" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_create_mark" gtk_text_buffer_create_mark :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- mark_name : TBasicType TUTF8 + Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" + CInt -> -- left_gravity : TBasicType TBoolean + IO (Ptr TextMark) + + +textBufferCreateMark :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Maybe (T.Text) -- markName + -> TextIter -- where_ + -> Bool -- leftGravity + -> m TextMark -- result +textBufferCreateMark _obj markName where_ leftGravity = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeMarkName <- case markName of + Nothing -> return nullPtr + Just jMarkName -> do + jMarkName' <- textToCString jMarkName + return jMarkName' + let where_' = unsafeManagedPtrGetPtr where_ + let leftGravity' = (fromIntegral . fromEnum) leftGravity + result <- gtk_text_buffer_create_mark _obj' maybeMarkName where_' leftGravity' + checkUnexpectedReturnNULL "gtk_text_buffer_create_mark" result + result' <- (newObject TextMark) result + touchManagedPtr _obj + touchManagedPtr where_ + freeMem maybeMarkName + return result' + +data TextBufferCreateMarkMethodInfo +instance (signature ~ (Maybe (T.Text) -> TextIter -> Bool -> m TextMark), MonadIO m, TextBufferK a) => MethodInfo TextBufferCreateMarkMethodInfo a signature where + overloadedMethod _ = textBufferCreateMark + +-- method TextBuffer::cut_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_cut_clipboard" gtk_text_buffer_cut_clipboard :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" + CInt -> -- default_editable : TBasicType TBoolean + IO () + + +textBufferCutClipboard :: + (MonadIO m, TextBufferK a, ClipboardK b) => + a -- _obj + -> b -- clipboard + -> Bool -- defaultEditable + -> m () -- result +textBufferCutClipboard _obj clipboard defaultEditable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let clipboard' = unsafeManagedPtrCastPtr clipboard + let defaultEditable' = (fromIntegral . fromEnum) defaultEditable + gtk_text_buffer_cut_clipboard _obj' clipboard' defaultEditable' + touchManagedPtr _obj + touchManagedPtr clipboard + return () + +data TextBufferCutClipboardMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferCutClipboardMethodInfo a signature where + overloadedMethod _ = textBufferCutClipboard + +-- method TextBuffer::delete +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_delete" gtk_text_buffer_delete :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO () + + +textBufferDelete :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- start + -> TextIter -- end + -> m () -- result +textBufferDelete _obj start end = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let start' = unsafeManagedPtrGetPtr start + let end' = unsafeManagedPtrGetPtr end + gtk_text_buffer_delete _obj' start' end' + touchManagedPtr _obj + touchManagedPtr start + touchManagedPtr end + return () + +data TextBufferDeleteMethodInfo +instance (signature ~ (TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeleteMethodInfo a signature where + overloadedMethod _ = textBufferDelete + +-- method TextBuffer::delete_interactive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_delete_interactive" gtk_text_buffer_delete_interactive :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- start_iter : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end_iter : TInterface "Gtk" "TextIter" + CInt -> -- default_editable : TBasicType TBoolean + IO CInt + + +textBufferDeleteInteractive :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- startIter + -> TextIter -- endIter + -> Bool -- defaultEditable + -> m Bool -- result +textBufferDeleteInteractive _obj startIter endIter defaultEditable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let startIter' = unsafeManagedPtrGetPtr startIter + let endIter' = unsafeManagedPtrGetPtr endIter + let defaultEditable' = (fromIntegral . fromEnum) defaultEditable + result <- gtk_text_buffer_delete_interactive _obj' startIter' endIter' defaultEditable' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr startIter + touchManagedPtr endIter + return result' + +data TextBufferDeleteInteractiveMethodInfo +instance (signature ~ (TextIter -> TextIter -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeleteInteractiveMethodInfo a signature where + overloadedMethod _ = textBufferDeleteInteractive + +-- method TextBuffer::delete_mark +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_delete_mark" gtk_text_buffer_delete_mark :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" + IO () + + +textBufferDeleteMark :: + (MonadIO m, TextBufferK a, TextMarkK b) => + a -- _obj + -> b -- mark + -> m () -- result +textBufferDeleteMark _obj mark = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let mark' = unsafeManagedPtrCastPtr mark + gtk_text_buffer_delete_mark _obj' mark' + touchManagedPtr _obj + touchManagedPtr mark + return () + +data TextBufferDeleteMarkMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, TextBufferK a, TextMarkK b) => MethodInfo TextBufferDeleteMarkMethodInfo a signature where + overloadedMethod _ = textBufferDeleteMark + +-- method TextBuffer::delete_mark_by_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_delete_mark_by_name" gtk_text_buffer_delete_mark_by_name :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- name : TBasicType TUTF8 + IO () + + +textBufferDeleteMarkByName :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> T.Text -- name + -> m () -- result +textBufferDeleteMarkByName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + gtk_text_buffer_delete_mark_by_name _obj' name' + touchManagedPtr _obj + freeMem name' + return () + +data TextBufferDeleteMarkByNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeleteMarkByNameMethodInfo a signature where + overloadedMethod _ = textBufferDeleteMarkByName + +-- method TextBuffer::delete_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_delete_selection" gtk_text_buffer_delete_selection :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CInt -> -- interactive : TBasicType TBoolean + CInt -> -- default_editable : TBasicType TBoolean + IO CInt + + +textBufferDeleteSelection :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Bool -- interactive + -> Bool -- defaultEditable + -> m Bool -- result +textBufferDeleteSelection _obj interactive defaultEditable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let interactive' = (fromIntegral . fromEnum) interactive + let defaultEditable' = (fromIntegral . fromEnum) defaultEditable + result <- gtk_text_buffer_delete_selection _obj' interactive' defaultEditable' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextBufferDeleteSelectionMethodInfo +instance (signature ~ (Bool -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeleteSelectionMethodInfo a signature where + overloadedMethod _ = textBufferDeleteSelection + +-- method TextBuffer::deserialize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 5 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_text_buffer_deserialize" gtk_text_buffer_deserialize :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextBuffer -> -- content_buffer : TInterface "Gtk" "TextBuffer" + Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Ptr Word8 -> -- data : TCArray False (-1) 5 (TBasicType TUInt8) + Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CInt + + +textBufferDeserialize :: + (MonadIO m, TextBufferK a, TextBufferK b) => + a -- _obj + -> b -- contentBuffer + -> Gdk.Atom -- format + -> TextIter -- iter + -> ByteString -- data_ + -> m () -- result +textBufferDeserialize _obj contentBuffer format iter data_ = liftIO $ do + let length_ = fromIntegral $ B.length data_ + let _obj' = unsafeManagedPtrCastPtr _obj + let contentBuffer' = unsafeManagedPtrCastPtr contentBuffer + let format' = unsafeManagedPtrGetPtr format + let iter' = unsafeManagedPtrGetPtr iter + data_' <- packByteString data_ + onException (do + _ <- propagateGError $ gtk_text_buffer_deserialize _obj' contentBuffer' format' iter' data_' length_ + touchManagedPtr _obj + touchManagedPtr contentBuffer + touchManagedPtr format + touchManagedPtr iter + freeMem data_' + return () + ) (do + freeMem data_' + ) + +data TextBufferDeserializeMethodInfo +instance (signature ~ (b -> Gdk.Atom -> TextIter -> ByteString -> m ()), MonadIO m, TextBufferK a, TextBufferK b) => MethodInfo TextBufferDeserializeMethodInfo a signature where + overloadedMethod _ = textBufferDeserialize + +-- method TextBuffer::deserialize_get_can_create_tags +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_deserialize_get_can_create_tags" gtk_text_buffer_deserialize_get_can_create_tags :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" + IO CInt + + +textBufferDeserializeGetCanCreateTags :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Gdk.Atom -- format + -> m Bool -- result +textBufferDeserializeGetCanCreateTags _obj format = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let format' = unsafeManagedPtrGetPtr format + result <- gtk_text_buffer_deserialize_get_can_create_tags _obj' format' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr format + return result' + +data TextBufferDeserializeGetCanCreateTagsMethodInfo +instance (signature ~ (Gdk.Atom -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeserializeGetCanCreateTagsMethodInfo a signature where + overloadedMethod _ = textBufferDeserializeGetCanCreateTags + +-- method TextBuffer::deserialize_set_can_create_tags +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_create_tags", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_deserialize_set_can_create_tags" gtk_text_buffer_deserialize_set_can_create_tags :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" + CInt -> -- can_create_tags : TBasicType TBoolean + IO () + + +textBufferDeserializeSetCanCreateTags :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Gdk.Atom -- format + -> Bool -- canCreateTags + -> m () -- result +textBufferDeserializeSetCanCreateTags _obj format canCreateTags = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let format' = unsafeManagedPtrGetPtr format + let canCreateTags' = (fromIntegral . fromEnum) canCreateTags + gtk_text_buffer_deserialize_set_can_create_tags _obj' format' canCreateTags' + touchManagedPtr _obj + touchManagedPtr format + return () + +data TextBufferDeserializeSetCanCreateTagsMethodInfo +instance (signature ~ (Gdk.Atom -> Bool -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferDeserializeSetCanCreateTagsMethodInfo a signature where + overloadedMethod _ = textBufferDeserializeSetCanCreateTags + +-- method TextBuffer::end_user_action +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_end_user_action" gtk_text_buffer_end_user_action :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + IO () + + +textBufferEndUserAction :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m () -- result +textBufferEndUserAction _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_text_buffer_end_user_action _obj' + touchManagedPtr _obj + return () + +data TextBufferEndUserActionMethodInfo +instance (signature ~ (m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferEndUserActionMethodInfo a signature where + overloadedMethod _ = textBufferEndUserAction + +-- method TextBuffer::get_bounds +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_bounds" gtk_text_buffer_get_bounds :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO () + + +textBufferGetBounds :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m (TextIter,TextIter) -- result +textBufferGetBounds _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + start <- callocBoxedBytes 80 :: IO (Ptr TextIter) + end <- callocBoxedBytes 80 :: IO (Ptr TextIter) + gtk_text_buffer_get_bounds _obj' start end + start' <- (wrapBoxed TextIter) start + end' <- (wrapBoxed TextIter) end + touchManagedPtr _obj + return (start', end') + +data TextBufferGetBoundsMethodInfo +instance (signature ~ (m (TextIter,TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetBoundsMethodInfo a signature where + overloadedMethod _ = textBufferGetBounds + +-- method TextBuffer::get_char_count +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_char_count" gtk_text_buffer_get_char_count :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + IO Int32 + + +textBufferGetCharCount :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m Int32 -- result +textBufferGetCharCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_buffer_get_char_count _obj' + touchManagedPtr _obj + return result + +data TextBufferGetCharCountMethodInfo +instance (signature ~ (m Int32), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetCharCountMethodInfo a signature where + overloadedMethod _ = textBufferGetCharCount + +-- method TextBuffer::get_copy_target_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TargetList" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_copy_target_list" gtk_text_buffer_get_copy_target_list :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + IO (Ptr TargetList) + + +textBufferGetCopyTargetList :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m TargetList -- result +textBufferGetCopyTargetList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_buffer_get_copy_target_list _obj' + checkUnexpectedReturnNULL "gtk_text_buffer_get_copy_target_list" result + result' <- (newBoxed TargetList) result + touchManagedPtr _obj + return result' + +data TextBufferGetCopyTargetListMethodInfo +instance (signature ~ (m TargetList), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetCopyTargetListMethodInfo a signature where + overloadedMethod _ = textBufferGetCopyTargetList + +-- method TextBuffer::get_deserialize_formats +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : TCArray False (-1) 1 (TInterface "Gdk" "Atom") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_deserialize_formats" gtk_text_buffer_get_deserialize_formats :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr Int32 -> -- n_formats : TBasicType TInt32 + IO (Ptr (Ptr Gdk.Atom)) + + +textBufferGetDeserializeFormats :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m [Gdk.Atom] -- result +textBufferGetDeserializeFormats _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + nFormats <- allocMem :: IO (Ptr Int32) + result <- gtk_text_buffer_get_deserialize_formats _obj' nFormats + nFormats' <- peek nFormats + checkUnexpectedReturnNULL "gtk_text_buffer_get_deserialize_formats" result + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (unpackPtrArrayWithLength nFormats') result + result'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) result' + freeMem result + touchManagedPtr _obj + freeMem nFormats + return result'' + +data TextBufferGetDeserializeFormatsMethodInfo +instance (signature ~ (m [Gdk.Atom]), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetDeserializeFormatsMethodInfo a signature where + overloadedMethod _ = textBufferGetDeserializeFormats + +-- method TextBuffer::get_end_iter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_end_iter" gtk_text_buffer_get_end_iter :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + IO () + + +textBufferGetEndIter :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m (TextIter) -- result +textBufferGetEndIter _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) + gtk_text_buffer_get_end_iter _obj' iter + iter' <- (wrapBoxed TextIter) iter + touchManagedPtr _obj + return iter' + +data TextBufferGetEndIterMethodInfo +instance (signature ~ (m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetEndIterMethodInfo a signature where + overloadedMethod _ = textBufferGetEndIter + +-- method TextBuffer::get_has_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_has_selection" gtk_text_buffer_get_has_selection :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + IO CInt + + +textBufferGetHasSelection :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m Bool -- result +textBufferGetHasSelection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_buffer_get_has_selection _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextBufferGetHasSelectionMethodInfo +instance (signature ~ (m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetHasSelectionMethodInfo a signature where + overloadedMethod _ = textBufferGetHasSelection + +-- method TextBuffer::get_insert +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextMark" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_insert" gtk_text_buffer_get_insert :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + IO (Ptr TextMark) + + +textBufferGetInsert :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m TextMark -- result +textBufferGetInsert _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_buffer_get_insert _obj' + checkUnexpectedReturnNULL "gtk_text_buffer_get_insert" result + result' <- (newObject TextMark) result + touchManagedPtr _obj + return result' + +data TextBufferGetInsertMethodInfo +instance (signature ~ (m TextMark), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetInsertMethodInfo a signature where + overloadedMethod _ = textBufferGetInsert + +-- method TextBuffer::get_iter_at_child_anchor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_iter_at_child_anchor" gtk_text_buffer_get_iter_at_child_anchor :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor" + IO () + + +textBufferGetIterAtChildAnchor :: + (MonadIO m, TextBufferK a, TextChildAnchorK b) => + a -- _obj + -> b -- anchor + -> m (TextIter) -- result +textBufferGetIterAtChildAnchor _obj anchor = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) + let anchor' = unsafeManagedPtrCastPtr anchor + gtk_text_buffer_get_iter_at_child_anchor _obj' iter anchor' + iter' <- (wrapBoxed TextIter) iter + touchManagedPtr _obj + touchManagedPtr anchor + return iter' + +data TextBufferGetIterAtChildAnchorMethodInfo +instance (signature ~ (b -> m (TextIter)), MonadIO m, TextBufferK a, TextChildAnchorK b) => MethodInfo TextBufferGetIterAtChildAnchorMethodInfo a signature where + overloadedMethod _ = textBufferGetIterAtChildAnchor + +-- method TextBuffer::get_iter_at_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_iter_at_line" gtk_text_buffer_get_iter_at_line :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Int32 -> -- line_number : TBasicType TInt32 + IO () + + +textBufferGetIterAtLine :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Int32 -- lineNumber + -> m (TextIter) -- result +textBufferGetIterAtLine _obj lineNumber = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) + gtk_text_buffer_get_iter_at_line _obj' iter lineNumber + iter' <- (wrapBoxed TextIter) iter + touchManagedPtr _obj + return iter' + +data TextBufferGetIterAtLineMethodInfo +instance (signature ~ (Int32 -> m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetIterAtLineMethodInfo a signature where + overloadedMethod _ = textBufferGetIterAtLine + +-- method TextBuffer::get_iter_at_line_index +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_iter_at_line_index" gtk_text_buffer_get_iter_at_line_index :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Int32 -> -- line_number : TBasicType TInt32 + Int32 -> -- byte_index : TBasicType TInt32 + IO () + + +textBufferGetIterAtLineIndex :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Int32 -- lineNumber + -> Int32 -- byteIndex + -> m (TextIter) -- result +textBufferGetIterAtLineIndex _obj lineNumber byteIndex = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) + gtk_text_buffer_get_iter_at_line_index _obj' iter lineNumber byteIndex + iter' <- (wrapBoxed TextIter) iter + touchManagedPtr _obj + return iter' + +data TextBufferGetIterAtLineIndexMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetIterAtLineIndexMethodInfo a signature where + overloadedMethod _ = textBufferGetIterAtLineIndex + +-- method TextBuffer::get_iter_at_line_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_iter_at_line_offset" gtk_text_buffer_get_iter_at_line_offset :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Int32 -> -- line_number : TBasicType TInt32 + Int32 -> -- char_offset : TBasicType TInt32 + IO () + + +textBufferGetIterAtLineOffset :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Int32 -- lineNumber + -> Int32 -- charOffset + -> m (TextIter) -- result +textBufferGetIterAtLineOffset _obj lineNumber charOffset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) + gtk_text_buffer_get_iter_at_line_offset _obj' iter lineNumber charOffset + iter' <- (wrapBoxed TextIter) iter + touchManagedPtr _obj + return iter' + +data TextBufferGetIterAtLineOffsetMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetIterAtLineOffsetMethodInfo a signature where + overloadedMethod _ = textBufferGetIterAtLineOffset + +-- method TextBuffer::get_iter_at_mark +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_iter_at_mark" gtk_text_buffer_get_iter_at_mark :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" + IO () + + +textBufferGetIterAtMark :: + (MonadIO m, TextBufferK a, TextMarkK b) => + a -- _obj + -> b -- mark + -> m (TextIter) -- result +textBufferGetIterAtMark _obj mark = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) + let mark' = unsafeManagedPtrCastPtr mark + gtk_text_buffer_get_iter_at_mark _obj' iter mark' + iter' <- (wrapBoxed TextIter) iter + touchManagedPtr _obj + touchManagedPtr mark + return iter' + +data TextBufferGetIterAtMarkMethodInfo +instance (signature ~ (b -> m (TextIter)), MonadIO m, TextBufferK a, TextMarkK b) => MethodInfo TextBufferGetIterAtMarkMethodInfo a signature where + overloadedMethod _ = textBufferGetIterAtMark + +-- method TextBuffer::get_iter_at_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_iter_at_offset" gtk_text_buffer_get_iter_at_offset :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Int32 -> -- char_offset : TBasicType TInt32 + IO () + + +textBufferGetIterAtOffset :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Int32 -- charOffset + -> m (TextIter) -- result +textBufferGetIterAtOffset _obj charOffset = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) + gtk_text_buffer_get_iter_at_offset _obj' iter charOffset + iter' <- (wrapBoxed TextIter) iter + touchManagedPtr _obj + return iter' + +data TextBufferGetIterAtOffsetMethodInfo +instance (signature ~ (Int32 -> m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetIterAtOffsetMethodInfo a signature where + overloadedMethod _ = textBufferGetIterAtOffset + +-- method TextBuffer::get_line_count +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_line_count" gtk_text_buffer_get_line_count :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + IO Int32 + + +textBufferGetLineCount :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m Int32 -- result +textBufferGetLineCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_buffer_get_line_count _obj' + touchManagedPtr _obj + return result + +data TextBufferGetLineCountMethodInfo +instance (signature ~ (m Int32), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetLineCountMethodInfo a signature where + overloadedMethod _ = textBufferGetLineCount + +-- method TextBuffer::get_mark +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextMark" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_mark" gtk_text_buffer_get_mark :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- name : TBasicType TUTF8 + IO (Ptr TextMark) + + +textBufferGetMark :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> T.Text -- name + -> m TextMark -- result +textBufferGetMark _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + result <- gtk_text_buffer_get_mark _obj' name' + checkUnexpectedReturnNULL "gtk_text_buffer_get_mark" result + result' <- (newObject TextMark) result + touchManagedPtr _obj + freeMem name' + return result' + +data TextBufferGetMarkMethodInfo +instance (signature ~ (T.Text -> m TextMark), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetMarkMethodInfo a signature where + overloadedMethod _ = textBufferGetMark + +-- method TextBuffer::get_modified +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_modified" gtk_text_buffer_get_modified :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + IO CInt + + +textBufferGetModified :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m Bool -- result +textBufferGetModified _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_buffer_get_modified _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextBufferGetModifiedMethodInfo +instance (signature ~ (m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetModifiedMethodInfo a signature where + overloadedMethod _ = textBufferGetModified + +-- method TextBuffer::get_paste_target_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TargetList" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_paste_target_list" gtk_text_buffer_get_paste_target_list :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + IO (Ptr TargetList) + + +textBufferGetPasteTargetList :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m TargetList -- result +textBufferGetPasteTargetList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_buffer_get_paste_target_list _obj' + checkUnexpectedReturnNULL "gtk_text_buffer_get_paste_target_list" result + result' <- (newBoxed TargetList) result + touchManagedPtr _obj + return result' + +data TextBufferGetPasteTargetListMethodInfo +instance (signature ~ (m TargetList), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetPasteTargetListMethodInfo a signature where + overloadedMethod _ = textBufferGetPasteTargetList + +-- method TextBuffer::get_selection_bound +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextMark" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_selection_bound" gtk_text_buffer_get_selection_bound :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + IO (Ptr TextMark) + + +textBufferGetSelectionBound :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m TextMark -- result +textBufferGetSelectionBound _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_buffer_get_selection_bound _obj' + checkUnexpectedReturnNULL "gtk_text_buffer_get_selection_bound" result + result' <- (newObject TextMark) result + touchManagedPtr _obj + return result' + +data TextBufferGetSelectionBoundMethodInfo +instance (signature ~ (m TextMark), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetSelectionBoundMethodInfo a signature where + overloadedMethod _ = textBufferGetSelectionBound + +-- method TextBuffer::get_selection_bounds +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_selection_bounds" gtk_text_buffer_get_selection_bounds :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO CInt + + +textBufferGetSelectionBounds :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m (Bool,TextIter,TextIter) -- result +textBufferGetSelectionBounds _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + start <- callocBoxedBytes 80 :: IO (Ptr TextIter) + end <- callocBoxedBytes 80 :: IO (Ptr TextIter) + result <- gtk_text_buffer_get_selection_bounds _obj' start end + let result' = (/= 0) result + start' <- (wrapBoxed TextIter) start + end' <- (wrapBoxed TextIter) end + touchManagedPtr _obj + return (result', start', end') + +data TextBufferGetSelectionBoundsMethodInfo +instance (signature ~ (m (Bool,TextIter,TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetSelectionBoundsMethodInfo a signature where + overloadedMethod _ = textBufferGetSelectionBounds + +-- method TextBuffer::get_serialize_formats +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : TCArray False (-1) 1 (TInterface "Gdk" "Atom") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_serialize_formats" gtk_text_buffer_get_serialize_formats :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr Int32 -> -- n_formats : TBasicType TInt32 + IO (Ptr (Ptr Gdk.Atom)) + + +textBufferGetSerializeFormats :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m [Gdk.Atom] -- result +textBufferGetSerializeFormats _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + nFormats <- allocMem :: IO (Ptr Int32) + result <- gtk_text_buffer_get_serialize_formats _obj' nFormats + nFormats' <- peek nFormats + checkUnexpectedReturnNULL "gtk_text_buffer_get_serialize_formats" result + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (unpackPtrArrayWithLength nFormats') result + result'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) result' + freeMem result + touchManagedPtr _obj + freeMem nFormats + return result'' + +data TextBufferGetSerializeFormatsMethodInfo +instance (signature ~ (m [Gdk.Atom]), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetSerializeFormatsMethodInfo a signature where + overloadedMethod _ = textBufferGetSerializeFormats + +-- method TextBuffer::get_slice +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_slice" gtk_text_buffer_get_slice :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + CInt -> -- include_hidden_chars : TBasicType TBoolean + IO CString + + +textBufferGetSlice :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- start + -> TextIter -- end + -> Bool -- includeHiddenChars + -> m T.Text -- result +textBufferGetSlice _obj start end includeHiddenChars = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let start' = unsafeManagedPtrGetPtr start + let end' = unsafeManagedPtrGetPtr end + let includeHiddenChars' = (fromIntegral . fromEnum) includeHiddenChars + result <- gtk_text_buffer_get_slice _obj' start' end' includeHiddenChars' + checkUnexpectedReturnNULL "gtk_text_buffer_get_slice" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + touchManagedPtr start + touchManagedPtr end + return result' + +data TextBufferGetSliceMethodInfo +instance (signature ~ (TextIter -> TextIter -> Bool -> m T.Text), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetSliceMethodInfo a signature where + overloadedMethod _ = textBufferGetSlice + +-- method TextBuffer::get_start_iter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_start_iter" gtk_text_buffer_get_start_iter :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + IO () + + +textBufferGetStartIter :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m (TextIter) -- result +textBufferGetStartIter _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) + gtk_text_buffer_get_start_iter _obj' iter + iter' <- (wrapBoxed TextIter) iter + touchManagedPtr _obj + return iter' + +data TextBufferGetStartIterMethodInfo +instance (signature ~ (m (TextIter)), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetStartIterMethodInfo a signature where + overloadedMethod _ = textBufferGetStartIter + +-- method TextBuffer::get_tag_table +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextTagTable" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_tag_table" gtk_text_buffer_get_tag_table :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + IO (Ptr TextTagTable) + + +textBufferGetTagTable :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> m TextTagTable -- result +textBufferGetTagTable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_buffer_get_tag_table _obj' + checkUnexpectedReturnNULL "gtk_text_buffer_get_tag_table" result + result' <- (newObject TextTagTable) result + touchManagedPtr _obj + return result' + +data TextBufferGetTagTableMethodInfo +instance (signature ~ (m TextTagTable), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetTagTableMethodInfo a signature where + overloadedMethod _ = textBufferGetTagTable + +-- method TextBuffer::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_get_text" gtk_text_buffer_get_text :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + CInt -> -- include_hidden_chars : TBasicType TBoolean + IO CString + + +textBufferGetText :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- start + -> TextIter -- end + -> Bool -- includeHiddenChars + -> m T.Text -- result +textBufferGetText _obj start end includeHiddenChars = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let start' = unsafeManagedPtrGetPtr start + let end' = unsafeManagedPtrGetPtr end + let includeHiddenChars' = (fromIntegral . fromEnum) includeHiddenChars + result <- gtk_text_buffer_get_text _obj' start' end' includeHiddenChars' + checkUnexpectedReturnNULL "gtk_text_buffer_get_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + touchManagedPtr start + touchManagedPtr end + return result' + +data TextBufferGetTextMethodInfo +instance (signature ~ (TextIter -> TextIter -> Bool -> m T.Text), MonadIO m, TextBufferK a) => MethodInfo TextBufferGetTextMethodInfo a signature where + overloadedMethod _ = textBufferGetText + +-- method TextBuffer::insert +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_insert" gtk_text_buffer_insert :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + CString -> -- text : TBasicType TUTF8 + Int32 -> -- len : TBasicType TInt32 + IO () + + +textBufferInsert :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- iter + -> T.Text -- text + -> Int32 -- len + -> m () -- result +textBufferInsert _obj iter text len = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + text' <- textToCString text + gtk_text_buffer_insert _obj' iter' text' len + touchManagedPtr _obj + touchManagedPtr iter + freeMem text' + return () + +data TextBufferInsertMethodInfo +instance (signature ~ (TextIter -> T.Text -> Int32 -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertMethodInfo a signature where + overloadedMethod _ = textBufferInsert + +-- method TextBuffer::insert_at_cursor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_insert_at_cursor" gtk_text_buffer_insert_at_cursor :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- text : TBasicType TUTF8 + Int32 -> -- len : TBasicType TInt32 + IO () + + +textBufferInsertAtCursor :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> T.Text -- text + -> Int32 -- len + -> m () -- result +textBufferInsertAtCursor _obj text len = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + text' <- textToCString text + gtk_text_buffer_insert_at_cursor _obj' text' len + touchManagedPtr _obj + freeMem text' + return () + +data TextBufferInsertAtCursorMethodInfo +instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertAtCursorMethodInfo a signature where + overloadedMethod _ = textBufferInsertAtCursor + +-- method TextBuffer::insert_child_anchor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_insert_child_anchor" gtk_text_buffer_insert_child_anchor :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor" + IO () + + +textBufferInsertChildAnchor :: + (MonadIO m, TextBufferK a, TextChildAnchorK b) => + a -- _obj + -> TextIter -- iter + -> b -- anchor + -> m () -- result +textBufferInsertChildAnchor _obj iter anchor = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + let anchor' = unsafeManagedPtrCastPtr anchor + gtk_text_buffer_insert_child_anchor _obj' iter' anchor' + touchManagedPtr _obj + touchManagedPtr iter + touchManagedPtr anchor + return () + +data TextBufferInsertChildAnchorMethodInfo +instance (signature ~ (TextIter -> b -> m ()), MonadIO m, TextBufferK a, TextChildAnchorK b) => MethodInfo TextBufferInsertChildAnchorMethodInfo a signature where + overloadedMethod _ = textBufferInsertChildAnchor + +-- method TextBuffer::insert_interactive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_insert_interactive" gtk_text_buffer_insert_interactive :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + CString -> -- text : TBasicType TUTF8 + Int32 -> -- len : TBasicType TInt32 + CInt -> -- default_editable : TBasicType TBoolean + IO CInt + + +textBufferInsertInteractive :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- iter + -> T.Text -- text + -> Int32 -- len + -> Bool -- defaultEditable + -> m Bool -- result +textBufferInsertInteractive _obj iter text len defaultEditable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + text' <- textToCString text + let defaultEditable' = (fromIntegral . fromEnum) defaultEditable + result <- gtk_text_buffer_insert_interactive _obj' iter' text' len defaultEditable' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr iter + freeMem text' + return result' + +data TextBufferInsertInteractiveMethodInfo +instance (signature ~ (TextIter -> T.Text -> Int32 -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertInteractiveMethodInfo a signature where + overloadedMethod _ = textBufferInsertInteractive + +-- method TextBuffer::insert_interactive_at_cursor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_insert_interactive_at_cursor" gtk_text_buffer_insert_interactive_at_cursor :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- text : TBasicType TUTF8 + Int32 -> -- len : TBasicType TInt32 + CInt -> -- default_editable : TBasicType TBoolean + IO CInt + + +textBufferInsertInteractiveAtCursor :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> T.Text -- text + -> Int32 -- len + -> Bool -- defaultEditable + -> m Bool -- result +textBufferInsertInteractiveAtCursor _obj text len defaultEditable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + text' <- textToCString text + let defaultEditable' = (fromIntegral . fromEnum) defaultEditable + result <- gtk_text_buffer_insert_interactive_at_cursor _obj' text' len defaultEditable' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem text' + return result' + +data TextBufferInsertInteractiveAtCursorMethodInfo +instance (signature ~ (T.Text -> Int32 -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertInteractiveAtCursorMethodInfo a signature where + overloadedMethod _ = textBufferInsertInteractiveAtCursor + +-- method TextBuffer::insert_markup +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_insert_markup" gtk_text_buffer_insert_markup :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + CString -> -- markup : TBasicType TUTF8 + Int32 -> -- len : TBasicType TInt32 + IO () + + +textBufferInsertMarkup :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- iter + -> T.Text -- markup + -> Int32 -- len + -> m () -- result +textBufferInsertMarkup _obj iter markup len = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + markup' <- textToCString markup + gtk_text_buffer_insert_markup _obj' iter' markup' len + touchManagedPtr _obj + touchManagedPtr iter + freeMem markup' + return () + +data TextBufferInsertMarkupMethodInfo +instance (signature ~ (TextIter -> T.Text -> Int32 -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertMarkupMethodInfo a signature where + overloadedMethod _ = textBufferInsertMarkup + +-- method TextBuffer::insert_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_insert_pixbuf" gtk_text_buffer_insert_pixbuf :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" + IO () + + +textBufferInsertPixbuf :: + (MonadIO m, TextBufferK a, GdkPixbuf.PixbufK b) => + a -- _obj + -> TextIter -- iter + -> b -- pixbuf + -> m () -- result +textBufferInsertPixbuf _obj iter pixbuf = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + let pixbuf' = unsafeManagedPtrCastPtr pixbuf + gtk_text_buffer_insert_pixbuf _obj' iter' pixbuf' + touchManagedPtr _obj + touchManagedPtr iter + touchManagedPtr pixbuf + return () + +data TextBufferInsertPixbufMethodInfo +instance (signature ~ (TextIter -> b -> m ()), MonadIO m, TextBufferK a, GdkPixbuf.PixbufK b) => MethodInfo TextBufferInsertPixbufMethodInfo a signature where + overloadedMethod _ = textBufferInsertPixbuf + +-- method TextBuffer::insert_range +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_insert_range" gtk_text_buffer_insert_range :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO () + + +textBufferInsertRange :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- iter + -> TextIter -- start + -> TextIter -- end + -> m () -- result +textBufferInsertRange _obj iter start end = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + let start' = unsafeManagedPtrGetPtr start + let end' = unsafeManagedPtrGetPtr end + gtk_text_buffer_insert_range _obj' iter' start' end' + touchManagedPtr _obj + touchManagedPtr iter + touchManagedPtr start + touchManagedPtr end + return () + +data TextBufferInsertRangeMethodInfo +instance (signature ~ (TextIter -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertRangeMethodInfo a signature where + overloadedMethod _ = textBufferInsertRange + +-- method TextBuffer::insert_range_interactive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_insert_range_interactive" gtk_text_buffer_insert_range_interactive :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + CInt -> -- default_editable : TBasicType TBoolean + IO CInt + + +textBufferInsertRangeInteractive :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- iter + -> TextIter -- start + -> TextIter -- end + -> Bool -- defaultEditable + -> m Bool -- result +textBufferInsertRangeInteractive _obj iter start end defaultEditable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + let start' = unsafeManagedPtrGetPtr start + let end' = unsafeManagedPtrGetPtr end + let defaultEditable' = (fromIntegral . fromEnum) defaultEditable + result <- gtk_text_buffer_insert_range_interactive _obj' iter' start' end' defaultEditable' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr iter + touchManagedPtr start + touchManagedPtr end + return result' + +data TextBufferInsertRangeInteractiveMethodInfo +instance (signature ~ (TextIter -> TextIter -> TextIter -> Bool -> m Bool), MonadIO m, TextBufferK a) => MethodInfo TextBufferInsertRangeInteractiveMethodInfo a signature where + overloadedMethod _ = textBufferInsertRangeInteractive + +-- method TextBuffer::move_mark +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_move_mark" gtk_text_buffer_move_mark :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" + Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" + IO () + + +textBufferMoveMark :: + (MonadIO m, TextBufferK a, TextMarkK b) => + a -- _obj + -> b -- mark + -> TextIter -- where_ + -> m () -- result +textBufferMoveMark _obj mark where_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let mark' = unsafeManagedPtrCastPtr mark + let where_' = unsafeManagedPtrGetPtr where_ + gtk_text_buffer_move_mark _obj' mark' where_' + touchManagedPtr _obj + touchManagedPtr mark + touchManagedPtr where_ + return () + +data TextBufferMoveMarkMethodInfo +instance (signature ~ (b -> TextIter -> m ()), MonadIO m, TextBufferK a, TextMarkK b) => MethodInfo TextBufferMoveMarkMethodInfo a signature where + overloadedMethod _ = textBufferMoveMark + +-- method TextBuffer::move_mark_by_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_move_mark_by_name" gtk_text_buffer_move_mark_by_name :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- name : TBasicType TUTF8 + Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" + IO () + + +textBufferMoveMarkByName :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> T.Text -- name + -> TextIter -- where_ + -> m () -- result +textBufferMoveMarkByName _obj name where_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + let where_' = unsafeManagedPtrGetPtr where_ + gtk_text_buffer_move_mark_by_name _obj' name' where_' + touchManagedPtr _obj + touchManagedPtr where_ + freeMem name' + return () + +data TextBufferMoveMarkByNameMethodInfo +instance (signature ~ (T.Text -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferMoveMarkByNameMethodInfo a signature where + overloadedMethod _ = textBufferMoveMarkByName + +-- method TextBuffer::paste_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "override_location", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_paste_clipboard" gtk_text_buffer_paste_clipboard :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" + Ptr TextIter -> -- override_location : TInterface "Gtk" "TextIter" + CInt -> -- default_editable : TBasicType TBoolean + IO () + + +textBufferPasteClipboard :: + (MonadIO m, TextBufferK a, ClipboardK b) => + a -- _obj + -> b -- clipboard + -> Maybe (TextIter) -- overrideLocation + -> Bool -- defaultEditable + -> m () -- result +textBufferPasteClipboard _obj clipboard overrideLocation defaultEditable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let clipboard' = unsafeManagedPtrCastPtr clipboard + maybeOverrideLocation <- case overrideLocation of + Nothing -> return nullPtr + Just jOverrideLocation -> do + let jOverrideLocation' = unsafeManagedPtrGetPtr jOverrideLocation + return jOverrideLocation' + let defaultEditable' = (fromIntegral . fromEnum) defaultEditable + gtk_text_buffer_paste_clipboard _obj' clipboard' maybeOverrideLocation defaultEditable' + touchManagedPtr _obj + touchManagedPtr clipboard + whenJust overrideLocation touchManagedPtr + return () + +data TextBufferPasteClipboardMethodInfo +instance (signature ~ (b -> Maybe (TextIter) -> Bool -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferPasteClipboardMethodInfo a signature where + overloadedMethod _ = textBufferPasteClipboard + +-- method TextBuffer::place_cursor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_place_cursor" gtk_text_buffer_place_cursor :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- where : TInterface "Gtk" "TextIter" + IO () + + +textBufferPlaceCursor :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- where_ + -> m () -- result +textBufferPlaceCursor _obj where_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let where_' = unsafeManagedPtrGetPtr where_ + gtk_text_buffer_place_cursor _obj' where_' + touchManagedPtr _obj + touchManagedPtr where_ + return () + +data TextBufferPlaceCursorMethodInfo +instance (signature ~ (TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferPlaceCursorMethodInfo a signature where + overloadedMethod _ = textBufferPlaceCursor + +-- method TextBuffer::register_deserialize_format +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "Gtk" "TextBufferDeserializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Atom" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_register_deserialize_format" gtk_text_buffer_register_deserialize_format :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- mime_type : TBasicType TUTF8 + FunPtr TextBufferDeserializeFuncC -> -- function : TInterface "Gtk" "TextBufferDeserializeFunc" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify" + IO (Ptr Gdk.Atom) + + +textBufferRegisterDeserializeFormat :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> T.Text -- mimeType + -> TextBufferDeserializeFunc -- function + -> m Gdk.Atom -- result +textBufferRegisterDeserializeFormat _obj mimeType function = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + mimeType' <- textToCString mimeType + function' <- mkTextBufferDeserializeFunc (textBufferDeserializeFuncWrapper Nothing function) + let userData = castFunPtrToPtr function' + let userDataDestroy = safeFreeFunPtrPtr + result <- gtk_text_buffer_register_deserialize_format _obj' mimeType' function' userData userDataDestroy + checkUnexpectedReturnNULL "gtk_text_buffer_register_deserialize_format" result + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result + touchManagedPtr _obj + freeMem mimeType' + return result' + +data TextBufferRegisterDeserializeFormatMethodInfo +instance (signature ~ (T.Text -> TextBufferDeserializeFunc -> m Gdk.Atom), MonadIO m, TextBufferK a) => MethodInfo TextBufferRegisterDeserializeFormatMethodInfo a signature where + overloadedMethod _ = textBufferRegisterDeserializeFormat + +-- method TextBuffer::register_deserialize_tagset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Atom" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_register_deserialize_tagset" gtk_text_buffer_register_deserialize_tagset :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- tagset_name : TBasicType TUTF8 + IO (Ptr Gdk.Atom) + + +textBufferRegisterDeserializeTagset :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Maybe (T.Text) -- tagsetName + -> m Gdk.Atom -- result +textBufferRegisterDeserializeTagset _obj tagsetName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeTagsetName <- case tagsetName of + Nothing -> return nullPtr + Just jTagsetName -> do + jTagsetName' <- textToCString jTagsetName + return jTagsetName' + result <- gtk_text_buffer_register_deserialize_tagset _obj' maybeTagsetName + checkUnexpectedReturnNULL "gtk_text_buffer_register_deserialize_tagset" result + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result + touchManagedPtr _obj + freeMem maybeTagsetName + return result' + +data TextBufferRegisterDeserializeTagsetMethodInfo +instance (signature ~ (Maybe (T.Text) -> m Gdk.Atom), MonadIO m, TextBufferK a) => MethodInfo TextBufferRegisterDeserializeTagsetMethodInfo a signature where + overloadedMethod _ = textBufferRegisterDeserializeTagset + +-- method TextBuffer::register_serialize_format +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "Gtk" "TextBufferSerializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Atom" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_register_serialize_format" gtk_text_buffer_register_serialize_format :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- mime_type : TBasicType TUTF8 + FunPtr TextBufferSerializeFuncC -> -- function : TInterface "Gtk" "TextBufferSerializeFunc" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify" + IO (Ptr Gdk.Atom) + + +textBufferRegisterSerializeFormat :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> T.Text -- mimeType + -> TextBufferSerializeFunc -- function + -> m Gdk.Atom -- result +textBufferRegisterSerializeFormat _obj mimeType function = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + mimeType' <- textToCString mimeType + function' <- mkTextBufferSerializeFunc (textBufferSerializeFuncWrapper Nothing function) + let userData = castFunPtrToPtr function' + let userDataDestroy = safeFreeFunPtrPtr + result <- gtk_text_buffer_register_serialize_format _obj' mimeType' function' userData userDataDestroy + checkUnexpectedReturnNULL "gtk_text_buffer_register_serialize_format" result + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result + touchManagedPtr _obj + freeMem mimeType' + return result' + +data TextBufferRegisterSerializeFormatMethodInfo +instance (signature ~ (T.Text -> TextBufferSerializeFunc -> m Gdk.Atom), MonadIO m, TextBufferK a) => MethodInfo TextBufferRegisterSerializeFormatMethodInfo a signature where + overloadedMethod _ = textBufferRegisterSerializeFormat + +-- method TextBuffer::register_serialize_tagset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Atom" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_register_serialize_tagset" gtk_text_buffer_register_serialize_tagset :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- tagset_name : TBasicType TUTF8 + IO (Ptr Gdk.Atom) + + +textBufferRegisterSerializeTagset :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Maybe (T.Text) -- tagsetName + -> m Gdk.Atom -- result +textBufferRegisterSerializeTagset _obj tagsetName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeTagsetName <- case tagsetName of + Nothing -> return nullPtr + Just jTagsetName -> do + jTagsetName' <- textToCString jTagsetName + return jTagsetName' + result <- gtk_text_buffer_register_serialize_tagset _obj' maybeTagsetName + checkUnexpectedReturnNULL "gtk_text_buffer_register_serialize_tagset" result + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result + touchManagedPtr _obj + freeMem maybeTagsetName + return result' + +data TextBufferRegisterSerializeTagsetMethodInfo +instance (signature ~ (Maybe (T.Text) -> m Gdk.Atom), MonadIO m, TextBufferK a) => MethodInfo TextBufferRegisterSerializeTagsetMethodInfo a signature where + overloadedMethod _ = textBufferRegisterSerializeTagset + +-- method TextBuffer::remove_all_tags +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_remove_all_tags" gtk_text_buffer_remove_all_tags :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO () + + +textBufferRemoveAllTags :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- start + -> TextIter -- end + -> m () -- result +textBufferRemoveAllTags _obj start end = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let start' = unsafeManagedPtrGetPtr start + let end' = unsafeManagedPtrGetPtr end + gtk_text_buffer_remove_all_tags _obj' start' end' + touchManagedPtr _obj + touchManagedPtr start + touchManagedPtr end + return () + +data TextBufferRemoveAllTagsMethodInfo +instance (signature ~ (TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferRemoveAllTagsMethodInfo a signature where + overloadedMethod _ = textBufferRemoveAllTags + +-- method TextBuffer::remove_selection_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_remove_selection_clipboard" gtk_text_buffer_remove_selection_clipboard :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr Clipboard -> -- clipboard : TInterface "Gtk" "Clipboard" + IO () + + +textBufferRemoveSelectionClipboard :: + (MonadIO m, TextBufferK a, ClipboardK b) => + a -- _obj + -> b -- clipboard + -> m () -- result +textBufferRemoveSelectionClipboard _obj clipboard = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let clipboard' = unsafeManagedPtrCastPtr clipboard + gtk_text_buffer_remove_selection_clipboard _obj' clipboard' + touchManagedPtr _obj + touchManagedPtr clipboard + return () + +data TextBufferRemoveSelectionClipboardMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, TextBufferK a, ClipboardK b) => MethodInfo TextBufferRemoveSelectionClipboardMethodInfo a signature where + overloadedMethod _ = textBufferRemoveSelectionClipboard + +-- method TextBuffer::remove_tag +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_remove_tag" gtk_text_buffer_remove_tag :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO () + + +textBufferRemoveTag :: + (MonadIO m, TextBufferK a, TextTagK b) => + a -- _obj + -> b -- tag + -> TextIter -- start + -> TextIter -- end + -> m () -- result +textBufferRemoveTag _obj tag start end = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let tag' = unsafeManagedPtrCastPtr tag + let start' = unsafeManagedPtrGetPtr start + let end' = unsafeManagedPtrGetPtr end + gtk_text_buffer_remove_tag _obj' tag' start' end' + touchManagedPtr _obj + touchManagedPtr tag + touchManagedPtr start + touchManagedPtr end + return () + +data TextBufferRemoveTagMethodInfo +instance (signature ~ (b -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a, TextTagK b) => MethodInfo TextBufferRemoveTagMethodInfo a signature where + overloadedMethod _ = textBufferRemoveTag + +-- method TextBuffer::remove_tag_by_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_remove_tag_by_name" gtk_text_buffer_remove_tag_by_name :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- name : TBasicType TUTF8 + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO () + + +textBufferRemoveTagByName :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> T.Text -- name + -> TextIter -- start + -> TextIter -- end + -> m () -- result +textBufferRemoveTagByName _obj name start end = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + let start' = unsafeManagedPtrGetPtr start + let end' = unsafeManagedPtrGetPtr end + gtk_text_buffer_remove_tag_by_name _obj' name' start' end' + touchManagedPtr _obj + touchManagedPtr start + touchManagedPtr end + freeMem name' + return () + +data TextBufferRemoveTagByNameMethodInfo +instance (signature ~ (T.Text -> TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferRemoveTagByNameMethodInfo a signature where + overloadedMethod _ = textBufferRemoveTagByName + +-- method TextBuffer::select_range +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ins", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bound", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_select_range" gtk_text_buffer_select_range :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextIter -> -- ins : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- bound : TInterface "Gtk" "TextIter" + IO () + + +textBufferSelectRange :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> TextIter -- ins + -> TextIter -- bound + -> m () -- result +textBufferSelectRange _obj ins bound = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let ins' = unsafeManagedPtrGetPtr ins + let bound' = unsafeManagedPtrGetPtr bound + gtk_text_buffer_select_range _obj' ins' bound' + touchManagedPtr _obj + touchManagedPtr ins + touchManagedPtr bound + return () + +data TextBufferSelectRangeMethodInfo +instance (signature ~ (TextIter -> TextIter -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferSelectRangeMethodInfo a signature where + overloadedMethod _ = textBufferSelectRange + +-- method TextBuffer::serialize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : TCArray False (-1) 5 (TBasicType TUInt8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_serialize" gtk_text_buffer_serialize :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr TextBuffer -> -- content_buffer : TInterface "Gtk" "TextBuffer" + Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + Ptr Word64 -> -- length : TBasicType TUInt64 + IO (Ptr Word8) + + +textBufferSerialize :: + (MonadIO m, TextBufferK a, TextBufferK b) => + a -- _obj + -> b -- contentBuffer + -> Gdk.Atom -- format + -> TextIter -- start + -> TextIter -- end + -> m ByteString -- result +textBufferSerialize _obj contentBuffer format start end = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let contentBuffer' = unsafeManagedPtrCastPtr contentBuffer + let format' = unsafeManagedPtrGetPtr format + let start' = unsafeManagedPtrGetPtr start + let end' = unsafeManagedPtrGetPtr end + length_ <- allocMem :: IO (Ptr Word64) + result <- gtk_text_buffer_serialize _obj' contentBuffer' format' start' end' length_ + length_' <- peek length_ + checkUnexpectedReturnNULL "gtk_text_buffer_serialize" result + result' <- (unpackByteStringWithLength length_') result + freeMem result + touchManagedPtr _obj + touchManagedPtr contentBuffer + touchManagedPtr format + touchManagedPtr start + touchManagedPtr end + freeMem length_ + return result' + +data TextBufferSerializeMethodInfo +instance (signature ~ (b -> Gdk.Atom -> TextIter -> TextIter -> m ByteString), MonadIO m, TextBufferK a, TextBufferK b) => MethodInfo TextBufferSerializeMethodInfo a signature where + overloadedMethod _ = textBufferSerialize + +-- method TextBuffer::set_modified +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_set_modified" gtk_text_buffer_set_modified :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CInt -> -- setting : TBasicType TBoolean + IO () + + +textBufferSetModified :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +textBufferSetModified _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_text_buffer_set_modified _obj' setting' + touchManagedPtr _obj + return () + +data TextBufferSetModifiedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferSetModifiedMethodInfo a signature where + overloadedMethod _ = textBufferSetModified + +-- method TextBuffer::set_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_set_text" gtk_text_buffer_set_text :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + CString -> -- text : TBasicType TUTF8 + Int32 -> -- len : TBasicType TInt32 + IO () + + +textBufferSetText :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> T.Text -- text + -> Int32 -- len + -> m () -- result +textBufferSetText _obj text len = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + text' <- textToCString text + gtk_text_buffer_set_text _obj' text' len + touchManagedPtr _obj + freeMem text' + return () + +data TextBufferSetTextMethodInfo +instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferSetTextMethodInfo a signature where + overloadedMethod _ = textBufferSetText + +-- method TextBuffer::unregister_deserialize_format +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_unregister_deserialize_format" gtk_text_buffer_unregister_deserialize_format :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" + IO () + + +textBufferUnregisterDeserializeFormat :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Gdk.Atom -- format + -> m () -- result +textBufferUnregisterDeserializeFormat _obj format = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let format' = unsafeManagedPtrGetPtr format + gtk_text_buffer_unregister_deserialize_format _obj' format' + touchManagedPtr _obj + touchManagedPtr format + return () + +data TextBufferUnregisterDeserializeFormatMethodInfo +instance (signature ~ (Gdk.Atom -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferUnregisterDeserializeFormatMethodInfo a signature where + overloadedMethod _ = textBufferUnregisterDeserializeFormat + +-- method TextBuffer::unregister_serialize_format +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_buffer_unregister_serialize_format" gtk_text_buffer_unregister_serialize_format :: + Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" + Ptr Gdk.Atom -> -- format : TInterface "Gdk" "Atom" + IO () + + +textBufferUnregisterSerializeFormat :: + (MonadIO m, TextBufferK a) => + a -- _obj + -> Gdk.Atom -- format + -> m () -- result +textBufferUnregisterSerializeFormat _obj format = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let format' = unsafeManagedPtrGetPtr format + gtk_text_buffer_unregister_serialize_format _obj' format' + touchManagedPtr _obj + touchManagedPtr format + return () + +data TextBufferUnregisterSerializeFormatMethodInfo +instance (signature ~ (Gdk.Atom -> m ()), MonadIO m, TextBufferK a) => MethodInfo TextBufferUnregisterSerializeFormatMethodInfo a signature where + overloadedMethod _ = textBufferUnregisterSerializeFormat diff --git a/GI/Gtk/Objects/TextBuffer.hs-boot b/GI/Gtk/Objects/TextBuffer.hs-boot --- a/GI/Gtk/Objects/TextBuffer.hs-boot +++ b/GI/Gtk/Objects/TextBuffer.hs-boot @@ -30,3 +30,73 @@ data TextBufferModifiedChangedSignalInfo data TextBufferPasteDoneSignalInfo data TextBufferRemoveTagSignalInfo +data TextBufferAddMarkMethodInfo +data TextBufferAddSelectionClipboardMethodInfo +data TextBufferApplyTagMethodInfo +data TextBufferApplyTagByNameMethodInfo +data TextBufferBackspaceMethodInfo +data TextBufferBeginUserActionMethodInfo +data TextBufferCopyClipboardMethodInfo +data TextBufferCreateChildAnchorMethodInfo +data TextBufferCreateMarkMethodInfo +data TextBufferCutClipboardMethodInfo +data TextBufferDeleteMethodInfo +data TextBufferDeleteInteractiveMethodInfo +data TextBufferDeleteMarkMethodInfo +data TextBufferDeleteMarkByNameMethodInfo +data TextBufferDeleteSelectionMethodInfo +data TextBufferDeserializeMethodInfo +data TextBufferDeserializeGetCanCreateTagsMethodInfo +data TextBufferDeserializeSetCanCreateTagsMethodInfo +data TextBufferEndUserActionMethodInfo +data TextBufferGetBoundsMethodInfo +data TextBufferGetCharCountMethodInfo +data TextBufferGetCopyTargetListMethodInfo +data TextBufferGetDeserializeFormatsMethodInfo +data TextBufferGetEndIterMethodInfo +data TextBufferGetHasSelectionMethodInfo +data TextBufferGetInsertMethodInfo +data TextBufferGetIterAtChildAnchorMethodInfo +data TextBufferGetIterAtLineMethodInfo +data TextBufferGetIterAtLineIndexMethodInfo +data TextBufferGetIterAtLineOffsetMethodInfo +data TextBufferGetIterAtMarkMethodInfo +data TextBufferGetIterAtOffsetMethodInfo +data TextBufferGetLineCountMethodInfo +data TextBufferGetMarkMethodInfo +data TextBufferGetModifiedMethodInfo +data TextBufferGetPasteTargetListMethodInfo +data TextBufferGetSelectionBoundMethodInfo +data TextBufferGetSelectionBoundsMethodInfo +data TextBufferGetSerializeFormatsMethodInfo +data TextBufferGetSliceMethodInfo +data TextBufferGetStartIterMethodInfo +data TextBufferGetTagTableMethodInfo +data TextBufferGetTextMethodInfo +data TextBufferInsertMethodInfo +data TextBufferInsertAtCursorMethodInfo +data TextBufferInsertChildAnchorMethodInfo +data TextBufferInsertInteractiveMethodInfo +data TextBufferInsertInteractiveAtCursorMethodInfo +data TextBufferInsertMarkupMethodInfo +data TextBufferInsertPixbufMethodInfo +data TextBufferInsertRangeMethodInfo +data TextBufferInsertRangeInteractiveMethodInfo +data TextBufferMoveMarkMethodInfo +data TextBufferMoveMarkByNameMethodInfo +data TextBufferPasteClipboardMethodInfo +data TextBufferPlaceCursorMethodInfo +data TextBufferRegisterDeserializeFormatMethodInfo +data TextBufferRegisterDeserializeTagsetMethodInfo +data TextBufferRegisterSerializeFormatMethodInfo +data TextBufferRegisterSerializeTagsetMethodInfo +data TextBufferRemoveAllTagsMethodInfo +data TextBufferRemoveSelectionClipboardMethodInfo +data TextBufferRemoveTagMethodInfo +data TextBufferRemoveTagByNameMethodInfo +data TextBufferSelectRangeMethodInfo +data TextBufferSerializeMethodInfo +data TextBufferSetModifiedMethodInfo +data TextBufferSetTextMethodInfo +data TextBufferUnregisterDeserializeFormatMethodInfo +data TextBufferUnregisterSerializeFormatMethodInfo diff --git a/GI/Gtk/Objects/TextCellAccessible.hs b/GI/Gtk/Objects/TextCellAccessible.hs --- a/GI/Gtk/Objects/TextCellAccessible.hs +++ b/GI/Gtk/Objects/TextCellAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,99 @@ noTextCellAccessible :: Maybe TextCellAccessible noTextCellAccessible = Nothing +type family ResolveTextCellAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveTextCellAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveTextCellAccessibleMethod "addSelection" o = Atk.TextAddSelectionMethodInfo + ResolveTextCellAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTextCellAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTextCellAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveTextCellAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveTextCellAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveTextCellAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTextCellAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTextCellAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveTextCellAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveTextCellAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTextCellAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTextCellAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTextCellAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveTextCellAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveTextCellAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTextCellAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveTextCellAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveTextCellAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveTextCellAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTextCellAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveTextCellAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveTextCellAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveTextCellAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveTextCellAccessibleMethod "removeSelection" o = Atk.TextRemoveSelectionMethodInfo + ResolveTextCellAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTextCellAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTextCellAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTextCellAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTextCellAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTextCellAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTextCellAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTextCellAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTextCellAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveTextCellAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveTextCellAccessibleMethod "getBoundedRanges" o = Atk.TextGetBoundedRangesMethodInfo + ResolveTextCellAccessibleMethod "getCaretOffset" o = Atk.TextGetCaretOffsetMethodInfo + ResolveTextCellAccessibleMethod "getCharacterAtOffset" o = Atk.TextGetCharacterAtOffsetMethodInfo + ResolveTextCellAccessibleMethod "getCharacterCount" o = Atk.TextGetCharacterCountMethodInfo + ResolveTextCellAccessibleMethod "getCharacterExtents" o = Atk.TextGetCharacterExtentsMethodInfo + ResolveTextCellAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTextCellAccessibleMethod "getDefaultAttributes" o = Atk.TextGetDefaultAttributesMethodInfo + ResolveTextCellAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveTextCellAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveTextCellAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveTextCellAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveTextCellAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveTextCellAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveTextCellAccessibleMethod "getNSelections" o = Atk.TextGetNSelectionsMethodInfo + ResolveTextCellAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveTextCellAccessibleMethod "getOffsetAtPoint" o = Atk.TextGetOffsetAtPointMethodInfo + ResolveTextCellAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveTextCellAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveTextCellAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTextCellAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTextCellAccessibleMethod "getRangeExtents" o = Atk.TextGetRangeExtentsMethodInfo + ResolveTextCellAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveTextCellAccessibleMethod "getRunAttributes" o = Atk.TextGetRunAttributesMethodInfo + ResolveTextCellAccessibleMethod "getSelection" o = Atk.TextGetSelectionMethodInfo + ResolveTextCellAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveTextCellAccessibleMethod "getStringAtOffset" o = Atk.TextGetStringAtOffsetMethodInfo + ResolveTextCellAccessibleMethod "getText" o = Atk.TextGetTextMethodInfo + ResolveTextCellAccessibleMethod "getTextAfterOffset" o = Atk.TextGetTextAfterOffsetMethodInfo + ResolveTextCellAccessibleMethod "getTextAtOffset" o = Atk.TextGetTextAtOffsetMethodInfo + ResolveTextCellAccessibleMethod "getTextBeforeOffset" o = Atk.TextGetTextBeforeOffsetMethodInfo + ResolveTextCellAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveTextCellAccessibleMethod "setCaretOffset" o = Atk.TextSetCaretOffsetMethodInfo + ResolveTextCellAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTextCellAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveTextCellAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveTextCellAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveTextCellAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveTextCellAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTextCellAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveTextCellAccessibleMethod "setSelection" o = Atk.TextSetSelectionMethodInfo + ResolveTextCellAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveTextCellAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveTextCellAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTextCellAccessibleMethod t TextCellAccessible, MethodInfo info TextCellAccessible p) => IsLabelProxy t (TextCellAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTextCellAccessibleMethod t TextCellAccessible, MethodInfo info TextCellAccessible p) => IsLabel t (TextCellAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList TextCellAccessible = TextCellAccessibleAttributeList -type TextCellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type TextCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TextCellAccessible = TextCellAccessibleSignalList -type TextCellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TextCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("textAttributesChanged", Atk.TextTextAttributesChangedSignalInfo), '("textCaretMoved", Atk.TextTextCaretMovedSignalInfo), '("textChanged", Atk.TextTextChangedSignalInfo), '("textInsert", Atk.TextTextInsertSignalInfo), '("textRemove", Atk.TextTextRemoveSignalInfo), '("textSelectionChanged", Atk.TextTextSelectionChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/TextChildAnchor.hs b/GI/Gtk/Objects/TextChildAnchor.hs --- a/GI/Gtk/Objects/TextChildAnchor.hs +++ b/GI/Gtk/Objects/TextChildAnchor.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** textChildAnchorGetDeleted + TextChildAnchorGetDeletedMethodInfo , textChildAnchorGetDeleted , -- ** textChildAnchorGetWidgets + TextChildAnchorGetWidgetsMethodInfo , textChildAnchorGetWidgets , @@ -64,17 +67,51 @@ noTextChildAnchor :: Maybe TextChildAnchor noTextChildAnchor = Nothing +type family ResolveTextChildAnchorMethod (t :: Symbol) (o :: *) :: * where + ResolveTextChildAnchorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTextChildAnchorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTextChildAnchorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTextChildAnchorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTextChildAnchorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTextChildAnchorMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTextChildAnchorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTextChildAnchorMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTextChildAnchorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTextChildAnchorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTextChildAnchorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTextChildAnchorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTextChildAnchorMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTextChildAnchorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTextChildAnchorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTextChildAnchorMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTextChildAnchorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTextChildAnchorMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTextChildAnchorMethod "getDeleted" o = TextChildAnchorGetDeletedMethodInfo + ResolveTextChildAnchorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTextChildAnchorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTextChildAnchorMethod "getWidgets" o = TextChildAnchorGetWidgetsMethodInfo + ResolveTextChildAnchorMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTextChildAnchorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTextChildAnchorMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTextChildAnchorMethod t TextChildAnchor, MethodInfo info TextChildAnchor p) => IsLabelProxy t (TextChildAnchor -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTextChildAnchorMethod t TextChildAnchor, MethodInfo info TextChildAnchor p) => IsLabel t (TextChildAnchor -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList TextChildAnchor = TextChildAnchorAttributeList type TextChildAnchorAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList TextChildAnchor = TextChildAnchorSignalList -type TextChildAnchorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TextChildAnchorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TextChildAnchor::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "TextChildAnchor" -- throws : False -- Skip return : False @@ -85,7 +122,7 @@ textChildAnchorNew :: (MonadIO m) => - m TextChildAnchor + m TextChildAnchor -- result textChildAnchorNew = liftIO $ do result <- gtk_text_child_anchor_new checkUnexpectedReturnNULL "gtk_text_child_anchor_new" result @@ -94,9 +131,8 @@ -- method TextChildAnchor::get_deleted -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -108,8 +144,8 @@ textChildAnchorGetDeleted :: (MonadIO m, TextChildAnchorK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result textChildAnchorGetDeleted _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_text_child_anchor_get_deleted _obj' @@ -117,11 +153,14 @@ touchManagedPtr _obj return result' +data TextChildAnchorGetDeletedMethodInfo +instance (signature ~ (m Bool), MonadIO m, TextChildAnchorK a) => MethodInfo TextChildAnchorGetDeletedMethodInfo a signature where + overloadedMethod _ = textChildAnchorGetDeleted + -- method TextChildAnchor::get_widgets -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -133,8 +172,8 @@ textChildAnchorGetWidgets :: (MonadIO m, TextChildAnchorK a) => - a -> -- _obj - m [Widget] + a -- _obj + -> m [Widget] -- result textChildAnchorGetWidgets _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_text_child_anchor_get_widgets _obj' @@ -144,5 +183,9 @@ g_list_free result touchManagedPtr _obj return result'' + +data TextChildAnchorGetWidgetsMethodInfo +instance (signature ~ (m [Widget]), MonadIO m, TextChildAnchorK a) => MethodInfo TextChildAnchorGetWidgetsMethodInfo a signature where + overloadedMethod _ = textChildAnchorGetWidgets diff --git a/GI/Gtk/Objects/TextChildAnchor.hs-boot b/GI/Gtk/Objects/TextChildAnchor.hs-boot --- a/GI/Gtk/Objects/TextChildAnchor.hs-boot +++ b/GI/Gtk/Objects/TextChildAnchor.hs-boot @@ -11,3 +11,5 @@ instance GObject TextChildAnchor where class GObject o => TextChildAnchorK o instance (GObject o, IsDescendantOf TextChildAnchor o) => TextChildAnchorK o +data TextChildAnchorGetDeletedMethodInfo +data TextChildAnchorGetWidgetsMethodInfo diff --git a/GI/Gtk/Objects/TextMark.hs b/GI/Gtk/Objects/TextMark.hs --- a/GI/Gtk/Objects/TextMark.hs +++ b/GI/Gtk/Objects/TextMark.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** textMarkGetBuffer + TextMarkGetBufferMethodInfo , textMarkGetBuffer , -- ** textMarkGetDeleted + TextMarkGetDeletedMethodInfo , textMarkGetDeleted , -- ** textMarkGetLeftGravity + TextMarkGetLeftGravityMethodInfo , textMarkGetLeftGravity , -- ** textMarkGetName + TextMarkGetNameMethodInfo , textMarkGetName , -- ** textMarkGetVisible + TextMarkGetVisibleMethodInfo , textMarkGetVisible , @@ -41,6 +47,7 @@ -- ** textMarkSetVisible + TextMarkSetVisibleMethodInfo , textMarkSetVisible , @@ -95,6 +102,45 @@ noTextMark :: Maybe TextMark noTextMark = Nothing +type family ResolveTextMarkMethod (t :: Symbol) (o :: *) :: * where + ResolveTextMarkMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTextMarkMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTextMarkMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTextMarkMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTextMarkMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTextMarkMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTextMarkMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTextMarkMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTextMarkMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTextMarkMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTextMarkMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTextMarkMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTextMarkMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTextMarkMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTextMarkMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTextMarkMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTextMarkMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTextMarkMethod "getBuffer" o = TextMarkGetBufferMethodInfo + ResolveTextMarkMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTextMarkMethod "getDeleted" o = TextMarkGetDeletedMethodInfo + ResolveTextMarkMethod "getLeftGravity" o = TextMarkGetLeftGravityMethodInfo + ResolveTextMarkMethod "getName" o = TextMarkGetNameMethodInfo + ResolveTextMarkMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTextMarkMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTextMarkMethod "getVisible" o = TextMarkGetVisibleMethodInfo + ResolveTextMarkMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTextMarkMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTextMarkMethod "setVisible" o = TextMarkSetVisibleMethodInfo + ResolveTextMarkMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTextMarkMethod t TextMark, MethodInfo info TextMark p) => IsLabelProxy t (TextMark -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTextMarkMethod t TextMark, MethodInfo info TextMark p) => IsLabel t (TextMark -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "left-gravity" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] @@ -111,7 +157,7 @@ type AttrSetTypeConstraint TextMarkLeftGravityPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextMarkLeftGravityPropertyInfo = TextMarkK type AttrGetType TextMarkLeftGravityPropertyInfo = Bool - type AttrLabel TextMarkLeftGravityPropertyInfo = "TextMark::left-gravity" + type AttrLabel TextMarkLeftGravityPropertyInfo = "left-gravity" attrGet _ = getTextMarkLeftGravity attrSet _ = undefined attrConstruct _ = constructTextMarkLeftGravity @@ -132,22 +178,21 @@ type AttrSetTypeConstraint TextMarkNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextMarkNamePropertyInfo = TextMarkK type AttrGetType TextMarkNamePropertyInfo = T.Text - type AttrLabel TextMarkNamePropertyInfo = "TextMark::name" + type AttrLabel TextMarkNamePropertyInfo = "name" attrGet _ = getTextMarkName attrSet _ = undefined attrConstruct _ = constructTextMarkName type instance AttributeList TextMark = TextMarkAttributeList -type TextMarkAttributeList = ('[ '("left-gravity", TextMarkLeftGravityPropertyInfo), '("name", TextMarkNamePropertyInfo)] :: [(Symbol, *)]) +type TextMarkAttributeList = ('[ '("leftGravity", TextMarkLeftGravityPropertyInfo), '("name", TextMarkNamePropertyInfo)] :: [(Symbol, *)]) type instance SignalList TextMark = TextMarkSignalList -type TextMarkSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TextMarkSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TextMark::new -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TextMark" -- throws : False -- Skip return : False @@ -160,17 +205,17 @@ textMarkNew :: (MonadIO m) => - Maybe (T.Text) -> -- name - Bool -> -- left_gravity - m TextMark -textMarkNew name left_gravity = liftIO $ do + Maybe (T.Text) -- name + -> Bool -- leftGravity + -> m TextMark -- result +textMarkNew name leftGravity = liftIO $ do maybeName <- case name of Nothing -> return nullPtr Just jName -> do jName' <- textToCString jName return jName' - let left_gravity' = (fromIntegral . fromEnum) left_gravity - result <- gtk_text_mark_new maybeName left_gravity' + let leftGravity' = (fromIntegral . fromEnum) leftGravity + result <- gtk_text_mark_new maybeName leftGravity' checkUnexpectedReturnNULL "gtk_text_mark_new" result result' <- (wrapObject TextMark) result freeMem maybeName @@ -178,9 +223,8 @@ -- method TextMark::get_buffer -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TextBuffer" -- throws : False -- Skip return : False @@ -192,8 +236,8 @@ textMarkGetBuffer :: (MonadIO m, TextMarkK a) => - a -> -- _obj - m TextBuffer + a -- _obj + -> m TextBuffer -- result textMarkGetBuffer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_text_mark_get_buffer _obj' @@ -202,11 +246,14 @@ touchManagedPtr _obj return result' +data TextMarkGetBufferMethodInfo +instance (signature ~ (m TextBuffer), MonadIO m, TextMarkK a) => MethodInfo TextMarkGetBufferMethodInfo a signature where + overloadedMethod _ = textMarkGetBuffer + -- method TextMark::get_deleted -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -218,8 +265,8 @@ textMarkGetDeleted :: (MonadIO m, TextMarkK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result textMarkGetDeleted _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_text_mark_get_deleted _obj' @@ -227,11 +274,14 @@ touchManagedPtr _obj return result' +data TextMarkGetDeletedMethodInfo +instance (signature ~ (m Bool), MonadIO m, TextMarkK a) => MethodInfo TextMarkGetDeletedMethodInfo a signature where + overloadedMethod _ = textMarkGetDeleted + -- method TextMark::get_left_gravity -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -243,8 +293,8 @@ textMarkGetLeftGravity :: (MonadIO m, TextMarkK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result textMarkGetLeftGravity _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_text_mark_get_left_gravity _obj' @@ -252,11 +302,14 @@ touchManagedPtr _obj return result' +data TextMarkGetLeftGravityMethodInfo +instance (signature ~ (m Bool), MonadIO m, TextMarkK a) => MethodInfo TextMarkGetLeftGravityMethodInfo a signature where + overloadedMethod _ = textMarkGetLeftGravity + -- method TextMark::get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -268,8 +321,8 @@ textMarkGetName :: (MonadIO m, TextMarkK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result textMarkGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_text_mark_get_name _obj' @@ -278,11 +331,14 @@ touchManagedPtr _obj return result' +data TextMarkGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, TextMarkK a) => MethodInfo TextMarkGetNameMethodInfo a signature where + overloadedMethod _ = textMarkGetName + -- method TextMark::get_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -294,8 +350,8 @@ textMarkGetVisible :: (MonadIO m, TextMarkK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result textMarkGetVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_text_mark_get_visible _obj' @@ -303,11 +359,14 @@ touchManagedPtr _obj return result' +data TextMarkGetVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, TextMarkK a) => MethodInfo TextMarkGetVisibleMethodInfo a signature where + overloadedMethod _ = textMarkGetVisible + -- method TextMark::set_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -320,14 +379,18 @@ textMarkSetVisible :: (MonadIO m, TextMarkK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result textMarkSetVisible _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting gtk_text_mark_set_visible _obj' setting' touchManagedPtr _obj return () + +data TextMarkSetVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TextMarkK a) => MethodInfo TextMarkSetVisibleMethodInfo a signature where + overloadedMethod _ = textMarkSetVisible diff --git a/GI/Gtk/Objects/TextMark.hs-boot b/GI/Gtk/Objects/TextMark.hs-boot --- a/GI/Gtk/Objects/TextMark.hs-boot +++ b/GI/Gtk/Objects/TextMark.hs-boot @@ -13,3 +13,9 @@ instance (GObject o, IsDescendantOf TextMark o) => TextMarkK o data TextMarkLeftGravityPropertyInfo data TextMarkNamePropertyInfo +data TextMarkGetBufferMethodInfo +data TextMarkGetDeletedMethodInfo +data TextMarkGetLeftGravityMethodInfo +data TextMarkGetNameMethodInfo +data TextMarkGetVisibleMethodInfo +data TextMarkSetVisibleMethodInfo diff --git a/GI/Gtk/Objects/TextTag.hs b/GI/Gtk/Objects/TextTag.hs --- a/GI/Gtk/Objects/TextTag.hs +++ b/GI/Gtk/Objects/TextTag.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** textTagEvent + TextTagEventMethodInfo , textTagEvent , -- ** textTagGetPriority + TextTagGetPriorityMethodInfo , textTagGetPriority , @@ -29,6 +32,7 @@ -- ** textTagSetPriority + TextTagSetPriorityMethodInfo , textTagSetPriority , @@ -602,6 +606,42 @@ noTextTag :: Maybe TextTag noTextTag = Nothing +type family ResolveTextTagMethod (t :: Symbol) (o :: *) :: * where + ResolveTextTagMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTextTagMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTextTagMethod "event" o = TextTagEventMethodInfo + ResolveTextTagMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTextTagMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTextTagMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTextTagMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTextTagMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTextTagMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTextTagMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTextTagMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTextTagMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTextTagMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTextTagMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTextTagMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTextTagMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTextTagMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTextTagMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTextTagMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTextTagMethod "getPriority" o = TextTagGetPriorityMethodInfo + ResolveTextTagMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTextTagMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTextTagMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTextTagMethod "setPriority" o = TextTagSetPriorityMethodInfo + ResolveTextTagMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTextTagMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTextTagMethod t TextTag, MethodInfo info TextTag p) => IsLabelProxy t (TextTag -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTextTagMethod t TextTag, MethodInfo info TextTag p) => IsLabel t (TextTag -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal TextTag::event type TextTagEventCallback = GObject.Object -> @@ -673,7 +713,7 @@ type AttrSetTypeConstraint TextTagAccumulativeMarginPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagAccumulativeMarginPropertyInfo = TextTagK type AttrGetType TextTagAccumulativeMarginPropertyInfo = Bool - type AttrLabel TextTagAccumulativeMarginPropertyInfo = "TextTag::accumulative-margin" + type AttrLabel TextTagAccumulativeMarginPropertyInfo = "accumulative-margin" attrGet _ = getTextTagAccumulativeMargin attrSet _ = setTextTagAccumulativeMargin attrConstruct _ = constructTextTagAccumulativeMargin @@ -694,7 +734,7 @@ type AttrSetTypeConstraint TextTagBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagBackgroundPropertyInfo = TextTagK type AttrGetType TextTagBackgroundPropertyInfo = () - type AttrLabel TextTagBackgroundPropertyInfo = "TextTag::background" + type AttrLabel TextTagBackgroundPropertyInfo = "background" attrGet _ = undefined attrSet _ = setTextTagBackground attrConstruct _ = constructTextTagBackground @@ -718,7 +758,7 @@ type AttrSetTypeConstraint TextTagBackgroundFullHeightPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagBackgroundFullHeightPropertyInfo = TextTagK type AttrGetType TextTagBackgroundFullHeightPropertyInfo = Bool - type AttrLabel TextTagBackgroundFullHeightPropertyInfo = "TextTag::background-full-height" + type AttrLabel TextTagBackgroundFullHeightPropertyInfo = "background-full-height" attrGet _ = getTextTagBackgroundFullHeight attrSet _ = setTextTagBackgroundFullHeight attrConstruct _ = constructTextTagBackgroundFullHeight @@ -742,7 +782,7 @@ type AttrSetTypeConstraint TextTagBackgroundFullHeightSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagBackgroundFullHeightSetPropertyInfo = TextTagK type AttrGetType TextTagBackgroundFullHeightSetPropertyInfo = Bool - type AttrLabel TextTagBackgroundFullHeightSetPropertyInfo = "TextTag::background-full-height-set" + type AttrLabel TextTagBackgroundFullHeightSetPropertyInfo = "background-full-height-set" attrGet _ = getTextTagBackgroundFullHeightSet attrSet _ = setTextTagBackgroundFullHeightSet attrConstruct _ = constructTextTagBackgroundFullHeightSet @@ -766,7 +806,7 @@ type AttrSetTypeConstraint TextTagBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint TextTagBackgroundGdkPropertyInfo = TextTagK type AttrGetType TextTagBackgroundGdkPropertyInfo = Gdk.Color - type AttrLabel TextTagBackgroundGdkPropertyInfo = "TextTag::background-gdk" + type AttrLabel TextTagBackgroundGdkPropertyInfo = "background-gdk" attrGet _ = getTextTagBackgroundGdk attrSet _ = setTextTagBackgroundGdk attrConstruct _ = constructTextTagBackgroundGdk @@ -790,7 +830,7 @@ type AttrSetTypeConstraint TextTagBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint TextTagBackgroundRgbaPropertyInfo = TextTagK type AttrGetType TextTagBackgroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel TextTagBackgroundRgbaPropertyInfo = "TextTag::background-rgba" + type AttrLabel TextTagBackgroundRgbaPropertyInfo = "background-rgba" attrGet _ = getTextTagBackgroundRgba attrSet _ = setTextTagBackgroundRgba attrConstruct _ = constructTextTagBackgroundRgba @@ -814,7 +854,7 @@ type AttrSetTypeConstraint TextTagBackgroundSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagBackgroundSetPropertyInfo = TextTagK type AttrGetType TextTagBackgroundSetPropertyInfo = Bool - type AttrLabel TextTagBackgroundSetPropertyInfo = "TextTag::background-set" + type AttrLabel TextTagBackgroundSetPropertyInfo = "background-set" attrGet _ = getTextTagBackgroundSet attrSet _ = setTextTagBackgroundSet attrConstruct _ = constructTextTagBackgroundSet @@ -838,7 +878,7 @@ type AttrSetTypeConstraint TextTagDirectionPropertyInfo = (~) TextDirection type AttrBaseTypeConstraint TextTagDirectionPropertyInfo = TextTagK type AttrGetType TextTagDirectionPropertyInfo = TextDirection - type AttrLabel TextTagDirectionPropertyInfo = "TextTag::direction" + type AttrLabel TextTagDirectionPropertyInfo = "direction" attrGet _ = getTextTagDirection attrSet _ = setTextTagDirection attrConstruct _ = constructTextTagDirection @@ -862,7 +902,7 @@ type AttrSetTypeConstraint TextTagEditablePropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagEditablePropertyInfo = TextTagK type AttrGetType TextTagEditablePropertyInfo = Bool - type AttrLabel TextTagEditablePropertyInfo = "TextTag::editable" + type AttrLabel TextTagEditablePropertyInfo = "editable" attrGet _ = getTextTagEditable attrSet _ = setTextTagEditable attrConstruct _ = constructTextTagEditable @@ -886,7 +926,7 @@ type AttrSetTypeConstraint TextTagEditableSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagEditableSetPropertyInfo = TextTagK type AttrGetType TextTagEditableSetPropertyInfo = Bool - type AttrLabel TextTagEditableSetPropertyInfo = "TextTag::editable-set" + type AttrLabel TextTagEditableSetPropertyInfo = "editable-set" attrGet _ = getTextTagEditableSet attrSet _ = setTextTagEditableSet attrConstruct _ = constructTextTagEditableSet @@ -910,7 +950,7 @@ type AttrSetTypeConstraint TextTagFallbackPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagFallbackPropertyInfo = TextTagK type AttrGetType TextTagFallbackPropertyInfo = Bool - type AttrLabel TextTagFallbackPropertyInfo = "TextTag::fallback" + type AttrLabel TextTagFallbackPropertyInfo = "fallback" attrGet _ = getTextTagFallback attrSet _ = setTextTagFallback attrConstruct _ = constructTextTagFallback @@ -934,7 +974,7 @@ type AttrSetTypeConstraint TextTagFallbackSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagFallbackSetPropertyInfo = TextTagK type AttrGetType TextTagFallbackSetPropertyInfo = Bool - type AttrLabel TextTagFallbackSetPropertyInfo = "TextTag::fallback-set" + type AttrLabel TextTagFallbackSetPropertyInfo = "fallback-set" attrGet _ = getTextTagFallbackSet attrSet _ = setTextTagFallbackSet attrConstruct _ = constructTextTagFallbackSet @@ -958,7 +998,7 @@ type AttrSetTypeConstraint TextTagFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagFamilyPropertyInfo = TextTagK type AttrGetType TextTagFamilyPropertyInfo = T.Text - type AttrLabel TextTagFamilyPropertyInfo = "TextTag::family" + type AttrLabel TextTagFamilyPropertyInfo = "family" attrGet _ = getTextTagFamily attrSet _ = setTextTagFamily attrConstruct _ = constructTextTagFamily @@ -982,7 +1022,7 @@ type AttrSetTypeConstraint TextTagFamilySetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagFamilySetPropertyInfo = TextTagK type AttrGetType TextTagFamilySetPropertyInfo = Bool - type AttrLabel TextTagFamilySetPropertyInfo = "TextTag::family-set" + type AttrLabel TextTagFamilySetPropertyInfo = "family-set" attrGet _ = getTextTagFamilySet attrSet _ = setTextTagFamilySet attrConstruct _ = constructTextTagFamilySet @@ -1006,7 +1046,7 @@ type AttrSetTypeConstraint TextTagFontPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagFontPropertyInfo = TextTagK type AttrGetType TextTagFontPropertyInfo = T.Text - type AttrLabel TextTagFontPropertyInfo = "TextTag::font" + type AttrLabel TextTagFontPropertyInfo = "font" attrGet _ = getTextTagFont attrSet _ = setTextTagFont attrConstruct _ = constructTextTagFont @@ -1030,7 +1070,7 @@ type AttrSetTypeConstraint TextTagFontDescPropertyInfo = (~) Pango.FontDescription type AttrBaseTypeConstraint TextTagFontDescPropertyInfo = TextTagK type AttrGetType TextTagFontDescPropertyInfo = Pango.FontDescription - type AttrLabel TextTagFontDescPropertyInfo = "TextTag::font-desc" + type AttrLabel TextTagFontDescPropertyInfo = "font-desc" attrGet _ = getTextTagFontDesc attrSet _ = setTextTagFontDesc attrConstruct _ = constructTextTagFontDesc @@ -1054,7 +1094,7 @@ type AttrSetTypeConstraint TextTagFontFeaturesPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagFontFeaturesPropertyInfo = TextTagK type AttrGetType TextTagFontFeaturesPropertyInfo = T.Text - type AttrLabel TextTagFontFeaturesPropertyInfo = "TextTag::font-features" + type AttrLabel TextTagFontFeaturesPropertyInfo = "font-features" attrGet _ = getTextTagFontFeatures attrSet _ = setTextTagFontFeatures attrConstruct _ = constructTextTagFontFeatures @@ -1078,7 +1118,7 @@ type AttrSetTypeConstraint TextTagFontFeaturesSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagFontFeaturesSetPropertyInfo = TextTagK type AttrGetType TextTagFontFeaturesSetPropertyInfo = Bool - type AttrLabel TextTagFontFeaturesSetPropertyInfo = "TextTag::font-features-set" + type AttrLabel TextTagFontFeaturesSetPropertyInfo = "font-features-set" attrGet _ = getTextTagFontFeaturesSet attrSet _ = setTextTagFontFeaturesSet attrConstruct _ = constructTextTagFontFeaturesSet @@ -1099,7 +1139,7 @@ type AttrSetTypeConstraint TextTagForegroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagForegroundPropertyInfo = TextTagK type AttrGetType TextTagForegroundPropertyInfo = () - type AttrLabel TextTagForegroundPropertyInfo = "TextTag::foreground" + type AttrLabel TextTagForegroundPropertyInfo = "foreground" attrGet _ = undefined attrSet _ = setTextTagForeground attrConstruct _ = constructTextTagForeground @@ -1123,7 +1163,7 @@ type AttrSetTypeConstraint TextTagForegroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint TextTagForegroundGdkPropertyInfo = TextTagK type AttrGetType TextTagForegroundGdkPropertyInfo = Gdk.Color - type AttrLabel TextTagForegroundGdkPropertyInfo = "TextTag::foreground-gdk" + type AttrLabel TextTagForegroundGdkPropertyInfo = "foreground-gdk" attrGet _ = getTextTagForegroundGdk attrSet _ = setTextTagForegroundGdk attrConstruct _ = constructTextTagForegroundGdk @@ -1147,7 +1187,7 @@ type AttrSetTypeConstraint TextTagForegroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint TextTagForegroundRgbaPropertyInfo = TextTagK type AttrGetType TextTagForegroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel TextTagForegroundRgbaPropertyInfo = "TextTag::foreground-rgba" + type AttrLabel TextTagForegroundRgbaPropertyInfo = "foreground-rgba" attrGet _ = getTextTagForegroundRgba attrSet _ = setTextTagForegroundRgba attrConstruct _ = constructTextTagForegroundRgba @@ -1171,7 +1211,7 @@ type AttrSetTypeConstraint TextTagForegroundSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagForegroundSetPropertyInfo = TextTagK type AttrGetType TextTagForegroundSetPropertyInfo = Bool - type AttrLabel TextTagForegroundSetPropertyInfo = "TextTag::foreground-set" + type AttrLabel TextTagForegroundSetPropertyInfo = "foreground-set" attrGet _ = getTextTagForegroundSet attrSet _ = setTextTagForegroundSet attrConstruct _ = constructTextTagForegroundSet @@ -1195,7 +1235,7 @@ type AttrSetTypeConstraint TextTagIndentPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TextTagIndentPropertyInfo = TextTagK type AttrGetType TextTagIndentPropertyInfo = Int32 - type AttrLabel TextTagIndentPropertyInfo = "TextTag::indent" + type AttrLabel TextTagIndentPropertyInfo = "indent" attrGet _ = getTextTagIndent attrSet _ = setTextTagIndent attrConstruct _ = constructTextTagIndent @@ -1219,7 +1259,7 @@ type AttrSetTypeConstraint TextTagIndentSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagIndentSetPropertyInfo = TextTagK type AttrGetType TextTagIndentSetPropertyInfo = Bool - type AttrLabel TextTagIndentSetPropertyInfo = "TextTag::indent-set" + type AttrLabel TextTagIndentSetPropertyInfo = "indent-set" attrGet _ = getTextTagIndentSet attrSet _ = setTextTagIndentSet attrConstruct _ = constructTextTagIndentSet @@ -1243,7 +1283,7 @@ type AttrSetTypeConstraint TextTagInvisiblePropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagInvisiblePropertyInfo = TextTagK type AttrGetType TextTagInvisiblePropertyInfo = Bool - type AttrLabel TextTagInvisiblePropertyInfo = "TextTag::invisible" + type AttrLabel TextTagInvisiblePropertyInfo = "invisible" attrGet _ = getTextTagInvisible attrSet _ = setTextTagInvisible attrConstruct _ = constructTextTagInvisible @@ -1267,7 +1307,7 @@ type AttrSetTypeConstraint TextTagInvisibleSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagInvisibleSetPropertyInfo = TextTagK type AttrGetType TextTagInvisibleSetPropertyInfo = Bool - type AttrLabel TextTagInvisibleSetPropertyInfo = "TextTag::invisible-set" + type AttrLabel TextTagInvisibleSetPropertyInfo = "invisible-set" attrGet _ = getTextTagInvisibleSet attrSet _ = setTextTagInvisibleSet attrConstruct _ = constructTextTagInvisibleSet @@ -1291,7 +1331,7 @@ type AttrSetTypeConstraint TextTagJustificationPropertyInfo = (~) Justification type AttrBaseTypeConstraint TextTagJustificationPropertyInfo = TextTagK type AttrGetType TextTagJustificationPropertyInfo = Justification - type AttrLabel TextTagJustificationPropertyInfo = "TextTag::justification" + type AttrLabel TextTagJustificationPropertyInfo = "justification" attrGet _ = getTextTagJustification attrSet _ = setTextTagJustification attrConstruct _ = constructTextTagJustification @@ -1315,7 +1355,7 @@ type AttrSetTypeConstraint TextTagJustificationSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagJustificationSetPropertyInfo = TextTagK type AttrGetType TextTagJustificationSetPropertyInfo = Bool - type AttrLabel TextTagJustificationSetPropertyInfo = "TextTag::justification-set" + type AttrLabel TextTagJustificationSetPropertyInfo = "justification-set" attrGet _ = getTextTagJustificationSet attrSet _ = setTextTagJustificationSet attrConstruct _ = constructTextTagJustificationSet @@ -1339,7 +1379,7 @@ type AttrSetTypeConstraint TextTagLanguagePropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagLanguagePropertyInfo = TextTagK type AttrGetType TextTagLanguagePropertyInfo = T.Text - type AttrLabel TextTagLanguagePropertyInfo = "TextTag::language" + type AttrLabel TextTagLanguagePropertyInfo = "language" attrGet _ = getTextTagLanguage attrSet _ = setTextTagLanguage attrConstruct _ = constructTextTagLanguage @@ -1363,7 +1403,7 @@ type AttrSetTypeConstraint TextTagLanguageSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagLanguageSetPropertyInfo = TextTagK type AttrGetType TextTagLanguageSetPropertyInfo = Bool - type AttrLabel TextTagLanguageSetPropertyInfo = "TextTag::language-set" + type AttrLabel TextTagLanguageSetPropertyInfo = "language-set" attrGet _ = getTextTagLanguageSet attrSet _ = setTextTagLanguageSet attrConstruct _ = constructTextTagLanguageSet @@ -1387,7 +1427,7 @@ type AttrSetTypeConstraint TextTagLeftMarginPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TextTagLeftMarginPropertyInfo = TextTagK type AttrGetType TextTagLeftMarginPropertyInfo = Int32 - type AttrLabel TextTagLeftMarginPropertyInfo = "TextTag::left-margin" + type AttrLabel TextTagLeftMarginPropertyInfo = "left-margin" attrGet _ = getTextTagLeftMargin attrSet _ = setTextTagLeftMargin attrConstruct _ = constructTextTagLeftMargin @@ -1411,7 +1451,7 @@ type AttrSetTypeConstraint TextTagLeftMarginSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagLeftMarginSetPropertyInfo = TextTagK type AttrGetType TextTagLeftMarginSetPropertyInfo = Bool - type AttrLabel TextTagLeftMarginSetPropertyInfo = "TextTag::left-margin-set" + type AttrLabel TextTagLeftMarginSetPropertyInfo = "left-margin-set" attrGet _ = getTextTagLeftMarginSet attrSet _ = setTextTagLeftMarginSet attrConstruct _ = constructTextTagLeftMarginSet @@ -1435,7 +1475,7 @@ type AttrSetTypeConstraint TextTagLetterSpacingPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TextTagLetterSpacingPropertyInfo = TextTagK type AttrGetType TextTagLetterSpacingPropertyInfo = Int32 - type AttrLabel TextTagLetterSpacingPropertyInfo = "TextTag::letter-spacing" + type AttrLabel TextTagLetterSpacingPropertyInfo = "letter-spacing" attrGet _ = getTextTagLetterSpacing attrSet _ = setTextTagLetterSpacing attrConstruct _ = constructTextTagLetterSpacing @@ -1459,7 +1499,7 @@ type AttrSetTypeConstraint TextTagLetterSpacingSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagLetterSpacingSetPropertyInfo = TextTagK type AttrGetType TextTagLetterSpacingSetPropertyInfo = Bool - type AttrLabel TextTagLetterSpacingSetPropertyInfo = "TextTag::letter-spacing-set" + type AttrLabel TextTagLetterSpacingSetPropertyInfo = "letter-spacing-set" attrGet _ = getTextTagLetterSpacingSet attrSet _ = setTextTagLetterSpacingSet attrConstruct _ = constructTextTagLetterSpacingSet @@ -1480,7 +1520,7 @@ type AttrSetTypeConstraint TextTagNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagNamePropertyInfo = TextTagK type AttrGetType TextTagNamePropertyInfo = T.Text - type AttrLabel TextTagNamePropertyInfo = "TextTag::name" + type AttrLabel TextTagNamePropertyInfo = "name" attrGet _ = getTextTagName attrSet _ = undefined attrConstruct _ = constructTextTagName @@ -1501,7 +1541,7 @@ type AttrSetTypeConstraint TextTagParagraphBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagParagraphBackgroundPropertyInfo = TextTagK type AttrGetType TextTagParagraphBackgroundPropertyInfo = () - type AttrLabel TextTagParagraphBackgroundPropertyInfo = "TextTag::paragraph-background" + type AttrLabel TextTagParagraphBackgroundPropertyInfo = "paragraph-background" attrGet _ = undefined attrSet _ = setTextTagParagraphBackground attrConstruct _ = constructTextTagParagraphBackground @@ -1525,7 +1565,7 @@ type AttrSetTypeConstraint TextTagParagraphBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint TextTagParagraphBackgroundGdkPropertyInfo = TextTagK type AttrGetType TextTagParagraphBackgroundGdkPropertyInfo = Gdk.Color - type AttrLabel TextTagParagraphBackgroundGdkPropertyInfo = "TextTag::paragraph-background-gdk" + type AttrLabel TextTagParagraphBackgroundGdkPropertyInfo = "paragraph-background-gdk" attrGet _ = getTextTagParagraphBackgroundGdk attrSet _ = setTextTagParagraphBackgroundGdk attrConstruct _ = constructTextTagParagraphBackgroundGdk @@ -1549,7 +1589,7 @@ type AttrSetTypeConstraint TextTagParagraphBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint TextTagParagraphBackgroundRgbaPropertyInfo = TextTagK type AttrGetType TextTagParagraphBackgroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel TextTagParagraphBackgroundRgbaPropertyInfo = "TextTag::paragraph-background-rgba" + type AttrLabel TextTagParagraphBackgroundRgbaPropertyInfo = "paragraph-background-rgba" attrGet _ = getTextTagParagraphBackgroundRgba attrSet _ = setTextTagParagraphBackgroundRgba attrConstruct _ = constructTextTagParagraphBackgroundRgba @@ -1573,7 +1613,7 @@ type AttrSetTypeConstraint TextTagParagraphBackgroundSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagParagraphBackgroundSetPropertyInfo = TextTagK type AttrGetType TextTagParagraphBackgroundSetPropertyInfo = Bool - type AttrLabel TextTagParagraphBackgroundSetPropertyInfo = "TextTag::paragraph-background-set" + type AttrLabel TextTagParagraphBackgroundSetPropertyInfo = "paragraph-background-set" attrGet _ = getTextTagParagraphBackgroundSet attrSet _ = setTextTagParagraphBackgroundSet attrConstruct _ = constructTextTagParagraphBackgroundSet @@ -1597,7 +1637,7 @@ type AttrSetTypeConstraint TextTagPixelsAboveLinesPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TextTagPixelsAboveLinesPropertyInfo = TextTagK type AttrGetType TextTagPixelsAboveLinesPropertyInfo = Int32 - type AttrLabel TextTagPixelsAboveLinesPropertyInfo = "TextTag::pixels-above-lines" + type AttrLabel TextTagPixelsAboveLinesPropertyInfo = "pixels-above-lines" attrGet _ = getTextTagPixelsAboveLines attrSet _ = setTextTagPixelsAboveLines attrConstruct _ = constructTextTagPixelsAboveLines @@ -1621,7 +1661,7 @@ type AttrSetTypeConstraint TextTagPixelsAboveLinesSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagPixelsAboveLinesSetPropertyInfo = TextTagK type AttrGetType TextTagPixelsAboveLinesSetPropertyInfo = Bool - type AttrLabel TextTagPixelsAboveLinesSetPropertyInfo = "TextTag::pixels-above-lines-set" + type AttrLabel TextTagPixelsAboveLinesSetPropertyInfo = "pixels-above-lines-set" attrGet _ = getTextTagPixelsAboveLinesSet attrSet _ = setTextTagPixelsAboveLinesSet attrConstruct _ = constructTextTagPixelsAboveLinesSet @@ -1645,7 +1685,7 @@ type AttrSetTypeConstraint TextTagPixelsBelowLinesPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TextTagPixelsBelowLinesPropertyInfo = TextTagK type AttrGetType TextTagPixelsBelowLinesPropertyInfo = Int32 - type AttrLabel TextTagPixelsBelowLinesPropertyInfo = "TextTag::pixels-below-lines" + type AttrLabel TextTagPixelsBelowLinesPropertyInfo = "pixels-below-lines" attrGet _ = getTextTagPixelsBelowLines attrSet _ = setTextTagPixelsBelowLines attrConstruct _ = constructTextTagPixelsBelowLines @@ -1669,7 +1709,7 @@ type AttrSetTypeConstraint TextTagPixelsBelowLinesSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagPixelsBelowLinesSetPropertyInfo = TextTagK type AttrGetType TextTagPixelsBelowLinesSetPropertyInfo = Bool - type AttrLabel TextTagPixelsBelowLinesSetPropertyInfo = "TextTag::pixels-below-lines-set" + type AttrLabel TextTagPixelsBelowLinesSetPropertyInfo = "pixels-below-lines-set" attrGet _ = getTextTagPixelsBelowLinesSet attrSet _ = setTextTagPixelsBelowLinesSet attrConstruct _ = constructTextTagPixelsBelowLinesSet @@ -1693,7 +1733,7 @@ type AttrSetTypeConstraint TextTagPixelsInsideWrapPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TextTagPixelsInsideWrapPropertyInfo = TextTagK type AttrGetType TextTagPixelsInsideWrapPropertyInfo = Int32 - type AttrLabel TextTagPixelsInsideWrapPropertyInfo = "TextTag::pixels-inside-wrap" + type AttrLabel TextTagPixelsInsideWrapPropertyInfo = "pixels-inside-wrap" attrGet _ = getTextTagPixelsInsideWrap attrSet _ = setTextTagPixelsInsideWrap attrConstruct _ = constructTextTagPixelsInsideWrap @@ -1717,7 +1757,7 @@ type AttrSetTypeConstraint TextTagPixelsInsideWrapSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagPixelsInsideWrapSetPropertyInfo = TextTagK type AttrGetType TextTagPixelsInsideWrapSetPropertyInfo = Bool - type AttrLabel TextTagPixelsInsideWrapSetPropertyInfo = "TextTag::pixels-inside-wrap-set" + type AttrLabel TextTagPixelsInsideWrapSetPropertyInfo = "pixels-inside-wrap-set" attrGet _ = getTextTagPixelsInsideWrapSet attrSet _ = setTextTagPixelsInsideWrapSet attrConstruct _ = constructTextTagPixelsInsideWrapSet @@ -1741,7 +1781,7 @@ type AttrSetTypeConstraint TextTagRightMarginPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TextTagRightMarginPropertyInfo = TextTagK type AttrGetType TextTagRightMarginPropertyInfo = Int32 - type AttrLabel TextTagRightMarginPropertyInfo = "TextTag::right-margin" + type AttrLabel TextTagRightMarginPropertyInfo = "right-margin" attrGet _ = getTextTagRightMargin attrSet _ = setTextTagRightMargin attrConstruct _ = constructTextTagRightMargin @@ -1765,7 +1805,7 @@ type AttrSetTypeConstraint TextTagRightMarginSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagRightMarginSetPropertyInfo = TextTagK type AttrGetType TextTagRightMarginSetPropertyInfo = Bool - type AttrLabel TextTagRightMarginSetPropertyInfo = "TextTag::right-margin-set" + type AttrLabel TextTagRightMarginSetPropertyInfo = "right-margin-set" attrGet _ = getTextTagRightMarginSet attrSet _ = setTextTagRightMarginSet attrConstruct _ = constructTextTagRightMarginSet @@ -1789,7 +1829,7 @@ type AttrSetTypeConstraint TextTagRisePropertyInfo = (~) Int32 type AttrBaseTypeConstraint TextTagRisePropertyInfo = TextTagK type AttrGetType TextTagRisePropertyInfo = Int32 - type AttrLabel TextTagRisePropertyInfo = "TextTag::rise" + type AttrLabel TextTagRisePropertyInfo = "rise" attrGet _ = getTextTagRise attrSet _ = setTextTagRise attrConstruct _ = constructTextTagRise @@ -1813,7 +1853,7 @@ type AttrSetTypeConstraint TextTagRiseSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagRiseSetPropertyInfo = TextTagK type AttrGetType TextTagRiseSetPropertyInfo = Bool - type AttrLabel TextTagRiseSetPropertyInfo = "TextTag::rise-set" + type AttrLabel TextTagRiseSetPropertyInfo = "rise-set" attrGet _ = getTextTagRiseSet attrSet _ = setTextTagRiseSet attrConstruct _ = constructTextTagRiseSet @@ -1837,7 +1877,7 @@ type AttrSetTypeConstraint TextTagScalePropertyInfo = (~) Double type AttrBaseTypeConstraint TextTagScalePropertyInfo = TextTagK type AttrGetType TextTagScalePropertyInfo = Double - type AttrLabel TextTagScalePropertyInfo = "TextTag::scale" + type AttrLabel TextTagScalePropertyInfo = "scale" attrGet _ = getTextTagScale attrSet _ = setTextTagScale attrConstruct _ = constructTextTagScale @@ -1861,7 +1901,7 @@ type AttrSetTypeConstraint TextTagScaleSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagScaleSetPropertyInfo = TextTagK type AttrGetType TextTagScaleSetPropertyInfo = Bool - type AttrLabel TextTagScaleSetPropertyInfo = "TextTag::scale-set" + type AttrLabel TextTagScaleSetPropertyInfo = "scale-set" attrGet _ = getTextTagScaleSet attrSet _ = setTextTagScaleSet attrConstruct _ = constructTextTagScaleSet @@ -1885,7 +1925,7 @@ type AttrSetTypeConstraint TextTagSizePropertyInfo = (~) Int32 type AttrBaseTypeConstraint TextTagSizePropertyInfo = TextTagK type AttrGetType TextTagSizePropertyInfo = Int32 - type AttrLabel TextTagSizePropertyInfo = "TextTag::size" + type AttrLabel TextTagSizePropertyInfo = "size" attrGet _ = getTextTagSize attrSet _ = setTextTagSize attrConstruct _ = constructTextTagSize @@ -1909,7 +1949,7 @@ type AttrSetTypeConstraint TextTagSizePointsPropertyInfo = (~) Double type AttrBaseTypeConstraint TextTagSizePointsPropertyInfo = TextTagK type AttrGetType TextTagSizePointsPropertyInfo = Double - type AttrLabel TextTagSizePointsPropertyInfo = "TextTag::size-points" + type AttrLabel TextTagSizePointsPropertyInfo = "size-points" attrGet _ = getTextTagSizePoints attrSet _ = setTextTagSizePoints attrConstruct _ = constructTextTagSizePoints @@ -1933,7 +1973,7 @@ type AttrSetTypeConstraint TextTagSizeSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagSizeSetPropertyInfo = TextTagK type AttrGetType TextTagSizeSetPropertyInfo = Bool - type AttrLabel TextTagSizeSetPropertyInfo = "TextTag::size-set" + type AttrLabel TextTagSizeSetPropertyInfo = "size-set" attrGet _ = getTextTagSizeSet attrSet _ = setTextTagSizeSet attrConstruct _ = constructTextTagSizeSet @@ -1957,7 +1997,7 @@ type AttrSetTypeConstraint TextTagStretchPropertyInfo = (~) Pango.Stretch type AttrBaseTypeConstraint TextTagStretchPropertyInfo = TextTagK type AttrGetType TextTagStretchPropertyInfo = Pango.Stretch - type AttrLabel TextTagStretchPropertyInfo = "TextTag::stretch" + type AttrLabel TextTagStretchPropertyInfo = "stretch" attrGet _ = getTextTagStretch attrSet _ = setTextTagStretch attrConstruct _ = constructTextTagStretch @@ -1981,7 +2021,7 @@ type AttrSetTypeConstraint TextTagStretchSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagStretchSetPropertyInfo = TextTagK type AttrGetType TextTagStretchSetPropertyInfo = Bool - type AttrLabel TextTagStretchSetPropertyInfo = "TextTag::stretch-set" + type AttrLabel TextTagStretchSetPropertyInfo = "stretch-set" attrGet _ = getTextTagStretchSet attrSet _ = setTextTagStretchSet attrConstruct _ = constructTextTagStretchSet @@ -2005,7 +2045,7 @@ type AttrSetTypeConstraint TextTagStrikethroughPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagStrikethroughPropertyInfo = TextTagK type AttrGetType TextTagStrikethroughPropertyInfo = Bool - type AttrLabel TextTagStrikethroughPropertyInfo = "TextTag::strikethrough" + type AttrLabel TextTagStrikethroughPropertyInfo = "strikethrough" attrGet _ = getTextTagStrikethrough attrSet _ = setTextTagStrikethrough attrConstruct _ = constructTextTagStrikethrough @@ -2029,7 +2069,7 @@ type AttrSetTypeConstraint TextTagStrikethroughRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint TextTagStrikethroughRgbaPropertyInfo = TextTagK type AttrGetType TextTagStrikethroughRgbaPropertyInfo = Gdk.RGBA - type AttrLabel TextTagStrikethroughRgbaPropertyInfo = "TextTag::strikethrough-rgba" + type AttrLabel TextTagStrikethroughRgbaPropertyInfo = "strikethrough-rgba" attrGet _ = getTextTagStrikethroughRgba attrSet _ = setTextTagStrikethroughRgba attrConstruct _ = constructTextTagStrikethroughRgba @@ -2053,7 +2093,7 @@ type AttrSetTypeConstraint TextTagStrikethroughRgbaSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagStrikethroughRgbaSetPropertyInfo = TextTagK type AttrGetType TextTagStrikethroughRgbaSetPropertyInfo = Bool - type AttrLabel TextTagStrikethroughRgbaSetPropertyInfo = "TextTag::strikethrough-rgba-set" + type AttrLabel TextTagStrikethroughRgbaSetPropertyInfo = "strikethrough-rgba-set" attrGet _ = getTextTagStrikethroughRgbaSet attrSet _ = setTextTagStrikethroughRgbaSet attrConstruct _ = constructTextTagStrikethroughRgbaSet @@ -2077,7 +2117,7 @@ type AttrSetTypeConstraint TextTagStrikethroughSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagStrikethroughSetPropertyInfo = TextTagK type AttrGetType TextTagStrikethroughSetPropertyInfo = Bool - type AttrLabel TextTagStrikethroughSetPropertyInfo = "TextTag::strikethrough-set" + type AttrLabel TextTagStrikethroughSetPropertyInfo = "strikethrough-set" attrGet _ = getTextTagStrikethroughSet attrSet _ = setTextTagStrikethroughSet attrConstruct _ = constructTextTagStrikethroughSet @@ -2101,7 +2141,7 @@ type AttrSetTypeConstraint TextTagStylePropertyInfo = (~) Pango.Style type AttrBaseTypeConstraint TextTagStylePropertyInfo = TextTagK type AttrGetType TextTagStylePropertyInfo = Pango.Style - type AttrLabel TextTagStylePropertyInfo = "TextTag::style" + type AttrLabel TextTagStylePropertyInfo = "style" attrGet _ = getTextTagStyle attrSet _ = setTextTagStyle attrConstruct _ = constructTextTagStyle @@ -2125,7 +2165,7 @@ type AttrSetTypeConstraint TextTagStyleSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagStyleSetPropertyInfo = TextTagK type AttrGetType TextTagStyleSetPropertyInfo = Bool - type AttrLabel TextTagStyleSetPropertyInfo = "TextTag::style-set" + type AttrLabel TextTagStyleSetPropertyInfo = "style-set" attrGet _ = getTextTagStyleSet attrSet _ = setTextTagStyleSet attrConstruct _ = constructTextTagStyleSet @@ -2149,7 +2189,7 @@ type AttrSetTypeConstraint TextTagTabsPropertyInfo = (~) Pango.TabArray type AttrBaseTypeConstraint TextTagTabsPropertyInfo = TextTagK type AttrGetType TextTagTabsPropertyInfo = Pango.TabArray - type AttrLabel TextTagTabsPropertyInfo = "TextTag::tabs" + type AttrLabel TextTagTabsPropertyInfo = "tabs" attrGet _ = getTextTagTabs attrSet _ = setTextTagTabs attrConstruct _ = constructTextTagTabs @@ -2173,7 +2213,7 @@ type AttrSetTypeConstraint TextTagTabsSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagTabsSetPropertyInfo = TextTagK type AttrGetType TextTagTabsSetPropertyInfo = Bool - type AttrLabel TextTagTabsSetPropertyInfo = "TextTag::tabs-set" + type AttrLabel TextTagTabsSetPropertyInfo = "tabs-set" attrGet _ = getTextTagTabsSet attrSet _ = setTextTagTabsSet attrConstruct _ = constructTextTagTabsSet @@ -2197,7 +2237,7 @@ type AttrSetTypeConstraint TextTagUnderlinePropertyInfo = (~) Pango.Underline type AttrBaseTypeConstraint TextTagUnderlinePropertyInfo = TextTagK type AttrGetType TextTagUnderlinePropertyInfo = Pango.Underline - type AttrLabel TextTagUnderlinePropertyInfo = "TextTag::underline" + type AttrLabel TextTagUnderlinePropertyInfo = "underline" attrGet _ = getTextTagUnderline attrSet _ = setTextTagUnderline attrConstruct _ = constructTextTagUnderline @@ -2221,7 +2261,7 @@ type AttrSetTypeConstraint TextTagUnderlineRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint TextTagUnderlineRgbaPropertyInfo = TextTagK type AttrGetType TextTagUnderlineRgbaPropertyInfo = Gdk.RGBA - type AttrLabel TextTagUnderlineRgbaPropertyInfo = "TextTag::underline-rgba" + type AttrLabel TextTagUnderlineRgbaPropertyInfo = "underline-rgba" attrGet _ = getTextTagUnderlineRgba attrSet _ = setTextTagUnderlineRgba attrConstruct _ = constructTextTagUnderlineRgba @@ -2245,7 +2285,7 @@ type AttrSetTypeConstraint TextTagUnderlineRgbaSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagUnderlineRgbaSetPropertyInfo = TextTagK type AttrGetType TextTagUnderlineRgbaSetPropertyInfo = Bool - type AttrLabel TextTagUnderlineRgbaSetPropertyInfo = "TextTag::underline-rgba-set" + type AttrLabel TextTagUnderlineRgbaSetPropertyInfo = "underline-rgba-set" attrGet _ = getTextTagUnderlineRgbaSet attrSet _ = setTextTagUnderlineRgbaSet attrConstruct _ = constructTextTagUnderlineRgbaSet @@ -2269,7 +2309,7 @@ type AttrSetTypeConstraint TextTagUnderlineSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagUnderlineSetPropertyInfo = TextTagK type AttrGetType TextTagUnderlineSetPropertyInfo = Bool - type AttrLabel TextTagUnderlineSetPropertyInfo = "TextTag::underline-set" + type AttrLabel TextTagUnderlineSetPropertyInfo = "underline-set" attrGet _ = getTextTagUnderlineSet attrSet _ = setTextTagUnderlineSet attrConstruct _ = constructTextTagUnderlineSet @@ -2293,7 +2333,7 @@ type AttrSetTypeConstraint TextTagVariantPropertyInfo = (~) Pango.Variant type AttrBaseTypeConstraint TextTagVariantPropertyInfo = TextTagK type AttrGetType TextTagVariantPropertyInfo = Pango.Variant - type AttrLabel TextTagVariantPropertyInfo = "TextTag::variant" + type AttrLabel TextTagVariantPropertyInfo = "variant" attrGet _ = getTextTagVariant attrSet _ = setTextTagVariant attrConstruct _ = constructTextTagVariant @@ -2317,7 +2357,7 @@ type AttrSetTypeConstraint TextTagVariantSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagVariantSetPropertyInfo = TextTagK type AttrGetType TextTagVariantSetPropertyInfo = Bool - type AttrLabel TextTagVariantSetPropertyInfo = "TextTag::variant-set" + type AttrLabel TextTagVariantSetPropertyInfo = "variant-set" attrGet _ = getTextTagVariantSet attrSet _ = setTextTagVariantSet attrConstruct _ = constructTextTagVariantSet @@ -2341,7 +2381,7 @@ type AttrSetTypeConstraint TextTagWeightPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TextTagWeightPropertyInfo = TextTagK type AttrGetType TextTagWeightPropertyInfo = Int32 - type AttrLabel TextTagWeightPropertyInfo = "TextTag::weight" + type AttrLabel TextTagWeightPropertyInfo = "weight" attrGet _ = getTextTagWeight attrSet _ = setTextTagWeight attrConstruct _ = constructTextTagWeight @@ -2365,7 +2405,7 @@ type AttrSetTypeConstraint TextTagWeightSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagWeightSetPropertyInfo = TextTagK type AttrGetType TextTagWeightSetPropertyInfo = Bool - type AttrLabel TextTagWeightSetPropertyInfo = "TextTag::weight-set" + type AttrLabel TextTagWeightSetPropertyInfo = "weight-set" attrGet _ = getTextTagWeightSet attrSet _ = setTextTagWeightSet attrConstruct _ = constructTextTagWeightSet @@ -2389,7 +2429,7 @@ type AttrSetTypeConstraint TextTagWrapModePropertyInfo = (~) WrapMode type AttrBaseTypeConstraint TextTagWrapModePropertyInfo = TextTagK type AttrGetType TextTagWrapModePropertyInfo = WrapMode - type AttrLabel TextTagWrapModePropertyInfo = "TextTag::wrap-mode" + type AttrLabel TextTagWrapModePropertyInfo = "wrap-mode" attrGet _ = getTextTagWrapMode attrSet _ = setTextTagWrapMode attrConstruct _ = constructTextTagWrapMode @@ -2413,13 +2453,13 @@ type AttrSetTypeConstraint TextTagWrapModeSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint TextTagWrapModeSetPropertyInfo = TextTagK type AttrGetType TextTagWrapModeSetPropertyInfo = Bool - type AttrLabel TextTagWrapModeSetPropertyInfo = "TextTag::wrap-mode-set" + type AttrLabel TextTagWrapModeSetPropertyInfo = "wrap-mode-set" attrGet _ = getTextTagWrapModeSet attrSet _ = setTextTagWrapModeSet attrConstruct _ = constructTextTagWrapModeSet type instance AttributeList TextTag = TextTagAttributeList -type TextTagAttributeList = ('[ '("accumulative-margin", TextTagAccumulativeMarginPropertyInfo), '("background", TextTagBackgroundPropertyInfo), '("background-full-height", TextTagBackgroundFullHeightPropertyInfo), '("background-full-height-set", TextTagBackgroundFullHeightSetPropertyInfo), '("background-gdk", TextTagBackgroundGdkPropertyInfo), '("background-rgba", TextTagBackgroundRgbaPropertyInfo), '("background-set", TextTagBackgroundSetPropertyInfo), '("direction", TextTagDirectionPropertyInfo), '("editable", TextTagEditablePropertyInfo), '("editable-set", TextTagEditableSetPropertyInfo), '("fallback", TextTagFallbackPropertyInfo), '("fallback-set", TextTagFallbackSetPropertyInfo), '("family", TextTagFamilyPropertyInfo), '("family-set", TextTagFamilySetPropertyInfo), '("font", TextTagFontPropertyInfo), '("font-desc", TextTagFontDescPropertyInfo), '("font-features", TextTagFontFeaturesPropertyInfo), '("font-features-set", TextTagFontFeaturesSetPropertyInfo), '("foreground", TextTagForegroundPropertyInfo), '("foreground-gdk", TextTagForegroundGdkPropertyInfo), '("foreground-rgba", TextTagForegroundRgbaPropertyInfo), '("foreground-set", TextTagForegroundSetPropertyInfo), '("indent", TextTagIndentPropertyInfo), '("indent-set", TextTagIndentSetPropertyInfo), '("invisible", TextTagInvisiblePropertyInfo), '("invisible-set", TextTagInvisibleSetPropertyInfo), '("justification", TextTagJustificationPropertyInfo), '("justification-set", TextTagJustificationSetPropertyInfo), '("language", TextTagLanguagePropertyInfo), '("language-set", TextTagLanguageSetPropertyInfo), '("left-margin", TextTagLeftMarginPropertyInfo), '("left-margin-set", TextTagLeftMarginSetPropertyInfo), '("letter-spacing", TextTagLetterSpacingPropertyInfo), '("letter-spacing-set", TextTagLetterSpacingSetPropertyInfo), '("name", TextTagNamePropertyInfo), '("paragraph-background", TextTagParagraphBackgroundPropertyInfo), '("paragraph-background-gdk", TextTagParagraphBackgroundGdkPropertyInfo), '("paragraph-background-rgba", TextTagParagraphBackgroundRgbaPropertyInfo), '("paragraph-background-set", TextTagParagraphBackgroundSetPropertyInfo), '("pixels-above-lines", TextTagPixelsAboveLinesPropertyInfo), '("pixels-above-lines-set", TextTagPixelsAboveLinesSetPropertyInfo), '("pixels-below-lines", TextTagPixelsBelowLinesPropertyInfo), '("pixels-below-lines-set", TextTagPixelsBelowLinesSetPropertyInfo), '("pixels-inside-wrap", TextTagPixelsInsideWrapPropertyInfo), '("pixels-inside-wrap-set", TextTagPixelsInsideWrapSetPropertyInfo), '("right-margin", TextTagRightMarginPropertyInfo), '("right-margin-set", TextTagRightMarginSetPropertyInfo), '("rise", TextTagRisePropertyInfo), '("rise-set", TextTagRiseSetPropertyInfo), '("scale", TextTagScalePropertyInfo), '("scale-set", TextTagScaleSetPropertyInfo), '("size", TextTagSizePropertyInfo), '("size-points", TextTagSizePointsPropertyInfo), '("size-set", TextTagSizeSetPropertyInfo), '("stretch", TextTagStretchPropertyInfo), '("stretch-set", TextTagStretchSetPropertyInfo), '("strikethrough", TextTagStrikethroughPropertyInfo), '("strikethrough-rgba", TextTagStrikethroughRgbaPropertyInfo), '("strikethrough-rgba-set", TextTagStrikethroughRgbaSetPropertyInfo), '("strikethrough-set", TextTagStrikethroughSetPropertyInfo), '("style", TextTagStylePropertyInfo), '("style-set", TextTagStyleSetPropertyInfo), '("tabs", TextTagTabsPropertyInfo), '("tabs-set", TextTagTabsSetPropertyInfo), '("underline", TextTagUnderlinePropertyInfo), '("underline-rgba", TextTagUnderlineRgbaPropertyInfo), '("underline-rgba-set", TextTagUnderlineRgbaSetPropertyInfo), '("underline-set", TextTagUnderlineSetPropertyInfo), '("variant", TextTagVariantPropertyInfo), '("variant-set", TextTagVariantSetPropertyInfo), '("weight", TextTagWeightPropertyInfo), '("weight-set", TextTagWeightSetPropertyInfo), '("wrap-mode", TextTagWrapModePropertyInfo), '("wrap-mode-set", TextTagWrapModeSetPropertyInfo)] :: [(Symbol, *)]) +type TextTagAttributeList = ('[ '("accumulativeMargin", TextTagAccumulativeMarginPropertyInfo), '("background", TextTagBackgroundPropertyInfo), '("backgroundFullHeight", TextTagBackgroundFullHeightPropertyInfo), '("backgroundFullHeightSet", TextTagBackgroundFullHeightSetPropertyInfo), '("backgroundGdk", TextTagBackgroundGdkPropertyInfo), '("backgroundRgba", TextTagBackgroundRgbaPropertyInfo), '("backgroundSet", TextTagBackgroundSetPropertyInfo), '("direction", TextTagDirectionPropertyInfo), '("editable", TextTagEditablePropertyInfo), '("editableSet", TextTagEditableSetPropertyInfo), '("fallback", TextTagFallbackPropertyInfo), '("fallbackSet", TextTagFallbackSetPropertyInfo), '("family", TextTagFamilyPropertyInfo), '("familySet", TextTagFamilySetPropertyInfo), '("font", TextTagFontPropertyInfo), '("fontDesc", TextTagFontDescPropertyInfo), '("fontFeatures", TextTagFontFeaturesPropertyInfo), '("fontFeaturesSet", TextTagFontFeaturesSetPropertyInfo), '("foreground", TextTagForegroundPropertyInfo), '("foregroundGdk", TextTagForegroundGdkPropertyInfo), '("foregroundRgba", TextTagForegroundRgbaPropertyInfo), '("foregroundSet", TextTagForegroundSetPropertyInfo), '("indent", TextTagIndentPropertyInfo), '("indentSet", TextTagIndentSetPropertyInfo), '("invisible", TextTagInvisiblePropertyInfo), '("invisibleSet", TextTagInvisibleSetPropertyInfo), '("justification", TextTagJustificationPropertyInfo), '("justificationSet", TextTagJustificationSetPropertyInfo), '("language", TextTagLanguagePropertyInfo), '("languageSet", TextTagLanguageSetPropertyInfo), '("leftMargin", TextTagLeftMarginPropertyInfo), '("leftMarginSet", TextTagLeftMarginSetPropertyInfo), '("letterSpacing", TextTagLetterSpacingPropertyInfo), '("letterSpacingSet", TextTagLetterSpacingSetPropertyInfo), '("name", TextTagNamePropertyInfo), '("paragraphBackground", TextTagParagraphBackgroundPropertyInfo), '("paragraphBackgroundGdk", TextTagParagraphBackgroundGdkPropertyInfo), '("paragraphBackgroundRgba", TextTagParagraphBackgroundRgbaPropertyInfo), '("paragraphBackgroundSet", TextTagParagraphBackgroundSetPropertyInfo), '("pixelsAboveLines", TextTagPixelsAboveLinesPropertyInfo), '("pixelsAboveLinesSet", TextTagPixelsAboveLinesSetPropertyInfo), '("pixelsBelowLines", TextTagPixelsBelowLinesPropertyInfo), '("pixelsBelowLinesSet", TextTagPixelsBelowLinesSetPropertyInfo), '("pixelsInsideWrap", TextTagPixelsInsideWrapPropertyInfo), '("pixelsInsideWrapSet", TextTagPixelsInsideWrapSetPropertyInfo), '("rightMargin", TextTagRightMarginPropertyInfo), '("rightMarginSet", TextTagRightMarginSetPropertyInfo), '("rise", TextTagRisePropertyInfo), '("riseSet", TextTagRiseSetPropertyInfo), '("scale", TextTagScalePropertyInfo), '("scaleSet", TextTagScaleSetPropertyInfo), '("size", TextTagSizePropertyInfo), '("sizePoints", TextTagSizePointsPropertyInfo), '("sizeSet", TextTagSizeSetPropertyInfo), '("stretch", TextTagStretchPropertyInfo), '("stretchSet", TextTagStretchSetPropertyInfo), '("strikethrough", TextTagStrikethroughPropertyInfo), '("strikethroughRgba", TextTagStrikethroughRgbaPropertyInfo), '("strikethroughRgbaSet", TextTagStrikethroughRgbaSetPropertyInfo), '("strikethroughSet", TextTagStrikethroughSetPropertyInfo), '("style", TextTagStylePropertyInfo), '("styleSet", TextTagStyleSetPropertyInfo), '("tabs", TextTagTabsPropertyInfo), '("tabsSet", TextTagTabsSetPropertyInfo), '("underline", TextTagUnderlinePropertyInfo), '("underlineRgba", TextTagUnderlineRgbaPropertyInfo), '("underlineRgbaSet", TextTagUnderlineRgbaSetPropertyInfo), '("underlineSet", TextTagUnderlineSetPropertyInfo), '("variant", TextTagVariantPropertyInfo), '("variantSet", TextTagVariantSetPropertyInfo), '("weight", TextTagWeightPropertyInfo), '("weightSet", TextTagWeightSetPropertyInfo), '("wrapMode", TextTagWrapModePropertyInfo), '("wrapModeSet", TextTagWrapModeSetPropertyInfo)] :: [(Symbol, *)]) data TextTagEventSignalInfo instance SignalInfo TextTagEventSignalInfo where @@ -2427,13 +2467,12 @@ connectSignal _ = connectTextTagEvent type instance SignalList TextTag = TextTagSignalList -type TextTagSignalList = ('[ '("event", TextTagEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TextTagSignalList = ('[ '("event", TextTagEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TextTag::new -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TextTag" -- throws : False -- Skip return : False @@ -2445,8 +2484,8 @@ textTagNew :: (MonadIO m) => - Maybe (T.Text) -> -- name - m TextTag + Maybe (T.Text) -- name + -> m TextTag -- result textTagNew name = liftIO $ do maybeName <- case name of Nothing -> return nullPtr @@ -2461,9 +2500,8 @@ -- method TextTag::event -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -2478,29 +2516,32 @@ textTagEvent :: (MonadIO m, TextTagK a, GObject.ObjectK b) => - a -> -- _obj - b -> -- event_object - Gdk.Event -> -- event - TextIter -> -- iter - m Bool -textTagEvent _obj event_object event iter = liftIO $ do + a -- _obj + -> b -- eventObject + -> Gdk.Event -- event + -> TextIter -- iter + -> m Bool -- result +textTagEvent _obj eventObject event iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let event_object' = unsafeManagedPtrCastPtr event_object + let eventObject' = unsafeManagedPtrCastPtr eventObject let event' = unsafeManagedPtrGetPtr event let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_tag_event _obj' event_object' event' iter' + result <- gtk_text_tag_event _obj' eventObject' event' iter' let result' = (/= 0) result touchManagedPtr _obj - touchManagedPtr event_object + touchManagedPtr eventObject touchManagedPtr event touchManagedPtr iter return result' +data TextTagEventMethodInfo +instance (signature ~ (b -> Gdk.Event -> TextIter -> m Bool), MonadIO m, TextTagK a, GObject.ObjectK b) => MethodInfo TextTagEventMethodInfo a signature where + overloadedMethod _ = textTagEvent + -- method TextTag::get_priority -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -2512,19 +2553,22 @@ textTagGetPriority :: (MonadIO m, TextTagK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result textTagGetPriority _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_text_tag_get_priority _obj' touchManagedPtr _obj return result +data TextTagGetPriorityMethodInfo +instance (signature ~ (m Int32), MonadIO m, TextTagK a) => MethodInfo TextTagGetPriorityMethodInfo a signature where + overloadedMethod _ = textTagGetPriority + -- method TextTag::set_priority -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2537,13 +2581,17 @@ textTagSetPriority :: (MonadIO m, TextTagK a) => - a -> -- _obj - Int32 -> -- priority - m () + a -- _obj + -> Int32 -- priority + -> m () -- result textTagSetPriority _obj priority = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_text_tag_set_priority _obj' priority touchManagedPtr _obj return () + +data TextTagSetPriorityMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TextTagK a) => MethodInfo TextTagSetPriorityMethodInfo a signature where + overloadedMethod _ = textTagSetPriority diff --git a/GI/Gtk/Objects/TextTag.hs-boot b/GI/Gtk/Objects/TextTag.hs-boot --- a/GI/Gtk/Objects/TextTag.hs-boot +++ b/GI/Gtk/Objects/TextTag.hs-boot @@ -86,3 +86,6 @@ data TextTagWrapModePropertyInfo data TextTagWrapModeSetPropertyInfo data TextTagEventSignalInfo +data TextTagEventMethodInfo +data TextTagGetPriorityMethodInfo +data TextTagSetPriorityMethodInfo diff --git a/GI/Gtk/Objects/TextTagTable.hs b/GI/Gtk/Objects/TextTagTable.hs --- a/GI/Gtk/Objects/TextTagTable.hs +++ b/GI/Gtk/Objects/TextTagTable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** textTagTableAdd + TextTagTableAddMethodInfo , textTagTableAdd , -- ** textTagTableForeach + TextTagTableForeachMethodInfo , textTagTableForeach , -- ** textTagTableGetSize + TextTagTableGetSizeMethodInfo , textTagTableGetSize , -- ** textTagTableLookup + TextTagTableLookupMethodInfo , textTagTableLookup , @@ -37,6 +42,7 @@ -- ** textTagTableRemove + TextTagTableRemoveMethodInfo , textTagTableRemove , @@ -115,6 +121,54 @@ noTextTagTable :: Maybe TextTagTable noTextTagTable = Nothing +type family ResolveTextTagTableMethod (t :: Symbol) (o :: *) :: * where + ResolveTextTagTableMethod "add" o = TextTagTableAddMethodInfo + ResolveTextTagTableMethod "addChild" o = BuildableAddChildMethodInfo + ResolveTextTagTableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTextTagTableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTextTagTableMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveTextTagTableMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveTextTagTableMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveTextTagTableMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveTextTagTableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTextTagTableMethod "foreach" o = TextTagTableForeachMethodInfo + ResolveTextTagTableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTextTagTableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTextTagTableMethod "lookup" o = TextTagTableLookupMethodInfo + ResolveTextTagTableMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTextTagTableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTextTagTableMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveTextTagTableMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTextTagTableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTextTagTableMethod "remove" o = TextTagTableRemoveMethodInfo + ResolveTextTagTableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTextTagTableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTextTagTableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTextTagTableMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTextTagTableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTextTagTableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTextTagTableMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTextTagTableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTextTagTableMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTextTagTableMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveTextTagTableMethod "getName" o = BuildableGetNameMethodInfo + ResolveTextTagTableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTextTagTableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTextTagTableMethod "getSize" o = TextTagTableGetSizeMethodInfo + ResolveTextTagTableMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveTextTagTableMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTextTagTableMethod "setName" o = BuildableSetNameMethodInfo + ResolveTextTagTableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTextTagTableMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTextTagTableMethod t TextTagTable, MethodInfo info TextTagTable p) => IsLabelProxy t (TextTagTable -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTextTagTableMethod t TextTagTable, MethodInfo info TextTagTable p) => IsLabel t (TextTagTable -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal TextTagTable::tag-added type TextTagTableTagAddedCallback = TextTag -> @@ -187,10 +241,10 @@ CInt -> Ptr () -> IO () -textTagTableTagChangedCallbackWrapper _cb _ tag size_changed _ = do +textTagTableTagChangedCallbackWrapper _cb _ tag sizeChanged _ = do tag' <- (newObject TextTag) tag - let size_changed' = (/= 0) size_changed - _cb tag' size_changed' + let sizeChanged' = (/= 0) sizeChanged + _cb tag' sizeChanged' onTextTagTableTagChanged :: (GObject a, MonadIO m) => a -> TextTagTableTagChangedCallback -> m SignalHandlerId onTextTagTableTagChanged obj cb = liftIO $ connectTextTagTableTagChanged obj cb SignalConnectBefore @@ -264,13 +318,12 @@ connectSignal _ = connectTextTagTableTagRemoved type instance SignalList TextTagTable = TextTagTableSignalList -type TextTagTableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("tag-added", TextTagTableTagAddedSignalInfo), '("tag-changed", TextTagTableTagChangedSignalInfo), '("tag-removed", TextTagTableTagRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TextTagTableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("tagAdded", TextTagTableTagAddedSignalInfo), '("tagChanged", TextTagTableTagChangedSignalInfo), '("tagRemoved", TextTagTableTagRemovedSignalInfo)] :: [(Symbol, *)]) -- method TextTagTable::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "TextTagTable" -- throws : False -- Skip return : False @@ -281,7 +334,7 @@ textTagTableNew :: (MonadIO m) => - m TextTagTable + m TextTagTable -- result textTagTableNew = liftIO $ do result <- gtk_text_tag_table_new checkUnexpectedReturnNULL "gtk_text_tag_table_new" result @@ -290,9 +343,8 @@ -- method TextTagTable::add -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -305,9 +357,9 @@ textTagTableAdd :: (MonadIO m, TextTagTableK a, TextTagK b) => - a -> -- _obj - b -> -- tag - m Bool + a -- _obj + -> b -- tag + -> m Bool -- result textTagTableAdd _obj tag = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let tag' = unsafeManagedPtrCastPtr tag @@ -317,11 +369,14 @@ touchManagedPtr tag return result' +data TextTagTableAddMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, TextTagTableK a, TextTagK b) => MethodInfo TextTagTableAddMethodInfo a signature where + overloadedMethod _ = textTagTableAdd + -- method TextTagTable::foreach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TextTagTableForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TextTagTableForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TextTagTableForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -335,9 +390,9 @@ textTagTableForeach :: (MonadIO m, TextTagTableK a) => - a -> -- _obj - TextTagTableForeach -> -- func - m () + a -- _obj + -> TextTagTableForeach -- func + -> m () -- result textTagTableForeach _obj func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj func' <- mkTextTagTableForeach (textTagTableForeachWrapper Nothing func) @@ -347,11 +402,14 @@ touchManagedPtr _obj return () +data TextTagTableForeachMethodInfo +instance (signature ~ (TextTagTableForeach -> m ()), MonadIO m, TextTagTableK a) => MethodInfo TextTagTableForeachMethodInfo a signature where + overloadedMethod _ = textTagTableForeach + -- method TextTagTable::get_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -363,19 +421,22 @@ textTagTableGetSize :: (MonadIO m, TextTagTableK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result textTagTableGetSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_text_tag_table_get_size _obj' touchManagedPtr _obj return result +data TextTagTableGetSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m, TextTagTableK a) => MethodInfo TextTagTableGetSizeMethodInfo a signature where + overloadedMethod _ = textTagTableGetSize + -- method TextTagTable::lookup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TextTag" -- throws : False -- Skip return : False @@ -388,9 +449,9 @@ textTagTableLookup :: (MonadIO m, TextTagTableK a) => - a -> -- _obj - T.Text -> -- name - m TextTag + a -- _obj + -> T.Text -- name + -> m TextTag -- result textTagTableLookup _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -401,11 +462,14 @@ freeMem name' return result' +data TextTagTableLookupMethodInfo +instance (signature ~ (T.Text -> m TextTag), MonadIO m, TextTagTableK a) => MethodInfo TextTagTableLookupMethodInfo a signature where + overloadedMethod _ = textTagTableLookup + -- method TextTagTable::remove -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -418,9 +482,9 @@ textTagTableRemove :: (MonadIO m, TextTagTableK a, TextTagK b) => - a -> -- _obj - b -> -- tag - m () + a -- _obj + -> b -- tag + -> m () -- result textTagTableRemove _obj tag = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let tag' = unsafeManagedPtrCastPtr tag @@ -428,5 +492,9 @@ touchManagedPtr _obj touchManagedPtr tag return () + +data TextTagTableRemoveMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, TextTagTableK a, TextTagK b) => MethodInfo TextTagTableRemoveMethodInfo a signature where + overloadedMethod _ = textTagTableRemove diff --git a/GI/Gtk/Objects/TextTagTable.hs-boot b/GI/Gtk/Objects/TextTagTable.hs-boot --- a/GI/Gtk/Objects/TextTagTable.hs-boot +++ b/GI/Gtk/Objects/TextTagTable.hs-boot @@ -14,3 +14,8 @@ data TextTagTableTagAddedSignalInfo data TextTagTableTagChangedSignalInfo data TextTagTableTagRemovedSignalInfo +data TextTagTableAddMethodInfo +data TextTagTableForeachMethodInfo +data TextTagTableGetSizeMethodInfo +data TextTagTableLookupMethodInfo +data TextTagTableRemoveMethodInfo diff --git a/GI/Gtk/Objects/TextView.hs b/GI/Gtk/Objects/TextView.hs --- a/GI/Gtk/Objects/TextView.hs +++ b/GI/Gtk/Objects/TextView.hs @@ -1,3913 +1,4587 @@ -{- | -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.Objects.TextView - ( - --- * Exported types - TextView(..) , - TextViewK , - toTextView , - noTextView , - - - -- * Methods --- ** textViewAddChildAtAnchor - textViewAddChildAtAnchor , - - --- ** textViewAddChildInWindow - textViewAddChildInWindow , - - --- ** textViewBackwardDisplayLine - textViewBackwardDisplayLine , - - --- ** textViewBackwardDisplayLineStart - textViewBackwardDisplayLineStart , - - --- ** textViewBufferToWindowCoords - textViewBufferToWindowCoords , - - --- ** textViewForwardDisplayLine - textViewForwardDisplayLine , - - --- ** textViewForwardDisplayLineEnd - textViewForwardDisplayLineEnd , - - --- ** textViewGetAcceptsTab - textViewGetAcceptsTab , - - --- ** textViewGetBorderWindowSize - textViewGetBorderWindowSize , - - --- ** textViewGetBottomMargin - textViewGetBottomMargin , - - --- ** textViewGetBuffer - textViewGetBuffer , - - --- ** textViewGetCursorLocations - textViewGetCursorLocations , - - --- ** textViewGetCursorVisible - textViewGetCursorVisible , - - --- ** textViewGetDefaultAttributes - textViewGetDefaultAttributes , - - --- ** textViewGetEditable - textViewGetEditable , - - --- ** textViewGetHadjustment - textViewGetHadjustment , - - --- ** textViewGetIndent - textViewGetIndent , - - --- ** textViewGetInputHints - textViewGetInputHints , - - --- ** textViewGetInputPurpose - textViewGetInputPurpose , - - --- ** textViewGetIterAtLocation - textViewGetIterAtLocation , - - --- ** textViewGetIterAtPosition - textViewGetIterAtPosition , - - --- ** textViewGetIterLocation - textViewGetIterLocation , - - --- ** textViewGetJustification - textViewGetJustification , - - --- ** textViewGetLeftMargin - textViewGetLeftMargin , - - --- ** textViewGetLineAtY - textViewGetLineAtY , - - --- ** textViewGetLineYrange - textViewGetLineYrange , - - --- ** textViewGetMonospace - textViewGetMonospace , - - --- ** textViewGetOverwrite - textViewGetOverwrite , - - --- ** textViewGetPixelsAboveLines - textViewGetPixelsAboveLines , - - --- ** textViewGetPixelsBelowLines - textViewGetPixelsBelowLines , - - --- ** textViewGetPixelsInsideWrap - textViewGetPixelsInsideWrap , - - --- ** textViewGetRightMargin - textViewGetRightMargin , - - --- ** textViewGetTabs - textViewGetTabs , - - --- ** textViewGetTopMargin - textViewGetTopMargin , - - --- ** textViewGetVadjustment - textViewGetVadjustment , - - --- ** textViewGetVisibleRect - textViewGetVisibleRect , - - --- ** textViewGetWindow - textViewGetWindow , - - --- ** textViewGetWindowType - textViewGetWindowType , - - --- ** textViewGetWrapMode - textViewGetWrapMode , - - --- ** textViewImContextFilterKeypress - textViewImContextFilterKeypress , - - --- ** textViewMoveChild - textViewMoveChild , - - --- ** textViewMoveMarkOnscreen - textViewMoveMarkOnscreen , - - --- ** textViewMoveVisually - textViewMoveVisually , - - --- ** textViewNew - textViewNew , - - --- ** textViewNewWithBuffer - textViewNewWithBuffer , - - --- ** textViewPlaceCursorOnscreen - textViewPlaceCursorOnscreen , - - --- ** textViewResetImContext - textViewResetImContext , - - --- ** textViewScrollMarkOnscreen - textViewScrollMarkOnscreen , - - --- ** textViewScrollToIter - textViewScrollToIter , - - --- ** textViewScrollToMark - textViewScrollToMark , - - --- ** textViewSetAcceptsTab - textViewSetAcceptsTab , - - --- ** textViewSetBorderWindowSize - textViewSetBorderWindowSize , - - --- ** textViewSetBottomMargin - textViewSetBottomMargin , - - --- ** textViewSetBuffer - textViewSetBuffer , - - --- ** textViewSetCursorVisible - textViewSetCursorVisible , - - --- ** textViewSetEditable - textViewSetEditable , - - --- ** textViewSetIndent - textViewSetIndent , - - --- ** textViewSetInputHints - textViewSetInputHints , - - --- ** textViewSetInputPurpose - textViewSetInputPurpose , - - --- ** textViewSetJustification - textViewSetJustification , - - --- ** textViewSetLeftMargin - textViewSetLeftMargin , - - --- ** textViewSetMonospace - textViewSetMonospace , - - --- ** textViewSetOverwrite - textViewSetOverwrite , - - --- ** textViewSetPixelsAboveLines - textViewSetPixelsAboveLines , - - --- ** textViewSetPixelsBelowLines - textViewSetPixelsBelowLines , - - --- ** textViewSetPixelsInsideWrap - textViewSetPixelsInsideWrap , - - --- ** textViewSetRightMargin - textViewSetRightMargin , - - --- ** textViewSetTabs - textViewSetTabs , - - --- ** textViewSetTopMargin - textViewSetTopMargin , - - --- ** textViewSetWrapMode - textViewSetWrapMode , - - --- ** textViewStartsDisplayLine - textViewStartsDisplayLine , - - --- ** textViewWindowToBufferCoords - textViewWindowToBufferCoords , - - - - - -- * Properties --- ** AcceptsTab - TextViewAcceptsTabPropertyInfo , - constructTextViewAcceptsTab , - getTextViewAcceptsTab , - setTextViewAcceptsTab , - - --- ** BottomMargin - TextViewBottomMarginPropertyInfo , - constructTextViewBottomMargin , - getTextViewBottomMargin , - setTextViewBottomMargin , - - --- ** Buffer - TextViewBufferPropertyInfo , - constructTextViewBuffer , - getTextViewBuffer , - setTextViewBuffer , - - --- ** CursorVisible - TextViewCursorVisiblePropertyInfo , - constructTextViewCursorVisible , - getTextViewCursorVisible , - setTextViewCursorVisible , - - --- ** Editable - TextViewEditablePropertyInfo , - constructTextViewEditable , - getTextViewEditable , - setTextViewEditable , - - --- ** ImModule - TextViewImModulePropertyInfo , - constructTextViewImModule , - getTextViewImModule , - setTextViewImModule , - - --- ** Indent - TextViewIndentPropertyInfo , - constructTextViewIndent , - getTextViewIndent , - setTextViewIndent , - - --- ** InputHints - TextViewInputHintsPropertyInfo , - constructTextViewInputHints , - getTextViewInputHints , - setTextViewInputHints , - - --- ** InputPurpose - TextViewInputPurposePropertyInfo , - constructTextViewInputPurpose , - getTextViewInputPurpose , - setTextViewInputPurpose , - - --- ** Justification - TextViewJustificationPropertyInfo , - constructTextViewJustification , - getTextViewJustification , - setTextViewJustification , - - --- ** LeftMargin - TextViewLeftMarginPropertyInfo , - constructTextViewLeftMargin , - getTextViewLeftMargin , - setTextViewLeftMargin , - - --- ** Monospace - TextViewMonospacePropertyInfo , - constructTextViewMonospace , - getTextViewMonospace , - setTextViewMonospace , - - --- ** Overwrite - TextViewOverwritePropertyInfo , - constructTextViewOverwrite , - getTextViewOverwrite , - setTextViewOverwrite , - - --- ** PixelsAboveLines - TextViewPixelsAboveLinesPropertyInfo , - constructTextViewPixelsAboveLines , - getTextViewPixelsAboveLines , - setTextViewPixelsAboveLines , - - --- ** PixelsBelowLines - TextViewPixelsBelowLinesPropertyInfo , - constructTextViewPixelsBelowLines , - getTextViewPixelsBelowLines , - setTextViewPixelsBelowLines , - - --- ** PixelsInsideWrap - TextViewPixelsInsideWrapPropertyInfo , - constructTextViewPixelsInsideWrap , - getTextViewPixelsInsideWrap , - setTextViewPixelsInsideWrap , - - --- ** PopulateAll - TextViewPopulateAllPropertyInfo , - constructTextViewPopulateAll , - getTextViewPopulateAll , - setTextViewPopulateAll , - - --- ** RightMargin - TextViewRightMarginPropertyInfo , - constructTextViewRightMargin , - getTextViewRightMargin , - setTextViewRightMargin , - - --- ** Tabs - TextViewTabsPropertyInfo , - constructTextViewTabs , - getTextViewTabs , - setTextViewTabs , - - --- ** TopMargin - TextViewTopMarginPropertyInfo , - constructTextViewTopMargin , - getTextViewTopMargin , - setTextViewTopMargin , - - --- ** WrapMode - TextViewWrapModePropertyInfo , - constructTextViewWrapMode , - getTextViewWrapMode , - setTextViewWrapMode , - - - - - -- * Signals --- ** Backspace - TextViewBackspaceCallback , - TextViewBackspaceCallbackC , - TextViewBackspaceSignalInfo , - afterTextViewBackspace , - mkTextViewBackspaceCallback , - noTextViewBackspaceCallback , - onTextViewBackspace , - textViewBackspaceCallbackWrapper , - textViewBackspaceClosure , - - --- ** CopyClipboard - TextViewCopyClipboardCallback , - TextViewCopyClipboardCallbackC , - TextViewCopyClipboardSignalInfo , - afterTextViewCopyClipboard , - mkTextViewCopyClipboardCallback , - noTextViewCopyClipboardCallback , - onTextViewCopyClipboard , - textViewCopyClipboardCallbackWrapper , - textViewCopyClipboardClosure , - - --- ** CutClipboard - TextViewCutClipboardCallback , - TextViewCutClipboardCallbackC , - TextViewCutClipboardSignalInfo , - afterTextViewCutClipboard , - mkTextViewCutClipboardCallback , - noTextViewCutClipboardCallback , - onTextViewCutClipboard , - textViewCutClipboardCallbackWrapper , - textViewCutClipboardClosure , - - --- ** DeleteFromCursor - TextViewDeleteFromCursorCallback , - TextViewDeleteFromCursorCallbackC , - TextViewDeleteFromCursorSignalInfo , - afterTextViewDeleteFromCursor , - mkTextViewDeleteFromCursorCallback , - noTextViewDeleteFromCursorCallback , - onTextViewDeleteFromCursor , - textViewDeleteFromCursorCallbackWrapper , - textViewDeleteFromCursorClosure , - - --- ** ExtendSelection - TextViewExtendSelectionCallback , - TextViewExtendSelectionCallbackC , - TextViewExtendSelectionSignalInfo , - afterTextViewExtendSelection , - mkTextViewExtendSelectionCallback , - noTextViewExtendSelectionCallback , - onTextViewExtendSelection , - textViewExtendSelectionCallbackWrapper , - textViewExtendSelectionClosure , - - --- ** InsertAtCursor - TextViewInsertAtCursorCallback , - TextViewInsertAtCursorCallbackC , - TextViewInsertAtCursorSignalInfo , - afterTextViewInsertAtCursor , - mkTextViewInsertAtCursorCallback , - noTextViewInsertAtCursorCallback , - onTextViewInsertAtCursor , - textViewInsertAtCursorCallbackWrapper , - textViewInsertAtCursorClosure , - - --- ** MoveCursor - TextViewMoveCursorCallback , - TextViewMoveCursorCallbackC , - TextViewMoveCursorSignalInfo , - afterTextViewMoveCursor , - mkTextViewMoveCursorCallback , - noTextViewMoveCursorCallback , - onTextViewMoveCursor , - textViewMoveCursorCallbackWrapper , - textViewMoveCursorClosure , - - --- ** MoveViewport - TextViewMoveViewportCallback , - TextViewMoveViewportCallbackC , - TextViewMoveViewportSignalInfo , - afterTextViewMoveViewport , - mkTextViewMoveViewportCallback , - noTextViewMoveViewportCallback , - onTextViewMoveViewport , - textViewMoveViewportCallbackWrapper , - textViewMoveViewportClosure , - - --- ** PasteClipboard - TextViewPasteClipboardCallback , - TextViewPasteClipboardCallbackC , - TextViewPasteClipboardSignalInfo , - afterTextViewPasteClipboard , - mkTextViewPasteClipboardCallback , - noTextViewPasteClipboardCallback , - onTextViewPasteClipboard , - textViewPasteClipboardCallbackWrapper , - textViewPasteClipboardClosure , - - --- ** PopulatePopup - TextViewPopulatePopupCallback , - TextViewPopulatePopupCallbackC , - TextViewPopulatePopupSignalInfo , - afterTextViewPopulatePopup , - mkTextViewPopulatePopupCallback , - noTextViewPopulatePopupCallback , - onTextViewPopulatePopup , - textViewPopulatePopupCallbackWrapper , - textViewPopulatePopupClosure , - - --- ** PreeditChanged - TextViewPreeditChangedCallback , - TextViewPreeditChangedCallbackC , - TextViewPreeditChangedSignalInfo , - afterTextViewPreeditChanged , - mkTextViewPreeditChangedCallback , - noTextViewPreeditChangedCallback , - onTextViewPreeditChanged , - textViewPreeditChangedCallbackWrapper , - textViewPreeditChangedClosure , - - --- ** SelectAll - TextViewSelectAllCallback , - TextViewSelectAllCallbackC , - TextViewSelectAllSignalInfo , - afterTextViewSelectAll , - mkTextViewSelectAllCallback , - noTextViewSelectAllCallback , - onTextViewSelectAll , - textViewSelectAllCallbackWrapper , - textViewSelectAllClosure , - - --- ** SetAnchor - TextViewSetAnchorCallback , - TextViewSetAnchorCallbackC , - TextViewSetAnchorSignalInfo , - afterTextViewSetAnchor , - mkTextViewSetAnchorCallback , - noTextViewSetAnchorCallback , - onTextViewSetAnchor , - textViewSetAnchorCallbackWrapper , - textViewSetAnchorClosure , - - --- ** ToggleCursorVisible - TextViewToggleCursorVisibleCallback , - TextViewToggleCursorVisibleCallbackC , - TextViewToggleCursorVisibleSignalInfo , - afterTextViewToggleCursorVisible , - mkTextViewToggleCursorVisibleCallback , - noTextViewToggleCursorVisibleCallback , - onTextViewToggleCursorVisible , - textViewToggleCursorVisibleCallbackWrapper, - textViewToggleCursorVisibleClosure , - - --- ** ToggleOverwrite - TextViewToggleOverwriteCallback , - TextViewToggleOverwriteCallbackC , - TextViewToggleOverwriteSignalInfo , - afterTextViewToggleOverwrite , - mkTextViewToggleOverwriteCallback , - noTextViewToggleOverwriteCallback , - onTextViewToggleOverwrite , - textViewToggleOverwriteCallbackWrapper , - textViewToggleOverwriteClosure , - - - - - ) 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.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Pango as Pango - -newtype TextView = TextView (ForeignPtr TextView) -foreign import ccall "gtk_text_view_get_type" - c_gtk_text_view_get_type :: IO GType - -type instance ParentTypes TextView = TextViewParentTypes -type TextViewParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Scrollable] - -instance GObject TextView where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_text_view_get_type - - -class GObject o => TextViewK o -instance (GObject o, IsDescendantOf TextView o) => TextViewK o - -toTextView :: TextViewK o => o -> IO TextView -toTextView = unsafeCastTo TextView - -noTextView :: Maybe TextView -noTextView = Nothing - --- signal TextView::backspace -type TextViewBackspaceCallback = - IO () - -noTextViewBackspaceCallback :: Maybe TextViewBackspaceCallback -noTextViewBackspaceCallback = Nothing - -type TextViewBackspaceCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewBackspaceCallback :: TextViewBackspaceCallbackC -> IO (FunPtr TextViewBackspaceCallbackC) - -textViewBackspaceClosure :: TextViewBackspaceCallback -> IO Closure -textViewBackspaceClosure cb = newCClosure =<< mkTextViewBackspaceCallback wrapped - where wrapped = textViewBackspaceCallbackWrapper cb - -textViewBackspaceCallbackWrapper :: - TextViewBackspaceCallback -> - Ptr () -> - Ptr () -> - IO () -textViewBackspaceCallbackWrapper _cb _ _ = do - _cb - -onTextViewBackspace :: (GObject a, MonadIO m) => a -> TextViewBackspaceCallback -> m SignalHandlerId -onTextViewBackspace obj cb = liftIO $ connectTextViewBackspace obj cb SignalConnectBefore -afterTextViewBackspace :: (GObject a, MonadIO m) => a -> TextViewBackspaceCallback -> m SignalHandlerId -afterTextViewBackspace obj cb = connectTextViewBackspace obj cb SignalConnectAfter - -connectTextViewBackspace :: (GObject a, MonadIO m) => - a -> TextViewBackspaceCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewBackspace obj cb after = liftIO $ do - cb' <- mkTextViewBackspaceCallback (textViewBackspaceCallbackWrapper cb) - connectSignalFunPtr obj "backspace" cb' after - --- signal TextView::copy-clipboard -type TextViewCopyClipboardCallback = - IO () - -noTextViewCopyClipboardCallback :: Maybe TextViewCopyClipboardCallback -noTextViewCopyClipboardCallback = Nothing - -type TextViewCopyClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewCopyClipboardCallback :: TextViewCopyClipboardCallbackC -> IO (FunPtr TextViewCopyClipboardCallbackC) - -textViewCopyClipboardClosure :: TextViewCopyClipboardCallback -> IO Closure -textViewCopyClipboardClosure cb = newCClosure =<< mkTextViewCopyClipboardCallback wrapped - where wrapped = textViewCopyClipboardCallbackWrapper cb - -textViewCopyClipboardCallbackWrapper :: - TextViewCopyClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -textViewCopyClipboardCallbackWrapper _cb _ _ = do - _cb - -onTextViewCopyClipboard :: (GObject a, MonadIO m) => a -> TextViewCopyClipboardCallback -> m SignalHandlerId -onTextViewCopyClipboard obj cb = liftIO $ connectTextViewCopyClipboard obj cb SignalConnectBefore -afterTextViewCopyClipboard :: (GObject a, MonadIO m) => a -> TextViewCopyClipboardCallback -> m SignalHandlerId -afterTextViewCopyClipboard obj cb = connectTextViewCopyClipboard obj cb SignalConnectAfter - -connectTextViewCopyClipboard :: (GObject a, MonadIO m) => - a -> TextViewCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewCopyClipboard obj cb after = liftIO $ do - cb' <- mkTextViewCopyClipboardCallback (textViewCopyClipboardCallbackWrapper cb) - connectSignalFunPtr obj "copy-clipboard" cb' after - --- signal TextView::cut-clipboard -type TextViewCutClipboardCallback = - IO () - -noTextViewCutClipboardCallback :: Maybe TextViewCutClipboardCallback -noTextViewCutClipboardCallback = Nothing - -type TextViewCutClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewCutClipboardCallback :: TextViewCutClipboardCallbackC -> IO (FunPtr TextViewCutClipboardCallbackC) - -textViewCutClipboardClosure :: TextViewCutClipboardCallback -> IO Closure -textViewCutClipboardClosure cb = newCClosure =<< mkTextViewCutClipboardCallback wrapped - where wrapped = textViewCutClipboardCallbackWrapper cb - -textViewCutClipboardCallbackWrapper :: - TextViewCutClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -textViewCutClipboardCallbackWrapper _cb _ _ = do - _cb - -onTextViewCutClipboard :: (GObject a, MonadIO m) => a -> TextViewCutClipboardCallback -> m SignalHandlerId -onTextViewCutClipboard obj cb = liftIO $ connectTextViewCutClipboard obj cb SignalConnectBefore -afterTextViewCutClipboard :: (GObject a, MonadIO m) => a -> TextViewCutClipboardCallback -> m SignalHandlerId -afterTextViewCutClipboard obj cb = connectTextViewCutClipboard obj cb SignalConnectAfter - -connectTextViewCutClipboard :: (GObject a, MonadIO m) => - a -> TextViewCutClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewCutClipboard obj cb after = liftIO $ do - cb' <- mkTextViewCutClipboardCallback (textViewCutClipboardCallbackWrapper cb) - connectSignalFunPtr obj "cut-clipboard" cb' after - --- signal TextView::delete-from-cursor -type TextViewDeleteFromCursorCallback = - DeleteType -> - Int32 -> - IO () - -noTextViewDeleteFromCursorCallback :: Maybe TextViewDeleteFromCursorCallback -noTextViewDeleteFromCursorCallback = Nothing - -type TextViewDeleteFromCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewDeleteFromCursorCallback :: TextViewDeleteFromCursorCallbackC -> IO (FunPtr TextViewDeleteFromCursorCallbackC) - -textViewDeleteFromCursorClosure :: TextViewDeleteFromCursorCallback -> IO Closure -textViewDeleteFromCursorClosure cb = newCClosure =<< mkTextViewDeleteFromCursorCallback wrapped - where wrapped = textViewDeleteFromCursorCallbackWrapper cb - -textViewDeleteFromCursorCallbackWrapper :: - TextViewDeleteFromCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - Ptr () -> - IO () -textViewDeleteFromCursorCallbackWrapper _cb _ type_ count _ = do - let type_' = (toEnum . fromIntegral) type_ - _cb type_' count - -onTextViewDeleteFromCursor :: (GObject a, MonadIO m) => a -> TextViewDeleteFromCursorCallback -> m SignalHandlerId -onTextViewDeleteFromCursor obj cb = liftIO $ connectTextViewDeleteFromCursor obj cb SignalConnectBefore -afterTextViewDeleteFromCursor :: (GObject a, MonadIO m) => a -> TextViewDeleteFromCursorCallback -> m SignalHandlerId -afterTextViewDeleteFromCursor obj cb = connectTextViewDeleteFromCursor obj cb SignalConnectAfter - -connectTextViewDeleteFromCursor :: (GObject a, MonadIO m) => - a -> TextViewDeleteFromCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewDeleteFromCursor obj cb after = liftIO $ do - cb' <- mkTextViewDeleteFromCursorCallback (textViewDeleteFromCursorCallbackWrapper cb) - connectSignalFunPtr obj "delete-from-cursor" cb' after - --- signal TextView::extend-selection -type TextViewExtendSelectionCallback = - TextExtendSelection -> - TextIter -> - TextIter -> - TextIter -> - IO Bool - -noTextViewExtendSelectionCallback :: Maybe TextViewExtendSelectionCallback -noTextViewExtendSelectionCallback = Nothing - -type TextViewExtendSelectionCallbackC = - Ptr () -> -- object - CUInt -> - Ptr TextIter -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTextViewExtendSelectionCallback :: TextViewExtendSelectionCallbackC -> IO (FunPtr TextViewExtendSelectionCallbackC) - -textViewExtendSelectionClosure :: TextViewExtendSelectionCallback -> IO Closure -textViewExtendSelectionClosure cb = newCClosure =<< mkTextViewExtendSelectionCallback wrapped - where wrapped = textViewExtendSelectionCallbackWrapper cb - -textViewExtendSelectionCallbackWrapper :: - TextViewExtendSelectionCallback -> - Ptr () -> - CUInt -> - Ptr TextIter -> - Ptr TextIter -> - Ptr TextIter -> - Ptr () -> - IO CInt -textViewExtendSelectionCallbackWrapper _cb _ granularity location start end _ = do - let granularity' = (toEnum . fromIntegral) granularity - location' <- (newBoxed TextIter) location - start' <- (newBoxed TextIter) start - end' <- (newBoxed TextIter) end - result <- _cb granularity' location' start' end' - let result' = (fromIntegral . fromEnum) result - return result' - -onTextViewExtendSelection :: (GObject a, MonadIO m) => a -> TextViewExtendSelectionCallback -> m SignalHandlerId -onTextViewExtendSelection obj cb = liftIO $ connectTextViewExtendSelection obj cb SignalConnectBefore -afterTextViewExtendSelection :: (GObject a, MonadIO m) => a -> TextViewExtendSelectionCallback -> m SignalHandlerId -afterTextViewExtendSelection obj cb = connectTextViewExtendSelection obj cb SignalConnectAfter - -connectTextViewExtendSelection :: (GObject a, MonadIO m) => - a -> TextViewExtendSelectionCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewExtendSelection obj cb after = liftIO $ do - cb' <- mkTextViewExtendSelectionCallback (textViewExtendSelectionCallbackWrapper cb) - connectSignalFunPtr obj "extend-selection" cb' after - --- signal TextView::insert-at-cursor -type TextViewInsertAtCursorCallback = - T.Text -> - IO () - -noTextViewInsertAtCursorCallback :: Maybe TextViewInsertAtCursorCallback -noTextViewInsertAtCursorCallback = Nothing - -type TextViewInsertAtCursorCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewInsertAtCursorCallback :: TextViewInsertAtCursorCallbackC -> IO (FunPtr TextViewInsertAtCursorCallbackC) - -textViewInsertAtCursorClosure :: TextViewInsertAtCursorCallback -> IO Closure -textViewInsertAtCursorClosure cb = newCClosure =<< mkTextViewInsertAtCursorCallback wrapped - where wrapped = textViewInsertAtCursorCallbackWrapper cb - -textViewInsertAtCursorCallbackWrapper :: - TextViewInsertAtCursorCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -textViewInsertAtCursorCallbackWrapper _cb _ string _ = do - string' <- cstringToText string - _cb string' - -onTextViewInsertAtCursor :: (GObject a, MonadIO m) => a -> TextViewInsertAtCursorCallback -> m SignalHandlerId -onTextViewInsertAtCursor obj cb = liftIO $ connectTextViewInsertAtCursor obj cb SignalConnectBefore -afterTextViewInsertAtCursor :: (GObject a, MonadIO m) => a -> TextViewInsertAtCursorCallback -> m SignalHandlerId -afterTextViewInsertAtCursor obj cb = connectTextViewInsertAtCursor obj cb SignalConnectAfter - -connectTextViewInsertAtCursor :: (GObject a, MonadIO m) => - a -> TextViewInsertAtCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewInsertAtCursor obj cb after = liftIO $ do - cb' <- mkTextViewInsertAtCursorCallback (textViewInsertAtCursorCallbackWrapper cb) - connectSignalFunPtr obj "insert-at-cursor" cb' after - --- signal TextView::move-cursor -type TextViewMoveCursorCallback = - MovementStep -> - Int32 -> - Bool -> - IO () - -noTextViewMoveCursorCallback :: Maybe TextViewMoveCursorCallback -noTextViewMoveCursorCallback = Nothing - -type TextViewMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewMoveCursorCallback :: TextViewMoveCursorCallbackC -> IO (FunPtr TextViewMoveCursorCallbackC) - -textViewMoveCursorClosure :: TextViewMoveCursorCallback -> IO Closure -textViewMoveCursorClosure cb = newCClosure =<< mkTextViewMoveCursorCallback wrapped - where wrapped = textViewMoveCursorCallbackWrapper cb - -textViewMoveCursorCallbackWrapper :: - TextViewMoveCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - CInt -> - Ptr () -> - IO () -textViewMoveCursorCallbackWrapper _cb _ step count extend_selection _ = do - let step' = (toEnum . fromIntegral) step - let extend_selection' = (/= 0) extend_selection - _cb step' count extend_selection' - -onTextViewMoveCursor :: (GObject a, MonadIO m) => a -> TextViewMoveCursorCallback -> m SignalHandlerId -onTextViewMoveCursor obj cb = liftIO $ connectTextViewMoveCursor obj cb SignalConnectBefore -afterTextViewMoveCursor :: (GObject a, MonadIO m) => a -> TextViewMoveCursorCallback -> m SignalHandlerId -afterTextViewMoveCursor obj cb = connectTextViewMoveCursor obj cb SignalConnectAfter - -connectTextViewMoveCursor :: (GObject a, MonadIO m) => - a -> TextViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewMoveCursor obj cb after = liftIO $ do - cb' <- mkTextViewMoveCursorCallback (textViewMoveCursorCallbackWrapper cb) - connectSignalFunPtr obj "move-cursor" cb' after - --- signal TextView::move-viewport -type TextViewMoveViewportCallback = - ScrollStep -> - Int32 -> - IO () - -noTextViewMoveViewportCallback :: Maybe TextViewMoveViewportCallback -noTextViewMoveViewportCallback = Nothing - -type TextViewMoveViewportCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewMoveViewportCallback :: TextViewMoveViewportCallbackC -> IO (FunPtr TextViewMoveViewportCallbackC) - -textViewMoveViewportClosure :: TextViewMoveViewportCallback -> IO Closure -textViewMoveViewportClosure cb = newCClosure =<< mkTextViewMoveViewportCallback wrapped - where wrapped = textViewMoveViewportCallbackWrapper cb - -textViewMoveViewportCallbackWrapper :: - TextViewMoveViewportCallback -> - Ptr () -> - CUInt -> - Int32 -> - Ptr () -> - IO () -textViewMoveViewportCallbackWrapper _cb _ step count _ = do - let step' = (toEnum . fromIntegral) step - _cb step' count - -onTextViewMoveViewport :: (GObject a, MonadIO m) => a -> TextViewMoveViewportCallback -> m SignalHandlerId -onTextViewMoveViewport obj cb = liftIO $ connectTextViewMoveViewport obj cb SignalConnectBefore -afterTextViewMoveViewport :: (GObject a, MonadIO m) => a -> TextViewMoveViewportCallback -> m SignalHandlerId -afterTextViewMoveViewport obj cb = connectTextViewMoveViewport obj cb SignalConnectAfter - -connectTextViewMoveViewport :: (GObject a, MonadIO m) => - a -> TextViewMoveViewportCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewMoveViewport obj cb after = liftIO $ do - cb' <- mkTextViewMoveViewportCallback (textViewMoveViewportCallbackWrapper cb) - connectSignalFunPtr obj "move-viewport" cb' after - --- signal TextView::paste-clipboard -type TextViewPasteClipboardCallback = - IO () - -noTextViewPasteClipboardCallback :: Maybe TextViewPasteClipboardCallback -noTextViewPasteClipboardCallback = Nothing - -type TextViewPasteClipboardCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewPasteClipboardCallback :: TextViewPasteClipboardCallbackC -> IO (FunPtr TextViewPasteClipboardCallbackC) - -textViewPasteClipboardClosure :: TextViewPasteClipboardCallback -> IO Closure -textViewPasteClipboardClosure cb = newCClosure =<< mkTextViewPasteClipboardCallback wrapped - where wrapped = textViewPasteClipboardCallbackWrapper cb - -textViewPasteClipboardCallbackWrapper :: - TextViewPasteClipboardCallback -> - Ptr () -> - Ptr () -> - IO () -textViewPasteClipboardCallbackWrapper _cb _ _ = do - _cb - -onTextViewPasteClipboard :: (GObject a, MonadIO m) => a -> TextViewPasteClipboardCallback -> m SignalHandlerId -onTextViewPasteClipboard obj cb = liftIO $ connectTextViewPasteClipboard obj cb SignalConnectBefore -afterTextViewPasteClipboard :: (GObject a, MonadIO m) => a -> TextViewPasteClipboardCallback -> m SignalHandlerId -afterTextViewPasteClipboard obj cb = connectTextViewPasteClipboard obj cb SignalConnectAfter - -connectTextViewPasteClipboard :: (GObject a, MonadIO m) => - a -> TextViewPasteClipboardCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewPasteClipboard obj cb after = liftIO $ do - cb' <- mkTextViewPasteClipboardCallback (textViewPasteClipboardCallbackWrapper cb) - connectSignalFunPtr obj "paste-clipboard" cb' after - --- signal TextView::populate-popup -type TextViewPopulatePopupCallback = - Widget -> - IO () - -noTextViewPopulatePopupCallback :: Maybe TextViewPopulatePopupCallback -noTextViewPopulatePopupCallback = Nothing - -type TextViewPopulatePopupCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewPopulatePopupCallback :: TextViewPopulatePopupCallbackC -> IO (FunPtr TextViewPopulatePopupCallbackC) - -textViewPopulatePopupClosure :: TextViewPopulatePopupCallback -> IO Closure -textViewPopulatePopupClosure cb = newCClosure =<< mkTextViewPopulatePopupCallback wrapped - where wrapped = textViewPopulatePopupCallbackWrapper cb - -textViewPopulatePopupCallbackWrapper :: - TextViewPopulatePopupCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -textViewPopulatePopupCallbackWrapper _cb _ popup _ = do - popup' <- (newObject Widget) popup - _cb popup' - -onTextViewPopulatePopup :: (GObject a, MonadIO m) => a -> TextViewPopulatePopupCallback -> m SignalHandlerId -onTextViewPopulatePopup obj cb = liftIO $ connectTextViewPopulatePopup obj cb SignalConnectBefore -afterTextViewPopulatePopup :: (GObject a, MonadIO m) => a -> TextViewPopulatePopupCallback -> m SignalHandlerId -afterTextViewPopulatePopup obj cb = connectTextViewPopulatePopup obj cb SignalConnectAfter - -connectTextViewPopulatePopup :: (GObject a, MonadIO m) => - a -> TextViewPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewPopulatePopup obj cb after = liftIO $ do - cb' <- mkTextViewPopulatePopupCallback (textViewPopulatePopupCallbackWrapper cb) - connectSignalFunPtr obj "populate-popup" cb' after - --- signal TextView::preedit-changed -type TextViewPreeditChangedCallback = - T.Text -> - IO () - -noTextViewPreeditChangedCallback :: Maybe TextViewPreeditChangedCallback -noTextViewPreeditChangedCallback = Nothing - -type TextViewPreeditChangedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewPreeditChangedCallback :: TextViewPreeditChangedCallbackC -> IO (FunPtr TextViewPreeditChangedCallbackC) - -textViewPreeditChangedClosure :: TextViewPreeditChangedCallback -> IO Closure -textViewPreeditChangedClosure cb = newCClosure =<< mkTextViewPreeditChangedCallback wrapped - where wrapped = textViewPreeditChangedCallbackWrapper cb - -textViewPreeditChangedCallbackWrapper :: - TextViewPreeditChangedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -textViewPreeditChangedCallbackWrapper _cb _ preedit _ = do - preedit' <- cstringToText preedit - _cb preedit' - -onTextViewPreeditChanged :: (GObject a, MonadIO m) => a -> TextViewPreeditChangedCallback -> m SignalHandlerId -onTextViewPreeditChanged obj cb = liftIO $ connectTextViewPreeditChanged obj cb SignalConnectBefore -afterTextViewPreeditChanged :: (GObject a, MonadIO m) => a -> TextViewPreeditChangedCallback -> m SignalHandlerId -afterTextViewPreeditChanged obj cb = connectTextViewPreeditChanged obj cb SignalConnectAfter - -connectTextViewPreeditChanged :: (GObject a, MonadIO m) => - a -> TextViewPreeditChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewPreeditChanged obj cb after = liftIO $ do - cb' <- mkTextViewPreeditChangedCallback (textViewPreeditChangedCallbackWrapper cb) - connectSignalFunPtr obj "preedit-changed" cb' after - --- signal TextView::select-all -type TextViewSelectAllCallback = - Bool -> - IO () - -noTextViewSelectAllCallback :: Maybe TextViewSelectAllCallback -noTextViewSelectAllCallback = Nothing - -type TextViewSelectAllCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewSelectAllCallback :: TextViewSelectAllCallbackC -> IO (FunPtr TextViewSelectAllCallbackC) - -textViewSelectAllClosure :: TextViewSelectAllCallback -> IO Closure -textViewSelectAllClosure cb = newCClosure =<< mkTextViewSelectAllCallback wrapped - where wrapped = textViewSelectAllCallbackWrapper cb - -textViewSelectAllCallbackWrapper :: - TextViewSelectAllCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO () -textViewSelectAllCallbackWrapper _cb _ select _ = do - let select' = (/= 0) select - _cb select' - -onTextViewSelectAll :: (GObject a, MonadIO m) => a -> TextViewSelectAllCallback -> m SignalHandlerId -onTextViewSelectAll obj cb = liftIO $ connectTextViewSelectAll obj cb SignalConnectBefore -afterTextViewSelectAll :: (GObject a, MonadIO m) => a -> TextViewSelectAllCallback -> m SignalHandlerId -afterTextViewSelectAll obj cb = connectTextViewSelectAll obj cb SignalConnectAfter - -connectTextViewSelectAll :: (GObject a, MonadIO m) => - a -> TextViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewSelectAll obj cb after = liftIO $ do - cb' <- mkTextViewSelectAllCallback (textViewSelectAllCallbackWrapper cb) - connectSignalFunPtr obj "select-all" cb' after - --- signal TextView::set-anchor -type TextViewSetAnchorCallback = - IO () - -noTextViewSetAnchorCallback :: Maybe TextViewSetAnchorCallback -noTextViewSetAnchorCallback = Nothing - -type TextViewSetAnchorCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewSetAnchorCallback :: TextViewSetAnchorCallbackC -> IO (FunPtr TextViewSetAnchorCallbackC) - -textViewSetAnchorClosure :: TextViewSetAnchorCallback -> IO Closure -textViewSetAnchorClosure cb = newCClosure =<< mkTextViewSetAnchorCallback wrapped - where wrapped = textViewSetAnchorCallbackWrapper cb - -textViewSetAnchorCallbackWrapper :: - TextViewSetAnchorCallback -> - Ptr () -> - Ptr () -> - IO () -textViewSetAnchorCallbackWrapper _cb _ _ = do - _cb - -onTextViewSetAnchor :: (GObject a, MonadIO m) => a -> TextViewSetAnchorCallback -> m SignalHandlerId -onTextViewSetAnchor obj cb = liftIO $ connectTextViewSetAnchor obj cb SignalConnectBefore -afterTextViewSetAnchor :: (GObject a, MonadIO m) => a -> TextViewSetAnchorCallback -> m SignalHandlerId -afterTextViewSetAnchor obj cb = connectTextViewSetAnchor obj cb SignalConnectAfter - -connectTextViewSetAnchor :: (GObject a, MonadIO m) => - a -> TextViewSetAnchorCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewSetAnchor obj cb after = liftIO $ do - cb' <- mkTextViewSetAnchorCallback (textViewSetAnchorCallbackWrapper cb) - connectSignalFunPtr obj "set-anchor" cb' after - --- signal TextView::toggle-cursor-visible -type TextViewToggleCursorVisibleCallback = - IO () - -noTextViewToggleCursorVisibleCallback :: Maybe TextViewToggleCursorVisibleCallback -noTextViewToggleCursorVisibleCallback = Nothing - -type TextViewToggleCursorVisibleCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewToggleCursorVisibleCallback :: TextViewToggleCursorVisibleCallbackC -> IO (FunPtr TextViewToggleCursorVisibleCallbackC) - -textViewToggleCursorVisibleClosure :: TextViewToggleCursorVisibleCallback -> IO Closure -textViewToggleCursorVisibleClosure cb = newCClosure =<< mkTextViewToggleCursorVisibleCallback wrapped - where wrapped = textViewToggleCursorVisibleCallbackWrapper cb - -textViewToggleCursorVisibleCallbackWrapper :: - TextViewToggleCursorVisibleCallback -> - Ptr () -> - Ptr () -> - IO () -textViewToggleCursorVisibleCallbackWrapper _cb _ _ = do - _cb - -onTextViewToggleCursorVisible :: (GObject a, MonadIO m) => a -> TextViewToggleCursorVisibleCallback -> m SignalHandlerId -onTextViewToggleCursorVisible obj cb = liftIO $ connectTextViewToggleCursorVisible obj cb SignalConnectBefore -afterTextViewToggleCursorVisible :: (GObject a, MonadIO m) => a -> TextViewToggleCursorVisibleCallback -> m SignalHandlerId -afterTextViewToggleCursorVisible obj cb = connectTextViewToggleCursorVisible obj cb SignalConnectAfter - -connectTextViewToggleCursorVisible :: (GObject a, MonadIO m) => - a -> TextViewToggleCursorVisibleCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewToggleCursorVisible obj cb after = liftIO $ do - cb' <- mkTextViewToggleCursorVisibleCallback (textViewToggleCursorVisibleCallbackWrapper cb) - connectSignalFunPtr obj "toggle-cursor-visible" cb' after - --- signal TextView::toggle-overwrite -type TextViewToggleOverwriteCallback = - IO () - -noTextViewToggleOverwriteCallback :: Maybe TextViewToggleOverwriteCallback -noTextViewToggleOverwriteCallback = Nothing - -type TextViewToggleOverwriteCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTextViewToggleOverwriteCallback :: TextViewToggleOverwriteCallbackC -> IO (FunPtr TextViewToggleOverwriteCallbackC) - -textViewToggleOverwriteClosure :: TextViewToggleOverwriteCallback -> IO Closure -textViewToggleOverwriteClosure cb = newCClosure =<< mkTextViewToggleOverwriteCallback wrapped - where wrapped = textViewToggleOverwriteCallbackWrapper cb - -textViewToggleOverwriteCallbackWrapper :: - TextViewToggleOverwriteCallback -> - Ptr () -> - Ptr () -> - IO () -textViewToggleOverwriteCallbackWrapper _cb _ _ = do - _cb - -onTextViewToggleOverwrite :: (GObject a, MonadIO m) => a -> TextViewToggleOverwriteCallback -> m SignalHandlerId -onTextViewToggleOverwrite obj cb = liftIO $ connectTextViewToggleOverwrite obj cb SignalConnectBefore -afterTextViewToggleOverwrite :: (GObject a, MonadIO m) => a -> TextViewToggleOverwriteCallback -> m SignalHandlerId -afterTextViewToggleOverwrite obj cb = connectTextViewToggleOverwrite obj cb SignalConnectAfter - -connectTextViewToggleOverwrite :: (GObject a, MonadIO m) => - a -> TextViewToggleOverwriteCallback -> SignalConnectMode -> m SignalHandlerId -connectTextViewToggleOverwrite obj cb after = liftIO $ do - cb' <- mkTextViewToggleOverwriteCallback (textViewToggleOverwriteCallbackWrapper cb) - connectSignalFunPtr obj "toggle-overwrite" cb' after - --- VVV Prop "accepts-tab" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewAcceptsTab :: (MonadIO m, TextViewK o) => o -> m Bool -getTextViewAcceptsTab obj = liftIO $ getObjectPropertyBool obj "accepts-tab" - -setTextViewAcceptsTab :: (MonadIO m, TextViewK o) => o -> Bool -> m () -setTextViewAcceptsTab obj val = liftIO $ setObjectPropertyBool obj "accepts-tab" val - -constructTextViewAcceptsTab :: Bool -> IO ([Char], GValue) -constructTextViewAcceptsTab val = constructObjectPropertyBool "accepts-tab" val - -data TextViewAcceptsTabPropertyInfo -instance AttrInfo TextViewAcceptsTabPropertyInfo where - type AttrAllowedOps TextViewAcceptsTabPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewAcceptsTabPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextViewAcceptsTabPropertyInfo = TextViewK - type AttrGetType TextViewAcceptsTabPropertyInfo = Bool - type AttrLabel TextViewAcceptsTabPropertyInfo = "TextView::accepts-tab" - attrGet _ = getTextViewAcceptsTab - attrSet _ = setTextViewAcceptsTab - attrConstruct _ = constructTextViewAcceptsTab - --- VVV Prop "bottom-margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewBottomMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewBottomMargin obj = liftIO $ getObjectPropertyCInt obj "bottom-margin" - -setTextViewBottomMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewBottomMargin obj val = liftIO $ setObjectPropertyCInt obj "bottom-margin" val - -constructTextViewBottomMargin :: Int32 -> IO ([Char], GValue) -constructTextViewBottomMargin val = constructObjectPropertyCInt "bottom-margin" val - -data TextViewBottomMarginPropertyInfo -instance AttrInfo TextViewBottomMarginPropertyInfo where - type AttrAllowedOps TextViewBottomMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewBottomMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewBottomMarginPropertyInfo = TextViewK - type AttrGetType TextViewBottomMarginPropertyInfo = Int32 - type AttrLabel TextViewBottomMarginPropertyInfo = "TextView::bottom-margin" - attrGet _ = getTextViewBottomMargin - attrSet _ = setTextViewBottomMargin - attrConstruct _ = constructTextViewBottomMargin - --- VVV Prop "buffer" - -- Type: TInterface "Gtk" "TextBuffer" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewBuffer :: (MonadIO m, TextViewK o) => o -> m TextBuffer -getTextViewBuffer obj = liftIO $ getObjectPropertyObject obj "buffer" TextBuffer - -setTextViewBuffer :: (MonadIO m, TextViewK o, TextBufferK a) => o -> a -> m () -setTextViewBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" val - -constructTextViewBuffer :: (TextBufferK a) => a -> IO ([Char], GValue) -constructTextViewBuffer val = constructObjectPropertyObject "buffer" val - -data TextViewBufferPropertyInfo -instance AttrInfo TextViewBufferPropertyInfo where - type AttrAllowedOps TextViewBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewBufferPropertyInfo = TextBufferK - type AttrBaseTypeConstraint TextViewBufferPropertyInfo = TextViewK - type AttrGetType TextViewBufferPropertyInfo = TextBuffer - type AttrLabel TextViewBufferPropertyInfo = "TextView::buffer" - attrGet _ = getTextViewBuffer - attrSet _ = setTextViewBuffer - attrConstruct _ = constructTextViewBuffer - --- VVV Prop "cursor-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewCursorVisible :: (MonadIO m, TextViewK o) => o -> m Bool -getTextViewCursorVisible obj = liftIO $ getObjectPropertyBool obj "cursor-visible" - -setTextViewCursorVisible :: (MonadIO m, TextViewK o) => o -> Bool -> m () -setTextViewCursorVisible obj val = liftIO $ setObjectPropertyBool obj "cursor-visible" val - -constructTextViewCursorVisible :: Bool -> IO ([Char], GValue) -constructTextViewCursorVisible val = constructObjectPropertyBool "cursor-visible" val - -data TextViewCursorVisiblePropertyInfo -instance AttrInfo TextViewCursorVisiblePropertyInfo where - type AttrAllowedOps TextViewCursorVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewCursorVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextViewCursorVisiblePropertyInfo = TextViewK - type AttrGetType TextViewCursorVisiblePropertyInfo = Bool - type AttrLabel TextViewCursorVisiblePropertyInfo = "TextView::cursor-visible" - attrGet _ = getTextViewCursorVisible - attrSet _ = setTextViewCursorVisible - attrConstruct _ = constructTextViewCursorVisible - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewEditable :: (MonadIO m, TextViewK o) => o -> m Bool -getTextViewEditable obj = liftIO $ getObjectPropertyBool obj "editable" - -setTextViewEditable :: (MonadIO m, TextViewK o) => o -> Bool -> m () -setTextViewEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val - -constructTextViewEditable :: Bool -> IO ([Char], GValue) -constructTextViewEditable val = constructObjectPropertyBool "editable" val - -data TextViewEditablePropertyInfo -instance AttrInfo TextViewEditablePropertyInfo where - type AttrAllowedOps TextViewEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewEditablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextViewEditablePropertyInfo = TextViewK - type AttrGetType TextViewEditablePropertyInfo = Bool - type AttrLabel TextViewEditablePropertyInfo = "TextView::editable" - attrGet _ = getTextViewEditable - attrSet _ = setTextViewEditable - attrConstruct _ = constructTextViewEditable - --- VVV Prop "im-module" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewImModule :: (MonadIO m, TextViewK o) => o -> m T.Text -getTextViewImModule obj = liftIO $ getObjectPropertyString obj "im-module" - -setTextViewImModule :: (MonadIO m, TextViewK o) => o -> T.Text -> m () -setTextViewImModule obj val = liftIO $ setObjectPropertyString obj "im-module" val - -constructTextViewImModule :: T.Text -> IO ([Char], GValue) -constructTextViewImModule val = constructObjectPropertyString "im-module" val - -data TextViewImModulePropertyInfo -instance AttrInfo TextViewImModulePropertyInfo where - type AttrAllowedOps TextViewImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewImModulePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextViewImModulePropertyInfo = TextViewK - type AttrGetType TextViewImModulePropertyInfo = T.Text - type AttrLabel TextViewImModulePropertyInfo = "TextView::im-module" - attrGet _ = getTextViewImModule - attrSet _ = setTextViewImModule - attrConstruct _ = constructTextViewImModule - --- VVV Prop "indent" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewIndent :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewIndent obj = liftIO $ getObjectPropertyCInt obj "indent" - -setTextViewIndent :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewIndent obj val = liftIO $ setObjectPropertyCInt obj "indent" val - -constructTextViewIndent :: Int32 -> IO ([Char], GValue) -constructTextViewIndent val = constructObjectPropertyCInt "indent" val - -data TextViewIndentPropertyInfo -instance AttrInfo TextViewIndentPropertyInfo where - type AttrAllowedOps TextViewIndentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewIndentPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewIndentPropertyInfo = TextViewK - type AttrGetType TextViewIndentPropertyInfo = Int32 - type AttrLabel TextViewIndentPropertyInfo = "TextView::indent" - attrGet _ = getTextViewIndent - attrSet _ = setTextViewIndent - attrConstruct _ = constructTextViewIndent - --- VVV Prop "input-hints" - -- Type: TInterface "Gtk" "InputHints" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewInputHints :: (MonadIO m, TextViewK o) => o -> m [InputHints] -getTextViewInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints" - -setTextViewInputHints :: (MonadIO m, TextViewK o) => o -> [InputHints] -> m () -setTextViewInputHints obj val = liftIO $ setObjectPropertyFlags obj "input-hints" val - -constructTextViewInputHints :: [InputHints] -> IO ([Char], GValue) -constructTextViewInputHints val = constructObjectPropertyFlags "input-hints" val - -data TextViewInputHintsPropertyInfo -instance AttrInfo TextViewInputHintsPropertyInfo where - type AttrAllowedOps TextViewInputHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewInputHintsPropertyInfo = (~) [InputHints] - type AttrBaseTypeConstraint TextViewInputHintsPropertyInfo = TextViewK - type AttrGetType TextViewInputHintsPropertyInfo = [InputHints] - type AttrLabel TextViewInputHintsPropertyInfo = "TextView::input-hints" - attrGet _ = getTextViewInputHints - attrSet _ = setTextViewInputHints - attrConstruct _ = constructTextViewInputHints - --- VVV Prop "input-purpose" - -- Type: TInterface "Gtk" "InputPurpose" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewInputPurpose :: (MonadIO m, TextViewK o) => o -> m InputPurpose -getTextViewInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose" - -setTextViewInputPurpose :: (MonadIO m, TextViewK o) => o -> InputPurpose -> m () -setTextViewInputPurpose obj val = liftIO $ setObjectPropertyEnum obj "input-purpose" val - -constructTextViewInputPurpose :: InputPurpose -> IO ([Char], GValue) -constructTextViewInputPurpose val = constructObjectPropertyEnum "input-purpose" val - -data TextViewInputPurposePropertyInfo -instance AttrInfo TextViewInputPurposePropertyInfo where - type AttrAllowedOps TextViewInputPurposePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewInputPurposePropertyInfo = (~) InputPurpose - type AttrBaseTypeConstraint TextViewInputPurposePropertyInfo = TextViewK - type AttrGetType TextViewInputPurposePropertyInfo = InputPurpose - type AttrLabel TextViewInputPurposePropertyInfo = "TextView::input-purpose" - attrGet _ = getTextViewInputPurpose - attrSet _ = setTextViewInputPurpose - attrConstruct _ = constructTextViewInputPurpose - --- VVV Prop "justification" - -- Type: TInterface "Gtk" "Justification" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewJustification :: (MonadIO m, TextViewK o) => o -> m Justification -getTextViewJustification obj = liftIO $ getObjectPropertyEnum obj "justification" - -setTextViewJustification :: (MonadIO m, TextViewK o) => o -> Justification -> m () -setTextViewJustification obj val = liftIO $ setObjectPropertyEnum obj "justification" val - -constructTextViewJustification :: Justification -> IO ([Char], GValue) -constructTextViewJustification val = constructObjectPropertyEnum "justification" val - -data TextViewJustificationPropertyInfo -instance AttrInfo TextViewJustificationPropertyInfo where - type AttrAllowedOps TextViewJustificationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewJustificationPropertyInfo = (~) Justification - type AttrBaseTypeConstraint TextViewJustificationPropertyInfo = TextViewK - type AttrGetType TextViewJustificationPropertyInfo = Justification - type AttrLabel TextViewJustificationPropertyInfo = "TextView::justification" - attrGet _ = getTextViewJustification - attrSet _ = setTextViewJustification - attrConstruct _ = constructTextViewJustification - --- VVV Prop "left-margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewLeftMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewLeftMargin obj = liftIO $ getObjectPropertyCInt obj "left-margin" - -setTextViewLeftMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewLeftMargin obj val = liftIO $ setObjectPropertyCInt obj "left-margin" val - -constructTextViewLeftMargin :: Int32 -> IO ([Char], GValue) -constructTextViewLeftMargin val = constructObjectPropertyCInt "left-margin" val - -data TextViewLeftMarginPropertyInfo -instance AttrInfo TextViewLeftMarginPropertyInfo where - type AttrAllowedOps TextViewLeftMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewLeftMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewLeftMarginPropertyInfo = TextViewK - type AttrGetType TextViewLeftMarginPropertyInfo = Int32 - type AttrLabel TextViewLeftMarginPropertyInfo = "TextView::left-margin" - attrGet _ = getTextViewLeftMargin - attrSet _ = setTextViewLeftMargin - attrConstruct _ = constructTextViewLeftMargin - --- VVV Prop "monospace" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewMonospace :: (MonadIO m, TextViewK o) => o -> m Bool -getTextViewMonospace obj = liftIO $ getObjectPropertyBool obj "monospace" - -setTextViewMonospace :: (MonadIO m, TextViewK o) => o -> Bool -> m () -setTextViewMonospace obj val = liftIO $ setObjectPropertyBool obj "monospace" val - -constructTextViewMonospace :: Bool -> IO ([Char], GValue) -constructTextViewMonospace val = constructObjectPropertyBool "monospace" val - -data TextViewMonospacePropertyInfo -instance AttrInfo TextViewMonospacePropertyInfo where - type AttrAllowedOps TextViewMonospacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewMonospacePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextViewMonospacePropertyInfo = TextViewK - type AttrGetType TextViewMonospacePropertyInfo = Bool - type AttrLabel TextViewMonospacePropertyInfo = "TextView::monospace" - attrGet _ = getTextViewMonospace - attrSet _ = setTextViewMonospace - attrConstruct _ = constructTextViewMonospace - --- VVV Prop "overwrite" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewOverwrite :: (MonadIO m, TextViewK o) => o -> m Bool -getTextViewOverwrite obj = liftIO $ getObjectPropertyBool obj "overwrite" - -setTextViewOverwrite :: (MonadIO m, TextViewK o) => o -> Bool -> m () -setTextViewOverwrite obj val = liftIO $ setObjectPropertyBool obj "overwrite" val - -constructTextViewOverwrite :: Bool -> IO ([Char], GValue) -constructTextViewOverwrite val = constructObjectPropertyBool "overwrite" val - -data TextViewOverwritePropertyInfo -instance AttrInfo TextViewOverwritePropertyInfo where - type AttrAllowedOps TextViewOverwritePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewOverwritePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextViewOverwritePropertyInfo = TextViewK - type AttrGetType TextViewOverwritePropertyInfo = Bool - type AttrLabel TextViewOverwritePropertyInfo = "TextView::overwrite" - attrGet _ = getTextViewOverwrite - attrSet _ = setTextViewOverwrite - attrConstruct _ = constructTextViewOverwrite - --- VVV Prop "pixels-above-lines" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewPixelsAboveLines :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewPixelsAboveLines obj = liftIO $ getObjectPropertyCInt obj "pixels-above-lines" - -setTextViewPixelsAboveLines :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewPixelsAboveLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-above-lines" val - -constructTextViewPixelsAboveLines :: Int32 -> IO ([Char], GValue) -constructTextViewPixelsAboveLines val = constructObjectPropertyCInt "pixels-above-lines" val - -data TextViewPixelsAboveLinesPropertyInfo -instance AttrInfo TextViewPixelsAboveLinesPropertyInfo where - type AttrAllowedOps TextViewPixelsAboveLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewPixelsAboveLinesPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewPixelsAboveLinesPropertyInfo = TextViewK - type AttrGetType TextViewPixelsAboveLinesPropertyInfo = Int32 - type AttrLabel TextViewPixelsAboveLinesPropertyInfo = "TextView::pixels-above-lines" - attrGet _ = getTextViewPixelsAboveLines - attrSet _ = setTextViewPixelsAboveLines - attrConstruct _ = constructTextViewPixelsAboveLines - --- VVV Prop "pixels-below-lines" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewPixelsBelowLines :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewPixelsBelowLines obj = liftIO $ getObjectPropertyCInt obj "pixels-below-lines" - -setTextViewPixelsBelowLines :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewPixelsBelowLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-below-lines" val - -constructTextViewPixelsBelowLines :: Int32 -> IO ([Char], GValue) -constructTextViewPixelsBelowLines val = constructObjectPropertyCInt "pixels-below-lines" val - -data TextViewPixelsBelowLinesPropertyInfo -instance AttrInfo TextViewPixelsBelowLinesPropertyInfo where - type AttrAllowedOps TextViewPixelsBelowLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewPixelsBelowLinesPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewPixelsBelowLinesPropertyInfo = TextViewK - type AttrGetType TextViewPixelsBelowLinesPropertyInfo = Int32 - type AttrLabel TextViewPixelsBelowLinesPropertyInfo = "TextView::pixels-below-lines" - attrGet _ = getTextViewPixelsBelowLines - attrSet _ = setTextViewPixelsBelowLines - attrConstruct _ = constructTextViewPixelsBelowLines - --- VVV Prop "pixels-inside-wrap" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewPixelsInsideWrap :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewPixelsInsideWrap obj = liftIO $ getObjectPropertyCInt obj "pixels-inside-wrap" - -setTextViewPixelsInsideWrap :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewPixelsInsideWrap obj val = liftIO $ setObjectPropertyCInt obj "pixels-inside-wrap" val - -constructTextViewPixelsInsideWrap :: Int32 -> IO ([Char], GValue) -constructTextViewPixelsInsideWrap val = constructObjectPropertyCInt "pixels-inside-wrap" val - -data TextViewPixelsInsideWrapPropertyInfo -instance AttrInfo TextViewPixelsInsideWrapPropertyInfo where - type AttrAllowedOps TextViewPixelsInsideWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewPixelsInsideWrapPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewPixelsInsideWrapPropertyInfo = TextViewK - type AttrGetType TextViewPixelsInsideWrapPropertyInfo = Int32 - type AttrLabel TextViewPixelsInsideWrapPropertyInfo = "TextView::pixels-inside-wrap" - attrGet _ = getTextViewPixelsInsideWrap - attrSet _ = setTextViewPixelsInsideWrap - attrConstruct _ = constructTextViewPixelsInsideWrap - --- VVV Prop "populate-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewPopulateAll :: (MonadIO m, TextViewK o) => o -> m Bool -getTextViewPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all" - -setTextViewPopulateAll :: (MonadIO m, TextViewK o) => o -> Bool -> m () -setTextViewPopulateAll obj val = liftIO $ setObjectPropertyBool obj "populate-all" val - -constructTextViewPopulateAll :: Bool -> IO ([Char], GValue) -constructTextViewPopulateAll val = constructObjectPropertyBool "populate-all" val - -data TextViewPopulateAllPropertyInfo -instance AttrInfo TextViewPopulateAllPropertyInfo where - type AttrAllowedOps TextViewPopulateAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewPopulateAllPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TextViewPopulateAllPropertyInfo = TextViewK - type AttrGetType TextViewPopulateAllPropertyInfo = Bool - type AttrLabel TextViewPopulateAllPropertyInfo = "TextView::populate-all" - attrGet _ = getTextViewPopulateAll - attrSet _ = setTextViewPopulateAll - attrConstruct _ = constructTextViewPopulateAll - --- VVV Prop "right-margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewRightMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewRightMargin obj = liftIO $ getObjectPropertyCInt obj "right-margin" - -setTextViewRightMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewRightMargin obj val = liftIO $ setObjectPropertyCInt obj "right-margin" val - -constructTextViewRightMargin :: Int32 -> IO ([Char], GValue) -constructTextViewRightMargin val = constructObjectPropertyCInt "right-margin" val - -data TextViewRightMarginPropertyInfo -instance AttrInfo TextViewRightMarginPropertyInfo where - type AttrAllowedOps TextViewRightMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewRightMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewRightMarginPropertyInfo = TextViewK - type AttrGetType TextViewRightMarginPropertyInfo = Int32 - type AttrLabel TextViewRightMarginPropertyInfo = "TextView::right-margin" - attrGet _ = getTextViewRightMargin - attrSet _ = setTextViewRightMargin - attrConstruct _ = constructTextViewRightMargin - --- VVV Prop "tabs" - -- Type: TInterface "Pango" "TabArray" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewTabs :: (MonadIO m, TextViewK o) => o -> m Pango.TabArray -getTextViewTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray - -setTextViewTabs :: (MonadIO m, TextViewK o) => o -> Pango.TabArray -> m () -setTextViewTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" val - -constructTextViewTabs :: Pango.TabArray -> IO ([Char], GValue) -constructTextViewTabs val = constructObjectPropertyBoxed "tabs" val - -data TextViewTabsPropertyInfo -instance AttrInfo TextViewTabsPropertyInfo where - type AttrAllowedOps TextViewTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewTabsPropertyInfo = (~) Pango.TabArray - type AttrBaseTypeConstraint TextViewTabsPropertyInfo = TextViewK - type AttrGetType TextViewTabsPropertyInfo = Pango.TabArray - type AttrLabel TextViewTabsPropertyInfo = "TextView::tabs" - attrGet _ = getTextViewTabs - attrSet _ = setTextViewTabs - attrConstruct _ = constructTextViewTabs - --- VVV Prop "top-margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewTopMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewTopMargin obj = liftIO $ getObjectPropertyCInt obj "top-margin" - -setTextViewTopMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewTopMargin obj val = liftIO $ setObjectPropertyCInt obj "top-margin" val - -constructTextViewTopMargin :: Int32 -> IO ([Char], GValue) -constructTextViewTopMargin val = constructObjectPropertyCInt "top-margin" val - -data TextViewTopMarginPropertyInfo -instance AttrInfo TextViewTopMarginPropertyInfo where - type AttrAllowedOps TextViewTopMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewTopMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TextViewTopMarginPropertyInfo = TextViewK - type AttrGetType TextViewTopMarginPropertyInfo = Int32 - type AttrLabel TextViewTopMarginPropertyInfo = "TextView::top-margin" - attrGet _ = getTextViewTopMargin - attrSet _ = setTextViewTopMargin - attrConstruct _ = constructTextViewTopMargin - --- VVV Prop "wrap-mode" - -- Type: TInterface "Gtk" "WrapMode" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewWrapMode :: (MonadIO m, TextViewK o) => o -> m WrapMode -getTextViewWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode" - -setTextViewWrapMode :: (MonadIO m, TextViewK o) => o -> WrapMode -> m () -setTextViewWrapMode obj val = liftIO $ setObjectPropertyEnum obj "wrap-mode" val - -constructTextViewWrapMode :: WrapMode -> IO ([Char], GValue) -constructTextViewWrapMode val = constructObjectPropertyEnum "wrap-mode" val - -data TextViewWrapModePropertyInfo -instance AttrInfo TextViewWrapModePropertyInfo where - type AttrAllowedOps TextViewWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewWrapModePropertyInfo = (~) WrapMode - type AttrBaseTypeConstraint TextViewWrapModePropertyInfo = TextViewK - type AttrGetType TextViewWrapModePropertyInfo = WrapMode - type AttrLabel TextViewWrapModePropertyInfo = "TextView::wrap-mode" - attrGet _ = getTextViewWrapMode - attrSet _ = setTextViewWrapMode - attrConstruct _ = constructTextViewWrapMode - -type instance AttributeList TextView = TextViewAttributeList -type TextViewAttributeList = ('[ '("accepts-tab", TextViewAcceptsTabPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("bottom-margin", TextViewBottomMarginPropertyInfo), '("buffer", TextViewBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-visible", TextViewCursorVisiblePropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", TextViewEditablePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("im-module", TextViewImModulePropertyInfo), '("indent", TextViewIndentPropertyInfo), '("input-hints", TextViewInputHintsPropertyInfo), '("input-purpose", TextViewInputPurposePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("justification", TextViewJustificationPropertyInfo), '("left-margin", TextViewLeftMarginPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("monospace", TextViewMonospacePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite", TextViewOverwritePropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixels-above-lines", TextViewPixelsAboveLinesPropertyInfo), '("pixels-below-lines", TextViewPixelsBelowLinesPropertyInfo), '("pixels-inside-wrap", TextViewPixelsInsideWrapPropertyInfo), '("populate-all", TextViewPopulateAllPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-margin", TextViewRightMarginPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", TextViewTabsPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("top-margin", TextViewTopMarginPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap-mode", TextViewWrapModePropertyInfo)] :: [(Symbol, *)]) - -data TextViewBackspaceSignalInfo -instance SignalInfo TextViewBackspaceSignalInfo where - type HaskellCallbackType TextViewBackspaceSignalInfo = TextViewBackspaceCallback - connectSignal _ = connectTextViewBackspace - -data TextViewCopyClipboardSignalInfo -instance SignalInfo TextViewCopyClipboardSignalInfo where - type HaskellCallbackType TextViewCopyClipboardSignalInfo = TextViewCopyClipboardCallback - connectSignal _ = connectTextViewCopyClipboard - -data TextViewCutClipboardSignalInfo -instance SignalInfo TextViewCutClipboardSignalInfo where - type HaskellCallbackType TextViewCutClipboardSignalInfo = TextViewCutClipboardCallback - connectSignal _ = connectTextViewCutClipboard - -data TextViewDeleteFromCursorSignalInfo -instance SignalInfo TextViewDeleteFromCursorSignalInfo where - type HaskellCallbackType TextViewDeleteFromCursorSignalInfo = TextViewDeleteFromCursorCallback - connectSignal _ = connectTextViewDeleteFromCursor - -data TextViewExtendSelectionSignalInfo -instance SignalInfo TextViewExtendSelectionSignalInfo where - type HaskellCallbackType TextViewExtendSelectionSignalInfo = TextViewExtendSelectionCallback - connectSignal _ = connectTextViewExtendSelection - -data TextViewInsertAtCursorSignalInfo -instance SignalInfo TextViewInsertAtCursorSignalInfo where - type HaskellCallbackType TextViewInsertAtCursorSignalInfo = TextViewInsertAtCursorCallback - connectSignal _ = connectTextViewInsertAtCursor - -data TextViewMoveCursorSignalInfo -instance SignalInfo TextViewMoveCursorSignalInfo where - type HaskellCallbackType TextViewMoveCursorSignalInfo = TextViewMoveCursorCallback - connectSignal _ = connectTextViewMoveCursor - -data TextViewMoveViewportSignalInfo -instance SignalInfo TextViewMoveViewportSignalInfo where - type HaskellCallbackType TextViewMoveViewportSignalInfo = TextViewMoveViewportCallback - connectSignal _ = connectTextViewMoveViewport - -data TextViewPasteClipboardSignalInfo -instance SignalInfo TextViewPasteClipboardSignalInfo where - type HaskellCallbackType TextViewPasteClipboardSignalInfo = TextViewPasteClipboardCallback - connectSignal _ = connectTextViewPasteClipboard - -data TextViewPopulatePopupSignalInfo -instance SignalInfo TextViewPopulatePopupSignalInfo where - type HaskellCallbackType TextViewPopulatePopupSignalInfo = TextViewPopulatePopupCallback - connectSignal _ = connectTextViewPopulatePopup - -data TextViewPreeditChangedSignalInfo -instance SignalInfo TextViewPreeditChangedSignalInfo where - type HaskellCallbackType TextViewPreeditChangedSignalInfo = TextViewPreeditChangedCallback - connectSignal _ = connectTextViewPreeditChanged - -data TextViewSelectAllSignalInfo -instance SignalInfo TextViewSelectAllSignalInfo where - type HaskellCallbackType TextViewSelectAllSignalInfo = TextViewSelectAllCallback - connectSignal _ = connectTextViewSelectAll - -data TextViewSetAnchorSignalInfo -instance SignalInfo TextViewSetAnchorSignalInfo where - type HaskellCallbackType TextViewSetAnchorSignalInfo = TextViewSetAnchorCallback - connectSignal _ = connectTextViewSetAnchor - -data TextViewToggleCursorVisibleSignalInfo -instance SignalInfo TextViewToggleCursorVisibleSignalInfo where - type HaskellCallbackType TextViewToggleCursorVisibleSignalInfo = TextViewToggleCursorVisibleCallback - connectSignal _ = connectTextViewToggleCursorVisible - -data TextViewToggleOverwriteSignalInfo -instance SignalInfo TextViewToggleOverwriteSignalInfo where - type HaskellCallbackType TextViewToggleOverwriteSignalInfo = TextViewToggleOverwriteCallback - connectSignal _ = connectTextViewToggleOverwrite - -type instance SignalList TextView = TextViewSignalList -type TextViewSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("backspace", TextViewBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", TextViewCopyClipboardSignalInfo), '("cut-clipboard", TextViewCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", TextViewDeleteFromCursorSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("extend-selection", TextViewExtendSelectionSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert-at-cursor", TextViewInsertAtCursorSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", TextViewMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-viewport", TextViewMoveViewportSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", TextViewPasteClipboardSignalInfo), '("populate-popup", TextViewPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", TextViewPreeditChangedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", TextViewSelectAllSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-anchor", TextViewSetAnchorSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-cursor-visible", TextViewToggleCursorVisibleSignalInfo), '("toggle-overwrite", TextViewToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TextView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Gtk" "TextView" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_new" gtk_text_view_new :: - IO (Ptr TextView) - - -textViewNew :: - (MonadIO m) => - m TextView -textViewNew = liftIO $ do - result <- gtk_text_view_new - checkUnexpectedReturnNULL "gtk_text_view_new" result - result' <- (newObject TextView) result - return result' - --- method TextView::new_with_buffer --- method type : Constructor --- Args : [Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextView" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_new_with_buffer" gtk_text_view_new_with_buffer :: - Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" - IO (Ptr TextView) - - -textViewNewWithBuffer :: - (MonadIO m, TextBufferK a) => - a -> -- buffer - m TextView -textViewNewWithBuffer buffer = liftIO $ do - let buffer' = unsafeManagedPtrCastPtr buffer - result <- gtk_text_view_new_with_buffer buffer' - checkUnexpectedReturnNULL "gtk_text_view_new_with_buffer" result - result' <- (newObject TextView) result - touchManagedPtr buffer - return result' - --- method TextView::add_child_at_anchor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_add_child_at_anchor" gtk_text_view_add_child_at_anchor :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor" - IO () - - -textViewAddChildAtAnchor :: - (MonadIO m, TextViewK a, WidgetK b, TextChildAnchorK c) => - a -> -- _obj - b -> -- child - c -> -- anchor - m () -textViewAddChildAtAnchor _obj child anchor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let anchor' = unsafeManagedPtrCastPtr anchor - gtk_text_view_add_child_at_anchor _obj' child' anchor' - touchManagedPtr _obj - touchManagedPtr child - touchManagedPtr anchor - return () - --- method TextView::add_child_in_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "which_window", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "which_window", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_add_child_in_window" gtk_text_view_add_child_in_window :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - CUInt -> -- which_window : TInterface "Gtk" "TextWindowType" - Int32 -> -- xpos : TBasicType TInt32 - Int32 -> -- ypos : TBasicType TInt32 - IO () - - -textViewAddChildInWindow :: - (MonadIO m, TextViewK a, WidgetK b) => - a -> -- _obj - b -> -- child - TextWindowType -> -- which_window - Int32 -> -- xpos - Int32 -> -- ypos - m () -textViewAddChildInWindow _obj child which_window xpos ypos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let which_window' = (fromIntegral . fromEnum) which_window - gtk_text_view_add_child_in_window _obj' child' which_window' xpos ypos - touchManagedPtr _obj - touchManagedPtr child - return () - --- method TextView::backward_display_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_backward_display_line" gtk_text_view_backward_display_line :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO CInt - - -textViewBackwardDisplayLine :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextIter -> -- iter - m Bool -textViewBackwardDisplayLine _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_view_backward_display_line _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - --- method TextView::backward_display_line_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_backward_display_line_start" gtk_text_view_backward_display_line_start :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO CInt - - -textViewBackwardDisplayLineStart :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextIter -> -- iter - m Bool -textViewBackwardDisplayLineStart _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_view_backward_display_line_start _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - --- method TextView::buffer_to_window_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "window_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_buffer_to_window_coords" gtk_text_view_buffer_to_window_coords :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- win : TInterface "Gtk" "TextWindowType" - Int32 -> -- buffer_x : TBasicType TInt32 - Int32 -> -- buffer_y : TBasicType TInt32 - Ptr Int32 -> -- window_x : TBasicType TInt32 - Ptr Int32 -> -- window_y : TBasicType TInt32 - IO () - - -textViewBufferToWindowCoords :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextWindowType -> -- win - Int32 -> -- buffer_x - Int32 -> -- buffer_y - m (Int32,Int32) -textViewBufferToWindowCoords _obj win buffer_x buffer_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let win' = (fromIntegral . fromEnum) win - window_x <- allocMem :: IO (Ptr Int32) - window_y <- allocMem :: IO (Ptr Int32) - gtk_text_view_buffer_to_window_coords _obj' win' buffer_x buffer_y window_x window_y - window_x' <- peek window_x - window_y' <- peek window_y - touchManagedPtr _obj - freeMem window_x - freeMem window_y - return (window_x', window_y') - --- method TextView::forward_display_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_forward_display_line" gtk_text_view_forward_display_line :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO CInt - - -textViewForwardDisplayLine :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextIter -> -- iter - m Bool -textViewForwardDisplayLine _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_view_forward_display_line _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - --- method TextView::forward_display_line_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_forward_display_line_end" gtk_text_view_forward_display_line_end :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO CInt - - -textViewForwardDisplayLineEnd :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextIter -> -- iter - m Bool -textViewForwardDisplayLineEnd _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_view_forward_display_line_end _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - --- method TextView::get_accepts_tab --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_accepts_tab" gtk_text_view_get_accepts_tab :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CInt - - -textViewGetAcceptsTab :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Bool -textViewGetAcceptsTab _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_accepts_tab _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextView::get_border_window_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_border_window_size" gtk_text_view_get_border_window_size :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- type : TInterface "Gtk" "TextWindowType" - IO Int32 - - -textViewGetBorderWindowSize :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextWindowType -> -- type - m Int32 -textViewGetBorderWindowSize _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - result <- gtk_text_view_get_border_window_size _obj' type_' - touchManagedPtr _obj - return result - --- method TextView::get_bottom_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_bottom_margin" gtk_text_view_get_bottom_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetBottomMargin :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Int32 -textViewGetBottomMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_bottom_margin _obj' - touchManagedPtr _obj - return result - --- method TextView::get_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextBuffer" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_buffer" gtk_text_view_get_buffer :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO (Ptr TextBuffer) - - -textViewGetBuffer :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m TextBuffer -textViewGetBuffer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_buffer _obj' - checkUnexpectedReturnNULL "gtk_text_view_get_buffer" result - result' <- (newObject TextBuffer) result - touchManagedPtr _obj - return result' - --- method TextView::get_cursor_locations --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strong", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weak", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_cursor_locations" gtk_text_view_get_cursor_locations :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr Gdk.Rectangle -> -- strong : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- weak : TInterface "Gdk" "Rectangle" - IO () - - -textViewGetCursorLocations :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Maybe (TextIter) -> -- iter - m (Gdk.Rectangle,Gdk.Rectangle) -textViewGetCursorLocations _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIter <- case iter of - Nothing -> return nullPtr - Just jIter -> do - let jIter' = unsafeManagedPtrGetPtr jIter - return jIter' - strong <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - weak <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_text_view_get_cursor_locations _obj' maybeIter strong weak - strong' <- (wrapBoxed Gdk.Rectangle) strong - weak' <- (wrapBoxed Gdk.Rectangle) weak - touchManagedPtr _obj - whenJust iter touchManagedPtr - return (strong', weak') - --- method TextView::get_cursor_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_cursor_visible" gtk_text_view_get_cursor_visible :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CInt - - -textViewGetCursorVisible :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Bool -textViewGetCursorVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_cursor_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextView::get_default_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextAttributes" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_default_attributes" gtk_text_view_get_default_attributes :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO (Ptr TextAttributes) - - -textViewGetDefaultAttributes :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m TextAttributes -textViewGetDefaultAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_default_attributes _obj' - checkUnexpectedReturnNULL "gtk_text_view_get_default_attributes" result - result' <- (wrapBoxed TextAttributes) result - touchManagedPtr _obj - return result' - --- method TextView::get_editable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_editable" gtk_text_view_get_editable :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CInt - - -textViewGetEditable :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Bool -textViewGetEditable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_editable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextView::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Adjustment" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_hadjustment" gtk_text_view_get_hadjustment :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO (Ptr Adjustment) - -{-# DEPRECATED textViewGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-} -textViewGetHadjustment :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Adjustment -textViewGetHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_text_view_get_hadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - --- method TextView::get_indent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_indent" gtk_text_view_get_indent :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetIndent :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Int32 -textViewGetIndent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_indent _obj' - touchManagedPtr _obj - return result - --- method TextView::get_input_hints --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "InputHints" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_input_hints" gtk_text_view_get_input_hints :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CUInt - - -textViewGetInputHints :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m [InputHints] -textViewGetInputHints _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_input_hints _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method TextView::get_input_purpose --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "InputPurpose" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_input_purpose" gtk_text_view_get_input_purpose :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CUInt - - -textViewGetInputPurpose :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m InputPurpose -textViewGetInputPurpose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_input_purpose _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method TextView::get_iter_at_location --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_iter_at_location" gtk_text_view_get_iter_at_location :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - IO () - - -textViewGetIterAtLocation :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m (TextIter) -textViewGetIterAtLocation _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_view_get_iter_at_location _obj' iter x y - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - --- method TextView::get_iter_at_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_iter_at_position" gtk_text_view_get_iter_at_position :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr Int32 -> -- trailing : TBasicType TInt32 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - IO () - - -textViewGetIterAtPosition :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m (TextIter,Int32) -textViewGetIterAtPosition _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - trailing <- allocMem :: IO (Ptr Int32) - gtk_text_view_get_iter_at_position _obj' iter trailing x y - iter' <- (wrapBoxed TextIter) iter - trailing' <- peek trailing - touchManagedPtr _obj - freeMem trailing - return (iter', trailing') - --- method TextView::get_iter_location --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_iter_location" gtk_text_view_get_iter_location :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr Gdk.Rectangle -> -- location : TInterface "Gdk" "Rectangle" - IO () - - -textViewGetIterLocation :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextIter -> -- iter - m (Gdk.Rectangle) -textViewGetIterLocation _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - location <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_text_view_get_iter_location _obj' iter' location - location' <- (wrapBoxed Gdk.Rectangle) location - touchManagedPtr _obj - touchManagedPtr iter - return location' - --- method TextView::get_justification --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Justification" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_justification" gtk_text_view_get_justification :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CUInt - - -textViewGetJustification :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Justification -textViewGetJustification _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_justification _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method TextView::get_left_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_left_margin" gtk_text_view_get_left_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetLeftMargin :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Int32 -textViewGetLeftMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_left_margin _obj' - touchManagedPtr _obj - return result - --- method TextView::get_line_at_y --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_top", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_line_at_y" gtk_text_view_get_line_at_y :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- target_iter : TInterface "Gtk" "TextIter" - Int32 -> -- y : TBasicType TInt32 - Ptr Int32 -> -- line_top : TBasicType TInt32 - IO () - - -textViewGetLineAtY :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- y - m (TextIter,Int32) -textViewGetLineAtY _obj y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - target_iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - line_top <- allocMem :: IO (Ptr Int32) - gtk_text_view_get_line_at_y _obj' target_iter y line_top - target_iter' <- (wrapBoxed TextIter) target_iter - line_top' <- peek line_top - touchManagedPtr _obj - freeMem line_top - return (target_iter', line_top') - --- method TextView::get_line_yrange --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_line_yrange" gtk_text_view_get_line_yrange :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr Int32 -> -- y : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO () - - -textViewGetLineYrange :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextIter -> -- iter - m (Int32,Int32) -textViewGetLineYrange _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - y <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_text_view_get_line_yrange _obj' iter' y height - y' <- peek y - height' <- peek height - touchManagedPtr _obj - touchManagedPtr iter - freeMem y - freeMem height - return (y', height') - --- method TextView::get_monospace --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_monospace" gtk_text_view_get_monospace :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CInt - - -textViewGetMonospace :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Bool -textViewGetMonospace _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_monospace _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextView::get_overwrite --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_overwrite" gtk_text_view_get_overwrite :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CInt - - -textViewGetOverwrite :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Bool -textViewGetOverwrite _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_overwrite _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextView::get_pixels_above_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_pixels_above_lines" gtk_text_view_get_pixels_above_lines :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetPixelsAboveLines :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Int32 -textViewGetPixelsAboveLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_pixels_above_lines _obj' - touchManagedPtr _obj - return result - --- method TextView::get_pixels_below_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_pixels_below_lines" gtk_text_view_get_pixels_below_lines :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetPixelsBelowLines :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Int32 -textViewGetPixelsBelowLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_pixels_below_lines _obj' - touchManagedPtr _obj - return result - --- method TextView::get_pixels_inside_wrap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_pixels_inside_wrap" gtk_text_view_get_pixels_inside_wrap :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetPixelsInsideWrap :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Int32 -textViewGetPixelsInsideWrap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_pixels_inside_wrap _obj' - touchManagedPtr _obj - return result - --- method TextView::get_right_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_right_margin" gtk_text_view_get_right_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetRightMargin :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Int32 -textViewGetRightMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_right_margin _obj' - touchManagedPtr _obj - return result - --- method TextView::get_tabs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "TabArray" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_tabs" gtk_text_view_get_tabs :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO (Ptr Pango.TabArray) - - -textViewGetTabs :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Pango.TabArray -textViewGetTabs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_tabs _obj' - checkUnexpectedReturnNULL "gtk_text_view_get_tabs" result - result' <- (wrapBoxed Pango.TabArray) result - touchManagedPtr _obj - return result' - --- method TextView::get_top_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_top_margin" gtk_text_view_get_top_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO Int32 - - -textViewGetTopMargin :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Int32 -textViewGetTopMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_top_margin _obj' - touchManagedPtr _obj - return result - --- method TextView::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Adjustment" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_vadjustment" gtk_text_view_get_vadjustment :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO (Ptr Adjustment) - -{-# DEPRECATED textViewGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-} -textViewGetVadjustment :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Adjustment -textViewGetVadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_vadjustment _obj' - checkUnexpectedReturnNULL "gtk_text_view_get_vadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - --- method TextView::get_visible_rect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_visible_rect" gtk_text_view_get_visible_rect :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Gdk.Rectangle -> -- visible_rect : TInterface "Gdk" "Rectangle" - IO () - - -textViewGetVisibleRect :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m (Gdk.Rectangle) -textViewGetVisibleRect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - visible_rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_text_view_get_visible_rect _obj' visible_rect - visible_rect' <- (wrapBoxed Gdk.Rectangle) visible_rect - touchManagedPtr _obj - return visible_rect' - --- method TextView::get_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Window" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_window" gtk_text_view_get_window :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- win : TInterface "Gtk" "TextWindowType" - IO (Ptr Gdk.Window) - - -textViewGetWindow :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextWindowType -> -- win - m Gdk.Window -textViewGetWindow _obj win = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let win' = (fromIntegral . fromEnum) win - result <- gtk_text_view_get_window _obj' win' - checkUnexpectedReturnNULL "gtk_text_view_get_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - --- method TextView::get_window_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextWindowType" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_window_type" gtk_text_view_get_window_type :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO CUInt - - -textViewGetWindowType :: - (MonadIO m, TextViewK a, Gdk.WindowK b) => - a -> -- _obj - b -> -- window - m TextWindowType -textViewGetWindowType _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - result <- gtk_text_view_get_window_type _obj' window' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - touchManagedPtr window - return result' - --- method TextView::get_wrap_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "WrapMode" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_get_wrap_mode" gtk_text_view_get_wrap_mode :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CUInt - - -textViewGetWrapMode :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m WrapMode -textViewGetWrapMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_wrap_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method TextView::im_context_filter_keypress --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_im_context_filter_keypress" gtk_text_view_im_context_filter_keypress :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" - IO CInt - - -textViewImContextFilterKeypress :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Gdk.EventKey -> -- event - m Bool -textViewImContextFilterKeypress _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_text_view_im_context_filter_keypress _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - --- method TextView::move_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_move_child" gtk_text_view_move_child :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- xpos : TBasicType TInt32 - Int32 -> -- ypos : TBasicType TInt32 - IO () - - -textViewMoveChild :: - (MonadIO m, TextViewK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- xpos - Int32 -> -- ypos - m () -textViewMoveChild _obj child xpos ypos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_text_view_move_child _obj' child' xpos ypos - touchManagedPtr _obj - touchManagedPtr child - return () - --- method TextView::move_mark_onscreen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_move_mark_onscreen" gtk_text_view_move_mark_onscreen :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - IO CInt - - -textViewMoveMarkOnscreen :: - (MonadIO m, TextViewK a, TextMarkK b) => - a -> -- _obj - b -> -- mark - m Bool -textViewMoveMarkOnscreen _obj mark = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - result <- gtk_text_view_move_mark_onscreen _obj' mark' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr mark - return result' - --- method TextView::move_visually --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_move_visually" gtk_text_view_move_visually :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textViewMoveVisually :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextIter -> -- iter - Int32 -> -- count - m Bool -textViewMoveVisually _obj iter count = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_view_move_visually _obj' iter' count - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - --- method TextView::place_cursor_onscreen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_place_cursor_onscreen" gtk_text_view_place_cursor_onscreen :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO CInt - - -textViewPlaceCursorOnscreen :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m Bool -textViewPlaceCursorOnscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_place_cursor_onscreen _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextView::reset_im_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_reset_im_context" gtk_text_view_reset_im_context :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - IO () - - -textViewResetImContext :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m () -textViewResetImContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_reset_im_context _obj' - touchManagedPtr _obj - return () - --- method TextView::scroll_mark_onscreen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_scroll_mark_onscreen" gtk_text_view_scroll_mark_onscreen :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - IO () - - -textViewScrollMarkOnscreen :: - (MonadIO m, TextViewK a, TextMarkK b) => - a -> -- _obj - b -> -- mark - m () -textViewScrollMarkOnscreen _obj mark = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - gtk_text_view_scroll_mark_onscreen _obj' mark' - touchManagedPtr _obj - touchManagedPtr mark - return () - --- method TextView::scroll_to_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_scroll_to_iter" gtk_text_view_scroll_to_iter :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - CDouble -> -- within_margin : TBasicType TDouble - CInt -> -- use_align : TBasicType TBoolean - CDouble -> -- xalign : TBasicType TDouble - CDouble -> -- yalign : TBasicType TDouble - IO CInt - - -textViewScrollToIter :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextIter -> -- iter - Double -> -- within_margin - Bool -> -- use_align - Double -> -- xalign - Double -> -- yalign - m Bool -textViewScrollToIter _obj iter within_margin use_align xalign yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let within_margin' = realToFrac within_margin - let use_align' = (fromIntegral . fromEnum) use_align - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - result <- gtk_text_view_scroll_to_iter _obj' iter' within_margin' use_align' xalign' yalign' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - --- method TextView::scroll_to_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_scroll_to_mark" gtk_text_view_scroll_to_mark :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" - CDouble -> -- within_margin : TBasicType TDouble - CInt -> -- use_align : TBasicType TBoolean - CDouble -> -- xalign : TBasicType TDouble - CDouble -> -- yalign : TBasicType TDouble - IO () - - -textViewScrollToMark :: - (MonadIO m, TextViewK a, TextMarkK b) => - a -> -- _obj - b -> -- mark - Double -> -- within_margin - Bool -> -- use_align - Double -> -- xalign - Double -> -- yalign - m () -textViewScrollToMark _obj mark within_margin use_align xalign yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - let within_margin' = realToFrac within_margin - let use_align' = (fromIntegral . fromEnum) use_align - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - gtk_text_view_scroll_to_mark _obj' mark' within_margin' use_align' xalign' yalign' - touchManagedPtr _obj - touchManagedPtr mark - return () - --- method TextView::set_accepts_tab --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accepts_tab", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accepts_tab", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_accepts_tab" gtk_text_view_set_accepts_tab :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CInt -> -- accepts_tab : TBasicType TBoolean - IO () - - -textViewSetAcceptsTab :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Bool -> -- accepts_tab - m () -textViewSetAcceptsTab _obj accepts_tab = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accepts_tab' = (fromIntegral . fromEnum) accepts_tab - gtk_text_view_set_accepts_tab _obj' accepts_tab' - touchManagedPtr _obj - return () - --- method TextView::set_border_window_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_border_window_size" gtk_text_view_set_border_window_size :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- type : TInterface "Gtk" "TextWindowType" - Int32 -> -- size : TBasicType TInt32 - IO () - - -textViewSetBorderWindowSize :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextWindowType -> -- type - Int32 -> -- size - m () -textViewSetBorderWindowSize _obj type_ size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - gtk_text_view_set_border_window_size _obj' type_' size - touchManagedPtr _obj - return () - --- method TextView::set_bottom_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_bottom_margin" gtk_text_view_set_bottom_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- bottom_margin : TBasicType TInt32 - IO () - - -textViewSetBottomMargin :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- bottom_margin - m () -textViewSetBottomMargin _obj bottom_margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_bottom_margin _obj' bottom_margin - touchManagedPtr _obj - return () - --- method TextView::set_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_buffer" gtk_text_view_set_buffer :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" - IO () - - -textViewSetBuffer :: - (MonadIO m, TextViewK a, TextBufferK b) => - a -> -- _obj - Maybe (b) -> -- buffer - m () -textViewSetBuffer _obj buffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBuffer <- case buffer of - Nothing -> return nullPtr - Just jBuffer -> do - let jBuffer' = unsafeManagedPtrCastPtr jBuffer - return jBuffer' - gtk_text_view_set_buffer _obj' maybeBuffer - touchManagedPtr _obj - whenJust buffer touchManagedPtr - return () - --- method TextView::set_cursor_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_cursor_visible" gtk_text_view_set_cursor_visible :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CInt -> -- setting : TBasicType TBoolean - IO () - - -textViewSetCursorVisible :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Bool -> -- setting - m () -textViewSetCursorVisible _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_text_view_set_cursor_visible _obj' setting' - touchManagedPtr _obj - return () - --- method TextView::set_editable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_editable" gtk_text_view_set_editable :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CInt -> -- setting : TBasicType TBoolean - IO () - - -textViewSetEditable :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Bool -> -- setting - m () -textViewSetEditable _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_text_view_set_editable _obj' setting' - touchManagedPtr _obj - return () - --- method TextView::set_indent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_indent" gtk_text_view_set_indent :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- indent : TBasicType TInt32 - IO () - - -textViewSetIndent :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- indent - m () -textViewSetIndent _obj indent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_indent _obj' indent - touchManagedPtr _obj - return () - --- method TextView::set_input_hints --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_input_hints" gtk_text_view_set_input_hints :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- hints : TInterface "Gtk" "InputHints" - IO () - - -textViewSetInputHints :: - (MonadIO m, TextViewK a) => - a -> -- _obj - [InputHints] -> -- hints - m () -textViewSetInputHints _obj hints = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hints' = gflagsToWord hints - gtk_text_view_set_input_hints _obj' hints' - touchManagedPtr _obj - return () - --- method TextView::set_input_purpose --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_input_purpose" gtk_text_view_set_input_purpose :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- purpose : TInterface "Gtk" "InputPurpose" - IO () - - -textViewSetInputPurpose :: - (MonadIO m, TextViewK a) => - a -> -- _obj - InputPurpose -> -- purpose - m () -textViewSetInputPurpose _obj purpose = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let purpose' = (fromIntegral . fromEnum) purpose - gtk_text_view_set_input_purpose _obj' purpose' - touchManagedPtr _obj - return () - --- method TextView::set_justification --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "justification", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "justification", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_justification" gtk_text_view_set_justification :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- justification : TInterface "Gtk" "Justification" - IO () - - -textViewSetJustification :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Justification -> -- justification - m () -textViewSetJustification _obj justification = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let justification' = (fromIntegral . fromEnum) justification - gtk_text_view_set_justification _obj' justification' - touchManagedPtr _obj - return () - --- method TextView::set_left_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_left_margin" gtk_text_view_set_left_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- left_margin : TBasicType TInt32 - IO () - - -textViewSetLeftMargin :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- left_margin - m () -textViewSetLeftMargin _obj left_margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_left_margin _obj' left_margin - touchManagedPtr _obj - return () - --- method TextView::set_monospace --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monospace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monospace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_monospace" gtk_text_view_set_monospace :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CInt -> -- monospace : TBasicType TBoolean - IO () - - -textViewSetMonospace :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Bool -> -- monospace - m () -textViewSetMonospace _obj monospace = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let monospace' = (fromIntegral . fromEnum) monospace - gtk_text_view_set_monospace _obj' monospace' - touchManagedPtr _obj - return () - --- method TextView::set_overwrite --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_overwrite" gtk_text_view_set_overwrite :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CInt -> -- overwrite : TBasicType TBoolean - IO () - - -textViewSetOverwrite :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Bool -> -- overwrite - m () -textViewSetOverwrite _obj overwrite = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let overwrite' = (fromIntegral . fromEnum) overwrite - gtk_text_view_set_overwrite _obj' overwrite' - touchManagedPtr _obj - return () - --- method TextView::set_pixels_above_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_above_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_above_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_pixels_above_lines" gtk_text_view_set_pixels_above_lines :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- pixels_above_lines : TBasicType TInt32 - IO () - - -textViewSetPixelsAboveLines :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- pixels_above_lines - m () -textViewSetPixelsAboveLines _obj pixels_above_lines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_pixels_above_lines _obj' pixels_above_lines - touchManagedPtr _obj - return () - --- method TextView::set_pixels_below_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_below_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_below_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_pixels_below_lines" gtk_text_view_set_pixels_below_lines :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- pixels_below_lines : TBasicType TInt32 - IO () - - -textViewSetPixelsBelowLines :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- pixels_below_lines - m () -textViewSetPixelsBelowLines _obj pixels_below_lines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_pixels_below_lines _obj' pixels_below_lines - touchManagedPtr _obj - return () - --- method TextView::set_pixels_inside_wrap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_inside_wrap", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_inside_wrap", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_pixels_inside_wrap" gtk_text_view_set_pixels_inside_wrap :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- pixels_inside_wrap : TBasicType TInt32 - IO () - - -textViewSetPixelsInsideWrap :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- pixels_inside_wrap - m () -textViewSetPixelsInsideWrap _obj pixels_inside_wrap = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_pixels_inside_wrap _obj' pixels_inside_wrap - touchManagedPtr _obj - return () - --- method TextView::set_right_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_right_margin" gtk_text_view_set_right_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- right_margin : TBasicType TInt32 - IO () - - -textViewSetRightMargin :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- right_margin - m () -textViewSetRightMargin _obj right_margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_right_margin _obj' right_margin - touchManagedPtr _obj - return () - --- method TextView::set_tabs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_tabs" gtk_text_view_set_tabs :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Pango.TabArray -> -- tabs : TInterface "Pango" "TabArray" - IO () - - -textViewSetTabs :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Pango.TabArray -> -- tabs - m () -textViewSetTabs _obj tabs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tabs' = unsafeManagedPtrGetPtr tabs - gtk_text_view_set_tabs _obj' tabs' - touchManagedPtr _obj - touchManagedPtr tabs - return () - --- method TextView::set_top_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_top_margin" gtk_text_view_set_top_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- top_margin : TBasicType TInt32 - IO () - - -textViewSetTopMargin :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- top_margin - m () -textViewSetTopMargin _obj top_margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_top_margin _obj' top_margin - touchManagedPtr _obj - return () - --- method TextView::set_wrap_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_mode", argType = TInterface "Gtk" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_mode", argType = TInterface "Gtk" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_wrap_mode" gtk_text_view_set_wrap_mode :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- wrap_mode : TInterface "Gtk" "WrapMode" - IO () - - -textViewSetWrapMode :: - (MonadIO m, TextViewK a) => - a -> -- _obj - WrapMode -> -- wrap_mode - m () -textViewSetWrapMode _obj wrap_mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrap_mode' = (fromIntegral . fromEnum) wrap_mode - gtk_text_view_set_wrap_mode _obj' wrap_mode' - touchManagedPtr _obj - return () - --- method TextView::starts_display_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_starts_display_line" gtk_text_view_starts_display_line :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - IO CInt - - -textViewStartsDisplayLine :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextIter -> -- iter - m Bool -textViewStartsDisplayLine _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_view_starts_display_line _obj' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - --- method TextView::window_to_buffer_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "buffer_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_window_to_buffer_coords" gtk_text_view_window_to_buffer_coords :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - CUInt -> -- win : TInterface "Gtk" "TextWindowType" - Int32 -> -- window_x : TBasicType TInt32 - Int32 -> -- window_y : TBasicType TInt32 - Ptr Int32 -> -- buffer_x : TBasicType TInt32 - Ptr Int32 -> -- buffer_y : TBasicType TInt32 - IO () - - -textViewWindowToBufferCoords :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextWindowType -> -- win - Int32 -> -- window_x - Int32 -> -- window_y - m (Int32,Int32) -textViewWindowToBufferCoords _obj win window_x window_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let win' = (fromIntegral . fromEnum) win - buffer_x <- allocMem :: IO (Ptr Int32) - buffer_y <- allocMem :: IO (Ptr Int32) - gtk_text_view_window_to_buffer_coords _obj' win' window_x window_y buffer_x buffer_y - buffer_x' <- peek buffer_x - buffer_y' <- peek buffer_y - touchManagedPtr _obj - freeMem buffer_x - freeMem buffer_y - return (buffer_x', buffer_y') + +{- | +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.Objects.TextView + ( + +-- * Exported types + TextView(..) , + TextViewK , + toTextView , + noTextView , + + + -- * Methods +-- ** textViewAddChildAtAnchor + TextViewAddChildAtAnchorMethodInfo , + textViewAddChildAtAnchor , + + +-- ** textViewAddChildInWindow + TextViewAddChildInWindowMethodInfo , + textViewAddChildInWindow , + + +-- ** textViewBackwardDisplayLine + TextViewBackwardDisplayLineMethodInfo , + textViewBackwardDisplayLine , + + +-- ** textViewBackwardDisplayLineStart + TextViewBackwardDisplayLineStartMethodInfo, + textViewBackwardDisplayLineStart , + + +-- ** textViewBufferToWindowCoords + TextViewBufferToWindowCoordsMethodInfo , + textViewBufferToWindowCoords , + + +-- ** textViewForwardDisplayLine + TextViewForwardDisplayLineMethodInfo , + textViewForwardDisplayLine , + + +-- ** textViewForwardDisplayLineEnd + TextViewForwardDisplayLineEndMethodInfo , + textViewForwardDisplayLineEnd , + + +-- ** textViewGetAcceptsTab + TextViewGetAcceptsTabMethodInfo , + textViewGetAcceptsTab , + + +-- ** textViewGetBorderWindowSize + TextViewGetBorderWindowSizeMethodInfo , + textViewGetBorderWindowSize , + + +-- ** textViewGetBottomMargin + TextViewGetBottomMarginMethodInfo , + textViewGetBottomMargin , + + +-- ** textViewGetBuffer + TextViewGetBufferMethodInfo , + textViewGetBuffer , + + +-- ** textViewGetCursorLocations + TextViewGetCursorLocationsMethodInfo , + textViewGetCursorLocations , + + +-- ** textViewGetCursorVisible + TextViewGetCursorVisibleMethodInfo , + textViewGetCursorVisible , + + +-- ** textViewGetDefaultAttributes + TextViewGetDefaultAttributesMethodInfo , + textViewGetDefaultAttributes , + + +-- ** textViewGetEditable + TextViewGetEditableMethodInfo , + textViewGetEditable , + + +-- ** textViewGetHadjustment + TextViewGetHadjustmentMethodInfo , + textViewGetHadjustment , + + +-- ** textViewGetIndent + TextViewGetIndentMethodInfo , + textViewGetIndent , + + +-- ** textViewGetInputHints + TextViewGetInputHintsMethodInfo , + textViewGetInputHints , + + +-- ** textViewGetInputPurpose + TextViewGetInputPurposeMethodInfo , + textViewGetInputPurpose , + + +-- ** textViewGetIterAtLocation + TextViewGetIterAtLocationMethodInfo , + textViewGetIterAtLocation , + + +-- ** textViewGetIterAtPosition + TextViewGetIterAtPositionMethodInfo , + textViewGetIterAtPosition , + + +-- ** textViewGetIterLocation + TextViewGetIterLocationMethodInfo , + textViewGetIterLocation , + + +-- ** textViewGetJustification + TextViewGetJustificationMethodInfo , + textViewGetJustification , + + +-- ** textViewGetLeftMargin + TextViewGetLeftMarginMethodInfo , + textViewGetLeftMargin , + + +-- ** textViewGetLineAtY + TextViewGetLineAtYMethodInfo , + textViewGetLineAtY , + + +-- ** textViewGetLineYrange + TextViewGetLineYrangeMethodInfo , + textViewGetLineYrange , + + +-- ** textViewGetMonospace + TextViewGetMonospaceMethodInfo , + textViewGetMonospace , + + +-- ** textViewGetOverwrite + TextViewGetOverwriteMethodInfo , + textViewGetOverwrite , + + +-- ** textViewGetPixelsAboveLines + TextViewGetPixelsAboveLinesMethodInfo , + textViewGetPixelsAboveLines , + + +-- ** textViewGetPixelsBelowLines + TextViewGetPixelsBelowLinesMethodInfo , + textViewGetPixelsBelowLines , + + +-- ** textViewGetPixelsInsideWrap + TextViewGetPixelsInsideWrapMethodInfo , + textViewGetPixelsInsideWrap , + + +-- ** textViewGetRightMargin + TextViewGetRightMarginMethodInfo , + textViewGetRightMargin , + + +-- ** textViewGetTabs + TextViewGetTabsMethodInfo , + textViewGetTabs , + + +-- ** textViewGetTopMargin + TextViewGetTopMarginMethodInfo , + textViewGetTopMargin , + + +-- ** textViewGetVadjustment + TextViewGetVadjustmentMethodInfo , + textViewGetVadjustment , + + +-- ** textViewGetVisibleRect + TextViewGetVisibleRectMethodInfo , + textViewGetVisibleRect , + + +-- ** textViewGetWindow + TextViewGetWindowMethodInfo , + textViewGetWindow , + + +-- ** textViewGetWindowType + TextViewGetWindowTypeMethodInfo , + textViewGetWindowType , + + +-- ** textViewGetWrapMode + TextViewGetWrapModeMethodInfo , + textViewGetWrapMode , + + +-- ** textViewImContextFilterKeypress + TextViewImContextFilterKeypressMethodInfo, + textViewImContextFilterKeypress , + + +-- ** textViewMoveChild + TextViewMoveChildMethodInfo , + textViewMoveChild , + + +-- ** textViewMoveMarkOnscreen + TextViewMoveMarkOnscreenMethodInfo , + textViewMoveMarkOnscreen , + + +-- ** textViewMoveVisually + TextViewMoveVisuallyMethodInfo , + textViewMoveVisually , + + +-- ** textViewNew + textViewNew , + + +-- ** textViewNewWithBuffer + textViewNewWithBuffer , + + +-- ** textViewPlaceCursorOnscreen + TextViewPlaceCursorOnscreenMethodInfo , + textViewPlaceCursorOnscreen , + + +-- ** textViewResetImContext + TextViewResetImContextMethodInfo , + textViewResetImContext , + + +-- ** textViewScrollMarkOnscreen + TextViewScrollMarkOnscreenMethodInfo , + textViewScrollMarkOnscreen , + + +-- ** textViewScrollToIter + TextViewScrollToIterMethodInfo , + textViewScrollToIter , + + +-- ** textViewScrollToMark + TextViewScrollToMarkMethodInfo , + textViewScrollToMark , + + +-- ** textViewSetAcceptsTab + TextViewSetAcceptsTabMethodInfo , + textViewSetAcceptsTab , + + +-- ** textViewSetBorderWindowSize + TextViewSetBorderWindowSizeMethodInfo , + textViewSetBorderWindowSize , + + +-- ** textViewSetBottomMargin + TextViewSetBottomMarginMethodInfo , + textViewSetBottomMargin , + + +-- ** textViewSetBuffer + TextViewSetBufferMethodInfo , + textViewSetBuffer , + + +-- ** textViewSetCursorVisible + TextViewSetCursorVisibleMethodInfo , + textViewSetCursorVisible , + + +-- ** textViewSetEditable + TextViewSetEditableMethodInfo , + textViewSetEditable , + + +-- ** textViewSetIndent + TextViewSetIndentMethodInfo , + textViewSetIndent , + + +-- ** textViewSetInputHints + TextViewSetInputHintsMethodInfo , + textViewSetInputHints , + + +-- ** textViewSetInputPurpose + TextViewSetInputPurposeMethodInfo , + textViewSetInputPurpose , + + +-- ** textViewSetJustification + TextViewSetJustificationMethodInfo , + textViewSetJustification , + + +-- ** textViewSetLeftMargin + TextViewSetLeftMarginMethodInfo , + textViewSetLeftMargin , + + +-- ** textViewSetMonospace + TextViewSetMonospaceMethodInfo , + textViewSetMonospace , + + +-- ** textViewSetOverwrite + TextViewSetOverwriteMethodInfo , + textViewSetOverwrite , + + +-- ** textViewSetPixelsAboveLines + TextViewSetPixelsAboveLinesMethodInfo , + textViewSetPixelsAboveLines , + + +-- ** textViewSetPixelsBelowLines + TextViewSetPixelsBelowLinesMethodInfo , + textViewSetPixelsBelowLines , + + +-- ** textViewSetPixelsInsideWrap + TextViewSetPixelsInsideWrapMethodInfo , + textViewSetPixelsInsideWrap , + + +-- ** textViewSetRightMargin + TextViewSetRightMarginMethodInfo , + textViewSetRightMargin , + + +-- ** textViewSetTabs + TextViewSetTabsMethodInfo , + textViewSetTabs , + + +-- ** textViewSetTopMargin + TextViewSetTopMarginMethodInfo , + textViewSetTopMargin , + + +-- ** textViewSetWrapMode + TextViewSetWrapModeMethodInfo , + textViewSetWrapMode , + + +-- ** textViewStartsDisplayLine + TextViewStartsDisplayLineMethodInfo , + textViewStartsDisplayLine , + + +-- ** textViewWindowToBufferCoords + TextViewWindowToBufferCoordsMethodInfo , + textViewWindowToBufferCoords , + + + + + -- * Properties +-- ** AcceptsTab + TextViewAcceptsTabPropertyInfo , + constructTextViewAcceptsTab , + getTextViewAcceptsTab , + setTextViewAcceptsTab , + + +-- ** BottomMargin + TextViewBottomMarginPropertyInfo , + constructTextViewBottomMargin , + getTextViewBottomMargin , + setTextViewBottomMargin , + + +-- ** Buffer + TextViewBufferPropertyInfo , + constructTextViewBuffer , + getTextViewBuffer , + setTextViewBuffer , + + +-- ** CursorVisible + TextViewCursorVisiblePropertyInfo , + constructTextViewCursorVisible , + getTextViewCursorVisible , + setTextViewCursorVisible , + + +-- ** Editable + TextViewEditablePropertyInfo , + constructTextViewEditable , + getTextViewEditable , + setTextViewEditable , + + +-- ** ImModule + TextViewImModulePropertyInfo , + constructTextViewImModule , + getTextViewImModule , + setTextViewImModule , + + +-- ** Indent + TextViewIndentPropertyInfo , + constructTextViewIndent , + getTextViewIndent , + setTextViewIndent , + + +-- ** InputHints + TextViewInputHintsPropertyInfo , + constructTextViewInputHints , + getTextViewInputHints , + setTextViewInputHints , + + +-- ** InputPurpose + TextViewInputPurposePropertyInfo , + constructTextViewInputPurpose , + getTextViewInputPurpose , + setTextViewInputPurpose , + + +-- ** Justification + TextViewJustificationPropertyInfo , + constructTextViewJustification , + getTextViewJustification , + setTextViewJustification , + + +-- ** LeftMargin + TextViewLeftMarginPropertyInfo , + constructTextViewLeftMargin , + getTextViewLeftMargin , + setTextViewLeftMargin , + + +-- ** Monospace + TextViewMonospacePropertyInfo , + constructTextViewMonospace , + getTextViewMonospace , + setTextViewMonospace , + + +-- ** Overwrite + TextViewOverwritePropertyInfo , + constructTextViewOverwrite , + getTextViewOverwrite , + setTextViewOverwrite , + + +-- ** PixelsAboveLines + TextViewPixelsAboveLinesPropertyInfo , + constructTextViewPixelsAboveLines , + getTextViewPixelsAboveLines , + setTextViewPixelsAboveLines , + + +-- ** PixelsBelowLines + TextViewPixelsBelowLinesPropertyInfo , + constructTextViewPixelsBelowLines , + getTextViewPixelsBelowLines , + setTextViewPixelsBelowLines , + + +-- ** PixelsInsideWrap + TextViewPixelsInsideWrapPropertyInfo , + constructTextViewPixelsInsideWrap , + getTextViewPixelsInsideWrap , + setTextViewPixelsInsideWrap , + + +-- ** PopulateAll + TextViewPopulateAllPropertyInfo , + constructTextViewPopulateAll , + getTextViewPopulateAll , + setTextViewPopulateAll , + + +-- ** RightMargin + TextViewRightMarginPropertyInfo , + constructTextViewRightMargin , + getTextViewRightMargin , + setTextViewRightMargin , + + +-- ** Tabs + TextViewTabsPropertyInfo , + constructTextViewTabs , + getTextViewTabs , + setTextViewTabs , + + +-- ** TopMargin + TextViewTopMarginPropertyInfo , + constructTextViewTopMargin , + getTextViewTopMargin , + setTextViewTopMargin , + + +-- ** WrapMode + TextViewWrapModePropertyInfo , + constructTextViewWrapMode , + getTextViewWrapMode , + setTextViewWrapMode , + + + + + -- * Signals +-- ** Backspace + TextViewBackspaceCallback , + TextViewBackspaceCallbackC , + TextViewBackspaceSignalInfo , + afterTextViewBackspace , + mkTextViewBackspaceCallback , + noTextViewBackspaceCallback , + onTextViewBackspace , + textViewBackspaceCallbackWrapper , + textViewBackspaceClosure , + + +-- ** CopyClipboard + TextViewCopyClipboardCallback , + TextViewCopyClipboardCallbackC , + TextViewCopyClipboardSignalInfo , + afterTextViewCopyClipboard , + mkTextViewCopyClipboardCallback , + noTextViewCopyClipboardCallback , + onTextViewCopyClipboard , + textViewCopyClipboardCallbackWrapper , + textViewCopyClipboardClosure , + + +-- ** CutClipboard + TextViewCutClipboardCallback , + TextViewCutClipboardCallbackC , + TextViewCutClipboardSignalInfo , + afterTextViewCutClipboard , + mkTextViewCutClipboardCallback , + noTextViewCutClipboardCallback , + onTextViewCutClipboard , + textViewCutClipboardCallbackWrapper , + textViewCutClipboardClosure , + + +-- ** DeleteFromCursor + TextViewDeleteFromCursorCallback , + TextViewDeleteFromCursorCallbackC , + TextViewDeleteFromCursorSignalInfo , + afterTextViewDeleteFromCursor , + mkTextViewDeleteFromCursorCallback , + noTextViewDeleteFromCursorCallback , + onTextViewDeleteFromCursor , + textViewDeleteFromCursorCallbackWrapper , + textViewDeleteFromCursorClosure , + + +-- ** ExtendSelection + TextViewExtendSelectionCallback , + TextViewExtendSelectionCallbackC , + TextViewExtendSelectionSignalInfo , + afterTextViewExtendSelection , + mkTextViewExtendSelectionCallback , + noTextViewExtendSelectionCallback , + onTextViewExtendSelection , + textViewExtendSelectionCallbackWrapper , + textViewExtendSelectionClosure , + + +-- ** InsertAtCursor + TextViewInsertAtCursorCallback , + TextViewInsertAtCursorCallbackC , + TextViewInsertAtCursorSignalInfo , + afterTextViewInsertAtCursor , + mkTextViewInsertAtCursorCallback , + noTextViewInsertAtCursorCallback , + onTextViewInsertAtCursor , + textViewInsertAtCursorCallbackWrapper , + textViewInsertAtCursorClosure , + + +-- ** MoveCursor + TextViewMoveCursorCallback , + TextViewMoveCursorCallbackC , + TextViewMoveCursorSignalInfo , + afterTextViewMoveCursor , + mkTextViewMoveCursorCallback , + noTextViewMoveCursorCallback , + onTextViewMoveCursor , + textViewMoveCursorCallbackWrapper , + textViewMoveCursorClosure , + + +-- ** MoveViewport + TextViewMoveViewportCallback , + TextViewMoveViewportCallbackC , + TextViewMoveViewportSignalInfo , + afterTextViewMoveViewport , + mkTextViewMoveViewportCallback , + noTextViewMoveViewportCallback , + onTextViewMoveViewport , + textViewMoveViewportCallbackWrapper , + textViewMoveViewportClosure , + + +-- ** PasteClipboard + TextViewPasteClipboardCallback , + TextViewPasteClipboardCallbackC , + TextViewPasteClipboardSignalInfo , + afterTextViewPasteClipboard , + mkTextViewPasteClipboardCallback , + noTextViewPasteClipboardCallback , + onTextViewPasteClipboard , + textViewPasteClipboardCallbackWrapper , + textViewPasteClipboardClosure , + + +-- ** PopulatePopup + TextViewPopulatePopupCallback , + TextViewPopulatePopupCallbackC , + TextViewPopulatePopupSignalInfo , + afterTextViewPopulatePopup , + mkTextViewPopulatePopupCallback , + noTextViewPopulatePopupCallback , + onTextViewPopulatePopup , + textViewPopulatePopupCallbackWrapper , + textViewPopulatePopupClosure , + + +-- ** PreeditChanged + TextViewPreeditChangedCallback , + TextViewPreeditChangedCallbackC , + TextViewPreeditChangedSignalInfo , + afterTextViewPreeditChanged , + mkTextViewPreeditChangedCallback , + noTextViewPreeditChangedCallback , + onTextViewPreeditChanged , + textViewPreeditChangedCallbackWrapper , + textViewPreeditChangedClosure , + + +-- ** SelectAll + TextViewSelectAllCallback , + TextViewSelectAllCallbackC , + TextViewSelectAllSignalInfo , + afterTextViewSelectAll , + mkTextViewSelectAllCallback , + noTextViewSelectAllCallback , + onTextViewSelectAll , + textViewSelectAllCallbackWrapper , + textViewSelectAllClosure , + + +-- ** SetAnchor + TextViewSetAnchorCallback , + TextViewSetAnchorCallbackC , + TextViewSetAnchorSignalInfo , + afterTextViewSetAnchor , + mkTextViewSetAnchorCallback , + noTextViewSetAnchorCallback , + onTextViewSetAnchor , + textViewSetAnchorCallbackWrapper , + textViewSetAnchorClosure , + + +-- ** ToggleCursorVisible + TextViewToggleCursorVisibleCallback , + TextViewToggleCursorVisibleCallbackC , + TextViewToggleCursorVisibleSignalInfo , + afterTextViewToggleCursorVisible , + mkTextViewToggleCursorVisibleCallback , + noTextViewToggleCursorVisibleCallback , + onTextViewToggleCursorVisible , + textViewToggleCursorVisibleCallbackWrapper, + textViewToggleCursorVisibleClosure , + + +-- ** ToggleOverwrite + TextViewToggleOverwriteCallback , + TextViewToggleOverwriteCallbackC , + TextViewToggleOverwriteSignalInfo , + afterTextViewToggleOverwrite , + mkTextViewToggleOverwriteCallback , + noTextViewToggleOverwriteCallback , + onTextViewToggleOverwrite , + textViewToggleOverwriteCallbackWrapper , + textViewToggleOverwriteClosure , + + + + + ) 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.Atk as Atk +import qualified GI.GObject as GObject +import qualified GI.Gdk as Gdk +import qualified GI.Pango as Pango + +newtype TextView = TextView (ForeignPtr TextView) +foreign import ccall "gtk_text_view_get_type" + c_gtk_text_view_get_type :: IO GType + +type instance ParentTypes TextView = TextViewParentTypes +type TextViewParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Scrollable] + +instance GObject TextView where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_gtk_text_view_get_type + + +class GObject o => TextViewK o +instance (GObject o, IsDescendantOf TextView o) => TextViewK o + +toTextView :: TextViewK o => o -> IO TextView +toTextView = unsafeCastTo TextView + +noTextView :: Maybe TextView +noTextView = Nothing + +type family ResolveTextViewMethod (t :: Symbol) (o :: *) :: * where + ResolveTextViewMethod "activate" o = WidgetActivateMethodInfo + ResolveTextViewMethod "add" o = ContainerAddMethodInfo + ResolveTextViewMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveTextViewMethod "addChild" o = BuildableAddChildMethodInfo + ResolveTextViewMethod "addChildAtAnchor" o = TextViewAddChildAtAnchorMethodInfo + ResolveTextViewMethod "addChildInWindow" o = TextViewAddChildInWindowMethodInfo + ResolveTextViewMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveTextViewMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveTextViewMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveTextViewMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveTextViewMethod "backwardDisplayLine" o = TextViewBackwardDisplayLineMethodInfo + ResolveTextViewMethod "backwardDisplayLineStart" o = TextViewBackwardDisplayLineStartMethodInfo + ResolveTextViewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTextViewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTextViewMethod "bufferToWindowCoords" o = TextViewBufferToWindowCoordsMethodInfo + ResolveTextViewMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveTextViewMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveTextViewMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveTextViewMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveTextViewMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveTextViewMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveTextViewMethod "childType" o = ContainerChildTypeMethodInfo + ResolveTextViewMethod "classPath" o = WidgetClassPathMethodInfo + ResolveTextViewMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveTextViewMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveTextViewMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveTextViewMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveTextViewMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveTextViewMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveTextViewMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveTextViewMethod "destroy" o = WidgetDestroyMethodInfo + ResolveTextViewMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveTextViewMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveTextViewMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveTextViewMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveTextViewMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveTextViewMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveTextViewMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveTextViewMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveTextViewMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveTextViewMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveTextViewMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveTextViewMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveTextViewMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveTextViewMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveTextViewMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveTextViewMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveTextViewMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveTextViewMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveTextViewMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveTextViewMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveTextViewMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveTextViewMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveTextViewMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveTextViewMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveTextViewMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveTextViewMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveTextViewMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveTextViewMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveTextViewMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveTextViewMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveTextViewMethod "draw" o = WidgetDrawMethodInfo + ResolveTextViewMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveTextViewMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveTextViewMethod "event" o = WidgetEventMethodInfo + ResolveTextViewMethod "forall" o = ContainerForallMethodInfo + ResolveTextViewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTextViewMethod "foreach" o = ContainerForeachMethodInfo + ResolveTextViewMethod "forwardDisplayLine" o = TextViewForwardDisplayLineMethodInfo + ResolveTextViewMethod "forwardDisplayLineEnd" o = TextViewForwardDisplayLineEndMethodInfo + ResolveTextViewMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveTextViewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTextViewMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveTextViewMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveTextViewMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveTextViewMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveTextViewMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveTextViewMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveTextViewMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveTextViewMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveTextViewMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveTextViewMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveTextViewMethod "hide" o = WidgetHideMethodInfo + ResolveTextViewMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveTextViewMethod "imContextFilterKeypress" o = TextViewImContextFilterKeypressMethodInfo + ResolveTextViewMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveTextViewMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveTextViewMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveTextViewMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveTextViewMethod "intersect" o = WidgetIntersectMethodInfo + ResolveTextViewMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveTextViewMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveTextViewMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveTextViewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTextViewMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveTextViewMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveTextViewMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveTextViewMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveTextViewMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveTextViewMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveTextViewMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveTextViewMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveTextViewMethod "map" o = WidgetMapMethodInfo + ResolveTextViewMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveTextViewMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveTextViewMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveTextViewMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveTextViewMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveTextViewMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveTextViewMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveTextViewMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveTextViewMethod "moveChild" o = TextViewMoveChildMethodInfo + ResolveTextViewMethod "moveMarkOnscreen" o = TextViewMoveMarkOnscreenMethodInfo + ResolveTextViewMethod "moveVisually" o = TextViewMoveVisuallyMethodInfo + ResolveTextViewMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTextViewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTextViewMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveTextViewMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveTextViewMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveTextViewMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveTextViewMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveTextViewMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveTextViewMethod "path" o = WidgetPathMethodInfo + ResolveTextViewMethod "placeCursorOnscreen" o = TextViewPlaceCursorOnscreenMethodInfo + ResolveTextViewMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveTextViewMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveTextViewMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveTextViewMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveTextViewMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveTextViewMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveTextViewMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveTextViewMethod "realize" o = WidgetRealizeMethodInfo + ResolveTextViewMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTextViewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTextViewMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveTextViewMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveTextViewMethod "remove" o = ContainerRemoveMethodInfo + ResolveTextViewMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveTextViewMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveTextViewMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveTextViewMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveTextViewMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveTextViewMethod "reparent" o = WidgetReparentMethodInfo + ResolveTextViewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTextViewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTextViewMethod "resetImContext" o = TextViewResetImContextMethodInfo + ResolveTextViewMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveTextViewMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveTextViewMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveTextViewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTextViewMethod "scrollMarkOnscreen" o = TextViewScrollMarkOnscreenMethodInfo + ResolveTextViewMethod "scrollToIter" o = TextViewScrollToIterMethodInfo + ResolveTextViewMethod "scrollToMark" o = TextViewScrollToMarkMethodInfo + ResolveTextViewMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveTextViewMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveTextViewMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveTextViewMethod "show" o = WidgetShowMethodInfo + ResolveTextViewMethod "showAll" o = WidgetShowAllMethodInfo + ResolveTextViewMethod "showNow" o = WidgetShowNowMethodInfo + ResolveTextViewMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveTextViewMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveTextViewMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveTextViewMethod "startsDisplayLine" o = TextViewStartsDisplayLineMethodInfo + ResolveTextViewMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTextViewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTextViewMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveTextViewMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveTextViewMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveTextViewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTextViewMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveTextViewMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveTextViewMethod "unmap" o = WidgetUnmapMethodInfo + ResolveTextViewMethod "unparent" o = WidgetUnparentMethodInfo + ResolveTextViewMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveTextViewMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTextViewMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveTextViewMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveTextViewMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveTextViewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTextViewMethod "windowToBufferCoords" o = TextViewWindowToBufferCoordsMethodInfo + ResolveTextViewMethod "getAcceptsTab" o = TextViewGetAcceptsTabMethodInfo + ResolveTextViewMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveTextViewMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveTextViewMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveTextViewMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveTextViewMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveTextViewMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveTextViewMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveTextViewMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveTextViewMethod "getBorder" o = ScrollableGetBorderMethodInfo + ResolveTextViewMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveTextViewMethod "getBorderWindowSize" o = TextViewGetBorderWindowSizeMethodInfo + ResolveTextViewMethod "getBottomMargin" o = TextViewGetBottomMarginMethodInfo + ResolveTextViewMethod "getBuffer" o = TextViewGetBufferMethodInfo + ResolveTextViewMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveTextViewMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveTextViewMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveTextViewMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveTextViewMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveTextViewMethod "getClip" o = WidgetGetClipMethodInfo + ResolveTextViewMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveTextViewMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveTextViewMethod "getCursorLocations" o = TextViewGetCursorLocationsMethodInfo + ResolveTextViewMethod "getCursorVisible" o = TextViewGetCursorVisibleMethodInfo + ResolveTextViewMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTextViewMethod "getDefaultAttributes" o = TextViewGetDefaultAttributesMethodInfo + ResolveTextViewMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveTextViewMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveTextViewMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveTextViewMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveTextViewMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveTextViewMethod "getEditable" o = TextViewGetEditableMethodInfo + ResolveTextViewMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveTextViewMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveTextViewMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveTextViewMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveTextViewMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveTextViewMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveTextViewMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveTextViewMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveTextViewMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveTextViewMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveTextViewMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveTextViewMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveTextViewMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveTextViewMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo + ResolveTextViewMethod "getIndent" o = TextViewGetIndentMethodInfo + ResolveTextViewMethod "getInputHints" o = TextViewGetInputHintsMethodInfo + ResolveTextViewMethod "getInputPurpose" o = TextViewGetInputPurposeMethodInfo + ResolveTextViewMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveTextViewMethod "getIterAtLocation" o = TextViewGetIterAtLocationMethodInfo + ResolveTextViewMethod "getIterAtPosition" o = TextViewGetIterAtPositionMethodInfo + ResolveTextViewMethod "getIterLocation" o = TextViewGetIterLocationMethodInfo + ResolveTextViewMethod "getJustification" o = TextViewGetJustificationMethodInfo + ResolveTextViewMethod "getLeftMargin" o = TextViewGetLeftMarginMethodInfo + ResolveTextViewMethod "getLineAtY" o = TextViewGetLineAtYMethodInfo + ResolveTextViewMethod "getLineYrange" o = TextViewGetLineYrangeMethodInfo + ResolveTextViewMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveTextViewMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveTextViewMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveTextViewMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveTextViewMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveTextViewMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveTextViewMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveTextViewMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveTextViewMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveTextViewMethod "getMonospace" o = TextViewGetMonospaceMethodInfo + ResolveTextViewMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveTextViewMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveTextViewMethod "getOverwrite" o = TextViewGetOverwriteMethodInfo + ResolveTextViewMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveTextViewMethod "getParent" o = WidgetGetParentMethodInfo + ResolveTextViewMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveTextViewMethod "getPath" o = WidgetGetPathMethodInfo + ResolveTextViewMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveTextViewMethod "getPixelsAboveLines" o = TextViewGetPixelsAboveLinesMethodInfo + ResolveTextViewMethod "getPixelsBelowLines" o = TextViewGetPixelsBelowLinesMethodInfo + ResolveTextViewMethod "getPixelsInsideWrap" o = TextViewGetPixelsInsideWrapMethodInfo + ResolveTextViewMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveTextViewMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveTextViewMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveTextViewMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveTextViewMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveTextViewMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveTextViewMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveTextViewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTextViewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTextViewMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveTextViewMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveTextViewMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveTextViewMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveTextViewMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveTextViewMethod "getRightMargin" o = TextViewGetRightMarginMethodInfo + ResolveTextViewMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveTextViewMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveTextViewMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveTextViewMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveTextViewMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveTextViewMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveTextViewMethod "getState" o = WidgetGetStateMethodInfo + ResolveTextViewMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveTextViewMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveTextViewMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveTextViewMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveTextViewMethod "getTabs" o = TextViewGetTabsMethodInfo + ResolveTextViewMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveTextViewMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveTextViewMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveTextViewMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveTextViewMethod "getTopMargin" o = TextViewGetTopMarginMethodInfo + ResolveTextViewMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveTextViewMethod "getValign" o = WidgetGetValignMethodInfo + ResolveTextViewMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveTextViewMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveTextViewMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveTextViewMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveTextViewMethod "getVisibleRect" o = TextViewGetVisibleRectMethodInfo + ResolveTextViewMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveTextViewMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo + ResolveTextViewMethod "getWindowType" o = TextViewGetWindowTypeMethodInfo + ResolveTextViewMethod "getWrapMode" o = TextViewGetWrapModeMethodInfo + ResolveTextViewMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveTextViewMethod "setAcceptsTab" o = TextViewSetAcceptsTabMethodInfo + ResolveTextViewMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveTextViewMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveTextViewMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveTextViewMethod "setBorderWindowSize" o = TextViewSetBorderWindowSizeMethodInfo + ResolveTextViewMethod "setBottomMargin" o = TextViewSetBottomMarginMethodInfo + ResolveTextViewMethod "setBuffer" o = TextViewSetBufferMethodInfo + ResolveTextViewMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveTextViewMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveTextViewMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveTextViewMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveTextViewMethod "setClip" o = WidgetSetClipMethodInfo + ResolveTextViewMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveTextViewMethod "setCursorVisible" o = TextViewSetCursorVisibleMethodInfo + ResolveTextViewMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTextViewMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveTextViewMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveTextViewMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveTextViewMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveTextViewMethod "setEditable" o = TextViewSetEditableMethodInfo + ResolveTextViewMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveTextViewMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveTextViewMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveTextViewMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveTextViewMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveTextViewMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveTextViewMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveTextViewMethod "setHadjustment" o = ScrollableSetHadjustmentMethodInfo + ResolveTextViewMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveTextViewMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveTextViewMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveTextViewMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveTextViewMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveTextViewMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo + ResolveTextViewMethod "setIndent" o = TextViewSetIndentMethodInfo + ResolveTextViewMethod "setInputHints" o = TextViewSetInputHintsMethodInfo + ResolveTextViewMethod "setInputPurpose" o = TextViewSetInputPurposeMethodInfo + ResolveTextViewMethod "setJustification" o = TextViewSetJustificationMethodInfo + ResolveTextViewMethod "setLeftMargin" o = TextViewSetLeftMarginMethodInfo + ResolveTextViewMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveTextViewMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveTextViewMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveTextViewMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveTextViewMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveTextViewMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveTextViewMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveTextViewMethod "setMonospace" o = TextViewSetMonospaceMethodInfo + ResolveTextViewMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveTextViewMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveTextViewMethod "setOverwrite" o = TextViewSetOverwriteMethodInfo + ResolveTextViewMethod "setParent" o = WidgetSetParentMethodInfo + ResolveTextViewMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveTextViewMethod "setPixelsAboveLines" o = TextViewSetPixelsAboveLinesMethodInfo + ResolveTextViewMethod "setPixelsBelowLines" o = TextViewSetPixelsBelowLinesMethodInfo + ResolveTextViewMethod "setPixelsInsideWrap" o = TextViewSetPixelsInsideWrapMethodInfo + ResolveTextViewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTextViewMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveTextViewMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveTextViewMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveTextViewMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveTextViewMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveTextViewMethod "setRightMargin" o = TextViewSetRightMarginMethodInfo + ResolveTextViewMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveTextViewMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveTextViewMethod "setState" o = WidgetSetStateMethodInfo + ResolveTextViewMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveTextViewMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveTextViewMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveTextViewMethod "setTabs" o = TextViewSetTabsMethodInfo + ResolveTextViewMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveTextViewMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveTextViewMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveTextViewMethod "setTopMargin" o = TextViewSetTopMarginMethodInfo + ResolveTextViewMethod "setVadjustment" o = ScrollableSetVadjustmentMethodInfo + ResolveTextViewMethod "setValign" o = WidgetSetValignMethodInfo + ResolveTextViewMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveTextViewMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveTextViewMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveTextViewMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveTextViewMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo + ResolveTextViewMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveTextViewMethod "setWrapMode" o = TextViewSetWrapModeMethodInfo + ResolveTextViewMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTextViewMethod t TextView, MethodInfo info TextView p) => IsLabelProxy t (TextView -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTextViewMethod t TextView, MethodInfo info TextView p) => IsLabel t (TextView -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- signal TextView::backspace +type TextViewBackspaceCallback = + IO () + +noTextViewBackspaceCallback :: Maybe TextViewBackspaceCallback +noTextViewBackspaceCallback = Nothing + +type TextViewBackspaceCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewBackspaceCallback :: TextViewBackspaceCallbackC -> IO (FunPtr TextViewBackspaceCallbackC) + +textViewBackspaceClosure :: TextViewBackspaceCallback -> IO Closure +textViewBackspaceClosure cb = newCClosure =<< mkTextViewBackspaceCallback wrapped + where wrapped = textViewBackspaceCallbackWrapper cb + +textViewBackspaceCallbackWrapper :: + TextViewBackspaceCallback -> + Ptr () -> + Ptr () -> + IO () +textViewBackspaceCallbackWrapper _cb _ _ = do + _cb + +onTextViewBackspace :: (GObject a, MonadIO m) => a -> TextViewBackspaceCallback -> m SignalHandlerId +onTextViewBackspace obj cb = liftIO $ connectTextViewBackspace obj cb SignalConnectBefore +afterTextViewBackspace :: (GObject a, MonadIO m) => a -> TextViewBackspaceCallback -> m SignalHandlerId +afterTextViewBackspace obj cb = connectTextViewBackspace obj cb SignalConnectAfter + +connectTextViewBackspace :: (GObject a, MonadIO m) => + a -> TextViewBackspaceCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewBackspace obj cb after = liftIO $ do + cb' <- mkTextViewBackspaceCallback (textViewBackspaceCallbackWrapper cb) + connectSignalFunPtr obj "backspace" cb' after + +-- signal TextView::copy-clipboard +type TextViewCopyClipboardCallback = + IO () + +noTextViewCopyClipboardCallback :: Maybe TextViewCopyClipboardCallback +noTextViewCopyClipboardCallback = Nothing + +type TextViewCopyClipboardCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewCopyClipboardCallback :: TextViewCopyClipboardCallbackC -> IO (FunPtr TextViewCopyClipboardCallbackC) + +textViewCopyClipboardClosure :: TextViewCopyClipboardCallback -> IO Closure +textViewCopyClipboardClosure cb = newCClosure =<< mkTextViewCopyClipboardCallback wrapped + where wrapped = textViewCopyClipboardCallbackWrapper cb + +textViewCopyClipboardCallbackWrapper :: + TextViewCopyClipboardCallback -> + Ptr () -> + Ptr () -> + IO () +textViewCopyClipboardCallbackWrapper _cb _ _ = do + _cb + +onTextViewCopyClipboard :: (GObject a, MonadIO m) => a -> TextViewCopyClipboardCallback -> m SignalHandlerId +onTextViewCopyClipboard obj cb = liftIO $ connectTextViewCopyClipboard obj cb SignalConnectBefore +afterTextViewCopyClipboard :: (GObject a, MonadIO m) => a -> TextViewCopyClipboardCallback -> m SignalHandlerId +afterTextViewCopyClipboard obj cb = connectTextViewCopyClipboard obj cb SignalConnectAfter + +connectTextViewCopyClipboard :: (GObject a, MonadIO m) => + a -> TextViewCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewCopyClipboard obj cb after = liftIO $ do + cb' <- mkTextViewCopyClipboardCallback (textViewCopyClipboardCallbackWrapper cb) + connectSignalFunPtr obj "copy-clipboard" cb' after + +-- signal TextView::cut-clipboard +type TextViewCutClipboardCallback = + IO () + +noTextViewCutClipboardCallback :: Maybe TextViewCutClipboardCallback +noTextViewCutClipboardCallback = Nothing + +type TextViewCutClipboardCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewCutClipboardCallback :: TextViewCutClipboardCallbackC -> IO (FunPtr TextViewCutClipboardCallbackC) + +textViewCutClipboardClosure :: TextViewCutClipboardCallback -> IO Closure +textViewCutClipboardClosure cb = newCClosure =<< mkTextViewCutClipboardCallback wrapped + where wrapped = textViewCutClipboardCallbackWrapper cb + +textViewCutClipboardCallbackWrapper :: + TextViewCutClipboardCallback -> + Ptr () -> + Ptr () -> + IO () +textViewCutClipboardCallbackWrapper _cb _ _ = do + _cb + +onTextViewCutClipboard :: (GObject a, MonadIO m) => a -> TextViewCutClipboardCallback -> m SignalHandlerId +onTextViewCutClipboard obj cb = liftIO $ connectTextViewCutClipboard obj cb SignalConnectBefore +afterTextViewCutClipboard :: (GObject a, MonadIO m) => a -> TextViewCutClipboardCallback -> m SignalHandlerId +afterTextViewCutClipboard obj cb = connectTextViewCutClipboard obj cb SignalConnectAfter + +connectTextViewCutClipboard :: (GObject a, MonadIO m) => + a -> TextViewCutClipboardCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewCutClipboard obj cb after = liftIO $ do + cb' <- mkTextViewCutClipboardCallback (textViewCutClipboardCallbackWrapper cb) + connectSignalFunPtr obj "cut-clipboard" cb' after + +-- signal TextView::delete-from-cursor +type TextViewDeleteFromCursorCallback = + DeleteType -> + Int32 -> + IO () + +noTextViewDeleteFromCursorCallback :: Maybe TextViewDeleteFromCursorCallback +noTextViewDeleteFromCursorCallback = Nothing + +type TextViewDeleteFromCursorCallbackC = + Ptr () -> -- object + CUInt -> + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewDeleteFromCursorCallback :: TextViewDeleteFromCursorCallbackC -> IO (FunPtr TextViewDeleteFromCursorCallbackC) + +textViewDeleteFromCursorClosure :: TextViewDeleteFromCursorCallback -> IO Closure +textViewDeleteFromCursorClosure cb = newCClosure =<< mkTextViewDeleteFromCursorCallback wrapped + where wrapped = textViewDeleteFromCursorCallbackWrapper cb + +textViewDeleteFromCursorCallbackWrapper :: + TextViewDeleteFromCursorCallback -> + Ptr () -> + CUInt -> + Int32 -> + Ptr () -> + IO () +textViewDeleteFromCursorCallbackWrapper _cb _ type_ count _ = do + let type_' = (toEnum . fromIntegral) type_ + _cb type_' count + +onTextViewDeleteFromCursor :: (GObject a, MonadIO m) => a -> TextViewDeleteFromCursorCallback -> m SignalHandlerId +onTextViewDeleteFromCursor obj cb = liftIO $ connectTextViewDeleteFromCursor obj cb SignalConnectBefore +afterTextViewDeleteFromCursor :: (GObject a, MonadIO m) => a -> TextViewDeleteFromCursorCallback -> m SignalHandlerId +afterTextViewDeleteFromCursor obj cb = connectTextViewDeleteFromCursor obj cb SignalConnectAfter + +connectTextViewDeleteFromCursor :: (GObject a, MonadIO m) => + a -> TextViewDeleteFromCursorCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewDeleteFromCursor obj cb after = liftIO $ do + cb' <- mkTextViewDeleteFromCursorCallback (textViewDeleteFromCursorCallbackWrapper cb) + connectSignalFunPtr obj "delete-from-cursor" cb' after + +-- signal TextView::extend-selection +type TextViewExtendSelectionCallback = + TextExtendSelection -> + TextIter -> + TextIter -> + TextIter -> + IO Bool + +noTextViewExtendSelectionCallback :: Maybe TextViewExtendSelectionCallback +noTextViewExtendSelectionCallback = Nothing + +type TextViewExtendSelectionCallbackC = + Ptr () -> -- object + CUInt -> + Ptr TextIter -> + Ptr TextIter -> + Ptr TextIter -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkTextViewExtendSelectionCallback :: TextViewExtendSelectionCallbackC -> IO (FunPtr TextViewExtendSelectionCallbackC) + +textViewExtendSelectionClosure :: TextViewExtendSelectionCallback -> IO Closure +textViewExtendSelectionClosure cb = newCClosure =<< mkTextViewExtendSelectionCallback wrapped + where wrapped = textViewExtendSelectionCallbackWrapper cb + +textViewExtendSelectionCallbackWrapper :: + TextViewExtendSelectionCallback -> + Ptr () -> + CUInt -> + Ptr TextIter -> + Ptr TextIter -> + Ptr TextIter -> + Ptr () -> + IO CInt +textViewExtendSelectionCallbackWrapper _cb _ granularity location start end _ = do + let granularity' = (toEnum . fromIntegral) granularity + location' <- (newBoxed TextIter) location + start' <- (newBoxed TextIter) start + end' <- (newBoxed TextIter) end + result <- _cb granularity' location' start' end' + let result' = (fromIntegral . fromEnum) result + return result' + +onTextViewExtendSelection :: (GObject a, MonadIO m) => a -> TextViewExtendSelectionCallback -> m SignalHandlerId +onTextViewExtendSelection obj cb = liftIO $ connectTextViewExtendSelection obj cb SignalConnectBefore +afterTextViewExtendSelection :: (GObject a, MonadIO m) => a -> TextViewExtendSelectionCallback -> m SignalHandlerId +afterTextViewExtendSelection obj cb = connectTextViewExtendSelection obj cb SignalConnectAfter + +connectTextViewExtendSelection :: (GObject a, MonadIO m) => + a -> TextViewExtendSelectionCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewExtendSelection obj cb after = liftIO $ do + cb' <- mkTextViewExtendSelectionCallback (textViewExtendSelectionCallbackWrapper cb) + connectSignalFunPtr obj "extend-selection" cb' after + +-- signal TextView::insert-at-cursor +type TextViewInsertAtCursorCallback = + T.Text -> + IO () + +noTextViewInsertAtCursorCallback :: Maybe TextViewInsertAtCursorCallback +noTextViewInsertAtCursorCallback = Nothing + +type TextViewInsertAtCursorCallbackC = + Ptr () -> -- object + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewInsertAtCursorCallback :: TextViewInsertAtCursorCallbackC -> IO (FunPtr TextViewInsertAtCursorCallbackC) + +textViewInsertAtCursorClosure :: TextViewInsertAtCursorCallback -> IO Closure +textViewInsertAtCursorClosure cb = newCClosure =<< mkTextViewInsertAtCursorCallback wrapped + where wrapped = textViewInsertAtCursorCallbackWrapper cb + +textViewInsertAtCursorCallbackWrapper :: + TextViewInsertAtCursorCallback -> + Ptr () -> + CString -> + Ptr () -> + IO () +textViewInsertAtCursorCallbackWrapper _cb _ string _ = do + string' <- cstringToText string + _cb string' + +onTextViewInsertAtCursor :: (GObject a, MonadIO m) => a -> TextViewInsertAtCursorCallback -> m SignalHandlerId +onTextViewInsertAtCursor obj cb = liftIO $ connectTextViewInsertAtCursor obj cb SignalConnectBefore +afterTextViewInsertAtCursor :: (GObject a, MonadIO m) => a -> TextViewInsertAtCursorCallback -> m SignalHandlerId +afterTextViewInsertAtCursor obj cb = connectTextViewInsertAtCursor obj cb SignalConnectAfter + +connectTextViewInsertAtCursor :: (GObject a, MonadIO m) => + a -> TextViewInsertAtCursorCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewInsertAtCursor obj cb after = liftIO $ do + cb' <- mkTextViewInsertAtCursorCallback (textViewInsertAtCursorCallbackWrapper cb) + connectSignalFunPtr obj "insert-at-cursor" cb' after + +-- signal TextView::move-cursor +type TextViewMoveCursorCallback = + MovementStep -> + Int32 -> + Bool -> + IO () + +noTextViewMoveCursorCallback :: Maybe TextViewMoveCursorCallback +noTextViewMoveCursorCallback = Nothing + +type TextViewMoveCursorCallbackC = + Ptr () -> -- object + CUInt -> + Int32 -> + CInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewMoveCursorCallback :: TextViewMoveCursorCallbackC -> IO (FunPtr TextViewMoveCursorCallbackC) + +textViewMoveCursorClosure :: TextViewMoveCursorCallback -> IO Closure +textViewMoveCursorClosure cb = newCClosure =<< mkTextViewMoveCursorCallback wrapped + where wrapped = textViewMoveCursorCallbackWrapper cb + +textViewMoveCursorCallbackWrapper :: + TextViewMoveCursorCallback -> + Ptr () -> + CUInt -> + Int32 -> + CInt -> + Ptr () -> + IO () +textViewMoveCursorCallbackWrapper _cb _ step count extendSelection _ = do + let step' = (toEnum . fromIntegral) step + let extendSelection' = (/= 0) extendSelection + _cb step' count extendSelection' + +onTextViewMoveCursor :: (GObject a, MonadIO m) => a -> TextViewMoveCursorCallback -> m SignalHandlerId +onTextViewMoveCursor obj cb = liftIO $ connectTextViewMoveCursor obj cb SignalConnectBefore +afterTextViewMoveCursor :: (GObject a, MonadIO m) => a -> TextViewMoveCursorCallback -> m SignalHandlerId +afterTextViewMoveCursor obj cb = connectTextViewMoveCursor obj cb SignalConnectAfter + +connectTextViewMoveCursor :: (GObject a, MonadIO m) => + a -> TextViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewMoveCursor obj cb after = liftIO $ do + cb' <- mkTextViewMoveCursorCallback (textViewMoveCursorCallbackWrapper cb) + connectSignalFunPtr obj "move-cursor" cb' after + +-- signal TextView::move-viewport +type TextViewMoveViewportCallback = + ScrollStep -> + Int32 -> + IO () + +noTextViewMoveViewportCallback :: Maybe TextViewMoveViewportCallback +noTextViewMoveViewportCallback = Nothing + +type TextViewMoveViewportCallbackC = + Ptr () -> -- object + CUInt -> + Int32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewMoveViewportCallback :: TextViewMoveViewportCallbackC -> IO (FunPtr TextViewMoveViewportCallbackC) + +textViewMoveViewportClosure :: TextViewMoveViewportCallback -> IO Closure +textViewMoveViewportClosure cb = newCClosure =<< mkTextViewMoveViewportCallback wrapped + where wrapped = textViewMoveViewportCallbackWrapper cb + +textViewMoveViewportCallbackWrapper :: + TextViewMoveViewportCallback -> + Ptr () -> + CUInt -> + Int32 -> + Ptr () -> + IO () +textViewMoveViewportCallbackWrapper _cb _ step count _ = do + let step' = (toEnum . fromIntegral) step + _cb step' count + +onTextViewMoveViewport :: (GObject a, MonadIO m) => a -> TextViewMoveViewportCallback -> m SignalHandlerId +onTextViewMoveViewport obj cb = liftIO $ connectTextViewMoveViewport obj cb SignalConnectBefore +afterTextViewMoveViewport :: (GObject a, MonadIO m) => a -> TextViewMoveViewportCallback -> m SignalHandlerId +afterTextViewMoveViewport obj cb = connectTextViewMoveViewport obj cb SignalConnectAfter + +connectTextViewMoveViewport :: (GObject a, MonadIO m) => + a -> TextViewMoveViewportCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewMoveViewport obj cb after = liftIO $ do + cb' <- mkTextViewMoveViewportCallback (textViewMoveViewportCallbackWrapper cb) + connectSignalFunPtr obj "move-viewport" cb' after + +-- signal TextView::paste-clipboard +type TextViewPasteClipboardCallback = + IO () + +noTextViewPasteClipboardCallback :: Maybe TextViewPasteClipboardCallback +noTextViewPasteClipboardCallback = Nothing + +type TextViewPasteClipboardCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewPasteClipboardCallback :: TextViewPasteClipboardCallbackC -> IO (FunPtr TextViewPasteClipboardCallbackC) + +textViewPasteClipboardClosure :: TextViewPasteClipboardCallback -> IO Closure +textViewPasteClipboardClosure cb = newCClosure =<< mkTextViewPasteClipboardCallback wrapped + where wrapped = textViewPasteClipboardCallbackWrapper cb + +textViewPasteClipboardCallbackWrapper :: + TextViewPasteClipboardCallback -> + Ptr () -> + Ptr () -> + IO () +textViewPasteClipboardCallbackWrapper _cb _ _ = do + _cb + +onTextViewPasteClipboard :: (GObject a, MonadIO m) => a -> TextViewPasteClipboardCallback -> m SignalHandlerId +onTextViewPasteClipboard obj cb = liftIO $ connectTextViewPasteClipboard obj cb SignalConnectBefore +afterTextViewPasteClipboard :: (GObject a, MonadIO m) => a -> TextViewPasteClipboardCallback -> m SignalHandlerId +afterTextViewPasteClipboard obj cb = connectTextViewPasteClipboard obj cb SignalConnectAfter + +connectTextViewPasteClipboard :: (GObject a, MonadIO m) => + a -> TextViewPasteClipboardCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewPasteClipboard obj cb after = liftIO $ do + cb' <- mkTextViewPasteClipboardCallback (textViewPasteClipboardCallbackWrapper cb) + connectSignalFunPtr obj "paste-clipboard" cb' after + +-- signal TextView::populate-popup +type TextViewPopulatePopupCallback = + Widget -> + IO () + +noTextViewPopulatePopupCallback :: Maybe TextViewPopulatePopupCallback +noTextViewPopulatePopupCallback = Nothing + +type TextViewPopulatePopupCallbackC = + Ptr () -> -- object + Ptr Widget -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewPopulatePopupCallback :: TextViewPopulatePopupCallbackC -> IO (FunPtr TextViewPopulatePopupCallbackC) + +textViewPopulatePopupClosure :: TextViewPopulatePopupCallback -> IO Closure +textViewPopulatePopupClosure cb = newCClosure =<< mkTextViewPopulatePopupCallback wrapped + where wrapped = textViewPopulatePopupCallbackWrapper cb + +textViewPopulatePopupCallbackWrapper :: + TextViewPopulatePopupCallback -> + Ptr () -> + Ptr Widget -> + Ptr () -> + IO () +textViewPopulatePopupCallbackWrapper _cb _ popup _ = do + popup' <- (newObject Widget) popup + _cb popup' + +onTextViewPopulatePopup :: (GObject a, MonadIO m) => a -> TextViewPopulatePopupCallback -> m SignalHandlerId +onTextViewPopulatePopup obj cb = liftIO $ connectTextViewPopulatePopup obj cb SignalConnectBefore +afterTextViewPopulatePopup :: (GObject a, MonadIO m) => a -> TextViewPopulatePopupCallback -> m SignalHandlerId +afterTextViewPopulatePopup obj cb = connectTextViewPopulatePopup obj cb SignalConnectAfter + +connectTextViewPopulatePopup :: (GObject a, MonadIO m) => + a -> TextViewPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewPopulatePopup obj cb after = liftIO $ do + cb' <- mkTextViewPopulatePopupCallback (textViewPopulatePopupCallbackWrapper cb) + connectSignalFunPtr obj "populate-popup" cb' after + +-- signal TextView::preedit-changed +type TextViewPreeditChangedCallback = + T.Text -> + IO () + +noTextViewPreeditChangedCallback :: Maybe TextViewPreeditChangedCallback +noTextViewPreeditChangedCallback = Nothing + +type TextViewPreeditChangedCallbackC = + Ptr () -> -- object + CString -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewPreeditChangedCallback :: TextViewPreeditChangedCallbackC -> IO (FunPtr TextViewPreeditChangedCallbackC) + +textViewPreeditChangedClosure :: TextViewPreeditChangedCallback -> IO Closure +textViewPreeditChangedClosure cb = newCClosure =<< mkTextViewPreeditChangedCallback wrapped + where wrapped = textViewPreeditChangedCallbackWrapper cb + +textViewPreeditChangedCallbackWrapper :: + TextViewPreeditChangedCallback -> + Ptr () -> + CString -> + Ptr () -> + IO () +textViewPreeditChangedCallbackWrapper _cb _ preedit _ = do + preedit' <- cstringToText preedit + _cb preedit' + +onTextViewPreeditChanged :: (GObject a, MonadIO m) => a -> TextViewPreeditChangedCallback -> m SignalHandlerId +onTextViewPreeditChanged obj cb = liftIO $ connectTextViewPreeditChanged obj cb SignalConnectBefore +afterTextViewPreeditChanged :: (GObject a, MonadIO m) => a -> TextViewPreeditChangedCallback -> m SignalHandlerId +afterTextViewPreeditChanged obj cb = connectTextViewPreeditChanged obj cb SignalConnectAfter + +connectTextViewPreeditChanged :: (GObject a, MonadIO m) => + a -> TextViewPreeditChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewPreeditChanged obj cb after = liftIO $ do + cb' <- mkTextViewPreeditChangedCallback (textViewPreeditChangedCallbackWrapper cb) + connectSignalFunPtr obj "preedit-changed" cb' after + +-- signal TextView::select-all +type TextViewSelectAllCallback = + Bool -> + IO () + +noTextViewSelectAllCallback :: Maybe TextViewSelectAllCallback +noTextViewSelectAllCallback = Nothing + +type TextViewSelectAllCallbackC = + Ptr () -> -- object + CInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewSelectAllCallback :: TextViewSelectAllCallbackC -> IO (FunPtr TextViewSelectAllCallbackC) + +textViewSelectAllClosure :: TextViewSelectAllCallback -> IO Closure +textViewSelectAllClosure cb = newCClosure =<< mkTextViewSelectAllCallback wrapped + where wrapped = textViewSelectAllCallbackWrapper cb + +textViewSelectAllCallbackWrapper :: + TextViewSelectAllCallback -> + Ptr () -> + CInt -> + Ptr () -> + IO () +textViewSelectAllCallbackWrapper _cb _ select _ = do + let select' = (/= 0) select + _cb select' + +onTextViewSelectAll :: (GObject a, MonadIO m) => a -> TextViewSelectAllCallback -> m SignalHandlerId +onTextViewSelectAll obj cb = liftIO $ connectTextViewSelectAll obj cb SignalConnectBefore +afterTextViewSelectAll :: (GObject a, MonadIO m) => a -> TextViewSelectAllCallback -> m SignalHandlerId +afterTextViewSelectAll obj cb = connectTextViewSelectAll obj cb SignalConnectAfter + +connectTextViewSelectAll :: (GObject a, MonadIO m) => + a -> TextViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewSelectAll obj cb after = liftIO $ do + cb' <- mkTextViewSelectAllCallback (textViewSelectAllCallbackWrapper cb) + connectSignalFunPtr obj "select-all" cb' after + +-- signal TextView::set-anchor +type TextViewSetAnchorCallback = + IO () + +noTextViewSetAnchorCallback :: Maybe TextViewSetAnchorCallback +noTextViewSetAnchorCallback = Nothing + +type TextViewSetAnchorCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewSetAnchorCallback :: TextViewSetAnchorCallbackC -> IO (FunPtr TextViewSetAnchorCallbackC) + +textViewSetAnchorClosure :: TextViewSetAnchorCallback -> IO Closure +textViewSetAnchorClosure cb = newCClosure =<< mkTextViewSetAnchorCallback wrapped + where wrapped = textViewSetAnchorCallbackWrapper cb + +textViewSetAnchorCallbackWrapper :: + TextViewSetAnchorCallback -> + Ptr () -> + Ptr () -> + IO () +textViewSetAnchorCallbackWrapper _cb _ _ = do + _cb + +onTextViewSetAnchor :: (GObject a, MonadIO m) => a -> TextViewSetAnchorCallback -> m SignalHandlerId +onTextViewSetAnchor obj cb = liftIO $ connectTextViewSetAnchor obj cb SignalConnectBefore +afterTextViewSetAnchor :: (GObject a, MonadIO m) => a -> TextViewSetAnchorCallback -> m SignalHandlerId +afterTextViewSetAnchor obj cb = connectTextViewSetAnchor obj cb SignalConnectAfter + +connectTextViewSetAnchor :: (GObject a, MonadIO m) => + a -> TextViewSetAnchorCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewSetAnchor obj cb after = liftIO $ do + cb' <- mkTextViewSetAnchorCallback (textViewSetAnchorCallbackWrapper cb) + connectSignalFunPtr obj "set-anchor" cb' after + +-- signal TextView::toggle-cursor-visible +type TextViewToggleCursorVisibleCallback = + IO () + +noTextViewToggleCursorVisibleCallback :: Maybe TextViewToggleCursorVisibleCallback +noTextViewToggleCursorVisibleCallback = Nothing + +type TextViewToggleCursorVisibleCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewToggleCursorVisibleCallback :: TextViewToggleCursorVisibleCallbackC -> IO (FunPtr TextViewToggleCursorVisibleCallbackC) + +textViewToggleCursorVisibleClosure :: TextViewToggleCursorVisibleCallback -> IO Closure +textViewToggleCursorVisibleClosure cb = newCClosure =<< mkTextViewToggleCursorVisibleCallback wrapped + where wrapped = textViewToggleCursorVisibleCallbackWrapper cb + +textViewToggleCursorVisibleCallbackWrapper :: + TextViewToggleCursorVisibleCallback -> + Ptr () -> + Ptr () -> + IO () +textViewToggleCursorVisibleCallbackWrapper _cb _ _ = do + _cb + +onTextViewToggleCursorVisible :: (GObject a, MonadIO m) => a -> TextViewToggleCursorVisibleCallback -> m SignalHandlerId +onTextViewToggleCursorVisible obj cb = liftIO $ connectTextViewToggleCursorVisible obj cb SignalConnectBefore +afterTextViewToggleCursorVisible :: (GObject a, MonadIO m) => a -> TextViewToggleCursorVisibleCallback -> m SignalHandlerId +afterTextViewToggleCursorVisible obj cb = connectTextViewToggleCursorVisible obj cb SignalConnectAfter + +connectTextViewToggleCursorVisible :: (GObject a, MonadIO m) => + a -> TextViewToggleCursorVisibleCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewToggleCursorVisible obj cb after = liftIO $ do + cb' <- mkTextViewToggleCursorVisibleCallback (textViewToggleCursorVisibleCallbackWrapper cb) + connectSignalFunPtr obj "toggle-cursor-visible" cb' after + +-- signal TextView::toggle-overwrite +type TextViewToggleOverwriteCallback = + IO () + +noTextViewToggleOverwriteCallback :: Maybe TextViewToggleOverwriteCallback +noTextViewToggleOverwriteCallback = Nothing + +type TextViewToggleOverwriteCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTextViewToggleOverwriteCallback :: TextViewToggleOverwriteCallbackC -> IO (FunPtr TextViewToggleOverwriteCallbackC) + +textViewToggleOverwriteClosure :: TextViewToggleOverwriteCallback -> IO Closure +textViewToggleOverwriteClosure cb = newCClosure =<< mkTextViewToggleOverwriteCallback wrapped + where wrapped = textViewToggleOverwriteCallbackWrapper cb + +textViewToggleOverwriteCallbackWrapper :: + TextViewToggleOverwriteCallback -> + Ptr () -> + Ptr () -> + IO () +textViewToggleOverwriteCallbackWrapper _cb _ _ = do + _cb + +onTextViewToggleOverwrite :: (GObject a, MonadIO m) => a -> TextViewToggleOverwriteCallback -> m SignalHandlerId +onTextViewToggleOverwrite obj cb = liftIO $ connectTextViewToggleOverwrite obj cb SignalConnectBefore +afterTextViewToggleOverwrite :: (GObject a, MonadIO m) => a -> TextViewToggleOverwriteCallback -> m SignalHandlerId +afterTextViewToggleOverwrite obj cb = connectTextViewToggleOverwrite obj cb SignalConnectAfter + +connectTextViewToggleOverwrite :: (GObject a, MonadIO m) => + a -> TextViewToggleOverwriteCallback -> SignalConnectMode -> m SignalHandlerId +connectTextViewToggleOverwrite obj cb after = liftIO $ do + cb' <- mkTextViewToggleOverwriteCallback (textViewToggleOverwriteCallbackWrapper cb) + connectSignalFunPtr obj "toggle-overwrite" cb' after + +-- VVV Prop "accepts-tab" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewAcceptsTab :: (MonadIO m, TextViewK o) => o -> m Bool +getTextViewAcceptsTab obj = liftIO $ getObjectPropertyBool obj "accepts-tab" + +setTextViewAcceptsTab :: (MonadIO m, TextViewK o) => o -> Bool -> m () +setTextViewAcceptsTab obj val = liftIO $ setObjectPropertyBool obj "accepts-tab" val + +constructTextViewAcceptsTab :: Bool -> IO ([Char], GValue) +constructTextViewAcceptsTab val = constructObjectPropertyBool "accepts-tab" val + +data TextViewAcceptsTabPropertyInfo +instance AttrInfo TextViewAcceptsTabPropertyInfo where + type AttrAllowedOps TextViewAcceptsTabPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewAcceptsTabPropertyInfo = (~) Bool + type AttrBaseTypeConstraint TextViewAcceptsTabPropertyInfo = TextViewK + type AttrGetType TextViewAcceptsTabPropertyInfo = Bool + type AttrLabel TextViewAcceptsTabPropertyInfo = "accepts-tab" + attrGet _ = getTextViewAcceptsTab + attrSet _ = setTextViewAcceptsTab + attrConstruct _ = constructTextViewAcceptsTab + +-- VVV Prop "bottom-margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewBottomMargin :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewBottomMargin obj = liftIO $ getObjectPropertyCInt obj "bottom-margin" + +setTextViewBottomMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewBottomMargin obj val = liftIO $ setObjectPropertyCInt obj "bottom-margin" val + +constructTextViewBottomMargin :: Int32 -> IO ([Char], GValue) +constructTextViewBottomMargin val = constructObjectPropertyCInt "bottom-margin" val + +data TextViewBottomMarginPropertyInfo +instance AttrInfo TextViewBottomMarginPropertyInfo where + type AttrAllowedOps TextViewBottomMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewBottomMarginPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint TextViewBottomMarginPropertyInfo = TextViewK + type AttrGetType TextViewBottomMarginPropertyInfo = Int32 + type AttrLabel TextViewBottomMarginPropertyInfo = "bottom-margin" + attrGet _ = getTextViewBottomMargin + attrSet _ = setTextViewBottomMargin + attrConstruct _ = constructTextViewBottomMargin + +-- VVV Prop "buffer" + -- Type: TInterface "Gtk" "TextBuffer" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewBuffer :: (MonadIO m, TextViewK o) => o -> m TextBuffer +getTextViewBuffer obj = liftIO $ getObjectPropertyObject obj "buffer" TextBuffer + +setTextViewBuffer :: (MonadIO m, TextViewK o, TextBufferK a) => o -> a -> m () +setTextViewBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" val + +constructTextViewBuffer :: (TextBufferK a) => a -> IO ([Char], GValue) +constructTextViewBuffer val = constructObjectPropertyObject "buffer" val + +data TextViewBufferPropertyInfo +instance AttrInfo TextViewBufferPropertyInfo where + type AttrAllowedOps TextViewBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewBufferPropertyInfo = TextBufferK + type AttrBaseTypeConstraint TextViewBufferPropertyInfo = TextViewK + type AttrGetType TextViewBufferPropertyInfo = TextBuffer + type AttrLabel TextViewBufferPropertyInfo = "buffer" + attrGet _ = getTextViewBuffer + attrSet _ = setTextViewBuffer + attrConstruct _ = constructTextViewBuffer + +-- VVV Prop "cursor-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewCursorVisible :: (MonadIO m, TextViewK o) => o -> m Bool +getTextViewCursorVisible obj = liftIO $ getObjectPropertyBool obj "cursor-visible" + +setTextViewCursorVisible :: (MonadIO m, TextViewK o) => o -> Bool -> m () +setTextViewCursorVisible obj val = liftIO $ setObjectPropertyBool obj "cursor-visible" val + +constructTextViewCursorVisible :: Bool -> IO ([Char], GValue) +constructTextViewCursorVisible val = constructObjectPropertyBool "cursor-visible" val + +data TextViewCursorVisiblePropertyInfo +instance AttrInfo TextViewCursorVisiblePropertyInfo where + type AttrAllowedOps TextViewCursorVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewCursorVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint TextViewCursorVisiblePropertyInfo = TextViewK + type AttrGetType TextViewCursorVisiblePropertyInfo = Bool + type AttrLabel TextViewCursorVisiblePropertyInfo = "cursor-visible" + attrGet _ = getTextViewCursorVisible + attrSet _ = setTextViewCursorVisible + attrConstruct _ = constructTextViewCursorVisible + +-- VVV Prop "editable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewEditable :: (MonadIO m, TextViewK o) => o -> m Bool +getTextViewEditable obj = liftIO $ getObjectPropertyBool obj "editable" + +setTextViewEditable :: (MonadIO m, TextViewK o) => o -> Bool -> m () +setTextViewEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val + +constructTextViewEditable :: Bool -> IO ([Char], GValue) +constructTextViewEditable val = constructObjectPropertyBool "editable" val + +data TextViewEditablePropertyInfo +instance AttrInfo TextViewEditablePropertyInfo where + type AttrAllowedOps TextViewEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewEditablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint TextViewEditablePropertyInfo = TextViewK + type AttrGetType TextViewEditablePropertyInfo = Bool + type AttrLabel TextViewEditablePropertyInfo = "editable" + attrGet _ = getTextViewEditable + attrSet _ = setTextViewEditable + attrConstruct _ = constructTextViewEditable + +-- VVV Prop "im-module" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewImModule :: (MonadIO m, TextViewK o) => o -> m T.Text +getTextViewImModule obj = liftIO $ getObjectPropertyString obj "im-module" + +setTextViewImModule :: (MonadIO m, TextViewK o) => o -> T.Text -> m () +setTextViewImModule obj val = liftIO $ setObjectPropertyString obj "im-module" val + +constructTextViewImModule :: T.Text -> IO ([Char], GValue) +constructTextViewImModule val = constructObjectPropertyString "im-module" val + +data TextViewImModulePropertyInfo +instance AttrInfo TextViewImModulePropertyInfo where + type AttrAllowedOps TextViewImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewImModulePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextViewImModulePropertyInfo = TextViewK + type AttrGetType TextViewImModulePropertyInfo = T.Text + type AttrLabel TextViewImModulePropertyInfo = "im-module" + attrGet _ = getTextViewImModule + attrSet _ = setTextViewImModule + attrConstruct _ = constructTextViewImModule + +-- VVV Prop "indent" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewIndent :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewIndent obj = liftIO $ getObjectPropertyCInt obj "indent" + +setTextViewIndent :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewIndent obj val = liftIO $ setObjectPropertyCInt obj "indent" val + +constructTextViewIndent :: Int32 -> IO ([Char], GValue) +constructTextViewIndent val = constructObjectPropertyCInt "indent" val + +data TextViewIndentPropertyInfo +instance AttrInfo TextViewIndentPropertyInfo where + type AttrAllowedOps TextViewIndentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewIndentPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint TextViewIndentPropertyInfo = TextViewK + type AttrGetType TextViewIndentPropertyInfo = Int32 + type AttrLabel TextViewIndentPropertyInfo = "indent" + attrGet _ = getTextViewIndent + attrSet _ = setTextViewIndent + attrConstruct _ = constructTextViewIndent + +-- VVV Prop "input-hints" + -- Type: TInterface "Gtk" "InputHints" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewInputHints :: (MonadIO m, TextViewK o) => o -> m [InputHints] +getTextViewInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints" + +setTextViewInputHints :: (MonadIO m, TextViewK o) => o -> [InputHints] -> m () +setTextViewInputHints obj val = liftIO $ setObjectPropertyFlags obj "input-hints" val + +constructTextViewInputHints :: [InputHints] -> IO ([Char], GValue) +constructTextViewInputHints val = constructObjectPropertyFlags "input-hints" val + +data TextViewInputHintsPropertyInfo +instance AttrInfo TextViewInputHintsPropertyInfo where + type AttrAllowedOps TextViewInputHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewInputHintsPropertyInfo = (~) [InputHints] + type AttrBaseTypeConstraint TextViewInputHintsPropertyInfo = TextViewK + type AttrGetType TextViewInputHintsPropertyInfo = [InputHints] + type AttrLabel TextViewInputHintsPropertyInfo = "input-hints" + attrGet _ = getTextViewInputHints + attrSet _ = setTextViewInputHints + attrConstruct _ = constructTextViewInputHints + +-- VVV Prop "input-purpose" + -- Type: TInterface "Gtk" "InputPurpose" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewInputPurpose :: (MonadIO m, TextViewK o) => o -> m InputPurpose +getTextViewInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose" + +setTextViewInputPurpose :: (MonadIO m, TextViewK o) => o -> InputPurpose -> m () +setTextViewInputPurpose obj val = liftIO $ setObjectPropertyEnum obj "input-purpose" val + +constructTextViewInputPurpose :: InputPurpose -> IO ([Char], GValue) +constructTextViewInputPurpose val = constructObjectPropertyEnum "input-purpose" val + +data TextViewInputPurposePropertyInfo +instance AttrInfo TextViewInputPurposePropertyInfo where + type AttrAllowedOps TextViewInputPurposePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewInputPurposePropertyInfo = (~) InputPurpose + type AttrBaseTypeConstraint TextViewInputPurposePropertyInfo = TextViewK + type AttrGetType TextViewInputPurposePropertyInfo = InputPurpose + type AttrLabel TextViewInputPurposePropertyInfo = "input-purpose" + attrGet _ = getTextViewInputPurpose + attrSet _ = setTextViewInputPurpose + attrConstruct _ = constructTextViewInputPurpose + +-- VVV Prop "justification" + -- Type: TInterface "Gtk" "Justification" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewJustification :: (MonadIO m, TextViewK o) => o -> m Justification +getTextViewJustification obj = liftIO $ getObjectPropertyEnum obj "justification" + +setTextViewJustification :: (MonadIO m, TextViewK o) => o -> Justification -> m () +setTextViewJustification obj val = liftIO $ setObjectPropertyEnum obj "justification" val + +constructTextViewJustification :: Justification -> IO ([Char], GValue) +constructTextViewJustification val = constructObjectPropertyEnum "justification" val + +data TextViewJustificationPropertyInfo +instance AttrInfo TextViewJustificationPropertyInfo where + type AttrAllowedOps TextViewJustificationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewJustificationPropertyInfo = (~) Justification + type AttrBaseTypeConstraint TextViewJustificationPropertyInfo = TextViewK + type AttrGetType TextViewJustificationPropertyInfo = Justification + type AttrLabel TextViewJustificationPropertyInfo = "justification" + attrGet _ = getTextViewJustification + attrSet _ = setTextViewJustification + attrConstruct _ = constructTextViewJustification + +-- VVV Prop "left-margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewLeftMargin :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewLeftMargin obj = liftIO $ getObjectPropertyCInt obj "left-margin" + +setTextViewLeftMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewLeftMargin obj val = liftIO $ setObjectPropertyCInt obj "left-margin" val + +constructTextViewLeftMargin :: Int32 -> IO ([Char], GValue) +constructTextViewLeftMargin val = constructObjectPropertyCInt "left-margin" val + +data TextViewLeftMarginPropertyInfo +instance AttrInfo TextViewLeftMarginPropertyInfo where + type AttrAllowedOps TextViewLeftMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewLeftMarginPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint TextViewLeftMarginPropertyInfo = TextViewK + type AttrGetType TextViewLeftMarginPropertyInfo = Int32 + type AttrLabel TextViewLeftMarginPropertyInfo = "left-margin" + attrGet _ = getTextViewLeftMargin + attrSet _ = setTextViewLeftMargin + attrConstruct _ = constructTextViewLeftMargin + +-- VVV Prop "monospace" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewMonospace :: (MonadIO m, TextViewK o) => o -> m Bool +getTextViewMonospace obj = liftIO $ getObjectPropertyBool obj "monospace" + +setTextViewMonospace :: (MonadIO m, TextViewK o) => o -> Bool -> m () +setTextViewMonospace obj val = liftIO $ setObjectPropertyBool obj "monospace" val + +constructTextViewMonospace :: Bool -> IO ([Char], GValue) +constructTextViewMonospace val = constructObjectPropertyBool "monospace" val + +data TextViewMonospacePropertyInfo +instance AttrInfo TextViewMonospacePropertyInfo where + type AttrAllowedOps TextViewMonospacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewMonospacePropertyInfo = (~) Bool + type AttrBaseTypeConstraint TextViewMonospacePropertyInfo = TextViewK + type AttrGetType TextViewMonospacePropertyInfo = Bool + type AttrLabel TextViewMonospacePropertyInfo = "monospace" + attrGet _ = getTextViewMonospace + attrSet _ = setTextViewMonospace + attrConstruct _ = constructTextViewMonospace + +-- VVV Prop "overwrite" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewOverwrite :: (MonadIO m, TextViewK o) => o -> m Bool +getTextViewOverwrite obj = liftIO $ getObjectPropertyBool obj "overwrite" + +setTextViewOverwrite :: (MonadIO m, TextViewK o) => o -> Bool -> m () +setTextViewOverwrite obj val = liftIO $ setObjectPropertyBool obj "overwrite" val + +constructTextViewOverwrite :: Bool -> IO ([Char], GValue) +constructTextViewOverwrite val = constructObjectPropertyBool "overwrite" val + +data TextViewOverwritePropertyInfo +instance AttrInfo TextViewOverwritePropertyInfo where + type AttrAllowedOps TextViewOverwritePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewOverwritePropertyInfo = (~) Bool + type AttrBaseTypeConstraint TextViewOverwritePropertyInfo = TextViewK + type AttrGetType TextViewOverwritePropertyInfo = Bool + type AttrLabel TextViewOverwritePropertyInfo = "overwrite" + attrGet _ = getTextViewOverwrite + attrSet _ = setTextViewOverwrite + attrConstruct _ = constructTextViewOverwrite + +-- VVV Prop "pixels-above-lines" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewPixelsAboveLines :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewPixelsAboveLines obj = liftIO $ getObjectPropertyCInt obj "pixels-above-lines" + +setTextViewPixelsAboveLines :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewPixelsAboveLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-above-lines" val + +constructTextViewPixelsAboveLines :: Int32 -> IO ([Char], GValue) +constructTextViewPixelsAboveLines val = constructObjectPropertyCInt "pixels-above-lines" val + +data TextViewPixelsAboveLinesPropertyInfo +instance AttrInfo TextViewPixelsAboveLinesPropertyInfo where + type AttrAllowedOps TextViewPixelsAboveLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewPixelsAboveLinesPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint TextViewPixelsAboveLinesPropertyInfo = TextViewK + type AttrGetType TextViewPixelsAboveLinesPropertyInfo = Int32 + type AttrLabel TextViewPixelsAboveLinesPropertyInfo = "pixels-above-lines" + attrGet _ = getTextViewPixelsAboveLines + attrSet _ = setTextViewPixelsAboveLines + attrConstruct _ = constructTextViewPixelsAboveLines + +-- VVV Prop "pixels-below-lines" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewPixelsBelowLines :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewPixelsBelowLines obj = liftIO $ getObjectPropertyCInt obj "pixels-below-lines" + +setTextViewPixelsBelowLines :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewPixelsBelowLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-below-lines" val + +constructTextViewPixelsBelowLines :: Int32 -> IO ([Char], GValue) +constructTextViewPixelsBelowLines val = constructObjectPropertyCInt "pixels-below-lines" val + +data TextViewPixelsBelowLinesPropertyInfo +instance AttrInfo TextViewPixelsBelowLinesPropertyInfo where + type AttrAllowedOps TextViewPixelsBelowLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewPixelsBelowLinesPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint TextViewPixelsBelowLinesPropertyInfo = TextViewK + type AttrGetType TextViewPixelsBelowLinesPropertyInfo = Int32 + type AttrLabel TextViewPixelsBelowLinesPropertyInfo = "pixels-below-lines" + attrGet _ = getTextViewPixelsBelowLines + attrSet _ = setTextViewPixelsBelowLines + attrConstruct _ = constructTextViewPixelsBelowLines + +-- VVV Prop "pixels-inside-wrap" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewPixelsInsideWrap :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewPixelsInsideWrap obj = liftIO $ getObjectPropertyCInt obj "pixels-inside-wrap" + +setTextViewPixelsInsideWrap :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewPixelsInsideWrap obj val = liftIO $ setObjectPropertyCInt obj "pixels-inside-wrap" val + +constructTextViewPixelsInsideWrap :: Int32 -> IO ([Char], GValue) +constructTextViewPixelsInsideWrap val = constructObjectPropertyCInt "pixels-inside-wrap" val + +data TextViewPixelsInsideWrapPropertyInfo +instance AttrInfo TextViewPixelsInsideWrapPropertyInfo where + type AttrAllowedOps TextViewPixelsInsideWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewPixelsInsideWrapPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint TextViewPixelsInsideWrapPropertyInfo = TextViewK + type AttrGetType TextViewPixelsInsideWrapPropertyInfo = Int32 + type AttrLabel TextViewPixelsInsideWrapPropertyInfo = "pixels-inside-wrap" + attrGet _ = getTextViewPixelsInsideWrap + attrSet _ = setTextViewPixelsInsideWrap + attrConstruct _ = constructTextViewPixelsInsideWrap + +-- VVV Prop "populate-all" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewPopulateAll :: (MonadIO m, TextViewK o) => o -> m Bool +getTextViewPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all" + +setTextViewPopulateAll :: (MonadIO m, TextViewK o) => o -> Bool -> m () +setTextViewPopulateAll obj val = liftIO $ setObjectPropertyBool obj "populate-all" val + +constructTextViewPopulateAll :: Bool -> IO ([Char], GValue) +constructTextViewPopulateAll val = constructObjectPropertyBool "populate-all" val + +data TextViewPopulateAllPropertyInfo +instance AttrInfo TextViewPopulateAllPropertyInfo where + type AttrAllowedOps TextViewPopulateAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewPopulateAllPropertyInfo = (~) Bool + type AttrBaseTypeConstraint TextViewPopulateAllPropertyInfo = TextViewK + type AttrGetType TextViewPopulateAllPropertyInfo = Bool + type AttrLabel TextViewPopulateAllPropertyInfo = "populate-all" + attrGet _ = getTextViewPopulateAll + attrSet _ = setTextViewPopulateAll + attrConstruct _ = constructTextViewPopulateAll + +-- VVV Prop "right-margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewRightMargin :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewRightMargin obj = liftIO $ getObjectPropertyCInt obj "right-margin" + +setTextViewRightMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewRightMargin obj val = liftIO $ setObjectPropertyCInt obj "right-margin" val + +constructTextViewRightMargin :: Int32 -> IO ([Char], GValue) +constructTextViewRightMargin val = constructObjectPropertyCInt "right-margin" val + +data TextViewRightMarginPropertyInfo +instance AttrInfo TextViewRightMarginPropertyInfo where + type AttrAllowedOps TextViewRightMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewRightMarginPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint TextViewRightMarginPropertyInfo = TextViewK + type AttrGetType TextViewRightMarginPropertyInfo = Int32 + type AttrLabel TextViewRightMarginPropertyInfo = "right-margin" + attrGet _ = getTextViewRightMargin + attrSet _ = setTextViewRightMargin + attrConstruct _ = constructTextViewRightMargin + +-- VVV Prop "tabs" + -- Type: TInterface "Pango" "TabArray" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewTabs :: (MonadIO m, TextViewK o) => o -> m Pango.TabArray +getTextViewTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray + +setTextViewTabs :: (MonadIO m, TextViewK o) => o -> Pango.TabArray -> m () +setTextViewTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" val + +constructTextViewTabs :: Pango.TabArray -> IO ([Char], GValue) +constructTextViewTabs val = constructObjectPropertyBoxed "tabs" val + +data TextViewTabsPropertyInfo +instance AttrInfo TextViewTabsPropertyInfo where + type AttrAllowedOps TextViewTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewTabsPropertyInfo = (~) Pango.TabArray + type AttrBaseTypeConstraint TextViewTabsPropertyInfo = TextViewK + type AttrGetType TextViewTabsPropertyInfo = Pango.TabArray + type AttrLabel TextViewTabsPropertyInfo = "tabs" + attrGet _ = getTextViewTabs + attrSet _ = setTextViewTabs + attrConstruct _ = constructTextViewTabs + +-- VVV Prop "top-margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewTopMargin :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewTopMargin obj = liftIO $ getObjectPropertyCInt obj "top-margin" + +setTextViewTopMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewTopMargin obj val = liftIO $ setObjectPropertyCInt obj "top-margin" val + +constructTextViewTopMargin :: Int32 -> IO ([Char], GValue) +constructTextViewTopMargin val = constructObjectPropertyCInt "top-margin" val + +data TextViewTopMarginPropertyInfo +instance AttrInfo TextViewTopMarginPropertyInfo where + type AttrAllowedOps TextViewTopMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewTopMarginPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint TextViewTopMarginPropertyInfo = TextViewK + type AttrGetType TextViewTopMarginPropertyInfo = Int32 + type AttrLabel TextViewTopMarginPropertyInfo = "top-margin" + attrGet _ = getTextViewTopMargin + attrSet _ = setTextViewTopMargin + attrConstruct _ = constructTextViewTopMargin + +-- VVV Prop "wrap-mode" + -- Type: TInterface "Gtk" "WrapMode" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewWrapMode :: (MonadIO m, TextViewK o) => o -> m WrapMode +getTextViewWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode" + +setTextViewWrapMode :: (MonadIO m, TextViewK o) => o -> WrapMode -> m () +setTextViewWrapMode obj val = liftIO $ setObjectPropertyEnum obj "wrap-mode" val + +constructTextViewWrapMode :: WrapMode -> IO ([Char], GValue) +constructTextViewWrapMode val = constructObjectPropertyEnum "wrap-mode" val + +data TextViewWrapModePropertyInfo +instance AttrInfo TextViewWrapModePropertyInfo where + type AttrAllowedOps TextViewWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewWrapModePropertyInfo = (~) WrapMode + type AttrBaseTypeConstraint TextViewWrapModePropertyInfo = TextViewK + type AttrGetType TextViewWrapModePropertyInfo = WrapMode + type AttrLabel TextViewWrapModePropertyInfo = "wrap-mode" + attrGet _ = getTextViewWrapMode + attrSet _ = setTextViewWrapMode + attrConstruct _ = constructTextViewWrapMode + +type instance AttributeList TextView = TextViewAttributeList +type TextViewAttributeList = ('[ '("acceptsTab", TextViewAcceptsTabPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("bottomMargin", TextViewBottomMarginPropertyInfo), '("buffer", TextViewBufferPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorVisible", TextViewCursorVisiblePropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editable", TextViewEditablePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("imModule", TextViewImModulePropertyInfo), '("indent", TextViewIndentPropertyInfo), '("inputHints", TextViewInputHintsPropertyInfo), '("inputPurpose", TextViewInputPurposePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("justification", TextViewJustificationPropertyInfo), '("leftMargin", TextViewLeftMarginPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("monospace", TextViewMonospacePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite", TextViewOverwritePropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixelsAboveLines", TextViewPixelsAboveLinesPropertyInfo), '("pixelsBelowLines", TextViewPixelsBelowLinesPropertyInfo), '("pixelsInsideWrap", TextViewPixelsInsideWrapPropertyInfo), '("populateAll", TextViewPopulateAllPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightMargin", TextViewRightMarginPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", TextViewTabsPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("topMargin", TextViewTopMarginPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapMode", TextViewWrapModePropertyInfo)] :: [(Symbol, *)]) + +data TextViewBackspaceSignalInfo +instance SignalInfo TextViewBackspaceSignalInfo where + type HaskellCallbackType TextViewBackspaceSignalInfo = TextViewBackspaceCallback + connectSignal _ = connectTextViewBackspace + +data TextViewCopyClipboardSignalInfo +instance SignalInfo TextViewCopyClipboardSignalInfo where + type HaskellCallbackType TextViewCopyClipboardSignalInfo = TextViewCopyClipboardCallback + connectSignal _ = connectTextViewCopyClipboard + +data TextViewCutClipboardSignalInfo +instance SignalInfo TextViewCutClipboardSignalInfo where + type HaskellCallbackType TextViewCutClipboardSignalInfo = TextViewCutClipboardCallback + connectSignal _ = connectTextViewCutClipboard + +data TextViewDeleteFromCursorSignalInfo +instance SignalInfo TextViewDeleteFromCursorSignalInfo where + type HaskellCallbackType TextViewDeleteFromCursorSignalInfo = TextViewDeleteFromCursorCallback + connectSignal _ = connectTextViewDeleteFromCursor + +data TextViewExtendSelectionSignalInfo +instance SignalInfo TextViewExtendSelectionSignalInfo where + type HaskellCallbackType TextViewExtendSelectionSignalInfo = TextViewExtendSelectionCallback + connectSignal _ = connectTextViewExtendSelection + +data TextViewInsertAtCursorSignalInfo +instance SignalInfo TextViewInsertAtCursorSignalInfo where + type HaskellCallbackType TextViewInsertAtCursorSignalInfo = TextViewInsertAtCursorCallback + connectSignal _ = connectTextViewInsertAtCursor + +data TextViewMoveCursorSignalInfo +instance SignalInfo TextViewMoveCursorSignalInfo where + type HaskellCallbackType TextViewMoveCursorSignalInfo = TextViewMoveCursorCallback + connectSignal _ = connectTextViewMoveCursor + +data TextViewMoveViewportSignalInfo +instance SignalInfo TextViewMoveViewportSignalInfo where + type HaskellCallbackType TextViewMoveViewportSignalInfo = TextViewMoveViewportCallback + connectSignal _ = connectTextViewMoveViewport + +data TextViewPasteClipboardSignalInfo +instance SignalInfo TextViewPasteClipboardSignalInfo where + type HaskellCallbackType TextViewPasteClipboardSignalInfo = TextViewPasteClipboardCallback + connectSignal _ = connectTextViewPasteClipboard + +data TextViewPopulatePopupSignalInfo +instance SignalInfo TextViewPopulatePopupSignalInfo where + type HaskellCallbackType TextViewPopulatePopupSignalInfo = TextViewPopulatePopupCallback + connectSignal _ = connectTextViewPopulatePopup + +data TextViewPreeditChangedSignalInfo +instance SignalInfo TextViewPreeditChangedSignalInfo where + type HaskellCallbackType TextViewPreeditChangedSignalInfo = TextViewPreeditChangedCallback + connectSignal _ = connectTextViewPreeditChanged + +data TextViewSelectAllSignalInfo +instance SignalInfo TextViewSelectAllSignalInfo where + type HaskellCallbackType TextViewSelectAllSignalInfo = TextViewSelectAllCallback + connectSignal _ = connectTextViewSelectAll + +data TextViewSetAnchorSignalInfo +instance SignalInfo TextViewSetAnchorSignalInfo where + type HaskellCallbackType TextViewSetAnchorSignalInfo = TextViewSetAnchorCallback + connectSignal _ = connectTextViewSetAnchor + +data TextViewToggleCursorVisibleSignalInfo +instance SignalInfo TextViewToggleCursorVisibleSignalInfo where + type HaskellCallbackType TextViewToggleCursorVisibleSignalInfo = TextViewToggleCursorVisibleCallback + connectSignal _ = connectTextViewToggleCursorVisible + +data TextViewToggleOverwriteSignalInfo +instance SignalInfo TextViewToggleOverwriteSignalInfo where + type HaskellCallbackType TextViewToggleOverwriteSignalInfo = TextViewToggleOverwriteCallback + connectSignal _ = connectTextViewToggleOverwrite + +type instance SignalList TextView = TextViewSignalList +type TextViewSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("backspace", TextViewBackspaceSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", TextViewCopyClipboardSignalInfo), '("cutClipboard", TextViewCutClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deleteFromCursor", TextViewDeleteFromCursorSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("extendSelection", TextViewExtendSelectionSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insertAtCursor", TextViewInsertAtCursorSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", TextViewMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveViewport", TextViewMoveViewportSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("pasteClipboard", TextViewPasteClipboardSignalInfo), '("populatePopup", TextViewPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("preeditChanged", TextViewPreeditChangedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectAll", TextViewSelectAllSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setAnchor", TextViewSetAnchorSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleCursorVisible", TextViewToggleCursorVisibleSignalInfo), '("toggleOverwrite", TextViewToggleOverwriteSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +-- method TextView::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextView" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_new" gtk_text_view_new :: + IO (Ptr TextView) + + +textViewNew :: + (MonadIO m) => + m TextView -- result +textViewNew = liftIO $ do + result <- gtk_text_view_new + checkUnexpectedReturnNULL "gtk_text_view_new" result + result' <- (newObject TextView) result + return result' + +-- method TextView::new_with_buffer +-- method type : Constructor +-- Args : [Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextView" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_new_with_buffer" gtk_text_view_new_with_buffer :: + Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" + IO (Ptr TextView) + + +textViewNewWithBuffer :: + (MonadIO m, TextBufferK a) => + a -- buffer + -> m TextView -- result +textViewNewWithBuffer buffer = liftIO $ do + let buffer' = unsafeManagedPtrCastPtr buffer + result <- gtk_text_view_new_with_buffer buffer' + checkUnexpectedReturnNULL "gtk_text_view_new_with_buffer" result + result' <- (newObject TextView) result + touchManagedPtr buffer + return result' + +-- method TextView::add_child_at_anchor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_add_child_at_anchor" gtk_text_view_add_child_at_anchor :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + Ptr TextChildAnchor -> -- anchor : TInterface "Gtk" "TextChildAnchor" + IO () + + +textViewAddChildAtAnchor :: + (MonadIO m, TextViewK a, WidgetK b, TextChildAnchorK c) => + a -- _obj + -> b -- child + -> c -- anchor + -> m () -- result +textViewAddChildAtAnchor _obj child anchor = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + let anchor' = unsafeManagedPtrCastPtr anchor + gtk_text_view_add_child_at_anchor _obj' child' anchor' + touchManagedPtr _obj + touchManagedPtr child + touchManagedPtr anchor + return () + +data TextViewAddChildAtAnchorMethodInfo +instance (signature ~ (b -> c -> m ()), MonadIO m, TextViewK a, WidgetK b, TextChildAnchorK c) => MethodInfo TextViewAddChildAtAnchorMethodInfo a signature where + overloadedMethod _ = textViewAddChildAtAnchor + +-- method TextView::add_child_in_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "which_window", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_add_child_in_window" gtk_text_view_add_child_in_window :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + CUInt -> -- which_window : TInterface "Gtk" "TextWindowType" + Int32 -> -- xpos : TBasicType TInt32 + Int32 -> -- ypos : TBasicType TInt32 + IO () + + +textViewAddChildInWindow :: + (MonadIO m, TextViewK a, WidgetK b) => + a -- _obj + -> b -- child + -> TextWindowType -- whichWindow + -> Int32 -- xpos + -> Int32 -- ypos + -> m () -- result +textViewAddChildInWindow _obj child whichWindow xpos ypos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + let whichWindow' = (fromIntegral . fromEnum) whichWindow + gtk_text_view_add_child_in_window _obj' child' whichWindow' xpos ypos + touchManagedPtr _obj + touchManagedPtr child + return () + +data TextViewAddChildInWindowMethodInfo +instance (signature ~ (b -> TextWindowType -> Int32 -> Int32 -> m ()), MonadIO m, TextViewK a, WidgetK b) => MethodInfo TextViewAddChildInWindowMethodInfo a signature where + overloadedMethod _ = textViewAddChildInWindow + +-- method TextView::backward_display_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_backward_display_line" gtk_text_view_backward_display_line :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + IO CInt + + +textViewBackwardDisplayLine :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextIter -- iter + -> m Bool -- result +textViewBackwardDisplayLine _obj iter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + result <- gtk_text_view_backward_display_line _obj' iter' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr iter + return result' + +data TextViewBackwardDisplayLineMethodInfo +instance (signature ~ (TextIter -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewBackwardDisplayLineMethodInfo a signature where + overloadedMethod _ = textViewBackwardDisplayLine + +-- method TextView::backward_display_line_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_backward_display_line_start" gtk_text_view_backward_display_line_start :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + IO CInt + + +textViewBackwardDisplayLineStart :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextIter -- iter + -> m Bool -- result +textViewBackwardDisplayLineStart _obj iter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + result <- gtk_text_view_backward_display_line_start _obj' iter' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr iter + return result' + +data TextViewBackwardDisplayLineStartMethodInfo +instance (signature ~ (TextIter -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewBackwardDisplayLineStartMethodInfo a signature where + overloadedMethod _ = textViewBackwardDisplayLineStart + +-- method TextView::buffer_to_window_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "window_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_buffer_to_window_coords" gtk_text_view_buffer_to_window_coords :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CUInt -> -- win : TInterface "Gtk" "TextWindowType" + Int32 -> -- buffer_x : TBasicType TInt32 + Int32 -> -- buffer_y : TBasicType TInt32 + Ptr Int32 -> -- window_x : TBasicType TInt32 + Ptr Int32 -> -- window_y : TBasicType TInt32 + IO () + + +textViewBufferToWindowCoords :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextWindowType -- win + -> Int32 -- bufferX + -> Int32 -- bufferY + -> m (Int32,Int32) -- result +textViewBufferToWindowCoords _obj win bufferX bufferY = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let win' = (fromIntegral . fromEnum) win + windowX <- allocMem :: IO (Ptr Int32) + windowY <- allocMem :: IO (Ptr Int32) + gtk_text_view_buffer_to_window_coords _obj' win' bufferX bufferY windowX windowY + windowX' <- peek windowX + windowY' <- peek windowY + touchManagedPtr _obj + freeMem windowX + freeMem windowY + return (windowX', windowY') + +data TextViewBufferToWindowCoordsMethodInfo +instance (signature ~ (TextWindowType -> Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TextViewK a) => MethodInfo TextViewBufferToWindowCoordsMethodInfo a signature where + overloadedMethod _ = textViewBufferToWindowCoords + +-- method TextView::forward_display_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_forward_display_line" gtk_text_view_forward_display_line :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + IO CInt + + +textViewForwardDisplayLine :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextIter -- iter + -> m Bool -- result +textViewForwardDisplayLine _obj iter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + result <- gtk_text_view_forward_display_line _obj' iter' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr iter + return result' + +data TextViewForwardDisplayLineMethodInfo +instance (signature ~ (TextIter -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewForwardDisplayLineMethodInfo a signature where + overloadedMethod _ = textViewForwardDisplayLine + +-- method TextView::forward_display_line_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_forward_display_line_end" gtk_text_view_forward_display_line_end :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + IO CInt + + +textViewForwardDisplayLineEnd :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextIter -- iter + -> m Bool -- result +textViewForwardDisplayLineEnd _obj iter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + result <- gtk_text_view_forward_display_line_end _obj' iter' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr iter + return result' + +data TextViewForwardDisplayLineEndMethodInfo +instance (signature ~ (TextIter -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewForwardDisplayLineEndMethodInfo a signature where + overloadedMethod _ = textViewForwardDisplayLineEnd + +-- method TextView::get_accepts_tab +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_accepts_tab" gtk_text_view_get_accepts_tab :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO CInt + + +textViewGetAcceptsTab :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Bool -- result +textViewGetAcceptsTab _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_accepts_tab _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextViewGetAcceptsTabMethodInfo +instance (signature ~ (m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewGetAcceptsTabMethodInfo a signature where + overloadedMethod _ = textViewGetAcceptsTab + +-- method TextView::get_border_window_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_border_window_size" gtk_text_view_get_border_window_size :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CUInt -> -- type : TInterface "Gtk" "TextWindowType" + IO Int32 + + +textViewGetBorderWindowSize :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextWindowType -- type_ + -> m Int32 -- result +textViewGetBorderWindowSize _obj type_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let type_' = (fromIntegral . fromEnum) type_ + result <- gtk_text_view_get_border_window_size _obj' type_' + touchManagedPtr _obj + return result + +data TextViewGetBorderWindowSizeMethodInfo +instance (signature ~ (TextWindowType -> m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetBorderWindowSizeMethodInfo a signature where + overloadedMethod _ = textViewGetBorderWindowSize + +-- method TextView::get_bottom_margin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_bottom_margin" gtk_text_view_get_bottom_margin :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO Int32 + + +textViewGetBottomMargin :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Int32 -- result +textViewGetBottomMargin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_bottom_margin _obj' + touchManagedPtr _obj + return result + +data TextViewGetBottomMarginMethodInfo +instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetBottomMarginMethodInfo a signature where + overloadedMethod _ = textViewGetBottomMargin + +-- method TextView::get_buffer +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextBuffer" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_buffer" gtk_text_view_get_buffer :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO (Ptr TextBuffer) + + +textViewGetBuffer :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m TextBuffer -- result +textViewGetBuffer _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_buffer _obj' + checkUnexpectedReturnNULL "gtk_text_view_get_buffer" result + result' <- (newObject TextBuffer) result + touchManagedPtr _obj + return result' + +data TextViewGetBufferMethodInfo +instance (signature ~ (m TextBuffer), MonadIO m, TextViewK a) => MethodInfo TextViewGetBufferMethodInfo a signature where + overloadedMethod _ = textViewGetBuffer + +-- method TextView::get_cursor_locations +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "strong", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "weak", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_cursor_locations" gtk_text_view_get_cursor_locations :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Ptr Gdk.Rectangle -> -- strong : TInterface "Gdk" "Rectangle" + Ptr Gdk.Rectangle -> -- weak : TInterface "Gdk" "Rectangle" + IO () + + +textViewGetCursorLocations :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Maybe (TextIter) -- iter + -> m (Gdk.Rectangle,Gdk.Rectangle) -- result +textViewGetCursorLocations _obj iter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeIter <- case iter of + Nothing -> return nullPtr + Just jIter -> do + let jIter' = unsafeManagedPtrGetPtr jIter + return jIter' + strong <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + weak <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_text_view_get_cursor_locations _obj' maybeIter strong weak + strong' <- (wrapBoxed Gdk.Rectangle) strong + weak' <- (wrapBoxed Gdk.Rectangle) weak + touchManagedPtr _obj + whenJust iter touchManagedPtr + return (strong', weak') + +data TextViewGetCursorLocationsMethodInfo +instance (signature ~ (Maybe (TextIter) -> m (Gdk.Rectangle,Gdk.Rectangle)), MonadIO m, TextViewK a) => MethodInfo TextViewGetCursorLocationsMethodInfo a signature where + overloadedMethod _ = textViewGetCursorLocations + +-- method TextView::get_cursor_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_cursor_visible" gtk_text_view_get_cursor_visible :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO CInt + + +textViewGetCursorVisible :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Bool -- result +textViewGetCursorVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_cursor_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextViewGetCursorVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewGetCursorVisibleMethodInfo a signature where + overloadedMethod _ = textViewGetCursorVisible + +-- method TextView::get_default_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextAttributes" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_default_attributes" gtk_text_view_get_default_attributes :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO (Ptr TextAttributes) + + +textViewGetDefaultAttributes :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m TextAttributes -- result +textViewGetDefaultAttributes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_default_attributes _obj' + checkUnexpectedReturnNULL "gtk_text_view_get_default_attributes" result + result' <- (wrapBoxed TextAttributes) result + touchManagedPtr _obj + return result' + +data TextViewGetDefaultAttributesMethodInfo +instance (signature ~ (m TextAttributes), MonadIO m, TextViewK a) => MethodInfo TextViewGetDefaultAttributesMethodInfo a signature where + overloadedMethod _ = textViewGetDefaultAttributes + +-- method TextView::get_editable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_editable" gtk_text_view_get_editable :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO CInt + + +textViewGetEditable :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Bool -- result +textViewGetEditable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_editable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextViewGetEditableMethodInfo +instance (signature ~ (m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewGetEditableMethodInfo a signature where + overloadedMethod _ = textViewGetEditable + +-- method TextView::get_hadjustment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Adjustment" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_hadjustment" gtk_text_view_get_hadjustment :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO (Ptr Adjustment) + +{-# DEPRECATED textViewGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-} +textViewGetHadjustment :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Adjustment -- result +textViewGetHadjustment _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_hadjustment _obj' + checkUnexpectedReturnNULL "gtk_text_view_get_hadjustment" result + result' <- (newObject Adjustment) result + touchManagedPtr _obj + return result' + +data TextViewGetHadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, TextViewK a) => MethodInfo TextViewGetHadjustmentMethodInfo a signature where + overloadedMethod _ = textViewGetHadjustment + +-- method TextView::get_indent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_indent" gtk_text_view_get_indent :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO Int32 + + +textViewGetIndent :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Int32 -- result +textViewGetIndent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_indent _obj' + touchManagedPtr _obj + return result + +data TextViewGetIndentMethodInfo +instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetIndentMethodInfo a signature where + overloadedMethod _ = textViewGetIndent + +-- method TextView::get_input_hints +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "InputHints" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_input_hints" gtk_text_view_get_input_hints :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO CUInt + + +textViewGetInputHints :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m [InputHints] -- result +textViewGetInputHints _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_input_hints _obj' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +data TextViewGetInputHintsMethodInfo +instance (signature ~ (m [InputHints]), MonadIO m, TextViewK a) => MethodInfo TextViewGetInputHintsMethodInfo a signature where + overloadedMethod _ = textViewGetInputHints + +-- method TextView::get_input_purpose +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "InputPurpose" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_input_purpose" gtk_text_view_get_input_purpose :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO CUInt + + +textViewGetInputPurpose :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m InputPurpose -- result +textViewGetInputPurpose _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_input_purpose _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data TextViewGetInputPurposeMethodInfo +instance (signature ~ (m InputPurpose), MonadIO m, TextViewK a) => MethodInfo TextViewGetInputPurposeMethodInfo a signature where + overloadedMethod _ = textViewGetInputPurpose + +-- method TextView::get_iter_at_location +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_iter_at_location" gtk_text_view_get_iter_at_location :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + IO () + + +textViewGetIterAtLocation :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> m (TextIter) -- result +textViewGetIterAtLocation _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) + gtk_text_view_get_iter_at_location _obj' iter x y + iter' <- (wrapBoxed TextIter) iter + touchManagedPtr _obj + return iter' + +data TextViewGetIterAtLocationMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (TextIter)), MonadIO m, TextViewK a) => MethodInfo TextViewGetIterAtLocationMethodInfo a signature where + overloadedMethod _ = textViewGetIterAtLocation + +-- method TextView::get_iter_at_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_iter_at_position" gtk_text_view_get_iter_at_position :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Ptr Int32 -> -- trailing : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + IO () + + +textViewGetIterAtPosition :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> m (TextIter,Int32) -- result +textViewGetIterAtPosition _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) + trailing <- allocMem :: IO (Ptr Int32) + gtk_text_view_get_iter_at_position _obj' iter trailing x y + iter' <- (wrapBoxed TextIter) iter + trailing' <- peek trailing + touchManagedPtr _obj + freeMem trailing + return (iter', trailing') + +data TextViewGetIterAtPositionMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (TextIter,Int32)), MonadIO m, TextViewK a) => MethodInfo TextViewGetIterAtPositionMethodInfo a signature where + overloadedMethod _ = textViewGetIterAtPosition + +-- method TextView::get_iter_location +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_iter_location" gtk_text_view_get_iter_location :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Ptr Gdk.Rectangle -> -- location : TInterface "Gdk" "Rectangle" + IO () + + +textViewGetIterLocation :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextIter -- iter + -> m (Gdk.Rectangle) -- result +textViewGetIterLocation _obj iter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + location <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_text_view_get_iter_location _obj' iter' location + location' <- (wrapBoxed Gdk.Rectangle) location + touchManagedPtr _obj + touchManagedPtr iter + return location' + +data TextViewGetIterLocationMethodInfo +instance (signature ~ (TextIter -> m (Gdk.Rectangle)), MonadIO m, TextViewK a) => MethodInfo TextViewGetIterLocationMethodInfo a signature where + overloadedMethod _ = textViewGetIterLocation + +-- method TextView::get_justification +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Justification" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_justification" gtk_text_view_get_justification :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO CUInt + + +textViewGetJustification :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Justification -- result +textViewGetJustification _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_justification _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data TextViewGetJustificationMethodInfo +instance (signature ~ (m Justification), MonadIO m, TextViewK a) => MethodInfo TextViewGetJustificationMethodInfo a signature where + overloadedMethod _ = textViewGetJustification + +-- method TextView::get_left_margin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_left_margin" gtk_text_view_get_left_margin :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO Int32 + + +textViewGetLeftMargin :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Int32 -- result +textViewGetLeftMargin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_left_margin _obj' + touchManagedPtr _obj + return result + +data TextViewGetLeftMarginMethodInfo +instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetLeftMarginMethodInfo a signature where + overloadedMethod _ = textViewGetLeftMargin + +-- method TextView::get_line_at_y +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line_top", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_line_at_y" gtk_text_view_get_line_at_y :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- target_iter : TInterface "Gtk" "TextIter" + Int32 -> -- y : TBasicType TInt32 + Ptr Int32 -> -- line_top : TBasicType TInt32 + IO () + + +textViewGetLineAtY :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Int32 -- y + -> m (TextIter,Int32) -- result +textViewGetLineAtY _obj y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + targetIter <- callocBoxedBytes 80 :: IO (Ptr TextIter) + lineTop <- allocMem :: IO (Ptr Int32) + gtk_text_view_get_line_at_y _obj' targetIter y lineTop + targetIter' <- (wrapBoxed TextIter) targetIter + lineTop' <- peek lineTop + touchManagedPtr _obj + freeMem lineTop + return (targetIter', lineTop') + +data TextViewGetLineAtYMethodInfo +instance (signature ~ (Int32 -> m (TextIter,Int32)), MonadIO m, TextViewK a) => MethodInfo TextViewGetLineAtYMethodInfo a signature where + overloadedMethod _ = textViewGetLineAtY + +-- method TextView::get_line_yrange +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_line_yrange" gtk_text_view_get_line_yrange :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Ptr Int32 -> -- y : TBasicType TInt32 + Ptr Int32 -> -- height : TBasicType TInt32 + IO () + + +textViewGetLineYrange :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextIter -- iter + -> m (Int32,Int32) -- result +textViewGetLineYrange _obj iter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + y <- allocMem :: IO (Ptr Int32) + height <- allocMem :: IO (Ptr Int32) + gtk_text_view_get_line_yrange _obj' iter' y height + y' <- peek y + height' <- peek height + touchManagedPtr _obj + touchManagedPtr iter + freeMem y + freeMem height + return (y', height') + +data TextViewGetLineYrangeMethodInfo +instance (signature ~ (TextIter -> m (Int32,Int32)), MonadIO m, TextViewK a) => MethodInfo TextViewGetLineYrangeMethodInfo a signature where + overloadedMethod _ = textViewGetLineYrange + +-- method TextView::get_monospace +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_monospace" gtk_text_view_get_monospace :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO CInt + + +textViewGetMonospace :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Bool -- result +textViewGetMonospace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_monospace _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextViewGetMonospaceMethodInfo +instance (signature ~ (m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewGetMonospaceMethodInfo a signature where + overloadedMethod _ = textViewGetMonospace + +-- method TextView::get_overwrite +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_overwrite" gtk_text_view_get_overwrite :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO CInt + + +textViewGetOverwrite :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Bool -- result +textViewGetOverwrite _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_overwrite _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextViewGetOverwriteMethodInfo +instance (signature ~ (m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewGetOverwriteMethodInfo a signature where + overloadedMethod _ = textViewGetOverwrite + +-- method TextView::get_pixels_above_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_pixels_above_lines" gtk_text_view_get_pixels_above_lines :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO Int32 + + +textViewGetPixelsAboveLines :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Int32 -- result +textViewGetPixelsAboveLines _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_pixels_above_lines _obj' + touchManagedPtr _obj + return result + +data TextViewGetPixelsAboveLinesMethodInfo +instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetPixelsAboveLinesMethodInfo a signature where + overloadedMethod _ = textViewGetPixelsAboveLines + +-- method TextView::get_pixels_below_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_pixels_below_lines" gtk_text_view_get_pixels_below_lines :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO Int32 + + +textViewGetPixelsBelowLines :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Int32 -- result +textViewGetPixelsBelowLines _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_pixels_below_lines _obj' + touchManagedPtr _obj + return result + +data TextViewGetPixelsBelowLinesMethodInfo +instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetPixelsBelowLinesMethodInfo a signature where + overloadedMethod _ = textViewGetPixelsBelowLines + +-- method TextView::get_pixels_inside_wrap +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_pixels_inside_wrap" gtk_text_view_get_pixels_inside_wrap :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO Int32 + + +textViewGetPixelsInsideWrap :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Int32 -- result +textViewGetPixelsInsideWrap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_pixels_inside_wrap _obj' + touchManagedPtr _obj + return result + +data TextViewGetPixelsInsideWrapMethodInfo +instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetPixelsInsideWrapMethodInfo a signature where + overloadedMethod _ = textViewGetPixelsInsideWrap + +-- method TextView::get_right_margin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_right_margin" gtk_text_view_get_right_margin :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO Int32 + + +textViewGetRightMargin :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Int32 -- result +textViewGetRightMargin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_right_margin _obj' + touchManagedPtr _obj + return result + +data TextViewGetRightMarginMethodInfo +instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetRightMarginMethodInfo a signature where + overloadedMethod _ = textViewGetRightMargin + +-- method TextView::get_tabs +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "TabArray" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_tabs" gtk_text_view_get_tabs :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO (Ptr Pango.TabArray) + + +textViewGetTabs :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Pango.TabArray -- result +textViewGetTabs _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_tabs _obj' + checkUnexpectedReturnNULL "gtk_text_view_get_tabs" result + result' <- (wrapBoxed Pango.TabArray) result + touchManagedPtr _obj + return result' + +data TextViewGetTabsMethodInfo +instance (signature ~ (m Pango.TabArray), MonadIO m, TextViewK a) => MethodInfo TextViewGetTabsMethodInfo a signature where + overloadedMethod _ = textViewGetTabs + +-- method TextView::get_top_margin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_top_margin" gtk_text_view_get_top_margin :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO Int32 + + +textViewGetTopMargin :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Int32 -- result +textViewGetTopMargin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_top_margin _obj' + touchManagedPtr _obj + return result + +data TextViewGetTopMarginMethodInfo +instance (signature ~ (m Int32), MonadIO m, TextViewK a) => MethodInfo TextViewGetTopMarginMethodInfo a signature where + overloadedMethod _ = textViewGetTopMargin + +-- method TextView::get_vadjustment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Adjustment" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_vadjustment" gtk_text_view_get_vadjustment :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO (Ptr Adjustment) + +{-# DEPRECATED textViewGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-} +textViewGetVadjustment :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Adjustment -- result +textViewGetVadjustment _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_vadjustment _obj' + checkUnexpectedReturnNULL "gtk_text_view_get_vadjustment" result + result' <- (newObject Adjustment) result + touchManagedPtr _obj + return result' + +data TextViewGetVadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, TextViewK a) => MethodInfo TextViewGetVadjustmentMethodInfo a signature where + overloadedMethod _ = textViewGetVadjustment + +-- method TextView::get_visible_rect +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_visible_rect" gtk_text_view_get_visible_rect :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr Gdk.Rectangle -> -- visible_rect : TInterface "Gdk" "Rectangle" + IO () + + +textViewGetVisibleRect :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m (Gdk.Rectangle) -- result +textViewGetVisibleRect _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + visibleRect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_text_view_get_visible_rect _obj' visibleRect + visibleRect' <- (wrapBoxed Gdk.Rectangle) visibleRect + touchManagedPtr _obj + return visibleRect' + +data TextViewGetVisibleRectMethodInfo +instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, TextViewK a) => MethodInfo TextViewGetVisibleRectMethodInfo a signature where + overloadedMethod _ = textViewGetVisibleRect + +-- method TextView::get_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Window" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_window" gtk_text_view_get_window :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CUInt -> -- win : TInterface "Gtk" "TextWindowType" + IO (Ptr Gdk.Window) + + +textViewGetWindow :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextWindowType -- win + -> m Gdk.Window -- result +textViewGetWindow _obj win = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let win' = (fromIntegral . fromEnum) win + result <- gtk_text_view_get_window _obj' win' + checkUnexpectedReturnNULL "gtk_text_view_get_window" result + result' <- (newObject Gdk.Window) result + touchManagedPtr _obj + return result' + +data TextViewGetWindowMethodInfo +instance (signature ~ (TextWindowType -> m Gdk.Window), MonadIO m, TextViewK a) => MethodInfo TextViewGetWindowMethodInfo a signature where + overloadedMethod _ = textViewGetWindow + +-- method TextView::get_window_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextWindowType" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_window_type" gtk_text_view_get_window_type :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" + IO CUInt + + +textViewGetWindowType :: + (MonadIO m, TextViewK a, Gdk.WindowK b) => + a -- _obj + -> b -- window + -> m TextWindowType -- result +textViewGetWindowType _obj window = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let window' = unsafeManagedPtrCastPtr window + result <- gtk_text_view_get_window_type _obj' window' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + touchManagedPtr window + return result' + +data TextViewGetWindowTypeMethodInfo +instance (signature ~ (b -> m TextWindowType), MonadIO m, TextViewK a, Gdk.WindowK b) => MethodInfo TextViewGetWindowTypeMethodInfo a signature where + overloadedMethod _ = textViewGetWindowType + +-- method TextView::get_wrap_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "WrapMode" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_get_wrap_mode" gtk_text_view_get_wrap_mode :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO CUInt + + +textViewGetWrapMode :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m WrapMode -- result +textViewGetWrapMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_get_wrap_mode _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data TextViewGetWrapModeMethodInfo +instance (signature ~ (m WrapMode), MonadIO m, TextViewK a) => MethodInfo TextViewGetWrapModeMethodInfo a signature where + overloadedMethod _ = textViewGetWrapMode + +-- method TextView::im_context_filter_keypress +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_im_context_filter_keypress" gtk_text_view_im_context_filter_keypress :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" + IO CInt + + +textViewImContextFilterKeypress :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Gdk.EventKey -- event + -> m Bool -- result +textViewImContextFilterKeypress _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrGetPtr event + result <- gtk_text_view_im_context_filter_keypress _obj' event' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr event + return result' + +data TextViewImContextFilterKeypressMethodInfo +instance (signature ~ (Gdk.EventKey -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewImContextFilterKeypressMethodInfo a signature where + overloadedMethod _ = textViewImContextFilterKeypress + +-- method TextView::move_child +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_move_child" gtk_text_view_move_child :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr Widget -> -- child : TInterface "Gtk" "Widget" + Int32 -> -- xpos : TBasicType TInt32 + Int32 -> -- ypos : TBasicType TInt32 + IO () + + +textViewMoveChild :: + (MonadIO m, TextViewK a, WidgetK b) => + a -- _obj + -> b -- child + -> Int32 -- xpos + -> Int32 -- ypos + -> m () -- result +textViewMoveChild _obj child xpos ypos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let child' = unsafeManagedPtrCastPtr child + gtk_text_view_move_child _obj' child' xpos ypos + touchManagedPtr _obj + touchManagedPtr child + return () + +data TextViewMoveChildMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, TextViewK a, WidgetK b) => MethodInfo TextViewMoveChildMethodInfo a signature where + overloadedMethod _ = textViewMoveChild + +-- method TextView::move_mark_onscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_move_mark_onscreen" gtk_text_view_move_mark_onscreen :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" + IO CInt + + +textViewMoveMarkOnscreen :: + (MonadIO m, TextViewK a, TextMarkK b) => + a -- _obj + -> b -- mark + -> m Bool -- result +textViewMoveMarkOnscreen _obj mark = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let mark' = unsafeManagedPtrCastPtr mark + result <- gtk_text_view_move_mark_onscreen _obj' mark' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr mark + return result' + +data TextViewMoveMarkOnscreenMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, TextViewK a, TextMarkK b) => MethodInfo TextViewMoveMarkOnscreenMethodInfo a signature where + overloadedMethod _ = textViewMoveMarkOnscreen + +-- method TextView::move_visually +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_move_visually" gtk_text_view_move_visually :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textViewMoveVisually :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextIter -- iter + -> Int32 -- count + -> m Bool -- result +textViewMoveVisually _obj iter count = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + result <- gtk_text_view_move_visually _obj' iter' count + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr iter + return result' + +data TextViewMoveVisuallyMethodInfo +instance (signature ~ (TextIter -> Int32 -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewMoveVisuallyMethodInfo a signature where + overloadedMethod _ = textViewMoveVisually + +-- method TextView::place_cursor_onscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_place_cursor_onscreen" gtk_text_view_place_cursor_onscreen :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO CInt + + +textViewPlaceCursorOnscreen :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m Bool -- result +textViewPlaceCursorOnscreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_text_view_place_cursor_onscreen _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextViewPlaceCursorOnscreenMethodInfo +instance (signature ~ (m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewPlaceCursorOnscreenMethodInfo a signature where + overloadedMethod _ = textViewPlaceCursorOnscreen + +-- method TextView::reset_im_context +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_reset_im_context" gtk_text_view_reset_im_context :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + IO () + + +textViewResetImContext :: + (MonadIO m, TextViewK a) => + a -- _obj + -> m () -- result +textViewResetImContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_text_view_reset_im_context _obj' + touchManagedPtr _obj + return () + +data TextViewResetImContextMethodInfo +instance (signature ~ (m ()), MonadIO m, TextViewK a) => MethodInfo TextViewResetImContextMethodInfo a signature where + overloadedMethod _ = textViewResetImContext + +-- method TextView::scroll_mark_onscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_scroll_mark_onscreen" gtk_text_view_scroll_mark_onscreen :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" + IO () + + +textViewScrollMarkOnscreen :: + (MonadIO m, TextViewK a, TextMarkK b) => + a -- _obj + -> b -- mark + -> m () -- result +textViewScrollMarkOnscreen _obj mark = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let mark' = unsafeManagedPtrCastPtr mark + gtk_text_view_scroll_mark_onscreen _obj' mark' + touchManagedPtr _obj + touchManagedPtr mark + return () + +data TextViewScrollMarkOnscreenMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, TextViewK a, TextMarkK b) => MethodInfo TextViewScrollMarkOnscreenMethodInfo a signature where + overloadedMethod _ = textViewScrollMarkOnscreen + +-- method TextView::scroll_to_iter +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_scroll_to_iter" gtk_text_view_scroll_to_iter :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + CDouble -> -- within_margin : TBasicType TDouble + CInt -> -- use_align : TBasicType TBoolean + CDouble -> -- xalign : TBasicType TDouble + CDouble -> -- yalign : TBasicType TDouble + IO CInt + + +textViewScrollToIter :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextIter -- iter + -> Double -- withinMargin + -> Bool -- useAlign + -> Double -- xalign + -> Double -- yalign + -> m Bool -- result +textViewScrollToIter _obj iter withinMargin useAlign xalign yalign = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + let withinMargin' = realToFrac withinMargin + let useAlign' = (fromIntegral . fromEnum) useAlign + let xalign' = realToFrac xalign + let yalign' = realToFrac yalign + result <- gtk_text_view_scroll_to_iter _obj' iter' withinMargin' useAlign' xalign' yalign' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr iter + return result' + +data TextViewScrollToIterMethodInfo +instance (signature ~ (TextIter -> Double -> Bool -> Double -> Double -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewScrollToIterMethodInfo a signature where + overloadedMethod _ = textViewScrollToIter + +-- method TextView::scroll_to_mark +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_scroll_to_mark" gtk_text_view_scroll_to_mark :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextMark -> -- mark : TInterface "Gtk" "TextMark" + CDouble -> -- within_margin : TBasicType TDouble + CInt -> -- use_align : TBasicType TBoolean + CDouble -> -- xalign : TBasicType TDouble + CDouble -> -- yalign : TBasicType TDouble + IO () + + +textViewScrollToMark :: + (MonadIO m, TextViewK a, TextMarkK b) => + a -- _obj + -> b -- mark + -> Double -- withinMargin + -> Bool -- useAlign + -> Double -- xalign + -> Double -- yalign + -> m () -- result +textViewScrollToMark _obj mark withinMargin useAlign xalign yalign = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let mark' = unsafeManagedPtrCastPtr mark + let withinMargin' = realToFrac withinMargin + let useAlign' = (fromIntegral . fromEnum) useAlign + let xalign' = realToFrac xalign + let yalign' = realToFrac yalign + gtk_text_view_scroll_to_mark _obj' mark' withinMargin' useAlign' xalign' yalign' + touchManagedPtr _obj + touchManagedPtr mark + return () + +data TextViewScrollToMarkMethodInfo +instance (signature ~ (b -> Double -> Bool -> Double -> Double -> m ()), MonadIO m, TextViewK a, TextMarkK b) => MethodInfo TextViewScrollToMarkMethodInfo a signature where + overloadedMethod _ = textViewScrollToMark + +-- method TextView::set_accepts_tab +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accepts_tab", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_accepts_tab" gtk_text_view_set_accepts_tab :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CInt -> -- accepts_tab : TBasicType TBoolean + IO () + + +textViewSetAcceptsTab :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Bool -- acceptsTab + -> m () -- result +textViewSetAcceptsTab _obj acceptsTab = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let acceptsTab' = (fromIntegral . fromEnum) acceptsTab + gtk_text_view_set_accepts_tab _obj' acceptsTab' + touchManagedPtr _obj + return () + +data TextViewSetAcceptsTabMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetAcceptsTabMethodInfo a signature where + overloadedMethod _ = textViewSetAcceptsTab + +-- method TextView::set_border_window_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_border_window_size" gtk_text_view_set_border_window_size :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CUInt -> -- type : TInterface "Gtk" "TextWindowType" + Int32 -> -- size : TBasicType TInt32 + IO () + + +textViewSetBorderWindowSize :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextWindowType -- type_ + -> Int32 -- size + -> m () -- result +textViewSetBorderWindowSize _obj type_ size = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let type_' = (fromIntegral . fromEnum) type_ + gtk_text_view_set_border_window_size _obj' type_' size + touchManagedPtr _obj + return () + +data TextViewSetBorderWindowSizeMethodInfo +instance (signature ~ (TextWindowType -> Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetBorderWindowSizeMethodInfo a signature where + overloadedMethod _ = textViewSetBorderWindowSize + +-- method TextView::set_bottom_margin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_bottom_margin" gtk_text_view_set_bottom_margin :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Int32 -> -- bottom_margin : TBasicType TInt32 + IO () + + +textViewSetBottomMargin :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Int32 -- bottomMargin + -> m () -- result +textViewSetBottomMargin _obj bottomMargin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_text_view_set_bottom_margin _obj' bottomMargin + touchManagedPtr _obj + return () + +data TextViewSetBottomMarginMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetBottomMarginMethodInfo a signature where + overloadedMethod _ = textViewSetBottomMargin + +-- method TextView::set_buffer +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_buffer" gtk_text_view_set_buffer :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" + IO () + + +textViewSetBuffer :: + (MonadIO m, TextViewK a, TextBufferK b) => + a -- _obj + -> Maybe (b) -- buffer + -> m () -- result +textViewSetBuffer _obj buffer = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeBuffer <- case buffer of + Nothing -> return nullPtr + Just jBuffer -> do + let jBuffer' = unsafeManagedPtrCastPtr jBuffer + return jBuffer' + gtk_text_view_set_buffer _obj' maybeBuffer + touchManagedPtr _obj + whenJust buffer touchManagedPtr + return () + +data TextViewSetBufferMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TextViewK a, TextBufferK b) => MethodInfo TextViewSetBufferMethodInfo a signature where + overloadedMethod _ = textViewSetBuffer + +-- method TextView::set_cursor_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_cursor_visible" gtk_text_view_set_cursor_visible :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CInt -> -- setting : TBasicType TBoolean + IO () + + +textViewSetCursorVisible :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +textViewSetCursorVisible _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_text_view_set_cursor_visible _obj' setting' + touchManagedPtr _obj + return () + +data TextViewSetCursorVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetCursorVisibleMethodInfo a signature where + overloadedMethod _ = textViewSetCursorVisible + +-- method TextView::set_editable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_editable" gtk_text_view_set_editable :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CInt -> -- setting : TBasicType TBoolean + IO () + + +textViewSetEditable :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +textViewSetEditable _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_text_view_set_editable _obj' setting' + touchManagedPtr _obj + return () + +data TextViewSetEditableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetEditableMethodInfo a signature where + overloadedMethod _ = textViewSetEditable + +-- method TextView::set_indent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_indent" gtk_text_view_set_indent :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Int32 -> -- indent : TBasicType TInt32 + IO () + + +textViewSetIndent :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Int32 -- indent + -> m () -- result +textViewSetIndent _obj indent = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_text_view_set_indent _obj' indent + touchManagedPtr _obj + return () + +data TextViewSetIndentMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetIndentMethodInfo a signature where + overloadedMethod _ = textViewSetIndent + +-- method TextView::set_input_hints +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_input_hints" gtk_text_view_set_input_hints :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CUInt -> -- hints : TInterface "Gtk" "InputHints" + IO () + + +textViewSetInputHints :: + (MonadIO m, TextViewK a) => + a -- _obj + -> [InputHints] -- hints + -> m () -- result +textViewSetInputHints _obj hints = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let hints' = gflagsToWord hints + gtk_text_view_set_input_hints _obj' hints' + touchManagedPtr _obj + return () + +data TextViewSetInputHintsMethodInfo +instance (signature ~ ([InputHints] -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetInputHintsMethodInfo a signature where + overloadedMethod _ = textViewSetInputHints + +-- method TextView::set_input_purpose +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_input_purpose" gtk_text_view_set_input_purpose :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CUInt -> -- purpose : TInterface "Gtk" "InputPurpose" + IO () + + +textViewSetInputPurpose :: + (MonadIO m, TextViewK a) => + a -- _obj + -> InputPurpose -- purpose + -> m () -- result +textViewSetInputPurpose _obj purpose = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let purpose' = (fromIntegral . fromEnum) purpose + gtk_text_view_set_input_purpose _obj' purpose' + touchManagedPtr _obj + return () + +data TextViewSetInputPurposeMethodInfo +instance (signature ~ (InputPurpose -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetInputPurposeMethodInfo a signature where + overloadedMethod _ = textViewSetInputPurpose + +-- method TextView::set_justification +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "justification", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_justification" gtk_text_view_set_justification :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CUInt -> -- justification : TInterface "Gtk" "Justification" + IO () + + +textViewSetJustification :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Justification -- justification + -> m () -- result +textViewSetJustification _obj justification = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let justification' = (fromIntegral . fromEnum) justification + gtk_text_view_set_justification _obj' justification' + touchManagedPtr _obj + return () + +data TextViewSetJustificationMethodInfo +instance (signature ~ (Justification -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetJustificationMethodInfo a signature where + overloadedMethod _ = textViewSetJustification + +-- method TextView::set_left_margin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_left_margin" gtk_text_view_set_left_margin :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Int32 -> -- left_margin : TBasicType TInt32 + IO () + + +textViewSetLeftMargin :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Int32 -- leftMargin + -> m () -- result +textViewSetLeftMargin _obj leftMargin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_text_view_set_left_margin _obj' leftMargin + touchManagedPtr _obj + return () + +data TextViewSetLeftMarginMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetLeftMarginMethodInfo a signature where + overloadedMethod _ = textViewSetLeftMargin + +-- method TextView::set_monospace +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monospace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_monospace" gtk_text_view_set_monospace :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CInt -> -- monospace : TBasicType TBoolean + IO () + + +textViewSetMonospace :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Bool -- monospace + -> m () -- result +textViewSetMonospace _obj monospace = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let monospace' = (fromIntegral . fromEnum) monospace + gtk_text_view_set_monospace _obj' monospace' + touchManagedPtr _obj + return () + +data TextViewSetMonospaceMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetMonospaceMethodInfo a signature where + overloadedMethod _ = textViewSetMonospace + +-- method TextView::set_overwrite +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_overwrite" gtk_text_view_set_overwrite :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CInt -> -- overwrite : TBasicType TBoolean + IO () + + +textViewSetOverwrite :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Bool -- overwrite + -> m () -- result +textViewSetOverwrite _obj overwrite = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let overwrite' = (fromIntegral . fromEnum) overwrite + gtk_text_view_set_overwrite _obj' overwrite' + touchManagedPtr _obj + return () + +data TextViewSetOverwriteMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetOverwriteMethodInfo a signature where + overloadedMethod _ = textViewSetOverwrite + +-- method TextView::set_pixels_above_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixels_above_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_pixels_above_lines" gtk_text_view_set_pixels_above_lines :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Int32 -> -- pixels_above_lines : TBasicType TInt32 + IO () + + +textViewSetPixelsAboveLines :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Int32 -- pixelsAboveLines + -> m () -- result +textViewSetPixelsAboveLines _obj pixelsAboveLines = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_text_view_set_pixels_above_lines _obj' pixelsAboveLines + touchManagedPtr _obj + return () + +data TextViewSetPixelsAboveLinesMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetPixelsAboveLinesMethodInfo a signature where + overloadedMethod _ = textViewSetPixelsAboveLines + +-- method TextView::set_pixels_below_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixels_below_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_pixels_below_lines" gtk_text_view_set_pixels_below_lines :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Int32 -> -- pixels_below_lines : TBasicType TInt32 + IO () + + +textViewSetPixelsBelowLines :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Int32 -- pixelsBelowLines + -> m () -- result +textViewSetPixelsBelowLines _obj pixelsBelowLines = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_text_view_set_pixels_below_lines _obj' pixelsBelowLines + touchManagedPtr _obj + return () + +data TextViewSetPixelsBelowLinesMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetPixelsBelowLinesMethodInfo a signature where + overloadedMethod _ = textViewSetPixelsBelowLines + +-- method TextView::set_pixels_inside_wrap +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixels_inside_wrap", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_pixels_inside_wrap" gtk_text_view_set_pixels_inside_wrap :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Int32 -> -- pixels_inside_wrap : TBasicType TInt32 + IO () + + +textViewSetPixelsInsideWrap :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Int32 -- pixelsInsideWrap + -> m () -- result +textViewSetPixelsInsideWrap _obj pixelsInsideWrap = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_text_view_set_pixels_inside_wrap _obj' pixelsInsideWrap + touchManagedPtr _obj + return () + +data TextViewSetPixelsInsideWrapMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetPixelsInsideWrapMethodInfo a signature where + overloadedMethod _ = textViewSetPixelsInsideWrap + +-- method TextView::set_right_margin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_right_margin" gtk_text_view_set_right_margin :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Int32 -> -- right_margin : TBasicType TInt32 + IO () + + +textViewSetRightMargin :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Int32 -- rightMargin + -> m () -- result +textViewSetRightMargin _obj rightMargin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_text_view_set_right_margin _obj' rightMargin + touchManagedPtr _obj + return () + +data TextViewSetRightMarginMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetRightMarginMethodInfo a signature where + overloadedMethod _ = textViewSetRightMargin + +-- method TextView::set_tabs +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_tabs" gtk_text_view_set_tabs :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr Pango.TabArray -> -- tabs : TInterface "Pango" "TabArray" + IO () + + +textViewSetTabs :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Pango.TabArray -- tabs + -> m () -- result +textViewSetTabs _obj tabs = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let tabs' = unsafeManagedPtrGetPtr tabs + gtk_text_view_set_tabs _obj' tabs' + touchManagedPtr _obj + touchManagedPtr tabs + return () + +data TextViewSetTabsMethodInfo +instance (signature ~ (Pango.TabArray -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetTabsMethodInfo a signature where + overloadedMethod _ = textViewSetTabs + +-- method TextView::set_top_margin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_top_margin" gtk_text_view_set_top_margin :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Int32 -> -- top_margin : TBasicType TInt32 + IO () + + +textViewSetTopMargin :: + (MonadIO m, TextViewK a) => + a -- _obj + -> Int32 -- topMargin + -> m () -- result +textViewSetTopMargin _obj topMargin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_text_view_set_top_margin _obj' topMargin + touchManagedPtr _obj + return () + +data TextViewSetTopMarginMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetTopMarginMethodInfo a signature where + overloadedMethod _ = textViewSetTopMargin + +-- method TextView::set_wrap_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap_mode", argType = TInterface "Gtk" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_set_wrap_mode" gtk_text_view_set_wrap_mode :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CUInt -> -- wrap_mode : TInterface "Gtk" "WrapMode" + IO () + + +textViewSetWrapMode :: + (MonadIO m, TextViewK a) => + a -- _obj + -> WrapMode -- wrapMode + -> m () -- result +textViewSetWrapMode _obj wrapMode = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let wrapMode' = (fromIntegral . fromEnum) wrapMode + gtk_text_view_set_wrap_mode _obj' wrapMode' + touchManagedPtr _obj + return () + +data TextViewSetWrapModeMethodInfo +instance (signature ~ (WrapMode -> m ()), MonadIO m, TextViewK a) => MethodInfo TextViewSetWrapModeMethodInfo a signature where + overloadedMethod _ = textViewSetWrapMode + +-- method TextView::starts_display_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_starts_display_line" gtk_text_view_starts_display_line :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" + IO CInt + + +textViewStartsDisplayLine :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextIter -- iter + -> m Bool -- result +textViewStartsDisplayLine _obj iter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let iter' = unsafeManagedPtrGetPtr iter + result <- gtk_text_view_starts_display_line _obj' iter' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr iter + return result' + +data TextViewStartsDisplayLineMethodInfo +instance (signature ~ (TextIter -> m Bool), MonadIO m, TextViewK a) => MethodInfo TextViewStartsDisplayLineMethodInfo a signature where + overloadedMethod _ = textViewStartsDisplayLine + +-- method TextView::window_to_buffer_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "buffer_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_view_window_to_buffer_coords" gtk_text_view_window_to_buffer_coords :: + Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" + CUInt -> -- win : TInterface "Gtk" "TextWindowType" + Int32 -> -- window_x : TBasicType TInt32 + Int32 -> -- window_y : TBasicType TInt32 + Ptr Int32 -> -- buffer_x : TBasicType TInt32 + Ptr Int32 -> -- buffer_y : TBasicType TInt32 + IO () + + +textViewWindowToBufferCoords :: + (MonadIO m, TextViewK a) => + a -- _obj + -> TextWindowType -- win + -> Int32 -- windowX + -> Int32 -- windowY + -> m (Int32,Int32) -- result +textViewWindowToBufferCoords _obj win windowX windowY = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let win' = (fromIntegral . fromEnum) win + bufferX <- allocMem :: IO (Ptr Int32) + bufferY <- allocMem :: IO (Ptr Int32) + gtk_text_view_window_to_buffer_coords _obj' win' windowX windowY bufferX bufferY + bufferX' <- peek bufferX + bufferY' <- peek bufferY + touchManagedPtr _obj + freeMem bufferX + freeMem bufferY + return (bufferX', bufferY') + +data TextViewWindowToBufferCoordsMethodInfo +instance (signature ~ (TextWindowType -> Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TextViewK a) => MethodInfo TextViewWindowToBufferCoordsMethodInfo a signature where + overloadedMethod _ = textViewWindowToBufferCoords diff --git a/GI/Gtk/Objects/TextView.hs-boot b/GI/Gtk/Objects/TextView.hs-boot --- a/GI/Gtk/Objects/TextView.hs-boot +++ b/GI/Gtk/Objects/TextView.hs-boot @@ -47,3 +47,73 @@ data TextViewSetAnchorSignalInfo data TextViewToggleCursorVisibleSignalInfo data TextViewToggleOverwriteSignalInfo +data TextViewAddChildAtAnchorMethodInfo +data TextViewAddChildInWindowMethodInfo +data TextViewBackwardDisplayLineMethodInfo +data TextViewBackwardDisplayLineStartMethodInfo +data TextViewBufferToWindowCoordsMethodInfo +data TextViewForwardDisplayLineMethodInfo +data TextViewForwardDisplayLineEndMethodInfo +data TextViewGetAcceptsTabMethodInfo +data TextViewGetBorderWindowSizeMethodInfo +data TextViewGetBottomMarginMethodInfo +data TextViewGetBufferMethodInfo +data TextViewGetCursorLocationsMethodInfo +data TextViewGetCursorVisibleMethodInfo +data TextViewGetDefaultAttributesMethodInfo +data TextViewGetEditableMethodInfo +data TextViewGetHadjustmentMethodInfo +data TextViewGetIndentMethodInfo +data TextViewGetInputHintsMethodInfo +data TextViewGetInputPurposeMethodInfo +data TextViewGetIterAtLocationMethodInfo +data TextViewGetIterAtPositionMethodInfo +data TextViewGetIterLocationMethodInfo +data TextViewGetJustificationMethodInfo +data TextViewGetLeftMarginMethodInfo +data TextViewGetLineAtYMethodInfo +data TextViewGetLineYrangeMethodInfo +data TextViewGetMonospaceMethodInfo +data TextViewGetOverwriteMethodInfo +data TextViewGetPixelsAboveLinesMethodInfo +data TextViewGetPixelsBelowLinesMethodInfo +data TextViewGetPixelsInsideWrapMethodInfo +data TextViewGetRightMarginMethodInfo +data TextViewGetTabsMethodInfo +data TextViewGetTopMarginMethodInfo +data TextViewGetVadjustmentMethodInfo +data TextViewGetVisibleRectMethodInfo +data TextViewGetWindowMethodInfo +data TextViewGetWindowTypeMethodInfo +data TextViewGetWrapModeMethodInfo +data TextViewImContextFilterKeypressMethodInfo +data TextViewMoveChildMethodInfo +data TextViewMoveMarkOnscreenMethodInfo +data TextViewMoveVisuallyMethodInfo +data TextViewPlaceCursorOnscreenMethodInfo +data TextViewResetImContextMethodInfo +data TextViewScrollMarkOnscreenMethodInfo +data TextViewScrollToIterMethodInfo +data TextViewScrollToMarkMethodInfo +data TextViewSetAcceptsTabMethodInfo +data TextViewSetBorderWindowSizeMethodInfo +data TextViewSetBottomMarginMethodInfo +data TextViewSetBufferMethodInfo +data TextViewSetCursorVisibleMethodInfo +data TextViewSetEditableMethodInfo +data TextViewSetIndentMethodInfo +data TextViewSetInputHintsMethodInfo +data TextViewSetInputPurposeMethodInfo +data TextViewSetJustificationMethodInfo +data TextViewSetLeftMarginMethodInfo +data TextViewSetMonospaceMethodInfo +data TextViewSetOverwriteMethodInfo +data TextViewSetPixelsAboveLinesMethodInfo +data TextViewSetPixelsBelowLinesMethodInfo +data TextViewSetPixelsInsideWrapMethodInfo +data TextViewSetRightMarginMethodInfo +data TextViewSetTabsMethodInfo +data TextViewSetTopMarginMethodInfo +data TextViewSetWrapModeMethodInfo +data TextViewStartsDisplayLineMethodInfo +data TextViewWindowToBufferCoordsMethodInfo diff --git a/GI/Gtk/Objects/TextViewAccessible.hs b/GI/Gtk/Objects/TextViewAccessible.hs --- a/GI/Gtk/Objects/TextViewAccessible.hs +++ b/GI/Gtk/Objects/TextViewAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,109 @@ noTextViewAccessible :: Maybe TextViewAccessible noTextViewAccessible = Nothing +type family ResolveTextViewAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveTextViewAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveTextViewAccessibleMethod "addSelection" o = Atk.TextAddSelectionMethodInfo + ResolveTextViewAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTextViewAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTextViewAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveTextViewAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveTextViewAccessibleMethod "copyText" o = Atk.EditableTextCopyTextMethodInfo + ResolveTextViewAccessibleMethod "cutText" o = Atk.EditableTextCutTextMethodInfo + ResolveTextViewAccessibleMethod "deleteText" o = Atk.EditableTextDeleteTextMethodInfo + ResolveTextViewAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTextViewAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTextViewAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveTextViewAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveTextViewAccessibleMethod "insertText" o = Atk.EditableTextInsertTextMethodInfo + ResolveTextViewAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTextViewAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTextViewAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTextViewAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveTextViewAccessibleMethod "pasteText" o = Atk.EditableTextPasteTextMethodInfo + ResolveTextViewAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveTextViewAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTextViewAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveTextViewAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveTextViewAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveTextViewAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTextViewAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveTextViewAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveTextViewAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveTextViewAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveTextViewAccessibleMethod "removeSelection" o = Atk.TextRemoveSelectionMethodInfo + ResolveTextViewAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTextViewAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTextViewAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTextViewAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTextViewAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTextViewAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTextViewAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTextViewAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTextViewAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveTextViewAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveTextViewAccessibleMethod "getBoundedRanges" o = Atk.TextGetBoundedRangesMethodInfo + ResolveTextViewAccessibleMethod "getCaretOffset" o = Atk.TextGetCaretOffsetMethodInfo + ResolveTextViewAccessibleMethod "getCharacterAtOffset" o = Atk.TextGetCharacterAtOffsetMethodInfo + ResolveTextViewAccessibleMethod "getCharacterCount" o = Atk.TextGetCharacterCountMethodInfo + ResolveTextViewAccessibleMethod "getCharacterExtents" o = Atk.TextGetCharacterExtentsMethodInfo + ResolveTextViewAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTextViewAccessibleMethod "getDefaultAttributes" o = Atk.TextGetDefaultAttributesMethodInfo + ResolveTextViewAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveTextViewAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveTextViewAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveTextViewAccessibleMethod "getMimeType" o = Atk.StreamableContentGetMimeTypeMethodInfo + ResolveTextViewAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveTextViewAccessibleMethod "getNMimeTypes" o = Atk.StreamableContentGetNMimeTypesMethodInfo + ResolveTextViewAccessibleMethod "getNSelections" o = Atk.TextGetNSelectionsMethodInfo + ResolveTextViewAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveTextViewAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveTextViewAccessibleMethod "getOffsetAtPoint" o = Atk.TextGetOffsetAtPointMethodInfo + ResolveTextViewAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveTextViewAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveTextViewAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTextViewAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTextViewAccessibleMethod "getRangeExtents" o = Atk.TextGetRangeExtentsMethodInfo + ResolveTextViewAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveTextViewAccessibleMethod "getRunAttributes" o = Atk.TextGetRunAttributesMethodInfo + ResolveTextViewAccessibleMethod "getSelection" o = Atk.TextGetSelectionMethodInfo + ResolveTextViewAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveTextViewAccessibleMethod "getStream" o = Atk.StreamableContentGetStreamMethodInfo + ResolveTextViewAccessibleMethod "getStringAtOffset" o = Atk.TextGetStringAtOffsetMethodInfo + ResolveTextViewAccessibleMethod "getText" o = Atk.TextGetTextMethodInfo + ResolveTextViewAccessibleMethod "getTextAfterOffset" o = Atk.TextGetTextAfterOffsetMethodInfo + ResolveTextViewAccessibleMethod "getTextAtOffset" o = Atk.TextGetTextAtOffsetMethodInfo + ResolveTextViewAccessibleMethod "getTextBeforeOffset" o = Atk.TextGetTextBeforeOffsetMethodInfo + ResolveTextViewAccessibleMethod "getUri" o = Atk.StreamableContentGetUriMethodInfo + ResolveTextViewAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveTextViewAccessibleMethod "setCaretOffset" o = Atk.TextSetCaretOffsetMethodInfo + ResolveTextViewAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTextViewAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveTextViewAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveTextViewAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveTextViewAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveTextViewAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveTextViewAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTextViewAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveTextViewAccessibleMethod "setRunAttributes" o = Atk.EditableTextSetRunAttributesMethodInfo + ResolveTextViewAccessibleMethod "setSelection" o = Atk.TextSetSelectionMethodInfo + ResolveTextViewAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveTextViewAccessibleMethod "setTextContents" o = Atk.EditableTextSetTextContentsMethodInfo + ResolveTextViewAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveTextViewAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTextViewAccessibleMethod t TextViewAccessible, MethodInfo info TextViewAccessible p) => IsLabelProxy t (TextViewAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTextViewAccessibleMethod t TextViewAccessible, MethodInfo info TextViewAccessible p) => IsLabel t (TextViewAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList TextViewAccessible = TextViewAccessibleAttributeList -type TextViewAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type TextViewAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TextViewAccessible = TextViewAccessibleSignalList -type TextViewAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TextViewAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("textAttributesChanged", Atk.TextTextAttributesChangedSignalInfo), '("textCaretMoved", Atk.TextTextCaretMovedSignalInfo), '("textChanged", Atk.TextTextChangedSignalInfo), '("textInsert", Atk.TextTextInsertSignalInfo), '("textRemove", Atk.TextTextRemoveSignalInfo), '("textSelectionChanged", Atk.TextTextSelectionChangedSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/ThemingEngine.hs b/GI/Gtk/Objects/ThemingEngine.hs --- a/GI/Gtk/Objects/ThemingEngine.hs +++ b/GI/Gtk/Objects/ThemingEngine.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,66 +18,82 @@ -- * Methods -- ** themingEngineGetBackgroundColor + ThemingEngineGetBackgroundColorMethodInfo, themingEngineGetBackgroundColor , -- ** themingEngineGetBorder + ThemingEngineGetBorderMethodInfo , themingEngineGetBorder , -- ** themingEngineGetBorderColor + ThemingEngineGetBorderColorMethodInfo , themingEngineGetBorderColor , -- ** themingEngineGetColor + ThemingEngineGetColorMethodInfo , themingEngineGetColor , -- ** themingEngineGetDirection + ThemingEngineGetDirectionMethodInfo , themingEngineGetDirection , -- ** themingEngineGetFont + ThemingEngineGetFontMethodInfo , themingEngineGetFont , -- ** themingEngineGetJunctionSides + ThemingEngineGetJunctionSidesMethodInfo , themingEngineGetJunctionSides , -- ** themingEngineGetMargin + ThemingEngineGetMarginMethodInfo , themingEngineGetMargin , -- ** themingEngineGetPadding + ThemingEngineGetPaddingMethodInfo , themingEngineGetPadding , -- ** themingEngineGetPath + ThemingEngineGetPathMethodInfo , themingEngineGetPath , -- ** themingEngineGetProperty + ThemingEngineGetPropertyMethodInfo , themingEngineGetProperty , -- ** themingEngineGetScreen + ThemingEngineGetScreenMethodInfo , themingEngineGetScreen , -- ** themingEngineGetState + ThemingEngineGetStateMethodInfo , themingEngineGetState , -- ** themingEngineGetStyleProperty + ThemingEngineGetStylePropertyMethodInfo , themingEngineGetStyleProperty , -- ** themingEngineHasClass + ThemingEngineHasClassMethodInfo , themingEngineHasClass , -- ** themingEngineHasRegion + ThemingEngineHasRegionMethodInfo , themingEngineHasRegion , @@ -85,10 +102,12 @@ -- ** themingEngineLookupColor + ThemingEngineLookupColorMethodInfo , themingEngineLookupColor , -- ** themingEngineStateIsRunning + ThemingEngineStateIsRunningMethodInfo , themingEngineStateIsRunning , @@ -139,6 +158,55 @@ noThemingEngine :: Maybe ThemingEngine noThemingEngine = Nothing +type family ResolveThemingEngineMethod (t :: Symbol) (o :: *) :: * where + ResolveThemingEngineMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveThemingEngineMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveThemingEngineMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveThemingEngineMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveThemingEngineMethod "hasClass" o = ThemingEngineHasClassMethodInfo + ResolveThemingEngineMethod "hasRegion" o = ThemingEngineHasRegionMethodInfo + ResolveThemingEngineMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveThemingEngineMethod "lookupColor" o = ThemingEngineLookupColorMethodInfo + ResolveThemingEngineMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveThemingEngineMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveThemingEngineMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveThemingEngineMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveThemingEngineMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveThemingEngineMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveThemingEngineMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveThemingEngineMethod "stateIsRunning" o = ThemingEngineStateIsRunningMethodInfo + ResolveThemingEngineMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveThemingEngineMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveThemingEngineMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveThemingEngineMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveThemingEngineMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveThemingEngineMethod "getBackgroundColor" o = ThemingEngineGetBackgroundColorMethodInfo + ResolveThemingEngineMethod "getBorder" o = ThemingEngineGetBorderMethodInfo + ResolveThemingEngineMethod "getBorderColor" o = ThemingEngineGetBorderColorMethodInfo + ResolveThemingEngineMethod "getColor" o = ThemingEngineGetColorMethodInfo + ResolveThemingEngineMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveThemingEngineMethod "getDirection" o = ThemingEngineGetDirectionMethodInfo + ResolveThemingEngineMethod "getFont" o = ThemingEngineGetFontMethodInfo + ResolveThemingEngineMethod "getJunctionSides" o = ThemingEngineGetJunctionSidesMethodInfo + ResolveThemingEngineMethod "getMargin" o = ThemingEngineGetMarginMethodInfo + ResolveThemingEngineMethod "getPadding" o = ThemingEngineGetPaddingMethodInfo + ResolveThemingEngineMethod "getPath" o = ThemingEngineGetPathMethodInfo + ResolveThemingEngineMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveThemingEngineMethod "getScreen" o = ThemingEngineGetScreenMethodInfo + ResolveThemingEngineMethod "getState" o = ThemingEngineGetStateMethodInfo + ResolveThemingEngineMethod "getStyleProperty" o = ThemingEngineGetStylePropertyMethodInfo + ResolveThemingEngineMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveThemingEngineMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveThemingEngineMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveThemingEngineMethod t ThemingEngine, MethodInfo info ThemingEngine p) => IsLabelProxy t (ThemingEngine -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveThemingEngineMethod t ThemingEngine, MethodInfo info ThemingEngine p) => IsLabel t (ThemingEngine -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] @@ -155,7 +223,7 @@ type AttrSetTypeConstraint ThemingEngineNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ThemingEngineNamePropertyInfo = ThemingEngineK type AttrGetType ThemingEngineNamePropertyInfo = T.Text - type AttrLabel ThemingEngineNamePropertyInfo = "ThemingEngine::name" + type AttrLabel ThemingEngineNamePropertyInfo = "name" attrGet _ = getThemingEngineName attrSet _ = undefined attrConstruct _ = constructThemingEngineName @@ -164,13 +232,12 @@ type ThemingEngineAttributeList = ('[ '("name", ThemingEngineNamePropertyInfo)] :: [(Symbol, *)]) type instance SignalList ThemingEngine = ThemingEngineSignalList -type ThemingEngineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ThemingEngineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method ThemingEngine::get_background_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -184,9 +251,9 @@ {-# DEPRECATED themingEngineGetBackgroundColor ["(Since version 3.14)"]#-} themingEngineGetBackgroundColor :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - [StateFlags] -> -- state - m (Gdk.RGBA) + a -- _obj + -> [StateFlags] -- state + -> m (Gdk.RGBA) -- result themingEngineGetBackgroundColor _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -196,11 +263,14 @@ touchManagedPtr _obj return color' +data ThemingEngineGetBackgroundColorMethodInfo +instance (signature ~ ([StateFlags] -> m (Gdk.RGBA)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetBackgroundColorMethodInfo a signature where + overloadedMethod _ = themingEngineGetBackgroundColor + -- method ThemingEngine::get_border -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -214,9 +284,9 @@ {-# DEPRECATED themingEngineGetBorder ["(Since version 3.14)"]#-} themingEngineGetBorder :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - [StateFlags] -> -- state - m (Border) + a -- _obj + -> [StateFlags] -- state + -> m (Border) -- result themingEngineGetBorder _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -226,11 +296,14 @@ touchManagedPtr _obj return border' +data ThemingEngineGetBorderMethodInfo +instance (signature ~ ([StateFlags] -> m (Border)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetBorderMethodInfo a signature where + overloadedMethod _ = themingEngineGetBorder + -- method ThemingEngine::get_border_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -244,9 +317,9 @@ {-# DEPRECATED themingEngineGetBorderColor ["(Since version 3.14)"]#-} themingEngineGetBorderColor :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - [StateFlags] -> -- state - m (Gdk.RGBA) + a -- _obj + -> [StateFlags] -- state + -> m (Gdk.RGBA) -- result themingEngineGetBorderColor _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -256,11 +329,14 @@ touchManagedPtr _obj return color' +data ThemingEngineGetBorderColorMethodInfo +instance (signature ~ ([StateFlags] -> m (Gdk.RGBA)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetBorderColorMethodInfo a signature where + overloadedMethod _ = themingEngineGetBorderColor + -- method ThemingEngine::get_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -274,9 +350,9 @@ {-# DEPRECATED themingEngineGetColor ["(Since version 3.14)"]#-} themingEngineGetColor :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - [StateFlags] -> -- state - m (Gdk.RGBA) + a -- _obj + -> [StateFlags] -- state + -> m (Gdk.RGBA) -- result themingEngineGetColor _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -286,11 +362,14 @@ touchManagedPtr _obj return color' +data ThemingEngineGetColorMethodInfo +instance (signature ~ ([StateFlags] -> m (Gdk.RGBA)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetColorMethodInfo a signature where + overloadedMethod _ = themingEngineGetColor + -- method ThemingEngine::get_direction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TextDirection" -- throws : False -- Skip return : False @@ -302,8 +381,8 @@ {-# DEPRECATED themingEngineGetDirection ["(Since version 3.8)","Use gtk_theming_engine_get_state() and"," check for #GTK_STATE_FLAG_DIR_LTR and"," #GTK_STATE_FLAG_DIR_RTL instead."]#-} themingEngineGetDirection :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - m TextDirection + a -- _obj + -> m TextDirection -- result themingEngineGetDirection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_theming_engine_get_direction _obj' @@ -311,11 +390,14 @@ touchManagedPtr _obj return result' +data ThemingEngineGetDirectionMethodInfo +instance (signature ~ (m TextDirection), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetDirectionMethodInfo a signature where + overloadedMethod _ = themingEngineGetDirection + -- method ThemingEngine::get_font -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "FontDescription" -- throws : False -- Skip return : False @@ -328,9 +410,9 @@ {-# DEPRECATED themingEngineGetFont ["(Since version 3.8)","Use gtk_theming_engine_get()"]#-} themingEngineGetFont :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - [StateFlags] -> -- state - m Pango.FontDescription + a -- _obj + -> [StateFlags] -- state + -> m Pango.FontDescription -- result themingEngineGetFont _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -340,11 +422,14 @@ touchManagedPtr _obj return result' +data ThemingEngineGetFontMethodInfo +instance (signature ~ ([StateFlags] -> m Pango.FontDescription), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetFontMethodInfo a signature where + overloadedMethod _ = themingEngineGetFont + -- method ThemingEngine::get_junction_sides -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "JunctionSides" -- throws : False -- Skip return : False @@ -356,8 +441,8 @@ {-# DEPRECATED themingEngineGetJunctionSides ["(Since version 3.14)"]#-} themingEngineGetJunctionSides :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - m [JunctionSides] + a -- _obj + -> m [JunctionSides] -- result themingEngineGetJunctionSides _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_theming_engine_get_junction_sides _obj' @@ -365,11 +450,14 @@ touchManagedPtr _obj return result' +data ThemingEngineGetJunctionSidesMethodInfo +instance (signature ~ (m [JunctionSides]), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetJunctionSidesMethodInfo a signature where + overloadedMethod _ = themingEngineGetJunctionSides + -- method ThemingEngine::get_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -383,9 +471,9 @@ {-# DEPRECATED themingEngineGetMargin ["(Since version 3.14)"]#-} themingEngineGetMargin :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - [StateFlags] -> -- state - m (Border) + a -- _obj + -> [StateFlags] -- state + -> m (Border) -- result themingEngineGetMargin _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -395,11 +483,14 @@ touchManagedPtr _obj return margin' +data ThemingEngineGetMarginMethodInfo +instance (signature ~ ([StateFlags] -> m (Border)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetMarginMethodInfo a signature where + overloadedMethod _ = themingEngineGetMargin + -- method ThemingEngine::get_padding -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -413,9 +504,9 @@ {-# DEPRECATED themingEngineGetPadding ["(Since version 3.14)"]#-} themingEngineGetPadding :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - [StateFlags] -> -- state - m (Border) + a -- _obj + -> [StateFlags] -- state + -> m (Border) -- result themingEngineGetPadding _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state @@ -425,11 +516,14 @@ touchManagedPtr _obj return padding' +data ThemingEngineGetPaddingMethodInfo +instance (signature ~ ([StateFlags] -> m (Border)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetPaddingMethodInfo a signature where + overloadedMethod _ = themingEngineGetPadding + -- method ThemingEngine::get_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "WidgetPath" -- throws : False -- Skip return : False @@ -441,8 +535,8 @@ {-# DEPRECATED themingEngineGetPath ["(Since version 3.14)"]#-} themingEngineGetPath :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - m WidgetPath + a -- _obj + -> m WidgetPath -- result themingEngineGetPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_theming_engine_get_path _obj' @@ -451,11 +545,14 @@ touchManagedPtr _obj return result' +data ThemingEngineGetPathMethodInfo +instance (signature ~ (m WidgetPath), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetPathMethodInfo a signature where + overloadedMethod _ = themingEngineGetPath + -- method ThemingEngine::get_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -470,10 +567,10 @@ {-# DEPRECATED themingEngineGetProperty ["(Since version 3.14)"]#-} themingEngineGetProperty :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - T.Text -> -- property - [StateFlags] -> -- state - m (GValue) + a -- _obj + -> T.Text -- property + -> [StateFlags] -- state + -> m (GValue) -- result themingEngineGetProperty _obj property state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj property' <- textToCString property @@ -485,11 +582,14 @@ freeMem property' return value' +data ThemingEngineGetPropertyMethodInfo +instance (signature ~ (T.Text -> [StateFlags] -> m (GValue)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetPropertyMethodInfo a signature where + overloadedMethod _ = themingEngineGetProperty + -- method ThemingEngine::get_screen -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Screen" -- throws : False -- Skip return : False @@ -501,8 +601,8 @@ {-# DEPRECATED themingEngineGetScreen ["(Since version 3.14)"]#-} themingEngineGetScreen :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - m Gdk.Screen + a -- _obj + -> m Gdk.Screen -- result themingEngineGetScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_theming_engine_get_screen _obj' @@ -511,11 +611,14 @@ touchManagedPtr _obj return result' +data ThemingEngineGetScreenMethodInfo +instance (signature ~ (m Gdk.Screen), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetScreenMethodInfo a signature where + overloadedMethod _ = themingEngineGetScreen + -- method ThemingEngine::get_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StateFlags" -- throws : False -- Skip return : False @@ -527,8 +630,8 @@ {-# DEPRECATED themingEngineGetState ["(Since version 3.14)"]#-} themingEngineGetState :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - m [StateFlags] + a -- _obj + -> m [StateFlags] -- result themingEngineGetState _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_theming_engine_get_state _obj' @@ -536,11 +639,14 @@ touchManagedPtr _obj return result' +data ThemingEngineGetStateMethodInfo +instance (signature ~ (m [StateFlags]), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetStateMethodInfo a signature where + overloadedMethod _ = themingEngineGetState + -- method ThemingEngine::get_style_property -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -554,24 +660,27 @@ {-# DEPRECATED themingEngineGetStyleProperty ["(Since version 3.14)"]#-} themingEngineGetStyleProperty :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - T.Text -> -- property_name - m (GValue) -themingEngineGetStyleProperty _obj property_name = liftIO $ do + a -- _obj + -> T.Text -- propertyName + -> m (GValue) -- result +themingEngineGetStyleProperty _obj propertyName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - property_name' <- textToCString property_name + propertyName' <- textToCString propertyName value <- callocBoxedBytes 24 :: IO (Ptr GValue) - gtk_theming_engine_get_style_property _obj' property_name' value + gtk_theming_engine_get_style_property _obj' propertyName' value value' <- (wrapBoxed GValue) value touchManagedPtr _obj - freeMem property_name' + freeMem propertyName' return value' +data ThemingEngineGetStylePropertyMethodInfo +instance (signature ~ (T.Text -> m (GValue)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineGetStylePropertyMethodInfo a signature where + overloadedMethod _ = themingEngineGetStyleProperty + -- method ThemingEngine::has_class -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -584,23 +693,26 @@ {-# DEPRECATED themingEngineHasClass ["(Since version 3.14)"]#-} themingEngineHasClass :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - T.Text -> -- style_class - m Bool -themingEngineHasClass _obj style_class = liftIO $ do + a -- _obj + -> T.Text -- styleClass + -> m Bool -- result +themingEngineHasClass _obj styleClass = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - style_class' <- textToCString style_class - result <- gtk_theming_engine_has_class _obj' style_class' + styleClass' <- textToCString styleClass + result <- gtk_theming_engine_has_class _obj' styleClass' let result' = (/= 0) result touchManagedPtr _obj - freeMem style_class' + freeMem styleClass' return result' +data ThemingEngineHasClassMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineHasClassMethodInfo a signature where + overloadedMethod _ = themingEngineHasClass + -- method ThemingEngine::has_region -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style_region", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style_region", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style_region", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -614,27 +726,30 @@ {-# DEPRECATED themingEngineHasRegion ["(Since version 3.14)"]#-} themingEngineHasRegion :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - T.Text -> -- style_region - m (Bool,[RegionFlags]) -themingEngineHasRegion _obj style_region = liftIO $ do + a -- _obj + -> T.Text -- styleRegion + -> m (Bool,[RegionFlags]) -- result +themingEngineHasRegion _obj styleRegion = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - style_region' <- textToCString style_region + styleRegion' <- textToCString styleRegion flags <- allocMem :: IO (Ptr CUInt) - result <- gtk_theming_engine_has_region _obj' style_region' flags + result <- gtk_theming_engine_has_region _obj' styleRegion' flags let result' = (/= 0) result flags' <- peek flags let flags'' = wordToGFlags flags' touchManagedPtr _obj - freeMem style_region' + freeMem styleRegion' freeMem flags return (result', flags'') +data ThemingEngineHasRegionMethodInfo +instance (signature ~ (T.Text -> m (Bool,[RegionFlags])), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineHasRegionMethodInfo a signature where + overloadedMethod _ = themingEngineHasRegion + -- method ThemingEngine::lookup_color -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -648,25 +763,28 @@ {-# DEPRECATED themingEngineLookupColor ["(Since version 3.14)"]#-} themingEngineLookupColor :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - T.Text -> -- color_name - m (Bool,Gdk.RGBA) -themingEngineLookupColor _obj color_name = liftIO $ do + a -- _obj + -> T.Text -- colorName + -> m (Bool,Gdk.RGBA) -- result +themingEngineLookupColor _obj colorName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - color_name' <- textToCString color_name + colorName' <- textToCString colorName color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - result <- gtk_theming_engine_lookup_color _obj' color_name' color + result <- gtk_theming_engine_lookup_color _obj' colorName' color let result' = (/= 0) result color' <- (wrapBoxed Gdk.RGBA) color touchManagedPtr _obj - freeMem color_name' + freeMem colorName' return (result', color') +data ThemingEngineLookupColorMethodInfo +instance (signature ~ (T.Text -> m (Bool,Gdk.RGBA)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineLookupColorMethodInfo a signature where + overloadedMethod _ = themingEngineLookupColor + -- method ThemingEngine::state_is_running -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "progress", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -680,9 +798,9 @@ {-# DEPRECATED themingEngineStateIsRunning ["(Since version 3.6)","Always returns %FALSE"]#-} themingEngineStateIsRunning :: (MonadIO m, ThemingEngineK a) => - a -> -- _obj - StateType -> -- state - m (Bool,Double) + a -- _obj + -> StateType -- state + -> m (Bool,Double) -- result themingEngineStateIsRunning _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = (fromIntegral . fromEnum) state @@ -695,11 +813,14 @@ freeMem progress return (result', progress'') +data ThemingEngineStateIsRunningMethodInfo +instance (signature ~ (StateType -> m (Bool,Double)), MonadIO m, ThemingEngineK a) => MethodInfo ThemingEngineStateIsRunningMethodInfo a signature where + overloadedMethod _ = themingEngineStateIsRunning + -- method ThemingEngine::load -- method type : MemberFunction --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ThemingEngine" -- throws : False -- Skip return : False @@ -711,8 +832,8 @@ {-# DEPRECATED themingEngineLoad ["(Since version 3.14)"]#-} themingEngineLoad :: (MonadIO m) => - T.Text -> -- name - m ThemingEngine + T.Text -- name + -> m ThemingEngine -- result themingEngineLoad name = liftIO $ do name' <- textToCString name result <- gtk_theming_engine_load name' diff --git a/GI/Gtk/Objects/ThemingEngine.hs-boot b/GI/Gtk/Objects/ThemingEngine.hs-boot --- a/GI/Gtk/Objects/ThemingEngine.hs-boot +++ b/GI/Gtk/Objects/ThemingEngine.hs-boot @@ -12,3 +12,21 @@ class GObject o => ThemingEngineK o instance (GObject o, IsDescendantOf ThemingEngine o) => ThemingEngineK o data ThemingEngineNamePropertyInfo +data ThemingEngineGetBackgroundColorMethodInfo +data ThemingEngineGetBorderMethodInfo +data ThemingEngineGetBorderColorMethodInfo +data ThemingEngineGetColorMethodInfo +data ThemingEngineGetDirectionMethodInfo +data ThemingEngineGetFontMethodInfo +data ThemingEngineGetJunctionSidesMethodInfo +data ThemingEngineGetMarginMethodInfo +data ThemingEngineGetPaddingMethodInfo +data ThemingEngineGetPathMethodInfo +data ThemingEngineGetPropertyMethodInfo +data ThemingEngineGetScreenMethodInfo +data ThemingEngineGetStateMethodInfo +data ThemingEngineGetStylePropertyMethodInfo +data ThemingEngineHasClassMethodInfo +data ThemingEngineHasRegionMethodInfo +data ThemingEngineLookupColorMethodInfo +data ThemingEngineStateIsRunningMethodInfo diff --git a/GI/Gtk/Objects/ToggleAction.hs b/GI/Gtk/Objects/ToggleAction.hs --- a/GI/Gtk/Objects/ToggleAction.hs +++ b/GI/Gtk/Objects/ToggleAction.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** toggleActionGetActive + ToggleActionGetActiveMethodInfo , toggleActionGetActive , -- ** toggleActionGetDrawAsRadio + ToggleActionGetDrawAsRadioMethodInfo , toggleActionGetDrawAsRadio , @@ -29,14 +32,17 @@ -- ** toggleActionSetActive + ToggleActionSetActiveMethodInfo , toggleActionSetActive , -- ** toggleActionSetDrawAsRadio + ToggleActionSetDrawAsRadioMethodInfo , toggleActionSetDrawAsRadio , -- ** toggleActionToggled + ToggleActionToggledMethodInfo , toggleActionToggled , @@ -108,6 +114,93 @@ noToggleAction :: Maybe ToggleAction noToggleAction = Nothing +type family ResolveToggleActionMethod (t :: Symbol) (o :: *) :: * where + ResolveToggleActionMethod "activate" o = ActionActivateMethodInfo + ResolveToggleActionMethod "addChild" o = BuildableAddChildMethodInfo + ResolveToggleActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveToggleActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveToggleActionMethod "blockActivate" o = ActionBlockActivateMethodInfo + ResolveToggleActionMethod "connectAccelerator" o = ActionConnectAcceleratorMethodInfo + ResolveToggleActionMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveToggleActionMethod "createIcon" o = ActionCreateIconMethodInfo + ResolveToggleActionMethod "createMenu" o = ActionCreateMenuMethodInfo + ResolveToggleActionMethod "createMenuItem" o = ActionCreateMenuItemMethodInfo + ResolveToggleActionMethod "createToolItem" o = ActionCreateToolItemMethodInfo + ResolveToggleActionMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveToggleActionMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveToggleActionMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveToggleActionMethod "disconnectAccelerator" o = ActionDisconnectAcceleratorMethodInfo + ResolveToggleActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveToggleActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveToggleActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveToggleActionMethod "isSensitive" o = ActionIsSensitiveMethodInfo + ResolveToggleActionMethod "isVisible" o = ActionIsVisibleMethodInfo + ResolveToggleActionMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveToggleActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveToggleActionMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveToggleActionMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveToggleActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveToggleActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveToggleActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveToggleActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveToggleActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveToggleActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveToggleActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveToggleActionMethod "toggled" o = ToggleActionToggledMethodInfo + ResolveToggleActionMethod "unblockActivate" o = ActionUnblockActivateMethodInfo + ResolveToggleActionMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveToggleActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveToggleActionMethod "getAccelClosure" o = ActionGetAccelClosureMethodInfo + ResolveToggleActionMethod "getAccelPath" o = ActionGetAccelPathMethodInfo + ResolveToggleActionMethod "getActive" o = ToggleActionGetActiveMethodInfo + ResolveToggleActionMethod "getAlwaysShowImage" o = ActionGetAlwaysShowImageMethodInfo + ResolveToggleActionMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveToggleActionMethod "getDrawAsRadio" o = ToggleActionGetDrawAsRadioMethodInfo + ResolveToggleActionMethod "getGicon" o = ActionGetGiconMethodInfo + ResolveToggleActionMethod "getIconName" o = ActionGetIconNameMethodInfo + ResolveToggleActionMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveToggleActionMethod "getIsImportant" o = ActionGetIsImportantMethodInfo + ResolveToggleActionMethod "getLabel" o = ActionGetLabelMethodInfo + ResolveToggleActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveToggleActionMethod "getProxies" o = ActionGetProxiesMethodInfo + ResolveToggleActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveToggleActionMethod "getSensitive" o = ActionGetSensitiveMethodInfo + ResolveToggleActionMethod "getShortLabel" o = ActionGetShortLabelMethodInfo + ResolveToggleActionMethod "getStockId" o = ActionGetStockIdMethodInfo + ResolveToggleActionMethod "getTooltip" o = ActionGetTooltipMethodInfo + ResolveToggleActionMethod "getVisible" o = ActionGetVisibleMethodInfo + ResolveToggleActionMethod "getVisibleHorizontal" o = ActionGetVisibleHorizontalMethodInfo + ResolveToggleActionMethod "getVisibleVertical" o = ActionGetVisibleVerticalMethodInfo + ResolveToggleActionMethod "setAccelGroup" o = ActionSetAccelGroupMethodInfo + ResolveToggleActionMethod "setAccelPath" o = ActionSetAccelPathMethodInfo + ResolveToggleActionMethod "setActive" o = ToggleActionSetActiveMethodInfo + ResolveToggleActionMethod "setAlwaysShowImage" o = ActionSetAlwaysShowImageMethodInfo + ResolveToggleActionMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveToggleActionMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveToggleActionMethod "setDrawAsRadio" o = ToggleActionSetDrawAsRadioMethodInfo + ResolveToggleActionMethod "setGicon" o = ActionSetGiconMethodInfo + ResolveToggleActionMethod "setIconName" o = ActionSetIconNameMethodInfo + ResolveToggleActionMethod "setIsImportant" o = ActionSetIsImportantMethodInfo + ResolveToggleActionMethod "setLabel" o = ActionSetLabelMethodInfo + ResolveToggleActionMethod "setName" o = BuildableSetNameMethodInfo + ResolveToggleActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveToggleActionMethod "setSensitive" o = ActionSetSensitiveMethodInfo + ResolveToggleActionMethod "setShortLabel" o = ActionSetShortLabelMethodInfo + ResolveToggleActionMethod "setStockId" o = ActionSetStockIdMethodInfo + ResolveToggleActionMethod "setTooltip" o = ActionSetTooltipMethodInfo + ResolveToggleActionMethod "setVisible" o = ActionSetVisibleMethodInfo + ResolveToggleActionMethod "setVisibleHorizontal" o = ActionSetVisibleHorizontalMethodInfo + ResolveToggleActionMethod "setVisibleVertical" o = ActionSetVisibleVerticalMethodInfo + ResolveToggleActionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveToggleActionMethod t ToggleAction, MethodInfo info ToggleAction p) => IsLabelProxy t (ToggleAction -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveToggleActionMethod t ToggleAction, MethodInfo info ToggleAction p) => IsLabel t (ToggleAction -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ToggleAction::toggled type ToggleActionToggledCallback = IO () @@ -165,7 +258,7 @@ type AttrSetTypeConstraint ToggleActionActivePropertyInfo = (~) Bool type AttrBaseTypeConstraint ToggleActionActivePropertyInfo = ToggleActionK type AttrGetType ToggleActionActivePropertyInfo = Bool - type AttrLabel ToggleActionActivePropertyInfo = "ToggleAction::active" + type AttrLabel ToggleActionActivePropertyInfo = "active" attrGet _ = getToggleActionActive attrSet _ = setToggleActionActive attrConstruct _ = constructToggleActionActive @@ -189,13 +282,13 @@ type AttrSetTypeConstraint ToggleActionDrawAsRadioPropertyInfo = (~) Bool type AttrBaseTypeConstraint ToggleActionDrawAsRadioPropertyInfo = ToggleActionK type AttrGetType ToggleActionDrawAsRadioPropertyInfo = Bool - type AttrLabel ToggleActionDrawAsRadioPropertyInfo = "ToggleAction::draw-as-radio" + type AttrLabel ToggleActionDrawAsRadioPropertyInfo = "draw-as-radio" attrGet _ = getToggleActionDrawAsRadio attrSet _ = setToggleActionDrawAsRadio attrConstruct _ = constructToggleActionDrawAsRadio type instance AttributeList ToggleAction = ToggleActionAttributeList -type ToggleActionAttributeList = ('[ '("action-group", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("always-show-image", ActionAlwaysShowImagePropertyInfo), '("draw-as-radio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hide-if-empty", ActionHideIfEmptyPropertyInfo), '("icon-name", ActionIconNamePropertyInfo), '("is-important", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("short-label", ActionShortLabelPropertyInfo), '("stock-id", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visible-horizontal", ActionVisibleHorizontalPropertyInfo), '("visible-overflown", ActionVisibleOverflownPropertyInfo), '("visible-vertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) +type ToggleActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("drawAsRadio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) data ToggleActionToggledSignalInfo instance SignalInfo ToggleActionToggledSignalInfo where @@ -203,13 +296,12 @@ connectSignal _ = connectToggleActionToggled type instance SignalList ToggleAction = ToggleActionSignalList -type ToggleActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", ToggleActionToggledSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ToggleActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", ToggleActionToggledSignalInfo)] :: [(Symbol, *)]) -- method ToggleAction::new -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToggleAction" -- throws : False -- Skip return : False @@ -224,12 +316,12 @@ {-# DEPRECATED toggleActionNew ["(Since version 3.10)"]#-} toggleActionNew :: (MonadIO m) => - T.Text -> -- name - Maybe (T.Text) -> -- label - Maybe (T.Text) -> -- tooltip - Maybe (T.Text) -> -- stock_id - m ToggleAction -toggleActionNew name label tooltip stock_id = liftIO $ do + T.Text -- name + -> Maybe (T.Text) -- label + -> Maybe (T.Text) -- tooltip + -> Maybe (T.Text) -- stockId + -> m ToggleAction -- result +toggleActionNew name label tooltip stockId = liftIO $ do name' <- textToCString name maybeLabel <- case label of Nothing -> return nullPtr @@ -241,25 +333,24 @@ Just jTooltip -> do jTooltip' <- textToCString jTooltip return jTooltip' - maybeStock_id <- case stock_id of + maybeStockId <- case stockId of Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - result <- gtk_toggle_action_new name' maybeLabel maybeTooltip maybeStock_id + Just jStockId -> do + jStockId' <- textToCString jStockId + return jStockId' + result <- gtk_toggle_action_new name' maybeLabel maybeTooltip maybeStockId checkUnexpectedReturnNULL "gtk_toggle_action_new" result result' <- (wrapObject ToggleAction) result freeMem name' freeMem maybeLabel freeMem maybeTooltip - freeMem maybeStock_id + freeMem maybeStockId return result' -- method ToggleAction::get_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -271,8 +362,8 @@ {-# DEPRECATED toggleActionGetActive ["(Since version 3.10)"]#-} toggleActionGetActive :: (MonadIO m, ToggleActionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toggleActionGetActive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toggle_action_get_active _obj' @@ -280,11 +371,14 @@ touchManagedPtr _obj return result' +data ToggleActionGetActiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionGetActiveMethodInfo a signature where + overloadedMethod _ = toggleActionGetActive + -- method ToggleAction::get_draw_as_radio -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -296,8 +390,8 @@ {-# DEPRECATED toggleActionGetDrawAsRadio ["(Since version 3.10)"]#-} toggleActionGetDrawAsRadio :: (MonadIO m, ToggleActionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toggleActionGetDrawAsRadio _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toggle_action_get_draw_as_radio _obj' @@ -305,11 +399,14 @@ touchManagedPtr _obj return result' +data ToggleActionGetDrawAsRadioMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionGetDrawAsRadioMethodInfo a signature where + overloadedMethod _ = toggleActionGetDrawAsRadio + -- method ToggleAction::set_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -322,21 +419,24 @@ {-# DEPRECATED toggleActionSetActive ["(Since version 3.10)"]#-} toggleActionSetActive :: (MonadIO m, ToggleActionK a) => - a -> -- _obj - Bool -> -- is_active - m () -toggleActionSetActive _obj is_active = liftIO $ do + a -- _obj + -> Bool -- isActive + -> m () -- result +toggleActionSetActive _obj isActive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let is_active' = (fromIntegral . fromEnum) is_active - gtk_toggle_action_set_active _obj' is_active' + let isActive' = (fromIntegral . fromEnum) isActive + gtk_toggle_action_set_active _obj' isActive' touchManagedPtr _obj return () +data ToggleActionSetActiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionSetActiveMethodInfo a signature where + overloadedMethod _ = toggleActionSetActive + -- method ToggleAction::set_draw_as_radio -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -349,21 +449,24 @@ {-# DEPRECATED toggleActionSetDrawAsRadio ["(Since version 3.10)"]#-} toggleActionSetDrawAsRadio :: (MonadIO m, ToggleActionK a) => - a -> -- _obj - Bool -> -- draw_as_radio - m () -toggleActionSetDrawAsRadio _obj draw_as_radio = liftIO $ do + a -- _obj + -> Bool -- drawAsRadio + -> m () -- result +toggleActionSetDrawAsRadio _obj drawAsRadio = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let draw_as_radio' = (fromIntegral . fromEnum) draw_as_radio - gtk_toggle_action_set_draw_as_radio _obj' draw_as_radio' + let drawAsRadio' = (fromIntegral . fromEnum) drawAsRadio + gtk_toggle_action_set_draw_as_radio _obj' drawAsRadio' touchManagedPtr _obj return () +data ToggleActionSetDrawAsRadioMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionSetDrawAsRadioMethodInfo a signature where + overloadedMethod _ = toggleActionSetDrawAsRadio + -- method ToggleAction::toggled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -375,12 +478,16 @@ {-# DEPRECATED toggleActionToggled ["(Since version 3.10)"]#-} toggleActionToggled :: (MonadIO m, ToggleActionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result toggleActionToggled _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_toggle_action_toggled _obj' touchManagedPtr _obj return () + +data ToggleActionToggledMethodInfo +instance (signature ~ (m ()), MonadIO m, ToggleActionK a) => MethodInfo ToggleActionToggledMethodInfo a signature where + overloadedMethod _ = toggleActionToggled diff --git a/GI/Gtk/Objects/ToggleAction.hs-boot b/GI/Gtk/Objects/ToggleAction.hs-boot --- a/GI/Gtk/Objects/ToggleAction.hs-boot +++ b/GI/Gtk/Objects/ToggleAction.hs-boot @@ -14,3 +14,8 @@ data ToggleActionActivePropertyInfo data ToggleActionDrawAsRadioPropertyInfo data ToggleActionToggledSignalInfo +data ToggleActionGetActiveMethodInfo +data ToggleActionGetDrawAsRadioMethodInfo +data ToggleActionSetActiveMethodInfo +data ToggleActionSetDrawAsRadioMethodInfo +data ToggleActionToggledMethodInfo diff --git a/GI/Gtk/Objects/ToggleButton.hs b/GI/Gtk/Objects/ToggleButton.hs --- a/GI/Gtk/Objects/ToggleButton.hs +++ b/GI/Gtk/Objects/ToggleButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** toggleButtonGetActive + ToggleButtonGetActiveMethodInfo , toggleButtonGetActive , -- ** toggleButtonGetInconsistent + ToggleButtonGetInconsistentMethodInfo , toggleButtonGetInconsistent , -- ** toggleButtonGetMode + ToggleButtonGetModeMethodInfo , toggleButtonGetMode , @@ -41,18 +45,22 @@ -- ** toggleButtonSetActive + ToggleButtonSetActiveMethodInfo , toggleButtonSetActive , -- ** toggleButtonSetInconsistent + ToggleButtonSetInconsistentMethodInfo , toggleButtonSetInconsistent , -- ** toggleButtonSetMode + ToggleButtonSetModeMethodInfo , toggleButtonSetMode , -- ** toggleButtonToggled + ToggleButtonToggledMethodInfo , toggleButtonToggled , @@ -132,6 +140,371 @@ noToggleButton :: Maybe ToggleButton noToggleButton = Nothing +type family ResolveToggleButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveToggleButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveToggleButtonMethod "add" o = ContainerAddMethodInfo + ResolveToggleButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveToggleButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveToggleButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveToggleButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveToggleButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveToggleButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveToggleButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveToggleButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveToggleButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveToggleButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveToggleButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveToggleButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveToggleButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveToggleButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveToggleButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveToggleButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveToggleButtonMethod "clicked" o = ButtonClickedMethodInfo + ResolveToggleButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveToggleButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveToggleButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveToggleButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveToggleButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveToggleButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveToggleButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveToggleButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveToggleButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveToggleButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveToggleButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveToggleButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveToggleButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveToggleButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveToggleButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveToggleButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveToggleButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveToggleButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveToggleButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveToggleButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveToggleButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveToggleButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveToggleButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveToggleButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveToggleButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveToggleButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveToggleButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveToggleButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveToggleButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveToggleButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveToggleButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveToggleButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveToggleButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveToggleButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveToggleButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveToggleButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveToggleButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveToggleButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveToggleButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveToggleButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveToggleButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveToggleButtonMethod "enter" o = ButtonEnterMethodInfo + ResolveToggleButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveToggleButtonMethod "event" o = WidgetEventMethodInfo + ResolveToggleButtonMethod "forall" o = ContainerForallMethodInfo + ResolveToggleButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveToggleButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveToggleButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveToggleButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveToggleButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveToggleButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveToggleButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveToggleButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveToggleButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveToggleButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveToggleButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveToggleButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveToggleButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveToggleButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveToggleButtonMethod "hide" o = WidgetHideMethodInfo + ResolveToggleButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveToggleButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveToggleButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveToggleButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveToggleButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveToggleButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveToggleButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveToggleButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveToggleButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveToggleButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveToggleButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveToggleButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveToggleButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveToggleButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveToggleButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveToggleButtonMethod "leave" o = ButtonLeaveMethodInfo + ResolveToggleButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveToggleButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveToggleButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveToggleButtonMethod "map" o = WidgetMapMethodInfo + ResolveToggleButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveToggleButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveToggleButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveToggleButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveToggleButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveToggleButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveToggleButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveToggleButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveToggleButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveToggleButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveToggleButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveToggleButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveToggleButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveToggleButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveToggleButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveToggleButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveToggleButtonMethod "path" o = WidgetPathMethodInfo + ResolveToggleButtonMethod "pressed" o = ButtonPressedMethodInfo + ResolveToggleButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveToggleButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveToggleButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveToggleButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveToggleButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveToggleButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveToggleButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveToggleButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveToggleButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveToggleButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveToggleButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveToggleButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveToggleButtonMethod "released" o = ButtonReleasedMethodInfo + ResolveToggleButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveToggleButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveToggleButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveToggleButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveToggleButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveToggleButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveToggleButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveToggleButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveToggleButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveToggleButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveToggleButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveToggleButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveToggleButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveToggleButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveToggleButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveToggleButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveToggleButtonMethod "show" o = WidgetShowMethodInfo + ResolveToggleButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveToggleButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveToggleButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveToggleButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveToggleButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveToggleButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveToggleButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveToggleButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveToggleButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveToggleButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveToggleButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveToggleButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveToggleButtonMethod "toggled" o = ToggleButtonToggledMethodInfo + ResolveToggleButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveToggleButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveToggleButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveToggleButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveToggleButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveToggleButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveToggleButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveToggleButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveToggleButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveToggleButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveToggleButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveToggleButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveToggleButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveToggleButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveToggleButtonMethod "getActive" o = ToggleButtonGetActiveMethodInfo + ResolveToggleButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo + ResolveToggleButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveToggleButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveToggleButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveToggleButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveToggleButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo + ResolveToggleButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveToggleButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveToggleButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveToggleButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveToggleButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveToggleButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveToggleButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveToggleButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveToggleButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveToggleButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveToggleButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveToggleButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveToggleButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveToggleButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveToggleButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveToggleButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveToggleButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveToggleButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveToggleButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo + ResolveToggleButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveToggleButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveToggleButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveToggleButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveToggleButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo + ResolveToggleButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveToggleButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveToggleButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveToggleButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveToggleButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveToggleButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveToggleButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveToggleButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveToggleButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveToggleButtonMethod "getImage" o = ButtonGetImageMethodInfo + ResolveToggleButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo + ResolveToggleButtonMethod "getInconsistent" o = ToggleButtonGetInconsistentMethodInfo + ResolveToggleButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveToggleButtonMethod "getLabel" o = ButtonGetLabelMethodInfo + ResolveToggleButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveToggleButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveToggleButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveToggleButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveToggleButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveToggleButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveToggleButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveToggleButtonMethod "getMode" o = ToggleButtonGetModeMethodInfo + ResolveToggleButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveToggleButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveToggleButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveToggleButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveToggleButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveToggleButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveToggleButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveToggleButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveToggleButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveToggleButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveToggleButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveToggleButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveToggleButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveToggleButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveToggleButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveToggleButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveToggleButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveToggleButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveToggleButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveToggleButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveToggleButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveToggleButtonMethod "getRelief" o = ButtonGetReliefMethodInfo + ResolveToggleButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveToggleButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveToggleButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveToggleButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveToggleButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveToggleButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveToggleButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveToggleButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveToggleButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveToggleButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveToggleButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveToggleButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveToggleButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveToggleButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveToggleButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveToggleButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveToggleButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveToggleButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveToggleButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveToggleButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveToggleButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo + ResolveToggleButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo + ResolveToggleButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveToggleButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveToggleButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveToggleButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveToggleButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveToggleButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveToggleButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveToggleButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveToggleButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveToggleButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveToggleButtonMethod "setActive" o = ToggleButtonSetActiveMethodInfo + ResolveToggleButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo + ResolveToggleButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveToggleButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo + ResolveToggleButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveToggleButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveToggleButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveToggleButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveToggleButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveToggleButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveToggleButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveToggleButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveToggleButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveToggleButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveToggleButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveToggleButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveToggleButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveToggleButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveToggleButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveToggleButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveToggleButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveToggleButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveToggleButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo + ResolveToggleButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveToggleButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveToggleButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveToggleButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveToggleButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveToggleButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveToggleButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveToggleButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveToggleButtonMethod "setImage" o = ButtonSetImageMethodInfo + ResolveToggleButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo + ResolveToggleButtonMethod "setInconsistent" o = ToggleButtonSetInconsistentMethodInfo + ResolveToggleButtonMethod "setLabel" o = ButtonSetLabelMethodInfo + ResolveToggleButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveToggleButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveToggleButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveToggleButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveToggleButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveToggleButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveToggleButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveToggleButtonMethod "setMode" o = ToggleButtonSetModeMethodInfo + ResolveToggleButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveToggleButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveToggleButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveToggleButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveToggleButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveToggleButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveToggleButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveToggleButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveToggleButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveToggleButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveToggleButtonMethod "setRelief" o = ButtonSetReliefMethodInfo + ResolveToggleButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveToggleButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveToggleButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveToggleButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveToggleButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveToggleButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveToggleButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveToggleButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveToggleButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveToggleButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveToggleButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveToggleButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo + ResolveToggleButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo + ResolveToggleButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveToggleButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveToggleButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveToggleButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveToggleButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveToggleButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveToggleButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveToggleButtonMethod t ToggleButton, MethodInfo info ToggleButton p) => IsLabelProxy t (ToggleButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveToggleButtonMethod t ToggleButton, MethodInfo info ToggleButton p) => IsLabel t (ToggleButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ToggleButton::toggled type ToggleButtonToggledCallback = IO () @@ -189,7 +562,7 @@ type AttrSetTypeConstraint ToggleButtonActivePropertyInfo = (~) Bool type AttrBaseTypeConstraint ToggleButtonActivePropertyInfo = ToggleButtonK type AttrGetType ToggleButtonActivePropertyInfo = Bool - type AttrLabel ToggleButtonActivePropertyInfo = "ToggleButton::active" + type AttrLabel ToggleButtonActivePropertyInfo = "active" attrGet _ = getToggleButtonActive attrSet _ = setToggleButtonActive attrConstruct _ = constructToggleButtonActive @@ -213,7 +586,7 @@ type AttrSetTypeConstraint ToggleButtonDrawIndicatorPropertyInfo = (~) Bool type AttrBaseTypeConstraint ToggleButtonDrawIndicatorPropertyInfo = ToggleButtonK type AttrGetType ToggleButtonDrawIndicatorPropertyInfo = Bool - type AttrLabel ToggleButtonDrawIndicatorPropertyInfo = "ToggleButton::draw-indicator" + type AttrLabel ToggleButtonDrawIndicatorPropertyInfo = "draw-indicator" attrGet _ = getToggleButtonDrawIndicator attrSet _ = setToggleButtonDrawIndicator attrConstruct _ = constructToggleButtonDrawIndicator @@ -237,13 +610,13 @@ type AttrSetTypeConstraint ToggleButtonInconsistentPropertyInfo = (~) Bool type AttrBaseTypeConstraint ToggleButtonInconsistentPropertyInfo = ToggleButtonK type AttrGetType ToggleButtonInconsistentPropertyInfo = Bool - type AttrLabel ToggleButtonInconsistentPropertyInfo = "ToggleButton::inconsistent" + type AttrLabel ToggleButtonInconsistentPropertyInfo = "inconsistent" attrGet _ = getToggleButtonInconsistent attrSet _ = setToggleButtonInconsistent attrConstruct _ = constructToggleButtonInconsistent type instance AttributeList ToggleButton = ToggleButtonAttributeList -type ToggleButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-indicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +type ToggleButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) data ToggleButtonToggledSignalInfo instance SignalInfo ToggleButtonToggledSignalInfo where @@ -251,13 +624,12 @@ connectSignal _ = connectToggleButtonToggled type instance SignalList ToggleButton = ToggleButtonSignalList -type ToggleButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ToggleButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ToggleButton::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ToggleButton" -- throws : False -- Skip return : False @@ -268,7 +640,7 @@ toggleButtonNew :: (MonadIO m) => - m ToggleButton + m ToggleButton -- result toggleButtonNew = liftIO $ do result <- gtk_toggle_button_new checkUnexpectedReturnNULL "gtk_toggle_button_new" result @@ -277,9 +649,8 @@ -- method ToggleButton::new_with_label -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToggleButton" -- throws : False -- Skip return : False @@ -291,8 +662,8 @@ toggleButtonNewWithLabel :: (MonadIO m) => - T.Text -> -- label - m ToggleButton + T.Text -- label + -> m ToggleButton -- result toggleButtonNewWithLabel label = liftIO $ do label' <- textToCString label result <- gtk_toggle_button_new_with_label label' @@ -303,9 +674,8 @@ -- method ToggleButton::new_with_mnemonic -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToggleButton" -- throws : False -- Skip return : False @@ -317,8 +687,8 @@ toggleButtonNewWithMnemonic :: (MonadIO m) => - T.Text -> -- label - m ToggleButton + T.Text -- label + -> m ToggleButton -- result toggleButtonNewWithMnemonic label = liftIO $ do label' <- textToCString label result <- gtk_toggle_button_new_with_mnemonic label' @@ -329,9 +699,8 @@ -- method ToggleButton::get_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -343,8 +712,8 @@ toggleButtonGetActive :: (MonadIO m, ToggleButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toggleButtonGetActive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toggle_button_get_active _obj' @@ -352,11 +721,14 @@ touchManagedPtr _obj return result' +data ToggleButtonGetActiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonGetActiveMethodInfo a signature where + overloadedMethod _ = toggleButtonGetActive + -- method ToggleButton::get_inconsistent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -368,8 +740,8 @@ toggleButtonGetInconsistent :: (MonadIO m, ToggleButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toggleButtonGetInconsistent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toggle_button_get_inconsistent _obj' @@ -377,11 +749,14 @@ touchManagedPtr _obj return result' +data ToggleButtonGetInconsistentMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonGetInconsistentMethodInfo a signature where + overloadedMethod _ = toggleButtonGetInconsistent + -- method ToggleButton::get_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -393,8 +768,8 @@ toggleButtonGetMode :: (MonadIO m, ToggleButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toggleButtonGetMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toggle_button_get_mode _obj' @@ -402,11 +777,14 @@ touchManagedPtr _obj return result' +data ToggleButtonGetModeMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonGetModeMethodInfo a signature where + overloadedMethod _ = toggleButtonGetMode + -- method ToggleButton::set_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -419,21 +797,24 @@ toggleButtonSetActive :: (MonadIO m, ToggleButtonK a) => - a -> -- _obj - Bool -> -- is_active - m () -toggleButtonSetActive _obj is_active = liftIO $ do + a -- _obj + -> Bool -- isActive + -> m () -- result +toggleButtonSetActive _obj isActive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let is_active' = (fromIntegral . fromEnum) is_active - gtk_toggle_button_set_active _obj' is_active' + let isActive' = (fromIntegral . fromEnum) isActive + gtk_toggle_button_set_active _obj' isActive' touchManagedPtr _obj return () +data ToggleButtonSetActiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonSetActiveMethodInfo a signature where + overloadedMethod _ = toggleButtonSetActive + -- method ToggleButton::set_inconsistent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -446,9 +827,9 @@ toggleButtonSetInconsistent :: (MonadIO m, ToggleButtonK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result toggleButtonSetInconsistent _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -456,11 +837,14 @@ touchManagedPtr _obj return () +data ToggleButtonSetInconsistentMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonSetInconsistentMethodInfo a signature where + overloadedMethod _ = toggleButtonSetInconsistent + -- method ToggleButton::set_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_indicator", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_indicator", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_indicator", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -473,21 +857,24 @@ toggleButtonSetMode :: (MonadIO m, ToggleButtonK a) => - a -> -- _obj - Bool -> -- draw_indicator - m () -toggleButtonSetMode _obj draw_indicator = liftIO $ do + a -- _obj + -> Bool -- drawIndicator + -> m () -- result +toggleButtonSetMode _obj drawIndicator = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let draw_indicator' = (fromIntegral . fromEnum) draw_indicator - gtk_toggle_button_set_mode _obj' draw_indicator' + let drawIndicator' = (fromIntegral . fromEnum) drawIndicator + gtk_toggle_button_set_mode _obj' drawIndicator' touchManagedPtr _obj return () +data ToggleButtonSetModeMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonSetModeMethodInfo a signature where + overloadedMethod _ = toggleButtonSetMode + -- method ToggleButton::toggled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -499,12 +886,16 @@ toggleButtonToggled :: (MonadIO m, ToggleButtonK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result toggleButtonToggled _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_toggle_button_toggled _obj' touchManagedPtr _obj return () + +data ToggleButtonToggledMethodInfo +instance (signature ~ (m ()), MonadIO m, ToggleButtonK a) => MethodInfo ToggleButtonToggledMethodInfo a signature where + overloadedMethod _ = toggleButtonToggled diff --git a/GI/Gtk/Objects/ToggleButton.hs-boot b/GI/Gtk/Objects/ToggleButton.hs-boot --- a/GI/Gtk/Objects/ToggleButton.hs-boot +++ b/GI/Gtk/Objects/ToggleButton.hs-boot @@ -15,3 +15,10 @@ data ToggleButtonDrawIndicatorPropertyInfo data ToggleButtonInconsistentPropertyInfo data ToggleButtonToggledSignalInfo +data ToggleButtonGetActiveMethodInfo +data ToggleButtonGetInconsistentMethodInfo +data ToggleButtonGetModeMethodInfo +data ToggleButtonSetActiveMethodInfo +data ToggleButtonSetInconsistentMethodInfo +data ToggleButtonSetModeMethodInfo +data ToggleButtonToggledMethodInfo diff --git a/GI/Gtk/Objects/ToggleButtonAccessible.hs b/GI/Gtk/Objects/ToggleButtonAccessible.hs --- a/GI/Gtk/Objects/ToggleButtonAccessible.hs +++ b/GI/Gtk/Objects/ToggleButtonAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,84 @@ noToggleButtonAccessible :: Maybe ToggleButtonAccessible noToggleButtonAccessible = Nothing +type family ResolveToggleButtonAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveToggleButtonAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveToggleButtonAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveToggleButtonAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveToggleButtonAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveToggleButtonAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveToggleButtonAccessibleMethod "doAction" o = Atk.ActionDoActionMethodInfo + ResolveToggleButtonAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveToggleButtonAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveToggleButtonAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveToggleButtonAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveToggleButtonAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveToggleButtonAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveToggleButtonAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveToggleButtonAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveToggleButtonAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveToggleButtonAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveToggleButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveToggleButtonAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveToggleButtonAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveToggleButtonAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveToggleButtonAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveToggleButtonAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveToggleButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveToggleButtonAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveToggleButtonAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveToggleButtonAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveToggleButtonAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveToggleButtonAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveToggleButtonAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveToggleButtonAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveToggleButtonAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveToggleButtonAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveToggleButtonAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveToggleButtonAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveToggleButtonAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveToggleButtonAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveToggleButtonAccessibleMethod "getImageDescription" o = Atk.ImageGetImageDescriptionMethodInfo + ResolveToggleButtonAccessibleMethod "getImageLocale" o = Atk.ImageGetImageLocaleMethodInfo + ResolveToggleButtonAccessibleMethod "getImagePosition" o = Atk.ImageGetImagePositionMethodInfo + ResolveToggleButtonAccessibleMethod "getImageSize" o = Atk.ImageGetImageSizeMethodInfo + ResolveToggleButtonAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveToggleButtonAccessibleMethod "getKeybinding" o = Atk.ActionGetKeybindingMethodInfo + ResolveToggleButtonAccessibleMethod "getLocalizedName" o = Atk.ActionGetLocalizedNameMethodInfo + ResolveToggleButtonAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveToggleButtonAccessibleMethod "getNActions" o = Atk.ActionGetNActionsMethodInfo + ResolveToggleButtonAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveToggleButtonAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveToggleButtonAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveToggleButtonAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveToggleButtonAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveToggleButtonAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveToggleButtonAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveToggleButtonAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveToggleButtonAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveToggleButtonAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveToggleButtonAccessibleMethod "setImageDescription" o = Atk.ImageSetImageDescriptionMethodInfo + ResolveToggleButtonAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveToggleButtonAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveToggleButtonAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveToggleButtonAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveToggleButtonAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveToggleButtonAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveToggleButtonAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveToggleButtonAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveToggleButtonAccessibleMethod t ToggleButtonAccessible, MethodInfo info ToggleButtonAccessible p) => IsLabelProxy t (ToggleButtonAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveToggleButtonAccessibleMethod t ToggleButtonAccessible, MethodInfo info ToggleButtonAccessible p) => IsLabel t (ToggleButtonAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ToggleButtonAccessible = ToggleButtonAccessibleAttributeList -type ToggleButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type ToggleButtonAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ToggleButtonAccessible = ToggleButtonAccessibleSignalList -type ToggleButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ToggleButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/ToggleToolButton.hs b/GI/Gtk/Objects/ToggleToolButton.hs --- a/GI/Gtk/Objects/ToggleToolButton.hs +++ b/GI/Gtk/Objects/ToggleToolButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** toggleToolButtonGetActive + ToggleToolButtonGetActiveMethodInfo , toggleToolButtonGetActive , @@ -29,6 +31,7 @@ -- ** toggleToolButtonSetActive + ToggleToolButtonSetActiveMethodInfo , toggleToolButtonSetActive , @@ -94,6 +97,377 @@ noToggleToolButton :: Maybe ToggleToolButton noToggleToolButton = Nothing +type family ResolveToggleToolButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveToggleToolButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveToggleToolButtonMethod "add" o = ContainerAddMethodInfo + ResolveToggleToolButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveToggleToolButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveToggleToolButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveToggleToolButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveToggleToolButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveToggleToolButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveToggleToolButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveToggleToolButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveToggleToolButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveToggleToolButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveToggleToolButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveToggleToolButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveToggleToolButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveToggleToolButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveToggleToolButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveToggleToolButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveToggleToolButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveToggleToolButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveToggleToolButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveToggleToolButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveToggleToolButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveToggleToolButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveToggleToolButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveToggleToolButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveToggleToolButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveToggleToolButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveToggleToolButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveToggleToolButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveToggleToolButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveToggleToolButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveToggleToolButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveToggleToolButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveToggleToolButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveToggleToolButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveToggleToolButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveToggleToolButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveToggleToolButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveToggleToolButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveToggleToolButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveToggleToolButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveToggleToolButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveToggleToolButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveToggleToolButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveToggleToolButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveToggleToolButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveToggleToolButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveToggleToolButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveToggleToolButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveToggleToolButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveToggleToolButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveToggleToolButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveToggleToolButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveToggleToolButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveToggleToolButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveToggleToolButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveToggleToolButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveToggleToolButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveToggleToolButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveToggleToolButtonMethod "event" o = WidgetEventMethodInfo + ResolveToggleToolButtonMethod "forall" o = ContainerForallMethodInfo + ResolveToggleToolButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveToggleToolButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveToggleToolButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveToggleToolButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveToggleToolButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveToggleToolButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveToggleToolButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveToggleToolButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveToggleToolButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveToggleToolButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveToggleToolButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveToggleToolButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveToggleToolButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveToggleToolButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveToggleToolButtonMethod "hide" o = WidgetHideMethodInfo + ResolveToggleToolButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveToggleToolButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveToggleToolButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveToggleToolButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveToggleToolButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveToggleToolButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveToggleToolButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveToggleToolButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveToggleToolButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveToggleToolButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveToggleToolButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveToggleToolButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveToggleToolButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveToggleToolButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveToggleToolButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveToggleToolButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveToggleToolButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveToggleToolButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveToggleToolButtonMethod "map" o = WidgetMapMethodInfo + ResolveToggleToolButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveToggleToolButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveToggleToolButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveToggleToolButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveToggleToolButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveToggleToolButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveToggleToolButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveToggleToolButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveToggleToolButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveToggleToolButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveToggleToolButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveToggleToolButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveToggleToolButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveToggleToolButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveToggleToolButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveToggleToolButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveToggleToolButtonMethod "path" o = WidgetPathMethodInfo + ResolveToggleToolButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveToggleToolButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveToggleToolButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveToggleToolButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveToggleToolButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveToggleToolButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveToggleToolButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveToggleToolButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveToggleToolButtonMethod "rebuildMenu" o = ToolItemRebuildMenuMethodInfo + ResolveToggleToolButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveToggleToolButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveToggleToolButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveToggleToolButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveToggleToolButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveToggleToolButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveToggleToolButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveToggleToolButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveToggleToolButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveToggleToolButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveToggleToolButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveToggleToolButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveToggleToolButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveToggleToolButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveToggleToolButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveToggleToolButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveToggleToolButtonMethod "retrieveProxyMenuItem" o = ToolItemRetrieveProxyMenuItemMethodInfo + ResolveToggleToolButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveToggleToolButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveToggleToolButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveToggleToolButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveToggleToolButtonMethod "show" o = WidgetShowMethodInfo + ResolveToggleToolButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveToggleToolButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveToggleToolButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveToggleToolButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveToggleToolButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveToggleToolButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveToggleToolButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveToggleToolButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveToggleToolButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveToggleToolButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveToggleToolButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveToggleToolButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveToggleToolButtonMethod "toolbarReconfigured" o = ToolItemToolbarReconfiguredMethodInfo + ResolveToggleToolButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveToggleToolButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveToggleToolButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveToggleToolButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveToggleToolButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveToggleToolButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveToggleToolButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveToggleToolButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveToggleToolButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveToggleToolButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveToggleToolButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveToggleToolButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveToggleToolButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveToggleToolButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveToggleToolButtonMethod "getActive" o = ToggleToolButtonGetActiveMethodInfo + ResolveToggleToolButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveToggleToolButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveToggleToolButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveToggleToolButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveToggleToolButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveToggleToolButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveToggleToolButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveToggleToolButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveToggleToolButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveToggleToolButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveToggleToolButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveToggleToolButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveToggleToolButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveToggleToolButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveToggleToolButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveToggleToolButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveToggleToolButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveToggleToolButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveToggleToolButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveToggleToolButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveToggleToolButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveToggleToolButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveToggleToolButtonMethod "getEllipsizeMode" o = ToolItemGetEllipsizeModeMethodInfo + ResolveToggleToolButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveToggleToolButtonMethod "getExpand" o = ToolItemGetExpandMethodInfo + ResolveToggleToolButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveToggleToolButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveToggleToolButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveToggleToolButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveToggleToolButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveToggleToolButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveToggleToolButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveToggleToolButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveToggleToolButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveToggleToolButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveToggleToolButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveToggleToolButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveToggleToolButtonMethod "getHomogeneous" o = ToolItemGetHomogeneousMethodInfo + ResolveToggleToolButtonMethod "getIconName" o = ToolButtonGetIconNameMethodInfo + ResolveToggleToolButtonMethod "getIconSize" o = ToolItemGetIconSizeMethodInfo + ResolveToggleToolButtonMethod "getIconWidget" o = ToolButtonGetIconWidgetMethodInfo + ResolveToggleToolButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveToggleToolButtonMethod "getIsImportant" o = ToolItemGetIsImportantMethodInfo + ResolveToggleToolButtonMethod "getLabel" o = ToolButtonGetLabelMethodInfo + ResolveToggleToolButtonMethod "getLabelWidget" o = ToolButtonGetLabelWidgetMethodInfo + ResolveToggleToolButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveToggleToolButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveToggleToolButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveToggleToolButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveToggleToolButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveToggleToolButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveToggleToolButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveToggleToolButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveToggleToolButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveToggleToolButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveToggleToolButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveToggleToolButtonMethod "getOrientation" o = ToolItemGetOrientationMethodInfo + ResolveToggleToolButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveToggleToolButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveToggleToolButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveToggleToolButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveToggleToolButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveToggleToolButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveToggleToolButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveToggleToolButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveToggleToolButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveToggleToolButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveToggleToolButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveToggleToolButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveToggleToolButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveToggleToolButtonMethod "getProxyMenuItem" o = ToolItemGetProxyMenuItemMethodInfo + ResolveToggleToolButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveToggleToolButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveToggleToolButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveToggleToolButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveToggleToolButtonMethod "getReliefStyle" o = ToolItemGetReliefStyleMethodInfo + ResolveToggleToolButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveToggleToolButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveToggleToolButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveToggleToolButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveToggleToolButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveToggleToolButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveToggleToolButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveToggleToolButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveToggleToolButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveToggleToolButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveToggleToolButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveToggleToolButtonMethod "getStockId" o = ToolButtonGetStockIdMethodInfo + ResolveToggleToolButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveToggleToolButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveToggleToolButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveToggleToolButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveToggleToolButtonMethod "getTextAlignment" o = ToolItemGetTextAlignmentMethodInfo + ResolveToggleToolButtonMethod "getTextOrientation" o = ToolItemGetTextOrientationMethodInfo + ResolveToggleToolButtonMethod "getTextSizeGroup" o = ToolItemGetTextSizeGroupMethodInfo + ResolveToggleToolButtonMethod "getToolbarStyle" o = ToolItemGetToolbarStyleMethodInfo + ResolveToggleToolButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveToggleToolButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveToggleToolButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveToggleToolButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveToggleToolButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveToggleToolButtonMethod "getUseDragWindow" o = ToolItemGetUseDragWindowMethodInfo + ResolveToggleToolButtonMethod "getUseUnderline" o = ToolButtonGetUseUnderlineMethodInfo + ResolveToggleToolButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveToggleToolButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveToggleToolButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveToggleToolButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveToggleToolButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveToggleToolButtonMethod "getVisibleHorizontal" o = ToolItemGetVisibleHorizontalMethodInfo + ResolveToggleToolButtonMethod "getVisibleVertical" o = ToolItemGetVisibleVerticalMethodInfo + ResolveToggleToolButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveToggleToolButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveToggleToolButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveToggleToolButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveToggleToolButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveToggleToolButtonMethod "setActive" o = ToggleToolButtonSetActiveMethodInfo + ResolveToggleToolButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveToggleToolButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveToggleToolButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveToggleToolButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveToggleToolButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveToggleToolButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveToggleToolButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveToggleToolButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveToggleToolButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveToggleToolButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveToggleToolButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveToggleToolButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveToggleToolButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveToggleToolButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveToggleToolButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveToggleToolButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveToggleToolButtonMethod "setExpand" o = ToolItemSetExpandMethodInfo + ResolveToggleToolButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveToggleToolButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveToggleToolButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveToggleToolButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveToggleToolButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveToggleToolButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveToggleToolButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveToggleToolButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveToggleToolButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveToggleToolButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveToggleToolButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveToggleToolButtonMethod "setHomogeneous" o = ToolItemSetHomogeneousMethodInfo + ResolveToggleToolButtonMethod "setIconName" o = ToolButtonSetIconNameMethodInfo + ResolveToggleToolButtonMethod "setIconWidget" o = ToolButtonSetIconWidgetMethodInfo + ResolveToggleToolButtonMethod "setIsImportant" o = ToolItemSetIsImportantMethodInfo + ResolveToggleToolButtonMethod "setLabel" o = ToolButtonSetLabelMethodInfo + ResolveToggleToolButtonMethod "setLabelWidget" o = ToolButtonSetLabelWidgetMethodInfo + ResolveToggleToolButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveToggleToolButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveToggleToolButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveToggleToolButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveToggleToolButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveToggleToolButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveToggleToolButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveToggleToolButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveToggleToolButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveToggleToolButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveToggleToolButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveToggleToolButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveToggleToolButtonMethod "setProxyMenuItem" o = ToolItemSetProxyMenuItemMethodInfo + ResolveToggleToolButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveToggleToolButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveToggleToolButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveToggleToolButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveToggleToolButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveToggleToolButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveToggleToolButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveToggleToolButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveToggleToolButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveToggleToolButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveToggleToolButtonMethod "setStockId" o = ToolButtonSetStockIdMethodInfo + ResolveToggleToolButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveToggleToolButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveToggleToolButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveToggleToolButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveToggleToolButtonMethod "setUseDragWindow" o = ToolItemSetUseDragWindowMethodInfo + ResolveToggleToolButtonMethod "setUseUnderline" o = ToolButtonSetUseUnderlineMethodInfo + ResolveToggleToolButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveToggleToolButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveToggleToolButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveToggleToolButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveToggleToolButtonMethod "setVisibleHorizontal" o = ToolItemSetVisibleHorizontalMethodInfo + ResolveToggleToolButtonMethod "setVisibleVertical" o = ToolItemSetVisibleVerticalMethodInfo + ResolveToggleToolButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveToggleToolButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveToggleToolButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveToggleToolButtonMethod t ToggleToolButton, MethodInfo info ToggleToolButton p) => IsLabelProxy t (ToggleToolButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveToggleToolButtonMethod t ToggleToolButton, MethodInfo info ToggleToolButton p) => IsLabel t (ToggleToolButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ToggleToolButton::toggled type ToggleToolButtonToggledCallback = IO () @@ -151,13 +525,13 @@ type AttrSetTypeConstraint ToggleToolButtonActivePropertyInfo = (~) Bool type AttrBaseTypeConstraint ToggleToolButtonActivePropertyInfo = ToggleToolButtonK type AttrGetType ToggleToolButtonActivePropertyInfo = Bool - type AttrLabel ToggleToolButtonActivePropertyInfo = "ToggleToolButton::active" + type AttrLabel ToggleToolButtonActivePropertyInfo = "active" attrGet _ = getToggleToolButtonActive attrSet _ = setToggleToolButtonActive attrConstruct _ = constructToggleToolButtonActive type instance AttributeList ToggleToolButton = ToggleToolButtonAttributeList -type ToggleToolButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ToolButtonIconNamePropertyInfo), '("icon-widget", ToolButtonIconWidgetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("label-widget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock-id", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ToggleToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data ToggleToolButtonToggledSignalInfo instance SignalInfo ToggleToolButtonToggledSignalInfo where @@ -165,13 +539,12 @@ connectSignal _ = connectToggleToolButtonToggled type instance SignalList ToggleToolButton = ToggleToolButtonSignalList -type ToggleToolButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleToolButtonToggledSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ToggleToolButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleToolButtonToggledSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ToggleToolButton::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ToggleToolButton" -- throws : False -- Skip return : False @@ -182,7 +555,7 @@ toggleToolButtonNew :: (MonadIO m) => - m ToggleToolButton + m ToggleToolButton -- result toggleToolButtonNew = liftIO $ do result <- gtk_toggle_tool_button_new checkUnexpectedReturnNULL "gtk_toggle_tool_button_new" result @@ -191,9 +564,8 @@ -- method ToggleToolButton::new_from_stock -- method type : Constructor --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToggleToolButton" -- throws : False -- Skip return : False @@ -205,21 +577,20 @@ {-# DEPRECATED toggleToolButtonNewFromStock ["(Since version 3.10)","Use gtk_toggle_tool_button_new() instead."]#-} toggleToolButtonNewFromStock :: (MonadIO m) => - T.Text -> -- stock_id - m ToggleToolButton -toggleToolButtonNewFromStock stock_id = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_toggle_tool_button_new_from_stock stock_id' + T.Text -- stockId + -> m ToggleToolButton -- result +toggleToolButtonNewFromStock stockId = liftIO $ do + stockId' <- textToCString stockId + result <- gtk_toggle_tool_button_new_from_stock stockId' checkUnexpectedReturnNULL "gtk_toggle_tool_button_new_from_stock" result result' <- (newObject ToggleToolButton) result - freeMem stock_id' + freeMem stockId' return result' -- method ToggleToolButton::get_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -231,8 +602,8 @@ toggleToolButtonGetActive :: (MonadIO m, ToggleToolButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toggleToolButtonGetActive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toggle_tool_button_get_active _obj' @@ -240,11 +611,14 @@ touchManagedPtr _obj return result' +data ToggleToolButtonGetActiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToggleToolButtonK a) => MethodInfo ToggleToolButtonGetActiveMethodInfo a signature where + overloadedMethod _ = toggleToolButtonGetActive + -- method ToggleToolButton::set_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -257,14 +631,18 @@ toggleToolButtonSetActive :: (MonadIO m, ToggleToolButtonK a) => - a -> -- _obj - Bool -> -- is_active - m () -toggleToolButtonSetActive _obj is_active = liftIO $ do + a -- _obj + -> Bool -- isActive + -> m () -- result +toggleToolButtonSetActive _obj isActive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let is_active' = (fromIntegral . fromEnum) is_active - gtk_toggle_tool_button_set_active _obj' is_active' + let isActive' = (fromIntegral . fromEnum) isActive + gtk_toggle_tool_button_set_active _obj' isActive' touchManagedPtr _obj return () + +data ToggleToolButtonSetActiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToggleToolButtonK a) => MethodInfo ToggleToolButtonSetActiveMethodInfo a signature where + overloadedMethod _ = toggleToolButtonSetActive diff --git a/GI/Gtk/Objects/ToggleToolButton.hs-boot b/GI/Gtk/Objects/ToggleToolButton.hs-boot --- a/GI/Gtk/Objects/ToggleToolButton.hs-boot +++ b/GI/Gtk/Objects/ToggleToolButton.hs-boot @@ -13,3 +13,5 @@ instance (GObject o, IsDescendantOf ToggleToolButton o) => ToggleToolButtonK o data ToggleToolButtonActivePropertyInfo data ToggleToolButtonToggledSignalInfo +data ToggleToolButtonGetActiveMethodInfo +data ToggleToolButtonSetActiveMethodInfo diff --git a/GI/Gtk/Objects/ToolButton.hs b/GI/Gtk/Objects/ToolButton.hs --- a/GI/Gtk/Objects/ToolButton.hs +++ b/GI/Gtk/Objects/ToolButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** toolButtonGetIconName + ToolButtonGetIconNameMethodInfo , toolButtonGetIconName , -- ** toolButtonGetIconWidget + ToolButtonGetIconWidgetMethodInfo , toolButtonGetIconWidget , -- ** toolButtonGetLabel + ToolButtonGetLabelMethodInfo , toolButtonGetLabel , -- ** toolButtonGetLabelWidget + ToolButtonGetLabelWidgetMethodInfo , toolButtonGetLabelWidget , -- ** toolButtonGetStockId + ToolButtonGetStockIdMethodInfo , toolButtonGetStockId , -- ** toolButtonGetUseUnderline + ToolButtonGetUseUnderlineMethodInfo , toolButtonGetUseUnderline , @@ -49,26 +56,32 @@ -- ** toolButtonSetIconName + ToolButtonSetIconNameMethodInfo , toolButtonSetIconName , -- ** toolButtonSetIconWidget + ToolButtonSetIconWidgetMethodInfo , toolButtonSetIconWidget , -- ** toolButtonSetLabel + ToolButtonSetLabelMethodInfo , toolButtonSetLabel , -- ** toolButtonSetLabelWidget + ToolButtonSetLabelWidgetMethodInfo , toolButtonSetLabelWidget , -- ** toolButtonSetStockId + ToolButtonSetStockIdMethodInfo , toolButtonSetStockId , -- ** toolButtonSetUseUnderline + ToolButtonSetUseUnderlineMethodInfo , toolButtonSetUseUnderline , @@ -169,6 +182,375 @@ noToolButton :: Maybe ToolButton noToolButton = Nothing +type family ResolveToolButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveToolButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveToolButtonMethod "add" o = ContainerAddMethodInfo + ResolveToolButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveToolButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveToolButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveToolButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveToolButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveToolButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveToolButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveToolButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveToolButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveToolButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveToolButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveToolButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveToolButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveToolButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveToolButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveToolButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveToolButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveToolButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveToolButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveToolButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveToolButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveToolButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveToolButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveToolButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveToolButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveToolButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveToolButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveToolButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveToolButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveToolButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveToolButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveToolButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveToolButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveToolButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveToolButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveToolButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveToolButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveToolButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveToolButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveToolButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveToolButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveToolButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveToolButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveToolButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveToolButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveToolButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveToolButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveToolButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveToolButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveToolButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveToolButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveToolButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveToolButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveToolButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveToolButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveToolButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveToolButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveToolButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveToolButtonMethod "event" o = WidgetEventMethodInfo + ResolveToolButtonMethod "forall" o = ContainerForallMethodInfo + ResolveToolButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveToolButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveToolButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveToolButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveToolButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveToolButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveToolButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveToolButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveToolButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveToolButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveToolButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveToolButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveToolButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveToolButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveToolButtonMethod "hide" o = WidgetHideMethodInfo + ResolveToolButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveToolButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveToolButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveToolButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveToolButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveToolButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveToolButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveToolButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveToolButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveToolButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveToolButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveToolButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveToolButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveToolButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveToolButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveToolButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveToolButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveToolButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveToolButtonMethod "map" o = WidgetMapMethodInfo + ResolveToolButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveToolButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveToolButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveToolButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveToolButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveToolButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveToolButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveToolButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveToolButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveToolButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveToolButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveToolButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveToolButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveToolButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveToolButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveToolButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveToolButtonMethod "path" o = WidgetPathMethodInfo + ResolveToolButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveToolButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveToolButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveToolButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveToolButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveToolButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveToolButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveToolButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveToolButtonMethod "rebuildMenu" o = ToolItemRebuildMenuMethodInfo + ResolveToolButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveToolButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveToolButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveToolButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveToolButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveToolButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveToolButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveToolButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveToolButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveToolButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveToolButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveToolButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveToolButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveToolButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveToolButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveToolButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveToolButtonMethod "retrieveProxyMenuItem" o = ToolItemRetrieveProxyMenuItemMethodInfo + ResolveToolButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveToolButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveToolButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveToolButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveToolButtonMethod "show" o = WidgetShowMethodInfo + ResolveToolButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveToolButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveToolButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveToolButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveToolButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveToolButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveToolButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveToolButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveToolButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveToolButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveToolButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveToolButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveToolButtonMethod "toolbarReconfigured" o = ToolItemToolbarReconfiguredMethodInfo + ResolveToolButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveToolButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveToolButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveToolButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveToolButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveToolButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveToolButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveToolButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveToolButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveToolButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveToolButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveToolButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveToolButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveToolButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveToolButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveToolButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveToolButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveToolButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveToolButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveToolButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveToolButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveToolButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveToolButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveToolButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveToolButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveToolButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveToolButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveToolButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveToolButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveToolButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveToolButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveToolButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveToolButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveToolButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveToolButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveToolButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveToolButtonMethod "getEllipsizeMode" o = ToolItemGetEllipsizeModeMethodInfo + ResolveToolButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveToolButtonMethod "getExpand" o = ToolItemGetExpandMethodInfo + ResolveToolButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveToolButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveToolButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveToolButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveToolButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveToolButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveToolButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveToolButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveToolButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveToolButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveToolButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveToolButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveToolButtonMethod "getHomogeneous" o = ToolItemGetHomogeneousMethodInfo + ResolveToolButtonMethod "getIconName" o = ToolButtonGetIconNameMethodInfo + ResolveToolButtonMethod "getIconSize" o = ToolItemGetIconSizeMethodInfo + ResolveToolButtonMethod "getIconWidget" o = ToolButtonGetIconWidgetMethodInfo + ResolveToolButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveToolButtonMethod "getIsImportant" o = ToolItemGetIsImportantMethodInfo + ResolveToolButtonMethod "getLabel" o = ToolButtonGetLabelMethodInfo + ResolveToolButtonMethod "getLabelWidget" o = ToolButtonGetLabelWidgetMethodInfo + ResolveToolButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveToolButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveToolButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveToolButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveToolButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveToolButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveToolButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveToolButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveToolButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveToolButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveToolButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveToolButtonMethod "getOrientation" o = ToolItemGetOrientationMethodInfo + ResolveToolButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveToolButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveToolButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveToolButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveToolButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveToolButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveToolButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveToolButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveToolButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveToolButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveToolButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveToolButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveToolButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveToolButtonMethod "getProxyMenuItem" o = ToolItemGetProxyMenuItemMethodInfo + ResolveToolButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveToolButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveToolButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveToolButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveToolButtonMethod "getReliefStyle" o = ToolItemGetReliefStyleMethodInfo + ResolveToolButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveToolButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveToolButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveToolButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveToolButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveToolButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveToolButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveToolButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveToolButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveToolButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveToolButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveToolButtonMethod "getStockId" o = ToolButtonGetStockIdMethodInfo + ResolveToolButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveToolButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveToolButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveToolButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveToolButtonMethod "getTextAlignment" o = ToolItemGetTextAlignmentMethodInfo + ResolveToolButtonMethod "getTextOrientation" o = ToolItemGetTextOrientationMethodInfo + ResolveToolButtonMethod "getTextSizeGroup" o = ToolItemGetTextSizeGroupMethodInfo + ResolveToolButtonMethod "getToolbarStyle" o = ToolItemGetToolbarStyleMethodInfo + ResolveToolButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveToolButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveToolButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveToolButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveToolButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveToolButtonMethod "getUseDragWindow" o = ToolItemGetUseDragWindowMethodInfo + ResolveToolButtonMethod "getUseUnderline" o = ToolButtonGetUseUnderlineMethodInfo + ResolveToolButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveToolButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveToolButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveToolButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveToolButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveToolButtonMethod "getVisibleHorizontal" o = ToolItemGetVisibleHorizontalMethodInfo + ResolveToolButtonMethod "getVisibleVertical" o = ToolItemGetVisibleVerticalMethodInfo + ResolveToolButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveToolButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveToolButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveToolButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveToolButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveToolButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveToolButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveToolButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveToolButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveToolButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveToolButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveToolButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveToolButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveToolButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveToolButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveToolButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveToolButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveToolButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveToolButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveToolButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveToolButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveToolButtonMethod "setExpand" o = ToolItemSetExpandMethodInfo + ResolveToolButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveToolButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveToolButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveToolButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveToolButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveToolButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveToolButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveToolButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveToolButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveToolButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveToolButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveToolButtonMethod "setHomogeneous" o = ToolItemSetHomogeneousMethodInfo + ResolveToolButtonMethod "setIconName" o = ToolButtonSetIconNameMethodInfo + ResolveToolButtonMethod "setIconWidget" o = ToolButtonSetIconWidgetMethodInfo + ResolveToolButtonMethod "setIsImportant" o = ToolItemSetIsImportantMethodInfo + ResolveToolButtonMethod "setLabel" o = ToolButtonSetLabelMethodInfo + ResolveToolButtonMethod "setLabelWidget" o = ToolButtonSetLabelWidgetMethodInfo + ResolveToolButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveToolButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveToolButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveToolButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveToolButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveToolButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveToolButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveToolButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveToolButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveToolButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveToolButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveToolButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveToolButtonMethod "setProxyMenuItem" o = ToolItemSetProxyMenuItemMethodInfo + ResolveToolButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveToolButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveToolButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveToolButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveToolButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveToolButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveToolButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveToolButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveToolButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveToolButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveToolButtonMethod "setStockId" o = ToolButtonSetStockIdMethodInfo + ResolveToolButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveToolButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveToolButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveToolButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveToolButtonMethod "setUseDragWindow" o = ToolItemSetUseDragWindowMethodInfo + ResolveToolButtonMethod "setUseUnderline" o = ToolButtonSetUseUnderlineMethodInfo + ResolveToolButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveToolButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveToolButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveToolButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveToolButtonMethod "setVisibleHorizontal" o = ToolItemSetVisibleHorizontalMethodInfo + ResolveToolButtonMethod "setVisibleVertical" o = ToolItemSetVisibleVerticalMethodInfo + ResolveToolButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveToolButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveToolButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveToolButtonMethod t ToolButton, MethodInfo info ToolButton p) => IsLabelProxy t (ToolButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveToolButtonMethod t ToolButton, MethodInfo info ToolButton p) => IsLabel t (ToolButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ToolButton::clicked type ToolButtonClickedCallback = IO () @@ -226,7 +608,7 @@ type AttrSetTypeConstraint ToolButtonIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ToolButtonIconNamePropertyInfo = ToolButtonK type AttrGetType ToolButtonIconNamePropertyInfo = T.Text - type AttrLabel ToolButtonIconNamePropertyInfo = "ToolButton::icon-name" + type AttrLabel ToolButtonIconNamePropertyInfo = "icon-name" attrGet _ = getToolButtonIconName attrSet _ = setToolButtonIconName attrConstruct _ = constructToolButtonIconName @@ -250,7 +632,7 @@ type AttrSetTypeConstraint ToolButtonIconWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint ToolButtonIconWidgetPropertyInfo = ToolButtonK type AttrGetType ToolButtonIconWidgetPropertyInfo = Widget - type AttrLabel ToolButtonIconWidgetPropertyInfo = "ToolButton::icon-widget" + type AttrLabel ToolButtonIconWidgetPropertyInfo = "icon-widget" attrGet _ = getToolButtonIconWidget attrSet _ = setToolButtonIconWidget attrConstruct _ = constructToolButtonIconWidget @@ -274,7 +656,7 @@ type AttrSetTypeConstraint ToolButtonLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ToolButtonLabelPropertyInfo = ToolButtonK type AttrGetType ToolButtonLabelPropertyInfo = T.Text - type AttrLabel ToolButtonLabelPropertyInfo = "ToolButton::label" + type AttrLabel ToolButtonLabelPropertyInfo = "label" attrGet _ = getToolButtonLabel attrSet _ = setToolButtonLabel attrConstruct _ = constructToolButtonLabel @@ -298,7 +680,7 @@ type AttrSetTypeConstraint ToolButtonLabelWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint ToolButtonLabelWidgetPropertyInfo = ToolButtonK type AttrGetType ToolButtonLabelWidgetPropertyInfo = Widget - type AttrLabel ToolButtonLabelWidgetPropertyInfo = "ToolButton::label-widget" + type AttrLabel ToolButtonLabelWidgetPropertyInfo = "label-widget" attrGet _ = getToolButtonLabelWidget attrSet _ = setToolButtonLabelWidget attrConstruct _ = constructToolButtonLabelWidget @@ -322,7 +704,7 @@ type AttrSetTypeConstraint ToolButtonStockIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ToolButtonStockIdPropertyInfo = ToolButtonK type AttrGetType ToolButtonStockIdPropertyInfo = T.Text - type AttrLabel ToolButtonStockIdPropertyInfo = "ToolButton::stock-id" + type AttrLabel ToolButtonStockIdPropertyInfo = "stock-id" attrGet _ = getToolButtonStockId attrSet _ = setToolButtonStockId attrConstruct _ = constructToolButtonStockId @@ -346,13 +728,13 @@ type AttrSetTypeConstraint ToolButtonUseUnderlinePropertyInfo = (~) Bool type AttrBaseTypeConstraint ToolButtonUseUnderlinePropertyInfo = ToolButtonK type AttrGetType ToolButtonUseUnderlinePropertyInfo = Bool - type AttrLabel ToolButtonUseUnderlinePropertyInfo = "ToolButton::use-underline" + type AttrLabel ToolButtonUseUnderlinePropertyInfo = "use-underline" attrGet _ = getToolButtonUseUnderline attrSet _ = setToolButtonUseUnderline attrConstruct _ = constructToolButtonUseUnderline type instance AttributeList ToolButton = ToolButtonAttributeList -type ToolButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ToolButtonIconNamePropertyInfo), '("icon-widget", ToolButtonIconWidgetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("label-widget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock-id", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data ToolButtonClickedSignalInfo instance SignalInfo ToolButtonClickedSignalInfo where @@ -360,13 +742,12 @@ connectSignal _ = connectToolButtonClicked type instance SignalList ToolButton = ToolButtonSignalList -type ToolButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ToolButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ToolButton::new -- method type : Constructor --- Args : [Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToolButton" -- throws : False -- Skip return : False @@ -379,32 +760,31 @@ toolButtonNew :: (MonadIO m, WidgetK a) => - Maybe (a) -> -- icon_widget - Maybe (T.Text) -> -- label - m ToolButton -toolButtonNew icon_widget label = liftIO $ do - maybeIcon_widget <- case icon_widget of + Maybe (a) -- iconWidget + -> Maybe (T.Text) -- label + -> m ToolButton -- result +toolButtonNew iconWidget label = liftIO $ do + maybeIconWidget <- case iconWidget of Nothing -> return nullPtr - Just jIcon_widget -> do - let jIcon_widget' = unsafeManagedPtrCastPtr jIcon_widget - return jIcon_widget' + Just jIconWidget -> do + let jIconWidget' = unsafeManagedPtrCastPtr jIconWidget + return jIconWidget' maybeLabel <- case label of Nothing -> return nullPtr Just jLabel -> do jLabel' <- textToCString jLabel return jLabel' - result <- gtk_tool_button_new maybeIcon_widget maybeLabel + result <- gtk_tool_button_new maybeIconWidget maybeLabel checkUnexpectedReturnNULL "gtk_tool_button_new" result result' <- (newObject ToolButton) result - whenJust icon_widget touchManagedPtr + whenJust iconWidget touchManagedPtr freeMem maybeLabel return result' -- method ToolButton::new_from_stock -- method type : Constructor --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToolButton" -- throws : False -- Skip return : False @@ -416,21 +796,20 @@ {-# DEPRECATED toolButtonNewFromStock ["(Since version 3.10)","Use gtk_tool_button_new() together with","gtk_image_new_from_icon_name() instead."]#-} toolButtonNewFromStock :: (MonadIO m) => - T.Text -> -- stock_id - m ToolButton -toolButtonNewFromStock stock_id = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_tool_button_new_from_stock stock_id' + T.Text -- stockId + -> m ToolButton -- result +toolButtonNewFromStock stockId = liftIO $ do + stockId' <- textToCString stockId + result <- gtk_tool_button_new_from_stock stockId' checkUnexpectedReturnNULL "gtk_tool_button_new_from_stock" result result' <- (newObject ToolButton) result - freeMem stock_id' + freeMem stockId' return result' -- method ToolButton::get_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -442,8 +821,8 @@ toolButtonGetIconName :: (MonadIO m, ToolButtonK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result toolButtonGetIconName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_button_get_icon_name _obj' @@ -452,11 +831,14 @@ touchManagedPtr _obj return result' +data ToolButtonGetIconNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonGetIconNameMethodInfo a signature where + overloadedMethod _ = toolButtonGetIconName + -- method ToolButton::get_icon_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -468,8 +850,8 @@ toolButtonGetIconWidget :: (MonadIO m, ToolButtonK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result toolButtonGetIconWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_button_get_icon_widget _obj' @@ -478,11 +860,14 @@ touchManagedPtr _obj return result' +data ToolButtonGetIconWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonGetIconWidgetMethodInfo a signature where + overloadedMethod _ = toolButtonGetIconWidget + -- method ToolButton::get_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -494,8 +879,8 @@ toolButtonGetLabel :: (MonadIO m, ToolButtonK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result toolButtonGetLabel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_button_get_label _obj' @@ -504,11 +889,14 @@ touchManagedPtr _obj return result' +data ToolButtonGetLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonGetLabelMethodInfo a signature where + overloadedMethod _ = toolButtonGetLabel + -- method ToolButton::get_label_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -520,8 +908,8 @@ toolButtonGetLabelWidget :: (MonadIO m, ToolButtonK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result toolButtonGetLabelWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_button_get_label_widget _obj' @@ -530,11 +918,14 @@ touchManagedPtr _obj return result' +data ToolButtonGetLabelWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonGetLabelWidgetMethodInfo a signature where + overloadedMethod _ = toolButtonGetLabelWidget + -- method ToolButton::get_stock_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -546,8 +937,8 @@ {-# DEPRECATED toolButtonGetStockId ["(Since version 3.10)","Use gtk_tool_button_get_icon_name() instead."]#-} toolButtonGetStockId :: (MonadIO m, ToolButtonK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result toolButtonGetStockId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_button_get_stock_id _obj' @@ -556,11 +947,14 @@ touchManagedPtr _obj return result' +data ToolButtonGetStockIdMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonGetStockIdMethodInfo a signature where + overloadedMethod _ = toolButtonGetStockId + -- method ToolButton::get_use_underline -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -572,8 +966,8 @@ toolButtonGetUseUnderline :: (MonadIO m, ToolButtonK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toolButtonGetUseUnderline _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_button_get_use_underline _obj' @@ -581,11 +975,14 @@ touchManagedPtr _obj return result' +data ToolButtonGetUseUnderlineMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonGetUseUnderlineMethodInfo a signature where + overloadedMethod _ = toolButtonGetUseUnderline + -- method ToolButton::set_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -598,26 +995,29 @@ toolButtonSetIconName :: (MonadIO m, ToolButtonK a) => - a -> -- _obj - Maybe (T.Text) -> -- icon_name - m () -toolButtonSetIconName _obj icon_name = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- iconName + -> m () -- result +toolButtonSetIconName _obj iconName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon_name <- case icon_name of + maybeIconName <- case iconName of Nothing -> return nullPtr - Just jIcon_name -> do - jIcon_name' <- textToCString jIcon_name - return jIcon_name' - gtk_tool_button_set_icon_name _obj' maybeIcon_name + Just jIconName -> do + jIconName' <- textToCString jIconName + return jIconName' + gtk_tool_button_set_icon_name _obj' maybeIconName touchManagedPtr _obj - freeMem maybeIcon_name + freeMem maybeIconName return () +data ToolButtonSetIconNameMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonSetIconNameMethodInfo a signature where + overloadedMethod _ = toolButtonSetIconName + -- method ToolButton::set_icon_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -630,26 +1030,29 @@ toolButtonSetIconWidget :: (MonadIO m, ToolButtonK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- icon_widget - m () -toolButtonSetIconWidget _obj icon_widget = liftIO $ do + a -- _obj + -> Maybe (b) -- iconWidget + -> m () -- result +toolButtonSetIconWidget _obj iconWidget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon_widget <- case icon_widget of + maybeIconWidget <- case iconWidget of Nothing -> return nullPtr - Just jIcon_widget -> do - let jIcon_widget' = unsafeManagedPtrCastPtr jIcon_widget - return jIcon_widget' - gtk_tool_button_set_icon_widget _obj' maybeIcon_widget + Just jIconWidget -> do + let jIconWidget' = unsafeManagedPtrCastPtr jIconWidget + return jIconWidget' + gtk_tool_button_set_icon_widget _obj' maybeIconWidget touchManagedPtr _obj - whenJust icon_widget touchManagedPtr + whenJust iconWidget touchManagedPtr return () +data ToolButtonSetIconWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ToolButtonK a, WidgetK b) => MethodInfo ToolButtonSetIconWidgetMethodInfo a signature where + overloadedMethod _ = toolButtonSetIconWidget + -- method ToolButton::set_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -662,9 +1065,9 @@ toolButtonSetLabel :: (MonadIO m, ToolButtonK a) => - a -> -- _obj - Maybe (T.Text) -> -- label - m () + a -- _obj + -> Maybe (T.Text) -- label + -> m () -- result toolButtonSetLabel _obj label = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLabel <- case label of @@ -677,11 +1080,14 @@ freeMem maybeLabel return () +data ToolButtonSetLabelMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonSetLabelMethodInfo a signature where + overloadedMethod _ = toolButtonSetLabel + -- method ToolButton::set_label_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -694,26 +1100,29 @@ toolButtonSetLabelWidget :: (MonadIO m, ToolButtonK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- label_widget - m () -toolButtonSetLabelWidget _obj label_widget = liftIO $ do + a -- _obj + -> Maybe (b) -- labelWidget + -> m () -- result +toolButtonSetLabelWidget _obj labelWidget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel_widget <- case label_widget of + maybeLabelWidget <- case labelWidget of Nothing -> return nullPtr - Just jLabel_widget -> do - let jLabel_widget' = unsafeManagedPtrCastPtr jLabel_widget - return jLabel_widget' - gtk_tool_button_set_label_widget _obj' maybeLabel_widget + Just jLabelWidget -> do + let jLabelWidget' = unsafeManagedPtrCastPtr jLabelWidget + return jLabelWidget' + gtk_tool_button_set_label_widget _obj' maybeLabelWidget touchManagedPtr _obj - whenJust label_widget touchManagedPtr + whenJust labelWidget touchManagedPtr return () +data ToolButtonSetLabelWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ToolButtonK a, WidgetK b) => MethodInfo ToolButtonSetLabelWidgetMethodInfo a signature where + overloadedMethod _ = toolButtonSetLabelWidget + -- method ToolButton::set_stock_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -726,26 +1135,29 @@ {-# DEPRECATED toolButtonSetStockId ["(Since version 3.10)","Use gtk_tool_button_set_icon_name() instead."]#-} toolButtonSetStockId :: (MonadIO m, ToolButtonK a) => - a -> -- _obj - Maybe (T.Text) -> -- stock_id - m () -toolButtonSetStockId _obj stock_id = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- stockId + -> m () -- result +toolButtonSetStockId _obj stockId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeStock_id <- case stock_id of + maybeStockId <- case stockId of Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - gtk_tool_button_set_stock_id _obj' maybeStock_id + Just jStockId -> do + jStockId' <- textToCString jStockId + return jStockId' + gtk_tool_button_set_stock_id _obj' maybeStockId touchManagedPtr _obj - freeMem maybeStock_id + freeMem maybeStockId return () +data ToolButtonSetStockIdMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonSetStockIdMethodInfo a signature where + overloadedMethod _ = toolButtonSetStockId + -- method ToolButton::set_use_underline -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -758,14 +1170,18 @@ toolButtonSetUseUnderline :: (MonadIO m, ToolButtonK a) => - a -> -- _obj - Bool -> -- use_underline - m () -toolButtonSetUseUnderline _obj use_underline = liftIO $ do + a -- _obj + -> Bool -- useUnderline + -> m () -- result +toolButtonSetUseUnderline _obj useUnderline = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_underline' = (fromIntegral . fromEnum) use_underline - gtk_tool_button_set_use_underline _obj' use_underline' + let useUnderline' = (fromIntegral . fromEnum) useUnderline + gtk_tool_button_set_use_underline _obj' useUnderline' touchManagedPtr _obj return () + +data ToolButtonSetUseUnderlineMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToolButtonK a) => MethodInfo ToolButtonSetUseUnderlineMethodInfo a signature where + overloadedMethod _ = toolButtonSetUseUnderline diff --git a/GI/Gtk/Objects/ToolButton.hs-boot b/GI/Gtk/Objects/ToolButton.hs-boot --- a/GI/Gtk/Objects/ToolButton.hs-boot +++ b/GI/Gtk/Objects/ToolButton.hs-boot @@ -18,3 +18,15 @@ data ToolButtonStockIdPropertyInfo data ToolButtonUseUnderlinePropertyInfo data ToolButtonClickedSignalInfo +data ToolButtonGetIconNameMethodInfo +data ToolButtonGetIconWidgetMethodInfo +data ToolButtonGetLabelMethodInfo +data ToolButtonGetLabelWidgetMethodInfo +data ToolButtonGetStockIdMethodInfo +data ToolButtonGetUseUnderlineMethodInfo +data ToolButtonSetIconNameMethodInfo +data ToolButtonSetIconWidgetMethodInfo +data ToolButtonSetLabelMethodInfo +data ToolButtonSetLabelWidgetMethodInfo +data ToolButtonSetStockIdMethodInfo +data ToolButtonSetUseUnderlineMethodInfo diff --git a/GI/Gtk/Objects/ToolItem.hs b/GI/Gtk/Objects/ToolItem.hs --- a/GI/Gtk/Objects/ToolItem.hs +++ b/GI/Gtk/Objects/ToolItem.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,62 +18,77 @@ -- * Methods -- ** toolItemGetEllipsizeMode + ToolItemGetEllipsizeModeMethodInfo , toolItemGetEllipsizeMode , -- ** toolItemGetExpand + ToolItemGetExpandMethodInfo , toolItemGetExpand , -- ** toolItemGetHomogeneous + ToolItemGetHomogeneousMethodInfo , toolItemGetHomogeneous , -- ** toolItemGetIconSize + ToolItemGetIconSizeMethodInfo , toolItemGetIconSize , -- ** toolItemGetIsImportant + ToolItemGetIsImportantMethodInfo , toolItemGetIsImportant , -- ** toolItemGetOrientation + ToolItemGetOrientationMethodInfo , toolItemGetOrientation , -- ** toolItemGetProxyMenuItem + ToolItemGetProxyMenuItemMethodInfo , toolItemGetProxyMenuItem , -- ** toolItemGetReliefStyle + ToolItemGetReliefStyleMethodInfo , toolItemGetReliefStyle , -- ** toolItemGetTextAlignment + ToolItemGetTextAlignmentMethodInfo , toolItemGetTextAlignment , -- ** toolItemGetTextOrientation + ToolItemGetTextOrientationMethodInfo , toolItemGetTextOrientation , -- ** toolItemGetTextSizeGroup + ToolItemGetTextSizeGroupMethodInfo , toolItemGetTextSizeGroup , -- ** toolItemGetToolbarStyle + ToolItemGetToolbarStyleMethodInfo , toolItemGetToolbarStyle , -- ** toolItemGetUseDragWindow + ToolItemGetUseDragWindowMethodInfo , toolItemGetUseDragWindow , -- ** toolItemGetVisibleHorizontal + ToolItemGetVisibleHorizontalMethodInfo , toolItemGetVisibleHorizontal , -- ** toolItemGetVisibleVertical + ToolItemGetVisibleVerticalMethodInfo , toolItemGetVisibleVertical , @@ -81,50 +97,62 @@ -- ** toolItemRebuildMenu + ToolItemRebuildMenuMethodInfo , toolItemRebuildMenu , -- ** toolItemRetrieveProxyMenuItem + ToolItemRetrieveProxyMenuItemMethodInfo , toolItemRetrieveProxyMenuItem , -- ** toolItemSetExpand + ToolItemSetExpandMethodInfo , toolItemSetExpand , -- ** toolItemSetHomogeneous + ToolItemSetHomogeneousMethodInfo , toolItemSetHomogeneous , -- ** toolItemSetIsImportant + ToolItemSetIsImportantMethodInfo , toolItemSetIsImportant , -- ** toolItemSetProxyMenuItem + ToolItemSetProxyMenuItemMethodInfo , toolItemSetProxyMenuItem , -- ** toolItemSetTooltipMarkup + ToolItemSetTooltipMarkupMethodInfo , toolItemSetTooltipMarkup , -- ** toolItemSetTooltipText + ToolItemSetTooltipTextMethodInfo , toolItemSetTooltipText , -- ** toolItemSetUseDragWindow + ToolItemSetUseDragWindowMethodInfo , toolItemSetUseDragWindow , -- ** toolItemSetVisibleHorizontal + ToolItemSetVisibleHorizontalMethodInfo , toolItemSetVisibleHorizontal , -- ** toolItemSetVisibleVertical + ToolItemSetVisibleVerticalMethodInfo , toolItemSetVisibleVertical , -- ** toolItemToolbarReconfigured + ToolItemToolbarReconfiguredMethodInfo , toolItemToolbarReconfigured , @@ -217,6 +245,358 @@ noToolItem :: Maybe ToolItem noToolItem = Nothing +type family ResolveToolItemMethod (t :: Symbol) (o :: *) :: * where + ResolveToolItemMethod "activate" o = WidgetActivateMethodInfo + ResolveToolItemMethod "add" o = ContainerAddMethodInfo + ResolveToolItemMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveToolItemMethod "addChild" o = BuildableAddChildMethodInfo + ResolveToolItemMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveToolItemMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveToolItemMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveToolItemMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveToolItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveToolItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveToolItemMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveToolItemMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveToolItemMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveToolItemMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveToolItemMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveToolItemMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveToolItemMethod "childType" o = ContainerChildTypeMethodInfo + ResolveToolItemMethod "classPath" o = WidgetClassPathMethodInfo + ResolveToolItemMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveToolItemMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveToolItemMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveToolItemMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveToolItemMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveToolItemMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveToolItemMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveToolItemMethod "destroy" o = WidgetDestroyMethodInfo + ResolveToolItemMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveToolItemMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveToolItemMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveToolItemMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveToolItemMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveToolItemMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveToolItemMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveToolItemMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveToolItemMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveToolItemMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveToolItemMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveToolItemMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveToolItemMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveToolItemMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveToolItemMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveToolItemMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveToolItemMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveToolItemMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveToolItemMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveToolItemMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveToolItemMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveToolItemMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveToolItemMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveToolItemMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveToolItemMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveToolItemMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveToolItemMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveToolItemMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveToolItemMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveToolItemMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveToolItemMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveToolItemMethod "draw" o = WidgetDrawMethodInfo + ResolveToolItemMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveToolItemMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveToolItemMethod "event" o = WidgetEventMethodInfo + ResolveToolItemMethod "forall" o = ContainerForallMethodInfo + ResolveToolItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveToolItemMethod "foreach" o = ContainerForeachMethodInfo + ResolveToolItemMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveToolItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveToolItemMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveToolItemMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveToolItemMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveToolItemMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveToolItemMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveToolItemMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveToolItemMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveToolItemMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveToolItemMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveToolItemMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveToolItemMethod "hide" o = WidgetHideMethodInfo + ResolveToolItemMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveToolItemMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveToolItemMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveToolItemMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveToolItemMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveToolItemMethod "intersect" o = WidgetIntersectMethodInfo + ResolveToolItemMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveToolItemMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveToolItemMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveToolItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveToolItemMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveToolItemMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveToolItemMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveToolItemMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveToolItemMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveToolItemMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveToolItemMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveToolItemMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveToolItemMethod "map" o = WidgetMapMethodInfo + ResolveToolItemMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveToolItemMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveToolItemMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveToolItemMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveToolItemMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveToolItemMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveToolItemMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveToolItemMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveToolItemMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveToolItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveToolItemMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveToolItemMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveToolItemMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveToolItemMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveToolItemMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveToolItemMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveToolItemMethod "path" o = WidgetPathMethodInfo + ResolveToolItemMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveToolItemMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveToolItemMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveToolItemMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveToolItemMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveToolItemMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveToolItemMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveToolItemMethod "realize" o = WidgetRealizeMethodInfo + ResolveToolItemMethod "rebuildMenu" o = ToolItemRebuildMenuMethodInfo + ResolveToolItemMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveToolItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveToolItemMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveToolItemMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveToolItemMethod "remove" o = ContainerRemoveMethodInfo + ResolveToolItemMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveToolItemMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveToolItemMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveToolItemMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveToolItemMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveToolItemMethod "reparent" o = WidgetReparentMethodInfo + ResolveToolItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveToolItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveToolItemMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveToolItemMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveToolItemMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveToolItemMethod "retrieveProxyMenuItem" o = ToolItemRetrieveProxyMenuItemMethodInfo + ResolveToolItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveToolItemMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveToolItemMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveToolItemMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveToolItemMethod "show" o = WidgetShowMethodInfo + ResolveToolItemMethod "showAll" o = WidgetShowAllMethodInfo + ResolveToolItemMethod "showNow" o = WidgetShowNowMethodInfo + ResolveToolItemMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveToolItemMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveToolItemMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveToolItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveToolItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveToolItemMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveToolItemMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveToolItemMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveToolItemMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveToolItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveToolItemMethod "toolbarReconfigured" o = ToolItemToolbarReconfiguredMethodInfo + ResolveToolItemMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveToolItemMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveToolItemMethod "unmap" o = WidgetUnmapMethodInfo + ResolveToolItemMethod "unparent" o = WidgetUnparentMethodInfo + ResolveToolItemMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveToolItemMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveToolItemMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveToolItemMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveToolItemMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveToolItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveToolItemMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveToolItemMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveToolItemMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveToolItemMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveToolItemMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveToolItemMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveToolItemMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveToolItemMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveToolItemMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveToolItemMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveToolItemMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveToolItemMethod "getChild" o = BinGetChildMethodInfo + ResolveToolItemMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveToolItemMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveToolItemMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveToolItemMethod "getClip" o = WidgetGetClipMethodInfo + ResolveToolItemMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveToolItemMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveToolItemMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveToolItemMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveToolItemMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveToolItemMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveToolItemMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveToolItemMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveToolItemMethod "getEllipsizeMode" o = ToolItemGetEllipsizeModeMethodInfo + ResolveToolItemMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveToolItemMethod "getExpand" o = ToolItemGetExpandMethodInfo + ResolveToolItemMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveToolItemMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveToolItemMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveToolItemMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveToolItemMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveToolItemMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveToolItemMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveToolItemMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveToolItemMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveToolItemMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveToolItemMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveToolItemMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveToolItemMethod "getHomogeneous" o = ToolItemGetHomogeneousMethodInfo + ResolveToolItemMethod "getIconSize" o = ToolItemGetIconSizeMethodInfo + ResolveToolItemMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveToolItemMethod "getIsImportant" o = ToolItemGetIsImportantMethodInfo + ResolveToolItemMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveToolItemMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveToolItemMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveToolItemMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveToolItemMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveToolItemMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveToolItemMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveToolItemMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveToolItemMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveToolItemMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveToolItemMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveToolItemMethod "getOrientation" o = ToolItemGetOrientationMethodInfo + ResolveToolItemMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveToolItemMethod "getParent" o = WidgetGetParentMethodInfo + ResolveToolItemMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveToolItemMethod "getPath" o = WidgetGetPathMethodInfo + ResolveToolItemMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveToolItemMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveToolItemMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveToolItemMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveToolItemMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveToolItemMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveToolItemMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveToolItemMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveToolItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveToolItemMethod "getProxyMenuItem" o = ToolItemGetProxyMenuItemMethodInfo + ResolveToolItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveToolItemMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveToolItemMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveToolItemMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveToolItemMethod "getReliefStyle" o = ToolItemGetReliefStyleMethodInfo + ResolveToolItemMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveToolItemMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveToolItemMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveToolItemMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveToolItemMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveToolItemMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveToolItemMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveToolItemMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveToolItemMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveToolItemMethod "getState" o = WidgetGetStateMethodInfo + ResolveToolItemMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveToolItemMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveToolItemMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveToolItemMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveToolItemMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveToolItemMethod "getTextAlignment" o = ToolItemGetTextAlignmentMethodInfo + ResolveToolItemMethod "getTextOrientation" o = ToolItemGetTextOrientationMethodInfo + ResolveToolItemMethod "getTextSizeGroup" o = ToolItemGetTextSizeGroupMethodInfo + ResolveToolItemMethod "getToolbarStyle" o = ToolItemGetToolbarStyleMethodInfo + ResolveToolItemMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveToolItemMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveToolItemMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveToolItemMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveToolItemMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveToolItemMethod "getUseDragWindow" o = ToolItemGetUseDragWindowMethodInfo + ResolveToolItemMethod "getValign" o = WidgetGetValignMethodInfo + ResolveToolItemMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveToolItemMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveToolItemMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveToolItemMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveToolItemMethod "getVisibleHorizontal" o = ToolItemGetVisibleHorizontalMethodInfo + ResolveToolItemMethod "getVisibleVertical" o = ToolItemGetVisibleVerticalMethodInfo + ResolveToolItemMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveToolItemMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveToolItemMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveToolItemMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveToolItemMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveToolItemMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveToolItemMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveToolItemMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveToolItemMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveToolItemMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveToolItemMethod "setClip" o = WidgetSetClipMethodInfo + ResolveToolItemMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveToolItemMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveToolItemMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveToolItemMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveToolItemMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveToolItemMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveToolItemMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveToolItemMethod "setExpand" o = ToolItemSetExpandMethodInfo + ResolveToolItemMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveToolItemMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveToolItemMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveToolItemMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveToolItemMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveToolItemMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveToolItemMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveToolItemMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveToolItemMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveToolItemMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveToolItemMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveToolItemMethod "setHomogeneous" o = ToolItemSetHomogeneousMethodInfo + ResolveToolItemMethod "setIsImportant" o = ToolItemSetIsImportantMethodInfo + ResolveToolItemMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveToolItemMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveToolItemMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveToolItemMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveToolItemMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveToolItemMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveToolItemMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveToolItemMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveToolItemMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveToolItemMethod "setParent" o = WidgetSetParentMethodInfo + ResolveToolItemMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveToolItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveToolItemMethod "setProxyMenuItem" o = ToolItemSetProxyMenuItemMethodInfo + ResolveToolItemMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveToolItemMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveToolItemMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveToolItemMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveToolItemMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveToolItemMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveToolItemMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveToolItemMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveToolItemMethod "setState" o = WidgetSetStateMethodInfo + ResolveToolItemMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveToolItemMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveToolItemMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveToolItemMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveToolItemMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveToolItemMethod "setUseDragWindow" o = ToolItemSetUseDragWindowMethodInfo + ResolveToolItemMethod "setValign" o = WidgetSetValignMethodInfo + ResolveToolItemMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveToolItemMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveToolItemMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveToolItemMethod "setVisibleHorizontal" o = ToolItemSetVisibleHorizontalMethodInfo + ResolveToolItemMethod "setVisibleVertical" o = ToolItemSetVisibleVerticalMethodInfo + ResolveToolItemMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveToolItemMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveToolItemMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveToolItemMethod t ToolItem, MethodInfo info ToolItem p) => IsLabelProxy t (ToolItem -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveToolItemMethod t ToolItem, MethodInfo info ToolItem p) => IsLabel t (ToolItem -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal ToolItem::create-menu-proxy type ToolItemCreateMenuProxyCallback = IO Bool @@ -314,7 +694,7 @@ type AttrSetTypeConstraint ToolItemIsImportantPropertyInfo = (~) Bool type AttrBaseTypeConstraint ToolItemIsImportantPropertyInfo = ToolItemK type AttrGetType ToolItemIsImportantPropertyInfo = Bool - type AttrLabel ToolItemIsImportantPropertyInfo = "ToolItem::is-important" + type AttrLabel ToolItemIsImportantPropertyInfo = "is-important" attrGet _ = getToolItemIsImportant attrSet _ = setToolItemIsImportant attrConstruct _ = constructToolItemIsImportant @@ -338,7 +718,7 @@ type AttrSetTypeConstraint ToolItemVisibleHorizontalPropertyInfo = (~) Bool type AttrBaseTypeConstraint ToolItemVisibleHorizontalPropertyInfo = ToolItemK type AttrGetType ToolItemVisibleHorizontalPropertyInfo = Bool - type AttrLabel ToolItemVisibleHorizontalPropertyInfo = "ToolItem::visible-horizontal" + type AttrLabel ToolItemVisibleHorizontalPropertyInfo = "visible-horizontal" attrGet _ = getToolItemVisibleHorizontal attrSet _ = setToolItemVisibleHorizontal attrConstruct _ = constructToolItemVisibleHorizontal @@ -362,13 +742,13 @@ type AttrSetTypeConstraint ToolItemVisibleVerticalPropertyInfo = (~) Bool type AttrBaseTypeConstraint ToolItemVisibleVerticalPropertyInfo = ToolItemK type AttrGetType ToolItemVisibleVerticalPropertyInfo = Bool - type AttrLabel ToolItemVisibleVerticalPropertyInfo = "ToolItem::visible-vertical" + type AttrLabel ToolItemVisibleVerticalPropertyInfo = "visible-vertical" attrGet _ = getToolItemVisibleVertical attrSet _ = setToolItemVisibleVertical attrConstruct _ = constructToolItemVisibleVertical type instance AttributeList ToolItem = ToolItemAttributeList -type ToolItemAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ToolItemAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data ToolItemCreateMenuProxySignalInfo instance SignalInfo ToolItemCreateMenuProxySignalInfo where @@ -381,13 +761,12 @@ connectSignal _ = connectToolItemToolbarReconfigured type instance SignalList ToolItem = ToolItemSignalList -type ToolItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ToolItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ToolItem::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ToolItem" -- throws : False -- Skip return : False @@ -398,7 +777,7 @@ toolItemNew :: (MonadIO m) => - m ToolItem + m ToolItem -- result toolItemNew = liftIO $ do result <- gtk_tool_item_new checkUnexpectedReturnNULL "gtk_tool_item_new" result @@ -407,9 +786,8 @@ -- method ToolItem::get_ellipsize_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "EllipsizeMode" -- throws : False -- Skip return : False @@ -421,8 +799,8 @@ toolItemGetEllipsizeMode :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m Pango.EllipsizeMode + a -- _obj + -> m Pango.EllipsizeMode -- result toolItemGetEllipsizeMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_ellipsize_mode _obj' @@ -430,11 +808,14 @@ touchManagedPtr _obj return result' +data ToolItemGetEllipsizeModeMethodInfo +instance (signature ~ (m Pango.EllipsizeMode), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetEllipsizeModeMethodInfo a signature where + overloadedMethod _ = toolItemGetEllipsizeMode + -- method ToolItem::get_expand -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -446,8 +827,8 @@ toolItemGetExpand :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toolItemGetExpand _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_expand _obj' @@ -455,11 +836,14 @@ touchManagedPtr _obj return result' +data ToolItemGetExpandMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetExpandMethodInfo a signature where + overloadedMethod _ = toolItemGetExpand + -- method ToolItem::get_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -471,8 +855,8 @@ toolItemGetHomogeneous :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toolItemGetHomogeneous _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_homogeneous _obj' @@ -480,11 +864,14 @@ touchManagedPtr _obj return result' +data ToolItemGetHomogeneousMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetHomogeneousMethodInfo a signature where + overloadedMethod _ = toolItemGetHomogeneous + -- method ToolItem::get_icon_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -496,19 +883,22 @@ toolItemGetIconSize :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result toolItemGetIconSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_icon_size _obj' touchManagedPtr _obj return result +data ToolItemGetIconSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetIconSizeMethodInfo a signature where + overloadedMethod _ = toolItemGetIconSize + -- method ToolItem::get_is_important -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -520,8 +910,8 @@ toolItemGetIsImportant :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toolItemGetIsImportant _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_is_important _obj' @@ -529,11 +919,14 @@ touchManagedPtr _obj return result' +data ToolItemGetIsImportantMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetIsImportantMethodInfo a signature where + overloadedMethod _ = toolItemGetIsImportant + -- method ToolItem::get_orientation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Orientation" -- throws : False -- Skip return : False @@ -545,8 +938,8 @@ toolItemGetOrientation :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m Orientation + a -- _obj + -> m Orientation -- result toolItemGetOrientation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_orientation _obj' @@ -554,11 +947,14 @@ touchManagedPtr _obj return result' +data ToolItemGetOrientationMethodInfo +instance (signature ~ (m Orientation), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetOrientationMethodInfo a signature where + overloadedMethod _ = toolItemGetOrientation + -- method ToolItem::get_proxy_menu_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -571,24 +967,27 @@ toolItemGetProxyMenuItem :: (MonadIO m, ToolItemK a) => - a -> -- _obj - T.Text -> -- menu_item_id - m Widget -toolItemGetProxyMenuItem _obj menu_item_id = liftIO $ do + a -- _obj + -> T.Text -- menuItemId + -> m Widget -- result +toolItemGetProxyMenuItem _obj menuItemId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - menu_item_id' <- textToCString menu_item_id - result <- gtk_tool_item_get_proxy_menu_item _obj' menu_item_id' + menuItemId' <- textToCString menuItemId + result <- gtk_tool_item_get_proxy_menu_item _obj' menuItemId' checkUnexpectedReturnNULL "gtk_tool_item_get_proxy_menu_item" result result' <- (newObject Widget) result touchManagedPtr _obj - freeMem menu_item_id' + freeMem menuItemId' return result' +data ToolItemGetProxyMenuItemMethodInfo +instance (signature ~ (T.Text -> m Widget), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetProxyMenuItemMethodInfo a signature where + overloadedMethod _ = toolItemGetProxyMenuItem + -- method ToolItem::get_relief_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ReliefStyle" -- throws : False -- Skip return : False @@ -600,8 +999,8 @@ toolItemGetReliefStyle :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m ReliefStyle + a -- _obj + -> m ReliefStyle -- result toolItemGetReliefStyle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_relief_style _obj' @@ -609,11 +1008,14 @@ touchManagedPtr _obj return result' +data ToolItemGetReliefStyleMethodInfo +instance (signature ~ (m ReliefStyle), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetReliefStyleMethodInfo a signature where + overloadedMethod _ = toolItemGetReliefStyle + -- method ToolItem::get_text_alignment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TFloat -- throws : False -- Skip return : False @@ -625,8 +1027,8 @@ toolItemGetTextAlignment :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m Float + a -- _obj + -> m Float -- result toolItemGetTextAlignment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_text_alignment _obj' @@ -634,11 +1036,14 @@ touchManagedPtr _obj return result' +data ToolItemGetTextAlignmentMethodInfo +instance (signature ~ (m Float), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetTextAlignmentMethodInfo a signature where + overloadedMethod _ = toolItemGetTextAlignment + -- method ToolItem::get_text_orientation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Orientation" -- throws : False -- Skip return : False @@ -650,8 +1055,8 @@ toolItemGetTextOrientation :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m Orientation + a -- _obj + -> m Orientation -- result toolItemGetTextOrientation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_text_orientation _obj' @@ -659,11 +1064,14 @@ touchManagedPtr _obj return result' +data ToolItemGetTextOrientationMethodInfo +instance (signature ~ (m Orientation), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetTextOrientationMethodInfo a signature where + overloadedMethod _ = toolItemGetTextOrientation + -- method ToolItem::get_text_size_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SizeGroup" -- throws : False -- Skip return : False @@ -675,8 +1083,8 @@ toolItemGetTextSizeGroup :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m SizeGroup + a -- _obj + -> m SizeGroup -- result toolItemGetTextSizeGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_text_size_group _obj' @@ -685,11 +1093,14 @@ touchManagedPtr _obj return result' +data ToolItemGetTextSizeGroupMethodInfo +instance (signature ~ (m SizeGroup), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetTextSizeGroupMethodInfo a signature where + overloadedMethod _ = toolItemGetTextSizeGroup + -- method ToolItem::get_toolbar_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToolbarStyle" -- throws : False -- Skip return : False @@ -701,8 +1112,8 @@ toolItemGetToolbarStyle :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m ToolbarStyle + a -- _obj + -> m ToolbarStyle -- result toolItemGetToolbarStyle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_toolbar_style _obj' @@ -710,11 +1121,14 @@ touchManagedPtr _obj return result' +data ToolItemGetToolbarStyleMethodInfo +instance (signature ~ (m ToolbarStyle), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetToolbarStyleMethodInfo a signature where + overloadedMethod _ = toolItemGetToolbarStyle + -- method ToolItem::get_use_drag_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -726,8 +1140,8 @@ toolItemGetUseDragWindow :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toolItemGetUseDragWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_use_drag_window _obj' @@ -735,11 +1149,14 @@ touchManagedPtr _obj return result' +data ToolItemGetUseDragWindowMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetUseDragWindowMethodInfo a signature where + overloadedMethod _ = toolItemGetUseDragWindow + -- method ToolItem::get_visible_horizontal -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -751,8 +1168,8 @@ toolItemGetVisibleHorizontal :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toolItemGetVisibleHorizontal _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_visible_horizontal _obj' @@ -760,11 +1177,14 @@ touchManagedPtr _obj return result' +data ToolItemGetVisibleHorizontalMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetVisibleHorizontalMethodInfo a signature where + overloadedMethod _ = toolItemGetVisibleHorizontal + -- method ToolItem::get_visible_vertical -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -776,8 +1196,8 @@ toolItemGetVisibleVertical :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toolItemGetVisibleVertical _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_get_visible_vertical _obj' @@ -785,11 +1205,14 @@ touchManagedPtr _obj return result' +data ToolItemGetVisibleVerticalMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToolItemK a) => MethodInfo ToolItemGetVisibleVerticalMethodInfo a signature where + overloadedMethod _ = toolItemGetVisibleVertical + -- method ToolItem::rebuild_menu -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -801,19 +1224,22 @@ toolItemRebuildMenu :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result toolItemRebuildMenu _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tool_item_rebuild_menu _obj' touchManagedPtr _obj return () +data ToolItemRebuildMenuMethodInfo +instance (signature ~ (m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemRebuildMenuMethodInfo a signature where + overloadedMethod _ = toolItemRebuildMenu + -- method ToolItem::retrieve_proxy_menu_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -825,8 +1251,8 @@ toolItemRetrieveProxyMenuItem :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result toolItemRetrieveProxyMenuItem _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_retrieve_proxy_menu_item _obj' @@ -835,11 +1261,14 @@ touchManagedPtr _obj return result' +data ToolItemRetrieveProxyMenuItemMethodInfo +instance (signature ~ (m Widget), MonadIO m, ToolItemK a) => MethodInfo ToolItemRetrieveProxyMenuItemMethodInfo a signature where + overloadedMethod _ = toolItemRetrieveProxyMenuItem + -- method ToolItem::set_expand -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -852,9 +1281,9 @@ toolItemSetExpand :: (MonadIO m, ToolItemK a) => - a -> -- _obj - Bool -> -- expand - m () + a -- _obj + -> Bool -- expand + -> m () -- result toolItemSetExpand _obj expand = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let expand' = (fromIntegral . fromEnum) expand @@ -862,11 +1291,14 @@ touchManagedPtr _obj return () +data ToolItemSetExpandMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetExpandMethodInfo a signature where + overloadedMethod _ = toolItemSetExpand + -- method ToolItem::set_homogeneous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -879,9 +1311,9 @@ toolItemSetHomogeneous :: (MonadIO m, ToolItemK a) => - a -> -- _obj - Bool -> -- homogeneous - m () + a -- _obj + -> Bool -- homogeneous + -> m () -- result toolItemSetHomogeneous _obj homogeneous = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let homogeneous' = (fromIntegral . fromEnum) homogeneous @@ -889,11 +1321,14 @@ touchManagedPtr _obj return () +data ToolItemSetHomogeneousMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetHomogeneousMethodInfo a signature where + overloadedMethod _ = toolItemSetHomogeneous + -- method ToolItem::set_is_important -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -906,21 +1341,24 @@ toolItemSetIsImportant :: (MonadIO m, ToolItemK a) => - a -> -- _obj - Bool -> -- is_important - m () -toolItemSetIsImportant _obj is_important = liftIO $ do + a -- _obj + -> Bool -- isImportant + -> m () -- result +toolItemSetIsImportant _obj isImportant = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let is_important' = (fromIntegral . fromEnum) is_important - gtk_tool_item_set_is_important _obj' is_important' + let isImportant' = (fromIntegral . fromEnum) isImportant + gtk_tool_item_set_is_important _obj' isImportant' touchManagedPtr _obj return () +data ToolItemSetIsImportantMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetIsImportantMethodInfo a signature where + overloadedMethod _ = toolItemSetIsImportant + -- method ToolItem::set_proxy_menu_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -934,25 +1372,28 @@ toolItemSetProxyMenuItem :: (MonadIO m, ToolItemK a, WidgetK b) => - a -> -- _obj - T.Text -> -- menu_item_id - b -> -- menu_item - m () -toolItemSetProxyMenuItem _obj menu_item_id menu_item = liftIO $ do + a -- _obj + -> T.Text -- menuItemId + -> b -- menuItem + -> m () -- result +toolItemSetProxyMenuItem _obj menuItemId menuItem = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - menu_item_id' <- textToCString menu_item_id - let menu_item' = unsafeManagedPtrCastPtr menu_item - gtk_tool_item_set_proxy_menu_item _obj' menu_item_id' menu_item' + menuItemId' <- textToCString menuItemId + let menuItem' = unsafeManagedPtrCastPtr menuItem + gtk_tool_item_set_proxy_menu_item _obj' menuItemId' menuItem' touchManagedPtr _obj - touchManagedPtr menu_item - freeMem menu_item_id' + touchManagedPtr menuItem + freeMem menuItemId' return () +data ToolItemSetProxyMenuItemMethodInfo +instance (signature ~ (T.Text -> b -> m ()), MonadIO m, ToolItemK a, WidgetK b) => MethodInfo ToolItemSetProxyMenuItemMethodInfo a signature where + overloadedMethod _ = toolItemSetProxyMenuItem + -- method ToolItem::set_tooltip_markup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -965,9 +1406,9 @@ toolItemSetTooltipMarkup :: (MonadIO m, ToolItemK a) => - a -> -- _obj - T.Text -> -- markup - m () + a -- _obj + -> T.Text -- markup + -> m () -- result toolItemSetTooltipMarkup _obj markup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj markup' <- textToCString markup @@ -976,11 +1417,14 @@ freeMem markup' return () +data ToolItemSetTooltipMarkupMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetTooltipMarkupMethodInfo a signature where + overloadedMethod _ = toolItemSetTooltipMarkup + -- method ToolItem::set_tooltip_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -993,9 +1437,9 @@ toolItemSetTooltipText :: (MonadIO m, ToolItemK a) => - a -> -- _obj - T.Text -> -- text - m () + a -- _obj + -> T.Text -- text + -> m () -- result toolItemSetTooltipText _obj text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text @@ -1004,11 +1448,14 @@ freeMem text' return () +data ToolItemSetTooltipTextMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetTooltipTextMethodInfo a signature where + overloadedMethod _ = toolItemSetTooltipText + -- method ToolItem::set_use_drag_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_drag_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_drag_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_drag_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1021,21 +1468,24 @@ toolItemSetUseDragWindow :: (MonadIO m, ToolItemK a) => - a -> -- _obj - Bool -> -- use_drag_window - m () -toolItemSetUseDragWindow _obj use_drag_window = liftIO $ do + a -- _obj + -> Bool -- useDragWindow + -> m () -- result +toolItemSetUseDragWindow _obj useDragWindow = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_drag_window' = (fromIntegral . fromEnum) use_drag_window - gtk_tool_item_set_use_drag_window _obj' use_drag_window' + let useDragWindow' = (fromIntegral . fromEnum) useDragWindow + gtk_tool_item_set_use_drag_window _obj' useDragWindow' touchManagedPtr _obj return () +data ToolItemSetUseDragWindowMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetUseDragWindowMethodInfo a signature where + overloadedMethod _ = toolItemSetUseDragWindow + -- method ToolItem::set_visible_horizontal -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1048,21 +1498,24 @@ toolItemSetVisibleHorizontal :: (MonadIO m, ToolItemK a) => - a -> -- _obj - Bool -> -- visible_horizontal - m () -toolItemSetVisibleHorizontal _obj visible_horizontal = liftIO $ do + a -- _obj + -> Bool -- visibleHorizontal + -> m () -- result +toolItemSetVisibleHorizontal _obj visibleHorizontal = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let visible_horizontal' = (fromIntegral . fromEnum) visible_horizontal - gtk_tool_item_set_visible_horizontal _obj' visible_horizontal' + let visibleHorizontal' = (fromIntegral . fromEnum) visibleHorizontal + gtk_tool_item_set_visible_horizontal _obj' visibleHorizontal' touchManagedPtr _obj return () +data ToolItemSetVisibleHorizontalMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetVisibleHorizontalMethodInfo a signature where + overloadedMethod _ = toolItemSetVisibleHorizontal + -- method ToolItem::set_visible_vertical -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1075,21 +1528,24 @@ toolItemSetVisibleVertical :: (MonadIO m, ToolItemK a) => - a -> -- _obj - Bool -> -- visible_vertical - m () -toolItemSetVisibleVertical _obj visible_vertical = liftIO $ do + a -- _obj + -> Bool -- visibleVertical + -> m () -- result +toolItemSetVisibleVertical _obj visibleVertical = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let visible_vertical' = (fromIntegral . fromEnum) visible_vertical - gtk_tool_item_set_visible_vertical _obj' visible_vertical' + let visibleVertical' = (fromIntegral . fromEnum) visibleVertical + gtk_tool_item_set_visible_vertical _obj' visibleVertical' touchManagedPtr _obj return () +data ToolItemSetVisibleVerticalMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemSetVisibleVerticalMethodInfo a signature where + overloadedMethod _ = toolItemSetVisibleVertical + -- method ToolItem::toolbar_reconfigured -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1101,12 +1557,16 @@ toolItemToolbarReconfigured :: (MonadIO m, ToolItemK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result toolItemToolbarReconfigured _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tool_item_toolbar_reconfigured _obj' touchManagedPtr _obj return () + +data ToolItemToolbarReconfiguredMethodInfo +instance (signature ~ (m ()), MonadIO m, ToolItemK a) => MethodInfo ToolItemToolbarReconfiguredMethodInfo a signature where + overloadedMethod _ = toolItemToolbarReconfigured diff --git a/GI/Gtk/Objects/ToolItem.hs-boot b/GI/Gtk/Objects/ToolItem.hs-boot --- a/GI/Gtk/Objects/ToolItem.hs-boot +++ b/GI/Gtk/Objects/ToolItem.hs-boot @@ -16,3 +16,30 @@ data ToolItemVisibleVerticalPropertyInfo data ToolItemCreateMenuProxySignalInfo data ToolItemToolbarReconfiguredSignalInfo +data ToolItemGetEllipsizeModeMethodInfo +data ToolItemGetExpandMethodInfo +data ToolItemGetHomogeneousMethodInfo +data ToolItemGetIconSizeMethodInfo +data ToolItemGetIsImportantMethodInfo +data ToolItemGetOrientationMethodInfo +data ToolItemGetProxyMenuItemMethodInfo +data ToolItemGetReliefStyleMethodInfo +data ToolItemGetTextAlignmentMethodInfo +data ToolItemGetTextOrientationMethodInfo +data ToolItemGetTextSizeGroupMethodInfo +data ToolItemGetToolbarStyleMethodInfo +data ToolItemGetUseDragWindowMethodInfo +data ToolItemGetVisibleHorizontalMethodInfo +data ToolItemGetVisibleVerticalMethodInfo +data ToolItemRebuildMenuMethodInfo +data ToolItemRetrieveProxyMenuItemMethodInfo +data ToolItemSetExpandMethodInfo +data ToolItemSetHomogeneousMethodInfo +data ToolItemSetIsImportantMethodInfo +data ToolItemSetProxyMenuItemMethodInfo +data ToolItemSetTooltipMarkupMethodInfo +data ToolItemSetTooltipTextMethodInfo +data ToolItemSetUseDragWindowMethodInfo +data ToolItemSetVisibleHorizontalMethodInfo +data ToolItemSetVisibleVerticalMethodInfo +data ToolItemToolbarReconfiguredMethodInfo diff --git a/GI/Gtk/Objects/ToolItemGroup.hs b/GI/Gtk/Objects/ToolItemGroup.hs --- a/GI/Gtk/Objects/ToolItemGroup.hs +++ b/GI/Gtk/Objects/ToolItemGroup.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,42 +18,52 @@ -- * Methods -- ** toolItemGroupGetCollapsed + ToolItemGroupGetCollapsedMethodInfo , toolItemGroupGetCollapsed , -- ** toolItemGroupGetDropItem + ToolItemGroupGetDropItemMethodInfo , toolItemGroupGetDropItem , -- ** toolItemGroupGetEllipsize + ToolItemGroupGetEllipsizeMethodInfo , toolItemGroupGetEllipsize , -- ** toolItemGroupGetHeaderRelief + ToolItemGroupGetHeaderReliefMethodInfo , toolItemGroupGetHeaderRelief , -- ** toolItemGroupGetItemPosition + ToolItemGroupGetItemPositionMethodInfo , toolItemGroupGetItemPosition , -- ** toolItemGroupGetLabel + ToolItemGroupGetLabelMethodInfo , toolItemGroupGetLabel , -- ** toolItemGroupGetLabelWidget + ToolItemGroupGetLabelWidgetMethodInfo , toolItemGroupGetLabelWidget , -- ** toolItemGroupGetNItems + ToolItemGroupGetNItemsMethodInfo , toolItemGroupGetNItems , -- ** toolItemGroupGetNthItem + ToolItemGroupGetNthItemMethodInfo , toolItemGroupGetNthItem , -- ** toolItemGroupInsert + ToolItemGroupInsertMethodInfo , toolItemGroupInsert , @@ -61,26 +72,32 @@ -- ** toolItemGroupSetCollapsed + ToolItemGroupSetCollapsedMethodInfo , toolItemGroupSetCollapsed , -- ** toolItemGroupSetEllipsize + ToolItemGroupSetEllipsizeMethodInfo , toolItemGroupSetEllipsize , -- ** toolItemGroupSetHeaderRelief + ToolItemGroupSetHeaderReliefMethodInfo , toolItemGroupSetHeaderRelief , -- ** toolItemGroupSetItemPosition + ToolItemGroupSetItemPositionMethodInfo , toolItemGroupSetItemPosition , -- ** toolItemGroupSetLabel + ToolItemGroupSetLabelMethodInfo , toolItemGroupSetLabel , -- ** toolItemGroupSetLabelWidget + ToolItemGroupSetLabelWidgetMethodInfo , toolItemGroupSetLabelWidget , @@ -160,6 +177,351 @@ noToolItemGroup :: Maybe ToolItemGroup noToolItemGroup = Nothing +type family ResolveToolItemGroupMethod (t :: Symbol) (o :: *) :: * where + ResolveToolItemGroupMethod "activate" o = WidgetActivateMethodInfo + ResolveToolItemGroupMethod "add" o = ContainerAddMethodInfo + ResolveToolItemGroupMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveToolItemGroupMethod "addChild" o = BuildableAddChildMethodInfo + ResolveToolItemGroupMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveToolItemGroupMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveToolItemGroupMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveToolItemGroupMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveToolItemGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveToolItemGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveToolItemGroupMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveToolItemGroupMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveToolItemGroupMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveToolItemGroupMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveToolItemGroupMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveToolItemGroupMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveToolItemGroupMethod "childType" o = ContainerChildTypeMethodInfo + ResolveToolItemGroupMethod "classPath" o = WidgetClassPathMethodInfo + ResolveToolItemGroupMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveToolItemGroupMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveToolItemGroupMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveToolItemGroupMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveToolItemGroupMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveToolItemGroupMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveToolItemGroupMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveToolItemGroupMethod "destroy" o = WidgetDestroyMethodInfo + ResolveToolItemGroupMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveToolItemGroupMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveToolItemGroupMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveToolItemGroupMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveToolItemGroupMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveToolItemGroupMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveToolItemGroupMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveToolItemGroupMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveToolItemGroupMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveToolItemGroupMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveToolItemGroupMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveToolItemGroupMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveToolItemGroupMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveToolItemGroupMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveToolItemGroupMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveToolItemGroupMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveToolItemGroupMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveToolItemGroupMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveToolItemGroupMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveToolItemGroupMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveToolItemGroupMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveToolItemGroupMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveToolItemGroupMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveToolItemGroupMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveToolItemGroupMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveToolItemGroupMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveToolItemGroupMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveToolItemGroupMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveToolItemGroupMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveToolItemGroupMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveToolItemGroupMethod "draw" o = WidgetDrawMethodInfo + ResolveToolItemGroupMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveToolItemGroupMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveToolItemGroupMethod "event" o = WidgetEventMethodInfo + ResolveToolItemGroupMethod "forall" o = ContainerForallMethodInfo + ResolveToolItemGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveToolItemGroupMethod "foreach" o = ContainerForeachMethodInfo + ResolveToolItemGroupMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveToolItemGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveToolItemGroupMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveToolItemGroupMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveToolItemGroupMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveToolItemGroupMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveToolItemGroupMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveToolItemGroupMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveToolItemGroupMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveToolItemGroupMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveToolItemGroupMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveToolItemGroupMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveToolItemGroupMethod "hide" o = WidgetHideMethodInfo + ResolveToolItemGroupMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveToolItemGroupMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveToolItemGroupMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveToolItemGroupMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveToolItemGroupMethod "insert" o = ToolItemGroupInsertMethodInfo + ResolveToolItemGroupMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveToolItemGroupMethod "intersect" o = WidgetIntersectMethodInfo + ResolveToolItemGroupMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveToolItemGroupMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveToolItemGroupMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveToolItemGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveToolItemGroupMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveToolItemGroupMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveToolItemGroupMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveToolItemGroupMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveToolItemGroupMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveToolItemGroupMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveToolItemGroupMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveToolItemGroupMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveToolItemGroupMethod "map" o = WidgetMapMethodInfo + ResolveToolItemGroupMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveToolItemGroupMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveToolItemGroupMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveToolItemGroupMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveToolItemGroupMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveToolItemGroupMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveToolItemGroupMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveToolItemGroupMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveToolItemGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveToolItemGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveToolItemGroupMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveToolItemGroupMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveToolItemGroupMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveToolItemGroupMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveToolItemGroupMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveToolItemGroupMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveToolItemGroupMethod "path" o = WidgetPathMethodInfo + ResolveToolItemGroupMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveToolItemGroupMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveToolItemGroupMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveToolItemGroupMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveToolItemGroupMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveToolItemGroupMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveToolItemGroupMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveToolItemGroupMethod "realize" o = WidgetRealizeMethodInfo + ResolveToolItemGroupMethod "rebuildMenu" o = ToolShellRebuildMenuMethodInfo + ResolveToolItemGroupMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveToolItemGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveToolItemGroupMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveToolItemGroupMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveToolItemGroupMethod "remove" o = ContainerRemoveMethodInfo + ResolveToolItemGroupMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveToolItemGroupMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveToolItemGroupMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveToolItemGroupMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveToolItemGroupMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveToolItemGroupMethod "reparent" o = WidgetReparentMethodInfo + ResolveToolItemGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveToolItemGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveToolItemGroupMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveToolItemGroupMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveToolItemGroupMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveToolItemGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveToolItemGroupMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveToolItemGroupMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveToolItemGroupMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveToolItemGroupMethod "show" o = WidgetShowMethodInfo + ResolveToolItemGroupMethod "showAll" o = WidgetShowAllMethodInfo + ResolveToolItemGroupMethod "showNow" o = WidgetShowNowMethodInfo + ResolveToolItemGroupMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveToolItemGroupMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveToolItemGroupMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveToolItemGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveToolItemGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveToolItemGroupMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveToolItemGroupMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveToolItemGroupMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveToolItemGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveToolItemGroupMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveToolItemGroupMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveToolItemGroupMethod "unmap" o = WidgetUnmapMethodInfo + ResolveToolItemGroupMethod "unparent" o = WidgetUnparentMethodInfo + ResolveToolItemGroupMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveToolItemGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveToolItemGroupMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveToolItemGroupMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveToolItemGroupMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveToolItemGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveToolItemGroupMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveToolItemGroupMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveToolItemGroupMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveToolItemGroupMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveToolItemGroupMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveToolItemGroupMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveToolItemGroupMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveToolItemGroupMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveToolItemGroupMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveToolItemGroupMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveToolItemGroupMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveToolItemGroupMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveToolItemGroupMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveToolItemGroupMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveToolItemGroupMethod "getClip" o = WidgetGetClipMethodInfo + ResolveToolItemGroupMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveToolItemGroupMethod "getCollapsed" o = ToolItemGroupGetCollapsedMethodInfo + ResolveToolItemGroupMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveToolItemGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveToolItemGroupMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveToolItemGroupMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveToolItemGroupMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveToolItemGroupMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveToolItemGroupMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveToolItemGroupMethod "getDropItem" o = ToolItemGroupGetDropItemMethodInfo + ResolveToolItemGroupMethod "getEllipsize" o = ToolItemGroupGetEllipsizeMethodInfo + ResolveToolItemGroupMethod "getEllipsizeMode" o = ToolShellGetEllipsizeModeMethodInfo + ResolveToolItemGroupMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveToolItemGroupMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveToolItemGroupMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveToolItemGroupMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveToolItemGroupMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveToolItemGroupMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveToolItemGroupMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveToolItemGroupMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveToolItemGroupMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveToolItemGroupMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveToolItemGroupMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveToolItemGroupMethod "getHeaderRelief" o = ToolItemGroupGetHeaderReliefMethodInfo + ResolveToolItemGroupMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveToolItemGroupMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveToolItemGroupMethod "getIconSize" o = ToolShellGetIconSizeMethodInfo + ResolveToolItemGroupMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveToolItemGroupMethod "getItemPosition" o = ToolItemGroupGetItemPositionMethodInfo + ResolveToolItemGroupMethod "getLabel" o = ToolItemGroupGetLabelMethodInfo + ResolveToolItemGroupMethod "getLabelWidget" o = ToolItemGroupGetLabelWidgetMethodInfo + ResolveToolItemGroupMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveToolItemGroupMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveToolItemGroupMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveToolItemGroupMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveToolItemGroupMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveToolItemGroupMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveToolItemGroupMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveToolItemGroupMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveToolItemGroupMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveToolItemGroupMethod "getNItems" o = ToolItemGroupGetNItemsMethodInfo + ResolveToolItemGroupMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveToolItemGroupMethod "getNthItem" o = ToolItemGroupGetNthItemMethodInfo + ResolveToolItemGroupMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveToolItemGroupMethod "getOrientation" o = ToolShellGetOrientationMethodInfo + ResolveToolItemGroupMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveToolItemGroupMethod "getParent" o = WidgetGetParentMethodInfo + ResolveToolItemGroupMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveToolItemGroupMethod "getPath" o = WidgetGetPathMethodInfo + ResolveToolItemGroupMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveToolItemGroupMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveToolItemGroupMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveToolItemGroupMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveToolItemGroupMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveToolItemGroupMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveToolItemGroupMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveToolItemGroupMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveToolItemGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveToolItemGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveToolItemGroupMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveToolItemGroupMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveToolItemGroupMethod "getReliefStyle" o = ToolShellGetReliefStyleMethodInfo + ResolveToolItemGroupMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveToolItemGroupMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveToolItemGroupMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveToolItemGroupMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveToolItemGroupMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveToolItemGroupMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveToolItemGroupMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveToolItemGroupMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveToolItemGroupMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveToolItemGroupMethod "getState" o = WidgetGetStateMethodInfo + ResolveToolItemGroupMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveToolItemGroupMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveToolItemGroupMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveToolItemGroupMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveToolItemGroupMethod "getTextAlignment" o = ToolShellGetTextAlignmentMethodInfo + ResolveToolItemGroupMethod "getTextOrientation" o = ToolShellGetTextOrientationMethodInfo + ResolveToolItemGroupMethod "getTextSizeGroup" o = ToolShellGetTextSizeGroupMethodInfo + ResolveToolItemGroupMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveToolItemGroupMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveToolItemGroupMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveToolItemGroupMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveToolItemGroupMethod "getValign" o = WidgetGetValignMethodInfo + ResolveToolItemGroupMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveToolItemGroupMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveToolItemGroupMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveToolItemGroupMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveToolItemGroupMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveToolItemGroupMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveToolItemGroupMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveToolItemGroupMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveToolItemGroupMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveToolItemGroupMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveToolItemGroupMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveToolItemGroupMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveToolItemGroupMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveToolItemGroupMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveToolItemGroupMethod "setClip" o = WidgetSetClipMethodInfo + ResolveToolItemGroupMethod "setCollapsed" o = ToolItemGroupSetCollapsedMethodInfo + ResolveToolItemGroupMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveToolItemGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveToolItemGroupMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveToolItemGroupMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveToolItemGroupMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveToolItemGroupMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveToolItemGroupMethod "setEllipsize" o = ToolItemGroupSetEllipsizeMethodInfo + ResolveToolItemGroupMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveToolItemGroupMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveToolItemGroupMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveToolItemGroupMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveToolItemGroupMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveToolItemGroupMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveToolItemGroupMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveToolItemGroupMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveToolItemGroupMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveToolItemGroupMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveToolItemGroupMethod "setHeaderRelief" o = ToolItemGroupSetHeaderReliefMethodInfo + ResolveToolItemGroupMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveToolItemGroupMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveToolItemGroupMethod "setItemPosition" o = ToolItemGroupSetItemPositionMethodInfo + ResolveToolItemGroupMethod "setLabel" o = ToolItemGroupSetLabelMethodInfo + ResolveToolItemGroupMethod "setLabelWidget" o = ToolItemGroupSetLabelWidgetMethodInfo + ResolveToolItemGroupMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveToolItemGroupMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveToolItemGroupMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveToolItemGroupMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveToolItemGroupMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveToolItemGroupMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveToolItemGroupMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveToolItemGroupMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveToolItemGroupMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveToolItemGroupMethod "setParent" o = WidgetSetParentMethodInfo + ResolveToolItemGroupMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveToolItemGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveToolItemGroupMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveToolItemGroupMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveToolItemGroupMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveToolItemGroupMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveToolItemGroupMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveToolItemGroupMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveToolItemGroupMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveToolItemGroupMethod "setState" o = WidgetSetStateMethodInfo + ResolveToolItemGroupMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveToolItemGroupMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveToolItemGroupMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveToolItemGroupMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveToolItemGroupMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveToolItemGroupMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveToolItemGroupMethod "setValign" o = WidgetSetValignMethodInfo + ResolveToolItemGroupMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveToolItemGroupMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveToolItemGroupMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveToolItemGroupMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveToolItemGroupMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveToolItemGroupMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveToolItemGroupMethod t ToolItemGroup, MethodInfo info ToolItemGroup p) => IsLabelProxy t (ToolItemGroup -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveToolItemGroupMethod t ToolItemGroup, MethodInfo info ToolItemGroup p) => IsLabel t (ToolItemGroup -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "collapsed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -179,7 +541,7 @@ type AttrSetTypeConstraint ToolItemGroupCollapsedPropertyInfo = (~) Bool type AttrBaseTypeConstraint ToolItemGroupCollapsedPropertyInfo = ToolItemGroupK type AttrGetType ToolItemGroupCollapsedPropertyInfo = Bool - type AttrLabel ToolItemGroupCollapsedPropertyInfo = "ToolItemGroup::collapsed" + type AttrLabel ToolItemGroupCollapsedPropertyInfo = "collapsed" attrGet _ = getToolItemGroupCollapsed attrSet _ = setToolItemGroupCollapsed attrConstruct _ = constructToolItemGroupCollapsed @@ -203,7 +565,7 @@ type AttrSetTypeConstraint ToolItemGroupEllipsizePropertyInfo = (~) Pango.EllipsizeMode type AttrBaseTypeConstraint ToolItemGroupEllipsizePropertyInfo = ToolItemGroupK type AttrGetType ToolItemGroupEllipsizePropertyInfo = Pango.EllipsizeMode - type AttrLabel ToolItemGroupEllipsizePropertyInfo = "ToolItemGroup::ellipsize" + type AttrLabel ToolItemGroupEllipsizePropertyInfo = "ellipsize" attrGet _ = getToolItemGroupEllipsize attrSet _ = setToolItemGroupEllipsize attrConstruct _ = constructToolItemGroupEllipsize @@ -227,7 +589,7 @@ type AttrSetTypeConstraint ToolItemGroupHeaderReliefPropertyInfo = (~) ReliefStyle type AttrBaseTypeConstraint ToolItemGroupHeaderReliefPropertyInfo = ToolItemGroupK type AttrGetType ToolItemGroupHeaderReliefPropertyInfo = ReliefStyle - type AttrLabel ToolItemGroupHeaderReliefPropertyInfo = "ToolItemGroup::header-relief" + type AttrLabel ToolItemGroupHeaderReliefPropertyInfo = "header-relief" attrGet _ = getToolItemGroupHeaderRelief attrSet _ = setToolItemGroupHeaderRelief attrConstruct _ = constructToolItemGroupHeaderRelief @@ -251,7 +613,7 @@ type AttrSetTypeConstraint ToolItemGroupLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ToolItemGroupLabelPropertyInfo = ToolItemGroupK type AttrGetType ToolItemGroupLabelPropertyInfo = T.Text - type AttrLabel ToolItemGroupLabelPropertyInfo = "ToolItemGroup::label" + type AttrLabel ToolItemGroupLabelPropertyInfo = "label" attrGet _ = getToolItemGroupLabel attrSet _ = setToolItemGroupLabel attrConstruct _ = constructToolItemGroupLabel @@ -275,22 +637,21 @@ type AttrSetTypeConstraint ToolItemGroupLabelWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint ToolItemGroupLabelWidgetPropertyInfo = ToolItemGroupK type AttrGetType ToolItemGroupLabelWidgetPropertyInfo = Widget - type AttrLabel ToolItemGroupLabelWidgetPropertyInfo = "ToolItemGroup::label-widget" + type AttrLabel ToolItemGroupLabelWidgetPropertyInfo = "label-widget" attrGet _ = getToolItemGroupLabelWidget attrSet _ = setToolItemGroupLabelWidget attrConstruct _ = constructToolItemGroupLabelWidget type instance AttributeList ToolItemGroup = ToolItemGroupAttributeList -type ToolItemGroupAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("collapsed", ToolItemGroupCollapsedPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ToolItemGroupEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("header-relief", ToolItemGroupHeaderReliefPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ToolItemGroupLabelPropertyInfo), '("label-widget", ToolItemGroupLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ToolItemGroupAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("collapsed", ToolItemGroupCollapsedPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ToolItemGroupEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("headerRelief", ToolItemGroupHeaderReliefPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ToolItemGroupLabelPropertyInfo), '("labelWidget", ToolItemGroupLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ToolItemGroup = ToolItemGroupSignalList -type ToolItemGroupSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ToolItemGroupSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ToolItemGroup::new -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToolItemGroup" -- throws : False -- Skip return : False @@ -302,8 +663,8 @@ toolItemGroupNew :: (MonadIO m) => - T.Text -> -- label - m ToolItemGroup + T.Text -- label + -> m ToolItemGroup -- result toolItemGroupNew label = liftIO $ do label' <- textToCString label result <- gtk_tool_item_group_new label' @@ -314,9 +675,8 @@ -- method ToolItemGroup::get_collapsed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -328,8 +688,8 @@ toolItemGroupGetCollapsed :: (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toolItemGroupGetCollapsed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_group_get_collapsed _obj' @@ -337,11 +697,14 @@ touchManagedPtr _obj return result' +data ToolItemGroupGetCollapsedMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetCollapsedMethodInfo a signature where + overloadedMethod _ = toolItemGroupGetCollapsed + -- method ToolItemGroup::get_drop_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToolItem" -- throws : False -- Skip return : False @@ -355,10 +718,10 @@ toolItemGroupGetDropItem :: (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m ToolItem + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> m ToolItem -- result toolItemGroupGetDropItem _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_group_get_drop_item _obj' x y @@ -367,11 +730,14 @@ touchManagedPtr _obj return result' +data ToolItemGroupGetDropItemMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ToolItem), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetDropItemMethodInfo a signature where + overloadedMethod _ = toolItemGroupGetDropItem + -- method ToolItemGroup::get_ellipsize -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "EllipsizeMode" -- throws : False -- Skip return : False @@ -383,8 +749,8 @@ toolItemGroupGetEllipsize :: (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - m Pango.EllipsizeMode + a -- _obj + -> m Pango.EllipsizeMode -- result toolItemGroupGetEllipsize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_group_get_ellipsize _obj' @@ -392,11 +758,14 @@ touchManagedPtr _obj return result' +data ToolItemGroupGetEllipsizeMethodInfo +instance (signature ~ (m Pango.EllipsizeMode), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetEllipsizeMethodInfo a signature where + overloadedMethod _ = toolItemGroupGetEllipsize + -- method ToolItemGroup::get_header_relief -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ReliefStyle" -- throws : False -- Skip return : False @@ -408,8 +777,8 @@ toolItemGroupGetHeaderRelief :: (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - m ReliefStyle + a -- _obj + -> m ReliefStyle -- result toolItemGroupGetHeaderRelief _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_group_get_header_relief _obj' @@ -417,11 +786,14 @@ touchManagedPtr _obj return result' +data ToolItemGroupGetHeaderReliefMethodInfo +instance (signature ~ (m ReliefStyle), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetHeaderReliefMethodInfo a signature where + overloadedMethod _ = toolItemGroupGetHeaderRelief + -- method ToolItemGroup::get_item_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -434,9 +806,9 @@ toolItemGroupGetItemPosition :: (MonadIO m, ToolItemGroupK a, ToolItemK b) => - a -> -- _obj - b -> -- item - m Int32 + a -- _obj + -> b -- item + -> m Int32 -- result toolItemGroupGetItemPosition _obj item = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let item' = unsafeManagedPtrCastPtr item @@ -445,11 +817,14 @@ touchManagedPtr item return result +data ToolItemGroupGetItemPositionMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, ToolItemGroupK a, ToolItemK b) => MethodInfo ToolItemGroupGetItemPositionMethodInfo a signature where + overloadedMethod _ = toolItemGroupGetItemPosition + -- method ToolItemGroup::get_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -461,8 +836,8 @@ toolItemGroupGetLabel :: (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result toolItemGroupGetLabel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_group_get_label _obj' @@ -471,11 +846,14 @@ touchManagedPtr _obj return result' +data ToolItemGroupGetLabelMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetLabelMethodInfo a signature where + overloadedMethod _ = toolItemGroupGetLabel + -- method ToolItemGroup::get_label_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -487,8 +865,8 @@ toolItemGroupGetLabelWidget :: (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result toolItemGroupGetLabelWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_group_get_label_widget _obj' @@ -497,11 +875,14 @@ touchManagedPtr _obj return result' +data ToolItemGroupGetLabelWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetLabelWidgetMethodInfo a signature where + overloadedMethod _ = toolItemGroupGetLabelWidget + -- method ToolItemGroup::get_n_items -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -513,19 +894,22 @@ toolItemGroupGetNItems :: (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result toolItemGroupGetNItems _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_group_get_n_items _obj' touchManagedPtr _obj return result +data ToolItemGroupGetNItemsMethodInfo +instance (signature ~ (m Word32), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetNItemsMethodInfo a signature where + overloadedMethod _ = toolItemGroupGetNItems + -- method ToolItemGroup::get_nth_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToolItem" -- throws : False -- Skip return : False @@ -538,9 +922,9 @@ toolItemGroupGetNthItem :: (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - Word32 -> -- index - m ToolItem + a -- _obj + -> Word32 -- index + -> m ToolItem -- result toolItemGroupGetNthItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_item_group_get_nth_item _obj' index @@ -549,11 +933,14 @@ touchManagedPtr _obj return result' +data ToolItemGroupGetNthItemMethodInfo +instance (signature ~ (Word32 -> m ToolItem), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupGetNthItemMethodInfo a signature where + overloadedMethod _ = toolItemGroupGetNthItem + -- method ToolItemGroup::insert -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -567,10 +954,10 @@ toolItemGroupInsert :: (MonadIO m, ToolItemGroupK a, ToolItemK b) => - a -> -- _obj - b -> -- item - Int32 -> -- position - m () + a -- _obj + -> b -- item + -> Int32 -- position + -> m () -- result toolItemGroupInsert _obj item position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let item' = unsafeManagedPtrCastPtr item @@ -579,11 +966,14 @@ touchManagedPtr item return () +data ToolItemGroupInsertMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ToolItemGroupK a, ToolItemK b) => MethodInfo ToolItemGroupInsertMethodInfo a signature where + overloadedMethod _ = toolItemGroupInsert + -- method ToolItemGroup::set_collapsed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "collapsed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "collapsed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "collapsed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -596,9 +986,9 @@ toolItemGroupSetCollapsed :: (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - Bool -> -- collapsed - m () + a -- _obj + -> Bool -- collapsed + -> m () -- result toolItemGroupSetCollapsed _obj collapsed = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let collapsed' = (fromIntegral . fromEnum) collapsed @@ -606,11 +996,14 @@ touchManagedPtr _obj return () +data ToolItemGroupSetCollapsedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupSetCollapsedMethodInfo a signature where + overloadedMethod _ = toolItemGroupSetCollapsed + -- method ToolItemGroup::set_ellipsize -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -623,9 +1016,9 @@ toolItemGroupSetEllipsize :: (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - Pango.EllipsizeMode -> -- ellipsize - m () + a -- _obj + -> Pango.EllipsizeMode -- ellipsize + -> m () -- result toolItemGroupSetEllipsize _obj ellipsize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let ellipsize' = (fromIntegral . fromEnum) ellipsize @@ -633,11 +1026,14 @@ touchManagedPtr _obj return () +data ToolItemGroupSetEllipsizeMethodInfo +instance (signature ~ (Pango.EllipsizeMode -> m ()), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupSetEllipsizeMethodInfo a signature where + overloadedMethod _ = toolItemGroupSetEllipsize + -- method ToolItemGroup::set_header_relief -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -650,9 +1046,9 @@ toolItemGroupSetHeaderRelief :: (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - ReliefStyle -> -- style - m () + a -- _obj + -> ReliefStyle -- style + -> m () -- result toolItemGroupSetHeaderRelief _obj style = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let style' = (fromIntegral . fromEnum) style @@ -660,11 +1056,14 @@ touchManagedPtr _obj return () +data ToolItemGroupSetHeaderReliefMethodInfo +instance (signature ~ (ReliefStyle -> m ()), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupSetHeaderReliefMethodInfo a signature where + overloadedMethod _ = toolItemGroupSetHeaderRelief + -- method ToolItemGroup::set_item_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -678,10 +1077,10 @@ toolItemGroupSetItemPosition :: (MonadIO m, ToolItemGroupK a, ToolItemK b) => - a -> -- _obj - b -> -- item - Int32 -> -- position - m () + a -- _obj + -> b -- item + -> Int32 -- position + -> m () -- result toolItemGroupSetItemPosition _obj item position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let item' = unsafeManagedPtrCastPtr item @@ -690,11 +1089,14 @@ touchManagedPtr item return () +data ToolItemGroupSetItemPositionMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ToolItemGroupK a, ToolItemK b) => MethodInfo ToolItemGroupSetItemPositionMethodInfo a signature where + overloadedMethod _ = toolItemGroupSetItemPosition + -- method ToolItemGroup::set_label -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -707,9 +1109,9 @@ toolItemGroupSetLabel :: (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - T.Text -> -- label - m () + a -- _obj + -> T.Text -- label + -> m () -- result toolItemGroupSetLabel _obj label = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj label' <- textToCString label @@ -718,11 +1120,14 @@ freeMem label' return () +data ToolItemGroupSetLabelMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, ToolItemGroupK a) => MethodInfo ToolItemGroupSetLabelMethodInfo a signature where + overloadedMethod _ = toolItemGroupSetLabel + -- method ToolItemGroup::set_label_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -735,15 +1140,19 @@ toolItemGroupSetLabelWidget :: (MonadIO m, ToolItemGroupK a, WidgetK b) => - a -> -- _obj - b -> -- label_widget - m () -toolItemGroupSetLabelWidget _obj label_widget = liftIO $ do + a -- _obj + -> b -- labelWidget + -> m () -- result +toolItemGroupSetLabelWidget _obj labelWidget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let label_widget' = unsafeManagedPtrCastPtr label_widget - gtk_tool_item_group_set_label_widget _obj' label_widget' + let labelWidget' = unsafeManagedPtrCastPtr labelWidget + gtk_tool_item_group_set_label_widget _obj' labelWidget' touchManagedPtr _obj - touchManagedPtr label_widget + touchManagedPtr labelWidget return () + +data ToolItemGroupSetLabelWidgetMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, ToolItemGroupK a, WidgetK b) => MethodInfo ToolItemGroupSetLabelWidgetMethodInfo a signature where + overloadedMethod _ = toolItemGroupSetLabelWidget diff --git a/GI/Gtk/Objects/ToolItemGroup.hs-boot b/GI/Gtk/Objects/ToolItemGroup.hs-boot --- a/GI/Gtk/Objects/ToolItemGroup.hs-boot +++ b/GI/Gtk/Objects/ToolItemGroup.hs-boot @@ -16,3 +16,19 @@ data ToolItemGroupHeaderReliefPropertyInfo data ToolItemGroupLabelPropertyInfo data ToolItemGroupLabelWidgetPropertyInfo +data ToolItemGroupGetCollapsedMethodInfo +data ToolItemGroupGetDropItemMethodInfo +data ToolItemGroupGetEllipsizeMethodInfo +data ToolItemGroupGetHeaderReliefMethodInfo +data ToolItemGroupGetItemPositionMethodInfo +data ToolItemGroupGetLabelMethodInfo +data ToolItemGroupGetLabelWidgetMethodInfo +data ToolItemGroupGetNItemsMethodInfo +data ToolItemGroupGetNthItemMethodInfo +data ToolItemGroupInsertMethodInfo +data ToolItemGroupSetCollapsedMethodInfo +data ToolItemGroupSetEllipsizeMethodInfo +data ToolItemGroupSetHeaderReliefMethodInfo +data ToolItemGroupSetItemPositionMethodInfo +data ToolItemGroupSetLabelMethodInfo +data ToolItemGroupSetLabelWidgetMethodInfo diff --git a/GI/Gtk/Objects/ToolPalette.hs b/GI/Gtk/Objects/ToolPalette.hs --- a/GI/Gtk/Objects/ToolPalette.hs +++ b/GI/Gtk/Objects/ToolPalette.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** toolPaletteAddDragDest + ToolPaletteAddDragDestMethodInfo , toolPaletteAddDragDest , -- ** toolPaletteGetDragItem + ToolPaletteGetDragItemMethodInfo , toolPaletteGetDragItem , @@ -33,38 +36,47 @@ -- ** toolPaletteGetDropGroup + ToolPaletteGetDropGroupMethodInfo , toolPaletteGetDropGroup , -- ** toolPaletteGetDropItem + ToolPaletteGetDropItemMethodInfo , toolPaletteGetDropItem , -- ** toolPaletteGetExclusive + ToolPaletteGetExclusiveMethodInfo , toolPaletteGetExclusive , -- ** toolPaletteGetExpand + ToolPaletteGetExpandMethodInfo , toolPaletteGetExpand , -- ** toolPaletteGetGroupPosition + ToolPaletteGetGroupPositionMethodInfo , toolPaletteGetGroupPosition , -- ** toolPaletteGetHadjustment + ToolPaletteGetHadjustmentMethodInfo , toolPaletteGetHadjustment , -- ** toolPaletteGetIconSize + ToolPaletteGetIconSizeMethodInfo , toolPaletteGetIconSize , -- ** toolPaletteGetStyle + ToolPaletteGetStyleMethodInfo , toolPaletteGetStyle , -- ** toolPaletteGetVadjustment + ToolPaletteGetVadjustmentMethodInfo , toolPaletteGetVadjustment , @@ -73,34 +85,42 @@ -- ** toolPaletteSetDragSource + ToolPaletteSetDragSourceMethodInfo , toolPaletteSetDragSource , -- ** toolPaletteSetExclusive + ToolPaletteSetExclusiveMethodInfo , toolPaletteSetExclusive , -- ** toolPaletteSetExpand + ToolPaletteSetExpandMethodInfo , toolPaletteSetExpand , -- ** toolPaletteSetGroupPosition + ToolPaletteSetGroupPositionMethodInfo , toolPaletteSetGroupPosition , -- ** toolPaletteSetIconSize + ToolPaletteSetIconSizeMethodInfo , toolPaletteSetIconSize , -- ** toolPaletteSetStyle + ToolPaletteSetStyleMethodInfo , toolPaletteSetStyle , -- ** toolPaletteUnsetIconSize + ToolPaletteUnsetIconSizeMethodInfo , toolPaletteUnsetIconSize , -- ** toolPaletteUnsetStyle + ToolPaletteUnsetStyleMethodInfo , toolPaletteUnsetStyle , @@ -166,6 +186,350 @@ noToolPalette :: Maybe ToolPalette noToolPalette = Nothing +type family ResolveToolPaletteMethod (t :: Symbol) (o :: *) :: * where + ResolveToolPaletteMethod "activate" o = WidgetActivateMethodInfo + ResolveToolPaletteMethod "add" o = ContainerAddMethodInfo + ResolveToolPaletteMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveToolPaletteMethod "addChild" o = BuildableAddChildMethodInfo + ResolveToolPaletteMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveToolPaletteMethod "addDragDest" o = ToolPaletteAddDragDestMethodInfo + ResolveToolPaletteMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveToolPaletteMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveToolPaletteMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveToolPaletteMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveToolPaletteMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveToolPaletteMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveToolPaletteMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveToolPaletteMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveToolPaletteMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveToolPaletteMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveToolPaletteMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveToolPaletteMethod "childType" o = ContainerChildTypeMethodInfo + ResolveToolPaletteMethod "classPath" o = WidgetClassPathMethodInfo + ResolveToolPaletteMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveToolPaletteMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveToolPaletteMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveToolPaletteMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveToolPaletteMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveToolPaletteMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveToolPaletteMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveToolPaletteMethod "destroy" o = WidgetDestroyMethodInfo + ResolveToolPaletteMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveToolPaletteMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveToolPaletteMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveToolPaletteMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveToolPaletteMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveToolPaletteMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveToolPaletteMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveToolPaletteMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveToolPaletteMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveToolPaletteMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveToolPaletteMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveToolPaletteMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveToolPaletteMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveToolPaletteMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveToolPaletteMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveToolPaletteMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveToolPaletteMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveToolPaletteMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveToolPaletteMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveToolPaletteMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveToolPaletteMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveToolPaletteMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveToolPaletteMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveToolPaletteMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveToolPaletteMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveToolPaletteMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveToolPaletteMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveToolPaletteMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveToolPaletteMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveToolPaletteMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveToolPaletteMethod "draw" o = WidgetDrawMethodInfo + ResolveToolPaletteMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveToolPaletteMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveToolPaletteMethod "event" o = WidgetEventMethodInfo + ResolveToolPaletteMethod "forall" o = ContainerForallMethodInfo + ResolveToolPaletteMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveToolPaletteMethod "foreach" o = ContainerForeachMethodInfo + ResolveToolPaletteMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveToolPaletteMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveToolPaletteMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveToolPaletteMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveToolPaletteMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveToolPaletteMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveToolPaletteMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveToolPaletteMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveToolPaletteMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveToolPaletteMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveToolPaletteMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveToolPaletteMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveToolPaletteMethod "hide" o = WidgetHideMethodInfo + ResolveToolPaletteMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveToolPaletteMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveToolPaletteMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveToolPaletteMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveToolPaletteMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveToolPaletteMethod "intersect" o = WidgetIntersectMethodInfo + ResolveToolPaletteMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveToolPaletteMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveToolPaletteMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveToolPaletteMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveToolPaletteMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveToolPaletteMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveToolPaletteMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveToolPaletteMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveToolPaletteMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveToolPaletteMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveToolPaletteMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveToolPaletteMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveToolPaletteMethod "map" o = WidgetMapMethodInfo + ResolveToolPaletteMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveToolPaletteMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveToolPaletteMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveToolPaletteMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveToolPaletteMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveToolPaletteMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveToolPaletteMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveToolPaletteMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveToolPaletteMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveToolPaletteMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveToolPaletteMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveToolPaletteMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveToolPaletteMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveToolPaletteMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveToolPaletteMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveToolPaletteMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveToolPaletteMethod "path" o = WidgetPathMethodInfo + ResolveToolPaletteMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveToolPaletteMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveToolPaletteMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveToolPaletteMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveToolPaletteMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveToolPaletteMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveToolPaletteMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveToolPaletteMethod "realize" o = WidgetRealizeMethodInfo + ResolveToolPaletteMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveToolPaletteMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveToolPaletteMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveToolPaletteMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveToolPaletteMethod "remove" o = ContainerRemoveMethodInfo + ResolveToolPaletteMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveToolPaletteMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveToolPaletteMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveToolPaletteMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveToolPaletteMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveToolPaletteMethod "reparent" o = WidgetReparentMethodInfo + ResolveToolPaletteMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveToolPaletteMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveToolPaletteMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveToolPaletteMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveToolPaletteMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveToolPaletteMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveToolPaletteMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveToolPaletteMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveToolPaletteMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveToolPaletteMethod "show" o = WidgetShowMethodInfo + ResolveToolPaletteMethod "showAll" o = WidgetShowAllMethodInfo + ResolveToolPaletteMethod "showNow" o = WidgetShowNowMethodInfo + ResolveToolPaletteMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveToolPaletteMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveToolPaletteMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveToolPaletteMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveToolPaletteMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveToolPaletteMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveToolPaletteMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveToolPaletteMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveToolPaletteMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveToolPaletteMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveToolPaletteMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveToolPaletteMethod "unmap" o = WidgetUnmapMethodInfo + ResolveToolPaletteMethod "unparent" o = WidgetUnparentMethodInfo + ResolveToolPaletteMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveToolPaletteMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveToolPaletteMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveToolPaletteMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveToolPaletteMethod "unsetIconSize" o = ToolPaletteUnsetIconSizeMethodInfo + ResolveToolPaletteMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveToolPaletteMethod "unsetStyle" o = ToolPaletteUnsetStyleMethodInfo + ResolveToolPaletteMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveToolPaletteMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveToolPaletteMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveToolPaletteMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveToolPaletteMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveToolPaletteMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveToolPaletteMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveToolPaletteMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveToolPaletteMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveToolPaletteMethod "getBorder" o = ScrollableGetBorderMethodInfo + ResolveToolPaletteMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveToolPaletteMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveToolPaletteMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveToolPaletteMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveToolPaletteMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveToolPaletteMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveToolPaletteMethod "getClip" o = WidgetGetClipMethodInfo + ResolveToolPaletteMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveToolPaletteMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveToolPaletteMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveToolPaletteMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveToolPaletteMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveToolPaletteMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveToolPaletteMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveToolPaletteMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveToolPaletteMethod "getDragItem" o = ToolPaletteGetDragItemMethodInfo + ResolveToolPaletteMethod "getDropGroup" o = ToolPaletteGetDropGroupMethodInfo + ResolveToolPaletteMethod "getDropItem" o = ToolPaletteGetDropItemMethodInfo + ResolveToolPaletteMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveToolPaletteMethod "getExclusive" o = ToolPaletteGetExclusiveMethodInfo + ResolveToolPaletteMethod "getExpand" o = ToolPaletteGetExpandMethodInfo + ResolveToolPaletteMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveToolPaletteMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveToolPaletteMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveToolPaletteMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveToolPaletteMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveToolPaletteMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveToolPaletteMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveToolPaletteMethod "getGroupPosition" o = ToolPaletteGetGroupPositionMethodInfo + ResolveToolPaletteMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveToolPaletteMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveToolPaletteMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveToolPaletteMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveToolPaletteMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveToolPaletteMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo + ResolveToolPaletteMethod "getIconSize" o = ToolPaletteGetIconSizeMethodInfo + ResolveToolPaletteMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveToolPaletteMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveToolPaletteMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveToolPaletteMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveToolPaletteMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveToolPaletteMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveToolPaletteMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveToolPaletteMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveToolPaletteMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveToolPaletteMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveToolPaletteMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveToolPaletteMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveToolPaletteMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveToolPaletteMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveToolPaletteMethod "getParent" o = WidgetGetParentMethodInfo + ResolveToolPaletteMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveToolPaletteMethod "getPath" o = WidgetGetPathMethodInfo + ResolveToolPaletteMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveToolPaletteMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveToolPaletteMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveToolPaletteMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveToolPaletteMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveToolPaletteMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveToolPaletteMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveToolPaletteMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveToolPaletteMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveToolPaletteMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveToolPaletteMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveToolPaletteMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveToolPaletteMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveToolPaletteMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveToolPaletteMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveToolPaletteMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveToolPaletteMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveToolPaletteMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveToolPaletteMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveToolPaletteMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveToolPaletteMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveToolPaletteMethod "getState" o = WidgetGetStateMethodInfo + ResolveToolPaletteMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveToolPaletteMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveToolPaletteMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveToolPaletteMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveToolPaletteMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveToolPaletteMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveToolPaletteMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveToolPaletteMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveToolPaletteMethod "getValign" o = WidgetGetValignMethodInfo + ResolveToolPaletteMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveToolPaletteMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveToolPaletteMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveToolPaletteMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveToolPaletteMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveToolPaletteMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo + ResolveToolPaletteMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveToolPaletteMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveToolPaletteMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveToolPaletteMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveToolPaletteMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveToolPaletteMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveToolPaletteMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveToolPaletteMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveToolPaletteMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveToolPaletteMethod "setClip" o = WidgetSetClipMethodInfo + ResolveToolPaletteMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveToolPaletteMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveToolPaletteMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveToolPaletteMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveToolPaletteMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveToolPaletteMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveToolPaletteMethod "setDragSource" o = ToolPaletteSetDragSourceMethodInfo + ResolveToolPaletteMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveToolPaletteMethod "setExclusive" o = ToolPaletteSetExclusiveMethodInfo + ResolveToolPaletteMethod "setExpand" o = ToolPaletteSetExpandMethodInfo + ResolveToolPaletteMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveToolPaletteMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveToolPaletteMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveToolPaletteMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveToolPaletteMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveToolPaletteMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveToolPaletteMethod "setGroupPosition" o = ToolPaletteSetGroupPositionMethodInfo + ResolveToolPaletteMethod "setHadjustment" o = ScrollableSetHadjustmentMethodInfo + ResolveToolPaletteMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveToolPaletteMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveToolPaletteMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveToolPaletteMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveToolPaletteMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveToolPaletteMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo + ResolveToolPaletteMethod "setIconSize" o = ToolPaletteSetIconSizeMethodInfo + ResolveToolPaletteMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveToolPaletteMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveToolPaletteMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveToolPaletteMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveToolPaletteMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveToolPaletteMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveToolPaletteMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveToolPaletteMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveToolPaletteMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveToolPaletteMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveToolPaletteMethod "setParent" o = WidgetSetParentMethodInfo + ResolveToolPaletteMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveToolPaletteMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveToolPaletteMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveToolPaletteMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveToolPaletteMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveToolPaletteMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveToolPaletteMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveToolPaletteMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveToolPaletteMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveToolPaletteMethod "setState" o = WidgetSetStateMethodInfo + ResolveToolPaletteMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveToolPaletteMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveToolPaletteMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveToolPaletteMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveToolPaletteMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveToolPaletteMethod "setVadjustment" o = ScrollableSetVadjustmentMethodInfo + ResolveToolPaletteMethod "setValign" o = WidgetSetValignMethodInfo + ResolveToolPaletteMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveToolPaletteMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveToolPaletteMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveToolPaletteMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveToolPaletteMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo + ResolveToolPaletteMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveToolPaletteMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveToolPaletteMethod t ToolPalette, MethodInfo info ToolPalette p) => IsLabelProxy t (ToolPalette -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveToolPaletteMethod t ToolPalette, MethodInfo info ToolPalette p) => IsLabel t (ToolPalette -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "icon-size" -- Type: TInterface "Gtk" "IconSize" -- Flags: [PropertyReadable,PropertyWritable] @@ -185,7 +549,7 @@ type AttrSetTypeConstraint ToolPaletteIconSizePropertyInfo = (~) IconSize type AttrBaseTypeConstraint ToolPaletteIconSizePropertyInfo = ToolPaletteK type AttrGetType ToolPaletteIconSizePropertyInfo = IconSize - type AttrLabel ToolPaletteIconSizePropertyInfo = "ToolPalette::icon-size" + type AttrLabel ToolPaletteIconSizePropertyInfo = "icon-size" attrGet _ = getToolPaletteIconSize attrSet _ = setToolPaletteIconSize attrConstruct _ = constructToolPaletteIconSize @@ -209,7 +573,7 @@ type AttrSetTypeConstraint ToolPaletteIconSizeSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint ToolPaletteIconSizeSetPropertyInfo = ToolPaletteK type AttrGetType ToolPaletteIconSizeSetPropertyInfo = Bool - type AttrLabel ToolPaletteIconSizeSetPropertyInfo = "ToolPalette::icon-size-set" + type AttrLabel ToolPaletteIconSizeSetPropertyInfo = "icon-size-set" attrGet _ = getToolPaletteIconSizeSet attrSet _ = setToolPaletteIconSizeSet attrConstruct _ = constructToolPaletteIconSizeSet @@ -233,22 +597,21 @@ type AttrSetTypeConstraint ToolPaletteToolbarStylePropertyInfo = (~) ToolbarStyle type AttrBaseTypeConstraint ToolPaletteToolbarStylePropertyInfo = ToolPaletteK type AttrGetType ToolPaletteToolbarStylePropertyInfo = ToolbarStyle - type AttrLabel ToolPaletteToolbarStylePropertyInfo = "ToolPalette::toolbar-style" + type AttrLabel ToolPaletteToolbarStylePropertyInfo = "toolbar-style" attrGet _ = getToolPaletteToolbarStyle attrSet _ = setToolPaletteToolbarStyle attrConstruct _ = constructToolPaletteToolbarStyle type instance AttributeList ToolPalette = ToolPaletteAttributeList -type ToolPaletteAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("icon-size", ToolPaletteIconSizePropertyInfo), '("icon-size-set", ToolPaletteIconSizeSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbar-style", ToolPaletteToolbarStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ToolPaletteAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("iconSize", ToolPaletteIconSizePropertyInfo), '("iconSizeSet", ToolPaletteIconSizeSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbarStyle", ToolPaletteToolbarStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ToolPalette = ToolPaletteSignalList -type ToolPaletteSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ToolPaletteSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method ToolPalette::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "ToolPalette" -- throws : False -- Skip return : False @@ -259,7 +622,7 @@ toolPaletteNew :: (MonadIO m) => - m ToolPalette + m ToolPalette -- result toolPaletteNew = liftIO $ do result <- gtk_tool_palette_new checkUnexpectedReturnNULL "gtk_tool_palette_new" result @@ -268,9 +631,8 @@ -- method ToolPalette::add_drag_dest -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -286,12 +648,12 @@ toolPaletteAddDragDest :: (MonadIO m, ToolPaletteK a, WidgetK b) => - a -> -- _obj - b -> -- widget - [DestDefaults] -> -- flags - [ToolPaletteDragTargets] -> -- targets - [Gdk.DragAction] -> -- actions - m () + a -- _obj + -> b -- widget + -> [DestDefaults] -- flags + -> [ToolPaletteDragTargets] -- targets + -> [Gdk.DragAction] -- actions + -> m () -- result toolPaletteAddDragDest _obj widget flags targets actions = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let widget' = unsafeManagedPtrCastPtr widget @@ -303,11 +665,14 @@ touchManagedPtr widget return () +data ToolPaletteAddDragDestMethodInfo +instance (signature ~ (b -> [DestDefaults] -> [ToolPaletteDragTargets] -> [Gdk.DragAction] -> m ()), MonadIO m, ToolPaletteK a, WidgetK b) => MethodInfo ToolPaletteAddDragDestMethodInfo a signature where + overloadedMethod _ = toolPaletteAddDragDest + -- method ToolPalette::get_drag_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -320,9 +685,9 @@ toolPaletteGetDragItem :: (MonadIO m, ToolPaletteK a) => - a -> -- _obj - SelectionData -> -- selection - m Widget + a -- _obj + -> SelectionData -- selection + -> m Widget -- result toolPaletteGetDragItem _obj selection = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let selection' = unsafeManagedPtrGetPtr selection @@ -333,11 +698,14 @@ touchManagedPtr selection return result' +data ToolPaletteGetDragItemMethodInfo +instance (signature ~ (SelectionData -> m Widget), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetDragItemMethodInfo a signature where + overloadedMethod _ = toolPaletteGetDragItem + -- method ToolPalette::get_drop_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToolItemGroup" -- throws : False -- Skip return : False @@ -351,10 +719,10 @@ toolPaletteGetDropGroup :: (MonadIO m, ToolPaletteK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m ToolItemGroup + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> m ToolItemGroup -- result toolPaletteGetDropGroup _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_palette_get_drop_group _obj' x y @@ -363,11 +731,14 @@ touchManagedPtr _obj return result' +data ToolPaletteGetDropGroupMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ToolItemGroup), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetDropGroupMethodInfo a signature where + overloadedMethod _ = toolPaletteGetDropGroup + -- method ToolPalette::get_drop_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToolItem" -- throws : False -- Skip return : False @@ -381,10 +752,10 @@ toolPaletteGetDropItem :: (MonadIO m, ToolPaletteK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m ToolItem + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> m ToolItem -- result toolPaletteGetDropItem _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_palette_get_drop_item _obj' x y @@ -393,11 +764,14 @@ touchManagedPtr _obj return result' +data ToolPaletteGetDropItemMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ToolItem), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetDropItemMethodInfo a signature where + overloadedMethod _ = toolPaletteGetDropItem + -- method ToolPalette::get_exclusive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -410,9 +784,9 @@ toolPaletteGetExclusive :: (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -> -- _obj - b -> -- group - m Bool + a -- _obj + -> b -- group + -> m Bool -- result toolPaletteGetExclusive _obj group = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let group' = unsafeManagedPtrCastPtr group @@ -422,11 +796,14 @@ touchManagedPtr group return result' +data ToolPaletteGetExclusiveMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, ToolPaletteK a, ToolItemGroupK b) => MethodInfo ToolPaletteGetExclusiveMethodInfo a signature where + overloadedMethod _ = toolPaletteGetExclusive + -- method ToolPalette::get_expand -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -439,9 +816,9 @@ toolPaletteGetExpand :: (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -> -- _obj - b -> -- group - m Bool + a -- _obj + -> b -- group + -> m Bool -- result toolPaletteGetExpand _obj group = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let group' = unsafeManagedPtrCastPtr group @@ -451,11 +828,14 @@ touchManagedPtr group return result' +data ToolPaletteGetExpandMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, ToolPaletteK a, ToolItemGroupK b) => MethodInfo ToolPaletteGetExpandMethodInfo a signature where + overloadedMethod _ = toolPaletteGetExpand + -- method ToolPalette::get_group_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -468,9 +848,9 @@ toolPaletteGetGroupPosition :: (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -> -- _obj - b -> -- group - m Int32 + a -- _obj + -> b -- group + -> m Int32 -- result toolPaletteGetGroupPosition _obj group = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let group' = unsafeManagedPtrCastPtr group @@ -479,11 +859,14 @@ touchManagedPtr group return result +data ToolPaletteGetGroupPositionMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, ToolPaletteK a, ToolItemGroupK b) => MethodInfo ToolPaletteGetGroupPositionMethodInfo a signature where + overloadedMethod _ = toolPaletteGetGroupPosition + -- method ToolPalette::get_hadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -495,8 +878,8 @@ {-# DEPRECATED toolPaletteGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-} toolPaletteGetHadjustment :: (MonadIO m, ToolPaletteK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result toolPaletteGetHadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_palette_get_hadjustment _obj' @@ -505,11 +888,14 @@ touchManagedPtr _obj return result' +data ToolPaletteGetHadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetHadjustmentMethodInfo a signature where + overloadedMethod _ = toolPaletteGetHadjustment + -- method ToolPalette::get_icon_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -521,19 +907,22 @@ toolPaletteGetIconSize :: (MonadIO m, ToolPaletteK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result toolPaletteGetIconSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_palette_get_icon_size _obj' touchManagedPtr _obj return result +data ToolPaletteGetIconSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetIconSizeMethodInfo a signature where + overloadedMethod _ = toolPaletteGetIconSize + -- method ToolPalette::get_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToolbarStyle" -- throws : False -- Skip return : False @@ -545,8 +934,8 @@ toolPaletteGetStyle :: (MonadIO m, ToolPaletteK a) => - a -> -- _obj - m ToolbarStyle + a -- _obj + -> m ToolbarStyle -- result toolPaletteGetStyle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_palette_get_style _obj' @@ -554,11 +943,14 @@ touchManagedPtr _obj return result' +data ToolPaletteGetStyleMethodInfo +instance (signature ~ (m ToolbarStyle), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetStyleMethodInfo a signature where + overloadedMethod _ = toolPaletteGetStyle + -- method ToolPalette::get_vadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -570,8 +962,8 @@ {-# DEPRECATED toolPaletteGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-} toolPaletteGetVadjustment :: (MonadIO m, ToolPaletteK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result toolPaletteGetVadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tool_palette_get_vadjustment _obj' @@ -580,11 +972,14 @@ touchManagedPtr _obj return result' +data ToolPaletteGetVadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteGetVadjustmentMethodInfo a signature where + overloadedMethod _ = toolPaletteGetVadjustment + -- method ToolPalette::set_drag_source -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -597,9 +992,9 @@ toolPaletteSetDragSource :: (MonadIO m, ToolPaletteK a) => - a -> -- _obj - [ToolPaletteDragTargets] -> -- targets - m () + a -- _obj + -> [ToolPaletteDragTargets] -- targets + -> m () -- result toolPaletteSetDragSource _obj targets = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let targets' = gflagsToWord targets @@ -607,11 +1002,14 @@ touchManagedPtr _obj return () +data ToolPaletteSetDragSourceMethodInfo +instance (signature ~ ([ToolPaletteDragTargets] -> m ()), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteSetDragSourceMethodInfo a signature where + overloadedMethod _ = toolPaletteSetDragSource + -- method ToolPalette::set_exclusive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -625,10 +1023,10 @@ toolPaletteSetExclusive :: (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -> -- _obj - b -> -- group - Bool -> -- exclusive - m () + a -- _obj + -> b -- group + -> Bool -- exclusive + -> m () -- result toolPaletteSetExclusive _obj group exclusive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let group' = unsafeManagedPtrCastPtr group @@ -638,11 +1036,14 @@ touchManagedPtr group return () +data ToolPaletteSetExclusiveMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, ToolPaletteK a, ToolItemGroupK b) => MethodInfo ToolPaletteSetExclusiveMethodInfo a signature where + overloadedMethod _ = toolPaletteSetExclusive + -- method ToolPalette::set_expand -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -656,10 +1057,10 @@ toolPaletteSetExpand :: (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -> -- _obj - b -> -- group - Bool -> -- expand - m () + a -- _obj + -> b -- group + -> Bool -- expand + -> m () -- result toolPaletteSetExpand _obj group expand = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let group' = unsafeManagedPtrCastPtr group @@ -669,11 +1070,14 @@ touchManagedPtr group return () +data ToolPaletteSetExpandMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, ToolPaletteK a, ToolItemGroupK b) => MethodInfo ToolPaletteSetExpandMethodInfo a signature where + overloadedMethod _ = toolPaletteSetExpand + -- method ToolPalette::set_group_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -687,10 +1091,10 @@ toolPaletteSetGroupPosition :: (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -> -- _obj - b -> -- group - Int32 -> -- position - m () + a -- _obj + -> b -- group + -> Int32 -- position + -> m () -- result toolPaletteSetGroupPosition _obj group position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let group' = unsafeManagedPtrCastPtr group @@ -699,11 +1103,14 @@ touchManagedPtr group return () +data ToolPaletteSetGroupPositionMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ToolPaletteK a, ToolItemGroupK b) => MethodInfo ToolPaletteSetGroupPositionMethodInfo a signature where + overloadedMethod _ = toolPaletteSetGroupPosition + -- method ToolPalette::set_icon_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -716,20 +1123,23 @@ toolPaletteSetIconSize :: (MonadIO m, ToolPaletteK a) => - a -> -- _obj - Int32 -> -- icon_size - m () -toolPaletteSetIconSize _obj icon_size = liftIO $ do + a -- _obj + -> Int32 -- iconSize + -> m () -- result +toolPaletteSetIconSize _obj iconSize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_palette_set_icon_size _obj' icon_size + gtk_tool_palette_set_icon_size _obj' iconSize touchManagedPtr _obj return () +data ToolPaletteSetIconSizeMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteSetIconSizeMethodInfo a signature where + overloadedMethod _ = toolPaletteSetIconSize + -- method ToolPalette::set_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -742,9 +1152,9 @@ toolPaletteSetStyle :: (MonadIO m, ToolPaletteK a) => - a -> -- _obj - ToolbarStyle -> -- style - m () + a -- _obj + -> ToolbarStyle -- style + -> m () -- result toolPaletteSetStyle _obj style = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let style' = (fromIntegral . fromEnum) style @@ -752,11 +1162,14 @@ touchManagedPtr _obj return () +data ToolPaletteSetStyleMethodInfo +instance (signature ~ (ToolbarStyle -> m ()), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteSetStyleMethodInfo a signature where + overloadedMethod _ = toolPaletteSetStyle + -- method ToolPalette::unset_icon_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -768,19 +1181,22 @@ toolPaletteUnsetIconSize :: (MonadIO m, ToolPaletteK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result toolPaletteUnsetIconSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tool_palette_unset_icon_size _obj' touchManagedPtr _obj return () +data ToolPaletteUnsetIconSizeMethodInfo +instance (signature ~ (m ()), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteUnsetIconSizeMethodInfo a signature where + overloadedMethod _ = toolPaletteUnsetIconSize + -- method ToolPalette::unset_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -792,19 +1208,22 @@ toolPaletteUnsetStyle :: (MonadIO m, ToolPaletteK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result toolPaletteUnsetStyle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tool_palette_unset_style _obj' touchManagedPtr _obj return () +data ToolPaletteUnsetStyleMethodInfo +instance (signature ~ (m ()), MonadIO m, ToolPaletteK a) => MethodInfo ToolPaletteUnsetStyleMethodInfo a signature where + overloadedMethod _ = toolPaletteUnsetStyle + -- method ToolPalette::get_drag_target_group -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "TargetEntry" -- throws : False -- Skip return : False @@ -815,7 +1234,7 @@ toolPaletteGetDragTargetGroup :: (MonadIO m) => - m TargetEntry + m TargetEntry -- result toolPaletteGetDragTargetGroup = liftIO $ do result <- gtk_tool_palette_get_drag_target_group checkUnexpectedReturnNULL "gtk_tool_palette_get_drag_target_group" result @@ -826,7 +1245,6 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "TargetEntry" -- throws : False -- Skip return : False @@ -837,7 +1255,7 @@ toolPaletteGetDragTargetItem :: (MonadIO m) => - m TargetEntry + m TargetEntry -- result toolPaletteGetDragTargetItem = liftIO $ do result <- gtk_tool_palette_get_drag_target_item checkUnexpectedReturnNULL "gtk_tool_palette_get_drag_target_item" result diff --git a/GI/Gtk/Objects/ToolPalette.hs-boot b/GI/Gtk/Objects/ToolPalette.hs-boot --- a/GI/Gtk/Objects/ToolPalette.hs-boot +++ b/GI/Gtk/Objects/ToolPalette.hs-boot @@ -14,3 +14,22 @@ data ToolPaletteIconSizePropertyInfo data ToolPaletteIconSizeSetPropertyInfo data ToolPaletteToolbarStylePropertyInfo +data ToolPaletteAddDragDestMethodInfo +data ToolPaletteGetDragItemMethodInfo +data ToolPaletteGetDropGroupMethodInfo +data ToolPaletteGetDropItemMethodInfo +data ToolPaletteGetExclusiveMethodInfo +data ToolPaletteGetExpandMethodInfo +data ToolPaletteGetGroupPositionMethodInfo +data ToolPaletteGetHadjustmentMethodInfo +data ToolPaletteGetIconSizeMethodInfo +data ToolPaletteGetStyleMethodInfo +data ToolPaletteGetVadjustmentMethodInfo +data ToolPaletteSetDragSourceMethodInfo +data ToolPaletteSetExclusiveMethodInfo +data ToolPaletteSetExpandMethodInfo +data ToolPaletteSetGroupPositionMethodInfo +data ToolPaletteSetIconSizeMethodInfo +data ToolPaletteSetStyleMethodInfo +data ToolPaletteUnsetIconSizeMethodInfo +data ToolPaletteUnsetStyleMethodInfo diff --git a/GI/Gtk/Objects/Toolbar.hs b/GI/Gtk/Objects/Toolbar.hs --- a/GI/Gtk/Objects/Toolbar.hs +++ b/GI/Gtk/Objects/Toolbar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,38 +18,47 @@ -- * Methods -- ** toolbarGetDropIndex + ToolbarGetDropIndexMethodInfo , toolbarGetDropIndex , -- ** toolbarGetIconSize + ToolbarGetIconSizeMethodInfo , toolbarGetIconSize , -- ** toolbarGetItemIndex + ToolbarGetItemIndexMethodInfo , toolbarGetItemIndex , -- ** toolbarGetNItems + ToolbarGetNItemsMethodInfo , toolbarGetNItems , -- ** toolbarGetNthItem + ToolbarGetNthItemMethodInfo , toolbarGetNthItem , -- ** toolbarGetReliefStyle + ToolbarGetReliefStyleMethodInfo , toolbarGetReliefStyle , -- ** toolbarGetShowArrow + ToolbarGetShowArrowMethodInfo , toolbarGetShowArrow , -- ** toolbarGetStyle + ToolbarGetStyleMethodInfo , toolbarGetStyle , -- ** toolbarInsert + ToolbarInsertMethodInfo , toolbarInsert , @@ -57,26 +67,32 @@ -- ** toolbarSetDropHighlightItem + ToolbarSetDropHighlightItemMethodInfo , toolbarSetDropHighlightItem , -- ** toolbarSetIconSize + ToolbarSetIconSizeMethodInfo , toolbarSetIconSize , -- ** toolbarSetShowArrow + ToolbarSetShowArrowMethodInfo , toolbarSetShowArrow , -- ** toolbarSetStyle + ToolbarSetStyleMethodInfo , toolbarSetStyle , -- ** toolbarUnsetIconSize + ToolbarUnsetIconSizeMethodInfo , toolbarUnsetIconSize , -- ** toolbarUnsetStyle + ToolbarUnsetStyleMethodInfo , toolbarUnsetStyle , @@ -199,6 +215,343 @@ noToolbar :: Maybe Toolbar noToolbar = Nothing +type family ResolveToolbarMethod (t :: Symbol) (o :: *) :: * where + ResolveToolbarMethod "activate" o = WidgetActivateMethodInfo + ResolveToolbarMethod "add" o = ContainerAddMethodInfo + ResolveToolbarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveToolbarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveToolbarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveToolbarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveToolbarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveToolbarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveToolbarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveToolbarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveToolbarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveToolbarMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveToolbarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveToolbarMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveToolbarMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveToolbarMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveToolbarMethod "childType" o = ContainerChildTypeMethodInfo + ResolveToolbarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveToolbarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveToolbarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveToolbarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveToolbarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveToolbarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveToolbarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveToolbarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveToolbarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveToolbarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveToolbarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveToolbarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveToolbarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveToolbarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveToolbarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveToolbarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveToolbarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveToolbarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveToolbarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveToolbarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveToolbarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveToolbarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveToolbarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveToolbarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveToolbarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveToolbarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveToolbarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveToolbarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveToolbarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveToolbarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveToolbarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveToolbarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveToolbarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveToolbarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveToolbarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveToolbarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveToolbarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveToolbarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveToolbarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveToolbarMethod "draw" o = WidgetDrawMethodInfo + ResolveToolbarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveToolbarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveToolbarMethod "event" o = WidgetEventMethodInfo + ResolveToolbarMethod "forall" o = ContainerForallMethodInfo + ResolveToolbarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveToolbarMethod "foreach" o = ContainerForeachMethodInfo + ResolveToolbarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveToolbarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveToolbarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveToolbarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveToolbarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveToolbarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveToolbarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveToolbarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveToolbarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveToolbarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveToolbarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveToolbarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveToolbarMethod "hide" o = WidgetHideMethodInfo + ResolveToolbarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveToolbarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveToolbarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveToolbarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveToolbarMethod "insert" o = ToolbarInsertMethodInfo + ResolveToolbarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveToolbarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveToolbarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveToolbarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveToolbarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveToolbarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveToolbarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveToolbarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveToolbarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveToolbarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveToolbarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveToolbarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveToolbarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveToolbarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveToolbarMethod "map" o = WidgetMapMethodInfo + ResolveToolbarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveToolbarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveToolbarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveToolbarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveToolbarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveToolbarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveToolbarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveToolbarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveToolbarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveToolbarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveToolbarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveToolbarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveToolbarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveToolbarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveToolbarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveToolbarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveToolbarMethod "path" o = WidgetPathMethodInfo + ResolveToolbarMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveToolbarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveToolbarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveToolbarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveToolbarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveToolbarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveToolbarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveToolbarMethod "realize" o = WidgetRealizeMethodInfo + ResolveToolbarMethod "rebuildMenu" o = ToolShellRebuildMenuMethodInfo + ResolveToolbarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveToolbarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveToolbarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveToolbarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveToolbarMethod "remove" o = ContainerRemoveMethodInfo + ResolveToolbarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveToolbarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveToolbarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveToolbarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveToolbarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveToolbarMethod "reparent" o = WidgetReparentMethodInfo + ResolveToolbarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveToolbarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveToolbarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveToolbarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveToolbarMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveToolbarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveToolbarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveToolbarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveToolbarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveToolbarMethod "show" o = WidgetShowMethodInfo + ResolveToolbarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveToolbarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveToolbarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveToolbarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveToolbarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveToolbarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveToolbarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveToolbarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveToolbarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveToolbarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveToolbarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveToolbarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveToolbarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveToolbarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveToolbarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveToolbarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveToolbarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveToolbarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveToolbarMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveToolbarMethod "unsetIconSize" o = ToolbarUnsetIconSizeMethodInfo + ResolveToolbarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveToolbarMethod "unsetStyle" o = ToolbarUnsetStyleMethodInfo + ResolveToolbarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveToolbarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveToolbarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveToolbarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveToolbarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveToolbarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveToolbarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveToolbarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveToolbarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveToolbarMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveToolbarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveToolbarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveToolbarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveToolbarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveToolbarMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveToolbarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveToolbarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveToolbarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveToolbarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveToolbarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveToolbarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveToolbarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveToolbarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveToolbarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveToolbarMethod "getDropIndex" o = ToolbarGetDropIndexMethodInfo + ResolveToolbarMethod "getEllipsizeMode" o = ToolShellGetEllipsizeModeMethodInfo + ResolveToolbarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveToolbarMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveToolbarMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveToolbarMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveToolbarMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveToolbarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveToolbarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveToolbarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveToolbarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveToolbarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveToolbarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveToolbarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveToolbarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveToolbarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveToolbarMethod "getItemIndex" o = ToolbarGetItemIndexMethodInfo + ResolveToolbarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveToolbarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveToolbarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveToolbarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveToolbarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveToolbarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveToolbarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveToolbarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveToolbarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveToolbarMethod "getNItems" o = ToolbarGetNItemsMethodInfo + ResolveToolbarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveToolbarMethod "getNthItem" o = ToolbarGetNthItemMethodInfo + ResolveToolbarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveToolbarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveToolbarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveToolbarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveToolbarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveToolbarMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveToolbarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveToolbarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveToolbarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveToolbarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveToolbarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveToolbarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveToolbarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveToolbarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveToolbarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveToolbarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveToolbarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveToolbarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveToolbarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveToolbarMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveToolbarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveToolbarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveToolbarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveToolbarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveToolbarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveToolbarMethod "getShowArrow" o = ToolbarGetShowArrowMethodInfo + ResolveToolbarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveToolbarMethod "getState" o = WidgetGetStateMethodInfo + ResolveToolbarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveToolbarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveToolbarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveToolbarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveToolbarMethod "getTextAlignment" o = ToolShellGetTextAlignmentMethodInfo + ResolveToolbarMethod "getTextOrientation" o = ToolShellGetTextOrientationMethodInfo + ResolveToolbarMethod "getTextSizeGroup" o = ToolShellGetTextSizeGroupMethodInfo + ResolveToolbarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveToolbarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveToolbarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveToolbarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveToolbarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveToolbarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveToolbarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveToolbarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveToolbarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveToolbarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveToolbarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveToolbarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveToolbarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveToolbarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveToolbarMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveToolbarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveToolbarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveToolbarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveToolbarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveToolbarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveToolbarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveToolbarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveToolbarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveToolbarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveToolbarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveToolbarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveToolbarMethod "setDropHighlightItem" o = ToolbarSetDropHighlightItemMethodInfo + ResolveToolbarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveToolbarMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveToolbarMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveToolbarMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveToolbarMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveToolbarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveToolbarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveToolbarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveToolbarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveToolbarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveToolbarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveToolbarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveToolbarMethod "setIconSize" o = ToolbarSetIconSizeMethodInfo + ResolveToolbarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveToolbarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveToolbarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveToolbarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveToolbarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveToolbarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveToolbarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveToolbarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveToolbarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveToolbarMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveToolbarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveToolbarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveToolbarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveToolbarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveToolbarMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveToolbarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveToolbarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveToolbarMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveToolbarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveToolbarMethod "setShowArrow" o = ToolbarSetShowArrowMethodInfo + ResolveToolbarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveToolbarMethod "setState" o = WidgetSetStateMethodInfo + ResolveToolbarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveToolbarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveToolbarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveToolbarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveToolbarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveToolbarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveToolbarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveToolbarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveToolbarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveToolbarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveToolbarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveToolbarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveToolbarMethod t Toolbar, MethodInfo info Toolbar p) => IsLabelProxy t (Toolbar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveToolbarMethod t Toolbar, MethodInfo info Toolbar p) => IsLabel t (Toolbar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Toolbar::focus-home-or-end type ToolbarFocusHomeOrEndCallback = Bool -> @@ -226,9 +579,9 @@ CInt -> Ptr () -> IO CInt -toolbarFocusHomeOrEndCallbackWrapper _cb _ focus_home _ = do - let focus_home' = (/= 0) focus_home - result <- _cb focus_home' +toolbarFocusHomeOrEndCallbackWrapper _cb _ focusHome _ = do + let focusHome' = (/= 0) focusHome + result <- _cb focusHome' let result' = (fromIntegral . fromEnum) result return result' @@ -395,7 +748,7 @@ type AttrSetTypeConstraint ToolbarIconSizePropertyInfo = (~) IconSize type AttrBaseTypeConstraint ToolbarIconSizePropertyInfo = ToolbarK type AttrGetType ToolbarIconSizePropertyInfo = IconSize - type AttrLabel ToolbarIconSizePropertyInfo = "Toolbar::icon-size" + type AttrLabel ToolbarIconSizePropertyInfo = "icon-size" attrGet _ = getToolbarIconSize attrSet _ = setToolbarIconSize attrConstruct _ = constructToolbarIconSize @@ -419,7 +772,7 @@ type AttrSetTypeConstraint ToolbarIconSizeSetPropertyInfo = (~) Bool type AttrBaseTypeConstraint ToolbarIconSizeSetPropertyInfo = ToolbarK type AttrGetType ToolbarIconSizeSetPropertyInfo = Bool - type AttrLabel ToolbarIconSizeSetPropertyInfo = "Toolbar::icon-size-set" + type AttrLabel ToolbarIconSizeSetPropertyInfo = "icon-size-set" attrGet _ = getToolbarIconSizeSet attrSet _ = setToolbarIconSizeSet attrConstruct _ = constructToolbarIconSizeSet @@ -443,7 +796,7 @@ type AttrSetTypeConstraint ToolbarShowArrowPropertyInfo = (~) Bool type AttrBaseTypeConstraint ToolbarShowArrowPropertyInfo = ToolbarK type AttrGetType ToolbarShowArrowPropertyInfo = Bool - type AttrLabel ToolbarShowArrowPropertyInfo = "Toolbar::show-arrow" + type AttrLabel ToolbarShowArrowPropertyInfo = "show-arrow" attrGet _ = getToolbarShowArrow attrSet _ = setToolbarShowArrow attrConstruct _ = constructToolbarShowArrow @@ -467,13 +820,13 @@ type AttrSetTypeConstraint ToolbarToolbarStylePropertyInfo = (~) ToolbarStyle type AttrBaseTypeConstraint ToolbarToolbarStylePropertyInfo = ToolbarK type AttrGetType ToolbarToolbarStylePropertyInfo = ToolbarStyle - type AttrLabel ToolbarToolbarStylePropertyInfo = "Toolbar::toolbar-style" + type AttrLabel ToolbarToolbarStylePropertyInfo = "toolbar-style" attrGet _ = getToolbarToolbarStyle attrSet _ = setToolbarToolbarStyle attrConstruct _ = constructToolbarToolbarStyle type instance AttributeList Toolbar = ToolbarAttributeList -type ToolbarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-size", ToolbarIconSizePropertyInfo), '("icon-size-set", ToolbarIconSizeSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-arrow", ToolbarShowArrowPropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbar-style", ToolbarToolbarStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ToolbarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconSize", ToolbarIconSizePropertyInfo), '("iconSizeSet", ToolbarIconSizeSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showArrow", ToolbarShowArrowPropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbarStyle", ToolbarToolbarStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) data ToolbarFocusHomeOrEndSignalInfo instance SignalInfo ToolbarFocusHomeOrEndSignalInfo where @@ -496,13 +849,12 @@ connectSignal _ = connectToolbarStyleChanged type instance SignalList Toolbar = ToolbarSignalList -type ToolbarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-home-or-end", ToolbarFocusHomeOrEndSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("orientation-changed", ToolbarOrientationChangedSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-context-menu", ToolbarPopupContextMenuSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-changed", ToolbarStyleChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ToolbarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusHomeOrEnd", ToolbarFocusHomeOrEndSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("orientationChanged", ToolbarOrientationChangedSignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupContextMenu", ToolbarPopupContextMenuSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleChanged", ToolbarStyleChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Toolbar::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Toolbar" -- throws : False -- Skip return : False @@ -513,7 +865,7 @@ toolbarNew :: (MonadIO m) => - m Toolbar + m Toolbar -- result toolbarNew = liftIO $ do result <- gtk_toolbar_new checkUnexpectedReturnNULL "gtk_toolbar_new" result @@ -522,9 +874,8 @@ -- method Toolbar::get_drop_index -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -538,21 +889,24 @@ toolbarGetDropIndex :: (MonadIO m, ToolbarK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m Int32 + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> m Int32 -- result toolbarGetDropIndex _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toolbar_get_drop_index _obj' x y touchManagedPtr _obj return result +data ToolbarGetDropIndexMethodInfo +instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetDropIndexMethodInfo a signature where + overloadedMethod _ = toolbarGetDropIndex + -- method Toolbar::get_icon_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconSize" -- throws : False -- Skip return : False @@ -564,8 +918,8 @@ toolbarGetIconSize :: (MonadIO m, ToolbarK a) => - a -> -- _obj - m IconSize + a -- _obj + -> m IconSize -- result toolbarGetIconSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toolbar_get_icon_size _obj' @@ -573,11 +927,14 @@ touchManagedPtr _obj return result' +data ToolbarGetIconSizeMethodInfo +instance (signature ~ (m IconSize), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetIconSizeMethodInfo a signature where + overloadedMethod _ = toolbarGetIconSize + -- method Toolbar::get_item_index -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -590,9 +947,9 @@ toolbarGetItemIndex :: (MonadIO m, ToolbarK a, ToolItemK b) => - a -> -- _obj - b -> -- item - m Int32 + a -- _obj + -> b -- item + -> m Int32 -- result toolbarGetItemIndex _obj item = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let item' = unsafeManagedPtrCastPtr item @@ -601,11 +958,14 @@ touchManagedPtr item return result +data ToolbarGetItemIndexMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, ToolbarK a, ToolItemK b) => MethodInfo ToolbarGetItemIndexMethodInfo a signature where + overloadedMethod _ = toolbarGetItemIndex + -- method Toolbar::get_n_items -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -617,19 +977,22 @@ toolbarGetNItems :: (MonadIO m, ToolbarK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result toolbarGetNItems _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toolbar_get_n_items _obj' touchManagedPtr _obj return result +data ToolbarGetNItemsMethodInfo +instance (signature ~ (m Int32), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetNItemsMethodInfo a signature where + overloadedMethod _ = toolbarGetNItems + -- method Toolbar::get_nth_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToolItem" -- throws : False -- Skip return : False @@ -642,9 +1005,9 @@ toolbarGetNthItem :: (MonadIO m, ToolbarK a) => - a -> -- _obj - Int32 -> -- n - m ToolItem + a -- _obj + -> Int32 -- n + -> m ToolItem -- result toolbarGetNthItem _obj n = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toolbar_get_nth_item _obj' n @@ -653,11 +1016,14 @@ touchManagedPtr _obj return result' +data ToolbarGetNthItemMethodInfo +instance (signature ~ (Int32 -> m ToolItem), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetNthItemMethodInfo a signature where + overloadedMethod _ = toolbarGetNthItem + -- method Toolbar::get_relief_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ReliefStyle" -- throws : False -- Skip return : False @@ -669,8 +1035,8 @@ toolbarGetReliefStyle :: (MonadIO m, ToolbarK a) => - a -> -- _obj - m ReliefStyle + a -- _obj + -> m ReliefStyle -- result toolbarGetReliefStyle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toolbar_get_relief_style _obj' @@ -678,11 +1044,14 @@ touchManagedPtr _obj return result' +data ToolbarGetReliefStyleMethodInfo +instance (signature ~ (m ReliefStyle), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetReliefStyleMethodInfo a signature where + overloadedMethod _ = toolbarGetReliefStyle + -- method Toolbar::get_show_arrow -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -694,8 +1063,8 @@ toolbarGetShowArrow :: (MonadIO m, ToolbarK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result toolbarGetShowArrow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toolbar_get_show_arrow _obj' @@ -703,11 +1072,14 @@ touchManagedPtr _obj return result' +data ToolbarGetShowArrowMethodInfo +instance (signature ~ (m Bool), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetShowArrowMethodInfo a signature where + overloadedMethod _ = toolbarGetShowArrow + -- method Toolbar::get_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ToolbarStyle" -- throws : False -- Skip return : False @@ -719,8 +1091,8 @@ toolbarGetStyle :: (MonadIO m, ToolbarK a) => - a -> -- _obj - m ToolbarStyle + a -- _obj + -> m ToolbarStyle -- result toolbarGetStyle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toolbar_get_style _obj' @@ -728,11 +1100,14 @@ touchManagedPtr _obj return result' +data ToolbarGetStyleMethodInfo +instance (signature ~ (m ToolbarStyle), MonadIO m, ToolbarK a) => MethodInfo ToolbarGetStyleMethodInfo a signature where + overloadedMethod _ = toolbarGetStyle + -- method Toolbar::insert -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -746,10 +1121,10 @@ toolbarInsert :: (MonadIO m, ToolbarK a, ToolItemK b) => - a -> -- _obj - b -> -- item - Int32 -> -- pos - m () + a -- _obj + -> b -- item + -> Int32 -- pos + -> m () -- result toolbarInsert _obj item pos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let item' = unsafeManagedPtrCastPtr item @@ -758,11 +1133,14 @@ touchManagedPtr item return () +data ToolbarInsertMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ToolbarK a, ToolItemK b) => MethodInfo ToolbarInsertMethodInfo a signature where + overloadedMethod _ = toolbarInsert + -- method Toolbar::set_drop_highlight_item -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tool_item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tool_item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tool_item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -776,27 +1154,30 @@ toolbarSetDropHighlightItem :: (MonadIO m, ToolbarK a, ToolItemK b) => - a -> -- _obj - Maybe (b) -> -- tool_item - Int32 -> -- index_ - m () -toolbarSetDropHighlightItem _obj tool_item index_ = liftIO $ do + a -- _obj + -> Maybe (b) -- toolItem + -> Int32 -- index + -> m () -- result +toolbarSetDropHighlightItem _obj toolItem index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeTool_item <- case tool_item of + maybeToolItem <- case toolItem of Nothing -> return nullPtr - Just jTool_item -> do - let jTool_item' = unsafeManagedPtrCastPtr jTool_item - return jTool_item' - gtk_toolbar_set_drop_highlight_item _obj' maybeTool_item index_ + Just jToolItem -> do + let jToolItem' = unsafeManagedPtrCastPtr jToolItem + return jToolItem' + gtk_toolbar_set_drop_highlight_item _obj' maybeToolItem index touchManagedPtr _obj - whenJust tool_item touchManagedPtr + whenJust toolItem touchManagedPtr return () +data ToolbarSetDropHighlightItemMethodInfo +instance (signature ~ (Maybe (b) -> Int32 -> m ()), MonadIO m, ToolbarK a, ToolItemK b) => MethodInfo ToolbarSetDropHighlightItemMethodInfo a signature where + overloadedMethod _ = toolbarSetDropHighlightItem + -- method Toolbar::set_icon_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TInterface "Gtk" "IconSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TInterface "Gtk" "IconSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TInterface "Gtk" "IconSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -809,21 +1190,24 @@ toolbarSetIconSize :: (MonadIO m, ToolbarK a) => - a -> -- _obj - IconSize -> -- icon_size - m () -toolbarSetIconSize _obj icon_size = liftIO $ do + a -- _obj + -> IconSize -- iconSize + -> m () -- result +toolbarSetIconSize _obj iconSize = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let icon_size' = (fromIntegral . fromEnum) icon_size - gtk_toolbar_set_icon_size _obj' icon_size' + let iconSize' = (fromIntegral . fromEnum) iconSize + gtk_toolbar_set_icon_size _obj' iconSize' touchManagedPtr _obj return () +data ToolbarSetIconSizeMethodInfo +instance (signature ~ (IconSize -> m ()), MonadIO m, ToolbarK a) => MethodInfo ToolbarSetIconSizeMethodInfo a signature where + overloadedMethod _ = toolbarSetIconSize + -- method Toolbar::set_show_arrow -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -836,21 +1220,24 @@ toolbarSetShowArrow :: (MonadIO m, ToolbarK a) => - a -> -- _obj - Bool -> -- show_arrow - m () -toolbarSetShowArrow _obj show_arrow = liftIO $ do + a -- _obj + -> Bool -- showArrow + -> m () -- result +toolbarSetShowArrow _obj showArrow = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let show_arrow' = (fromIntegral . fromEnum) show_arrow - gtk_toolbar_set_show_arrow _obj' show_arrow' + let showArrow' = (fromIntegral . fromEnum) showArrow + gtk_toolbar_set_show_arrow _obj' showArrow' touchManagedPtr _obj return () +data ToolbarSetShowArrowMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, ToolbarK a) => MethodInfo ToolbarSetShowArrowMethodInfo a signature where + overloadedMethod _ = toolbarSetShowArrow + -- method Toolbar::set_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -863,9 +1250,9 @@ toolbarSetStyle :: (MonadIO m, ToolbarK a) => - a -> -- _obj - ToolbarStyle -> -- style - m () + a -- _obj + -> ToolbarStyle -- style + -> m () -- result toolbarSetStyle _obj style = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let style' = (fromIntegral . fromEnum) style @@ -873,11 +1260,14 @@ touchManagedPtr _obj return () +data ToolbarSetStyleMethodInfo +instance (signature ~ (ToolbarStyle -> m ()), MonadIO m, ToolbarK a) => MethodInfo ToolbarSetStyleMethodInfo a signature where + overloadedMethod _ = toolbarSetStyle + -- method Toolbar::unset_icon_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -889,19 +1279,22 @@ toolbarUnsetIconSize :: (MonadIO m, ToolbarK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result toolbarUnsetIconSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_toolbar_unset_icon_size _obj' touchManagedPtr _obj return () +data ToolbarUnsetIconSizeMethodInfo +instance (signature ~ (m ()), MonadIO m, ToolbarK a) => MethodInfo ToolbarUnsetIconSizeMethodInfo a signature where + overloadedMethod _ = toolbarUnsetIconSize + -- method Toolbar::unset_style -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -913,12 +1306,16 @@ toolbarUnsetStyle :: (MonadIO m, ToolbarK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result toolbarUnsetStyle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_toolbar_unset_style _obj' touchManagedPtr _obj return () + +data ToolbarUnsetStyleMethodInfo +instance (signature ~ (m ()), MonadIO m, ToolbarK a) => MethodInfo ToolbarUnsetStyleMethodInfo a signature where + overloadedMethod _ = toolbarUnsetStyle diff --git a/GI/Gtk/Objects/Toolbar.hs-boot b/GI/Gtk/Objects/Toolbar.hs-boot --- a/GI/Gtk/Objects/Toolbar.hs-boot +++ b/GI/Gtk/Objects/Toolbar.hs-boot @@ -19,3 +19,18 @@ data ToolbarOrientationChangedSignalInfo data ToolbarPopupContextMenuSignalInfo data ToolbarStyleChangedSignalInfo +data ToolbarGetDropIndexMethodInfo +data ToolbarGetIconSizeMethodInfo +data ToolbarGetItemIndexMethodInfo +data ToolbarGetNItemsMethodInfo +data ToolbarGetNthItemMethodInfo +data ToolbarGetReliefStyleMethodInfo +data ToolbarGetShowArrowMethodInfo +data ToolbarGetStyleMethodInfo +data ToolbarInsertMethodInfo +data ToolbarSetDropHighlightItemMethodInfo +data ToolbarSetIconSizeMethodInfo +data ToolbarSetShowArrowMethodInfo +data ToolbarSetStyleMethodInfo +data ToolbarUnsetIconSizeMethodInfo +data ToolbarUnsetStyleMethodInfo diff --git a/GI/Gtk/Objects/Tooltip.hs b/GI/Gtk/Objects/Tooltip.hs --- a/GI/Gtk/Objects/Tooltip.hs +++ b/GI/Gtk/Objects/Tooltip.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * Methods -- ** tooltipSetCustom + TooltipSetCustomMethodInfo , tooltipSetCustom , -- ** tooltipSetIcon + TooltipSetIconMethodInfo , tooltipSetIcon , -- ** tooltipSetIconFromGicon + TooltipSetIconFromGiconMethodInfo , tooltipSetIconFromGicon , -- ** tooltipSetIconFromIconName + TooltipSetIconFromIconNameMethodInfo , tooltipSetIconFromIconName , -- ** tooltipSetIconFromStock + TooltipSetIconFromStockMethodInfo , tooltipSetIconFromStock , -- ** tooltipSetMarkup + TooltipSetMarkupMethodInfo , tooltipSetMarkup , -- ** tooltipSetText + TooltipSetTextMethodInfo , tooltipSetText , -- ** tooltipSetTipArea + TooltipSetTipAreaMethodInfo , tooltipSetTipArea , @@ -91,17 +100,57 @@ noTooltip :: Maybe Tooltip noTooltip = Nothing +type family ResolveTooltipMethod (t :: Symbol) (o :: *) :: * where + ResolveTooltipMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTooltipMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTooltipMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTooltipMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTooltipMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTooltipMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTooltipMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTooltipMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTooltipMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTooltipMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTooltipMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTooltipMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTooltipMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTooltipMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTooltipMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTooltipMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTooltipMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTooltipMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTooltipMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTooltipMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTooltipMethod "setCustom" o = TooltipSetCustomMethodInfo + ResolveTooltipMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTooltipMethod "setIcon" o = TooltipSetIconMethodInfo + ResolveTooltipMethod "setIconFromGicon" o = TooltipSetIconFromGiconMethodInfo + ResolveTooltipMethod "setIconFromIconName" o = TooltipSetIconFromIconNameMethodInfo + ResolveTooltipMethod "setIconFromStock" o = TooltipSetIconFromStockMethodInfo + ResolveTooltipMethod "setMarkup" o = TooltipSetMarkupMethodInfo + ResolveTooltipMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTooltipMethod "setText" o = TooltipSetTextMethodInfo + ResolveTooltipMethod "setTipArea" o = TooltipSetTipAreaMethodInfo + ResolveTooltipMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTooltipMethod t Tooltip, MethodInfo info Tooltip p) => IsLabelProxy t (Tooltip -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTooltipMethod t Tooltip, MethodInfo info Tooltip p) => IsLabel t (Tooltip -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList Tooltip = TooltipAttributeList type TooltipAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList Tooltip = TooltipSignalList -type TooltipSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TooltipSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Tooltip::set_custom -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "custom_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "custom_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "custom_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -114,26 +163,29 @@ tooltipSetCustom :: (MonadIO m, TooltipK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- custom_widget - m () -tooltipSetCustom _obj custom_widget = liftIO $ do + a -- _obj + -> Maybe (b) -- customWidget + -> m () -- result +tooltipSetCustom _obj customWidget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeCustom_widget <- case custom_widget of + maybeCustomWidget <- case customWidget of Nothing -> return nullPtr - Just jCustom_widget -> do - let jCustom_widget' = unsafeManagedPtrCastPtr jCustom_widget - return jCustom_widget' - gtk_tooltip_set_custom _obj' maybeCustom_widget + Just jCustomWidget -> do + let jCustomWidget' = unsafeManagedPtrCastPtr jCustomWidget + return jCustomWidget' + gtk_tooltip_set_custom _obj' maybeCustomWidget touchManagedPtr _obj - whenJust custom_widget touchManagedPtr + whenJust customWidget touchManagedPtr return () +data TooltipSetCustomMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TooltipK a, WidgetK b) => MethodInfo TooltipSetCustomMethodInfo a signature where + overloadedMethod _ = tooltipSetCustom + -- method Tooltip::set_icon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -146,9 +198,9 @@ tooltipSetIcon :: (MonadIO m, TooltipK a, GdkPixbuf.PixbufK b) => - a -> -- _obj - Maybe (b) -> -- pixbuf - m () + a -- _obj + -> Maybe (b) -- pixbuf + -> m () -- result tooltipSetIcon _obj pixbuf = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybePixbuf <- case pixbuf of @@ -161,11 +213,14 @@ whenJust pixbuf touchManagedPtr return () +data TooltipSetIconMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TooltipK a, GdkPixbuf.PixbufK b) => MethodInfo TooltipSetIconMethodInfo a signature where + overloadedMethod _ = tooltipSetIcon + -- method Tooltip::set_icon_from_gicon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -179,10 +234,10 @@ tooltipSetIconFromGicon :: (MonadIO m, TooltipK a, Gio.IconK b) => - a -> -- _obj - Maybe (b) -> -- gicon - Int32 -> -- size - m () + a -- _obj + -> Maybe (b) -- gicon + -> Int32 -- size + -> m () -- result tooltipSetIconFromGicon _obj gicon size = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeGicon <- case gicon of @@ -195,11 +250,14 @@ whenJust gicon touchManagedPtr return () +data TooltipSetIconFromGiconMethodInfo +instance (signature ~ (Maybe (b) -> Int32 -> m ()), MonadIO m, TooltipK a, Gio.IconK b) => MethodInfo TooltipSetIconFromGiconMethodInfo a signature where + overloadedMethod _ = tooltipSetIconFromGicon + -- method Tooltip::set_icon_from_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -213,27 +271,30 @@ tooltipSetIconFromIconName :: (MonadIO m, TooltipK a) => - a -> -- _obj - Maybe (T.Text) -> -- icon_name - Int32 -> -- size - m () -tooltipSetIconFromIconName _obj icon_name size = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- iconName + -> Int32 -- size + -> m () -- result +tooltipSetIconFromIconName _obj iconName size = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon_name <- case icon_name of + maybeIconName <- case iconName of Nothing -> return nullPtr - Just jIcon_name -> do - jIcon_name' <- textToCString jIcon_name - return jIcon_name' - gtk_tooltip_set_icon_from_icon_name _obj' maybeIcon_name size + Just jIconName -> do + jIconName' <- textToCString jIconName + return jIconName' + gtk_tooltip_set_icon_from_icon_name _obj' maybeIconName size touchManagedPtr _obj - freeMem maybeIcon_name + freeMem maybeIconName return () +data TooltipSetIconFromIconNameMethodInfo +instance (signature ~ (Maybe (T.Text) -> Int32 -> m ()), MonadIO m, TooltipK a) => MethodInfo TooltipSetIconFromIconNameMethodInfo a signature where + overloadedMethod _ = tooltipSetIconFromIconName + -- method Tooltip::set_icon_from_stock -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -247,27 +308,30 @@ {-# DEPRECATED tooltipSetIconFromStock ["(Since version 3.10)","Use gtk_tooltip_set_icon_from_icon_name() instead."]#-} tooltipSetIconFromStock :: (MonadIO m, TooltipK a) => - a -> -- _obj - Maybe (T.Text) -> -- stock_id - Int32 -> -- size - m () -tooltipSetIconFromStock _obj stock_id size = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- stockId + -> Int32 -- size + -> m () -- result +tooltipSetIconFromStock _obj stockId size = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeStock_id <- case stock_id of + maybeStockId <- case stockId of Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - gtk_tooltip_set_icon_from_stock _obj' maybeStock_id size + Just jStockId -> do + jStockId' <- textToCString jStockId + return jStockId' + gtk_tooltip_set_icon_from_stock _obj' maybeStockId size touchManagedPtr _obj - freeMem maybeStock_id + freeMem maybeStockId return () +data TooltipSetIconFromStockMethodInfo +instance (signature ~ (Maybe (T.Text) -> Int32 -> m ()), MonadIO m, TooltipK a) => MethodInfo TooltipSetIconFromStockMethodInfo a signature where + overloadedMethod _ = tooltipSetIconFromStock + -- method Tooltip::set_markup -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -280,9 +344,9 @@ tooltipSetMarkup :: (MonadIO m, TooltipK a) => - a -> -- _obj - Maybe (T.Text) -> -- markup - m () + a -- _obj + -> Maybe (T.Text) -- markup + -> m () -- result tooltipSetMarkup _obj markup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeMarkup <- case markup of @@ -295,11 +359,14 @@ freeMem maybeMarkup return () +data TooltipSetMarkupMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, TooltipK a) => MethodInfo TooltipSetMarkupMethodInfo a signature where + overloadedMethod _ = tooltipSetMarkup + -- method Tooltip::set_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -312,9 +379,9 @@ tooltipSetText :: (MonadIO m, TooltipK a) => - a -> -- _obj - Maybe (T.Text) -> -- text - m () + a -- _obj + -> Maybe (T.Text) -- text + -> m () -- result tooltipSetText _obj text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeText <- case text of @@ -327,11 +394,14 @@ freeMem maybeText return () +data TooltipSetTextMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, TooltipK a) => MethodInfo TooltipSetTextMethodInfo a signature where + overloadedMethod _ = tooltipSetText + -- method Tooltip::set_tip_area -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -344,9 +414,9 @@ tooltipSetTipArea :: (MonadIO m, TooltipK a) => - a -> -- _obj - Gdk.Rectangle -> -- rect - m () + a -- _obj + -> Gdk.Rectangle -- rect + -> m () -- result tooltipSetTipArea _obj rect = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let rect' = unsafeManagedPtrGetPtr rect @@ -355,11 +425,14 @@ touchManagedPtr rect return () +data TooltipSetTipAreaMethodInfo +instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, TooltipK a) => MethodInfo TooltipSetTipAreaMethodInfo a signature where + overloadedMethod _ = tooltipSetTipArea + -- method Tooltip::trigger_tooltip_query -- method type : MemberFunction --- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -371,8 +444,8 @@ tooltipTriggerTooltipQuery :: (MonadIO m, Gdk.DisplayK a) => - a -> -- display - m () + a -- display + -> m () -- result tooltipTriggerTooltipQuery display = liftIO $ do let display' = unsafeManagedPtrCastPtr display gtk_tooltip_trigger_tooltip_query display' diff --git a/GI/Gtk/Objects/Tooltip.hs-boot b/GI/Gtk/Objects/Tooltip.hs-boot --- a/GI/Gtk/Objects/Tooltip.hs-boot +++ b/GI/Gtk/Objects/Tooltip.hs-boot @@ -11,3 +11,11 @@ instance GObject Tooltip where class GObject o => TooltipK o instance (GObject o, IsDescendantOf Tooltip o) => TooltipK o +data TooltipSetCustomMethodInfo +data TooltipSetIconMethodInfo +data TooltipSetIconFromGiconMethodInfo +data TooltipSetIconFromIconNameMethodInfo +data TooltipSetIconFromStockMethodInfo +data TooltipSetMarkupMethodInfo +data TooltipSetTextMethodInfo +data TooltipSetTipAreaMethodInfo diff --git a/GI/Gtk/Objects/ToplevelAccessible.hs b/GI/Gtk/Objects/ToplevelAccessible.hs --- a/GI/Gtk/Objects/ToplevelAccessible.hs +++ b/GI/Gtk/Objects/ToplevelAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** toplevelAccessibleGetChildren + ToplevelAccessibleGetChildrenMethodInfo , toplevelAccessibleGetChildren , @@ -57,17 +59,73 @@ noToplevelAccessible :: Maybe ToplevelAccessible noToplevelAccessible = Nothing +type family ResolveToplevelAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveToplevelAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveToplevelAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveToplevelAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveToplevelAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveToplevelAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveToplevelAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveToplevelAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveToplevelAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveToplevelAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveToplevelAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveToplevelAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveToplevelAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveToplevelAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveToplevelAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveToplevelAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveToplevelAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveToplevelAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveToplevelAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveToplevelAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveToplevelAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveToplevelAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveToplevelAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveToplevelAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveToplevelAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveToplevelAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveToplevelAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveToplevelAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveToplevelAccessibleMethod "getChildren" o = ToplevelAccessibleGetChildrenMethodInfo + ResolveToplevelAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveToplevelAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveToplevelAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveToplevelAccessibleMethod "getLayer" o = Atk.ObjectGetLayerMethodInfo + ResolveToplevelAccessibleMethod "getMdiZorder" o = Atk.ObjectGetMdiZorderMethodInfo + ResolveToplevelAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveToplevelAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveToplevelAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveToplevelAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveToplevelAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveToplevelAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveToplevelAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveToplevelAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveToplevelAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveToplevelAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveToplevelAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveToplevelAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveToplevelAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveToplevelAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveToplevelAccessibleMethod t ToplevelAccessible, MethodInfo info ToplevelAccessible p) => IsLabelProxy t (ToplevelAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveToplevelAccessibleMethod t ToplevelAccessible, MethodInfo info ToplevelAccessible p) => IsLabel t (ToplevelAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList ToplevelAccessible = ToplevelAccessibleAttributeList -type ToplevelAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) +type ToplevelAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) type instance SignalList ToplevelAccessible = ToplevelAccessibleSignalList -type ToplevelAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ToplevelAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) -- method ToplevelAccessible::get_children -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToplevelAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToplevelAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToplevelAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "Window") -- throws : False -- Skip return : False @@ -79,8 +137,8 @@ toplevelAccessibleGetChildren :: (MonadIO m, ToplevelAccessibleK a) => - a -> -- _obj - m [Window] + a -- _obj + -> m [Window] -- result toplevelAccessibleGetChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toplevel_accessible_get_children _obj' @@ -89,5 +147,9 @@ result'' <- mapM (newObject Window) result' touchManagedPtr _obj return result'' + +data ToplevelAccessibleGetChildrenMethodInfo +instance (signature ~ (m [Window]), MonadIO m, ToplevelAccessibleK a) => MethodInfo ToplevelAccessibleGetChildrenMethodInfo a signature where + overloadedMethod _ = toplevelAccessibleGetChildren diff --git a/GI/Gtk/Objects/ToplevelAccessible.hs-boot b/GI/Gtk/Objects/ToplevelAccessible.hs-boot --- a/GI/Gtk/Objects/ToplevelAccessible.hs-boot +++ b/GI/Gtk/Objects/ToplevelAccessible.hs-boot @@ -11,3 +11,4 @@ instance GObject ToplevelAccessible where class GObject o => ToplevelAccessibleK o instance (GObject o, IsDescendantOf ToplevelAccessible o) => ToplevelAccessibleK o +data ToplevelAccessibleGetChildrenMethodInfo diff --git a/GI/Gtk/Objects/TreeModelFilter.hs b/GI/Gtk/Objects/TreeModelFilter.hs --- a/GI/Gtk/Objects/TreeModelFilter.hs +++ b/GI/Gtk/Objects/TreeModelFilter.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,38 +18,47 @@ -- * Methods -- ** treeModelFilterClearCache + TreeModelFilterClearCacheMethodInfo , treeModelFilterClearCache , -- ** treeModelFilterConvertChildIterToIter + TreeModelFilterConvertChildIterToIterMethodInfo, treeModelFilterConvertChildIterToIter , -- ** treeModelFilterConvertChildPathToPath + TreeModelFilterConvertChildPathToPathMethodInfo, treeModelFilterConvertChildPathToPath , -- ** treeModelFilterConvertIterToChildIter + TreeModelFilterConvertIterToChildIterMethodInfo, treeModelFilterConvertIterToChildIter , -- ** treeModelFilterConvertPathToChildPath + TreeModelFilterConvertPathToChildPathMethodInfo, treeModelFilterConvertPathToChildPath , -- ** treeModelFilterGetModel + TreeModelFilterGetModelMethodInfo , treeModelFilterGetModel , -- ** treeModelFilterRefilter + TreeModelFilterRefilterMethodInfo , treeModelFilterRefilter , -- ** treeModelFilterSetVisibleColumn + TreeModelFilterSetVisibleColumnMethodInfo, treeModelFilterSetVisibleColumn , -- ** treeModelFilterSetVisibleFunc + TreeModelFilterSetVisibleFuncMethodInfo , treeModelFilterSetVisibleFunc , @@ -104,6 +114,77 @@ noTreeModelFilter :: Maybe TreeModelFilter noTreeModelFilter = Nothing +type family ResolveTreeModelFilterMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeModelFilterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTreeModelFilterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTreeModelFilterMethod "clearCache" o = TreeModelFilterClearCacheMethodInfo + ResolveTreeModelFilterMethod "convertChildIterToIter" o = TreeModelFilterConvertChildIterToIterMethodInfo + ResolveTreeModelFilterMethod "convertChildPathToPath" o = TreeModelFilterConvertChildPathToPathMethodInfo + ResolveTreeModelFilterMethod "convertIterToChildIter" o = TreeModelFilterConvertIterToChildIterMethodInfo + ResolveTreeModelFilterMethod "convertPathToChildPath" o = TreeModelFilterConvertPathToChildPathMethodInfo + ResolveTreeModelFilterMethod "dragDataDelete" o = TreeDragSourceDragDataDeleteMethodInfo + ResolveTreeModelFilterMethod "dragDataGet" o = TreeDragSourceDragDataGetMethodInfo + ResolveTreeModelFilterMethod "filterNew" o = TreeModelFilterNewMethodInfo + ResolveTreeModelFilterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTreeModelFilterMethod "foreach" o = TreeModelForeachMethodInfo + ResolveTreeModelFilterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTreeModelFilterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTreeModelFilterMethod "iterChildren" o = TreeModelIterChildrenMethodInfo + ResolveTreeModelFilterMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo + ResolveTreeModelFilterMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo + ResolveTreeModelFilterMethod "iterNext" o = TreeModelIterNextMethodInfo + ResolveTreeModelFilterMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo + ResolveTreeModelFilterMethod "iterParent" o = TreeModelIterParentMethodInfo + ResolveTreeModelFilterMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo + ResolveTreeModelFilterMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTreeModelFilterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTreeModelFilterMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTreeModelFilterMethod "refNode" o = TreeModelRefNodeMethodInfo + ResolveTreeModelFilterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTreeModelFilterMethod "refilter" o = TreeModelFilterRefilterMethodInfo + ResolveTreeModelFilterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTreeModelFilterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTreeModelFilterMethod "rowChanged" o = TreeModelRowChangedMethodInfo + ResolveTreeModelFilterMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo + ResolveTreeModelFilterMethod "rowDraggable" o = TreeDragSourceRowDraggableMethodInfo + ResolveTreeModelFilterMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo + ResolveTreeModelFilterMethod "rowInserted" o = TreeModelRowInsertedMethodInfo + ResolveTreeModelFilterMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo + ResolveTreeModelFilterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTreeModelFilterMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo + ResolveTreeModelFilterMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTreeModelFilterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTreeModelFilterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTreeModelFilterMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTreeModelFilterMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo + ResolveTreeModelFilterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTreeModelFilterMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo + ResolveTreeModelFilterMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTreeModelFilterMethod "getFlags" o = TreeModelGetFlagsMethodInfo + ResolveTreeModelFilterMethod "getIter" o = TreeModelGetIterMethodInfo + ResolveTreeModelFilterMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo + ResolveTreeModelFilterMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo + ResolveTreeModelFilterMethod "getModel" o = TreeModelFilterGetModelMethodInfo + ResolveTreeModelFilterMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo + ResolveTreeModelFilterMethod "getPath" o = TreeModelGetPathMethodInfo + ResolveTreeModelFilterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTreeModelFilterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTreeModelFilterMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo + ResolveTreeModelFilterMethod "getValue" o = TreeModelGetValueMethodInfo + ResolveTreeModelFilterMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTreeModelFilterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTreeModelFilterMethod "setVisibleColumn" o = TreeModelFilterSetVisibleColumnMethodInfo + ResolveTreeModelFilterMethod "setVisibleFunc" o = TreeModelFilterSetVisibleFuncMethodInfo + ResolveTreeModelFilterMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeModelFilterMethod t TreeModelFilter, MethodInfo info TreeModelFilter p) => IsLabelProxy t (TreeModelFilter -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeModelFilterMethod t TreeModelFilter, MethodInfo info TreeModelFilter p) => IsLabel t (TreeModelFilter -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "child-model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] @@ -120,7 +201,7 @@ type AttrSetTypeConstraint TreeModelFilterChildModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint TreeModelFilterChildModelPropertyInfo = TreeModelFilterK type AttrGetType TreeModelFilterChildModelPropertyInfo = TreeModel - type AttrLabel TreeModelFilterChildModelPropertyInfo = "TreeModelFilter::child-model" + type AttrLabel TreeModelFilterChildModelPropertyInfo = "child-model" attrGet _ = getTreeModelFilterChildModel attrSet _ = undefined attrConstruct _ = constructTreeModelFilterChildModel @@ -141,22 +222,21 @@ type AttrSetTypeConstraint TreeModelFilterVirtualRootPropertyInfo = (~) TreePath type AttrBaseTypeConstraint TreeModelFilterVirtualRootPropertyInfo = TreeModelFilterK type AttrGetType TreeModelFilterVirtualRootPropertyInfo = TreePath - type AttrLabel TreeModelFilterVirtualRootPropertyInfo = "TreeModelFilter::virtual-root" + type AttrLabel TreeModelFilterVirtualRootPropertyInfo = "virtual-root" attrGet _ = getTreeModelFilterVirtualRoot attrSet _ = undefined attrConstruct _ = constructTreeModelFilterVirtualRoot type instance AttributeList TreeModelFilter = TreeModelFilterAttributeList -type TreeModelFilterAttributeList = ('[ '("child-model", TreeModelFilterChildModelPropertyInfo), '("virtual-root", TreeModelFilterVirtualRootPropertyInfo)] :: [(Symbol, *)]) +type TreeModelFilterAttributeList = ('[ '("childModel", TreeModelFilterChildModelPropertyInfo), '("virtualRoot", TreeModelFilterVirtualRootPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TreeModelFilter = TreeModelFilterSignalList -type TreeModelFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TreeModelFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo)] :: [(Symbol, *)]) -- method TreeModelFilter::clear_cache -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -168,19 +248,22 @@ treeModelFilterClearCache :: (MonadIO m, TreeModelFilterK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result treeModelFilterClearCache _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_model_filter_clear_cache _obj' touchManagedPtr _obj return () +data TreeModelFilterClearCacheMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterClearCacheMethodInfo a signature where + overloadedMethod _ = treeModelFilterClearCache + -- method TreeModelFilter::convert_child_iter_to_iter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -194,25 +277,28 @@ treeModelFilterConvertChildIterToIter :: (MonadIO m, TreeModelFilterK a) => - a -> -- _obj - TreeIter -> -- child_iter - m (Bool,TreeIter) -treeModelFilterConvertChildIterToIter _obj child_iter = liftIO $ do + a -- _obj + -> TreeIter -- childIter + -> m (Bool,TreeIter) -- result +treeModelFilterConvertChildIterToIter _obj childIter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - filter_iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let child_iter' = unsafeManagedPtrGetPtr child_iter - result <- gtk_tree_model_filter_convert_child_iter_to_iter _obj' filter_iter child_iter' + filterIter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) + let childIter' = unsafeManagedPtrGetPtr childIter + result <- gtk_tree_model_filter_convert_child_iter_to_iter _obj' filterIter childIter' let result' = (/= 0) result - filter_iter' <- (wrapBoxed TreeIter) filter_iter + filterIter' <- (wrapBoxed TreeIter) filterIter touchManagedPtr _obj - touchManagedPtr child_iter - return (result', filter_iter') + touchManagedPtr childIter + return (result', filterIter') +data TreeModelFilterConvertChildIterToIterMethodInfo +instance (signature ~ (TreeIter -> m (Bool,TreeIter)), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterConvertChildIterToIterMethodInfo a signature where + overloadedMethod _ = treeModelFilterConvertChildIterToIter + -- method TreeModelFilter::convert_child_path_to_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreePath" -- throws : False -- Skip return : False @@ -225,24 +311,27 @@ treeModelFilterConvertChildPathToPath :: (MonadIO m, TreeModelFilterK a) => - a -> -- _obj - TreePath -> -- child_path - m TreePath -treeModelFilterConvertChildPathToPath _obj child_path = liftIO $ do + a -- _obj + -> TreePath -- childPath + -> m TreePath -- result +treeModelFilterConvertChildPathToPath _obj childPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let child_path' = unsafeManagedPtrGetPtr child_path - result <- gtk_tree_model_filter_convert_child_path_to_path _obj' child_path' + let childPath' = unsafeManagedPtrGetPtr childPath + result <- gtk_tree_model_filter_convert_child_path_to_path _obj' childPath' checkUnexpectedReturnNULL "gtk_tree_model_filter_convert_child_path_to_path" result result' <- (wrapBoxed TreePath) result touchManagedPtr _obj - touchManagedPtr child_path + touchManagedPtr childPath return result' +data TreeModelFilterConvertChildPathToPathMethodInfo +instance (signature ~ (TreePath -> m TreePath), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterConvertChildPathToPathMethodInfo a signature where + overloadedMethod _ = treeModelFilterConvertChildPathToPath + -- method TreeModelFilter::convert_iter_to_child_iter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -256,24 +345,27 @@ treeModelFilterConvertIterToChildIter :: (MonadIO m, TreeModelFilterK a) => - a -> -- _obj - TreeIter -> -- filter_iter - m (TreeIter) -treeModelFilterConvertIterToChildIter _obj filter_iter = liftIO $ do + a -- _obj + -> TreeIter -- filterIter + -> m (TreeIter) -- result +treeModelFilterConvertIterToChildIter _obj filterIter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - child_iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let filter_iter' = unsafeManagedPtrGetPtr filter_iter - gtk_tree_model_filter_convert_iter_to_child_iter _obj' child_iter filter_iter' - child_iter' <- (wrapBoxed TreeIter) child_iter + childIter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) + let filterIter' = unsafeManagedPtrGetPtr filterIter + gtk_tree_model_filter_convert_iter_to_child_iter _obj' childIter filterIter' + childIter' <- (wrapBoxed TreeIter) childIter touchManagedPtr _obj - touchManagedPtr filter_iter - return child_iter' + touchManagedPtr filterIter + return childIter' +data TreeModelFilterConvertIterToChildIterMethodInfo +instance (signature ~ (TreeIter -> m (TreeIter)), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterConvertIterToChildIterMethodInfo a signature where + overloadedMethod _ = treeModelFilterConvertIterToChildIter + -- method TreeModelFilter::convert_path_to_child_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreePath" -- throws : False -- Skip return : False @@ -286,24 +378,27 @@ treeModelFilterConvertPathToChildPath :: (MonadIO m, TreeModelFilterK a) => - a -> -- _obj - TreePath -> -- filter_path - m TreePath -treeModelFilterConvertPathToChildPath _obj filter_path = liftIO $ do + a -- _obj + -> TreePath -- filterPath + -> m TreePath -- result +treeModelFilterConvertPathToChildPath _obj filterPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let filter_path' = unsafeManagedPtrGetPtr filter_path - result <- gtk_tree_model_filter_convert_path_to_child_path _obj' filter_path' + let filterPath' = unsafeManagedPtrGetPtr filterPath + result <- gtk_tree_model_filter_convert_path_to_child_path _obj' filterPath' checkUnexpectedReturnNULL "gtk_tree_model_filter_convert_path_to_child_path" result result' <- (wrapBoxed TreePath) result touchManagedPtr _obj - touchManagedPtr filter_path + touchManagedPtr filterPath return result' +data TreeModelFilterConvertPathToChildPathMethodInfo +instance (signature ~ (TreePath -> m TreePath), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterConvertPathToChildPathMethodInfo a signature where + overloadedMethod _ = treeModelFilterConvertPathToChildPath + -- method TreeModelFilter::get_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeModel" -- throws : False -- Skip return : False @@ -315,8 +410,8 @@ treeModelFilterGetModel :: (MonadIO m, TreeModelFilterK a) => - a -> -- _obj - m TreeModel + a -- _obj + -> m TreeModel -- result treeModelFilterGetModel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_model_filter_get_model _obj' @@ -325,11 +420,14 @@ touchManagedPtr _obj return result' +data TreeModelFilterGetModelMethodInfo +instance (signature ~ (m TreeModel), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterGetModelMethodInfo a signature where + overloadedMethod _ = treeModelFilterGetModel + -- method TreeModelFilter::refilter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -341,19 +439,22 @@ treeModelFilterRefilter :: (MonadIO m, TreeModelFilterK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result treeModelFilterRefilter _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_model_filter_refilter _obj' touchManagedPtr _obj return () +data TreeModelFilterRefilterMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterRefilterMethodInfo a signature where + overloadedMethod _ = treeModelFilterRefilter + -- method TreeModelFilter::set_visible_column -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -366,20 +467,23 @@ treeModelFilterSetVisibleColumn :: (MonadIO m, TreeModelFilterK a) => - a -> -- _obj - Int32 -> -- column - m () + a -- _obj + -> Int32 -- column + -> m () -- result treeModelFilterSetVisibleColumn _obj column = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_model_filter_set_visible_column _obj' column touchManagedPtr _obj return () +data TreeModelFilterSetVisibleColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterSetVisibleColumnMethodInfo a signature where + overloadedMethod _ = treeModelFilterSetVisibleColumn + -- method TreeModelFilter::set_visible_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeModelFilterVisibleFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeModelFilterVisibleFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeModelFilterVisibleFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -394,9 +498,9 @@ treeModelFilterSetVisibleFunc :: (MonadIO m, TreeModelFilterK a) => - a -> -- _obj - TreeModelFilterVisibleFunc -> -- func - m () + a -- _obj + -> TreeModelFilterVisibleFunc -- func + -> m () -- result treeModelFilterSetVisibleFunc _obj func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj func' <- mkTreeModelFilterVisibleFunc (treeModelFilterVisibleFuncWrapper Nothing func) @@ -405,5 +509,9 @@ gtk_tree_model_filter_set_visible_func _obj' func' data_ destroy touchManagedPtr _obj return () + +data TreeModelFilterSetVisibleFuncMethodInfo +instance (signature ~ (TreeModelFilterVisibleFunc -> m ()), MonadIO m, TreeModelFilterK a) => MethodInfo TreeModelFilterSetVisibleFuncMethodInfo a signature where + overloadedMethod _ = treeModelFilterSetVisibleFunc diff --git a/GI/Gtk/Objects/TreeModelFilter.hs-boot b/GI/Gtk/Objects/TreeModelFilter.hs-boot --- a/GI/Gtk/Objects/TreeModelFilter.hs-boot +++ b/GI/Gtk/Objects/TreeModelFilter.hs-boot @@ -13,3 +13,12 @@ instance (GObject o, IsDescendantOf TreeModelFilter o) => TreeModelFilterK o data TreeModelFilterChildModelPropertyInfo data TreeModelFilterVirtualRootPropertyInfo +data TreeModelFilterClearCacheMethodInfo +data TreeModelFilterConvertChildIterToIterMethodInfo +data TreeModelFilterConvertChildPathToPathMethodInfo +data TreeModelFilterConvertIterToChildIterMethodInfo +data TreeModelFilterConvertPathToChildPathMethodInfo +data TreeModelFilterGetModelMethodInfo +data TreeModelFilterRefilterMethodInfo +data TreeModelFilterSetVisibleColumnMethodInfo +data TreeModelFilterSetVisibleFuncMethodInfo diff --git a/GI/Gtk/Objects/TreeModelSort.hs b/GI/Gtk/Objects/TreeModelSort.hs --- a/GI/Gtk/Objects/TreeModelSort.hs +++ b/GI/Gtk/Objects/TreeModelSort.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * Methods -- ** treeModelSortClearCache + TreeModelSortClearCacheMethodInfo , treeModelSortClearCache , -- ** treeModelSortConvertChildIterToIter + TreeModelSortConvertChildIterToIterMethodInfo, treeModelSortConvertChildIterToIter , -- ** treeModelSortConvertChildPathToPath + TreeModelSortConvertChildPathToPathMethodInfo, treeModelSortConvertChildPathToPath , -- ** treeModelSortConvertIterToChildIter + TreeModelSortConvertIterToChildIterMethodInfo, treeModelSortConvertIterToChildIter , -- ** treeModelSortConvertPathToChildPath + TreeModelSortConvertPathToChildPathMethodInfo, treeModelSortConvertPathToChildPath , -- ** treeModelSortGetModel + TreeModelSortGetModelMethodInfo , treeModelSortGetModel , -- ** treeModelSortIterIsValid + TreeModelSortIterIsValidMethodInfo , treeModelSortIterIsValid , -- ** treeModelSortResetDefaultSortFunc + TreeModelSortResetDefaultSortFuncMethodInfo, treeModelSortResetDefaultSortFunc , @@ -93,6 +102,82 @@ noTreeModelSort :: Maybe TreeModelSort noTreeModelSort = Nothing +type family ResolveTreeModelSortMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeModelSortMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTreeModelSortMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTreeModelSortMethod "clearCache" o = TreeModelSortClearCacheMethodInfo + ResolveTreeModelSortMethod "convertChildIterToIter" o = TreeModelSortConvertChildIterToIterMethodInfo + ResolveTreeModelSortMethod "convertChildPathToPath" o = TreeModelSortConvertChildPathToPathMethodInfo + ResolveTreeModelSortMethod "convertIterToChildIter" o = TreeModelSortConvertIterToChildIterMethodInfo + ResolveTreeModelSortMethod "convertPathToChildPath" o = TreeModelSortConvertPathToChildPathMethodInfo + ResolveTreeModelSortMethod "dragDataDelete" o = TreeDragSourceDragDataDeleteMethodInfo + ResolveTreeModelSortMethod "dragDataGet" o = TreeDragSourceDragDataGetMethodInfo + ResolveTreeModelSortMethod "filterNew" o = TreeModelFilterNewMethodInfo + ResolveTreeModelSortMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTreeModelSortMethod "foreach" o = TreeModelForeachMethodInfo + ResolveTreeModelSortMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTreeModelSortMethod "hasDefaultSortFunc" o = TreeSortableHasDefaultSortFuncMethodInfo + ResolveTreeModelSortMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTreeModelSortMethod "iterChildren" o = TreeModelIterChildrenMethodInfo + ResolveTreeModelSortMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo + ResolveTreeModelSortMethod "iterIsValid" o = TreeModelSortIterIsValidMethodInfo + ResolveTreeModelSortMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo + ResolveTreeModelSortMethod "iterNext" o = TreeModelIterNextMethodInfo + ResolveTreeModelSortMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo + ResolveTreeModelSortMethod "iterParent" o = TreeModelIterParentMethodInfo + ResolveTreeModelSortMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo + ResolveTreeModelSortMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTreeModelSortMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTreeModelSortMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTreeModelSortMethod "refNode" o = TreeModelRefNodeMethodInfo + ResolveTreeModelSortMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTreeModelSortMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTreeModelSortMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTreeModelSortMethod "resetDefaultSortFunc" o = TreeModelSortResetDefaultSortFuncMethodInfo + ResolveTreeModelSortMethod "rowChanged" o = TreeModelRowChangedMethodInfo + ResolveTreeModelSortMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo + ResolveTreeModelSortMethod "rowDraggable" o = TreeDragSourceRowDraggableMethodInfo + ResolveTreeModelSortMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo + ResolveTreeModelSortMethod "rowInserted" o = TreeModelRowInsertedMethodInfo + ResolveTreeModelSortMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo + ResolveTreeModelSortMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTreeModelSortMethod "sortColumnChanged" o = TreeSortableSortColumnChangedMethodInfo + ResolveTreeModelSortMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo + ResolveTreeModelSortMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTreeModelSortMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTreeModelSortMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTreeModelSortMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTreeModelSortMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo + ResolveTreeModelSortMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTreeModelSortMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo + ResolveTreeModelSortMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTreeModelSortMethod "getFlags" o = TreeModelGetFlagsMethodInfo + ResolveTreeModelSortMethod "getIter" o = TreeModelGetIterMethodInfo + ResolveTreeModelSortMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo + ResolveTreeModelSortMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo + ResolveTreeModelSortMethod "getModel" o = TreeModelSortGetModelMethodInfo + ResolveTreeModelSortMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo + ResolveTreeModelSortMethod "getPath" o = TreeModelGetPathMethodInfo + ResolveTreeModelSortMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTreeModelSortMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTreeModelSortMethod "getSortColumnId" o = TreeSortableGetSortColumnIdMethodInfo + ResolveTreeModelSortMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo + ResolveTreeModelSortMethod "getValue" o = TreeModelGetValueMethodInfo + ResolveTreeModelSortMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTreeModelSortMethod "setDefaultSortFunc" o = TreeSortableSetDefaultSortFuncMethodInfo + ResolveTreeModelSortMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTreeModelSortMethod "setSortColumnId" o = TreeSortableSetSortColumnIdMethodInfo + ResolveTreeModelSortMethod "setSortFunc" o = TreeSortableSetSortFuncMethodInfo + ResolveTreeModelSortMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeModelSortMethod t TreeModelSort, MethodInfo info TreeModelSort p) => IsLabelProxy t (TreeModelSort -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeModelSortMethod t TreeModelSort, MethodInfo info TreeModelSort p) => IsLabel t (TreeModelSort -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] @@ -109,7 +194,7 @@ type AttrSetTypeConstraint TreeModelSortModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint TreeModelSortModelPropertyInfo = TreeModelSortK type AttrGetType TreeModelSortModelPropertyInfo = TreeModel - type AttrLabel TreeModelSortModelPropertyInfo = "TreeModelSort::model" + type AttrLabel TreeModelSortModelPropertyInfo = "model" attrGet _ = getTreeModelSortModel attrSet _ = undefined attrConstruct _ = constructTreeModelSortModel @@ -118,13 +203,12 @@ type TreeModelSortAttributeList = ('[ '("model", TreeModelSortModelPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TreeModelSort = TreeModelSortSignalList -type TreeModelSortSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("sort-column-changed", TreeSortableSortColumnChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TreeModelSortSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo), '("sortColumnChanged", TreeSortableSortColumnChangedSignalInfo)] :: [(Symbol, *)]) -- method TreeModelSort::clear_cache -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -136,19 +220,22 @@ treeModelSortClearCache :: (MonadIO m, TreeModelSortK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result treeModelSortClearCache _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_model_sort_clear_cache _obj' touchManagedPtr _obj return () +data TreeModelSortClearCacheMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortClearCacheMethodInfo a signature where + overloadedMethod _ = treeModelSortClearCache + -- method TreeModelSort::convert_child_iter_to_iter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -162,25 +249,28 @@ treeModelSortConvertChildIterToIter :: (MonadIO m, TreeModelSortK a) => - a -> -- _obj - TreeIter -> -- child_iter - m (Bool,TreeIter) -treeModelSortConvertChildIterToIter _obj child_iter = liftIO $ do + a -- _obj + -> TreeIter -- childIter + -> m (Bool,TreeIter) -- result +treeModelSortConvertChildIterToIter _obj childIter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - sort_iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let child_iter' = unsafeManagedPtrGetPtr child_iter - result <- gtk_tree_model_sort_convert_child_iter_to_iter _obj' sort_iter child_iter' + sortIter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) + let childIter' = unsafeManagedPtrGetPtr childIter + result <- gtk_tree_model_sort_convert_child_iter_to_iter _obj' sortIter childIter' let result' = (/= 0) result - sort_iter' <- (wrapBoxed TreeIter) sort_iter + sortIter' <- (wrapBoxed TreeIter) sortIter touchManagedPtr _obj - touchManagedPtr child_iter - return (result', sort_iter') + touchManagedPtr childIter + return (result', sortIter') +data TreeModelSortConvertChildIterToIterMethodInfo +instance (signature ~ (TreeIter -> m (Bool,TreeIter)), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortConvertChildIterToIterMethodInfo a signature where + overloadedMethod _ = treeModelSortConvertChildIterToIter + -- method TreeModelSort::convert_child_path_to_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreePath" -- throws : False -- Skip return : False @@ -193,24 +283,27 @@ treeModelSortConvertChildPathToPath :: (MonadIO m, TreeModelSortK a) => - a -> -- _obj - TreePath -> -- child_path - m TreePath -treeModelSortConvertChildPathToPath _obj child_path = liftIO $ do + a -- _obj + -> TreePath -- childPath + -> m TreePath -- result +treeModelSortConvertChildPathToPath _obj childPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let child_path' = unsafeManagedPtrGetPtr child_path - result <- gtk_tree_model_sort_convert_child_path_to_path _obj' child_path' + let childPath' = unsafeManagedPtrGetPtr childPath + result <- gtk_tree_model_sort_convert_child_path_to_path _obj' childPath' checkUnexpectedReturnNULL "gtk_tree_model_sort_convert_child_path_to_path" result result' <- (wrapBoxed TreePath) result touchManagedPtr _obj - touchManagedPtr child_path + touchManagedPtr childPath return result' +data TreeModelSortConvertChildPathToPathMethodInfo +instance (signature ~ (TreePath -> m TreePath), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortConvertChildPathToPathMethodInfo a signature where + overloadedMethod _ = treeModelSortConvertChildPathToPath + -- method TreeModelSort::convert_iter_to_child_iter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sorted_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "sorted_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sorted_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -224,24 +317,27 @@ treeModelSortConvertIterToChildIter :: (MonadIO m, TreeModelSortK a) => - a -> -- _obj - TreeIter -> -- sorted_iter - m (TreeIter) -treeModelSortConvertIterToChildIter _obj sorted_iter = liftIO $ do + a -- _obj + -> TreeIter -- sortedIter + -> m (TreeIter) -- result +treeModelSortConvertIterToChildIter _obj sortedIter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - child_iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let sorted_iter' = unsafeManagedPtrGetPtr sorted_iter - gtk_tree_model_sort_convert_iter_to_child_iter _obj' child_iter sorted_iter' - child_iter' <- (wrapBoxed TreeIter) child_iter + childIter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) + let sortedIter' = unsafeManagedPtrGetPtr sortedIter + gtk_tree_model_sort_convert_iter_to_child_iter _obj' childIter sortedIter' + childIter' <- (wrapBoxed TreeIter) childIter touchManagedPtr _obj - touchManagedPtr sorted_iter - return child_iter' + touchManagedPtr sortedIter + return childIter' +data TreeModelSortConvertIterToChildIterMethodInfo +instance (signature ~ (TreeIter -> m (TreeIter)), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortConvertIterToChildIterMethodInfo a signature where + overloadedMethod _ = treeModelSortConvertIterToChildIter + -- method TreeModelSort::convert_path_to_child_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sorted_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sorted_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sorted_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreePath" -- throws : False -- Skip return : False @@ -254,24 +350,27 @@ treeModelSortConvertPathToChildPath :: (MonadIO m, TreeModelSortK a) => - a -> -- _obj - TreePath -> -- sorted_path - m TreePath -treeModelSortConvertPathToChildPath _obj sorted_path = liftIO $ do + a -- _obj + -> TreePath -- sortedPath + -> m TreePath -- result +treeModelSortConvertPathToChildPath _obj sortedPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let sorted_path' = unsafeManagedPtrGetPtr sorted_path - result <- gtk_tree_model_sort_convert_path_to_child_path _obj' sorted_path' + let sortedPath' = unsafeManagedPtrGetPtr sortedPath + result <- gtk_tree_model_sort_convert_path_to_child_path _obj' sortedPath' checkUnexpectedReturnNULL "gtk_tree_model_sort_convert_path_to_child_path" result result' <- (wrapBoxed TreePath) result touchManagedPtr _obj - touchManagedPtr sorted_path + touchManagedPtr sortedPath return result' +data TreeModelSortConvertPathToChildPathMethodInfo +instance (signature ~ (TreePath -> m TreePath), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortConvertPathToChildPathMethodInfo a signature where + overloadedMethod _ = treeModelSortConvertPathToChildPath + -- method TreeModelSort::get_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeModel" -- throws : False -- Skip return : False @@ -283,8 +382,8 @@ treeModelSortGetModel :: (MonadIO m, TreeModelSortK a) => - a -> -- _obj - m TreeModel + a -- _obj + -> m TreeModel -- result treeModelSortGetModel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_model_sort_get_model _obj' @@ -293,11 +392,14 @@ touchManagedPtr _obj return result' +data TreeModelSortGetModelMethodInfo +instance (signature ~ (m TreeModel), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortGetModelMethodInfo a signature where + overloadedMethod _ = treeModelSortGetModel + -- method TreeModelSort::iter_is_valid -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -310,9 +412,9 @@ treeModelSortIterIsValid :: (MonadIO m, TreeModelSortK a) => - a -> -- _obj - TreeIter -> -- iter - m Bool + a -- _obj + -> TreeIter -- iter + -> m Bool -- result treeModelSortIterIsValid _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -322,11 +424,14 @@ touchManagedPtr iter return result' +data TreeModelSortIterIsValidMethodInfo +instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortIterIsValidMethodInfo a signature where + overloadedMethod _ = treeModelSortIterIsValid + -- method TreeModelSort::reset_default_sort_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -338,12 +443,16 @@ treeModelSortResetDefaultSortFunc :: (MonadIO m, TreeModelSortK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result treeModelSortResetDefaultSortFunc _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_model_sort_reset_default_sort_func _obj' touchManagedPtr _obj return () + +data TreeModelSortResetDefaultSortFuncMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeModelSortK a) => MethodInfo TreeModelSortResetDefaultSortFuncMethodInfo a signature where + overloadedMethod _ = treeModelSortResetDefaultSortFunc diff --git a/GI/Gtk/Objects/TreeModelSort.hs-boot b/GI/Gtk/Objects/TreeModelSort.hs-boot --- a/GI/Gtk/Objects/TreeModelSort.hs-boot +++ b/GI/Gtk/Objects/TreeModelSort.hs-boot @@ -12,3 +12,11 @@ class GObject o => TreeModelSortK o instance (GObject o, IsDescendantOf TreeModelSort o) => TreeModelSortK o data TreeModelSortModelPropertyInfo +data TreeModelSortClearCacheMethodInfo +data TreeModelSortConvertChildIterToIterMethodInfo +data TreeModelSortConvertChildPathToPathMethodInfo +data TreeModelSortConvertIterToChildIterMethodInfo +data TreeModelSortConvertPathToChildPathMethodInfo +data TreeModelSortGetModelMethodInfo +data TreeModelSortIterIsValidMethodInfo +data TreeModelSortResetDefaultSortFuncMethodInfo diff --git a/GI/Gtk/Objects/TreeSelection.hs b/GI/Gtk/Objects/TreeSelection.hs --- a/GI/Gtk/Objects/TreeSelection.hs +++ b/GI/Gtk/Objects/TreeSelection.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,74 +18,92 @@ -- * Methods -- ** treeSelectionCountSelectedRows + TreeSelectionCountSelectedRowsMethodInfo, treeSelectionCountSelectedRows , -- ** treeSelectionGetMode + TreeSelectionGetModeMethodInfo , treeSelectionGetMode , -- ** treeSelectionGetSelected + TreeSelectionGetSelectedMethodInfo , treeSelectionGetSelected , -- ** treeSelectionGetSelectedRows + TreeSelectionGetSelectedRowsMethodInfo , treeSelectionGetSelectedRows , -- ** treeSelectionGetTreeView + TreeSelectionGetTreeViewMethodInfo , treeSelectionGetTreeView , -- ** treeSelectionIterIsSelected + TreeSelectionIterIsSelectedMethodInfo , treeSelectionIterIsSelected , -- ** treeSelectionPathIsSelected + TreeSelectionPathIsSelectedMethodInfo , treeSelectionPathIsSelected , -- ** treeSelectionSelectAll + TreeSelectionSelectAllMethodInfo , treeSelectionSelectAll , -- ** treeSelectionSelectIter + TreeSelectionSelectIterMethodInfo , treeSelectionSelectIter , -- ** treeSelectionSelectPath + TreeSelectionSelectPathMethodInfo , treeSelectionSelectPath , -- ** treeSelectionSelectRange + TreeSelectionSelectRangeMethodInfo , treeSelectionSelectRange , -- ** treeSelectionSelectedForeach + TreeSelectionSelectedForeachMethodInfo , treeSelectionSelectedForeach , -- ** treeSelectionSetMode + TreeSelectionSetModeMethodInfo , treeSelectionSetMode , -- ** treeSelectionSetSelectFunction + TreeSelectionSetSelectFunctionMethodInfo, treeSelectionSetSelectFunction , -- ** treeSelectionUnselectAll + TreeSelectionUnselectAllMethodInfo , treeSelectionUnselectAll , -- ** treeSelectionUnselectIter + TreeSelectionUnselectIterMethodInfo , treeSelectionUnselectIter , -- ** treeSelectionUnselectPath + TreeSelectionUnselectPathMethodInfo , treeSelectionUnselectPath , -- ** treeSelectionUnselectRange + TreeSelectionUnselectRangeMethodInfo , treeSelectionUnselectRange , @@ -150,6 +169,57 @@ noTreeSelection :: Maybe TreeSelection noTreeSelection = Nothing +type family ResolveTreeSelectionMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeSelectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTreeSelectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTreeSelectionMethod "countSelectedRows" o = TreeSelectionCountSelectedRowsMethodInfo + ResolveTreeSelectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTreeSelectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTreeSelectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTreeSelectionMethod "iterIsSelected" o = TreeSelectionIterIsSelectedMethodInfo + ResolveTreeSelectionMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTreeSelectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTreeSelectionMethod "pathIsSelected" o = TreeSelectionPathIsSelectedMethodInfo + ResolveTreeSelectionMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTreeSelectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTreeSelectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTreeSelectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTreeSelectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTreeSelectionMethod "selectAll" o = TreeSelectionSelectAllMethodInfo + ResolveTreeSelectionMethod "selectIter" o = TreeSelectionSelectIterMethodInfo + ResolveTreeSelectionMethod "selectPath" o = TreeSelectionSelectPathMethodInfo + ResolveTreeSelectionMethod "selectRange" o = TreeSelectionSelectRangeMethodInfo + ResolveTreeSelectionMethod "selectedForeach" o = TreeSelectionSelectedForeachMethodInfo + ResolveTreeSelectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTreeSelectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTreeSelectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTreeSelectionMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTreeSelectionMethod "unselectAll" o = TreeSelectionUnselectAllMethodInfo + ResolveTreeSelectionMethod "unselectIter" o = TreeSelectionUnselectIterMethodInfo + ResolveTreeSelectionMethod "unselectPath" o = TreeSelectionUnselectPathMethodInfo + ResolveTreeSelectionMethod "unselectRange" o = TreeSelectionUnselectRangeMethodInfo + ResolveTreeSelectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTreeSelectionMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTreeSelectionMethod "getMode" o = TreeSelectionGetModeMethodInfo + ResolveTreeSelectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTreeSelectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTreeSelectionMethod "getSelected" o = TreeSelectionGetSelectedMethodInfo + ResolveTreeSelectionMethod "getSelectedRows" o = TreeSelectionGetSelectedRowsMethodInfo + ResolveTreeSelectionMethod "getTreeView" o = TreeSelectionGetTreeViewMethodInfo + ResolveTreeSelectionMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTreeSelectionMethod "setMode" o = TreeSelectionSetModeMethodInfo + ResolveTreeSelectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTreeSelectionMethod "setSelectFunction" o = TreeSelectionSetSelectFunctionMethodInfo + ResolveTreeSelectionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeSelectionMethod t TreeSelection, MethodInfo info TreeSelection p) => IsLabelProxy t (TreeSelection -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeSelectionMethod t TreeSelection, MethodInfo info TreeSelection p) => IsLabel t (TreeSelection -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal TreeSelection::changed type TreeSelectionChangedCallback = IO () @@ -207,7 +277,7 @@ type AttrSetTypeConstraint TreeSelectionModePropertyInfo = (~) SelectionMode type AttrBaseTypeConstraint TreeSelectionModePropertyInfo = TreeSelectionK type AttrGetType TreeSelectionModePropertyInfo = SelectionMode - type AttrLabel TreeSelectionModePropertyInfo = "TreeSelection::mode" + type AttrLabel TreeSelectionModePropertyInfo = "mode" attrGet _ = getTreeSelectionMode attrSet _ = setTreeSelectionMode attrConstruct _ = constructTreeSelectionMode @@ -221,13 +291,12 @@ connectSignal _ = connectTreeSelectionChanged type instance SignalList TreeSelection = TreeSelectionSignalList -type TreeSelectionSignalList = ('[ '("changed", TreeSelectionChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TreeSelectionSignalList = ('[ '("changed", TreeSelectionChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TreeSelection::count_selected_rows -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -239,19 +308,22 @@ treeSelectionCountSelectedRows :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result treeSelectionCountSelectedRows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_selection_count_selected_rows _obj' touchManagedPtr _obj return result +data TreeSelectionCountSelectedRowsMethodInfo +instance (signature ~ (m Int32), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionCountSelectedRowsMethodInfo a signature where + overloadedMethod _ = treeSelectionCountSelectedRows + -- method TreeSelection::get_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SelectionMode" -- throws : False -- Skip return : False @@ -263,8 +335,8 @@ treeSelectionGetMode :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - m SelectionMode + a -- _obj + -> m SelectionMode -- result treeSelectionGetMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_selection_get_mode _obj' @@ -272,11 +344,14 @@ touchManagedPtr _obj return result' +data TreeSelectionGetModeMethodInfo +instance (signature ~ (m SelectionMode), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionGetModeMethodInfo a signature where + overloadedMethod _ = treeSelectionGetMode + -- method TreeSelection::get_selected -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -290,8 +365,8 @@ treeSelectionGetSelected :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - m (Bool,TreeModel,TreeIter) + a -- _obj + -> m (Bool,TreeModel,TreeIter) -- result treeSelectionGetSelected _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj model <- allocMem :: IO (Ptr (Ptr TreeModel)) @@ -305,11 +380,14 @@ freeMem model return (result', model'', iter') +data TreeSelectionGetSelectedMethodInfo +instance (signature ~ (m (Bool,TreeModel,TreeIter)), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionGetSelectedMethodInfo a signature where + overloadedMethod _ = treeSelectionGetSelected + -- method TreeSelection::get_selected_rows -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -322,8 +400,8 @@ treeSelectionGetSelectedRows :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - m ([TreePath],TreeModel) + a -- _obj + -> m ([TreePath],TreeModel) -- result treeSelectionGetSelectedRows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj model <- allocMem :: IO (Ptr (Ptr TreeModel)) @@ -338,11 +416,14 @@ freeMem model return (result'', model'') +data TreeSelectionGetSelectedRowsMethodInfo +instance (signature ~ (m ([TreePath],TreeModel)), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionGetSelectedRowsMethodInfo a signature where + overloadedMethod _ = treeSelectionGetSelectedRows + -- method TreeSelection::get_tree_view -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeView" -- throws : False -- Skip return : False @@ -354,8 +435,8 @@ treeSelectionGetTreeView :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - m TreeView + a -- _obj + -> m TreeView -- result treeSelectionGetTreeView _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_selection_get_tree_view _obj' @@ -364,11 +445,14 @@ touchManagedPtr _obj return result' +data TreeSelectionGetTreeViewMethodInfo +instance (signature ~ (m TreeView), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionGetTreeViewMethodInfo a signature where + overloadedMethod _ = treeSelectionGetTreeView + -- method TreeSelection::iter_is_selected -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -381,9 +465,9 @@ treeSelectionIterIsSelected :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - TreeIter -> -- iter - m Bool + a -- _obj + -> TreeIter -- iter + -> m Bool -- result treeSelectionIterIsSelected _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -393,11 +477,14 @@ touchManagedPtr iter return result' +data TreeSelectionIterIsSelectedMethodInfo +instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionIterIsSelectedMethodInfo a signature where + overloadedMethod _ = treeSelectionIterIsSelected + -- method TreeSelection::path_is_selected -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -410,9 +497,9 @@ treeSelectionPathIsSelected :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - TreePath -> -- path - m Bool + a -- _obj + -> TreePath -- path + -> m Bool -- result treeSelectionPathIsSelected _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -422,11 +509,14 @@ touchManagedPtr path return result' +data TreeSelectionPathIsSelectedMethodInfo +instance (signature ~ (TreePath -> m Bool), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionPathIsSelectedMethodInfo a signature where + overloadedMethod _ = treeSelectionPathIsSelected + -- method TreeSelection::select_all -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -438,19 +528,22 @@ treeSelectionSelectAll :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result treeSelectionSelectAll _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_selection_select_all _obj' touchManagedPtr _obj return () +data TreeSelectionSelectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSelectAllMethodInfo a signature where + overloadedMethod _ = treeSelectionSelectAll + -- method TreeSelection::select_iter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -463,9 +556,9 @@ treeSelectionSelectIter :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - TreeIter -> -- iter - m () + a -- _obj + -> TreeIter -- iter + -> m () -- result treeSelectionSelectIter _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -474,11 +567,14 @@ touchManagedPtr iter return () +data TreeSelectionSelectIterMethodInfo +instance (signature ~ (TreeIter -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSelectIterMethodInfo a signature where + overloadedMethod _ = treeSelectionSelectIter + -- method TreeSelection::select_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -491,9 +587,9 @@ treeSelectionSelectPath :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - TreePath -> -- path - m () + a -- _obj + -> TreePath -- path + -> m () -- result treeSelectionSelectPath _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -502,11 +598,14 @@ touchManagedPtr path return () +data TreeSelectionSelectPathMethodInfo +instance (signature ~ (TreePath -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSelectPathMethodInfo a signature where + overloadedMethod _ = treeSelectionSelectPath + -- method TreeSelection::select_range -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -520,25 +619,28 @@ treeSelectionSelectRange :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - TreePath -> -- start_path - TreePath -> -- end_path - m () -treeSelectionSelectRange _obj start_path end_path = liftIO $ do + a -- _obj + -> TreePath -- startPath + -> TreePath -- endPath + -> m () -- result +treeSelectionSelectRange _obj startPath endPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let start_path' = unsafeManagedPtrGetPtr start_path - let end_path' = unsafeManagedPtrGetPtr end_path - gtk_tree_selection_select_range _obj' start_path' end_path' + let startPath' = unsafeManagedPtrGetPtr startPath + let endPath' = unsafeManagedPtrGetPtr endPath + gtk_tree_selection_select_range _obj' startPath' endPath' touchManagedPtr _obj - touchManagedPtr start_path - touchManagedPtr end_path + touchManagedPtr startPath + touchManagedPtr endPath return () +data TreeSelectionSelectRangeMethodInfo +instance (signature ~ (TreePath -> TreePath -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSelectRangeMethodInfo a signature where + overloadedMethod _ = treeSelectionSelectRange + -- method TreeSelection::selected_foreach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeSelectionForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeSelectionForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeSelectionForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -552,9 +654,9 @@ treeSelectionSelectedForeach :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - TreeSelectionForeachFunc -> -- func - m () + a -- _obj + -> TreeSelectionForeachFunc -- func + -> m () -- result treeSelectionSelectedForeach _obj func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj func' <- mkTreeSelectionForeachFunc (treeSelectionForeachFuncWrapper Nothing func) @@ -564,11 +666,14 @@ touchManagedPtr _obj return () +data TreeSelectionSelectedForeachMethodInfo +instance (signature ~ (TreeSelectionForeachFunc -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSelectedForeachMethodInfo a signature where + overloadedMethod _ = treeSelectionSelectedForeach + -- method TreeSelection::set_mode -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -581,9 +686,9 @@ treeSelectionSetMode :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - SelectionMode -> -- type - m () + a -- _obj + -> SelectionMode -- type_ + -> m () -- result treeSelectionSetMode _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let type_' = (fromIntegral . fromEnum) type_ @@ -591,11 +696,14 @@ touchManagedPtr _obj return () +data TreeSelectionSetModeMethodInfo +instance (signature ~ (SelectionMode -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSetModeMethodInfo a signature where + overloadedMethod _ = treeSelectionSetMode + -- method TreeSelection::set_select_function -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeSelectionFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeSelectionFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeSelectionFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -610,9 +718,9 @@ treeSelectionSetSelectFunction :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - TreeSelectionFunc -> -- func - m () + a -- _obj + -> TreeSelectionFunc -- func + -> m () -- result treeSelectionSetSelectFunction _obj func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj func' <- mkTreeSelectionFunc (treeSelectionFuncWrapper Nothing func) @@ -622,11 +730,14 @@ touchManagedPtr _obj return () +data TreeSelectionSetSelectFunctionMethodInfo +instance (signature ~ (TreeSelectionFunc -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionSetSelectFunctionMethodInfo a signature where + overloadedMethod _ = treeSelectionSetSelectFunction + -- method TreeSelection::unselect_all -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -638,19 +749,22 @@ treeSelectionUnselectAll :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result treeSelectionUnselectAll _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_selection_unselect_all _obj' touchManagedPtr _obj return () +data TreeSelectionUnselectAllMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionUnselectAllMethodInfo a signature where + overloadedMethod _ = treeSelectionUnselectAll + -- method TreeSelection::unselect_iter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -663,9 +777,9 @@ treeSelectionUnselectIter :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - TreeIter -> -- iter - m () + a -- _obj + -> TreeIter -- iter + -> m () -- result treeSelectionUnselectIter _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -674,11 +788,14 @@ touchManagedPtr iter return () +data TreeSelectionUnselectIterMethodInfo +instance (signature ~ (TreeIter -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionUnselectIterMethodInfo a signature where + overloadedMethod _ = treeSelectionUnselectIter + -- method TreeSelection::unselect_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -691,9 +808,9 @@ treeSelectionUnselectPath :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - TreePath -> -- path - m () + a -- _obj + -> TreePath -- path + -> m () -- result treeSelectionUnselectPath _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let path' = unsafeManagedPtrGetPtr path @@ -702,11 +819,14 @@ touchManagedPtr path return () +data TreeSelectionUnselectPathMethodInfo +instance (signature ~ (TreePath -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionUnselectPathMethodInfo a signature where + overloadedMethod _ = treeSelectionUnselectPath + -- method TreeSelection::unselect_range -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -720,18 +840,22 @@ treeSelectionUnselectRange :: (MonadIO m, TreeSelectionK a) => - a -> -- _obj - TreePath -> -- start_path - TreePath -> -- end_path - m () -treeSelectionUnselectRange _obj start_path end_path = liftIO $ do + a -- _obj + -> TreePath -- startPath + -> TreePath -- endPath + -> m () -- result +treeSelectionUnselectRange _obj startPath endPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let start_path' = unsafeManagedPtrGetPtr start_path - let end_path' = unsafeManagedPtrGetPtr end_path - gtk_tree_selection_unselect_range _obj' start_path' end_path' + let startPath' = unsafeManagedPtrGetPtr startPath + let endPath' = unsafeManagedPtrGetPtr endPath + gtk_tree_selection_unselect_range _obj' startPath' endPath' touchManagedPtr _obj - touchManagedPtr start_path - touchManagedPtr end_path + touchManagedPtr startPath + touchManagedPtr endPath return () + +data TreeSelectionUnselectRangeMethodInfo +instance (signature ~ (TreePath -> TreePath -> m ()), MonadIO m, TreeSelectionK a) => MethodInfo TreeSelectionUnselectRangeMethodInfo a signature where + overloadedMethod _ = treeSelectionUnselectRange diff --git a/GI/Gtk/Objects/TreeSelection.hs-boot b/GI/Gtk/Objects/TreeSelection.hs-boot --- a/GI/Gtk/Objects/TreeSelection.hs-boot +++ b/GI/Gtk/Objects/TreeSelection.hs-boot @@ -13,3 +13,21 @@ instance (GObject o, IsDescendantOf TreeSelection o) => TreeSelectionK o data TreeSelectionModePropertyInfo data TreeSelectionChangedSignalInfo +data TreeSelectionCountSelectedRowsMethodInfo +data TreeSelectionGetModeMethodInfo +data TreeSelectionGetSelectedMethodInfo +data TreeSelectionGetSelectedRowsMethodInfo +data TreeSelectionGetTreeViewMethodInfo +data TreeSelectionIterIsSelectedMethodInfo +data TreeSelectionPathIsSelectedMethodInfo +data TreeSelectionSelectAllMethodInfo +data TreeSelectionSelectIterMethodInfo +data TreeSelectionSelectPathMethodInfo +data TreeSelectionSelectRangeMethodInfo +data TreeSelectionSelectedForeachMethodInfo +data TreeSelectionSetModeMethodInfo +data TreeSelectionSetSelectFunctionMethodInfo +data TreeSelectionUnselectAllMethodInfo +data TreeSelectionUnselectIterMethodInfo +data TreeSelectionUnselectPathMethodInfo +data TreeSelectionUnselectRangeMethodInfo diff --git a/GI/Gtk/Objects/TreeStore.hs b/GI/Gtk/Objects/TreeStore.hs --- a/GI/Gtk/Objects/TreeStore.hs +++ b/GI/Gtk/Objects/TreeStore.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,46 +18,57 @@ -- * Methods -- ** treeStoreAppend + TreeStoreAppendMethodInfo , treeStoreAppend , -- ** treeStoreClear + TreeStoreClearMethodInfo , treeStoreClear , -- ** treeStoreInsert + TreeStoreInsertMethodInfo , treeStoreInsert , -- ** treeStoreInsertAfter + TreeStoreInsertAfterMethodInfo , treeStoreInsertAfter , -- ** treeStoreInsertBefore + TreeStoreInsertBeforeMethodInfo , treeStoreInsertBefore , -- ** treeStoreInsertWithValues + TreeStoreInsertWithValuesMethodInfo , treeStoreInsertWithValues , -- ** treeStoreIsAncestor + TreeStoreIsAncestorMethodInfo , treeStoreIsAncestor , -- ** treeStoreIterDepth + TreeStoreIterDepthMethodInfo , treeStoreIterDepth , -- ** treeStoreIterIsValid + TreeStoreIterIsValidMethodInfo , treeStoreIterIsValid , -- ** treeStoreMoveAfter + TreeStoreMoveAfterMethodInfo , treeStoreMoveAfter , -- ** treeStoreMoveBefore + TreeStoreMoveBeforeMethodInfo , treeStoreMoveBefore , @@ -65,26 +77,32 @@ -- ** treeStorePrepend + TreeStorePrependMethodInfo , treeStorePrepend , -- ** treeStoreRemove + TreeStoreRemoveMethodInfo , treeStoreRemove , -- ** treeStoreSet + TreeStoreSetMethodInfo , treeStoreSet , -- ** treeStoreSetColumnTypes + TreeStoreSetColumnTypesMethodInfo , treeStoreSetColumnTypes , -- ** treeStoreSetValue + TreeStoreSetValueMethodInfo , treeStoreSetValue , -- ** treeStoreSwap + TreeStoreSwapMethodInfo , treeStoreSwap , @@ -124,17 +142,113 @@ noTreeStore :: Maybe TreeStore noTreeStore = Nothing +type family ResolveTreeStoreMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeStoreMethod "addChild" o = BuildableAddChildMethodInfo + ResolveTreeStoreMethod "append" o = TreeStoreAppendMethodInfo + ResolveTreeStoreMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTreeStoreMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTreeStoreMethod "clear" o = TreeStoreClearMethodInfo + ResolveTreeStoreMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveTreeStoreMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveTreeStoreMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveTreeStoreMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveTreeStoreMethod "dragDataDelete" o = TreeDragSourceDragDataDeleteMethodInfo + ResolveTreeStoreMethod "dragDataGet" o = TreeDragSourceDragDataGetMethodInfo + ResolveTreeStoreMethod "dragDataReceived" o = TreeDragDestDragDataReceivedMethodInfo + ResolveTreeStoreMethod "filterNew" o = TreeModelFilterNewMethodInfo + ResolveTreeStoreMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTreeStoreMethod "foreach" o = TreeModelForeachMethodInfo + ResolveTreeStoreMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTreeStoreMethod "hasDefaultSortFunc" o = TreeSortableHasDefaultSortFuncMethodInfo + ResolveTreeStoreMethod "insert" o = TreeStoreInsertMethodInfo + ResolveTreeStoreMethod "insertAfter" o = TreeStoreInsertAfterMethodInfo + ResolveTreeStoreMethod "insertBefore" o = TreeStoreInsertBeforeMethodInfo + ResolveTreeStoreMethod "insertWithValues" o = TreeStoreInsertWithValuesMethodInfo + ResolveTreeStoreMethod "isAncestor" o = TreeStoreIsAncestorMethodInfo + ResolveTreeStoreMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTreeStoreMethod "iterChildren" o = TreeModelIterChildrenMethodInfo + ResolveTreeStoreMethod "iterDepth" o = TreeStoreIterDepthMethodInfo + ResolveTreeStoreMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo + ResolveTreeStoreMethod "iterIsValid" o = TreeStoreIterIsValidMethodInfo + ResolveTreeStoreMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo + ResolveTreeStoreMethod "iterNext" o = TreeModelIterNextMethodInfo + ResolveTreeStoreMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo + ResolveTreeStoreMethod "iterParent" o = TreeModelIterParentMethodInfo + ResolveTreeStoreMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo + ResolveTreeStoreMethod "moveAfter" o = TreeStoreMoveAfterMethodInfo + ResolveTreeStoreMethod "moveBefore" o = TreeStoreMoveBeforeMethodInfo + ResolveTreeStoreMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTreeStoreMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTreeStoreMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveTreeStoreMethod "prepend" o = TreeStorePrependMethodInfo + ResolveTreeStoreMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTreeStoreMethod "refNode" o = TreeModelRefNodeMethodInfo + ResolveTreeStoreMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTreeStoreMethod "remove" o = TreeStoreRemoveMethodInfo + ResolveTreeStoreMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTreeStoreMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTreeStoreMethod "rowChanged" o = TreeModelRowChangedMethodInfo + ResolveTreeStoreMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo + ResolveTreeStoreMethod "rowDraggable" o = TreeDragSourceRowDraggableMethodInfo + ResolveTreeStoreMethod "rowDropPossible" o = TreeDragDestRowDropPossibleMethodInfo + ResolveTreeStoreMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo + ResolveTreeStoreMethod "rowInserted" o = TreeModelRowInsertedMethodInfo + ResolveTreeStoreMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo + ResolveTreeStoreMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTreeStoreMethod "set" o = TreeStoreSetMethodInfo + ResolveTreeStoreMethod "sortColumnChanged" o = TreeSortableSortColumnChangedMethodInfo + ResolveTreeStoreMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo + ResolveTreeStoreMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTreeStoreMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTreeStoreMethod "swap" o = TreeStoreSwapMethodInfo + ResolveTreeStoreMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTreeStoreMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTreeStoreMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo + ResolveTreeStoreMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTreeStoreMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo + ResolveTreeStoreMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTreeStoreMethod "getFlags" o = TreeModelGetFlagsMethodInfo + ResolveTreeStoreMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveTreeStoreMethod "getIter" o = TreeModelGetIterMethodInfo + ResolveTreeStoreMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo + ResolveTreeStoreMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo + ResolveTreeStoreMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo + ResolveTreeStoreMethod "getName" o = BuildableGetNameMethodInfo + ResolveTreeStoreMethod "getPath" o = TreeModelGetPathMethodInfo + ResolveTreeStoreMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTreeStoreMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTreeStoreMethod "getSortColumnId" o = TreeSortableGetSortColumnIdMethodInfo + ResolveTreeStoreMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo + ResolveTreeStoreMethod "getValue" o = TreeModelGetValueMethodInfo + ResolveTreeStoreMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveTreeStoreMethod "setColumnTypes" o = TreeStoreSetColumnTypesMethodInfo + ResolveTreeStoreMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTreeStoreMethod "setDefaultSortFunc" o = TreeSortableSetDefaultSortFuncMethodInfo + ResolveTreeStoreMethod "setName" o = BuildableSetNameMethodInfo + ResolveTreeStoreMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTreeStoreMethod "setSortColumnId" o = TreeSortableSetSortColumnIdMethodInfo + ResolveTreeStoreMethod "setSortFunc" o = TreeSortableSetSortFuncMethodInfo + ResolveTreeStoreMethod "setValue" o = TreeStoreSetValueMethodInfo + ResolveTreeStoreMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeStoreMethod t TreeStore, MethodInfo info TreeStore p) => IsLabelProxy t (TreeStore -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeStoreMethod t TreeStore, MethodInfo info TreeStore p) => IsLabel t (TreeStore -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList TreeStore = TreeStoreAttributeList type TreeStoreAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList TreeStore = TreeStoreSignalList -type TreeStoreSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("sort-column-changed", TreeSortableSortColumnChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TreeStoreSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo), '("sortColumnChanged", TreeSortableSortColumnChangedSignalInfo)] :: [(Symbol, *)]) -- method TreeStore::new -- method type : Constructor --- Args : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeStore" -- throws : False -- Skip return : False @@ -147,12 +261,12 @@ treeStoreNew :: (MonadIO m) => - [GType] -> -- types - m TreeStore + [GType] -- types + -> m TreeStore -- result treeStoreNew types = liftIO $ do - let n_columns = fromIntegral $ length types + let nColumns = fromIntegral $ length types types' <- (packMapStorableArray gtypeToCGType) types - result <- gtk_tree_store_newv n_columns types' + result <- gtk_tree_store_newv nColumns types' checkUnexpectedReturnNULL "gtk_tree_store_newv" result result' <- (wrapObject TreeStore) result freeMem types' @@ -160,9 +274,8 @@ -- method TreeStore::append -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -176,9 +289,9 @@ treeStoreAppend :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - Maybe (TreeIter) -> -- parent - m (TreeIter) + a -- _obj + -> Maybe (TreeIter) -- parent + -> m (TreeIter) -- result treeStoreAppend _obj parent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -193,11 +306,14 @@ whenJust parent touchManagedPtr return iter' +data TreeStoreAppendMethodInfo +instance (signature ~ (Maybe (TreeIter) -> m (TreeIter)), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreAppendMethodInfo a signature where + overloadedMethod _ = treeStoreAppend + -- method TreeStore::clear -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -209,19 +325,22 @@ treeStoreClear :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result treeStoreClear _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_store_clear _obj' touchManagedPtr _obj return () +data TreeStoreClearMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreClearMethodInfo a signature where + overloadedMethod _ = treeStoreClear + -- method TreeStore::insert -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -236,10 +355,10 @@ treeStoreInsert :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - Maybe (TreeIter) -> -- parent - Int32 -> -- position - m (TreeIter) + a -- _obj + -> Maybe (TreeIter) -- parent + -> Int32 -- position + -> m (TreeIter) -- result treeStoreInsert _obj parent position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -254,11 +373,14 @@ whenJust parent touchManagedPtr return iter' +data TreeStoreInsertMethodInfo +instance (signature ~ (Maybe (TreeIter) -> Int32 -> m (TreeIter)), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreInsertMethodInfo a signature where + overloadedMethod _ = treeStoreInsert + -- method TreeStore::insert_after -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -273,10 +395,10 @@ treeStoreInsertAfter :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - Maybe (TreeIter) -> -- parent - Maybe (TreeIter) -> -- sibling - m (TreeIter) + a -- _obj + -> Maybe (TreeIter) -- parent + -> Maybe (TreeIter) -- sibling + -> m (TreeIter) -- result treeStoreInsertAfter _obj parent sibling = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -297,11 +419,14 @@ whenJust sibling touchManagedPtr return iter' +data TreeStoreInsertAfterMethodInfo +instance (signature ~ (Maybe (TreeIter) -> Maybe (TreeIter) -> m (TreeIter)), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreInsertAfterMethodInfo a signature where + overloadedMethod _ = treeStoreInsertAfter + -- method TreeStore::insert_before -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -316,10 +441,10 @@ treeStoreInsertBefore :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - Maybe (TreeIter) -> -- parent - Maybe (TreeIter) -> -- sibling - m (TreeIter) + a -- _obj + -> Maybe (TreeIter) -- parent + -> Maybe (TreeIter) -- sibling + -> m (TreeIter) -- result treeStoreInsertBefore _obj parent sibling = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -340,11 +465,14 @@ whenJust sibling touchManagedPtr return iter' +data TreeStoreInsertBeforeMethodInfo +instance (signature ~ (Maybe (TreeIter) -> Maybe (TreeIter) -> m (TreeIter)), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreInsertBeforeMethodInfo a signature where + overloadedMethod _ = treeStoreInsertBefore + -- method TreeStore::insert_with_values -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 6 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 6 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 6 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 6 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 6 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 6 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -362,16 +490,16 @@ treeStoreInsertWithValues :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - Maybe (TreeIter) -> -- parent - Int32 -> -- position - [Int32] -> -- columns - [GValue] -> -- values - m (TreeIter) + a -- _obj + -> Maybe (TreeIter) -- parent + -> Int32 -- position + -> [Int32] -- columns + -> [GValue] -- values + -> m (TreeIter) -- result treeStoreInsertWithValues _obj parent position columns values = liftIO $ do - let n_values = fromIntegral $ length values + let nValues = fromIntegral $ length values let columns_expected_length_ = fromIntegral $ length columns - when (columns_expected_length_ /= n_values) $ + when (columns_expected_length_ /= nValues) $ error "Gtk.treeStoreInsertWithValues : length of 'columns' does not agree with that of 'values'." let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -383,7 +511,7 @@ columns' <- packStorableArray columns let values' = map unsafeManagedPtrGetPtr values values'' <- packBlockArray 24 values' - gtk_tree_store_insert_with_valuesv _obj' iter maybeParent position columns' values'' n_values + gtk_tree_store_insert_with_valuesv _obj' iter maybeParent position columns' values'' nValues iter' <- (wrapBoxed TreeIter) iter touchManagedPtr _obj whenJust parent touchManagedPtr @@ -392,11 +520,14 @@ freeMem values'' return iter' +data TreeStoreInsertWithValuesMethodInfo +instance (signature ~ (Maybe (TreeIter) -> Int32 -> [Int32] -> [GValue] -> m (TreeIter)), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreInsertWithValuesMethodInfo a signature where + overloadedMethod _ = treeStoreInsertWithValues + -- method TreeStore::is_ancestor -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "descendant", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -410,10 +541,10 @@ treeStoreIsAncestor :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - TreeIter -> -- iter - TreeIter -> -- descendant - m Bool + a -- _obj + -> TreeIter -- iter + -> TreeIter -- descendant + -> m Bool -- result treeStoreIsAncestor _obj iter descendant = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -425,11 +556,14 @@ touchManagedPtr descendant return result' +data TreeStoreIsAncestorMethodInfo +instance (signature ~ (TreeIter -> TreeIter -> m Bool), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreIsAncestorMethodInfo a signature where + overloadedMethod _ = treeStoreIsAncestor + -- method TreeStore::iter_depth -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -442,9 +576,9 @@ treeStoreIterDepth :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - TreeIter -> -- iter - m Int32 + a -- _obj + -> TreeIter -- iter + -> m Int32 -- result treeStoreIterDepth _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -453,11 +587,14 @@ touchManagedPtr iter return result +data TreeStoreIterDepthMethodInfo +instance (signature ~ (TreeIter -> m Int32), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreIterDepthMethodInfo a signature where + overloadedMethod _ = treeStoreIterDepth + -- method TreeStore::iter_is_valid -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -470,9 +607,9 @@ treeStoreIterIsValid :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - TreeIter -> -- iter - m Bool + a -- _obj + -> TreeIter -- iter + -> m Bool -- result treeStoreIterIsValid _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -482,11 +619,14 @@ touchManagedPtr iter return result' +data TreeStoreIterIsValidMethodInfo +instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreIterIsValidMethodInfo a signature where + overloadedMethod _ = treeStoreIterIsValid + -- method TreeStore::move_after -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -500,10 +640,10 @@ treeStoreMoveAfter :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - TreeIter -> -- iter - Maybe (TreeIter) -> -- position - m () + a -- _obj + -> TreeIter -- iter + -> Maybe (TreeIter) -- position + -> m () -- result treeStoreMoveAfter _obj iter position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -518,11 +658,14 @@ whenJust position touchManagedPtr return () +data TreeStoreMoveAfterMethodInfo +instance (signature ~ (TreeIter -> Maybe (TreeIter) -> m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreMoveAfterMethodInfo a signature where + overloadedMethod _ = treeStoreMoveAfter + -- method TreeStore::move_before -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -536,10 +679,10 @@ treeStoreMoveBefore :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - TreeIter -> -- iter - Maybe (TreeIter) -> -- position - m () + a -- _obj + -> TreeIter -- iter + -> Maybe (TreeIter) -- position + -> m () -- result treeStoreMoveBefore _obj iter position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -554,11 +697,14 @@ whenJust position touchManagedPtr return () +data TreeStoreMoveBeforeMethodInfo +instance (signature ~ (TreeIter -> Maybe (TreeIter) -> m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreMoveBeforeMethodInfo a signature where + overloadedMethod _ = treeStoreMoveBefore + -- method TreeStore::prepend -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -572,9 +718,9 @@ treeStorePrepend :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - Maybe (TreeIter) -> -- parent - m (TreeIter) + a -- _obj + -> Maybe (TreeIter) -- parent + -> m (TreeIter) -- result treeStorePrepend _obj parent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) @@ -589,11 +735,14 @@ whenJust parent touchManagedPtr return iter' +data TreeStorePrependMethodInfo +instance (signature ~ (Maybe (TreeIter) -> m (TreeIter)), MonadIO m, TreeStoreK a) => MethodInfo TreeStorePrependMethodInfo a signature where + overloadedMethod _ = treeStorePrepend + -- method TreeStore::remove -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -606,9 +755,9 @@ treeStoreRemove :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - TreeIter -> -- iter - m Bool + a -- _obj + -> TreeIter -- iter + -> m Bool -- result treeStoreRemove _obj iter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -618,11 +767,14 @@ touchManagedPtr iter return result' +data TreeStoreRemoveMethodInfo +instance (signature ~ (TreeIter -> m Bool), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreRemoveMethodInfo a signature where + overloadedMethod _ = treeStoreRemove + -- method TreeStore::set_column_types -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -636,23 +788,26 @@ treeStoreSetColumnTypes :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - [GType] -> -- types - m () + a -- _obj + -> [GType] -- types + -> m () -- result treeStoreSetColumnTypes _obj types = liftIO $ do - let n_columns = fromIntegral $ length types + let nColumns = fromIntegral $ length types let _obj' = unsafeManagedPtrCastPtr _obj types' <- (packMapStorableArray gtypeToCGType) types - gtk_tree_store_set_column_types _obj' n_columns types' + gtk_tree_store_set_column_types _obj' nColumns types' touchManagedPtr _obj freeMem types' return () +data TreeStoreSetColumnTypesMethodInfo +instance (signature ~ ([GType] -> m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreSetColumnTypesMethodInfo a signature where + overloadedMethod _ = treeStoreSetColumnTypes + -- method TreeStore::set_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -667,11 +822,11 @@ treeStoreSetValue :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - TreeIter -> -- iter - Int32 -> -- column - GValue -> -- value - m () + a -- _obj + -> TreeIter -- iter + -> Int32 -- column + -> GValue -- value + -> m () -- result treeStoreSetValue _obj iter column value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter @@ -682,11 +837,14 @@ touchManagedPtr value return () +data TreeStoreSetValueMethodInfo +instance (signature ~ (TreeIter -> Int32 -> GValue -> m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreSetValueMethodInfo a signature where + overloadedMethod _ = treeStoreSetValue + -- method TreeStore::set -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -702,22 +860,22 @@ treeStoreSet :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - TreeIter -> -- iter - [Int32] -> -- columns - [GValue] -> -- values - m () + a -- _obj + -> TreeIter -- iter + -> [Int32] -- columns + -> [GValue] -- values + -> m () -- result treeStoreSet _obj iter columns values = liftIO $ do - let n_values = fromIntegral $ length values + let nValues = fromIntegral $ length values let columns_expected_length_ = fromIntegral $ length columns - when (columns_expected_length_ /= n_values) $ + when (columns_expected_length_ /= nValues) $ error "Gtk.treeStoreSet : length of 'columns' does not agree with that of 'values'." let _obj' = unsafeManagedPtrCastPtr _obj let iter' = unsafeManagedPtrGetPtr iter columns' <- packStorableArray columns let values' = map unsafeManagedPtrGetPtr values values'' <- packBlockArray 24 values' - gtk_tree_store_set_valuesv _obj' iter' columns' values'' n_values + gtk_tree_store_set_valuesv _obj' iter' columns' values'' nValues touchManagedPtr _obj touchManagedPtr iter mapM_ touchManagedPtr values @@ -725,11 +883,14 @@ freeMem values'' return () +data TreeStoreSetMethodInfo +instance (signature ~ (TreeIter -> [Int32] -> [GValue] -> m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreSetMethodInfo a signature where + overloadedMethod _ = treeStoreSet + -- method TreeStore::swap -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -743,10 +904,10 @@ treeStoreSwap :: (MonadIO m, TreeStoreK a) => - a -> -- _obj - TreeIter -> -- a - TreeIter -> -- b - m () + a -- _obj + -> TreeIter -- a + -> TreeIter -- b + -> m () -- result treeStoreSwap _obj a b = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let a' = unsafeManagedPtrGetPtr a @@ -756,5 +917,9 @@ touchManagedPtr a touchManagedPtr b return () + +data TreeStoreSwapMethodInfo +instance (signature ~ (TreeIter -> TreeIter -> m ()), MonadIO m, TreeStoreK a) => MethodInfo TreeStoreSwapMethodInfo a signature where + overloadedMethod _ = treeStoreSwap diff --git a/GI/Gtk/Objects/TreeStore.hs-boot b/GI/Gtk/Objects/TreeStore.hs-boot --- a/GI/Gtk/Objects/TreeStore.hs-boot +++ b/GI/Gtk/Objects/TreeStore.hs-boot @@ -11,3 +11,20 @@ instance GObject TreeStore where class GObject o => TreeStoreK o instance (GObject o, IsDescendantOf TreeStore o) => TreeStoreK o +data TreeStoreAppendMethodInfo +data TreeStoreClearMethodInfo +data TreeStoreInsertMethodInfo +data TreeStoreInsertAfterMethodInfo +data TreeStoreInsertBeforeMethodInfo +data TreeStoreInsertWithValuesMethodInfo +data TreeStoreIsAncestorMethodInfo +data TreeStoreIterDepthMethodInfo +data TreeStoreIterIsValidMethodInfo +data TreeStoreMoveAfterMethodInfo +data TreeStoreMoveBeforeMethodInfo +data TreeStorePrependMethodInfo +data TreeStoreRemoveMethodInfo +data TreeStoreSetColumnTypesMethodInfo +data TreeStoreSetValueMethodInfo +data TreeStoreSetMethodInfo +data TreeStoreSwapMethodInfo diff --git a/GI/Gtk/Objects/TreeView.hs b/GI/Gtk/Objects/TreeView.hs --- a/GI/Gtk/Objects/TreeView.hs +++ b/GI/Gtk/Objects/TreeView.hs @@ -1,4893 +1,5690 @@ -{- | -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.Objects.TreeView - ( - --- * Exported types - TreeView(..) , - TreeViewK , - toTreeView , - noTreeView , - - - -- * Methods --- ** treeViewAppendColumn - treeViewAppendColumn , - - --- ** treeViewCollapseAll - treeViewCollapseAll , - - --- ** treeViewCollapseRow - treeViewCollapseRow , - - --- ** treeViewColumnsAutosize - treeViewColumnsAutosize , - - --- ** treeViewConvertBinWindowToTreeCoords - treeViewConvertBinWindowToTreeCoords , - - --- ** treeViewConvertBinWindowToWidgetCoords - treeViewConvertBinWindowToWidgetCoords , - - --- ** treeViewConvertTreeToBinWindowCoords - treeViewConvertTreeToBinWindowCoords , - - --- ** treeViewConvertTreeToWidgetCoords - treeViewConvertTreeToWidgetCoords , - - --- ** treeViewConvertWidgetToBinWindowCoords - treeViewConvertWidgetToBinWindowCoords , - - --- ** treeViewConvertWidgetToTreeCoords - treeViewConvertWidgetToTreeCoords , - - --- ** treeViewCreateRowDragIcon - treeViewCreateRowDragIcon , - - --- ** treeViewEnableModelDragDest - treeViewEnableModelDragDest , - - --- ** treeViewEnableModelDragSource - treeViewEnableModelDragSource , - - --- ** treeViewExpandAll - treeViewExpandAll , - - --- ** treeViewExpandRow - treeViewExpandRow , - - --- ** treeViewExpandToPath - treeViewExpandToPath , - - --- ** treeViewGetActivateOnSingleClick - treeViewGetActivateOnSingleClick , - - --- ** treeViewGetBackgroundArea - treeViewGetBackgroundArea , - - --- ** treeViewGetBinWindow - treeViewGetBinWindow , - - --- ** treeViewGetCellArea - treeViewGetCellArea , - - --- ** treeViewGetColumn - treeViewGetColumn , - - --- ** treeViewGetColumns - treeViewGetColumns , - - --- ** treeViewGetCursor - treeViewGetCursor , - - --- ** treeViewGetDestRowAtPos - treeViewGetDestRowAtPos , - - --- ** treeViewGetDragDestRow - treeViewGetDragDestRow , - - --- ** treeViewGetEnableSearch - treeViewGetEnableSearch , - - --- ** treeViewGetEnableTreeLines - treeViewGetEnableTreeLines , - - --- ** treeViewGetExpanderColumn - treeViewGetExpanderColumn , - - --- ** treeViewGetFixedHeightMode - treeViewGetFixedHeightMode , - - --- ** treeViewGetGridLines - treeViewGetGridLines , - - --- ** treeViewGetHadjustment - treeViewGetHadjustment , - - --- ** treeViewGetHeadersClickable - treeViewGetHeadersClickable , - - --- ** treeViewGetHeadersVisible - treeViewGetHeadersVisible , - - --- ** treeViewGetHoverExpand - treeViewGetHoverExpand , - - --- ** treeViewGetHoverSelection - treeViewGetHoverSelection , - - --- ** treeViewGetLevelIndentation - treeViewGetLevelIndentation , - - --- ** treeViewGetModel - treeViewGetModel , - - --- ** treeViewGetNColumns - treeViewGetNColumns , - - --- ** treeViewGetPathAtPos - treeViewGetPathAtPos , - - --- ** treeViewGetReorderable - treeViewGetReorderable , - - --- ** treeViewGetRubberBanding - treeViewGetRubberBanding , - - --- ** treeViewGetRulesHint - treeViewGetRulesHint , - - --- ** treeViewGetSearchColumn - treeViewGetSearchColumn , - - --- ** treeViewGetSearchEntry - treeViewGetSearchEntry , - - --- ** treeViewGetSelection - treeViewGetSelection , - - --- ** treeViewGetShowExpanders - treeViewGetShowExpanders , - - --- ** treeViewGetTooltipColumn - treeViewGetTooltipColumn , - - --- ** treeViewGetTooltipContext - treeViewGetTooltipContext , - - --- ** treeViewGetVadjustment - treeViewGetVadjustment , - - --- ** treeViewGetVisibleRange - treeViewGetVisibleRange , - - --- ** treeViewGetVisibleRect - treeViewGetVisibleRect , - - --- ** treeViewInsertColumn - treeViewInsertColumn , - - --- ** treeViewInsertColumnWithDataFunc - treeViewInsertColumnWithDataFunc , - - --- ** treeViewIsBlankAtPos - treeViewIsBlankAtPos , - - --- ** treeViewIsRubberBandingActive - treeViewIsRubberBandingActive , - - --- ** treeViewMapExpandedRows - treeViewMapExpandedRows , - - --- ** treeViewMoveColumnAfter - treeViewMoveColumnAfter , - - --- ** treeViewNew - treeViewNew , - - --- ** treeViewNewWithModel - treeViewNewWithModel , - - --- ** treeViewRemoveColumn - treeViewRemoveColumn , - - --- ** treeViewRowActivated - treeViewRowActivated , - - --- ** treeViewRowExpanded - treeViewRowExpanded , - - --- ** treeViewScrollToCell - treeViewScrollToCell , - - --- ** treeViewScrollToPoint - treeViewScrollToPoint , - - --- ** treeViewSetActivateOnSingleClick - treeViewSetActivateOnSingleClick , - - --- ** treeViewSetColumnDragFunction - treeViewSetColumnDragFunction , - - --- ** treeViewSetCursor - treeViewSetCursor , - - --- ** treeViewSetCursorOnCell - treeViewSetCursorOnCell , - - --- ** treeViewSetDestroyCountFunc - treeViewSetDestroyCountFunc , - - --- ** treeViewSetDragDestRow - treeViewSetDragDestRow , - - --- ** treeViewSetEnableSearch - treeViewSetEnableSearch , - - --- ** treeViewSetEnableTreeLines - treeViewSetEnableTreeLines , - - --- ** treeViewSetExpanderColumn - treeViewSetExpanderColumn , - - --- ** treeViewSetFixedHeightMode - treeViewSetFixedHeightMode , - - --- ** treeViewSetGridLines - treeViewSetGridLines , - - --- ** treeViewSetHadjustment - treeViewSetHadjustment , - - --- ** treeViewSetHeadersClickable - treeViewSetHeadersClickable , - - --- ** treeViewSetHeadersVisible - treeViewSetHeadersVisible , - - --- ** treeViewSetHoverExpand - treeViewSetHoverExpand , - - --- ** treeViewSetHoverSelection - treeViewSetHoverSelection , - - --- ** treeViewSetLevelIndentation - treeViewSetLevelIndentation , - - --- ** treeViewSetModel - treeViewSetModel , - - --- ** treeViewSetReorderable - treeViewSetReorderable , - - --- ** treeViewSetRowSeparatorFunc - treeViewSetRowSeparatorFunc , - - --- ** treeViewSetRubberBanding - treeViewSetRubberBanding , - - --- ** treeViewSetRulesHint - treeViewSetRulesHint , - - --- ** treeViewSetSearchColumn - treeViewSetSearchColumn , - - --- ** treeViewSetSearchEntry - treeViewSetSearchEntry , - - --- ** treeViewSetSearchEqualFunc - treeViewSetSearchEqualFunc , - - --- ** treeViewSetSearchPositionFunc - treeViewSetSearchPositionFunc , - - --- ** treeViewSetShowExpanders - treeViewSetShowExpanders , - - --- ** treeViewSetTooltipCell - treeViewSetTooltipCell , - - --- ** treeViewSetTooltipColumn - treeViewSetTooltipColumn , - - --- ** treeViewSetTooltipRow - treeViewSetTooltipRow , - - --- ** treeViewSetVadjustment - treeViewSetVadjustment , - - --- ** treeViewUnsetRowsDragDest - treeViewUnsetRowsDragDest , - - --- ** treeViewUnsetRowsDragSource - treeViewUnsetRowsDragSource , - - - - - -- * Properties --- ** ActivateOnSingleClick - TreeViewActivateOnSingleClickPropertyInfo, - constructTreeViewActivateOnSingleClick , - getTreeViewActivateOnSingleClick , - setTreeViewActivateOnSingleClick , - - --- ** EnableGridLines - TreeViewEnableGridLinesPropertyInfo , - constructTreeViewEnableGridLines , - getTreeViewEnableGridLines , - setTreeViewEnableGridLines , - - --- ** EnableSearch - TreeViewEnableSearchPropertyInfo , - constructTreeViewEnableSearch , - getTreeViewEnableSearch , - setTreeViewEnableSearch , - - --- ** EnableTreeLines - TreeViewEnableTreeLinesPropertyInfo , - constructTreeViewEnableTreeLines , - getTreeViewEnableTreeLines , - setTreeViewEnableTreeLines , - - --- ** ExpanderColumn - TreeViewExpanderColumnPropertyInfo , - constructTreeViewExpanderColumn , - getTreeViewExpanderColumn , - setTreeViewExpanderColumn , - - --- ** FixedHeightMode - TreeViewFixedHeightModePropertyInfo , - constructTreeViewFixedHeightMode , - getTreeViewFixedHeightMode , - setTreeViewFixedHeightMode , - - --- ** HeadersClickable - TreeViewHeadersClickablePropertyInfo , - constructTreeViewHeadersClickable , - getTreeViewHeadersClickable , - setTreeViewHeadersClickable , - - --- ** HeadersVisible - TreeViewHeadersVisiblePropertyInfo , - constructTreeViewHeadersVisible , - getTreeViewHeadersVisible , - setTreeViewHeadersVisible , - - --- ** HoverExpand - TreeViewHoverExpandPropertyInfo , - constructTreeViewHoverExpand , - getTreeViewHoverExpand , - setTreeViewHoverExpand , - - --- ** HoverSelection - TreeViewHoverSelectionPropertyInfo , - constructTreeViewHoverSelection , - getTreeViewHoverSelection , - setTreeViewHoverSelection , - - --- ** LevelIndentation - TreeViewLevelIndentationPropertyInfo , - constructTreeViewLevelIndentation , - getTreeViewLevelIndentation , - setTreeViewLevelIndentation , - - --- ** Model - TreeViewModelPropertyInfo , - constructTreeViewModel , - getTreeViewModel , - setTreeViewModel , - - --- ** Reorderable - TreeViewReorderablePropertyInfo , - constructTreeViewReorderable , - getTreeViewReorderable , - setTreeViewReorderable , - - --- ** RubberBanding - TreeViewRubberBandingPropertyInfo , - constructTreeViewRubberBanding , - getTreeViewRubberBanding , - setTreeViewRubberBanding , - - --- ** RulesHint - TreeViewRulesHintPropertyInfo , - constructTreeViewRulesHint , - getTreeViewRulesHint , - setTreeViewRulesHint , - - --- ** SearchColumn - TreeViewSearchColumnPropertyInfo , - constructTreeViewSearchColumn , - getTreeViewSearchColumn , - setTreeViewSearchColumn , - - --- ** ShowExpanders - TreeViewShowExpandersPropertyInfo , - constructTreeViewShowExpanders , - getTreeViewShowExpanders , - setTreeViewShowExpanders , - - --- ** TooltipColumn - TreeViewTooltipColumnPropertyInfo , - constructTreeViewTooltipColumn , - getTreeViewTooltipColumn , - setTreeViewTooltipColumn , - - - - - -- * Signals --- ** ColumnsChanged - TreeViewColumnsChangedCallback , - TreeViewColumnsChangedCallbackC , - TreeViewColumnsChangedSignalInfo , - afterTreeViewColumnsChanged , - mkTreeViewColumnsChangedCallback , - noTreeViewColumnsChangedCallback , - onTreeViewColumnsChanged , - treeViewColumnsChangedCallbackWrapper , - treeViewColumnsChangedClosure , - - --- ** CursorChanged - TreeViewCursorChangedCallback , - TreeViewCursorChangedCallbackC , - TreeViewCursorChangedSignalInfo , - afterTreeViewCursorChanged , - mkTreeViewCursorChangedCallback , - noTreeViewCursorChangedCallback , - onTreeViewCursorChanged , - treeViewCursorChangedCallbackWrapper , - treeViewCursorChangedClosure , - - --- ** ExpandCollapseCursorRow - TreeViewExpandCollapseCursorRowCallback , - TreeViewExpandCollapseCursorRowCallbackC, - TreeViewExpandCollapseCursorRowSignalInfo, - afterTreeViewExpandCollapseCursorRow , - mkTreeViewExpandCollapseCursorRowCallback, - noTreeViewExpandCollapseCursorRowCallback, - onTreeViewExpandCollapseCursorRow , - treeViewExpandCollapseCursorRowCallbackWrapper, - treeViewExpandCollapseCursorRowClosure , - - --- ** MoveCursor - TreeViewMoveCursorCallback , - TreeViewMoveCursorCallbackC , - TreeViewMoveCursorSignalInfo , - afterTreeViewMoveCursor , - mkTreeViewMoveCursorCallback , - noTreeViewMoveCursorCallback , - onTreeViewMoveCursor , - treeViewMoveCursorCallbackWrapper , - treeViewMoveCursorClosure , - - --- ** RowActivated - TreeViewRowActivatedCallback , - TreeViewRowActivatedCallbackC , - TreeViewRowActivatedSignalInfo , - afterTreeViewRowActivated , - mkTreeViewRowActivatedCallback , - noTreeViewRowActivatedCallback , - onTreeViewRowActivated , - treeViewRowActivatedCallbackWrapper , - treeViewRowActivatedClosure , - - --- ** RowCollapsed - TreeViewRowCollapsedCallback , - TreeViewRowCollapsedCallbackC , - TreeViewRowCollapsedSignalInfo , - afterTreeViewRowCollapsed , - mkTreeViewRowCollapsedCallback , - noTreeViewRowCollapsedCallback , - onTreeViewRowCollapsed , - treeViewRowCollapsedCallbackWrapper , - treeViewRowCollapsedClosure , - - --- ** RowExpanded - TreeViewRowExpandedCallback , - TreeViewRowExpandedCallbackC , - TreeViewRowExpandedSignalInfo , - afterTreeViewRowExpanded , - mkTreeViewRowExpandedCallback , - noTreeViewRowExpandedCallback , - onTreeViewRowExpanded , - treeViewRowExpandedCallbackWrapper , - treeViewRowExpandedClosure , - - --- ** SelectAll - TreeViewSelectAllCallback , - TreeViewSelectAllCallbackC , - TreeViewSelectAllSignalInfo , - afterTreeViewSelectAll , - mkTreeViewSelectAllCallback , - noTreeViewSelectAllCallback , - onTreeViewSelectAll , - treeViewSelectAllCallbackWrapper , - treeViewSelectAllClosure , - - --- ** SelectCursorParent - TreeViewSelectCursorParentCallback , - TreeViewSelectCursorParentCallbackC , - TreeViewSelectCursorParentSignalInfo , - afterTreeViewSelectCursorParent , - mkTreeViewSelectCursorParentCallback , - noTreeViewSelectCursorParentCallback , - onTreeViewSelectCursorParent , - treeViewSelectCursorParentCallbackWrapper, - treeViewSelectCursorParentClosure , - - --- ** SelectCursorRow - TreeViewSelectCursorRowCallback , - TreeViewSelectCursorRowCallbackC , - TreeViewSelectCursorRowSignalInfo , - afterTreeViewSelectCursorRow , - mkTreeViewSelectCursorRowCallback , - noTreeViewSelectCursorRowCallback , - onTreeViewSelectCursorRow , - treeViewSelectCursorRowCallbackWrapper , - treeViewSelectCursorRowClosure , - - --- ** StartInteractiveSearch - TreeViewStartInteractiveSearchCallback , - TreeViewStartInteractiveSearchCallbackC , - TreeViewStartInteractiveSearchSignalInfo, - afterTreeViewStartInteractiveSearch , - mkTreeViewStartInteractiveSearchCallback, - noTreeViewStartInteractiveSearchCallback, - onTreeViewStartInteractiveSearch , - treeViewStartInteractiveSearchCallbackWrapper, - treeViewStartInteractiveSearchClosure , - - --- ** TestCollapseRow - TreeViewTestCollapseRowCallback , - TreeViewTestCollapseRowCallbackC , - TreeViewTestCollapseRowSignalInfo , - afterTreeViewTestCollapseRow , - mkTreeViewTestCollapseRowCallback , - noTreeViewTestCollapseRowCallback , - onTreeViewTestCollapseRow , - treeViewTestCollapseRowCallbackWrapper , - treeViewTestCollapseRowClosure , - - --- ** TestExpandRow - TreeViewTestExpandRowCallback , - TreeViewTestExpandRowCallbackC , - TreeViewTestExpandRowSignalInfo , - afterTreeViewTestExpandRow , - mkTreeViewTestExpandRowCallback , - noTreeViewTestExpandRowCallback , - onTreeViewTestExpandRow , - treeViewTestExpandRowCallbackWrapper , - treeViewTestExpandRowClosure , - - --- ** ToggleCursorRow - TreeViewToggleCursorRowCallback , - TreeViewToggleCursorRowCallbackC , - TreeViewToggleCursorRowSignalInfo , - afterTreeViewToggleCursorRow , - mkTreeViewToggleCursorRowCallback , - noTreeViewToggleCursorRowCallback , - onTreeViewToggleCursorRow , - treeViewToggleCursorRowCallbackWrapper , - treeViewToggleCursorRowClosure , - - --- ** UnselectAll - TreeViewUnselectAllCallback , - TreeViewUnselectAllCallbackC , - TreeViewUnselectAllSignalInfo , - afterTreeViewUnselectAll , - mkTreeViewUnselectAllCallback , - noTreeViewUnselectAllCallback , - onTreeViewUnselectAll , - treeViewUnselectAllCallbackWrapper , - treeViewUnselectAllClosure , - - - - - ) 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.Atk as Atk -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Cairo as Cairo - -newtype TreeView = TreeView (ForeignPtr TreeView) -foreign import ccall "gtk_tree_view_get_type" - c_gtk_tree_view_get_type :: IO GType - -type instance ParentTypes TreeView = TreeViewParentTypes -type TreeViewParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Scrollable] - -instance GObject TreeView where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_tree_view_get_type - - -class GObject o => TreeViewK o -instance (GObject o, IsDescendantOf TreeView o) => TreeViewK o - -toTreeView :: TreeViewK o => o -> IO TreeView -toTreeView = unsafeCastTo TreeView - -noTreeView :: Maybe TreeView -noTreeView = Nothing - --- signal TreeView::columns-changed -type TreeViewColumnsChangedCallback = - IO () - -noTreeViewColumnsChangedCallback :: Maybe TreeViewColumnsChangedCallback -noTreeViewColumnsChangedCallback = Nothing - -type TreeViewColumnsChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeViewColumnsChangedCallback :: TreeViewColumnsChangedCallbackC -> IO (FunPtr TreeViewColumnsChangedCallbackC) - -treeViewColumnsChangedClosure :: TreeViewColumnsChangedCallback -> IO Closure -treeViewColumnsChangedClosure cb = newCClosure =<< mkTreeViewColumnsChangedCallback wrapped - where wrapped = treeViewColumnsChangedCallbackWrapper cb - -treeViewColumnsChangedCallbackWrapper :: - TreeViewColumnsChangedCallback -> - Ptr () -> - Ptr () -> - IO () -treeViewColumnsChangedCallbackWrapper _cb _ _ = do - _cb - -onTreeViewColumnsChanged :: (GObject a, MonadIO m) => a -> TreeViewColumnsChangedCallback -> m SignalHandlerId -onTreeViewColumnsChanged obj cb = liftIO $ connectTreeViewColumnsChanged obj cb SignalConnectBefore -afterTreeViewColumnsChanged :: (GObject a, MonadIO m) => a -> TreeViewColumnsChangedCallback -> m SignalHandlerId -afterTreeViewColumnsChanged obj cb = connectTreeViewColumnsChanged obj cb SignalConnectAfter - -connectTreeViewColumnsChanged :: (GObject a, MonadIO m) => - a -> TreeViewColumnsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewColumnsChanged obj cb after = liftIO $ do - cb' <- mkTreeViewColumnsChangedCallback (treeViewColumnsChangedCallbackWrapper cb) - connectSignalFunPtr obj "columns-changed" cb' after - --- signal TreeView::cursor-changed -type TreeViewCursorChangedCallback = - IO () - -noTreeViewCursorChangedCallback :: Maybe TreeViewCursorChangedCallback -noTreeViewCursorChangedCallback = Nothing - -type TreeViewCursorChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeViewCursorChangedCallback :: TreeViewCursorChangedCallbackC -> IO (FunPtr TreeViewCursorChangedCallbackC) - -treeViewCursorChangedClosure :: TreeViewCursorChangedCallback -> IO Closure -treeViewCursorChangedClosure cb = newCClosure =<< mkTreeViewCursorChangedCallback wrapped - where wrapped = treeViewCursorChangedCallbackWrapper cb - -treeViewCursorChangedCallbackWrapper :: - TreeViewCursorChangedCallback -> - Ptr () -> - Ptr () -> - IO () -treeViewCursorChangedCallbackWrapper _cb _ _ = do - _cb - -onTreeViewCursorChanged :: (GObject a, MonadIO m) => a -> TreeViewCursorChangedCallback -> m SignalHandlerId -onTreeViewCursorChanged obj cb = liftIO $ connectTreeViewCursorChanged obj cb SignalConnectBefore -afterTreeViewCursorChanged :: (GObject a, MonadIO m) => a -> TreeViewCursorChangedCallback -> m SignalHandlerId -afterTreeViewCursorChanged obj cb = connectTreeViewCursorChanged obj cb SignalConnectAfter - -connectTreeViewCursorChanged :: (GObject a, MonadIO m) => - a -> TreeViewCursorChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewCursorChanged obj cb after = liftIO $ do - cb' <- mkTreeViewCursorChangedCallback (treeViewCursorChangedCallbackWrapper cb) - connectSignalFunPtr obj "cursor-changed" cb' after - --- signal TreeView::expand-collapse-cursor-row -type TreeViewExpandCollapseCursorRowCallback = - Bool -> - Bool -> - Bool -> - IO Bool - -noTreeViewExpandCollapseCursorRowCallback :: Maybe TreeViewExpandCollapseCursorRowCallback -noTreeViewExpandCollapseCursorRowCallback = Nothing - -type TreeViewExpandCollapseCursorRowCallbackC = - Ptr () -> -- object - CInt -> - CInt -> - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewExpandCollapseCursorRowCallback :: TreeViewExpandCollapseCursorRowCallbackC -> IO (FunPtr TreeViewExpandCollapseCursorRowCallbackC) - -treeViewExpandCollapseCursorRowClosure :: TreeViewExpandCollapseCursorRowCallback -> IO Closure -treeViewExpandCollapseCursorRowClosure cb = newCClosure =<< mkTreeViewExpandCollapseCursorRowCallback wrapped - where wrapped = treeViewExpandCollapseCursorRowCallbackWrapper cb - -treeViewExpandCollapseCursorRowCallbackWrapper :: - TreeViewExpandCollapseCursorRowCallback -> - Ptr () -> - CInt -> - CInt -> - CInt -> - Ptr () -> - IO CInt -treeViewExpandCollapseCursorRowCallbackWrapper _cb _ object p0 p1 _ = do - let object' = (/= 0) object - let p0' = (/= 0) p0 - let p1' = (/= 0) p1 - result <- _cb object' p0' p1' - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewExpandCollapseCursorRow :: (GObject a, MonadIO m) => a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId -onTreeViewExpandCollapseCursorRow obj cb = liftIO $ connectTreeViewExpandCollapseCursorRow obj cb SignalConnectBefore -afterTreeViewExpandCollapseCursorRow :: (GObject a, MonadIO m) => a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId -afterTreeViewExpandCollapseCursorRow obj cb = connectTreeViewExpandCollapseCursorRow obj cb SignalConnectAfter - -connectTreeViewExpandCollapseCursorRow :: (GObject a, MonadIO m) => - a -> TreeViewExpandCollapseCursorRowCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewExpandCollapseCursorRow obj cb after = liftIO $ do - cb' <- mkTreeViewExpandCollapseCursorRowCallback (treeViewExpandCollapseCursorRowCallbackWrapper cb) - connectSignalFunPtr obj "expand-collapse-cursor-row" cb' after - --- signal TreeView::move-cursor -type TreeViewMoveCursorCallback = - MovementStep -> - Int32 -> - IO Bool - -noTreeViewMoveCursorCallback :: Maybe TreeViewMoveCursorCallback -noTreeViewMoveCursorCallback = Nothing - -type TreeViewMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewMoveCursorCallback :: TreeViewMoveCursorCallbackC -> IO (FunPtr TreeViewMoveCursorCallbackC) - -treeViewMoveCursorClosure :: TreeViewMoveCursorCallback -> IO Closure -treeViewMoveCursorClosure cb = newCClosure =<< mkTreeViewMoveCursorCallback wrapped - where wrapped = treeViewMoveCursorCallbackWrapper cb - -treeViewMoveCursorCallbackWrapper :: - TreeViewMoveCursorCallback -> - Ptr () -> - CUInt -> - Int32 -> - Ptr () -> - IO CInt -treeViewMoveCursorCallbackWrapper _cb _ step direction _ = do - let step' = (toEnum . fromIntegral) step - result <- _cb step' direction - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewMoveCursor :: (GObject a, MonadIO m) => a -> TreeViewMoveCursorCallback -> m SignalHandlerId -onTreeViewMoveCursor obj cb = liftIO $ connectTreeViewMoveCursor obj cb SignalConnectBefore -afterTreeViewMoveCursor :: (GObject a, MonadIO m) => a -> TreeViewMoveCursorCallback -> m SignalHandlerId -afterTreeViewMoveCursor obj cb = connectTreeViewMoveCursor obj cb SignalConnectAfter - -connectTreeViewMoveCursor :: (GObject a, MonadIO m) => - a -> TreeViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewMoveCursor obj cb after = liftIO $ do - cb' <- mkTreeViewMoveCursorCallback (treeViewMoveCursorCallbackWrapper cb) - connectSignalFunPtr obj "move-cursor" cb' after - --- signal TreeView::row-activated -type TreeViewRowActivatedCallback = - TreePath -> - TreeViewColumn -> - IO () - -noTreeViewRowActivatedCallback :: Maybe TreeViewRowActivatedCallback -noTreeViewRowActivatedCallback = Nothing - -type TreeViewRowActivatedCallbackC = - Ptr () -> -- object - Ptr TreePath -> - Ptr TreeViewColumn -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeViewRowActivatedCallback :: TreeViewRowActivatedCallbackC -> IO (FunPtr TreeViewRowActivatedCallbackC) - -treeViewRowActivatedClosure :: TreeViewRowActivatedCallback -> IO Closure -treeViewRowActivatedClosure cb = newCClosure =<< mkTreeViewRowActivatedCallback wrapped - where wrapped = treeViewRowActivatedCallbackWrapper cb - -treeViewRowActivatedCallbackWrapper :: - TreeViewRowActivatedCallback -> - Ptr () -> - Ptr TreePath -> - Ptr TreeViewColumn -> - Ptr () -> - IO () -treeViewRowActivatedCallbackWrapper _cb _ path column _ = do - path' <- (newBoxed TreePath) path - column' <- (newObject TreeViewColumn) column - _cb path' column' - -onTreeViewRowActivated :: (GObject a, MonadIO m) => a -> TreeViewRowActivatedCallback -> m SignalHandlerId -onTreeViewRowActivated obj cb = liftIO $ connectTreeViewRowActivated obj cb SignalConnectBefore -afterTreeViewRowActivated :: (GObject a, MonadIO m) => a -> TreeViewRowActivatedCallback -> m SignalHandlerId -afterTreeViewRowActivated obj cb = connectTreeViewRowActivated obj cb SignalConnectAfter - -connectTreeViewRowActivated :: (GObject a, MonadIO m) => - a -> TreeViewRowActivatedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewRowActivated obj cb after = liftIO $ do - cb' <- mkTreeViewRowActivatedCallback (treeViewRowActivatedCallbackWrapper cb) - connectSignalFunPtr obj "row-activated" cb' after - --- signal TreeView::row-collapsed -type TreeViewRowCollapsedCallback = - TreeIter -> - TreePath -> - IO () - -noTreeViewRowCollapsedCallback :: Maybe TreeViewRowCollapsedCallback -noTreeViewRowCollapsedCallback = Nothing - -type TreeViewRowCollapsedCallbackC = - Ptr () -> -- object - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeViewRowCollapsedCallback :: TreeViewRowCollapsedCallbackC -> IO (FunPtr TreeViewRowCollapsedCallbackC) - -treeViewRowCollapsedClosure :: TreeViewRowCollapsedCallback -> IO Closure -treeViewRowCollapsedClosure cb = newCClosure =<< mkTreeViewRowCollapsedCallback wrapped - where wrapped = treeViewRowCollapsedCallbackWrapper cb - -treeViewRowCollapsedCallbackWrapper :: - TreeViewRowCollapsedCallback -> - Ptr () -> - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> - IO () -treeViewRowCollapsedCallbackWrapper _cb _ iter path _ = do - iter' <- (newBoxed TreeIter) iter - path' <- (newBoxed TreePath) path - _cb iter' path' - -onTreeViewRowCollapsed :: (GObject a, MonadIO m) => a -> TreeViewRowCollapsedCallback -> m SignalHandlerId -onTreeViewRowCollapsed obj cb = liftIO $ connectTreeViewRowCollapsed obj cb SignalConnectBefore -afterTreeViewRowCollapsed :: (GObject a, MonadIO m) => a -> TreeViewRowCollapsedCallback -> m SignalHandlerId -afterTreeViewRowCollapsed obj cb = connectTreeViewRowCollapsed obj cb SignalConnectAfter - -connectTreeViewRowCollapsed :: (GObject a, MonadIO m) => - a -> TreeViewRowCollapsedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewRowCollapsed obj cb after = liftIO $ do - cb' <- mkTreeViewRowCollapsedCallback (treeViewRowCollapsedCallbackWrapper cb) - connectSignalFunPtr obj "row-collapsed" cb' after - --- signal TreeView::row-expanded -type TreeViewRowExpandedCallback = - TreeIter -> - TreePath -> - IO () - -noTreeViewRowExpandedCallback :: Maybe TreeViewRowExpandedCallback -noTreeViewRowExpandedCallback = Nothing - -type TreeViewRowExpandedCallbackC = - Ptr () -> -- object - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkTreeViewRowExpandedCallback :: TreeViewRowExpandedCallbackC -> IO (FunPtr TreeViewRowExpandedCallbackC) - -treeViewRowExpandedClosure :: TreeViewRowExpandedCallback -> IO Closure -treeViewRowExpandedClosure cb = newCClosure =<< mkTreeViewRowExpandedCallback wrapped - where wrapped = treeViewRowExpandedCallbackWrapper cb - -treeViewRowExpandedCallbackWrapper :: - TreeViewRowExpandedCallback -> - Ptr () -> - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> - IO () -treeViewRowExpandedCallbackWrapper _cb _ iter path _ = do - iter' <- (newBoxed TreeIter) iter - path' <- (newBoxed TreePath) path - _cb iter' path' - -onTreeViewRowExpanded :: (GObject a, MonadIO m) => a -> TreeViewRowExpandedCallback -> m SignalHandlerId -onTreeViewRowExpanded obj cb = liftIO $ connectTreeViewRowExpanded obj cb SignalConnectBefore -afterTreeViewRowExpanded :: (GObject a, MonadIO m) => a -> TreeViewRowExpandedCallback -> m SignalHandlerId -afterTreeViewRowExpanded obj cb = connectTreeViewRowExpanded obj cb SignalConnectAfter - -connectTreeViewRowExpanded :: (GObject a, MonadIO m) => - a -> TreeViewRowExpandedCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewRowExpanded obj cb after = liftIO $ do - cb' <- mkTreeViewRowExpandedCallback (treeViewRowExpandedCallbackWrapper cb) - connectSignalFunPtr obj "row-expanded" cb' after - --- signal TreeView::select-all -type TreeViewSelectAllCallback = - IO Bool - -noTreeViewSelectAllCallback :: Maybe TreeViewSelectAllCallback -noTreeViewSelectAllCallback = Nothing - -type TreeViewSelectAllCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewSelectAllCallback :: TreeViewSelectAllCallbackC -> IO (FunPtr TreeViewSelectAllCallbackC) - -treeViewSelectAllClosure :: TreeViewSelectAllCallback -> IO Closure -treeViewSelectAllClosure cb = newCClosure =<< mkTreeViewSelectAllCallback wrapped - where wrapped = treeViewSelectAllCallbackWrapper cb - -treeViewSelectAllCallbackWrapper :: - TreeViewSelectAllCallback -> - Ptr () -> - Ptr () -> - IO CInt -treeViewSelectAllCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewSelectAll :: (GObject a, MonadIO m) => a -> TreeViewSelectAllCallback -> m SignalHandlerId -onTreeViewSelectAll obj cb = liftIO $ connectTreeViewSelectAll obj cb SignalConnectBefore -afterTreeViewSelectAll :: (GObject a, MonadIO m) => a -> TreeViewSelectAllCallback -> m SignalHandlerId -afterTreeViewSelectAll obj cb = connectTreeViewSelectAll obj cb SignalConnectAfter - -connectTreeViewSelectAll :: (GObject a, MonadIO m) => - a -> TreeViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewSelectAll obj cb after = liftIO $ do - cb' <- mkTreeViewSelectAllCallback (treeViewSelectAllCallbackWrapper cb) - connectSignalFunPtr obj "select-all" cb' after - --- signal TreeView::select-cursor-parent -type TreeViewSelectCursorParentCallback = - IO Bool - -noTreeViewSelectCursorParentCallback :: Maybe TreeViewSelectCursorParentCallback -noTreeViewSelectCursorParentCallback = Nothing - -type TreeViewSelectCursorParentCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewSelectCursorParentCallback :: TreeViewSelectCursorParentCallbackC -> IO (FunPtr TreeViewSelectCursorParentCallbackC) - -treeViewSelectCursorParentClosure :: TreeViewSelectCursorParentCallback -> IO Closure -treeViewSelectCursorParentClosure cb = newCClosure =<< mkTreeViewSelectCursorParentCallback wrapped - where wrapped = treeViewSelectCursorParentCallbackWrapper cb - -treeViewSelectCursorParentCallbackWrapper :: - TreeViewSelectCursorParentCallback -> - Ptr () -> - Ptr () -> - IO CInt -treeViewSelectCursorParentCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewSelectCursorParent :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorParentCallback -> m SignalHandlerId -onTreeViewSelectCursorParent obj cb = liftIO $ connectTreeViewSelectCursorParent obj cb SignalConnectBefore -afterTreeViewSelectCursorParent :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorParentCallback -> m SignalHandlerId -afterTreeViewSelectCursorParent obj cb = connectTreeViewSelectCursorParent obj cb SignalConnectAfter - -connectTreeViewSelectCursorParent :: (GObject a, MonadIO m) => - a -> TreeViewSelectCursorParentCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewSelectCursorParent obj cb after = liftIO $ do - cb' <- mkTreeViewSelectCursorParentCallback (treeViewSelectCursorParentCallbackWrapper cb) - connectSignalFunPtr obj "select-cursor-parent" cb' after - --- signal TreeView::select-cursor-row -type TreeViewSelectCursorRowCallback = - Bool -> - IO Bool - -noTreeViewSelectCursorRowCallback :: Maybe TreeViewSelectCursorRowCallback -noTreeViewSelectCursorRowCallback = Nothing - -type TreeViewSelectCursorRowCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewSelectCursorRowCallback :: TreeViewSelectCursorRowCallbackC -> IO (FunPtr TreeViewSelectCursorRowCallbackC) - -treeViewSelectCursorRowClosure :: TreeViewSelectCursorRowCallback -> IO Closure -treeViewSelectCursorRowClosure cb = newCClosure =<< mkTreeViewSelectCursorRowCallback wrapped - where wrapped = treeViewSelectCursorRowCallbackWrapper cb - -treeViewSelectCursorRowCallbackWrapper :: - TreeViewSelectCursorRowCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -treeViewSelectCursorRowCallbackWrapper _cb _ object _ = do - let object' = (/= 0) object - result <- _cb object' - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewSelectCursorRow :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId -onTreeViewSelectCursorRow obj cb = liftIO $ connectTreeViewSelectCursorRow obj cb SignalConnectBefore -afterTreeViewSelectCursorRow :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId -afterTreeViewSelectCursorRow obj cb = connectTreeViewSelectCursorRow obj cb SignalConnectAfter - -connectTreeViewSelectCursorRow :: (GObject a, MonadIO m) => - a -> TreeViewSelectCursorRowCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewSelectCursorRow obj cb after = liftIO $ do - cb' <- mkTreeViewSelectCursorRowCallback (treeViewSelectCursorRowCallbackWrapper cb) - connectSignalFunPtr obj "select-cursor-row" cb' after - --- signal TreeView::start-interactive-search -type TreeViewStartInteractiveSearchCallback = - IO Bool - -noTreeViewStartInteractiveSearchCallback :: Maybe TreeViewStartInteractiveSearchCallback -noTreeViewStartInteractiveSearchCallback = Nothing - -type TreeViewStartInteractiveSearchCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewStartInteractiveSearchCallback :: TreeViewStartInteractiveSearchCallbackC -> IO (FunPtr TreeViewStartInteractiveSearchCallbackC) - -treeViewStartInteractiveSearchClosure :: TreeViewStartInteractiveSearchCallback -> IO Closure -treeViewStartInteractiveSearchClosure cb = newCClosure =<< mkTreeViewStartInteractiveSearchCallback wrapped - where wrapped = treeViewStartInteractiveSearchCallbackWrapper cb - -treeViewStartInteractiveSearchCallbackWrapper :: - TreeViewStartInteractiveSearchCallback -> - Ptr () -> - Ptr () -> - IO CInt -treeViewStartInteractiveSearchCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewStartInteractiveSearch :: (GObject a, MonadIO m) => a -> TreeViewStartInteractiveSearchCallback -> m SignalHandlerId -onTreeViewStartInteractiveSearch obj cb = liftIO $ connectTreeViewStartInteractiveSearch obj cb SignalConnectBefore -afterTreeViewStartInteractiveSearch :: (GObject a, MonadIO m) => a -> TreeViewStartInteractiveSearchCallback -> m SignalHandlerId -afterTreeViewStartInteractiveSearch obj cb = connectTreeViewStartInteractiveSearch obj cb SignalConnectAfter - -connectTreeViewStartInteractiveSearch :: (GObject a, MonadIO m) => - a -> TreeViewStartInteractiveSearchCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewStartInteractiveSearch obj cb after = liftIO $ do - cb' <- mkTreeViewStartInteractiveSearchCallback (treeViewStartInteractiveSearchCallbackWrapper cb) - connectSignalFunPtr obj "start-interactive-search" cb' after - --- signal TreeView::test-collapse-row -type TreeViewTestCollapseRowCallback = - TreeIter -> - TreePath -> - IO Bool - -noTreeViewTestCollapseRowCallback :: Maybe TreeViewTestCollapseRowCallback -noTreeViewTestCollapseRowCallback = Nothing - -type TreeViewTestCollapseRowCallbackC = - Ptr () -> -- object - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewTestCollapseRowCallback :: TreeViewTestCollapseRowCallbackC -> IO (FunPtr TreeViewTestCollapseRowCallbackC) - -treeViewTestCollapseRowClosure :: TreeViewTestCollapseRowCallback -> IO Closure -treeViewTestCollapseRowClosure cb = newCClosure =<< mkTreeViewTestCollapseRowCallback wrapped - where wrapped = treeViewTestCollapseRowCallbackWrapper cb - -treeViewTestCollapseRowCallbackWrapper :: - TreeViewTestCollapseRowCallback -> - Ptr () -> - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> - IO CInt -treeViewTestCollapseRowCallbackWrapper _cb _ iter path _ = do - iter' <- (newBoxed TreeIter) iter - path' <- (newBoxed TreePath) path - result <- _cb iter' path' - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewTestCollapseRow :: (GObject a, MonadIO m) => a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId -onTreeViewTestCollapseRow obj cb = liftIO $ connectTreeViewTestCollapseRow obj cb SignalConnectBefore -afterTreeViewTestCollapseRow :: (GObject a, MonadIO m) => a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId -afterTreeViewTestCollapseRow obj cb = connectTreeViewTestCollapseRow obj cb SignalConnectAfter - -connectTreeViewTestCollapseRow :: (GObject a, MonadIO m) => - a -> TreeViewTestCollapseRowCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewTestCollapseRow obj cb after = liftIO $ do - cb' <- mkTreeViewTestCollapseRowCallback (treeViewTestCollapseRowCallbackWrapper cb) - connectSignalFunPtr obj "test-collapse-row" cb' after - --- signal TreeView::test-expand-row -type TreeViewTestExpandRowCallback = - TreeIter -> - TreePath -> - IO Bool - -noTreeViewTestExpandRowCallback :: Maybe TreeViewTestExpandRowCallback -noTreeViewTestExpandRowCallback = Nothing - -type TreeViewTestExpandRowCallbackC = - Ptr () -> -- object - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewTestExpandRowCallback :: TreeViewTestExpandRowCallbackC -> IO (FunPtr TreeViewTestExpandRowCallbackC) - -treeViewTestExpandRowClosure :: TreeViewTestExpandRowCallback -> IO Closure -treeViewTestExpandRowClosure cb = newCClosure =<< mkTreeViewTestExpandRowCallback wrapped - where wrapped = treeViewTestExpandRowCallbackWrapper cb - -treeViewTestExpandRowCallbackWrapper :: - TreeViewTestExpandRowCallback -> - Ptr () -> - Ptr TreeIter -> - Ptr TreePath -> - Ptr () -> - IO CInt -treeViewTestExpandRowCallbackWrapper _cb _ iter path _ = do - iter' <- (newBoxed TreeIter) iter - path' <- (newBoxed TreePath) path - result <- _cb iter' path' - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewTestExpandRow :: (GObject a, MonadIO m) => a -> TreeViewTestExpandRowCallback -> m SignalHandlerId -onTreeViewTestExpandRow obj cb = liftIO $ connectTreeViewTestExpandRow obj cb SignalConnectBefore -afterTreeViewTestExpandRow :: (GObject a, MonadIO m) => a -> TreeViewTestExpandRowCallback -> m SignalHandlerId -afterTreeViewTestExpandRow obj cb = connectTreeViewTestExpandRow obj cb SignalConnectAfter - -connectTreeViewTestExpandRow :: (GObject a, MonadIO m) => - a -> TreeViewTestExpandRowCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewTestExpandRow obj cb after = liftIO $ do - cb' <- mkTreeViewTestExpandRowCallback (treeViewTestExpandRowCallbackWrapper cb) - connectSignalFunPtr obj "test-expand-row" cb' after - --- signal TreeView::toggle-cursor-row -type TreeViewToggleCursorRowCallback = - IO Bool - -noTreeViewToggleCursorRowCallback :: Maybe TreeViewToggleCursorRowCallback -noTreeViewToggleCursorRowCallback = Nothing - -type TreeViewToggleCursorRowCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewToggleCursorRowCallback :: TreeViewToggleCursorRowCallbackC -> IO (FunPtr TreeViewToggleCursorRowCallbackC) - -treeViewToggleCursorRowClosure :: TreeViewToggleCursorRowCallback -> IO Closure -treeViewToggleCursorRowClosure cb = newCClosure =<< mkTreeViewToggleCursorRowCallback wrapped - where wrapped = treeViewToggleCursorRowCallbackWrapper cb - -treeViewToggleCursorRowCallbackWrapper :: - TreeViewToggleCursorRowCallback -> - Ptr () -> - Ptr () -> - IO CInt -treeViewToggleCursorRowCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewToggleCursorRow :: (GObject a, MonadIO m) => a -> TreeViewToggleCursorRowCallback -> m SignalHandlerId -onTreeViewToggleCursorRow obj cb = liftIO $ connectTreeViewToggleCursorRow obj cb SignalConnectBefore -afterTreeViewToggleCursorRow :: (GObject a, MonadIO m) => a -> TreeViewToggleCursorRowCallback -> m SignalHandlerId -afterTreeViewToggleCursorRow obj cb = connectTreeViewToggleCursorRow obj cb SignalConnectAfter - -connectTreeViewToggleCursorRow :: (GObject a, MonadIO m) => - a -> TreeViewToggleCursorRowCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewToggleCursorRow obj cb after = liftIO $ do - cb' <- mkTreeViewToggleCursorRowCallback (treeViewToggleCursorRowCallbackWrapper cb) - connectSignalFunPtr obj "toggle-cursor-row" cb' after - --- signal TreeView::unselect-all -type TreeViewUnselectAllCallback = - IO Bool - -noTreeViewUnselectAllCallback :: Maybe TreeViewUnselectAllCallback -noTreeViewUnselectAllCallback = Nothing - -type TreeViewUnselectAllCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTreeViewUnselectAllCallback :: TreeViewUnselectAllCallbackC -> IO (FunPtr TreeViewUnselectAllCallbackC) - -treeViewUnselectAllClosure :: TreeViewUnselectAllCallback -> IO Closure -treeViewUnselectAllClosure cb = newCClosure =<< mkTreeViewUnselectAllCallback wrapped - where wrapped = treeViewUnselectAllCallbackWrapper cb - -treeViewUnselectAllCallbackWrapper :: - TreeViewUnselectAllCallback -> - Ptr () -> - Ptr () -> - IO CInt -treeViewUnselectAllCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onTreeViewUnselectAll :: (GObject a, MonadIO m) => a -> TreeViewUnselectAllCallback -> m SignalHandlerId -onTreeViewUnselectAll obj cb = liftIO $ connectTreeViewUnselectAll obj cb SignalConnectBefore -afterTreeViewUnselectAll :: (GObject a, MonadIO m) => a -> TreeViewUnselectAllCallback -> m SignalHandlerId -afterTreeViewUnselectAll obj cb = connectTreeViewUnselectAll obj cb SignalConnectAfter - -connectTreeViewUnselectAll :: (GObject a, MonadIO m) => - a -> TreeViewUnselectAllCallback -> SignalConnectMode -> m SignalHandlerId -connectTreeViewUnselectAll obj cb after = liftIO $ do - cb' <- mkTreeViewUnselectAllCallback (treeViewUnselectAllCallbackWrapper cb) - connectSignalFunPtr obj "unselect-all" cb' after - --- VVV Prop "activate-on-single-click" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewActivateOnSingleClick :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click" - -setTreeViewActivateOnSingleClick :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewActivateOnSingleClick obj val = liftIO $ setObjectPropertyBool obj "activate-on-single-click" val - -constructTreeViewActivateOnSingleClick :: Bool -> IO ([Char], GValue) -constructTreeViewActivateOnSingleClick val = constructObjectPropertyBool "activate-on-single-click" val - -data TreeViewActivateOnSingleClickPropertyInfo -instance AttrInfo TreeViewActivateOnSingleClickPropertyInfo where - type AttrAllowedOps TreeViewActivateOnSingleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewActivateOnSingleClickPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewActivateOnSingleClickPropertyInfo = TreeViewK - type AttrGetType TreeViewActivateOnSingleClickPropertyInfo = Bool - type AttrLabel TreeViewActivateOnSingleClickPropertyInfo = "TreeView::activate-on-single-click" - attrGet _ = getTreeViewActivateOnSingleClick - attrSet _ = setTreeViewActivateOnSingleClick - attrConstruct _ = constructTreeViewActivateOnSingleClick - --- VVV Prop "enable-grid-lines" - -- Type: TInterface "Gtk" "TreeViewGridLines" - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewEnableGridLines :: (MonadIO m, TreeViewK o) => o -> m TreeViewGridLines -getTreeViewEnableGridLines obj = liftIO $ getObjectPropertyEnum obj "enable-grid-lines" - -setTreeViewEnableGridLines :: (MonadIO m, TreeViewK o) => o -> TreeViewGridLines -> m () -setTreeViewEnableGridLines obj val = liftIO $ setObjectPropertyEnum obj "enable-grid-lines" val - -constructTreeViewEnableGridLines :: TreeViewGridLines -> IO ([Char], GValue) -constructTreeViewEnableGridLines val = constructObjectPropertyEnum "enable-grid-lines" val - -data TreeViewEnableGridLinesPropertyInfo -instance AttrInfo TreeViewEnableGridLinesPropertyInfo where - type AttrAllowedOps TreeViewEnableGridLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewEnableGridLinesPropertyInfo = (~) TreeViewGridLines - type AttrBaseTypeConstraint TreeViewEnableGridLinesPropertyInfo = TreeViewK - type AttrGetType TreeViewEnableGridLinesPropertyInfo = TreeViewGridLines - type AttrLabel TreeViewEnableGridLinesPropertyInfo = "TreeView::enable-grid-lines" - attrGet _ = getTreeViewEnableGridLines - attrSet _ = setTreeViewEnableGridLines - attrConstruct _ = constructTreeViewEnableGridLines - --- VVV Prop "enable-search" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewEnableSearch :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewEnableSearch obj = liftIO $ getObjectPropertyBool obj "enable-search" - -setTreeViewEnableSearch :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewEnableSearch obj val = liftIO $ setObjectPropertyBool obj "enable-search" val - -constructTreeViewEnableSearch :: Bool -> IO ([Char], GValue) -constructTreeViewEnableSearch val = constructObjectPropertyBool "enable-search" val - -data TreeViewEnableSearchPropertyInfo -instance AttrInfo TreeViewEnableSearchPropertyInfo where - type AttrAllowedOps TreeViewEnableSearchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewEnableSearchPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewEnableSearchPropertyInfo = TreeViewK - type AttrGetType TreeViewEnableSearchPropertyInfo = Bool - type AttrLabel TreeViewEnableSearchPropertyInfo = "TreeView::enable-search" - attrGet _ = getTreeViewEnableSearch - attrSet _ = setTreeViewEnableSearch - attrConstruct _ = constructTreeViewEnableSearch - --- VVV Prop "enable-tree-lines" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewEnableTreeLines :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewEnableTreeLines obj = liftIO $ getObjectPropertyBool obj "enable-tree-lines" - -setTreeViewEnableTreeLines :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewEnableTreeLines obj val = liftIO $ setObjectPropertyBool obj "enable-tree-lines" val - -constructTreeViewEnableTreeLines :: Bool -> IO ([Char], GValue) -constructTreeViewEnableTreeLines val = constructObjectPropertyBool "enable-tree-lines" val - -data TreeViewEnableTreeLinesPropertyInfo -instance AttrInfo TreeViewEnableTreeLinesPropertyInfo where - type AttrAllowedOps TreeViewEnableTreeLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewEnableTreeLinesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewEnableTreeLinesPropertyInfo = TreeViewK - type AttrGetType TreeViewEnableTreeLinesPropertyInfo = Bool - type AttrLabel TreeViewEnableTreeLinesPropertyInfo = "TreeView::enable-tree-lines" - attrGet _ = getTreeViewEnableTreeLines - attrSet _ = setTreeViewEnableTreeLines - attrConstruct _ = constructTreeViewEnableTreeLines - --- VVV Prop "expander-column" - -- Type: TInterface "Gtk" "TreeViewColumn" - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewExpanderColumn :: (MonadIO m, TreeViewK o) => o -> m TreeViewColumn -getTreeViewExpanderColumn obj = liftIO $ getObjectPropertyObject obj "expander-column" TreeViewColumn - -setTreeViewExpanderColumn :: (MonadIO m, TreeViewK o, TreeViewColumnK a) => o -> a -> m () -setTreeViewExpanderColumn obj val = liftIO $ setObjectPropertyObject obj "expander-column" val - -constructTreeViewExpanderColumn :: (TreeViewColumnK a) => a -> IO ([Char], GValue) -constructTreeViewExpanderColumn val = constructObjectPropertyObject "expander-column" val - -data TreeViewExpanderColumnPropertyInfo -instance AttrInfo TreeViewExpanderColumnPropertyInfo where - type AttrAllowedOps TreeViewExpanderColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewExpanderColumnPropertyInfo = TreeViewColumnK - type AttrBaseTypeConstraint TreeViewExpanderColumnPropertyInfo = TreeViewK - type AttrGetType TreeViewExpanderColumnPropertyInfo = TreeViewColumn - type AttrLabel TreeViewExpanderColumnPropertyInfo = "TreeView::expander-column" - attrGet _ = getTreeViewExpanderColumn - attrSet _ = setTreeViewExpanderColumn - attrConstruct _ = constructTreeViewExpanderColumn - --- VVV Prop "fixed-height-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewFixedHeightMode :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewFixedHeightMode obj = liftIO $ getObjectPropertyBool obj "fixed-height-mode" - -setTreeViewFixedHeightMode :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewFixedHeightMode obj val = liftIO $ setObjectPropertyBool obj "fixed-height-mode" val - -constructTreeViewFixedHeightMode :: Bool -> IO ([Char], GValue) -constructTreeViewFixedHeightMode val = constructObjectPropertyBool "fixed-height-mode" val - -data TreeViewFixedHeightModePropertyInfo -instance AttrInfo TreeViewFixedHeightModePropertyInfo where - type AttrAllowedOps TreeViewFixedHeightModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewFixedHeightModePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewFixedHeightModePropertyInfo = TreeViewK - type AttrGetType TreeViewFixedHeightModePropertyInfo = Bool - type AttrLabel TreeViewFixedHeightModePropertyInfo = "TreeView::fixed-height-mode" - attrGet _ = getTreeViewFixedHeightMode - attrSet _ = setTreeViewFixedHeightMode - attrConstruct _ = constructTreeViewFixedHeightMode - --- VVV Prop "headers-clickable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewHeadersClickable :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewHeadersClickable obj = liftIO $ getObjectPropertyBool obj "headers-clickable" - -setTreeViewHeadersClickable :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewHeadersClickable obj val = liftIO $ setObjectPropertyBool obj "headers-clickable" val - -constructTreeViewHeadersClickable :: Bool -> IO ([Char], GValue) -constructTreeViewHeadersClickable val = constructObjectPropertyBool "headers-clickable" val - -data TreeViewHeadersClickablePropertyInfo -instance AttrInfo TreeViewHeadersClickablePropertyInfo where - type AttrAllowedOps TreeViewHeadersClickablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewHeadersClickablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewHeadersClickablePropertyInfo = TreeViewK - type AttrGetType TreeViewHeadersClickablePropertyInfo = Bool - type AttrLabel TreeViewHeadersClickablePropertyInfo = "TreeView::headers-clickable" - attrGet _ = getTreeViewHeadersClickable - attrSet _ = setTreeViewHeadersClickable - attrConstruct _ = constructTreeViewHeadersClickable - --- VVV Prop "headers-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewHeadersVisible :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewHeadersVisible obj = liftIO $ getObjectPropertyBool obj "headers-visible" - -setTreeViewHeadersVisible :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewHeadersVisible obj val = liftIO $ setObjectPropertyBool obj "headers-visible" val - -constructTreeViewHeadersVisible :: Bool -> IO ([Char], GValue) -constructTreeViewHeadersVisible val = constructObjectPropertyBool "headers-visible" val - -data TreeViewHeadersVisiblePropertyInfo -instance AttrInfo TreeViewHeadersVisiblePropertyInfo where - type AttrAllowedOps TreeViewHeadersVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewHeadersVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewHeadersVisiblePropertyInfo = TreeViewK - type AttrGetType TreeViewHeadersVisiblePropertyInfo = Bool - type AttrLabel TreeViewHeadersVisiblePropertyInfo = "TreeView::headers-visible" - attrGet _ = getTreeViewHeadersVisible - attrSet _ = setTreeViewHeadersVisible - attrConstruct _ = constructTreeViewHeadersVisible - --- VVV Prop "hover-expand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewHoverExpand :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewHoverExpand obj = liftIO $ getObjectPropertyBool obj "hover-expand" - -setTreeViewHoverExpand :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewHoverExpand obj val = liftIO $ setObjectPropertyBool obj "hover-expand" val - -constructTreeViewHoverExpand :: Bool -> IO ([Char], GValue) -constructTreeViewHoverExpand val = constructObjectPropertyBool "hover-expand" val - -data TreeViewHoverExpandPropertyInfo -instance AttrInfo TreeViewHoverExpandPropertyInfo where - type AttrAllowedOps TreeViewHoverExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewHoverExpandPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewHoverExpandPropertyInfo = TreeViewK - type AttrGetType TreeViewHoverExpandPropertyInfo = Bool - type AttrLabel TreeViewHoverExpandPropertyInfo = "TreeView::hover-expand" - attrGet _ = getTreeViewHoverExpand - attrSet _ = setTreeViewHoverExpand - attrConstruct _ = constructTreeViewHoverExpand - --- VVV Prop "hover-selection" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewHoverSelection :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewHoverSelection obj = liftIO $ getObjectPropertyBool obj "hover-selection" - -setTreeViewHoverSelection :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewHoverSelection obj val = liftIO $ setObjectPropertyBool obj "hover-selection" val - -constructTreeViewHoverSelection :: Bool -> IO ([Char], GValue) -constructTreeViewHoverSelection val = constructObjectPropertyBool "hover-selection" val - -data TreeViewHoverSelectionPropertyInfo -instance AttrInfo TreeViewHoverSelectionPropertyInfo where - type AttrAllowedOps TreeViewHoverSelectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewHoverSelectionPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewHoverSelectionPropertyInfo = TreeViewK - type AttrGetType TreeViewHoverSelectionPropertyInfo = Bool - type AttrLabel TreeViewHoverSelectionPropertyInfo = "TreeView::hover-selection" - attrGet _ = getTreeViewHoverSelection - attrSet _ = setTreeViewHoverSelection - attrConstruct _ = constructTreeViewHoverSelection - --- VVV Prop "level-indentation" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewLevelIndentation :: (MonadIO m, TreeViewK o) => o -> m Int32 -getTreeViewLevelIndentation obj = liftIO $ getObjectPropertyCInt obj "level-indentation" - -setTreeViewLevelIndentation :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () -setTreeViewLevelIndentation obj val = liftIO $ setObjectPropertyCInt obj "level-indentation" val - -constructTreeViewLevelIndentation :: Int32 -> IO ([Char], GValue) -constructTreeViewLevelIndentation val = constructObjectPropertyCInt "level-indentation" val - -data TreeViewLevelIndentationPropertyInfo -instance AttrInfo TreeViewLevelIndentationPropertyInfo where - type AttrAllowedOps TreeViewLevelIndentationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewLevelIndentationPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TreeViewLevelIndentationPropertyInfo = TreeViewK - type AttrGetType TreeViewLevelIndentationPropertyInfo = Int32 - type AttrLabel TreeViewLevelIndentationPropertyInfo = "TreeView::level-indentation" - attrGet _ = getTreeViewLevelIndentation - attrSet _ = setTreeViewLevelIndentation - attrConstruct _ = constructTreeViewLevelIndentation - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewModel :: (MonadIO m, TreeViewK o) => o -> m TreeModel -getTreeViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel - -setTreeViewModel :: (MonadIO m, TreeViewK o, TreeModelK a) => o -> a -> m () -setTreeViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val - -constructTreeViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructTreeViewModel val = constructObjectPropertyObject "model" val - -data TreeViewModelPropertyInfo -instance AttrInfo TreeViewModelPropertyInfo where - type AttrAllowedOps TreeViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint TreeViewModelPropertyInfo = TreeViewK - type AttrGetType TreeViewModelPropertyInfo = TreeModel - type AttrLabel TreeViewModelPropertyInfo = "TreeView::model" - attrGet _ = getTreeViewModel - attrSet _ = setTreeViewModel - attrConstruct _ = constructTreeViewModel - --- VVV Prop "reorderable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewReorderable :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable" - -setTreeViewReorderable :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewReorderable obj val = liftIO $ setObjectPropertyBool obj "reorderable" val - -constructTreeViewReorderable :: Bool -> IO ([Char], GValue) -constructTreeViewReorderable val = constructObjectPropertyBool "reorderable" val - -data TreeViewReorderablePropertyInfo -instance AttrInfo TreeViewReorderablePropertyInfo where - type AttrAllowedOps TreeViewReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewReorderablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewReorderablePropertyInfo = TreeViewK - type AttrGetType TreeViewReorderablePropertyInfo = Bool - type AttrLabel TreeViewReorderablePropertyInfo = "TreeView::reorderable" - attrGet _ = getTreeViewReorderable - attrSet _ = setTreeViewReorderable - attrConstruct _ = constructTreeViewReorderable - --- VVV Prop "rubber-banding" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewRubberBanding :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewRubberBanding obj = liftIO $ getObjectPropertyBool obj "rubber-banding" - -setTreeViewRubberBanding :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewRubberBanding obj val = liftIO $ setObjectPropertyBool obj "rubber-banding" val - -constructTreeViewRubberBanding :: Bool -> IO ([Char], GValue) -constructTreeViewRubberBanding val = constructObjectPropertyBool "rubber-banding" val - -data TreeViewRubberBandingPropertyInfo -instance AttrInfo TreeViewRubberBandingPropertyInfo where - type AttrAllowedOps TreeViewRubberBandingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewRubberBandingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewRubberBandingPropertyInfo = TreeViewK - type AttrGetType TreeViewRubberBandingPropertyInfo = Bool - type AttrLabel TreeViewRubberBandingPropertyInfo = "TreeView::rubber-banding" - attrGet _ = getTreeViewRubberBanding - attrSet _ = setTreeViewRubberBanding - attrConstruct _ = constructTreeViewRubberBanding - --- VVV Prop "rules-hint" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewRulesHint :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewRulesHint obj = liftIO $ getObjectPropertyBool obj "rules-hint" - -setTreeViewRulesHint :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewRulesHint obj val = liftIO $ setObjectPropertyBool obj "rules-hint" val - -constructTreeViewRulesHint :: Bool -> IO ([Char], GValue) -constructTreeViewRulesHint val = constructObjectPropertyBool "rules-hint" val - -data TreeViewRulesHintPropertyInfo -instance AttrInfo TreeViewRulesHintPropertyInfo where - type AttrAllowedOps TreeViewRulesHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewRulesHintPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewRulesHintPropertyInfo = TreeViewK - type AttrGetType TreeViewRulesHintPropertyInfo = Bool - type AttrLabel TreeViewRulesHintPropertyInfo = "TreeView::rules-hint" - attrGet _ = getTreeViewRulesHint - attrSet _ = setTreeViewRulesHint - attrConstruct _ = constructTreeViewRulesHint - --- VVV Prop "search-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewSearchColumn :: (MonadIO m, TreeViewK o) => o -> m Int32 -getTreeViewSearchColumn obj = liftIO $ getObjectPropertyCInt obj "search-column" - -setTreeViewSearchColumn :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () -setTreeViewSearchColumn obj val = liftIO $ setObjectPropertyCInt obj "search-column" val - -constructTreeViewSearchColumn :: Int32 -> IO ([Char], GValue) -constructTreeViewSearchColumn val = constructObjectPropertyCInt "search-column" val - -data TreeViewSearchColumnPropertyInfo -instance AttrInfo TreeViewSearchColumnPropertyInfo where - type AttrAllowedOps TreeViewSearchColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewSearchColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TreeViewSearchColumnPropertyInfo = TreeViewK - type AttrGetType TreeViewSearchColumnPropertyInfo = Int32 - type AttrLabel TreeViewSearchColumnPropertyInfo = "TreeView::search-column" - attrGet _ = getTreeViewSearchColumn - attrSet _ = setTreeViewSearchColumn - attrConstruct _ = constructTreeViewSearchColumn - --- VVV Prop "show-expanders" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewShowExpanders :: (MonadIO m, TreeViewK o) => o -> m Bool -getTreeViewShowExpanders obj = liftIO $ getObjectPropertyBool obj "show-expanders" - -setTreeViewShowExpanders :: (MonadIO m, TreeViewK o) => o -> Bool -> m () -setTreeViewShowExpanders obj val = liftIO $ setObjectPropertyBool obj "show-expanders" val - -constructTreeViewShowExpanders :: Bool -> IO ([Char], GValue) -constructTreeViewShowExpanders val = constructObjectPropertyBool "show-expanders" val - -data TreeViewShowExpandersPropertyInfo -instance AttrInfo TreeViewShowExpandersPropertyInfo where - type AttrAllowedOps TreeViewShowExpandersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewShowExpandersPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TreeViewShowExpandersPropertyInfo = TreeViewK - type AttrGetType TreeViewShowExpandersPropertyInfo = Bool - type AttrLabel TreeViewShowExpandersPropertyInfo = "TreeView::show-expanders" - attrGet _ = getTreeViewShowExpanders - attrSet _ = setTreeViewShowExpanders - attrConstruct _ = constructTreeViewShowExpanders - --- VVV Prop "tooltip-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewTooltipColumn :: (MonadIO m, TreeViewK o) => o -> m Int32 -getTreeViewTooltipColumn obj = liftIO $ getObjectPropertyCInt obj "tooltip-column" - -setTreeViewTooltipColumn :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () -setTreeViewTooltipColumn obj val = liftIO $ setObjectPropertyCInt obj "tooltip-column" val - -constructTreeViewTooltipColumn :: Int32 -> IO ([Char], GValue) -constructTreeViewTooltipColumn val = constructObjectPropertyCInt "tooltip-column" val - -data TreeViewTooltipColumnPropertyInfo -instance AttrInfo TreeViewTooltipColumnPropertyInfo where - type AttrAllowedOps TreeViewTooltipColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewTooltipColumnPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint TreeViewTooltipColumnPropertyInfo = TreeViewK - type AttrGetType TreeViewTooltipColumnPropertyInfo = Int32 - type AttrLabel TreeViewTooltipColumnPropertyInfo = "TreeView::tooltip-column" - attrGet _ = getTreeViewTooltipColumn - attrSet _ = setTreeViewTooltipColumn - attrConstruct _ = constructTreeViewTooltipColumn - -type instance AttributeList TreeView = TreeViewAttributeList -type TreeViewAttributeList = ('[ '("activate-on-single-click", TreeViewActivateOnSingleClickPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("enable-grid-lines", TreeViewEnableGridLinesPropertyInfo), '("enable-search", TreeViewEnableSearchPropertyInfo), '("enable-tree-lines", TreeViewEnableTreeLinesPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expander-column", TreeViewExpanderColumnPropertyInfo), '("fixed-height-mode", TreeViewFixedHeightModePropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("headers-clickable", TreeViewHeadersClickablePropertyInfo), '("headers-visible", TreeViewHeadersVisiblePropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hover-expand", TreeViewHoverExpandPropertyInfo), '("hover-selection", TreeViewHoverSelectionPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("level-indentation", TreeViewLevelIndentationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", TreeViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("reorderable", TreeViewReorderablePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("rubber-banding", TreeViewRubberBandingPropertyInfo), '("rules-hint", TreeViewRulesHintPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("search-column", TreeViewSearchColumnPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-expanders", TreeViewShowExpandersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-column", TreeViewTooltipColumnPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data TreeViewColumnsChangedSignalInfo -instance SignalInfo TreeViewColumnsChangedSignalInfo where - type HaskellCallbackType TreeViewColumnsChangedSignalInfo = TreeViewColumnsChangedCallback - connectSignal _ = connectTreeViewColumnsChanged - -data TreeViewCursorChangedSignalInfo -instance SignalInfo TreeViewCursorChangedSignalInfo where - type HaskellCallbackType TreeViewCursorChangedSignalInfo = TreeViewCursorChangedCallback - connectSignal _ = connectTreeViewCursorChanged - -data TreeViewExpandCollapseCursorRowSignalInfo -instance SignalInfo TreeViewExpandCollapseCursorRowSignalInfo where - type HaskellCallbackType TreeViewExpandCollapseCursorRowSignalInfo = TreeViewExpandCollapseCursorRowCallback - connectSignal _ = connectTreeViewExpandCollapseCursorRow - -data TreeViewMoveCursorSignalInfo -instance SignalInfo TreeViewMoveCursorSignalInfo where - type HaskellCallbackType TreeViewMoveCursorSignalInfo = TreeViewMoveCursorCallback - connectSignal _ = connectTreeViewMoveCursor - -data TreeViewRowActivatedSignalInfo -instance SignalInfo TreeViewRowActivatedSignalInfo where - type HaskellCallbackType TreeViewRowActivatedSignalInfo = TreeViewRowActivatedCallback - connectSignal _ = connectTreeViewRowActivated - -data TreeViewRowCollapsedSignalInfo -instance SignalInfo TreeViewRowCollapsedSignalInfo where - type HaskellCallbackType TreeViewRowCollapsedSignalInfo = TreeViewRowCollapsedCallback - connectSignal _ = connectTreeViewRowCollapsed - -data TreeViewRowExpandedSignalInfo -instance SignalInfo TreeViewRowExpandedSignalInfo where - type HaskellCallbackType TreeViewRowExpandedSignalInfo = TreeViewRowExpandedCallback - connectSignal _ = connectTreeViewRowExpanded - -data TreeViewSelectAllSignalInfo -instance SignalInfo TreeViewSelectAllSignalInfo where - type HaskellCallbackType TreeViewSelectAllSignalInfo = TreeViewSelectAllCallback - connectSignal _ = connectTreeViewSelectAll - -data TreeViewSelectCursorParentSignalInfo -instance SignalInfo TreeViewSelectCursorParentSignalInfo where - type HaskellCallbackType TreeViewSelectCursorParentSignalInfo = TreeViewSelectCursorParentCallback - connectSignal _ = connectTreeViewSelectCursorParent - -data TreeViewSelectCursorRowSignalInfo -instance SignalInfo TreeViewSelectCursorRowSignalInfo where - type HaskellCallbackType TreeViewSelectCursorRowSignalInfo = TreeViewSelectCursorRowCallback - connectSignal _ = connectTreeViewSelectCursorRow - -data TreeViewStartInteractiveSearchSignalInfo -instance SignalInfo TreeViewStartInteractiveSearchSignalInfo where - type HaskellCallbackType TreeViewStartInteractiveSearchSignalInfo = TreeViewStartInteractiveSearchCallback - connectSignal _ = connectTreeViewStartInteractiveSearch - -data TreeViewTestCollapseRowSignalInfo -instance SignalInfo TreeViewTestCollapseRowSignalInfo where - type HaskellCallbackType TreeViewTestCollapseRowSignalInfo = TreeViewTestCollapseRowCallback - connectSignal _ = connectTreeViewTestCollapseRow - -data TreeViewTestExpandRowSignalInfo -instance SignalInfo TreeViewTestExpandRowSignalInfo where - type HaskellCallbackType TreeViewTestExpandRowSignalInfo = TreeViewTestExpandRowCallback - connectSignal _ = connectTreeViewTestExpandRow - -data TreeViewToggleCursorRowSignalInfo -instance SignalInfo TreeViewToggleCursorRowSignalInfo where - type HaskellCallbackType TreeViewToggleCursorRowSignalInfo = TreeViewToggleCursorRowCallback - connectSignal _ = connectTreeViewToggleCursorRow - -data TreeViewUnselectAllSignalInfo -instance SignalInfo TreeViewUnselectAllSignalInfo where - type HaskellCallbackType TreeViewUnselectAllSignalInfo = TreeViewUnselectAllCallback - connectSignal _ = connectTreeViewUnselectAll - -type instance SignalList TreeView = TreeViewSignalList -type TreeViewSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("columns-changed", TreeViewColumnsChangedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cursor-changed", TreeViewCursorChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("expand-collapse-cursor-row", TreeViewExpandCollapseCursorRowSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", TreeViewMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("row-activated", TreeViewRowActivatedSignalInfo), '("row-collapsed", TreeViewRowCollapsedSignalInfo), '("row-expanded", TreeViewRowExpandedSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", TreeViewSelectAllSignalInfo), '("select-cursor-parent", TreeViewSelectCursorParentSignalInfo), '("select-cursor-row", TreeViewSelectCursorRowSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("start-interactive-search", TreeViewStartInteractiveSearchSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("test-collapse-row", TreeViewTestCollapseRowSignalInfo), '("test-expand-row", TreeViewTestExpandRowSignalInfo), '("toggle-cursor-row", TreeViewToggleCursorRowSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselect-all", TreeViewUnselectAllSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TreeView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Gtk" "TreeView" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_new" gtk_tree_view_new :: - IO (Ptr TreeView) - - -treeViewNew :: - (MonadIO m) => - m TreeView -treeViewNew = liftIO $ do - result <- gtk_tree_view_new - checkUnexpectedReturnNULL "gtk_tree_view_new" result - result' <- (newObject TreeView) result - return result' - --- method TreeView::new_with_model --- method type : Constructor --- Args : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TreeView" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_new_with_model" gtk_tree_view_new_with_model :: - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO (Ptr TreeView) - - -treeViewNewWithModel :: - (MonadIO m, TreeModelK a) => - a -> -- model - m TreeView -treeViewNewWithModel model = liftIO $ do - let model' = unsafeManagedPtrCastPtr model - result <- gtk_tree_view_new_with_model model' - checkUnexpectedReturnNULL "gtk_tree_view_new_with_model" result - result' <- (newObject TreeView) result - touchManagedPtr model - return result' - --- method TreeView::append_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_append_column" gtk_tree_view_append_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - IO Int32 - - -treeViewAppendColumn :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -> -- _obj - b -> -- column - m Int32 -treeViewAppendColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let column' = unsafeManagedPtrCastPtr column - result <- gtk_tree_view_append_column _obj' column' - touchManagedPtr _obj - touchManagedPtr column - return result - --- method TreeView::collapse_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_collapse_all" gtk_tree_view_collapse_all :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO () - - -treeViewCollapseAll :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m () -treeViewCollapseAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_collapse_all _obj' - touchManagedPtr _obj - return () - --- method TreeView::collapse_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_collapse_row" gtk_tree_view_collapse_row :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO CInt - - -treeViewCollapseRow :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - TreePath -> -- path - m Bool -treeViewCollapseRow _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_view_collapse_row _obj' path' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - return result' - --- method TreeView::columns_autosize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_columns_autosize" gtk_tree_view_columns_autosize :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO () - - -treeViewColumnsAutosize :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m () -treeViewColumnsAutosize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_columns_autosize _obj' - touchManagedPtr _obj - return () - --- method TreeView::convert_bin_window_to_tree_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_convert_bin_window_to_tree_coords" gtk_tree_view_convert_bin_window_to_tree_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- bx : TBasicType TInt32 - Int32 -> -- by : TBasicType TInt32 - Ptr Int32 -> -- tx : TBasicType TInt32 - Ptr Int32 -> -- ty : TBasicType TInt32 - IO () - - -treeViewConvertBinWindowToTreeCoords :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- bx - Int32 -> -- by - m (Int32,Int32) -treeViewConvertBinWindowToTreeCoords _obj bx by = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - tx <- allocMem :: IO (Ptr Int32) - ty <- allocMem :: IO (Ptr Int32) - gtk_tree_view_convert_bin_window_to_tree_coords _obj' bx by tx ty - tx' <- peek tx - ty' <- peek ty - touchManagedPtr _obj - freeMem tx - freeMem ty - return (tx', ty') - --- method TreeView::convert_bin_window_to_widget_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_convert_bin_window_to_widget_coords" gtk_tree_view_convert_bin_window_to_widget_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- bx : TBasicType TInt32 - Int32 -> -- by : TBasicType TInt32 - Ptr Int32 -> -- wx : TBasicType TInt32 - Ptr Int32 -> -- wy : TBasicType TInt32 - IO () - - -treeViewConvertBinWindowToWidgetCoords :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- bx - Int32 -> -- by - m (Int32,Int32) -treeViewConvertBinWindowToWidgetCoords _obj bx by = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - wx <- allocMem :: IO (Ptr Int32) - wy <- allocMem :: IO (Ptr Int32) - gtk_tree_view_convert_bin_window_to_widget_coords _obj' bx by wx wy - wx' <- peek wx - wy' <- peek wy - touchManagedPtr _obj - freeMem wx - freeMem wy - return (wx', wy') - --- method TreeView::convert_tree_to_bin_window_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_convert_tree_to_bin_window_coords" gtk_tree_view_convert_tree_to_bin_window_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- tx : TBasicType TInt32 - Int32 -> -- ty : TBasicType TInt32 - Ptr Int32 -> -- bx : TBasicType TInt32 - Ptr Int32 -> -- by : TBasicType TInt32 - IO () - - -treeViewConvertTreeToBinWindowCoords :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- tx - Int32 -> -- ty - m (Int32,Int32) -treeViewConvertTreeToBinWindowCoords _obj tx ty = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - bx <- allocMem :: IO (Ptr Int32) - by <- allocMem :: IO (Ptr Int32) - gtk_tree_view_convert_tree_to_bin_window_coords _obj' tx ty bx by - bx' <- peek bx - by' <- peek by - touchManagedPtr _obj - freeMem bx - freeMem by - return (bx', by') - --- method TreeView::convert_tree_to_widget_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_convert_tree_to_widget_coords" gtk_tree_view_convert_tree_to_widget_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- tx : TBasicType TInt32 - Int32 -> -- ty : TBasicType TInt32 - Ptr Int32 -> -- wx : TBasicType TInt32 - Ptr Int32 -> -- wy : TBasicType TInt32 - IO () - - -treeViewConvertTreeToWidgetCoords :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- tx - Int32 -> -- ty - m (Int32,Int32) -treeViewConvertTreeToWidgetCoords _obj tx ty = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - wx <- allocMem :: IO (Ptr Int32) - wy <- allocMem :: IO (Ptr Int32) - gtk_tree_view_convert_tree_to_widget_coords _obj' tx ty wx wy - wx' <- peek wx - wy' <- peek wy - touchManagedPtr _obj - freeMem wx - freeMem wy - return (wx', wy') - --- method TreeView::convert_widget_to_bin_window_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_convert_widget_to_bin_window_coords" gtk_tree_view_convert_widget_to_bin_window_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- wx : TBasicType TInt32 - Int32 -> -- wy : TBasicType TInt32 - Ptr Int32 -> -- bx : TBasicType TInt32 - Ptr Int32 -> -- by : TBasicType TInt32 - IO () - - -treeViewConvertWidgetToBinWindowCoords :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- wx - Int32 -> -- wy - m (Int32,Int32) -treeViewConvertWidgetToBinWindowCoords _obj wx wy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - bx <- allocMem :: IO (Ptr Int32) - by <- allocMem :: IO (Ptr Int32) - gtk_tree_view_convert_widget_to_bin_window_coords _obj' wx wy bx by - bx' <- peek bx - by' <- peek by - touchManagedPtr _obj - freeMem bx - freeMem by - return (bx', by') - --- method TreeView::convert_widget_to_tree_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_convert_widget_to_tree_coords" gtk_tree_view_convert_widget_to_tree_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- wx : TBasicType TInt32 - Int32 -> -- wy : TBasicType TInt32 - Ptr Int32 -> -- tx : TBasicType TInt32 - Ptr Int32 -> -- ty : TBasicType TInt32 - IO () - - -treeViewConvertWidgetToTreeCoords :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- wx - Int32 -> -- wy - m (Int32,Int32) -treeViewConvertWidgetToTreeCoords _obj wx wy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - tx <- allocMem :: IO (Ptr Int32) - ty <- allocMem :: IO (Ptr Int32) - gtk_tree_view_convert_widget_to_tree_coords _obj' wx wy tx ty - tx' <- peek tx - ty' <- peek ty - touchManagedPtr _obj - freeMem tx - freeMem ty - return (tx', ty') - --- method TreeView::create_row_drag_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "cairo" "Surface" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_create_row_drag_icon" gtk_tree_view_create_row_drag_icon :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO (Ptr Cairo.Surface) - - -treeViewCreateRowDragIcon :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - TreePath -> -- path - m Cairo.Surface -treeViewCreateRowDragIcon _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_view_create_row_drag_icon _obj' path' - checkUnexpectedReturnNULL "gtk_tree_view_create_row_drag_icon" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - touchManagedPtr path - return result' - --- method TreeView::enable_model_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_enable_model_drag_dest" gtk_tree_view_enable_model_drag_dest :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -treeViewEnableModelDragDest :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - [TargetEntry] -> -- targets - [Gdk.DragAction] -> -- actions - m () -treeViewEnableModelDragDest _obj targets actions = liftIO $ do - let n_targets = fromIntegral $ length targets - let _obj' = unsafeManagedPtrCastPtr _obj - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - let actions' = gflagsToWord actions - gtk_tree_view_enable_model_drag_dest _obj' targets'' n_targets actions' - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - --- method TreeView::enable_model_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_enable_model_drag_source" gtk_tree_view_enable_model_drag_source :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" - Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -treeViewEnableModelDragSource :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - [Gdk.ModifierType] -> -- start_button_mask - [TargetEntry] -> -- targets - [Gdk.DragAction] -> -- actions - m () -treeViewEnableModelDragSource _obj start_button_mask targets actions = liftIO $ do - let n_targets = fromIntegral $ length targets - let _obj' = unsafeManagedPtrCastPtr _obj - let start_button_mask' = gflagsToWord start_button_mask - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - let actions' = gflagsToWord actions - gtk_tree_view_enable_model_drag_source _obj' start_button_mask' targets'' n_targets actions' - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - --- method TreeView::expand_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_expand_all" gtk_tree_view_expand_all :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO () - - -treeViewExpandAll :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m () -treeViewExpandAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_expand_all _obj' - touchManagedPtr _obj - return () - --- method TreeView::expand_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "open_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "open_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_expand_row" gtk_tree_view_expand_row :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - CInt -> -- open_all : TBasicType TBoolean - IO CInt - - -treeViewExpandRow :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - TreePath -> -- path - Bool -> -- open_all - m Bool -treeViewExpandRow _obj path open_all = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let open_all' = (fromIntegral . fromEnum) open_all - result <- gtk_tree_view_expand_row _obj' path' open_all' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - return result' - --- method TreeView::expand_to_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_expand_to_path" gtk_tree_view_expand_to_path :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -treeViewExpandToPath :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - TreePath -> -- path - m () -treeViewExpandToPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - gtk_tree_view_expand_to_path _obj' path' - touchManagedPtr _obj - touchManagedPtr path - return () - --- method TreeView::get_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_activate_on_single_click" gtk_tree_view_get_activate_on_single_click :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetActivateOnSingleClick :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewGetActivateOnSingleClick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_activate_on_single_click _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_background_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_background_area" gtk_tree_view_get_background_area :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO () - - -treeViewGetBackgroundArea :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -> -- _obj - Maybe (TreePath) -> -- path - Maybe (b) -> -- column - m (Gdk.Rectangle) -treeViewGetBackgroundArea _obj path column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - maybeColumn <- case column of - Nothing -> return nullPtr - Just jColumn -> do - let jColumn' = unsafeManagedPtrCastPtr jColumn - return jColumn' - rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_tree_view_get_background_area _obj' maybePath maybeColumn rect - rect' <- (wrapBoxed Gdk.Rectangle) rect - touchManagedPtr _obj - whenJust path touchManagedPtr - whenJust column touchManagedPtr - return rect' - --- method TreeView::get_bin_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Window" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_bin_window" gtk_tree_view_get_bin_window :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr Gdk.Window) - - -treeViewGetBinWindow :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Gdk.Window -treeViewGetBinWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_bin_window _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_bin_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - --- method TreeView::get_cell_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_cell_area" gtk_tree_view_get_cell_area :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO () - - -treeViewGetCellArea :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -> -- _obj - Maybe (TreePath) -> -- path - Maybe (b) -> -- column - m (Gdk.Rectangle) -treeViewGetCellArea _obj path column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - maybeColumn <- case column of - Nothing -> return nullPtr - Just jColumn -> do - let jColumn' = unsafeManagedPtrCastPtr jColumn - return jColumn' - rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_tree_view_get_cell_area _obj' maybePath maybeColumn rect - rect' <- (wrapBoxed Gdk.Rectangle) rect - touchManagedPtr _obj - whenJust path touchManagedPtr - whenJust column touchManagedPtr - return rect' - --- method TreeView::get_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TreeViewColumn" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_column" gtk_tree_view_get_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- n : TBasicType TInt32 - IO (Ptr TreeViewColumn) - - -treeViewGetColumn :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- n - m TreeViewColumn -treeViewGetColumn _obj n = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_column _obj' n - checkUnexpectedReturnNULL "gtk_tree_view_get_column" result - result' <- (newObject TreeViewColumn) result - touchManagedPtr _obj - return result' - --- method TreeView::get_columns --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGList (TInterface "Gtk" "TreeViewColumn") --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_columns" gtk_tree_view_get_columns :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr (GList (Ptr TreeViewColumn))) - - -treeViewGetColumns :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m [TreeViewColumn] -treeViewGetColumns _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_columns _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_columns" result - result' <- unpackGList result - result'' <- mapM (newObject TreeViewColumn) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method TreeView::get_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_cursor" gtk_tree_view_get_cursor :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr (Ptr TreeViewColumn) -> -- focus_column : TInterface "Gtk" "TreeViewColumn" - IO () - - -treeViewGetCursor :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m ((Maybe TreePath),(Maybe TreeViewColumn)) -treeViewGetCursor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - focus_column <- allocMem :: IO (Ptr (Ptr TreeViewColumn)) - gtk_tree_view_get_cursor _obj' path focus_column - path' <- peek path - maybePath' <- convertIfNonNull path' $ \path'' -> do - path''' <- (wrapBoxed TreePath) path'' - return path''' - focus_column' <- peek focus_column - maybeFocus_column' <- convertIfNonNull focus_column' $ \focus_column'' -> do - focus_column''' <- (newObject TreeViewColumn) focus_column'' - return focus_column''' - touchManagedPtr _obj - freeMem path - freeMem focus_column - return (maybePath', maybeFocus_column') - --- method TreeView::get_dest_row_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_dest_row_at_pos" gtk_tree_view_get_dest_row_at_pos :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- drag_x : TBasicType TInt32 - Int32 -> -- drag_y : TBasicType TInt32 - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition" - IO CInt - - -treeViewGetDestRowAtPos :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- drag_x - Int32 -> -- drag_y - m (Bool,(Maybe TreePath),TreeViewDropPosition) -treeViewGetDestRowAtPos _obj drag_x drag_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - pos <- allocMem :: IO (Ptr CUInt) - result <- gtk_tree_view_get_dest_row_at_pos _obj' drag_x drag_y path pos - let result' = (/= 0) result - path' <- peek path - maybePath' <- convertIfNonNull path' $ \path'' -> do - path''' <- (wrapBoxed TreePath) path'' - return path''' - pos' <- peek pos - let pos'' = (toEnum . fromIntegral) pos' - touchManagedPtr _obj - freeMem path - freeMem pos - return (result', maybePath', pos'') - --- method TreeView::get_drag_dest_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_drag_dest_row" gtk_tree_view_get_drag_dest_row :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition" - IO () - - -treeViewGetDragDestRow :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m ((Maybe TreePath),TreeViewDropPosition) -treeViewGetDragDestRow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - pos <- allocMem :: IO (Ptr CUInt) - gtk_tree_view_get_drag_dest_row _obj' path pos - path' <- peek path - maybePath' <- convertIfNonNull path' $ \path'' -> do - path''' <- (wrapBoxed TreePath) path'' - return path''' - pos' <- peek pos - let pos'' = (toEnum . fromIntegral) pos' - touchManagedPtr _obj - freeMem path - freeMem pos - return (maybePath', pos'') - --- method TreeView::get_enable_search --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_enable_search" gtk_tree_view_get_enable_search :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetEnableSearch :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewGetEnableSearch _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_enable_search _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_enable_tree_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_enable_tree_lines" gtk_tree_view_get_enable_tree_lines :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetEnableTreeLines :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewGetEnableTreeLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_enable_tree_lines _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_expander_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TreeViewColumn" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_expander_column" gtk_tree_view_get_expander_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr TreeViewColumn) - - -treeViewGetExpanderColumn :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m TreeViewColumn -treeViewGetExpanderColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_expander_column _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_expander_column" result - result' <- (newObject TreeViewColumn) result - touchManagedPtr _obj - return result' - --- method TreeView::get_fixed_height_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_fixed_height_mode" gtk_tree_view_get_fixed_height_mode :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetFixedHeightMode :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewGetFixedHeightMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_fixed_height_mode _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_grid_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TreeViewGridLines" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_grid_lines" gtk_tree_view_get_grid_lines :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CUInt - - -treeViewGetGridLines :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m TreeViewGridLines -treeViewGetGridLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_grid_lines _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method TreeView::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Adjustment" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_hadjustment" gtk_tree_view_get_hadjustment :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr Adjustment) - -{-# DEPRECATED treeViewGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-} -treeViewGetHadjustment :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Adjustment -treeViewGetHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_hadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - --- method TreeView::get_headers_clickable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_headers_clickable" gtk_tree_view_get_headers_clickable :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetHeadersClickable :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewGetHeadersClickable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_headers_clickable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_headers_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_headers_visible" gtk_tree_view_get_headers_visible :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetHeadersVisible :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewGetHeadersVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_headers_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_hover_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_hover_expand" gtk_tree_view_get_hover_expand :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetHoverExpand :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewGetHoverExpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_hover_expand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_hover_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_hover_selection" gtk_tree_view_get_hover_selection :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetHoverSelection :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewGetHoverSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_hover_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_level_indentation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_level_indentation" gtk_tree_view_get_level_indentation :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO Int32 - - -treeViewGetLevelIndentation :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Int32 -treeViewGetLevelIndentation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_level_indentation _obj' - touchManagedPtr _obj - return result - --- method TreeView::get_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TreeModel" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_model" gtk_tree_view_get_model :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr TreeModel) - - -treeViewGetModel :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m TreeModel -treeViewGetModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_model _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_model" result - result' <- (newObject TreeModel) result - touchManagedPtr _obj - return result' - --- method TreeView::get_n_columns --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_n_columns" gtk_tree_view_get_n_columns :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO Word32 - - -treeViewGetNColumns :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Word32 -treeViewGetNColumns _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_n_columns _obj' - touchManagedPtr _obj - return result - --- method TreeView::get_path_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_path_at_pos" gtk_tree_view_get_path_at_pos :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr (Ptr TreeViewColumn) -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr Int32 -> -- cell_x : TBasicType TInt32 - Ptr Int32 -> -- cell_y : TBasicType TInt32 - IO CInt - - -treeViewGetPathAtPos :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m (Bool,(Maybe TreePath),(Maybe TreeViewColumn),Int32,Int32) -treeViewGetPathAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - column <- allocMem :: IO (Ptr (Ptr TreeViewColumn)) - cell_x <- allocMem :: IO (Ptr Int32) - cell_y <- allocMem :: IO (Ptr Int32) - result <- gtk_tree_view_get_path_at_pos _obj' x y path column cell_x cell_y - let result' = (/= 0) result - path' <- peek path - maybePath' <- convertIfNonNull path' $ \path'' -> do - path''' <- (wrapBoxed TreePath) path'' - return path''' - column' <- peek column - maybeColumn' <- convertIfNonNull column' $ \column'' -> do - column''' <- (newObject TreeViewColumn) column'' - return column''' - cell_x' <- peek cell_x - cell_y' <- peek cell_y - touchManagedPtr _obj - freeMem path - freeMem column - freeMem cell_x - freeMem cell_y - return (result', maybePath', maybeColumn', cell_x', cell_y') - --- method TreeView::get_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_reorderable" gtk_tree_view_get_reorderable :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetReorderable :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewGetReorderable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_reorderable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_rubber_banding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_rubber_banding" gtk_tree_view_get_rubber_banding :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetRubberBanding :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewGetRubberBanding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_rubber_banding _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_rules_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_rules_hint" gtk_tree_view_get_rules_hint :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - -{-# DEPRECATED treeViewGetRulesHint ["(Since version 3.14)"]#-} -treeViewGetRulesHint :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewGetRulesHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_rules_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_search_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_search_column" gtk_tree_view_get_search_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO Int32 - - -treeViewGetSearchColumn :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Int32 -treeViewGetSearchColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_search_column _obj' - touchManagedPtr _obj - return result - --- method TreeView::get_search_entry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Entry" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_search_entry" gtk_tree_view_get_search_entry :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr Entry) - - -treeViewGetSearchEntry :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Entry -treeViewGetSearchEntry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_search_entry _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_search_entry" result - result' <- (newObject Entry) result - touchManagedPtr _obj - return result' - --- method TreeView::get_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TreeSelection" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_selection" gtk_tree_view_get_selection :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr TreeSelection) - - -treeViewGetSelection :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m TreeSelection -treeViewGetSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_selection _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_selection" result - result' <- (newObject TreeSelection) result - touchManagedPtr _obj - return result' - --- method TreeView::get_show_expanders --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_show_expanders" gtk_tree_view_get_show_expanders :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewGetShowExpanders :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewGetShowExpanders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_show_expanders _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_tooltip_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_tooltip_column" gtk_tree_view_get_tooltip_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO Int32 - - -treeViewGetTooltipColumn :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Int32 -treeViewGetTooltipColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_tooltip_column _obj' - touchManagedPtr _obj - return result - --- method TreeView::get_tooltip_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_tooltip_context" gtk_tree_view_get_tooltip_context :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - CInt -> -- keyboard_tip : TBasicType TBoolean - Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel" - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - IO CInt - - -treeViewGetTooltipContext :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - Bool -> -- keyboard_tip - m (Bool,Int32,Int32,(Maybe TreeModel),TreePath,TreeIter) -treeViewGetTooltipContext _obj x y keyboard_tip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x' <- allocMem :: IO (Ptr Int32) - poke x' x - y' <- allocMem :: IO (Ptr Int32) - poke y' y - let keyboard_tip' = (fromIntegral . fromEnum) keyboard_tip - model <- allocMem :: IO (Ptr (Ptr TreeModel)) - path <- allocMem :: IO (Ptr (Ptr TreePath)) - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - result <- gtk_tree_view_get_tooltip_context _obj' x' y' keyboard_tip' model path iter - let result' = (/= 0) result - x'' <- peek x' - y'' <- peek y' - model' <- peek model - maybeModel' <- convertIfNonNull model' $ \model'' -> do - model''' <- (newObject TreeModel) model'' - return model''' - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - freeMem x' - freeMem y' - freeMem model - freeMem path - return (result', x'', y'', maybeModel', path'', iter') - --- method TreeView::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Adjustment" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_vadjustment" gtk_tree_view_get_vadjustment :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO (Ptr Adjustment) - -{-# DEPRECATED treeViewGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-} -treeViewGetVadjustment :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Adjustment -treeViewGetVadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_vadjustment _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_vadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - --- method TreeView::get_visible_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_visible_range" gtk_tree_view_get_visible_range :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr (Ptr TreePath) -> -- start_path : TInterface "Gtk" "TreePath" - Ptr (Ptr TreePath) -> -- end_path : TInterface "Gtk" "TreePath" - IO CInt - - -treeViewGetVisibleRange :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m (Bool,TreePath,TreePath) -treeViewGetVisibleRange _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start_path <- allocMem :: IO (Ptr (Ptr TreePath)) - end_path <- allocMem :: IO (Ptr (Ptr TreePath)) - result <- gtk_tree_view_get_visible_range _obj' start_path end_path - let result' = (/= 0) result - start_path' <- peek start_path - start_path'' <- (wrapBoxed TreePath) start_path' - end_path' <- peek end_path - end_path'' <- (wrapBoxed TreePath) end_path' - touchManagedPtr _obj - freeMem start_path - freeMem end_path - return (result', start_path'', end_path'') - --- method TreeView::get_visible_rect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_get_visible_rect" gtk_tree_view_get_visible_rect :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Gdk.Rectangle -> -- visible_rect : TInterface "Gdk" "Rectangle" - IO () - - -treeViewGetVisibleRect :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m (Gdk.Rectangle) -treeViewGetVisibleRect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - visible_rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_tree_view_get_visible_rect _obj' visible_rect - visible_rect' <- (wrapBoxed Gdk.Rectangle) visible_rect - touchManagedPtr _obj - return visible_rect' - --- method TreeView::insert_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_insert_column" gtk_tree_view_insert_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- position : TBasicType TInt32 - IO Int32 - - -treeViewInsertColumn :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -> -- _obj - b -> -- column - Int32 -> -- position - m Int32 -treeViewInsertColumn _obj column position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let column' = unsafeManagedPtrCastPtr column - result <- gtk_tree_view_insert_column _obj' column' position - touchManagedPtr _obj - touchManagedPtr column - return result - --- method TreeView::insert_column_with_data_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_insert_column_with_data_func" gtk_tree_view_insert_column_with_data_func :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- position : TBasicType TInt32 - CString -> -- title : TBasicType TUTF8 - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - FunPtr TreeCellDataFuncC -> -- func : TInterface "Gtk" "TreeCellDataFunc" - Ptr () -> -- data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" - IO Int32 - - -treeViewInsertColumnWithDataFunc :: - (MonadIO m, TreeViewK a, CellRendererK b) => - a -> -- _obj - Int32 -> -- position - T.Text -> -- title - b -> -- cell - TreeCellDataFunc -> -- func - m Int32 -treeViewInsertColumnWithDataFunc _obj position title cell func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - let cell' = unsafeManagedPtrCastPtr cell - func' <- mkTreeCellDataFunc (treeCellDataFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let dnotify = safeFreeFunPtrPtr - result <- gtk_tree_view_insert_column_with_data_func _obj' position title' cell' func' data_ dnotify - touchManagedPtr _obj - touchManagedPtr cell - freeMem title' - return result - --- method TreeView::is_blank_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_is_blank_at_pos" gtk_tree_view_is_blank_at_pos :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr (Ptr TreeViewColumn) -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr Int32 -> -- cell_x : TBasicType TInt32 - Ptr Int32 -> -- cell_y : TBasicType TInt32 - IO CInt - - -treeViewIsBlankAtPos :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m (Bool,TreePath,TreeViewColumn,Int32,Int32) -treeViewIsBlankAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - column <- allocMem :: IO (Ptr (Ptr TreeViewColumn)) - cell_x <- allocMem :: IO (Ptr Int32) - cell_y <- allocMem :: IO (Ptr Int32) - result <- gtk_tree_view_is_blank_at_pos _obj' x y path column cell_x cell_y - let result' = (/= 0) result - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - column' <- peek column - column'' <- (wrapObject TreeViewColumn) column' - cell_x' <- peek cell_x - cell_y' <- peek cell_y - touchManagedPtr _obj - freeMem path - freeMem column - freeMem cell_x - freeMem cell_y - return (result', path'', column'', cell_x', cell_y') - --- method TreeView::is_rubber_banding_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_is_rubber_banding_active" gtk_tree_view_is_rubber_banding_active :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO CInt - - -treeViewIsRubberBandingActive :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m Bool -treeViewIsRubberBandingActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_is_rubber_banding_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::map_expanded_rows --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewMappingFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewMappingFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_map_expanded_rows" gtk_tree_view_map_expanded_rows :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - FunPtr TreeViewMappingFuncC -> -- func : TInterface "Gtk" "TreeViewMappingFunc" - Ptr () -> -- data : TBasicType TVoid - IO () - - -treeViewMapExpandedRows :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - TreeViewMappingFunc -> -- func - m () -treeViewMapExpandedRows _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkTreeViewMappingFunc (treeViewMappingFuncWrapper Nothing func) - let data_ = nullPtr - gtk_tree_view_map_expanded_rows _obj' func' data_ - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - --- method TreeView::move_column_after --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_move_column_after" gtk_tree_view_move_column_after :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr TreeViewColumn -> -- base_column : TInterface "Gtk" "TreeViewColumn" - IO () - - -treeViewMoveColumnAfter :: - (MonadIO m, TreeViewK a, TreeViewColumnK b, TreeViewColumnK c) => - a -> -- _obj - b -> -- column - Maybe (c) -> -- base_column - m () -treeViewMoveColumnAfter _obj column base_column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let column' = unsafeManagedPtrCastPtr column - maybeBase_column <- case base_column of - Nothing -> return nullPtr - Just jBase_column -> do - let jBase_column' = unsafeManagedPtrCastPtr jBase_column - return jBase_column' - gtk_tree_view_move_column_after _obj' column' maybeBase_column - touchManagedPtr _obj - touchManagedPtr column - whenJust base_column touchManagedPtr - return () - --- method TreeView::remove_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_remove_column" gtk_tree_view_remove_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - IO Int32 - - -treeViewRemoveColumn :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -> -- _obj - b -> -- column - m Int32 -treeViewRemoveColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let column' = unsafeManagedPtrCastPtr column - result <- gtk_tree_view_remove_column _obj' column' - touchManagedPtr _obj - touchManagedPtr column - return result - --- method TreeView::row_activated --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_row_activated" gtk_tree_view_row_activated :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - IO () - - -treeViewRowActivated :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -> -- _obj - TreePath -> -- path - b -> -- column - m () -treeViewRowActivated _obj path column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let column' = unsafeManagedPtrCastPtr column - gtk_tree_view_row_activated _obj' path' column' - touchManagedPtr _obj - touchManagedPtr path - touchManagedPtr column - return () - --- method TreeView::row_expanded --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_row_expanded" gtk_tree_view_row_expanded :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO CInt - - -treeViewRowExpanded :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - TreePath -> -- path - m Bool -treeViewRowExpanded _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_view_row_expanded _obj' path' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - return result' - --- method TreeView::scroll_to_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_scroll_to_cell" gtk_tree_view_scroll_to_cell :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - CInt -> -- use_align : TBasicType TBoolean - CFloat -> -- row_align : TBasicType TFloat - CFloat -> -- col_align : TBasicType TFloat - IO () - - -treeViewScrollToCell :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -> -- _obj - Maybe (TreePath) -> -- path - Maybe (b) -> -- column - Bool -> -- use_align - Float -> -- row_align - Float -> -- col_align - m () -treeViewScrollToCell _obj path column use_align row_align col_align = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - maybeColumn <- case column of - Nothing -> return nullPtr - Just jColumn -> do - let jColumn' = unsafeManagedPtrCastPtr jColumn - return jColumn' - let use_align' = (fromIntegral . fromEnum) use_align - let row_align' = realToFrac row_align - let col_align' = realToFrac col_align - gtk_tree_view_scroll_to_cell _obj' maybePath maybeColumn use_align' row_align' col_align' - touchManagedPtr _obj - whenJust path touchManagedPtr - whenJust column touchManagedPtr - return () - --- method TreeView::scroll_to_point --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_scroll_to_point" gtk_tree_view_scroll_to_point :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- tree_x : TBasicType TInt32 - Int32 -> -- tree_y : TBasicType TInt32 - IO () - - -treeViewScrollToPoint :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- tree_x - Int32 -> -- tree_y - m () -treeViewScrollToPoint _obj tree_x tree_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_scroll_to_point _obj' tree_x tree_y - touchManagedPtr _obj - return () - --- method TreeView::set_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_activate_on_single_click" gtk_tree_view_set_activate_on_single_click :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- single : TBasicType TBoolean - IO () - - -treeViewSetActivateOnSingleClick :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Bool -> -- single - m () -treeViewSetActivateOnSingleClick _obj single = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let single' = (fromIntegral . fromEnum) single - gtk_tree_view_set_activate_on_single_click _obj' single' - touchManagedPtr _obj - return () - --- method TreeView::set_column_drag_function --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewColumnDropFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewColumnDropFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_column_drag_function" gtk_tree_view_set_column_drag_function :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - FunPtr TreeViewColumnDropFuncC -> -- func : TInterface "Gtk" "TreeViewColumnDropFunc" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewSetColumnDragFunction :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Maybe (TreeViewColumnDropFunc) -> -- func - m () -treeViewSetColumnDragFunction _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkTreeViewColumnDropFunc (treeViewColumnDropFuncWrapper Nothing jFunc) - return jFunc' - let user_data = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_tree_view_set_column_drag_function _obj' maybeFunc user_data destroy - touchManagedPtr _obj - return () - --- method TreeView::set_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_cursor" gtk_tree_view_set_cursor :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- focus_column : TInterface "Gtk" "TreeViewColumn" - CInt -> -- start_editing : TBasicType TBoolean - IO () - - -treeViewSetCursor :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -> -- _obj - TreePath -> -- path - Maybe (b) -> -- focus_column - Bool -> -- start_editing - m () -treeViewSetCursor _obj path focus_column start_editing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - maybeFocus_column <- case focus_column of - Nothing -> return nullPtr - Just jFocus_column -> do - let jFocus_column' = unsafeManagedPtrCastPtr jFocus_column - return jFocus_column' - let start_editing' = (fromIntegral . fromEnum) start_editing - gtk_tree_view_set_cursor _obj' path' maybeFocus_column start_editing' - touchManagedPtr _obj - touchManagedPtr path - whenJust focus_column touchManagedPtr - return () - --- method TreeView::set_cursor_on_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_cursor_on_cell" gtk_tree_view_set_cursor_on_cell :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- focus_column : TInterface "Gtk" "TreeViewColumn" - Ptr CellRenderer -> -- focus_cell : TInterface "Gtk" "CellRenderer" - CInt -> -- start_editing : TBasicType TBoolean - IO () - - -treeViewSetCursorOnCell :: - (MonadIO m, TreeViewK a, TreeViewColumnK b, CellRendererK c) => - a -> -- _obj - TreePath -> -- path - Maybe (b) -> -- focus_column - Maybe (c) -> -- focus_cell - Bool -> -- start_editing - m () -treeViewSetCursorOnCell _obj path focus_column focus_cell start_editing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - maybeFocus_column <- case focus_column of - Nothing -> return nullPtr - Just jFocus_column -> do - let jFocus_column' = unsafeManagedPtrCastPtr jFocus_column - return jFocus_column' - maybeFocus_cell <- case focus_cell of - Nothing -> return nullPtr - Just jFocus_cell -> do - let jFocus_cell' = unsafeManagedPtrCastPtr jFocus_cell - return jFocus_cell' - let start_editing' = (fromIntegral . fromEnum) start_editing - gtk_tree_view_set_cursor_on_cell _obj' path' maybeFocus_column maybeFocus_cell start_editing' - touchManagedPtr _obj - touchManagedPtr path - whenJust focus_column touchManagedPtr - whenJust focus_cell touchManagedPtr - return () - --- method TreeView::set_destroy_count_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeDestroyCountFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeDestroyCountFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_destroy_count_func" gtk_tree_view_set_destroy_count_func :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - FunPtr TreeDestroyCountFuncC -> -- func : TInterface "Gtk" "TreeDestroyCountFunc" - Ptr () -> -- data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - -{-# DEPRECATED treeViewSetDestroyCountFunc ["(Since version 3.4)","Accessibility does not need the function anymore."]#-} -treeViewSetDestroyCountFunc :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Maybe (TreeDestroyCountFunc) -> -- func - m () -treeViewSetDestroyCountFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkTreeDestroyCountFunc (treeDestroyCountFuncWrapper Nothing jFunc) - return jFunc' - let data_ = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_tree_view_set_destroy_count_func _obj' maybeFunc data_ destroy - touchManagedPtr _obj - return () - --- method TreeView::set_drag_dest_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_drag_dest_row" gtk_tree_view_set_drag_dest_row :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition" - IO () - - -treeViewSetDragDestRow :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Maybe (TreePath) -> -- path - TreeViewDropPosition -> -- pos - m () -treeViewSetDragDestRow _obj path pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - let pos' = (fromIntegral . fromEnum) pos - gtk_tree_view_set_drag_dest_row _obj' maybePath pos' - touchManagedPtr _obj - whenJust path touchManagedPtr - return () - --- method TreeView::set_enable_search --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable_search", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable_search", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_enable_search" gtk_tree_view_set_enable_search :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- enable_search : TBasicType TBoolean - IO () - - -treeViewSetEnableSearch :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Bool -> -- enable_search - m () -treeViewSetEnableSearch _obj enable_search = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enable_search' = (fromIntegral . fromEnum) enable_search - gtk_tree_view_set_enable_search _obj' enable_search' - touchManagedPtr _obj - return () - --- method TreeView::set_enable_tree_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_enable_tree_lines" gtk_tree_view_set_enable_tree_lines :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -treeViewSetEnableTreeLines :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Bool -> -- enabled - m () -treeViewSetEnableTreeLines _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - gtk_tree_view_set_enable_tree_lines _obj' enabled' - touchManagedPtr _obj - return () - --- method TreeView::set_expander_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_expander_column" gtk_tree_view_set_expander_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - IO () - - -treeViewSetExpanderColumn :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -> -- _obj - b -> -- column - m () -treeViewSetExpanderColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let column' = unsafeManagedPtrCastPtr column - gtk_tree_view_set_expander_column _obj' column' - touchManagedPtr _obj - touchManagedPtr column - return () - --- method TreeView::set_fixed_height_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_fixed_height_mode" gtk_tree_view_set_fixed_height_mode :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- enable : TBasicType TBoolean - IO () - - -treeViewSetFixedHeightMode :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Bool -> -- enable - m () -treeViewSetFixedHeightMode _obj enable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enable' = (fromIntegral . fromEnum) enable - gtk_tree_view_set_fixed_height_mode _obj' enable' - touchManagedPtr _obj - return () - --- method TreeView::set_grid_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grid_lines", argType = TInterface "Gtk" "TreeViewGridLines", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grid_lines", argType = TInterface "Gtk" "TreeViewGridLines", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_grid_lines" gtk_tree_view_set_grid_lines :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CUInt -> -- grid_lines : TInterface "Gtk" "TreeViewGridLines" - IO () - - -treeViewSetGridLines :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - TreeViewGridLines -> -- grid_lines - m () -treeViewSetGridLines _obj grid_lines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let grid_lines' = (fromIntegral . fromEnum) grid_lines - gtk_tree_view_set_grid_lines _obj' grid_lines' - touchManagedPtr _obj - return () - --- method TreeView::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_hadjustment" gtk_tree_view_set_hadjustment :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - -{-# DEPRECATED treeViewSetHadjustment ["(Since version 3.0)","Use gtk_scrollable_set_hadjustment()"]#-} -treeViewSetHadjustment :: - (MonadIO m, TreeViewK a, AdjustmentK b) => - a -> -- _obj - Maybe (b) -> -- adjustment - m () -treeViewSetHadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - gtk_tree_view_set_hadjustment _obj' maybeAdjustment - touchManagedPtr _obj - whenJust adjustment touchManagedPtr - return () - --- method TreeView::set_headers_clickable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_headers_clickable" gtk_tree_view_set_headers_clickable :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- setting : TBasicType TBoolean - IO () - - -treeViewSetHeadersClickable :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Bool -> -- setting - m () -treeViewSetHeadersClickable _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_tree_view_set_headers_clickable _obj' setting' - touchManagedPtr _obj - return () - --- method TreeView::set_headers_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_headers_visible" gtk_tree_view_set_headers_visible :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- headers_visible : TBasicType TBoolean - IO () - - -treeViewSetHeadersVisible :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Bool -> -- headers_visible - m () -treeViewSetHeadersVisible _obj headers_visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let headers_visible' = (fromIntegral . fromEnum) headers_visible - gtk_tree_view_set_headers_visible _obj' headers_visible' - touchManagedPtr _obj - return () - --- method TreeView::set_hover_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_hover_expand" gtk_tree_view_set_hover_expand :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- expand : TBasicType TBoolean - IO () - - -treeViewSetHoverExpand :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Bool -> -- expand - m () -treeViewSetHoverExpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_tree_view_set_hover_expand _obj' expand' - touchManagedPtr _obj - return () - --- method TreeView::set_hover_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_hover_selection" gtk_tree_view_set_hover_selection :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- hover : TBasicType TBoolean - IO () - - -treeViewSetHoverSelection :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Bool -> -- hover - m () -treeViewSetHoverSelection _obj hover = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hover' = (fromIntegral . fromEnum) hover - gtk_tree_view_set_hover_selection _obj' hover' - touchManagedPtr _obj - return () - --- method TreeView::set_level_indentation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indentation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indentation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_level_indentation" gtk_tree_view_set_level_indentation :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- indentation : TBasicType TInt32 - IO () - - -treeViewSetLevelIndentation :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- indentation - m () -treeViewSetLevelIndentation _obj indentation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_set_level_indentation _obj' indentation - touchManagedPtr _obj - return () - --- method TreeView::set_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_model" gtk_tree_view_set_model :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" - IO () - - -treeViewSetModel :: - (MonadIO m, TreeViewK a, TreeModelK b) => - a -> -- _obj - Maybe (b) -> -- model - m () -treeViewSetModel _obj model = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - gtk_tree_view_set_model _obj' maybeModel - touchManagedPtr _obj - whenJust model touchManagedPtr - return () - --- method TreeView::set_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_reorderable" gtk_tree_view_set_reorderable :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- reorderable : TBasicType TBoolean - IO () - - -treeViewSetReorderable :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Bool -> -- reorderable - m () -treeViewSetReorderable _obj reorderable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reorderable' = (fromIntegral . fromEnum) reorderable - gtk_tree_view_set_reorderable _obj' reorderable' - touchManagedPtr _obj - return () - --- method TreeView::set_row_separator_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_row_separator_func" gtk_tree_view_set_row_separator_func :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - FunPtr TreeViewRowSeparatorFuncC -> -- func : TInterface "Gtk" "TreeViewRowSeparatorFunc" - Ptr () -> -- data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewSetRowSeparatorFunc :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Maybe (TreeViewRowSeparatorFunc) -> -- func - m () -treeViewSetRowSeparatorFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkTreeViewRowSeparatorFunc (treeViewRowSeparatorFuncWrapper Nothing jFunc) - return jFunc' - let data_ = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_tree_view_set_row_separator_func _obj' maybeFunc data_ destroy - touchManagedPtr _obj - return () - --- method TreeView::set_rubber_banding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_rubber_banding" gtk_tree_view_set_rubber_banding :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- enable : TBasicType TBoolean - IO () - - -treeViewSetRubberBanding :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Bool -> -- enable - m () -treeViewSetRubberBanding _obj enable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enable' = (fromIntegral . fromEnum) enable - gtk_tree_view_set_rubber_banding _obj' enable' - touchManagedPtr _obj - return () - --- method TreeView::set_rules_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_rules_hint" gtk_tree_view_set_rules_hint :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- setting : TBasicType TBoolean - IO () - -{-# DEPRECATED treeViewSetRulesHint ["(Since version 3.14)"]#-} -treeViewSetRulesHint :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Bool -> -- setting - m () -treeViewSetRulesHint _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_tree_view_set_rules_hint _obj' setting' - touchManagedPtr _obj - return () - --- method TreeView::set_search_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_search_column" gtk_tree_view_set_search_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- column : TBasicType TInt32 - IO () - - -treeViewSetSearchColumn :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- column - m () -treeViewSetSearchColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_set_search_column _obj' column - touchManagedPtr _obj - return () - --- method TreeView::set_search_entry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_search_entry" gtk_tree_view_set_search_entry :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Entry -> -- entry : TInterface "Gtk" "Entry" - IO () - - -treeViewSetSearchEntry :: - (MonadIO m, TreeViewK a, EntryK b) => - a -> -- _obj - Maybe (b) -> -- entry - m () -treeViewSetSearchEntry _obj entry = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeEntry <- case entry of - Nothing -> return nullPtr - Just jEntry -> do - let jEntry' = unsafeManagedPtrCastPtr jEntry - return jEntry' - gtk_tree_view_set_search_entry _obj' maybeEntry - touchManagedPtr _obj - whenJust entry touchManagedPtr - return () - --- method TreeView::set_search_equal_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_equal_func", argType = TInterface "Gtk" "TreeViewSearchEqualFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "search_user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_equal_func", argType = TInterface "Gtk" "TreeViewSearchEqualFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_search_equal_func" gtk_tree_view_set_search_equal_func :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - FunPtr TreeViewSearchEqualFuncC -> -- search_equal_func : TInterface "Gtk" "TreeViewSearchEqualFunc" - Ptr () -> -- search_user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- search_destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewSetSearchEqualFunc :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - TreeViewSearchEqualFunc -> -- search_equal_func - m () -treeViewSetSearchEqualFunc _obj search_equal_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - search_equal_func' <- mkTreeViewSearchEqualFunc (treeViewSearchEqualFuncWrapper Nothing search_equal_func) - let search_user_data = castFunPtrToPtr search_equal_func' - let search_destroy = safeFreeFunPtrPtr - gtk_tree_view_set_search_equal_func _obj' search_equal_func' search_user_data search_destroy - touchManagedPtr _obj - return () - --- method TreeView::set_search_position_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewSearchPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewSearchPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_search_position_func" gtk_tree_view_set_search_position_func :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - FunPtr TreeViewSearchPositionFuncC -> -- func : TInterface "Gtk" "TreeViewSearchPositionFunc" - Ptr () -> -- data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewSetSearchPositionFunc :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Maybe (TreeViewSearchPositionFunc) -> -- func - m () -treeViewSetSearchPositionFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkTreeViewSearchPositionFunc (treeViewSearchPositionFuncWrapper Nothing jFunc) - return jFunc' - let data_ = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_tree_view_set_search_position_func _obj' maybeFunc data_ destroy - touchManagedPtr _obj - return () - --- method TreeView::set_show_expanders --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_show_expanders" gtk_tree_view_set_show_expanders :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -treeViewSetShowExpanders :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Bool -> -- enabled - m () -treeViewSetShowExpanders _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - gtk_tree_view_set_show_expanders _obj' enabled' - touchManagedPtr _obj - return () - --- method TreeView::set_tooltip_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_tooltip_cell" gtk_tree_view_set_tooltip_cell :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - IO () - - -treeViewSetTooltipCell :: - (MonadIO m, TreeViewK a, TooltipK b, TreeViewColumnK c, CellRendererK d) => - a -> -- _obj - b -> -- tooltip - Maybe (TreePath) -> -- path - Maybe (c) -> -- column - Maybe (d) -> -- cell - m () -treeViewSetTooltipCell _obj tooltip path column cell = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tooltip' = unsafeManagedPtrCastPtr tooltip - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - let jPath' = unsafeManagedPtrGetPtr jPath - return jPath' - maybeColumn <- case column of - Nothing -> return nullPtr - Just jColumn -> do - let jColumn' = unsafeManagedPtrCastPtr jColumn - return jColumn' - maybeCell <- case cell of - Nothing -> return nullPtr - Just jCell -> do - let jCell' = unsafeManagedPtrCastPtr jCell - return jCell' - gtk_tree_view_set_tooltip_cell _obj' tooltip' maybePath maybeColumn maybeCell - touchManagedPtr _obj - touchManagedPtr tooltip - whenJust path touchManagedPtr - whenJust column touchManagedPtr - whenJust cell touchManagedPtr - return () - --- method TreeView::set_tooltip_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_tooltip_column" gtk_tree_view_set_tooltip_column :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- column : TBasicType TInt32 - IO () - - -treeViewSetTooltipColumn :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- column - m () -treeViewSetTooltipColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_set_tooltip_column _obj' column - touchManagedPtr _obj - return () - --- method TreeView::set_tooltip_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_tooltip_row" gtk_tree_view_set_tooltip_row :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip" - Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" - IO () - - -treeViewSetTooltipRow :: - (MonadIO m, TreeViewK a, TooltipK b) => - a -> -- _obj - b -> -- tooltip - TreePath -> -- path - m () -treeViewSetTooltipRow _obj tooltip path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tooltip' = unsafeManagedPtrCastPtr tooltip - let path' = unsafeManagedPtrGetPtr path - gtk_tree_view_set_tooltip_row _obj' tooltip' path' - touchManagedPtr _obj - touchManagedPtr tooltip - touchManagedPtr path - return () - --- method TreeView::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_vadjustment" gtk_tree_view_set_vadjustment :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" - IO () - -{-# DEPRECATED treeViewSetVadjustment ["(Since version 3.0)","Use gtk_scrollable_set_vadjustment()"]#-} -treeViewSetVadjustment :: - (MonadIO m, TreeViewK a, AdjustmentK b) => - a -> -- _obj - Maybe (b) -> -- adjustment - m () -treeViewSetVadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - gtk_tree_view_set_vadjustment _obj' maybeAdjustment - touchManagedPtr _obj - whenJust adjustment touchManagedPtr - return () - --- method TreeView::unset_rows_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_unset_rows_drag_dest" gtk_tree_view_unset_rows_drag_dest :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO () - - -treeViewUnsetRowsDragDest :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m () -treeViewUnsetRowsDragDest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_unset_rows_drag_dest _obj' - touchManagedPtr _obj - return () - --- method TreeView::unset_rows_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_unset_rows_drag_source" gtk_tree_view_unset_rows_drag_source :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - IO () - - -treeViewUnsetRowsDragSource :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m () -treeViewUnsetRowsDragSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_unset_rows_drag_source _obj' - touchManagedPtr _obj - return () + +{- | +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.Objects.TreeView + ( + +-- * Exported types + TreeView(..) , + TreeViewK , + toTreeView , + noTreeView , + + + -- * Methods +-- ** treeViewAppendColumn + TreeViewAppendColumnMethodInfo , + treeViewAppendColumn , + + +-- ** treeViewCollapseAll + TreeViewCollapseAllMethodInfo , + treeViewCollapseAll , + + +-- ** treeViewCollapseRow + TreeViewCollapseRowMethodInfo , + treeViewCollapseRow , + + +-- ** treeViewColumnsAutosize + TreeViewColumnsAutosizeMethodInfo , + treeViewColumnsAutosize , + + +-- ** treeViewConvertBinWindowToTreeCoords + TreeViewConvertBinWindowToTreeCoordsMethodInfo, + treeViewConvertBinWindowToTreeCoords , + + +-- ** treeViewConvertBinWindowToWidgetCoords + TreeViewConvertBinWindowToWidgetCoordsMethodInfo, + treeViewConvertBinWindowToWidgetCoords , + + +-- ** treeViewConvertTreeToBinWindowCoords + TreeViewConvertTreeToBinWindowCoordsMethodInfo, + treeViewConvertTreeToBinWindowCoords , + + +-- ** treeViewConvertTreeToWidgetCoords + TreeViewConvertTreeToWidgetCoordsMethodInfo, + treeViewConvertTreeToWidgetCoords , + + +-- ** treeViewConvertWidgetToBinWindowCoords + TreeViewConvertWidgetToBinWindowCoordsMethodInfo, + treeViewConvertWidgetToBinWindowCoords , + + +-- ** treeViewConvertWidgetToTreeCoords + TreeViewConvertWidgetToTreeCoordsMethodInfo, + treeViewConvertWidgetToTreeCoords , + + +-- ** treeViewCreateRowDragIcon + TreeViewCreateRowDragIconMethodInfo , + treeViewCreateRowDragIcon , + + +-- ** treeViewEnableModelDragDest + TreeViewEnableModelDragDestMethodInfo , + treeViewEnableModelDragDest , + + +-- ** treeViewEnableModelDragSource + TreeViewEnableModelDragSourceMethodInfo , + treeViewEnableModelDragSource , + + +-- ** treeViewExpandAll + TreeViewExpandAllMethodInfo , + treeViewExpandAll , + + +-- ** treeViewExpandRow + TreeViewExpandRowMethodInfo , + treeViewExpandRow , + + +-- ** treeViewExpandToPath + TreeViewExpandToPathMethodInfo , + treeViewExpandToPath , + + +-- ** treeViewGetActivateOnSingleClick + TreeViewGetActivateOnSingleClickMethodInfo, + treeViewGetActivateOnSingleClick , + + +-- ** treeViewGetBackgroundArea + TreeViewGetBackgroundAreaMethodInfo , + treeViewGetBackgroundArea , + + +-- ** treeViewGetBinWindow + TreeViewGetBinWindowMethodInfo , + treeViewGetBinWindow , + + +-- ** treeViewGetCellArea + TreeViewGetCellAreaMethodInfo , + treeViewGetCellArea , + + +-- ** treeViewGetColumn + TreeViewGetColumnMethodInfo , + treeViewGetColumn , + + +-- ** treeViewGetColumns + TreeViewGetColumnsMethodInfo , + treeViewGetColumns , + + +-- ** treeViewGetCursor + TreeViewGetCursorMethodInfo , + treeViewGetCursor , + + +-- ** treeViewGetDestRowAtPos + TreeViewGetDestRowAtPosMethodInfo , + treeViewGetDestRowAtPos , + + +-- ** treeViewGetDragDestRow + TreeViewGetDragDestRowMethodInfo , + treeViewGetDragDestRow , + + +-- ** treeViewGetEnableSearch + TreeViewGetEnableSearchMethodInfo , + treeViewGetEnableSearch , + + +-- ** treeViewGetEnableTreeLines + TreeViewGetEnableTreeLinesMethodInfo , + treeViewGetEnableTreeLines , + + +-- ** treeViewGetExpanderColumn + TreeViewGetExpanderColumnMethodInfo , + treeViewGetExpanderColumn , + + +-- ** treeViewGetFixedHeightMode + TreeViewGetFixedHeightModeMethodInfo , + treeViewGetFixedHeightMode , + + +-- ** treeViewGetGridLines + TreeViewGetGridLinesMethodInfo , + treeViewGetGridLines , + + +-- ** treeViewGetHadjustment + TreeViewGetHadjustmentMethodInfo , + treeViewGetHadjustment , + + +-- ** treeViewGetHeadersClickable + TreeViewGetHeadersClickableMethodInfo , + treeViewGetHeadersClickable , + + +-- ** treeViewGetHeadersVisible + TreeViewGetHeadersVisibleMethodInfo , + treeViewGetHeadersVisible , + + +-- ** treeViewGetHoverExpand + TreeViewGetHoverExpandMethodInfo , + treeViewGetHoverExpand , + + +-- ** treeViewGetHoverSelection + TreeViewGetHoverSelectionMethodInfo , + treeViewGetHoverSelection , + + +-- ** treeViewGetLevelIndentation + TreeViewGetLevelIndentationMethodInfo , + treeViewGetLevelIndentation , + + +-- ** treeViewGetModel + TreeViewGetModelMethodInfo , + treeViewGetModel , + + +-- ** treeViewGetNColumns + TreeViewGetNColumnsMethodInfo , + treeViewGetNColumns , + + +-- ** treeViewGetPathAtPos + TreeViewGetPathAtPosMethodInfo , + treeViewGetPathAtPos , + + +-- ** treeViewGetReorderable + TreeViewGetReorderableMethodInfo , + treeViewGetReorderable , + + +-- ** treeViewGetRubberBanding + TreeViewGetRubberBandingMethodInfo , + treeViewGetRubberBanding , + + +-- ** treeViewGetRulesHint + TreeViewGetRulesHintMethodInfo , + treeViewGetRulesHint , + + +-- ** treeViewGetSearchColumn + TreeViewGetSearchColumnMethodInfo , + treeViewGetSearchColumn , + + +-- ** treeViewGetSearchEntry + TreeViewGetSearchEntryMethodInfo , + treeViewGetSearchEntry , + + +-- ** treeViewGetSelection + TreeViewGetSelectionMethodInfo , + treeViewGetSelection , + + +-- ** treeViewGetShowExpanders + TreeViewGetShowExpandersMethodInfo , + treeViewGetShowExpanders , + + +-- ** treeViewGetTooltipColumn + TreeViewGetTooltipColumnMethodInfo , + treeViewGetTooltipColumn , + + +-- ** treeViewGetTooltipContext + TreeViewGetTooltipContextMethodInfo , + treeViewGetTooltipContext , + + +-- ** treeViewGetVadjustment + TreeViewGetVadjustmentMethodInfo , + treeViewGetVadjustment , + + +-- ** treeViewGetVisibleRange + TreeViewGetVisibleRangeMethodInfo , + treeViewGetVisibleRange , + + +-- ** treeViewGetVisibleRect + TreeViewGetVisibleRectMethodInfo , + treeViewGetVisibleRect , + + +-- ** treeViewInsertColumn + TreeViewInsertColumnMethodInfo , + treeViewInsertColumn , + + +-- ** treeViewInsertColumnWithDataFunc + TreeViewInsertColumnWithDataFuncMethodInfo, + treeViewInsertColumnWithDataFunc , + + +-- ** treeViewIsBlankAtPos + TreeViewIsBlankAtPosMethodInfo , + treeViewIsBlankAtPos , + + +-- ** treeViewIsRubberBandingActive + TreeViewIsRubberBandingActiveMethodInfo , + treeViewIsRubberBandingActive , + + +-- ** treeViewMapExpandedRows + TreeViewMapExpandedRowsMethodInfo , + treeViewMapExpandedRows , + + +-- ** treeViewMoveColumnAfter + TreeViewMoveColumnAfterMethodInfo , + treeViewMoveColumnAfter , + + +-- ** treeViewNew + treeViewNew , + + +-- ** treeViewNewWithModel + treeViewNewWithModel , + + +-- ** treeViewRemoveColumn + TreeViewRemoveColumnMethodInfo , + treeViewRemoveColumn , + + +-- ** treeViewRowActivated + TreeViewRowActivatedMethodInfo , + treeViewRowActivated , + + +-- ** treeViewRowExpanded + TreeViewRowExpandedMethodInfo , + treeViewRowExpanded , + + +-- ** treeViewScrollToCell + TreeViewScrollToCellMethodInfo , + treeViewScrollToCell , + + +-- ** treeViewScrollToPoint + TreeViewScrollToPointMethodInfo , + treeViewScrollToPoint , + + +-- ** treeViewSetActivateOnSingleClick + TreeViewSetActivateOnSingleClickMethodInfo, + treeViewSetActivateOnSingleClick , + + +-- ** treeViewSetColumnDragFunction + TreeViewSetColumnDragFunctionMethodInfo , + treeViewSetColumnDragFunction , + + +-- ** treeViewSetCursor + TreeViewSetCursorMethodInfo , + treeViewSetCursor , + + +-- ** treeViewSetCursorOnCell + TreeViewSetCursorOnCellMethodInfo , + treeViewSetCursorOnCell , + + +-- ** treeViewSetDestroyCountFunc + TreeViewSetDestroyCountFuncMethodInfo , + treeViewSetDestroyCountFunc , + + +-- ** treeViewSetDragDestRow + TreeViewSetDragDestRowMethodInfo , + treeViewSetDragDestRow , + + +-- ** treeViewSetEnableSearch + TreeViewSetEnableSearchMethodInfo , + treeViewSetEnableSearch , + + +-- ** treeViewSetEnableTreeLines + TreeViewSetEnableTreeLinesMethodInfo , + treeViewSetEnableTreeLines , + + +-- ** treeViewSetExpanderColumn + TreeViewSetExpanderColumnMethodInfo , + treeViewSetExpanderColumn , + + +-- ** treeViewSetFixedHeightMode + TreeViewSetFixedHeightModeMethodInfo , + treeViewSetFixedHeightMode , + + +-- ** treeViewSetGridLines + TreeViewSetGridLinesMethodInfo , + treeViewSetGridLines , + + +-- ** treeViewSetHadjustment + TreeViewSetHadjustmentMethodInfo , + treeViewSetHadjustment , + + +-- ** treeViewSetHeadersClickable + TreeViewSetHeadersClickableMethodInfo , + treeViewSetHeadersClickable , + + +-- ** treeViewSetHeadersVisible + TreeViewSetHeadersVisibleMethodInfo , + treeViewSetHeadersVisible , + + +-- ** treeViewSetHoverExpand + TreeViewSetHoverExpandMethodInfo , + treeViewSetHoverExpand , + + +-- ** treeViewSetHoverSelection + TreeViewSetHoverSelectionMethodInfo , + treeViewSetHoverSelection , + + +-- ** treeViewSetLevelIndentation + TreeViewSetLevelIndentationMethodInfo , + treeViewSetLevelIndentation , + + +-- ** treeViewSetModel + TreeViewSetModelMethodInfo , + treeViewSetModel , + + +-- ** treeViewSetReorderable + TreeViewSetReorderableMethodInfo , + treeViewSetReorderable , + + +-- ** treeViewSetRowSeparatorFunc + TreeViewSetRowSeparatorFuncMethodInfo , + treeViewSetRowSeparatorFunc , + + +-- ** treeViewSetRubberBanding + TreeViewSetRubberBandingMethodInfo , + treeViewSetRubberBanding , + + +-- ** treeViewSetRulesHint + TreeViewSetRulesHintMethodInfo , + treeViewSetRulesHint , + + +-- ** treeViewSetSearchColumn + TreeViewSetSearchColumnMethodInfo , + treeViewSetSearchColumn , + + +-- ** treeViewSetSearchEntry + TreeViewSetSearchEntryMethodInfo , + treeViewSetSearchEntry , + + +-- ** treeViewSetSearchEqualFunc + TreeViewSetSearchEqualFuncMethodInfo , + treeViewSetSearchEqualFunc , + + +-- ** treeViewSetSearchPositionFunc + TreeViewSetSearchPositionFuncMethodInfo , + treeViewSetSearchPositionFunc , + + +-- ** treeViewSetShowExpanders + TreeViewSetShowExpandersMethodInfo , + treeViewSetShowExpanders , + + +-- ** treeViewSetTooltipCell + TreeViewSetTooltipCellMethodInfo , + treeViewSetTooltipCell , + + +-- ** treeViewSetTooltipColumn + TreeViewSetTooltipColumnMethodInfo , + treeViewSetTooltipColumn , + + +-- ** treeViewSetTooltipRow + TreeViewSetTooltipRowMethodInfo , + treeViewSetTooltipRow , + + +-- ** treeViewSetVadjustment + TreeViewSetVadjustmentMethodInfo , + treeViewSetVadjustment , + + +-- ** treeViewUnsetRowsDragDest + TreeViewUnsetRowsDragDestMethodInfo , + treeViewUnsetRowsDragDest , + + +-- ** treeViewUnsetRowsDragSource + TreeViewUnsetRowsDragSourceMethodInfo , + treeViewUnsetRowsDragSource , + + + + + -- * Properties +-- ** ActivateOnSingleClick + TreeViewActivateOnSingleClickPropertyInfo, + constructTreeViewActivateOnSingleClick , + getTreeViewActivateOnSingleClick , + setTreeViewActivateOnSingleClick , + + +-- ** EnableGridLines + TreeViewEnableGridLinesPropertyInfo , + constructTreeViewEnableGridLines , + getTreeViewEnableGridLines , + setTreeViewEnableGridLines , + + +-- ** EnableSearch + TreeViewEnableSearchPropertyInfo , + constructTreeViewEnableSearch , + getTreeViewEnableSearch , + setTreeViewEnableSearch , + + +-- ** EnableTreeLines + TreeViewEnableTreeLinesPropertyInfo , + constructTreeViewEnableTreeLines , + getTreeViewEnableTreeLines , + setTreeViewEnableTreeLines , + + +-- ** ExpanderColumn + TreeViewExpanderColumnPropertyInfo , + constructTreeViewExpanderColumn , + getTreeViewExpanderColumn , + setTreeViewExpanderColumn , + + +-- ** FixedHeightMode + TreeViewFixedHeightModePropertyInfo , + constructTreeViewFixedHeightMode , + getTreeViewFixedHeightMode , + setTreeViewFixedHeightMode , + + +-- ** HeadersClickable + TreeViewHeadersClickablePropertyInfo , + constructTreeViewHeadersClickable , + getTreeViewHeadersClickable , + setTreeViewHeadersClickable , + + +-- ** HeadersVisible + TreeViewHeadersVisiblePropertyInfo , + constructTreeViewHeadersVisible , + getTreeViewHeadersVisible , + setTreeViewHeadersVisible , + + +-- ** HoverExpand + TreeViewHoverExpandPropertyInfo , + constructTreeViewHoverExpand , + getTreeViewHoverExpand , + setTreeViewHoverExpand , + + +-- ** HoverSelection + TreeViewHoverSelectionPropertyInfo , + constructTreeViewHoverSelection , + getTreeViewHoverSelection , + setTreeViewHoverSelection , + + +-- ** LevelIndentation + TreeViewLevelIndentationPropertyInfo , + constructTreeViewLevelIndentation , + getTreeViewLevelIndentation , + setTreeViewLevelIndentation , + + +-- ** Model + TreeViewModelPropertyInfo , + constructTreeViewModel , + getTreeViewModel , + setTreeViewModel , + + +-- ** Reorderable + TreeViewReorderablePropertyInfo , + constructTreeViewReorderable , + getTreeViewReorderable , + setTreeViewReorderable , + + +-- ** RubberBanding + TreeViewRubberBandingPropertyInfo , + constructTreeViewRubberBanding , + getTreeViewRubberBanding , + setTreeViewRubberBanding , + + +-- ** RulesHint + TreeViewRulesHintPropertyInfo , + constructTreeViewRulesHint , + getTreeViewRulesHint , + setTreeViewRulesHint , + + +-- ** SearchColumn + TreeViewSearchColumnPropertyInfo , + constructTreeViewSearchColumn , + getTreeViewSearchColumn , + setTreeViewSearchColumn , + + +-- ** ShowExpanders + TreeViewShowExpandersPropertyInfo , + constructTreeViewShowExpanders , + getTreeViewShowExpanders , + setTreeViewShowExpanders , + + +-- ** TooltipColumn + TreeViewTooltipColumnPropertyInfo , + constructTreeViewTooltipColumn , + getTreeViewTooltipColumn , + setTreeViewTooltipColumn , + + + + + -- * Signals +-- ** ColumnsChanged + TreeViewColumnsChangedCallback , + TreeViewColumnsChangedCallbackC , + TreeViewColumnsChangedSignalInfo , + afterTreeViewColumnsChanged , + mkTreeViewColumnsChangedCallback , + noTreeViewColumnsChangedCallback , + onTreeViewColumnsChanged , + treeViewColumnsChangedCallbackWrapper , + treeViewColumnsChangedClosure , + + +-- ** CursorChanged + TreeViewCursorChangedCallback , + TreeViewCursorChangedCallbackC , + TreeViewCursorChangedSignalInfo , + afterTreeViewCursorChanged , + mkTreeViewCursorChangedCallback , + noTreeViewCursorChangedCallback , + onTreeViewCursorChanged , + treeViewCursorChangedCallbackWrapper , + treeViewCursorChangedClosure , + + +-- ** ExpandCollapseCursorRow + TreeViewExpandCollapseCursorRowCallback , + TreeViewExpandCollapseCursorRowCallbackC, + TreeViewExpandCollapseCursorRowSignalInfo, + afterTreeViewExpandCollapseCursorRow , + mkTreeViewExpandCollapseCursorRowCallback, + noTreeViewExpandCollapseCursorRowCallback, + onTreeViewExpandCollapseCursorRow , + treeViewExpandCollapseCursorRowCallbackWrapper, + treeViewExpandCollapseCursorRowClosure , + + +-- ** MoveCursor + TreeViewMoveCursorCallback , + TreeViewMoveCursorCallbackC , + TreeViewMoveCursorSignalInfo , + afterTreeViewMoveCursor , + mkTreeViewMoveCursorCallback , + noTreeViewMoveCursorCallback , + onTreeViewMoveCursor , + treeViewMoveCursorCallbackWrapper , + treeViewMoveCursorClosure , + + +-- ** RowActivated + TreeViewRowActivatedCallback , + TreeViewRowActivatedCallbackC , + TreeViewRowActivatedSignalInfo , + afterTreeViewRowActivated , + mkTreeViewRowActivatedCallback , + noTreeViewRowActivatedCallback , + onTreeViewRowActivated , + treeViewRowActivatedCallbackWrapper , + treeViewRowActivatedClosure , + + +-- ** RowCollapsed + TreeViewRowCollapsedCallback , + TreeViewRowCollapsedCallbackC , + TreeViewRowCollapsedSignalInfo , + afterTreeViewRowCollapsed , + mkTreeViewRowCollapsedCallback , + noTreeViewRowCollapsedCallback , + onTreeViewRowCollapsed , + treeViewRowCollapsedCallbackWrapper , + treeViewRowCollapsedClosure , + + +-- ** RowExpanded + TreeViewRowExpandedCallback , + TreeViewRowExpandedCallbackC , + TreeViewRowExpandedSignalInfo , + afterTreeViewRowExpanded , + mkTreeViewRowExpandedCallback , + noTreeViewRowExpandedCallback , + onTreeViewRowExpanded , + treeViewRowExpandedCallbackWrapper , + treeViewRowExpandedClosure , + + +-- ** SelectAll + TreeViewSelectAllCallback , + TreeViewSelectAllCallbackC , + TreeViewSelectAllSignalInfo , + afterTreeViewSelectAll , + mkTreeViewSelectAllCallback , + noTreeViewSelectAllCallback , + onTreeViewSelectAll , + treeViewSelectAllCallbackWrapper , + treeViewSelectAllClosure , + + +-- ** SelectCursorParent + TreeViewSelectCursorParentCallback , + TreeViewSelectCursorParentCallbackC , + TreeViewSelectCursorParentSignalInfo , + afterTreeViewSelectCursorParent , + mkTreeViewSelectCursorParentCallback , + noTreeViewSelectCursorParentCallback , + onTreeViewSelectCursorParent , + treeViewSelectCursorParentCallbackWrapper, + treeViewSelectCursorParentClosure , + + +-- ** SelectCursorRow + TreeViewSelectCursorRowCallback , + TreeViewSelectCursorRowCallbackC , + TreeViewSelectCursorRowSignalInfo , + afterTreeViewSelectCursorRow , + mkTreeViewSelectCursorRowCallback , + noTreeViewSelectCursorRowCallback , + onTreeViewSelectCursorRow , + treeViewSelectCursorRowCallbackWrapper , + treeViewSelectCursorRowClosure , + + +-- ** StartInteractiveSearch + TreeViewStartInteractiveSearchCallback , + TreeViewStartInteractiveSearchCallbackC , + TreeViewStartInteractiveSearchSignalInfo, + afterTreeViewStartInteractiveSearch , + mkTreeViewStartInteractiveSearchCallback, + noTreeViewStartInteractiveSearchCallback, + onTreeViewStartInteractiveSearch , + treeViewStartInteractiveSearchCallbackWrapper, + treeViewStartInteractiveSearchClosure , + + +-- ** TestCollapseRow + TreeViewTestCollapseRowCallback , + TreeViewTestCollapseRowCallbackC , + TreeViewTestCollapseRowSignalInfo , + afterTreeViewTestCollapseRow , + mkTreeViewTestCollapseRowCallback , + noTreeViewTestCollapseRowCallback , + onTreeViewTestCollapseRow , + treeViewTestCollapseRowCallbackWrapper , + treeViewTestCollapseRowClosure , + + +-- ** TestExpandRow + TreeViewTestExpandRowCallback , + TreeViewTestExpandRowCallbackC , + TreeViewTestExpandRowSignalInfo , + afterTreeViewTestExpandRow , + mkTreeViewTestExpandRowCallback , + noTreeViewTestExpandRowCallback , + onTreeViewTestExpandRow , + treeViewTestExpandRowCallbackWrapper , + treeViewTestExpandRowClosure , + + +-- ** ToggleCursorRow + TreeViewToggleCursorRowCallback , + TreeViewToggleCursorRowCallbackC , + TreeViewToggleCursorRowSignalInfo , + afterTreeViewToggleCursorRow , + mkTreeViewToggleCursorRowCallback , + noTreeViewToggleCursorRowCallback , + onTreeViewToggleCursorRow , + treeViewToggleCursorRowCallbackWrapper , + treeViewToggleCursorRowClosure , + + +-- ** UnselectAll + TreeViewUnselectAllCallback , + TreeViewUnselectAllCallbackC , + TreeViewUnselectAllSignalInfo , + afterTreeViewUnselectAll , + mkTreeViewUnselectAllCallback , + noTreeViewUnselectAllCallback , + onTreeViewUnselectAll , + treeViewUnselectAllCallbackWrapper , + treeViewUnselectAllClosure , + + + + + ) 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.Atk as Atk +import qualified GI.GLib as GLib +import qualified GI.GObject as GObject +import qualified GI.Gdk as Gdk +import qualified GI.Cairo as Cairo + +newtype TreeView = TreeView (ForeignPtr TreeView) +foreign import ccall "gtk_tree_view_get_type" + c_gtk_tree_view_get_type :: IO GType + +type instance ParentTypes TreeView = TreeViewParentTypes +type TreeViewParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Scrollable] + +instance GObject TreeView where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_gtk_tree_view_get_type + + +class GObject o => TreeViewK o +instance (GObject o, IsDescendantOf TreeView o) => TreeViewK o + +toTreeView :: TreeViewK o => o -> IO TreeView +toTreeView = unsafeCastTo TreeView + +noTreeView :: Maybe TreeView +noTreeView = Nothing + +type family ResolveTreeViewMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeViewMethod "activate" o = WidgetActivateMethodInfo + ResolveTreeViewMethod "add" o = ContainerAddMethodInfo + ResolveTreeViewMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveTreeViewMethod "addChild" o = BuildableAddChildMethodInfo + ResolveTreeViewMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveTreeViewMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveTreeViewMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveTreeViewMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveTreeViewMethod "appendColumn" o = TreeViewAppendColumnMethodInfo + ResolveTreeViewMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTreeViewMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTreeViewMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveTreeViewMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveTreeViewMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveTreeViewMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveTreeViewMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveTreeViewMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveTreeViewMethod "childType" o = ContainerChildTypeMethodInfo + ResolveTreeViewMethod "classPath" o = WidgetClassPathMethodInfo + ResolveTreeViewMethod "collapseAll" o = TreeViewCollapseAllMethodInfo + ResolveTreeViewMethod "collapseRow" o = TreeViewCollapseRowMethodInfo + ResolveTreeViewMethod "columnsAutosize" o = TreeViewColumnsAutosizeMethodInfo + ResolveTreeViewMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveTreeViewMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveTreeViewMethod "convertBinWindowToTreeCoords" o = TreeViewConvertBinWindowToTreeCoordsMethodInfo + ResolveTreeViewMethod "convertBinWindowToWidgetCoords" o = TreeViewConvertBinWindowToWidgetCoordsMethodInfo + ResolveTreeViewMethod "convertTreeToBinWindowCoords" o = TreeViewConvertTreeToBinWindowCoordsMethodInfo + ResolveTreeViewMethod "convertTreeToWidgetCoords" o = TreeViewConvertTreeToWidgetCoordsMethodInfo + ResolveTreeViewMethod "convertWidgetToBinWindowCoords" o = TreeViewConvertWidgetToBinWindowCoordsMethodInfo + ResolveTreeViewMethod "convertWidgetToTreeCoords" o = TreeViewConvertWidgetToTreeCoordsMethodInfo + ResolveTreeViewMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveTreeViewMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveTreeViewMethod "createRowDragIcon" o = TreeViewCreateRowDragIconMethodInfo + ResolveTreeViewMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveTreeViewMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveTreeViewMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveTreeViewMethod "destroy" o = WidgetDestroyMethodInfo + ResolveTreeViewMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveTreeViewMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveTreeViewMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveTreeViewMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveTreeViewMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveTreeViewMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveTreeViewMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveTreeViewMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveTreeViewMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveTreeViewMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveTreeViewMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveTreeViewMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveTreeViewMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveTreeViewMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveTreeViewMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveTreeViewMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveTreeViewMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveTreeViewMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveTreeViewMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveTreeViewMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveTreeViewMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveTreeViewMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveTreeViewMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveTreeViewMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveTreeViewMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveTreeViewMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveTreeViewMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveTreeViewMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveTreeViewMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveTreeViewMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveTreeViewMethod "draw" o = WidgetDrawMethodInfo + ResolveTreeViewMethod "enableModelDragDest" o = TreeViewEnableModelDragDestMethodInfo + ResolveTreeViewMethod "enableModelDragSource" o = TreeViewEnableModelDragSourceMethodInfo + ResolveTreeViewMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveTreeViewMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveTreeViewMethod "event" o = WidgetEventMethodInfo + ResolveTreeViewMethod "expandAll" o = TreeViewExpandAllMethodInfo + ResolveTreeViewMethod "expandRow" o = TreeViewExpandRowMethodInfo + ResolveTreeViewMethod "expandToPath" o = TreeViewExpandToPathMethodInfo + ResolveTreeViewMethod "forall" o = ContainerForallMethodInfo + ResolveTreeViewMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTreeViewMethod "foreach" o = ContainerForeachMethodInfo + ResolveTreeViewMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveTreeViewMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTreeViewMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveTreeViewMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveTreeViewMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveTreeViewMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveTreeViewMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveTreeViewMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveTreeViewMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveTreeViewMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveTreeViewMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveTreeViewMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveTreeViewMethod "hide" o = WidgetHideMethodInfo + ResolveTreeViewMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveTreeViewMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveTreeViewMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveTreeViewMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveTreeViewMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveTreeViewMethod "insertColumn" o = TreeViewInsertColumnMethodInfo + ResolveTreeViewMethod "insertColumnWithDataFunc" o = TreeViewInsertColumnWithDataFuncMethodInfo + ResolveTreeViewMethod "intersect" o = WidgetIntersectMethodInfo + ResolveTreeViewMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveTreeViewMethod "isBlankAtPos" o = TreeViewIsBlankAtPosMethodInfo + ResolveTreeViewMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveTreeViewMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveTreeViewMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTreeViewMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveTreeViewMethod "isRubberBandingActive" o = TreeViewIsRubberBandingActiveMethodInfo + ResolveTreeViewMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveTreeViewMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveTreeViewMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveTreeViewMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveTreeViewMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveTreeViewMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveTreeViewMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveTreeViewMethod "map" o = WidgetMapMethodInfo + ResolveTreeViewMethod "mapExpandedRows" o = TreeViewMapExpandedRowsMethodInfo + ResolveTreeViewMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveTreeViewMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveTreeViewMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveTreeViewMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveTreeViewMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveTreeViewMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveTreeViewMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveTreeViewMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveTreeViewMethod "moveColumnAfter" o = TreeViewMoveColumnAfterMethodInfo + ResolveTreeViewMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTreeViewMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTreeViewMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveTreeViewMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveTreeViewMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveTreeViewMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveTreeViewMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveTreeViewMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveTreeViewMethod "path" o = WidgetPathMethodInfo + ResolveTreeViewMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveTreeViewMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveTreeViewMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveTreeViewMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveTreeViewMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveTreeViewMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveTreeViewMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveTreeViewMethod "realize" o = WidgetRealizeMethodInfo + ResolveTreeViewMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTreeViewMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTreeViewMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveTreeViewMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveTreeViewMethod "remove" o = ContainerRemoveMethodInfo + ResolveTreeViewMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveTreeViewMethod "removeColumn" o = TreeViewRemoveColumnMethodInfo + ResolveTreeViewMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveTreeViewMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveTreeViewMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveTreeViewMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveTreeViewMethod "reparent" o = WidgetReparentMethodInfo + ResolveTreeViewMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTreeViewMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTreeViewMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveTreeViewMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveTreeViewMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveTreeViewMethod "rowActivated" o = TreeViewRowActivatedMethodInfo + ResolveTreeViewMethod "rowExpanded" o = TreeViewRowExpandedMethodInfo + ResolveTreeViewMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTreeViewMethod "scrollToCell" o = TreeViewScrollToCellMethodInfo + ResolveTreeViewMethod "scrollToPoint" o = TreeViewScrollToPointMethodInfo + ResolveTreeViewMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveTreeViewMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveTreeViewMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveTreeViewMethod "show" o = WidgetShowMethodInfo + ResolveTreeViewMethod "showAll" o = WidgetShowAllMethodInfo + ResolveTreeViewMethod "showNow" o = WidgetShowNowMethodInfo + ResolveTreeViewMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveTreeViewMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveTreeViewMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveTreeViewMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTreeViewMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTreeViewMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveTreeViewMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveTreeViewMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveTreeViewMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTreeViewMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveTreeViewMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveTreeViewMethod "unmap" o = WidgetUnmapMethodInfo + ResolveTreeViewMethod "unparent" o = WidgetUnparentMethodInfo + ResolveTreeViewMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveTreeViewMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTreeViewMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveTreeViewMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveTreeViewMethod "unsetRowsDragDest" o = TreeViewUnsetRowsDragDestMethodInfo + ResolveTreeViewMethod "unsetRowsDragSource" o = TreeViewUnsetRowsDragSourceMethodInfo + ResolveTreeViewMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveTreeViewMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTreeViewMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveTreeViewMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveTreeViewMethod "getActivateOnSingleClick" o = TreeViewGetActivateOnSingleClickMethodInfo + ResolveTreeViewMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveTreeViewMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveTreeViewMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveTreeViewMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveTreeViewMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveTreeViewMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveTreeViewMethod "getBackgroundArea" o = TreeViewGetBackgroundAreaMethodInfo + ResolveTreeViewMethod "getBinWindow" o = TreeViewGetBinWindowMethodInfo + ResolveTreeViewMethod "getBorder" o = ScrollableGetBorderMethodInfo + ResolveTreeViewMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveTreeViewMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveTreeViewMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveTreeViewMethod "getCellArea" o = TreeViewGetCellAreaMethodInfo + ResolveTreeViewMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveTreeViewMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveTreeViewMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveTreeViewMethod "getClip" o = WidgetGetClipMethodInfo + ResolveTreeViewMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveTreeViewMethod "getColumn" o = TreeViewGetColumnMethodInfo + ResolveTreeViewMethod "getColumns" o = TreeViewGetColumnsMethodInfo + ResolveTreeViewMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveTreeViewMethod "getCursor" o = TreeViewGetCursorMethodInfo + ResolveTreeViewMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTreeViewMethod "getDestRowAtPos" o = TreeViewGetDestRowAtPosMethodInfo + ResolveTreeViewMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveTreeViewMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveTreeViewMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveTreeViewMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveTreeViewMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveTreeViewMethod "getDragDestRow" o = TreeViewGetDragDestRowMethodInfo + ResolveTreeViewMethod "getEnableSearch" o = TreeViewGetEnableSearchMethodInfo + ResolveTreeViewMethod "getEnableTreeLines" o = TreeViewGetEnableTreeLinesMethodInfo + ResolveTreeViewMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveTreeViewMethod "getExpanderColumn" o = TreeViewGetExpanderColumnMethodInfo + ResolveTreeViewMethod "getFixedHeightMode" o = TreeViewGetFixedHeightModeMethodInfo + ResolveTreeViewMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveTreeViewMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveTreeViewMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveTreeViewMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveTreeViewMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveTreeViewMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveTreeViewMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveTreeViewMethod "getGridLines" o = TreeViewGetGridLinesMethodInfo + ResolveTreeViewMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveTreeViewMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveTreeViewMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveTreeViewMethod "getHeadersClickable" o = TreeViewGetHeadersClickableMethodInfo + ResolveTreeViewMethod "getHeadersVisible" o = TreeViewGetHeadersVisibleMethodInfo + ResolveTreeViewMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveTreeViewMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveTreeViewMethod "getHoverExpand" o = TreeViewGetHoverExpandMethodInfo + ResolveTreeViewMethod "getHoverSelection" o = TreeViewGetHoverSelectionMethodInfo + ResolveTreeViewMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo + ResolveTreeViewMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveTreeViewMethod "getLevelIndentation" o = TreeViewGetLevelIndentationMethodInfo + ResolveTreeViewMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveTreeViewMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveTreeViewMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveTreeViewMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveTreeViewMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveTreeViewMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveTreeViewMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveTreeViewMethod "getModel" o = TreeViewGetModelMethodInfo + ResolveTreeViewMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveTreeViewMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveTreeViewMethod "getNColumns" o = TreeViewGetNColumnsMethodInfo + ResolveTreeViewMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveTreeViewMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveTreeViewMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveTreeViewMethod "getParent" o = WidgetGetParentMethodInfo + ResolveTreeViewMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveTreeViewMethod "getPath" o = WidgetGetPathMethodInfo + ResolveTreeViewMethod "getPathAtPos" o = TreeViewGetPathAtPosMethodInfo + ResolveTreeViewMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveTreeViewMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveTreeViewMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveTreeViewMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveTreeViewMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveTreeViewMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveTreeViewMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveTreeViewMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveTreeViewMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTreeViewMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTreeViewMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveTreeViewMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveTreeViewMethod "getReorderable" o = TreeViewGetReorderableMethodInfo + ResolveTreeViewMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveTreeViewMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveTreeViewMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveTreeViewMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveTreeViewMethod "getRubberBanding" o = TreeViewGetRubberBandingMethodInfo + ResolveTreeViewMethod "getRulesHint" o = TreeViewGetRulesHintMethodInfo + ResolveTreeViewMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveTreeViewMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveTreeViewMethod "getSearchColumn" o = TreeViewGetSearchColumnMethodInfo + ResolveTreeViewMethod "getSearchEntry" o = TreeViewGetSearchEntryMethodInfo + ResolveTreeViewMethod "getSelection" o = TreeViewGetSelectionMethodInfo + ResolveTreeViewMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveTreeViewMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveTreeViewMethod "getShowExpanders" o = TreeViewGetShowExpandersMethodInfo + ResolveTreeViewMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveTreeViewMethod "getState" o = WidgetGetStateMethodInfo + ResolveTreeViewMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveTreeViewMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveTreeViewMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveTreeViewMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveTreeViewMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveTreeViewMethod "getTooltipColumn" o = TreeViewGetTooltipColumnMethodInfo + ResolveTreeViewMethod "getTooltipContext" o = TreeViewGetTooltipContextMethodInfo + ResolveTreeViewMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveTreeViewMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveTreeViewMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveTreeViewMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveTreeViewMethod "getValign" o = WidgetGetValignMethodInfo + ResolveTreeViewMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveTreeViewMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveTreeViewMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveTreeViewMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveTreeViewMethod "getVisibleRange" o = TreeViewGetVisibleRangeMethodInfo + ResolveTreeViewMethod "getVisibleRect" o = TreeViewGetVisibleRectMethodInfo + ResolveTreeViewMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveTreeViewMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo + ResolveTreeViewMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveTreeViewMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveTreeViewMethod "setActivateOnSingleClick" o = TreeViewSetActivateOnSingleClickMethodInfo + ResolveTreeViewMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveTreeViewMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveTreeViewMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveTreeViewMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveTreeViewMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveTreeViewMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveTreeViewMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveTreeViewMethod "setClip" o = WidgetSetClipMethodInfo + ResolveTreeViewMethod "setColumnDragFunction" o = TreeViewSetColumnDragFunctionMethodInfo + ResolveTreeViewMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveTreeViewMethod "setCursor" o = TreeViewSetCursorMethodInfo + ResolveTreeViewMethod "setCursorOnCell" o = TreeViewSetCursorOnCellMethodInfo + ResolveTreeViewMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTreeViewMethod "setDestroyCountFunc" o = TreeViewSetDestroyCountFuncMethodInfo + ResolveTreeViewMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveTreeViewMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveTreeViewMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveTreeViewMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveTreeViewMethod "setDragDestRow" o = TreeViewSetDragDestRowMethodInfo + ResolveTreeViewMethod "setEnableSearch" o = TreeViewSetEnableSearchMethodInfo + ResolveTreeViewMethod "setEnableTreeLines" o = TreeViewSetEnableTreeLinesMethodInfo + ResolveTreeViewMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveTreeViewMethod "setExpanderColumn" o = TreeViewSetExpanderColumnMethodInfo + ResolveTreeViewMethod "setFixedHeightMode" o = TreeViewSetFixedHeightModeMethodInfo + ResolveTreeViewMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveTreeViewMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveTreeViewMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveTreeViewMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveTreeViewMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveTreeViewMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveTreeViewMethod "setGridLines" o = TreeViewSetGridLinesMethodInfo + ResolveTreeViewMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveTreeViewMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveTreeViewMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveTreeViewMethod "setHeadersClickable" o = TreeViewSetHeadersClickableMethodInfo + ResolveTreeViewMethod "setHeadersVisible" o = TreeViewSetHeadersVisibleMethodInfo + ResolveTreeViewMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveTreeViewMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveTreeViewMethod "setHoverExpand" o = TreeViewSetHoverExpandMethodInfo + ResolveTreeViewMethod "setHoverSelection" o = TreeViewSetHoverSelectionMethodInfo + ResolveTreeViewMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo + ResolveTreeViewMethod "setLevelIndentation" o = TreeViewSetLevelIndentationMethodInfo + ResolveTreeViewMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveTreeViewMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveTreeViewMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveTreeViewMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveTreeViewMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveTreeViewMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveTreeViewMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveTreeViewMethod "setModel" o = TreeViewSetModelMethodInfo + ResolveTreeViewMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveTreeViewMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveTreeViewMethod "setParent" o = WidgetSetParentMethodInfo + ResolveTreeViewMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveTreeViewMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTreeViewMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveTreeViewMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveTreeViewMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveTreeViewMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveTreeViewMethod "setReorderable" o = TreeViewSetReorderableMethodInfo + ResolveTreeViewMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveTreeViewMethod "setRowSeparatorFunc" o = TreeViewSetRowSeparatorFuncMethodInfo + ResolveTreeViewMethod "setRubberBanding" o = TreeViewSetRubberBandingMethodInfo + ResolveTreeViewMethod "setRulesHint" o = TreeViewSetRulesHintMethodInfo + ResolveTreeViewMethod "setSearchColumn" o = TreeViewSetSearchColumnMethodInfo + ResolveTreeViewMethod "setSearchEntry" o = TreeViewSetSearchEntryMethodInfo + ResolveTreeViewMethod "setSearchEqualFunc" o = TreeViewSetSearchEqualFuncMethodInfo + ResolveTreeViewMethod "setSearchPositionFunc" o = TreeViewSetSearchPositionFuncMethodInfo + ResolveTreeViewMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveTreeViewMethod "setShowExpanders" o = TreeViewSetShowExpandersMethodInfo + ResolveTreeViewMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveTreeViewMethod "setState" o = WidgetSetStateMethodInfo + ResolveTreeViewMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveTreeViewMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveTreeViewMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveTreeViewMethod "setTooltipCell" o = TreeViewSetTooltipCellMethodInfo + ResolveTreeViewMethod "setTooltipColumn" o = TreeViewSetTooltipColumnMethodInfo + ResolveTreeViewMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveTreeViewMethod "setTooltipRow" o = TreeViewSetTooltipRowMethodInfo + ResolveTreeViewMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveTreeViewMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveTreeViewMethod "setValign" o = WidgetSetValignMethodInfo + ResolveTreeViewMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveTreeViewMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveTreeViewMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveTreeViewMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveTreeViewMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo + ResolveTreeViewMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveTreeViewMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeViewMethod t TreeView, MethodInfo info TreeView p) => IsLabelProxy t (TreeView -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeViewMethod t TreeView, MethodInfo info TreeView p) => IsLabel t (TreeView -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- signal TreeView::columns-changed +type TreeViewColumnsChangedCallback = + IO () + +noTreeViewColumnsChangedCallback :: Maybe TreeViewColumnsChangedCallback +noTreeViewColumnsChangedCallback = Nothing + +type TreeViewColumnsChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTreeViewColumnsChangedCallback :: TreeViewColumnsChangedCallbackC -> IO (FunPtr TreeViewColumnsChangedCallbackC) + +treeViewColumnsChangedClosure :: TreeViewColumnsChangedCallback -> IO Closure +treeViewColumnsChangedClosure cb = newCClosure =<< mkTreeViewColumnsChangedCallback wrapped + where wrapped = treeViewColumnsChangedCallbackWrapper cb + +treeViewColumnsChangedCallbackWrapper :: + TreeViewColumnsChangedCallback -> + Ptr () -> + Ptr () -> + IO () +treeViewColumnsChangedCallbackWrapper _cb _ _ = do + _cb + +onTreeViewColumnsChanged :: (GObject a, MonadIO m) => a -> TreeViewColumnsChangedCallback -> m SignalHandlerId +onTreeViewColumnsChanged obj cb = liftIO $ connectTreeViewColumnsChanged obj cb SignalConnectBefore +afterTreeViewColumnsChanged :: (GObject a, MonadIO m) => a -> TreeViewColumnsChangedCallback -> m SignalHandlerId +afterTreeViewColumnsChanged obj cb = connectTreeViewColumnsChanged obj cb SignalConnectAfter + +connectTreeViewColumnsChanged :: (GObject a, MonadIO m) => + a -> TreeViewColumnsChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewColumnsChanged obj cb after = liftIO $ do + cb' <- mkTreeViewColumnsChangedCallback (treeViewColumnsChangedCallbackWrapper cb) + connectSignalFunPtr obj "columns-changed" cb' after + +-- signal TreeView::cursor-changed +type TreeViewCursorChangedCallback = + IO () + +noTreeViewCursorChangedCallback :: Maybe TreeViewCursorChangedCallback +noTreeViewCursorChangedCallback = Nothing + +type TreeViewCursorChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTreeViewCursorChangedCallback :: TreeViewCursorChangedCallbackC -> IO (FunPtr TreeViewCursorChangedCallbackC) + +treeViewCursorChangedClosure :: TreeViewCursorChangedCallback -> IO Closure +treeViewCursorChangedClosure cb = newCClosure =<< mkTreeViewCursorChangedCallback wrapped + where wrapped = treeViewCursorChangedCallbackWrapper cb + +treeViewCursorChangedCallbackWrapper :: + TreeViewCursorChangedCallback -> + Ptr () -> + Ptr () -> + IO () +treeViewCursorChangedCallbackWrapper _cb _ _ = do + _cb + +onTreeViewCursorChanged :: (GObject a, MonadIO m) => a -> TreeViewCursorChangedCallback -> m SignalHandlerId +onTreeViewCursorChanged obj cb = liftIO $ connectTreeViewCursorChanged obj cb SignalConnectBefore +afterTreeViewCursorChanged :: (GObject a, MonadIO m) => a -> TreeViewCursorChangedCallback -> m SignalHandlerId +afterTreeViewCursorChanged obj cb = connectTreeViewCursorChanged obj cb SignalConnectAfter + +connectTreeViewCursorChanged :: (GObject a, MonadIO m) => + a -> TreeViewCursorChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewCursorChanged obj cb after = liftIO $ do + cb' <- mkTreeViewCursorChangedCallback (treeViewCursorChangedCallbackWrapper cb) + connectSignalFunPtr obj "cursor-changed" cb' after + +-- signal TreeView::expand-collapse-cursor-row +type TreeViewExpandCollapseCursorRowCallback = + Bool -> + Bool -> + Bool -> + IO Bool + +noTreeViewExpandCollapseCursorRowCallback :: Maybe TreeViewExpandCollapseCursorRowCallback +noTreeViewExpandCollapseCursorRowCallback = Nothing + +type TreeViewExpandCollapseCursorRowCallbackC = + Ptr () -> -- object + CInt -> + CInt -> + CInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkTreeViewExpandCollapseCursorRowCallback :: TreeViewExpandCollapseCursorRowCallbackC -> IO (FunPtr TreeViewExpandCollapseCursorRowCallbackC) + +treeViewExpandCollapseCursorRowClosure :: TreeViewExpandCollapseCursorRowCallback -> IO Closure +treeViewExpandCollapseCursorRowClosure cb = newCClosure =<< mkTreeViewExpandCollapseCursorRowCallback wrapped + where wrapped = treeViewExpandCollapseCursorRowCallbackWrapper cb + +treeViewExpandCollapseCursorRowCallbackWrapper :: + TreeViewExpandCollapseCursorRowCallback -> + Ptr () -> + CInt -> + CInt -> + CInt -> + Ptr () -> + IO CInt +treeViewExpandCollapseCursorRowCallbackWrapper _cb _ object p0 p1 _ = do + let object' = (/= 0) object + let p0' = (/= 0) p0 + let p1' = (/= 0) p1 + result <- _cb object' p0' p1' + let result' = (fromIntegral . fromEnum) result + return result' + +onTreeViewExpandCollapseCursorRow :: (GObject a, MonadIO m) => a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId +onTreeViewExpandCollapseCursorRow obj cb = liftIO $ connectTreeViewExpandCollapseCursorRow obj cb SignalConnectBefore +afterTreeViewExpandCollapseCursorRow :: (GObject a, MonadIO m) => a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId +afterTreeViewExpandCollapseCursorRow obj cb = connectTreeViewExpandCollapseCursorRow obj cb SignalConnectAfter + +connectTreeViewExpandCollapseCursorRow :: (GObject a, MonadIO m) => + a -> TreeViewExpandCollapseCursorRowCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewExpandCollapseCursorRow obj cb after = liftIO $ do + cb' <- mkTreeViewExpandCollapseCursorRowCallback (treeViewExpandCollapseCursorRowCallbackWrapper cb) + connectSignalFunPtr obj "expand-collapse-cursor-row" cb' after + +-- signal TreeView::move-cursor +type TreeViewMoveCursorCallback = + MovementStep -> + Int32 -> + IO Bool + +noTreeViewMoveCursorCallback :: Maybe TreeViewMoveCursorCallback +noTreeViewMoveCursorCallback = Nothing + +type TreeViewMoveCursorCallbackC = + Ptr () -> -- object + CUInt -> + Int32 -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkTreeViewMoveCursorCallback :: TreeViewMoveCursorCallbackC -> IO (FunPtr TreeViewMoveCursorCallbackC) + +treeViewMoveCursorClosure :: TreeViewMoveCursorCallback -> IO Closure +treeViewMoveCursorClosure cb = newCClosure =<< mkTreeViewMoveCursorCallback wrapped + where wrapped = treeViewMoveCursorCallbackWrapper cb + +treeViewMoveCursorCallbackWrapper :: + TreeViewMoveCursorCallback -> + Ptr () -> + CUInt -> + Int32 -> + Ptr () -> + IO CInt +treeViewMoveCursorCallbackWrapper _cb _ step direction _ = do + let step' = (toEnum . fromIntegral) step + result <- _cb step' direction + let result' = (fromIntegral . fromEnum) result + return result' + +onTreeViewMoveCursor :: (GObject a, MonadIO m) => a -> TreeViewMoveCursorCallback -> m SignalHandlerId +onTreeViewMoveCursor obj cb = liftIO $ connectTreeViewMoveCursor obj cb SignalConnectBefore +afterTreeViewMoveCursor :: (GObject a, MonadIO m) => a -> TreeViewMoveCursorCallback -> m SignalHandlerId +afterTreeViewMoveCursor obj cb = connectTreeViewMoveCursor obj cb SignalConnectAfter + +connectTreeViewMoveCursor :: (GObject a, MonadIO m) => + a -> TreeViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewMoveCursor obj cb after = liftIO $ do + cb' <- mkTreeViewMoveCursorCallback (treeViewMoveCursorCallbackWrapper cb) + connectSignalFunPtr obj "move-cursor" cb' after + +-- signal TreeView::row-activated +type TreeViewRowActivatedCallback = + TreePath -> + TreeViewColumn -> + IO () + +noTreeViewRowActivatedCallback :: Maybe TreeViewRowActivatedCallback +noTreeViewRowActivatedCallback = Nothing + +type TreeViewRowActivatedCallbackC = + Ptr () -> -- object + Ptr TreePath -> + Ptr TreeViewColumn -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTreeViewRowActivatedCallback :: TreeViewRowActivatedCallbackC -> IO (FunPtr TreeViewRowActivatedCallbackC) + +treeViewRowActivatedClosure :: TreeViewRowActivatedCallback -> IO Closure +treeViewRowActivatedClosure cb = newCClosure =<< mkTreeViewRowActivatedCallback wrapped + where wrapped = treeViewRowActivatedCallbackWrapper cb + +treeViewRowActivatedCallbackWrapper :: + TreeViewRowActivatedCallback -> + Ptr () -> + Ptr TreePath -> + Ptr TreeViewColumn -> + Ptr () -> + IO () +treeViewRowActivatedCallbackWrapper _cb _ path column _ = do + path' <- (newBoxed TreePath) path + column' <- (newObject TreeViewColumn) column + _cb path' column' + +onTreeViewRowActivated :: (GObject a, MonadIO m) => a -> TreeViewRowActivatedCallback -> m SignalHandlerId +onTreeViewRowActivated obj cb = liftIO $ connectTreeViewRowActivated obj cb SignalConnectBefore +afterTreeViewRowActivated :: (GObject a, MonadIO m) => a -> TreeViewRowActivatedCallback -> m SignalHandlerId +afterTreeViewRowActivated obj cb = connectTreeViewRowActivated obj cb SignalConnectAfter + +connectTreeViewRowActivated :: (GObject a, MonadIO m) => + a -> TreeViewRowActivatedCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewRowActivated obj cb after = liftIO $ do + cb' <- mkTreeViewRowActivatedCallback (treeViewRowActivatedCallbackWrapper cb) + connectSignalFunPtr obj "row-activated" cb' after + +-- signal TreeView::row-collapsed +type TreeViewRowCollapsedCallback = + TreeIter -> + TreePath -> + IO () + +noTreeViewRowCollapsedCallback :: Maybe TreeViewRowCollapsedCallback +noTreeViewRowCollapsedCallback = Nothing + +type TreeViewRowCollapsedCallbackC = + Ptr () -> -- object + Ptr TreeIter -> + Ptr TreePath -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTreeViewRowCollapsedCallback :: TreeViewRowCollapsedCallbackC -> IO (FunPtr TreeViewRowCollapsedCallbackC) + +treeViewRowCollapsedClosure :: TreeViewRowCollapsedCallback -> IO Closure +treeViewRowCollapsedClosure cb = newCClosure =<< mkTreeViewRowCollapsedCallback wrapped + where wrapped = treeViewRowCollapsedCallbackWrapper cb + +treeViewRowCollapsedCallbackWrapper :: + TreeViewRowCollapsedCallback -> + Ptr () -> + Ptr TreeIter -> + Ptr TreePath -> + Ptr () -> + IO () +treeViewRowCollapsedCallbackWrapper _cb _ iter path _ = do + iter' <- (newBoxed TreeIter) iter + path' <- (newBoxed TreePath) path + _cb iter' path' + +onTreeViewRowCollapsed :: (GObject a, MonadIO m) => a -> TreeViewRowCollapsedCallback -> m SignalHandlerId +onTreeViewRowCollapsed obj cb = liftIO $ connectTreeViewRowCollapsed obj cb SignalConnectBefore +afterTreeViewRowCollapsed :: (GObject a, MonadIO m) => a -> TreeViewRowCollapsedCallback -> m SignalHandlerId +afterTreeViewRowCollapsed obj cb = connectTreeViewRowCollapsed obj cb SignalConnectAfter + +connectTreeViewRowCollapsed :: (GObject a, MonadIO m) => + a -> TreeViewRowCollapsedCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewRowCollapsed obj cb after = liftIO $ do + cb' <- mkTreeViewRowCollapsedCallback (treeViewRowCollapsedCallbackWrapper cb) + connectSignalFunPtr obj "row-collapsed" cb' after + +-- signal TreeView::row-expanded +type TreeViewRowExpandedCallback = + TreeIter -> + TreePath -> + IO () + +noTreeViewRowExpandedCallback :: Maybe TreeViewRowExpandedCallback +noTreeViewRowExpandedCallback = Nothing + +type TreeViewRowExpandedCallbackC = + Ptr () -> -- object + Ptr TreeIter -> + Ptr TreePath -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkTreeViewRowExpandedCallback :: TreeViewRowExpandedCallbackC -> IO (FunPtr TreeViewRowExpandedCallbackC) + +treeViewRowExpandedClosure :: TreeViewRowExpandedCallback -> IO Closure +treeViewRowExpandedClosure cb = newCClosure =<< mkTreeViewRowExpandedCallback wrapped + where wrapped = treeViewRowExpandedCallbackWrapper cb + +treeViewRowExpandedCallbackWrapper :: + TreeViewRowExpandedCallback -> + Ptr () -> + Ptr TreeIter -> + Ptr TreePath -> + Ptr () -> + IO () +treeViewRowExpandedCallbackWrapper _cb _ iter path _ = do + iter' <- (newBoxed TreeIter) iter + path' <- (newBoxed TreePath) path + _cb iter' path' + +onTreeViewRowExpanded :: (GObject a, MonadIO m) => a -> TreeViewRowExpandedCallback -> m SignalHandlerId +onTreeViewRowExpanded obj cb = liftIO $ connectTreeViewRowExpanded obj cb SignalConnectBefore +afterTreeViewRowExpanded :: (GObject a, MonadIO m) => a -> TreeViewRowExpandedCallback -> m SignalHandlerId +afterTreeViewRowExpanded obj cb = connectTreeViewRowExpanded obj cb SignalConnectAfter + +connectTreeViewRowExpanded :: (GObject a, MonadIO m) => + a -> TreeViewRowExpandedCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewRowExpanded obj cb after = liftIO $ do + cb' <- mkTreeViewRowExpandedCallback (treeViewRowExpandedCallbackWrapper cb) + connectSignalFunPtr obj "row-expanded" cb' after + +-- signal TreeView::select-all +type TreeViewSelectAllCallback = + IO Bool + +noTreeViewSelectAllCallback :: Maybe TreeViewSelectAllCallback +noTreeViewSelectAllCallback = Nothing + +type TreeViewSelectAllCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkTreeViewSelectAllCallback :: TreeViewSelectAllCallbackC -> IO (FunPtr TreeViewSelectAllCallbackC) + +treeViewSelectAllClosure :: TreeViewSelectAllCallback -> IO Closure +treeViewSelectAllClosure cb = newCClosure =<< mkTreeViewSelectAllCallback wrapped + where wrapped = treeViewSelectAllCallbackWrapper cb + +treeViewSelectAllCallbackWrapper :: + TreeViewSelectAllCallback -> + Ptr () -> + Ptr () -> + IO CInt +treeViewSelectAllCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onTreeViewSelectAll :: (GObject a, MonadIO m) => a -> TreeViewSelectAllCallback -> m SignalHandlerId +onTreeViewSelectAll obj cb = liftIO $ connectTreeViewSelectAll obj cb SignalConnectBefore +afterTreeViewSelectAll :: (GObject a, MonadIO m) => a -> TreeViewSelectAllCallback -> m SignalHandlerId +afterTreeViewSelectAll obj cb = connectTreeViewSelectAll obj cb SignalConnectAfter + +connectTreeViewSelectAll :: (GObject a, MonadIO m) => + a -> TreeViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewSelectAll obj cb after = liftIO $ do + cb' <- mkTreeViewSelectAllCallback (treeViewSelectAllCallbackWrapper cb) + connectSignalFunPtr obj "select-all" cb' after + +-- signal TreeView::select-cursor-parent +type TreeViewSelectCursorParentCallback = + IO Bool + +noTreeViewSelectCursorParentCallback :: Maybe TreeViewSelectCursorParentCallback +noTreeViewSelectCursorParentCallback = Nothing + +type TreeViewSelectCursorParentCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkTreeViewSelectCursorParentCallback :: TreeViewSelectCursorParentCallbackC -> IO (FunPtr TreeViewSelectCursorParentCallbackC) + +treeViewSelectCursorParentClosure :: TreeViewSelectCursorParentCallback -> IO Closure +treeViewSelectCursorParentClosure cb = newCClosure =<< mkTreeViewSelectCursorParentCallback wrapped + where wrapped = treeViewSelectCursorParentCallbackWrapper cb + +treeViewSelectCursorParentCallbackWrapper :: + TreeViewSelectCursorParentCallback -> + Ptr () -> + Ptr () -> + IO CInt +treeViewSelectCursorParentCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onTreeViewSelectCursorParent :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorParentCallback -> m SignalHandlerId +onTreeViewSelectCursorParent obj cb = liftIO $ connectTreeViewSelectCursorParent obj cb SignalConnectBefore +afterTreeViewSelectCursorParent :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorParentCallback -> m SignalHandlerId +afterTreeViewSelectCursorParent obj cb = connectTreeViewSelectCursorParent obj cb SignalConnectAfter + +connectTreeViewSelectCursorParent :: (GObject a, MonadIO m) => + a -> TreeViewSelectCursorParentCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewSelectCursorParent obj cb after = liftIO $ do + cb' <- mkTreeViewSelectCursorParentCallback (treeViewSelectCursorParentCallbackWrapper cb) + connectSignalFunPtr obj "select-cursor-parent" cb' after + +-- signal TreeView::select-cursor-row +type TreeViewSelectCursorRowCallback = + Bool -> + IO Bool + +noTreeViewSelectCursorRowCallback :: Maybe TreeViewSelectCursorRowCallback +noTreeViewSelectCursorRowCallback = Nothing + +type TreeViewSelectCursorRowCallbackC = + Ptr () -> -- object + CInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkTreeViewSelectCursorRowCallback :: TreeViewSelectCursorRowCallbackC -> IO (FunPtr TreeViewSelectCursorRowCallbackC) + +treeViewSelectCursorRowClosure :: TreeViewSelectCursorRowCallback -> IO Closure +treeViewSelectCursorRowClosure cb = newCClosure =<< mkTreeViewSelectCursorRowCallback wrapped + where wrapped = treeViewSelectCursorRowCallbackWrapper cb + +treeViewSelectCursorRowCallbackWrapper :: + TreeViewSelectCursorRowCallback -> + Ptr () -> + CInt -> + Ptr () -> + IO CInt +treeViewSelectCursorRowCallbackWrapper _cb _ object _ = do + let object' = (/= 0) object + result <- _cb object' + let result' = (fromIntegral . fromEnum) result + return result' + +onTreeViewSelectCursorRow :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId +onTreeViewSelectCursorRow obj cb = liftIO $ connectTreeViewSelectCursorRow obj cb SignalConnectBefore +afterTreeViewSelectCursorRow :: (GObject a, MonadIO m) => a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId +afterTreeViewSelectCursorRow obj cb = connectTreeViewSelectCursorRow obj cb SignalConnectAfter + +connectTreeViewSelectCursorRow :: (GObject a, MonadIO m) => + a -> TreeViewSelectCursorRowCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewSelectCursorRow obj cb after = liftIO $ do + cb' <- mkTreeViewSelectCursorRowCallback (treeViewSelectCursorRowCallbackWrapper cb) + connectSignalFunPtr obj "select-cursor-row" cb' after + +-- signal TreeView::start-interactive-search +type TreeViewStartInteractiveSearchCallback = + IO Bool + +noTreeViewStartInteractiveSearchCallback :: Maybe TreeViewStartInteractiveSearchCallback +noTreeViewStartInteractiveSearchCallback = Nothing + +type TreeViewStartInteractiveSearchCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkTreeViewStartInteractiveSearchCallback :: TreeViewStartInteractiveSearchCallbackC -> IO (FunPtr TreeViewStartInteractiveSearchCallbackC) + +treeViewStartInteractiveSearchClosure :: TreeViewStartInteractiveSearchCallback -> IO Closure +treeViewStartInteractiveSearchClosure cb = newCClosure =<< mkTreeViewStartInteractiveSearchCallback wrapped + where wrapped = treeViewStartInteractiveSearchCallbackWrapper cb + +treeViewStartInteractiveSearchCallbackWrapper :: + TreeViewStartInteractiveSearchCallback -> + Ptr () -> + Ptr () -> + IO CInt +treeViewStartInteractiveSearchCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onTreeViewStartInteractiveSearch :: (GObject a, MonadIO m) => a -> TreeViewStartInteractiveSearchCallback -> m SignalHandlerId +onTreeViewStartInteractiveSearch obj cb = liftIO $ connectTreeViewStartInteractiveSearch obj cb SignalConnectBefore +afterTreeViewStartInteractiveSearch :: (GObject a, MonadIO m) => a -> TreeViewStartInteractiveSearchCallback -> m SignalHandlerId +afterTreeViewStartInteractiveSearch obj cb = connectTreeViewStartInteractiveSearch obj cb SignalConnectAfter + +connectTreeViewStartInteractiveSearch :: (GObject a, MonadIO m) => + a -> TreeViewStartInteractiveSearchCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewStartInteractiveSearch obj cb after = liftIO $ do + cb' <- mkTreeViewStartInteractiveSearchCallback (treeViewStartInteractiveSearchCallbackWrapper cb) + connectSignalFunPtr obj "start-interactive-search" cb' after + +-- signal TreeView::test-collapse-row +type TreeViewTestCollapseRowCallback = + TreeIter -> + TreePath -> + IO Bool + +noTreeViewTestCollapseRowCallback :: Maybe TreeViewTestCollapseRowCallback +noTreeViewTestCollapseRowCallback = Nothing + +type TreeViewTestCollapseRowCallbackC = + Ptr () -> -- object + Ptr TreeIter -> + Ptr TreePath -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkTreeViewTestCollapseRowCallback :: TreeViewTestCollapseRowCallbackC -> IO (FunPtr TreeViewTestCollapseRowCallbackC) + +treeViewTestCollapseRowClosure :: TreeViewTestCollapseRowCallback -> IO Closure +treeViewTestCollapseRowClosure cb = newCClosure =<< mkTreeViewTestCollapseRowCallback wrapped + where wrapped = treeViewTestCollapseRowCallbackWrapper cb + +treeViewTestCollapseRowCallbackWrapper :: + TreeViewTestCollapseRowCallback -> + Ptr () -> + Ptr TreeIter -> + Ptr TreePath -> + Ptr () -> + IO CInt +treeViewTestCollapseRowCallbackWrapper _cb _ iter path _ = do + iter' <- (newBoxed TreeIter) iter + path' <- (newBoxed TreePath) path + result <- _cb iter' path' + let result' = (fromIntegral . fromEnum) result + return result' + +onTreeViewTestCollapseRow :: (GObject a, MonadIO m) => a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId +onTreeViewTestCollapseRow obj cb = liftIO $ connectTreeViewTestCollapseRow obj cb SignalConnectBefore +afterTreeViewTestCollapseRow :: (GObject a, MonadIO m) => a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId +afterTreeViewTestCollapseRow obj cb = connectTreeViewTestCollapseRow obj cb SignalConnectAfter + +connectTreeViewTestCollapseRow :: (GObject a, MonadIO m) => + a -> TreeViewTestCollapseRowCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewTestCollapseRow obj cb after = liftIO $ do + cb' <- mkTreeViewTestCollapseRowCallback (treeViewTestCollapseRowCallbackWrapper cb) + connectSignalFunPtr obj "test-collapse-row" cb' after + +-- signal TreeView::test-expand-row +type TreeViewTestExpandRowCallback = + TreeIter -> + TreePath -> + IO Bool + +noTreeViewTestExpandRowCallback :: Maybe TreeViewTestExpandRowCallback +noTreeViewTestExpandRowCallback = Nothing + +type TreeViewTestExpandRowCallbackC = + Ptr () -> -- object + Ptr TreeIter -> + Ptr TreePath -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkTreeViewTestExpandRowCallback :: TreeViewTestExpandRowCallbackC -> IO (FunPtr TreeViewTestExpandRowCallbackC) + +treeViewTestExpandRowClosure :: TreeViewTestExpandRowCallback -> IO Closure +treeViewTestExpandRowClosure cb = newCClosure =<< mkTreeViewTestExpandRowCallback wrapped + where wrapped = treeViewTestExpandRowCallbackWrapper cb + +treeViewTestExpandRowCallbackWrapper :: + TreeViewTestExpandRowCallback -> + Ptr () -> + Ptr TreeIter -> + Ptr TreePath -> + Ptr () -> + IO CInt +treeViewTestExpandRowCallbackWrapper _cb _ iter path _ = do + iter' <- (newBoxed TreeIter) iter + path' <- (newBoxed TreePath) path + result <- _cb iter' path' + let result' = (fromIntegral . fromEnum) result + return result' + +onTreeViewTestExpandRow :: (GObject a, MonadIO m) => a -> TreeViewTestExpandRowCallback -> m SignalHandlerId +onTreeViewTestExpandRow obj cb = liftIO $ connectTreeViewTestExpandRow obj cb SignalConnectBefore +afterTreeViewTestExpandRow :: (GObject a, MonadIO m) => a -> TreeViewTestExpandRowCallback -> m SignalHandlerId +afterTreeViewTestExpandRow obj cb = connectTreeViewTestExpandRow obj cb SignalConnectAfter + +connectTreeViewTestExpandRow :: (GObject a, MonadIO m) => + a -> TreeViewTestExpandRowCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewTestExpandRow obj cb after = liftIO $ do + cb' <- mkTreeViewTestExpandRowCallback (treeViewTestExpandRowCallbackWrapper cb) + connectSignalFunPtr obj "test-expand-row" cb' after + +-- signal TreeView::toggle-cursor-row +type TreeViewToggleCursorRowCallback = + IO Bool + +noTreeViewToggleCursorRowCallback :: Maybe TreeViewToggleCursorRowCallback +noTreeViewToggleCursorRowCallback = Nothing + +type TreeViewToggleCursorRowCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkTreeViewToggleCursorRowCallback :: TreeViewToggleCursorRowCallbackC -> IO (FunPtr TreeViewToggleCursorRowCallbackC) + +treeViewToggleCursorRowClosure :: TreeViewToggleCursorRowCallback -> IO Closure +treeViewToggleCursorRowClosure cb = newCClosure =<< mkTreeViewToggleCursorRowCallback wrapped + where wrapped = treeViewToggleCursorRowCallbackWrapper cb + +treeViewToggleCursorRowCallbackWrapper :: + TreeViewToggleCursorRowCallback -> + Ptr () -> + Ptr () -> + IO CInt +treeViewToggleCursorRowCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onTreeViewToggleCursorRow :: (GObject a, MonadIO m) => a -> TreeViewToggleCursorRowCallback -> m SignalHandlerId +onTreeViewToggleCursorRow obj cb = liftIO $ connectTreeViewToggleCursorRow obj cb SignalConnectBefore +afterTreeViewToggleCursorRow :: (GObject a, MonadIO m) => a -> TreeViewToggleCursorRowCallback -> m SignalHandlerId +afterTreeViewToggleCursorRow obj cb = connectTreeViewToggleCursorRow obj cb SignalConnectAfter + +connectTreeViewToggleCursorRow :: (GObject a, MonadIO m) => + a -> TreeViewToggleCursorRowCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewToggleCursorRow obj cb after = liftIO $ do + cb' <- mkTreeViewToggleCursorRowCallback (treeViewToggleCursorRowCallbackWrapper cb) + connectSignalFunPtr obj "toggle-cursor-row" cb' after + +-- signal TreeView::unselect-all +type TreeViewUnselectAllCallback = + IO Bool + +noTreeViewUnselectAllCallback :: Maybe TreeViewUnselectAllCallback +noTreeViewUnselectAllCallback = Nothing + +type TreeViewUnselectAllCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkTreeViewUnselectAllCallback :: TreeViewUnselectAllCallbackC -> IO (FunPtr TreeViewUnselectAllCallbackC) + +treeViewUnselectAllClosure :: TreeViewUnselectAllCallback -> IO Closure +treeViewUnselectAllClosure cb = newCClosure =<< mkTreeViewUnselectAllCallback wrapped + where wrapped = treeViewUnselectAllCallbackWrapper cb + +treeViewUnselectAllCallbackWrapper :: + TreeViewUnselectAllCallback -> + Ptr () -> + Ptr () -> + IO CInt +treeViewUnselectAllCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onTreeViewUnselectAll :: (GObject a, MonadIO m) => a -> TreeViewUnselectAllCallback -> m SignalHandlerId +onTreeViewUnselectAll obj cb = liftIO $ connectTreeViewUnselectAll obj cb SignalConnectBefore +afterTreeViewUnselectAll :: (GObject a, MonadIO m) => a -> TreeViewUnselectAllCallback -> m SignalHandlerId +afterTreeViewUnselectAll obj cb = connectTreeViewUnselectAll obj cb SignalConnectAfter + +connectTreeViewUnselectAll :: (GObject a, MonadIO m) => + a -> TreeViewUnselectAllCallback -> SignalConnectMode -> m SignalHandlerId +connectTreeViewUnselectAll obj cb after = liftIO $ do + cb' <- mkTreeViewUnselectAllCallback (treeViewUnselectAllCallbackWrapper cb) + connectSignalFunPtr obj "unselect-all" cb' after + +-- VVV Prop "activate-on-single-click" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewActivateOnSingleClick :: (MonadIO m, TreeViewK o) => o -> m Bool +getTreeViewActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click" + +setTreeViewActivateOnSingleClick :: (MonadIO m, TreeViewK o) => o -> Bool -> m () +setTreeViewActivateOnSingleClick obj val = liftIO $ setObjectPropertyBool obj "activate-on-single-click" val + +constructTreeViewActivateOnSingleClick :: Bool -> IO ([Char], GValue) +constructTreeViewActivateOnSingleClick val = constructObjectPropertyBool "activate-on-single-click" val + +data TreeViewActivateOnSingleClickPropertyInfo +instance AttrInfo TreeViewActivateOnSingleClickPropertyInfo where + type AttrAllowedOps TreeViewActivateOnSingleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewActivateOnSingleClickPropertyInfo = (~) Bool + type AttrBaseTypeConstraint TreeViewActivateOnSingleClickPropertyInfo = TreeViewK + type AttrGetType TreeViewActivateOnSingleClickPropertyInfo = Bool + type AttrLabel TreeViewActivateOnSingleClickPropertyInfo = "activate-on-single-click" + attrGet _ = getTreeViewActivateOnSingleClick + attrSet _ = setTreeViewActivateOnSingleClick + attrConstruct _ = constructTreeViewActivateOnSingleClick + +-- VVV Prop "enable-grid-lines" + -- Type: TInterface "Gtk" "TreeViewGridLines" + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewEnableGridLines :: (MonadIO m, TreeViewK o) => o -> m TreeViewGridLines +getTreeViewEnableGridLines obj = liftIO $ getObjectPropertyEnum obj "enable-grid-lines" + +setTreeViewEnableGridLines :: (MonadIO m, TreeViewK o) => o -> TreeViewGridLines -> m () +setTreeViewEnableGridLines obj val = liftIO $ setObjectPropertyEnum obj "enable-grid-lines" val + +constructTreeViewEnableGridLines :: TreeViewGridLines -> IO ([Char], GValue) +constructTreeViewEnableGridLines val = constructObjectPropertyEnum "enable-grid-lines" val + +data TreeViewEnableGridLinesPropertyInfo +instance AttrInfo TreeViewEnableGridLinesPropertyInfo where + type AttrAllowedOps TreeViewEnableGridLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewEnableGridLinesPropertyInfo = (~) TreeViewGridLines + type AttrBaseTypeConstraint TreeViewEnableGridLinesPropertyInfo = TreeViewK + type AttrGetType TreeViewEnableGridLinesPropertyInfo = TreeViewGridLines + type AttrLabel TreeViewEnableGridLinesPropertyInfo = "enable-grid-lines" + attrGet _ = getTreeViewEnableGridLines + attrSet _ = setTreeViewEnableGridLines + attrConstruct _ = constructTreeViewEnableGridLines + +-- VVV Prop "enable-search" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewEnableSearch :: (MonadIO m, TreeViewK o) => o -> m Bool +getTreeViewEnableSearch obj = liftIO $ getObjectPropertyBool obj "enable-search" + +setTreeViewEnableSearch :: (MonadIO m, TreeViewK o) => o -> Bool -> m () +setTreeViewEnableSearch obj val = liftIO $ setObjectPropertyBool obj "enable-search" val + +constructTreeViewEnableSearch :: Bool -> IO ([Char], GValue) +constructTreeViewEnableSearch val = constructObjectPropertyBool "enable-search" val + +data TreeViewEnableSearchPropertyInfo +instance AttrInfo TreeViewEnableSearchPropertyInfo where + type AttrAllowedOps TreeViewEnableSearchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewEnableSearchPropertyInfo = (~) Bool + type AttrBaseTypeConstraint TreeViewEnableSearchPropertyInfo = TreeViewK + type AttrGetType TreeViewEnableSearchPropertyInfo = Bool + type AttrLabel TreeViewEnableSearchPropertyInfo = "enable-search" + attrGet _ = getTreeViewEnableSearch + attrSet _ = setTreeViewEnableSearch + attrConstruct _ = constructTreeViewEnableSearch + +-- VVV Prop "enable-tree-lines" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewEnableTreeLines :: (MonadIO m, TreeViewK o) => o -> m Bool +getTreeViewEnableTreeLines obj = liftIO $ getObjectPropertyBool obj "enable-tree-lines" + +setTreeViewEnableTreeLines :: (MonadIO m, TreeViewK o) => o -> Bool -> m () +setTreeViewEnableTreeLines obj val = liftIO $ setObjectPropertyBool obj "enable-tree-lines" val + +constructTreeViewEnableTreeLines :: Bool -> IO ([Char], GValue) +constructTreeViewEnableTreeLines val = constructObjectPropertyBool "enable-tree-lines" val + +data TreeViewEnableTreeLinesPropertyInfo +instance AttrInfo TreeViewEnableTreeLinesPropertyInfo where + type AttrAllowedOps TreeViewEnableTreeLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewEnableTreeLinesPropertyInfo = (~) Bool + type AttrBaseTypeConstraint TreeViewEnableTreeLinesPropertyInfo = TreeViewK + type AttrGetType TreeViewEnableTreeLinesPropertyInfo = Bool + type AttrLabel TreeViewEnableTreeLinesPropertyInfo = "enable-tree-lines" + attrGet _ = getTreeViewEnableTreeLines + attrSet _ = setTreeViewEnableTreeLines + attrConstruct _ = constructTreeViewEnableTreeLines + +-- VVV Prop "expander-column" + -- Type: TInterface "Gtk" "TreeViewColumn" + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewExpanderColumn :: (MonadIO m, TreeViewK o) => o -> m TreeViewColumn +getTreeViewExpanderColumn obj = liftIO $ getObjectPropertyObject obj "expander-column" TreeViewColumn + +setTreeViewExpanderColumn :: (MonadIO m, TreeViewK o, TreeViewColumnK a) => o -> a -> m () +setTreeViewExpanderColumn obj val = liftIO $ setObjectPropertyObject obj "expander-column" val + +constructTreeViewExpanderColumn :: (TreeViewColumnK a) => a -> IO ([Char], GValue) +constructTreeViewExpanderColumn val = constructObjectPropertyObject "expander-column" val + +data TreeViewExpanderColumnPropertyInfo +instance AttrInfo TreeViewExpanderColumnPropertyInfo where + type AttrAllowedOps TreeViewExpanderColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewExpanderColumnPropertyInfo = TreeViewColumnK + type AttrBaseTypeConstraint TreeViewExpanderColumnPropertyInfo = TreeViewK + type AttrGetType TreeViewExpanderColumnPropertyInfo = TreeViewColumn + type AttrLabel TreeViewExpanderColumnPropertyInfo = "expander-column" + attrGet _ = getTreeViewExpanderColumn + attrSet _ = setTreeViewExpanderColumn + attrConstruct _ = constructTreeViewExpanderColumn + +-- VVV Prop "fixed-height-mode" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewFixedHeightMode :: (MonadIO m, TreeViewK o) => o -> m Bool +getTreeViewFixedHeightMode obj = liftIO $ getObjectPropertyBool obj "fixed-height-mode" + +setTreeViewFixedHeightMode :: (MonadIO m, TreeViewK o) => o -> Bool -> m () +setTreeViewFixedHeightMode obj val = liftIO $ setObjectPropertyBool obj "fixed-height-mode" val + +constructTreeViewFixedHeightMode :: Bool -> IO ([Char], GValue) +constructTreeViewFixedHeightMode val = constructObjectPropertyBool "fixed-height-mode" val + +data TreeViewFixedHeightModePropertyInfo +instance AttrInfo TreeViewFixedHeightModePropertyInfo where + type AttrAllowedOps TreeViewFixedHeightModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewFixedHeightModePropertyInfo = (~) Bool + type AttrBaseTypeConstraint TreeViewFixedHeightModePropertyInfo = TreeViewK + type AttrGetType TreeViewFixedHeightModePropertyInfo = Bool + type AttrLabel TreeViewFixedHeightModePropertyInfo = "fixed-height-mode" + attrGet _ = getTreeViewFixedHeightMode + attrSet _ = setTreeViewFixedHeightMode + attrConstruct _ = constructTreeViewFixedHeightMode + +-- VVV Prop "headers-clickable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewHeadersClickable :: (MonadIO m, TreeViewK o) => o -> m Bool +getTreeViewHeadersClickable obj = liftIO $ getObjectPropertyBool obj "headers-clickable" + +setTreeViewHeadersClickable :: (MonadIO m, TreeViewK o) => o -> Bool -> m () +setTreeViewHeadersClickable obj val = liftIO $ setObjectPropertyBool obj "headers-clickable" val + +constructTreeViewHeadersClickable :: Bool -> IO ([Char], GValue) +constructTreeViewHeadersClickable val = constructObjectPropertyBool "headers-clickable" val + +data TreeViewHeadersClickablePropertyInfo +instance AttrInfo TreeViewHeadersClickablePropertyInfo where + type AttrAllowedOps TreeViewHeadersClickablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewHeadersClickablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint TreeViewHeadersClickablePropertyInfo = TreeViewK + type AttrGetType TreeViewHeadersClickablePropertyInfo = Bool + type AttrLabel TreeViewHeadersClickablePropertyInfo = "headers-clickable" + attrGet _ = getTreeViewHeadersClickable + attrSet _ = setTreeViewHeadersClickable + attrConstruct _ = constructTreeViewHeadersClickable + +-- VVV Prop "headers-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewHeadersVisible :: (MonadIO m, TreeViewK o) => o -> m Bool +getTreeViewHeadersVisible obj = liftIO $ getObjectPropertyBool obj "headers-visible" + +setTreeViewHeadersVisible :: (MonadIO m, TreeViewK o) => o -> Bool -> m () +setTreeViewHeadersVisible obj val = liftIO $ setObjectPropertyBool obj "headers-visible" val + +constructTreeViewHeadersVisible :: Bool -> IO ([Char], GValue) +constructTreeViewHeadersVisible val = constructObjectPropertyBool "headers-visible" val + +data TreeViewHeadersVisiblePropertyInfo +instance AttrInfo TreeViewHeadersVisiblePropertyInfo where + type AttrAllowedOps TreeViewHeadersVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewHeadersVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint TreeViewHeadersVisiblePropertyInfo = TreeViewK + type AttrGetType TreeViewHeadersVisiblePropertyInfo = Bool + type AttrLabel TreeViewHeadersVisiblePropertyInfo = "headers-visible" + attrGet _ = getTreeViewHeadersVisible + attrSet _ = setTreeViewHeadersVisible + attrConstruct _ = constructTreeViewHeadersVisible + +-- VVV Prop "hover-expand" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewHoverExpand :: (MonadIO m, TreeViewK o) => o -> m Bool +getTreeViewHoverExpand obj = liftIO $ getObjectPropertyBool obj "hover-expand" + +setTreeViewHoverExpand :: (MonadIO m, TreeViewK o) => o -> Bool -> m () +setTreeViewHoverExpand obj val = liftIO $ setObjectPropertyBool obj "hover-expand" val + +constructTreeViewHoverExpand :: Bool -> IO ([Char], GValue) +constructTreeViewHoverExpand val = constructObjectPropertyBool "hover-expand" val + +data TreeViewHoverExpandPropertyInfo +instance AttrInfo TreeViewHoverExpandPropertyInfo where + type AttrAllowedOps TreeViewHoverExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewHoverExpandPropertyInfo = (~) Bool + type AttrBaseTypeConstraint TreeViewHoverExpandPropertyInfo = TreeViewK + type AttrGetType TreeViewHoverExpandPropertyInfo = Bool + type AttrLabel TreeViewHoverExpandPropertyInfo = "hover-expand" + attrGet _ = getTreeViewHoverExpand + attrSet _ = setTreeViewHoverExpand + attrConstruct _ = constructTreeViewHoverExpand + +-- VVV Prop "hover-selection" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewHoverSelection :: (MonadIO m, TreeViewK o) => o -> m Bool +getTreeViewHoverSelection obj = liftIO $ getObjectPropertyBool obj "hover-selection" + +setTreeViewHoverSelection :: (MonadIO m, TreeViewK o) => o -> Bool -> m () +setTreeViewHoverSelection obj val = liftIO $ setObjectPropertyBool obj "hover-selection" val + +constructTreeViewHoverSelection :: Bool -> IO ([Char], GValue) +constructTreeViewHoverSelection val = constructObjectPropertyBool "hover-selection" val + +data TreeViewHoverSelectionPropertyInfo +instance AttrInfo TreeViewHoverSelectionPropertyInfo where + type AttrAllowedOps TreeViewHoverSelectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewHoverSelectionPropertyInfo = (~) Bool + type AttrBaseTypeConstraint TreeViewHoverSelectionPropertyInfo = TreeViewK + type AttrGetType TreeViewHoverSelectionPropertyInfo = Bool + type AttrLabel TreeViewHoverSelectionPropertyInfo = "hover-selection" + attrGet _ = getTreeViewHoverSelection + attrSet _ = setTreeViewHoverSelection + attrConstruct _ = constructTreeViewHoverSelection + +-- VVV Prop "level-indentation" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewLevelIndentation :: (MonadIO m, TreeViewK o) => o -> m Int32 +getTreeViewLevelIndentation obj = liftIO $ getObjectPropertyCInt obj "level-indentation" + +setTreeViewLevelIndentation :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () +setTreeViewLevelIndentation obj val = liftIO $ setObjectPropertyCInt obj "level-indentation" val + +constructTreeViewLevelIndentation :: Int32 -> IO ([Char], GValue) +constructTreeViewLevelIndentation val = constructObjectPropertyCInt "level-indentation" val + +data TreeViewLevelIndentationPropertyInfo +instance AttrInfo TreeViewLevelIndentationPropertyInfo where + type AttrAllowedOps TreeViewLevelIndentationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewLevelIndentationPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint TreeViewLevelIndentationPropertyInfo = TreeViewK + type AttrGetType TreeViewLevelIndentationPropertyInfo = Int32 + type AttrLabel TreeViewLevelIndentationPropertyInfo = "level-indentation" + attrGet _ = getTreeViewLevelIndentation + attrSet _ = setTreeViewLevelIndentation + attrConstruct _ = constructTreeViewLevelIndentation + +-- VVV Prop "model" + -- Type: TInterface "Gtk" "TreeModel" + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewModel :: (MonadIO m, TreeViewK o) => o -> m TreeModel +getTreeViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel + +setTreeViewModel :: (MonadIO m, TreeViewK o, TreeModelK a) => o -> a -> m () +setTreeViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val + +constructTreeViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) +constructTreeViewModel val = constructObjectPropertyObject "model" val + +data TreeViewModelPropertyInfo +instance AttrInfo TreeViewModelPropertyInfo where + type AttrAllowedOps TreeViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewModelPropertyInfo = TreeModelK + type AttrBaseTypeConstraint TreeViewModelPropertyInfo = TreeViewK + type AttrGetType TreeViewModelPropertyInfo = TreeModel + type AttrLabel TreeViewModelPropertyInfo = "model" + attrGet _ = getTreeViewModel + attrSet _ = setTreeViewModel + attrConstruct _ = constructTreeViewModel + +-- VVV Prop "reorderable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewReorderable :: (MonadIO m, TreeViewK o) => o -> m Bool +getTreeViewReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable" + +setTreeViewReorderable :: (MonadIO m, TreeViewK o) => o -> Bool -> m () +setTreeViewReorderable obj val = liftIO $ setObjectPropertyBool obj "reorderable" val + +constructTreeViewReorderable :: Bool -> IO ([Char], GValue) +constructTreeViewReorderable val = constructObjectPropertyBool "reorderable" val + +data TreeViewReorderablePropertyInfo +instance AttrInfo TreeViewReorderablePropertyInfo where + type AttrAllowedOps TreeViewReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewReorderablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint TreeViewReorderablePropertyInfo = TreeViewK + type AttrGetType TreeViewReorderablePropertyInfo = Bool + type AttrLabel TreeViewReorderablePropertyInfo = "reorderable" + attrGet _ = getTreeViewReorderable + attrSet _ = setTreeViewReorderable + attrConstruct _ = constructTreeViewReorderable + +-- VVV Prop "rubber-banding" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewRubberBanding :: (MonadIO m, TreeViewK o) => o -> m Bool +getTreeViewRubberBanding obj = liftIO $ getObjectPropertyBool obj "rubber-banding" + +setTreeViewRubberBanding :: (MonadIO m, TreeViewK o) => o -> Bool -> m () +setTreeViewRubberBanding obj val = liftIO $ setObjectPropertyBool obj "rubber-banding" val + +constructTreeViewRubberBanding :: Bool -> IO ([Char], GValue) +constructTreeViewRubberBanding val = constructObjectPropertyBool "rubber-banding" val + +data TreeViewRubberBandingPropertyInfo +instance AttrInfo TreeViewRubberBandingPropertyInfo where + type AttrAllowedOps TreeViewRubberBandingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewRubberBandingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint TreeViewRubberBandingPropertyInfo = TreeViewK + type AttrGetType TreeViewRubberBandingPropertyInfo = Bool + type AttrLabel TreeViewRubberBandingPropertyInfo = "rubber-banding" + attrGet _ = getTreeViewRubberBanding + attrSet _ = setTreeViewRubberBanding + attrConstruct _ = constructTreeViewRubberBanding + +-- VVV Prop "rules-hint" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewRulesHint :: (MonadIO m, TreeViewK o) => o -> m Bool +getTreeViewRulesHint obj = liftIO $ getObjectPropertyBool obj "rules-hint" + +setTreeViewRulesHint :: (MonadIO m, TreeViewK o) => o -> Bool -> m () +setTreeViewRulesHint obj val = liftIO $ setObjectPropertyBool obj "rules-hint" val + +constructTreeViewRulesHint :: Bool -> IO ([Char], GValue) +constructTreeViewRulesHint val = constructObjectPropertyBool "rules-hint" val + +data TreeViewRulesHintPropertyInfo +instance AttrInfo TreeViewRulesHintPropertyInfo where + type AttrAllowedOps TreeViewRulesHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewRulesHintPropertyInfo = (~) Bool + type AttrBaseTypeConstraint TreeViewRulesHintPropertyInfo = TreeViewK + type AttrGetType TreeViewRulesHintPropertyInfo = Bool + type AttrLabel TreeViewRulesHintPropertyInfo = "rules-hint" + attrGet _ = getTreeViewRulesHint + attrSet _ = setTreeViewRulesHint + attrConstruct _ = constructTreeViewRulesHint + +-- VVV Prop "search-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewSearchColumn :: (MonadIO m, TreeViewK o) => o -> m Int32 +getTreeViewSearchColumn obj = liftIO $ getObjectPropertyCInt obj "search-column" + +setTreeViewSearchColumn :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () +setTreeViewSearchColumn obj val = liftIO $ setObjectPropertyCInt obj "search-column" val + +constructTreeViewSearchColumn :: Int32 -> IO ([Char], GValue) +constructTreeViewSearchColumn val = constructObjectPropertyCInt "search-column" val + +data TreeViewSearchColumnPropertyInfo +instance AttrInfo TreeViewSearchColumnPropertyInfo where + type AttrAllowedOps TreeViewSearchColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewSearchColumnPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint TreeViewSearchColumnPropertyInfo = TreeViewK + type AttrGetType TreeViewSearchColumnPropertyInfo = Int32 + type AttrLabel TreeViewSearchColumnPropertyInfo = "search-column" + attrGet _ = getTreeViewSearchColumn + attrSet _ = setTreeViewSearchColumn + attrConstruct _ = constructTreeViewSearchColumn + +-- VVV Prop "show-expanders" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewShowExpanders :: (MonadIO m, TreeViewK o) => o -> m Bool +getTreeViewShowExpanders obj = liftIO $ getObjectPropertyBool obj "show-expanders" + +setTreeViewShowExpanders :: (MonadIO m, TreeViewK o) => o -> Bool -> m () +setTreeViewShowExpanders obj val = liftIO $ setObjectPropertyBool obj "show-expanders" val + +constructTreeViewShowExpanders :: Bool -> IO ([Char], GValue) +constructTreeViewShowExpanders val = constructObjectPropertyBool "show-expanders" val + +data TreeViewShowExpandersPropertyInfo +instance AttrInfo TreeViewShowExpandersPropertyInfo where + type AttrAllowedOps TreeViewShowExpandersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewShowExpandersPropertyInfo = (~) Bool + type AttrBaseTypeConstraint TreeViewShowExpandersPropertyInfo = TreeViewK + type AttrGetType TreeViewShowExpandersPropertyInfo = Bool + type AttrLabel TreeViewShowExpandersPropertyInfo = "show-expanders" + attrGet _ = getTreeViewShowExpanders + attrSet _ = setTreeViewShowExpanders + attrConstruct _ = constructTreeViewShowExpanders + +-- VVV Prop "tooltip-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewTooltipColumn :: (MonadIO m, TreeViewK o) => o -> m Int32 +getTreeViewTooltipColumn obj = liftIO $ getObjectPropertyCInt obj "tooltip-column" + +setTreeViewTooltipColumn :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () +setTreeViewTooltipColumn obj val = liftIO $ setObjectPropertyCInt obj "tooltip-column" val + +constructTreeViewTooltipColumn :: Int32 -> IO ([Char], GValue) +constructTreeViewTooltipColumn val = constructObjectPropertyCInt "tooltip-column" val + +data TreeViewTooltipColumnPropertyInfo +instance AttrInfo TreeViewTooltipColumnPropertyInfo where + type AttrAllowedOps TreeViewTooltipColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewTooltipColumnPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint TreeViewTooltipColumnPropertyInfo = TreeViewK + type AttrGetType TreeViewTooltipColumnPropertyInfo = Int32 + type AttrLabel TreeViewTooltipColumnPropertyInfo = "tooltip-column" + attrGet _ = getTreeViewTooltipColumn + attrSet _ = setTreeViewTooltipColumn + attrConstruct _ = constructTreeViewTooltipColumn + +type instance AttributeList TreeView = TreeViewAttributeList +type TreeViewAttributeList = ('[ '("activateOnSingleClick", TreeViewActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("enableGridLines", TreeViewEnableGridLinesPropertyInfo), '("enableSearch", TreeViewEnableSearchPropertyInfo), '("enableTreeLines", TreeViewEnableTreeLinesPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expanderColumn", TreeViewExpanderColumnPropertyInfo), '("fixedHeightMode", TreeViewFixedHeightModePropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("headersClickable", TreeViewHeadersClickablePropertyInfo), '("headersVisible", TreeViewHeadersVisiblePropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hoverExpand", TreeViewHoverExpandPropertyInfo), '("hoverSelection", TreeViewHoverSelectionPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("levelIndentation", TreeViewLevelIndentationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", TreeViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("reorderable", TreeViewReorderablePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rubberBanding", TreeViewRubberBandingPropertyInfo), '("rulesHint", TreeViewRulesHintPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("searchColumn", TreeViewSearchColumnPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showExpanders", TreeViewShowExpandersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipColumn", TreeViewTooltipColumnPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) + +data TreeViewColumnsChangedSignalInfo +instance SignalInfo TreeViewColumnsChangedSignalInfo where + type HaskellCallbackType TreeViewColumnsChangedSignalInfo = TreeViewColumnsChangedCallback + connectSignal _ = connectTreeViewColumnsChanged + +data TreeViewCursorChangedSignalInfo +instance SignalInfo TreeViewCursorChangedSignalInfo where + type HaskellCallbackType TreeViewCursorChangedSignalInfo = TreeViewCursorChangedCallback + connectSignal _ = connectTreeViewCursorChanged + +data TreeViewExpandCollapseCursorRowSignalInfo +instance SignalInfo TreeViewExpandCollapseCursorRowSignalInfo where + type HaskellCallbackType TreeViewExpandCollapseCursorRowSignalInfo = TreeViewExpandCollapseCursorRowCallback + connectSignal _ = connectTreeViewExpandCollapseCursorRow + +data TreeViewMoveCursorSignalInfo +instance SignalInfo TreeViewMoveCursorSignalInfo where + type HaskellCallbackType TreeViewMoveCursorSignalInfo = TreeViewMoveCursorCallback + connectSignal _ = connectTreeViewMoveCursor + +data TreeViewRowActivatedSignalInfo +instance SignalInfo TreeViewRowActivatedSignalInfo where + type HaskellCallbackType TreeViewRowActivatedSignalInfo = TreeViewRowActivatedCallback + connectSignal _ = connectTreeViewRowActivated + +data TreeViewRowCollapsedSignalInfo +instance SignalInfo TreeViewRowCollapsedSignalInfo where + type HaskellCallbackType TreeViewRowCollapsedSignalInfo = TreeViewRowCollapsedCallback + connectSignal _ = connectTreeViewRowCollapsed + +data TreeViewRowExpandedSignalInfo +instance SignalInfo TreeViewRowExpandedSignalInfo where + type HaskellCallbackType TreeViewRowExpandedSignalInfo = TreeViewRowExpandedCallback + connectSignal _ = connectTreeViewRowExpanded + +data TreeViewSelectAllSignalInfo +instance SignalInfo TreeViewSelectAllSignalInfo where + type HaskellCallbackType TreeViewSelectAllSignalInfo = TreeViewSelectAllCallback + connectSignal _ = connectTreeViewSelectAll + +data TreeViewSelectCursorParentSignalInfo +instance SignalInfo TreeViewSelectCursorParentSignalInfo where + type HaskellCallbackType TreeViewSelectCursorParentSignalInfo = TreeViewSelectCursorParentCallback + connectSignal _ = connectTreeViewSelectCursorParent + +data TreeViewSelectCursorRowSignalInfo +instance SignalInfo TreeViewSelectCursorRowSignalInfo where + type HaskellCallbackType TreeViewSelectCursorRowSignalInfo = TreeViewSelectCursorRowCallback + connectSignal _ = connectTreeViewSelectCursorRow + +data TreeViewStartInteractiveSearchSignalInfo +instance SignalInfo TreeViewStartInteractiveSearchSignalInfo where + type HaskellCallbackType TreeViewStartInteractiveSearchSignalInfo = TreeViewStartInteractiveSearchCallback + connectSignal _ = connectTreeViewStartInteractiveSearch + +data TreeViewTestCollapseRowSignalInfo +instance SignalInfo TreeViewTestCollapseRowSignalInfo where + type HaskellCallbackType TreeViewTestCollapseRowSignalInfo = TreeViewTestCollapseRowCallback + connectSignal _ = connectTreeViewTestCollapseRow + +data TreeViewTestExpandRowSignalInfo +instance SignalInfo TreeViewTestExpandRowSignalInfo where + type HaskellCallbackType TreeViewTestExpandRowSignalInfo = TreeViewTestExpandRowCallback + connectSignal _ = connectTreeViewTestExpandRow + +data TreeViewToggleCursorRowSignalInfo +instance SignalInfo TreeViewToggleCursorRowSignalInfo where + type HaskellCallbackType TreeViewToggleCursorRowSignalInfo = TreeViewToggleCursorRowCallback + connectSignal _ = connectTreeViewToggleCursorRow + +data TreeViewUnselectAllSignalInfo +instance SignalInfo TreeViewUnselectAllSignalInfo where + type HaskellCallbackType TreeViewUnselectAllSignalInfo = TreeViewUnselectAllCallback + connectSignal _ = connectTreeViewUnselectAll + +type instance SignalList TreeView = TreeViewSignalList +type TreeViewSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("columnsChanged", TreeViewColumnsChangedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cursorChanged", TreeViewCursorChangedSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("expandCollapseCursorRow", TreeViewExpandCollapseCursorRowSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", TreeViewMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("rowActivated", TreeViewRowActivatedSignalInfo), '("rowCollapsed", TreeViewRowCollapsedSignalInfo), '("rowExpanded", TreeViewRowExpandedSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectAll", TreeViewSelectAllSignalInfo), '("selectCursorParent", TreeViewSelectCursorParentSignalInfo), '("selectCursorRow", TreeViewSelectCursorRowSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("startInteractiveSearch", TreeViewStartInteractiveSearchSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("testCollapseRow", TreeViewTestCollapseRowSignalInfo), '("testExpandRow", TreeViewTestExpandRowSignalInfo), '("toggleCursorRow", TreeViewToggleCursorRowSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselectAll", TreeViewUnselectAllSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +-- method TreeView::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TreeView" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_new" gtk_tree_view_new :: + IO (Ptr TreeView) + + +treeViewNew :: + (MonadIO m) => + m TreeView -- result +treeViewNew = liftIO $ do + result <- gtk_tree_view_new + checkUnexpectedReturnNULL "gtk_tree_view_new" result + result' <- (newObject TreeView) result + return result' + +-- method TreeView::new_with_model +-- method type : Constructor +-- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TreeView" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_new_with_model" gtk_tree_view_new_with_model :: + Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" + IO (Ptr TreeView) + + +treeViewNewWithModel :: + (MonadIO m, TreeModelK a) => + a -- model + -> m TreeView -- result +treeViewNewWithModel model = liftIO $ do + let model' = unsafeManagedPtrCastPtr model + result <- gtk_tree_view_new_with_model model' + checkUnexpectedReturnNULL "gtk_tree_view_new_with_model" result + result' <- (newObject TreeView) result + touchManagedPtr model + return result' + +-- method TreeView::append_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_append_column" gtk_tree_view_append_column :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" + IO Int32 + + +treeViewAppendColumn :: + (MonadIO m, TreeViewK a, TreeViewColumnK b) => + a -- _obj + -> b -- column + -> m Int32 -- result +treeViewAppendColumn _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let column' = unsafeManagedPtrCastPtr column + result <- gtk_tree_view_append_column _obj' column' + touchManagedPtr _obj + touchManagedPtr column + return result + +data TreeViewAppendColumnMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewAppendColumnMethodInfo a signature where + overloadedMethod _ = treeViewAppendColumn + +-- method TreeView::collapse_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_collapse_all" gtk_tree_view_collapse_all :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO () + + +treeViewCollapseAll :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m () -- result +treeViewCollapseAll _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_tree_view_collapse_all _obj' + touchManagedPtr _obj + return () + +data TreeViewCollapseAllMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewCollapseAllMethodInfo a signature where + overloadedMethod _ = treeViewCollapseAll + +-- method TreeView::collapse_row +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_collapse_row" gtk_tree_view_collapse_row :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO CInt + + +treeViewCollapseRow :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> TreePath -- path + -> m Bool -- result +treeViewCollapseRow _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + result <- gtk_tree_view_collapse_row _obj' path' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr path + return result' + +data TreeViewCollapseRowMethodInfo +instance (signature ~ (TreePath -> m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewCollapseRowMethodInfo a signature where + overloadedMethod _ = treeViewCollapseRow + +-- method TreeView::columns_autosize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_columns_autosize" gtk_tree_view_columns_autosize :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO () + + +treeViewColumnsAutosize :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m () -- result +treeViewColumnsAutosize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_tree_view_columns_autosize _obj' + touchManagedPtr _obj + return () + +data TreeViewColumnsAutosizeMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewColumnsAutosizeMethodInfo a signature where + overloadedMethod _ = treeViewColumnsAutosize + +-- method TreeView::convert_bin_window_to_tree_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ty", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_convert_bin_window_to_tree_coords" gtk_tree_view_convert_bin_window_to_tree_coords :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- bx : TBasicType TInt32 + Int32 -> -- by : TBasicType TInt32 + Ptr Int32 -> -- tx : TBasicType TInt32 + Ptr Int32 -> -- ty : TBasicType TInt32 + IO () + + +treeViewConvertBinWindowToTreeCoords :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- bx + -> Int32 -- by + -> m (Int32,Int32) -- result +treeViewConvertBinWindowToTreeCoords _obj bx by = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + tx <- allocMem :: IO (Ptr Int32) + ty <- allocMem :: IO (Ptr Int32) + gtk_tree_view_convert_bin_window_to_tree_coords _obj' bx by tx ty + tx' <- peek tx + ty' <- peek ty + touchManagedPtr _obj + freeMem tx + freeMem ty + return (tx', ty') + +data TreeViewConvertBinWindowToTreeCoordsMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewConvertBinWindowToTreeCoordsMethodInfo a signature where + overloadedMethod _ = treeViewConvertBinWindowToTreeCoords + +-- method TreeView::convert_bin_window_to_widget_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "wy", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_convert_bin_window_to_widget_coords" gtk_tree_view_convert_bin_window_to_widget_coords :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- bx : TBasicType TInt32 + Int32 -> -- by : TBasicType TInt32 + Ptr Int32 -> -- wx : TBasicType TInt32 + Ptr Int32 -> -- wy : TBasicType TInt32 + IO () + + +treeViewConvertBinWindowToWidgetCoords :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- bx + -> Int32 -- by + -> m (Int32,Int32) -- result +treeViewConvertBinWindowToWidgetCoords _obj bx by = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + wx <- allocMem :: IO (Ptr Int32) + wy <- allocMem :: IO (Ptr Int32) + gtk_tree_view_convert_bin_window_to_widget_coords _obj' bx by wx wy + wx' <- peek wx + wy' <- peek wy + touchManagedPtr _obj + freeMem wx + freeMem wy + return (wx', wy') + +data TreeViewConvertBinWindowToWidgetCoordsMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewConvertBinWindowToWidgetCoordsMethodInfo a signature where + overloadedMethod _ = treeViewConvertBinWindowToWidgetCoords + +-- method TreeView::convert_tree_to_bin_window_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_convert_tree_to_bin_window_coords" gtk_tree_view_convert_tree_to_bin_window_coords :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- tx : TBasicType TInt32 + Int32 -> -- ty : TBasicType TInt32 + Ptr Int32 -> -- bx : TBasicType TInt32 + Ptr Int32 -> -- by : TBasicType TInt32 + IO () + + +treeViewConvertTreeToBinWindowCoords :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- tx + -> Int32 -- ty + -> m (Int32,Int32) -- result +treeViewConvertTreeToBinWindowCoords _obj tx ty = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + bx <- allocMem :: IO (Ptr Int32) + by <- allocMem :: IO (Ptr Int32) + gtk_tree_view_convert_tree_to_bin_window_coords _obj' tx ty bx by + bx' <- peek bx + by' <- peek by + touchManagedPtr _obj + freeMem bx + freeMem by + return (bx', by') + +data TreeViewConvertTreeToBinWindowCoordsMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewConvertTreeToBinWindowCoordsMethodInfo a signature where + overloadedMethod _ = treeViewConvertTreeToBinWindowCoords + +-- method TreeView::convert_tree_to_widget_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "wy", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_convert_tree_to_widget_coords" gtk_tree_view_convert_tree_to_widget_coords :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- tx : TBasicType TInt32 + Int32 -> -- ty : TBasicType TInt32 + Ptr Int32 -> -- wx : TBasicType TInt32 + Ptr Int32 -> -- wy : TBasicType TInt32 + IO () + + +treeViewConvertTreeToWidgetCoords :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- tx + -> Int32 -- ty + -> m (Int32,Int32) -- result +treeViewConvertTreeToWidgetCoords _obj tx ty = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + wx <- allocMem :: IO (Ptr Int32) + wy <- allocMem :: IO (Ptr Int32) + gtk_tree_view_convert_tree_to_widget_coords _obj' tx ty wx wy + wx' <- peek wx + wy' <- peek wy + touchManagedPtr _obj + freeMem wx + freeMem wy + return (wx', wy') + +data TreeViewConvertTreeToWidgetCoordsMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewConvertTreeToWidgetCoordsMethodInfo a signature where + overloadedMethod _ = treeViewConvertTreeToWidgetCoords + +-- method TreeView::convert_widget_to_bin_window_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_convert_widget_to_bin_window_coords" gtk_tree_view_convert_widget_to_bin_window_coords :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- wx : TBasicType TInt32 + Int32 -> -- wy : TBasicType TInt32 + Ptr Int32 -> -- bx : TBasicType TInt32 + Ptr Int32 -> -- by : TBasicType TInt32 + IO () + + +treeViewConvertWidgetToBinWindowCoords :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- wx + -> Int32 -- wy + -> m (Int32,Int32) -- result +treeViewConvertWidgetToBinWindowCoords _obj wx wy = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + bx <- allocMem :: IO (Ptr Int32) + by <- allocMem :: IO (Ptr Int32) + gtk_tree_view_convert_widget_to_bin_window_coords _obj' wx wy bx by + bx' <- peek bx + by' <- peek by + touchManagedPtr _obj + freeMem bx + freeMem by + return (bx', by') + +data TreeViewConvertWidgetToBinWindowCoordsMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewConvertWidgetToBinWindowCoordsMethodInfo a signature where + overloadedMethod _ = treeViewConvertWidgetToBinWindowCoords + +-- method TreeView::convert_widget_to_tree_coords +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ty", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_convert_widget_to_tree_coords" gtk_tree_view_convert_widget_to_tree_coords :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- wx : TBasicType TInt32 + Int32 -> -- wy : TBasicType TInt32 + Ptr Int32 -> -- tx : TBasicType TInt32 + Ptr Int32 -> -- ty : TBasicType TInt32 + IO () + + +treeViewConvertWidgetToTreeCoords :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- wx + -> Int32 -- wy + -> m (Int32,Int32) -- result +treeViewConvertWidgetToTreeCoords _obj wx wy = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + tx <- allocMem :: IO (Ptr Int32) + ty <- allocMem :: IO (Ptr Int32) + gtk_tree_view_convert_widget_to_tree_coords _obj' wx wy tx ty + tx' <- peek tx + ty' <- peek ty + touchManagedPtr _obj + freeMem tx + freeMem ty + return (tx', ty') + +data TreeViewConvertWidgetToTreeCoordsMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewConvertWidgetToTreeCoordsMethodInfo a signature where + overloadedMethod _ = treeViewConvertWidgetToTreeCoords + +-- method TreeView::create_row_drag_icon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "cairo" "Surface" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_create_row_drag_icon" gtk_tree_view_create_row_drag_icon :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO (Ptr Cairo.Surface) + + +treeViewCreateRowDragIcon :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> TreePath -- path + -> m Cairo.Surface -- result +treeViewCreateRowDragIcon _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + result <- gtk_tree_view_create_row_drag_icon _obj' path' + checkUnexpectedReturnNULL "gtk_tree_view_create_row_drag_icon" result + result' <- (wrapBoxed Cairo.Surface) result + touchManagedPtr _obj + touchManagedPtr path + return result' + +data TreeViewCreateRowDragIconMethodInfo +instance (signature ~ (TreePath -> m Cairo.Surface), MonadIO m, TreeViewK a) => MethodInfo TreeViewCreateRowDragIconMethodInfo a signature where + overloadedMethod _ = treeViewCreateRowDragIcon + +-- method TreeView::enable_model_drag_dest +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_enable_model_drag_dest" gtk_tree_view_enable_model_drag_dest :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry") + Int32 -> -- n_targets : TBasicType TInt32 + CUInt -> -- actions : TInterface "Gdk" "DragAction" + IO () + + +treeViewEnableModelDragDest :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> [TargetEntry] -- targets + -> [Gdk.DragAction] -- actions + -> m () -- result +treeViewEnableModelDragDest _obj targets actions = liftIO $ do + let nTargets = fromIntegral $ length targets + let _obj' = unsafeManagedPtrCastPtr _obj + let targets' = map unsafeManagedPtrGetPtr targets + targets'' <- packBlockArray 16 targets' + let actions' = gflagsToWord actions + gtk_tree_view_enable_model_drag_dest _obj' targets'' nTargets actions' + touchManagedPtr _obj + mapM_ touchManagedPtr targets + freeMem targets'' + return () + +data TreeViewEnableModelDragDestMethodInfo +instance (signature ~ ([TargetEntry] -> [Gdk.DragAction] -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewEnableModelDragDestMethodInfo a signature where + overloadedMethod _ = treeViewEnableModelDragDest + +-- method TreeView::enable_model_drag_source +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_enable_model_drag_source" gtk_tree_view_enable_model_drag_source :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" + Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") + Int32 -> -- n_targets : TBasicType TInt32 + CUInt -> -- actions : TInterface "Gdk" "DragAction" + IO () + + +treeViewEnableModelDragSource :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> [Gdk.ModifierType] -- startButtonMask + -> [TargetEntry] -- targets + -> [Gdk.DragAction] -- actions + -> m () -- result +treeViewEnableModelDragSource _obj startButtonMask targets actions = liftIO $ do + let nTargets = fromIntegral $ length targets + let _obj' = unsafeManagedPtrCastPtr _obj + let startButtonMask' = gflagsToWord startButtonMask + let targets' = map unsafeManagedPtrGetPtr targets + targets'' <- packBlockArray 16 targets' + let actions' = gflagsToWord actions + gtk_tree_view_enable_model_drag_source _obj' startButtonMask' targets'' nTargets actions' + touchManagedPtr _obj + mapM_ touchManagedPtr targets + freeMem targets'' + return () + +data TreeViewEnableModelDragSourceMethodInfo +instance (signature ~ ([Gdk.ModifierType] -> [TargetEntry] -> [Gdk.DragAction] -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewEnableModelDragSourceMethodInfo a signature where + overloadedMethod _ = treeViewEnableModelDragSource + +-- method TreeView::expand_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_expand_all" gtk_tree_view_expand_all :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO () + + +treeViewExpandAll :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m () -- result +treeViewExpandAll _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_tree_view_expand_all _obj' + touchManagedPtr _obj + return () + +data TreeViewExpandAllMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewExpandAllMethodInfo a signature where + overloadedMethod _ = treeViewExpandAll + +-- method TreeView::expand_row +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "open_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_expand_row" gtk_tree_view_expand_row :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + CInt -> -- open_all : TBasicType TBoolean + IO CInt + + +treeViewExpandRow :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> TreePath -- path + -> Bool -- openAll + -> m Bool -- result +treeViewExpandRow _obj path openAll = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + let openAll' = (fromIntegral . fromEnum) openAll + result <- gtk_tree_view_expand_row _obj' path' openAll' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr path + return result' + +data TreeViewExpandRowMethodInfo +instance (signature ~ (TreePath -> Bool -> m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewExpandRowMethodInfo a signature where + overloadedMethod _ = treeViewExpandRow + +-- method TreeView::expand_to_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_expand_to_path" gtk_tree_view_expand_to_path :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO () + + +treeViewExpandToPath :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> TreePath -- path + -> m () -- result +treeViewExpandToPath _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + gtk_tree_view_expand_to_path _obj' path' + touchManagedPtr _obj + touchManagedPtr path + return () + +data TreeViewExpandToPathMethodInfo +instance (signature ~ (TreePath -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewExpandToPathMethodInfo a signature where + overloadedMethod _ = treeViewExpandToPath + +-- method TreeView::get_activate_on_single_click +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_activate_on_single_click" gtk_tree_view_get_activate_on_single_click :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + + +treeViewGetActivateOnSingleClick :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewGetActivateOnSingleClick _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_activate_on_single_click _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewGetActivateOnSingleClickMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetActivateOnSingleClickMethodInfo a signature where + overloadedMethod _ = treeViewGetActivateOnSingleClick + +-- method TreeView::get_background_area +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_background_area" gtk_tree_view_get_background_area :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" + Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" + IO () + + +treeViewGetBackgroundArea :: + (MonadIO m, TreeViewK a, TreeViewColumnK b) => + a -- _obj + -> Maybe (TreePath) -- path + -> Maybe (b) -- column + -> m (Gdk.Rectangle) -- result +treeViewGetBackgroundArea _obj path column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybePath <- case path of + Nothing -> return nullPtr + Just jPath -> do + let jPath' = unsafeManagedPtrGetPtr jPath + return jPath' + maybeColumn <- case column of + Nothing -> return nullPtr + Just jColumn -> do + let jColumn' = unsafeManagedPtrCastPtr jColumn + return jColumn' + rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_tree_view_get_background_area _obj' maybePath maybeColumn rect + rect' <- (wrapBoxed Gdk.Rectangle) rect + touchManagedPtr _obj + whenJust path touchManagedPtr + whenJust column touchManagedPtr + return rect' + +data TreeViewGetBackgroundAreaMethodInfo +instance (signature ~ (Maybe (TreePath) -> Maybe (b) -> m (Gdk.Rectangle)), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewGetBackgroundAreaMethodInfo a signature where + overloadedMethod _ = treeViewGetBackgroundArea + +-- method TreeView::get_bin_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Window" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_bin_window" gtk_tree_view_get_bin_window :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO (Ptr Gdk.Window) + + +treeViewGetBinWindow :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Gdk.Window -- result +treeViewGetBinWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_bin_window _obj' + checkUnexpectedReturnNULL "gtk_tree_view_get_bin_window" result + result' <- (newObject Gdk.Window) result + touchManagedPtr _obj + return result' + +data TreeViewGetBinWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetBinWindowMethodInfo a signature where + overloadedMethod _ = treeViewGetBinWindow + +-- method TreeView::get_cell_area +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_cell_area" gtk_tree_view_get_cell_area :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" + Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" + IO () + + +treeViewGetCellArea :: + (MonadIO m, TreeViewK a, TreeViewColumnK b) => + a -- _obj + -> Maybe (TreePath) -- path + -> Maybe (b) -- column + -> m (Gdk.Rectangle) -- result +treeViewGetCellArea _obj path column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybePath <- case path of + Nothing -> return nullPtr + Just jPath -> do + let jPath' = unsafeManagedPtrGetPtr jPath + return jPath' + maybeColumn <- case column of + Nothing -> return nullPtr + Just jColumn -> do + let jColumn' = unsafeManagedPtrCastPtr jColumn + return jColumn' + rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_tree_view_get_cell_area _obj' maybePath maybeColumn rect + rect' <- (wrapBoxed Gdk.Rectangle) rect + touchManagedPtr _obj + whenJust path touchManagedPtr + whenJust column touchManagedPtr + return rect' + +data TreeViewGetCellAreaMethodInfo +instance (signature ~ (Maybe (TreePath) -> Maybe (b) -> m (Gdk.Rectangle)), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewGetCellAreaMethodInfo a signature where + overloadedMethod _ = treeViewGetCellArea + +-- method TreeView::get_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TreeViewColumn" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_column" gtk_tree_view_get_column :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- n : TBasicType TInt32 + IO (Ptr TreeViewColumn) + + +treeViewGetColumn :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- n + -> m TreeViewColumn -- result +treeViewGetColumn _obj n = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_column _obj' n + checkUnexpectedReturnNULL "gtk_tree_view_get_column" result + result' <- (newObject TreeViewColumn) result + touchManagedPtr _obj + return result' + +data TreeViewGetColumnMethodInfo +instance (signature ~ (Int32 -> m TreeViewColumn), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetColumnMethodInfo a signature where + overloadedMethod _ = treeViewGetColumn + +-- method TreeView::get_columns +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGList (TInterface "Gtk" "TreeViewColumn") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_columns" gtk_tree_view_get_columns :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO (Ptr (GList (Ptr TreeViewColumn))) + + +treeViewGetColumns :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m [TreeViewColumn] -- result +treeViewGetColumns _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_columns _obj' + checkUnexpectedReturnNULL "gtk_tree_view_get_columns" result + result' <- unpackGList result + result'' <- mapM (newObject TreeViewColumn) result' + g_list_free result + touchManagedPtr _obj + return result'' + +data TreeViewGetColumnsMethodInfo +instance (signature ~ (m [TreeViewColumn]), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetColumnsMethodInfo a signature where + overloadedMethod _ = treeViewGetColumns + +-- method TreeView::get_cursor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_cursor" gtk_tree_view_get_cursor :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" + Ptr (Ptr TreeViewColumn) -> -- focus_column : TInterface "Gtk" "TreeViewColumn" + IO () + + +treeViewGetCursor :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m ((Maybe TreePath),(Maybe TreeViewColumn))-- result +treeViewGetCursor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path <- allocMem :: IO (Ptr (Ptr TreePath)) + focusColumn <- allocMem :: IO (Ptr (Ptr TreeViewColumn)) + gtk_tree_view_get_cursor _obj' path focusColumn + path' <- peek path + maybePath' <- convertIfNonNull path' $ \path'' -> do + path''' <- (wrapBoxed TreePath) path'' + return path''' + focusColumn' <- peek focusColumn + maybeFocusColumn' <- convertIfNonNull focusColumn' $ \focusColumn'' -> do + focusColumn''' <- (newObject TreeViewColumn) focusColumn'' + return focusColumn''' + touchManagedPtr _obj + freeMem path + freeMem focusColumn + return (maybePath', maybeFocusColumn') + +data TreeViewGetCursorMethodInfo +instance (signature ~ (m ((Maybe TreePath),(Maybe TreeViewColumn))), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetCursorMethodInfo a signature where + overloadedMethod _ = treeViewGetCursor + +-- method TreeView::get_dest_row_at_pos +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_dest_row_at_pos" gtk_tree_view_get_dest_row_at_pos :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- drag_x : TBasicType TInt32 + Int32 -> -- drag_y : TBasicType TInt32 + Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" + Ptr CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition" + IO CInt + + +treeViewGetDestRowAtPos :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- dragX + -> Int32 -- dragY + -> m (Bool,(Maybe TreePath),TreeViewDropPosition)-- result +treeViewGetDestRowAtPos _obj dragX dragY = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path <- allocMem :: IO (Ptr (Ptr TreePath)) + pos <- allocMem :: IO (Ptr CUInt) + result <- gtk_tree_view_get_dest_row_at_pos _obj' dragX dragY path pos + let result' = (/= 0) result + path' <- peek path + maybePath' <- convertIfNonNull path' $ \path'' -> do + path''' <- (wrapBoxed TreePath) path'' + return path''' + pos' <- peek pos + let pos'' = (toEnum . fromIntegral) pos' + touchManagedPtr _obj + freeMem path + freeMem pos + return (result', maybePath', pos'') + +data TreeViewGetDestRowAtPosMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (Bool,(Maybe TreePath),TreeViewDropPosition)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetDestRowAtPosMethodInfo a signature where + overloadedMethod _ = treeViewGetDestRowAtPos + +-- method TreeView::get_drag_dest_row +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_drag_dest_row" gtk_tree_view_get_drag_dest_row :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" + Ptr CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition" + IO () + + +treeViewGetDragDestRow :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m ((Maybe TreePath),TreeViewDropPosition)-- result +treeViewGetDragDestRow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path <- allocMem :: IO (Ptr (Ptr TreePath)) + pos <- allocMem :: IO (Ptr CUInt) + gtk_tree_view_get_drag_dest_row _obj' path pos + path' <- peek path + maybePath' <- convertIfNonNull path' $ \path'' -> do + path''' <- (wrapBoxed TreePath) path'' + return path''' + pos' <- peek pos + let pos'' = (toEnum . fromIntegral) pos' + touchManagedPtr _obj + freeMem path + freeMem pos + return (maybePath', pos'') + +data TreeViewGetDragDestRowMethodInfo +instance (signature ~ (m ((Maybe TreePath),TreeViewDropPosition)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetDragDestRowMethodInfo a signature where + overloadedMethod _ = treeViewGetDragDestRow + +-- method TreeView::get_enable_search +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_enable_search" gtk_tree_view_get_enable_search :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + + +treeViewGetEnableSearch :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewGetEnableSearch _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_enable_search _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewGetEnableSearchMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetEnableSearchMethodInfo a signature where + overloadedMethod _ = treeViewGetEnableSearch + +-- method TreeView::get_enable_tree_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_enable_tree_lines" gtk_tree_view_get_enable_tree_lines :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + + +treeViewGetEnableTreeLines :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewGetEnableTreeLines _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_enable_tree_lines _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewGetEnableTreeLinesMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetEnableTreeLinesMethodInfo a signature where + overloadedMethod _ = treeViewGetEnableTreeLines + +-- method TreeView::get_expander_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TreeViewColumn" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_expander_column" gtk_tree_view_get_expander_column :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO (Ptr TreeViewColumn) + + +treeViewGetExpanderColumn :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m TreeViewColumn -- result +treeViewGetExpanderColumn _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_expander_column _obj' + checkUnexpectedReturnNULL "gtk_tree_view_get_expander_column" result + result' <- (newObject TreeViewColumn) result + touchManagedPtr _obj + return result' + +data TreeViewGetExpanderColumnMethodInfo +instance (signature ~ (m TreeViewColumn), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetExpanderColumnMethodInfo a signature where + overloadedMethod _ = treeViewGetExpanderColumn + +-- method TreeView::get_fixed_height_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_fixed_height_mode" gtk_tree_view_get_fixed_height_mode :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + + +treeViewGetFixedHeightMode :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewGetFixedHeightMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_fixed_height_mode _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewGetFixedHeightModeMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetFixedHeightModeMethodInfo a signature where + overloadedMethod _ = treeViewGetFixedHeightMode + +-- method TreeView::get_grid_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TreeViewGridLines" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_grid_lines" gtk_tree_view_get_grid_lines :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CUInt + + +treeViewGetGridLines :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m TreeViewGridLines -- result +treeViewGetGridLines _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_grid_lines _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data TreeViewGetGridLinesMethodInfo +instance (signature ~ (m TreeViewGridLines), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetGridLinesMethodInfo a signature where + overloadedMethod _ = treeViewGetGridLines + +-- method TreeView::get_hadjustment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Adjustment" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_hadjustment" gtk_tree_view_get_hadjustment :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO (Ptr Adjustment) + +{-# DEPRECATED treeViewGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-} +treeViewGetHadjustment :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Adjustment -- result +treeViewGetHadjustment _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_hadjustment _obj' + checkUnexpectedReturnNULL "gtk_tree_view_get_hadjustment" result + result' <- (newObject Adjustment) result + touchManagedPtr _obj + return result' + +data TreeViewGetHadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetHadjustmentMethodInfo a signature where + overloadedMethod _ = treeViewGetHadjustment + +-- method TreeView::get_headers_clickable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_headers_clickable" gtk_tree_view_get_headers_clickable :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + + +treeViewGetHeadersClickable :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewGetHeadersClickable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_headers_clickable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewGetHeadersClickableMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetHeadersClickableMethodInfo a signature where + overloadedMethod _ = treeViewGetHeadersClickable + +-- method TreeView::get_headers_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_headers_visible" gtk_tree_view_get_headers_visible :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + + +treeViewGetHeadersVisible :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewGetHeadersVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_headers_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewGetHeadersVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetHeadersVisibleMethodInfo a signature where + overloadedMethod _ = treeViewGetHeadersVisible + +-- method TreeView::get_hover_expand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_hover_expand" gtk_tree_view_get_hover_expand :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + + +treeViewGetHoverExpand :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewGetHoverExpand _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_hover_expand _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewGetHoverExpandMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetHoverExpandMethodInfo a signature where + overloadedMethod _ = treeViewGetHoverExpand + +-- method TreeView::get_hover_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_hover_selection" gtk_tree_view_get_hover_selection :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + + +treeViewGetHoverSelection :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewGetHoverSelection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_hover_selection _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewGetHoverSelectionMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetHoverSelectionMethodInfo a signature where + overloadedMethod _ = treeViewGetHoverSelection + +-- method TreeView::get_level_indentation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_level_indentation" gtk_tree_view_get_level_indentation :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO Int32 + + +treeViewGetLevelIndentation :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Int32 -- result +treeViewGetLevelIndentation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_level_indentation _obj' + touchManagedPtr _obj + return result + +data TreeViewGetLevelIndentationMethodInfo +instance (signature ~ (m Int32), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetLevelIndentationMethodInfo a signature where + overloadedMethod _ = treeViewGetLevelIndentation + +-- method TreeView::get_model +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TreeModel" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_model" gtk_tree_view_get_model :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO (Ptr TreeModel) + + +treeViewGetModel :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m TreeModel -- result +treeViewGetModel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_model _obj' + checkUnexpectedReturnNULL "gtk_tree_view_get_model" result + result' <- (newObject TreeModel) result + touchManagedPtr _obj + return result' + +data TreeViewGetModelMethodInfo +instance (signature ~ (m TreeModel), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetModelMethodInfo a signature where + overloadedMethod _ = treeViewGetModel + +-- method TreeView::get_n_columns +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_n_columns" gtk_tree_view_get_n_columns :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO Word32 + + +treeViewGetNColumns :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Word32 -- result +treeViewGetNColumns _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_n_columns _obj' + touchManagedPtr _obj + return result + +data TreeViewGetNColumnsMethodInfo +instance (signature ~ (m Word32), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetNColumnsMethodInfo a signature where + overloadedMethod _ = treeViewGetNColumns + +-- method TreeView::get_path_at_pos +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_path_at_pos" gtk_tree_view_get_path_at_pos :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" + Ptr (Ptr TreeViewColumn) -> -- column : TInterface "Gtk" "TreeViewColumn" + Ptr Int32 -> -- cell_x : TBasicType TInt32 + Ptr Int32 -> -- cell_y : TBasicType TInt32 + IO CInt + + +treeViewGetPathAtPos :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> m (Bool,(Maybe TreePath),(Maybe TreeViewColumn),Int32,Int32)-- result +treeViewGetPathAtPos _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path <- allocMem :: IO (Ptr (Ptr TreePath)) + column <- allocMem :: IO (Ptr (Ptr TreeViewColumn)) + cellX <- allocMem :: IO (Ptr Int32) + cellY <- allocMem :: IO (Ptr Int32) + result <- gtk_tree_view_get_path_at_pos _obj' x y path column cellX cellY + let result' = (/= 0) result + path' <- peek path + maybePath' <- convertIfNonNull path' $ \path'' -> do + path''' <- (wrapBoxed TreePath) path'' + return path''' + column' <- peek column + maybeColumn' <- convertIfNonNull column' $ \column'' -> do + column''' <- (newObject TreeViewColumn) column'' + return column''' + cellX' <- peek cellX + cellY' <- peek cellY + touchManagedPtr _obj + freeMem path + freeMem column + freeMem cellX + freeMem cellY + return (result', maybePath', maybeColumn', cellX', cellY') + +data TreeViewGetPathAtPosMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (Bool,(Maybe TreePath),(Maybe TreeViewColumn),Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetPathAtPosMethodInfo a signature where + overloadedMethod _ = treeViewGetPathAtPos + +-- method TreeView::get_reorderable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_reorderable" gtk_tree_view_get_reorderable :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + + +treeViewGetReorderable :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewGetReorderable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_reorderable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewGetReorderableMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetReorderableMethodInfo a signature where + overloadedMethod _ = treeViewGetReorderable + +-- method TreeView::get_rubber_banding +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_rubber_banding" gtk_tree_view_get_rubber_banding :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + + +treeViewGetRubberBanding :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewGetRubberBanding _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_rubber_banding _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewGetRubberBandingMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetRubberBandingMethodInfo a signature where + overloadedMethod _ = treeViewGetRubberBanding + +-- method TreeView::get_rules_hint +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_rules_hint" gtk_tree_view_get_rules_hint :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + +{-# DEPRECATED treeViewGetRulesHint ["(Since version 3.14)"]#-} +treeViewGetRulesHint :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewGetRulesHint _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_rules_hint _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewGetRulesHintMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetRulesHintMethodInfo a signature where + overloadedMethod _ = treeViewGetRulesHint + +-- method TreeView::get_search_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_search_column" gtk_tree_view_get_search_column :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO Int32 + + +treeViewGetSearchColumn :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Int32 -- result +treeViewGetSearchColumn _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_search_column _obj' + touchManagedPtr _obj + return result + +data TreeViewGetSearchColumnMethodInfo +instance (signature ~ (m Int32), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetSearchColumnMethodInfo a signature where + overloadedMethod _ = treeViewGetSearchColumn + +-- method TreeView::get_search_entry +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Entry" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_search_entry" gtk_tree_view_get_search_entry :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO (Ptr Entry) + + +treeViewGetSearchEntry :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Entry -- result +treeViewGetSearchEntry _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_search_entry _obj' + checkUnexpectedReturnNULL "gtk_tree_view_get_search_entry" result + result' <- (newObject Entry) result + touchManagedPtr _obj + return result' + +data TreeViewGetSearchEntryMethodInfo +instance (signature ~ (m Entry), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetSearchEntryMethodInfo a signature where + overloadedMethod _ = treeViewGetSearchEntry + +-- method TreeView::get_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TreeSelection" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_selection" gtk_tree_view_get_selection :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO (Ptr TreeSelection) + + +treeViewGetSelection :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m TreeSelection -- result +treeViewGetSelection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_selection _obj' + checkUnexpectedReturnNULL "gtk_tree_view_get_selection" result + result' <- (newObject TreeSelection) result + touchManagedPtr _obj + return result' + +data TreeViewGetSelectionMethodInfo +instance (signature ~ (m TreeSelection), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetSelectionMethodInfo a signature where + overloadedMethod _ = treeViewGetSelection + +-- method TreeView::get_show_expanders +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_show_expanders" gtk_tree_view_get_show_expanders :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + + +treeViewGetShowExpanders :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewGetShowExpanders _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_show_expanders _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewGetShowExpandersMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetShowExpandersMethodInfo a signature where + overloadedMethod _ = treeViewGetShowExpanders + +-- method TreeView::get_tooltip_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_tooltip_column" gtk_tree_view_get_tooltip_column :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO Int32 + + +treeViewGetTooltipColumn :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Int32 -- result +treeViewGetTooltipColumn _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_tooltip_column _obj' + touchManagedPtr _obj + return result + +data TreeViewGetTooltipColumnMethodInfo +instance (signature ~ (m Int32), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetTooltipColumnMethodInfo a signature where + overloadedMethod _ = treeViewGetTooltipColumn + +-- method TreeView::get_tooltip_context +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_tooltip_context" gtk_tree_view_get_tooltip_context :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr Int32 -> -- x : TBasicType TInt32 + Ptr Int32 -> -- y : TBasicType TInt32 + CInt -> -- keyboard_tip : TBasicType TBoolean + Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel" + Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" + Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" + IO CInt + + +treeViewGetTooltipContext :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> Bool -- keyboardTip + -> m (Bool,Int32,Int32,(Maybe TreeModel),TreePath,TreeIter)-- result +treeViewGetTooltipContext _obj x y keyboardTip = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + x' <- allocMem :: IO (Ptr Int32) + poke x' x + y' <- allocMem :: IO (Ptr Int32) + poke y' y + let keyboardTip' = (fromIntegral . fromEnum) keyboardTip + model <- allocMem :: IO (Ptr (Ptr TreeModel)) + path <- allocMem :: IO (Ptr (Ptr TreePath)) + iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) + result <- gtk_tree_view_get_tooltip_context _obj' x' y' keyboardTip' model path iter + let result' = (/= 0) result + x'' <- peek x' + y'' <- peek y' + model' <- peek model + maybeModel' <- convertIfNonNull model' $ \model'' -> do + model''' <- (newObject TreeModel) model'' + return model''' + path' <- peek path + path'' <- (wrapBoxed TreePath) path' + iter' <- (wrapBoxed TreeIter) iter + touchManagedPtr _obj + freeMem x' + freeMem y' + freeMem model + freeMem path + return (result', x'', y'', maybeModel', path'', iter') + +data TreeViewGetTooltipContextMethodInfo +instance (signature ~ (Int32 -> Int32 -> Bool -> m (Bool,Int32,Int32,(Maybe TreeModel),TreePath,TreeIter)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetTooltipContextMethodInfo a signature where + overloadedMethod _ = treeViewGetTooltipContext + +-- method TreeView::get_vadjustment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Adjustment" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_vadjustment" gtk_tree_view_get_vadjustment :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO (Ptr Adjustment) + +{-# DEPRECATED treeViewGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-} +treeViewGetVadjustment :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Adjustment -- result +treeViewGetVadjustment _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_get_vadjustment _obj' + checkUnexpectedReturnNULL "gtk_tree_view_get_vadjustment" result + result' <- (newObject Adjustment) result + touchManagedPtr _obj + return result' + +data TreeViewGetVadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetVadjustmentMethodInfo a signature where + overloadedMethod _ = treeViewGetVadjustment + +-- method TreeView::get_visible_range +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_visible_range" gtk_tree_view_get_visible_range :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr (Ptr TreePath) -> -- start_path : TInterface "Gtk" "TreePath" + Ptr (Ptr TreePath) -> -- end_path : TInterface "Gtk" "TreePath" + IO CInt + + +treeViewGetVisibleRange :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m (Bool,TreePath,TreePath) -- result +treeViewGetVisibleRange _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + startPath <- allocMem :: IO (Ptr (Ptr TreePath)) + endPath <- allocMem :: IO (Ptr (Ptr TreePath)) + result <- gtk_tree_view_get_visible_range _obj' startPath endPath + let result' = (/= 0) result + startPath' <- peek startPath + startPath'' <- (wrapBoxed TreePath) startPath' + endPath' <- peek endPath + endPath'' <- (wrapBoxed TreePath) endPath' + touchManagedPtr _obj + freeMem startPath + freeMem endPath + return (result', startPath'', endPath'') + +data TreeViewGetVisibleRangeMethodInfo +instance (signature ~ (m (Bool,TreePath,TreePath)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetVisibleRangeMethodInfo a signature where + overloadedMethod _ = treeViewGetVisibleRange + +-- method TreeView::get_visible_rect +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_get_visible_rect" gtk_tree_view_get_visible_rect :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr Gdk.Rectangle -> -- visible_rect : TInterface "Gdk" "Rectangle" + IO () + + +treeViewGetVisibleRect :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m (Gdk.Rectangle) -- result +treeViewGetVisibleRect _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + visibleRect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_tree_view_get_visible_rect _obj' visibleRect + visibleRect' <- (wrapBoxed Gdk.Rectangle) visibleRect + touchManagedPtr _obj + return visibleRect' + +data TreeViewGetVisibleRectMethodInfo +instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetVisibleRectMethodInfo a signature where + overloadedMethod _ = treeViewGetVisibleRect + +-- method TreeView::insert_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_insert_column" gtk_tree_view_insert_column :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" + Int32 -> -- position : TBasicType TInt32 + IO Int32 + + +treeViewInsertColumn :: + (MonadIO m, TreeViewK a, TreeViewColumnK b) => + a -- _obj + -> b -- column + -> Int32 -- position + -> m Int32 -- result +treeViewInsertColumn _obj column position = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let column' = unsafeManagedPtrCastPtr column + result <- gtk_tree_view_insert_column _obj' column' position + touchManagedPtr _obj + touchManagedPtr column + return result + +data TreeViewInsertColumnMethodInfo +instance (signature ~ (b -> Int32 -> m Int32), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewInsertColumnMethodInfo a signature where + overloadedMethod _ = treeViewInsertColumn + +-- method TreeView::insert_column_with_data_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_insert_column_with_data_func" gtk_tree_view_insert_column_with_data_func :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- position : TBasicType TInt32 + CString -> -- title : TBasicType TUTF8 + Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" + FunPtr TreeCellDataFuncC -> -- func : TInterface "Gtk" "TreeCellDataFunc" + Ptr () -> -- data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" + IO Int32 + + +treeViewInsertColumnWithDataFunc :: + (MonadIO m, TreeViewK a, CellRendererK b) => + a -- _obj + -> Int32 -- position + -> T.Text -- title + -> b -- cell + -> TreeCellDataFunc -- func + -> m Int32 -- result +treeViewInsertColumnWithDataFunc _obj position title cell func = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + title' <- textToCString title + let cell' = unsafeManagedPtrCastPtr cell + func' <- mkTreeCellDataFunc (treeCellDataFuncWrapper Nothing func) + let data_ = castFunPtrToPtr func' + let dnotify = safeFreeFunPtrPtr + result <- gtk_tree_view_insert_column_with_data_func _obj' position title' cell' func' data_ dnotify + touchManagedPtr _obj + touchManagedPtr cell + freeMem title' + return result + +data TreeViewInsertColumnWithDataFuncMethodInfo +instance (signature ~ (Int32 -> T.Text -> b -> TreeCellDataFunc -> m Int32), MonadIO m, TreeViewK a, CellRendererK b) => MethodInfo TreeViewInsertColumnWithDataFuncMethodInfo a signature where + overloadedMethod _ = treeViewInsertColumnWithDataFunc + +-- method TreeView::is_blank_at_pos +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_is_blank_at_pos" gtk_tree_view_is_blank_at_pos :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" + Ptr (Ptr TreeViewColumn) -> -- column : TInterface "Gtk" "TreeViewColumn" + Ptr Int32 -> -- cell_x : TBasicType TInt32 + Ptr Int32 -> -- cell_y : TBasicType TInt32 + IO CInt + + +treeViewIsBlankAtPos :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> m (Bool,TreePath,TreeViewColumn,Int32,Int32)-- result +treeViewIsBlankAtPos _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path <- allocMem :: IO (Ptr (Ptr TreePath)) + column <- allocMem :: IO (Ptr (Ptr TreeViewColumn)) + cellX <- allocMem :: IO (Ptr Int32) + cellY <- allocMem :: IO (Ptr Int32) + result <- gtk_tree_view_is_blank_at_pos _obj' x y path column cellX cellY + let result' = (/= 0) result + path' <- peek path + path'' <- (wrapBoxed TreePath) path' + column' <- peek column + column'' <- (wrapObject TreeViewColumn) column' + cellX' <- peek cellX + cellY' <- peek cellY + touchManagedPtr _obj + freeMem path + freeMem column + freeMem cellX + freeMem cellY + return (result', path'', column'', cellX', cellY') + +data TreeViewIsBlankAtPosMethodInfo +instance (signature ~ (Int32 -> Int32 -> m (Bool,TreePath,TreeViewColumn,Int32,Int32)), MonadIO m, TreeViewK a) => MethodInfo TreeViewIsBlankAtPosMethodInfo a signature where + overloadedMethod _ = treeViewIsBlankAtPos + +-- method TreeView::is_rubber_banding_active +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_is_rubber_banding_active" gtk_tree_view_is_rubber_banding_active :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO CInt + + +treeViewIsRubberBandingActive :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m Bool -- result +treeViewIsRubberBandingActive _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_tree_view_is_rubber_banding_active _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TreeViewIsRubberBandingActiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewIsRubberBandingActiveMethodInfo a signature where + overloadedMethod _ = treeViewIsRubberBandingActive + +-- method TreeView::map_expanded_rows +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewMappingFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_map_expanded_rows" gtk_tree_view_map_expanded_rows :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + FunPtr TreeViewMappingFuncC -> -- func : TInterface "Gtk" "TreeViewMappingFunc" + Ptr () -> -- data : TBasicType TVoid + IO () + + +treeViewMapExpandedRows :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> TreeViewMappingFunc -- func + -> m () -- result +treeViewMapExpandedRows _obj func = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + func' <- mkTreeViewMappingFunc (treeViewMappingFuncWrapper Nothing func) + let data_ = nullPtr + gtk_tree_view_map_expanded_rows _obj' func' data_ + safeFreeFunPtr $ castFunPtrToPtr func' + touchManagedPtr _obj + return () + +data TreeViewMapExpandedRowsMethodInfo +instance (signature ~ (TreeViewMappingFunc -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewMapExpandedRowsMethodInfo a signature where + overloadedMethod _ = treeViewMapExpandedRows + +-- method TreeView::move_column_after +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_move_column_after" gtk_tree_view_move_column_after :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" + Ptr TreeViewColumn -> -- base_column : TInterface "Gtk" "TreeViewColumn" + IO () + + +treeViewMoveColumnAfter :: + (MonadIO m, TreeViewK a, TreeViewColumnK b, TreeViewColumnK c) => + a -- _obj + -> b -- column + -> Maybe (c) -- baseColumn + -> m () -- result +treeViewMoveColumnAfter _obj column baseColumn = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let column' = unsafeManagedPtrCastPtr column + maybeBaseColumn <- case baseColumn of + Nothing -> return nullPtr + Just jBaseColumn -> do + let jBaseColumn' = unsafeManagedPtrCastPtr jBaseColumn + return jBaseColumn' + gtk_tree_view_move_column_after _obj' column' maybeBaseColumn + touchManagedPtr _obj + touchManagedPtr column + whenJust baseColumn touchManagedPtr + return () + +data TreeViewMoveColumnAfterMethodInfo +instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, TreeViewK a, TreeViewColumnK b, TreeViewColumnK c) => MethodInfo TreeViewMoveColumnAfterMethodInfo a signature where + overloadedMethod _ = treeViewMoveColumnAfter + +-- method TreeView::remove_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_remove_column" gtk_tree_view_remove_column :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" + IO Int32 + + +treeViewRemoveColumn :: + (MonadIO m, TreeViewK a, TreeViewColumnK b) => + a -- _obj + -> b -- column + -> m Int32 -- result +treeViewRemoveColumn _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let column' = unsafeManagedPtrCastPtr column + result <- gtk_tree_view_remove_column _obj' column' + touchManagedPtr _obj + touchManagedPtr column + return result + +data TreeViewRemoveColumnMethodInfo +instance (signature ~ (b -> m Int32), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewRemoveColumnMethodInfo a signature where + overloadedMethod _ = treeViewRemoveColumn + +-- method TreeView::row_activated +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_row_activated" gtk_tree_view_row_activated :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" + IO () + + +treeViewRowActivated :: + (MonadIO m, TreeViewK a, TreeViewColumnK b) => + a -- _obj + -> TreePath -- path + -> b -- column + -> m () -- result +treeViewRowActivated _obj path column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + let column' = unsafeManagedPtrCastPtr column + gtk_tree_view_row_activated _obj' path' column' + touchManagedPtr _obj + touchManagedPtr path + touchManagedPtr column + return () + +data TreeViewRowActivatedMethodInfo +instance (signature ~ (TreePath -> b -> m ()), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewRowActivatedMethodInfo a signature where + overloadedMethod _ = treeViewRowActivated + +-- method TreeView::row_expanded +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_row_expanded" gtk_tree_view_row_expanded :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO CInt + + +treeViewRowExpanded :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> TreePath -- path + -> m Bool -- result +treeViewRowExpanded _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + result <- gtk_tree_view_row_expanded _obj' path' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr path + return result' + +data TreeViewRowExpandedMethodInfo +instance (signature ~ (TreePath -> m Bool), MonadIO m, TreeViewK a) => MethodInfo TreeViewRowExpandedMethodInfo a signature where + overloadedMethod _ = treeViewRowExpanded + +-- method TreeView::scroll_to_cell +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_scroll_to_cell" gtk_tree_view_scroll_to_cell :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" + CInt -> -- use_align : TBasicType TBoolean + CFloat -> -- row_align : TBasicType TFloat + CFloat -> -- col_align : TBasicType TFloat + IO () + + +treeViewScrollToCell :: + (MonadIO m, TreeViewK a, TreeViewColumnK b) => + a -- _obj + -> Maybe (TreePath) -- path + -> Maybe (b) -- column + -> Bool -- useAlign + -> Float -- rowAlign + -> Float -- colAlign + -> m () -- result +treeViewScrollToCell _obj path column useAlign rowAlign colAlign = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybePath <- case path of + Nothing -> return nullPtr + Just jPath -> do + let jPath' = unsafeManagedPtrGetPtr jPath + return jPath' + maybeColumn <- case column of + Nothing -> return nullPtr + Just jColumn -> do + let jColumn' = unsafeManagedPtrCastPtr jColumn + return jColumn' + let useAlign' = (fromIntegral . fromEnum) useAlign + let rowAlign' = realToFrac rowAlign + let colAlign' = realToFrac colAlign + gtk_tree_view_scroll_to_cell _obj' maybePath maybeColumn useAlign' rowAlign' colAlign' + touchManagedPtr _obj + whenJust path touchManagedPtr + whenJust column touchManagedPtr + return () + +data TreeViewScrollToCellMethodInfo +instance (signature ~ (Maybe (TreePath) -> Maybe (b) -> Bool -> Float -> Float -> m ()), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewScrollToCellMethodInfo a signature where + overloadedMethod _ = treeViewScrollToCell + +-- method TreeView::scroll_to_point +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_scroll_to_point" gtk_tree_view_scroll_to_point :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- tree_x : TBasicType TInt32 + Int32 -> -- tree_y : TBasicType TInt32 + IO () + + +treeViewScrollToPoint :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- treeX + -> Int32 -- treeY + -> m () -- result +treeViewScrollToPoint _obj treeX treeY = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_tree_view_scroll_to_point _obj' treeX treeY + touchManagedPtr _obj + return () + +data TreeViewScrollToPointMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewScrollToPointMethodInfo a signature where + overloadedMethod _ = treeViewScrollToPoint + +-- method TreeView::set_activate_on_single_click +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_activate_on_single_click" gtk_tree_view_set_activate_on_single_click :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CInt -> -- single : TBasicType TBoolean + IO () + + +treeViewSetActivateOnSingleClick :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Bool -- single + -> m () -- result +treeViewSetActivateOnSingleClick _obj single = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let single' = (fromIntegral . fromEnum) single + gtk_tree_view_set_activate_on_single_click _obj' single' + touchManagedPtr _obj + return () + +data TreeViewSetActivateOnSingleClickMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetActivateOnSingleClickMethodInfo a signature where + overloadedMethod _ = treeViewSetActivateOnSingleClick + +-- method TreeView::set_column_drag_function +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewColumnDropFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_column_drag_function" gtk_tree_view_set_column_drag_function :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + FunPtr TreeViewColumnDropFuncC -> -- func : TInterface "Gtk" "TreeViewColumnDropFunc" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + IO () + + +treeViewSetColumnDragFunction :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Maybe (TreeViewColumnDropFunc) -- func + -> m () -- result +treeViewSetColumnDragFunction _obj func = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeFunc <- case func of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jFunc -> do + jFunc' <- mkTreeViewColumnDropFunc (treeViewColumnDropFuncWrapper Nothing jFunc) + return jFunc' + let userData = castFunPtrToPtr maybeFunc + let destroy = safeFreeFunPtrPtr + gtk_tree_view_set_column_drag_function _obj' maybeFunc userData destroy + touchManagedPtr _obj + return () + +data TreeViewSetColumnDragFunctionMethodInfo +instance (signature ~ (Maybe (TreeViewColumnDropFunc) -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetColumnDragFunctionMethodInfo a signature where + overloadedMethod _ = treeViewSetColumnDragFunction + +-- method TreeView::set_cursor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_cursor" gtk_tree_view_set_cursor :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + Ptr TreeViewColumn -> -- focus_column : TInterface "Gtk" "TreeViewColumn" + CInt -> -- start_editing : TBasicType TBoolean + IO () + + +treeViewSetCursor :: + (MonadIO m, TreeViewK a, TreeViewColumnK b) => + a -- _obj + -> TreePath -- path + -> Maybe (b) -- focusColumn + -> Bool -- startEditing + -> m () -- result +treeViewSetCursor _obj path focusColumn startEditing = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + maybeFocusColumn <- case focusColumn of + Nothing -> return nullPtr + Just jFocusColumn -> do + let jFocusColumn' = unsafeManagedPtrCastPtr jFocusColumn + return jFocusColumn' + let startEditing' = (fromIntegral . fromEnum) startEditing + gtk_tree_view_set_cursor _obj' path' maybeFocusColumn startEditing' + touchManagedPtr _obj + touchManagedPtr path + whenJust focusColumn touchManagedPtr + return () + +data TreeViewSetCursorMethodInfo +instance (signature ~ (TreePath -> Maybe (b) -> Bool -> m ()), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewSetCursorMethodInfo a signature where + overloadedMethod _ = treeViewSetCursor + +-- method TreeView::set_cursor_on_cell +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_cursor_on_cell" gtk_tree_view_set_cursor_on_cell :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + Ptr TreeViewColumn -> -- focus_column : TInterface "Gtk" "TreeViewColumn" + Ptr CellRenderer -> -- focus_cell : TInterface "Gtk" "CellRenderer" + CInt -> -- start_editing : TBasicType TBoolean + IO () + + +treeViewSetCursorOnCell :: + (MonadIO m, TreeViewK a, TreeViewColumnK b, CellRendererK c) => + a -- _obj + -> TreePath -- path + -> Maybe (b) -- focusColumn + -> Maybe (c) -- focusCell + -> Bool -- startEditing + -> m () -- result +treeViewSetCursorOnCell _obj path focusColumn focusCell startEditing = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let path' = unsafeManagedPtrGetPtr path + maybeFocusColumn <- case focusColumn of + Nothing -> return nullPtr + Just jFocusColumn -> do + let jFocusColumn' = unsafeManagedPtrCastPtr jFocusColumn + return jFocusColumn' + maybeFocusCell <- case focusCell of + Nothing -> return nullPtr + Just jFocusCell -> do + let jFocusCell' = unsafeManagedPtrCastPtr jFocusCell + return jFocusCell' + let startEditing' = (fromIntegral . fromEnum) startEditing + gtk_tree_view_set_cursor_on_cell _obj' path' maybeFocusColumn maybeFocusCell startEditing' + touchManagedPtr _obj + touchManagedPtr path + whenJust focusColumn touchManagedPtr + whenJust focusCell touchManagedPtr + return () + +data TreeViewSetCursorOnCellMethodInfo +instance (signature ~ (TreePath -> Maybe (b) -> Maybe (c) -> Bool -> m ()), MonadIO m, TreeViewK a, TreeViewColumnK b, CellRendererK c) => MethodInfo TreeViewSetCursorOnCellMethodInfo a signature where + overloadedMethod _ = treeViewSetCursorOnCell + +-- method TreeView::set_destroy_count_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeDestroyCountFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_destroy_count_func" gtk_tree_view_set_destroy_count_func :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + FunPtr TreeDestroyCountFuncC -> -- func : TInterface "Gtk" "TreeDestroyCountFunc" + Ptr () -> -- data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + IO () + +{-# DEPRECATED treeViewSetDestroyCountFunc ["(Since version 3.4)","Accessibility does not need the function anymore."]#-} +treeViewSetDestroyCountFunc :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Maybe (TreeDestroyCountFunc) -- func + -> m () -- result +treeViewSetDestroyCountFunc _obj func = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeFunc <- case func of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jFunc -> do + jFunc' <- mkTreeDestroyCountFunc (treeDestroyCountFuncWrapper Nothing jFunc) + return jFunc' + let data_ = castFunPtrToPtr maybeFunc + let destroy = safeFreeFunPtrPtr + gtk_tree_view_set_destroy_count_func _obj' maybeFunc data_ destroy + touchManagedPtr _obj + return () + +data TreeViewSetDestroyCountFuncMethodInfo +instance (signature ~ (Maybe (TreeDestroyCountFunc) -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetDestroyCountFuncMethodInfo a signature where + overloadedMethod _ = treeViewSetDestroyCountFunc + +-- method TreeView::set_drag_dest_row +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_drag_dest_row" gtk_tree_view_set_drag_dest_row :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition" + IO () + + +treeViewSetDragDestRow :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Maybe (TreePath) -- path + -> TreeViewDropPosition -- pos + -> m () -- result +treeViewSetDragDestRow _obj path pos = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybePath <- case path of + Nothing -> return nullPtr + Just jPath -> do + let jPath' = unsafeManagedPtrGetPtr jPath + return jPath' + let pos' = (fromIntegral . fromEnum) pos + gtk_tree_view_set_drag_dest_row _obj' maybePath pos' + touchManagedPtr _obj + whenJust path touchManagedPtr + return () + +data TreeViewSetDragDestRowMethodInfo +instance (signature ~ (Maybe (TreePath) -> TreeViewDropPosition -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetDragDestRowMethodInfo a signature where + overloadedMethod _ = treeViewSetDragDestRow + +-- method TreeView::set_enable_search +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enable_search", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_enable_search" gtk_tree_view_set_enable_search :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CInt -> -- enable_search : TBasicType TBoolean + IO () + + +treeViewSetEnableSearch :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Bool -- enableSearch + -> m () -- result +treeViewSetEnableSearch _obj enableSearch = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enableSearch' = (fromIntegral . fromEnum) enableSearch + gtk_tree_view_set_enable_search _obj' enableSearch' + touchManagedPtr _obj + return () + +data TreeViewSetEnableSearchMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetEnableSearchMethodInfo a signature where + overloadedMethod _ = treeViewSetEnableSearch + +-- method TreeView::set_enable_tree_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_enable_tree_lines" gtk_tree_view_set_enable_tree_lines :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +treeViewSetEnableTreeLines :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +treeViewSetEnableTreeLines _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + gtk_tree_view_set_enable_tree_lines _obj' enabled' + touchManagedPtr _obj + return () + +data TreeViewSetEnableTreeLinesMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetEnableTreeLinesMethodInfo a signature where + overloadedMethod _ = treeViewSetEnableTreeLines + +-- method TreeView::set_expander_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_expander_column" gtk_tree_view_set_expander_column :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" + IO () + + +treeViewSetExpanderColumn :: + (MonadIO m, TreeViewK a, TreeViewColumnK b) => + a -- _obj + -> b -- column + -> m () -- result +treeViewSetExpanderColumn _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let column' = unsafeManagedPtrCastPtr column + gtk_tree_view_set_expander_column _obj' column' + touchManagedPtr _obj + touchManagedPtr column + return () + +data TreeViewSetExpanderColumnMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, TreeViewK a, TreeViewColumnK b) => MethodInfo TreeViewSetExpanderColumnMethodInfo a signature where + overloadedMethod _ = treeViewSetExpanderColumn + +-- method TreeView::set_fixed_height_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_fixed_height_mode" gtk_tree_view_set_fixed_height_mode :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CInt -> -- enable : TBasicType TBoolean + IO () + + +treeViewSetFixedHeightMode :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Bool -- enable + -> m () -- result +treeViewSetFixedHeightMode _obj enable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enable' = (fromIntegral . fromEnum) enable + gtk_tree_view_set_fixed_height_mode _obj' enable' + touchManagedPtr _obj + return () + +data TreeViewSetFixedHeightModeMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetFixedHeightModeMethodInfo a signature where + overloadedMethod _ = treeViewSetFixedHeightMode + +-- method TreeView::set_grid_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "grid_lines", argType = TInterface "Gtk" "TreeViewGridLines", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_grid_lines" gtk_tree_view_set_grid_lines :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CUInt -> -- grid_lines : TInterface "Gtk" "TreeViewGridLines" + IO () + + +treeViewSetGridLines :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> TreeViewGridLines -- gridLines + -> m () -- result +treeViewSetGridLines _obj gridLines = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let gridLines' = (fromIntegral . fromEnum) gridLines + gtk_tree_view_set_grid_lines _obj' gridLines' + touchManagedPtr _obj + return () + +data TreeViewSetGridLinesMethodInfo +instance (signature ~ (TreeViewGridLines -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetGridLinesMethodInfo a signature where + overloadedMethod _ = treeViewSetGridLines + +-- method TreeView::set_hadjustment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_hadjustment" gtk_tree_view_set_hadjustment :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" + IO () + +{-# DEPRECATED treeViewSetHadjustment ["(Since version 3.0)","Use gtk_scrollable_set_hadjustment()"]#-} +treeViewSetHadjustment :: + (MonadIO m, TreeViewK a, AdjustmentK b) => + a -- _obj + -> Maybe (b) -- adjustment + -> m () -- result +treeViewSetHadjustment _obj adjustment = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeAdjustment <- case adjustment of + Nothing -> return nullPtr + Just jAdjustment -> do + let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment + return jAdjustment' + gtk_tree_view_set_hadjustment _obj' maybeAdjustment + touchManagedPtr _obj + whenJust adjustment touchManagedPtr + return () + +data TreeViewSetHadjustmentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TreeViewK a, AdjustmentK b) => MethodInfo TreeViewSetHadjustmentMethodInfo a signature where + overloadedMethod _ = treeViewSetHadjustment + +-- method TreeView::set_headers_clickable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_headers_clickable" gtk_tree_view_set_headers_clickable :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CInt -> -- setting : TBasicType TBoolean + IO () + + +treeViewSetHeadersClickable :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +treeViewSetHeadersClickable _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_tree_view_set_headers_clickable _obj' setting' + touchManagedPtr _obj + return () + +data TreeViewSetHeadersClickableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetHeadersClickableMethodInfo a signature where + overloadedMethod _ = treeViewSetHeadersClickable + +-- method TreeView::set_headers_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_headers_visible" gtk_tree_view_set_headers_visible :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CInt -> -- headers_visible : TBasicType TBoolean + IO () + + +treeViewSetHeadersVisible :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Bool -- headersVisible + -> m () -- result +treeViewSetHeadersVisible _obj headersVisible = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let headersVisible' = (fromIntegral . fromEnum) headersVisible + gtk_tree_view_set_headers_visible _obj' headersVisible' + touchManagedPtr _obj + return () + +data TreeViewSetHeadersVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetHeadersVisibleMethodInfo a signature where + overloadedMethod _ = treeViewSetHeadersVisible + +-- method TreeView::set_hover_expand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_hover_expand" gtk_tree_view_set_hover_expand :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CInt -> -- expand : TBasicType TBoolean + IO () + + +treeViewSetHoverExpand :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Bool -- expand + -> m () -- result +treeViewSetHoverExpand _obj expand = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let expand' = (fromIntegral . fromEnum) expand + gtk_tree_view_set_hover_expand _obj' expand' + touchManagedPtr _obj + return () + +data TreeViewSetHoverExpandMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetHoverExpandMethodInfo a signature where + overloadedMethod _ = treeViewSetHoverExpand + +-- method TreeView::set_hover_selection +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_hover_selection" gtk_tree_view_set_hover_selection :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CInt -> -- hover : TBasicType TBoolean + IO () + + +treeViewSetHoverSelection :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Bool -- hover + -> m () -- result +treeViewSetHoverSelection _obj hover = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let hover' = (fromIntegral . fromEnum) hover + gtk_tree_view_set_hover_selection _obj' hover' + touchManagedPtr _obj + return () + +data TreeViewSetHoverSelectionMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetHoverSelectionMethodInfo a signature where + overloadedMethod _ = treeViewSetHoverSelection + +-- method TreeView::set_level_indentation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indentation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_level_indentation" gtk_tree_view_set_level_indentation :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- indentation : TBasicType TInt32 + IO () + + +treeViewSetLevelIndentation :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- indentation + -> m () -- result +treeViewSetLevelIndentation _obj indentation = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_tree_view_set_level_indentation _obj' indentation + touchManagedPtr _obj + return () + +data TreeViewSetLevelIndentationMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetLevelIndentationMethodInfo a signature where + overloadedMethod _ = treeViewSetLevelIndentation + +-- method TreeView::set_model +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_model" gtk_tree_view_set_model :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr TreeModel -> -- model : TInterface "Gtk" "TreeModel" + IO () + + +treeViewSetModel :: + (MonadIO m, TreeViewK a, TreeModelK b) => + a -- _obj + -> Maybe (b) -- model + -> m () -- result +treeViewSetModel _obj model = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeModel <- case model of + Nothing -> return nullPtr + Just jModel -> do + let jModel' = unsafeManagedPtrCastPtr jModel + return jModel' + gtk_tree_view_set_model _obj' maybeModel + touchManagedPtr _obj + whenJust model touchManagedPtr + return () + +data TreeViewSetModelMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TreeViewK a, TreeModelK b) => MethodInfo TreeViewSetModelMethodInfo a signature where + overloadedMethod _ = treeViewSetModel + +-- method TreeView::set_reorderable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_reorderable" gtk_tree_view_set_reorderable :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CInt -> -- reorderable : TBasicType TBoolean + IO () + + +treeViewSetReorderable :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Bool -- reorderable + -> m () -- result +treeViewSetReorderable _obj reorderable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let reorderable' = (fromIntegral . fromEnum) reorderable + gtk_tree_view_set_reorderable _obj' reorderable' + touchManagedPtr _obj + return () + +data TreeViewSetReorderableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetReorderableMethodInfo a signature where + overloadedMethod _ = treeViewSetReorderable + +-- method TreeView::set_row_separator_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_row_separator_func" gtk_tree_view_set_row_separator_func :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + FunPtr TreeViewRowSeparatorFuncC -> -- func : TInterface "Gtk" "TreeViewRowSeparatorFunc" + Ptr () -> -- data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + IO () + + +treeViewSetRowSeparatorFunc :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Maybe (TreeViewRowSeparatorFunc) -- func + -> m () -- result +treeViewSetRowSeparatorFunc _obj func = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeFunc <- case func of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jFunc -> do + jFunc' <- mkTreeViewRowSeparatorFunc (treeViewRowSeparatorFuncWrapper Nothing jFunc) + return jFunc' + let data_ = castFunPtrToPtr maybeFunc + let destroy = safeFreeFunPtrPtr + gtk_tree_view_set_row_separator_func _obj' maybeFunc data_ destroy + touchManagedPtr _obj + return () + +data TreeViewSetRowSeparatorFuncMethodInfo +instance (signature ~ (Maybe (TreeViewRowSeparatorFunc) -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetRowSeparatorFuncMethodInfo a signature where + overloadedMethod _ = treeViewSetRowSeparatorFunc + +-- method TreeView::set_rubber_banding +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_rubber_banding" gtk_tree_view_set_rubber_banding :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CInt -> -- enable : TBasicType TBoolean + IO () + + +treeViewSetRubberBanding :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Bool -- enable + -> m () -- result +treeViewSetRubberBanding _obj enable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enable' = (fromIntegral . fromEnum) enable + gtk_tree_view_set_rubber_banding _obj' enable' + touchManagedPtr _obj + return () + +data TreeViewSetRubberBandingMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetRubberBandingMethodInfo a signature where + overloadedMethod _ = treeViewSetRubberBanding + +-- method TreeView::set_rules_hint +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_rules_hint" gtk_tree_view_set_rules_hint :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CInt -> -- setting : TBasicType TBoolean + IO () + +{-# DEPRECATED treeViewSetRulesHint ["(Since version 3.14)"]#-} +treeViewSetRulesHint :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +treeViewSetRulesHint _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_tree_view_set_rules_hint _obj' setting' + touchManagedPtr _obj + return () + +data TreeViewSetRulesHintMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetRulesHintMethodInfo a signature where + overloadedMethod _ = treeViewSetRulesHint + +-- method TreeView::set_search_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_search_column" gtk_tree_view_set_search_column :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- column : TBasicType TInt32 + IO () + + +treeViewSetSearchColumn :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- column + -> m () -- result +treeViewSetSearchColumn _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_tree_view_set_search_column _obj' column + touchManagedPtr _obj + return () + +data TreeViewSetSearchColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetSearchColumnMethodInfo a signature where + overloadedMethod _ = treeViewSetSearchColumn + +-- method TreeView::set_search_entry +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_search_entry" gtk_tree_view_set_search_entry :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr Entry -> -- entry : TInterface "Gtk" "Entry" + IO () + + +treeViewSetSearchEntry :: + (MonadIO m, TreeViewK a, EntryK b) => + a -- _obj + -> Maybe (b) -- entry + -> m () -- result +treeViewSetSearchEntry _obj entry = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeEntry <- case entry of + Nothing -> return nullPtr + Just jEntry -> do + let jEntry' = unsafeManagedPtrCastPtr jEntry + return jEntry' + gtk_tree_view_set_search_entry _obj' maybeEntry + touchManagedPtr _obj + whenJust entry touchManagedPtr + return () + +data TreeViewSetSearchEntryMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TreeViewK a, EntryK b) => MethodInfo TreeViewSetSearchEntryMethodInfo a signature where + overloadedMethod _ = treeViewSetSearchEntry + +-- method TreeView::set_search_equal_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_equal_func", argType = TInterface "Gtk" "TreeViewSearchEqualFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_search_equal_func" gtk_tree_view_set_search_equal_func :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + FunPtr TreeViewSearchEqualFuncC -> -- search_equal_func : TInterface "Gtk" "TreeViewSearchEqualFunc" + Ptr () -> -- search_user_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- search_destroy : TInterface "GLib" "DestroyNotify" + IO () + + +treeViewSetSearchEqualFunc :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> TreeViewSearchEqualFunc -- searchEqualFunc + -> m () -- result +treeViewSetSearchEqualFunc _obj searchEqualFunc = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + searchEqualFunc' <- mkTreeViewSearchEqualFunc (treeViewSearchEqualFuncWrapper Nothing searchEqualFunc) + let searchUserData = castFunPtrToPtr searchEqualFunc' + let searchDestroy = safeFreeFunPtrPtr + gtk_tree_view_set_search_equal_func _obj' searchEqualFunc' searchUserData searchDestroy + touchManagedPtr _obj + return () + +data TreeViewSetSearchEqualFuncMethodInfo +instance (signature ~ (TreeViewSearchEqualFunc -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetSearchEqualFuncMethodInfo a signature where + overloadedMethod _ = treeViewSetSearchEqualFunc + +-- method TreeView::set_search_position_func +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewSearchPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_search_position_func" gtk_tree_view_set_search_position_func :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + FunPtr TreeViewSearchPositionFuncC -> -- func : TInterface "Gtk" "TreeViewSearchPositionFunc" + Ptr () -> -- data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + IO () + + +treeViewSetSearchPositionFunc :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Maybe (TreeViewSearchPositionFunc) -- func + -> m () -- result +treeViewSetSearchPositionFunc _obj func = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeFunc <- case func of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jFunc -> do + jFunc' <- mkTreeViewSearchPositionFunc (treeViewSearchPositionFuncWrapper Nothing jFunc) + return jFunc' + let data_ = castFunPtrToPtr maybeFunc + let destroy = safeFreeFunPtrPtr + gtk_tree_view_set_search_position_func _obj' maybeFunc data_ destroy + touchManagedPtr _obj + return () + +data TreeViewSetSearchPositionFuncMethodInfo +instance (signature ~ (Maybe (TreeViewSearchPositionFunc) -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetSearchPositionFuncMethodInfo a signature where + overloadedMethod _ = treeViewSetSearchPositionFunc + +-- method TreeView::set_show_expanders +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_show_expanders" gtk_tree_view_set_show_expanders :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +treeViewSetShowExpanders :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Bool -- enabled + -> m () -- result +treeViewSetShowExpanders _obj enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let enabled' = (fromIntegral . fromEnum) enabled + gtk_tree_view_set_show_expanders _obj' enabled' + touchManagedPtr _obj + return () + +data TreeViewSetShowExpandersMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetShowExpandersMethodInfo a signature where + overloadedMethod _ = treeViewSetShowExpanders + +-- method TreeView::set_tooltip_cell +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_tooltip_cell" gtk_tree_view_set_tooltip_cell :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" + Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" + IO () + + +treeViewSetTooltipCell :: + (MonadIO m, TreeViewK a, TooltipK b, TreeViewColumnK c, CellRendererK d) => + a -- _obj + -> b -- tooltip + -> Maybe (TreePath) -- path + -> Maybe (c) -- column + -> Maybe (d) -- cell + -> m () -- result +treeViewSetTooltipCell _obj tooltip path column cell = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let tooltip' = unsafeManagedPtrCastPtr tooltip + maybePath <- case path of + Nothing -> return nullPtr + Just jPath -> do + let jPath' = unsafeManagedPtrGetPtr jPath + return jPath' + maybeColumn <- case column of + Nothing -> return nullPtr + Just jColumn -> do + let jColumn' = unsafeManagedPtrCastPtr jColumn + return jColumn' + maybeCell <- case cell of + Nothing -> return nullPtr + Just jCell -> do + let jCell' = unsafeManagedPtrCastPtr jCell + return jCell' + gtk_tree_view_set_tooltip_cell _obj' tooltip' maybePath maybeColumn maybeCell + touchManagedPtr _obj + touchManagedPtr tooltip + whenJust path touchManagedPtr + whenJust column touchManagedPtr + whenJust cell touchManagedPtr + return () + +data TreeViewSetTooltipCellMethodInfo +instance (signature ~ (b -> Maybe (TreePath) -> Maybe (c) -> Maybe (d) -> m ()), MonadIO m, TreeViewK a, TooltipK b, TreeViewColumnK c, CellRendererK d) => MethodInfo TreeViewSetTooltipCellMethodInfo a signature where + overloadedMethod _ = treeViewSetTooltipCell + +-- method TreeView::set_tooltip_column +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_tooltip_column" gtk_tree_view_set_tooltip_column :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Int32 -> -- column : TBasicType TInt32 + IO () + + +treeViewSetTooltipColumn :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> Int32 -- column + -> m () -- result +treeViewSetTooltipColumn _obj column = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_tree_view_set_tooltip_column _obj' column + touchManagedPtr _obj + return () + +data TreeViewSetTooltipColumnMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewSetTooltipColumnMethodInfo a signature where + overloadedMethod _ = treeViewSetTooltipColumn + +-- method TreeView::set_tooltip_row +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_tooltip_row" gtk_tree_view_set_tooltip_row :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr Tooltip -> -- tooltip : TInterface "Gtk" "Tooltip" + Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" + IO () + + +treeViewSetTooltipRow :: + (MonadIO m, TreeViewK a, TooltipK b) => + a -- _obj + -> b -- tooltip + -> TreePath -- path + -> m () -- result +treeViewSetTooltipRow _obj tooltip path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let tooltip' = unsafeManagedPtrCastPtr tooltip + let path' = unsafeManagedPtrGetPtr path + gtk_tree_view_set_tooltip_row _obj' tooltip' path' + touchManagedPtr _obj + touchManagedPtr tooltip + touchManagedPtr path + return () + +data TreeViewSetTooltipRowMethodInfo +instance (signature ~ (b -> TreePath -> m ()), MonadIO m, TreeViewK a, TooltipK b) => MethodInfo TreeViewSetTooltipRowMethodInfo a signature where + overloadedMethod _ = treeViewSetTooltipRow + +-- method TreeView::set_vadjustment +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_set_vadjustment" gtk_tree_view_set_vadjustment :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" + IO () + +{-# DEPRECATED treeViewSetVadjustment ["(Since version 3.0)","Use gtk_scrollable_set_vadjustment()"]#-} +treeViewSetVadjustment :: + (MonadIO m, TreeViewK a, AdjustmentK b) => + a -- _obj + -> Maybe (b) -- adjustment + -> m () -- result +treeViewSetVadjustment _obj adjustment = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeAdjustment <- case adjustment of + Nothing -> return nullPtr + Just jAdjustment -> do + let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment + return jAdjustment' + gtk_tree_view_set_vadjustment _obj' maybeAdjustment + touchManagedPtr _obj + whenJust adjustment touchManagedPtr + return () + +data TreeViewSetVadjustmentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TreeViewK a, AdjustmentK b) => MethodInfo TreeViewSetVadjustmentMethodInfo a signature where + overloadedMethod _ = treeViewSetVadjustment + +-- method TreeView::unset_rows_drag_dest +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_unset_rows_drag_dest" gtk_tree_view_unset_rows_drag_dest :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO () + + +treeViewUnsetRowsDragDest :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m () -- result +treeViewUnsetRowsDragDest _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_tree_view_unset_rows_drag_dest _obj' + touchManagedPtr _obj + return () + +data TreeViewUnsetRowsDragDestMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewUnsetRowsDragDestMethodInfo a signature where + overloadedMethod _ = treeViewUnsetRowsDragDest + +-- method TreeView::unset_rows_drag_source +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_tree_view_unset_rows_drag_source" gtk_tree_view_unset_rows_drag_source :: + Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" + IO () + + +treeViewUnsetRowsDragSource :: + (MonadIO m, TreeViewK a) => + a -- _obj + -> m () -- result +treeViewUnsetRowsDragSource _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_tree_view_unset_rows_drag_source _obj' + touchManagedPtr _obj + return () + +data TreeViewUnsetRowsDragSourceMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeViewK a) => MethodInfo TreeViewUnsetRowsDragSourceMethodInfo a signature where + overloadedMethod _ = treeViewUnsetRowsDragSource diff --git a/GI/Gtk/Objects/TreeView.hs-boot b/GI/Gtk/Objects/TreeView.hs-boot --- a/GI/Gtk/Objects/TreeView.hs-boot +++ b/GI/Gtk/Objects/TreeView.hs-boot @@ -44,3 +44,98 @@ data TreeViewTestExpandRowSignalInfo data TreeViewToggleCursorRowSignalInfo data TreeViewUnselectAllSignalInfo +data TreeViewAppendColumnMethodInfo +data TreeViewCollapseAllMethodInfo +data TreeViewCollapseRowMethodInfo +data TreeViewColumnsAutosizeMethodInfo +data TreeViewConvertBinWindowToTreeCoordsMethodInfo +data TreeViewConvertBinWindowToWidgetCoordsMethodInfo +data TreeViewConvertTreeToBinWindowCoordsMethodInfo +data TreeViewConvertTreeToWidgetCoordsMethodInfo +data TreeViewConvertWidgetToBinWindowCoordsMethodInfo +data TreeViewConvertWidgetToTreeCoordsMethodInfo +data TreeViewCreateRowDragIconMethodInfo +data TreeViewEnableModelDragDestMethodInfo +data TreeViewEnableModelDragSourceMethodInfo +data TreeViewExpandAllMethodInfo +data TreeViewExpandRowMethodInfo +data TreeViewExpandToPathMethodInfo +data TreeViewGetActivateOnSingleClickMethodInfo +data TreeViewGetBackgroundAreaMethodInfo +data TreeViewGetBinWindowMethodInfo +data TreeViewGetCellAreaMethodInfo +data TreeViewGetColumnMethodInfo +data TreeViewGetColumnsMethodInfo +data TreeViewGetCursorMethodInfo +data TreeViewGetDestRowAtPosMethodInfo +data TreeViewGetDragDestRowMethodInfo +data TreeViewGetEnableSearchMethodInfo +data TreeViewGetEnableTreeLinesMethodInfo +data TreeViewGetExpanderColumnMethodInfo +data TreeViewGetFixedHeightModeMethodInfo +data TreeViewGetGridLinesMethodInfo +data TreeViewGetHadjustmentMethodInfo +data TreeViewGetHeadersClickableMethodInfo +data TreeViewGetHeadersVisibleMethodInfo +data TreeViewGetHoverExpandMethodInfo +data TreeViewGetHoverSelectionMethodInfo +data TreeViewGetLevelIndentationMethodInfo +data TreeViewGetModelMethodInfo +data TreeViewGetNColumnsMethodInfo +data TreeViewGetPathAtPosMethodInfo +data TreeViewGetReorderableMethodInfo +data TreeViewGetRubberBandingMethodInfo +data TreeViewGetRulesHintMethodInfo +data TreeViewGetSearchColumnMethodInfo +data TreeViewGetSearchEntryMethodInfo +data TreeViewGetSelectionMethodInfo +data TreeViewGetShowExpandersMethodInfo +data TreeViewGetTooltipColumnMethodInfo +data TreeViewGetTooltipContextMethodInfo +data TreeViewGetVadjustmentMethodInfo +data TreeViewGetVisibleRangeMethodInfo +data TreeViewGetVisibleRectMethodInfo +data TreeViewInsertColumnMethodInfo +data TreeViewInsertColumnWithDataFuncMethodInfo +data TreeViewIsBlankAtPosMethodInfo +data TreeViewIsRubberBandingActiveMethodInfo +data TreeViewMapExpandedRowsMethodInfo +data TreeViewMoveColumnAfterMethodInfo +data TreeViewRemoveColumnMethodInfo +data TreeViewRowActivatedMethodInfo +data TreeViewRowExpandedMethodInfo +data TreeViewScrollToCellMethodInfo +data TreeViewScrollToPointMethodInfo +data TreeViewSetActivateOnSingleClickMethodInfo +data TreeViewSetColumnDragFunctionMethodInfo +data TreeViewSetCursorMethodInfo +data TreeViewSetCursorOnCellMethodInfo +data TreeViewSetDestroyCountFuncMethodInfo +data TreeViewSetDragDestRowMethodInfo +data TreeViewSetEnableSearchMethodInfo +data TreeViewSetEnableTreeLinesMethodInfo +data TreeViewSetExpanderColumnMethodInfo +data TreeViewSetFixedHeightModeMethodInfo +data TreeViewSetGridLinesMethodInfo +data TreeViewSetHadjustmentMethodInfo +data TreeViewSetHeadersClickableMethodInfo +data TreeViewSetHeadersVisibleMethodInfo +data TreeViewSetHoverExpandMethodInfo +data TreeViewSetHoverSelectionMethodInfo +data TreeViewSetLevelIndentationMethodInfo +data TreeViewSetModelMethodInfo +data TreeViewSetReorderableMethodInfo +data TreeViewSetRowSeparatorFuncMethodInfo +data TreeViewSetRubberBandingMethodInfo +data TreeViewSetRulesHintMethodInfo +data TreeViewSetSearchColumnMethodInfo +data TreeViewSetSearchEntryMethodInfo +data TreeViewSetSearchEqualFuncMethodInfo +data TreeViewSetSearchPositionFuncMethodInfo +data TreeViewSetShowExpandersMethodInfo +data TreeViewSetTooltipCellMethodInfo +data TreeViewSetTooltipColumnMethodInfo +data TreeViewSetTooltipRowMethodInfo +data TreeViewSetVadjustmentMethodInfo +data TreeViewUnsetRowsDragDestMethodInfo +data TreeViewUnsetRowsDragSourceMethodInfo diff --git a/GI/Gtk/Objects/TreeViewAccessible.hs b/GI/Gtk/Objects/TreeViewAccessible.hs --- a/GI/Gtk/Objects/TreeViewAccessible.hs +++ b/GI/Gtk/Objects/TreeViewAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,121 @@ noTreeViewAccessible :: Maybe TreeViewAccessible noTreeViewAccessible = Nothing +type family ResolveTreeViewAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeViewAccessibleMethod "activate" o = CellAccessibleParentActivateMethodInfo + ResolveTreeViewAccessibleMethod "addColumnSelection" o = Atk.TableAddColumnSelectionMethodInfo + ResolveTreeViewAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveTreeViewAccessibleMethod "addRowSelection" o = Atk.TableAddRowSelectionMethodInfo + ResolveTreeViewAccessibleMethod "addSelection" o = Atk.SelectionAddSelectionMethodInfo + ResolveTreeViewAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTreeViewAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTreeViewAccessibleMethod "clearSelection" o = Atk.SelectionClearSelectionMethodInfo + ResolveTreeViewAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveTreeViewAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveTreeViewAccessibleMethod "edit" o = CellAccessibleParentEditMethodInfo + ResolveTreeViewAccessibleMethod "expandCollapse" o = CellAccessibleParentExpandCollapseMethodInfo + ResolveTreeViewAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTreeViewAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTreeViewAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveTreeViewAccessibleMethod "isChildSelected" o = Atk.SelectionIsChildSelectedMethodInfo + ResolveTreeViewAccessibleMethod "isColumnSelected" o = Atk.TableIsColumnSelectedMethodInfo + ResolveTreeViewAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTreeViewAccessibleMethod "isRowSelected" o = Atk.TableIsRowSelectedMethodInfo + ResolveTreeViewAccessibleMethod "isSelected" o = Atk.TableIsSelectedMethodInfo + ResolveTreeViewAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTreeViewAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTreeViewAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveTreeViewAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveTreeViewAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTreeViewAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveTreeViewAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveTreeViewAccessibleMethod "refAt" o = Atk.TableRefAtMethodInfo + ResolveTreeViewAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveTreeViewAccessibleMethod "refSelection" o = Atk.SelectionRefSelectionMethodInfo + ResolveTreeViewAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTreeViewAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveTreeViewAccessibleMethod "removeColumnSelection" o = Atk.TableRemoveColumnSelectionMethodInfo + ResolveTreeViewAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveTreeViewAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveTreeViewAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveTreeViewAccessibleMethod "removeRowSelection" o = Atk.TableRemoveRowSelectionMethodInfo + ResolveTreeViewAccessibleMethod "removeSelection" o = Atk.SelectionRemoveSelectionMethodInfo + ResolveTreeViewAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTreeViewAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTreeViewAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTreeViewAccessibleMethod "selectAllSelection" o = Atk.SelectionSelectAllSelectionMethodInfo + ResolveTreeViewAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTreeViewAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTreeViewAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTreeViewAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTreeViewAccessibleMethod "updateRelationset" o = CellAccessibleParentUpdateRelationsetMethodInfo + ResolveTreeViewAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTreeViewAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveTreeViewAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveTreeViewAccessibleMethod "getCaption" o = Atk.TableGetCaptionMethodInfo + ResolveTreeViewAccessibleMethod "getCellArea" o = CellAccessibleParentGetCellAreaMethodInfo + ResolveTreeViewAccessibleMethod "getCellExtents" o = CellAccessibleParentGetCellExtentsMethodInfo + ResolveTreeViewAccessibleMethod "getChildIndex" o = CellAccessibleParentGetChildIndexMethodInfo + ResolveTreeViewAccessibleMethod "getColumnAtIndex" o = Atk.TableGetColumnAtIndexMethodInfo + ResolveTreeViewAccessibleMethod "getColumnDescription" o = Atk.TableGetColumnDescriptionMethodInfo + ResolveTreeViewAccessibleMethod "getColumnExtentAt" o = Atk.TableGetColumnExtentAtMethodInfo + ResolveTreeViewAccessibleMethod "getColumnHeader" o = Atk.TableGetColumnHeaderMethodInfo + ResolveTreeViewAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTreeViewAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveTreeViewAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveTreeViewAccessibleMethod "getIndexAt" o = Atk.TableGetIndexAtMethodInfo + ResolveTreeViewAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveTreeViewAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveTreeViewAccessibleMethod "getNColumns" o = Atk.TableGetNColumnsMethodInfo + ResolveTreeViewAccessibleMethod "getNRows" o = Atk.TableGetNRowsMethodInfo + ResolveTreeViewAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveTreeViewAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveTreeViewAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveTreeViewAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveTreeViewAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTreeViewAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTreeViewAccessibleMethod "getRendererState" o = CellAccessibleParentGetRendererStateMethodInfo + ResolveTreeViewAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveTreeViewAccessibleMethod "getRowAtIndex" o = Atk.TableGetRowAtIndexMethodInfo + ResolveTreeViewAccessibleMethod "getRowDescription" o = Atk.TableGetRowDescriptionMethodInfo + ResolveTreeViewAccessibleMethod "getRowExtentAt" o = Atk.TableGetRowExtentAtMethodInfo + ResolveTreeViewAccessibleMethod "getRowHeader" o = Atk.TableGetRowHeaderMethodInfo + ResolveTreeViewAccessibleMethod "getSelectedColumns" o = Atk.TableGetSelectedColumnsMethodInfo + ResolveTreeViewAccessibleMethod "getSelectedRows" o = Atk.TableGetSelectedRowsMethodInfo + ResolveTreeViewAccessibleMethod "getSelectionCount" o = Atk.SelectionGetSelectionCountMethodInfo + ResolveTreeViewAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveTreeViewAccessibleMethod "getSummary" o = Atk.TableGetSummaryMethodInfo + ResolveTreeViewAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveTreeViewAccessibleMethod "setCaption" o = Atk.TableSetCaptionMethodInfo + ResolveTreeViewAccessibleMethod "setColumnDescription" o = Atk.TableSetColumnDescriptionMethodInfo + ResolveTreeViewAccessibleMethod "setColumnHeader" o = Atk.TableSetColumnHeaderMethodInfo + ResolveTreeViewAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTreeViewAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveTreeViewAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveTreeViewAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveTreeViewAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveTreeViewAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveTreeViewAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTreeViewAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveTreeViewAccessibleMethod "setRowDescription" o = Atk.TableSetRowDescriptionMethodInfo + ResolveTreeViewAccessibleMethod "setRowHeader" o = Atk.TableSetRowHeaderMethodInfo + ResolveTreeViewAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveTreeViewAccessibleMethod "setSummary" o = Atk.TableSetSummaryMethodInfo + ResolveTreeViewAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveTreeViewAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeViewAccessibleMethod t TreeViewAccessible, MethodInfo info TreeViewAccessible p) => IsLabelProxy t (TreeViewAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeViewAccessibleMethod t TreeViewAccessible, MethodInfo info TreeViewAccessible p) => IsLabel t (TreeViewAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList TreeViewAccessible = TreeViewAccessibleAttributeList -type TreeViewAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type TreeViewAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TreeViewAccessible = TreeViewAccessibleSignalList -type TreeViewAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("column-deleted", Atk.TableColumnDeletedSignalInfo), '("column-inserted", Atk.TableColumnInsertedSignalInfo), '("column-reordered", Atk.TableColumnReorderedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("model-changed", Atk.TableModelChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("row-deleted", Atk.TableRowDeletedSignalInfo), '("row-inserted", Atk.TableRowInsertedSignalInfo), '("row-reordered", Atk.TableRowReorderedSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TreeViewAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("columnDeleted", Atk.TableColumnDeletedSignalInfo), '("columnInserted", Atk.TableColumnInsertedSignalInfo), '("columnReordered", Atk.TableColumnReorderedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("modelChanged", Atk.TableModelChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("rowDeleted", Atk.TableRowDeletedSignalInfo), '("rowInserted", Atk.TableRowInsertedSignalInfo), '("rowReordered", Atk.TableRowReorderedSignalInfo), '("selectionChanged", Atk.SelectionSelectionChangedSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/TreeViewColumn.hs b/GI/Gtk/Objects/TreeViewColumn.hs --- a/GI/Gtk/Objects/TreeViewColumn.hs +++ b/GI/Gtk/Objects/TreeViewColumn.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,118 +18,147 @@ -- * Methods -- ** treeViewColumnAddAttribute + TreeViewColumnAddAttributeMethodInfo , treeViewColumnAddAttribute , -- ** treeViewColumnCellGetPosition + TreeViewColumnCellGetPositionMethodInfo , treeViewColumnCellGetPosition , -- ** treeViewColumnCellGetSize + TreeViewColumnCellGetSizeMethodInfo , treeViewColumnCellGetSize , -- ** treeViewColumnCellIsVisible + TreeViewColumnCellIsVisibleMethodInfo , treeViewColumnCellIsVisible , -- ** treeViewColumnCellSetCellData + TreeViewColumnCellSetCellDataMethodInfo , treeViewColumnCellSetCellData , -- ** treeViewColumnClear + TreeViewColumnClearMethodInfo , treeViewColumnClear , -- ** treeViewColumnClearAttributes + TreeViewColumnClearAttributesMethodInfo , treeViewColumnClearAttributes , -- ** treeViewColumnClicked + TreeViewColumnClickedMethodInfo , treeViewColumnClicked , -- ** treeViewColumnFocusCell + TreeViewColumnFocusCellMethodInfo , treeViewColumnFocusCell , -- ** treeViewColumnGetAlignment + TreeViewColumnGetAlignmentMethodInfo , treeViewColumnGetAlignment , -- ** treeViewColumnGetButton + TreeViewColumnGetButtonMethodInfo , treeViewColumnGetButton , -- ** treeViewColumnGetClickable + TreeViewColumnGetClickableMethodInfo , treeViewColumnGetClickable , -- ** treeViewColumnGetExpand + TreeViewColumnGetExpandMethodInfo , treeViewColumnGetExpand , -- ** treeViewColumnGetFixedWidth + TreeViewColumnGetFixedWidthMethodInfo , treeViewColumnGetFixedWidth , -- ** treeViewColumnGetMaxWidth + TreeViewColumnGetMaxWidthMethodInfo , treeViewColumnGetMaxWidth , -- ** treeViewColumnGetMinWidth + TreeViewColumnGetMinWidthMethodInfo , treeViewColumnGetMinWidth , -- ** treeViewColumnGetReorderable + TreeViewColumnGetReorderableMethodInfo , treeViewColumnGetReorderable , -- ** treeViewColumnGetResizable + TreeViewColumnGetResizableMethodInfo , treeViewColumnGetResizable , -- ** treeViewColumnGetSizing + TreeViewColumnGetSizingMethodInfo , treeViewColumnGetSizing , -- ** treeViewColumnGetSortColumnId + TreeViewColumnGetSortColumnIdMethodInfo , treeViewColumnGetSortColumnId , -- ** treeViewColumnGetSortIndicator + TreeViewColumnGetSortIndicatorMethodInfo, treeViewColumnGetSortIndicator , -- ** treeViewColumnGetSortOrder + TreeViewColumnGetSortOrderMethodInfo , treeViewColumnGetSortOrder , -- ** treeViewColumnGetSpacing + TreeViewColumnGetSpacingMethodInfo , treeViewColumnGetSpacing , -- ** treeViewColumnGetTitle + TreeViewColumnGetTitleMethodInfo , treeViewColumnGetTitle , -- ** treeViewColumnGetTreeView + TreeViewColumnGetTreeViewMethodInfo , treeViewColumnGetTreeView , -- ** treeViewColumnGetVisible + TreeViewColumnGetVisibleMethodInfo , treeViewColumnGetVisible , -- ** treeViewColumnGetWidget + TreeViewColumnGetWidgetMethodInfo , treeViewColumnGetWidget , -- ** treeViewColumnGetWidth + TreeViewColumnGetWidthMethodInfo , treeViewColumnGetWidth , -- ** treeViewColumnGetXOffset + TreeViewColumnGetXOffsetMethodInfo , treeViewColumnGetXOffset , @@ -141,82 +171,102 @@ -- ** treeViewColumnPackEnd + TreeViewColumnPackEndMethodInfo , treeViewColumnPackEnd , -- ** treeViewColumnPackStart + TreeViewColumnPackStartMethodInfo , treeViewColumnPackStart , -- ** treeViewColumnQueueResize + TreeViewColumnQueueResizeMethodInfo , treeViewColumnQueueResize , -- ** treeViewColumnSetAlignment + TreeViewColumnSetAlignmentMethodInfo , treeViewColumnSetAlignment , -- ** treeViewColumnSetCellDataFunc + TreeViewColumnSetCellDataFuncMethodInfo , treeViewColumnSetCellDataFunc , -- ** treeViewColumnSetClickable + TreeViewColumnSetClickableMethodInfo , treeViewColumnSetClickable , -- ** treeViewColumnSetExpand + TreeViewColumnSetExpandMethodInfo , treeViewColumnSetExpand , -- ** treeViewColumnSetFixedWidth + TreeViewColumnSetFixedWidthMethodInfo , treeViewColumnSetFixedWidth , -- ** treeViewColumnSetMaxWidth + TreeViewColumnSetMaxWidthMethodInfo , treeViewColumnSetMaxWidth , -- ** treeViewColumnSetMinWidth + TreeViewColumnSetMinWidthMethodInfo , treeViewColumnSetMinWidth , -- ** treeViewColumnSetReorderable + TreeViewColumnSetReorderableMethodInfo , treeViewColumnSetReorderable , -- ** treeViewColumnSetResizable + TreeViewColumnSetResizableMethodInfo , treeViewColumnSetResizable , -- ** treeViewColumnSetSizing + TreeViewColumnSetSizingMethodInfo , treeViewColumnSetSizing , -- ** treeViewColumnSetSortColumnId + TreeViewColumnSetSortColumnIdMethodInfo , treeViewColumnSetSortColumnId , -- ** treeViewColumnSetSortIndicator + TreeViewColumnSetSortIndicatorMethodInfo, treeViewColumnSetSortIndicator , -- ** treeViewColumnSetSortOrder + TreeViewColumnSetSortOrderMethodInfo , treeViewColumnSetSortOrder , -- ** treeViewColumnSetSpacing + TreeViewColumnSetSpacingMethodInfo , treeViewColumnSetSpacing , -- ** treeViewColumnSetTitle + TreeViewColumnSetTitleMethodInfo , treeViewColumnSetTitle , -- ** treeViewColumnSetVisible + TreeViewColumnSetVisibleMethodInfo , treeViewColumnSetVisible , -- ** treeViewColumnSetWidget + TreeViewColumnSetWidgetMethodInfo , treeViewColumnSetWidget , @@ -404,6 +454,95 @@ noTreeViewColumn :: Maybe TreeViewColumn noTreeViewColumn = Nothing +type family ResolveTreeViewColumnMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeViewColumnMethod "addChild" o = BuildableAddChildMethodInfo + ResolveTreeViewColumnMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveTreeViewColumnMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveTreeViewColumnMethod "cellGetPosition" o = TreeViewColumnCellGetPositionMethodInfo + ResolveTreeViewColumnMethod "cellGetSize" o = TreeViewColumnCellGetSizeMethodInfo + ResolveTreeViewColumnMethod "cellIsVisible" o = TreeViewColumnCellIsVisibleMethodInfo + ResolveTreeViewColumnMethod "cellSetCellData" o = TreeViewColumnCellSetCellDataMethodInfo + ResolveTreeViewColumnMethod "clicked" o = TreeViewColumnClickedMethodInfo + ResolveTreeViewColumnMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveTreeViewColumnMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveTreeViewColumnMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveTreeViewColumnMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveTreeViewColumnMethod "focusCell" o = TreeViewColumnFocusCellMethodInfo + ResolveTreeViewColumnMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveTreeViewColumnMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveTreeViewColumnMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveTreeViewColumnMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveTreeViewColumnMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveTreeViewColumnMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveTreeViewColumnMethod "queueResize" o = TreeViewColumnQueueResizeMethodInfo + ResolveTreeViewColumnMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveTreeViewColumnMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveTreeViewColumnMethod "reorder" o = CellLayoutReorderMethodInfo + ResolveTreeViewColumnMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveTreeViewColumnMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveTreeViewColumnMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveTreeViewColumnMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveTreeViewColumnMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveTreeViewColumnMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveTreeViewColumnMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveTreeViewColumnMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveTreeViewColumnMethod "getAlignment" o = TreeViewColumnGetAlignmentMethodInfo + ResolveTreeViewColumnMethod "getArea" o = CellLayoutGetAreaMethodInfo + ResolveTreeViewColumnMethod "getButton" o = TreeViewColumnGetButtonMethodInfo + ResolveTreeViewColumnMethod "getCells" o = CellLayoutGetCellsMethodInfo + ResolveTreeViewColumnMethod "getClickable" o = TreeViewColumnGetClickableMethodInfo + ResolveTreeViewColumnMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveTreeViewColumnMethod "getExpand" o = TreeViewColumnGetExpandMethodInfo + ResolveTreeViewColumnMethod "getFixedWidth" o = TreeViewColumnGetFixedWidthMethodInfo + ResolveTreeViewColumnMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveTreeViewColumnMethod "getMaxWidth" o = TreeViewColumnGetMaxWidthMethodInfo + ResolveTreeViewColumnMethod "getMinWidth" o = TreeViewColumnGetMinWidthMethodInfo + ResolveTreeViewColumnMethod "getName" o = BuildableGetNameMethodInfo + ResolveTreeViewColumnMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveTreeViewColumnMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveTreeViewColumnMethod "getReorderable" o = TreeViewColumnGetReorderableMethodInfo + ResolveTreeViewColumnMethod "getResizable" o = TreeViewColumnGetResizableMethodInfo + ResolveTreeViewColumnMethod "getSizing" o = TreeViewColumnGetSizingMethodInfo + ResolveTreeViewColumnMethod "getSortColumnId" o = TreeViewColumnGetSortColumnIdMethodInfo + ResolveTreeViewColumnMethod "getSortIndicator" o = TreeViewColumnGetSortIndicatorMethodInfo + ResolveTreeViewColumnMethod "getSortOrder" o = TreeViewColumnGetSortOrderMethodInfo + ResolveTreeViewColumnMethod "getSpacing" o = TreeViewColumnGetSpacingMethodInfo + ResolveTreeViewColumnMethod "getTitle" o = TreeViewColumnGetTitleMethodInfo + ResolveTreeViewColumnMethod "getTreeView" o = TreeViewColumnGetTreeViewMethodInfo + ResolveTreeViewColumnMethod "getVisible" o = TreeViewColumnGetVisibleMethodInfo + ResolveTreeViewColumnMethod "getWidget" o = TreeViewColumnGetWidgetMethodInfo + ResolveTreeViewColumnMethod "getWidth" o = TreeViewColumnGetWidthMethodInfo + ResolveTreeViewColumnMethod "getXOffset" o = TreeViewColumnGetXOffsetMethodInfo + ResolveTreeViewColumnMethod "setAlignment" o = TreeViewColumnSetAlignmentMethodInfo + ResolveTreeViewColumnMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveTreeViewColumnMethod "setClickable" o = TreeViewColumnSetClickableMethodInfo + ResolveTreeViewColumnMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveTreeViewColumnMethod "setExpand" o = TreeViewColumnSetExpandMethodInfo + ResolveTreeViewColumnMethod "setFixedWidth" o = TreeViewColumnSetFixedWidthMethodInfo + ResolveTreeViewColumnMethod "setMaxWidth" o = TreeViewColumnSetMaxWidthMethodInfo + ResolveTreeViewColumnMethod "setMinWidth" o = TreeViewColumnSetMinWidthMethodInfo + ResolveTreeViewColumnMethod "setName" o = BuildableSetNameMethodInfo + ResolveTreeViewColumnMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveTreeViewColumnMethod "setReorderable" o = TreeViewColumnSetReorderableMethodInfo + ResolveTreeViewColumnMethod "setResizable" o = TreeViewColumnSetResizableMethodInfo + ResolveTreeViewColumnMethod "setSizing" o = TreeViewColumnSetSizingMethodInfo + ResolveTreeViewColumnMethod "setSortColumnId" o = TreeViewColumnSetSortColumnIdMethodInfo + ResolveTreeViewColumnMethod "setSortIndicator" o = TreeViewColumnSetSortIndicatorMethodInfo + ResolveTreeViewColumnMethod "setSortOrder" o = TreeViewColumnSetSortOrderMethodInfo + ResolveTreeViewColumnMethod "setSpacing" o = TreeViewColumnSetSpacingMethodInfo + ResolveTreeViewColumnMethod "setTitle" o = TreeViewColumnSetTitleMethodInfo + ResolveTreeViewColumnMethod "setVisible" o = TreeViewColumnSetVisibleMethodInfo + ResolveTreeViewColumnMethod "setWidget" o = TreeViewColumnSetWidgetMethodInfo + ResolveTreeViewColumnMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeViewColumnMethod t TreeViewColumn, MethodInfo info TreeViewColumn p) => IsLabelProxy t (TreeViewColumn -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeViewColumnMethod t TreeViewColumn, MethodInfo info TreeViewColumn p) => IsLabel t (TreeViewColumn -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal TreeViewColumn::clicked type TreeViewColumnClickedCallback = IO () @@ -461,7 +600,7 @@ type AttrSetTypeConstraint TreeViewColumnAlignmentPropertyInfo = (~) Float type AttrBaseTypeConstraint TreeViewColumnAlignmentPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnAlignmentPropertyInfo = Float - type AttrLabel TreeViewColumnAlignmentPropertyInfo = "TreeViewColumn::alignment" + type AttrLabel TreeViewColumnAlignmentPropertyInfo = "alignment" attrGet _ = getTreeViewColumnAlignment attrSet _ = setTreeViewColumnAlignment attrConstruct _ = constructTreeViewColumnAlignment @@ -482,7 +621,7 @@ type AttrSetTypeConstraint TreeViewColumnCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint TreeViewColumnCellAreaPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnCellAreaPropertyInfo = CellArea - type AttrLabel TreeViewColumnCellAreaPropertyInfo = "TreeViewColumn::cell-area" + type AttrLabel TreeViewColumnCellAreaPropertyInfo = "cell-area" attrGet _ = getTreeViewColumnCellArea attrSet _ = undefined attrConstruct _ = constructTreeViewColumnCellArea @@ -506,7 +645,7 @@ type AttrSetTypeConstraint TreeViewColumnClickablePropertyInfo = (~) Bool type AttrBaseTypeConstraint TreeViewColumnClickablePropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnClickablePropertyInfo = Bool - type AttrLabel TreeViewColumnClickablePropertyInfo = "TreeViewColumn::clickable" + type AttrLabel TreeViewColumnClickablePropertyInfo = "clickable" attrGet _ = getTreeViewColumnClickable attrSet _ = setTreeViewColumnClickable attrConstruct _ = constructTreeViewColumnClickable @@ -530,7 +669,7 @@ type AttrSetTypeConstraint TreeViewColumnExpandPropertyInfo = (~) Bool type AttrBaseTypeConstraint TreeViewColumnExpandPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnExpandPropertyInfo = Bool - type AttrLabel TreeViewColumnExpandPropertyInfo = "TreeViewColumn::expand" + type AttrLabel TreeViewColumnExpandPropertyInfo = "expand" attrGet _ = getTreeViewColumnExpand attrSet _ = setTreeViewColumnExpand attrConstruct _ = constructTreeViewColumnExpand @@ -554,7 +693,7 @@ type AttrSetTypeConstraint TreeViewColumnFixedWidthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TreeViewColumnFixedWidthPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnFixedWidthPropertyInfo = Int32 - type AttrLabel TreeViewColumnFixedWidthPropertyInfo = "TreeViewColumn::fixed-width" + type AttrLabel TreeViewColumnFixedWidthPropertyInfo = "fixed-width" attrGet _ = getTreeViewColumnFixedWidth attrSet _ = setTreeViewColumnFixedWidth attrConstruct _ = constructTreeViewColumnFixedWidth @@ -578,7 +717,7 @@ type AttrSetTypeConstraint TreeViewColumnMaxWidthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TreeViewColumnMaxWidthPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnMaxWidthPropertyInfo = Int32 - type AttrLabel TreeViewColumnMaxWidthPropertyInfo = "TreeViewColumn::max-width" + type AttrLabel TreeViewColumnMaxWidthPropertyInfo = "max-width" attrGet _ = getTreeViewColumnMaxWidth attrSet _ = setTreeViewColumnMaxWidth attrConstruct _ = constructTreeViewColumnMaxWidth @@ -602,7 +741,7 @@ type AttrSetTypeConstraint TreeViewColumnMinWidthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TreeViewColumnMinWidthPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnMinWidthPropertyInfo = Int32 - type AttrLabel TreeViewColumnMinWidthPropertyInfo = "TreeViewColumn::min-width" + type AttrLabel TreeViewColumnMinWidthPropertyInfo = "min-width" attrGet _ = getTreeViewColumnMinWidth attrSet _ = setTreeViewColumnMinWidth attrConstruct _ = constructTreeViewColumnMinWidth @@ -626,7 +765,7 @@ type AttrSetTypeConstraint TreeViewColumnReorderablePropertyInfo = (~) Bool type AttrBaseTypeConstraint TreeViewColumnReorderablePropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnReorderablePropertyInfo = Bool - type AttrLabel TreeViewColumnReorderablePropertyInfo = "TreeViewColumn::reorderable" + type AttrLabel TreeViewColumnReorderablePropertyInfo = "reorderable" attrGet _ = getTreeViewColumnReorderable attrSet _ = setTreeViewColumnReorderable attrConstruct _ = constructTreeViewColumnReorderable @@ -650,7 +789,7 @@ type AttrSetTypeConstraint TreeViewColumnResizablePropertyInfo = (~) Bool type AttrBaseTypeConstraint TreeViewColumnResizablePropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnResizablePropertyInfo = Bool - type AttrLabel TreeViewColumnResizablePropertyInfo = "TreeViewColumn::resizable" + type AttrLabel TreeViewColumnResizablePropertyInfo = "resizable" attrGet _ = getTreeViewColumnResizable attrSet _ = setTreeViewColumnResizable attrConstruct _ = constructTreeViewColumnResizable @@ -674,7 +813,7 @@ type AttrSetTypeConstraint TreeViewColumnSizingPropertyInfo = (~) TreeViewColumnSizing type AttrBaseTypeConstraint TreeViewColumnSizingPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnSizingPropertyInfo = TreeViewColumnSizing - type AttrLabel TreeViewColumnSizingPropertyInfo = "TreeViewColumn::sizing" + type AttrLabel TreeViewColumnSizingPropertyInfo = "sizing" attrGet _ = getTreeViewColumnSizing attrSet _ = setTreeViewColumnSizing attrConstruct _ = constructTreeViewColumnSizing @@ -698,7 +837,7 @@ type AttrSetTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnSortColumnIdPropertyInfo = Int32 - type AttrLabel TreeViewColumnSortColumnIdPropertyInfo = "TreeViewColumn::sort-column-id" + type AttrLabel TreeViewColumnSortColumnIdPropertyInfo = "sort-column-id" attrGet _ = getTreeViewColumnSortColumnId attrSet _ = setTreeViewColumnSortColumnId attrConstruct _ = constructTreeViewColumnSortColumnId @@ -722,7 +861,7 @@ type AttrSetTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = (~) Bool type AttrBaseTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnSortIndicatorPropertyInfo = Bool - type AttrLabel TreeViewColumnSortIndicatorPropertyInfo = "TreeViewColumn::sort-indicator" + type AttrLabel TreeViewColumnSortIndicatorPropertyInfo = "sort-indicator" attrGet _ = getTreeViewColumnSortIndicator attrSet _ = setTreeViewColumnSortIndicator attrConstruct _ = constructTreeViewColumnSortIndicator @@ -746,7 +885,7 @@ type AttrSetTypeConstraint TreeViewColumnSortOrderPropertyInfo = (~) SortType type AttrBaseTypeConstraint TreeViewColumnSortOrderPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnSortOrderPropertyInfo = SortType - type AttrLabel TreeViewColumnSortOrderPropertyInfo = "TreeViewColumn::sort-order" + type AttrLabel TreeViewColumnSortOrderPropertyInfo = "sort-order" attrGet _ = getTreeViewColumnSortOrder attrSet _ = setTreeViewColumnSortOrder attrConstruct _ = constructTreeViewColumnSortOrder @@ -770,7 +909,7 @@ type AttrSetTypeConstraint TreeViewColumnSpacingPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TreeViewColumnSpacingPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnSpacingPropertyInfo = Int32 - type AttrLabel TreeViewColumnSpacingPropertyInfo = "TreeViewColumn::spacing" + type AttrLabel TreeViewColumnSpacingPropertyInfo = "spacing" attrGet _ = getTreeViewColumnSpacing attrSet _ = setTreeViewColumnSpacing attrConstruct _ = constructTreeViewColumnSpacing @@ -794,7 +933,7 @@ type AttrSetTypeConstraint TreeViewColumnTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint TreeViewColumnTitlePropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnTitlePropertyInfo = T.Text - type AttrLabel TreeViewColumnTitlePropertyInfo = "TreeViewColumn::title" + type AttrLabel TreeViewColumnTitlePropertyInfo = "title" attrGet _ = getTreeViewColumnTitle attrSet _ = setTreeViewColumnTitle attrConstruct _ = constructTreeViewColumnTitle @@ -818,7 +957,7 @@ type AttrSetTypeConstraint TreeViewColumnVisiblePropertyInfo = (~) Bool type AttrBaseTypeConstraint TreeViewColumnVisiblePropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnVisiblePropertyInfo = Bool - type AttrLabel TreeViewColumnVisiblePropertyInfo = "TreeViewColumn::visible" + type AttrLabel TreeViewColumnVisiblePropertyInfo = "visible" attrGet _ = getTreeViewColumnVisible attrSet _ = setTreeViewColumnVisible attrConstruct _ = constructTreeViewColumnVisible @@ -842,7 +981,7 @@ type AttrSetTypeConstraint TreeViewColumnWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint TreeViewColumnWidgetPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnWidgetPropertyInfo = Widget - type AttrLabel TreeViewColumnWidgetPropertyInfo = "TreeViewColumn::widget" + type AttrLabel TreeViewColumnWidgetPropertyInfo = "widget" attrGet _ = getTreeViewColumnWidget attrSet _ = setTreeViewColumnWidget attrConstruct _ = constructTreeViewColumnWidget @@ -860,7 +999,7 @@ type AttrSetTypeConstraint TreeViewColumnWidthPropertyInfo = (~) () type AttrBaseTypeConstraint TreeViewColumnWidthPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnWidthPropertyInfo = Int32 - type AttrLabel TreeViewColumnWidthPropertyInfo = "TreeViewColumn::width" + type AttrLabel TreeViewColumnWidthPropertyInfo = "width" attrGet _ = getTreeViewColumnWidth attrSet _ = undefined attrConstruct _ = undefined @@ -878,13 +1017,13 @@ type AttrSetTypeConstraint TreeViewColumnXOffsetPropertyInfo = (~) () type AttrBaseTypeConstraint TreeViewColumnXOffsetPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnXOffsetPropertyInfo = Int32 - type AttrLabel TreeViewColumnXOffsetPropertyInfo = "TreeViewColumn::x-offset" + type AttrLabel TreeViewColumnXOffsetPropertyInfo = "x-offset" attrGet _ = getTreeViewColumnXOffset attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList TreeViewColumn = TreeViewColumnAttributeList -type TreeViewColumnAttributeList = ('[ '("alignment", TreeViewColumnAlignmentPropertyInfo), '("cell-area", TreeViewColumnCellAreaPropertyInfo), '("clickable", TreeViewColumnClickablePropertyInfo), '("expand", TreeViewColumnExpandPropertyInfo), '("fixed-width", TreeViewColumnFixedWidthPropertyInfo), '("max-width", TreeViewColumnMaxWidthPropertyInfo), '("min-width", TreeViewColumnMinWidthPropertyInfo), '("reorderable", TreeViewColumnReorderablePropertyInfo), '("resizable", TreeViewColumnResizablePropertyInfo), '("sizing", TreeViewColumnSizingPropertyInfo), '("sort-column-id", TreeViewColumnSortColumnIdPropertyInfo), '("sort-indicator", TreeViewColumnSortIndicatorPropertyInfo), '("sort-order", TreeViewColumnSortOrderPropertyInfo), '("spacing", TreeViewColumnSpacingPropertyInfo), '("title", TreeViewColumnTitlePropertyInfo), '("visible", TreeViewColumnVisiblePropertyInfo), '("widget", TreeViewColumnWidgetPropertyInfo), '("width", TreeViewColumnWidthPropertyInfo), '("x-offset", TreeViewColumnXOffsetPropertyInfo)] :: [(Symbol, *)]) +type TreeViewColumnAttributeList = ('[ '("alignment", TreeViewColumnAlignmentPropertyInfo), '("cellArea", TreeViewColumnCellAreaPropertyInfo), '("clickable", TreeViewColumnClickablePropertyInfo), '("expand", TreeViewColumnExpandPropertyInfo), '("fixedWidth", TreeViewColumnFixedWidthPropertyInfo), '("maxWidth", TreeViewColumnMaxWidthPropertyInfo), '("minWidth", TreeViewColumnMinWidthPropertyInfo), '("reorderable", TreeViewColumnReorderablePropertyInfo), '("resizable", TreeViewColumnResizablePropertyInfo), '("sizing", TreeViewColumnSizingPropertyInfo), '("sortColumnId", TreeViewColumnSortColumnIdPropertyInfo), '("sortIndicator", TreeViewColumnSortIndicatorPropertyInfo), '("sortOrder", TreeViewColumnSortOrderPropertyInfo), '("spacing", TreeViewColumnSpacingPropertyInfo), '("title", TreeViewColumnTitlePropertyInfo), '("visible", TreeViewColumnVisiblePropertyInfo), '("widget", TreeViewColumnWidgetPropertyInfo), '("width", TreeViewColumnWidthPropertyInfo), '("xOffset", TreeViewColumnXOffsetPropertyInfo)] :: [(Symbol, *)]) data TreeViewColumnClickedSignalInfo instance SignalInfo TreeViewColumnClickedSignalInfo where @@ -892,13 +1031,12 @@ connectSignal _ = connectTreeViewColumnClicked type instance SignalList TreeViewColumn = TreeViewColumnSignalList -type TreeViewColumnSignalList = ('[ '("clicked", TreeViewColumnClickedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TreeViewColumnSignalList = ('[ '("clicked", TreeViewColumnClickedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TreeViewColumn::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "TreeViewColumn" -- throws : False -- Skip return : False @@ -909,7 +1047,7 @@ treeViewColumnNew :: (MonadIO m) => - m TreeViewColumn + m TreeViewColumn -- result treeViewColumnNew = liftIO $ do result <- gtk_tree_view_column_new checkUnexpectedReturnNULL "gtk_tree_view_column_new" result @@ -918,9 +1056,8 @@ -- method TreeViewColumn::new_with_area -- method type : Constructor --- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeViewColumn" -- throws : False -- Skip return : False @@ -932,8 +1069,8 @@ treeViewColumnNewWithArea :: (MonadIO m, CellAreaK a) => - a -> -- area - m TreeViewColumn + a -- area + -> m TreeViewColumn -- result treeViewColumnNewWithArea area = liftIO $ do let area' = unsafeManagedPtrCastPtr area result <- gtk_tree_view_column_new_with_area area' @@ -944,9 +1081,8 @@ -- method TreeViewColumn::add_attribute -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -961,26 +1097,29 @@ treeViewColumnAddAttribute :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -> -- _obj - b -> -- cell_renderer - T.Text -> -- attribute - Int32 -> -- column - m () -treeViewColumnAddAttribute _obj cell_renderer attribute column = liftIO $ do + a -- _obj + -> b -- cellRenderer + -> T.Text -- attribute + -> Int32 -- column + -> m () -- result +treeViewColumnAddAttribute _obj cellRenderer attribute column = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer + let cellRenderer' = unsafeManagedPtrCastPtr cellRenderer attribute' <- textToCString attribute - gtk_tree_view_column_add_attribute _obj' cell_renderer' attribute' column + gtk_tree_view_column_add_attribute _obj' cellRenderer' attribute' column touchManagedPtr _obj - touchManagedPtr cell_renderer + touchManagedPtr cellRenderer freeMem attribute' return () +data TreeViewColumnAddAttributeMethodInfo +instance (signature ~ (b -> T.Text -> Int32 -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnAddAttributeMethodInfo a signature where + overloadedMethod _ = treeViewColumnAddAttribute + -- method TreeViewColumn::cell_get_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -995,29 +1134,32 @@ treeViewColumnCellGetPosition :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -> -- _obj - b -> -- cell_renderer - m (Bool,Int32,Int32) -treeViewColumnCellGetPosition _obj cell_renderer = liftIO $ do + a -- _obj + -> b -- cellRenderer + -> m (Bool,Int32,Int32) -- result +treeViewColumnCellGetPosition _obj cellRenderer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer - x_offset <- allocMem :: IO (Ptr Int32) + let cellRenderer' = unsafeManagedPtrCastPtr cellRenderer + xOffset <- allocMem :: IO (Ptr Int32) width <- allocMem :: IO (Ptr Int32) - result <- gtk_tree_view_column_cell_get_position _obj' cell_renderer' x_offset width + result <- gtk_tree_view_column_cell_get_position _obj' cellRenderer' xOffset width let result' = (/= 0) result - x_offset' <- peek x_offset + xOffset' <- peek xOffset width' <- peek width touchManagedPtr _obj - touchManagedPtr cell_renderer - freeMem x_offset + touchManagedPtr cellRenderer + freeMem xOffset freeMem width - return (result', x_offset', width') + return (result', xOffset', width') +data TreeViewColumnCellGetPositionMethodInfo +instance (signature ~ (b -> m (Bool,Int32,Int32)), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnCellGetPositionMethodInfo a signature where + overloadedMethod _ = treeViewColumnCellGetPosition + -- method TreeViewColumn::cell_get_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1034,38 +1176,41 @@ treeViewColumnCellGetSize :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Maybe (Gdk.Rectangle) -> -- cell_area - m (Int32,Int32,Int32,Int32) -treeViewColumnCellGetSize _obj cell_area = liftIO $ do + a -- _obj + -> Maybe (Gdk.Rectangle) -- cellArea + -> m (Int32,Int32,Int32,Int32) -- result +treeViewColumnCellGetSize _obj cellArea = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeCell_area <- case cell_area of + maybeCellArea <- case cellArea of Nothing -> return nullPtr - Just jCell_area -> do - let jCell_area' = unsafeManagedPtrGetPtr jCell_area - return jCell_area' - x_offset <- allocMem :: IO (Ptr Int32) - y_offset <- allocMem :: IO (Ptr Int32) + Just jCellArea -> do + let jCellArea' = unsafeManagedPtrGetPtr jCellArea + return jCellArea' + xOffset <- allocMem :: IO (Ptr Int32) + yOffset <- allocMem :: IO (Ptr Int32) width <- allocMem :: IO (Ptr Int32) height <- allocMem :: IO (Ptr Int32) - gtk_tree_view_column_cell_get_size _obj' maybeCell_area x_offset y_offset width height - x_offset' <- peek x_offset - y_offset' <- peek y_offset + gtk_tree_view_column_cell_get_size _obj' maybeCellArea xOffset yOffset width height + xOffset' <- peek xOffset + yOffset' <- peek yOffset width' <- peek width height' <- peek height touchManagedPtr _obj - whenJust cell_area touchManagedPtr - freeMem x_offset - freeMem y_offset + whenJust cellArea touchManagedPtr + freeMem xOffset + freeMem yOffset freeMem width freeMem height - return (x_offset', y_offset', width', height') + return (xOffset', yOffset', width', height') +data TreeViewColumnCellGetSizeMethodInfo +instance (signature ~ (Maybe (Gdk.Rectangle) -> m (Int32,Int32,Int32,Int32)), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnCellGetSizeMethodInfo a signature where + overloadedMethod _ = treeViewColumnCellGetSize + -- method TreeViewColumn::cell_is_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1077,8 +1222,8 @@ treeViewColumnCellIsVisible :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result treeViewColumnCellIsVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_cell_is_visible _obj' @@ -1086,11 +1231,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnCellIsVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnCellIsVisibleMethodInfo a signature where + overloadedMethod _ = treeViewColumnCellIsVisible + -- method TreeViewColumn::cell_set_cell_data -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1106,29 +1254,32 @@ treeViewColumnCellSetCellData :: (MonadIO m, TreeViewColumnK a, TreeModelK b) => - a -> -- _obj - b -> -- tree_model - TreeIter -> -- iter - Bool -> -- is_expander - Bool -> -- is_expanded - m () -treeViewColumnCellSetCellData _obj tree_model iter is_expander is_expanded = liftIO $ do + a -- _obj + -> b -- treeModel + -> TreeIter -- iter + -> Bool -- isExpander + -> Bool -- isExpanded + -> m () -- result +treeViewColumnCellSetCellData _obj treeModel iter isExpander isExpanded = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let tree_model' = unsafeManagedPtrCastPtr tree_model + let treeModel' = unsafeManagedPtrCastPtr treeModel let iter' = unsafeManagedPtrGetPtr iter - let is_expander' = (fromIntegral . fromEnum) is_expander - let is_expanded' = (fromIntegral . fromEnum) is_expanded - gtk_tree_view_column_cell_set_cell_data _obj' tree_model' iter' is_expander' is_expanded' + let isExpander' = (fromIntegral . fromEnum) isExpander + let isExpanded' = (fromIntegral . fromEnum) isExpanded + gtk_tree_view_column_cell_set_cell_data _obj' treeModel' iter' isExpander' isExpanded' touchManagedPtr _obj - touchManagedPtr tree_model + touchManagedPtr treeModel touchManagedPtr iter return () +data TreeViewColumnCellSetCellDataMethodInfo +instance (signature ~ (b -> TreeIter -> Bool -> Bool -> m ()), MonadIO m, TreeViewColumnK a, TreeModelK b) => MethodInfo TreeViewColumnCellSetCellDataMethodInfo a signature where + overloadedMethod _ = treeViewColumnCellSetCellData + -- method TreeViewColumn::clear -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1140,19 +1291,22 @@ treeViewColumnClear :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result treeViewColumnClear _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_view_column_clear _obj' touchManagedPtr _obj return () +data TreeViewColumnClearMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnClearMethodInfo a signature where + overloadedMethod _ = treeViewColumnClear + -- method TreeViewColumn::clear_attributes -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1165,22 +1319,25 @@ treeViewColumnClearAttributes :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -> -- _obj - b -> -- cell_renderer - m () -treeViewColumnClearAttributes _obj cell_renderer = liftIO $ do + a -- _obj + -> b -- cellRenderer + -> m () -- result +treeViewColumnClearAttributes _obj cellRenderer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer - gtk_tree_view_column_clear_attributes _obj' cell_renderer' + let cellRenderer' = unsafeManagedPtrCastPtr cellRenderer + gtk_tree_view_column_clear_attributes _obj' cellRenderer' touchManagedPtr _obj - touchManagedPtr cell_renderer + touchManagedPtr cellRenderer return () +data TreeViewColumnClearAttributesMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnClearAttributesMethodInfo a signature where + overloadedMethod _ = treeViewColumnClearAttributes + -- method TreeViewColumn::clicked -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1192,19 +1349,22 @@ treeViewColumnClicked :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result treeViewColumnClicked _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_view_column_clicked _obj' touchManagedPtr _obj return () +data TreeViewColumnClickedMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnClickedMethodInfo a signature where + overloadedMethod _ = treeViewColumnClicked + -- method TreeViewColumn::focus_cell -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1217,9 +1377,9 @@ treeViewColumnFocusCell :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -> -- _obj - b -> -- cell - m () + a -- _obj + -> b -- cell + -> m () -- result treeViewColumnFocusCell _obj cell = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -1228,11 +1388,14 @@ touchManagedPtr cell return () +data TreeViewColumnFocusCellMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnFocusCellMethodInfo a signature where + overloadedMethod _ = treeViewColumnFocusCell + -- method TreeViewColumn::get_alignment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TFloat -- throws : False -- Skip return : False @@ -1244,8 +1407,8 @@ treeViewColumnGetAlignment :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Float + a -- _obj + -> m Float -- result treeViewColumnGetAlignment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_alignment _obj' @@ -1253,11 +1416,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetAlignmentMethodInfo +instance (signature ~ (m Float), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetAlignmentMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetAlignment + -- method TreeViewColumn::get_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -1269,8 +1435,8 @@ treeViewColumnGetButton :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result treeViewColumnGetButton _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_button _obj' @@ -1279,11 +1445,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetButtonMethodInfo +instance (signature ~ (m Widget), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetButtonMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetButton + -- method TreeViewColumn::get_clickable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1295,8 +1464,8 @@ treeViewColumnGetClickable :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result treeViewColumnGetClickable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_clickable _obj' @@ -1304,11 +1473,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetClickableMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetClickableMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetClickable + -- method TreeViewColumn::get_expand -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1320,8 +1492,8 @@ treeViewColumnGetExpand :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result treeViewColumnGetExpand _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_expand _obj' @@ -1329,11 +1501,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetExpandMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetExpandMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetExpand + -- method TreeViewColumn::get_fixed_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1345,19 +1520,22 @@ treeViewColumnGetFixedWidth :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result treeViewColumnGetFixedWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_fixed_width _obj' touchManagedPtr _obj return result +data TreeViewColumnGetFixedWidthMethodInfo +instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetFixedWidthMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetFixedWidth + -- method TreeViewColumn::get_max_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1369,19 +1547,22 @@ treeViewColumnGetMaxWidth :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result treeViewColumnGetMaxWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_max_width _obj' touchManagedPtr _obj return result +data TreeViewColumnGetMaxWidthMethodInfo +instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetMaxWidthMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetMaxWidth + -- method TreeViewColumn::get_min_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1393,19 +1574,22 @@ treeViewColumnGetMinWidth :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result treeViewColumnGetMinWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_min_width _obj' touchManagedPtr _obj return result +data TreeViewColumnGetMinWidthMethodInfo +instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetMinWidthMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetMinWidth + -- method TreeViewColumn::get_reorderable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1417,8 +1601,8 @@ treeViewColumnGetReorderable :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result treeViewColumnGetReorderable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_reorderable _obj' @@ -1426,11 +1610,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetReorderableMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetReorderableMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetReorderable + -- method TreeViewColumn::get_resizable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1442,8 +1629,8 @@ treeViewColumnGetResizable :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result treeViewColumnGetResizable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_resizable _obj' @@ -1451,11 +1638,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetResizableMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetResizableMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetResizable + -- method TreeViewColumn::get_sizing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeViewColumnSizing" -- throws : False -- Skip return : False @@ -1467,8 +1657,8 @@ treeViewColumnGetSizing :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m TreeViewColumnSizing + a -- _obj + -> m TreeViewColumnSizing -- result treeViewColumnGetSizing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_sizing _obj' @@ -1476,11 +1666,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetSizingMethodInfo +instance (signature ~ (m TreeViewColumnSizing), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSizingMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetSizing + -- method TreeViewColumn::get_sort_column_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1492,19 +1685,22 @@ treeViewColumnGetSortColumnId :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result treeViewColumnGetSortColumnId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_sort_column_id _obj' touchManagedPtr _obj return result +data TreeViewColumnGetSortColumnIdMethodInfo +instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSortColumnIdMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetSortColumnId + -- method TreeViewColumn::get_sort_indicator -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1516,8 +1712,8 @@ treeViewColumnGetSortIndicator :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result treeViewColumnGetSortIndicator _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_sort_indicator _obj' @@ -1525,11 +1721,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetSortIndicatorMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSortIndicatorMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetSortIndicator + -- method TreeViewColumn::get_sort_order -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SortType" -- throws : False -- Skip return : False @@ -1541,8 +1740,8 @@ treeViewColumnGetSortOrder :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m SortType + a -- _obj + -> m SortType -- result treeViewColumnGetSortOrder _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_sort_order _obj' @@ -1550,11 +1749,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetSortOrderMethodInfo +instance (signature ~ (m SortType), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSortOrderMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetSortOrder + -- method TreeViewColumn::get_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1566,19 +1768,22 @@ treeViewColumnGetSpacing :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result treeViewColumnGetSpacing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_spacing _obj' touchManagedPtr _obj return result +data TreeViewColumnGetSpacingMethodInfo +instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSpacingMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetSpacing + -- method TreeViewColumn::get_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1590,8 +1795,8 @@ treeViewColumnGetTitle :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result treeViewColumnGetTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_title _obj' @@ -1600,11 +1805,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetTitleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetTitleMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetTitle + -- method TreeViewColumn::get_tree_view -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -1616,8 +1824,8 @@ treeViewColumnGetTreeView :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result treeViewColumnGetTreeView _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_tree_view _obj' @@ -1626,11 +1834,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetTreeViewMethodInfo +instance (signature ~ (m Widget), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetTreeViewMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetTreeView + -- method TreeViewColumn::get_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1642,8 +1853,8 @@ treeViewColumnGetVisible :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result treeViewColumnGetVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_visible _obj' @@ -1651,11 +1862,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetVisibleMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetVisible + -- method TreeViewColumn::get_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -1667,8 +1881,8 @@ treeViewColumnGetWidget :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result treeViewColumnGetWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_widget _obj' @@ -1677,11 +1891,14 @@ touchManagedPtr _obj return result' +data TreeViewColumnGetWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetWidgetMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetWidget + -- method TreeViewColumn::get_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1693,19 +1910,22 @@ treeViewColumnGetWidth :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result treeViewColumnGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_width _obj' touchManagedPtr _obj return result +data TreeViewColumnGetWidthMethodInfo +instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetWidthMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetWidth + -- method TreeViewColumn::get_x_offset -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1717,19 +1937,22 @@ treeViewColumnGetXOffset :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result treeViewColumnGetXOffset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_x_offset _obj' touchManagedPtr _obj return result +data TreeViewColumnGetXOffsetMethodInfo +instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetXOffsetMethodInfo a signature where + overloadedMethod _ = treeViewColumnGetXOffset + -- method TreeViewColumn::pack_end -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1743,10 +1966,10 @@ treeViewColumnPackEnd :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -> -- _obj - b -> -- cell - Bool -> -- expand - m () + a -- _obj + -> b -- cell + -> Bool -- expand + -> m () -- result treeViewColumnPackEnd _obj cell expand = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -1756,11 +1979,14 @@ touchManagedPtr cell return () +data TreeViewColumnPackEndMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnPackEndMethodInfo a signature where + overloadedMethod _ = treeViewColumnPackEnd + -- method TreeViewColumn::pack_start -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1774,10 +2000,10 @@ treeViewColumnPackStart :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -> -- _obj - b -> -- cell - Bool -> -- expand - m () + a -- _obj + -> b -- cell + -> Bool -- expand + -> m () -- result treeViewColumnPackStart _obj cell expand = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell @@ -1787,11 +2013,14 @@ touchManagedPtr cell return () +data TreeViewColumnPackStartMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnPackStartMethodInfo a signature where + overloadedMethod _ = treeViewColumnPackStart + -- method TreeViewColumn::queue_resize -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1803,19 +2032,22 @@ treeViewColumnQueueResize :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result treeViewColumnQueueResize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_view_column_queue_resize _obj' touchManagedPtr _obj return () +data TreeViewColumnQueueResizeMethodInfo +instance (signature ~ (m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnQueueResizeMethodInfo a signature where + overloadedMethod _ = treeViewColumnQueueResize + -- method TreeViewColumn::set_alignment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1828,9 +2060,9 @@ treeViewColumnSetAlignment :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Float -> -- xalign - m () + a -- _obj + -> Float -- xalign + -> m () -- result treeViewColumnSetAlignment _obj xalign = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let xalign' = realToFrac xalign @@ -1838,11 +2070,14 @@ touchManagedPtr _obj return () +data TreeViewColumnSetAlignmentMethodInfo +instance (signature ~ (Float -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetAlignmentMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetAlignment + -- method TreeViewColumn::set_cell_data_func -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1858,30 +2093,33 @@ treeViewColumnSetCellDataFunc :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -> -- _obj - b -> -- cell_renderer - Maybe (TreeCellDataFunc) -> -- func - m () -treeViewColumnSetCellDataFunc _obj cell_renderer func = liftIO $ do + a -- _obj + -> b -- cellRenderer + -> Maybe (TreeCellDataFunc) -- func + -> m () -- result +treeViewColumnSetCellDataFunc _obj cellRenderer func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer + let cellRenderer' = unsafeManagedPtrCastPtr cellRenderer maybeFunc <- case func of Nothing -> return (castPtrToFunPtr nullPtr) Just jFunc -> do jFunc' <- mkTreeCellDataFunc (treeCellDataFuncWrapper Nothing jFunc) return jFunc' - let func_data = castFunPtrToPtr maybeFunc + let funcData = castFunPtrToPtr maybeFunc let destroy = safeFreeFunPtrPtr - gtk_tree_view_column_set_cell_data_func _obj' cell_renderer' maybeFunc func_data destroy + gtk_tree_view_column_set_cell_data_func _obj' cellRenderer' maybeFunc funcData destroy touchManagedPtr _obj - touchManagedPtr cell_renderer + touchManagedPtr cellRenderer return () +data TreeViewColumnSetCellDataFuncMethodInfo +instance (signature ~ (b -> Maybe (TreeCellDataFunc) -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnSetCellDataFuncMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetCellDataFunc + -- method TreeViewColumn::set_clickable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clickable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clickable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clickable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1894,9 +2132,9 @@ treeViewColumnSetClickable :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Bool -> -- clickable - m () + a -- _obj + -> Bool -- clickable + -> m () -- result treeViewColumnSetClickable _obj clickable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let clickable' = (fromIntegral . fromEnum) clickable @@ -1904,11 +2142,14 @@ touchManagedPtr _obj return () +data TreeViewColumnSetClickableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetClickableMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetClickable + -- method TreeViewColumn::set_expand -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1921,9 +2162,9 @@ treeViewColumnSetExpand :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Bool -> -- expand - m () + a -- _obj + -> Bool -- expand + -> m () -- result treeViewColumnSetExpand _obj expand = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let expand' = (fromIntegral . fromEnum) expand @@ -1931,11 +2172,14 @@ touchManagedPtr _obj return () +data TreeViewColumnSetExpandMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetExpandMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetExpand + -- method TreeViewColumn::set_fixed_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1948,20 +2192,23 @@ treeViewColumnSetFixedWidth :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Int32 -> -- fixed_width - m () -treeViewColumnSetFixedWidth _obj fixed_width = liftIO $ do + a -- _obj + -> Int32 -- fixedWidth + -> m () -- result +treeViewColumnSetFixedWidth _obj fixedWidth = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_fixed_width _obj' fixed_width + gtk_tree_view_column_set_fixed_width _obj' fixedWidth touchManagedPtr _obj return () +data TreeViewColumnSetFixedWidthMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetFixedWidthMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetFixedWidth + -- method TreeViewColumn::set_max_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1974,20 +2221,23 @@ treeViewColumnSetMaxWidth :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Int32 -> -- max_width - m () -treeViewColumnSetMaxWidth _obj max_width = liftIO $ do + a -- _obj + -> Int32 -- maxWidth + -> m () -- result +treeViewColumnSetMaxWidth _obj maxWidth = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_max_width _obj' max_width + gtk_tree_view_column_set_max_width _obj' maxWidth touchManagedPtr _obj return () +data TreeViewColumnSetMaxWidthMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetMaxWidthMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetMaxWidth + -- method TreeViewColumn::set_min_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2000,20 +2250,23 @@ treeViewColumnSetMinWidth :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Int32 -> -- min_width - m () -treeViewColumnSetMinWidth _obj min_width = liftIO $ do + a -- _obj + -> Int32 -- minWidth + -> m () -- result +treeViewColumnSetMinWidth _obj minWidth = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_min_width _obj' min_width + gtk_tree_view_column_set_min_width _obj' minWidth touchManagedPtr _obj return () +data TreeViewColumnSetMinWidthMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetMinWidthMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetMinWidth + -- method TreeViewColumn::set_reorderable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2026,9 +2279,9 @@ treeViewColumnSetReorderable :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Bool -> -- reorderable - m () + a -- _obj + -> Bool -- reorderable + -> m () -- result treeViewColumnSetReorderable _obj reorderable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let reorderable' = (fromIntegral . fromEnum) reorderable @@ -2036,11 +2289,14 @@ touchManagedPtr _obj return () +data TreeViewColumnSetReorderableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetReorderableMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetReorderable + -- method TreeViewColumn::set_resizable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2053,9 +2309,9 @@ treeViewColumnSetResizable :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Bool -> -- resizable - m () + a -- _obj + -> Bool -- resizable + -> m () -- result treeViewColumnSetResizable _obj resizable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let resizable' = (fromIntegral . fromEnum) resizable @@ -2063,11 +2319,14 @@ touchManagedPtr _obj return () +data TreeViewColumnSetResizableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetResizableMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetResizable + -- method TreeViewColumn::set_sizing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TreeViewColumnSizing", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "TreeViewColumnSizing", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TreeViewColumnSizing", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2080,9 +2339,9 @@ treeViewColumnSetSizing :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - TreeViewColumnSizing -> -- type - m () + a -- _obj + -> TreeViewColumnSizing -- type_ + -> m () -- result treeViewColumnSetSizing _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let type_' = (fromIntegral . fromEnum) type_ @@ -2090,11 +2349,14 @@ touchManagedPtr _obj return () +data TreeViewColumnSetSizingMethodInfo +instance (signature ~ (TreeViewColumnSizing -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSizingMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetSizing + -- method TreeViewColumn::set_sort_column_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2107,20 +2369,23 @@ treeViewColumnSetSortColumnId :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Int32 -> -- sort_column_id - m () -treeViewColumnSetSortColumnId _obj sort_column_id = liftIO $ do + a -- _obj + -> Int32 -- sortColumnId + -> m () -- result +treeViewColumnSetSortColumnId _obj sortColumnId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_sort_column_id _obj' sort_column_id + gtk_tree_view_column_set_sort_column_id _obj' sortColumnId touchManagedPtr _obj return () +data TreeViewColumnSetSortColumnIdMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSortColumnIdMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetSortColumnId + -- method TreeViewColumn::set_sort_indicator -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2133,9 +2398,9 @@ treeViewColumnSetSortIndicator :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Bool -> -- setting - m () + a -- _obj + -> Bool -- setting + -> m () -- result treeViewColumnSetSortIndicator _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -2143,11 +2408,14 @@ touchManagedPtr _obj return () +data TreeViewColumnSetSortIndicatorMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSortIndicatorMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetSortIndicator + -- method TreeViewColumn::set_sort_order -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2160,9 +2428,9 @@ treeViewColumnSetSortOrder :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - SortType -> -- order - m () + a -- _obj + -> SortType -- order + -> m () -- result treeViewColumnSetSortOrder _obj order = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let order' = (fromIntegral . fromEnum) order @@ -2170,11 +2438,14 @@ touchManagedPtr _obj return () +data TreeViewColumnSetSortOrderMethodInfo +instance (signature ~ (SortType -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSortOrderMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetSortOrder + -- method TreeViewColumn::set_spacing -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2187,20 +2458,23 @@ treeViewColumnSetSpacing :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Int32 -> -- spacing - m () + a -- _obj + -> Int32 -- spacing + -> m () -- result treeViewColumnSetSpacing _obj spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_view_column_set_spacing _obj' spacing touchManagedPtr _obj return () +data TreeViewColumnSetSpacingMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSpacingMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetSpacing + -- method TreeViewColumn::set_title -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2213,9 +2487,9 @@ treeViewColumnSetTitle :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - T.Text -> -- title - m () + a -- _obj + -> T.Text -- title + -> m () -- result treeViewColumnSetTitle _obj title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj title' <- textToCString title @@ -2224,11 +2498,14 @@ freeMem title' return () +data TreeViewColumnSetTitleMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetTitleMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetTitle + -- method TreeViewColumn::set_visible -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2241,9 +2518,9 @@ treeViewColumnSetVisible :: (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Bool -> -- visible - m () + a -- _obj + -> Bool -- visible + -> m () -- result treeViewColumnSetVisible _obj visible = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let visible' = (fromIntegral . fromEnum) visible @@ -2251,11 +2528,14 @@ touchManagedPtr _obj return () +data TreeViewColumnSetVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetVisibleMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetVisible + -- method TreeViewColumn::set_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2268,9 +2548,9 @@ treeViewColumnSetWidget :: (MonadIO m, TreeViewColumnK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- widget - m () + a -- _obj + -> Maybe (b) -- widget + -> m () -- result treeViewColumnSetWidget _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeWidget <- case widget of @@ -2282,5 +2562,9 @@ touchManagedPtr _obj whenJust widget touchManagedPtr return () + +data TreeViewColumnSetWidgetMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TreeViewColumnK a, WidgetK b) => MethodInfo TreeViewColumnSetWidgetMethodInfo a signature where + overloadedMethod _ = treeViewColumnSetWidget diff --git a/GI/Gtk/Objects/TreeViewColumn.hs-boot b/GI/Gtk/Objects/TreeViewColumn.hs-boot --- a/GI/Gtk/Objects/TreeViewColumn.hs-boot +++ b/GI/Gtk/Objects/TreeViewColumn.hs-boot @@ -31,3 +31,52 @@ data TreeViewColumnWidthPropertyInfo data TreeViewColumnXOffsetPropertyInfo data TreeViewColumnClickedSignalInfo +data TreeViewColumnAddAttributeMethodInfo +data TreeViewColumnCellGetPositionMethodInfo +data TreeViewColumnCellGetSizeMethodInfo +data TreeViewColumnCellIsVisibleMethodInfo +data TreeViewColumnCellSetCellDataMethodInfo +data TreeViewColumnClearMethodInfo +data TreeViewColumnClearAttributesMethodInfo +data TreeViewColumnClickedMethodInfo +data TreeViewColumnFocusCellMethodInfo +data TreeViewColumnGetAlignmentMethodInfo +data TreeViewColumnGetButtonMethodInfo +data TreeViewColumnGetClickableMethodInfo +data TreeViewColumnGetExpandMethodInfo +data TreeViewColumnGetFixedWidthMethodInfo +data TreeViewColumnGetMaxWidthMethodInfo +data TreeViewColumnGetMinWidthMethodInfo +data TreeViewColumnGetReorderableMethodInfo +data TreeViewColumnGetResizableMethodInfo +data TreeViewColumnGetSizingMethodInfo +data TreeViewColumnGetSortColumnIdMethodInfo +data TreeViewColumnGetSortIndicatorMethodInfo +data TreeViewColumnGetSortOrderMethodInfo +data TreeViewColumnGetSpacingMethodInfo +data TreeViewColumnGetTitleMethodInfo +data TreeViewColumnGetTreeViewMethodInfo +data TreeViewColumnGetVisibleMethodInfo +data TreeViewColumnGetWidgetMethodInfo +data TreeViewColumnGetWidthMethodInfo +data TreeViewColumnGetXOffsetMethodInfo +data TreeViewColumnPackEndMethodInfo +data TreeViewColumnPackStartMethodInfo +data TreeViewColumnQueueResizeMethodInfo +data TreeViewColumnSetAlignmentMethodInfo +data TreeViewColumnSetCellDataFuncMethodInfo +data TreeViewColumnSetClickableMethodInfo +data TreeViewColumnSetExpandMethodInfo +data TreeViewColumnSetFixedWidthMethodInfo +data TreeViewColumnSetMaxWidthMethodInfo +data TreeViewColumnSetMinWidthMethodInfo +data TreeViewColumnSetReorderableMethodInfo +data TreeViewColumnSetResizableMethodInfo +data TreeViewColumnSetSizingMethodInfo +data TreeViewColumnSetSortColumnIdMethodInfo +data TreeViewColumnSetSortIndicatorMethodInfo +data TreeViewColumnSetSortOrderMethodInfo +data TreeViewColumnSetSpacingMethodInfo +data TreeViewColumnSetTitleMethodInfo +data TreeViewColumnSetVisibleMethodInfo +data TreeViewColumnSetWidgetMethodInfo diff --git a/GI/Gtk/Objects/UIManager.hs b/GI/Gtk/Objects/UIManager.hs --- a/GI/Gtk/Objects/UIManager.hs +++ b/GI/Gtk/Objects/UIManager.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,54 +18,67 @@ -- * Methods -- ** uIManagerAddUi + UIManagerAddUiMethodInfo , uIManagerAddUi , -- ** uIManagerAddUiFromFile + UIManagerAddUiFromFileMethodInfo , uIManagerAddUiFromFile , -- ** uIManagerAddUiFromResource + UIManagerAddUiFromResourceMethodInfo , uIManagerAddUiFromResource , -- ** uIManagerAddUiFromString + UIManagerAddUiFromStringMethodInfo , uIManagerAddUiFromString , -- ** uIManagerEnsureUpdate + UIManagerEnsureUpdateMethodInfo , uIManagerEnsureUpdate , -- ** uIManagerGetAccelGroup + UIManagerGetAccelGroupMethodInfo , uIManagerGetAccelGroup , -- ** uIManagerGetAction + UIManagerGetActionMethodInfo , uIManagerGetAction , -- ** uIManagerGetActionGroups + UIManagerGetActionGroupsMethodInfo , uIManagerGetActionGroups , -- ** uIManagerGetAddTearoffs + UIManagerGetAddTearoffsMethodInfo , uIManagerGetAddTearoffs , -- ** uIManagerGetToplevels + UIManagerGetToplevelsMethodInfo , uIManagerGetToplevels , -- ** uIManagerGetUi + UIManagerGetUiMethodInfo , uIManagerGetUi , -- ** uIManagerGetWidget + UIManagerGetWidgetMethodInfo , uIManagerGetWidget , -- ** uIManagerInsertActionGroup + UIManagerInsertActionGroupMethodInfo , uIManagerInsertActionGroup , @@ -73,18 +87,22 @@ -- ** uIManagerNewMergeId + UIManagerNewMergeIdMethodInfo , uIManagerNewMergeId , -- ** uIManagerRemoveActionGroup + UIManagerRemoveActionGroupMethodInfo , uIManagerRemoveActionGroup , -- ** uIManagerRemoveUi + UIManagerRemoveUiMethodInfo , uIManagerRemoveUi , -- ** uIManagerSetAddTearoffs + UIManagerSetAddTearoffsMethodInfo , uIManagerSetAddTearoffs , @@ -214,6 +232,66 @@ noUIManager :: Maybe UIManager noUIManager = Nothing +type family ResolveUIManagerMethod (t :: Symbol) (o :: *) :: * where + ResolveUIManagerMethod "addChild" o = BuildableAddChildMethodInfo + ResolveUIManagerMethod "addUi" o = UIManagerAddUiMethodInfo + ResolveUIManagerMethod "addUiFromFile" o = UIManagerAddUiFromFileMethodInfo + ResolveUIManagerMethod "addUiFromResource" o = UIManagerAddUiFromResourceMethodInfo + ResolveUIManagerMethod "addUiFromString" o = UIManagerAddUiFromStringMethodInfo + ResolveUIManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveUIManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveUIManagerMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveUIManagerMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveUIManagerMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveUIManagerMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveUIManagerMethod "ensureUpdate" o = UIManagerEnsureUpdateMethodInfo + ResolveUIManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveUIManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveUIManagerMethod "insertActionGroup" o = UIManagerInsertActionGroupMethodInfo + ResolveUIManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveUIManagerMethod "newMergeId" o = UIManagerNewMergeIdMethodInfo + ResolveUIManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveUIManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveUIManagerMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveUIManagerMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveUIManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveUIManagerMethod "removeActionGroup" o = UIManagerRemoveActionGroupMethodInfo + ResolveUIManagerMethod "removeUi" o = UIManagerRemoveUiMethodInfo + ResolveUIManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveUIManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveUIManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveUIManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveUIManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveUIManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveUIManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveUIManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveUIManagerMethod "getAccelGroup" o = UIManagerGetAccelGroupMethodInfo + ResolveUIManagerMethod "getAction" o = UIManagerGetActionMethodInfo + ResolveUIManagerMethod "getActionGroups" o = UIManagerGetActionGroupsMethodInfo + ResolveUIManagerMethod "getAddTearoffs" o = UIManagerGetAddTearoffsMethodInfo + ResolveUIManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveUIManagerMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveUIManagerMethod "getName" o = BuildableGetNameMethodInfo + ResolveUIManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveUIManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveUIManagerMethod "getToplevels" o = UIManagerGetToplevelsMethodInfo + ResolveUIManagerMethod "getUi" o = UIManagerGetUiMethodInfo + ResolveUIManagerMethod "getWidget" o = UIManagerGetWidgetMethodInfo + ResolveUIManagerMethod "setAddTearoffs" o = UIManagerSetAddTearoffsMethodInfo + ResolveUIManagerMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveUIManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveUIManagerMethod "setName" o = BuildableSetNameMethodInfo + ResolveUIManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveUIManagerMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveUIManagerMethod t UIManager, MethodInfo info UIManager p) => IsLabelProxy t (UIManager -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveUIManagerMethod t UIManager, MethodInfo info UIManager p) => IsLabel t (UIManager -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal UIManager::actions-changed type UIManagerActionsChangedCallback = IO () @@ -489,7 +567,7 @@ type AttrSetTypeConstraint UIManagerAddTearoffsPropertyInfo = (~) Bool type AttrBaseTypeConstraint UIManagerAddTearoffsPropertyInfo = UIManagerK type AttrGetType UIManagerAddTearoffsPropertyInfo = Bool - type AttrLabel UIManagerAddTearoffsPropertyInfo = "UIManager::add-tearoffs" + type AttrLabel UIManagerAddTearoffsPropertyInfo = "add-tearoffs" attrGet _ = getUIManagerAddTearoffs attrSet _ = setUIManagerAddTearoffs attrConstruct _ = constructUIManagerAddTearoffs @@ -507,13 +585,13 @@ type AttrSetTypeConstraint UIManagerUiPropertyInfo = (~) () type AttrBaseTypeConstraint UIManagerUiPropertyInfo = UIManagerK type AttrGetType UIManagerUiPropertyInfo = T.Text - type AttrLabel UIManagerUiPropertyInfo = "UIManager::ui" + type AttrLabel UIManagerUiPropertyInfo = "ui" attrGet _ = getUIManagerUi attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList UIManager = UIManagerAttributeList -type UIManagerAttributeList = ('[ '("add-tearoffs", UIManagerAddTearoffsPropertyInfo), '("ui", UIManagerUiPropertyInfo)] :: [(Symbol, *)]) +type UIManagerAttributeList = ('[ '("addTearoffs", UIManagerAddTearoffsPropertyInfo), '("ui", UIManagerUiPropertyInfo)] :: [(Symbol, *)]) data UIManagerActionsChangedSignalInfo instance SignalInfo UIManagerActionsChangedSignalInfo where @@ -546,13 +624,12 @@ connectSignal _ = connectUIManagerPreActivate type instance SignalList UIManager = UIManagerSignalList -type UIManagerSignalList = ('[ '("actions-changed", UIManagerActionsChangedSignalInfo), '("add-widget", UIManagerAddWidgetSignalInfo), '("connect-proxy", UIManagerConnectProxySignalInfo), '("disconnect-proxy", UIManagerDisconnectProxySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("post-activate", UIManagerPostActivateSignalInfo), '("pre-activate", UIManagerPreActivateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type UIManagerSignalList = ('[ '("actionsChanged", UIManagerActionsChangedSignalInfo), '("addWidget", UIManagerAddWidgetSignalInfo), '("connectProxy", UIManagerConnectProxySignalInfo), '("disconnectProxy", UIManagerDisconnectProxySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("postActivate", UIManagerPostActivateSignalInfo), '("preActivate", UIManagerPreActivateSignalInfo)] :: [(Symbol, *)]) -- method UIManager::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "UIManager" -- throws : False -- Skip return : False @@ -563,7 +640,7 @@ {-# DEPRECATED uIManagerNew ["(Since version 3.10)"]#-} uIManagerNew :: (MonadIO m) => - m UIManager + m UIManager -- result uIManagerNew = liftIO $ do result <- gtk_ui_manager_new checkUnexpectedReturnNULL "gtk_ui_manager_new" result @@ -572,9 +649,8 @@ -- method UIManager::add_ui -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -592,15 +668,15 @@ {-# DEPRECATED uIManagerAddUi ["(Since version 3.10)"]#-} uIManagerAddUi :: (MonadIO m, UIManagerK a) => - a -> -- _obj - Word32 -> -- merge_id - T.Text -> -- path - T.Text -> -- name - Maybe (T.Text) -> -- action - [UIManagerItemType] -> -- type - Bool -> -- top - m () -uIManagerAddUi _obj merge_id path name action type_ top = liftIO $ do + a -- _obj + -> Word32 -- mergeId + -> T.Text -- path + -> T.Text -- name + -> Maybe (T.Text) -- action + -> [UIManagerItemType] -- type_ + -> Bool -- top + -> m () -- result +uIManagerAddUi _obj mergeId path name action type_ top = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path' <- textToCString path name' <- textToCString name @@ -611,18 +687,21 @@ return jAction' let type_' = gflagsToWord type_ let top' = (fromIntegral . fromEnum) top - gtk_ui_manager_add_ui _obj' merge_id path' name' maybeAction type_' top' + gtk_ui_manager_add_ui _obj' mergeId path' name' maybeAction type_' top' touchManagedPtr _obj freeMem path' freeMem name' freeMem maybeAction return () +data UIManagerAddUiMethodInfo +instance (signature ~ (Word32 -> T.Text -> T.Text -> Maybe (T.Text) -> [UIManagerItemType] -> Bool -> m ()), MonadIO m, UIManagerK a) => MethodInfo UIManagerAddUiMethodInfo a signature where + overloadedMethod _ = uIManagerAddUi + -- method UIManager::add_ui_from_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : True -- Skip return : False @@ -636,9 +715,9 @@ {-# DEPRECATED uIManagerAddUiFromFile ["(Since version 3.10)"]#-} uIManagerAddUiFromFile :: (MonadIO m, UIManagerK a) => - a -> -- _obj - [Char] -> -- filename - m Word32 + a -- _obj + -> [Char] -- filename + -> m Word32 -- result uIManagerAddUiFromFile _obj filename = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj filename' <- stringToCString filename @@ -651,11 +730,14 @@ freeMem filename' ) +data UIManagerAddUiFromFileMethodInfo +instance (signature ~ ([Char] -> m Word32), MonadIO m, UIManagerK a) => MethodInfo UIManagerAddUiFromFileMethodInfo a signature where + overloadedMethod _ = uIManagerAddUiFromFile + -- method UIManager::add_ui_from_resource -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : True -- Skip return : False @@ -669,26 +751,29 @@ {-# DEPRECATED uIManagerAddUiFromResource ["(Since version 3.10)"]#-} uIManagerAddUiFromResource :: (MonadIO m, UIManagerK a) => - a -> -- _obj - T.Text -> -- resource_path - m Word32 -uIManagerAddUiFromResource _obj resource_path = liftIO $ do + a -- _obj + -> T.Text -- resourcePath + -> m Word32 -- result +uIManagerAddUiFromResource _obj resourcePath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - resource_path' <- textToCString resource_path + resourcePath' <- textToCString resourcePath onException (do - result <- propagateGError $ gtk_ui_manager_add_ui_from_resource _obj' resource_path' + result <- propagateGError $ gtk_ui_manager_add_ui_from_resource _obj' resourcePath' touchManagedPtr _obj - freeMem resource_path' + freeMem resourcePath' return result ) (do - freeMem resource_path' + freeMem resourcePath' ) +data UIManagerAddUiFromResourceMethodInfo +instance (signature ~ (T.Text -> m Word32), MonadIO m, UIManagerK a) => MethodInfo UIManagerAddUiFromResourceMethodInfo a signature where + overloadedMethod _ = uIManagerAddUiFromResource + -- method UIManager::add_ui_from_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : True -- Skip return : False @@ -703,10 +788,10 @@ {-# DEPRECATED uIManagerAddUiFromString ["(Since version 3.10)"]#-} uIManagerAddUiFromString :: (MonadIO m, UIManagerK a) => - a -> -- _obj - T.Text -> -- buffer - Int64 -> -- length - m Word32 + a -- _obj + -> T.Text -- buffer + -> Int64 -- length_ + -> m Word32 -- result uIManagerAddUiFromString _obj buffer length_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj buffer' <- textToCString buffer @@ -719,11 +804,14 @@ freeMem buffer' ) +data UIManagerAddUiFromStringMethodInfo +instance (signature ~ (T.Text -> Int64 -> m Word32), MonadIO m, UIManagerK a) => MethodInfo UIManagerAddUiFromStringMethodInfo a signature where + overloadedMethod _ = uIManagerAddUiFromString + -- method UIManager::ensure_update -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -735,19 +823,22 @@ {-# DEPRECATED uIManagerEnsureUpdate ["(Since version 3.10)"]#-} uIManagerEnsureUpdate :: (MonadIO m, UIManagerK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result uIManagerEnsureUpdate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_ui_manager_ensure_update _obj' touchManagedPtr _obj return () +data UIManagerEnsureUpdateMethodInfo +instance (signature ~ (m ()), MonadIO m, UIManagerK a) => MethodInfo UIManagerEnsureUpdateMethodInfo a signature where + overloadedMethod _ = uIManagerEnsureUpdate + -- method UIManager::get_accel_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "AccelGroup" -- throws : False -- Skip return : False @@ -759,8 +850,8 @@ {-# DEPRECATED uIManagerGetAccelGroup ["(Since version 3.10)"]#-} uIManagerGetAccelGroup :: (MonadIO m, UIManagerK a) => - a -> -- _obj - m AccelGroup + a -- _obj + -> m AccelGroup -- result uIManagerGetAccelGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_ui_manager_get_accel_group _obj' @@ -769,11 +860,14 @@ touchManagedPtr _obj return result' +data UIManagerGetAccelGroupMethodInfo +instance (signature ~ (m AccelGroup), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetAccelGroupMethodInfo a signature where + overloadedMethod _ = uIManagerGetAccelGroup + -- method UIManager::get_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Action" -- throws : False -- Skip return : False @@ -786,9 +880,9 @@ {-# DEPRECATED uIManagerGetAction ["(Since version 3.10)"]#-} uIManagerGetAction :: (MonadIO m, UIManagerK a) => - a -> -- _obj - T.Text -> -- path - m Action + a -- _obj + -> T.Text -- path + -> m Action -- result uIManagerGetAction _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path' <- textToCString path @@ -799,11 +893,14 @@ freeMem path' return result' +data UIManagerGetActionMethodInfo +instance (signature ~ (T.Text -> m Action), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetActionMethodInfo a signature where + overloadedMethod _ = uIManagerGetAction + -- method UIManager::get_action_groups -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "ActionGroup") -- throws : False -- Skip return : False @@ -815,8 +912,8 @@ {-# DEPRECATED uIManagerGetActionGroups ["(Since version 3.10)"]#-} uIManagerGetActionGroups :: (MonadIO m, UIManagerK a) => - a -> -- _obj - m [ActionGroup] + a -- _obj + -> m [ActionGroup] -- result uIManagerGetActionGroups _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_ui_manager_get_action_groups _obj' @@ -826,11 +923,14 @@ touchManagedPtr _obj return result'' +data UIManagerGetActionGroupsMethodInfo +instance (signature ~ (m [ActionGroup]), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetActionGroupsMethodInfo a signature where + overloadedMethod _ = uIManagerGetActionGroups + -- method UIManager::get_add_tearoffs -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -842,8 +942,8 @@ {-# DEPRECATED uIManagerGetAddTearoffs ["(Since version 3.4)","Tearoff menus are deprecated and should not"," be used in newly written code."]#-} uIManagerGetAddTearoffs :: (MonadIO m, UIManagerK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result uIManagerGetAddTearoffs _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_ui_manager_get_add_tearoffs _obj' @@ -851,11 +951,14 @@ touchManagedPtr _obj return result' +data UIManagerGetAddTearoffsMethodInfo +instance (signature ~ (m Bool), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetAddTearoffsMethodInfo a signature where + overloadedMethod _ = uIManagerGetAddTearoffs + -- method UIManager::get_toplevels -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -868,9 +971,9 @@ {-# DEPRECATED uIManagerGetToplevels ["(Since version 3.10)"]#-} uIManagerGetToplevels :: (MonadIO m, UIManagerK a) => - a -> -- _obj - [UIManagerItemType] -> -- types - m [Widget] + a -- _obj + -> [UIManagerItemType] -- types + -> m [Widget] -- result uIManagerGetToplevels _obj types = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let types' = gflagsToWord types @@ -882,11 +985,14 @@ touchManagedPtr _obj return result'' +data UIManagerGetToplevelsMethodInfo +instance (signature ~ ([UIManagerItemType] -> m [Widget]), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetToplevelsMethodInfo a signature where + overloadedMethod _ = uIManagerGetToplevels + -- method UIManager::get_ui -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -898,8 +1004,8 @@ {-# DEPRECATED uIManagerGetUi ["(Since version 3.10)"]#-} uIManagerGetUi :: (MonadIO m, UIManagerK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result uIManagerGetUi _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_ui_manager_get_ui _obj' @@ -909,11 +1015,14 @@ touchManagedPtr _obj return result' +data UIManagerGetUiMethodInfo +instance (signature ~ (m T.Text), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetUiMethodInfo a signature where + overloadedMethod _ = uIManagerGetUi + -- method UIManager::get_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -926,9 +1035,9 @@ {-# DEPRECATED uIManagerGetWidget ["(Since version 3.10)"]#-} uIManagerGetWidget :: (MonadIO m, UIManagerK a) => - a -> -- _obj - T.Text -> -- path - m Widget + a -- _obj + -> T.Text -- path + -> m Widget -- result uIManagerGetWidget _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path' <- textToCString path @@ -939,11 +1048,14 @@ freeMem path' return result' +data UIManagerGetWidgetMethodInfo +instance (signature ~ (T.Text -> m Widget), MonadIO m, UIManagerK a) => MethodInfo UIManagerGetWidgetMethodInfo a signature where + overloadedMethod _ = uIManagerGetWidget + -- method UIManager::insert_action_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -957,23 +1069,26 @@ {-# DEPRECATED uIManagerInsertActionGroup ["(Since version 3.10)"]#-} uIManagerInsertActionGroup :: (MonadIO m, UIManagerK a, ActionGroupK b) => - a -> -- _obj - b -> -- action_group - Int32 -> -- pos - m () -uIManagerInsertActionGroup _obj action_group pos = liftIO $ do + a -- _obj + -> b -- actionGroup + -> Int32 -- pos + -> m () -- result +uIManagerInsertActionGroup _obj actionGroup pos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let action_group' = unsafeManagedPtrCastPtr action_group - gtk_ui_manager_insert_action_group _obj' action_group' pos + let actionGroup' = unsafeManagedPtrCastPtr actionGroup + gtk_ui_manager_insert_action_group _obj' actionGroup' pos touchManagedPtr _obj - touchManagedPtr action_group + touchManagedPtr actionGroup return () +data UIManagerInsertActionGroupMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, UIManagerK a, ActionGroupK b) => MethodInfo UIManagerInsertActionGroupMethodInfo a signature where + overloadedMethod _ = uIManagerInsertActionGroup + -- method UIManager::new_merge_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -985,19 +1100,22 @@ {-# DEPRECATED uIManagerNewMergeId ["(Since version 3.10)"]#-} uIManagerNewMergeId :: (MonadIO m, UIManagerK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result uIManagerNewMergeId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_ui_manager_new_merge_id _obj' touchManagedPtr _obj return result +data UIManagerNewMergeIdMethodInfo +instance (signature ~ (m Word32), MonadIO m, UIManagerK a) => MethodInfo UIManagerNewMergeIdMethodInfo a signature where + overloadedMethod _ = uIManagerNewMergeId + -- method UIManager::remove_action_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1010,22 +1128,25 @@ {-# DEPRECATED uIManagerRemoveActionGroup ["(Since version 3.10)"]#-} uIManagerRemoveActionGroup :: (MonadIO m, UIManagerK a, ActionGroupK b) => - a -> -- _obj - b -> -- action_group - m () -uIManagerRemoveActionGroup _obj action_group = liftIO $ do + a -- _obj + -> b -- actionGroup + -> m () -- result +uIManagerRemoveActionGroup _obj actionGroup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let action_group' = unsafeManagedPtrCastPtr action_group - gtk_ui_manager_remove_action_group _obj' action_group' + let actionGroup' = unsafeManagedPtrCastPtr actionGroup + gtk_ui_manager_remove_action_group _obj' actionGroup' touchManagedPtr _obj - touchManagedPtr action_group + touchManagedPtr actionGroup return () +data UIManagerRemoveActionGroupMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, UIManagerK a, ActionGroupK b) => MethodInfo UIManagerRemoveActionGroupMethodInfo a signature where + overloadedMethod _ = uIManagerRemoveActionGroup + -- method UIManager::remove_ui -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1038,20 +1159,23 @@ {-# DEPRECATED uIManagerRemoveUi ["(Since version 3.10)"]#-} uIManagerRemoveUi :: (MonadIO m, UIManagerK a) => - a -> -- _obj - Word32 -> -- merge_id - m () -uIManagerRemoveUi _obj merge_id = liftIO $ do + a -- _obj + -> Word32 -- mergeId + -> m () -- result +uIManagerRemoveUi _obj mergeId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_ui_manager_remove_ui _obj' merge_id + gtk_ui_manager_remove_ui _obj' mergeId touchManagedPtr _obj return () +data UIManagerRemoveUiMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, UIManagerK a) => MethodInfo UIManagerRemoveUiMethodInfo a signature where + overloadedMethod _ = uIManagerRemoveUi + -- method UIManager::set_add_tearoffs -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1064,14 +1188,18 @@ {-# DEPRECATED uIManagerSetAddTearoffs ["(Since version 3.4)","Tearoff menus are deprecated and should not"," be used in newly written code."]#-} uIManagerSetAddTearoffs :: (MonadIO m, UIManagerK a) => - a -> -- _obj - Bool -> -- add_tearoffs - m () -uIManagerSetAddTearoffs _obj add_tearoffs = liftIO $ do + a -- _obj + -> Bool -- addTearoffs + -> m () -- result +uIManagerSetAddTearoffs _obj addTearoffs = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let add_tearoffs' = (fromIntegral . fromEnum) add_tearoffs - gtk_ui_manager_set_add_tearoffs _obj' add_tearoffs' + let addTearoffs' = (fromIntegral . fromEnum) addTearoffs + gtk_ui_manager_set_add_tearoffs _obj' addTearoffs' touchManagedPtr _obj return () + +data UIManagerSetAddTearoffsMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, UIManagerK a) => MethodInfo UIManagerSetAddTearoffsMethodInfo a signature where + overloadedMethod _ = uIManagerSetAddTearoffs diff --git a/GI/Gtk/Objects/UIManager.hs-boot b/GI/Gtk/Objects/UIManager.hs-boot --- a/GI/Gtk/Objects/UIManager.hs-boot +++ b/GI/Gtk/Objects/UIManager.hs-boot @@ -19,3 +19,20 @@ data UIManagerDisconnectProxySignalInfo data UIManagerPostActivateSignalInfo data UIManagerPreActivateSignalInfo +data UIManagerAddUiMethodInfo +data UIManagerAddUiFromFileMethodInfo +data UIManagerAddUiFromResourceMethodInfo +data UIManagerAddUiFromStringMethodInfo +data UIManagerEnsureUpdateMethodInfo +data UIManagerGetAccelGroupMethodInfo +data UIManagerGetActionMethodInfo +data UIManagerGetActionGroupsMethodInfo +data UIManagerGetAddTearoffsMethodInfo +data UIManagerGetToplevelsMethodInfo +data UIManagerGetUiMethodInfo +data UIManagerGetWidgetMethodInfo +data UIManagerInsertActionGroupMethodInfo +data UIManagerNewMergeIdMethodInfo +data UIManagerRemoveActionGroupMethodInfo +data UIManagerRemoveUiMethodInfo +data UIManagerSetAddTearoffsMethodInfo diff --git a/GI/Gtk/Objects/VBox.hs b/GI/Gtk/Objects/VBox.hs --- a/GI/Gtk/Objects/VBox.hs +++ b/GI/Gtk/Objects/VBox.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,353 @@ noVBox :: Maybe VBox noVBox = Nothing +type family ResolveVBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveVBoxMethod "activate" o = WidgetActivateMethodInfo + ResolveVBoxMethod "add" o = ContainerAddMethodInfo + ResolveVBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveVBoxMethod "addChild" o = BuildableAddChildMethodInfo + ResolveVBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveVBoxMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveVBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveVBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveVBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveVBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveVBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveVBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveVBoxMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveVBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveVBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveVBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveVBoxMethod "childType" o = ContainerChildTypeMethodInfo + ResolveVBoxMethod "classPath" o = WidgetClassPathMethodInfo + ResolveVBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveVBoxMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveVBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveVBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveVBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveVBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveVBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveVBoxMethod "destroy" o = WidgetDestroyMethodInfo + ResolveVBoxMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveVBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveVBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveVBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveVBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveVBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveVBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveVBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveVBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveVBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveVBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveVBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveVBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveVBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveVBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveVBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveVBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveVBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveVBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveVBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveVBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveVBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveVBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveVBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveVBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveVBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveVBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveVBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveVBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveVBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveVBoxMethod "draw" o = WidgetDrawMethodInfo + ResolveVBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveVBoxMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveVBoxMethod "event" o = WidgetEventMethodInfo + ResolveVBoxMethod "forall" o = ContainerForallMethodInfo + ResolveVBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveVBoxMethod "foreach" o = ContainerForeachMethodInfo + ResolveVBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveVBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveVBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveVBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveVBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveVBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveVBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveVBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveVBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveVBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveVBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveVBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveVBoxMethod "hide" o = WidgetHideMethodInfo + ResolveVBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveVBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveVBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveVBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveVBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveVBoxMethod "intersect" o = WidgetIntersectMethodInfo + ResolveVBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveVBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveVBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveVBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveVBoxMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveVBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveVBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveVBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveVBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveVBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveVBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveVBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveVBoxMethod "map" o = WidgetMapMethodInfo + ResolveVBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveVBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveVBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveVBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveVBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveVBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveVBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveVBoxMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveVBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveVBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveVBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveVBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveVBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveVBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveVBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveVBoxMethod "packEnd" o = BoxPackEndMethodInfo + ResolveVBoxMethod "packStart" o = BoxPackStartMethodInfo + ResolveVBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveVBoxMethod "path" o = WidgetPathMethodInfo + ResolveVBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveVBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveVBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveVBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveVBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveVBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveVBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveVBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveVBoxMethod "realize" o = WidgetRealizeMethodInfo + ResolveVBoxMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveVBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveVBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveVBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveVBoxMethod "remove" o = ContainerRemoveMethodInfo + ResolveVBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveVBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveVBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveVBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveVBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveVBoxMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveVBoxMethod "reparent" o = WidgetReparentMethodInfo + ResolveVBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveVBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveVBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveVBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveVBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveVBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveVBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveVBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveVBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveVBoxMethod "show" o = WidgetShowMethodInfo + ResolveVBoxMethod "showAll" o = WidgetShowAllMethodInfo + ResolveVBoxMethod "showNow" o = WidgetShowNowMethodInfo + ResolveVBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveVBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveVBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveVBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveVBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveVBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveVBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveVBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveVBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveVBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveVBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveVBoxMethod "unmap" o = WidgetUnmapMethodInfo + ResolveVBoxMethod "unparent" o = WidgetUnparentMethodInfo + ResolveVBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveVBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveVBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveVBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveVBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveVBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveVBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveVBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveVBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveVBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveVBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveVBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveVBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveVBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveVBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveVBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveVBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveVBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveVBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveVBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveVBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveVBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveVBoxMethod "getClip" o = WidgetGetClipMethodInfo + ResolveVBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveVBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveVBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveVBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveVBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveVBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveVBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveVBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveVBoxMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveVBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveVBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveVBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveVBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveVBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveVBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveVBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveVBoxMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveVBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveVBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveVBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveVBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveVBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveVBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveVBoxMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveVBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveVBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveVBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveVBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveVBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveVBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveVBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveVBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveVBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveVBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveVBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveVBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveVBoxMethod "getParent" o = WidgetGetParentMethodInfo + ResolveVBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveVBoxMethod "getPath" o = WidgetGetPathMethodInfo + ResolveVBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveVBoxMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveVBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveVBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveVBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveVBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveVBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveVBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveVBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveVBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveVBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveVBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveVBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveVBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveVBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveVBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveVBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveVBoxMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveVBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveVBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveVBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveVBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveVBoxMethod "getState" o = WidgetGetStateMethodInfo + ResolveVBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveVBoxMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveVBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveVBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveVBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveVBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveVBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveVBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveVBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveVBoxMethod "getValign" o = WidgetGetValignMethodInfo + ResolveVBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveVBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveVBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveVBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveVBoxMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveVBoxMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveVBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveVBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveVBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveVBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveVBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveVBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveVBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveVBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveVBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveVBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveVBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveVBoxMethod "setClip" o = WidgetSetClipMethodInfo + ResolveVBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveVBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveVBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveVBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveVBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveVBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveVBoxMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveVBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveVBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveVBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveVBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveVBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveVBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveVBoxMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveVBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveVBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveVBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveVBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveVBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveVBoxMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveVBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveVBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveVBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveVBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveVBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveVBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveVBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveVBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveVBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveVBoxMethod "setParent" o = WidgetSetParentMethodInfo + ResolveVBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveVBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveVBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveVBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveVBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveVBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveVBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveVBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveVBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveVBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveVBoxMethod "setState" o = WidgetSetStateMethodInfo + ResolveVBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveVBoxMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveVBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveVBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveVBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveVBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveVBoxMethod "setValign" o = WidgetSetValignMethodInfo + ResolveVBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveVBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveVBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveVBoxMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveVBoxMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveVBoxMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveVBoxMethod t VBox, MethodInfo info VBox p) => IsLabelProxy t (VBox -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveVBoxMethod t VBox, MethodInfo info VBox p) => IsLabel t (VBox -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList VBox = VBoxAttributeList -type VBoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type VBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList VBox = VBoxSignalList -type VBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type VBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method VBox::new -- method type : Constructor --- Args : [Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "VBox" -- throws : False -- Skip return : False @@ -80,9 +417,9 @@ {-# DEPRECATED vBoxNew ["(Since version 3.2)","You can use gtk_box_new() with %GTK_ORIENTATION_VERTICAL instead,"," which is a quick and easy change. But the recommendation is to switch to"," #GtkGrid, since #GtkBox is going to go away eventually."," See [Migrating from other containers to GtkGrid][gtk-migrating-GtkGrid]."]#-} vBoxNew :: (MonadIO m) => - Bool -> -- homogeneous - Int32 -> -- spacing - m VBox + Bool -- homogeneous + -> Int32 -- spacing + -> m VBox -- result vBoxNew homogeneous spacing = liftIO $ do let homogeneous' = (fromIntegral . fromEnum) homogeneous result <- gtk_vbox_new homogeneous' spacing diff --git a/GI/Gtk/Objects/VButtonBox.hs b/GI/Gtk/Objects/VButtonBox.hs --- a/GI/Gtk/Objects/VButtonBox.hs +++ b/GI/Gtk/Objects/VButtonBox.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,359 @@ noVButtonBox :: Maybe VButtonBox noVButtonBox = Nothing +type family ResolveVButtonBoxMethod (t :: Symbol) (o :: *) :: * where + ResolveVButtonBoxMethod "activate" o = WidgetActivateMethodInfo + ResolveVButtonBoxMethod "add" o = ContainerAddMethodInfo + ResolveVButtonBoxMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveVButtonBoxMethod "addChild" o = BuildableAddChildMethodInfo + ResolveVButtonBoxMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveVButtonBoxMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveVButtonBoxMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveVButtonBoxMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveVButtonBoxMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveVButtonBoxMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveVButtonBoxMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveVButtonBoxMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveVButtonBoxMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveVButtonBoxMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveVButtonBoxMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveVButtonBoxMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveVButtonBoxMethod "childType" o = ContainerChildTypeMethodInfo + ResolveVButtonBoxMethod "classPath" o = WidgetClassPathMethodInfo + ResolveVButtonBoxMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveVButtonBoxMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveVButtonBoxMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveVButtonBoxMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveVButtonBoxMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveVButtonBoxMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveVButtonBoxMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveVButtonBoxMethod "destroy" o = WidgetDestroyMethodInfo + ResolveVButtonBoxMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveVButtonBoxMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveVButtonBoxMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveVButtonBoxMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveVButtonBoxMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveVButtonBoxMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveVButtonBoxMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveVButtonBoxMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveVButtonBoxMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveVButtonBoxMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveVButtonBoxMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveVButtonBoxMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveVButtonBoxMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveVButtonBoxMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveVButtonBoxMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveVButtonBoxMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveVButtonBoxMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveVButtonBoxMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveVButtonBoxMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveVButtonBoxMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveVButtonBoxMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveVButtonBoxMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveVButtonBoxMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveVButtonBoxMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveVButtonBoxMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveVButtonBoxMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveVButtonBoxMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveVButtonBoxMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveVButtonBoxMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveVButtonBoxMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveVButtonBoxMethod "draw" o = WidgetDrawMethodInfo + ResolveVButtonBoxMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveVButtonBoxMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveVButtonBoxMethod "event" o = WidgetEventMethodInfo + ResolveVButtonBoxMethod "forall" o = ContainerForallMethodInfo + ResolveVButtonBoxMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveVButtonBoxMethod "foreach" o = ContainerForeachMethodInfo + ResolveVButtonBoxMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveVButtonBoxMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveVButtonBoxMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveVButtonBoxMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveVButtonBoxMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveVButtonBoxMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveVButtonBoxMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveVButtonBoxMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveVButtonBoxMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveVButtonBoxMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveVButtonBoxMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveVButtonBoxMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveVButtonBoxMethod "hide" o = WidgetHideMethodInfo + ResolveVButtonBoxMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveVButtonBoxMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveVButtonBoxMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveVButtonBoxMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveVButtonBoxMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveVButtonBoxMethod "intersect" o = WidgetIntersectMethodInfo + ResolveVButtonBoxMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveVButtonBoxMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveVButtonBoxMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveVButtonBoxMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveVButtonBoxMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveVButtonBoxMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveVButtonBoxMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveVButtonBoxMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveVButtonBoxMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveVButtonBoxMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveVButtonBoxMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveVButtonBoxMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveVButtonBoxMethod "map" o = WidgetMapMethodInfo + ResolveVButtonBoxMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveVButtonBoxMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveVButtonBoxMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveVButtonBoxMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveVButtonBoxMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveVButtonBoxMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveVButtonBoxMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveVButtonBoxMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveVButtonBoxMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveVButtonBoxMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveVButtonBoxMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveVButtonBoxMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveVButtonBoxMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveVButtonBoxMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveVButtonBoxMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveVButtonBoxMethod "packEnd" o = BoxPackEndMethodInfo + ResolveVButtonBoxMethod "packStart" o = BoxPackStartMethodInfo + ResolveVButtonBoxMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveVButtonBoxMethod "path" o = WidgetPathMethodInfo + ResolveVButtonBoxMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveVButtonBoxMethod "queryChildPacking" o = BoxQueryChildPackingMethodInfo + ResolveVButtonBoxMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveVButtonBoxMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveVButtonBoxMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveVButtonBoxMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveVButtonBoxMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveVButtonBoxMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveVButtonBoxMethod "realize" o = WidgetRealizeMethodInfo + ResolveVButtonBoxMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveVButtonBoxMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveVButtonBoxMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveVButtonBoxMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveVButtonBoxMethod "remove" o = ContainerRemoveMethodInfo + ResolveVButtonBoxMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveVButtonBoxMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveVButtonBoxMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveVButtonBoxMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveVButtonBoxMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveVButtonBoxMethod "reorderChild" o = BoxReorderChildMethodInfo + ResolveVButtonBoxMethod "reparent" o = WidgetReparentMethodInfo + ResolveVButtonBoxMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveVButtonBoxMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveVButtonBoxMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveVButtonBoxMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveVButtonBoxMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveVButtonBoxMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveVButtonBoxMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveVButtonBoxMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveVButtonBoxMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveVButtonBoxMethod "show" o = WidgetShowMethodInfo + ResolveVButtonBoxMethod "showAll" o = WidgetShowAllMethodInfo + ResolveVButtonBoxMethod "showNow" o = WidgetShowNowMethodInfo + ResolveVButtonBoxMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveVButtonBoxMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveVButtonBoxMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveVButtonBoxMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveVButtonBoxMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveVButtonBoxMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveVButtonBoxMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveVButtonBoxMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveVButtonBoxMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveVButtonBoxMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveVButtonBoxMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveVButtonBoxMethod "unmap" o = WidgetUnmapMethodInfo + ResolveVButtonBoxMethod "unparent" o = WidgetUnparentMethodInfo + ResolveVButtonBoxMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveVButtonBoxMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveVButtonBoxMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveVButtonBoxMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveVButtonBoxMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveVButtonBoxMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveVButtonBoxMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveVButtonBoxMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveVButtonBoxMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveVButtonBoxMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveVButtonBoxMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveVButtonBoxMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveVButtonBoxMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveVButtonBoxMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveVButtonBoxMethod "getBaselinePosition" o = BoxGetBaselinePositionMethodInfo + ResolveVButtonBoxMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveVButtonBoxMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveVButtonBoxMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveVButtonBoxMethod "getCenterWidget" o = BoxGetCenterWidgetMethodInfo + ResolveVButtonBoxMethod "getChildNonHomogeneous" o = ButtonBoxGetChildNonHomogeneousMethodInfo + ResolveVButtonBoxMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveVButtonBoxMethod "getChildSecondary" o = ButtonBoxGetChildSecondaryMethodInfo + ResolveVButtonBoxMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveVButtonBoxMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveVButtonBoxMethod "getClip" o = WidgetGetClipMethodInfo + ResolveVButtonBoxMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveVButtonBoxMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveVButtonBoxMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveVButtonBoxMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveVButtonBoxMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveVButtonBoxMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveVButtonBoxMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveVButtonBoxMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveVButtonBoxMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveVButtonBoxMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveVButtonBoxMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveVButtonBoxMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveVButtonBoxMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveVButtonBoxMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveVButtonBoxMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveVButtonBoxMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveVButtonBoxMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveVButtonBoxMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveVButtonBoxMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveVButtonBoxMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveVButtonBoxMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveVButtonBoxMethod "getHomogeneous" o = BoxGetHomogeneousMethodInfo + ResolveVButtonBoxMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveVButtonBoxMethod "getLayout" o = ButtonBoxGetLayoutMethodInfo + ResolveVButtonBoxMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveVButtonBoxMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveVButtonBoxMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveVButtonBoxMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveVButtonBoxMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveVButtonBoxMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveVButtonBoxMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveVButtonBoxMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveVButtonBoxMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveVButtonBoxMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveVButtonBoxMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveVButtonBoxMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveVButtonBoxMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveVButtonBoxMethod "getParent" o = WidgetGetParentMethodInfo + ResolveVButtonBoxMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveVButtonBoxMethod "getPath" o = WidgetGetPathMethodInfo + ResolveVButtonBoxMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveVButtonBoxMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveVButtonBoxMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveVButtonBoxMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveVButtonBoxMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveVButtonBoxMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveVButtonBoxMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveVButtonBoxMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveVButtonBoxMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveVButtonBoxMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveVButtonBoxMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveVButtonBoxMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveVButtonBoxMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveVButtonBoxMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveVButtonBoxMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveVButtonBoxMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveVButtonBoxMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveVButtonBoxMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveVButtonBoxMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveVButtonBoxMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveVButtonBoxMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveVButtonBoxMethod "getSpacing" o = BoxGetSpacingMethodInfo + ResolveVButtonBoxMethod "getState" o = WidgetGetStateMethodInfo + ResolveVButtonBoxMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveVButtonBoxMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveVButtonBoxMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveVButtonBoxMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveVButtonBoxMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveVButtonBoxMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveVButtonBoxMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveVButtonBoxMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveVButtonBoxMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveVButtonBoxMethod "getValign" o = WidgetGetValignMethodInfo + ResolveVButtonBoxMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveVButtonBoxMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveVButtonBoxMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveVButtonBoxMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveVButtonBoxMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveVButtonBoxMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveVButtonBoxMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveVButtonBoxMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveVButtonBoxMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveVButtonBoxMethod "setBaselinePosition" o = BoxSetBaselinePositionMethodInfo + ResolveVButtonBoxMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveVButtonBoxMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveVButtonBoxMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveVButtonBoxMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveVButtonBoxMethod "setCenterWidget" o = BoxSetCenterWidgetMethodInfo + ResolveVButtonBoxMethod "setChildNonHomogeneous" o = ButtonBoxSetChildNonHomogeneousMethodInfo + ResolveVButtonBoxMethod "setChildPacking" o = BoxSetChildPackingMethodInfo + ResolveVButtonBoxMethod "setChildSecondary" o = ButtonBoxSetChildSecondaryMethodInfo + ResolveVButtonBoxMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveVButtonBoxMethod "setClip" o = WidgetSetClipMethodInfo + ResolveVButtonBoxMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveVButtonBoxMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveVButtonBoxMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveVButtonBoxMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveVButtonBoxMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveVButtonBoxMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveVButtonBoxMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveVButtonBoxMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveVButtonBoxMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveVButtonBoxMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveVButtonBoxMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveVButtonBoxMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveVButtonBoxMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveVButtonBoxMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveVButtonBoxMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveVButtonBoxMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveVButtonBoxMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveVButtonBoxMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveVButtonBoxMethod "setHomogeneous" o = BoxSetHomogeneousMethodInfo + ResolveVButtonBoxMethod "setLayout" o = ButtonBoxSetLayoutMethodInfo + ResolveVButtonBoxMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveVButtonBoxMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveVButtonBoxMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveVButtonBoxMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveVButtonBoxMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveVButtonBoxMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveVButtonBoxMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveVButtonBoxMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveVButtonBoxMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveVButtonBoxMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveVButtonBoxMethod "setParent" o = WidgetSetParentMethodInfo + ResolveVButtonBoxMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveVButtonBoxMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveVButtonBoxMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveVButtonBoxMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveVButtonBoxMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveVButtonBoxMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveVButtonBoxMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveVButtonBoxMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveVButtonBoxMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveVButtonBoxMethod "setSpacing" o = BoxSetSpacingMethodInfo + ResolveVButtonBoxMethod "setState" o = WidgetSetStateMethodInfo + ResolveVButtonBoxMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveVButtonBoxMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveVButtonBoxMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveVButtonBoxMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveVButtonBoxMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveVButtonBoxMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveVButtonBoxMethod "setValign" o = WidgetSetValignMethodInfo + ResolveVButtonBoxMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveVButtonBoxMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveVButtonBoxMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveVButtonBoxMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveVButtonBoxMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveVButtonBoxMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveVButtonBoxMethod t VButtonBox, MethodInfo info VButtonBox p) => IsLabelProxy t (VButtonBox -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveVButtonBoxMethod t VButtonBox, MethodInfo info VButtonBox p) => IsLabel t (VButtonBox -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList VButtonBox = VButtonBoxAttributeList -type VButtonBoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("layout-style", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type VButtonBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("layoutStyle", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList VButtonBox = VButtonBoxSignalList -type VButtonBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type VButtonBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method VButtonBox::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "VButtonBox" -- throws : False -- Skip return : False @@ -78,7 +421,7 @@ {-# DEPRECATED vButtonBoxNew ["(Since version 3.2)","Use gtk_button_box_new() with %GTK_ORIENTATION_VERTICAL instead"]#-} vButtonBoxNew :: (MonadIO m) => - m VButtonBox + m VButtonBox -- result vButtonBoxNew = liftIO $ do result <- gtk_vbutton_box_new checkUnexpectedReturnNULL "gtk_vbutton_box_new" result diff --git a/GI/Gtk/Objects/VPaned.hs b/GI/Gtk/Objects/VPaned.hs --- a/GI/Gtk/Objects/VPaned.hs +++ b/GI/Gtk/Objects/VPaned.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,351 @@ noVPaned :: Maybe VPaned noVPaned = Nothing +type family ResolveVPanedMethod (t :: Symbol) (o :: *) :: * where + ResolveVPanedMethod "activate" o = WidgetActivateMethodInfo + ResolveVPanedMethod "add" o = ContainerAddMethodInfo + ResolveVPanedMethod "add1" o = PanedAdd1MethodInfo + ResolveVPanedMethod "add2" o = PanedAdd2MethodInfo + ResolveVPanedMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveVPanedMethod "addChild" o = BuildableAddChildMethodInfo + ResolveVPanedMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveVPanedMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveVPanedMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveVPanedMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveVPanedMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveVPanedMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveVPanedMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveVPanedMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveVPanedMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveVPanedMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveVPanedMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveVPanedMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveVPanedMethod "childType" o = ContainerChildTypeMethodInfo + ResolveVPanedMethod "classPath" o = WidgetClassPathMethodInfo + ResolveVPanedMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveVPanedMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveVPanedMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveVPanedMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveVPanedMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveVPanedMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveVPanedMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveVPanedMethod "destroy" o = WidgetDestroyMethodInfo + ResolveVPanedMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveVPanedMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveVPanedMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveVPanedMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveVPanedMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveVPanedMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveVPanedMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveVPanedMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveVPanedMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveVPanedMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveVPanedMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveVPanedMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveVPanedMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveVPanedMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveVPanedMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveVPanedMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveVPanedMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveVPanedMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveVPanedMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveVPanedMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveVPanedMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveVPanedMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveVPanedMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveVPanedMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveVPanedMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveVPanedMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveVPanedMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveVPanedMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveVPanedMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveVPanedMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveVPanedMethod "draw" o = WidgetDrawMethodInfo + ResolveVPanedMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveVPanedMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveVPanedMethod "event" o = WidgetEventMethodInfo + ResolveVPanedMethod "forall" o = ContainerForallMethodInfo + ResolveVPanedMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveVPanedMethod "foreach" o = ContainerForeachMethodInfo + ResolveVPanedMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveVPanedMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveVPanedMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveVPanedMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveVPanedMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveVPanedMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveVPanedMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveVPanedMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveVPanedMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveVPanedMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveVPanedMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveVPanedMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveVPanedMethod "hide" o = WidgetHideMethodInfo + ResolveVPanedMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveVPanedMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveVPanedMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveVPanedMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveVPanedMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveVPanedMethod "intersect" o = WidgetIntersectMethodInfo + ResolveVPanedMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveVPanedMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveVPanedMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveVPanedMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveVPanedMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveVPanedMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveVPanedMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveVPanedMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveVPanedMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveVPanedMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveVPanedMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveVPanedMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveVPanedMethod "map" o = WidgetMapMethodInfo + ResolveVPanedMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveVPanedMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveVPanedMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveVPanedMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveVPanedMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveVPanedMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveVPanedMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveVPanedMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveVPanedMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveVPanedMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveVPanedMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveVPanedMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveVPanedMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveVPanedMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveVPanedMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveVPanedMethod "pack1" o = PanedPack1MethodInfo + ResolveVPanedMethod "pack2" o = PanedPack2MethodInfo + ResolveVPanedMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveVPanedMethod "path" o = WidgetPathMethodInfo + ResolveVPanedMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveVPanedMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveVPanedMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveVPanedMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveVPanedMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveVPanedMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveVPanedMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveVPanedMethod "realize" o = WidgetRealizeMethodInfo + ResolveVPanedMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveVPanedMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveVPanedMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveVPanedMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveVPanedMethod "remove" o = ContainerRemoveMethodInfo + ResolveVPanedMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveVPanedMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveVPanedMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveVPanedMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveVPanedMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveVPanedMethod "reparent" o = WidgetReparentMethodInfo + ResolveVPanedMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveVPanedMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveVPanedMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveVPanedMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveVPanedMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveVPanedMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveVPanedMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveVPanedMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveVPanedMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveVPanedMethod "show" o = WidgetShowMethodInfo + ResolveVPanedMethod "showAll" o = WidgetShowAllMethodInfo + ResolveVPanedMethod "showNow" o = WidgetShowNowMethodInfo + ResolveVPanedMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveVPanedMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveVPanedMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveVPanedMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveVPanedMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveVPanedMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveVPanedMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveVPanedMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveVPanedMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveVPanedMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveVPanedMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveVPanedMethod "unmap" o = WidgetUnmapMethodInfo + ResolveVPanedMethod "unparent" o = WidgetUnparentMethodInfo + ResolveVPanedMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveVPanedMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveVPanedMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveVPanedMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveVPanedMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveVPanedMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveVPanedMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveVPanedMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveVPanedMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveVPanedMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveVPanedMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveVPanedMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveVPanedMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveVPanedMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveVPanedMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveVPanedMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveVPanedMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveVPanedMethod "getChild1" o = PanedGetChild1MethodInfo + ResolveVPanedMethod "getChild2" o = PanedGetChild2MethodInfo + ResolveVPanedMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveVPanedMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveVPanedMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveVPanedMethod "getClip" o = WidgetGetClipMethodInfo + ResolveVPanedMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveVPanedMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveVPanedMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveVPanedMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveVPanedMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveVPanedMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveVPanedMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveVPanedMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveVPanedMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveVPanedMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveVPanedMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveVPanedMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveVPanedMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveVPanedMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveVPanedMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveVPanedMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveVPanedMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveVPanedMethod "getHandleWindow" o = PanedGetHandleWindowMethodInfo + ResolveVPanedMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveVPanedMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveVPanedMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveVPanedMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveVPanedMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveVPanedMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveVPanedMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveVPanedMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveVPanedMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveVPanedMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveVPanedMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveVPanedMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveVPanedMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveVPanedMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveVPanedMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveVPanedMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveVPanedMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveVPanedMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveVPanedMethod "getParent" o = WidgetGetParentMethodInfo + ResolveVPanedMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveVPanedMethod "getPath" o = WidgetGetPathMethodInfo + ResolveVPanedMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveVPanedMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveVPanedMethod "getPosition" o = PanedGetPositionMethodInfo + ResolveVPanedMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveVPanedMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveVPanedMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveVPanedMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveVPanedMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveVPanedMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveVPanedMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveVPanedMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveVPanedMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveVPanedMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveVPanedMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveVPanedMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveVPanedMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveVPanedMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveVPanedMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveVPanedMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveVPanedMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveVPanedMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveVPanedMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveVPanedMethod "getState" o = WidgetGetStateMethodInfo + ResolveVPanedMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveVPanedMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveVPanedMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveVPanedMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveVPanedMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveVPanedMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveVPanedMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveVPanedMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveVPanedMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveVPanedMethod "getValign" o = WidgetGetValignMethodInfo + ResolveVPanedMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveVPanedMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveVPanedMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveVPanedMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveVPanedMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveVPanedMethod "getWideHandle" o = PanedGetWideHandleMethodInfo + ResolveVPanedMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveVPanedMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveVPanedMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveVPanedMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveVPanedMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveVPanedMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveVPanedMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveVPanedMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveVPanedMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveVPanedMethod "setClip" o = WidgetSetClipMethodInfo + ResolveVPanedMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveVPanedMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveVPanedMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveVPanedMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveVPanedMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveVPanedMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveVPanedMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveVPanedMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveVPanedMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveVPanedMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveVPanedMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveVPanedMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveVPanedMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveVPanedMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveVPanedMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveVPanedMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveVPanedMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveVPanedMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveVPanedMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveVPanedMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveVPanedMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveVPanedMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveVPanedMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveVPanedMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveVPanedMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveVPanedMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveVPanedMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveVPanedMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveVPanedMethod "setParent" o = WidgetSetParentMethodInfo + ResolveVPanedMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveVPanedMethod "setPosition" o = PanedSetPositionMethodInfo + ResolveVPanedMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveVPanedMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveVPanedMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveVPanedMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveVPanedMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveVPanedMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveVPanedMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveVPanedMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveVPanedMethod "setState" o = WidgetSetStateMethodInfo + ResolveVPanedMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveVPanedMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveVPanedMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveVPanedMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveVPanedMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveVPanedMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveVPanedMethod "setValign" o = WidgetSetValignMethodInfo + ResolveVPanedMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveVPanedMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveVPanedMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveVPanedMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveVPanedMethod "setWideHandle" o = PanedSetWideHandleMethodInfo + ResolveVPanedMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveVPanedMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveVPanedMethod t VPaned, MethodInfo info VPaned p) => IsLabelProxy t (VPaned -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveVPanedMethod t VPaned, MethodInfo info VPaned p) => IsLabel t (VPaned -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList VPaned = VPanedAttributeList -type VPanedAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-position", PanedMaxPositionPropertyInfo), '("min-position", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("position-set", PanedPositionSetPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wide-handle", PanedWideHandlePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type VPanedAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxPosition", PanedMaxPositionPropertyInfo), '("minPosition", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("positionSet", PanedPositionSetPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wideHandle", PanedWideHandlePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList VPaned = VPanedSignalList -type VPanedSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("accept-position", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel-position", PanedCancelPositionSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-child-focus", PanedCycleChildFocusSignalInfo), '("cycle-handle-focus", PanedCycleHandleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-handle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-handle-focus", PanedToggleHandleFocusSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type VPanedSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("acceptPosition", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancelPosition", PanedCancelPositionSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleChildFocus", PanedCycleChildFocusSignalInfo), '("cycleHandleFocus", PanedCycleHandleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveHandle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleHandleFocus", PanedToggleHandleFocusSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method VPaned::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "VPaned" -- throws : False -- Skip return : False @@ -78,7 +413,7 @@ {-# DEPRECATED vPanedNew ["(Since version 3.2)","Use gtk_paned_new() with %GTK_ORIENTATION_VERTICAL instead"]#-} vPanedNew :: (MonadIO m) => - m VPaned + m VPaned -- result vPanedNew = liftIO $ do result <- gtk_vpaned_new checkUnexpectedReturnNULL "gtk_vpaned_new" result diff --git a/GI/Gtk/Objects/VScale.hs b/GI/Gtk/Objects/VScale.hs --- a/GI/Gtk/Objects/VScale.hs +++ b/GI/Gtk/Objects/VScale.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -61,17 +62,354 @@ noVScale :: Maybe VScale noVScale = Nothing +type family ResolveVScaleMethod (t :: Symbol) (o :: *) :: * where + ResolveVScaleMethod "activate" o = WidgetActivateMethodInfo + ResolveVScaleMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveVScaleMethod "addChild" o = BuildableAddChildMethodInfo + ResolveVScaleMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveVScaleMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveVScaleMethod "addMark" o = ScaleAddMarkMethodInfo + ResolveVScaleMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveVScaleMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveVScaleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveVScaleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveVScaleMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveVScaleMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveVScaleMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveVScaleMethod "classPath" o = WidgetClassPathMethodInfo + ResolveVScaleMethod "clearMarks" o = ScaleClearMarksMethodInfo + ResolveVScaleMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveVScaleMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveVScaleMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveVScaleMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveVScaleMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveVScaleMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveVScaleMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveVScaleMethod "destroy" o = WidgetDestroyMethodInfo + ResolveVScaleMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveVScaleMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveVScaleMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveVScaleMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveVScaleMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveVScaleMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveVScaleMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveVScaleMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveVScaleMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveVScaleMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveVScaleMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveVScaleMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveVScaleMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveVScaleMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveVScaleMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveVScaleMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveVScaleMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveVScaleMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveVScaleMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveVScaleMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveVScaleMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveVScaleMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveVScaleMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveVScaleMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveVScaleMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveVScaleMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveVScaleMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveVScaleMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveVScaleMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveVScaleMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveVScaleMethod "draw" o = WidgetDrawMethodInfo + ResolveVScaleMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveVScaleMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveVScaleMethod "event" o = WidgetEventMethodInfo + ResolveVScaleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveVScaleMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveVScaleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveVScaleMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveVScaleMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveVScaleMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveVScaleMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveVScaleMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveVScaleMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveVScaleMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveVScaleMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveVScaleMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveVScaleMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveVScaleMethod "hide" o = WidgetHideMethodInfo + ResolveVScaleMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveVScaleMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveVScaleMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveVScaleMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveVScaleMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveVScaleMethod "intersect" o = WidgetIntersectMethodInfo + ResolveVScaleMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveVScaleMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveVScaleMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveVScaleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveVScaleMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveVScaleMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveVScaleMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveVScaleMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveVScaleMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveVScaleMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveVScaleMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveVScaleMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveVScaleMethod "map" o = WidgetMapMethodInfo + ResolveVScaleMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveVScaleMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveVScaleMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveVScaleMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveVScaleMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveVScaleMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveVScaleMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveVScaleMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveVScaleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveVScaleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveVScaleMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveVScaleMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveVScaleMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveVScaleMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveVScaleMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveVScaleMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveVScaleMethod "path" o = WidgetPathMethodInfo + ResolveVScaleMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveVScaleMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveVScaleMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveVScaleMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveVScaleMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveVScaleMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveVScaleMethod "realize" o = WidgetRealizeMethodInfo + ResolveVScaleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveVScaleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveVScaleMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveVScaleMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveVScaleMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveVScaleMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveVScaleMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveVScaleMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveVScaleMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveVScaleMethod "reparent" o = WidgetReparentMethodInfo + ResolveVScaleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveVScaleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveVScaleMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveVScaleMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveVScaleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveVScaleMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveVScaleMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveVScaleMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveVScaleMethod "show" o = WidgetShowMethodInfo + ResolveVScaleMethod "showAll" o = WidgetShowAllMethodInfo + ResolveVScaleMethod "showNow" o = WidgetShowNowMethodInfo + ResolveVScaleMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveVScaleMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveVScaleMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveVScaleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveVScaleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveVScaleMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveVScaleMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveVScaleMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveVScaleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveVScaleMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveVScaleMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveVScaleMethod "unmap" o = WidgetUnmapMethodInfo + ResolveVScaleMethod "unparent" o = WidgetUnparentMethodInfo + ResolveVScaleMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveVScaleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveVScaleMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveVScaleMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveVScaleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveVScaleMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveVScaleMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveVScaleMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo + ResolveVScaleMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveVScaleMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveVScaleMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveVScaleMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveVScaleMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveVScaleMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveVScaleMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveVScaleMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveVScaleMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveVScaleMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveVScaleMethod "getClip" o = WidgetGetClipMethodInfo + ResolveVScaleMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveVScaleMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveVScaleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveVScaleMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveVScaleMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveVScaleMethod "getDigits" o = ScaleGetDigitsMethodInfo + ResolveVScaleMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveVScaleMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveVScaleMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveVScaleMethod "getDrawValue" o = ScaleGetDrawValueMethodInfo + ResolveVScaleMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveVScaleMethod "getFillLevel" o = RangeGetFillLevelMethodInfo + ResolveVScaleMethod "getFlippable" o = RangeGetFlippableMethodInfo + ResolveVScaleMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveVScaleMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveVScaleMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveVScaleMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveVScaleMethod "getHasOrigin" o = ScaleGetHasOriginMethodInfo + ResolveVScaleMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveVScaleMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveVScaleMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveVScaleMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveVScaleMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveVScaleMethod "getInverted" o = RangeGetInvertedMethodInfo + ResolveVScaleMethod "getLayout" o = ScaleGetLayoutMethodInfo + ResolveVScaleMethod "getLayoutOffsets" o = ScaleGetLayoutOffsetsMethodInfo + ResolveVScaleMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo + ResolveVScaleMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveVScaleMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveVScaleMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveVScaleMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveVScaleMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveVScaleMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveVScaleMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveVScaleMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo + ResolveVScaleMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveVScaleMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveVScaleMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveVScaleMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveVScaleMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveVScaleMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveVScaleMethod "getParent" o = WidgetGetParentMethodInfo + ResolveVScaleMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveVScaleMethod "getPath" o = WidgetGetPathMethodInfo + ResolveVScaleMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveVScaleMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveVScaleMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveVScaleMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveVScaleMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveVScaleMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveVScaleMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveVScaleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveVScaleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveVScaleMethod "getRangeRect" o = RangeGetRangeRectMethodInfo + ResolveVScaleMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveVScaleMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveVScaleMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveVScaleMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveVScaleMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo + ResolveVScaleMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveVScaleMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo + ResolveVScaleMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveVScaleMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveVScaleMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveVScaleMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveVScaleMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo + ResolveVScaleMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveVScaleMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo + ResolveVScaleMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo + ResolveVScaleMethod "getState" o = WidgetGetStateMethodInfo + ResolveVScaleMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveVScaleMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveVScaleMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveVScaleMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveVScaleMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveVScaleMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveVScaleMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveVScaleMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveVScaleMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveVScaleMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo + ResolveVScaleMethod "getValign" o = WidgetGetValignMethodInfo + ResolveVScaleMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveVScaleMethod "getValue" o = RangeGetValueMethodInfo + ResolveVScaleMethod "getValuePos" o = ScaleGetValuePosMethodInfo + ResolveVScaleMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveVScaleMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveVScaleMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveVScaleMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveVScaleMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveVScaleMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveVScaleMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo + ResolveVScaleMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveVScaleMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveVScaleMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveVScaleMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveVScaleMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveVScaleMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveVScaleMethod "setClip" o = WidgetSetClipMethodInfo + ResolveVScaleMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveVScaleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveVScaleMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveVScaleMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveVScaleMethod "setDigits" o = ScaleSetDigitsMethodInfo + ResolveVScaleMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveVScaleMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveVScaleMethod "setDrawValue" o = ScaleSetDrawValueMethodInfo + ResolveVScaleMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveVScaleMethod "setFillLevel" o = RangeSetFillLevelMethodInfo + ResolveVScaleMethod "setFlippable" o = RangeSetFlippableMethodInfo + ResolveVScaleMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveVScaleMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveVScaleMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveVScaleMethod "setHasOrigin" o = ScaleSetHasOriginMethodInfo + ResolveVScaleMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveVScaleMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveVScaleMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveVScaleMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveVScaleMethod "setIncrements" o = RangeSetIncrementsMethodInfo + ResolveVScaleMethod "setInverted" o = RangeSetInvertedMethodInfo + ResolveVScaleMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo + ResolveVScaleMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveVScaleMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveVScaleMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveVScaleMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveVScaleMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveVScaleMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveVScaleMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveVScaleMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo + ResolveVScaleMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveVScaleMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveVScaleMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveVScaleMethod "setParent" o = WidgetSetParentMethodInfo + ResolveVScaleMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveVScaleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveVScaleMethod "setRange" o = RangeSetRangeMethodInfo + ResolveVScaleMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveVScaleMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveVScaleMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveVScaleMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo + ResolveVScaleMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo + ResolveVScaleMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveVScaleMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo + ResolveVScaleMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveVScaleMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo + ResolveVScaleMethod "setState" o = WidgetSetStateMethodInfo + ResolveVScaleMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveVScaleMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveVScaleMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveVScaleMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveVScaleMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveVScaleMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveVScaleMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo + ResolveVScaleMethod "setValign" o = WidgetSetValignMethodInfo + ResolveVScaleMethod "setValue" o = RangeSetValueMethodInfo + ResolveVScaleMethod "setValuePos" o = ScaleSetValuePosMethodInfo + ResolveVScaleMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveVScaleMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveVScaleMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveVScaleMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveVScaleMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveVScaleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveVScaleMethod t VScale, MethodInfo info VScale p) => IsLabelProxy t (VScale -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveVScaleMethod t VScale, MethodInfo info VScale p) => IsLabel t (VScale -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList VScale = VScaleAttributeList -type VScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-value", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-origin", ScaleHasOriginPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value-pos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type VScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawValue", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasOrigin", ScaleHasOriginPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("valuePos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList VScale = VScaleSignalList -type VScaleSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-value", ScaleFormatValueSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type VScaleSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("formatValue", ScaleFormatValueSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method VScale::new -- method type : Constructor --- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "VScale" -- throws : False -- Skip return : False @@ -83,8 +421,8 @@ {-# DEPRECATED vScaleNew ["(Since version 3.2)","Use gtk_scale_new() with %GTK_ORIENTATION_VERTICAL instead"]#-} vScaleNew :: (MonadIO m, AdjustmentK a) => - a -> -- adjustment - m VScale + a -- adjustment + -> m VScale -- result vScaleNew adjustment = liftIO $ do let adjustment' = unsafeManagedPtrCastPtr adjustment result <- gtk_vscale_new adjustment' @@ -95,9 +433,8 @@ -- method VScale::new_with_range -- method type : Constructor --- Args : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "VScale" -- throws : False -- Skip return : False @@ -111,10 +448,10 @@ {-# DEPRECATED vScaleNewWithRange ["(Since version 3.2)","Use gtk_scale_new_with_range() with %GTK_ORIENTATION_VERTICAL instead"]#-} vScaleNewWithRange :: (MonadIO m) => - Double -> -- min - Double -> -- max - Double -> -- step - m VScale + Double -- min + -> Double -- max + -> Double -- step + -> m VScale -- result vScaleNewWithRange min max step = liftIO $ do let min' = realToFrac min let max' = realToFrac max diff --git a/GI/Gtk/Objects/VScrollbar.hs b/GI/Gtk/Objects/VScrollbar.hs --- a/GI/Gtk/Objects/VScrollbar.hs +++ b/GI/Gtk/Objects/VScrollbar.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,342 @@ noVScrollbar :: Maybe VScrollbar noVScrollbar = Nothing +type family ResolveVScrollbarMethod (t :: Symbol) (o :: *) :: * where + ResolveVScrollbarMethod "activate" o = WidgetActivateMethodInfo + ResolveVScrollbarMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveVScrollbarMethod "addChild" o = BuildableAddChildMethodInfo + ResolveVScrollbarMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveVScrollbarMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveVScrollbarMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveVScrollbarMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveVScrollbarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveVScrollbarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveVScrollbarMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveVScrollbarMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveVScrollbarMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveVScrollbarMethod "classPath" o = WidgetClassPathMethodInfo + ResolveVScrollbarMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveVScrollbarMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveVScrollbarMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveVScrollbarMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveVScrollbarMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveVScrollbarMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveVScrollbarMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveVScrollbarMethod "destroy" o = WidgetDestroyMethodInfo + ResolveVScrollbarMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveVScrollbarMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveVScrollbarMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveVScrollbarMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveVScrollbarMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveVScrollbarMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveVScrollbarMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveVScrollbarMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveVScrollbarMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveVScrollbarMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveVScrollbarMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveVScrollbarMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveVScrollbarMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveVScrollbarMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveVScrollbarMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveVScrollbarMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveVScrollbarMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveVScrollbarMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveVScrollbarMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveVScrollbarMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveVScrollbarMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveVScrollbarMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveVScrollbarMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveVScrollbarMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveVScrollbarMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveVScrollbarMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveVScrollbarMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveVScrollbarMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveVScrollbarMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveVScrollbarMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveVScrollbarMethod "draw" o = WidgetDrawMethodInfo + ResolveVScrollbarMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveVScrollbarMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveVScrollbarMethod "event" o = WidgetEventMethodInfo + ResolveVScrollbarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveVScrollbarMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveVScrollbarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveVScrollbarMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveVScrollbarMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveVScrollbarMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveVScrollbarMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveVScrollbarMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveVScrollbarMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveVScrollbarMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveVScrollbarMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveVScrollbarMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveVScrollbarMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveVScrollbarMethod "hide" o = WidgetHideMethodInfo + ResolveVScrollbarMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveVScrollbarMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveVScrollbarMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveVScrollbarMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveVScrollbarMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveVScrollbarMethod "intersect" o = WidgetIntersectMethodInfo + ResolveVScrollbarMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveVScrollbarMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveVScrollbarMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveVScrollbarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveVScrollbarMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveVScrollbarMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveVScrollbarMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveVScrollbarMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveVScrollbarMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveVScrollbarMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveVScrollbarMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveVScrollbarMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveVScrollbarMethod "map" o = WidgetMapMethodInfo + ResolveVScrollbarMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveVScrollbarMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveVScrollbarMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveVScrollbarMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveVScrollbarMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveVScrollbarMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveVScrollbarMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveVScrollbarMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveVScrollbarMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveVScrollbarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveVScrollbarMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveVScrollbarMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveVScrollbarMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveVScrollbarMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveVScrollbarMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveVScrollbarMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveVScrollbarMethod "path" o = WidgetPathMethodInfo + ResolveVScrollbarMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveVScrollbarMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveVScrollbarMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveVScrollbarMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveVScrollbarMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveVScrollbarMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveVScrollbarMethod "realize" o = WidgetRealizeMethodInfo + ResolveVScrollbarMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveVScrollbarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveVScrollbarMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveVScrollbarMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveVScrollbarMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveVScrollbarMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveVScrollbarMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveVScrollbarMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveVScrollbarMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveVScrollbarMethod "reparent" o = WidgetReparentMethodInfo + ResolveVScrollbarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveVScrollbarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveVScrollbarMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveVScrollbarMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveVScrollbarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveVScrollbarMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveVScrollbarMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveVScrollbarMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveVScrollbarMethod "show" o = WidgetShowMethodInfo + ResolveVScrollbarMethod "showAll" o = WidgetShowAllMethodInfo + ResolveVScrollbarMethod "showNow" o = WidgetShowNowMethodInfo + ResolveVScrollbarMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveVScrollbarMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveVScrollbarMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveVScrollbarMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveVScrollbarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveVScrollbarMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveVScrollbarMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveVScrollbarMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveVScrollbarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveVScrollbarMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveVScrollbarMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveVScrollbarMethod "unmap" o = WidgetUnmapMethodInfo + ResolveVScrollbarMethod "unparent" o = WidgetUnparentMethodInfo + ResolveVScrollbarMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveVScrollbarMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveVScrollbarMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveVScrollbarMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveVScrollbarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveVScrollbarMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveVScrollbarMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveVScrollbarMethod "getAdjustment" o = RangeGetAdjustmentMethodInfo + ResolveVScrollbarMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveVScrollbarMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveVScrollbarMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveVScrollbarMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveVScrollbarMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveVScrollbarMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveVScrollbarMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveVScrollbarMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveVScrollbarMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveVScrollbarMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveVScrollbarMethod "getClip" o = WidgetGetClipMethodInfo + ResolveVScrollbarMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveVScrollbarMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveVScrollbarMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveVScrollbarMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveVScrollbarMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveVScrollbarMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveVScrollbarMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveVScrollbarMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveVScrollbarMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveVScrollbarMethod "getFillLevel" o = RangeGetFillLevelMethodInfo + ResolveVScrollbarMethod "getFlippable" o = RangeGetFlippableMethodInfo + ResolveVScrollbarMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveVScrollbarMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveVScrollbarMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveVScrollbarMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveVScrollbarMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveVScrollbarMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveVScrollbarMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveVScrollbarMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveVScrollbarMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveVScrollbarMethod "getInverted" o = RangeGetInvertedMethodInfo + ResolveVScrollbarMethod "getLowerStepperSensitivity" o = RangeGetLowerStepperSensitivityMethodInfo + ResolveVScrollbarMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveVScrollbarMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveVScrollbarMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveVScrollbarMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveVScrollbarMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveVScrollbarMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveVScrollbarMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveVScrollbarMethod "getMinSliderSize" o = RangeGetMinSliderSizeMethodInfo + ResolveVScrollbarMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveVScrollbarMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveVScrollbarMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveVScrollbarMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveVScrollbarMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveVScrollbarMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveVScrollbarMethod "getParent" o = WidgetGetParentMethodInfo + ResolveVScrollbarMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveVScrollbarMethod "getPath" o = WidgetGetPathMethodInfo + ResolveVScrollbarMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveVScrollbarMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveVScrollbarMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveVScrollbarMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveVScrollbarMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveVScrollbarMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveVScrollbarMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveVScrollbarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveVScrollbarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveVScrollbarMethod "getRangeRect" o = RangeGetRangeRectMethodInfo + ResolveVScrollbarMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveVScrollbarMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveVScrollbarMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveVScrollbarMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveVScrollbarMethod "getRestrictToFillLevel" o = RangeGetRestrictToFillLevelMethodInfo + ResolveVScrollbarMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveVScrollbarMethod "getRoundDigits" o = RangeGetRoundDigitsMethodInfo + ResolveVScrollbarMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveVScrollbarMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveVScrollbarMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveVScrollbarMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveVScrollbarMethod "getShowFillLevel" o = RangeGetShowFillLevelMethodInfo + ResolveVScrollbarMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveVScrollbarMethod "getSliderRange" o = RangeGetSliderRangeMethodInfo + ResolveVScrollbarMethod "getSliderSizeFixed" o = RangeGetSliderSizeFixedMethodInfo + ResolveVScrollbarMethod "getState" o = WidgetGetStateMethodInfo + ResolveVScrollbarMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveVScrollbarMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveVScrollbarMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveVScrollbarMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveVScrollbarMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveVScrollbarMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveVScrollbarMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveVScrollbarMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveVScrollbarMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveVScrollbarMethod "getUpperStepperSensitivity" o = RangeGetUpperStepperSensitivityMethodInfo + ResolveVScrollbarMethod "getValign" o = WidgetGetValignMethodInfo + ResolveVScrollbarMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveVScrollbarMethod "getValue" o = RangeGetValueMethodInfo + ResolveVScrollbarMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveVScrollbarMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveVScrollbarMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveVScrollbarMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveVScrollbarMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveVScrollbarMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveVScrollbarMethod "setAdjustment" o = RangeSetAdjustmentMethodInfo + ResolveVScrollbarMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveVScrollbarMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveVScrollbarMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveVScrollbarMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveVScrollbarMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveVScrollbarMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveVScrollbarMethod "setClip" o = WidgetSetClipMethodInfo + ResolveVScrollbarMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveVScrollbarMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveVScrollbarMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveVScrollbarMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveVScrollbarMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveVScrollbarMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveVScrollbarMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveVScrollbarMethod "setFillLevel" o = RangeSetFillLevelMethodInfo + ResolveVScrollbarMethod "setFlippable" o = RangeSetFlippableMethodInfo + ResolveVScrollbarMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveVScrollbarMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveVScrollbarMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveVScrollbarMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveVScrollbarMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveVScrollbarMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveVScrollbarMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveVScrollbarMethod "setIncrements" o = RangeSetIncrementsMethodInfo + ResolveVScrollbarMethod "setInverted" o = RangeSetInvertedMethodInfo + ResolveVScrollbarMethod "setLowerStepperSensitivity" o = RangeSetLowerStepperSensitivityMethodInfo + ResolveVScrollbarMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveVScrollbarMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveVScrollbarMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveVScrollbarMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveVScrollbarMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveVScrollbarMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveVScrollbarMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveVScrollbarMethod "setMinSliderSize" o = RangeSetMinSliderSizeMethodInfo + ResolveVScrollbarMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveVScrollbarMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveVScrollbarMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveVScrollbarMethod "setParent" o = WidgetSetParentMethodInfo + ResolveVScrollbarMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveVScrollbarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveVScrollbarMethod "setRange" o = RangeSetRangeMethodInfo + ResolveVScrollbarMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveVScrollbarMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveVScrollbarMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveVScrollbarMethod "setRestrictToFillLevel" o = RangeSetRestrictToFillLevelMethodInfo + ResolveVScrollbarMethod "setRoundDigits" o = RangeSetRoundDigitsMethodInfo + ResolveVScrollbarMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveVScrollbarMethod "setShowFillLevel" o = RangeSetShowFillLevelMethodInfo + ResolveVScrollbarMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveVScrollbarMethod "setSliderSizeFixed" o = RangeSetSliderSizeFixedMethodInfo + ResolveVScrollbarMethod "setState" o = WidgetSetStateMethodInfo + ResolveVScrollbarMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveVScrollbarMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveVScrollbarMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveVScrollbarMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveVScrollbarMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveVScrollbarMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveVScrollbarMethod "setUpperStepperSensitivity" o = RangeSetUpperStepperSensitivityMethodInfo + ResolveVScrollbarMethod "setValign" o = WidgetSetValignMethodInfo + ResolveVScrollbarMethod "setValue" o = RangeSetValueMethodInfo + ResolveVScrollbarMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveVScrollbarMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveVScrollbarMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveVScrollbarMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveVScrollbarMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveVScrollbarMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveVScrollbarMethod t VScrollbar, MethodInfo info VScrollbar p) => IsLabelProxy t (VScrollbar -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveVScrollbarMethod t VScrollbar, MethodInfo info VScrollbar p) => IsLabel t (VScrollbar -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList VScrollbar = VScrollbarAttributeList -type VScrollbarAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type VScrollbarAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList VScrollbar = VScrollbarSignalList -type VScrollbarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type VScrollbarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("adjustBounds", RangeAdjustBoundsSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("changeValue", RangeChangeValueSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSlider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", RangeValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method VScrollbar::new -- method type : Constructor --- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "VScrollbar" -- throws : False -- Skip return : False @@ -79,8 +405,8 @@ {-# DEPRECATED vScrollbarNew ["(Since version 3.2)","Use gtk_scrollbar_new() with %GTK_ORIENTATION_VERTICAL instead"]#-} vScrollbarNew :: (MonadIO m, AdjustmentK a) => - Maybe (a) -> -- adjustment - m VScrollbar + Maybe (a) -- adjustment + -> m VScrollbar -- result vScrollbarNew adjustment = liftIO $ do maybeAdjustment <- case adjustment of Nothing -> return nullPtr diff --git a/GI/Gtk/Objects/VSeparator.hs b/GI/Gtk/Objects/VSeparator.hs --- a/GI/Gtk/Objects/VSeparator.hs +++ b/GI/Gtk/Objects/VSeparator.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -57,17 +58,314 @@ noVSeparator :: Maybe VSeparator noVSeparator = Nothing +type family ResolveVSeparatorMethod (t :: Symbol) (o :: *) :: * where + ResolveVSeparatorMethod "activate" o = WidgetActivateMethodInfo + ResolveVSeparatorMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveVSeparatorMethod "addChild" o = BuildableAddChildMethodInfo + ResolveVSeparatorMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveVSeparatorMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveVSeparatorMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveVSeparatorMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveVSeparatorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveVSeparatorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveVSeparatorMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveVSeparatorMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveVSeparatorMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveVSeparatorMethod "classPath" o = WidgetClassPathMethodInfo + ResolveVSeparatorMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveVSeparatorMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveVSeparatorMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveVSeparatorMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveVSeparatorMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveVSeparatorMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveVSeparatorMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveVSeparatorMethod "destroy" o = WidgetDestroyMethodInfo + ResolveVSeparatorMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveVSeparatorMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveVSeparatorMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveVSeparatorMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveVSeparatorMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveVSeparatorMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveVSeparatorMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveVSeparatorMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveVSeparatorMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveVSeparatorMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveVSeparatorMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveVSeparatorMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveVSeparatorMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveVSeparatorMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveVSeparatorMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveVSeparatorMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveVSeparatorMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveVSeparatorMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveVSeparatorMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveVSeparatorMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveVSeparatorMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveVSeparatorMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveVSeparatorMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveVSeparatorMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveVSeparatorMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveVSeparatorMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveVSeparatorMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveVSeparatorMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveVSeparatorMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveVSeparatorMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveVSeparatorMethod "draw" o = WidgetDrawMethodInfo + ResolveVSeparatorMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveVSeparatorMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveVSeparatorMethod "event" o = WidgetEventMethodInfo + ResolveVSeparatorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveVSeparatorMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveVSeparatorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveVSeparatorMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveVSeparatorMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveVSeparatorMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveVSeparatorMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveVSeparatorMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveVSeparatorMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveVSeparatorMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveVSeparatorMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveVSeparatorMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveVSeparatorMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveVSeparatorMethod "hide" o = WidgetHideMethodInfo + ResolveVSeparatorMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveVSeparatorMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveVSeparatorMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveVSeparatorMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveVSeparatorMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveVSeparatorMethod "intersect" o = WidgetIntersectMethodInfo + ResolveVSeparatorMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveVSeparatorMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveVSeparatorMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveVSeparatorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveVSeparatorMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveVSeparatorMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveVSeparatorMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveVSeparatorMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveVSeparatorMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveVSeparatorMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveVSeparatorMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveVSeparatorMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveVSeparatorMethod "map" o = WidgetMapMethodInfo + ResolveVSeparatorMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveVSeparatorMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveVSeparatorMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveVSeparatorMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveVSeparatorMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveVSeparatorMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveVSeparatorMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveVSeparatorMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveVSeparatorMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveVSeparatorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveVSeparatorMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveVSeparatorMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveVSeparatorMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveVSeparatorMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveVSeparatorMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveVSeparatorMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveVSeparatorMethod "path" o = WidgetPathMethodInfo + ResolveVSeparatorMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveVSeparatorMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveVSeparatorMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveVSeparatorMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveVSeparatorMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveVSeparatorMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveVSeparatorMethod "realize" o = WidgetRealizeMethodInfo + ResolveVSeparatorMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveVSeparatorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveVSeparatorMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveVSeparatorMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveVSeparatorMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveVSeparatorMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveVSeparatorMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveVSeparatorMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveVSeparatorMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveVSeparatorMethod "reparent" o = WidgetReparentMethodInfo + ResolveVSeparatorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveVSeparatorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveVSeparatorMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveVSeparatorMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveVSeparatorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveVSeparatorMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveVSeparatorMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveVSeparatorMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveVSeparatorMethod "show" o = WidgetShowMethodInfo + ResolveVSeparatorMethod "showAll" o = WidgetShowAllMethodInfo + ResolveVSeparatorMethod "showNow" o = WidgetShowNowMethodInfo + ResolveVSeparatorMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveVSeparatorMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveVSeparatorMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveVSeparatorMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveVSeparatorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveVSeparatorMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveVSeparatorMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveVSeparatorMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveVSeparatorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveVSeparatorMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveVSeparatorMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveVSeparatorMethod "unmap" o = WidgetUnmapMethodInfo + ResolveVSeparatorMethod "unparent" o = WidgetUnparentMethodInfo + ResolveVSeparatorMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveVSeparatorMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveVSeparatorMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveVSeparatorMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveVSeparatorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveVSeparatorMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveVSeparatorMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveVSeparatorMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveVSeparatorMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveVSeparatorMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveVSeparatorMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveVSeparatorMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveVSeparatorMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveVSeparatorMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveVSeparatorMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveVSeparatorMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveVSeparatorMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveVSeparatorMethod "getClip" o = WidgetGetClipMethodInfo + ResolveVSeparatorMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveVSeparatorMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveVSeparatorMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveVSeparatorMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveVSeparatorMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveVSeparatorMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveVSeparatorMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveVSeparatorMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveVSeparatorMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveVSeparatorMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveVSeparatorMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveVSeparatorMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveVSeparatorMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveVSeparatorMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveVSeparatorMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveVSeparatorMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveVSeparatorMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveVSeparatorMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveVSeparatorMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveVSeparatorMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveVSeparatorMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveVSeparatorMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveVSeparatorMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveVSeparatorMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveVSeparatorMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveVSeparatorMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveVSeparatorMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveVSeparatorMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveVSeparatorMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveVSeparatorMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveVSeparatorMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveVSeparatorMethod "getParent" o = WidgetGetParentMethodInfo + ResolveVSeparatorMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveVSeparatorMethod "getPath" o = WidgetGetPathMethodInfo + ResolveVSeparatorMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveVSeparatorMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveVSeparatorMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveVSeparatorMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveVSeparatorMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveVSeparatorMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveVSeparatorMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveVSeparatorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveVSeparatorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveVSeparatorMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveVSeparatorMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveVSeparatorMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveVSeparatorMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveVSeparatorMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveVSeparatorMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveVSeparatorMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveVSeparatorMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveVSeparatorMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveVSeparatorMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveVSeparatorMethod "getState" o = WidgetGetStateMethodInfo + ResolveVSeparatorMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveVSeparatorMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveVSeparatorMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveVSeparatorMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveVSeparatorMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveVSeparatorMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveVSeparatorMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveVSeparatorMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveVSeparatorMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveVSeparatorMethod "getValign" o = WidgetGetValignMethodInfo + ResolveVSeparatorMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveVSeparatorMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveVSeparatorMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveVSeparatorMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveVSeparatorMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveVSeparatorMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveVSeparatorMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveVSeparatorMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveVSeparatorMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveVSeparatorMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveVSeparatorMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveVSeparatorMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveVSeparatorMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveVSeparatorMethod "setClip" o = WidgetSetClipMethodInfo + ResolveVSeparatorMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveVSeparatorMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveVSeparatorMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveVSeparatorMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveVSeparatorMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveVSeparatorMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveVSeparatorMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveVSeparatorMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveVSeparatorMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveVSeparatorMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveVSeparatorMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveVSeparatorMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveVSeparatorMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveVSeparatorMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveVSeparatorMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveVSeparatorMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveVSeparatorMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveVSeparatorMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveVSeparatorMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveVSeparatorMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveVSeparatorMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveVSeparatorMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveVSeparatorMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveVSeparatorMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveVSeparatorMethod "setParent" o = WidgetSetParentMethodInfo + ResolveVSeparatorMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveVSeparatorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveVSeparatorMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveVSeparatorMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveVSeparatorMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveVSeparatorMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveVSeparatorMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveVSeparatorMethod "setState" o = WidgetSetStateMethodInfo + ResolveVSeparatorMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveVSeparatorMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveVSeparatorMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveVSeparatorMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveVSeparatorMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveVSeparatorMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveVSeparatorMethod "setValign" o = WidgetSetValignMethodInfo + ResolveVSeparatorMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveVSeparatorMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveVSeparatorMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveVSeparatorMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveVSeparatorMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveVSeparatorMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveVSeparatorMethod t VSeparator, MethodInfo info VSeparator p) => IsLabelProxy t (VSeparator -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveVSeparatorMethod t VSeparator, MethodInfo info VSeparator p) => IsLabel t (VSeparator -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList VSeparator = VSeparatorAttributeList -type VSeparatorAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type VSeparatorAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList VSeparator = VSeparatorSignalList -type VSeparatorSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type VSeparatorSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method VSeparator::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "VSeparator" -- throws : False -- Skip return : False @@ -78,7 +376,7 @@ {-# DEPRECATED vSeparatorNew ["(Since version 3.2)","Use gtk_separator_new() with %GTK_ORIENTATION_VERTICAL instead"]#-} vSeparatorNew :: (MonadIO m) => - m VSeparator + m VSeparator -- result vSeparatorNew = liftIO $ do result <- gtk_vseparator_new checkUnexpectedReturnNULL "gtk_vseparator_new" result diff --git a/GI/Gtk/Objects/Viewport.hs b/GI/Gtk/Objects/Viewport.hs --- a/GI/Gtk/Objects/Viewport.hs +++ b/GI/Gtk/Objects/Viewport.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** viewportGetBinWindow + ViewportGetBinWindowMethodInfo , viewportGetBinWindow , -- ** viewportGetHadjustment + ViewportGetHadjustmentMethodInfo , viewportGetHadjustment , -- ** viewportGetShadowType + ViewportGetShadowTypeMethodInfo , viewportGetShadowType , -- ** viewportGetVadjustment + ViewportGetVadjustmentMethodInfo , viewportGetVadjustment , -- ** viewportGetViewWindow + ViewportGetViewWindowMethodInfo , viewportGetViewWindow , @@ -41,14 +47,17 @@ -- ** viewportSetHadjustment + ViewportSetHadjustmentMethodInfo , viewportSetHadjustment , -- ** viewportSetShadowType + ViewportSetShadowTypeMethodInfo , viewportSetShadowType , -- ** viewportSetVadjustment + ViewportSetVadjustmentMethodInfo , viewportSetVadjustment , @@ -100,6 +109,338 @@ noViewport :: Maybe Viewport noViewport = Nothing +type family ResolveViewportMethod (t :: Symbol) (o :: *) :: * where + ResolveViewportMethod "activate" o = WidgetActivateMethodInfo + ResolveViewportMethod "add" o = ContainerAddMethodInfo + ResolveViewportMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveViewportMethod "addChild" o = BuildableAddChildMethodInfo + ResolveViewportMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveViewportMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveViewportMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveViewportMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveViewportMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveViewportMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveViewportMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveViewportMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveViewportMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveViewportMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveViewportMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveViewportMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveViewportMethod "childType" o = ContainerChildTypeMethodInfo + ResolveViewportMethod "classPath" o = WidgetClassPathMethodInfo + ResolveViewportMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveViewportMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveViewportMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveViewportMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveViewportMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveViewportMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveViewportMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveViewportMethod "destroy" o = WidgetDestroyMethodInfo + ResolveViewportMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveViewportMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveViewportMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveViewportMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveViewportMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveViewportMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveViewportMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveViewportMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveViewportMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveViewportMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveViewportMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveViewportMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveViewportMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveViewportMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveViewportMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveViewportMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveViewportMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveViewportMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveViewportMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveViewportMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveViewportMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveViewportMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveViewportMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveViewportMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveViewportMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveViewportMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveViewportMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveViewportMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveViewportMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveViewportMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveViewportMethod "draw" o = WidgetDrawMethodInfo + ResolveViewportMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveViewportMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveViewportMethod "event" o = WidgetEventMethodInfo + ResolveViewportMethod "forall" o = ContainerForallMethodInfo + ResolveViewportMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveViewportMethod "foreach" o = ContainerForeachMethodInfo + ResolveViewportMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveViewportMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveViewportMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveViewportMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveViewportMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveViewportMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveViewportMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveViewportMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveViewportMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveViewportMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveViewportMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveViewportMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveViewportMethod "hide" o = WidgetHideMethodInfo + ResolveViewportMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveViewportMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveViewportMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveViewportMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveViewportMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveViewportMethod "intersect" o = WidgetIntersectMethodInfo + ResolveViewportMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveViewportMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveViewportMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveViewportMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveViewportMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveViewportMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveViewportMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveViewportMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveViewportMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveViewportMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveViewportMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveViewportMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveViewportMethod "map" o = WidgetMapMethodInfo + ResolveViewportMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveViewportMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveViewportMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveViewportMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveViewportMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveViewportMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveViewportMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveViewportMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveViewportMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveViewportMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveViewportMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveViewportMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveViewportMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveViewportMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveViewportMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveViewportMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveViewportMethod "path" o = WidgetPathMethodInfo + ResolveViewportMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveViewportMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveViewportMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveViewportMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveViewportMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveViewportMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveViewportMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveViewportMethod "realize" o = WidgetRealizeMethodInfo + ResolveViewportMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveViewportMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveViewportMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveViewportMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveViewportMethod "remove" o = ContainerRemoveMethodInfo + ResolveViewportMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveViewportMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveViewportMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveViewportMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveViewportMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveViewportMethod "reparent" o = WidgetReparentMethodInfo + ResolveViewportMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveViewportMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveViewportMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveViewportMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveViewportMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveViewportMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveViewportMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveViewportMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveViewportMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveViewportMethod "show" o = WidgetShowMethodInfo + ResolveViewportMethod "showAll" o = WidgetShowAllMethodInfo + ResolveViewportMethod "showNow" o = WidgetShowNowMethodInfo + ResolveViewportMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveViewportMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveViewportMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveViewportMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveViewportMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveViewportMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveViewportMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveViewportMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveViewportMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveViewportMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveViewportMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveViewportMethod "unmap" o = WidgetUnmapMethodInfo + ResolveViewportMethod "unparent" o = WidgetUnparentMethodInfo + ResolveViewportMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveViewportMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveViewportMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveViewportMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveViewportMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveViewportMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveViewportMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveViewportMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveViewportMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveViewportMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveViewportMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveViewportMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveViewportMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveViewportMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveViewportMethod "getBinWindow" o = ViewportGetBinWindowMethodInfo + ResolveViewportMethod "getBorder" o = ScrollableGetBorderMethodInfo + ResolveViewportMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveViewportMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveViewportMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveViewportMethod "getChild" o = BinGetChildMethodInfo + ResolveViewportMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveViewportMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveViewportMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveViewportMethod "getClip" o = WidgetGetClipMethodInfo + ResolveViewportMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveViewportMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveViewportMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveViewportMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveViewportMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveViewportMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveViewportMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveViewportMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveViewportMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveViewportMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveViewportMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveViewportMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveViewportMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveViewportMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveViewportMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveViewportMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveViewportMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveViewportMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveViewportMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveViewportMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveViewportMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveViewportMethod "getHscrollPolicy" o = ScrollableGetHscrollPolicyMethodInfo + ResolveViewportMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveViewportMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveViewportMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveViewportMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveViewportMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveViewportMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveViewportMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveViewportMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveViewportMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveViewportMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveViewportMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveViewportMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveViewportMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveViewportMethod "getParent" o = WidgetGetParentMethodInfo + ResolveViewportMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveViewportMethod "getPath" o = WidgetGetPathMethodInfo + ResolveViewportMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveViewportMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveViewportMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveViewportMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveViewportMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveViewportMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveViewportMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveViewportMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveViewportMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveViewportMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveViewportMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveViewportMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveViewportMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveViewportMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveViewportMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveViewportMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveViewportMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveViewportMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveViewportMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveViewportMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveViewportMethod "getShadowType" o = ViewportGetShadowTypeMethodInfo + ResolveViewportMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveViewportMethod "getState" o = WidgetGetStateMethodInfo + ResolveViewportMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveViewportMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveViewportMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveViewportMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveViewportMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveViewportMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveViewportMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveViewportMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveViewportMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveViewportMethod "getValign" o = WidgetGetValignMethodInfo + ResolveViewportMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveViewportMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveViewportMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveViewportMethod "getViewWindow" o = ViewportGetViewWindowMethodInfo + ResolveViewportMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveViewportMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveViewportMethod "getVscrollPolicy" o = ScrollableGetVscrollPolicyMethodInfo + ResolveViewportMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveViewportMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveViewportMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveViewportMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveViewportMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveViewportMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveViewportMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveViewportMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveViewportMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveViewportMethod "setClip" o = WidgetSetClipMethodInfo + ResolveViewportMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveViewportMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveViewportMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveViewportMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveViewportMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveViewportMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveViewportMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveViewportMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveViewportMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveViewportMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveViewportMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveViewportMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveViewportMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveViewportMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveViewportMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveViewportMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveViewportMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveViewportMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveViewportMethod "setHscrollPolicy" o = ScrollableSetHscrollPolicyMethodInfo + ResolveViewportMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveViewportMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveViewportMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveViewportMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveViewportMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveViewportMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveViewportMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveViewportMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveViewportMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveViewportMethod "setParent" o = WidgetSetParentMethodInfo + ResolveViewportMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveViewportMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveViewportMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveViewportMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveViewportMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveViewportMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveViewportMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveViewportMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveViewportMethod "setShadowType" o = ViewportSetShadowTypeMethodInfo + ResolveViewportMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveViewportMethod "setState" o = WidgetSetStateMethodInfo + ResolveViewportMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveViewportMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveViewportMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveViewportMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveViewportMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveViewportMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveViewportMethod "setValign" o = WidgetSetValignMethodInfo + ResolveViewportMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveViewportMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveViewportMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveViewportMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveViewportMethod "setVscrollPolicy" o = ScrollableSetVscrollPolicyMethodInfo + ResolveViewportMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveViewportMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveViewportMethod t Viewport, MethodInfo info Viewport p) => IsLabelProxy t (Viewport -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveViewportMethod t Viewport, MethodInfo info Viewport p) => IsLabel t (Viewport -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "shadow-type" -- Type: TInterface "Gtk" "ShadowType" -- Flags: [PropertyReadable,PropertyWritable] @@ -119,22 +460,21 @@ type AttrSetTypeConstraint ViewportShadowTypePropertyInfo = (~) ShadowType type AttrBaseTypeConstraint ViewportShadowTypePropertyInfo = ViewportK type AttrGetType ViewportShadowTypePropertyInfo = ShadowType - type AttrLabel ViewportShadowTypePropertyInfo = "Viewport::shadow-type" + type AttrLabel ViewportShadowTypePropertyInfo = "shadow-type" attrGet _ = getViewportShadowType attrSet _ = setViewportShadowType attrConstruct _ = constructViewportShadowType type instance AttributeList Viewport = ViewportAttributeList -type ViewportAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ViewportShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +type ViewportAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ViewportShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Viewport = ViewportSignalList -type ViewportSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ViewportSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Viewport::new -- method type : Constructor --- Args : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Viewport" -- throws : False -- Skip return : False @@ -147,9 +487,9 @@ viewportNew :: (MonadIO m, AdjustmentK a, AdjustmentK b) => - Maybe (a) -> -- hadjustment - Maybe (b) -> -- vadjustment - m Viewport + Maybe (a) -- hadjustment + -> Maybe (b) -- vadjustment + -> m Viewport -- result viewportNew hadjustment vadjustment = liftIO $ do maybeHadjustment <- case hadjustment of Nothing -> return nullPtr @@ -170,9 +510,8 @@ -- method Viewport::get_bin_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False @@ -184,8 +523,8 @@ viewportGetBinWindow :: (MonadIO m, ViewportK a) => - a -> -- _obj - m Gdk.Window + a -- _obj + -> m Gdk.Window -- result viewportGetBinWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_viewport_get_bin_window _obj' @@ -194,11 +533,14 @@ touchManagedPtr _obj return result' +data ViewportGetBinWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, ViewportK a) => MethodInfo ViewportGetBinWindowMethodInfo a signature where + overloadedMethod _ = viewportGetBinWindow + -- method Viewport::get_hadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -210,8 +552,8 @@ {-# DEPRECATED viewportGetHadjustment ["(Since version 3.0)","Use gtk_scrollable_get_hadjustment()"]#-} viewportGetHadjustment :: (MonadIO m, ViewportK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result viewportGetHadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_viewport_get_hadjustment _obj' @@ -220,11 +562,14 @@ touchManagedPtr _obj return result' +data ViewportGetHadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, ViewportK a) => MethodInfo ViewportGetHadjustmentMethodInfo a signature where + overloadedMethod _ = viewportGetHadjustment + -- method Viewport::get_shadow_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "ShadowType" -- throws : False -- Skip return : False @@ -236,8 +581,8 @@ viewportGetShadowType :: (MonadIO m, ViewportK a) => - a -> -- _obj - m ShadowType + a -- _obj + -> m ShadowType -- result viewportGetShadowType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_viewport_get_shadow_type _obj' @@ -245,11 +590,14 @@ touchManagedPtr _obj return result' +data ViewportGetShadowTypeMethodInfo +instance (signature ~ (m ShadowType), MonadIO m, ViewportK a) => MethodInfo ViewportGetShadowTypeMethodInfo a signature where + overloadedMethod _ = viewportGetShadowType + -- method Viewport::get_vadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Adjustment" -- throws : False -- Skip return : False @@ -261,8 +609,8 @@ {-# DEPRECATED viewportGetVadjustment ["(Since version 3.0)","Use gtk_scrollable_get_vadjustment()"]#-} viewportGetVadjustment :: (MonadIO m, ViewportK a) => - a -> -- _obj - m Adjustment + a -- _obj + -> m Adjustment -- result viewportGetVadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_viewport_get_vadjustment _obj' @@ -271,11 +619,14 @@ touchManagedPtr _obj return result' +data ViewportGetVadjustmentMethodInfo +instance (signature ~ (m Adjustment), MonadIO m, ViewportK a) => MethodInfo ViewportGetVadjustmentMethodInfo a signature where + overloadedMethod _ = viewportGetVadjustment + -- method Viewport::get_view_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False @@ -287,8 +638,8 @@ viewportGetViewWindow :: (MonadIO m, ViewportK a) => - a -> -- _obj - m Gdk.Window + a -- _obj + -> m Gdk.Window -- result viewportGetViewWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_viewport_get_view_window _obj' @@ -297,11 +648,14 @@ touchManagedPtr _obj return result' +data ViewportGetViewWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, ViewportK a) => MethodInfo ViewportGetViewWindowMethodInfo a signature where + overloadedMethod _ = viewportGetViewWindow + -- method Viewport::set_hadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -314,9 +668,9 @@ {-# DEPRECATED viewportSetHadjustment ["(Since version 3.0)","Use gtk_scrollable_set_hadjustment()"]#-} viewportSetHadjustment :: (MonadIO m, ViewportK a, AdjustmentK b) => - a -> -- _obj - Maybe (b) -> -- adjustment - m () + a -- _obj + -> Maybe (b) -- adjustment + -> m () -- result viewportSetHadjustment _obj adjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeAdjustment <- case adjustment of @@ -329,11 +683,14 @@ whenJust adjustment touchManagedPtr return () +data ViewportSetHadjustmentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ViewportK a, AdjustmentK b) => MethodInfo ViewportSetHadjustmentMethodInfo a signature where + overloadedMethod _ = viewportSetHadjustment + -- method Viewport::set_shadow_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -346,9 +703,9 @@ viewportSetShadowType :: (MonadIO m, ViewportK a) => - a -> -- _obj - ShadowType -> -- type - m () + a -- _obj + -> ShadowType -- type_ + -> m () -- result viewportSetShadowType _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let type_' = (fromIntegral . fromEnum) type_ @@ -356,11 +713,14 @@ touchManagedPtr _obj return () +data ViewportSetShadowTypeMethodInfo +instance (signature ~ (ShadowType -> m ()), MonadIO m, ViewportK a) => MethodInfo ViewportSetShadowTypeMethodInfo a signature where + overloadedMethod _ = viewportSetShadowType + -- method Viewport::set_vadjustment -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -373,9 +733,9 @@ {-# DEPRECATED viewportSetVadjustment ["(Since version 3.0)","Use gtk_scrollable_set_vadjustment()"]#-} viewportSetVadjustment :: (MonadIO m, ViewportK a, AdjustmentK b) => - a -> -- _obj - Maybe (b) -> -- adjustment - m () + a -- _obj + -> Maybe (b) -- adjustment + -> m () -- result viewportSetVadjustment _obj adjustment = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeAdjustment <- case adjustment of @@ -387,5 +747,9 @@ touchManagedPtr _obj whenJust adjustment touchManagedPtr return () + +data ViewportSetVadjustmentMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ViewportK a, AdjustmentK b) => MethodInfo ViewportSetVadjustmentMethodInfo a signature where + overloadedMethod _ = viewportSetVadjustment diff --git a/GI/Gtk/Objects/Viewport.hs-boot b/GI/Gtk/Objects/Viewport.hs-boot --- a/GI/Gtk/Objects/Viewport.hs-boot +++ b/GI/Gtk/Objects/Viewport.hs-boot @@ -12,3 +12,11 @@ class GObject o => ViewportK o instance (GObject o, IsDescendantOf Viewport o) => ViewportK o data ViewportShadowTypePropertyInfo +data ViewportGetBinWindowMethodInfo +data ViewportGetHadjustmentMethodInfo +data ViewportGetShadowTypeMethodInfo +data ViewportGetVadjustmentMethodInfo +data ViewportGetViewWindowMethodInfo +data ViewportSetHadjustmentMethodInfo +data ViewportSetShadowTypeMethodInfo +data ViewportSetVadjustmentMethodInfo diff --git a/GI/Gtk/Objects/VolumeButton.hs b/GI/Gtk/Objects/VolumeButton.hs --- a/GI/Gtk/Objects/VolumeButton.hs +++ b/GI/Gtk/Objects/VolumeButton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -67,6 +68,374 @@ noVolumeButton :: Maybe VolumeButton noVolumeButton = Nothing +type family ResolveVolumeButtonMethod (t :: Symbol) (o :: *) :: * where + ResolveVolumeButtonMethod "activate" o = WidgetActivateMethodInfo + ResolveVolumeButtonMethod "add" o = ContainerAddMethodInfo + ResolveVolumeButtonMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveVolumeButtonMethod "addChild" o = BuildableAddChildMethodInfo + ResolveVolumeButtonMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveVolumeButtonMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveVolumeButtonMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveVolumeButtonMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveVolumeButtonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveVolumeButtonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveVolumeButtonMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveVolumeButtonMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveVolumeButtonMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveVolumeButtonMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveVolumeButtonMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveVolumeButtonMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveVolumeButtonMethod "childType" o = ContainerChildTypeMethodInfo + ResolveVolumeButtonMethod "classPath" o = WidgetClassPathMethodInfo + ResolveVolumeButtonMethod "clicked" o = ButtonClickedMethodInfo + ResolveVolumeButtonMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveVolumeButtonMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveVolumeButtonMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveVolumeButtonMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveVolumeButtonMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveVolumeButtonMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveVolumeButtonMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveVolumeButtonMethod "destroy" o = WidgetDestroyMethodInfo + ResolveVolumeButtonMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveVolumeButtonMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveVolumeButtonMethod "doSetRelatedAction" o = ActivatableDoSetRelatedActionMethodInfo + ResolveVolumeButtonMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveVolumeButtonMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveVolumeButtonMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveVolumeButtonMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveVolumeButtonMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveVolumeButtonMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveVolumeButtonMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveVolumeButtonMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveVolumeButtonMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveVolumeButtonMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveVolumeButtonMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveVolumeButtonMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveVolumeButtonMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveVolumeButtonMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveVolumeButtonMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveVolumeButtonMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveVolumeButtonMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveVolumeButtonMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveVolumeButtonMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveVolumeButtonMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveVolumeButtonMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveVolumeButtonMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveVolumeButtonMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveVolumeButtonMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveVolumeButtonMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveVolumeButtonMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveVolumeButtonMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveVolumeButtonMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveVolumeButtonMethod "draw" o = WidgetDrawMethodInfo + ResolveVolumeButtonMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveVolumeButtonMethod "enter" o = ButtonEnterMethodInfo + ResolveVolumeButtonMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveVolumeButtonMethod "event" o = WidgetEventMethodInfo + ResolveVolumeButtonMethod "forall" o = ContainerForallMethodInfo + ResolveVolumeButtonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveVolumeButtonMethod "foreach" o = ContainerForeachMethodInfo + ResolveVolumeButtonMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveVolumeButtonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveVolumeButtonMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveVolumeButtonMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveVolumeButtonMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveVolumeButtonMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveVolumeButtonMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveVolumeButtonMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveVolumeButtonMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveVolumeButtonMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveVolumeButtonMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveVolumeButtonMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveVolumeButtonMethod "hide" o = WidgetHideMethodInfo + ResolveVolumeButtonMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveVolumeButtonMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveVolumeButtonMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveVolumeButtonMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveVolumeButtonMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveVolumeButtonMethod "intersect" o = WidgetIntersectMethodInfo + ResolveVolumeButtonMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveVolumeButtonMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveVolumeButtonMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveVolumeButtonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveVolumeButtonMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveVolumeButtonMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveVolumeButtonMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveVolumeButtonMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveVolumeButtonMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveVolumeButtonMethod "leave" o = ButtonLeaveMethodInfo + ResolveVolumeButtonMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveVolumeButtonMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveVolumeButtonMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveVolumeButtonMethod "map" o = WidgetMapMethodInfo + ResolveVolumeButtonMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveVolumeButtonMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveVolumeButtonMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveVolumeButtonMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveVolumeButtonMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveVolumeButtonMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveVolumeButtonMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveVolumeButtonMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveVolumeButtonMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveVolumeButtonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveVolumeButtonMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveVolumeButtonMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveVolumeButtonMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveVolumeButtonMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveVolumeButtonMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveVolumeButtonMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveVolumeButtonMethod "path" o = WidgetPathMethodInfo + ResolveVolumeButtonMethod "pressed" o = ButtonPressedMethodInfo + ResolveVolumeButtonMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveVolumeButtonMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveVolumeButtonMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveVolumeButtonMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveVolumeButtonMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveVolumeButtonMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveVolumeButtonMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveVolumeButtonMethod "realize" o = WidgetRealizeMethodInfo + ResolveVolumeButtonMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveVolumeButtonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveVolumeButtonMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveVolumeButtonMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveVolumeButtonMethod "released" o = ButtonReleasedMethodInfo + ResolveVolumeButtonMethod "remove" o = ContainerRemoveMethodInfo + ResolveVolumeButtonMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveVolumeButtonMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveVolumeButtonMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveVolumeButtonMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveVolumeButtonMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveVolumeButtonMethod "reparent" o = WidgetReparentMethodInfo + ResolveVolumeButtonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveVolumeButtonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveVolumeButtonMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveVolumeButtonMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveVolumeButtonMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveVolumeButtonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveVolumeButtonMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveVolumeButtonMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveVolumeButtonMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveVolumeButtonMethod "show" o = WidgetShowMethodInfo + ResolveVolumeButtonMethod "showAll" o = WidgetShowAllMethodInfo + ResolveVolumeButtonMethod "showNow" o = WidgetShowNowMethodInfo + ResolveVolumeButtonMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveVolumeButtonMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveVolumeButtonMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveVolumeButtonMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveVolumeButtonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveVolumeButtonMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveVolumeButtonMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveVolumeButtonMethod "syncActionProperties" o = ActivatableSyncActionPropertiesMethodInfo + ResolveVolumeButtonMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveVolumeButtonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveVolumeButtonMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveVolumeButtonMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveVolumeButtonMethod "unmap" o = WidgetUnmapMethodInfo + ResolveVolumeButtonMethod "unparent" o = WidgetUnparentMethodInfo + ResolveVolumeButtonMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveVolumeButtonMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveVolumeButtonMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveVolumeButtonMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveVolumeButtonMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveVolumeButtonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveVolumeButtonMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveVolumeButtonMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveVolumeButtonMethod "getActionName" o = ActionableGetActionNameMethodInfo + ResolveVolumeButtonMethod "getActionTargetValue" o = ActionableGetActionTargetValueMethodInfo + ResolveVolumeButtonMethod "getAdjustment" o = ScaleButtonGetAdjustmentMethodInfo + ResolveVolumeButtonMethod "getAlignment" o = ButtonGetAlignmentMethodInfo + ResolveVolumeButtonMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveVolumeButtonMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveVolumeButtonMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveVolumeButtonMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveVolumeButtonMethod "getAlwaysShowImage" o = ButtonGetAlwaysShowImageMethodInfo + ResolveVolumeButtonMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveVolumeButtonMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveVolumeButtonMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveVolumeButtonMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveVolumeButtonMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveVolumeButtonMethod "getChild" o = BinGetChildMethodInfo + ResolveVolumeButtonMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveVolumeButtonMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveVolumeButtonMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveVolumeButtonMethod "getClip" o = WidgetGetClipMethodInfo + ResolveVolumeButtonMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveVolumeButtonMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveVolumeButtonMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveVolumeButtonMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveVolumeButtonMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveVolumeButtonMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveVolumeButtonMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveVolumeButtonMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveVolumeButtonMethod "getEventWindow" o = ButtonGetEventWindowMethodInfo + ResolveVolumeButtonMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveVolumeButtonMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveVolumeButtonMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveVolumeButtonMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveVolumeButtonMethod "getFocusOnClick" o = ButtonGetFocusOnClickMethodInfo + ResolveVolumeButtonMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveVolumeButtonMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveVolumeButtonMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveVolumeButtonMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveVolumeButtonMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveVolumeButtonMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveVolumeButtonMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveVolumeButtonMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveVolumeButtonMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveVolumeButtonMethod "getImage" o = ButtonGetImageMethodInfo + ResolveVolumeButtonMethod "getImagePosition" o = ButtonGetImagePositionMethodInfo + ResolveVolumeButtonMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveVolumeButtonMethod "getLabel" o = ButtonGetLabelMethodInfo + ResolveVolumeButtonMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveVolumeButtonMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveVolumeButtonMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveVolumeButtonMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveVolumeButtonMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveVolumeButtonMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveVolumeButtonMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveVolumeButtonMethod "getMinusButton" o = ScaleButtonGetMinusButtonMethodInfo + ResolveVolumeButtonMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveVolumeButtonMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveVolumeButtonMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveVolumeButtonMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveVolumeButtonMethod "getOrientation" o = OrientableGetOrientationMethodInfo + ResolveVolumeButtonMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveVolumeButtonMethod "getParent" o = WidgetGetParentMethodInfo + ResolveVolumeButtonMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveVolumeButtonMethod "getPath" o = WidgetGetPathMethodInfo + ResolveVolumeButtonMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveVolumeButtonMethod "getPlusButton" o = ScaleButtonGetPlusButtonMethodInfo + ResolveVolumeButtonMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveVolumeButtonMethod "getPopup" o = ScaleButtonGetPopupMethodInfo + ResolveVolumeButtonMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveVolumeButtonMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveVolumeButtonMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveVolumeButtonMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveVolumeButtonMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveVolumeButtonMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveVolumeButtonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveVolumeButtonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveVolumeButtonMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveVolumeButtonMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveVolumeButtonMethod "getRelatedAction" o = ActivatableGetRelatedActionMethodInfo + ResolveVolumeButtonMethod "getRelief" o = ButtonGetReliefMethodInfo + ResolveVolumeButtonMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveVolumeButtonMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveVolumeButtonMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveVolumeButtonMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveVolumeButtonMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveVolumeButtonMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveVolumeButtonMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveVolumeButtonMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveVolumeButtonMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveVolumeButtonMethod "getState" o = WidgetGetStateMethodInfo + ResolveVolumeButtonMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveVolumeButtonMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveVolumeButtonMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveVolumeButtonMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveVolumeButtonMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveVolumeButtonMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveVolumeButtonMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveVolumeButtonMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveVolumeButtonMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveVolumeButtonMethod "getUseActionAppearance" o = ActivatableGetUseActionAppearanceMethodInfo + ResolveVolumeButtonMethod "getUseStock" o = ButtonGetUseStockMethodInfo + ResolveVolumeButtonMethod "getUseUnderline" o = ButtonGetUseUnderlineMethodInfo + ResolveVolumeButtonMethod "getValign" o = WidgetGetValignMethodInfo + ResolveVolumeButtonMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveVolumeButtonMethod "getValue" o = ScaleButtonGetValueMethodInfo + ResolveVolumeButtonMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveVolumeButtonMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveVolumeButtonMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveVolumeButtonMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveVolumeButtonMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveVolumeButtonMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveVolumeButtonMethod "setActionName" o = ActionableSetActionNameMethodInfo + ResolveVolumeButtonMethod "setActionTargetValue" o = ActionableSetActionTargetValueMethodInfo + ResolveVolumeButtonMethod "setAdjustment" o = ScaleButtonSetAdjustmentMethodInfo + ResolveVolumeButtonMethod "setAlignment" o = ButtonSetAlignmentMethodInfo + ResolveVolumeButtonMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveVolumeButtonMethod "setAlwaysShowImage" o = ButtonSetAlwaysShowImageMethodInfo + ResolveVolumeButtonMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveVolumeButtonMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveVolumeButtonMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveVolumeButtonMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveVolumeButtonMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveVolumeButtonMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveVolumeButtonMethod "setClip" o = WidgetSetClipMethodInfo + ResolveVolumeButtonMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveVolumeButtonMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveVolumeButtonMethod "setDetailedActionName" o = ActionableSetDetailedActionNameMethodInfo + ResolveVolumeButtonMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveVolumeButtonMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveVolumeButtonMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveVolumeButtonMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveVolumeButtonMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveVolumeButtonMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveVolumeButtonMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveVolumeButtonMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveVolumeButtonMethod "setFocusOnClick" o = ButtonSetFocusOnClickMethodInfo + ResolveVolumeButtonMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveVolumeButtonMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveVolumeButtonMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveVolumeButtonMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveVolumeButtonMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveVolumeButtonMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveVolumeButtonMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveVolumeButtonMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveVolumeButtonMethod "setIcons" o = ScaleButtonSetIconsMethodInfo + ResolveVolumeButtonMethod "setImage" o = ButtonSetImageMethodInfo + ResolveVolumeButtonMethod "setImagePosition" o = ButtonSetImagePositionMethodInfo + ResolveVolumeButtonMethod "setLabel" o = ButtonSetLabelMethodInfo + ResolveVolumeButtonMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveVolumeButtonMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveVolumeButtonMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveVolumeButtonMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveVolumeButtonMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveVolumeButtonMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveVolumeButtonMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveVolumeButtonMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveVolumeButtonMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveVolumeButtonMethod "setOrientation" o = OrientableSetOrientationMethodInfo + ResolveVolumeButtonMethod "setParent" o = WidgetSetParentMethodInfo + ResolveVolumeButtonMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveVolumeButtonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveVolumeButtonMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveVolumeButtonMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveVolumeButtonMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveVolumeButtonMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveVolumeButtonMethod "setRelatedAction" o = ActivatableSetRelatedActionMethodInfo + ResolveVolumeButtonMethod "setRelief" o = ButtonSetReliefMethodInfo + ResolveVolumeButtonMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveVolumeButtonMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveVolumeButtonMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveVolumeButtonMethod "setState" o = WidgetSetStateMethodInfo + ResolveVolumeButtonMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveVolumeButtonMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveVolumeButtonMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveVolumeButtonMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveVolumeButtonMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveVolumeButtonMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveVolumeButtonMethod "setUseActionAppearance" o = ActivatableSetUseActionAppearanceMethodInfo + ResolveVolumeButtonMethod "setUseStock" o = ButtonSetUseStockMethodInfo + ResolveVolumeButtonMethod "setUseUnderline" o = ButtonSetUseUnderlineMethodInfo + ResolveVolumeButtonMethod "setValign" o = WidgetSetValignMethodInfo + ResolveVolumeButtonMethod "setValue" o = ScaleButtonSetValueMethodInfo + ResolveVolumeButtonMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveVolumeButtonMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveVolumeButtonMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveVolumeButtonMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveVolumeButtonMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveVolumeButtonMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveVolumeButtonMethod t VolumeButton, MethodInfo info VolumeButton p) => IsLabelProxy t (VolumeButton -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveVolumeButtonMethod t VolumeButton, MethodInfo info VolumeButton p) => IsLabel t (VolumeButton -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "use-symbolic" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] @@ -86,22 +455,21 @@ type AttrSetTypeConstraint VolumeButtonUseSymbolicPropertyInfo = (~) Bool type AttrBaseTypeConstraint VolumeButtonUseSymbolicPropertyInfo = VolumeButtonK type AttrGetType VolumeButtonUseSymbolicPropertyInfo = Bool - type AttrLabel VolumeButtonUseSymbolicPropertyInfo = "VolumeButton::use-symbolic" + type AttrLabel VolumeButtonUseSymbolicPropertyInfo = "use-symbolic" attrGet _ = getVolumeButtonUseSymbolic attrSet _ = setVolumeButtonUseSymbolic attrConstruct _ = constructVolumeButtonUseSymbolic type instance AttributeList VolumeButton = VolumeButtonAttributeList -type VolumeButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icons", ScaleButtonIconsPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("size", ScaleButtonSizePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-symbolic", VolumeButtonUseSymbolicPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +type VolumeButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("icons", ScaleButtonIconsPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("size", ScaleButtonSizePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useSymbolic", VolumeButtonUseSymbolicPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) type instance SignalList VolumeButton = VolumeButtonSignalList -type VolumeButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ScaleButtonPopdownSignalInfo), '("popup", ScaleButtonPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", ScaleButtonValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type VolumeButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popdown", ScaleButtonPopdownSignalInfo), '("popup", ScaleButtonPopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", ScaleButtonValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method VolumeButton::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "VolumeButton" -- throws : False -- Skip return : False @@ -112,7 +480,7 @@ volumeButtonNew :: (MonadIO m) => - m VolumeButton + m VolumeButton -- result volumeButtonNew = liftIO $ do result <- gtk_volume_button_new checkUnexpectedReturnNULL "gtk_volume_button_new" result diff --git a/GI/Gtk/Objects/Widget.hs b/GI/Gtk/Objects/Widget.hs --- a/GI/Gtk/Objects/Widget.hs +++ b/GI/Gtk/Objects/Widget.hs @@ -1,13763 +1,15083 @@ -{- | -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.Objects.Widget - ( - --- * Exported types - Widget(..) , - WidgetK , - toWidget , - noWidget , - - - -- * Methods --- ** widgetActivate - widgetActivate , - - --- ** widgetAddAccelerator - widgetAddAccelerator , - - --- ** widgetAddDeviceEvents - widgetAddDeviceEvents , - - --- ** widgetAddEvents - widgetAddEvents , - - --- ** widgetAddMnemonicLabel - widgetAddMnemonicLabel , - - --- ** widgetAddTickCallback - widgetAddTickCallback , - - --- ** widgetCanActivateAccel - widgetCanActivateAccel , - - --- ** widgetChildFocus - widgetChildFocus , - - --- ** widgetChildNotify - widgetChildNotify , - - --- ** widgetClassPath - widgetClassPath , - - --- ** widgetComputeExpand - widgetComputeExpand , - - --- ** widgetCreatePangoContext - widgetCreatePangoContext , - - --- ** widgetCreatePangoLayout - widgetCreatePangoLayout , - - --- ** widgetDestroy - widgetDestroy , - - --- ** widgetDestroyed - widgetDestroyed , - - --- ** widgetDeviceIsShadowed - widgetDeviceIsShadowed , - - --- ** widgetDragBegin - widgetDragBegin , - - --- ** widgetDragBeginWithCoordinates - widgetDragBeginWithCoordinates , - - --- ** widgetDragCheckThreshold - widgetDragCheckThreshold , - - --- ** widgetDragDestAddImageTargets - widgetDragDestAddImageTargets , - - --- ** widgetDragDestAddTextTargets - widgetDragDestAddTextTargets , - - --- ** widgetDragDestAddUriTargets - widgetDragDestAddUriTargets , - - --- ** widgetDragDestFindTarget - widgetDragDestFindTarget , - - --- ** widgetDragDestGetTargetList - widgetDragDestGetTargetList , - - --- ** widgetDragDestGetTrackMotion - widgetDragDestGetTrackMotion , - - --- ** widgetDragDestSet - widgetDragDestSet , - - --- ** widgetDragDestSetProxy - widgetDragDestSetProxy , - - --- ** widgetDragDestSetTargetList - widgetDragDestSetTargetList , - - --- ** widgetDragDestSetTrackMotion - widgetDragDestSetTrackMotion , - - --- ** widgetDragDestUnset - widgetDragDestUnset , - - --- ** widgetDragGetData - widgetDragGetData , - - --- ** widgetDragHighlight - widgetDragHighlight , - - --- ** widgetDragSourceAddImageTargets - widgetDragSourceAddImageTargets , - - --- ** widgetDragSourceAddTextTargets - widgetDragSourceAddTextTargets , - - --- ** widgetDragSourceAddUriTargets - widgetDragSourceAddUriTargets , - - --- ** widgetDragSourceGetTargetList - widgetDragSourceGetTargetList , - - --- ** widgetDragSourceSet - widgetDragSourceSet , - - --- ** widgetDragSourceSetIconGicon - widgetDragSourceSetIconGicon , - - --- ** widgetDragSourceSetIconName - widgetDragSourceSetIconName , - - --- ** widgetDragSourceSetIconPixbuf - widgetDragSourceSetIconPixbuf , - - --- ** widgetDragSourceSetIconStock - widgetDragSourceSetIconStock , - - --- ** widgetDragSourceSetTargetList - widgetDragSourceSetTargetList , - - --- ** widgetDragSourceUnset - widgetDragSourceUnset , - - --- ** widgetDragUnhighlight - widgetDragUnhighlight , - - --- ** widgetDraw - widgetDraw , - - --- ** widgetEnsureStyle - widgetEnsureStyle , - - --- ** widgetErrorBell - widgetErrorBell , - - --- ** widgetEvent - widgetEvent , - - --- ** widgetFreezeChildNotify - widgetFreezeChildNotify , - - --- ** widgetGetAccessible - widgetGetAccessible , - - --- ** widgetGetActionGroup - widgetGetActionGroup , - - --- ** widgetGetAllocatedBaseline - widgetGetAllocatedBaseline , - - --- ** widgetGetAllocatedHeight - widgetGetAllocatedHeight , - - --- ** widgetGetAllocatedWidth - widgetGetAllocatedWidth , - - --- ** widgetGetAllocation - widgetGetAllocation , - - --- ** widgetGetAncestor - widgetGetAncestor , - - --- ** widgetGetAppPaintable - widgetGetAppPaintable , - - --- ** widgetGetCanDefault - widgetGetCanDefault , - - --- ** widgetGetCanFocus - widgetGetCanFocus , - - --- ** widgetGetChildRequisition - widgetGetChildRequisition , - - --- ** widgetGetChildVisible - widgetGetChildVisible , - - --- ** widgetGetClip - widgetGetClip , - - --- ** widgetGetClipboard - widgetGetClipboard , - - --- ** widgetGetCompositeName - widgetGetCompositeName , - - --- ** widgetGetDefaultDirection - widgetGetDefaultDirection , - - --- ** widgetGetDefaultStyle - widgetGetDefaultStyle , - - --- ** widgetGetDeviceEnabled - widgetGetDeviceEnabled , - - --- ** widgetGetDeviceEvents - widgetGetDeviceEvents , - - --- ** widgetGetDirection - widgetGetDirection , - - --- ** widgetGetDisplay - widgetGetDisplay , - - --- ** widgetGetDoubleBuffered - widgetGetDoubleBuffered , - - --- ** widgetGetEvents - widgetGetEvents , - - --- ** widgetGetFontMap - widgetGetFontMap , - - --- ** widgetGetFontOptions - widgetGetFontOptions , - - --- ** widgetGetFrameClock - widgetGetFrameClock , - - --- ** widgetGetHalign - widgetGetHalign , - - --- ** widgetGetHasTooltip - widgetGetHasTooltip , - - --- ** widgetGetHasWindow - widgetGetHasWindow , - - --- ** widgetGetHexpand - widgetGetHexpand , - - --- ** widgetGetHexpandSet - widgetGetHexpandSet , - - --- ** widgetGetMapped - widgetGetMapped , - - --- ** widgetGetMarginBottom - widgetGetMarginBottom , - - --- ** widgetGetMarginEnd - widgetGetMarginEnd , - - --- ** widgetGetMarginLeft - widgetGetMarginLeft , - - --- ** widgetGetMarginRight - widgetGetMarginRight , - - --- ** widgetGetMarginStart - widgetGetMarginStart , - - --- ** widgetGetMarginTop - widgetGetMarginTop , - - --- ** widgetGetModifierMask - widgetGetModifierMask , - - --- ** widgetGetModifierStyle - widgetGetModifierStyle , - - --- ** widgetGetName - widgetGetName , - - --- ** widgetGetNoShowAll - widgetGetNoShowAll , - - --- ** widgetGetOpacity - widgetGetOpacity , - - --- ** widgetGetPangoContext - widgetGetPangoContext , - - --- ** widgetGetParent - widgetGetParent , - - --- ** widgetGetParentWindow - widgetGetParentWindow , - - --- ** widgetGetPath - widgetGetPath , - - --- ** widgetGetPointer - widgetGetPointer , - - --- ** widgetGetPreferredHeight - widgetGetPreferredHeight , - - --- ** widgetGetPreferredHeightAndBaselineForWidth - widgetGetPreferredHeightAndBaselineForWidth, - - --- ** widgetGetPreferredHeightForWidth - widgetGetPreferredHeightForWidth , - - --- ** widgetGetPreferredSize - widgetGetPreferredSize , - - --- ** widgetGetPreferredWidth - widgetGetPreferredWidth , - - --- ** widgetGetPreferredWidthForHeight - widgetGetPreferredWidthForHeight , - - --- ** widgetGetRealized - widgetGetRealized , - - --- ** widgetGetReceivesDefault - widgetGetReceivesDefault , - - --- ** widgetGetRequestMode - widgetGetRequestMode , - - --- ** widgetGetRequisition - widgetGetRequisition , - - --- ** widgetGetRootWindow - widgetGetRootWindow , - - --- ** widgetGetScaleFactor - widgetGetScaleFactor , - - --- ** widgetGetScreen - widgetGetScreen , - - --- ** widgetGetSensitive - widgetGetSensitive , - - --- ** widgetGetSettings - widgetGetSettings , - - --- ** widgetGetSizeRequest - widgetGetSizeRequest , - - --- ** widgetGetState - widgetGetState , - - --- ** widgetGetStateFlags - widgetGetStateFlags , - - --- ** widgetGetStyle - widgetGetStyle , - - --- ** widgetGetStyleContext - widgetGetStyleContext , - - --- ** widgetGetSupportMultidevice - widgetGetSupportMultidevice , - - --- ** widgetGetTemplateChild - widgetGetTemplateChild , - - --- ** widgetGetTooltipMarkup - widgetGetTooltipMarkup , - - --- ** widgetGetTooltipText - widgetGetTooltipText , - - --- ** widgetGetTooltipWindow - widgetGetTooltipWindow , - - --- ** widgetGetToplevel - widgetGetToplevel , - - --- ** widgetGetValign - widgetGetValign , - - --- ** widgetGetValignWithBaseline - widgetGetValignWithBaseline , - - --- ** widgetGetVexpand - widgetGetVexpand , - - --- ** widgetGetVexpandSet - widgetGetVexpandSet , - - --- ** widgetGetVisible - widgetGetVisible , - - --- ** widgetGetVisual - widgetGetVisual , - - --- ** widgetGetWindow - widgetGetWindow , - - --- ** widgetGrabAdd - widgetGrabAdd , - - --- ** widgetGrabDefault - widgetGrabDefault , - - --- ** widgetGrabFocus - widgetGrabFocus , - - --- ** widgetGrabRemove - widgetGrabRemove , - - --- ** widgetHasDefault - widgetHasDefault , - - --- ** widgetHasFocus - widgetHasFocus , - - --- ** widgetHasGrab - widgetHasGrab , - - --- ** widgetHasRcStyle - widgetHasRcStyle , - - --- ** widgetHasScreen - widgetHasScreen , - - --- ** widgetHasVisibleFocus - widgetHasVisibleFocus , - - --- ** widgetHide - widgetHide , - - --- ** widgetHideOnDelete - widgetHideOnDelete , - - --- ** widgetInDestruction - widgetInDestruction , - - --- ** widgetInitTemplate - widgetInitTemplate , - - --- ** widgetInputShapeCombineRegion - widgetInputShapeCombineRegion , - - --- ** widgetInsertActionGroup - widgetInsertActionGroup , - - --- ** widgetIntersect - widgetIntersect , - - --- ** widgetIsAncestor - widgetIsAncestor , - - --- ** widgetIsComposited - widgetIsComposited , - - --- ** widgetIsDrawable - widgetIsDrawable , - - --- ** widgetIsFocus - widgetIsFocus , - - --- ** widgetIsSensitive - widgetIsSensitive , - - --- ** widgetIsToplevel - widgetIsToplevel , - - --- ** widgetIsVisible - widgetIsVisible , - - --- ** widgetKeynavFailed - widgetKeynavFailed , - - --- ** widgetListAccelClosures - widgetListAccelClosures , - - --- ** widgetListActionPrefixes - widgetListActionPrefixes , - - --- ** widgetListMnemonicLabels - widgetListMnemonicLabels , - - --- ** widgetMap - widgetMap , - - --- ** widgetMnemonicActivate - widgetMnemonicActivate , - - --- ** widgetModifyBase - widgetModifyBase , - - --- ** widgetModifyBg - widgetModifyBg , - - --- ** widgetModifyCursor - widgetModifyCursor , - - --- ** widgetModifyFg - widgetModifyFg , - - --- ** widgetModifyFont - widgetModifyFont , - - --- ** widgetModifyStyle - widgetModifyStyle , - - --- ** widgetModifyText - widgetModifyText , - - --- ** widgetOverrideBackgroundColor - widgetOverrideBackgroundColor , - - --- ** widgetOverrideColor - widgetOverrideColor , - - --- ** widgetOverrideCursor - widgetOverrideCursor , - - --- ** widgetOverrideFont - widgetOverrideFont , - - --- ** widgetOverrideSymbolicColor - widgetOverrideSymbolicColor , - - --- ** widgetPath - widgetPath , - - --- ** widgetPopCompositeChild - widgetPopCompositeChild , - - --- ** widgetPushCompositeChild - widgetPushCompositeChild , - - --- ** widgetQueueComputeExpand - widgetQueueComputeExpand , - - --- ** widgetQueueDraw - widgetQueueDraw , - - --- ** widgetQueueDrawArea - widgetQueueDrawArea , - - --- ** widgetQueueDrawRegion - widgetQueueDrawRegion , - - --- ** widgetQueueResize - widgetQueueResize , - - --- ** widgetQueueResizeNoRedraw - widgetQueueResizeNoRedraw , - - --- ** widgetRealize - widgetRealize , - - --- ** widgetRegionIntersect - widgetRegionIntersect , - - --- ** widgetRegisterWindow - widgetRegisterWindow , - - --- ** widgetRemoveAccelerator - widgetRemoveAccelerator , - - --- ** widgetRemoveMnemonicLabel - widgetRemoveMnemonicLabel , - - --- ** widgetRemoveTickCallback - widgetRemoveTickCallback , - - --- ** widgetRenderIcon - widgetRenderIcon , - - --- ** widgetRenderIconPixbuf - widgetRenderIconPixbuf , - - --- ** widgetReparent - widgetReparent , - - --- ** widgetResetRcStyles - widgetResetRcStyles , - - --- ** widgetResetStyle - widgetResetStyle , - - --- ** widgetSendExpose - widgetSendExpose , - - --- ** widgetSendFocusChange - widgetSendFocusChange , - - --- ** widgetSetAccelPath - widgetSetAccelPath , - - --- ** widgetSetAllocation - widgetSetAllocation , - - --- ** widgetSetAppPaintable - widgetSetAppPaintable , - - --- ** widgetSetCanDefault - widgetSetCanDefault , - - --- ** widgetSetCanFocus - widgetSetCanFocus , - - --- ** widgetSetChildVisible - widgetSetChildVisible , - - --- ** widgetSetClip - widgetSetClip , - - --- ** widgetSetCompositeName - widgetSetCompositeName , - - --- ** widgetSetDefaultDirection - widgetSetDefaultDirection , - - --- ** widgetSetDeviceEnabled - widgetSetDeviceEnabled , - - --- ** widgetSetDeviceEvents - widgetSetDeviceEvents , - - --- ** widgetSetDirection - widgetSetDirection , - - --- ** widgetSetDoubleBuffered - widgetSetDoubleBuffered , - - --- ** widgetSetEvents - widgetSetEvents , - - --- ** widgetSetFontMap - widgetSetFontMap , - - --- ** widgetSetFontOptions - widgetSetFontOptions , - - --- ** widgetSetHalign - widgetSetHalign , - - --- ** widgetSetHasTooltip - widgetSetHasTooltip , - - --- ** widgetSetHasWindow - widgetSetHasWindow , - - --- ** widgetSetHexpand - widgetSetHexpand , - - --- ** widgetSetHexpandSet - widgetSetHexpandSet , - - --- ** widgetSetMapped - widgetSetMapped , - - --- ** widgetSetMarginBottom - widgetSetMarginBottom , - - --- ** widgetSetMarginEnd - widgetSetMarginEnd , - - --- ** widgetSetMarginLeft - widgetSetMarginLeft , - - --- ** widgetSetMarginRight - widgetSetMarginRight , - - --- ** widgetSetMarginStart - widgetSetMarginStart , - - --- ** widgetSetMarginTop - widgetSetMarginTop , - - --- ** widgetSetName - widgetSetName , - - --- ** widgetSetNoShowAll - widgetSetNoShowAll , - - --- ** widgetSetOpacity - widgetSetOpacity , - - --- ** widgetSetParent - widgetSetParent , - - --- ** widgetSetParentWindow - widgetSetParentWindow , - - --- ** widgetSetRealized - widgetSetRealized , - - --- ** widgetSetReceivesDefault - widgetSetReceivesDefault , - - --- ** widgetSetRedrawOnAllocate - widgetSetRedrawOnAllocate , - - --- ** widgetSetSensitive - widgetSetSensitive , - - --- ** widgetSetSizeRequest - widgetSetSizeRequest , - - --- ** widgetSetState - widgetSetState , - - --- ** widgetSetStateFlags - widgetSetStateFlags , - - --- ** widgetSetStyle - widgetSetStyle , - - --- ** widgetSetSupportMultidevice - widgetSetSupportMultidevice , - - --- ** widgetSetTooltipMarkup - widgetSetTooltipMarkup , - - --- ** widgetSetTooltipText - widgetSetTooltipText , - - --- ** widgetSetTooltipWindow - widgetSetTooltipWindow , - - --- ** widgetSetValign - widgetSetValign , - - --- ** widgetSetVexpand - widgetSetVexpand , - - --- ** widgetSetVexpandSet - widgetSetVexpandSet , - - --- ** widgetSetVisible - widgetSetVisible , - - --- ** widgetSetVisual - widgetSetVisual , - - --- ** widgetSetWindow - widgetSetWindow , - - --- ** widgetShapeCombineRegion - widgetShapeCombineRegion , - - --- ** widgetShow - widgetShow , - - --- ** widgetShowAll - widgetShowAll , - - --- ** widgetShowNow - widgetShowNow , - - --- ** widgetSizeAllocate - widgetSizeAllocate , - - --- ** widgetSizeAllocateWithBaseline - widgetSizeAllocateWithBaseline , - - --- ** widgetSizeRequest - widgetSizeRequest , - - --- ** widgetStyleAttach - widgetStyleAttach , - - --- ** widgetStyleGetProperty - widgetStyleGetProperty , - - --- ** widgetThawChildNotify - widgetThawChildNotify , - - --- ** widgetTranslateCoordinates - widgetTranslateCoordinates , - - --- ** widgetTriggerTooltipQuery - widgetTriggerTooltipQuery , - - --- ** widgetUnmap - widgetUnmap , - - --- ** widgetUnparent - widgetUnparent , - - --- ** widgetUnrealize - widgetUnrealize , - - --- ** widgetUnregisterWindow - widgetUnregisterWindow , - - --- ** widgetUnsetStateFlags - widgetUnsetStateFlags , - - - - - -- * Properties --- ** AppPaintable - WidgetAppPaintablePropertyInfo , - constructWidgetAppPaintable , - getWidgetAppPaintable , - setWidgetAppPaintable , - - --- ** CanDefault - WidgetCanDefaultPropertyInfo , - constructWidgetCanDefault , - getWidgetCanDefault , - setWidgetCanDefault , - - --- ** CanFocus - WidgetCanFocusPropertyInfo , - constructWidgetCanFocus , - getWidgetCanFocus , - setWidgetCanFocus , - - --- ** CompositeChild - WidgetCompositeChildPropertyInfo , - getWidgetCompositeChild , - - --- ** DoubleBuffered - WidgetDoubleBufferedPropertyInfo , - constructWidgetDoubleBuffered , - getWidgetDoubleBuffered , - setWidgetDoubleBuffered , - - --- ** Events - WidgetEventsPropertyInfo , - constructWidgetEvents , - getWidgetEvents , - setWidgetEvents , - - --- ** Expand - WidgetExpandPropertyInfo , - constructWidgetExpand , - getWidgetExpand , - setWidgetExpand , - - --- ** Halign - WidgetHalignPropertyInfo , - constructWidgetHalign , - getWidgetHalign , - setWidgetHalign , - - --- ** HasDefault - WidgetHasDefaultPropertyInfo , - constructWidgetHasDefault , - getWidgetHasDefault , - setWidgetHasDefault , - - --- ** HasFocus - WidgetHasFocusPropertyInfo , - constructWidgetHasFocus , - getWidgetHasFocus , - setWidgetHasFocus , - - --- ** HasTooltip - WidgetHasTooltipPropertyInfo , - constructWidgetHasTooltip , - getWidgetHasTooltip , - setWidgetHasTooltip , - - --- ** HeightRequest - WidgetHeightRequestPropertyInfo , - constructWidgetHeightRequest , - getWidgetHeightRequest , - setWidgetHeightRequest , - - --- ** Hexpand - WidgetHexpandPropertyInfo , - constructWidgetHexpand , - getWidgetHexpand , - setWidgetHexpand , - - --- ** HexpandSet - WidgetHexpandSetPropertyInfo , - constructWidgetHexpandSet , - getWidgetHexpandSet , - setWidgetHexpandSet , - - --- ** IsFocus - WidgetIsFocusPropertyInfo , - constructWidgetIsFocus , - getWidgetIsFocus , - setWidgetIsFocus , - - --- ** Margin - WidgetMarginPropertyInfo , - constructWidgetMargin , - getWidgetMargin , - setWidgetMargin , - - --- ** MarginBottom - WidgetMarginBottomPropertyInfo , - constructWidgetMarginBottom , - getWidgetMarginBottom , - setWidgetMarginBottom , - - --- ** MarginEnd - WidgetMarginEndPropertyInfo , - constructWidgetMarginEnd , - getWidgetMarginEnd , - setWidgetMarginEnd , - - --- ** MarginLeft - WidgetMarginLeftPropertyInfo , - constructWidgetMarginLeft , - getWidgetMarginLeft , - setWidgetMarginLeft , - - --- ** MarginRight - WidgetMarginRightPropertyInfo , - constructWidgetMarginRight , - getWidgetMarginRight , - setWidgetMarginRight , - - --- ** MarginStart - WidgetMarginStartPropertyInfo , - constructWidgetMarginStart , - getWidgetMarginStart , - setWidgetMarginStart , - - --- ** MarginTop - WidgetMarginTopPropertyInfo , - constructWidgetMarginTop , - getWidgetMarginTop , - setWidgetMarginTop , - - --- ** Name - WidgetNamePropertyInfo , - constructWidgetName , - getWidgetName , - setWidgetName , - - --- ** NoShowAll - WidgetNoShowAllPropertyInfo , - constructWidgetNoShowAll , - getWidgetNoShowAll , - setWidgetNoShowAll , - - --- ** Opacity - WidgetOpacityPropertyInfo , - constructWidgetOpacity , - getWidgetOpacity , - setWidgetOpacity , - - --- ** Parent - WidgetParentPropertyInfo , - constructWidgetParent , - getWidgetParent , - setWidgetParent , - - --- ** ReceivesDefault - WidgetReceivesDefaultPropertyInfo , - constructWidgetReceivesDefault , - getWidgetReceivesDefault , - setWidgetReceivesDefault , - - --- ** ScaleFactor - WidgetScaleFactorPropertyInfo , - getWidgetScaleFactor , - - --- ** Sensitive - WidgetSensitivePropertyInfo , - constructWidgetSensitive , - getWidgetSensitive , - setWidgetSensitive , - - --- ** Style - WidgetStylePropertyInfo , - constructWidgetStyle , - getWidgetStyle , - setWidgetStyle , - - --- ** TooltipMarkup - WidgetTooltipMarkupPropertyInfo , - constructWidgetTooltipMarkup , - getWidgetTooltipMarkup , - setWidgetTooltipMarkup , - - --- ** TooltipText - WidgetTooltipTextPropertyInfo , - constructWidgetTooltipText , - getWidgetTooltipText , - setWidgetTooltipText , - - --- ** Valign - WidgetValignPropertyInfo , - constructWidgetValign , - getWidgetValign , - setWidgetValign , - - --- ** Vexpand - WidgetVexpandPropertyInfo , - constructWidgetVexpand , - getWidgetVexpand , - setWidgetVexpand , - - --- ** VexpandSet - WidgetVexpandSetPropertyInfo , - constructWidgetVexpandSet , - getWidgetVexpandSet , - setWidgetVexpandSet , - - --- ** Visible - WidgetVisiblePropertyInfo , - constructWidgetVisible , - getWidgetVisible , - setWidgetVisible , - - --- ** WidthRequest - WidgetWidthRequestPropertyInfo , - constructWidgetWidthRequest , - getWidgetWidthRequest , - setWidgetWidthRequest , - - --- ** Window - WidgetWindowPropertyInfo , - getWidgetWindow , - - - - - -- * Signals --- ** AccelClosuresChanged - WidgetAccelClosuresChangedCallback , - WidgetAccelClosuresChangedCallbackC , - WidgetAccelClosuresChangedSignalInfo , - afterWidgetAccelClosuresChanged , - mkWidgetAccelClosuresChangedCallback , - noWidgetAccelClosuresChangedCallback , - onWidgetAccelClosuresChanged , - widgetAccelClosuresChangedCallbackWrapper, - widgetAccelClosuresChangedClosure , - - --- ** ButtonPressEvent - WidgetButtonPressEventCallback , - WidgetButtonPressEventCallbackC , - WidgetButtonPressEventSignalInfo , - afterWidgetButtonPressEvent , - mkWidgetButtonPressEventCallback , - noWidgetButtonPressEventCallback , - onWidgetButtonPressEvent , - widgetButtonPressEventCallbackWrapper , - widgetButtonPressEventClosure , - - --- ** ButtonReleaseEvent - WidgetButtonReleaseEventCallback , - WidgetButtonReleaseEventCallbackC , - WidgetButtonReleaseEventSignalInfo , - afterWidgetButtonReleaseEvent , - mkWidgetButtonReleaseEventCallback , - noWidgetButtonReleaseEventCallback , - onWidgetButtonReleaseEvent , - widgetButtonReleaseEventCallbackWrapper , - widgetButtonReleaseEventClosure , - - --- ** CanActivateAccel - WidgetCanActivateAccelCallback , - WidgetCanActivateAccelCallbackC , - WidgetCanActivateAccelSignalInfo , - afterWidgetCanActivateAccel , - mkWidgetCanActivateAccelCallback , - noWidgetCanActivateAccelCallback , - onWidgetCanActivateAccel , - widgetCanActivateAccelCallbackWrapper , - widgetCanActivateAccelClosure , - - --- ** ChildNotify - WidgetChildNotifyCallback , - WidgetChildNotifyCallbackC , - WidgetChildNotifySignalInfo , - afterWidgetChildNotify , - mkWidgetChildNotifyCallback , - noWidgetChildNotifyCallback , - onWidgetChildNotify , - widgetChildNotifyCallbackWrapper , - widgetChildNotifyClosure , - - --- ** CompositedChanged - WidgetCompositedChangedCallback , - WidgetCompositedChangedCallbackC , - WidgetCompositedChangedSignalInfo , - afterWidgetCompositedChanged , - mkWidgetCompositedChangedCallback , - noWidgetCompositedChangedCallback , - onWidgetCompositedChanged , - widgetCompositedChangedCallbackWrapper , - widgetCompositedChangedClosure , - - --- ** ConfigureEvent - WidgetConfigureEventCallback , - WidgetConfigureEventCallbackC , - WidgetConfigureEventSignalInfo , - afterWidgetConfigureEvent , - mkWidgetConfigureEventCallback , - noWidgetConfigureEventCallback , - onWidgetConfigureEvent , - widgetConfigureEventCallbackWrapper , - widgetConfigureEventClosure , - - --- ** DamageEvent - WidgetDamageEventCallback , - WidgetDamageEventCallbackC , - WidgetDamageEventSignalInfo , - afterWidgetDamageEvent , - mkWidgetDamageEventCallback , - noWidgetDamageEventCallback , - onWidgetDamageEvent , - widgetDamageEventCallbackWrapper , - widgetDamageEventClosure , - - --- ** DeleteEvent - WidgetDeleteEventCallback , - WidgetDeleteEventCallbackC , - WidgetDeleteEventSignalInfo , - afterWidgetDeleteEvent , - mkWidgetDeleteEventCallback , - noWidgetDeleteEventCallback , - onWidgetDeleteEvent , - widgetDeleteEventCallbackWrapper , - widgetDeleteEventClosure , - - --- ** Destroy - WidgetDestroyCallback , - WidgetDestroyCallbackC , - WidgetDestroySignalInfo , - afterWidgetDestroy , - mkWidgetDestroyCallback , - noWidgetDestroyCallback , - onWidgetDestroy , - widgetDestroyCallbackWrapper , - widgetDestroyClosure , - - --- ** DestroyEvent - WidgetDestroyEventCallback , - WidgetDestroyEventCallbackC , - WidgetDestroyEventSignalInfo , - afterWidgetDestroyEvent , - mkWidgetDestroyEventCallback , - noWidgetDestroyEventCallback , - onWidgetDestroyEvent , - widgetDestroyEventCallbackWrapper , - widgetDestroyEventClosure , - - --- ** DirectionChanged - WidgetDirectionChangedCallback , - WidgetDirectionChangedCallbackC , - WidgetDirectionChangedSignalInfo , - afterWidgetDirectionChanged , - mkWidgetDirectionChangedCallback , - noWidgetDirectionChangedCallback , - onWidgetDirectionChanged , - widgetDirectionChangedCallbackWrapper , - widgetDirectionChangedClosure , - - --- ** DragBegin - WidgetDragBeginCallback , - WidgetDragBeginCallbackC , - WidgetDragBeginSignalInfo , - afterWidgetDragBegin , - mkWidgetDragBeginCallback , - noWidgetDragBeginCallback , - onWidgetDragBegin , - widgetDragBeginCallbackWrapper , - widgetDragBeginClosure , - - --- ** DragDataDelete - WidgetDragDataDeleteCallback , - WidgetDragDataDeleteCallbackC , - WidgetDragDataDeleteSignalInfo , - afterWidgetDragDataDelete , - mkWidgetDragDataDeleteCallback , - noWidgetDragDataDeleteCallback , - onWidgetDragDataDelete , - widgetDragDataDeleteCallbackWrapper , - widgetDragDataDeleteClosure , - - --- ** DragDataGet - WidgetDragDataGetCallback , - WidgetDragDataGetCallbackC , - WidgetDragDataGetSignalInfo , - afterWidgetDragDataGet , - mkWidgetDragDataGetCallback , - noWidgetDragDataGetCallback , - onWidgetDragDataGet , - widgetDragDataGetCallbackWrapper , - widgetDragDataGetClosure , - - --- ** DragDataReceived - WidgetDragDataReceivedCallback , - WidgetDragDataReceivedCallbackC , - WidgetDragDataReceivedSignalInfo , - afterWidgetDragDataReceived , - mkWidgetDragDataReceivedCallback , - noWidgetDragDataReceivedCallback , - onWidgetDragDataReceived , - widgetDragDataReceivedCallbackWrapper , - widgetDragDataReceivedClosure , - - --- ** DragDrop - WidgetDragDropCallback , - WidgetDragDropCallbackC , - WidgetDragDropSignalInfo , - afterWidgetDragDrop , - mkWidgetDragDropCallback , - noWidgetDragDropCallback , - onWidgetDragDrop , - widgetDragDropCallbackWrapper , - widgetDragDropClosure , - - --- ** DragEnd - WidgetDragEndCallback , - WidgetDragEndCallbackC , - WidgetDragEndSignalInfo , - afterWidgetDragEnd , - mkWidgetDragEndCallback , - noWidgetDragEndCallback , - onWidgetDragEnd , - widgetDragEndCallbackWrapper , - widgetDragEndClosure , - - --- ** DragFailed - WidgetDragFailedCallback , - WidgetDragFailedCallbackC , - WidgetDragFailedSignalInfo , - afterWidgetDragFailed , - mkWidgetDragFailedCallback , - noWidgetDragFailedCallback , - onWidgetDragFailed , - widgetDragFailedCallbackWrapper , - widgetDragFailedClosure , - - --- ** DragLeave - WidgetDragLeaveCallback , - WidgetDragLeaveCallbackC , - WidgetDragLeaveSignalInfo , - afterWidgetDragLeave , - mkWidgetDragLeaveCallback , - noWidgetDragLeaveCallback , - onWidgetDragLeave , - widgetDragLeaveCallbackWrapper , - widgetDragLeaveClosure , - - --- ** DragMotion - WidgetDragMotionCallback , - WidgetDragMotionCallbackC , - WidgetDragMotionSignalInfo , - afterWidgetDragMotion , - mkWidgetDragMotionCallback , - noWidgetDragMotionCallback , - onWidgetDragMotion , - widgetDragMotionCallbackWrapper , - widgetDragMotionClosure , - - --- ** Draw - WidgetDrawCallback , - WidgetDrawCallbackC , - WidgetDrawSignalInfo , - afterWidgetDraw , - mkWidgetDrawCallback , - noWidgetDrawCallback , - onWidgetDraw , - widgetDrawCallbackWrapper , - widgetDrawClosure , - - --- ** EnterNotifyEvent - WidgetEnterNotifyEventCallback , - WidgetEnterNotifyEventCallbackC , - WidgetEnterNotifyEventSignalInfo , - afterWidgetEnterNotifyEvent , - mkWidgetEnterNotifyEventCallback , - noWidgetEnterNotifyEventCallback , - onWidgetEnterNotifyEvent , - widgetEnterNotifyEventCallbackWrapper , - widgetEnterNotifyEventClosure , - - --- ** Event - WidgetEventCallback , - WidgetEventCallbackC , - WidgetEventSignalInfo , - afterWidgetEvent , - mkWidgetEventCallback , - noWidgetEventCallback , - onWidgetEvent , - widgetEventCallbackWrapper , - widgetEventClosure , - - --- ** EventAfter - WidgetEventAfterCallback , - WidgetEventAfterCallbackC , - WidgetEventAfterSignalInfo , - afterWidgetEventAfter , - mkWidgetEventAfterCallback , - noWidgetEventAfterCallback , - onWidgetEventAfter , - widgetEventAfterCallbackWrapper , - widgetEventAfterClosure , - - --- ** Focus - WidgetFocusCallback , - WidgetFocusCallbackC , - WidgetFocusSignalInfo , - afterWidgetFocus , - mkWidgetFocusCallback , - noWidgetFocusCallback , - onWidgetFocus , - widgetFocusCallbackWrapper , - widgetFocusClosure , - - --- ** FocusInEvent - WidgetFocusInEventCallback , - WidgetFocusInEventCallbackC , - WidgetFocusInEventSignalInfo , - afterWidgetFocusInEvent , - mkWidgetFocusInEventCallback , - noWidgetFocusInEventCallback , - onWidgetFocusInEvent , - widgetFocusInEventCallbackWrapper , - widgetFocusInEventClosure , - - --- ** FocusOutEvent - WidgetFocusOutEventCallback , - WidgetFocusOutEventCallbackC , - WidgetFocusOutEventSignalInfo , - afterWidgetFocusOutEvent , - mkWidgetFocusOutEventCallback , - noWidgetFocusOutEventCallback , - onWidgetFocusOutEvent , - widgetFocusOutEventCallbackWrapper , - widgetFocusOutEventClosure , - - --- ** GrabBrokenEvent - WidgetGrabBrokenEventCallback , - WidgetGrabBrokenEventCallbackC , - WidgetGrabBrokenEventSignalInfo , - afterWidgetGrabBrokenEvent , - mkWidgetGrabBrokenEventCallback , - noWidgetGrabBrokenEventCallback , - onWidgetGrabBrokenEvent , - widgetGrabBrokenEventCallbackWrapper , - widgetGrabBrokenEventClosure , - - --- ** GrabFocus - WidgetGrabFocusCallback , - WidgetGrabFocusCallbackC , - WidgetGrabFocusSignalInfo , - afterWidgetGrabFocus , - mkWidgetGrabFocusCallback , - noWidgetGrabFocusCallback , - onWidgetGrabFocus , - widgetGrabFocusCallbackWrapper , - widgetGrabFocusClosure , - - --- ** GrabNotify - WidgetGrabNotifyCallback , - WidgetGrabNotifyCallbackC , - WidgetGrabNotifySignalInfo , - afterWidgetGrabNotify , - mkWidgetGrabNotifyCallback , - noWidgetGrabNotifyCallback , - onWidgetGrabNotify , - widgetGrabNotifyCallbackWrapper , - widgetGrabNotifyClosure , - - --- ** Hide - WidgetHideCallback , - WidgetHideCallbackC , - WidgetHideSignalInfo , - afterWidgetHide , - mkWidgetHideCallback , - noWidgetHideCallback , - onWidgetHide , - widgetHideCallbackWrapper , - widgetHideClosure , - - --- ** HierarchyChanged - WidgetHierarchyChangedCallback , - WidgetHierarchyChangedCallbackC , - WidgetHierarchyChangedSignalInfo , - afterWidgetHierarchyChanged , - mkWidgetHierarchyChangedCallback , - noWidgetHierarchyChangedCallback , - onWidgetHierarchyChanged , - widgetHierarchyChangedCallbackWrapper , - widgetHierarchyChangedClosure , - - --- ** KeyPressEvent - WidgetKeyPressEventCallback , - WidgetKeyPressEventCallbackC , - WidgetKeyPressEventSignalInfo , - afterWidgetKeyPressEvent , - mkWidgetKeyPressEventCallback , - noWidgetKeyPressEventCallback , - onWidgetKeyPressEvent , - widgetKeyPressEventCallbackWrapper , - widgetKeyPressEventClosure , - - --- ** KeyReleaseEvent - WidgetKeyReleaseEventCallback , - WidgetKeyReleaseEventCallbackC , - WidgetKeyReleaseEventSignalInfo , - afterWidgetKeyReleaseEvent , - mkWidgetKeyReleaseEventCallback , - noWidgetKeyReleaseEventCallback , - onWidgetKeyReleaseEvent , - widgetKeyReleaseEventCallbackWrapper , - widgetKeyReleaseEventClosure , - - --- ** KeynavFailed - WidgetKeynavFailedCallback , - WidgetKeynavFailedCallbackC , - WidgetKeynavFailedSignalInfo , - afterWidgetKeynavFailed , - mkWidgetKeynavFailedCallback , - noWidgetKeynavFailedCallback , - onWidgetKeynavFailed , - widgetKeynavFailedCallbackWrapper , - widgetKeynavFailedClosure , - - --- ** LeaveNotifyEvent - WidgetLeaveNotifyEventCallback , - WidgetLeaveNotifyEventCallbackC , - WidgetLeaveNotifyEventSignalInfo , - afterWidgetLeaveNotifyEvent , - mkWidgetLeaveNotifyEventCallback , - noWidgetLeaveNotifyEventCallback , - onWidgetLeaveNotifyEvent , - widgetLeaveNotifyEventCallbackWrapper , - widgetLeaveNotifyEventClosure , - - --- ** Map - WidgetMapCallback , - WidgetMapCallbackC , - WidgetMapSignalInfo , - afterWidgetMap , - mkWidgetMapCallback , - noWidgetMapCallback , - onWidgetMap , - widgetMapCallbackWrapper , - widgetMapClosure , - - --- ** MapEvent - WidgetMapEventCallback , - WidgetMapEventCallbackC , - WidgetMapEventSignalInfo , - afterWidgetMapEvent , - mkWidgetMapEventCallback , - noWidgetMapEventCallback , - onWidgetMapEvent , - widgetMapEventCallbackWrapper , - widgetMapEventClosure , - - --- ** MnemonicActivate - WidgetMnemonicActivateCallback , - WidgetMnemonicActivateCallbackC , - WidgetMnemonicActivateSignalInfo , - afterWidgetMnemonicActivate , - mkWidgetMnemonicActivateCallback , - noWidgetMnemonicActivateCallback , - onWidgetMnemonicActivate , - widgetMnemonicActivateCallbackWrapper , - widgetMnemonicActivateClosure , - - --- ** MotionNotifyEvent - WidgetMotionNotifyEventCallback , - WidgetMotionNotifyEventCallbackC , - WidgetMotionNotifyEventSignalInfo , - afterWidgetMotionNotifyEvent , - mkWidgetMotionNotifyEventCallback , - noWidgetMotionNotifyEventCallback , - onWidgetMotionNotifyEvent , - widgetMotionNotifyEventCallbackWrapper , - widgetMotionNotifyEventClosure , - - --- ** MoveFocus - WidgetMoveFocusCallback , - WidgetMoveFocusCallbackC , - WidgetMoveFocusSignalInfo , - afterWidgetMoveFocus , - mkWidgetMoveFocusCallback , - noWidgetMoveFocusCallback , - onWidgetMoveFocus , - widgetMoveFocusCallbackWrapper , - widgetMoveFocusClosure , - - --- ** ParentSet - WidgetParentSetCallback , - WidgetParentSetCallbackC , - WidgetParentSetSignalInfo , - afterWidgetParentSet , - mkWidgetParentSetCallback , - noWidgetParentSetCallback , - onWidgetParentSet , - widgetParentSetCallbackWrapper , - widgetParentSetClosure , - - --- ** PopupMenu - WidgetPopupMenuCallback , - WidgetPopupMenuCallbackC , - WidgetPopupMenuSignalInfo , - afterWidgetPopupMenu , - mkWidgetPopupMenuCallback , - noWidgetPopupMenuCallback , - onWidgetPopupMenu , - widgetPopupMenuCallbackWrapper , - widgetPopupMenuClosure , - - --- ** PropertyNotifyEvent - WidgetPropertyNotifyEventCallback , - WidgetPropertyNotifyEventCallbackC , - WidgetPropertyNotifyEventSignalInfo , - afterWidgetPropertyNotifyEvent , - mkWidgetPropertyNotifyEventCallback , - noWidgetPropertyNotifyEventCallback , - onWidgetPropertyNotifyEvent , - widgetPropertyNotifyEventCallbackWrapper, - widgetPropertyNotifyEventClosure , - - --- ** ProximityInEvent - WidgetProximityInEventCallback , - WidgetProximityInEventCallbackC , - WidgetProximityInEventSignalInfo , - afterWidgetProximityInEvent , - mkWidgetProximityInEventCallback , - noWidgetProximityInEventCallback , - onWidgetProximityInEvent , - widgetProximityInEventCallbackWrapper , - widgetProximityInEventClosure , - - --- ** ProximityOutEvent - WidgetProximityOutEventCallback , - WidgetProximityOutEventCallbackC , - WidgetProximityOutEventSignalInfo , - afterWidgetProximityOutEvent , - mkWidgetProximityOutEventCallback , - noWidgetProximityOutEventCallback , - onWidgetProximityOutEvent , - widgetProximityOutEventCallbackWrapper , - widgetProximityOutEventClosure , - - --- ** QueryTooltip - WidgetQueryTooltipCallback , - WidgetQueryTooltipCallbackC , - WidgetQueryTooltipSignalInfo , - afterWidgetQueryTooltip , - mkWidgetQueryTooltipCallback , - noWidgetQueryTooltipCallback , - onWidgetQueryTooltip , - widgetQueryTooltipCallbackWrapper , - widgetQueryTooltipClosure , - - --- ** Realize - WidgetRealizeCallback , - WidgetRealizeCallbackC , - WidgetRealizeSignalInfo , - afterWidgetRealize , - mkWidgetRealizeCallback , - noWidgetRealizeCallback , - onWidgetRealize , - widgetRealizeCallbackWrapper , - widgetRealizeClosure , - - --- ** ScreenChanged - WidgetScreenChangedCallback , - WidgetScreenChangedCallbackC , - WidgetScreenChangedSignalInfo , - afterWidgetScreenChanged , - mkWidgetScreenChangedCallback , - noWidgetScreenChangedCallback , - onWidgetScreenChanged , - widgetScreenChangedCallbackWrapper , - widgetScreenChangedClosure , - - --- ** ScrollEvent - WidgetScrollEventCallback , - WidgetScrollEventCallbackC , - WidgetScrollEventSignalInfo , - afterWidgetScrollEvent , - mkWidgetScrollEventCallback , - noWidgetScrollEventCallback , - onWidgetScrollEvent , - widgetScrollEventCallbackWrapper , - widgetScrollEventClosure , - - --- ** SelectionClearEvent - WidgetSelectionClearEventCallback , - WidgetSelectionClearEventCallbackC , - WidgetSelectionClearEventSignalInfo , - afterWidgetSelectionClearEvent , - mkWidgetSelectionClearEventCallback , - noWidgetSelectionClearEventCallback , - onWidgetSelectionClearEvent , - widgetSelectionClearEventCallbackWrapper, - widgetSelectionClearEventClosure , - - --- ** SelectionGet - WidgetSelectionGetCallback , - WidgetSelectionGetCallbackC , - WidgetSelectionGetSignalInfo , - afterWidgetSelectionGet , - mkWidgetSelectionGetCallback , - noWidgetSelectionGetCallback , - onWidgetSelectionGet , - widgetSelectionGetCallbackWrapper , - widgetSelectionGetClosure , - - --- ** SelectionNotifyEvent - WidgetSelectionNotifyEventCallback , - WidgetSelectionNotifyEventCallbackC , - WidgetSelectionNotifyEventSignalInfo , - afterWidgetSelectionNotifyEvent , - mkWidgetSelectionNotifyEventCallback , - noWidgetSelectionNotifyEventCallback , - onWidgetSelectionNotifyEvent , - widgetSelectionNotifyEventCallbackWrapper, - widgetSelectionNotifyEventClosure , - - --- ** SelectionReceived - WidgetSelectionReceivedCallback , - WidgetSelectionReceivedCallbackC , - WidgetSelectionReceivedSignalInfo , - afterWidgetSelectionReceived , - mkWidgetSelectionReceivedCallback , - noWidgetSelectionReceivedCallback , - onWidgetSelectionReceived , - widgetSelectionReceivedCallbackWrapper , - widgetSelectionReceivedClosure , - - --- ** SelectionRequestEvent - WidgetSelectionRequestEventCallback , - WidgetSelectionRequestEventCallbackC , - WidgetSelectionRequestEventSignalInfo , - afterWidgetSelectionRequestEvent , - mkWidgetSelectionRequestEventCallback , - noWidgetSelectionRequestEventCallback , - onWidgetSelectionRequestEvent , - widgetSelectionRequestEventCallbackWrapper, - widgetSelectionRequestEventClosure , - - --- ** Show - WidgetShowCallback , - WidgetShowCallbackC , - WidgetShowSignalInfo , - afterWidgetShow , - mkWidgetShowCallback , - noWidgetShowCallback , - onWidgetShow , - widgetShowCallbackWrapper , - widgetShowClosure , - - --- ** ShowHelp - WidgetShowHelpCallback , - WidgetShowHelpCallbackC , - WidgetShowHelpSignalInfo , - afterWidgetShowHelp , - mkWidgetShowHelpCallback , - noWidgetShowHelpCallback , - onWidgetShowHelp , - widgetShowHelpCallbackWrapper , - widgetShowHelpClosure , - - --- ** SizeAllocate - WidgetSizeAllocateCallback , - WidgetSizeAllocateCallbackC , - WidgetSizeAllocateSignalInfo , - afterWidgetSizeAllocate , - mkWidgetSizeAllocateCallback , - noWidgetSizeAllocateCallback , - onWidgetSizeAllocate , - widgetSizeAllocateCallbackWrapper , - widgetSizeAllocateClosure , - - --- ** StateChanged - WidgetStateChangedCallback , - WidgetStateChangedCallbackC , - WidgetStateChangedSignalInfo , - afterWidgetStateChanged , - mkWidgetStateChangedCallback , - noWidgetStateChangedCallback , - onWidgetStateChanged , - widgetStateChangedCallbackWrapper , - widgetStateChangedClosure , - - --- ** StateFlagsChanged - WidgetStateFlagsChangedCallback , - WidgetStateFlagsChangedCallbackC , - WidgetStateFlagsChangedSignalInfo , - afterWidgetStateFlagsChanged , - mkWidgetStateFlagsChangedCallback , - noWidgetStateFlagsChangedCallback , - onWidgetStateFlagsChanged , - widgetStateFlagsChangedCallbackWrapper , - widgetStateFlagsChangedClosure , - - --- ** StyleSet - WidgetStyleSetCallback , - WidgetStyleSetCallbackC , - WidgetStyleSetSignalInfo , - afterWidgetStyleSet , - mkWidgetStyleSetCallback , - noWidgetStyleSetCallback , - onWidgetStyleSet , - widgetStyleSetCallbackWrapper , - widgetStyleSetClosure , - - --- ** StyleUpdated - WidgetStyleUpdatedCallback , - WidgetStyleUpdatedCallbackC , - WidgetStyleUpdatedSignalInfo , - afterWidgetStyleUpdated , - mkWidgetStyleUpdatedCallback , - noWidgetStyleUpdatedCallback , - onWidgetStyleUpdated , - widgetStyleUpdatedCallbackWrapper , - widgetStyleUpdatedClosure , - - --- ** TouchEvent - WidgetTouchEventCallback , - WidgetTouchEventCallbackC , - WidgetTouchEventSignalInfo , - afterWidgetTouchEvent , - mkWidgetTouchEventCallback , - noWidgetTouchEventCallback , - onWidgetTouchEvent , - widgetTouchEventCallbackWrapper , - widgetTouchEventClosure , - - --- ** Unmap - WidgetUnmapCallback , - WidgetUnmapCallbackC , - WidgetUnmapSignalInfo , - afterWidgetUnmap , - mkWidgetUnmapCallback , - noWidgetUnmapCallback , - onWidgetUnmap , - widgetUnmapCallbackWrapper , - widgetUnmapClosure , - - --- ** UnmapEvent - WidgetUnmapEventCallback , - WidgetUnmapEventCallbackC , - WidgetUnmapEventSignalInfo , - afterWidgetUnmapEvent , - mkWidgetUnmapEventCallback , - noWidgetUnmapEventCallback , - onWidgetUnmapEvent , - widgetUnmapEventCallbackWrapper , - widgetUnmapEventClosure , - - --- ** Unrealize - WidgetUnrealizeCallback , - WidgetUnrealizeCallbackC , - WidgetUnrealizeSignalInfo , - afterWidgetUnrealize , - mkWidgetUnrealizeCallback , - noWidgetUnrealizeCallback , - onWidgetUnrealize , - widgetUnrealizeCallbackWrapper , - widgetUnrealizeClosure , - - --- ** VisibilityNotifyEvent - WidgetVisibilityNotifyEventCallback , - WidgetVisibilityNotifyEventCallbackC , - WidgetVisibilityNotifyEventSignalInfo , - afterWidgetVisibilityNotifyEvent , - mkWidgetVisibilityNotifyEventCallback , - noWidgetVisibilityNotifyEventCallback , - onWidgetVisibilityNotifyEvent , - widgetVisibilityNotifyEventCallbackWrapper, - widgetVisibilityNotifyEventClosure , - - --- ** WindowStateEvent - WidgetWindowStateEventCallback , - WidgetWindowStateEventCallbackC , - WidgetWindowStateEventSignalInfo , - afterWidgetWindowStateEvent , - mkWidgetWindowStateEventCallback , - noWidgetWindowStateEventCallback , - onWidgetWindowStateEvent , - widgetWindowStateEventCallbackWrapper , - widgetWindowStateEventClosure , - - - - - ) 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.Atk as Atk -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 - -newtype Widget = Widget (ForeignPtr Widget) -foreign import ccall "gtk_widget_get_type" - c_gtk_widget_get_type :: IO GType - -type instance ParentTypes Widget = WidgetParentTypes -type WidgetParentTypes = '[GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Widget where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_widget_get_type - - -class GObject o => WidgetK o -instance (GObject o, IsDescendantOf Widget o) => WidgetK o - -toWidget :: WidgetK o => o -> IO Widget -toWidget = unsafeCastTo Widget - -noWidget :: Maybe Widget -noWidget = Nothing - --- signal Widget::accel-closures-changed -type WidgetAccelClosuresChangedCallback = - IO () - -noWidgetAccelClosuresChangedCallback :: Maybe WidgetAccelClosuresChangedCallback -noWidgetAccelClosuresChangedCallback = Nothing - -type WidgetAccelClosuresChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetAccelClosuresChangedCallback :: WidgetAccelClosuresChangedCallbackC -> IO (FunPtr WidgetAccelClosuresChangedCallbackC) - -widgetAccelClosuresChangedClosure :: WidgetAccelClosuresChangedCallback -> IO Closure -widgetAccelClosuresChangedClosure cb = newCClosure =<< mkWidgetAccelClosuresChangedCallback wrapped - where wrapped = widgetAccelClosuresChangedCallbackWrapper cb - -widgetAccelClosuresChangedCallbackWrapper :: - WidgetAccelClosuresChangedCallback -> - Ptr () -> - Ptr () -> - IO () -widgetAccelClosuresChangedCallbackWrapper _cb _ _ = do - _cb - -onWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId -onWidgetAccelClosuresChanged obj cb = liftIO $ connectWidgetAccelClosuresChanged obj cb SignalConnectBefore -afterWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId -afterWidgetAccelClosuresChanged obj cb = connectWidgetAccelClosuresChanged obj cb SignalConnectAfter - -connectWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => - a -> WidgetAccelClosuresChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetAccelClosuresChanged obj cb after = liftIO $ do - cb' <- mkWidgetAccelClosuresChangedCallback (widgetAccelClosuresChangedCallbackWrapper cb) - connectSignalFunPtr obj "accel-closures-changed" cb' after - --- signal Widget::button-press-event -type WidgetButtonPressEventCallback = - Gdk.EventButton -> - IO Bool - -noWidgetButtonPressEventCallback :: Maybe WidgetButtonPressEventCallback -noWidgetButtonPressEventCallback = Nothing - -type WidgetButtonPressEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventButton -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetButtonPressEventCallback :: WidgetButtonPressEventCallbackC -> IO (FunPtr WidgetButtonPressEventCallbackC) - -widgetButtonPressEventClosure :: WidgetButtonPressEventCallback -> IO Closure -widgetButtonPressEventClosure cb = newCClosure =<< mkWidgetButtonPressEventCallback wrapped - where wrapped = widgetButtonPressEventCallbackWrapper cb - -widgetButtonPressEventCallbackWrapper :: - WidgetButtonPressEventCallback -> - Ptr () -> - Ptr Gdk.EventButton -> - Ptr () -> - IO CInt -widgetButtonPressEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 80 Gdk.EventButton) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId -onWidgetButtonPressEvent obj cb = liftIO $ connectWidgetButtonPressEvent obj cb SignalConnectBefore -afterWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId -afterWidgetButtonPressEvent obj cb = connectWidgetButtonPressEvent obj cb SignalConnectAfter - -connectWidgetButtonPressEvent :: (GObject a, MonadIO m) => - a -> WidgetButtonPressEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetButtonPressEvent obj cb after = liftIO $ do - cb' <- mkWidgetButtonPressEventCallback (widgetButtonPressEventCallbackWrapper cb) - connectSignalFunPtr obj "button-press-event" cb' after - --- signal Widget::button-release-event -type WidgetButtonReleaseEventCallback = - Gdk.EventButton -> - IO Bool - -noWidgetButtonReleaseEventCallback :: Maybe WidgetButtonReleaseEventCallback -noWidgetButtonReleaseEventCallback = Nothing - -type WidgetButtonReleaseEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventButton -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetButtonReleaseEventCallback :: WidgetButtonReleaseEventCallbackC -> IO (FunPtr WidgetButtonReleaseEventCallbackC) - -widgetButtonReleaseEventClosure :: WidgetButtonReleaseEventCallback -> IO Closure -widgetButtonReleaseEventClosure cb = newCClosure =<< mkWidgetButtonReleaseEventCallback wrapped - where wrapped = widgetButtonReleaseEventCallbackWrapper cb - -widgetButtonReleaseEventCallbackWrapper :: - WidgetButtonReleaseEventCallback -> - Ptr () -> - Ptr Gdk.EventButton -> - Ptr () -> - IO CInt -widgetButtonReleaseEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 80 Gdk.EventButton) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId -onWidgetButtonReleaseEvent obj cb = liftIO $ connectWidgetButtonReleaseEvent obj cb SignalConnectBefore -afterWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId -afterWidgetButtonReleaseEvent obj cb = connectWidgetButtonReleaseEvent obj cb SignalConnectAfter - -connectWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => - a -> WidgetButtonReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetButtonReleaseEvent obj cb after = liftIO $ do - cb' <- mkWidgetButtonReleaseEventCallback (widgetButtonReleaseEventCallbackWrapper cb) - connectSignalFunPtr obj "button-release-event" cb' after - --- signal Widget::can-activate-accel -type WidgetCanActivateAccelCallback = - Word32 -> - IO Bool - -noWidgetCanActivateAccelCallback :: Maybe WidgetCanActivateAccelCallback -noWidgetCanActivateAccelCallback = Nothing - -type WidgetCanActivateAccelCallbackC = - Ptr () -> -- object - Word32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetCanActivateAccelCallback :: WidgetCanActivateAccelCallbackC -> IO (FunPtr WidgetCanActivateAccelCallbackC) - -widgetCanActivateAccelClosure :: WidgetCanActivateAccelCallback -> IO Closure -widgetCanActivateAccelClosure cb = newCClosure =<< mkWidgetCanActivateAccelCallback wrapped - where wrapped = widgetCanActivateAccelCallbackWrapper cb - -widgetCanActivateAccelCallbackWrapper :: - WidgetCanActivateAccelCallback -> - Ptr () -> - Word32 -> - Ptr () -> - IO CInt -widgetCanActivateAccelCallbackWrapper _cb _ signal_id _ = do - result <- _cb signal_id - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId -onWidgetCanActivateAccel obj cb = liftIO $ connectWidgetCanActivateAccel obj cb SignalConnectBefore -afterWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId -afterWidgetCanActivateAccel obj cb = connectWidgetCanActivateAccel obj cb SignalConnectAfter - -connectWidgetCanActivateAccel :: (GObject a, MonadIO m) => - a -> WidgetCanActivateAccelCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetCanActivateAccel obj cb after = liftIO $ do - cb' <- mkWidgetCanActivateAccelCallback (widgetCanActivateAccelCallbackWrapper cb) - connectSignalFunPtr obj "can-activate-accel" cb' after - --- signal Widget::child-notify -type WidgetChildNotifyCallback = - GParamSpec -> - IO () - -noWidgetChildNotifyCallback :: Maybe WidgetChildNotifyCallback -noWidgetChildNotifyCallback = Nothing - -type WidgetChildNotifyCallbackC = - Ptr () -> -- object - Ptr GParamSpec -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetChildNotifyCallback :: WidgetChildNotifyCallbackC -> IO (FunPtr WidgetChildNotifyCallbackC) - -widgetChildNotifyClosure :: WidgetChildNotifyCallback -> IO Closure -widgetChildNotifyClosure cb = newCClosure =<< mkWidgetChildNotifyCallback wrapped - where wrapped = widgetChildNotifyCallbackWrapper cb - -widgetChildNotifyCallbackWrapper :: - WidgetChildNotifyCallback -> - Ptr () -> - Ptr GParamSpec -> - Ptr () -> - IO () -widgetChildNotifyCallbackWrapper _cb _ child_property _ = do - child_property' <- newGParamSpecFromPtr child_property - _cb child_property' - -onWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId -onWidgetChildNotify obj cb = liftIO $ connectWidgetChildNotify obj cb SignalConnectBefore -afterWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId -afterWidgetChildNotify obj cb = connectWidgetChildNotify obj cb SignalConnectAfter - -connectWidgetChildNotify :: (GObject a, MonadIO m) => - a -> WidgetChildNotifyCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetChildNotify obj cb after = liftIO $ do - cb' <- mkWidgetChildNotifyCallback (widgetChildNotifyCallbackWrapper cb) - connectSignalFunPtr obj "child-notify" cb' after - --- signal Widget::composited-changed -type WidgetCompositedChangedCallback = - IO () - -noWidgetCompositedChangedCallback :: Maybe WidgetCompositedChangedCallback -noWidgetCompositedChangedCallback = Nothing - -type WidgetCompositedChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetCompositedChangedCallback :: WidgetCompositedChangedCallbackC -> IO (FunPtr WidgetCompositedChangedCallbackC) - -widgetCompositedChangedClosure :: WidgetCompositedChangedCallback -> IO Closure -widgetCompositedChangedClosure cb = newCClosure =<< mkWidgetCompositedChangedCallback wrapped - where wrapped = widgetCompositedChangedCallbackWrapper cb - -widgetCompositedChangedCallbackWrapper :: - WidgetCompositedChangedCallback -> - Ptr () -> - Ptr () -> - IO () -widgetCompositedChangedCallbackWrapper _cb _ _ = do - _cb - -onWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId -onWidgetCompositedChanged obj cb = liftIO $ connectWidgetCompositedChanged obj cb SignalConnectBefore -afterWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId -afterWidgetCompositedChanged obj cb = connectWidgetCompositedChanged obj cb SignalConnectAfter - -connectWidgetCompositedChanged :: (GObject a, MonadIO m) => - a -> WidgetCompositedChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetCompositedChanged obj cb after = liftIO $ do - cb' <- mkWidgetCompositedChangedCallback (widgetCompositedChangedCallbackWrapper cb) - connectSignalFunPtr obj "composited-changed" cb' after - --- signal Widget::configure-event -type WidgetConfigureEventCallback = - Gdk.EventConfigure -> - IO Bool - -noWidgetConfigureEventCallback :: Maybe WidgetConfigureEventCallback -noWidgetConfigureEventCallback = Nothing - -type WidgetConfigureEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventConfigure -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetConfigureEventCallback :: WidgetConfigureEventCallbackC -> IO (FunPtr WidgetConfigureEventCallbackC) - -widgetConfigureEventClosure :: WidgetConfigureEventCallback -> IO Closure -widgetConfigureEventClosure cb = newCClosure =<< mkWidgetConfigureEventCallback wrapped - where wrapped = widgetConfigureEventCallbackWrapper cb - -widgetConfigureEventCallbackWrapper :: - WidgetConfigureEventCallback -> - Ptr () -> - Ptr Gdk.EventConfigure -> - Ptr () -> - IO CInt -widgetConfigureEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 40 Gdk.EventConfigure) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId -onWidgetConfigureEvent obj cb = liftIO $ connectWidgetConfigureEvent obj cb SignalConnectBefore -afterWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId -afterWidgetConfigureEvent obj cb = connectWidgetConfigureEvent obj cb SignalConnectAfter - -connectWidgetConfigureEvent :: (GObject a, MonadIO m) => - a -> WidgetConfigureEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetConfigureEvent obj cb after = liftIO $ do - cb' <- mkWidgetConfigureEventCallback (widgetConfigureEventCallbackWrapper cb) - connectSignalFunPtr obj "configure-event" cb' after - --- signal Widget::damage-event -type WidgetDamageEventCallback = - Gdk.EventExpose -> - IO Bool - -noWidgetDamageEventCallback :: Maybe WidgetDamageEventCallback -noWidgetDamageEventCallback = Nothing - -type WidgetDamageEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventExpose -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDamageEventCallback :: WidgetDamageEventCallbackC -> IO (FunPtr WidgetDamageEventCallbackC) - -widgetDamageEventClosure :: WidgetDamageEventCallback -> IO Closure -widgetDamageEventClosure cb = newCClosure =<< mkWidgetDamageEventCallback wrapped - where wrapped = widgetDamageEventCallbackWrapper cb - -widgetDamageEventCallbackWrapper :: - WidgetDamageEventCallback -> - Ptr () -> - Ptr Gdk.EventExpose -> - Ptr () -> - IO CInt -widgetDamageEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 56 Gdk.EventExpose) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId -onWidgetDamageEvent obj cb = liftIO $ connectWidgetDamageEvent obj cb SignalConnectBefore -afterWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId -afterWidgetDamageEvent obj cb = connectWidgetDamageEvent obj cb SignalConnectAfter - -connectWidgetDamageEvent :: (GObject a, MonadIO m) => - a -> WidgetDamageEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDamageEvent obj cb after = liftIO $ do - cb' <- mkWidgetDamageEventCallback (widgetDamageEventCallbackWrapper cb) - connectSignalFunPtr obj "damage-event" cb' after - --- signal Widget::delete-event -type WidgetDeleteEventCallback = - Gdk.Event -> - IO Bool - -noWidgetDeleteEventCallback :: Maybe WidgetDeleteEventCallback -noWidgetDeleteEventCallback = Nothing - -type WidgetDeleteEventCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDeleteEventCallback :: WidgetDeleteEventCallbackC -> IO (FunPtr WidgetDeleteEventCallbackC) - -widgetDeleteEventClosure :: WidgetDeleteEventCallback -> IO Closure -widgetDeleteEventClosure cb = newCClosure =<< mkWidgetDeleteEventCallback wrapped - where wrapped = widgetDeleteEventCallbackWrapper cb - -widgetDeleteEventCallbackWrapper :: - WidgetDeleteEventCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO CInt -widgetDeleteEventCallbackWrapper _cb _ event _ = do - event' <- (newBoxed Gdk.Event) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId -onWidgetDeleteEvent obj cb = liftIO $ connectWidgetDeleteEvent obj cb SignalConnectBefore -afterWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId -afterWidgetDeleteEvent obj cb = connectWidgetDeleteEvent obj cb SignalConnectAfter - -connectWidgetDeleteEvent :: (GObject a, MonadIO m) => - a -> WidgetDeleteEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDeleteEvent obj cb after = liftIO $ do - cb' <- mkWidgetDeleteEventCallback (widgetDeleteEventCallbackWrapper cb) - connectSignalFunPtr obj "delete-event" cb' after - --- signal Widget::destroy -type WidgetDestroyCallback = - IO () - -noWidgetDestroyCallback :: Maybe WidgetDestroyCallback -noWidgetDestroyCallback = Nothing - -type WidgetDestroyCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDestroyCallback :: WidgetDestroyCallbackC -> IO (FunPtr WidgetDestroyCallbackC) - -widgetDestroyClosure :: WidgetDestroyCallback -> IO Closure -widgetDestroyClosure cb = newCClosure =<< mkWidgetDestroyCallback wrapped - where wrapped = widgetDestroyCallbackWrapper cb - -widgetDestroyCallbackWrapper :: - WidgetDestroyCallback -> - Ptr () -> - Ptr () -> - IO () -widgetDestroyCallbackWrapper _cb _ _ = do - _cb - -onWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId -onWidgetDestroy obj cb = liftIO $ connectWidgetDestroy obj cb SignalConnectBefore -afterWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId -afterWidgetDestroy obj cb = connectWidgetDestroy obj cb SignalConnectAfter - -connectWidgetDestroy :: (GObject a, MonadIO m) => - a -> WidgetDestroyCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDestroy obj cb after = liftIO $ do - cb' <- mkWidgetDestroyCallback (widgetDestroyCallbackWrapper cb) - connectSignalFunPtr obj "destroy" cb' after - --- signal Widget::destroy-event -type WidgetDestroyEventCallback = - Gdk.Event -> - IO Bool - -noWidgetDestroyEventCallback :: Maybe WidgetDestroyEventCallback -noWidgetDestroyEventCallback = Nothing - -type WidgetDestroyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDestroyEventCallback :: WidgetDestroyEventCallbackC -> IO (FunPtr WidgetDestroyEventCallbackC) - -widgetDestroyEventClosure :: WidgetDestroyEventCallback -> IO Closure -widgetDestroyEventClosure cb = newCClosure =<< mkWidgetDestroyEventCallback wrapped - where wrapped = widgetDestroyEventCallbackWrapper cb - -widgetDestroyEventCallbackWrapper :: - WidgetDestroyEventCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO CInt -widgetDestroyEventCallbackWrapper _cb _ event _ = do - event' <- (newBoxed Gdk.Event) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId -onWidgetDestroyEvent obj cb = liftIO $ connectWidgetDestroyEvent obj cb SignalConnectBefore -afterWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId -afterWidgetDestroyEvent obj cb = connectWidgetDestroyEvent obj cb SignalConnectAfter - -connectWidgetDestroyEvent :: (GObject a, MonadIO m) => - a -> WidgetDestroyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDestroyEvent obj cb after = liftIO $ do - cb' <- mkWidgetDestroyEventCallback (widgetDestroyEventCallbackWrapper cb) - connectSignalFunPtr obj "destroy-event" cb' after - --- signal Widget::direction-changed -type WidgetDirectionChangedCallback = - TextDirection -> - IO () - -noWidgetDirectionChangedCallback :: Maybe WidgetDirectionChangedCallback -noWidgetDirectionChangedCallback = Nothing - -type WidgetDirectionChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDirectionChangedCallback :: WidgetDirectionChangedCallbackC -> IO (FunPtr WidgetDirectionChangedCallbackC) - -widgetDirectionChangedClosure :: WidgetDirectionChangedCallback -> IO Closure -widgetDirectionChangedClosure cb = newCClosure =<< mkWidgetDirectionChangedCallback wrapped - where wrapped = widgetDirectionChangedCallbackWrapper cb - -widgetDirectionChangedCallbackWrapper :: - WidgetDirectionChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -widgetDirectionChangedCallbackWrapper _cb _ previous_direction _ = do - let previous_direction' = (toEnum . fromIntegral) previous_direction - _cb previous_direction' - -onWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId -onWidgetDirectionChanged obj cb = liftIO $ connectWidgetDirectionChanged obj cb SignalConnectBefore -afterWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId -afterWidgetDirectionChanged obj cb = connectWidgetDirectionChanged obj cb SignalConnectAfter - -connectWidgetDirectionChanged :: (GObject a, MonadIO m) => - a -> WidgetDirectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDirectionChanged obj cb after = liftIO $ do - cb' <- mkWidgetDirectionChangedCallback (widgetDirectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "direction-changed" cb' after - --- signal Widget::drag-begin -type WidgetDragBeginCallback = - Gdk.DragContext -> - IO () - -noWidgetDragBeginCallback :: Maybe WidgetDragBeginCallback -noWidgetDragBeginCallback = Nothing - -type WidgetDragBeginCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragBeginCallback :: WidgetDragBeginCallbackC -> IO (FunPtr WidgetDragBeginCallbackC) - -widgetDragBeginClosure :: WidgetDragBeginCallback -> IO Closure -widgetDragBeginClosure cb = newCClosure =<< mkWidgetDragBeginCallback wrapped - where wrapped = widgetDragBeginCallbackWrapper cb - -widgetDragBeginCallbackWrapper :: - WidgetDragBeginCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr () -> - IO () -widgetDragBeginCallbackWrapper _cb _ context _ = do - context' <- (newObject Gdk.DragContext) context - _cb context' - -onWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId -onWidgetDragBegin obj cb = liftIO $ connectWidgetDragBegin obj cb SignalConnectBefore -afterWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId -afterWidgetDragBegin obj cb = connectWidgetDragBegin obj cb SignalConnectAfter - -connectWidgetDragBegin :: (GObject a, MonadIO m) => - a -> WidgetDragBeginCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragBegin obj cb after = liftIO $ do - cb' <- mkWidgetDragBeginCallback (widgetDragBeginCallbackWrapper cb) - connectSignalFunPtr obj "drag-begin" cb' after - --- signal Widget::drag-data-delete -type WidgetDragDataDeleteCallback = - Gdk.DragContext -> - IO () - -noWidgetDragDataDeleteCallback :: Maybe WidgetDragDataDeleteCallback -noWidgetDragDataDeleteCallback = Nothing - -type WidgetDragDataDeleteCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragDataDeleteCallback :: WidgetDragDataDeleteCallbackC -> IO (FunPtr WidgetDragDataDeleteCallbackC) - -widgetDragDataDeleteClosure :: WidgetDragDataDeleteCallback -> IO Closure -widgetDragDataDeleteClosure cb = newCClosure =<< mkWidgetDragDataDeleteCallback wrapped - where wrapped = widgetDragDataDeleteCallbackWrapper cb - -widgetDragDataDeleteCallbackWrapper :: - WidgetDragDataDeleteCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr () -> - IO () -widgetDragDataDeleteCallbackWrapper _cb _ context _ = do - context' <- (newObject Gdk.DragContext) context - _cb context' - -onWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId -onWidgetDragDataDelete obj cb = liftIO $ connectWidgetDragDataDelete obj cb SignalConnectBefore -afterWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId -afterWidgetDragDataDelete obj cb = connectWidgetDragDataDelete obj cb SignalConnectAfter - -connectWidgetDragDataDelete :: (GObject a, MonadIO m) => - a -> WidgetDragDataDeleteCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragDataDelete obj cb after = liftIO $ do - cb' <- mkWidgetDragDataDeleteCallback (widgetDragDataDeleteCallbackWrapper cb) - connectSignalFunPtr obj "drag-data-delete" cb' after - --- signal Widget::drag-data-get -type WidgetDragDataGetCallback = - Gdk.DragContext -> - SelectionData -> - Word32 -> - Word32 -> - IO () - -noWidgetDragDataGetCallback :: Maybe WidgetDragDataGetCallback -noWidgetDragDataGetCallback = Nothing - -type WidgetDragDataGetCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragDataGetCallback :: WidgetDragDataGetCallbackC -> IO (FunPtr WidgetDragDataGetCallbackC) - -widgetDragDataGetClosure :: WidgetDragDataGetCallback -> IO Closure -widgetDragDataGetClosure cb = newCClosure =<< mkWidgetDragDataGetCallback wrapped - where wrapped = widgetDragDataGetCallbackWrapper cb - -widgetDragDataGetCallbackWrapper :: - WidgetDragDataGetCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> - IO () -widgetDragDataGetCallbackWrapper _cb _ context data_ info time _ = do - context' <- (newObject Gdk.DragContext) context - data_' <- (newBoxed SelectionData) data_ - _cb context' data_' info time - -onWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId -onWidgetDragDataGet obj cb = liftIO $ connectWidgetDragDataGet obj cb SignalConnectBefore -afterWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId -afterWidgetDragDataGet obj cb = connectWidgetDragDataGet obj cb SignalConnectAfter - -connectWidgetDragDataGet :: (GObject a, MonadIO m) => - a -> WidgetDragDataGetCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragDataGet obj cb after = liftIO $ do - cb' <- mkWidgetDragDataGetCallback (widgetDragDataGetCallbackWrapper cb) - connectSignalFunPtr obj "drag-data-get" cb' after - --- signal Widget::drag-data-received -type WidgetDragDataReceivedCallback = - Gdk.DragContext -> - Int32 -> - Int32 -> - SelectionData -> - Word32 -> - Word32 -> - IO () - -noWidgetDragDataReceivedCallback :: Maybe WidgetDragDataReceivedCallback -noWidgetDragDataReceivedCallback = Nothing - -type WidgetDragDataReceivedCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragDataReceivedCallback :: WidgetDragDataReceivedCallbackC -> IO (FunPtr WidgetDragDataReceivedCallbackC) - -widgetDragDataReceivedClosure :: WidgetDragDataReceivedCallback -> IO Closure -widgetDragDataReceivedClosure cb = newCClosure =<< mkWidgetDragDataReceivedCallback wrapped - where wrapped = widgetDragDataReceivedCallbackWrapper cb - -widgetDragDataReceivedCallbackWrapper :: - WidgetDragDataReceivedCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> - IO () -widgetDragDataReceivedCallbackWrapper _cb _ context x y data_ info time _ = do - context' <- (newObject Gdk.DragContext) context - data_' <- (newBoxed SelectionData) data_ - _cb context' x y data_' info time - -onWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId -onWidgetDragDataReceived obj cb = liftIO $ connectWidgetDragDataReceived obj cb SignalConnectBefore -afterWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId -afterWidgetDragDataReceived obj cb = connectWidgetDragDataReceived obj cb SignalConnectAfter - -connectWidgetDragDataReceived :: (GObject a, MonadIO m) => - a -> WidgetDragDataReceivedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragDataReceived obj cb after = liftIO $ do - cb' <- mkWidgetDragDataReceivedCallback (widgetDragDataReceivedCallbackWrapper cb) - connectSignalFunPtr obj "drag-data-received" cb' after - --- signal Widget::drag-drop -type WidgetDragDropCallback = - Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - IO Bool - -noWidgetDragDropCallback :: Maybe WidgetDragDropCallback -noWidgetDragDropCallback = Nothing - -type WidgetDragDropCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDragDropCallback :: WidgetDragDropCallbackC -> IO (FunPtr WidgetDragDropCallbackC) - -widgetDragDropClosure :: WidgetDragDropCallback -> IO Closure -widgetDragDropClosure cb = newCClosure =<< mkWidgetDragDropCallback wrapped - where wrapped = widgetDragDropCallbackWrapper cb - -widgetDragDropCallbackWrapper :: - WidgetDragDropCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - Ptr () -> - IO CInt -widgetDragDropCallbackWrapper _cb _ context x y time _ = do - context' <- (newObject Gdk.DragContext) context - result <- _cb context' x y time - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId -onWidgetDragDrop obj cb = liftIO $ connectWidgetDragDrop obj cb SignalConnectBefore -afterWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId -afterWidgetDragDrop obj cb = connectWidgetDragDrop obj cb SignalConnectAfter - -connectWidgetDragDrop :: (GObject a, MonadIO m) => - a -> WidgetDragDropCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragDrop obj cb after = liftIO $ do - cb' <- mkWidgetDragDropCallback (widgetDragDropCallbackWrapper cb) - connectSignalFunPtr obj "drag-drop" cb' after - --- signal Widget::drag-end -type WidgetDragEndCallback = - Gdk.DragContext -> - IO () - -noWidgetDragEndCallback :: Maybe WidgetDragEndCallback -noWidgetDragEndCallback = Nothing - -type WidgetDragEndCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragEndCallback :: WidgetDragEndCallbackC -> IO (FunPtr WidgetDragEndCallbackC) - -widgetDragEndClosure :: WidgetDragEndCallback -> IO Closure -widgetDragEndClosure cb = newCClosure =<< mkWidgetDragEndCallback wrapped - where wrapped = widgetDragEndCallbackWrapper cb - -widgetDragEndCallbackWrapper :: - WidgetDragEndCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr () -> - IO () -widgetDragEndCallbackWrapper _cb _ context _ = do - context' <- (newObject Gdk.DragContext) context - _cb context' - -onWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId -onWidgetDragEnd obj cb = liftIO $ connectWidgetDragEnd obj cb SignalConnectBefore -afterWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId -afterWidgetDragEnd obj cb = connectWidgetDragEnd obj cb SignalConnectAfter - -connectWidgetDragEnd :: (GObject a, MonadIO m) => - a -> WidgetDragEndCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragEnd obj cb after = liftIO $ do - cb' <- mkWidgetDragEndCallback (widgetDragEndCallbackWrapper cb) - connectSignalFunPtr obj "drag-end" cb' after - --- signal Widget::drag-failed -type WidgetDragFailedCallback = - Gdk.DragContext -> - DragResult -> - IO Bool - -noWidgetDragFailedCallback :: Maybe WidgetDragFailedCallback -noWidgetDragFailedCallback = Nothing - -type WidgetDragFailedCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDragFailedCallback :: WidgetDragFailedCallbackC -> IO (FunPtr WidgetDragFailedCallbackC) - -widgetDragFailedClosure :: WidgetDragFailedCallback -> IO Closure -widgetDragFailedClosure cb = newCClosure =<< mkWidgetDragFailedCallback wrapped - where wrapped = widgetDragFailedCallbackWrapper cb - -widgetDragFailedCallbackWrapper :: - WidgetDragFailedCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - CUInt -> - Ptr () -> - IO CInt -widgetDragFailedCallbackWrapper _cb _ context result_ _ = do - context' <- (newObject Gdk.DragContext) context - let result_' = (toEnum . fromIntegral) result_ - result <- _cb context' result_' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId -onWidgetDragFailed obj cb = liftIO $ connectWidgetDragFailed obj cb SignalConnectBefore -afterWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId -afterWidgetDragFailed obj cb = connectWidgetDragFailed obj cb SignalConnectAfter - -connectWidgetDragFailed :: (GObject a, MonadIO m) => - a -> WidgetDragFailedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragFailed obj cb after = liftIO $ do - cb' <- mkWidgetDragFailedCallback (widgetDragFailedCallbackWrapper cb) - connectSignalFunPtr obj "drag-failed" cb' after - --- signal Widget::drag-leave -type WidgetDragLeaveCallback = - Gdk.DragContext -> - Word32 -> - IO () - -noWidgetDragLeaveCallback :: Maybe WidgetDragLeaveCallback -noWidgetDragLeaveCallback = Nothing - -type WidgetDragLeaveCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragLeaveCallback :: WidgetDragLeaveCallbackC -> IO (FunPtr WidgetDragLeaveCallbackC) - -widgetDragLeaveClosure :: WidgetDragLeaveCallback -> IO Closure -widgetDragLeaveClosure cb = newCClosure =<< mkWidgetDragLeaveCallback wrapped - where wrapped = widgetDragLeaveCallbackWrapper cb - -widgetDragLeaveCallbackWrapper :: - WidgetDragLeaveCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Word32 -> - Ptr () -> - IO () -widgetDragLeaveCallbackWrapper _cb _ context time _ = do - context' <- (newObject Gdk.DragContext) context - _cb context' time - -onWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId -onWidgetDragLeave obj cb = liftIO $ connectWidgetDragLeave obj cb SignalConnectBefore -afterWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId -afterWidgetDragLeave obj cb = connectWidgetDragLeave obj cb SignalConnectAfter - -connectWidgetDragLeave :: (GObject a, MonadIO m) => - a -> WidgetDragLeaveCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragLeave obj cb after = liftIO $ do - cb' <- mkWidgetDragLeaveCallback (widgetDragLeaveCallbackWrapper cb) - connectSignalFunPtr obj "drag-leave" cb' after - --- signal Widget::drag-motion -type WidgetDragMotionCallback = - Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - IO Bool - -noWidgetDragMotionCallback :: Maybe WidgetDragMotionCallback -noWidgetDragMotionCallback = Nothing - -type WidgetDragMotionCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDragMotionCallback :: WidgetDragMotionCallbackC -> IO (FunPtr WidgetDragMotionCallbackC) - -widgetDragMotionClosure :: WidgetDragMotionCallback -> IO Closure -widgetDragMotionClosure cb = newCClosure =<< mkWidgetDragMotionCallback wrapped - where wrapped = widgetDragMotionCallbackWrapper cb - -widgetDragMotionCallbackWrapper :: - WidgetDragMotionCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - Ptr () -> - IO CInt -widgetDragMotionCallbackWrapper _cb _ context x y time _ = do - context' <- (newObject Gdk.DragContext) context - result <- _cb context' x y time - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId -onWidgetDragMotion obj cb = liftIO $ connectWidgetDragMotion obj cb SignalConnectBefore -afterWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId -afterWidgetDragMotion obj cb = connectWidgetDragMotion obj cb SignalConnectAfter - -connectWidgetDragMotion :: (GObject a, MonadIO m) => - a -> WidgetDragMotionCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragMotion obj cb after = liftIO $ do - cb' <- mkWidgetDragMotionCallback (widgetDragMotionCallbackWrapper cb) - connectSignalFunPtr obj "drag-motion" cb' after - --- signal Widget::draw -type WidgetDrawCallback = - Cairo.Context -> - IO Bool - -noWidgetDrawCallback :: Maybe WidgetDrawCallback -noWidgetDrawCallback = Nothing - -type WidgetDrawCallbackC = - Ptr () -> -- object - Ptr Cairo.Context -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDrawCallback :: WidgetDrawCallbackC -> IO (FunPtr WidgetDrawCallbackC) - -widgetDrawClosure :: WidgetDrawCallback -> IO Closure -widgetDrawClosure cb = newCClosure =<< mkWidgetDrawCallback wrapped - where wrapped = widgetDrawCallbackWrapper cb - -widgetDrawCallbackWrapper :: - WidgetDrawCallback -> - Ptr () -> - Ptr Cairo.Context -> - Ptr () -> - IO CInt -widgetDrawCallbackWrapper _cb _ cr _ = do - cr' <- (newBoxed Cairo.Context) cr - result <- _cb cr' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId -onWidgetDraw obj cb = liftIO $ connectWidgetDraw obj cb SignalConnectBefore -afterWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId -afterWidgetDraw obj cb = connectWidgetDraw obj cb SignalConnectAfter - -connectWidgetDraw :: (GObject a, MonadIO m) => - a -> WidgetDrawCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDraw obj cb after = liftIO $ do - cb' <- mkWidgetDrawCallback (widgetDrawCallbackWrapper cb) - connectSignalFunPtr obj "draw" cb' after - --- signal Widget::enter-notify-event -type WidgetEnterNotifyEventCallback = - Gdk.EventCrossing -> - IO Bool - -noWidgetEnterNotifyEventCallback :: Maybe WidgetEnterNotifyEventCallback -noWidgetEnterNotifyEventCallback = Nothing - -type WidgetEnterNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventCrossing -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetEnterNotifyEventCallback :: WidgetEnterNotifyEventCallbackC -> IO (FunPtr WidgetEnterNotifyEventCallbackC) - -widgetEnterNotifyEventClosure :: WidgetEnterNotifyEventCallback -> IO Closure -widgetEnterNotifyEventClosure cb = newCClosure =<< mkWidgetEnterNotifyEventCallback wrapped - where wrapped = widgetEnterNotifyEventCallbackWrapper cb - -widgetEnterNotifyEventCallbackWrapper :: - WidgetEnterNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventCrossing -> - Ptr () -> - IO CInt -widgetEnterNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 88 Gdk.EventCrossing) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId -onWidgetEnterNotifyEvent obj cb = liftIO $ connectWidgetEnterNotifyEvent obj cb SignalConnectBefore -afterWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId -afterWidgetEnterNotifyEvent obj cb = connectWidgetEnterNotifyEvent obj cb SignalConnectAfter - -connectWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetEnterNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetEnterNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetEnterNotifyEventCallback (widgetEnterNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "enter-notify-event" cb' after - --- signal Widget::event -type WidgetEventCallback = - Gdk.Event -> - IO Bool - -noWidgetEventCallback :: Maybe WidgetEventCallback -noWidgetEventCallback = Nothing - -type WidgetEventCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetEventCallback :: WidgetEventCallbackC -> IO (FunPtr WidgetEventCallbackC) - -widgetEventClosure :: WidgetEventCallback -> IO Closure -widgetEventClosure cb = newCClosure =<< mkWidgetEventCallback wrapped - where wrapped = widgetEventCallbackWrapper cb - -widgetEventCallbackWrapper :: - WidgetEventCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO CInt -widgetEventCallbackWrapper _cb _ event _ = do - event' <- (newBoxed Gdk.Event) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId -onWidgetEvent obj cb = liftIO $ connectWidgetEvent obj cb SignalConnectBefore -afterWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId -afterWidgetEvent obj cb = connectWidgetEvent obj cb SignalConnectAfter - -connectWidgetEvent :: (GObject a, MonadIO m) => - a -> WidgetEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetEvent obj cb after = liftIO $ do - cb' <- mkWidgetEventCallback (widgetEventCallbackWrapper cb) - connectSignalFunPtr obj "event" cb' after - --- signal Widget::event-after -type WidgetEventAfterCallback = - Gdk.Event -> - IO () - -noWidgetEventAfterCallback :: Maybe WidgetEventAfterCallback -noWidgetEventAfterCallback = Nothing - -type WidgetEventAfterCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetEventAfterCallback :: WidgetEventAfterCallbackC -> IO (FunPtr WidgetEventAfterCallbackC) - -widgetEventAfterClosure :: WidgetEventAfterCallback -> IO Closure -widgetEventAfterClosure cb = newCClosure =<< mkWidgetEventAfterCallback wrapped - where wrapped = widgetEventAfterCallbackWrapper cb - -widgetEventAfterCallbackWrapper :: - WidgetEventAfterCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO () -widgetEventAfterCallbackWrapper _cb _ event _ = do - event' <- (newBoxed Gdk.Event) event - _cb event' - -onWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId -onWidgetEventAfter obj cb = liftIO $ connectWidgetEventAfter obj cb SignalConnectBefore -afterWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId -afterWidgetEventAfter obj cb = connectWidgetEventAfter obj cb SignalConnectAfter - -connectWidgetEventAfter :: (GObject a, MonadIO m) => - a -> WidgetEventAfterCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetEventAfter obj cb after = liftIO $ do - cb' <- mkWidgetEventAfterCallback (widgetEventAfterCallbackWrapper cb) - connectSignalFunPtr obj "event-after" cb' after - --- signal Widget::focus -type WidgetFocusCallback = - DirectionType -> - IO Bool - -noWidgetFocusCallback :: Maybe WidgetFocusCallback -noWidgetFocusCallback = Nothing - -type WidgetFocusCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetFocusCallback :: WidgetFocusCallbackC -> IO (FunPtr WidgetFocusCallbackC) - -widgetFocusClosure :: WidgetFocusCallback -> IO Closure -widgetFocusClosure cb = newCClosure =<< mkWidgetFocusCallback wrapped - where wrapped = widgetFocusCallbackWrapper cb - -widgetFocusCallbackWrapper :: - WidgetFocusCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO CInt -widgetFocusCallbackWrapper _cb _ direction _ = do - let direction' = (toEnum . fromIntegral) direction - result <- _cb direction' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId -onWidgetFocus obj cb = liftIO $ connectWidgetFocus obj cb SignalConnectBefore -afterWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId -afterWidgetFocus obj cb = connectWidgetFocus obj cb SignalConnectAfter - -connectWidgetFocus :: (GObject a, MonadIO m) => - a -> WidgetFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetFocus obj cb after = liftIO $ do - cb' <- mkWidgetFocusCallback (widgetFocusCallbackWrapper cb) - connectSignalFunPtr obj "focus" cb' after - --- signal Widget::focus-in-event -type WidgetFocusInEventCallback = - Gdk.EventFocus -> - IO Bool - -noWidgetFocusInEventCallback :: Maybe WidgetFocusInEventCallback -noWidgetFocusInEventCallback = Nothing - -type WidgetFocusInEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventFocus -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetFocusInEventCallback :: WidgetFocusInEventCallbackC -> IO (FunPtr WidgetFocusInEventCallbackC) - -widgetFocusInEventClosure :: WidgetFocusInEventCallback -> IO Closure -widgetFocusInEventClosure cb = newCClosure =<< mkWidgetFocusInEventCallback wrapped - where wrapped = widgetFocusInEventCallbackWrapper cb - -widgetFocusInEventCallbackWrapper :: - WidgetFocusInEventCallback -> - Ptr () -> - Ptr Gdk.EventFocus -> - Ptr () -> - IO CInt -widgetFocusInEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 24 Gdk.EventFocus) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId -onWidgetFocusInEvent obj cb = liftIO $ connectWidgetFocusInEvent obj cb SignalConnectBefore -afterWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId -afterWidgetFocusInEvent obj cb = connectWidgetFocusInEvent obj cb SignalConnectAfter - -connectWidgetFocusInEvent :: (GObject a, MonadIO m) => - a -> WidgetFocusInEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetFocusInEvent obj cb after = liftIO $ do - cb' <- mkWidgetFocusInEventCallback (widgetFocusInEventCallbackWrapper cb) - connectSignalFunPtr obj "focus-in-event" cb' after - --- signal Widget::focus-out-event -type WidgetFocusOutEventCallback = - Gdk.EventFocus -> - IO Bool - -noWidgetFocusOutEventCallback :: Maybe WidgetFocusOutEventCallback -noWidgetFocusOutEventCallback = Nothing - -type WidgetFocusOutEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventFocus -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetFocusOutEventCallback :: WidgetFocusOutEventCallbackC -> IO (FunPtr WidgetFocusOutEventCallbackC) - -widgetFocusOutEventClosure :: WidgetFocusOutEventCallback -> IO Closure -widgetFocusOutEventClosure cb = newCClosure =<< mkWidgetFocusOutEventCallback wrapped - where wrapped = widgetFocusOutEventCallbackWrapper cb - -widgetFocusOutEventCallbackWrapper :: - WidgetFocusOutEventCallback -> - Ptr () -> - Ptr Gdk.EventFocus -> - Ptr () -> - IO CInt -widgetFocusOutEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 24 Gdk.EventFocus) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId -onWidgetFocusOutEvent obj cb = liftIO $ connectWidgetFocusOutEvent obj cb SignalConnectBefore -afterWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId -afterWidgetFocusOutEvent obj cb = connectWidgetFocusOutEvent obj cb SignalConnectAfter - -connectWidgetFocusOutEvent :: (GObject a, MonadIO m) => - a -> WidgetFocusOutEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetFocusOutEvent obj cb after = liftIO $ do - cb' <- mkWidgetFocusOutEventCallback (widgetFocusOutEventCallbackWrapper cb) - connectSignalFunPtr obj "focus-out-event" cb' after - --- signal Widget::grab-broken-event -type WidgetGrabBrokenEventCallback = - Gdk.EventGrabBroken -> - IO Bool - -noWidgetGrabBrokenEventCallback :: Maybe WidgetGrabBrokenEventCallback -noWidgetGrabBrokenEventCallback = Nothing - -type WidgetGrabBrokenEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventGrabBroken -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetGrabBrokenEventCallback :: WidgetGrabBrokenEventCallbackC -> IO (FunPtr WidgetGrabBrokenEventCallbackC) - -widgetGrabBrokenEventClosure :: WidgetGrabBrokenEventCallback -> IO Closure -widgetGrabBrokenEventClosure cb = newCClosure =<< mkWidgetGrabBrokenEventCallback wrapped - where wrapped = widgetGrabBrokenEventCallbackWrapper cb - -widgetGrabBrokenEventCallbackWrapper :: - WidgetGrabBrokenEventCallback -> - Ptr () -> - Ptr Gdk.EventGrabBroken -> - Ptr () -> - IO CInt -widgetGrabBrokenEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 40 Gdk.EventGrabBroken) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId -onWidgetGrabBrokenEvent obj cb = liftIO $ connectWidgetGrabBrokenEvent obj cb SignalConnectBefore -afterWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId -afterWidgetGrabBrokenEvent obj cb = connectWidgetGrabBrokenEvent obj cb SignalConnectAfter - -connectWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => - a -> WidgetGrabBrokenEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetGrabBrokenEvent obj cb after = liftIO $ do - cb' <- mkWidgetGrabBrokenEventCallback (widgetGrabBrokenEventCallbackWrapper cb) - connectSignalFunPtr obj "grab-broken-event" cb' after - --- signal Widget::grab-focus -type WidgetGrabFocusCallback = - IO () - -noWidgetGrabFocusCallback :: Maybe WidgetGrabFocusCallback -noWidgetGrabFocusCallback = Nothing - -type WidgetGrabFocusCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetGrabFocusCallback :: WidgetGrabFocusCallbackC -> IO (FunPtr WidgetGrabFocusCallbackC) - -widgetGrabFocusClosure :: WidgetGrabFocusCallback -> IO Closure -widgetGrabFocusClosure cb = newCClosure =<< mkWidgetGrabFocusCallback wrapped - where wrapped = widgetGrabFocusCallbackWrapper cb - -widgetGrabFocusCallbackWrapper :: - WidgetGrabFocusCallback -> - Ptr () -> - Ptr () -> - IO () -widgetGrabFocusCallbackWrapper _cb _ _ = do - _cb - -onWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId -onWidgetGrabFocus obj cb = liftIO $ connectWidgetGrabFocus obj cb SignalConnectBefore -afterWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId -afterWidgetGrabFocus obj cb = connectWidgetGrabFocus obj cb SignalConnectAfter - -connectWidgetGrabFocus :: (GObject a, MonadIO m) => - a -> WidgetGrabFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetGrabFocus obj cb after = liftIO $ do - cb' <- mkWidgetGrabFocusCallback (widgetGrabFocusCallbackWrapper cb) - connectSignalFunPtr obj "grab-focus" cb' after - --- signal Widget::grab-notify -type WidgetGrabNotifyCallback = - Bool -> - IO () - -noWidgetGrabNotifyCallback :: Maybe WidgetGrabNotifyCallback -noWidgetGrabNotifyCallback = Nothing - -type WidgetGrabNotifyCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetGrabNotifyCallback :: WidgetGrabNotifyCallbackC -> IO (FunPtr WidgetGrabNotifyCallbackC) - -widgetGrabNotifyClosure :: WidgetGrabNotifyCallback -> IO Closure -widgetGrabNotifyClosure cb = newCClosure =<< mkWidgetGrabNotifyCallback wrapped - where wrapped = widgetGrabNotifyCallbackWrapper cb - -widgetGrabNotifyCallbackWrapper :: - WidgetGrabNotifyCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO () -widgetGrabNotifyCallbackWrapper _cb _ was_grabbed _ = do - let was_grabbed' = (/= 0) was_grabbed - _cb was_grabbed' - -onWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId -onWidgetGrabNotify obj cb = liftIO $ connectWidgetGrabNotify obj cb SignalConnectBefore -afterWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId -afterWidgetGrabNotify obj cb = connectWidgetGrabNotify obj cb SignalConnectAfter - -connectWidgetGrabNotify :: (GObject a, MonadIO m) => - a -> WidgetGrabNotifyCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetGrabNotify obj cb after = liftIO $ do - cb' <- mkWidgetGrabNotifyCallback (widgetGrabNotifyCallbackWrapper cb) - connectSignalFunPtr obj "grab-notify" cb' after - --- signal Widget::hide -type WidgetHideCallback = - IO () - -noWidgetHideCallback :: Maybe WidgetHideCallback -noWidgetHideCallback = Nothing - -type WidgetHideCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetHideCallback :: WidgetHideCallbackC -> IO (FunPtr WidgetHideCallbackC) - -widgetHideClosure :: WidgetHideCallback -> IO Closure -widgetHideClosure cb = newCClosure =<< mkWidgetHideCallback wrapped - where wrapped = widgetHideCallbackWrapper cb - -widgetHideCallbackWrapper :: - WidgetHideCallback -> - Ptr () -> - Ptr () -> - IO () -widgetHideCallbackWrapper _cb _ _ = do - _cb - -onWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId -onWidgetHide obj cb = liftIO $ connectWidgetHide obj cb SignalConnectBefore -afterWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId -afterWidgetHide obj cb = connectWidgetHide obj cb SignalConnectAfter - -connectWidgetHide :: (GObject a, MonadIO m) => - a -> WidgetHideCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetHide obj cb after = liftIO $ do - cb' <- mkWidgetHideCallback (widgetHideCallbackWrapper cb) - connectSignalFunPtr obj "hide" cb' after - --- signal Widget::hierarchy-changed -type WidgetHierarchyChangedCallback = - Maybe Widget -> - IO () - -noWidgetHierarchyChangedCallback :: Maybe WidgetHierarchyChangedCallback -noWidgetHierarchyChangedCallback = Nothing - -type WidgetHierarchyChangedCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetHierarchyChangedCallback :: WidgetHierarchyChangedCallbackC -> IO (FunPtr WidgetHierarchyChangedCallbackC) - -widgetHierarchyChangedClosure :: WidgetHierarchyChangedCallback -> IO Closure -widgetHierarchyChangedClosure cb = newCClosure =<< mkWidgetHierarchyChangedCallback wrapped - where wrapped = widgetHierarchyChangedCallbackWrapper cb - -widgetHierarchyChangedCallbackWrapper :: - WidgetHierarchyChangedCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -widgetHierarchyChangedCallbackWrapper _cb _ previous_toplevel _ = do - maybePrevious_toplevel <- - if previous_toplevel == nullPtr - then return Nothing - else do - previous_toplevel' <- (newObject Widget) previous_toplevel - return $ Just previous_toplevel' - _cb maybePrevious_toplevel - -onWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId -onWidgetHierarchyChanged obj cb = liftIO $ connectWidgetHierarchyChanged obj cb SignalConnectBefore -afterWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId -afterWidgetHierarchyChanged obj cb = connectWidgetHierarchyChanged obj cb SignalConnectAfter - -connectWidgetHierarchyChanged :: (GObject a, MonadIO m) => - a -> WidgetHierarchyChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetHierarchyChanged obj cb after = liftIO $ do - cb' <- mkWidgetHierarchyChangedCallback (widgetHierarchyChangedCallbackWrapper cb) - connectSignalFunPtr obj "hierarchy-changed" cb' after - --- signal Widget::key-press-event -type WidgetKeyPressEventCallback = - Gdk.EventKey -> - IO Bool - -noWidgetKeyPressEventCallback :: Maybe WidgetKeyPressEventCallback -noWidgetKeyPressEventCallback = Nothing - -type WidgetKeyPressEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventKey -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetKeyPressEventCallback :: WidgetKeyPressEventCallbackC -> IO (FunPtr WidgetKeyPressEventCallbackC) - -widgetKeyPressEventClosure :: WidgetKeyPressEventCallback -> IO Closure -widgetKeyPressEventClosure cb = newCClosure =<< mkWidgetKeyPressEventCallback wrapped - where wrapped = widgetKeyPressEventCallbackWrapper cb - -widgetKeyPressEventCallbackWrapper :: - WidgetKeyPressEventCallback -> - Ptr () -> - Ptr Gdk.EventKey -> - Ptr () -> - IO CInt -widgetKeyPressEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 56 Gdk.EventKey) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId -onWidgetKeyPressEvent obj cb = liftIO $ connectWidgetKeyPressEvent obj cb SignalConnectBefore -afterWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId -afterWidgetKeyPressEvent obj cb = connectWidgetKeyPressEvent obj cb SignalConnectAfter - -connectWidgetKeyPressEvent :: (GObject a, MonadIO m) => - a -> WidgetKeyPressEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetKeyPressEvent obj cb after = liftIO $ do - cb' <- mkWidgetKeyPressEventCallback (widgetKeyPressEventCallbackWrapper cb) - connectSignalFunPtr obj "key-press-event" cb' after - --- signal Widget::key-release-event -type WidgetKeyReleaseEventCallback = - Gdk.EventKey -> - IO Bool - -noWidgetKeyReleaseEventCallback :: Maybe WidgetKeyReleaseEventCallback -noWidgetKeyReleaseEventCallback = Nothing - -type WidgetKeyReleaseEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventKey -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetKeyReleaseEventCallback :: WidgetKeyReleaseEventCallbackC -> IO (FunPtr WidgetKeyReleaseEventCallbackC) - -widgetKeyReleaseEventClosure :: WidgetKeyReleaseEventCallback -> IO Closure -widgetKeyReleaseEventClosure cb = newCClosure =<< mkWidgetKeyReleaseEventCallback wrapped - where wrapped = widgetKeyReleaseEventCallbackWrapper cb - -widgetKeyReleaseEventCallbackWrapper :: - WidgetKeyReleaseEventCallback -> - Ptr () -> - Ptr Gdk.EventKey -> - Ptr () -> - IO CInt -widgetKeyReleaseEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 56 Gdk.EventKey) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId -onWidgetKeyReleaseEvent obj cb = liftIO $ connectWidgetKeyReleaseEvent obj cb SignalConnectBefore -afterWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId -afterWidgetKeyReleaseEvent obj cb = connectWidgetKeyReleaseEvent obj cb SignalConnectAfter - -connectWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => - a -> WidgetKeyReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetKeyReleaseEvent obj cb after = liftIO $ do - cb' <- mkWidgetKeyReleaseEventCallback (widgetKeyReleaseEventCallbackWrapper cb) - connectSignalFunPtr obj "key-release-event" cb' after - --- signal Widget::keynav-failed -type WidgetKeynavFailedCallback = - DirectionType -> - IO Bool - -noWidgetKeynavFailedCallback :: Maybe WidgetKeynavFailedCallback -noWidgetKeynavFailedCallback = Nothing - -type WidgetKeynavFailedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetKeynavFailedCallback :: WidgetKeynavFailedCallbackC -> IO (FunPtr WidgetKeynavFailedCallbackC) - -widgetKeynavFailedClosure :: WidgetKeynavFailedCallback -> IO Closure -widgetKeynavFailedClosure cb = newCClosure =<< mkWidgetKeynavFailedCallback wrapped - where wrapped = widgetKeynavFailedCallbackWrapper cb - -widgetKeynavFailedCallbackWrapper :: - WidgetKeynavFailedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO CInt -widgetKeynavFailedCallbackWrapper _cb _ direction _ = do - let direction' = (toEnum . fromIntegral) direction - result <- _cb direction' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId -onWidgetKeynavFailed obj cb = liftIO $ connectWidgetKeynavFailed obj cb SignalConnectBefore -afterWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId -afterWidgetKeynavFailed obj cb = connectWidgetKeynavFailed obj cb SignalConnectAfter - -connectWidgetKeynavFailed :: (GObject a, MonadIO m) => - a -> WidgetKeynavFailedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetKeynavFailed obj cb after = liftIO $ do - cb' <- mkWidgetKeynavFailedCallback (widgetKeynavFailedCallbackWrapper cb) - connectSignalFunPtr obj "keynav-failed" cb' after - --- signal Widget::leave-notify-event -type WidgetLeaveNotifyEventCallback = - Gdk.EventCrossing -> - IO Bool - -noWidgetLeaveNotifyEventCallback :: Maybe WidgetLeaveNotifyEventCallback -noWidgetLeaveNotifyEventCallback = Nothing - -type WidgetLeaveNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventCrossing -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetLeaveNotifyEventCallback :: WidgetLeaveNotifyEventCallbackC -> IO (FunPtr WidgetLeaveNotifyEventCallbackC) - -widgetLeaveNotifyEventClosure :: WidgetLeaveNotifyEventCallback -> IO Closure -widgetLeaveNotifyEventClosure cb = newCClosure =<< mkWidgetLeaveNotifyEventCallback wrapped - where wrapped = widgetLeaveNotifyEventCallbackWrapper cb - -widgetLeaveNotifyEventCallbackWrapper :: - WidgetLeaveNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventCrossing -> - Ptr () -> - IO CInt -widgetLeaveNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 88 Gdk.EventCrossing) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId -onWidgetLeaveNotifyEvent obj cb = liftIO $ connectWidgetLeaveNotifyEvent obj cb SignalConnectBefore -afterWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId -afterWidgetLeaveNotifyEvent obj cb = connectWidgetLeaveNotifyEvent obj cb SignalConnectAfter - -connectWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetLeaveNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetLeaveNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetLeaveNotifyEventCallback (widgetLeaveNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "leave-notify-event" cb' after - --- signal Widget::map -type WidgetMapCallback = - IO () - -noWidgetMapCallback :: Maybe WidgetMapCallback -noWidgetMapCallback = Nothing - -type WidgetMapCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetMapCallback :: WidgetMapCallbackC -> IO (FunPtr WidgetMapCallbackC) - -widgetMapClosure :: WidgetMapCallback -> IO Closure -widgetMapClosure cb = newCClosure =<< mkWidgetMapCallback wrapped - where wrapped = widgetMapCallbackWrapper cb - -widgetMapCallbackWrapper :: - WidgetMapCallback -> - Ptr () -> - Ptr () -> - IO () -widgetMapCallbackWrapper _cb _ _ = do - _cb - -onWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId -onWidgetMap obj cb = liftIO $ connectWidgetMap obj cb SignalConnectBefore -afterWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId -afterWidgetMap obj cb = connectWidgetMap obj cb SignalConnectAfter - -connectWidgetMap :: (GObject a, MonadIO m) => - a -> WidgetMapCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMap obj cb after = liftIO $ do - cb' <- mkWidgetMapCallback (widgetMapCallbackWrapper cb) - connectSignalFunPtr obj "map" cb' after - --- signal Widget::map-event -type WidgetMapEventCallback = - Gdk.EventAny -> - IO Bool - -noWidgetMapEventCallback :: Maybe WidgetMapEventCallback -noWidgetMapEventCallback = Nothing - -type WidgetMapEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventAny -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetMapEventCallback :: WidgetMapEventCallbackC -> IO (FunPtr WidgetMapEventCallbackC) - -widgetMapEventClosure :: WidgetMapEventCallback -> IO Closure -widgetMapEventClosure cb = newCClosure =<< mkWidgetMapEventCallback wrapped - where wrapped = widgetMapEventCallbackWrapper cb - -widgetMapEventCallbackWrapper :: - WidgetMapEventCallback -> - Ptr () -> - Ptr Gdk.EventAny -> - Ptr () -> - IO CInt -widgetMapEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 24 Gdk.EventAny) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId -onWidgetMapEvent obj cb = liftIO $ connectWidgetMapEvent obj cb SignalConnectBefore -afterWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId -afterWidgetMapEvent obj cb = connectWidgetMapEvent obj cb SignalConnectAfter - -connectWidgetMapEvent :: (GObject a, MonadIO m) => - a -> WidgetMapEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMapEvent obj cb after = liftIO $ do - cb' <- mkWidgetMapEventCallback (widgetMapEventCallbackWrapper cb) - connectSignalFunPtr obj "map-event" cb' after - --- signal Widget::mnemonic-activate -type WidgetMnemonicActivateCallback = - Bool -> - IO Bool - -noWidgetMnemonicActivateCallback :: Maybe WidgetMnemonicActivateCallback -noWidgetMnemonicActivateCallback = Nothing - -type WidgetMnemonicActivateCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetMnemonicActivateCallback :: WidgetMnemonicActivateCallbackC -> IO (FunPtr WidgetMnemonicActivateCallbackC) - -widgetMnemonicActivateClosure :: WidgetMnemonicActivateCallback -> IO Closure -widgetMnemonicActivateClosure cb = newCClosure =<< mkWidgetMnemonicActivateCallback wrapped - where wrapped = widgetMnemonicActivateCallbackWrapper cb - -widgetMnemonicActivateCallbackWrapper :: - WidgetMnemonicActivateCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -widgetMnemonicActivateCallbackWrapper _cb _ arg1 _ = do - let arg1' = (/= 0) arg1 - result <- _cb arg1' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId -onWidgetMnemonicActivate obj cb = liftIO $ connectWidgetMnemonicActivate obj cb SignalConnectBefore -afterWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId -afterWidgetMnemonicActivate obj cb = connectWidgetMnemonicActivate obj cb SignalConnectAfter - -connectWidgetMnemonicActivate :: (GObject a, MonadIO m) => - a -> WidgetMnemonicActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMnemonicActivate obj cb after = liftIO $ do - cb' <- mkWidgetMnemonicActivateCallback (widgetMnemonicActivateCallbackWrapper cb) - connectSignalFunPtr obj "mnemonic-activate" cb' after - --- signal Widget::motion-notify-event -type WidgetMotionNotifyEventCallback = - Gdk.EventMotion -> - IO Bool - -noWidgetMotionNotifyEventCallback :: Maybe WidgetMotionNotifyEventCallback -noWidgetMotionNotifyEventCallback = Nothing - -type WidgetMotionNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventMotion -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetMotionNotifyEventCallback :: WidgetMotionNotifyEventCallbackC -> IO (FunPtr WidgetMotionNotifyEventCallbackC) - -widgetMotionNotifyEventClosure :: WidgetMotionNotifyEventCallback -> IO Closure -widgetMotionNotifyEventClosure cb = newCClosure =<< mkWidgetMotionNotifyEventCallback wrapped - where wrapped = widgetMotionNotifyEventCallbackWrapper cb - -widgetMotionNotifyEventCallbackWrapper :: - WidgetMotionNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventMotion -> - Ptr () -> - IO CInt -widgetMotionNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 80 Gdk.EventMotion) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId -onWidgetMotionNotifyEvent obj cb = liftIO $ connectWidgetMotionNotifyEvent obj cb SignalConnectBefore -afterWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId -afterWidgetMotionNotifyEvent obj cb = connectWidgetMotionNotifyEvent obj cb SignalConnectAfter - -connectWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetMotionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMotionNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetMotionNotifyEventCallback (widgetMotionNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "motion-notify-event" cb' after - --- signal Widget::move-focus -type WidgetMoveFocusCallback = - DirectionType -> - IO () - -noWidgetMoveFocusCallback :: Maybe WidgetMoveFocusCallback -noWidgetMoveFocusCallback = Nothing - -type WidgetMoveFocusCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetMoveFocusCallback :: WidgetMoveFocusCallbackC -> IO (FunPtr WidgetMoveFocusCallbackC) - -widgetMoveFocusClosure :: WidgetMoveFocusCallback -> IO Closure -widgetMoveFocusClosure cb = newCClosure =<< mkWidgetMoveFocusCallback wrapped - where wrapped = widgetMoveFocusCallbackWrapper cb - -widgetMoveFocusCallbackWrapper :: - WidgetMoveFocusCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -widgetMoveFocusCallbackWrapper _cb _ direction _ = do - let direction' = (toEnum . fromIntegral) direction - _cb direction' - -onWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId -onWidgetMoveFocus obj cb = liftIO $ connectWidgetMoveFocus obj cb SignalConnectBefore -afterWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId -afterWidgetMoveFocus obj cb = connectWidgetMoveFocus obj cb SignalConnectAfter - -connectWidgetMoveFocus :: (GObject a, MonadIO m) => - a -> WidgetMoveFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMoveFocus obj cb after = liftIO $ do - cb' <- mkWidgetMoveFocusCallback (widgetMoveFocusCallbackWrapper cb) - connectSignalFunPtr obj "move-focus" cb' after - --- signal Widget::parent-set -type WidgetParentSetCallback = - Maybe Widget -> - IO () - -noWidgetParentSetCallback :: Maybe WidgetParentSetCallback -noWidgetParentSetCallback = Nothing - -type WidgetParentSetCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetParentSetCallback :: WidgetParentSetCallbackC -> IO (FunPtr WidgetParentSetCallbackC) - -widgetParentSetClosure :: WidgetParentSetCallback -> IO Closure -widgetParentSetClosure cb = newCClosure =<< mkWidgetParentSetCallback wrapped - where wrapped = widgetParentSetCallbackWrapper cb - -widgetParentSetCallbackWrapper :: - WidgetParentSetCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -widgetParentSetCallbackWrapper _cb _ old_parent _ = do - maybeOld_parent <- - if old_parent == nullPtr - then return Nothing - else do - old_parent' <- (newObject Widget) old_parent - return $ Just old_parent' - _cb maybeOld_parent - -onWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId -onWidgetParentSet obj cb = liftIO $ connectWidgetParentSet obj cb SignalConnectBefore -afterWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId -afterWidgetParentSet obj cb = connectWidgetParentSet obj cb SignalConnectAfter - -connectWidgetParentSet :: (GObject a, MonadIO m) => - a -> WidgetParentSetCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetParentSet obj cb after = liftIO $ do - cb' <- mkWidgetParentSetCallback (widgetParentSetCallbackWrapper cb) - connectSignalFunPtr obj "parent-set" cb' after - --- signal Widget::popup-menu -type WidgetPopupMenuCallback = - IO Bool - -noWidgetPopupMenuCallback :: Maybe WidgetPopupMenuCallback -noWidgetPopupMenuCallback = Nothing - -type WidgetPopupMenuCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetPopupMenuCallback :: WidgetPopupMenuCallbackC -> IO (FunPtr WidgetPopupMenuCallbackC) - -widgetPopupMenuClosure :: WidgetPopupMenuCallback -> IO Closure -widgetPopupMenuClosure cb = newCClosure =<< mkWidgetPopupMenuCallback wrapped - where wrapped = widgetPopupMenuCallbackWrapper cb - -widgetPopupMenuCallbackWrapper :: - WidgetPopupMenuCallback -> - Ptr () -> - Ptr () -> - IO CInt -widgetPopupMenuCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId -onWidgetPopupMenu obj cb = liftIO $ connectWidgetPopupMenu obj cb SignalConnectBefore -afterWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId -afterWidgetPopupMenu obj cb = connectWidgetPopupMenu obj cb SignalConnectAfter - -connectWidgetPopupMenu :: (GObject a, MonadIO m) => - a -> WidgetPopupMenuCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetPopupMenu obj cb after = liftIO $ do - cb' <- mkWidgetPopupMenuCallback (widgetPopupMenuCallbackWrapper cb) - connectSignalFunPtr obj "popup-menu" cb' after - --- signal Widget::property-notify-event -type WidgetPropertyNotifyEventCallback = - Gdk.EventProperty -> - IO Bool - -noWidgetPropertyNotifyEventCallback :: Maybe WidgetPropertyNotifyEventCallback -noWidgetPropertyNotifyEventCallback = Nothing - -type WidgetPropertyNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventProperty -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetPropertyNotifyEventCallback :: WidgetPropertyNotifyEventCallbackC -> IO (FunPtr WidgetPropertyNotifyEventCallbackC) - -widgetPropertyNotifyEventClosure :: WidgetPropertyNotifyEventCallback -> IO Closure -widgetPropertyNotifyEventClosure cb = newCClosure =<< mkWidgetPropertyNotifyEventCallback wrapped - where wrapped = widgetPropertyNotifyEventCallbackWrapper cb - -widgetPropertyNotifyEventCallbackWrapper :: - WidgetPropertyNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventProperty -> - Ptr () -> - IO CInt -widgetPropertyNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 40 Gdk.EventProperty) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId -onWidgetPropertyNotifyEvent obj cb = liftIO $ connectWidgetPropertyNotifyEvent obj cb SignalConnectBefore -afterWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId -afterWidgetPropertyNotifyEvent obj cb = connectWidgetPropertyNotifyEvent obj cb SignalConnectAfter - -connectWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetPropertyNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetPropertyNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetPropertyNotifyEventCallback (widgetPropertyNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "property-notify-event" cb' after - --- signal Widget::proximity-in-event -type WidgetProximityInEventCallback = - Gdk.EventProximity -> - IO Bool - -noWidgetProximityInEventCallback :: Maybe WidgetProximityInEventCallback -noWidgetProximityInEventCallback = Nothing - -type WidgetProximityInEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventProximity -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetProximityInEventCallback :: WidgetProximityInEventCallbackC -> IO (FunPtr WidgetProximityInEventCallbackC) - -widgetProximityInEventClosure :: WidgetProximityInEventCallback -> IO Closure -widgetProximityInEventClosure cb = newCClosure =<< mkWidgetProximityInEventCallback wrapped - where wrapped = widgetProximityInEventCallbackWrapper cb - -widgetProximityInEventCallbackWrapper :: - WidgetProximityInEventCallback -> - Ptr () -> - Ptr Gdk.EventProximity -> - Ptr () -> - IO CInt -widgetProximityInEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 32 Gdk.EventProximity) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId -onWidgetProximityInEvent obj cb = liftIO $ connectWidgetProximityInEvent obj cb SignalConnectBefore -afterWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId -afterWidgetProximityInEvent obj cb = connectWidgetProximityInEvent obj cb SignalConnectAfter - -connectWidgetProximityInEvent :: (GObject a, MonadIO m) => - a -> WidgetProximityInEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetProximityInEvent obj cb after = liftIO $ do - cb' <- mkWidgetProximityInEventCallback (widgetProximityInEventCallbackWrapper cb) - connectSignalFunPtr obj "proximity-in-event" cb' after - --- signal Widget::proximity-out-event -type WidgetProximityOutEventCallback = - Gdk.EventProximity -> - IO Bool - -noWidgetProximityOutEventCallback :: Maybe WidgetProximityOutEventCallback -noWidgetProximityOutEventCallback = Nothing - -type WidgetProximityOutEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventProximity -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetProximityOutEventCallback :: WidgetProximityOutEventCallbackC -> IO (FunPtr WidgetProximityOutEventCallbackC) - -widgetProximityOutEventClosure :: WidgetProximityOutEventCallback -> IO Closure -widgetProximityOutEventClosure cb = newCClosure =<< mkWidgetProximityOutEventCallback wrapped - where wrapped = widgetProximityOutEventCallbackWrapper cb - -widgetProximityOutEventCallbackWrapper :: - WidgetProximityOutEventCallback -> - Ptr () -> - Ptr Gdk.EventProximity -> - Ptr () -> - IO CInt -widgetProximityOutEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 32 Gdk.EventProximity) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId -onWidgetProximityOutEvent obj cb = liftIO $ connectWidgetProximityOutEvent obj cb SignalConnectBefore -afterWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId -afterWidgetProximityOutEvent obj cb = connectWidgetProximityOutEvent obj cb SignalConnectAfter - -connectWidgetProximityOutEvent :: (GObject a, MonadIO m) => - a -> WidgetProximityOutEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetProximityOutEvent obj cb after = liftIO $ do - cb' <- mkWidgetProximityOutEventCallback (widgetProximityOutEventCallbackWrapper cb) - connectSignalFunPtr obj "proximity-out-event" cb' after - --- signal Widget::query-tooltip -type WidgetQueryTooltipCallback = - Int32 -> - Int32 -> - Bool -> - Tooltip -> - IO Bool - -noWidgetQueryTooltipCallback :: Maybe WidgetQueryTooltipCallback -noWidgetQueryTooltipCallback = Nothing - -type WidgetQueryTooltipCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - CInt -> - Ptr Tooltip -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetQueryTooltipCallback :: WidgetQueryTooltipCallbackC -> IO (FunPtr WidgetQueryTooltipCallbackC) - -widgetQueryTooltipClosure :: WidgetQueryTooltipCallback -> IO Closure -widgetQueryTooltipClosure cb = newCClosure =<< mkWidgetQueryTooltipCallback wrapped - where wrapped = widgetQueryTooltipCallbackWrapper cb - -widgetQueryTooltipCallbackWrapper :: - WidgetQueryTooltipCallback -> - Ptr () -> - Int32 -> - Int32 -> - CInt -> - Ptr Tooltip -> - Ptr () -> - IO CInt -widgetQueryTooltipCallbackWrapper _cb _ x y keyboard_mode tooltip _ = do - let keyboard_mode' = (/= 0) keyboard_mode - tooltip' <- (newObject Tooltip) tooltip - result <- _cb x y keyboard_mode' tooltip' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId -onWidgetQueryTooltip obj cb = liftIO $ connectWidgetQueryTooltip obj cb SignalConnectBefore -afterWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId -afterWidgetQueryTooltip obj cb = connectWidgetQueryTooltip obj cb SignalConnectAfter - -connectWidgetQueryTooltip :: (GObject a, MonadIO m) => - a -> WidgetQueryTooltipCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetQueryTooltip obj cb after = liftIO $ do - cb' <- mkWidgetQueryTooltipCallback (widgetQueryTooltipCallbackWrapper cb) - connectSignalFunPtr obj "query-tooltip" cb' after - --- signal Widget::realize -type WidgetRealizeCallback = - IO () - -noWidgetRealizeCallback :: Maybe WidgetRealizeCallback -noWidgetRealizeCallback = Nothing - -type WidgetRealizeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetRealizeCallback :: WidgetRealizeCallbackC -> IO (FunPtr WidgetRealizeCallbackC) - -widgetRealizeClosure :: WidgetRealizeCallback -> IO Closure -widgetRealizeClosure cb = newCClosure =<< mkWidgetRealizeCallback wrapped - where wrapped = widgetRealizeCallbackWrapper cb - -widgetRealizeCallbackWrapper :: - WidgetRealizeCallback -> - Ptr () -> - Ptr () -> - IO () -widgetRealizeCallbackWrapper _cb _ _ = do - _cb - -onWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId -onWidgetRealize obj cb = liftIO $ connectWidgetRealize obj cb SignalConnectBefore -afterWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId -afterWidgetRealize obj cb = connectWidgetRealize obj cb SignalConnectAfter - -connectWidgetRealize :: (GObject a, MonadIO m) => - a -> WidgetRealizeCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetRealize obj cb after = liftIO $ do - cb' <- mkWidgetRealizeCallback (widgetRealizeCallbackWrapper cb) - connectSignalFunPtr obj "realize" cb' after - --- signal Widget::screen-changed -type WidgetScreenChangedCallback = - Maybe Gdk.Screen -> - IO () - -noWidgetScreenChangedCallback :: Maybe WidgetScreenChangedCallback -noWidgetScreenChangedCallback = Nothing - -type WidgetScreenChangedCallbackC = - Ptr () -> -- object - Ptr Gdk.Screen -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetScreenChangedCallback :: WidgetScreenChangedCallbackC -> IO (FunPtr WidgetScreenChangedCallbackC) - -widgetScreenChangedClosure :: WidgetScreenChangedCallback -> IO Closure -widgetScreenChangedClosure cb = newCClosure =<< mkWidgetScreenChangedCallback wrapped - where wrapped = widgetScreenChangedCallbackWrapper cb - -widgetScreenChangedCallbackWrapper :: - WidgetScreenChangedCallback -> - Ptr () -> - Ptr Gdk.Screen -> - Ptr () -> - IO () -widgetScreenChangedCallbackWrapper _cb _ previous_screen _ = do - maybePrevious_screen <- - if previous_screen == nullPtr - then return Nothing - else do - previous_screen' <- (newObject Gdk.Screen) previous_screen - return $ Just previous_screen' - _cb maybePrevious_screen - -onWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId -onWidgetScreenChanged obj cb = liftIO $ connectWidgetScreenChanged obj cb SignalConnectBefore -afterWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId -afterWidgetScreenChanged obj cb = connectWidgetScreenChanged obj cb SignalConnectAfter - -connectWidgetScreenChanged :: (GObject a, MonadIO m) => - a -> WidgetScreenChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetScreenChanged obj cb after = liftIO $ do - cb' <- mkWidgetScreenChangedCallback (widgetScreenChangedCallbackWrapper cb) - connectSignalFunPtr obj "screen-changed" cb' after - --- signal Widget::scroll-event -type WidgetScrollEventCallback = - Gdk.EventScroll -> - IO Bool - -noWidgetScrollEventCallback :: Maybe WidgetScrollEventCallback -noWidgetScrollEventCallback = Nothing - -type WidgetScrollEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventScroll -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetScrollEventCallback :: WidgetScrollEventCallbackC -> IO (FunPtr WidgetScrollEventCallbackC) - -widgetScrollEventClosure :: WidgetScrollEventCallback -> IO Closure -widgetScrollEventClosure cb = newCClosure =<< mkWidgetScrollEventCallback wrapped - where wrapped = widgetScrollEventCallbackWrapper cb - -widgetScrollEventCallbackWrapper :: - WidgetScrollEventCallback -> - Ptr () -> - Ptr Gdk.EventScroll -> - Ptr () -> - IO CInt -widgetScrollEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 88 Gdk.EventScroll) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId -onWidgetScrollEvent obj cb = liftIO $ connectWidgetScrollEvent obj cb SignalConnectBefore -afterWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId -afterWidgetScrollEvent obj cb = connectWidgetScrollEvent obj cb SignalConnectAfter - -connectWidgetScrollEvent :: (GObject a, MonadIO m) => - a -> WidgetScrollEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetScrollEvent obj cb after = liftIO $ do - cb' <- mkWidgetScrollEventCallback (widgetScrollEventCallbackWrapper cb) - connectSignalFunPtr obj "scroll-event" cb' after - --- signal Widget::selection-clear-event -type WidgetSelectionClearEventCallback = - Gdk.EventSelection -> - IO Bool - -noWidgetSelectionClearEventCallback :: Maybe WidgetSelectionClearEventCallback -noWidgetSelectionClearEventCallback = Nothing - -type WidgetSelectionClearEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSelection -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetSelectionClearEventCallback :: WidgetSelectionClearEventCallbackC -> IO (FunPtr WidgetSelectionClearEventCallbackC) - -widgetSelectionClearEventClosure :: WidgetSelectionClearEventCallback -> IO Closure -widgetSelectionClearEventClosure cb = newCClosure =<< mkWidgetSelectionClearEventCallback wrapped - where wrapped = widgetSelectionClearEventCallbackWrapper cb - -widgetSelectionClearEventCallbackWrapper :: - WidgetSelectionClearEventCallback -> - Ptr () -> - Ptr Gdk.EventSelection -> - Ptr () -> - IO CInt -widgetSelectionClearEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 64 Gdk.EventSelection) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId -onWidgetSelectionClearEvent obj cb = liftIO $ connectWidgetSelectionClearEvent obj cb SignalConnectBefore -afterWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId -afterWidgetSelectionClearEvent obj cb = connectWidgetSelectionClearEvent obj cb SignalConnectAfter - -connectWidgetSelectionClearEvent :: (GObject a, MonadIO m) => - a -> WidgetSelectionClearEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionClearEvent obj cb after = liftIO $ do - cb' <- mkWidgetSelectionClearEventCallback (widgetSelectionClearEventCallbackWrapper cb) - connectSignalFunPtr obj "selection-clear-event" cb' after - --- signal Widget::selection-get -type WidgetSelectionGetCallback = - SelectionData -> - Word32 -> - Word32 -> - IO () - -noWidgetSelectionGetCallback :: Maybe WidgetSelectionGetCallback -noWidgetSelectionGetCallback = Nothing - -type WidgetSelectionGetCallbackC = - Ptr () -> -- object - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetSelectionGetCallback :: WidgetSelectionGetCallbackC -> IO (FunPtr WidgetSelectionGetCallbackC) - -widgetSelectionGetClosure :: WidgetSelectionGetCallback -> IO Closure -widgetSelectionGetClosure cb = newCClosure =<< mkWidgetSelectionGetCallback wrapped - where wrapped = widgetSelectionGetCallbackWrapper cb - -widgetSelectionGetCallbackWrapper :: - WidgetSelectionGetCallback -> - Ptr () -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> - IO () -widgetSelectionGetCallbackWrapper _cb _ data_ info time _ = do - data_' <- (newBoxed SelectionData) data_ - _cb data_' info time - -onWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId -onWidgetSelectionGet obj cb = liftIO $ connectWidgetSelectionGet obj cb SignalConnectBefore -afterWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId -afterWidgetSelectionGet obj cb = connectWidgetSelectionGet obj cb SignalConnectAfter - -connectWidgetSelectionGet :: (GObject a, MonadIO m) => - a -> WidgetSelectionGetCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionGet obj cb after = liftIO $ do - cb' <- mkWidgetSelectionGetCallback (widgetSelectionGetCallbackWrapper cb) - connectSignalFunPtr obj "selection-get" cb' after - --- signal Widget::selection-notify-event -type WidgetSelectionNotifyEventCallback = - Gdk.EventSelection -> - IO Bool - -noWidgetSelectionNotifyEventCallback :: Maybe WidgetSelectionNotifyEventCallback -noWidgetSelectionNotifyEventCallback = Nothing - -type WidgetSelectionNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSelection -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetSelectionNotifyEventCallback :: WidgetSelectionNotifyEventCallbackC -> IO (FunPtr WidgetSelectionNotifyEventCallbackC) - -widgetSelectionNotifyEventClosure :: WidgetSelectionNotifyEventCallback -> IO Closure -widgetSelectionNotifyEventClosure cb = newCClosure =<< mkWidgetSelectionNotifyEventCallback wrapped - where wrapped = widgetSelectionNotifyEventCallbackWrapper cb - -widgetSelectionNotifyEventCallbackWrapper :: - WidgetSelectionNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventSelection -> - Ptr () -> - IO CInt -widgetSelectionNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 64 Gdk.EventSelection) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId -onWidgetSelectionNotifyEvent obj cb = liftIO $ connectWidgetSelectionNotifyEvent obj cb SignalConnectBefore -afterWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId -afterWidgetSelectionNotifyEvent obj cb = connectWidgetSelectionNotifyEvent obj cb SignalConnectAfter - -connectWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetSelectionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetSelectionNotifyEventCallback (widgetSelectionNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "selection-notify-event" cb' after - --- signal Widget::selection-received -type WidgetSelectionReceivedCallback = - SelectionData -> - Word32 -> - IO () - -noWidgetSelectionReceivedCallback :: Maybe WidgetSelectionReceivedCallback -noWidgetSelectionReceivedCallback = Nothing - -type WidgetSelectionReceivedCallbackC = - Ptr () -> -- object - Ptr SelectionData -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetSelectionReceivedCallback :: WidgetSelectionReceivedCallbackC -> IO (FunPtr WidgetSelectionReceivedCallbackC) - -widgetSelectionReceivedClosure :: WidgetSelectionReceivedCallback -> IO Closure -widgetSelectionReceivedClosure cb = newCClosure =<< mkWidgetSelectionReceivedCallback wrapped - where wrapped = widgetSelectionReceivedCallbackWrapper cb - -widgetSelectionReceivedCallbackWrapper :: - WidgetSelectionReceivedCallback -> - Ptr () -> - Ptr SelectionData -> - Word32 -> - Ptr () -> - IO () -widgetSelectionReceivedCallbackWrapper _cb _ data_ time _ = do - data_' <- (newBoxed SelectionData) data_ - _cb data_' time - -onWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId -onWidgetSelectionReceived obj cb = liftIO $ connectWidgetSelectionReceived obj cb SignalConnectBefore -afterWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId -afterWidgetSelectionReceived obj cb = connectWidgetSelectionReceived obj cb SignalConnectAfter - -connectWidgetSelectionReceived :: (GObject a, MonadIO m) => - a -> WidgetSelectionReceivedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionReceived obj cb after = liftIO $ do - cb' <- mkWidgetSelectionReceivedCallback (widgetSelectionReceivedCallbackWrapper cb) - connectSignalFunPtr obj "selection-received" cb' after - --- signal Widget::selection-request-event -type WidgetSelectionRequestEventCallback = - Gdk.EventSelection -> - IO Bool - -noWidgetSelectionRequestEventCallback :: Maybe WidgetSelectionRequestEventCallback -noWidgetSelectionRequestEventCallback = Nothing - -type WidgetSelectionRequestEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSelection -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetSelectionRequestEventCallback :: WidgetSelectionRequestEventCallbackC -> IO (FunPtr WidgetSelectionRequestEventCallbackC) - -widgetSelectionRequestEventClosure :: WidgetSelectionRequestEventCallback -> IO Closure -widgetSelectionRequestEventClosure cb = newCClosure =<< mkWidgetSelectionRequestEventCallback wrapped - where wrapped = widgetSelectionRequestEventCallbackWrapper cb - -widgetSelectionRequestEventCallbackWrapper :: - WidgetSelectionRequestEventCallback -> - Ptr () -> - Ptr Gdk.EventSelection -> - Ptr () -> - IO CInt -widgetSelectionRequestEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 64 Gdk.EventSelection) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId -onWidgetSelectionRequestEvent obj cb = liftIO $ connectWidgetSelectionRequestEvent obj cb SignalConnectBefore -afterWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId -afterWidgetSelectionRequestEvent obj cb = connectWidgetSelectionRequestEvent obj cb SignalConnectAfter - -connectWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => - a -> WidgetSelectionRequestEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionRequestEvent obj cb after = liftIO $ do - cb' <- mkWidgetSelectionRequestEventCallback (widgetSelectionRequestEventCallbackWrapper cb) - connectSignalFunPtr obj "selection-request-event" cb' after - --- signal Widget::show -type WidgetShowCallback = - IO () - -noWidgetShowCallback :: Maybe WidgetShowCallback -noWidgetShowCallback = Nothing - -type WidgetShowCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetShowCallback :: WidgetShowCallbackC -> IO (FunPtr WidgetShowCallbackC) - -widgetShowClosure :: WidgetShowCallback -> IO Closure -widgetShowClosure cb = newCClosure =<< mkWidgetShowCallback wrapped - where wrapped = widgetShowCallbackWrapper cb - -widgetShowCallbackWrapper :: - WidgetShowCallback -> - Ptr () -> - Ptr () -> - IO () -widgetShowCallbackWrapper _cb _ _ = do - _cb - -onWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId -onWidgetShow obj cb = liftIO $ connectWidgetShow obj cb SignalConnectBefore -afterWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId -afterWidgetShow obj cb = connectWidgetShow obj cb SignalConnectAfter - -connectWidgetShow :: (GObject a, MonadIO m) => - a -> WidgetShowCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetShow obj cb after = liftIO $ do - cb' <- mkWidgetShowCallback (widgetShowCallbackWrapper cb) - connectSignalFunPtr obj "show" cb' after - --- signal Widget::show-help -type WidgetShowHelpCallback = - WidgetHelpType -> - IO Bool - -noWidgetShowHelpCallback :: Maybe WidgetShowHelpCallback -noWidgetShowHelpCallback = Nothing - -type WidgetShowHelpCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetShowHelpCallback :: WidgetShowHelpCallbackC -> IO (FunPtr WidgetShowHelpCallbackC) - -widgetShowHelpClosure :: WidgetShowHelpCallback -> IO Closure -widgetShowHelpClosure cb = newCClosure =<< mkWidgetShowHelpCallback wrapped - where wrapped = widgetShowHelpCallbackWrapper cb - -widgetShowHelpCallbackWrapper :: - WidgetShowHelpCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO CInt -widgetShowHelpCallbackWrapper _cb _ help_type _ = do - let help_type' = (toEnum . fromIntegral) help_type - result <- _cb help_type' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId -onWidgetShowHelp obj cb = liftIO $ connectWidgetShowHelp obj cb SignalConnectBefore -afterWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId -afterWidgetShowHelp obj cb = connectWidgetShowHelp obj cb SignalConnectAfter - -connectWidgetShowHelp :: (GObject a, MonadIO m) => - a -> WidgetShowHelpCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetShowHelp obj cb after = liftIO $ do - cb' <- mkWidgetShowHelpCallback (widgetShowHelpCallbackWrapper cb) - connectSignalFunPtr obj "show-help" cb' after - --- signal Widget::size-allocate -type WidgetSizeAllocateCallback = - Gdk.Rectangle -> - IO () - -noWidgetSizeAllocateCallback :: Maybe WidgetSizeAllocateCallback -noWidgetSizeAllocateCallback = Nothing - -type WidgetSizeAllocateCallbackC = - Ptr () -> -- object - Ptr Gdk.Rectangle -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetSizeAllocateCallback :: WidgetSizeAllocateCallbackC -> IO (FunPtr WidgetSizeAllocateCallbackC) - -widgetSizeAllocateClosure :: WidgetSizeAllocateCallback -> IO Closure -widgetSizeAllocateClosure cb = newCClosure =<< mkWidgetSizeAllocateCallback wrapped - where wrapped = widgetSizeAllocateCallbackWrapper cb - -widgetSizeAllocateCallbackWrapper :: - WidgetSizeAllocateCallback -> - Ptr () -> - Ptr Gdk.Rectangle -> - Ptr () -> - IO () -widgetSizeAllocateCallbackWrapper _cb _ allocation _ = do - allocation' <- (newBoxed Gdk.Rectangle) allocation - _cb allocation' - -onWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId -onWidgetSizeAllocate obj cb = liftIO $ connectWidgetSizeAllocate obj cb SignalConnectBefore -afterWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId -afterWidgetSizeAllocate obj cb = connectWidgetSizeAllocate obj cb SignalConnectAfter - -connectWidgetSizeAllocate :: (GObject a, MonadIO m) => - a -> WidgetSizeAllocateCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSizeAllocate obj cb after = liftIO $ do - cb' <- mkWidgetSizeAllocateCallback (widgetSizeAllocateCallbackWrapper cb) - connectSignalFunPtr obj "size-allocate" cb' after - --- signal Widget::state-changed -type WidgetStateChangedCallback = - StateType -> - IO () - -noWidgetStateChangedCallback :: Maybe WidgetStateChangedCallback -noWidgetStateChangedCallback = Nothing - -type WidgetStateChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetStateChangedCallback :: WidgetStateChangedCallbackC -> IO (FunPtr WidgetStateChangedCallbackC) - -widgetStateChangedClosure :: WidgetStateChangedCallback -> IO Closure -widgetStateChangedClosure cb = newCClosure =<< mkWidgetStateChangedCallback wrapped - where wrapped = widgetStateChangedCallbackWrapper cb - -widgetStateChangedCallbackWrapper :: - WidgetStateChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -widgetStateChangedCallbackWrapper _cb _ state _ = do - let state' = (toEnum . fromIntegral) state - _cb state' - -onWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId -onWidgetStateChanged obj cb = liftIO $ connectWidgetStateChanged obj cb SignalConnectBefore -afterWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId -afterWidgetStateChanged obj cb = connectWidgetStateChanged obj cb SignalConnectAfter - -connectWidgetStateChanged :: (GObject a, MonadIO m) => - a -> WidgetStateChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetStateChanged obj cb after = liftIO $ do - cb' <- mkWidgetStateChangedCallback (widgetStateChangedCallbackWrapper cb) - connectSignalFunPtr obj "state-changed" cb' after - --- signal Widget::state-flags-changed -type WidgetStateFlagsChangedCallback = - [StateFlags] -> - IO () - -noWidgetStateFlagsChangedCallback :: Maybe WidgetStateFlagsChangedCallback -noWidgetStateFlagsChangedCallback = Nothing - -type WidgetStateFlagsChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetStateFlagsChangedCallback :: WidgetStateFlagsChangedCallbackC -> IO (FunPtr WidgetStateFlagsChangedCallbackC) - -widgetStateFlagsChangedClosure :: WidgetStateFlagsChangedCallback -> IO Closure -widgetStateFlagsChangedClosure cb = newCClosure =<< mkWidgetStateFlagsChangedCallback wrapped - where wrapped = widgetStateFlagsChangedCallbackWrapper cb - -widgetStateFlagsChangedCallbackWrapper :: - WidgetStateFlagsChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -widgetStateFlagsChangedCallbackWrapper _cb _ flags _ = do - let flags' = wordToGFlags flags - _cb flags' - -onWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId -onWidgetStateFlagsChanged obj cb = liftIO $ connectWidgetStateFlagsChanged obj cb SignalConnectBefore -afterWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId -afterWidgetStateFlagsChanged obj cb = connectWidgetStateFlagsChanged obj cb SignalConnectAfter - -connectWidgetStateFlagsChanged :: (GObject a, MonadIO m) => - a -> WidgetStateFlagsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetStateFlagsChanged obj cb after = liftIO $ do - cb' <- mkWidgetStateFlagsChangedCallback (widgetStateFlagsChangedCallbackWrapper cb) - connectSignalFunPtr obj "state-flags-changed" cb' after - --- signal Widget::style-set -type WidgetStyleSetCallback = - Maybe Style -> - IO () - -noWidgetStyleSetCallback :: Maybe WidgetStyleSetCallback -noWidgetStyleSetCallback = Nothing - -type WidgetStyleSetCallbackC = - Ptr () -> -- object - Ptr Style -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetStyleSetCallback :: WidgetStyleSetCallbackC -> IO (FunPtr WidgetStyleSetCallbackC) - -widgetStyleSetClosure :: WidgetStyleSetCallback -> IO Closure -widgetStyleSetClosure cb = newCClosure =<< mkWidgetStyleSetCallback wrapped - where wrapped = widgetStyleSetCallbackWrapper cb - -widgetStyleSetCallbackWrapper :: - WidgetStyleSetCallback -> - Ptr () -> - Ptr Style -> - Ptr () -> - IO () -widgetStyleSetCallbackWrapper _cb _ previous_style _ = do - maybePrevious_style <- - if previous_style == nullPtr - then return Nothing - else do - previous_style' <- (newObject Style) previous_style - return $ Just previous_style' - _cb maybePrevious_style - -onWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId -onWidgetStyleSet obj cb = liftIO $ connectWidgetStyleSet obj cb SignalConnectBefore -afterWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId -afterWidgetStyleSet obj cb = connectWidgetStyleSet obj cb SignalConnectAfter - -connectWidgetStyleSet :: (GObject a, MonadIO m) => - a -> WidgetStyleSetCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetStyleSet obj cb after = liftIO $ do - cb' <- mkWidgetStyleSetCallback (widgetStyleSetCallbackWrapper cb) - connectSignalFunPtr obj "style-set" cb' after - --- signal Widget::style-updated -type WidgetStyleUpdatedCallback = - IO () - -noWidgetStyleUpdatedCallback :: Maybe WidgetStyleUpdatedCallback -noWidgetStyleUpdatedCallback = Nothing - -type WidgetStyleUpdatedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetStyleUpdatedCallback :: WidgetStyleUpdatedCallbackC -> IO (FunPtr WidgetStyleUpdatedCallbackC) - -widgetStyleUpdatedClosure :: WidgetStyleUpdatedCallback -> IO Closure -widgetStyleUpdatedClosure cb = newCClosure =<< mkWidgetStyleUpdatedCallback wrapped - where wrapped = widgetStyleUpdatedCallbackWrapper cb - -widgetStyleUpdatedCallbackWrapper :: - WidgetStyleUpdatedCallback -> - Ptr () -> - Ptr () -> - IO () -widgetStyleUpdatedCallbackWrapper _cb _ _ = do - _cb - -onWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId -onWidgetStyleUpdated obj cb = liftIO $ connectWidgetStyleUpdated obj cb SignalConnectBefore -afterWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId -afterWidgetStyleUpdated obj cb = connectWidgetStyleUpdated obj cb SignalConnectAfter - -connectWidgetStyleUpdated :: (GObject a, MonadIO m) => - a -> WidgetStyleUpdatedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetStyleUpdated obj cb after = liftIO $ do - cb' <- mkWidgetStyleUpdatedCallback (widgetStyleUpdatedCallbackWrapper cb) - connectSignalFunPtr obj "style-updated" cb' after - --- signal Widget::touch-event -type WidgetTouchEventCallback = - Gdk.Event -> - IO Bool - -noWidgetTouchEventCallback :: Maybe WidgetTouchEventCallback -noWidgetTouchEventCallback = Nothing - -type WidgetTouchEventCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetTouchEventCallback :: WidgetTouchEventCallbackC -> IO (FunPtr WidgetTouchEventCallbackC) - -widgetTouchEventClosure :: WidgetTouchEventCallback -> IO Closure -widgetTouchEventClosure cb = newCClosure =<< mkWidgetTouchEventCallback wrapped - where wrapped = widgetTouchEventCallbackWrapper cb - -widgetTouchEventCallbackWrapper :: - WidgetTouchEventCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO CInt -widgetTouchEventCallbackWrapper _cb _ object _ = do - object' <- (newBoxed Gdk.Event) object - result <- _cb object' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId -onWidgetTouchEvent obj cb = liftIO $ connectWidgetTouchEvent obj cb SignalConnectBefore -afterWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId -afterWidgetTouchEvent obj cb = connectWidgetTouchEvent obj cb SignalConnectAfter - -connectWidgetTouchEvent :: (GObject a, MonadIO m) => - a -> WidgetTouchEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetTouchEvent obj cb after = liftIO $ do - cb' <- mkWidgetTouchEventCallback (widgetTouchEventCallbackWrapper cb) - connectSignalFunPtr obj "touch-event" cb' after - --- signal Widget::unmap -type WidgetUnmapCallback = - IO () - -noWidgetUnmapCallback :: Maybe WidgetUnmapCallback -noWidgetUnmapCallback = Nothing - -type WidgetUnmapCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetUnmapCallback :: WidgetUnmapCallbackC -> IO (FunPtr WidgetUnmapCallbackC) - -widgetUnmapClosure :: WidgetUnmapCallback -> IO Closure -widgetUnmapClosure cb = newCClosure =<< mkWidgetUnmapCallback wrapped - where wrapped = widgetUnmapCallbackWrapper cb - -widgetUnmapCallbackWrapper :: - WidgetUnmapCallback -> - Ptr () -> - Ptr () -> - IO () -widgetUnmapCallbackWrapper _cb _ _ = do - _cb - -onWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId -onWidgetUnmap obj cb = liftIO $ connectWidgetUnmap obj cb SignalConnectBefore -afterWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId -afterWidgetUnmap obj cb = connectWidgetUnmap obj cb SignalConnectAfter - -connectWidgetUnmap :: (GObject a, MonadIO m) => - a -> WidgetUnmapCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetUnmap obj cb after = liftIO $ do - cb' <- mkWidgetUnmapCallback (widgetUnmapCallbackWrapper cb) - connectSignalFunPtr obj "unmap" cb' after - --- signal Widget::unmap-event -type WidgetUnmapEventCallback = - Gdk.EventAny -> - IO Bool - -noWidgetUnmapEventCallback :: Maybe WidgetUnmapEventCallback -noWidgetUnmapEventCallback = Nothing - -type WidgetUnmapEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventAny -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetUnmapEventCallback :: WidgetUnmapEventCallbackC -> IO (FunPtr WidgetUnmapEventCallbackC) - -widgetUnmapEventClosure :: WidgetUnmapEventCallback -> IO Closure -widgetUnmapEventClosure cb = newCClosure =<< mkWidgetUnmapEventCallback wrapped - where wrapped = widgetUnmapEventCallbackWrapper cb - -widgetUnmapEventCallbackWrapper :: - WidgetUnmapEventCallback -> - Ptr () -> - Ptr Gdk.EventAny -> - Ptr () -> - IO CInt -widgetUnmapEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 24 Gdk.EventAny) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId -onWidgetUnmapEvent obj cb = liftIO $ connectWidgetUnmapEvent obj cb SignalConnectBefore -afterWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId -afterWidgetUnmapEvent obj cb = connectWidgetUnmapEvent obj cb SignalConnectAfter - -connectWidgetUnmapEvent :: (GObject a, MonadIO m) => - a -> WidgetUnmapEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetUnmapEvent obj cb after = liftIO $ do - cb' <- mkWidgetUnmapEventCallback (widgetUnmapEventCallbackWrapper cb) - connectSignalFunPtr obj "unmap-event" cb' after - --- signal Widget::unrealize -type WidgetUnrealizeCallback = - IO () - -noWidgetUnrealizeCallback :: Maybe WidgetUnrealizeCallback -noWidgetUnrealizeCallback = Nothing - -type WidgetUnrealizeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetUnrealizeCallback :: WidgetUnrealizeCallbackC -> IO (FunPtr WidgetUnrealizeCallbackC) - -widgetUnrealizeClosure :: WidgetUnrealizeCallback -> IO Closure -widgetUnrealizeClosure cb = newCClosure =<< mkWidgetUnrealizeCallback wrapped - where wrapped = widgetUnrealizeCallbackWrapper cb - -widgetUnrealizeCallbackWrapper :: - WidgetUnrealizeCallback -> - Ptr () -> - Ptr () -> - IO () -widgetUnrealizeCallbackWrapper _cb _ _ = do - _cb - -onWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId -onWidgetUnrealize obj cb = liftIO $ connectWidgetUnrealize obj cb SignalConnectBefore -afterWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId -afterWidgetUnrealize obj cb = connectWidgetUnrealize obj cb SignalConnectAfter - -connectWidgetUnrealize :: (GObject a, MonadIO m) => - a -> WidgetUnrealizeCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetUnrealize obj cb after = liftIO $ do - cb' <- mkWidgetUnrealizeCallback (widgetUnrealizeCallbackWrapper cb) - connectSignalFunPtr obj "unrealize" cb' after - --- signal Widget::visibility-notify-event -type WidgetVisibilityNotifyEventCallback = - Gdk.EventVisibility -> - IO Bool - -noWidgetVisibilityNotifyEventCallback :: Maybe WidgetVisibilityNotifyEventCallback -noWidgetVisibilityNotifyEventCallback = Nothing - -type WidgetVisibilityNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventVisibility -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetVisibilityNotifyEventCallback :: WidgetVisibilityNotifyEventCallbackC -> IO (FunPtr WidgetVisibilityNotifyEventCallbackC) - -widgetVisibilityNotifyEventClosure :: WidgetVisibilityNotifyEventCallback -> IO Closure -widgetVisibilityNotifyEventClosure cb = newCClosure =<< mkWidgetVisibilityNotifyEventCallback wrapped - where wrapped = widgetVisibilityNotifyEventCallbackWrapper cb - -widgetVisibilityNotifyEventCallbackWrapper :: - WidgetVisibilityNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventVisibility -> - Ptr () -> - IO CInt -widgetVisibilityNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 24 Gdk.EventVisibility) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId -onWidgetVisibilityNotifyEvent obj cb = liftIO $ connectWidgetVisibilityNotifyEvent obj cb SignalConnectBefore -afterWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId -afterWidgetVisibilityNotifyEvent obj cb = connectWidgetVisibilityNotifyEvent obj cb SignalConnectAfter - -connectWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetVisibilityNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetVisibilityNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetVisibilityNotifyEventCallback (widgetVisibilityNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "visibility-notify-event" cb' after - --- signal Widget::window-state-event -type WidgetWindowStateEventCallback = - Gdk.EventWindowState -> - IO Bool - -noWidgetWindowStateEventCallback :: Maybe WidgetWindowStateEventCallback -noWidgetWindowStateEventCallback = Nothing - -type WidgetWindowStateEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventWindowState -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetWindowStateEventCallback :: WidgetWindowStateEventCallbackC -> IO (FunPtr WidgetWindowStateEventCallbackC) - -widgetWindowStateEventClosure :: WidgetWindowStateEventCallback -> IO Closure -widgetWindowStateEventClosure cb = newCClosure =<< mkWidgetWindowStateEventCallback wrapped - where wrapped = widgetWindowStateEventCallbackWrapper cb - -widgetWindowStateEventCallbackWrapper :: - WidgetWindowStateEventCallback -> - Ptr () -> - Ptr Gdk.EventWindowState -> - Ptr () -> - IO CInt -widgetWindowStateEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 32 Gdk.EventWindowState) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId -onWidgetWindowStateEvent obj cb = liftIO $ connectWidgetWindowStateEvent obj cb SignalConnectBefore -afterWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId -afterWidgetWindowStateEvent obj cb = connectWidgetWindowStateEvent obj cb SignalConnectAfter - -connectWidgetWindowStateEvent :: (GObject a, MonadIO m) => - a -> WidgetWindowStateEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetWindowStateEvent obj cb after = liftIO $ do - cb' <- mkWidgetWindowStateEventCallback (widgetWindowStateEventCallbackWrapper cb) - connectSignalFunPtr obj "window-state-event" cb' after - --- VVV Prop "app-paintable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetAppPaintable :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetAppPaintable obj = liftIO $ getObjectPropertyBool obj "app-paintable" - -setWidgetAppPaintable :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetAppPaintable obj val = liftIO $ setObjectPropertyBool obj "app-paintable" val - -constructWidgetAppPaintable :: Bool -> IO ([Char], GValue) -constructWidgetAppPaintable val = constructObjectPropertyBool "app-paintable" val - -data WidgetAppPaintablePropertyInfo -instance AttrInfo WidgetAppPaintablePropertyInfo where - type AttrAllowedOps WidgetAppPaintablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetAppPaintablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetAppPaintablePropertyInfo = WidgetK - type AttrGetType WidgetAppPaintablePropertyInfo = Bool - type AttrLabel WidgetAppPaintablePropertyInfo = "Widget::app-paintable" - attrGet _ = getWidgetAppPaintable - attrSet _ = setWidgetAppPaintable - attrConstruct _ = constructWidgetAppPaintable - --- VVV Prop "can-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetCanDefault :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetCanDefault obj = liftIO $ getObjectPropertyBool obj "can-default" - -setWidgetCanDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetCanDefault obj val = liftIO $ setObjectPropertyBool obj "can-default" val - -constructWidgetCanDefault :: Bool -> IO ([Char], GValue) -constructWidgetCanDefault val = constructObjectPropertyBool "can-default" val - -data WidgetCanDefaultPropertyInfo -instance AttrInfo WidgetCanDefaultPropertyInfo where - type AttrAllowedOps WidgetCanDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetCanDefaultPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetCanDefaultPropertyInfo = WidgetK - type AttrGetType WidgetCanDefaultPropertyInfo = Bool - type AttrLabel WidgetCanDefaultPropertyInfo = "Widget::can-default" - attrGet _ = getWidgetCanDefault - attrSet _ = setWidgetCanDefault - attrConstruct _ = constructWidgetCanDefault - --- VVV Prop "can-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetCanFocus :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetCanFocus obj = liftIO $ getObjectPropertyBool obj "can-focus" - -setWidgetCanFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetCanFocus obj val = liftIO $ setObjectPropertyBool obj "can-focus" val - -constructWidgetCanFocus :: Bool -> IO ([Char], GValue) -constructWidgetCanFocus val = constructObjectPropertyBool "can-focus" val - -data WidgetCanFocusPropertyInfo -instance AttrInfo WidgetCanFocusPropertyInfo where - type AttrAllowedOps WidgetCanFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetCanFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetCanFocusPropertyInfo = WidgetK - type AttrGetType WidgetCanFocusPropertyInfo = Bool - type AttrLabel WidgetCanFocusPropertyInfo = "Widget::can-focus" - attrGet _ = getWidgetCanFocus - attrSet _ = setWidgetCanFocus - attrConstruct _ = constructWidgetCanFocus - --- VVV Prop "composite-child" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getWidgetCompositeChild :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetCompositeChild obj = liftIO $ getObjectPropertyBool obj "composite-child" - -data WidgetCompositeChildPropertyInfo -instance AttrInfo WidgetCompositeChildPropertyInfo where - type AttrAllowedOps WidgetCompositeChildPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WidgetCompositeChildPropertyInfo = (~) () - type AttrBaseTypeConstraint WidgetCompositeChildPropertyInfo = WidgetK - type AttrGetType WidgetCompositeChildPropertyInfo = Bool - type AttrLabel WidgetCompositeChildPropertyInfo = "Widget::composite-child" - attrGet _ = getWidgetCompositeChild - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "double-buffered" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetDoubleBuffered :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetDoubleBuffered obj = liftIO $ getObjectPropertyBool obj "double-buffered" - -setWidgetDoubleBuffered :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetDoubleBuffered obj val = liftIO $ setObjectPropertyBool obj "double-buffered" val - -constructWidgetDoubleBuffered :: Bool -> IO ([Char], GValue) -constructWidgetDoubleBuffered val = constructObjectPropertyBool "double-buffered" val - -data WidgetDoubleBufferedPropertyInfo -instance AttrInfo WidgetDoubleBufferedPropertyInfo where - type AttrAllowedOps WidgetDoubleBufferedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetDoubleBufferedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetDoubleBufferedPropertyInfo = WidgetK - type AttrGetType WidgetDoubleBufferedPropertyInfo = Bool - type AttrLabel WidgetDoubleBufferedPropertyInfo = "Widget::double-buffered" - attrGet _ = getWidgetDoubleBuffered - attrSet _ = setWidgetDoubleBuffered - attrConstruct _ = constructWidgetDoubleBuffered - --- VVV Prop "events" - -- Type: TInterface "Gdk" "EventMask" - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetEvents :: (MonadIO m, WidgetK o) => o -> m [Gdk.EventMask] -getWidgetEvents obj = liftIO $ getObjectPropertyFlags obj "events" - -setWidgetEvents :: (MonadIO m, WidgetK o) => o -> [Gdk.EventMask] -> m () -setWidgetEvents obj val = liftIO $ setObjectPropertyFlags obj "events" val - -constructWidgetEvents :: [Gdk.EventMask] -> IO ([Char], GValue) -constructWidgetEvents val = constructObjectPropertyFlags "events" val - -data WidgetEventsPropertyInfo -instance AttrInfo WidgetEventsPropertyInfo where - type AttrAllowedOps WidgetEventsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetEventsPropertyInfo = (~) [Gdk.EventMask] - type AttrBaseTypeConstraint WidgetEventsPropertyInfo = WidgetK - type AttrGetType WidgetEventsPropertyInfo = [Gdk.EventMask] - type AttrLabel WidgetEventsPropertyInfo = "Widget::events" - attrGet _ = getWidgetEvents - attrSet _ = setWidgetEvents - attrConstruct _ = constructWidgetEvents - --- VVV Prop "expand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetExpand :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetExpand obj = liftIO $ getObjectPropertyBool obj "expand" - -setWidgetExpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetExpand obj val = liftIO $ setObjectPropertyBool obj "expand" val - -constructWidgetExpand :: Bool -> IO ([Char], GValue) -constructWidgetExpand val = constructObjectPropertyBool "expand" val - -data WidgetExpandPropertyInfo -instance AttrInfo WidgetExpandPropertyInfo where - type AttrAllowedOps WidgetExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetExpandPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetExpandPropertyInfo = WidgetK - type AttrGetType WidgetExpandPropertyInfo = Bool - type AttrLabel WidgetExpandPropertyInfo = "Widget::expand" - attrGet _ = getWidgetExpand - attrSet _ = setWidgetExpand - attrConstruct _ = constructWidgetExpand - --- VVV Prop "halign" - -- Type: TInterface "Gtk" "Align" - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHalign :: (MonadIO m, WidgetK o) => o -> m Align -getWidgetHalign obj = liftIO $ getObjectPropertyEnum obj "halign" - -setWidgetHalign :: (MonadIO m, WidgetK o) => o -> Align -> m () -setWidgetHalign obj val = liftIO $ setObjectPropertyEnum obj "halign" val - -constructWidgetHalign :: Align -> IO ([Char], GValue) -constructWidgetHalign val = constructObjectPropertyEnum "halign" val - -data WidgetHalignPropertyInfo -instance AttrInfo WidgetHalignPropertyInfo where - type AttrAllowedOps WidgetHalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHalignPropertyInfo = (~) Align - type AttrBaseTypeConstraint WidgetHalignPropertyInfo = WidgetK - type AttrGetType WidgetHalignPropertyInfo = Align - type AttrLabel WidgetHalignPropertyInfo = "Widget::halign" - attrGet _ = getWidgetHalign - attrSet _ = setWidgetHalign - attrConstruct _ = constructWidgetHalign - --- VVV Prop "has-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHasDefault :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHasDefault obj = liftIO $ getObjectPropertyBool obj "has-default" - -setWidgetHasDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHasDefault obj val = liftIO $ setObjectPropertyBool obj "has-default" val - -constructWidgetHasDefault :: Bool -> IO ([Char], GValue) -constructWidgetHasDefault val = constructObjectPropertyBool "has-default" val - -data WidgetHasDefaultPropertyInfo -instance AttrInfo WidgetHasDefaultPropertyInfo where - type AttrAllowedOps WidgetHasDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHasDefaultPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHasDefaultPropertyInfo = WidgetK - type AttrGetType WidgetHasDefaultPropertyInfo = Bool - type AttrLabel WidgetHasDefaultPropertyInfo = "Widget::has-default" - attrGet _ = getWidgetHasDefault - attrSet _ = setWidgetHasDefault - attrConstruct _ = constructWidgetHasDefault - --- VVV Prop "has-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHasFocus :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHasFocus obj = liftIO $ getObjectPropertyBool obj "has-focus" - -setWidgetHasFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHasFocus obj val = liftIO $ setObjectPropertyBool obj "has-focus" val - -constructWidgetHasFocus :: Bool -> IO ([Char], GValue) -constructWidgetHasFocus val = constructObjectPropertyBool "has-focus" val - -data WidgetHasFocusPropertyInfo -instance AttrInfo WidgetHasFocusPropertyInfo where - type AttrAllowedOps WidgetHasFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHasFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHasFocusPropertyInfo = WidgetK - type AttrGetType WidgetHasFocusPropertyInfo = Bool - type AttrLabel WidgetHasFocusPropertyInfo = "Widget::has-focus" - attrGet _ = getWidgetHasFocus - attrSet _ = setWidgetHasFocus - attrConstruct _ = constructWidgetHasFocus - --- VVV Prop "has-tooltip" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHasTooltip :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHasTooltip obj = liftIO $ getObjectPropertyBool obj "has-tooltip" - -setWidgetHasTooltip :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHasTooltip obj val = liftIO $ setObjectPropertyBool obj "has-tooltip" val - -constructWidgetHasTooltip :: Bool -> IO ([Char], GValue) -constructWidgetHasTooltip val = constructObjectPropertyBool "has-tooltip" val - -data WidgetHasTooltipPropertyInfo -instance AttrInfo WidgetHasTooltipPropertyInfo where - type AttrAllowedOps WidgetHasTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHasTooltipPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHasTooltipPropertyInfo = WidgetK - type AttrGetType WidgetHasTooltipPropertyInfo = Bool - type AttrLabel WidgetHasTooltipPropertyInfo = "Widget::has-tooltip" - attrGet _ = getWidgetHasTooltip - attrSet _ = setWidgetHasTooltip - attrConstruct _ = constructWidgetHasTooltip - --- VVV Prop "height-request" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetHeightRequest obj = liftIO $ getObjectPropertyCInt obj "height-request" - -setWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetHeightRequest obj val = liftIO $ setObjectPropertyCInt obj "height-request" val - -constructWidgetHeightRequest :: Int32 -> IO ([Char], GValue) -constructWidgetHeightRequest val = constructObjectPropertyCInt "height-request" val - -data WidgetHeightRequestPropertyInfo -instance AttrInfo WidgetHeightRequestPropertyInfo where - type AttrAllowedOps WidgetHeightRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHeightRequestPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetHeightRequestPropertyInfo = WidgetK - type AttrGetType WidgetHeightRequestPropertyInfo = Int32 - type AttrLabel WidgetHeightRequestPropertyInfo = "Widget::height-request" - attrGet _ = getWidgetHeightRequest - attrSet _ = setWidgetHeightRequest - attrConstruct _ = constructWidgetHeightRequest - --- VVV Prop "hexpand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHexpand :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHexpand obj = liftIO $ getObjectPropertyBool obj "hexpand" - -setWidgetHexpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHexpand obj val = liftIO $ setObjectPropertyBool obj "hexpand" val - -constructWidgetHexpand :: Bool -> IO ([Char], GValue) -constructWidgetHexpand val = constructObjectPropertyBool "hexpand" val - -data WidgetHexpandPropertyInfo -instance AttrInfo WidgetHexpandPropertyInfo where - type AttrAllowedOps WidgetHexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHexpandPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHexpandPropertyInfo = WidgetK - type AttrGetType WidgetHexpandPropertyInfo = Bool - type AttrLabel WidgetHexpandPropertyInfo = "Widget::hexpand" - attrGet _ = getWidgetHexpand - attrSet _ = setWidgetHexpand - attrConstruct _ = constructWidgetHexpand - --- VVV Prop "hexpand-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHexpandSet :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHexpandSet obj = liftIO $ getObjectPropertyBool obj "hexpand-set" - -setWidgetHexpandSet :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHexpandSet obj val = liftIO $ setObjectPropertyBool obj "hexpand-set" val - -constructWidgetHexpandSet :: Bool -> IO ([Char], GValue) -constructWidgetHexpandSet val = constructObjectPropertyBool "hexpand-set" val - -data WidgetHexpandSetPropertyInfo -instance AttrInfo WidgetHexpandSetPropertyInfo where - type AttrAllowedOps WidgetHexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHexpandSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHexpandSetPropertyInfo = WidgetK - type AttrGetType WidgetHexpandSetPropertyInfo = Bool - type AttrLabel WidgetHexpandSetPropertyInfo = "Widget::hexpand-set" - attrGet _ = getWidgetHexpandSet - attrSet _ = setWidgetHexpandSet - attrConstruct _ = constructWidgetHexpandSet - --- VVV Prop "is-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetIsFocus :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetIsFocus obj = liftIO $ getObjectPropertyBool obj "is-focus" - -setWidgetIsFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetIsFocus obj val = liftIO $ setObjectPropertyBool obj "is-focus" val - -constructWidgetIsFocus :: Bool -> IO ([Char], GValue) -constructWidgetIsFocus val = constructObjectPropertyBool "is-focus" val - -data WidgetIsFocusPropertyInfo -instance AttrInfo WidgetIsFocusPropertyInfo where - type AttrAllowedOps WidgetIsFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetIsFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetIsFocusPropertyInfo = WidgetK - type AttrGetType WidgetIsFocusPropertyInfo = Bool - type AttrLabel WidgetIsFocusPropertyInfo = "Widget::is-focus" - attrGet _ = getWidgetIsFocus - attrSet _ = setWidgetIsFocus - attrConstruct _ = constructWidgetIsFocus - --- VVV Prop "margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMargin :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMargin obj = liftIO $ getObjectPropertyCInt obj "margin" - -setWidgetMargin :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMargin obj val = liftIO $ setObjectPropertyCInt obj "margin" val - -constructWidgetMargin :: Int32 -> IO ([Char], GValue) -constructWidgetMargin val = constructObjectPropertyCInt "margin" val - -data WidgetMarginPropertyInfo -instance AttrInfo WidgetMarginPropertyInfo where - type AttrAllowedOps WidgetMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginPropertyInfo = WidgetK - type AttrGetType WidgetMarginPropertyInfo = Int32 - type AttrLabel WidgetMarginPropertyInfo = "Widget::margin" - attrGet _ = getWidgetMargin - attrSet _ = setWidgetMargin - attrConstruct _ = constructWidgetMargin - --- VVV Prop "margin-bottom" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginBottom obj = liftIO $ getObjectPropertyCInt obj "margin-bottom" - -setWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginBottom obj val = liftIO $ setObjectPropertyCInt obj "margin-bottom" val - -constructWidgetMarginBottom :: Int32 -> IO ([Char], GValue) -constructWidgetMarginBottom val = constructObjectPropertyCInt "margin-bottom" val - -data WidgetMarginBottomPropertyInfo -instance AttrInfo WidgetMarginBottomPropertyInfo where - type AttrAllowedOps WidgetMarginBottomPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginBottomPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginBottomPropertyInfo = WidgetK - type AttrGetType WidgetMarginBottomPropertyInfo = Int32 - type AttrLabel WidgetMarginBottomPropertyInfo = "Widget::margin-bottom" - attrGet _ = getWidgetMarginBottom - attrSet _ = setWidgetMarginBottom - attrConstruct _ = constructWidgetMarginBottom - --- VVV Prop "margin-end" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginEnd obj = liftIO $ getObjectPropertyCInt obj "margin-end" - -setWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginEnd obj val = liftIO $ setObjectPropertyCInt obj "margin-end" val - -constructWidgetMarginEnd :: Int32 -> IO ([Char], GValue) -constructWidgetMarginEnd val = constructObjectPropertyCInt "margin-end" val - -data WidgetMarginEndPropertyInfo -instance AttrInfo WidgetMarginEndPropertyInfo where - type AttrAllowedOps WidgetMarginEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginEndPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginEndPropertyInfo = WidgetK - type AttrGetType WidgetMarginEndPropertyInfo = Int32 - type AttrLabel WidgetMarginEndPropertyInfo = "Widget::margin-end" - attrGet _ = getWidgetMarginEnd - attrSet _ = setWidgetMarginEnd - attrConstruct _ = constructWidgetMarginEnd - --- VVV Prop "margin-left" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginLeft obj = liftIO $ getObjectPropertyCInt obj "margin-left" - -setWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginLeft obj val = liftIO $ setObjectPropertyCInt obj "margin-left" val - -constructWidgetMarginLeft :: Int32 -> IO ([Char], GValue) -constructWidgetMarginLeft val = constructObjectPropertyCInt "margin-left" val - -data WidgetMarginLeftPropertyInfo -instance AttrInfo WidgetMarginLeftPropertyInfo where - type AttrAllowedOps WidgetMarginLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginLeftPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginLeftPropertyInfo = WidgetK - type AttrGetType WidgetMarginLeftPropertyInfo = Int32 - type AttrLabel WidgetMarginLeftPropertyInfo = "Widget::margin-left" - attrGet _ = getWidgetMarginLeft - attrSet _ = setWidgetMarginLeft - attrConstruct _ = constructWidgetMarginLeft - --- VVV Prop "margin-right" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginRight obj = liftIO $ getObjectPropertyCInt obj "margin-right" - -setWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginRight obj val = liftIO $ setObjectPropertyCInt obj "margin-right" val - -constructWidgetMarginRight :: Int32 -> IO ([Char], GValue) -constructWidgetMarginRight val = constructObjectPropertyCInt "margin-right" val - -data WidgetMarginRightPropertyInfo -instance AttrInfo WidgetMarginRightPropertyInfo where - type AttrAllowedOps WidgetMarginRightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginRightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginRightPropertyInfo = WidgetK - type AttrGetType WidgetMarginRightPropertyInfo = Int32 - type AttrLabel WidgetMarginRightPropertyInfo = "Widget::margin-right" - attrGet _ = getWidgetMarginRight - attrSet _ = setWidgetMarginRight - attrConstruct _ = constructWidgetMarginRight - --- VVV Prop "margin-start" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginStart obj = liftIO $ getObjectPropertyCInt obj "margin-start" - -setWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginStart obj val = liftIO $ setObjectPropertyCInt obj "margin-start" val - -constructWidgetMarginStart :: Int32 -> IO ([Char], GValue) -constructWidgetMarginStart val = constructObjectPropertyCInt "margin-start" val - -data WidgetMarginStartPropertyInfo -instance AttrInfo WidgetMarginStartPropertyInfo where - type AttrAllowedOps WidgetMarginStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginStartPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginStartPropertyInfo = WidgetK - type AttrGetType WidgetMarginStartPropertyInfo = Int32 - type AttrLabel WidgetMarginStartPropertyInfo = "Widget::margin-start" - attrGet _ = getWidgetMarginStart - attrSet _ = setWidgetMarginStart - attrConstruct _ = constructWidgetMarginStart - --- VVV Prop "margin-top" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginTop obj = liftIO $ getObjectPropertyCInt obj "margin-top" - -setWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginTop obj val = liftIO $ setObjectPropertyCInt obj "margin-top" val - -constructWidgetMarginTop :: Int32 -> IO ([Char], GValue) -constructWidgetMarginTop val = constructObjectPropertyCInt "margin-top" val - -data WidgetMarginTopPropertyInfo -instance AttrInfo WidgetMarginTopPropertyInfo where - type AttrAllowedOps WidgetMarginTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginTopPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginTopPropertyInfo = WidgetK - type AttrGetType WidgetMarginTopPropertyInfo = Int32 - type AttrLabel WidgetMarginTopPropertyInfo = "Widget::margin-top" - attrGet _ = getWidgetMarginTop - attrSet _ = setWidgetMarginTop - attrConstruct _ = constructWidgetMarginTop - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetName :: (MonadIO m, WidgetK o) => o -> m T.Text -getWidgetName obj = liftIO $ getObjectPropertyString obj "name" - -setWidgetName :: (MonadIO m, WidgetK o) => o -> T.Text -> m () -setWidgetName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructWidgetName :: T.Text -> IO ([Char], GValue) -constructWidgetName val = constructObjectPropertyString "name" val - -data WidgetNamePropertyInfo -instance AttrInfo WidgetNamePropertyInfo where - type AttrAllowedOps WidgetNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WidgetNamePropertyInfo = WidgetK - type AttrGetType WidgetNamePropertyInfo = T.Text - type AttrLabel WidgetNamePropertyInfo = "Widget::name" - attrGet _ = getWidgetName - attrSet _ = setWidgetName - attrConstruct _ = constructWidgetName - --- VVV Prop "no-show-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetNoShowAll :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetNoShowAll obj = liftIO $ getObjectPropertyBool obj "no-show-all" - -setWidgetNoShowAll :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetNoShowAll obj val = liftIO $ setObjectPropertyBool obj "no-show-all" val - -constructWidgetNoShowAll :: Bool -> IO ([Char], GValue) -constructWidgetNoShowAll val = constructObjectPropertyBool "no-show-all" val - -data WidgetNoShowAllPropertyInfo -instance AttrInfo WidgetNoShowAllPropertyInfo where - type AttrAllowedOps WidgetNoShowAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetNoShowAllPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetNoShowAllPropertyInfo = WidgetK - type AttrGetType WidgetNoShowAllPropertyInfo = Bool - type AttrLabel WidgetNoShowAllPropertyInfo = "Widget::no-show-all" - attrGet _ = getWidgetNoShowAll - attrSet _ = setWidgetNoShowAll - attrConstruct _ = constructWidgetNoShowAll - --- VVV Prop "opacity" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetOpacity :: (MonadIO m, WidgetK o) => o -> m Double -getWidgetOpacity obj = liftIO $ getObjectPropertyDouble obj "opacity" - -setWidgetOpacity :: (MonadIO m, WidgetK o) => o -> Double -> m () -setWidgetOpacity obj val = liftIO $ setObjectPropertyDouble obj "opacity" val - -constructWidgetOpacity :: Double -> IO ([Char], GValue) -constructWidgetOpacity val = constructObjectPropertyDouble "opacity" val - -data WidgetOpacityPropertyInfo -instance AttrInfo WidgetOpacityPropertyInfo where - type AttrAllowedOps WidgetOpacityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetOpacityPropertyInfo = (~) Double - type AttrBaseTypeConstraint WidgetOpacityPropertyInfo = WidgetK - type AttrGetType WidgetOpacityPropertyInfo = Double - type AttrLabel WidgetOpacityPropertyInfo = "Widget::opacity" - attrGet _ = getWidgetOpacity - attrSet _ = setWidgetOpacity - attrConstruct _ = constructWidgetOpacity - --- VVV Prop "parent" - -- Type: TInterface "Gtk" "Container" - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetParent :: (MonadIO m, WidgetK o) => o -> m Container -getWidgetParent obj = liftIO $ getObjectPropertyObject obj "parent" Container - -setWidgetParent :: (MonadIO m, WidgetK o, ContainerK a) => o -> a -> m () -setWidgetParent obj val = liftIO $ setObjectPropertyObject obj "parent" val - -constructWidgetParent :: (ContainerK a) => a -> IO ([Char], GValue) -constructWidgetParent val = constructObjectPropertyObject "parent" val - -data WidgetParentPropertyInfo -instance AttrInfo WidgetParentPropertyInfo where - type AttrAllowedOps WidgetParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetParentPropertyInfo = ContainerK - type AttrBaseTypeConstraint WidgetParentPropertyInfo = WidgetK - type AttrGetType WidgetParentPropertyInfo = Container - type AttrLabel WidgetParentPropertyInfo = "Widget::parent" - attrGet _ = getWidgetParent - attrSet _ = setWidgetParent - attrConstruct _ = constructWidgetParent - --- VVV Prop "receives-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetReceivesDefault :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetReceivesDefault obj = liftIO $ getObjectPropertyBool obj "receives-default" - -setWidgetReceivesDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetReceivesDefault obj val = liftIO $ setObjectPropertyBool obj "receives-default" val - -constructWidgetReceivesDefault :: Bool -> IO ([Char], GValue) -constructWidgetReceivesDefault val = constructObjectPropertyBool "receives-default" val - -data WidgetReceivesDefaultPropertyInfo -instance AttrInfo WidgetReceivesDefaultPropertyInfo where - type AttrAllowedOps WidgetReceivesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetReceivesDefaultPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetReceivesDefaultPropertyInfo = WidgetK - type AttrGetType WidgetReceivesDefaultPropertyInfo = Bool - type AttrLabel WidgetReceivesDefaultPropertyInfo = "Widget::receives-default" - attrGet _ = getWidgetReceivesDefault - attrSet _ = setWidgetReceivesDefault - attrConstruct _ = constructWidgetReceivesDefault - --- VVV Prop "scale-factor" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getWidgetScaleFactor :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetScaleFactor obj = liftIO $ getObjectPropertyCInt obj "scale-factor" - -data WidgetScaleFactorPropertyInfo -instance AttrInfo WidgetScaleFactorPropertyInfo where - type AttrAllowedOps WidgetScaleFactorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WidgetScaleFactorPropertyInfo = (~) () - type AttrBaseTypeConstraint WidgetScaleFactorPropertyInfo = WidgetK - type AttrGetType WidgetScaleFactorPropertyInfo = Int32 - type AttrLabel WidgetScaleFactorPropertyInfo = "Widget::scale-factor" - attrGet _ = getWidgetScaleFactor - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetSensitive :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive" - -setWidgetSensitive :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetSensitive obj val = liftIO $ setObjectPropertyBool obj "sensitive" val - -constructWidgetSensitive :: Bool -> IO ([Char], GValue) -constructWidgetSensitive val = constructObjectPropertyBool "sensitive" val - -data WidgetSensitivePropertyInfo -instance AttrInfo WidgetSensitivePropertyInfo where - type AttrAllowedOps WidgetSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetSensitivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetSensitivePropertyInfo = WidgetK - type AttrGetType WidgetSensitivePropertyInfo = Bool - type AttrLabel WidgetSensitivePropertyInfo = "Widget::sensitive" - attrGet _ = getWidgetSensitive - attrSet _ = setWidgetSensitive - attrConstruct _ = constructWidgetSensitive - --- VVV Prop "style" - -- Type: TInterface "Gtk" "Style" - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetStyle :: (MonadIO m, WidgetK o) => o -> m Style -getWidgetStyle obj = liftIO $ getObjectPropertyObject obj "style" Style - -setWidgetStyle :: (MonadIO m, WidgetK o, StyleK a) => o -> a -> m () -setWidgetStyle obj val = liftIO $ setObjectPropertyObject obj "style" val - -constructWidgetStyle :: (StyleK a) => a -> IO ([Char], GValue) -constructWidgetStyle val = constructObjectPropertyObject "style" val - -data WidgetStylePropertyInfo -instance AttrInfo WidgetStylePropertyInfo where - type AttrAllowedOps WidgetStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetStylePropertyInfo = StyleK - type AttrBaseTypeConstraint WidgetStylePropertyInfo = WidgetK - type AttrGetType WidgetStylePropertyInfo = Style - type AttrLabel WidgetStylePropertyInfo = "Widget::style" - attrGet _ = getWidgetStyle - attrSet _ = setWidgetStyle - attrConstruct _ = constructWidgetStyle - --- VVV Prop "tooltip-markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> m T.Text -getWidgetTooltipMarkup obj = liftIO $ getObjectPropertyString obj "tooltip-markup" - -setWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> T.Text -> m () -setWidgetTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "tooltip-markup" val - -constructWidgetTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructWidgetTooltipMarkup val = constructObjectPropertyString "tooltip-markup" val - -data WidgetTooltipMarkupPropertyInfo -instance AttrInfo WidgetTooltipMarkupPropertyInfo where - type AttrAllowedOps WidgetTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetTooltipMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WidgetTooltipMarkupPropertyInfo = WidgetK - type AttrGetType WidgetTooltipMarkupPropertyInfo = T.Text - type AttrLabel WidgetTooltipMarkupPropertyInfo = "Widget::tooltip-markup" - attrGet _ = getWidgetTooltipMarkup - attrSet _ = setWidgetTooltipMarkup - attrConstruct _ = constructWidgetTooltipMarkup - --- VVV Prop "tooltip-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> m T.Text -getWidgetTooltipText obj = liftIO $ getObjectPropertyString obj "tooltip-text" - -setWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> T.Text -> m () -setWidgetTooltipText obj val = liftIO $ setObjectPropertyString obj "tooltip-text" val - -constructWidgetTooltipText :: T.Text -> IO ([Char], GValue) -constructWidgetTooltipText val = constructObjectPropertyString "tooltip-text" val - -data WidgetTooltipTextPropertyInfo -instance AttrInfo WidgetTooltipTextPropertyInfo where - type AttrAllowedOps WidgetTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetTooltipTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WidgetTooltipTextPropertyInfo = WidgetK - type AttrGetType WidgetTooltipTextPropertyInfo = T.Text - type AttrLabel WidgetTooltipTextPropertyInfo = "Widget::tooltip-text" - attrGet _ = getWidgetTooltipText - attrSet _ = setWidgetTooltipText - attrConstruct _ = constructWidgetTooltipText - --- VVV Prop "valign" - -- Type: TInterface "Gtk" "Align" - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetValign :: (MonadIO m, WidgetK o) => o -> m Align -getWidgetValign obj = liftIO $ getObjectPropertyEnum obj "valign" - -setWidgetValign :: (MonadIO m, WidgetK o) => o -> Align -> m () -setWidgetValign obj val = liftIO $ setObjectPropertyEnum obj "valign" val - -constructWidgetValign :: Align -> IO ([Char], GValue) -constructWidgetValign val = constructObjectPropertyEnum "valign" val - -data WidgetValignPropertyInfo -instance AttrInfo WidgetValignPropertyInfo where - type AttrAllowedOps WidgetValignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetValignPropertyInfo = (~) Align - type AttrBaseTypeConstraint WidgetValignPropertyInfo = WidgetK - type AttrGetType WidgetValignPropertyInfo = Align - type AttrLabel WidgetValignPropertyInfo = "Widget::valign" - attrGet _ = getWidgetValign - attrSet _ = setWidgetValign - attrConstruct _ = constructWidgetValign - --- VVV Prop "vexpand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetVexpand :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetVexpand obj = liftIO $ getObjectPropertyBool obj "vexpand" - -setWidgetVexpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetVexpand obj val = liftIO $ setObjectPropertyBool obj "vexpand" val - -constructWidgetVexpand :: Bool -> IO ([Char], GValue) -constructWidgetVexpand val = constructObjectPropertyBool "vexpand" val - -data WidgetVexpandPropertyInfo -instance AttrInfo WidgetVexpandPropertyInfo where - type AttrAllowedOps WidgetVexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetVexpandPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetVexpandPropertyInfo = WidgetK - type AttrGetType WidgetVexpandPropertyInfo = Bool - type AttrLabel WidgetVexpandPropertyInfo = "Widget::vexpand" - attrGet _ = getWidgetVexpand - attrSet _ = setWidgetVexpand - attrConstruct _ = constructWidgetVexpand - --- VVV Prop "vexpand-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetVexpandSet :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetVexpandSet obj = liftIO $ getObjectPropertyBool obj "vexpand-set" - -setWidgetVexpandSet :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetVexpandSet obj val = liftIO $ setObjectPropertyBool obj "vexpand-set" val - -constructWidgetVexpandSet :: Bool -> IO ([Char], GValue) -constructWidgetVexpandSet val = constructObjectPropertyBool "vexpand-set" val - -data WidgetVexpandSetPropertyInfo -instance AttrInfo WidgetVexpandSetPropertyInfo where - type AttrAllowedOps WidgetVexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetVexpandSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetVexpandSetPropertyInfo = WidgetK - type AttrGetType WidgetVexpandSetPropertyInfo = Bool - type AttrLabel WidgetVexpandSetPropertyInfo = "Widget::vexpand-set" - attrGet _ = getWidgetVexpandSet - attrSet _ = setWidgetVexpandSet - attrConstruct _ = constructWidgetVexpandSet - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetVisible :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetVisible obj = liftIO $ getObjectPropertyBool obj "visible" - -setWidgetVisible :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val - -constructWidgetVisible :: Bool -> IO ([Char], GValue) -constructWidgetVisible val = constructObjectPropertyBool "visible" val - -data WidgetVisiblePropertyInfo -instance AttrInfo WidgetVisiblePropertyInfo where - type AttrAllowedOps WidgetVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetVisiblePropertyInfo = WidgetK - type AttrGetType WidgetVisiblePropertyInfo = Bool - type AttrLabel WidgetVisiblePropertyInfo = "Widget::visible" - attrGet _ = getWidgetVisible - attrSet _ = setWidgetVisible - attrConstruct _ = constructWidgetVisible - --- VVV Prop "width-request" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetWidthRequest obj = liftIO $ getObjectPropertyCInt obj "width-request" - -setWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetWidthRequest obj val = liftIO $ setObjectPropertyCInt obj "width-request" val - -constructWidgetWidthRequest :: Int32 -> IO ([Char], GValue) -constructWidgetWidthRequest val = constructObjectPropertyCInt "width-request" val - -data WidgetWidthRequestPropertyInfo -instance AttrInfo WidgetWidthRequestPropertyInfo where - type AttrAllowedOps WidgetWidthRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetWidthRequestPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetWidthRequestPropertyInfo = WidgetK - type AttrGetType WidgetWidthRequestPropertyInfo = Int32 - type AttrLabel WidgetWidthRequestPropertyInfo = "Widget::width-request" - attrGet _ = getWidgetWidthRequest - attrSet _ = setWidgetWidthRequest - attrConstruct _ = constructWidgetWidthRequest - --- VVV Prop "window" - -- Type: TInterface "Gdk" "Window" - -- Flags: [PropertyReadable] - -getWidgetWindow :: (MonadIO m, WidgetK o) => o -> m Gdk.Window -getWidgetWindow obj = liftIO $ getObjectPropertyObject obj "window" Gdk.Window - -data WidgetWindowPropertyInfo -instance AttrInfo WidgetWindowPropertyInfo where - type AttrAllowedOps WidgetWindowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WidgetWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint WidgetWindowPropertyInfo = WidgetK - type AttrGetType WidgetWindowPropertyInfo = Gdk.Window - type AttrLabel WidgetWindowPropertyInfo = "Widget::window" - attrGet _ = getWidgetWindow - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList Widget = WidgetAttributeList -type WidgetAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data WidgetAccelClosuresChangedSignalInfo -instance SignalInfo WidgetAccelClosuresChangedSignalInfo where - type HaskellCallbackType WidgetAccelClosuresChangedSignalInfo = WidgetAccelClosuresChangedCallback - connectSignal _ = connectWidgetAccelClosuresChanged - -data WidgetButtonPressEventSignalInfo -instance SignalInfo WidgetButtonPressEventSignalInfo where - type HaskellCallbackType WidgetButtonPressEventSignalInfo = WidgetButtonPressEventCallback - connectSignal _ = connectWidgetButtonPressEvent - -data WidgetButtonReleaseEventSignalInfo -instance SignalInfo WidgetButtonReleaseEventSignalInfo where - type HaskellCallbackType WidgetButtonReleaseEventSignalInfo = WidgetButtonReleaseEventCallback - connectSignal _ = connectWidgetButtonReleaseEvent - -data WidgetCanActivateAccelSignalInfo -instance SignalInfo WidgetCanActivateAccelSignalInfo where - type HaskellCallbackType WidgetCanActivateAccelSignalInfo = WidgetCanActivateAccelCallback - connectSignal _ = connectWidgetCanActivateAccel - -data WidgetChildNotifySignalInfo -instance SignalInfo WidgetChildNotifySignalInfo where - type HaskellCallbackType WidgetChildNotifySignalInfo = WidgetChildNotifyCallback - connectSignal _ = connectWidgetChildNotify - -data WidgetCompositedChangedSignalInfo -instance SignalInfo WidgetCompositedChangedSignalInfo where - type HaskellCallbackType WidgetCompositedChangedSignalInfo = WidgetCompositedChangedCallback - connectSignal _ = connectWidgetCompositedChanged - -data WidgetConfigureEventSignalInfo -instance SignalInfo WidgetConfigureEventSignalInfo where - type HaskellCallbackType WidgetConfigureEventSignalInfo = WidgetConfigureEventCallback - connectSignal _ = connectWidgetConfigureEvent - -data WidgetDamageEventSignalInfo -instance SignalInfo WidgetDamageEventSignalInfo where - type HaskellCallbackType WidgetDamageEventSignalInfo = WidgetDamageEventCallback - connectSignal _ = connectWidgetDamageEvent - -data WidgetDeleteEventSignalInfo -instance SignalInfo WidgetDeleteEventSignalInfo where - type HaskellCallbackType WidgetDeleteEventSignalInfo = WidgetDeleteEventCallback - connectSignal _ = connectWidgetDeleteEvent - -data WidgetDestroySignalInfo -instance SignalInfo WidgetDestroySignalInfo where - type HaskellCallbackType WidgetDestroySignalInfo = WidgetDestroyCallback - connectSignal _ = connectWidgetDestroy - -data WidgetDestroyEventSignalInfo -instance SignalInfo WidgetDestroyEventSignalInfo where - type HaskellCallbackType WidgetDestroyEventSignalInfo = WidgetDestroyEventCallback - connectSignal _ = connectWidgetDestroyEvent - -data WidgetDirectionChangedSignalInfo -instance SignalInfo WidgetDirectionChangedSignalInfo where - type HaskellCallbackType WidgetDirectionChangedSignalInfo = WidgetDirectionChangedCallback - connectSignal _ = connectWidgetDirectionChanged - -data WidgetDragBeginSignalInfo -instance SignalInfo WidgetDragBeginSignalInfo where - type HaskellCallbackType WidgetDragBeginSignalInfo = WidgetDragBeginCallback - connectSignal _ = connectWidgetDragBegin - -data WidgetDragDataDeleteSignalInfo -instance SignalInfo WidgetDragDataDeleteSignalInfo where - type HaskellCallbackType WidgetDragDataDeleteSignalInfo = WidgetDragDataDeleteCallback - connectSignal _ = connectWidgetDragDataDelete - -data WidgetDragDataGetSignalInfo -instance SignalInfo WidgetDragDataGetSignalInfo where - type HaskellCallbackType WidgetDragDataGetSignalInfo = WidgetDragDataGetCallback - connectSignal _ = connectWidgetDragDataGet - -data WidgetDragDataReceivedSignalInfo -instance SignalInfo WidgetDragDataReceivedSignalInfo where - type HaskellCallbackType WidgetDragDataReceivedSignalInfo = WidgetDragDataReceivedCallback - connectSignal _ = connectWidgetDragDataReceived - -data WidgetDragDropSignalInfo -instance SignalInfo WidgetDragDropSignalInfo where - type HaskellCallbackType WidgetDragDropSignalInfo = WidgetDragDropCallback - connectSignal _ = connectWidgetDragDrop - -data WidgetDragEndSignalInfo -instance SignalInfo WidgetDragEndSignalInfo where - type HaskellCallbackType WidgetDragEndSignalInfo = WidgetDragEndCallback - connectSignal _ = connectWidgetDragEnd - -data WidgetDragFailedSignalInfo -instance SignalInfo WidgetDragFailedSignalInfo where - type HaskellCallbackType WidgetDragFailedSignalInfo = WidgetDragFailedCallback - connectSignal _ = connectWidgetDragFailed - -data WidgetDragLeaveSignalInfo -instance SignalInfo WidgetDragLeaveSignalInfo where - type HaskellCallbackType WidgetDragLeaveSignalInfo = WidgetDragLeaveCallback - connectSignal _ = connectWidgetDragLeave - -data WidgetDragMotionSignalInfo -instance SignalInfo WidgetDragMotionSignalInfo where - type HaskellCallbackType WidgetDragMotionSignalInfo = WidgetDragMotionCallback - connectSignal _ = connectWidgetDragMotion - -data WidgetDrawSignalInfo -instance SignalInfo WidgetDrawSignalInfo where - type HaskellCallbackType WidgetDrawSignalInfo = WidgetDrawCallback - connectSignal _ = connectWidgetDraw - -data WidgetEnterNotifyEventSignalInfo -instance SignalInfo WidgetEnterNotifyEventSignalInfo where - type HaskellCallbackType WidgetEnterNotifyEventSignalInfo = WidgetEnterNotifyEventCallback - connectSignal _ = connectWidgetEnterNotifyEvent - -data WidgetEventSignalInfo -instance SignalInfo WidgetEventSignalInfo where - type HaskellCallbackType WidgetEventSignalInfo = WidgetEventCallback - connectSignal _ = connectWidgetEvent - -data WidgetEventAfterSignalInfo -instance SignalInfo WidgetEventAfterSignalInfo where - type HaskellCallbackType WidgetEventAfterSignalInfo = WidgetEventAfterCallback - connectSignal _ = connectWidgetEventAfter - -data WidgetFocusSignalInfo -instance SignalInfo WidgetFocusSignalInfo where - type HaskellCallbackType WidgetFocusSignalInfo = WidgetFocusCallback - connectSignal _ = connectWidgetFocus - -data WidgetFocusInEventSignalInfo -instance SignalInfo WidgetFocusInEventSignalInfo where - type HaskellCallbackType WidgetFocusInEventSignalInfo = WidgetFocusInEventCallback - connectSignal _ = connectWidgetFocusInEvent - -data WidgetFocusOutEventSignalInfo -instance SignalInfo WidgetFocusOutEventSignalInfo where - type HaskellCallbackType WidgetFocusOutEventSignalInfo = WidgetFocusOutEventCallback - connectSignal _ = connectWidgetFocusOutEvent - -data WidgetGrabBrokenEventSignalInfo -instance SignalInfo WidgetGrabBrokenEventSignalInfo where - type HaskellCallbackType WidgetGrabBrokenEventSignalInfo = WidgetGrabBrokenEventCallback - connectSignal _ = connectWidgetGrabBrokenEvent - -data WidgetGrabFocusSignalInfo -instance SignalInfo WidgetGrabFocusSignalInfo where - type HaskellCallbackType WidgetGrabFocusSignalInfo = WidgetGrabFocusCallback - connectSignal _ = connectWidgetGrabFocus - -data WidgetGrabNotifySignalInfo -instance SignalInfo WidgetGrabNotifySignalInfo where - type HaskellCallbackType WidgetGrabNotifySignalInfo = WidgetGrabNotifyCallback - connectSignal _ = connectWidgetGrabNotify - -data WidgetHideSignalInfo -instance SignalInfo WidgetHideSignalInfo where - type HaskellCallbackType WidgetHideSignalInfo = WidgetHideCallback - connectSignal _ = connectWidgetHide - -data WidgetHierarchyChangedSignalInfo -instance SignalInfo WidgetHierarchyChangedSignalInfo where - type HaskellCallbackType WidgetHierarchyChangedSignalInfo = WidgetHierarchyChangedCallback - connectSignal _ = connectWidgetHierarchyChanged - -data WidgetKeyPressEventSignalInfo -instance SignalInfo WidgetKeyPressEventSignalInfo where - type HaskellCallbackType WidgetKeyPressEventSignalInfo = WidgetKeyPressEventCallback - connectSignal _ = connectWidgetKeyPressEvent - -data WidgetKeyReleaseEventSignalInfo -instance SignalInfo WidgetKeyReleaseEventSignalInfo where - type HaskellCallbackType WidgetKeyReleaseEventSignalInfo = WidgetKeyReleaseEventCallback - connectSignal _ = connectWidgetKeyReleaseEvent - -data WidgetKeynavFailedSignalInfo -instance SignalInfo WidgetKeynavFailedSignalInfo where - type HaskellCallbackType WidgetKeynavFailedSignalInfo = WidgetKeynavFailedCallback - connectSignal _ = connectWidgetKeynavFailed - -data WidgetLeaveNotifyEventSignalInfo -instance SignalInfo WidgetLeaveNotifyEventSignalInfo where - type HaskellCallbackType WidgetLeaveNotifyEventSignalInfo = WidgetLeaveNotifyEventCallback - connectSignal _ = connectWidgetLeaveNotifyEvent - -data WidgetMapSignalInfo -instance SignalInfo WidgetMapSignalInfo where - type HaskellCallbackType WidgetMapSignalInfo = WidgetMapCallback - connectSignal _ = connectWidgetMap - -data WidgetMapEventSignalInfo -instance SignalInfo WidgetMapEventSignalInfo where - type HaskellCallbackType WidgetMapEventSignalInfo = WidgetMapEventCallback - connectSignal _ = connectWidgetMapEvent - -data WidgetMnemonicActivateSignalInfo -instance SignalInfo WidgetMnemonicActivateSignalInfo where - type HaskellCallbackType WidgetMnemonicActivateSignalInfo = WidgetMnemonicActivateCallback - connectSignal _ = connectWidgetMnemonicActivate - -data WidgetMotionNotifyEventSignalInfo -instance SignalInfo WidgetMotionNotifyEventSignalInfo where - type HaskellCallbackType WidgetMotionNotifyEventSignalInfo = WidgetMotionNotifyEventCallback - connectSignal _ = connectWidgetMotionNotifyEvent - -data WidgetMoveFocusSignalInfo -instance SignalInfo WidgetMoveFocusSignalInfo where - type HaskellCallbackType WidgetMoveFocusSignalInfo = WidgetMoveFocusCallback - connectSignal _ = connectWidgetMoveFocus - -data WidgetParentSetSignalInfo -instance SignalInfo WidgetParentSetSignalInfo where - type HaskellCallbackType WidgetParentSetSignalInfo = WidgetParentSetCallback - connectSignal _ = connectWidgetParentSet - -data WidgetPopupMenuSignalInfo -instance SignalInfo WidgetPopupMenuSignalInfo where - type HaskellCallbackType WidgetPopupMenuSignalInfo = WidgetPopupMenuCallback - connectSignal _ = connectWidgetPopupMenu - -data WidgetPropertyNotifyEventSignalInfo -instance SignalInfo WidgetPropertyNotifyEventSignalInfo where - type HaskellCallbackType WidgetPropertyNotifyEventSignalInfo = WidgetPropertyNotifyEventCallback - connectSignal _ = connectWidgetPropertyNotifyEvent - -data WidgetProximityInEventSignalInfo -instance SignalInfo WidgetProximityInEventSignalInfo where - type HaskellCallbackType WidgetProximityInEventSignalInfo = WidgetProximityInEventCallback - connectSignal _ = connectWidgetProximityInEvent - -data WidgetProximityOutEventSignalInfo -instance SignalInfo WidgetProximityOutEventSignalInfo where - type HaskellCallbackType WidgetProximityOutEventSignalInfo = WidgetProximityOutEventCallback - connectSignal _ = connectWidgetProximityOutEvent - -data WidgetQueryTooltipSignalInfo -instance SignalInfo WidgetQueryTooltipSignalInfo where - type HaskellCallbackType WidgetQueryTooltipSignalInfo = WidgetQueryTooltipCallback - connectSignal _ = connectWidgetQueryTooltip - -data WidgetRealizeSignalInfo -instance SignalInfo WidgetRealizeSignalInfo where - type HaskellCallbackType WidgetRealizeSignalInfo = WidgetRealizeCallback - connectSignal _ = connectWidgetRealize - -data WidgetScreenChangedSignalInfo -instance SignalInfo WidgetScreenChangedSignalInfo where - type HaskellCallbackType WidgetScreenChangedSignalInfo = WidgetScreenChangedCallback - connectSignal _ = connectWidgetScreenChanged - -data WidgetScrollEventSignalInfo -instance SignalInfo WidgetScrollEventSignalInfo where - type HaskellCallbackType WidgetScrollEventSignalInfo = WidgetScrollEventCallback - connectSignal _ = connectWidgetScrollEvent - -data WidgetSelectionClearEventSignalInfo -instance SignalInfo WidgetSelectionClearEventSignalInfo where - type HaskellCallbackType WidgetSelectionClearEventSignalInfo = WidgetSelectionClearEventCallback - connectSignal _ = connectWidgetSelectionClearEvent - -data WidgetSelectionGetSignalInfo -instance SignalInfo WidgetSelectionGetSignalInfo where - type HaskellCallbackType WidgetSelectionGetSignalInfo = WidgetSelectionGetCallback - connectSignal _ = connectWidgetSelectionGet - -data WidgetSelectionNotifyEventSignalInfo -instance SignalInfo WidgetSelectionNotifyEventSignalInfo where - type HaskellCallbackType WidgetSelectionNotifyEventSignalInfo = WidgetSelectionNotifyEventCallback - connectSignal _ = connectWidgetSelectionNotifyEvent - -data WidgetSelectionReceivedSignalInfo -instance SignalInfo WidgetSelectionReceivedSignalInfo where - type HaskellCallbackType WidgetSelectionReceivedSignalInfo = WidgetSelectionReceivedCallback - connectSignal _ = connectWidgetSelectionReceived - -data WidgetSelectionRequestEventSignalInfo -instance SignalInfo WidgetSelectionRequestEventSignalInfo where - type HaskellCallbackType WidgetSelectionRequestEventSignalInfo = WidgetSelectionRequestEventCallback - connectSignal _ = connectWidgetSelectionRequestEvent - -data WidgetShowSignalInfo -instance SignalInfo WidgetShowSignalInfo where - type HaskellCallbackType WidgetShowSignalInfo = WidgetShowCallback - connectSignal _ = connectWidgetShow - -data WidgetShowHelpSignalInfo -instance SignalInfo WidgetShowHelpSignalInfo where - type HaskellCallbackType WidgetShowHelpSignalInfo = WidgetShowHelpCallback - connectSignal _ = connectWidgetShowHelp - -data WidgetSizeAllocateSignalInfo -instance SignalInfo WidgetSizeAllocateSignalInfo where - type HaskellCallbackType WidgetSizeAllocateSignalInfo = WidgetSizeAllocateCallback - connectSignal _ = connectWidgetSizeAllocate - -data WidgetStateChangedSignalInfo -instance SignalInfo WidgetStateChangedSignalInfo where - type HaskellCallbackType WidgetStateChangedSignalInfo = WidgetStateChangedCallback - connectSignal _ = connectWidgetStateChanged - -data WidgetStateFlagsChangedSignalInfo -instance SignalInfo WidgetStateFlagsChangedSignalInfo where - type HaskellCallbackType WidgetStateFlagsChangedSignalInfo = WidgetStateFlagsChangedCallback - connectSignal _ = connectWidgetStateFlagsChanged - -data WidgetStyleSetSignalInfo -instance SignalInfo WidgetStyleSetSignalInfo where - type HaskellCallbackType WidgetStyleSetSignalInfo = WidgetStyleSetCallback - connectSignal _ = connectWidgetStyleSet - -data WidgetStyleUpdatedSignalInfo -instance SignalInfo WidgetStyleUpdatedSignalInfo where - type HaskellCallbackType WidgetStyleUpdatedSignalInfo = WidgetStyleUpdatedCallback - connectSignal _ = connectWidgetStyleUpdated - -data WidgetTouchEventSignalInfo -instance SignalInfo WidgetTouchEventSignalInfo where - type HaskellCallbackType WidgetTouchEventSignalInfo = WidgetTouchEventCallback - connectSignal _ = connectWidgetTouchEvent - -data WidgetUnmapSignalInfo -instance SignalInfo WidgetUnmapSignalInfo where - type HaskellCallbackType WidgetUnmapSignalInfo = WidgetUnmapCallback - connectSignal _ = connectWidgetUnmap - -data WidgetUnmapEventSignalInfo -instance SignalInfo WidgetUnmapEventSignalInfo where - type HaskellCallbackType WidgetUnmapEventSignalInfo = WidgetUnmapEventCallback - connectSignal _ = connectWidgetUnmapEvent - -data WidgetUnrealizeSignalInfo -instance SignalInfo WidgetUnrealizeSignalInfo where - type HaskellCallbackType WidgetUnrealizeSignalInfo = WidgetUnrealizeCallback - connectSignal _ = connectWidgetUnrealize - -data WidgetVisibilityNotifyEventSignalInfo -instance SignalInfo WidgetVisibilityNotifyEventSignalInfo where - type HaskellCallbackType WidgetVisibilityNotifyEventSignalInfo = WidgetVisibilityNotifyEventCallback - connectSignal _ = connectWidgetVisibilityNotifyEvent - -data WidgetWindowStateEventSignalInfo -instance SignalInfo WidgetWindowStateEventSignalInfo where - type HaskellCallbackType WidgetWindowStateEventSignalInfo = WidgetWindowStateEventCallback - connectSignal _ = connectWidgetWindowStateEvent - -type instance SignalList Widget = WidgetSignalList -type WidgetSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Widget::activate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_activate" gtk_widget_activate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetActivate :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_activate _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::add_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_add_accelerator" gtk_widget_add_accelerator :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- accel_signal : TBasicType TUTF8 - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt32 - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - CUInt -> -- accel_flags : TInterface "Gtk" "AccelFlags" - IO () - - -widgetAddAccelerator :: - (MonadIO m, WidgetK a, AccelGroupK b) => - a -> -- _obj - T.Text -> -- accel_signal - b -> -- accel_group - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - [AccelFlags] -> -- accel_flags - m () -widgetAddAccelerator _obj accel_signal accel_group accel_key accel_mods accel_flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - accel_signal' <- textToCString accel_signal - let accel_group' = unsafeManagedPtrCastPtr accel_group - let accel_mods' = gflagsToWord accel_mods - let accel_flags' = gflagsToWord accel_flags - gtk_widget_add_accelerator _obj' accel_signal' accel_group' accel_key accel_mods' accel_flags' - touchManagedPtr _obj - touchManagedPtr accel_group - freeMem accel_signal' - return () - --- method Widget::add_device_events --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_add_device_events" gtk_widget_add_device_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - CUInt -> -- events : TInterface "Gdk" "EventMask" - IO () - - -widgetAddDeviceEvents :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -> -- _obj - b -> -- device - [Gdk.EventMask] -> -- events - m () -widgetAddDeviceEvents _obj device events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - let events' = gflagsToWord events - gtk_widget_add_device_events _obj' device' events' - touchManagedPtr _obj - touchManagedPtr device - return () - --- method Widget::add_events --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_add_events" gtk_widget_add_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- events : TBasicType TInt32 - IO () - - -widgetAddEvents :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- events - m () -widgetAddEvents _obj events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_add_events _obj' events - touchManagedPtr _obj - return () - --- method Widget::add_mnemonic_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_add_mnemonic_label" gtk_widget_add_mnemonic_label :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- label : TInterface "Gtk" "Widget" - IO () - - -widgetAddMnemonicLabel :: - (MonadIO m, WidgetK a, WidgetK b) => - a -> -- _obj - b -> -- label - m () -widgetAddMnemonicLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let label' = unsafeManagedPtrCastPtr label - gtk_widget_add_mnemonic_label _obj' label' - touchManagedPtr _obj - touchManagedPtr label - return () - --- method Widget::add_tick_callback --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "TickCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "TickCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_add_tick_callback" gtk_widget_add_tick_callback :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - FunPtr TickCallbackC -> -- callback : TInterface "Gtk" "TickCallback" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -widgetAddTickCallback :: - (MonadIO m, WidgetK a) => - a -> -- _obj - TickCallback -> -- callback - m Word32 -widgetAddTickCallback _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkTickCallback (tickCallbackWrapper Nothing callback) - let user_data = castFunPtrToPtr callback' - let notify = safeFreeFunPtrPtr - result <- gtk_widget_add_tick_callback _obj' callback' user_data notify - touchManagedPtr _obj - return result - --- method Widget::can_activate_accel --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_can_activate_accel" gtk_widget_can_activate_accel :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Word32 -> -- signal_id : TBasicType TUInt32 - IO CInt - - -widgetCanActivateAccel :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Word32 -> -- signal_id - m Bool -widgetCanActivateAccel _obj signal_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_can_activate_accel _obj' signal_id - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::child_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_child_focus" gtk_widget_child_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- direction : TInterface "Gtk" "DirectionType" - IO CInt - - -widgetChildFocus :: - (MonadIO m, WidgetK a) => - a -> -- _obj - DirectionType -> -- direction - m Bool -widgetChildFocus _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let direction' = (fromIntegral . fromEnum) direction - result <- gtk_widget_child_focus _obj' direction' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::child_notify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_child_notify" gtk_widget_child_notify :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- child_property : TBasicType TUTF8 - IO () - - -widgetChildNotify :: - (MonadIO m, WidgetK a) => - a -> -- _obj - T.Text -> -- child_property - m () -widgetChildNotify _obj child_property = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - child_property' <- textToCString child_property - gtk_widget_child_notify _obj' child_property' - touchManagedPtr _obj - freeMem child_property' - return () - --- method Widget::class_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "path_reversed", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_class_path" gtk_widget_class_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Word32 -> -- path_length : TBasicType TUInt32 - Ptr CString -> -- path : TBasicType TUTF8 - Ptr CString -> -- path_reversed : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetClassPath ["(Since version 3.0)","Use gtk_widget_get_path() instead"]#-} -widgetClassPath :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Word32,T.Text,T.Text) -widgetClassPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path_length <- allocMem :: IO (Ptr Word32) - path <- allocMem :: IO (Ptr CString) - path_reversed <- allocMem :: IO (Ptr CString) - gtk_widget_class_path _obj' path_length path path_reversed - path_length' <- peek path_length - path' <- peek path - path'' <- cstringToText path' - freeMem path' - path_reversed' <- peek path_reversed - path_reversed'' <- cstringToText path_reversed' - freeMem path_reversed' - touchManagedPtr _obj - freeMem path_length - freeMem path - freeMem path_reversed - return (path_length', path'', path_reversed'') - --- method Widget::compute_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_compute_expand" gtk_widget_compute_expand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO CInt - - -widgetComputeExpand :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Orientation -> -- orientation - m Bool -widgetComputeExpand _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - result <- gtk_widget_compute_expand _obj' orientation' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::create_pango_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "Context" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_create_pango_context" gtk_widget_create_pango_context :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Pango.Context) - - -widgetCreatePangoContext :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Pango.Context -widgetCreatePangoContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_create_pango_context _obj' - checkUnexpectedReturnNULL "gtk_widget_create_pango_context" result - result' <- (wrapObject Pango.Context) result - touchManagedPtr _obj - return result' - --- method Widget::create_pango_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "Layout" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_create_pango_layout" gtk_widget_create_pango_layout :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- text : TBasicType TUTF8 - IO (Ptr Pango.Layout) - - -widgetCreatePangoLayout :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Maybe (T.Text) -> -- text - m Pango.Layout -widgetCreatePangoLayout _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeText <- case text of - Nothing -> return nullPtr - Just jText -> do - jText' <- textToCString jText - return jText' - result <- gtk_widget_create_pango_layout _obj' maybeText - checkUnexpectedReturnNULL "gtk_widget_create_pango_layout" result - result' <- (wrapObject Pango.Layout) result - touchManagedPtr _obj - freeMem maybeText - return result' - --- method Widget::destroy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_destroy" gtk_widget_destroy :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDestroy :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_destroy _obj' - touchManagedPtr _obj - return () - --- method Widget::destroyed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_pointer", argType = TInterface "Gtk" "Widget", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_pointer", argType = TInterface "Gtk" "Widget", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_destroyed" gtk_widget_destroyed :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr (Ptr Widget) -> -- widget_pointer : TInterface "Gtk" "Widget" - IO () - - -widgetDestroyed :: - (MonadIO m, WidgetK a, WidgetK b) => - a -> -- _obj - b -> -- widget_pointer - m (Widget) -widgetDestroyed _obj widget_pointer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget_pointer' = unsafeManagedPtrCastPtr widget_pointer - widget_pointer'' <- allocMem :: IO (Ptr (Ptr Widget)) - poke widget_pointer'' widget_pointer' - gtk_widget_destroyed _obj' widget_pointer'' - widget_pointer''' <- peek widget_pointer'' - widget_pointer'''' <- (newObject Widget) widget_pointer''' - touchManagedPtr _obj - touchManagedPtr widget_pointer - freeMem widget_pointer'' - return widget_pointer'''' - --- method Widget::device_is_shadowed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_device_is_shadowed" gtk_widget_device_is_shadowed :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - IO CInt - - -widgetDeviceIsShadowed :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -> -- _obj - b -> -- device - m Bool -widgetDeviceIsShadowed _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gtk_widget_device_is_shadowed _obj' device' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr device - return result' - --- method Widget::drag_begin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "DragContext" --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_begin" gtk_drag_begin :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr TargetList -> -- targets : TInterface "Gtk" "TargetList" - CUInt -> -- actions : TInterface "Gdk" "DragAction" - Int32 -> -- button : TBasicType TInt32 - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO (Ptr Gdk.DragContext) - -{-# DEPRECATED widgetDragBegin ["(Since version 3.10)","Use gtk_drag_begin_with_coordinates() instead"]#-} -widgetDragBegin :: - (MonadIO m, WidgetK a) => - a -> -- _obj - TargetList -> -- targets - [Gdk.DragAction] -> -- actions - Int32 -> -- button - Maybe (Gdk.Event) -> -- event - m Gdk.DragContext -widgetDragBegin _obj targets actions button event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let targets' = unsafeManagedPtrGetPtr targets - let actions' = gflagsToWord actions - maybeEvent <- case event of - Nothing -> return nullPtr - Just jEvent -> do - let jEvent' = unsafeManagedPtrGetPtr jEvent - return jEvent' - result <- gtk_drag_begin _obj' targets' actions' button maybeEvent - checkUnexpectedReturnNULL "gtk_drag_begin" result - result' <- (newObject Gdk.DragContext) result - touchManagedPtr _obj - touchManagedPtr targets - whenJust event touchManagedPtr - return result' - --- method Widget::drag_begin_with_coordinates --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "DragContext" --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_begin_with_coordinates" gtk_drag_begin_with_coordinates :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr TargetList -> -- targets : TInterface "Gtk" "TargetList" - CUInt -> -- actions : TInterface "Gdk" "DragAction" - Int32 -> -- button : TBasicType TInt32 - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - IO (Ptr Gdk.DragContext) - - -widgetDragBeginWithCoordinates :: - (MonadIO m, WidgetK a) => - a -> -- _obj - TargetList -> -- targets - [Gdk.DragAction] -> -- actions - Int32 -> -- button - Maybe (Gdk.Event) -> -- event - Int32 -> -- x - Int32 -> -- y - m Gdk.DragContext -widgetDragBeginWithCoordinates _obj targets actions button event x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let targets' = unsafeManagedPtrGetPtr targets - let actions' = gflagsToWord actions - maybeEvent <- case event of - Nothing -> return nullPtr - Just jEvent -> do - let jEvent' = unsafeManagedPtrGetPtr jEvent - return jEvent' - result <- gtk_drag_begin_with_coordinates _obj' targets' actions' button maybeEvent x y - checkUnexpectedReturnNULL "gtk_drag_begin_with_coordinates" result - result' <- (newObject Gdk.DragContext) result - touchManagedPtr _obj - touchManagedPtr targets - whenJust event touchManagedPtr - return result' - --- method Widget::drag_check_threshold --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_check_threshold" gtk_drag_check_threshold :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- start_x : TBasicType TInt32 - Int32 -> -- start_y : TBasicType TInt32 - Int32 -> -- current_x : TBasicType TInt32 - Int32 -> -- current_y : TBasicType TInt32 - IO CInt - - -widgetDragCheckThreshold :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- start_x - Int32 -> -- start_y - Int32 -> -- current_x - Int32 -> -- current_y - m Bool -widgetDragCheckThreshold _obj start_x start_y current_x current_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_check_threshold _obj' start_x start_y current_x current_y - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::drag_dest_add_image_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_add_image_targets" gtk_drag_dest_add_image_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragDestAddImageTargets :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetDragDestAddImageTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_add_image_targets _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_dest_add_text_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_add_text_targets" gtk_drag_dest_add_text_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragDestAddTextTargets :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetDragDestAddTextTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_add_text_targets _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_dest_add_uri_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_add_uri_targets" gtk_drag_dest_add_uri_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragDestAddUriTargets :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetDragDestAddUriTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_add_uri_targets _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_dest_find_target --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Atom" --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_find_target" gtk_drag_dest_find_target :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" - IO (Ptr Gdk.Atom) - - -widgetDragDestFindTarget :: - (MonadIO m, WidgetK a, Gdk.DragContextK b) => - a -> -- _obj - b -> -- context - Maybe (TargetList) -> -- target_list - m Gdk.Atom -widgetDragDestFindTarget _obj context target_list = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - maybeTarget_list <- case target_list of - Nothing -> return nullPtr - Just jTarget_list -> do - let jTarget_list' = unsafeManagedPtrGetPtr jTarget_list - return jTarget_list' - result <- gtk_drag_dest_find_target _obj' context' maybeTarget_list - checkUnexpectedReturnNULL "gtk_drag_dest_find_target" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - touchManagedPtr context - whenJust target_list touchManagedPtr - return result' - --- method Widget::drag_dest_get_target_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TargetList" --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_get_target_list" gtk_drag_dest_get_target_list :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr TargetList) - - -widgetDragDestGetTargetList :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m TargetList -widgetDragDestGetTargetList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_dest_get_target_list _obj' - checkUnexpectedReturnNULL "gtk_drag_dest_get_target_list" result - result' <- (newBoxed TargetList) result - touchManagedPtr _obj - return result' - --- method Widget::drag_dest_get_track_motion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_get_track_motion" gtk_drag_dest_get_track_motion :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetDragDestGetTrackMotion :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetDragDestGetTrackMotion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_dest_get_track_motion _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::drag_dest_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_set" gtk_drag_dest_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- flags : TInterface "Gtk" "DestDefaults" - Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -widgetDragDestSet :: - (MonadIO m, WidgetK a) => - a -> -- _obj - [DestDefaults] -> -- flags - Maybe ([TargetEntry]) -> -- targets - [Gdk.DragAction] -> -- actions - m () -widgetDragDestSet _obj flags targets actions = liftIO $ do - let n_targets = case targets of - Nothing -> 0 - Just jTargets -> fromIntegral $ length jTargets - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeTargets <- case targets of - Nothing -> return nullPtr - Just jTargets -> do - let jTargets' = map unsafeManagedPtrGetPtr jTargets - jTargets'' <- packBlockArray 16 jTargets' - return jTargets'' - let actions' = gflagsToWord actions - gtk_drag_dest_set _obj' flags' maybeTargets n_targets actions' - touchManagedPtr _obj - whenJust targets (mapM_ touchManagedPtr) - freeMem maybeTargets - return () - --- method Widget::drag_dest_set_proxy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_set_proxy" gtk_drag_dest_set_proxy :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- proxy_window : TInterface "Gdk" "Window" - CUInt -> -- protocol : TInterface "Gdk" "DragProtocol" - CInt -> -- use_coordinates : TBasicType TBoolean - IO () - - -widgetDragDestSetProxy :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -> -- _obj - b -> -- proxy_window - Gdk.DragProtocol -> -- protocol - Bool -> -- use_coordinates - m () -widgetDragDestSetProxy _obj proxy_window protocol use_coordinates = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let proxy_window' = unsafeManagedPtrCastPtr proxy_window - let protocol' = (fromIntegral . fromEnum) protocol - let use_coordinates' = (fromIntegral . fromEnum) use_coordinates - gtk_drag_dest_set_proxy _obj' proxy_window' protocol' use_coordinates' - touchManagedPtr _obj - touchManagedPtr proxy_window - return () - --- method Widget::drag_dest_set_target_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_set_target_list" gtk_drag_dest_set_target_list :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" - IO () - - -widgetDragDestSetTargetList :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Maybe (TargetList) -> -- target_list - m () -widgetDragDestSetTargetList _obj target_list = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTarget_list <- case target_list of - Nothing -> return nullPtr - Just jTarget_list -> do - let jTarget_list' = unsafeManagedPtrGetPtr jTarget_list - return jTarget_list' - gtk_drag_dest_set_target_list _obj' maybeTarget_list - touchManagedPtr _obj - whenJust target_list touchManagedPtr - return () - --- method Widget::drag_dest_set_track_motion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_motion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_motion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_set_track_motion" gtk_drag_dest_set_track_motion :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- track_motion : TBasicType TBoolean - IO () - - -widgetDragDestSetTrackMotion :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- track_motion - m () -widgetDragDestSetTrackMotion _obj track_motion = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let track_motion' = (fromIntegral . fromEnum) track_motion - gtk_drag_dest_set_track_motion _obj' track_motion' - touchManagedPtr _obj - return () - --- method Widget::drag_dest_unset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_unset" gtk_drag_dest_unset :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragDestUnset :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetDragDestUnset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_unset _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_get_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_get_data" gtk_drag_get_data :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -widgetDragGetData :: - (MonadIO m, WidgetK a, Gdk.DragContextK b) => - a -> -- _obj - b -> -- context - Gdk.Atom -> -- target - Word32 -> -- time_ - m () -widgetDragGetData _obj context target time_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let target' = unsafeManagedPtrGetPtr target - gtk_drag_get_data _obj' context' target' time_ - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr target - return () - --- method Widget::drag_highlight --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_highlight" gtk_drag_highlight :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragHighlight :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetDragHighlight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_highlight _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_source_add_image_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_add_image_targets" gtk_drag_source_add_image_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragSourceAddImageTargets :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetDragSourceAddImageTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_add_image_targets _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_source_add_text_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_add_text_targets" gtk_drag_source_add_text_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragSourceAddTextTargets :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetDragSourceAddTextTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_add_text_targets _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_source_add_uri_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_add_uri_targets" gtk_drag_source_add_uri_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragSourceAddUriTargets :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetDragSourceAddUriTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_add_uri_targets _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_source_get_target_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TargetList" --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_get_target_list" gtk_drag_source_get_target_list :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr TargetList) - - -widgetDragSourceGetTargetList :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m TargetList -widgetDragSourceGetTargetList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_source_get_target_list _obj' - checkUnexpectedReturnNULL "gtk_drag_source_get_target_list" result - result' <- (newBoxed TargetList) result - touchManagedPtr _obj - return result' - --- method Widget::drag_source_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set" gtk_drag_source_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" - Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -widgetDragSourceSet :: - (MonadIO m, WidgetK a) => - a -> -- _obj - [Gdk.ModifierType] -> -- start_button_mask - Maybe ([TargetEntry]) -> -- targets - [Gdk.DragAction] -> -- actions - m () -widgetDragSourceSet _obj start_button_mask targets actions = liftIO $ do - let n_targets = case targets of - Nothing -> 0 - Just jTargets -> fromIntegral $ length jTargets - let _obj' = unsafeManagedPtrCastPtr _obj - let start_button_mask' = gflagsToWord start_button_mask - maybeTargets <- case targets of - Nothing -> return nullPtr - Just jTargets -> do - let jTargets' = map unsafeManagedPtrGetPtr jTargets - jTargets'' <- packBlockArray 16 jTargets' - return jTargets'' - let actions' = gflagsToWord actions - gtk_drag_source_set _obj' start_button_mask' maybeTargets n_targets actions' - touchManagedPtr _obj - whenJust targets (mapM_ touchManagedPtr) - freeMem maybeTargets - return () - --- method Widget::drag_source_set_icon_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set_icon_gicon" gtk_drag_source_set_icon_gicon :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - IO () - - -widgetDragSourceSetIconGicon :: - (MonadIO m, WidgetK a, Gio.IconK b) => - a -> -- _obj - b -> -- icon - m () -widgetDragSourceSetIconGicon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - gtk_drag_source_set_icon_gicon _obj' icon' - touchManagedPtr _obj - touchManagedPtr icon - return () - --- method Widget::drag_source_set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set_icon_name" gtk_drag_source_set_icon_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- icon_name : TBasicType TUTF8 - IO () - - -widgetDragSourceSetIconName :: - (MonadIO m, WidgetK a) => - a -> -- _obj - T.Text -> -- icon_name - m () -widgetDragSourceSetIconName _obj icon_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - gtk_drag_source_set_icon_name _obj' icon_name' - touchManagedPtr _obj - freeMem icon_name' - return () - --- method Widget::drag_source_set_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set_icon_pixbuf" gtk_drag_source_set_icon_pixbuf :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -widgetDragSourceSetIconPixbuf :: - (MonadIO m, WidgetK a, GdkPixbuf.PixbufK b) => - a -> -- _obj - b -> -- pixbuf - m () -widgetDragSourceSetIconPixbuf _obj pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_drag_source_set_icon_pixbuf _obj' pixbuf' - touchManagedPtr _obj - touchManagedPtr pixbuf - return () - --- method Widget::drag_source_set_icon_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set_icon_stock" gtk_drag_source_set_icon_stock :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- stock_id : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetDragSourceSetIconStock ["(Since version 3.10)","Use gtk_drag_source_set_icon_name() instead."]#-} -widgetDragSourceSetIconStock :: - (MonadIO m, WidgetK a) => - a -> -- _obj - T.Text -> -- stock_id - m () -widgetDragSourceSetIconStock _obj stock_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - gtk_drag_source_set_icon_stock _obj' stock_id' - touchManagedPtr _obj - freeMem stock_id' - return () - --- method Widget::drag_source_set_target_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set_target_list" gtk_drag_source_set_target_list :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" - IO () - - -widgetDragSourceSetTargetList :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Maybe (TargetList) -> -- target_list - m () -widgetDragSourceSetTargetList _obj target_list = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTarget_list <- case target_list of - Nothing -> return nullPtr - Just jTarget_list -> do - let jTarget_list' = unsafeManagedPtrGetPtr jTarget_list - return jTarget_list' - gtk_drag_source_set_target_list _obj' maybeTarget_list - touchManagedPtr _obj - whenJust target_list touchManagedPtr - return () - --- method Widget::drag_source_unset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_unset" gtk_drag_source_unset :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragSourceUnset :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetDragSourceUnset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_unset _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_unhighlight --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_unhighlight" gtk_drag_unhighlight :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragUnhighlight :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetDragUnhighlight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_unhighlight _obj' - touchManagedPtr _obj - return () - --- method Widget::draw --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_draw" gtk_widget_draw :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - IO () - - -widgetDraw :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Cairo.Context -> -- cr - m () -widgetDraw _obj cr = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cr' = unsafeManagedPtrGetPtr cr - gtk_widget_draw _obj' cr' - touchManagedPtr _obj - touchManagedPtr cr - return () - --- method Widget::ensure_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_ensure_style" gtk_widget_ensure_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED widgetEnsureStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -widgetEnsureStyle :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetEnsureStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_ensure_style _obj' - touchManagedPtr _obj - return () - --- method Widget::error_bell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_error_bell" gtk_widget_error_bell :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetErrorBell :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetErrorBell _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_error_bell _obj' - touchManagedPtr _obj - return () - --- method Widget::event --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_event" gtk_widget_event :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO CInt - - -widgetEvent :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Gdk.Event -> -- event - m Bool -widgetEvent _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_widget_event _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - --- method Widget::freeze_child_notify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_freeze_child_notify" gtk_widget_freeze_child_notify :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetFreezeChildNotify :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetFreezeChildNotify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_freeze_child_notify _obj' - touchManagedPtr _obj - return () - --- method Widget::get_accessible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_accessible" gtk_widget_get_accessible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Atk.Object) - - -widgetGetAccessible :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Atk.Object -widgetGetAccessible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_accessible _obj' - checkUnexpectedReturnNULL "gtk_widget_get_accessible" result - result' <- (newObject Atk.Object) result - touchManagedPtr _obj - return result' - --- method Widget::get_action_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "ActionGroup" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_action_group" gtk_widget_get_action_group :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- prefix : TBasicType TUTF8 - IO (Ptr Gio.ActionGroup) - - -widgetGetActionGroup :: - (MonadIO m, WidgetK a) => - a -> -- _obj - T.Text -> -- prefix - m Gio.ActionGroup -widgetGetActionGroup _obj prefix = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - prefix' <- textToCString prefix - result <- gtk_widget_get_action_group _obj' prefix' - checkUnexpectedReturnNULL "gtk_widget_get_action_group" result - result' <- (newObject Gio.ActionGroup) result - touchManagedPtr _obj - freeMem prefix' - return result' - --- method Widget::get_allocated_baseline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_allocated_baseline" gtk_widget_get_allocated_baseline :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetAllocatedBaseline :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Int32 -widgetGetAllocatedBaseline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_allocated_baseline _obj' - touchManagedPtr _obj - return result - --- method Widget::get_allocated_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_allocated_height" gtk_widget_get_allocated_height :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetAllocatedHeight :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Int32 -widgetGetAllocatedHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_allocated_height _obj' - touchManagedPtr _obj - return result - --- method Widget::get_allocated_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_allocated_width" gtk_widget_get_allocated_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetAllocatedWidth :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Int32 -widgetGetAllocatedWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_allocated_width _obj' - touchManagedPtr _obj - return result - --- method Widget::get_allocation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_allocation" gtk_widget_get_allocation :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - IO () - - -widgetGetAllocation :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Gdk.Rectangle) -widgetGetAllocation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - allocation <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_widget_get_allocation _obj' allocation - allocation' <- (wrapBoxed Gdk.Rectangle) allocation - touchManagedPtr _obj - return allocation' - --- method Widget::get_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_ancestor" gtk_widget_get_ancestor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CGType -> -- widget_type : TBasicType TGType - IO (Ptr Widget) - - -widgetGetAncestor :: - (MonadIO m, WidgetK a) => - a -> -- _obj - GType -> -- widget_type - m Widget -widgetGetAncestor _obj widget_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget_type' = gtypeToCGType widget_type - result <- gtk_widget_get_ancestor _obj' widget_type' - checkUnexpectedReturnNULL "gtk_widget_get_ancestor" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Widget::get_app_paintable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_app_paintable" gtk_widget_get_app_paintable :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetAppPaintable :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetAppPaintable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_app_paintable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_can_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_can_default" gtk_widget_get_can_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetCanDefault :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetCanDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_can_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_can_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_can_focus" gtk_widget_get_can_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetCanFocus :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetCanFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_can_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_child_requisition --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_child_requisition" gtk_widget_get_child_requisition :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" - IO () - -{-# DEPRECATED widgetGetChildRequisition ["(Since version 3.0)","Use gtk_widget_get_preferred_size() instead."]#-} -widgetGetChildRequisition :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Requisition) -widgetGetChildRequisition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_get_child_requisition _obj' requisition - requisition' <- (wrapBoxed Requisition) requisition - touchManagedPtr _obj - return requisition' - --- method Widget::get_child_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_child_visible" gtk_widget_get_child_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetChildVisible :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetChildVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_child_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_clip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clip", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_clip" gtk_widget_get_clip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- clip : TInterface "Gdk" "Rectangle" - IO () - - -widgetGetClip :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Gdk.Rectangle) -widgetGetClip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - clip <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_widget_get_clip _obj' clip - clip' <- (wrapBoxed Gdk.Rectangle) clip - touchManagedPtr _obj - return clip' - --- method Widget::get_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Clipboard" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_clipboard" gtk_widget_get_clipboard :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" - IO (Ptr Clipboard) - - -widgetGetClipboard :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Gdk.Atom -> -- selection - m Clipboard -widgetGetClipboard _obj selection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let selection' = unsafeManagedPtrGetPtr selection - result <- gtk_widget_get_clipboard _obj' selection' - checkUnexpectedReturnNULL "gtk_widget_get_clipboard" result - result' <- (newObject Clipboard) result - touchManagedPtr _obj - touchManagedPtr selection - return result' - --- method Widget::get_composite_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_composite_name" gtk_widget_get_composite_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - -{-# DEPRECATED widgetGetCompositeName ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} -widgetGetCompositeName :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m T.Text -widgetGetCompositeName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_composite_name _obj' - checkUnexpectedReturnNULL "gtk_widget_get_composite_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Widget::get_device_enabled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_device_enabled" gtk_widget_get_device_enabled :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - IO CInt - - -widgetGetDeviceEnabled :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -> -- _obj - b -> -- device - m Bool -widgetGetDeviceEnabled _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gtk_widget_get_device_enabled _obj' device' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr device - return result' - --- method Widget::get_device_events --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "EventMask" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_device_events" gtk_widget_get_device_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - IO CUInt - - -widgetGetDeviceEvents :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -> -- _obj - b -> -- device - m [Gdk.EventMask] -widgetGetDeviceEvents _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gtk_widget_get_device_events _obj' device' - let result' = wordToGFlags result - touchManagedPtr _obj - touchManagedPtr device - return result' - --- method Widget::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextDirection" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_direction" gtk_widget_get_direction :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetDirection :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m TextDirection -widgetGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Widget::get_display --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Display" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_display" gtk_widget_get_display :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Display) - - -widgetGetDisplay :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Gdk.Display -widgetGetDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_display _obj' - checkUnexpectedReturnNULL "gtk_widget_get_display" result - result' <- (newObject Gdk.Display) result - touchManagedPtr _obj - return result' - --- method Widget::get_double_buffered --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_double_buffered" gtk_widget_get_double_buffered :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetDoubleBuffered :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetDoubleBuffered _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_double_buffered _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_events --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_events" gtk_widget_get_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetEvents :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Int32 -widgetGetEvents _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_events _obj' - touchManagedPtr _obj - return result - --- method Widget::get_font_map --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "FontMap" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_font_map" gtk_widget_get_font_map :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Pango.FontMap) - - -widgetGetFontMap :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Pango.FontMap -widgetGetFontMap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_font_map _obj' - checkUnexpectedReturnNULL "gtk_widget_get_font_map" result - result' <- (newObject Pango.FontMap) result - touchManagedPtr _obj - return result' - --- method Widget::get_font_options --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "cairo" "FontOptions" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_font_options" gtk_widget_get_font_options :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Cairo.FontOptions) - - -widgetGetFontOptions :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Cairo.FontOptions -widgetGetFontOptions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_font_options _obj' - checkUnexpectedReturnNULL "gtk_widget_get_font_options" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Cairo.FontOptions <$> newForeignPtr_ x) result - touchManagedPtr _obj - return result' - --- method Widget::get_frame_clock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "FrameClock" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_frame_clock" gtk_widget_get_frame_clock :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.FrameClock) - - -widgetGetFrameClock :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Gdk.FrameClock -widgetGetFrameClock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_frame_clock _obj' - checkUnexpectedReturnNULL "gtk_widget_get_frame_clock" result - result' <- (newObject Gdk.FrameClock) result - touchManagedPtr _obj - return result' - --- method Widget::get_halign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Align" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_halign" gtk_widget_get_halign :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetHalign :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Align -widgetGetHalign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_halign _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Widget::get_has_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_has_tooltip" gtk_widget_get_has_tooltip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHasTooltip :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetHasTooltip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_has_tooltip _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_has_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_has_window" gtk_widget_get_has_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHasWindow :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetHasWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_has_window _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_hexpand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_hexpand" gtk_widget_get_hexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHexpand :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetHexpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_hexpand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_hexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_hexpand_set" gtk_widget_get_hexpand_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHexpandSet :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetHexpandSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_hexpand_set _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_mapped --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_mapped" gtk_widget_get_mapped :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetMapped :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetMapped _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_mapped _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_margin_bottom --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_margin_bottom" gtk_widget_get_margin_bottom :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetMarginBottom :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Int32 -widgetGetMarginBottom _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_bottom _obj' - touchManagedPtr _obj - return result - --- method Widget::get_margin_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_margin_end" gtk_widget_get_margin_end :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetMarginEnd :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Int32 -widgetGetMarginEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_end _obj' - touchManagedPtr _obj - return result - --- method Widget::get_margin_left --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_margin_left" gtk_widget_get_margin_left :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - -{-# DEPRECATED widgetGetMarginLeft ["(Since version 3.12)","Use gtk_widget_get_margin_start() instead."]#-} -widgetGetMarginLeft :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Int32 -widgetGetMarginLeft _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_left _obj' - touchManagedPtr _obj - return result - --- method Widget::get_margin_right --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_margin_right" gtk_widget_get_margin_right :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - -{-# DEPRECATED widgetGetMarginRight ["(Since version 3.12)","Use gtk_widget_get_margin_end() instead."]#-} -widgetGetMarginRight :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Int32 -widgetGetMarginRight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_right _obj' - touchManagedPtr _obj - return result - --- method Widget::get_margin_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_margin_start" gtk_widget_get_margin_start :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetMarginStart :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Int32 -widgetGetMarginStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_start _obj' - touchManagedPtr _obj - return result - --- method Widget::get_margin_top --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_margin_top" gtk_widget_get_margin_top :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetMarginTop :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Int32 -widgetGetMarginTop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_top _obj' - touchManagedPtr _obj - return result - --- method Widget::get_modifier_mask --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "ModifierType" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_modifier_mask" gtk_widget_get_modifier_mask :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- intent : TInterface "Gdk" "ModifierIntent" - IO CUInt - - -widgetGetModifierMask :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Gdk.ModifierIntent -> -- intent - m [Gdk.ModifierType] -widgetGetModifierMask _obj intent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let intent' = (fromIntegral . fromEnum) intent - result <- gtk_widget_get_modifier_mask _obj' intent' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Widget::get_modifier_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "RcStyle" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_modifier_style" gtk_widget_get_modifier_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr RcStyle) - -{-# DEPRECATED widgetGetModifierStyle ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-} -widgetGetModifierStyle :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m RcStyle -widgetGetModifierStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_modifier_style _obj' - checkUnexpectedReturnNULL "gtk_widget_get_modifier_style" result - result' <- (newObject RcStyle) result - touchManagedPtr _obj - return result' - --- method Widget::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_name" gtk_widget_get_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - - -widgetGetName :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m T.Text -widgetGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_name _obj' - checkUnexpectedReturnNULL "gtk_widget_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Widget::get_no_show_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_no_show_all" gtk_widget_get_no_show_all :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetNoShowAll :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetNoShowAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_no_show_all _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_opacity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_opacity" gtk_widget_get_opacity :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CDouble - - -widgetGetOpacity :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Double -widgetGetOpacity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_opacity _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Widget::get_pango_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "Context" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_pango_context" gtk_widget_get_pango_context :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Pango.Context) - - -widgetGetPangoContext :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Pango.Context -widgetGetPangoContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_pango_context _obj' - checkUnexpectedReturnNULL "gtk_widget_get_pango_context" result - result' <- (newObject Pango.Context) result - touchManagedPtr _obj - return result' - --- method Widget::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_parent" gtk_widget_get_parent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Widget) - - -widgetGetParent :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Widget -widgetGetParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_parent _obj' - checkUnexpectedReturnNULL "gtk_widget_get_parent" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Widget::get_parent_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Window" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_parent_window" gtk_widget_get_parent_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Window) - - -widgetGetParentWindow :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Gdk.Window -widgetGetParentWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_parent_window _obj' - checkUnexpectedReturnNULL "gtk_widget_get_parent_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - --- method Widget::get_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "WidgetPath" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_path" gtk_widget_get_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr WidgetPath) - - -widgetGetPath :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m WidgetPath -widgetGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_path _obj' - checkUnexpectedReturnNULL "gtk_widget_get_path" result - result' <- (newBoxed WidgetPath) result - touchManagedPtr _obj - return result' - --- method Widget::get_pointer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_pointer" gtk_widget_get_pointer :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - IO () - -{-# DEPRECATED widgetGetPointer ["(Since version 3.4)","Use gdk_window_get_device_position() instead."]#-} -widgetGetPointer :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Int32,Int32) -widgetGetPointer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - gtk_widget_get_pointer _obj' x y - x' <- peek x - y' <- peek y - touchManagedPtr _obj - freeMem x - freeMem y - return (x', y') - --- method Widget::get_preferred_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_height" gtk_widget_get_preferred_height :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - IO () - - -widgetGetPreferredHeight :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Int32,Int32) -widgetGetPreferredHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_height _obj' minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height - touchManagedPtr _obj - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') - --- method Widget::get_preferred_height_and_baseline_for_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "minimum_baseline", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_baseline", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_height_and_baseline_for_width" gtk_widget_get_preferred_height_and_baseline_for_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - Ptr Int32 -> -- minimum_baseline : TBasicType TInt32 - Ptr Int32 -> -- natural_baseline : TBasicType TInt32 - IO () - - -widgetGetPreferredHeightAndBaselineForWidth :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- width - m (Int32,Int32,Int32,Int32) -widgetGetPreferredHeightAndBaselineForWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - minimum_baseline <- allocMem :: IO (Ptr Int32) - natural_baseline <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_height_and_baseline_for_width _obj' width minimum_height natural_height minimum_baseline natural_baseline - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height - minimum_baseline' <- peek minimum_baseline - natural_baseline' <- peek natural_baseline - touchManagedPtr _obj - freeMem minimum_height - freeMem natural_height - freeMem minimum_baseline - freeMem natural_baseline - return (minimum_height', natural_height', minimum_baseline', natural_baseline') - --- method Widget::get_preferred_height_for_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_height_for_width" gtk_widget_get_preferred_height_for_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - IO () - - -widgetGetPreferredHeightForWidth :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- width - m (Int32,Int32) -widgetGetPreferredHeightForWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_height_for_width _obj' width minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height - touchManagedPtr _obj - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') - --- method Widget::get_preferred_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_size" gtk_widget_get_preferred_size :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Requisition -> -- minimum_size : TInterface "Gtk" "Requisition" - Ptr Requisition -> -- natural_size : TInterface "Gtk" "Requisition" - IO () - - -widgetGetPreferredSize :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Requisition,Requisition) -widgetGetPreferredSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_size <- callocBoxedBytes 8 :: IO (Ptr Requisition) - natural_size <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_get_preferred_size _obj' minimum_size natural_size - minimum_size' <- (wrapBoxed Requisition) minimum_size - natural_size' <- (wrapBoxed Requisition) natural_size - touchManagedPtr _obj - return (minimum_size', natural_size') - --- method Widget::get_preferred_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_width" gtk_widget_get_preferred_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 - IO () - - -widgetGetPreferredWidth :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Int32,Int32) -widgetGetPreferredWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_width _obj' minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width - touchManagedPtr _obj - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') - --- method Widget::get_preferred_width_for_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_width_for_height" gtk_widget_get_preferred_width_for_height :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- height : TBasicType TInt32 - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 - IO () - - -widgetGetPreferredWidthForHeight :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- height - m (Int32,Int32) -widgetGetPreferredWidthForHeight _obj height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_width_for_height _obj' height minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width - touchManagedPtr _obj - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') - --- method Widget::get_realized --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_realized" gtk_widget_get_realized :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetRealized :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetRealized _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_realized _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_receives_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_receives_default" gtk_widget_get_receives_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetReceivesDefault :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetReceivesDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_receives_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_request_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "SizeRequestMode" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_request_mode" gtk_widget_get_request_mode :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetRequestMode :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m SizeRequestMode -widgetGetRequestMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_request_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Widget::get_requisition --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_requisition" gtk_widget_get_requisition :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" - IO () - -{-# DEPRECATED widgetGetRequisition ["(Since version 3.0)","The #GtkRequisition cache on the widget was","removed, If you need to cache sizes across requests and allocations,","add an explicit cache to the widget in question instead."]#-} -widgetGetRequisition :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Requisition) -widgetGetRequisition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_get_requisition _obj' requisition - requisition' <- (wrapBoxed Requisition) requisition - touchManagedPtr _obj - return requisition' - --- method Widget::get_root_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Window" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_root_window" gtk_widget_get_root_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Window) - -{-# DEPRECATED widgetGetRootWindow ["(Since version 3.12)","Use gdk_screen_get_root_window() instead"]#-} -widgetGetRootWindow :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Gdk.Window -widgetGetRootWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_root_window _obj' - checkUnexpectedReturnNULL "gtk_widget_get_root_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - --- method Widget::get_scale_factor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_scale_factor" gtk_widget_get_scale_factor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetScaleFactor :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Int32 -widgetGetScaleFactor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_scale_factor _obj' - touchManagedPtr _obj - return result - --- method Widget::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Screen" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_screen" gtk_widget_get_screen :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Screen) - - -widgetGetScreen :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Gdk.Screen -widgetGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_screen _obj' - checkUnexpectedReturnNULL "gtk_widget_get_screen" result - result' <- (newObject Gdk.Screen) result - touchManagedPtr _obj - return result' - --- method Widget::get_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_sensitive" gtk_widget_get_sensitive :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetSensitive :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_settings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Settings" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_settings" gtk_widget_get_settings :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Settings) - - -widgetGetSettings :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Settings -widgetGetSettings _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_settings _obj' - checkUnexpectedReturnNULL "gtk_widget_get_settings" result - result' <- (newObject Settings) result - touchManagedPtr _obj - return result' - --- method Widget::get_size_request --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_size_request" gtk_widget_get_size_request :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO () - - -widgetGetSizeRequest :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Int32,Int32) -widgetGetSizeRequest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_widget_get_size_request _obj' width height - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem width - freeMem height - return (width', height') - --- method Widget::get_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "StateType" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_state" gtk_widget_get_state :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - -{-# DEPRECATED widgetGetState ["(Since version 3.0)","Use gtk_widget_get_state_flags() instead."]#-} -widgetGetState :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m StateType -widgetGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_state _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Widget::get_state_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "StateFlags" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_state_flags" gtk_widget_get_state_flags :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetStateFlags :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m [StateFlags] -widgetGetStateFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_state_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Widget::get_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Style" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_style" gtk_widget_get_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Style) - -{-# DEPRECATED widgetGetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -widgetGetStyle :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Style -widgetGetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_style _obj' - checkUnexpectedReturnNULL "gtk_widget_get_style" result - result' <- (newObject Style) result - touchManagedPtr _obj - return result' - --- method Widget::get_style_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "StyleContext" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_style_context" gtk_widget_get_style_context :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr StyleContext) - - -widgetGetStyleContext :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m StyleContext -widgetGetStyleContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_style_context _obj' - checkUnexpectedReturnNULL "gtk_widget_get_style_context" result - result' <- (newObject StyleContext) result - touchManagedPtr _obj - return result' - --- method Widget::get_support_multidevice --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_support_multidevice" gtk_widget_get_support_multidevice :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetSupportMultidevice :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetSupportMultidevice _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_support_multidevice _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_template_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GObject" "Object" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_template_child" gtk_widget_get_template_child :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CGType -> -- widget_type : TBasicType TGType - CString -> -- name : TBasicType TUTF8 - IO (Ptr GObject.Object) - - -widgetGetTemplateChild :: - (MonadIO m, WidgetK a) => - a -> -- _obj - GType -> -- widget_type - T.Text -> -- name - m GObject.Object -widgetGetTemplateChild _obj widget_type name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget_type' = gtypeToCGType widget_type - name' <- textToCString name - result <- gtk_widget_get_template_child _obj' widget_type' name' - checkUnexpectedReturnNULL "gtk_widget_get_template_child" result - result' <- (newObject GObject.Object) result - touchManagedPtr _obj - freeMem name' - return result' - --- method Widget::get_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_tooltip_markup" gtk_widget_get_tooltip_markup :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - - -widgetGetTooltipMarkup :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m T.Text -widgetGetTooltipMarkup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_tooltip_markup _obj' - checkUnexpectedReturnNULL "gtk_widget_get_tooltip_markup" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Widget::get_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_tooltip_text" gtk_widget_get_tooltip_text :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - - -widgetGetTooltipText :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m T.Text -widgetGetTooltipText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_tooltip_text _obj' - checkUnexpectedReturnNULL "gtk_widget_get_tooltip_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Widget::get_tooltip_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Window" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_tooltip_window" gtk_widget_get_tooltip_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Window) - - -widgetGetTooltipWindow :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Window -widgetGetTooltipWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_tooltip_window _obj' - checkUnexpectedReturnNULL "gtk_widget_get_tooltip_window" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - --- method Widget::get_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_toplevel" gtk_widget_get_toplevel :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Widget) - - -widgetGetToplevel :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Widget -widgetGetToplevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_toplevel _obj' - checkUnexpectedReturnNULL "gtk_widget_get_toplevel" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Widget::get_valign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Align" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_valign" gtk_widget_get_valign :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetValign :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Align -widgetGetValign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_valign _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Widget::get_valign_with_baseline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Align" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_valign_with_baseline" gtk_widget_get_valign_with_baseline :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetValignWithBaseline :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Align -widgetGetValignWithBaseline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_valign_with_baseline _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Widget::get_vexpand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_vexpand" gtk_widget_get_vexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetVexpand :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetVexpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_vexpand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_vexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_vexpand_set" gtk_widget_get_vexpand_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetVexpandSet :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetVexpandSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_vexpand_set _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_visible" gtk_widget_get_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetVisible :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_visual --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Visual" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_visual" gtk_widget_get_visual :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Visual) - - -widgetGetVisual :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Gdk.Visual -widgetGetVisual _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_visual _obj' - checkUnexpectedReturnNULL "gtk_widget_get_visual" result - result' <- (newObject Gdk.Visual) result - touchManagedPtr _obj - return result' - --- method Widget::get_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Window" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_window" gtk_widget_get_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Window) - - -widgetGetWindow :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Gdk.Window -widgetGetWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_window _obj' - checkUnexpectedReturnNULL "gtk_widget_get_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - --- method Widget::grab_add --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_grab_add" gtk_grab_add :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabAdd :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetGrabAdd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grab_add _obj' - touchManagedPtr _obj - return () - --- method Widget::grab_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_grab_default" gtk_widget_grab_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabDefault :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetGrabDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_grab_default _obj' - touchManagedPtr _obj - return () - --- method Widget::grab_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_grab_focus" gtk_widget_grab_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabFocus :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetGrabFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_grab_focus _obj' - touchManagedPtr _obj - return () - --- method Widget::grab_remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_grab_remove" gtk_grab_remove :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabRemove :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetGrabRemove _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grab_remove _obj' - touchManagedPtr _obj - return () - --- method Widget::has_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_default" gtk_widget_has_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasDefault :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetHasDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::has_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_focus" gtk_widget_has_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasFocus :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetHasFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::has_grab --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_grab" gtk_widget_has_grab :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasGrab :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetHasGrab _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_grab _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::has_rc_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_rc_style" gtk_widget_has_rc_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - -{-# DEPRECATED widgetHasRcStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -widgetHasRcStyle :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetHasRcStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_rc_style _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::has_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_screen" gtk_widget_has_screen :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasScreen :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetHasScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_screen _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::has_visible_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_visible_focus" gtk_widget_has_visible_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasVisibleFocus :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetHasVisibleFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_visible_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::hide --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_hide" gtk_widget_hide :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetHide :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetHide _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_hide _obj' - touchManagedPtr _obj - return () - --- method Widget::hide_on_delete --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_hide_on_delete" gtk_widget_hide_on_delete :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHideOnDelete :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetHideOnDelete _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_hide_on_delete _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::in_destruction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_in_destruction" gtk_widget_in_destruction :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetInDestruction :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetInDestruction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_in_destruction _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::init_template --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_init_template" gtk_widget_init_template :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetInitTemplate :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetInitTemplate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_init_template _obj' - touchManagedPtr _obj - return () - --- method Widget::input_shape_combine_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_input_shape_combine_region" gtk_widget_input_shape_combine_region :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO () - - -widgetInputShapeCombineRegion :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Maybe (Cairo.Region) -> -- region - m () -widgetInputShapeCombineRegion _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRegion <- case region of - Nothing -> return nullPtr - Just jRegion -> do - let jRegion' = unsafeManagedPtrGetPtr jRegion - return jRegion' - gtk_widget_input_shape_combine_region _obj' maybeRegion - touchManagedPtr _obj - whenJust region touchManagedPtr - return () - --- method Widget::insert_action_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_insert_action_group" gtk_widget_insert_action_group :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - Ptr Gio.ActionGroup -> -- group : TInterface "Gio" "ActionGroup" - IO () - - -widgetInsertActionGroup :: - (MonadIO m, WidgetK a, Gio.ActionGroupK b) => - a -> -- _obj - T.Text -> -- name - Maybe (b) -> -- group - m () -widgetInsertActionGroup _obj name group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - maybeGroup <- case group of - Nothing -> return nullPtr - Just jGroup -> do - let jGroup' = unsafeManagedPtrCastPtr jGroup - return jGroup' - gtk_widget_insert_action_group _obj' name' maybeGroup - touchManagedPtr _obj - whenJust group touchManagedPtr - freeMem name' - return () - --- method Widget::intersect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intersection", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intersection", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_intersect" gtk_widget_intersect :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- area : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- intersection : TInterface "Gdk" "Rectangle" - IO CInt - - -widgetIntersect :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Gdk.Rectangle -> -- area - Maybe (Gdk.Rectangle) -> -- intersection - m Bool -widgetIntersect _obj area intersection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let area' = unsafeManagedPtrGetPtr area - maybeIntersection <- case intersection of - Nothing -> return nullPtr - Just jIntersection -> do - let jIntersection' = unsafeManagedPtrGetPtr jIntersection - return jIntersection' - result <- gtk_widget_intersect _obj' area' maybeIntersection - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr area - whenJust intersection touchManagedPtr - return result' - --- method Widget::is_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ancestor", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ancestor", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_ancestor" gtk_widget_is_ancestor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- ancestor : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsAncestor :: - (MonadIO m, WidgetK a, WidgetK b) => - a -> -- _obj - b -> -- ancestor - m Bool -widgetIsAncestor _obj ancestor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let ancestor' = unsafeManagedPtrCastPtr ancestor - result <- gtk_widget_is_ancestor _obj' ancestor' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr ancestor - return result' - --- method Widget::is_composited --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_composited" gtk_widget_is_composited :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsComposited :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetIsComposited _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_composited _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::is_drawable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_drawable" gtk_widget_is_drawable :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsDrawable :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetIsDrawable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_drawable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::is_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_focus" gtk_widget_is_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsFocus :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetIsFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::is_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_sensitive" gtk_widget_is_sensitive :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsSensitive :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetIsSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::is_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_toplevel" gtk_widget_is_toplevel :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsToplevel :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetIsToplevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_toplevel _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::is_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_visible" gtk_widget_is_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsVisible :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetIsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::keynav_failed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_keynav_failed" gtk_widget_keynav_failed :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- direction : TInterface "Gtk" "DirectionType" - IO CInt - - -widgetKeynavFailed :: - (MonadIO m, WidgetK a) => - a -> -- _obj - DirectionType -> -- direction - m Bool -widgetKeynavFailed _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let direction' = (fromIntegral . fromEnum) direction - result <- gtk_widget_keynav_failed _obj' direction' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::list_accel_closures --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGList (TInterface "GObject" "Closure") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_list_accel_closures" gtk_widget_list_accel_closures :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr (GList (Ptr Closure))) - - -widgetListAccelClosures :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m [Closure] -widgetListAccelClosures _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_list_accel_closures _obj' - checkUnexpectedReturnNULL "gtk_widget_list_accel_closures" result - result' <- unpackGList result - result'' <- mapM (newBoxed Closure) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method Widget::list_action_prefixes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_list_action_prefixes" gtk_widget_list_action_prefixes :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr CString) - - -widgetListActionPrefixes :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m [T.Text] -widgetListActionPrefixes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_list_action_prefixes _obj' - checkUnexpectedReturnNULL "gtk_widget_list_action_prefixes" result - result' <- unpackZeroTerminatedUTF8CArray result - freeMem result - touchManagedPtr _obj - return result' - --- method Widget::list_mnemonic_labels --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGList (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_list_mnemonic_labels" gtk_widget_list_mnemonic_labels :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr (GList (Ptr Widget))) - - -widgetListMnemonicLabels :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m [Widget] -widgetListMnemonicLabels _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_list_mnemonic_labels _obj' - checkUnexpectedReturnNULL "gtk_widget_list_mnemonic_labels" result - result' <- unpackGList result - result'' <- mapM (newObject Widget) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method Widget::map --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_map" gtk_widget_map :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetMap :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetMap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_map _obj' - touchManagedPtr _obj - return () - --- method Widget::mnemonic_activate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_cycling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_cycling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_mnemonic_activate" gtk_widget_mnemonic_activate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- group_cycling : TBasicType TBoolean - IO CInt - - -widgetMnemonicActivate :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- group_cycling - m Bool -widgetMnemonicActivate _obj group_cycling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group_cycling' = (fromIntegral . fromEnum) group_cycling - result <- gtk_widget_mnemonic_activate _obj' group_cycling' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::modify_base --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_base" gtk_widget_modify_base :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyBase ["(Since version 3.0)","Use gtk_widget_override_background_color() instead"]#-} -widgetModifyBase :: - (MonadIO m, WidgetK a) => - a -> -- _obj - StateType -> -- state - Maybe (Gdk.Color) -> -- color - m () -widgetModifyBase _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_modify_base _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - --- method Widget::modify_bg --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_bg" gtk_widget_modify_bg :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyBg ["(Since version 3.0)","Use gtk_widget_override_background_color() instead"]#-} -widgetModifyBg :: - (MonadIO m, WidgetK a) => - a -> -- _obj - StateType -> -- state - Maybe (Gdk.Color) -> -- color - m () -widgetModifyBg _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_modify_bg _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - --- method Widget::modify_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "primary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secondary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "primary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secondary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_cursor" gtk_widget_modify_cursor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Color -> -- primary : TInterface "Gdk" "Color" - Ptr Gdk.Color -> -- secondary : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyCursor ["(Since version 3.0)","Use gtk_widget_override_cursor() instead."]#-} -widgetModifyCursor :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Maybe (Gdk.Color) -> -- primary - Maybe (Gdk.Color) -> -- secondary - m () -widgetModifyCursor _obj primary secondary = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePrimary <- case primary of - Nothing -> return nullPtr - Just jPrimary -> do - let jPrimary' = unsafeManagedPtrGetPtr jPrimary - return jPrimary' - maybeSecondary <- case secondary of - Nothing -> return nullPtr - Just jSecondary -> do - let jSecondary' = unsafeManagedPtrGetPtr jSecondary - return jSecondary' - gtk_widget_modify_cursor _obj' maybePrimary maybeSecondary - touchManagedPtr _obj - whenJust primary touchManagedPtr - whenJust secondary touchManagedPtr - return () - --- method Widget::modify_fg --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_fg" gtk_widget_modify_fg :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyFg ["(Since version 3.0)","Use gtk_widget_override_color() instead"]#-} -widgetModifyFg :: - (MonadIO m, WidgetK a) => - a -> -- _obj - StateType -> -- state - Maybe (Gdk.Color) -> -- color - m () -widgetModifyFg _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_modify_fg _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - --- method Widget::modify_font --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_font" gtk_widget_modify_font :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription" - IO () - -{-# DEPRECATED widgetModifyFont ["(Since version 3.0)","Use gtk_widget_override_font() instead"]#-} -widgetModifyFont :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Maybe (Pango.FontDescription) -> -- font_desc - m () -widgetModifyFont _obj font_desc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFont_desc <- case font_desc of - Nothing -> return nullPtr - Just jFont_desc -> do - let jFont_desc' = unsafeManagedPtrGetPtr jFont_desc - return jFont_desc' - gtk_widget_modify_font _obj' maybeFont_desc - touchManagedPtr _obj - whenJust font_desc touchManagedPtr - return () - --- method Widget::modify_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_style" gtk_widget_modify_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr RcStyle -> -- style : TInterface "Gtk" "RcStyle" - IO () - -{-# DEPRECATED widgetModifyStyle ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-} -widgetModifyStyle :: - (MonadIO m, WidgetK a, RcStyleK b) => - a -> -- _obj - b -> -- style - m () -widgetModifyStyle _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = unsafeManagedPtrCastPtr style - gtk_widget_modify_style _obj' style' - touchManagedPtr _obj - touchManagedPtr style - return () - --- method Widget::modify_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_text" gtk_widget_modify_text :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyText ["(Since version 3.0)","Use gtk_widget_override_color() instead"]#-} -widgetModifyText :: - (MonadIO m, WidgetK a) => - a -> -- _obj - StateType -> -- state - Maybe (Gdk.Color) -> -- color - m () -widgetModifyText _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_modify_text _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - --- method Widget::override_background_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_background_color" gtk_widget_override_background_color :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED widgetOverrideBackgroundColor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the way a widget renders its background"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class. You can also override the default"," drawing of a widget through the #GtkWidget::draw signal, and use Cairo to"," draw a specific color, regardless of the CSS style."]#-} -widgetOverrideBackgroundColor :: - (MonadIO m, WidgetK a) => - a -> -- _obj - [StateFlags] -> -- state - Maybe (Gdk.RGBA) -> -- color - m () -widgetOverrideBackgroundColor _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_override_background_color _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - --- method Widget::override_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_color" gtk_widget_override_color :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED widgetOverrideColor ["(Since version 3.16)","Use a custom style provider and style classes instead"]#-} -widgetOverrideColor :: - (MonadIO m, WidgetK a) => - a -> -- _obj - [StateFlags] -> -- state - Maybe (Gdk.RGBA) -> -- color - m () -widgetOverrideColor _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_override_color _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - --- method Widget::override_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secondary_cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secondary_cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_cursor" gtk_widget_override_cursor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.RGBA -> -- cursor : TInterface "Gdk" "RGBA" - Ptr Gdk.RGBA -> -- secondary_cursor : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED widgetOverrideCursor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the color used to render the primary"," and secondary cursors you should use a custom CSS style, through an"," application-specific #GtkStyleProvider and a CSS style class."]#-} -widgetOverrideCursor :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Maybe (Gdk.RGBA) -> -- cursor - Maybe (Gdk.RGBA) -> -- secondary_cursor - m () -widgetOverrideCursor _obj cursor secondary_cursor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCursor <- case cursor of - Nothing -> return nullPtr - Just jCursor -> do - let jCursor' = unsafeManagedPtrGetPtr jCursor - return jCursor' - maybeSecondary_cursor <- case secondary_cursor of - Nothing -> return nullPtr - Just jSecondary_cursor -> do - let jSecondary_cursor' = unsafeManagedPtrGetPtr jSecondary_cursor - return jSecondary_cursor' - gtk_widget_override_cursor _obj' maybeCursor maybeSecondary_cursor - touchManagedPtr _obj - whenJust cursor touchManagedPtr - whenJust secondary_cursor touchManagedPtr - return () - --- method Widget::override_font --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_font" gtk_widget_override_font :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription" - IO () - -{-# DEPRECATED widgetOverrideFont ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the font a widget uses to render its text"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class."]#-} -widgetOverrideFont :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Maybe (Pango.FontDescription) -> -- font_desc - m () -widgetOverrideFont _obj font_desc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFont_desc <- case font_desc of - Nothing -> return nullPtr - Just jFont_desc -> do - let jFont_desc' = unsafeManagedPtrGetPtr jFont_desc - return jFont_desc' - gtk_widget_override_font _obj' maybeFont_desc - touchManagedPtr _obj - whenJust font_desc touchManagedPtr - return () - --- method Widget::override_symbolic_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_symbolic_color" gtk_widget_override_symbolic_color :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED widgetOverrideSymbolicColor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the color used to render symbolic icons"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class."]#-} -widgetOverrideSymbolicColor :: - (MonadIO m, WidgetK a) => - a -> -- _obj - T.Text -> -- name - Maybe (Gdk.RGBA) -> -- color - m () -widgetOverrideSymbolicColor _obj name color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_override_symbolic_color _obj' name' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - freeMem name' - return () - --- method Widget::path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "path_reversed", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path" gtk_widget_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Word32 -> -- path_length : TBasicType TUInt32 - Ptr CString -> -- path : TBasicType TUTF8 - Ptr CString -> -- path_reversed : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetPath ["(Since version 3.0)","Use gtk_widget_get_path() instead"]#-} -widgetPath :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Word32,T.Text,T.Text) -widgetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path_length <- allocMem :: IO (Ptr Word32) - path <- allocMem :: IO (Ptr CString) - path_reversed <- allocMem :: IO (Ptr CString) - gtk_widget_path _obj' path_length path path_reversed - path_length' <- peek path_length - path' <- peek path - path'' <- cstringToText path' - freeMem path' - path_reversed' <- peek path_reversed - path_reversed'' <- cstringToText path_reversed' - freeMem path_reversed' - touchManagedPtr _obj - freeMem path_length - freeMem path - freeMem path_reversed - return (path_length', path'', path_reversed'') - --- method Widget::queue_compute_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_compute_expand" gtk_widget_queue_compute_expand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueComputeExpand :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetQueueComputeExpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_compute_expand _obj' - touchManagedPtr _obj - return () - --- method Widget::queue_draw --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_draw" gtk_widget_queue_draw :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueDraw :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetQueueDraw _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_draw _obj' - touchManagedPtr _obj - return () - --- method Widget::queue_draw_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_draw_area" gtk_widget_queue_draw_area :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -widgetQueueDrawArea :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -widgetQueueDrawArea _obj x y width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_draw_area _obj' x y width height - touchManagedPtr _obj - return () - --- method Widget::queue_draw_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_draw_region" gtk_widget_queue_draw_region :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO () - - -widgetQueueDrawRegion :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Cairo.Region -> -- region - m () -widgetQueueDrawRegion _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let region' = unsafeManagedPtrGetPtr region - gtk_widget_queue_draw_region _obj' region' - touchManagedPtr _obj - touchManagedPtr region - return () - --- method Widget::queue_resize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_resize" gtk_widget_queue_resize :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueResize :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetQueueResize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_resize _obj' - touchManagedPtr _obj - return () - --- method Widget::queue_resize_no_redraw --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_resize_no_redraw" gtk_widget_queue_resize_no_redraw :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueResizeNoRedraw :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetQueueResizeNoRedraw _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_resize_no_redraw _obj' - touchManagedPtr _obj - return () - --- method Widget::realize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_realize" gtk_widget_realize :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetRealize :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetRealize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_realize _obj' - touchManagedPtr _obj - return () - --- method Widget::region_intersect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "cairo" "Region" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_region_intersect" gtk_widget_region_intersect :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO (Ptr Cairo.Region) - -{-# DEPRECATED widgetRegionIntersect ["(Since version 3.14)","Use gtk_widget_get_allocation() and"," cairo_region_intersect_rectangle() to get the same behavior."]#-} -widgetRegionIntersect :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Cairo.Region -> -- region - m Cairo.Region -widgetRegionIntersect _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let region' = unsafeManagedPtrGetPtr region - result <- gtk_widget_region_intersect _obj' region' - checkUnexpectedReturnNULL "gtk_widget_region_intersect" result - result' <- (wrapBoxed Cairo.Region) result - touchManagedPtr _obj - touchManagedPtr region - return result' - --- method Widget::register_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_register_window" gtk_widget_register_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - - -widgetRegisterWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -> -- _obj - b -> -- window - m () -widgetRegisterWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_widget_register_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - --- method Widget::remove_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_remove_accelerator" gtk_widget_remove_accelerator :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt32 - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - IO CInt - - -widgetRemoveAccelerator :: - (MonadIO m, WidgetK a, AccelGroupK b) => - a -> -- _obj - b -> -- accel_group - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - m Bool -widgetRemoveAccelerator _obj accel_group accel_key accel_mods = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accel_group' = unsafeManagedPtrCastPtr accel_group - let accel_mods' = gflagsToWord accel_mods - result <- gtk_widget_remove_accelerator _obj' accel_group' accel_key accel_mods' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr accel_group - return result' - --- method Widget::remove_mnemonic_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_remove_mnemonic_label" gtk_widget_remove_mnemonic_label :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- label : TInterface "Gtk" "Widget" - IO () - - -widgetRemoveMnemonicLabel :: - (MonadIO m, WidgetK a, WidgetK b) => - a -> -- _obj - b -> -- label - m () -widgetRemoveMnemonicLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let label' = unsafeManagedPtrCastPtr label - gtk_widget_remove_mnemonic_label _obj' label' - touchManagedPtr _obj - touchManagedPtr label - return () - --- method Widget::remove_tick_callback --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_remove_tick_callback" gtk_widget_remove_tick_callback :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Word32 -> -- id : TBasicType TUInt32 - IO () - - -widgetRemoveTickCallback :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Word32 -> -- id - m () -widgetRemoveTickCallback _obj id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_remove_tick_callback _obj' id - touchManagedPtr _obj - return () - --- method Widget::render_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_render_icon" gtk_widget_render_icon :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 - CString -> -- detail : TBasicType TUTF8 - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED widgetRenderIcon ["(Since version 3.0)","Use gtk_widget_render_icon_pixbuf() instead."]#-} -widgetRenderIcon :: - (MonadIO m, WidgetK a) => - a -> -- _obj - T.Text -> -- stock_id - Int32 -> -- size - Maybe (T.Text) -> -- detail - m GdkPixbuf.Pixbuf -widgetRenderIcon _obj stock_id size detail = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - result <- gtk_widget_render_icon _obj' stock_id' size maybeDetail - checkUnexpectedReturnNULL "gtk_widget_render_icon" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - freeMem stock_id' - freeMem maybeDetail - return result' - --- method Widget::render_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_render_icon_pixbuf" gtk_widget_render_icon_pixbuf :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED widgetRenderIconPixbuf ["(Since version 3.10)","Use gtk_icon_theme_load_icon() instead."]#-} -widgetRenderIconPixbuf :: - (MonadIO m, WidgetK a) => - a -> -- _obj - T.Text -> -- stock_id - Int32 -> -- size - m GdkPixbuf.Pixbuf -widgetRenderIconPixbuf _obj stock_id size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - result <- gtk_widget_render_icon_pixbuf _obj' stock_id' size - checkUnexpectedReturnNULL "gtk_widget_render_icon_pixbuf" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - freeMem stock_id' - return result' - --- method Widget::reparent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_reparent" gtk_widget_reparent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- new_parent : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED widgetReparent ["(Since version 3.14)","Use gtk_container_remove() and gtk_container_add()."]#-} -widgetReparent :: - (MonadIO m, WidgetK a, WidgetK b) => - a -> -- _obj - b -> -- new_parent - m () -widgetReparent _obj new_parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let new_parent' = unsafeManagedPtrCastPtr new_parent - gtk_widget_reparent _obj' new_parent' - touchManagedPtr _obj - touchManagedPtr new_parent - return () - --- method Widget::reset_rc_styles --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_reset_rc_styles" gtk_widget_reset_rc_styles :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED widgetResetRcStyles ["(Since version 3.0)","Use #GtkStyleContext instead, and gtk_widget_reset_style()"]#-} -widgetResetRcStyles :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetResetRcStyles _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_reset_rc_styles _obj' - touchManagedPtr _obj - return () - --- method Widget::reset_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_reset_style" gtk_widget_reset_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetResetStyle :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetResetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_reset_style _obj' - touchManagedPtr _obj - return () - --- method Widget::send_expose --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_send_expose" gtk_widget_send_expose :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO Int32 - - -widgetSendExpose :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Gdk.Event -> -- event - m Int32 -widgetSendExpose _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_widget_send_expose _obj' event' - touchManagedPtr _obj - touchManagedPtr event - return result - --- method Widget::send_focus_change --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_send_focus_change" gtk_widget_send_focus_change :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO CInt - - -widgetSendFocusChange :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Gdk.Event -> -- event - m Bool -widgetSendFocusChange _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_widget_send_focus_change _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - --- method Widget::set_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_accel_path" gtk_widget_set_accel_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- accel_path : TBasicType TUTF8 - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - IO () - - -widgetSetAccelPath :: - (MonadIO m, WidgetK a, AccelGroupK b) => - a -> -- _obj - Maybe (T.Text) -> -- accel_path - Maybe (b) -> -- accel_group - m () -widgetSetAccelPath _obj accel_path accel_group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccel_path <- case accel_path of - Nothing -> return nullPtr - Just jAccel_path -> do - jAccel_path' <- textToCString jAccel_path - return jAccel_path' - maybeAccel_group <- case accel_group of - Nothing -> return nullPtr - Just jAccel_group -> do - let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group - return jAccel_group' - gtk_widget_set_accel_path _obj' maybeAccel_path maybeAccel_group - touchManagedPtr _obj - whenJust accel_group touchManagedPtr - freeMem maybeAccel_path - return () - --- method Widget::set_allocation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_allocation" gtk_widget_set_allocation :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - IO () - - -widgetSetAllocation :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Gdk.Rectangle -> -- allocation - m () -widgetSetAllocation _obj allocation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allocation' = unsafeManagedPtrGetPtr allocation - gtk_widget_set_allocation _obj' allocation' - touchManagedPtr _obj - touchManagedPtr allocation - return () - --- method Widget::set_app_paintable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_paintable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_paintable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_app_paintable" gtk_widget_set_app_paintable :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- app_paintable : TBasicType TBoolean - IO () - - -widgetSetAppPaintable :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- app_paintable - m () -widgetSetAppPaintable _obj app_paintable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let app_paintable' = (fromIntegral . fromEnum) app_paintable - gtk_widget_set_app_paintable _obj' app_paintable' - touchManagedPtr _obj - return () - --- method Widget::set_can_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_can_default" gtk_widget_set_can_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- can_default : TBasicType TBoolean - IO () - - -widgetSetCanDefault :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- can_default - m () -widgetSetCanDefault _obj can_default = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let can_default' = (fromIntegral . fromEnum) can_default - gtk_widget_set_can_default _obj' can_default' - touchManagedPtr _obj - return () - --- method Widget::set_can_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_can_focus" gtk_widget_set_can_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- can_focus : TBasicType TBoolean - IO () - - -widgetSetCanFocus :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- can_focus - m () -widgetSetCanFocus _obj can_focus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let can_focus' = (fromIntegral . fromEnum) can_focus - gtk_widget_set_can_focus _obj' can_focus' - touchManagedPtr _obj - return () - --- method Widget::set_child_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_child_visible" gtk_widget_set_child_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- is_visible : TBasicType TBoolean - IO () - - -widgetSetChildVisible :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- is_visible - m () -widgetSetChildVisible _obj is_visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let is_visible' = (fromIntegral . fromEnum) is_visible - gtk_widget_set_child_visible _obj' is_visible' - touchManagedPtr _obj - return () - --- method Widget::set_clip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clip", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clip", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_clip" gtk_widget_set_clip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- clip : TInterface "Gdk" "Rectangle" - IO () - - -widgetSetClip :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Gdk.Rectangle -> -- clip - m () -widgetSetClip _obj clip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clip' = unsafeManagedPtrGetPtr clip - gtk_widget_set_clip _obj' clip' - touchManagedPtr _obj - touchManagedPtr clip - return () - --- method Widget::set_composite_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_composite_name" gtk_widget_set_composite_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetSetCompositeName ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} -widgetSetCompositeName :: - (MonadIO m, WidgetK a) => - a -> -- _obj - T.Text -> -- name - m () -widgetSetCompositeName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_widget_set_composite_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - --- method Widget::set_device_enabled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_device_enabled" gtk_widget_set_device_enabled :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -widgetSetDeviceEnabled :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -> -- _obj - b -> -- device - Bool -> -- enabled - m () -widgetSetDeviceEnabled _obj device enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - let enabled' = (fromIntegral . fromEnum) enabled - gtk_widget_set_device_enabled _obj' device' enabled' - touchManagedPtr _obj - touchManagedPtr device - return () - --- method Widget::set_device_events --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_device_events" gtk_widget_set_device_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - CUInt -> -- events : TInterface "Gdk" "EventMask" - IO () - - -widgetSetDeviceEvents :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -> -- _obj - b -> -- device - [Gdk.EventMask] -> -- events - m () -widgetSetDeviceEvents _obj device events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - let events' = gflagsToWord events - gtk_widget_set_device_events _obj' device' events' - touchManagedPtr _obj - touchManagedPtr device - return () - --- method Widget::set_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_direction" gtk_widget_set_direction :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- dir : TInterface "Gtk" "TextDirection" - IO () - - -widgetSetDirection :: - (MonadIO m, WidgetK a) => - a -> -- _obj - TextDirection -> -- dir - m () -widgetSetDirection _obj dir = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dir' = (fromIntegral . fromEnum) dir - gtk_widget_set_direction _obj' dir' - touchManagedPtr _obj - return () - --- method Widget::set_double_buffered --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "double_buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "double_buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_double_buffered" gtk_widget_set_double_buffered :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- double_buffered : TBasicType TBoolean - IO () - -{-# DEPRECATED widgetSetDoubleBuffered ["(Since version 3.14)","This function does not work under non-X11 backends or with","non-native windows.","It should not be used in newly written code."]#-} -widgetSetDoubleBuffered :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- double_buffered - m () -widgetSetDoubleBuffered _obj double_buffered = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let double_buffered' = (fromIntegral . fromEnum) double_buffered - gtk_widget_set_double_buffered _obj' double_buffered' - touchManagedPtr _obj - return () - --- method Widget::set_events --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_events" gtk_widget_set_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- events : TBasicType TInt32 - IO () - - -widgetSetEvents :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- events - m () -widgetSetEvents _obj events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_events _obj' events - touchManagedPtr _obj - return () - --- method Widget::set_font_map --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_font_map" gtk_widget_set_font_map :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Pango.FontMap -> -- font_map : TInterface "Pango" "FontMap" - IO () - - -widgetSetFontMap :: - (MonadIO m, WidgetK a, Pango.FontMapK b) => - a -> -- _obj - Maybe (b) -> -- font_map - m () -widgetSetFontMap _obj font_map = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFont_map <- case font_map of - Nothing -> return nullPtr - Just jFont_map -> do - let jFont_map' = unsafeManagedPtrCastPtr jFont_map - return jFont_map' - gtk_widget_set_font_map _obj' maybeFont_map - touchManagedPtr _obj - whenJust font_map touchManagedPtr - return () - --- method Widget::set_font_options --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_font_options" gtk_widget_set_font_options :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.FontOptions -> -- options : TInterface "cairo" "FontOptions" - IO () - - -widgetSetFontOptions :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Maybe (Cairo.FontOptions) -> -- options - m () -widgetSetFontOptions _obj options = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeOptions <- case options of - Nothing -> return nullPtr - Just jOptions -> do - let jOptions' = unsafeManagedPtrGetPtr jOptions - return jOptions' - gtk_widget_set_font_options _obj' maybeOptions - touchManagedPtr _obj - whenJust options touchManagedPtr - return () - --- method Widget::set_halign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_halign" gtk_widget_set_halign :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- align : TInterface "Gtk" "Align" - IO () - - -widgetSetHalign :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Align -> -- align - m () -widgetSetHalign _obj align = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let align' = (fromIntegral . fromEnum) align - gtk_widget_set_halign _obj' align' - touchManagedPtr _obj - return () - --- method Widget::set_has_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_has_tooltip" gtk_widget_set_has_tooltip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- has_tooltip : TBasicType TBoolean - IO () - - -widgetSetHasTooltip :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- has_tooltip - m () -widgetSetHasTooltip _obj has_tooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let has_tooltip' = (fromIntegral . fromEnum) has_tooltip - gtk_widget_set_has_tooltip _obj' has_tooltip' - touchManagedPtr _obj - return () - --- method Widget::set_has_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_has_window" gtk_widget_set_has_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- has_window : TBasicType TBoolean - IO () - - -widgetSetHasWindow :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- has_window - m () -widgetSetHasWindow _obj has_window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let has_window' = (fromIntegral . fromEnum) has_window - gtk_widget_set_has_window _obj' has_window' - touchManagedPtr _obj - return () - --- method Widget::set_hexpand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_hexpand" gtk_widget_set_hexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- expand : TBasicType TBoolean - IO () - - -widgetSetHexpand :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- expand - m () -widgetSetHexpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_widget_set_hexpand _obj' expand' - touchManagedPtr _obj - return () - --- method Widget::set_hexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_hexpand_set" gtk_widget_set_hexpand_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- set : TBasicType TBoolean - IO () - - -widgetSetHexpandSet :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- set - m () -widgetSetHexpandSet _obj set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let set' = (fromIntegral . fromEnum) set - gtk_widget_set_hexpand_set _obj' set' - touchManagedPtr _obj - return () - --- method Widget::set_mapped --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mapped", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mapped", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_mapped" gtk_widget_set_mapped :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- mapped : TBasicType TBoolean - IO () - - -widgetSetMapped :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- mapped - m () -widgetSetMapped _obj mapped = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mapped' = (fromIntegral . fromEnum) mapped - gtk_widget_set_mapped _obj' mapped' - touchManagedPtr _obj - return () - --- method Widget::set_margin_bottom --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_bottom" gtk_widget_set_margin_bottom :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -widgetSetMarginBottom :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- margin - m () -widgetSetMarginBottom _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_bottom _obj' margin - touchManagedPtr _obj - return () - --- method Widget::set_margin_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_end" gtk_widget_set_margin_end :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -widgetSetMarginEnd :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- margin - m () -widgetSetMarginEnd _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_end _obj' margin - touchManagedPtr _obj - return () - --- method Widget::set_margin_left --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_left" gtk_widget_set_margin_left :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - -{-# DEPRECATED widgetSetMarginLeft ["(Since version 3.12)","Use gtk_widget_set_margin_start() instead."]#-} -widgetSetMarginLeft :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- margin - m () -widgetSetMarginLeft _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_left _obj' margin - touchManagedPtr _obj - return () - --- method Widget::set_margin_right --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_right" gtk_widget_set_margin_right :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - -{-# DEPRECATED widgetSetMarginRight ["(Since version 3.12)","Use gtk_widget_set_margin_end() instead."]#-} -widgetSetMarginRight :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- margin - m () -widgetSetMarginRight _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_right _obj' margin - touchManagedPtr _obj - return () - --- method Widget::set_margin_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_start" gtk_widget_set_margin_start :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -widgetSetMarginStart :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- margin - m () -widgetSetMarginStart _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_start _obj' margin - touchManagedPtr _obj - return () - --- method Widget::set_margin_top --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_top" gtk_widget_set_margin_top :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -widgetSetMarginTop :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- margin - m () -widgetSetMarginTop _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_top _obj' margin - touchManagedPtr _obj - return () - --- method Widget::set_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_name" gtk_widget_set_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - IO () - - -widgetSetName :: - (MonadIO m, WidgetK a) => - a -> -- _obj - T.Text -> -- name - m () -widgetSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_widget_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - --- method Widget::set_no_show_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "no_show_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "no_show_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_no_show_all" gtk_widget_set_no_show_all :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- no_show_all : TBasicType TBoolean - IO () - - -widgetSetNoShowAll :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- no_show_all - m () -widgetSetNoShowAll _obj no_show_all = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let no_show_all' = (fromIntegral . fromEnum) no_show_all - gtk_widget_set_no_show_all _obj' no_show_all' - touchManagedPtr _obj - return () - --- method Widget::set_opacity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_opacity" gtk_widget_set_opacity :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CDouble -> -- opacity : TBasicType TDouble - IO () - - -widgetSetOpacity :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Double -> -- opacity - m () -widgetSetOpacity _obj opacity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let opacity' = realToFrac opacity - gtk_widget_set_opacity _obj' opacity' - touchManagedPtr _obj - return () - --- method Widget::set_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_parent" gtk_widget_set_parent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- parent : TInterface "Gtk" "Widget" - IO () - - -widgetSetParent :: - (MonadIO m, WidgetK a, WidgetK b) => - a -> -- _obj - b -> -- parent - m () -widgetSetParent _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let parent' = unsafeManagedPtrCastPtr parent - gtk_widget_set_parent _obj' parent' - touchManagedPtr _obj - touchManagedPtr parent - return () - --- method Widget::set_parent_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_parent_window" gtk_widget_set_parent_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- parent_window : TInterface "Gdk" "Window" - IO () - - -widgetSetParentWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -> -- _obj - b -> -- parent_window - m () -widgetSetParentWindow _obj parent_window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let parent_window' = unsafeManagedPtrCastPtr parent_window - gtk_widget_set_parent_window _obj' parent_window' - touchManagedPtr _obj - touchManagedPtr parent_window - return () - --- method Widget::set_realized --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realized", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realized", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_realized" gtk_widget_set_realized :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- realized : TBasicType TBoolean - IO () - - -widgetSetRealized :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- realized - m () -widgetSetRealized _obj realized = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let realized' = (fromIntegral . fromEnum) realized - gtk_widget_set_realized _obj' realized' - touchManagedPtr _obj - return () - --- method Widget::set_receives_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "receives_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "receives_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_receives_default" gtk_widget_set_receives_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- receives_default : TBasicType TBoolean - IO () - - -widgetSetReceivesDefault :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- receives_default - m () -widgetSetReceivesDefault _obj receives_default = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let receives_default' = (fromIntegral . fromEnum) receives_default - gtk_widget_set_receives_default _obj' receives_default' - touchManagedPtr _obj - return () - --- method Widget::set_redraw_on_allocate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redraw_on_allocate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redraw_on_allocate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_redraw_on_allocate" gtk_widget_set_redraw_on_allocate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- redraw_on_allocate : TBasicType TBoolean - IO () - - -widgetSetRedrawOnAllocate :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- redraw_on_allocate - m () -widgetSetRedrawOnAllocate _obj redraw_on_allocate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let redraw_on_allocate' = (fromIntegral . fromEnum) redraw_on_allocate - gtk_widget_set_redraw_on_allocate _obj' redraw_on_allocate' - touchManagedPtr _obj - return () - --- method Widget::set_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_sensitive" gtk_widget_set_sensitive :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- sensitive : TBasicType TBoolean - IO () - - -widgetSetSensitive :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- sensitive - m () -widgetSetSensitive _obj sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_widget_set_sensitive _obj' sensitive' - touchManagedPtr _obj - return () - --- method Widget::set_size_request --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_size_request" gtk_widget_set_size_request :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -widgetSetSizeRequest :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -widgetSetSizeRequest _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_size_request _obj' width height - touchManagedPtr _obj - return () - --- method Widget::set_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_state" gtk_widget_set_state :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - IO () - -{-# DEPRECATED widgetSetState ["(Since version 3.0)","Use gtk_widget_set_state_flags() instead."]#-} -widgetSetState :: - (MonadIO m, WidgetK a) => - a -> -- _obj - StateType -> -- state - m () -widgetSetState _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - gtk_widget_set_state _obj' state' - touchManagedPtr _obj - return () - --- method Widget::set_state_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clear", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clear", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_state_flags" gtk_widget_set_state_flags :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- flags : TInterface "Gtk" "StateFlags" - CInt -> -- clear : TBasicType TBoolean - IO () - - -widgetSetStateFlags :: - (MonadIO m, WidgetK a) => - a -> -- _obj - [StateFlags] -> -- flags - Bool -> -- clear - m () -widgetSetStateFlags _obj flags clear = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - let clear' = (fromIntegral . fromEnum) clear - gtk_widget_set_state_flags _obj' flags' clear' - touchManagedPtr _obj - return () - --- method Widget::set_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_style" gtk_widget_set_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Style -> -- style : TInterface "Gtk" "Style" - IO () - -{-# DEPRECATED widgetSetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -widgetSetStyle :: - (MonadIO m, WidgetK a, StyleK b) => - a -> -- _obj - Maybe (b) -> -- style - m () -widgetSetStyle _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStyle <- case style of - Nothing -> return nullPtr - Just jStyle -> do - let jStyle' = unsafeManagedPtrCastPtr jStyle - return jStyle' - gtk_widget_set_style _obj' maybeStyle - touchManagedPtr _obj - whenJust style touchManagedPtr - return () - --- method Widget::set_support_multidevice --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_support_multidevice" gtk_widget_set_support_multidevice :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- support_multidevice : TBasicType TBoolean - IO () - - -widgetSetSupportMultidevice :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- support_multidevice - m () -widgetSetSupportMultidevice _obj support_multidevice = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let support_multidevice' = (fromIntegral . fromEnum) support_multidevice - gtk_widget_set_support_multidevice _obj' support_multidevice' - touchManagedPtr _obj - return () - --- method Widget::set_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_tooltip_markup" gtk_widget_set_tooltip_markup :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- markup : TBasicType TUTF8 - IO () - - -widgetSetTooltipMarkup :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Maybe (T.Text) -> -- markup - m () -widgetSetTooltipMarkup _obj markup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeMarkup <- case markup of - Nothing -> return nullPtr - Just jMarkup -> do - jMarkup' <- textToCString jMarkup - return jMarkup' - gtk_widget_set_tooltip_markup _obj' maybeMarkup - touchManagedPtr _obj - freeMem maybeMarkup - return () - --- method Widget::set_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_tooltip_text" gtk_widget_set_tooltip_text :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- text : TBasicType TUTF8 - IO () - - -widgetSetTooltipText :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Maybe (T.Text) -> -- text - m () -widgetSetTooltipText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeText <- case text of - Nothing -> return nullPtr - Just jText -> do - jText' <- textToCString jText - return jText' - gtk_widget_set_tooltip_text _obj' maybeText - touchManagedPtr _obj - freeMem maybeText - return () - --- method Widget::set_tooltip_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "custom_window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "custom_window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_tooltip_window" gtk_widget_set_tooltip_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Window -> -- custom_window : TInterface "Gtk" "Window" - IO () - - -widgetSetTooltipWindow :: - (MonadIO m, WidgetK a, WindowK b) => - a -> -- _obj - Maybe (b) -> -- custom_window - m () -widgetSetTooltipWindow _obj custom_window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCustom_window <- case custom_window of - Nothing -> return nullPtr - Just jCustom_window -> do - let jCustom_window' = unsafeManagedPtrCastPtr jCustom_window - return jCustom_window' - gtk_widget_set_tooltip_window _obj' maybeCustom_window - touchManagedPtr _obj - whenJust custom_window touchManagedPtr - return () - --- method Widget::set_valign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_valign" gtk_widget_set_valign :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- align : TInterface "Gtk" "Align" - IO () - - -widgetSetValign :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Align -> -- align - m () -widgetSetValign _obj align = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let align' = (fromIntegral . fromEnum) align - gtk_widget_set_valign _obj' align' - touchManagedPtr _obj - return () - --- method Widget::set_vexpand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_vexpand" gtk_widget_set_vexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- expand : TBasicType TBoolean - IO () - - -widgetSetVexpand :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- expand - m () -widgetSetVexpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_widget_set_vexpand _obj' expand' - touchManagedPtr _obj - return () - --- method Widget::set_vexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_vexpand_set" gtk_widget_set_vexpand_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- set : TBasicType TBoolean - IO () - - -widgetSetVexpandSet :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- set - m () -widgetSetVexpandSet _obj set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let set' = (fromIntegral . fromEnum) set - gtk_widget_set_vexpand_set _obj' set' - touchManagedPtr _obj - return () - --- method Widget::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_visible" gtk_widget_set_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- visible : TBasicType TBoolean - IO () - - -widgetSetVisible :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Bool -> -- visible - m () -widgetSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_widget_set_visible _obj' visible' - touchManagedPtr _obj - return () - --- method Widget::set_visual --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visual", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visual", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_visual" gtk_widget_set_visual :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Visual -> -- visual : TInterface "Gdk" "Visual" - IO () - - -widgetSetVisual :: - (MonadIO m, WidgetK a, Gdk.VisualK b) => - a -> -- _obj - Maybe (b) -> -- visual - m () -widgetSetVisual _obj visual = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeVisual <- case visual of - Nothing -> return nullPtr - Just jVisual -> do - let jVisual' = unsafeManagedPtrCastPtr jVisual - return jVisual' - gtk_widget_set_visual _obj' maybeVisual - touchManagedPtr _obj - whenJust visual touchManagedPtr - return () - --- method Widget::set_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_window" gtk_widget_set_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - - -widgetSetWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -> -- _obj - b -> -- window - m () -widgetSetWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - window' <- refObject window - gtk_widget_set_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - --- method Widget::shape_combine_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_shape_combine_region" gtk_widget_shape_combine_region :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO () - - -widgetShapeCombineRegion :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Maybe (Cairo.Region) -> -- region - m () -widgetShapeCombineRegion _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRegion <- case region of - Nothing -> return nullPtr - Just jRegion -> do - let jRegion' = unsafeManagedPtrGetPtr jRegion - return jRegion' - gtk_widget_shape_combine_region _obj' maybeRegion - touchManagedPtr _obj - whenJust region touchManagedPtr - return () - --- method Widget::show --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_show" gtk_widget_show :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetShow :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetShow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_show _obj' - touchManagedPtr _obj - return () - --- method Widget::show_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_show_all" gtk_widget_show_all :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetShowAll :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetShowAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_show_all _obj' - touchManagedPtr _obj - return () - --- method Widget::show_now --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_show_now" gtk_widget_show_now :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetShowNow :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetShowNow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_show_now _obj' - touchManagedPtr _obj - return () - --- method Widget::size_allocate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_size_allocate" gtk_widget_size_allocate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - IO () - - -widgetSizeAllocate :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Gdk.Rectangle -> -- allocation - m () -widgetSizeAllocate _obj allocation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allocation' = unsafeManagedPtrGetPtr allocation - gtk_widget_size_allocate _obj' allocation' - touchManagedPtr _obj - touchManagedPtr allocation - return () - --- method Widget::size_allocate_with_baseline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseline", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseline", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_size_allocate_with_baseline" gtk_widget_size_allocate_with_baseline :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - Int32 -> -- baseline : TBasicType TInt32 - IO () - - -widgetSizeAllocateWithBaseline :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Gdk.Rectangle -> -- allocation - Int32 -> -- baseline - m () -widgetSizeAllocateWithBaseline _obj allocation baseline = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allocation' = unsafeManagedPtrGetPtr allocation - gtk_widget_size_allocate_with_baseline _obj' allocation' baseline - touchManagedPtr _obj - touchManagedPtr allocation - return () - --- method Widget::size_request --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_size_request" gtk_widget_size_request :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" - IO () - -{-# DEPRECATED widgetSizeRequest ["(Since version 3.0)","Use gtk_widget_get_preferred_size() instead."]#-} -widgetSizeRequest :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Requisition) -widgetSizeRequest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_size_request _obj' requisition - requisition' <- (wrapBoxed Requisition) requisition - touchManagedPtr _obj - return requisition' - --- method Widget::style_attach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_style_attach" gtk_widget_style_attach :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED widgetStyleAttach ["(Since version 3.0)","This step is unnecessary with #GtkStyleContext."]#-} -widgetStyleAttach :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetStyleAttach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_style_attach _obj' - touchManagedPtr _obj - return () - --- method Widget::style_get_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_style_get_property" gtk_widget_style_get_property :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- property_name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -widgetStyleGetProperty :: - (MonadIO m, WidgetK a) => - a -> -- _obj - T.Text -> -- property_name - GValue -> -- value - m () -widgetStyleGetProperty _obj property_name value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property_name' <- textToCString property_name - let value' = unsafeManagedPtrGetPtr value - gtk_widget_style_get_property _obj' property_name' value' - touchManagedPtr _obj - touchManagedPtr value - freeMem property_name' - return () - --- method Widget::thaw_child_notify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_thaw_child_notify" gtk_widget_thaw_child_notify :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetThawChildNotify :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetThawChildNotify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_thaw_child_notify _obj' - touchManagedPtr _obj - return () - --- method Widget::translate_coordinates --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_translate_coordinates" gtk_widget_translate_coordinates :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- dest_widget : TInterface "Gtk" "Widget" - Int32 -> -- src_x : TBasicType TInt32 - Int32 -> -- src_y : TBasicType TInt32 - Ptr Int32 -> -- dest_x : TBasicType TInt32 - Ptr Int32 -> -- dest_y : TBasicType TInt32 - IO CInt - - -widgetTranslateCoordinates :: - (MonadIO m, WidgetK a, WidgetK b) => - a -> -- _obj - b -> -- dest_widget - Int32 -> -- src_x - Int32 -> -- src_y - m (Bool,Int32,Int32) -widgetTranslateCoordinates _obj dest_widget src_x src_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dest_widget' = unsafeManagedPtrCastPtr dest_widget - dest_x <- allocMem :: IO (Ptr Int32) - dest_y <- allocMem :: IO (Ptr Int32) - result <- gtk_widget_translate_coordinates _obj' dest_widget' src_x src_y dest_x dest_y - let result' = (/= 0) result - dest_x' <- peek dest_x - dest_y' <- peek dest_y - touchManagedPtr _obj - touchManagedPtr dest_widget - freeMem dest_x - freeMem dest_y - return (result', dest_x', dest_y') - --- method Widget::trigger_tooltip_query --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_trigger_tooltip_query" gtk_widget_trigger_tooltip_query :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetTriggerTooltipQuery :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetTriggerTooltipQuery _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_trigger_tooltip_query _obj' - touchManagedPtr _obj - return () - --- method Widget::unmap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unmap" gtk_widget_unmap :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetUnmap :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetUnmap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_unmap _obj' - touchManagedPtr _obj - return () - --- method Widget::unparent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unparent" gtk_widget_unparent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetUnparent :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetUnparent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_unparent _obj' - touchManagedPtr _obj - return () - --- method Widget::unrealize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unrealize" gtk_widget_unrealize :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetUnrealize :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetUnrealize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_unrealize _obj' - touchManagedPtr _obj - return () - --- method Widget::unregister_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unregister_window" gtk_widget_unregister_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - - -widgetUnregisterWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -> -- _obj - b -> -- window - m () -widgetUnregisterWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_widget_unregister_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - --- method Widget::unset_state_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unset_state_flags" gtk_widget_unset_state_flags :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- flags : TInterface "Gtk" "StateFlags" - IO () - - -widgetUnsetStateFlags :: - (MonadIO m, WidgetK a) => - a -> -- _obj - [StateFlags] -> -- flags - m () -widgetUnsetStateFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - gtk_widget_unset_state_flags _obj' flags' - touchManagedPtr _obj - return () - --- method Widget::get_default_direction --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Gtk" "TextDirection" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_default_direction" gtk_widget_get_default_direction :: - IO CUInt - - -widgetGetDefaultDirection :: - (MonadIO m) => - m TextDirection -widgetGetDefaultDirection = liftIO $ do - result <- gtk_widget_get_default_direction - let result' = (toEnum . fromIntegral) result - return result' - --- method Widget::get_default_style --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Gtk" "Style" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_default_style" gtk_widget_get_default_style :: - IO (Ptr Style) - -{-# DEPRECATED widgetGetDefaultStyle ["(Since version 3.0)","Use #GtkStyleContext instead, and"," gtk_css_provider_get_default() to obtain a #GtkStyleProvider"," with the default widget style information."]#-} -widgetGetDefaultStyle :: - (MonadIO m) => - m Style -widgetGetDefaultStyle = liftIO $ do - result <- gtk_widget_get_default_style - checkUnexpectedReturnNULL "gtk_widget_get_default_style" result - result' <- (newObject Style) result - return result' - --- method Widget::pop_composite_child --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_pop_composite_child" gtk_widget_pop_composite_child :: - IO () - -{-# DEPRECATED widgetPopCompositeChild ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} -widgetPopCompositeChild :: - (MonadIO m) => - m () -widgetPopCompositeChild = liftIO $ do - gtk_widget_pop_composite_child - return () - --- method Widget::push_composite_child --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_push_composite_child" gtk_widget_push_composite_child :: - IO () - -{-# DEPRECATED widgetPushCompositeChild ["(Since version 3.10)","This API never really worked well and was mostly unused, now","we have a more complete mechanism for composite children, see gtk_widget_class_set_template()."]#-} -widgetPushCompositeChild :: - (MonadIO m) => - m () -widgetPushCompositeChild = liftIO $ do - gtk_widget_push_composite_child - return () - --- method Widget::set_default_direction --- method type : MemberFunction --- Args : [Arg {argName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_default_direction" gtk_widget_set_default_direction :: - CUInt -> -- dir : TInterface "Gtk" "TextDirection" - IO () - - -widgetSetDefaultDirection :: - (MonadIO m) => - TextDirection -> -- dir - m () + +{- | +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.Objects.Widget + ( + +-- * Exported types + Widget(..) , + WidgetK , + toWidget , + noWidget , + + + -- * Methods +-- ** widgetActivate + WidgetActivateMethodInfo , + widgetActivate , + + +-- ** widgetAddAccelerator + WidgetAddAcceleratorMethodInfo , + widgetAddAccelerator , + + +-- ** widgetAddDeviceEvents + WidgetAddDeviceEventsMethodInfo , + widgetAddDeviceEvents , + + +-- ** widgetAddEvents + WidgetAddEventsMethodInfo , + widgetAddEvents , + + +-- ** widgetAddMnemonicLabel + WidgetAddMnemonicLabelMethodInfo , + widgetAddMnemonicLabel , + + +-- ** widgetAddTickCallback + WidgetAddTickCallbackMethodInfo , + widgetAddTickCallback , + + +-- ** widgetCanActivateAccel + WidgetCanActivateAccelMethodInfo , + widgetCanActivateAccel , + + +-- ** widgetChildFocus + WidgetChildFocusMethodInfo , + widgetChildFocus , + + +-- ** widgetChildNotify + WidgetChildNotifyMethodInfo , + widgetChildNotify , + + +-- ** widgetClassPath + WidgetClassPathMethodInfo , + widgetClassPath , + + +-- ** widgetComputeExpand + WidgetComputeExpandMethodInfo , + widgetComputeExpand , + + +-- ** widgetCreatePangoContext + WidgetCreatePangoContextMethodInfo , + widgetCreatePangoContext , + + +-- ** widgetCreatePangoLayout + WidgetCreatePangoLayoutMethodInfo , + widgetCreatePangoLayout , + + +-- ** widgetDestroy + WidgetDestroyMethodInfo , + widgetDestroy , + + +-- ** widgetDestroyed + WidgetDestroyedMethodInfo , + widgetDestroyed , + + +-- ** widgetDeviceIsShadowed + WidgetDeviceIsShadowedMethodInfo , + widgetDeviceIsShadowed , + + +-- ** widgetDragBegin + WidgetDragBeginMethodInfo , + widgetDragBegin , + + +-- ** widgetDragBeginWithCoordinates + WidgetDragBeginWithCoordinatesMethodInfo, + widgetDragBeginWithCoordinates , + + +-- ** widgetDragCheckThreshold + WidgetDragCheckThresholdMethodInfo , + widgetDragCheckThreshold , + + +-- ** widgetDragDestAddImageTargets + WidgetDragDestAddImageTargetsMethodInfo , + widgetDragDestAddImageTargets , + + +-- ** widgetDragDestAddTextTargets + WidgetDragDestAddTextTargetsMethodInfo , + widgetDragDestAddTextTargets , + + +-- ** widgetDragDestAddUriTargets + WidgetDragDestAddUriTargetsMethodInfo , + widgetDragDestAddUriTargets , + + +-- ** widgetDragDestFindTarget + WidgetDragDestFindTargetMethodInfo , + widgetDragDestFindTarget , + + +-- ** widgetDragDestGetTargetList + WidgetDragDestGetTargetListMethodInfo , + widgetDragDestGetTargetList , + + +-- ** widgetDragDestGetTrackMotion + WidgetDragDestGetTrackMotionMethodInfo , + widgetDragDestGetTrackMotion , + + +-- ** widgetDragDestSet + WidgetDragDestSetMethodInfo , + widgetDragDestSet , + + +-- ** widgetDragDestSetProxy + WidgetDragDestSetProxyMethodInfo , + widgetDragDestSetProxy , + + +-- ** widgetDragDestSetTargetList + WidgetDragDestSetTargetListMethodInfo , + widgetDragDestSetTargetList , + + +-- ** widgetDragDestSetTrackMotion + WidgetDragDestSetTrackMotionMethodInfo , + widgetDragDestSetTrackMotion , + + +-- ** widgetDragDestUnset + WidgetDragDestUnsetMethodInfo , + widgetDragDestUnset , + + +-- ** widgetDragGetData + WidgetDragGetDataMethodInfo , + widgetDragGetData , + + +-- ** widgetDragHighlight + WidgetDragHighlightMethodInfo , + widgetDragHighlight , + + +-- ** widgetDragSourceAddImageTargets + WidgetDragSourceAddImageTargetsMethodInfo, + widgetDragSourceAddImageTargets , + + +-- ** widgetDragSourceAddTextTargets + WidgetDragSourceAddTextTargetsMethodInfo, + widgetDragSourceAddTextTargets , + + +-- ** widgetDragSourceAddUriTargets + WidgetDragSourceAddUriTargetsMethodInfo , + widgetDragSourceAddUriTargets , + + +-- ** widgetDragSourceGetTargetList + WidgetDragSourceGetTargetListMethodInfo , + widgetDragSourceGetTargetList , + + +-- ** widgetDragSourceSet + WidgetDragSourceSetMethodInfo , + widgetDragSourceSet , + + +-- ** widgetDragSourceSetIconGicon + WidgetDragSourceSetIconGiconMethodInfo , + widgetDragSourceSetIconGicon , + + +-- ** widgetDragSourceSetIconName + WidgetDragSourceSetIconNameMethodInfo , + widgetDragSourceSetIconName , + + +-- ** widgetDragSourceSetIconPixbuf + WidgetDragSourceSetIconPixbufMethodInfo , + widgetDragSourceSetIconPixbuf , + + +-- ** widgetDragSourceSetIconStock + WidgetDragSourceSetIconStockMethodInfo , + widgetDragSourceSetIconStock , + + +-- ** widgetDragSourceSetTargetList + WidgetDragSourceSetTargetListMethodInfo , + widgetDragSourceSetTargetList , + + +-- ** widgetDragSourceUnset + WidgetDragSourceUnsetMethodInfo , + widgetDragSourceUnset , + + +-- ** widgetDragUnhighlight + WidgetDragUnhighlightMethodInfo , + widgetDragUnhighlight , + + +-- ** widgetDraw + WidgetDrawMethodInfo , + widgetDraw , + + +-- ** widgetEnsureStyle + WidgetEnsureStyleMethodInfo , + widgetEnsureStyle , + + +-- ** widgetErrorBell + WidgetErrorBellMethodInfo , + widgetErrorBell , + + +-- ** widgetEvent + WidgetEventMethodInfo , + widgetEvent , + + +-- ** widgetFreezeChildNotify + WidgetFreezeChildNotifyMethodInfo , + widgetFreezeChildNotify , + + +-- ** widgetGetAccessible + WidgetGetAccessibleMethodInfo , + widgetGetAccessible , + + +-- ** widgetGetActionGroup + WidgetGetActionGroupMethodInfo , + widgetGetActionGroup , + + +-- ** widgetGetAllocatedBaseline + WidgetGetAllocatedBaselineMethodInfo , + widgetGetAllocatedBaseline , + + +-- ** widgetGetAllocatedHeight + WidgetGetAllocatedHeightMethodInfo , + widgetGetAllocatedHeight , + + +-- ** widgetGetAllocatedWidth + WidgetGetAllocatedWidthMethodInfo , + widgetGetAllocatedWidth , + + +-- ** widgetGetAllocation + WidgetGetAllocationMethodInfo , + widgetGetAllocation , + + +-- ** widgetGetAncestor + WidgetGetAncestorMethodInfo , + widgetGetAncestor , + + +-- ** widgetGetAppPaintable + WidgetGetAppPaintableMethodInfo , + widgetGetAppPaintable , + + +-- ** widgetGetCanDefault + WidgetGetCanDefaultMethodInfo , + widgetGetCanDefault , + + +-- ** widgetGetCanFocus + WidgetGetCanFocusMethodInfo , + widgetGetCanFocus , + + +-- ** widgetGetChildRequisition + WidgetGetChildRequisitionMethodInfo , + widgetGetChildRequisition , + + +-- ** widgetGetChildVisible + WidgetGetChildVisibleMethodInfo , + widgetGetChildVisible , + + +-- ** widgetGetClip + WidgetGetClipMethodInfo , + widgetGetClip , + + +-- ** widgetGetClipboard + WidgetGetClipboardMethodInfo , + widgetGetClipboard , + + +-- ** widgetGetCompositeName + WidgetGetCompositeNameMethodInfo , + widgetGetCompositeName , + + +-- ** widgetGetDefaultDirection + widgetGetDefaultDirection , + + +-- ** widgetGetDefaultStyle + widgetGetDefaultStyle , + + +-- ** widgetGetDeviceEnabled + WidgetGetDeviceEnabledMethodInfo , + widgetGetDeviceEnabled , + + +-- ** widgetGetDeviceEvents + WidgetGetDeviceEventsMethodInfo , + widgetGetDeviceEvents , + + +-- ** widgetGetDirection + WidgetGetDirectionMethodInfo , + widgetGetDirection , + + +-- ** widgetGetDisplay + WidgetGetDisplayMethodInfo , + widgetGetDisplay , + + +-- ** widgetGetDoubleBuffered + WidgetGetDoubleBufferedMethodInfo , + widgetGetDoubleBuffered , + + +-- ** widgetGetEvents + WidgetGetEventsMethodInfo , + widgetGetEvents , + + +-- ** widgetGetFontMap + WidgetGetFontMapMethodInfo , + widgetGetFontMap , + + +-- ** widgetGetFontOptions + WidgetGetFontOptionsMethodInfo , + widgetGetFontOptions , + + +-- ** widgetGetFrameClock + WidgetGetFrameClockMethodInfo , + widgetGetFrameClock , + + +-- ** widgetGetHalign + WidgetGetHalignMethodInfo , + widgetGetHalign , + + +-- ** widgetGetHasTooltip + WidgetGetHasTooltipMethodInfo , + widgetGetHasTooltip , + + +-- ** widgetGetHasWindow + WidgetGetHasWindowMethodInfo , + widgetGetHasWindow , + + +-- ** widgetGetHexpand + WidgetGetHexpandMethodInfo , + widgetGetHexpand , + + +-- ** widgetGetHexpandSet + WidgetGetHexpandSetMethodInfo , + widgetGetHexpandSet , + + +-- ** widgetGetMapped + WidgetGetMappedMethodInfo , + widgetGetMapped , + + +-- ** widgetGetMarginBottom + WidgetGetMarginBottomMethodInfo , + widgetGetMarginBottom , + + +-- ** widgetGetMarginEnd + WidgetGetMarginEndMethodInfo , + widgetGetMarginEnd , + + +-- ** widgetGetMarginLeft + WidgetGetMarginLeftMethodInfo , + widgetGetMarginLeft , + + +-- ** widgetGetMarginRight + WidgetGetMarginRightMethodInfo , + widgetGetMarginRight , + + +-- ** widgetGetMarginStart + WidgetGetMarginStartMethodInfo , + widgetGetMarginStart , + + +-- ** widgetGetMarginTop + WidgetGetMarginTopMethodInfo , + widgetGetMarginTop , + + +-- ** widgetGetModifierMask + WidgetGetModifierMaskMethodInfo , + widgetGetModifierMask , + + +-- ** widgetGetModifierStyle + WidgetGetModifierStyleMethodInfo , + widgetGetModifierStyle , + + +-- ** widgetGetName + WidgetGetNameMethodInfo , + widgetGetName , + + +-- ** widgetGetNoShowAll + WidgetGetNoShowAllMethodInfo , + widgetGetNoShowAll , + + +-- ** widgetGetOpacity + WidgetGetOpacityMethodInfo , + widgetGetOpacity , + + +-- ** widgetGetPangoContext + WidgetGetPangoContextMethodInfo , + widgetGetPangoContext , + + +-- ** widgetGetParent + WidgetGetParentMethodInfo , + widgetGetParent , + + +-- ** widgetGetParentWindow + WidgetGetParentWindowMethodInfo , + widgetGetParentWindow , + + +-- ** widgetGetPath + WidgetGetPathMethodInfo , + widgetGetPath , + + +-- ** widgetGetPointer + WidgetGetPointerMethodInfo , + widgetGetPointer , + + +-- ** widgetGetPreferredHeight + WidgetGetPreferredHeightMethodInfo , + widgetGetPreferredHeight , + + +-- ** widgetGetPreferredHeightAndBaselineForWidth + WidgetGetPreferredHeightAndBaselineForWidthMethodInfo, + widgetGetPreferredHeightAndBaselineForWidth, + + +-- ** widgetGetPreferredHeightForWidth + WidgetGetPreferredHeightForWidthMethodInfo, + widgetGetPreferredHeightForWidth , + + +-- ** widgetGetPreferredSize + WidgetGetPreferredSizeMethodInfo , + widgetGetPreferredSize , + + +-- ** widgetGetPreferredWidth + WidgetGetPreferredWidthMethodInfo , + widgetGetPreferredWidth , + + +-- ** widgetGetPreferredWidthForHeight + WidgetGetPreferredWidthForHeightMethodInfo, + widgetGetPreferredWidthForHeight , + + +-- ** widgetGetRealized + WidgetGetRealizedMethodInfo , + widgetGetRealized , + + +-- ** widgetGetReceivesDefault + WidgetGetReceivesDefaultMethodInfo , + widgetGetReceivesDefault , + + +-- ** widgetGetRequestMode + WidgetGetRequestModeMethodInfo , + widgetGetRequestMode , + + +-- ** widgetGetRequisition + WidgetGetRequisitionMethodInfo , + widgetGetRequisition , + + +-- ** widgetGetRootWindow + WidgetGetRootWindowMethodInfo , + widgetGetRootWindow , + + +-- ** widgetGetScaleFactor + WidgetGetScaleFactorMethodInfo , + widgetGetScaleFactor , + + +-- ** widgetGetScreen + WidgetGetScreenMethodInfo , + widgetGetScreen , + + +-- ** widgetGetSensitive + WidgetGetSensitiveMethodInfo , + widgetGetSensitive , + + +-- ** widgetGetSettings + WidgetGetSettingsMethodInfo , + widgetGetSettings , + + +-- ** widgetGetSizeRequest + WidgetGetSizeRequestMethodInfo , + widgetGetSizeRequest , + + +-- ** widgetGetState + WidgetGetStateMethodInfo , + widgetGetState , + + +-- ** widgetGetStateFlags + WidgetGetStateFlagsMethodInfo , + widgetGetStateFlags , + + +-- ** widgetGetStyle + WidgetGetStyleMethodInfo , + widgetGetStyle , + + +-- ** widgetGetStyleContext + WidgetGetStyleContextMethodInfo , + widgetGetStyleContext , + + +-- ** widgetGetSupportMultidevice + WidgetGetSupportMultideviceMethodInfo , + widgetGetSupportMultidevice , + + +-- ** widgetGetTemplateChild + WidgetGetTemplateChildMethodInfo , + widgetGetTemplateChild , + + +-- ** widgetGetTooltipMarkup + WidgetGetTooltipMarkupMethodInfo , + widgetGetTooltipMarkup , + + +-- ** widgetGetTooltipText + WidgetGetTooltipTextMethodInfo , + widgetGetTooltipText , + + +-- ** widgetGetTooltipWindow + WidgetGetTooltipWindowMethodInfo , + widgetGetTooltipWindow , + + +-- ** widgetGetToplevel + WidgetGetToplevelMethodInfo , + widgetGetToplevel , + + +-- ** widgetGetValign + WidgetGetValignMethodInfo , + widgetGetValign , + + +-- ** widgetGetValignWithBaseline + WidgetGetValignWithBaselineMethodInfo , + widgetGetValignWithBaseline , + + +-- ** widgetGetVexpand + WidgetGetVexpandMethodInfo , + widgetGetVexpand , + + +-- ** widgetGetVexpandSet + WidgetGetVexpandSetMethodInfo , + widgetGetVexpandSet , + + +-- ** widgetGetVisible + WidgetGetVisibleMethodInfo , + widgetGetVisible , + + +-- ** widgetGetVisual + WidgetGetVisualMethodInfo , + widgetGetVisual , + + +-- ** widgetGetWindow + WidgetGetWindowMethodInfo , + widgetGetWindow , + + +-- ** widgetGrabAdd + WidgetGrabAddMethodInfo , + widgetGrabAdd , + + +-- ** widgetGrabDefault + WidgetGrabDefaultMethodInfo , + widgetGrabDefault , + + +-- ** widgetGrabFocus + WidgetGrabFocusMethodInfo , + widgetGrabFocus , + + +-- ** widgetGrabRemove + WidgetGrabRemoveMethodInfo , + widgetGrabRemove , + + +-- ** widgetHasDefault + WidgetHasDefaultMethodInfo , + widgetHasDefault , + + +-- ** widgetHasFocus + WidgetHasFocusMethodInfo , + widgetHasFocus , + + +-- ** widgetHasGrab + WidgetHasGrabMethodInfo , + widgetHasGrab , + + +-- ** widgetHasRcStyle + WidgetHasRcStyleMethodInfo , + widgetHasRcStyle , + + +-- ** widgetHasScreen + WidgetHasScreenMethodInfo , + widgetHasScreen , + + +-- ** widgetHasVisibleFocus + WidgetHasVisibleFocusMethodInfo , + widgetHasVisibleFocus , + + +-- ** widgetHide + WidgetHideMethodInfo , + widgetHide , + + +-- ** widgetHideOnDelete + WidgetHideOnDeleteMethodInfo , + widgetHideOnDelete , + + +-- ** widgetInDestruction + WidgetInDestructionMethodInfo , + widgetInDestruction , + + +-- ** widgetInitTemplate + WidgetInitTemplateMethodInfo , + widgetInitTemplate , + + +-- ** widgetInputShapeCombineRegion + WidgetInputShapeCombineRegionMethodInfo , + widgetInputShapeCombineRegion , + + +-- ** widgetInsertActionGroup + WidgetInsertActionGroupMethodInfo , + widgetInsertActionGroup , + + +-- ** widgetIntersect + WidgetIntersectMethodInfo , + widgetIntersect , + + +-- ** widgetIsAncestor + WidgetIsAncestorMethodInfo , + widgetIsAncestor , + + +-- ** widgetIsComposited + WidgetIsCompositedMethodInfo , + widgetIsComposited , + + +-- ** widgetIsDrawable + WidgetIsDrawableMethodInfo , + widgetIsDrawable , + + +-- ** widgetIsFocus + WidgetIsFocusMethodInfo , + widgetIsFocus , + + +-- ** widgetIsSensitive + WidgetIsSensitiveMethodInfo , + widgetIsSensitive , + + +-- ** widgetIsToplevel + WidgetIsToplevelMethodInfo , + widgetIsToplevel , + + +-- ** widgetIsVisible + WidgetIsVisibleMethodInfo , + widgetIsVisible , + + +-- ** widgetKeynavFailed + WidgetKeynavFailedMethodInfo , + widgetKeynavFailed , + + +-- ** widgetListAccelClosures + WidgetListAccelClosuresMethodInfo , + widgetListAccelClosures , + + +-- ** widgetListActionPrefixes + WidgetListActionPrefixesMethodInfo , + widgetListActionPrefixes , + + +-- ** widgetListMnemonicLabels + WidgetListMnemonicLabelsMethodInfo , + widgetListMnemonicLabels , + + +-- ** widgetMap + WidgetMapMethodInfo , + widgetMap , + + +-- ** widgetMnemonicActivate + WidgetMnemonicActivateMethodInfo , + widgetMnemonicActivate , + + +-- ** widgetModifyBase + WidgetModifyBaseMethodInfo , + widgetModifyBase , + + +-- ** widgetModifyBg + WidgetModifyBgMethodInfo , + widgetModifyBg , + + +-- ** widgetModifyCursor + WidgetModifyCursorMethodInfo , + widgetModifyCursor , + + +-- ** widgetModifyFg + WidgetModifyFgMethodInfo , + widgetModifyFg , + + +-- ** widgetModifyFont + WidgetModifyFontMethodInfo , + widgetModifyFont , + + +-- ** widgetModifyStyle + WidgetModifyStyleMethodInfo , + widgetModifyStyle , + + +-- ** widgetModifyText + WidgetModifyTextMethodInfo , + widgetModifyText , + + +-- ** widgetOverrideBackgroundColor + WidgetOverrideBackgroundColorMethodInfo , + widgetOverrideBackgroundColor , + + +-- ** widgetOverrideColor + WidgetOverrideColorMethodInfo , + widgetOverrideColor , + + +-- ** widgetOverrideCursor + WidgetOverrideCursorMethodInfo , + widgetOverrideCursor , + + +-- ** widgetOverrideFont + WidgetOverrideFontMethodInfo , + widgetOverrideFont , + + +-- ** widgetOverrideSymbolicColor + WidgetOverrideSymbolicColorMethodInfo , + widgetOverrideSymbolicColor , + + +-- ** widgetPath + WidgetPathMethodInfo , + widgetPath , + + +-- ** widgetPopCompositeChild + widgetPopCompositeChild , + + +-- ** widgetPushCompositeChild + widgetPushCompositeChild , + + +-- ** widgetQueueComputeExpand + WidgetQueueComputeExpandMethodInfo , + widgetQueueComputeExpand , + + +-- ** widgetQueueDraw + WidgetQueueDrawMethodInfo , + widgetQueueDraw , + + +-- ** widgetQueueDrawArea + WidgetQueueDrawAreaMethodInfo , + widgetQueueDrawArea , + + +-- ** widgetQueueDrawRegion + WidgetQueueDrawRegionMethodInfo , + widgetQueueDrawRegion , + + +-- ** widgetQueueResize + WidgetQueueResizeMethodInfo , + widgetQueueResize , + + +-- ** widgetQueueResizeNoRedraw + WidgetQueueResizeNoRedrawMethodInfo , + widgetQueueResizeNoRedraw , + + +-- ** widgetRealize + WidgetRealizeMethodInfo , + widgetRealize , + + +-- ** widgetRegionIntersect + WidgetRegionIntersectMethodInfo , + widgetRegionIntersect , + + +-- ** widgetRegisterWindow + WidgetRegisterWindowMethodInfo , + widgetRegisterWindow , + + +-- ** widgetRemoveAccelerator + WidgetRemoveAcceleratorMethodInfo , + widgetRemoveAccelerator , + + +-- ** widgetRemoveMnemonicLabel + WidgetRemoveMnemonicLabelMethodInfo , + widgetRemoveMnemonicLabel , + + +-- ** widgetRemoveTickCallback + WidgetRemoveTickCallbackMethodInfo , + widgetRemoveTickCallback , + + +-- ** widgetRenderIcon + WidgetRenderIconMethodInfo , + widgetRenderIcon , + + +-- ** widgetRenderIconPixbuf + WidgetRenderIconPixbufMethodInfo , + widgetRenderIconPixbuf , + + +-- ** widgetReparent + WidgetReparentMethodInfo , + widgetReparent , + + +-- ** widgetResetRcStyles + WidgetResetRcStylesMethodInfo , + widgetResetRcStyles , + + +-- ** widgetResetStyle + WidgetResetStyleMethodInfo , + widgetResetStyle , + + +-- ** widgetSendExpose + WidgetSendExposeMethodInfo , + widgetSendExpose , + + +-- ** widgetSendFocusChange + WidgetSendFocusChangeMethodInfo , + widgetSendFocusChange , + + +-- ** widgetSetAccelPath + WidgetSetAccelPathMethodInfo , + widgetSetAccelPath , + + +-- ** widgetSetAllocation + WidgetSetAllocationMethodInfo , + widgetSetAllocation , + + +-- ** widgetSetAppPaintable + WidgetSetAppPaintableMethodInfo , + widgetSetAppPaintable , + + +-- ** widgetSetCanDefault + WidgetSetCanDefaultMethodInfo , + widgetSetCanDefault , + + +-- ** widgetSetCanFocus + WidgetSetCanFocusMethodInfo , + widgetSetCanFocus , + + +-- ** widgetSetChildVisible + WidgetSetChildVisibleMethodInfo , + widgetSetChildVisible , + + +-- ** widgetSetClip + WidgetSetClipMethodInfo , + widgetSetClip , + + +-- ** widgetSetCompositeName + WidgetSetCompositeNameMethodInfo , + widgetSetCompositeName , + + +-- ** widgetSetDefaultDirection + widgetSetDefaultDirection , + + +-- ** widgetSetDeviceEnabled + WidgetSetDeviceEnabledMethodInfo , + widgetSetDeviceEnabled , + + +-- ** widgetSetDeviceEvents + WidgetSetDeviceEventsMethodInfo , + widgetSetDeviceEvents , + + +-- ** widgetSetDirection + WidgetSetDirectionMethodInfo , + widgetSetDirection , + + +-- ** widgetSetDoubleBuffered + WidgetSetDoubleBufferedMethodInfo , + widgetSetDoubleBuffered , + + +-- ** widgetSetEvents + WidgetSetEventsMethodInfo , + widgetSetEvents , + + +-- ** widgetSetFontMap + WidgetSetFontMapMethodInfo , + widgetSetFontMap , + + +-- ** widgetSetFontOptions + WidgetSetFontOptionsMethodInfo , + widgetSetFontOptions , + + +-- ** widgetSetHalign + WidgetSetHalignMethodInfo , + widgetSetHalign , + + +-- ** widgetSetHasTooltip + WidgetSetHasTooltipMethodInfo , + widgetSetHasTooltip , + + +-- ** widgetSetHasWindow + WidgetSetHasWindowMethodInfo , + widgetSetHasWindow , + + +-- ** widgetSetHexpand + WidgetSetHexpandMethodInfo , + widgetSetHexpand , + + +-- ** widgetSetHexpandSet + WidgetSetHexpandSetMethodInfo , + widgetSetHexpandSet , + + +-- ** widgetSetMapped + WidgetSetMappedMethodInfo , + widgetSetMapped , + + +-- ** widgetSetMarginBottom + WidgetSetMarginBottomMethodInfo , + widgetSetMarginBottom , + + +-- ** widgetSetMarginEnd + WidgetSetMarginEndMethodInfo , + widgetSetMarginEnd , + + +-- ** widgetSetMarginLeft + WidgetSetMarginLeftMethodInfo , + widgetSetMarginLeft , + + +-- ** widgetSetMarginRight + WidgetSetMarginRightMethodInfo , + widgetSetMarginRight , + + +-- ** widgetSetMarginStart + WidgetSetMarginStartMethodInfo , + widgetSetMarginStart , + + +-- ** widgetSetMarginTop + WidgetSetMarginTopMethodInfo , + widgetSetMarginTop , + + +-- ** widgetSetName + WidgetSetNameMethodInfo , + widgetSetName , + + +-- ** widgetSetNoShowAll + WidgetSetNoShowAllMethodInfo , + widgetSetNoShowAll , + + +-- ** widgetSetOpacity + WidgetSetOpacityMethodInfo , + widgetSetOpacity , + + +-- ** widgetSetParent + WidgetSetParentMethodInfo , + widgetSetParent , + + +-- ** widgetSetParentWindow + WidgetSetParentWindowMethodInfo , + widgetSetParentWindow , + + +-- ** widgetSetRealized + WidgetSetRealizedMethodInfo , + widgetSetRealized , + + +-- ** widgetSetReceivesDefault + WidgetSetReceivesDefaultMethodInfo , + widgetSetReceivesDefault , + + +-- ** widgetSetRedrawOnAllocate + WidgetSetRedrawOnAllocateMethodInfo , + widgetSetRedrawOnAllocate , + + +-- ** widgetSetSensitive + WidgetSetSensitiveMethodInfo , + widgetSetSensitive , + + +-- ** widgetSetSizeRequest + WidgetSetSizeRequestMethodInfo , + widgetSetSizeRequest , + + +-- ** widgetSetState + WidgetSetStateMethodInfo , + widgetSetState , + + +-- ** widgetSetStateFlags + WidgetSetStateFlagsMethodInfo , + widgetSetStateFlags , + + +-- ** widgetSetStyle + WidgetSetStyleMethodInfo , + widgetSetStyle , + + +-- ** widgetSetSupportMultidevice + WidgetSetSupportMultideviceMethodInfo , + widgetSetSupportMultidevice , + + +-- ** widgetSetTooltipMarkup + WidgetSetTooltipMarkupMethodInfo , + widgetSetTooltipMarkup , + + +-- ** widgetSetTooltipText + WidgetSetTooltipTextMethodInfo , + widgetSetTooltipText , + + +-- ** widgetSetTooltipWindow + WidgetSetTooltipWindowMethodInfo , + widgetSetTooltipWindow , + + +-- ** widgetSetValign + WidgetSetValignMethodInfo , + widgetSetValign , + + +-- ** widgetSetVexpand + WidgetSetVexpandMethodInfo , + widgetSetVexpand , + + +-- ** widgetSetVexpandSet + WidgetSetVexpandSetMethodInfo , + widgetSetVexpandSet , + + +-- ** widgetSetVisible + WidgetSetVisibleMethodInfo , + widgetSetVisible , + + +-- ** widgetSetVisual + WidgetSetVisualMethodInfo , + widgetSetVisual , + + +-- ** widgetSetWindow + WidgetSetWindowMethodInfo , + widgetSetWindow , + + +-- ** widgetShapeCombineRegion + WidgetShapeCombineRegionMethodInfo , + widgetShapeCombineRegion , + + +-- ** widgetShow + WidgetShowMethodInfo , + widgetShow , + + +-- ** widgetShowAll + WidgetShowAllMethodInfo , + widgetShowAll , + + +-- ** widgetShowNow + WidgetShowNowMethodInfo , + widgetShowNow , + + +-- ** widgetSizeAllocate + WidgetSizeAllocateMethodInfo , + widgetSizeAllocate , + + +-- ** widgetSizeAllocateWithBaseline + WidgetSizeAllocateWithBaselineMethodInfo, + widgetSizeAllocateWithBaseline , + + +-- ** widgetSizeRequest + WidgetSizeRequestMethodInfo , + widgetSizeRequest , + + +-- ** widgetStyleAttach + WidgetStyleAttachMethodInfo , + widgetStyleAttach , + + +-- ** widgetStyleGetProperty + WidgetStyleGetPropertyMethodInfo , + widgetStyleGetProperty , + + +-- ** widgetThawChildNotify + WidgetThawChildNotifyMethodInfo , + widgetThawChildNotify , + + +-- ** widgetTranslateCoordinates + WidgetTranslateCoordinatesMethodInfo , + widgetTranslateCoordinates , + + +-- ** widgetTriggerTooltipQuery + WidgetTriggerTooltipQueryMethodInfo , + widgetTriggerTooltipQuery , + + +-- ** widgetUnmap + WidgetUnmapMethodInfo , + widgetUnmap , + + +-- ** widgetUnparent + WidgetUnparentMethodInfo , + widgetUnparent , + + +-- ** widgetUnrealize + WidgetUnrealizeMethodInfo , + widgetUnrealize , + + +-- ** widgetUnregisterWindow + WidgetUnregisterWindowMethodInfo , + widgetUnregisterWindow , + + +-- ** widgetUnsetStateFlags + WidgetUnsetStateFlagsMethodInfo , + widgetUnsetStateFlags , + + + + + -- * Properties +-- ** AppPaintable + WidgetAppPaintablePropertyInfo , + constructWidgetAppPaintable , + getWidgetAppPaintable , + setWidgetAppPaintable , + + +-- ** CanDefault + WidgetCanDefaultPropertyInfo , + constructWidgetCanDefault , + getWidgetCanDefault , + setWidgetCanDefault , + + +-- ** CanFocus + WidgetCanFocusPropertyInfo , + constructWidgetCanFocus , + getWidgetCanFocus , + setWidgetCanFocus , + + +-- ** CompositeChild + WidgetCompositeChildPropertyInfo , + getWidgetCompositeChild , + + +-- ** DoubleBuffered + WidgetDoubleBufferedPropertyInfo , + constructWidgetDoubleBuffered , + getWidgetDoubleBuffered , + setWidgetDoubleBuffered , + + +-- ** Events + WidgetEventsPropertyInfo , + constructWidgetEvents , + getWidgetEvents , + setWidgetEvents , + + +-- ** Expand + WidgetExpandPropertyInfo , + constructWidgetExpand , + getWidgetExpand , + setWidgetExpand , + + +-- ** Halign + WidgetHalignPropertyInfo , + constructWidgetHalign , + getWidgetHalign , + setWidgetHalign , + + +-- ** HasDefault + WidgetHasDefaultPropertyInfo , + constructWidgetHasDefault , + getWidgetHasDefault , + setWidgetHasDefault , + + +-- ** HasFocus + WidgetHasFocusPropertyInfo , + constructWidgetHasFocus , + getWidgetHasFocus , + setWidgetHasFocus , + + +-- ** HasTooltip + WidgetHasTooltipPropertyInfo , + constructWidgetHasTooltip , + getWidgetHasTooltip , + setWidgetHasTooltip , + + +-- ** HeightRequest + WidgetHeightRequestPropertyInfo , + constructWidgetHeightRequest , + getWidgetHeightRequest , + setWidgetHeightRequest , + + +-- ** Hexpand + WidgetHexpandPropertyInfo , + constructWidgetHexpand , + getWidgetHexpand , + setWidgetHexpand , + + +-- ** HexpandSet + WidgetHexpandSetPropertyInfo , + constructWidgetHexpandSet , + getWidgetHexpandSet , + setWidgetHexpandSet , + + +-- ** IsFocus + WidgetIsFocusPropertyInfo , + constructWidgetIsFocus , + getWidgetIsFocus , + setWidgetIsFocus , + + +-- ** Margin + WidgetMarginPropertyInfo , + constructWidgetMargin , + getWidgetMargin , + setWidgetMargin , + + +-- ** MarginBottom + WidgetMarginBottomPropertyInfo , + constructWidgetMarginBottom , + getWidgetMarginBottom , + setWidgetMarginBottom , + + +-- ** MarginEnd + WidgetMarginEndPropertyInfo , + constructWidgetMarginEnd , + getWidgetMarginEnd , + setWidgetMarginEnd , + + +-- ** MarginLeft + WidgetMarginLeftPropertyInfo , + constructWidgetMarginLeft , + getWidgetMarginLeft , + setWidgetMarginLeft , + + +-- ** MarginRight + WidgetMarginRightPropertyInfo , + constructWidgetMarginRight , + getWidgetMarginRight , + setWidgetMarginRight , + + +-- ** MarginStart + WidgetMarginStartPropertyInfo , + constructWidgetMarginStart , + getWidgetMarginStart , + setWidgetMarginStart , + + +-- ** MarginTop + WidgetMarginTopPropertyInfo , + constructWidgetMarginTop , + getWidgetMarginTop , + setWidgetMarginTop , + + +-- ** Name + WidgetNamePropertyInfo , + constructWidgetName , + getWidgetName , + setWidgetName , + + +-- ** NoShowAll + WidgetNoShowAllPropertyInfo , + constructWidgetNoShowAll , + getWidgetNoShowAll , + setWidgetNoShowAll , + + +-- ** Opacity + WidgetOpacityPropertyInfo , + constructWidgetOpacity , + getWidgetOpacity , + setWidgetOpacity , + + +-- ** Parent + WidgetParentPropertyInfo , + constructWidgetParent , + getWidgetParent , + setWidgetParent , + + +-- ** ReceivesDefault + WidgetReceivesDefaultPropertyInfo , + constructWidgetReceivesDefault , + getWidgetReceivesDefault , + setWidgetReceivesDefault , + + +-- ** ScaleFactor + WidgetScaleFactorPropertyInfo , + getWidgetScaleFactor , + + +-- ** Sensitive + WidgetSensitivePropertyInfo , + constructWidgetSensitive , + getWidgetSensitive , + setWidgetSensitive , + + +-- ** Style + WidgetStylePropertyInfo , + constructWidgetStyle , + getWidgetStyle , + setWidgetStyle , + + +-- ** TooltipMarkup + WidgetTooltipMarkupPropertyInfo , + constructWidgetTooltipMarkup , + getWidgetTooltipMarkup , + setWidgetTooltipMarkup , + + +-- ** TooltipText + WidgetTooltipTextPropertyInfo , + constructWidgetTooltipText , + getWidgetTooltipText , + setWidgetTooltipText , + + +-- ** Valign + WidgetValignPropertyInfo , + constructWidgetValign , + getWidgetValign , + setWidgetValign , + + +-- ** Vexpand + WidgetVexpandPropertyInfo , + constructWidgetVexpand , + getWidgetVexpand , + setWidgetVexpand , + + +-- ** VexpandSet + WidgetVexpandSetPropertyInfo , + constructWidgetVexpandSet , + getWidgetVexpandSet , + setWidgetVexpandSet , + + +-- ** Visible + WidgetVisiblePropertyInfo , + constructWidgetVisible , + getWidgetVisible , + setWidgetVisible , + + +-- ** WidthRequest + WidgetWidthRequestPropertyInfo , + constructWidgetWidthRequest , + getWidgetWidthRequest , + setWidgetWidthRequest , + + +-- ** Window + WidgetWindowPropertyInfo , + getWidgetWindow , + + + + + -- * Signals +-- ** AccelClosuresChanged + WidgetAccelClosuresChangedCallback , + WidgetAccelClosuresChangedCallbackC , + WidgetAccelClosuresChangedSignalInfo , + afterWidgetAccelClosuresChanged , + mkWidgetAccelClosuresChangedCallback , + noWidgetAccelClosuresChangedCallback , + onWidgetAccelClosuresChanged , + widgetAccelClosuresChangedCallbackWrapper, + widgetAccelClosuresChangedClosure , + + +-- ** ButtonPressEvent + WidgetButtonPressEventCallback , + WidgetButtonPressEventCallbackC , + WidgetButtonPressEventSignalInfo , + afterWidgetButtonPressEvent , + mkWidgetButtonPressEventCallback , + noWidgetButtonPressEventCallback , + onWidgetButtonPressEvent , + widgetButtonPressEventCallbackWrapper , + widgetButtonPressEventClosure , + + +-- ** ButtonReleaseEvent + WidgetButtonReleaseEventCallback , + WidgetButtonReleaseEventCallbackC , + WidgetButtonReleaseEventSignalInfo , + afterWidgetButtonReleaseEvent , + mkWidgetButtonReleaseEventCallback , + noWidgetButtonReleaseEventCallback , + onWidgetButtonReleaseEvent , + widgetButtonReleaseEventCallbackWrapper , + widgetButtonReleaseEventClosure , + + +-- ** CanActivateAccel + WidgetCanActivateAccelCallback , + WidgetCanActivateAccelCallbackC , + WidgetCanActivateAccelSignalInfo , + afterWidgetCanActivateAccel , + mkWidgetCanActivateAccelCallback , + noWidgetCanActivateAccelCallback , + onWidgetCanActivateAccel , + widgetCanActivateAccelCallbackWrapper , + widgetCanActivateAccelClosure , + + +-- ** ChildNotify + WidgetChildNotifyCallback , + WidgetChildNotifyCallbackC , + WidgetChildNotifySignalInfo , + afterWidgetChildNotify , + mkWidgetChildNotifyCallback , + noWidgetChildNotifyCallback , + onWidgetChildNotify , + widgetChildNotifyCallbackWrapper , + widgetChildNotifyClosure , + + +-- ** CompositedChanged + WidgetCompositedChangedCallback , + WidgetCompositedChangedCallbackC , + WidgetCompositedChangedSignalInfo , + afterWidgetCompositedChanged , + mkWidgetCompositedChangedCallback , + noWidgetCompositedChangedCallback , + onWidgetCompositedChanged , + widgetCompositedChangedCallbackWrapper , + widgetCompositedChangedClosure , + + +-- ** ConfigureEvent + WidgetConfigureEventCallback , + WidgetConfigureEventCallbackC , + WidgetConfigureEventSignalInfo , + afterWidgetConfigureEvent , + mkWidgetConfigureEventCallback , + noWidgetConfigureEventCallback , + onWidgetConfigureEvent , + widgetConfigureEventCallbackWrapper , + widgetConfigureEventClosure , + + +-- ** DamageEvent + WidgetDamageEventCallback , + WidgetDamageEventCallbackC , + WidgetDamageEventSignalInfo , + afterWidgetDamageEvent , + mkWidgetDamageEventCallback , + noWidgetDamageEventCallback , + onWidgetDamageEvent , + widgetDamageEventCallbackWrapper , + widgetDamageEventClosure , + + +-- ** DeleteEvent + WidgetDeleteEventCallback , + WidgetDeleteEventCallbackC , + WidgetDeleteEventSignalInfo , + afterWidgetDeleteEvent , + mkWidgetDeleteEventCallback , + noWidgetDeleteEventCallback , + onWidgetDeleteEvent , + widgetDeleteEventCallbackWrapper , + widgetDeleteEventClosure , + + +-- ** Destroy + WidgetDestroyCallback , + WidgetDestroyCallbackC , + WidgetDestroySignalInfo , + afterWidgetDestroy , + mkWidgetDestroyCallback , + noWidgetDestroyCallback , + onWidgetDestroy , + widgetDestroyCallbackWrapper , + widgetDestroyClosure , + + +-- ** DestroyEvent + WidgetDestroyEventCallback , + WidgetDestroyEventCallbackC , + WidgetDestroyEventSignalInfo , + afterWidgetDestroyEvent , + mkWidgetDestroyEventCallback , + noWidgetDestroyEventCallback , + onWidgetDestroyEvent , + widgetDestroyEventCallbackWrapper , + widgetDestroyEventClosure , + + +-- ** DirectionChanged + WidgetDirectionChangedCallback , + WidgetDirectionChangedCallbackC , + WidgetDirectionChangedSignalInfo , + afterWidgetDirectionChanged , + mkWidgetDirectionChangedCallback , + noWidgetDirectionChangedCallback , + onWidgetDirectionChanged , + widgetDirectionChangedCallbackWrapper , + widgetDirectionChangedClosure , + + +-- ** DragBegin + WidgetDragBeginCallback , + WidgetDragBeginCallbackC , + WidgetDragBeginSignalInfo , + afterWidgetDragBegin , + mkWidgetDragBeginCallback , + noWidgetDragBeginCallback , + onWidgetDragBegin , + widgetDragBeginCallbackWrapper , + widgetDragBeginClosure , + + +-- ** DragDataDelete + WidgetDragDataDeleteCallback , + WidgetDragDataDeleteCallbackC , + WidgetDragDataDeleteSignalInfo , + afterWidgetDragDataDelete , + mkWidgetDragDataDeleteCallback , + noWidgetDragDataDeleteCallback , + onWidgetDragDataDelete , + widgetDragDataDeleteCallbackWrapper , + widgetDragDataDeleteClosure , + + +-- ** DragDataGet + WidgetDragDataGetCallback , + WidgetDragDataGetCallbackC , + WidgetDragDataGetSignalInfo , + afterWidgetDragDataGet , + mkWidgetDragDataGetCallback , + noWidgetDragDataGetCallback , + onWidgetDragDataGet , + widgetDragDataGetCallbackWrapper , + widgetDragDataGetClosure , + + +-- ** DragDataReceived + WidgetDragDataReceivedCallback , + WidgetDragDataReceivedCallbackC , + WidgetDragDataReceivedSignalInfo , + afterWidgetDragDataReceived , + mkWidgetDragDataReceivedCallback , + noWidgetDragDataReceivedCallback , + onWidgetDragDataReceived , + widgetDragDataReceivedCallbackWrapper , + widgetDragDataReceivedClosure , + + +-- ** DragDrop + WidgetDragDropCallback , + WidgetDragDropCallbackC , + WidgetDragDropSignalInfo , + afterWidgetDragDrop , + mkWidgetDragDropCallback , + noWidgetDragDropCallback , + onWidgetDragDrop , + widgetDragDropCallbackWrapper , + widgetDragDropClosure , + + +-- ** DragEnd + WidgetDragEndCallback , + WidgetDragEndCallbackC , + WidgetDragEndSignalInfo , + afterWidgetDragEnd , + mkWidgetDragEndCallback , + noWidgetDragEndCallback , + onWidgetDragEnd , + widgetDragEndCallbackWrapper , + widgetDragEndClosure , + + +-- ** DragFailed + WidgetDragFailedCallback , + WidgetDragFailedCallbackC , + WidgetDragFailedSignalInfo , + afterWidgetDragFailed , + mkWidgetDragFailedCallback , + noWidgetDragFailedCallback , + onWidgetDragFailed , + widgetDragFailedCallbackWrapper , + widgetDragFailedClosure , + + +-- ** DragLeave + WidgetDragLeaveCallback , + WidgetDragLeaveCallbackC , + WidgetDragLeaveSignalInfo , + afterWidgetDragLeave , + mkWidgetDragLeaveCallback , + noWidgetDragLeaveCallback , + onWidgetDragLeave , + widgetDragLeaveCallbackWrapper , + widgetDragLeaveClosure , + + +-- ** DragMotion + WidgetDragMotionCallback , + WidgetDragMotionCallbackC , + WidgetDragMotionSignalInfo , + afterWidgetDragMotion , + mkWidgetDragMotionCallback , + noWidgetDragMotionCallback , + onWidgetDragMotion , + widgetDragMotionCallbackWrapper , + widgetDragMotionClosure , + + +-- ** Draw + WidgetDrawCallback , + WidgetDrawCallbackC , + WidgetDrawSignalInfo , + afterWidgetDraw , + mkWidgetDrawCallback , + noWidgetDrawCallback , + onWidgetDraw , + widgetDrawCallbackWrapper , + widgetDrawClosure , + + +-- ** EnterNotifyEvent + WidgetEnterNotifyEventCallback , + WidgetEnterNotifyEventCallbackC , + WidgetEnterNotifyEventSignalInfo , + afterWidgetEnterNotifyEvent , + mkWidgetEnterNotifyEventCallback , + noWidgetEnterNotifyEventCallback , + onWidgetEnterNotifyEvent , + widgetEnterNotifyEventCallbackWrapper , + widgetEnterNotifyEventClosure , + + +-- ** Event + WidgetEventCallback , + WidgetEventCallbackC , + WidgetEventSignalInfo , + afterWidgetEvent , + mkWidgetEventCallback , + noWidgetEventCallback , + onWidgetEvent , + widgetEventCallbackWrapper , + widgetEventClosure , + + +-- ** EventAfter + WidgetEventAfterCallback , + WidgetEventAfterCallbackC , + WidgetEventAfterSignalInfo , + afterWidgetEventAfter , + mkWidgetEventAfterCallback , + noWidgetEventAfterCallback , + onWidgetEventAfter , + widgetEventAfterCallbackWrapper , + widgetEventAfterClosure , + + +-- ** Focus + WidgetFocusCallback , + WidgetFocusCallbackC , + WidgetFocusSignalInfo , + afterWidgetFocus , + mkWidgetFocusCallback , + noWidgetFocusCallback , + onWidgetFocus , + widgetFocusCallbackWrapper , + widgetFocusClosure , + + +-- ** FocusInEvent + WidgetFocusInEventCallback , + WidgetFocusInEventCallbackC , + WidgetFocusInEventSignalInfo , + afterWidgetFocusInEvent , + mkWidgetFocusInEventCallback , + noWidgetFocusInEventCallback , + onWidgetFocusInEvent , + widgetFocusInEventCallbackWrapper , + widgetFocusInEventClosure , + + +-- ** FocusOutEvent + WidgetFocusOutEventCallback , + WidgetFocusOutEventCallbackC , + WidgetFocusOutEventSignalInfo , + afterWidgetFocusOutEvent , + mkWidgetFocusOutEventCallback , + noWidgetFocusOutEventCallback , + onWidgetFocusOutEvent , + widgetFocusOutEventCallbackWrapper , + widgetFocusOutEventClosure , + + +-- ** GrabBrokenEvent + WidgetGrabBrokenEventCallback , + WidgetGrabBrokenEventCallbackC , + WidgetGrabBrokenEventSignalInfo , + afterWidgetGrabBrokenEvent , + mkWidgetGrabBrokenEventCallback , + noWidgetGrabBrokenEventCallback , + onWidgetGrabBrokenEvent , + widgetGrabBrokenEventCallbackWrapper , + widgetGrabBrokenEventClosure , + + +-- ** GrabFocus + WidgetGrabFocusCallback , + WidgetGrabFocusCallbackC , + WidgetGrabFocusSignalInfo , + afterWidgetGrabFocus , + mkWidgetGrabFocusCallback , + noWidgetGrabFocusCallback , + onWidgetGrabFocus , + widgetGrabFocusCallbackWrapper , + widgetGrabFocusClosure , + + +-- ** GrabNotify + WidgetGrabNotifyCallback , + WidgetGrabNotifyCallbackC , + WidgetGrabNotifySignalInfo , + afterWidgetGrabNotify , + mkWidgetGrabNotifyCallback , + noWidgetGrabNotifyCallback , + onWidgetGrabNotify , + widgetGrabNotifyCallbackWrapper , + widgetGrabNotifyClosure , + + +-- ** Hide + WidgetHideCallback , + WidgetHideCallbackC , + WidgetHideSignalInfo , + afterWidgetHide , + mkWidgetHideCallback , + noWidgetHideCallback , + onWidgetHide , + widgetHideCallbackWrapper , + widgetHideClosure , + + +-- ** HierarchyChanged + WidgetHierarchyChangedCallback , + WidgetHierarchyChangedCallbackC , + WidgetHierarchyChangedSignalInfo , + afterWidgetHierarchyChanged , + mkWidgetHierarchyChangedCallback , + noWidgetHierarchyChangedCallback , + onWidgetHierarchyChanged , + widgetHierarchyChangedCallbackWrapper , + widgetHierarchyChangedClosure , + + +-- ** KeyPressEvent + WidgetKeyPressEventCallback , + WidgetKeyPressEventCallbackC , + WidgetKeyPressEventSignalInfo , + afterWidgetKeyPressEvent , + mkWidgetKeyPressEventCallback , + noWidgetKeyPressEventCallback , + onWidgetKeyPressEvent , + widgetKeyPressEventCallbackWrapper , + widgetKeyPressEventClosure , + + +-- ** KeyReleaseEvent + WidgetKeyReleaseEventCallback , + WidgetKeyReleaseEventCallbackC , + WidgetKeyReleaseEventSignalInfo , + afterWidgetKeyReleaseEvent , + mkWidgetKeyReleaseEventCallback , + noWidgetKeyReleaseEventCallback , + onWidgetKeyReleaseEvent , + widgetKeyReleaseEventCallbackWrapper , + widgetKeyReleaseEventClosure , + + +-- ** KeynavFailed + WidgetKeynavFailedCallback , + WidgetKeynavFailedCallbackC , + WidgetKeynavFailedSignalInfo , + afterWidgetKeynavFailed , + mkWidgetKeynavFailedCallback , + noWidgetKeynavFailedCallback , + onWidgetKeynavFailed , + widgetKeynavFailedCallbackWrapper , + widgetKeynavFailedClosure , + + +-- ** LeaveNotifyEvent + WidgetLeaveNotifyEventCallback , + WidgetLeaveNotifyEventCallbackC , + WidgetLeaveNotifyEventSignalInfo , + afterWidgetLeaveNotifyEvent , + mkWidgetLeaveNotifyEventCallback , + noWidgetLeaveNotifyEventCallback , + onWidgetLeaveNotifyEvent , + widgetLeaveNotifyEventCallbackWrapper , + widgetLeaveNotifyEventClosure , + + +-- ** Map + WidgetMapCallback , + WidgetMapCallbackC , + WidgetMapSignalInfo , + afterWidgetMap , + mkWidgetMapCallback , + noWidgetMapCallback , + onWidgetMap , + widgetMapCallbackWrapper , + widgetMapClosure , + + +-- ** MapEvent + WidgetMapEventCallback , + WidgetMapEventCallbackC , + WidgetMapEventSignalInfo , + afterWidgetMapEvent , + mkWidgetMapEventCallback , + noWidgetMapEventCallback , + onWidgetMapEvent , + widgetMapEventCallbackWrapper , + widgetMapEventClosure , + + +-- ** MnemonicActivate + WidgetMnemonicActivateCallback , + WidgetMnemonicActivateCallbackC , + WidgetMnemonicActivateSignalInfo , + afterWidgetMnemonicActivate , + mkWidgetMnemonicActivateCallback , + noWidgetMnemonicActivateCallback , + onWidgetMnemonicActivate , + widgetMnemonicActivateCallbackWrapper , + widgetMnemonicActivateClosure , + + +-- ** MotionNotifyEvent + WidgetMotionNotifyEventCallback , + WidgetMotionNotifyEventCallbackC , + WidgetMotionNotifyEventSignalInfo , + afterWidgetMotionNotifyEvent , + mkWidgetMotionNotifyEventCallback , + noWidgetMotionNotifyEventCallback , + onWidgetMotionNotifyEvent , + widgetMotionNotifyEventCallbackWrapper , + widgetMotionNotifyEventClosure , + + +-- ** MoveFocus + WidgetMoveFocusCallback , + WidgetMoveFocusCallbackC , + WidgetMoveFocusSignalInfo , + afterWidgetMoveFocus , + mkWidgetMoveFocusCallback , + noWidgetMoveFocusCallback , + onWidgetMoveFocus , + widgetMoveFocusCallbackWrapper , + widgetMoveFocusClosure , + + +-- ** ParentSet + WidgetParentSetCallback , + WidgetParentSetCallbackC , + WidgetParentSetSignalInfo , + afterWidgetParentSet , + mkWidgetParentSetCallback , + noWidgetParentSetCallback , + onWidgetParentSet , + widgetParentSetCallbackWrapper , + widgetParentSetClosure , + + +-- ** PopupMenu + WidgetPopupMenuCallback , + WidgetPopupMenuCallbackC , + WidgetPopupMenuSignalInfo , + afterWidgetPopupMenu , + mkWidgetPopupMenuCallback , + noWidgetPopupMenuCallback , + onWidgetPopupMenu , + widgetPopupMenuCallbackWrapper , + widgetPopupMenuClosure , + + +-- ** PropertyNotifyEvent + WidgetPropertyNotifyEventCallback , + WidgetPropertyNotifyEventCallbackC , + WidgetPropertyNotifyEventSignalInfo , + afterWidgetPropertyNotifyEvent , + mkWidgetPropertyNotifyEventCallback , + noWidgetPropertyNotifyEventCallback , + onWidgetPropertyNotifyEvent , + widgetPropertyNotifyEventCallbackWrapper, + widgetPropertyNotifyEventClosure , + + +-- ** ProximityInEvent + WidgetProximityInEventCallback , + WidgetProximityInEventCallbackC , + WidgetProximityInEventSignalInfo , + afterWidgetProximityInEvent , + mkWidgetProximityInEventCallback , + noWidgetProximityInEventCallback , + onWidgetProximityInEvent , + widgetProximityInEventCallbackWrapper , + widgetProximityInEventClosure , + + +-- ** ProximityOutEvent + WidgetProximityOutEventCallback , + WidgetProximityOutEventCallbackC , + WidgetProximityOutEventSignalInfo , + afterWidgetProximityOutEvent , + mkWidgetProximityOutEventCallback , + noWidgetProximityOutEventCallback , + onWidgetProximityOutEvent , + widgetProximityOutEventCallbackWrapper , + widgetProximityOutEventClosure , + + +-- ** QueryTooltip + WidgetQueryTooltipCallback , + WidgetQueryTooltipCallbackC , + WidgetQueryTooltipSignalInfo , + afterWidgetQueryTooltip , + mkWidgetQueryTooltipCallback , + noWidgetQueryTooltipCallback , + onWidgetQueryTooltip , + widgetQueryTooltipCallbackWrapper , + widgetQueryTooltipClosure , + + +-- ** Realize + WidgetRealizeCallback , + WidgetRealizeCallbackC , + WidgetRealizeSignalInfo , + afterWidgetRealize , + mkWidgetRealizeCallback , + noWidgetRealizeCallback , + onWidgetRealize , + widgetRealizeCallbackWrapper , + widgetRealizeClosure , + + +-- ** ScreenChanged + WidgetScreenChangedCallback , + WidgetScreenChangedCallbackC , + WidgetScreenChangedSignalInfo , + afterWidgetScreenChanged , + mkWidgetScreenChangedCallback , + noWidgetScreenChangedCallback , + onWidgetScreenChanged , + widgetScreenChangedCallbackWrapper , + widgetScreenChangedClosure , + + +-- ** ScrollEvent + WidgetScrollEventCallback , + WidgetScrollEventCallbackC , + WidgetScrollEventSignalInfo , + afterWidgetScrollEvent , + mkWidgetScrollEventCallback , + noWidgetScrollEventCallback , + onWidgetScrollEvent , + widgetScrollEventCallbackWrapper , + widgetScrollEventClosure , + + +-- ** SelectionClearEvent + WidgetSelectionClearEventCallback , + WidgetSelectionClearEventCallbackC , + WidgetSelectionClearEventSignalInfo , + afterWidgetSelectionClearEvent , + mkWidgetSelectionClearEventCallback , + noWidgetSelectionClearEventCallback , + onWidgetSelectionClearEvent , + widgetSelectionClearEventCallbackWrapper, + widgetSelectionClearEventClosure , + + +-- ** SelectionGet + WidgetSelectionGetCallback , + WidgetSelectionGetCallbackC , + WidgetSelectionGetSignalInfo , + afterWidgetSelectionGet , + mkWidgetSelectionGetCallback , + noWidgetSelectionGetCallback , + onWidgetSelectionGet , + widgetSelectionGetCallbackWrapper , + widgetSelectionGetClosure , + + +-- ** SelectionNotifyEvent + WidgetSelectionNotifyEventCallback , + WidgetSelectionNotifyEventCallbackC , + WidgetSelectionNotifyEventSignalInfo , + afterWidgetSelectionNotifyEvent , + mkWidgetSelectionNotifyEventCallback , + noWidgetSelectionNotifyEventCallback , + onWidgetSelectionNotifyEvent , + widgetSelectionNotifyEventCallbackWrapper, + widgetSelectionNotifyEventClosure , + + +-- ** SelectionReceived + WidgetSelectionReceivedCallback , + WidgetSelectionReceivedCallbackC , + WidgetSelectionReceivedSignalInfo , + afterWidgetSelectionReceived , + mkWidgetSelectionReceivedCallback , + noWidgetSelectionReceivedCallback , + onWidgetSelectionReceived , + widgetSelectionReceivedCallbackWrapper , + widgetSelectionReceivedClosure , + + +-- ** SelectionRequestEvent + WidgetSelectionRequestEventCallback , + WidgetSelectionRequestEventCallbackC , + WidgetSelectionRequestEventSignalInfo , + afterWidgetSelectionRequestEvent , + mkWidgetSelectionRequestEventCallback , + noWidgetSelectionRequestEventCallback , + onWidgetSelectionRequestEvent , + widgetSelectionRequestEventCallbackWrapper, + widgetSelectionRequestEventClosure , + + +-- ** Show + WidgetShowCallback , + WidgetShowCallbackC , + WidgetShowSignalInfo , + afterWidgetShow , + mkWidgetShowCallback , + noWidgetShowCallback , + onWidgetShow , + widgetShowCallbackWrapper , + widgetShowClosure , + + +-- ** ShowHelp + WidgetShowHelpCallback , + WidgetShowHelpCallbackC , + WidgetShowHelpSignalInfo , + afterWidgetShowHelp , + mkWidgetShowHelpCallback , + noWidgetShowHelpCallback , + onWidgetShowHelp , + widgetShowHelpCallbackWrapper , + widgetShowHelpClosure , + + +-- ** SizeAllocate + WidgetSizeAllocateCallback , + WidgetSizeAllocateCallbackC , + WidgetSizeAllocateSignalInfo , + afterWidgetSizeAllocate , + mkWidgetSizeAllocateCallback , + noWidgetSizeAllocateCallback , + onWidgetSizeAllocate , + widgetSizeAllocateCallbackWrapper , + widgetSizeAllocateClosure , + + +-- ** StateChanged + WidgetStateChangedCallback , + WidgetStateChangedCallbackC , + WidgetStateChangedSignalInfo , + afterWidgetStateChanged , + mkWidgetStateChangedCallback , + noWidgetStateChangedCallback , + onWidgetStateChanged , + widgetStateChangedCallbackWrapper , + widgetStateChangedClosure , + + +-- ** StateFlagsChanged + WidgetStateFlagsChangedCallback , + WidgetStateFlagsChangedCallbackC , + WidgetStateFlagsChangedSignalInfo , + afterWidgetStateFlagsChanged , + mkWidgetStateFlagsChangedCallback , + noWidgetStateFlagsChangedCallback , + onWidgetStateFlagsChanged , + widgetStateFlagsChangedCallbackWrapper , + widgetStateFlagsChangedClosure , + + +-- ** StyleSet + WidgetStyleSetCallback , + WidgetStyleSetCallbackC , + WidgetStyleSetSignalInfo , + afterWidgetStyleSet , + mkWidgetStyleSetCallback , + noWidgetStyleSetCallback , + onWidgetStyleSet , + widgetStyleSetCallbackWrapper , + widgetStyleSetClosure , + + +-- ** StyleUpdated + WidgetStyleUpdatedCallback , + WidgetStyleUpdatedCallbackC , + WidgetStyleUpdatedSignalInfo , + afterWidgetStyleUpdated , + mkWidgetStyleUpdatedCallback , + noWidgetStyleUpdatedCallback , + onWidgetStyleUpdated , + widgetStyleUpdatedCallbackWrapper , + widgetStyleUpdatedClosure , + + +-- ** TouchEvent + WidgetTouchEventCallback , + WidgetTouchEventCallbackC , + WidgetTouchEventSignalInfo , + afterWidgetTouchEvent , + mkWidgetTouchEventCallback , + noWidgetTouchEventCallback , + onWidgetTouchEvent , + widgetTouchEventCallbackWrapper , + widgetTouchEventClosure , + + +-- ** Unmap + WidgetUnmapCallback , + WidgetUnmapCallbackC , + WidgetUnmapSignalInfo , + afterWidgetUnmap , + mkWidgetUnmapCallback , + noWidgetUnmapCallback , + onWidgetUnmap , + widgetUnmapCallbackWrapper , + widgetUnmapClosure , + + +-- ** UnmapEvent + WidgetUnmapEventCallback , + WidgetUnmapEventCallbackC , + WidgetUnmapEventSignalInfo , + afterWidgetUnmapEvent , + mkWidgetUnmapEventCallback , + noWidgetUnmapEventCallback , + onWidgetUnmapEvent , + widgetUnmapEventCallbackWrapper , + widgetUnmapEventClosure , + + +-- ** Unrealize + WidgetUnrealizeCallback , + WidgetUnrealizeCallbackC , + WidgetUnrealizeSignalInfo , + afterWidgetUnrealize , + mkWidgetUnrealizeCallback , + noWidgetUnrealizeCallback , + onWidgetUnrealize , + widgetUnrealizeCallbackWrapper , + widgetUnrealizeClosure , + + +-- ** VisibilityNotifyEvent + WidgetVisibilityNotifyEventCallback , + WidgetVisibilityNotifyEventCallbackC , + WidgetVisibilityNotifyEventSignalInfo , + afterWidgetVisibilityNotifyEvent , + mkWidgetVisibilityNotifyEventCallback , + noWidgetVisibilityNotifyEventCallback , + onWidgetVisibilityNotifyEvent , + widgetVisibilityNotifyEventCallbackWrapper, + widgetVisibilityNotifyEventClosure , + + +-- ** WindowStateEvent + WidgetWindowStateEventCallback , + WidgetWindowStateEventCallbackC , + WidgetWindowStateEventSignalInfo , + afterWidgetWindowStateEvent , + mkWidgetWindowStateEventCallback , + noWidgetWindowStateEventCallback , + onWidgetWindowStateEvent , + widgetWindowStateEventCallbackWrapper , + widgetWindowStateEventClosure , + + + + + ) 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.Atk as Atk +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 + +newtype Widget = Widget (ForeignPtr Widget) +foreign import ccall "gtk_widget_get_type" + c_gtk_widget_get_type :: IO GType + +type instance ParentTypes Widget = WidgetParentTypes +type WidgetParentTypes = '[GObject.Object, Atk.ImplementorIface, Buildable] + +instance GObject Widget where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_gtk_widget_get_type + + +class GObject o => WidgetK o +instance (GObject o, IsDescendantOf Widget o) => WidgetK o + +toWidget :: WidgetK o => o -> IO Widget +toWidget = unsafeCastTo Widget + +noWidget :: Maybe Widget +noWidget = Nothing + +type family ResolveWidgetMethod (t :: Symbol) (o :: *) :: * where + ResolveWidgetMethod "activate" o = WidgetActivateMethodInfo + ResolveWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveWidgetMethod "addChild" o = BuildableAddChildMethodInfo + ResolveWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveWidgetMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveWidgetMethod "classPath" o = WidgetClassPathMethodInfo + ResolveWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveWidgetMethod "destroy" o = WidgetDestroyMethodInfo + ResolveWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveWidgetMethod "draw" o = WidgetDrawMethodInfo + ResolveWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveWidgetMethod "event" o = WidgetEventMethodInfo + ResolveWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveWidgetMethod "hide" o = WidgetHideMethodInfo + ResolveWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveWidgetMethod "intersect" o = WidgetIntersectMethodInfo + ResolveWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveWidgetMethod "map" o = WidgetMapMethodInfo + ResolveWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveWidgetMethod "path" o = WidgetPathMethodInfo + ResolveWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveWidgetMethod "realize" o = WidgetRealizeMethodInfo + ResolveWidgetMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveWidgetMethod "reparent" o = WidgetReparentMethodInfo + ResolveWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveWidgetMethod "show" o = WidgetShowMethodInfo + ResolveWidgetMethod "showAll" o = WidgetShowAllMethodInfo + ResolveWidgetMethod "showNow" o = WidgetShowNowMethodInfo + ResolveWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveWidgetMethod "unmap" o = WidgetUnmapMethodInfo + ResolveWidgetMethod "unparent" o = WidgetUnparentMethodInfo + ResolveWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveWidgetMethod "getClip" o = WidgetGetClipMethodInfo + ResolveWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveWidgetMethod "getParent" o = WidgetGetParentMethodInfo + ResolveWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveWidgetMethod "getPath" o = WidgetGetPathMethodInfo + ResolveWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveWidgetMethod "getState" o = WidgetGetStateMethodInfo + ResolveWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveWidgetMethod "getValign" o = WidgetGetValignMethodInfo + ResolveWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveWidgetMethod "setClip" o = WidgetSetClipMethodInfo + ResolveWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveWidgetMethod "setParent" o = WidgetSetParentMethodInfo + ResolveWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveWidgetMethod "setState" o = WidgetSetStateMethodInfo + ResolveWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveWidgetMethod "setValign" o = WidgetSetValignMethodInfo + ResolveWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveWidgetMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWidgetMethod t Widget, MethodInfo info Widget p) => IsLabelProxy t (Widget -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWidgetMethod t Widget, MethodInfo info Widget p) => IsLabel t (Widget -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- signal Widget::accel-closures-changed +type WidgetAccelClosuresChangedCallback = + IO () + +noWidgetAccelClosuresChangedCallback :: Maybe WidgetAccelClosuresChangedCallback +noWidgetAccelClosuresChangedCallback = Nothing + +type WidgetAccelClosuresChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetAccelClosuresChangedCallback :: WidgetAccelClosuresChangedCallbackC -> IO (FunPtr WidgetAccelClosuresChangedCallbackC) + +widgetAccelClosuresChangedClosure :: WidgetAccelClosuresChangedCallback -> IO Closure +widgetAccelClosuresChangedClosure cb = newCClosure =<< mkWidgetAccelClosuresChangedCallback wrapped + where wrapped = widgetAccelClosuresChangedCallbackWrapper cb + +widgetAccelClosuresChangedCallbackWrapper :: + WidgetAccelClosuresChangedCallback -> + Ptr () -> + Ptr () -> + IO () +widgetAccelClosuresChangedCallbackWrapper _cb _ _ = do + _cb + +onWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId +onWidgetAccelClosuresChanged obj cb = liftIO $ connectWidgetAccelClosuresChanged obj cb SignalConnectBefore +afterWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId +afterWidgetAccelClosuresChanged obj cb = connectWidgetAccelClosuresChanged obj cb SignalConnectAfter + +connectWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => + a -> WidgetAccelClosuresChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetAccelClosuresChanged obj cb after = liftIO $ do + cb' <- mkWidgetAccelClosuresChangedCallback (widgetAccelClosuresChangedCallbackWrapper cb) + connectSignalFunPtr obj "accel-closures-changed" cb' after + +-- signal Widget::button-press-event +type WidgetButtonPressEventCallback = + Gdk.EventButton -> + IO Bool + +noWidgetButtonPressEventCallback :: Maybe WidgetButtonPressEventCallback +noWidgetButtonPressEventCallback = Nothing + +type WidgetButtonPressEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventButton -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetButtonPressEventCallback :: WidgetButtonPressEventCallbackC -> IO (FunPtr WidgetButtonPressEventCallbackC) + +widgetButtonPressEventClosure :: WidgetButtonPressEventCallback -> IO Closure +widgetButtonPressEventClosure cb = newCClosure =<< mkWidgetButtonPressEventCallback wrapped + where wrapped = widgetButtonPressEventCallbackWrapper cb + +widgetButtonPressEventCallbackWrapper :: + WidgetButtonPressEventCallback -> + Ptr () -> + Ptr Gdk.EventButton -> + Ptr () -> + IO CInt +widgetButtonPressEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 80 Gdk.EventButton) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId +onWidgetButtonPressEvent obj cb = liftIO $ connectWidgetButtonPressEvent obj cb SignalConnectBefore +afterWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId +afterWidgetButtonPressEvent obj cb = connectWidgetButtonPressEvent obj cb SignalConnectAfter + +connectWidgetButtonPressEvent :: (GObject a, MonadIO m) => + a -> WidgetButtonPressEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetButtonPressEvent obj cb after = liftIO $ do + cb' <- mkWidgetButtonPressEventCallback (widgetButtonPressEventCallbackWrapper cb) + connectSignalFunPtr obj "button-press-event" cb' after + +-- signal Widget::button-release-event +type WidgetButtonReleaseEventCallback = + Gdk.EventButton -> + IO Bool + +noWidgetButtonReleaseEventCallback :: Maybe WidgetButtonReleaseEventCallback +noWidgetButtonReleaseEventCallback = Nothing + +type WidgetButtonReleaseEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventButton -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetButtonReleaseEventCallback :: WidgetButtonReleaseEventCallbackC -> IO (FunPtr WidgetButtonReleaseEventCallbackC) + +widgetButtonReleaseEventClosure :: WidgetButtonReleaseEventCallback -> IO Closure +widgetButtonReleaseEventClosure cb = newCClosure =<< mkWidgetButtonReleaseEventCallback wrapped + where wrapped = widgetButtonReleaseEventCallbackWrapper cb + +widgetButtonReleaseEventCallbackWrapper :: + WidgetButtonReleaseEventCallback -> + Ptr () -> + Ptr Gdk.EventButton -> + Ptr () -> + IO CInt +widgetButtonReleaseEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 80 Gdk.EventButton) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId +onWidgetButtonReleaseEvent obj cb = liftIO $ connectWidgetButtonReleaseEvent obj cb SignalConnectBefore +afterWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId +afterWidgetButtonReleaseEvent obj cb = connectWidgetButtonReleaseEvent obj cb SignalConnectAfter + +connectWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => + a -> WidgetButtonReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetButtonReleaseEvent obj cb after = liftIO $ do + cb' <- mkWidgetButtonReleaseEventCallback (widgetButtonReleaseEventCallbackWrapper cb) + connectSignalFunPtr obj "button-release-event" cb' after + +-- signal Widget::can-activate-accel +type WidgetCanActivateAccelCallback = + Word32 -> + IO Bool + +noWidgetCanActivateAccelCallback :: Maybe WidgetCanActivateAccelCallback +noWidgetCanActivateAccelCallback = Nothing + +type WidgetCanActivateAccelCallbackC = + Ptr () -> -- object + Word32 -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetCanActivateAccelCallback :: WidgetCanActivateAccelCallbackC -> IO (FunPtr WidgetCanActivateAccelCallbackC) + +widgetCanActivateAccelClosure :: WidgetCanActivateAccelCallback -> IO Closure +widgetCanActivateAccelClosure cb = newCClosure =<< mkWidgetCanActivateAccelCallback wrapped + where wrapped = widgetCanActivateAccelCallbackWrapper cb + +widgetCanActivateAccelCallbackWrapper :: + WidgetCanActivateAccelCallback -> + Ptr () -> + Word32 -> + Ptr () -> + IO CInt +widgetCanActivateAccelCallbackWrapper _cb _ signalId _ = do + result <- _cb signalId + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId +onWidgetCanActivateAccel obj cb = liftIO $ connectWidgetCanActivateAccel obj cb SignalConnectBefore +afterWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId +afterWidgetCanActivateAccel obj cb = connectWidgetCanActivateAccel obj cb SignalConnectAfter + +connectWidgetCanActivateAccel :: (GObject a, MonadIO m) => + a -> WidgetCanActivateAccelCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetCanActivateAccel obj cb after = liftIO $ do + cb' <- mkWidgetCanActivateAccelCallback (widgetCanActivateAccelCallbackWrapper cb) + connectSignalFunPtr obj "can-activate-accel" cb' after + +-- signal Widget::child-notify +type WidgetChildNotifyCallback = + GParamSpec -> + IO () + +noWidgetChildNotifyCallback :: Maybe WidgetChildNotifyCallback +noWidgetChildNotifyCallback = Nothing + +type WidgetChildNotifyCallbackC = + Ptr () -> -- object + Ptr GParamSpec -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetChildNotifyCallback :: WidgetChildNotifyCallbackC -> IO (FunPtr WidgetChildNotifyCallbackC) + +widgetChildNotifyClosure :: WidgetChildNotifyCallback -> IO Closure +widgetChildNotifyClosure cb = newCClosure =<< mkWidgetChildNotifyCallback wrapped + where wrapped = widgetChildNotifyCallbackWrapper cb + +widgetChildNotifyCallbackWrapper :: + WidgetChildNotifyCallback -> + Ptr () -> + Ptr GParamSpec -> + Ptr () -> + IO () +widgetChildNotifyCallbackWrapper _cb _ childProperty _ = do + childProperty' <- newGParamSpecFromPtr childProperty + _cb childProperty' + +onWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId +onWidgetChildNotify obj cb = liftIO $ connectWidgetChildNotify obj cb SignalConnectBefore +afterWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId +afterWidgetChildNotify obj cb = connectWidgetChildNotify obj cb SignalConnectAfter + +connectWidgetChildNotify :: (GObject a, MonadIO m) => + a -> WidgetChildNotifyCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetChildNotify obj cb after = liftIO $ do + cb' <- mkWidgetChildNotifyCallback (widgetChildNotifyCallbackWrapper cb) + connectSignalFunPtr obj "child-notify" cb' after + +-- signal Widget::composited-changed +type WidgetCompositedChangedCallback = + IO () + +noWidgetCompositedChangedCallback :: Maybe WidgetCompositedChangedCallback +noWidgetCompositedChangedCallback = Nothing + +type WidgetCompositedChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetCompositedChangedCallback :: WidgetCompositedChangedCallbackC -> IO (FunPtr WidgetCompositedChangedCallbackC) + +widgetCompositedChangedClosure :: WidgetCompositedChangedCallback -> IO Closure +widgetCompositedChangedClosure cb = newCClosure =<< mkWidgetCompositedChangedCallback wrapped + where wrapped = widgetCompositedChangedCallbackWrapper cb + +widgetCompositedChangedCallbackWrapper :: + WidgetCompositedChangedCallback -> + Ptr () -> + Ptr () -> + IO () +widgetCompositedChangedCallbackWrapper _cb _ _ = do + _cb + +onWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId +onWidgetCompositedChanged obj cb = liftIO $ connectWidgetCompositedChanged obj cb SignalConnectBefore +afterWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId +afterWidgetCompositedChanged obj cb = connectWidgetCompositedChanged obj cb SignalConnectAfter + +connectWidgetCompositedChanged :: (GObject a, MonadIO m) => + a -> WidgetCompositedChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetCompositedChanged obj cb after = liftIO $ do + cb' <- mkWidgetCompositedChangedCallback (widgetCompositedChangedCallbackWrapper cb) + connectSignalFunPtr obj "composited-changed" cb' after + +-- signal Widget::configure-event +type WidgetConfigureEventCallback = + Gdk.EventConfigure -> + IO Bool + +noWidgetConfigureEventCallback :: Maybe WidgetConfigureEventCallback +noWidgetConfigureEventCallback = Nothing + +type WidgetConfigureEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventConfigure -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetConfigureEventCallback :: WidgetConfigureEventCallbackC -> IO (FunPtr WidgetConfigureEventCallbackC) + +widgetConfigureEventClosure :: WidgetConfigureEventCallback -> IO Closure +widgetConfigureEventClosure cb = newCClosure =<< mkWidgetConfigureEventCallback wrapped + where wrapped = widgetConfigureEventCallbackWrapper cb + +widgetConfigureEventCallbackWrapper :: + WidgetConfigureEventCallback -> + Ptr () -> + Ptr Gdk.EventConfigure -> + Ptr () -> + IO CInt +widgetConfigureEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 40 Gdk.EventConfigure) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId +onWidgetConfigureEvent obj cb = liftIO $ connectWidgetConfigureEvent obj cb SignalConnectBefore +afterWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId +afterWidgetConfigureEvent obj cb = connectWidgetConfigureEvent obj cb SignalConnectAfter + +connectWidgetConfigureEvent :: (GObject a, MonadIO m) => + a -> WidgetConfigureEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetConfigureEvent obj cb after = liftIO $ do + cb' <- mkWidgetConfigureEventCallback (widgetConfigureEventCallbackWrapper cb) + connectSignalFunPtr obj "configure-event" cb' after + +-- signal Widget::damage-event +type WidgetDamageEventCallback = + Gdk.EventExpose -> + IO Bool + +noWidgetDamageEventCallback :: Maybe WidgetDamageEventCallback +noWidgetDamageEventCallback = Nothing + +type WidgetDamageEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventExpose -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDamageEventCallback :: WidgetDamageEventCallbackC -> IO (FunPtr WidgetDamageEventCallbackC) + +widgetDamageEventClosure :: WidgetDamageEventCallback -> IO Closure +widgetDamageEventClosure cb = newCClosure =<< mkWidgetDamageEventCallback wrapped + where wrapped = widgetDamageEventCallbackWrapper cb + +widgetDamageEventCallbackWrapper :: + WidgetDamageEventCallback -> + Ptr () -> + Ptr Gdk.EventExpose -> + Ptr () -> + IO CInt +widgetDamageEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 56 Gdk.EventExpose) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId +onWidgetDamageEvent obj cb = liftIO $ connectWidgetDamageEvent obj cb SignalConnectBefore +afterWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId +afterWidgetDamageEvent obj cb = connectWidgetDamageEvent obj cb SignalConnectAfter + +connectWidgetDamageEvent :: (GObject a, MonadIO m) => + a -> WidgetDamageEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDamageEvent obj cb after = liftIO $ do + cb' <- mkWidgetDamageEventCallback (widgetDamageEventCallbackWrapper cb) + connectSignalFunPtr obj "damage-event" cb' after + +-- signal Widget::delete-event +type WidgetDeleteEventCallback = + Gdk.Event -> + IO Bool + +noWidgetDeleteEventCallback :: Maybe WidgetDeleteEventCallback +noWidgetDeleteEventCallback = Nothing + +type WidgetDeleteEventCallbackC = + Ptr () -> -- object + Ptr Gdk.Event -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDeleteEventCallback :: WidgetDeleteEventCallbackC -> IO (FunPtr WidgetDeleteEventCallbackC) + +widgetDeleteEventClosure :: WidgetDeleteEventCallback -> IO Closure +widgetDeleteEventClosure cb = newCClosure =<< mkWidgetDeleteEventCallback wrapped + where wrapped = widgetDeleteEventCallbackWrapper cb + +widgetDeleteEventCallbackWrapper :: + WidgetDeleteEventCallback -> + Ptr () -> + Ptr Gdk.Event -> + Ptr () -> + IO CInt +widgetDeleteEventCallbackWrapper _cb _ event _ = do + event' <- (newBoxed Gdk.Event) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId +onWidgetDeleteEvent obj cb = liftIO $ connectWidgetDeleteEvent obj cb SignalConnectBefore +afterWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId +afterWidgetDeleteEvent obj cb = connectWidgetDeleteEvent obj cb SignalConnectAfter + +connectWidgetDeleteEvent :: (GObject a, MonadIO m) => + a -> WidgetDeleteEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDeleteEvent obj cb after = liftIO $ do + cb' <- mkWidgetDeleteEventCallback (widgetDeleteEventCallbackWrapper cb) + connectSignalFunPtr obj "delete-event" cb' after + +-- signal Widget::destroy +type WidgetDestroyCallback = + IO () + +noWidgetDestroyCallback :: Maybe WidgetDestroyCallback +noWidgetDestroyCallback = Nothing + +type WidgetDestroyCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDestroyCallback :: WidgetDestroyCallbackC -> IO (FunPtr WidgetDestroyCallbackC) + +widgetDestroyClosure :: WidgetDestroyCallback -> IO Closure +widgetDestroyClosure cb = newCClosure =<< mkWidgetDestroyCallback wrapped + where wrapped = widgetDestroyCallbackWrapper cb + +widgetDestroyCallbackWrapper :: + WidgetDestroyCallback -> + Ptr () -> + Ptr () -> + IO () +widgetDestroyCallbackWrapper _cb _ _ = do + _cb + +onWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId +onWidgetDestroy obj cb = liftIO $ connectWidgetDestroy obj cb SignalConnectBefore +afterWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId +afterWidgetDestroy obj cb = connectWidgetDestroy obj cb SignalConnectAfter + +connectWidgetDestroy :: (GObject a, MonadIO m) => + a -> WidgetDestroyCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDestroy obj cb after = liftIO $ do + cb' <- mkWidgetDestroyCallback (widgetDestroyCallbackWrapper cb) + connectSignalFunPtr obj "destroy" cb' after + +-- signal Widget::destroy-event +type WidgetDestroyEventCallback = + Gdk.Event -> + IO Bool + +noWidgetDestroyEventCallback :: Maybe WidgetDestroyEventCallback +noWidgetDestroyEventCallback = Nothing + +type WidgetDestroyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.Event -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDestroyEventCallback :: WidgetDestroyEventCallbackC -> IO (FunPtr WidgetDestroyEventCallbackC) + +widgetDestroyEventClosure :: WidgetDestroyEventCallback -> IO Closure +widgetDestroyEventClosure cb = newCClosure =<< mkWidgetDestroyEventCallback wrapped + where wrapped = widgetDestroyEventCallbackWrapper cb + +widgetDestroyEventCallbackWrapper :: + WidgetDestroyEventCallback -> + Ptr () -> + Ptr Gdk.Event -> + Ptr () -> + IO CInt +widgetDestroyEventCallbackWrapper _cb _ event _ = do + event' <- (newBoxed Gdk.Event) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId +onWidgetDestroyEvent obj cb = liftIO $ connectWidgetDestroyEvent obj cb SignalConnectBefore +afterWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId +afterWidgetDestroyEvent obj cb = connectWidgetDestroyEvent obj cb SignalConnectAfter + +connectWidgetDestroyEvent :: (GObject a, MonadIO m) => + a -> WidgetDestroyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDestroyEvent obj cb after = liftIO $ do + cb' <- mkWidgetDestroyEventCallback (widgetDestroyEventCallbackWrapper cb) + connectSignalFunPtr obj "destroy-event" cb' after + +-- signal Widget::direction-changed +type WidgetDirectionChangedCallback = + TextDirection -> + IO () + +noWidgetDirectionChangedCallback :: Maybe WidgetDirectionChangedCallback +noWidgetDirectionChangedCallback = Nothing + +type WidgetDirectionChangedCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDirectionChangedCallback :: WidgetDirectionChangedCallbackC -> IO (FunPtr WidgetDirectionChangedCallbackC) + +widgetDirectionChangedClosure :: WidgetDirectionChangedCallback -> IO Closure +widgetDirectionChangedClosure cb = newCClosure =<< mkWidgetDirectionChangedCallback wrapped + where wrapped = widgetDirectionChangedCallbackWrapper cb + +widgetDirectionChangedCallbackWrapper :: + WidgetDirectionChangedCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO () +widgetDirectionChangedCallbackWrapper _cb _ previousDirection _ = do + let previousDirection' = (toEnum . fromIntegral) previousDirection + _cb previousDirection' + +onWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId +onWidgetDirectionChanged obj cb = liftIO $ connectWidgetDirectionChanged obj cb SignalConnectBefore +afterWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId +afterWidgetDirectionChanged obj cb = connectWidgetDirectionChanged obj cb SignalConnectAfter + +connectWidgetDirectionChanged :: (GObject a, MonadIO m) => + a -> WidgetDirectionChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDirectionChanged obj cb after = liftIO $ do + cb' <- mkWidgetDirectionChangedCallback (widgetDirectionChangedCallbackWrapper cb) + connectSignalFunPtr obj "direction-changed" cb' after + +-- signal Widget::drag-begin +type WidgetDragBeginCallback = + Gdk.DragContext -> + IO () + +noWidgetDragBeginCallback :: Maybe WidgetDragBeginCallback +noWidgetDragBeginCallback = Nothing + +type WidgetDragBeginCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDragBeginCallback :: WidgetDragBeginCallbackC -> IO (FunPtr WidgetDragBeginCallbackC) + +widgetDragBeginClosure :: WidgetDragBeginCallback -> IO Closure +widgetDragBeginClosure cb = newCClosure =<< mkWidgetDragBeginCallback wrapped + where wrapped = widgetDragBeginCallbackWrapper cb + +widgetDragBeginCallbackWrapper :: + WidgetDragBeginCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Ptr () -> + IO () +widgetDragBeginCallbackWrapper _cb _ context _ = do + context' <- (newObject Gdk.DragContext) context + _cb context' + +onWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId +onWidgetDragBegin obj cb = liftIO $ connectWidgetDragBegin obj cb SignalConnectBefore +afterWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId +afterWidgetDragBegin obj cb = connectWidgetDragBegin obj cb SignalConnectAfter + +connectWidgetDragBegin :: (GObject a, MonadIO m) => + a -> WidgetDragBeginCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragBegin obj cb after = liftIO $ do + cb' <- mkWidgetDragBeginCallback (widgetDragBeginCallbackWrapper cb) + connectSignalFunPtr obj "drag-begin" cb' after + +-- signal Widget::drag-data-delete +type WidgetDragDataDeleteCallback = + Gdk.DragContext -> + IO () + +noWidgetDragDataDeleteCallback :: Maybe WidgetDragDataDeleteCallback +noWidgetDragDataDeleteCallback = Nothing + +type WidgetDragDataDeleteCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDragDataDeleteCallback :: WidgetDragDataDeleteCallbackC -> IO (FunPtr WidgetDragDataDeleteCallbackC) + +widgetDragDataDeleteClosure :: WidgetDragDataDeleteCallback -> IO Closure +widgetDragDataDeleteClosure cb = newCClosure =<< mkWidgetDragDataDeleteCallback wrapped + where wrapped = widgetDragDataDeleteCallbackWrapper cb + +widgetDragDataDeleteCallbackWrapper :: + WidgetDragDataDeleteCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Ptr () -> + IO () +widgetDragDataDeleteCallbackWrapper _cb _ context _ = do + context' <- (newObject Gdk.DragContext) context + _cb context' + +onWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId +onWidgetDragDataDelete obj cb = liftIO $ connectWidgetDragDataDelete obj cb SignalConnectBefore +afterWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId +afterWidgetDragDataDelete obj cb = connectWidgetDragDataDelete obj cb SignalConnectAfter + +connectWidgetDragDataDelete :: (GObject a, MonadIO m) => + a -> WidgetDragDataDeleteCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragDataDelete obj cb after = liftIO $ do + cb' <- mkWidgetDragDataDeleteCallback (widgetDragDataDeleteCallbackWrapper cb) + connectSignalFunPtr obj "drag-data-delete" cb' after + +-- signal Widget::drag-data-get +type WidgetDragDataGetCallback = + Gdk.DragContext -> + SelectionData -> + Word32 -> + Word32 -> + IO () + +noWidgetDragDataGetCallback :: Maybe WidgetDragDataGetCallback +noWidgetDragDataGetCallback = Nothing + +type WidgetDragDataGetCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Ptr SelectionData -> + Word32 -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDragDataGetCallback :: WidgetDragDataGetCallbackC -> IO (FunPtr WidgetDragDataGetCallbackC) + +widgetDragDataGetClosure :: WidgetDragDataGetCallback -> IO Closure +widgetDragDataGetClosure cb = newCClosure =<< mkWidgetDragDataGetCallback wrapped + where wrapped = widgetDragDataGetCallbackWrapper cb + +widgetDragDataGetCallbackWrapper :: + WidgetDragDataGetCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Ptr SelectionData -> + Word32 -> + Word32 -> + Ptr () -> + IO () +widgetDragDataGetCallbackWrapper _cb _ context data_ info time _ = do + context' <- (newObject Gdk.DragContext) context + data_' <- (newBoxed SelectionData) data_ + _cb context' data_' info time + +onWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId +onWidgetDragDataGet obj cb = liftIO $ connectWidgetDragDataGet obj cb SignalConnectBefore +afterWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId +afterWidgetDragDataGet obj cb = connectWidgetDragDataGet obj cb SignalConnectAfter + +connectWidgetDragDataGet :: (GObject a, MonadIO m) => + a -> WidgetDragDataGetCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragDataGet obj cb after = liftIO $ do + cb' <- mkWidgetDragDataGetCallback (widgetDragDataGetCallbackWrapper cb) + connectSignalFunPtr obj "drag-data-get" cb' after + +-- signal Widget::drag-data-received +type WidgetDragDataReceivedCallback = + Gdk.DragContext -> + Int32 -> + Int32 -> + SelectionData -> + Word32 -> + Word32 -> + IO () + +noWidgetDragDataReceivedCallback :: Maybe WidgetDragDataReceivedCallback +noWidgetDragDataReceivedCallback = Nothing + +type WidgetDragDataReceivedCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Int32 -> + Int32 -> + Ptr SelectionData -> + Word32 -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDragDataReceivedCallback :: WidgetDragDataReceivedCallbackC -> IO (FunPtr WidgetDragDataReceivedCallbackC) + +widgetDragDataReceivedClosure :: WidgetDragDataReceivedCallback -> IO Closure +widgetDragDataReceivedClosure cb = newCClosure =<< mkWidgetDragDataReceivedCallback wrapped + where wrapped = widgetDragDataReceivedCallbackWrapper cb + +widgetDragDataReceivedCallbackWrapper :: + WidgetDragDataReceivedCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Int32 -> + Int32 -> + Ptr SelectionData -> + Word32 -> + Word32 -> + Ptr () -> + IO () +widgetDragDataReceivedCallbackWrapper _cb _ context x y data_ info time _ = do + context' <- (newObject Gdk.DragContext) context + data_' <- (newBoxed SelectionData) data_ + _cb context' x y data_' info time + +onWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId +onWidgetDragDataReceived obj cb = liftIO $ connectWidgetDragDataReceived obj cb SignalConnectBefore +afterWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId +afterWidgetDragDataReceived obj cb = connectWidgetDragDataReceived obj cb SignalConnectAfter + +connectWidgetDragDataReceived :: (GObject a, MonadIO m) => + a -> WidgetDragDataReceivedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragDataReceived obj cb after = liftIO $ do + cb' <- mkWidgetDragDataReceivedCallback (widgetDragDataReceivedCallbackWrapper cb) + connectSignalFunPtr obj "drag-data-received" cb' after + +-- signal Widget::drag-drop +type WidgetDragDropCallback = + Gdk.DragContext -> + Int32 -> + Int32 -> + Word32 -> + IO Bool + +noWidgetDragDropCallback :: Maybe WidgetDragDropCallback +noWidgetDragDropCallback = Nothing + +type WidgetDragDropCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Int32 -> + Int32 -> + Word32 -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDragDropCallback :: WidgetDragDropCallbackC -> IO (FunPtr WidgetDragDropCallbackC) + +widgetDragDropClosure :: WidgetDragDropCallback -> IO Closure +widgetDragDropClosure cb = newCClosure =<< mkWidgetDragDropCallback wrapped + where wrapped = widgetDragDropCallbackWrapper cb + +widgetDragDropCallbackWrapper :: + WidgetDragDropCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Int32 -> + Int32 -> + Word32 -> + Ptr () -> + IO CInt +widgetDragDropCallbackWrapper _cb _ context x y time _ = do + context' <- (newObject Gdk.DragContext) context + result <- _cb context' x y time + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId +onWidgetDragDrop obj cb = liftIO $ connectWidgetDragDrop obj cb SignalConnectBefore +afterWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId +afterWidgetDragDrop obj cb = connectWidgetDragDrop obj cb SignalConnectAfter + +connectWidgetDragDrop :: (GObject a, MonadIO m) => + a -> WidgetDragDropCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragDrop obj cb after = liftIO $ do + cb' <- mkWidgetDragDropCallback (widgetDragDropCallbackWrapper cb) + connectSignalFunPtr obj "drag-drop" cb' after + +-- signal Widget::drag-end +type WidgetDragEndCallback = + Gdk.DragContext -> + IO () + +noWidgetDragEndCallback :: Maybe WidgetDragEndCallback +noWidgetDragEndCallback = Nothing + +type WidgetDragEndCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDragEndCallback :: WidgetDragEndCallbackC -> IO (FunPtr WidgetDragEndCallbackC) + +widgetDragEndClosure :: WidgetDragEndCallback -> IO Closure +widgetDragEndClosure cb = newCClosure =<< mkWidgetDragEndCallback wrapped + where wrapped = widgetDragEndCallbackWrapper cb + +widgetDragEndCallbackWrapper :: + WidgetDragEndCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Ptr () -> + IO () +widgetDragEndCallbackWrapper _cb _ context _ = do + context' <- (newObject Gdk.DragContext) context + _cb context' + +onWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId +onWidgetDragEnd obj cb = liftIO $ connectWidgetDragEnd obj cb SignalConnectBefore +afterWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId +afterWidgetDragEnd obj cb = connectWidgetDragEnd obj cb SignalConnectAfter + +connectWidgetDragEnd :: (GObject a, MonadIO m) => + a -> WidgetDragEndCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragEnd obj cb after = liftIO $ do + cb' <- mkWidgetDragEndCallback (widgetDragEndCallbackWrapper cb) + connectSignalFunPtr obj "drag-end" cb' after + +-- signal Widget::drag-failed +type WidgetDragFailedCallback = + Gdk.DragContext -> + DragResult -> + IO Bool + +noWidgetDragFailedCallback :: Maybe WidgetDragFailedCallback +noWidgetDragFailedCallback = Nothing + +type WidgetDragFailedCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDragFailedCallback :: WidgetDragFailedCallbackC -> IO (FunPtr WidgetDragFailedCallbackC) + +widgetDragFailedClosure :: WidgetDragFailedCallback -> IO Closure +widgetDragFailedClosure cb = newCClosure =<< mkWidgetDragFailedCallback wrapped + where wrapped = widgetDragFailedCallbackWrapper cb + +widgetDragFailedCallbackWrapper :: + WidgetDragFailedCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + CUInt -> + Ptr () -> + IO CInt +widgetDragFailedCallbackWrapper _cb _ context result_ _ = do + context' <- (newObject Gdk.DragContext) context + let result_' = (toEnum . fromIntegral) result_ + result <- _cb context' result_' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId +onWidgetDragFailed obj cb = liftIO $ connectWidgetDragFailed obj cb SignalConnectBefore +afterWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId +afterWidgetDragFailed obj cb = connectWidgetDragFailed obj cb SignalConnectAfter + +connectWidgetDragFailed :: (GObject a, MonadIO m) => + a -> WidgetDragFailedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragFailed obj cb after = liftIO $ do + cb' <- mkWidgetDragFailedCallback (widgetDragFailedCallbackWrapper cb) + connectSignalFunPtr obj "drag-failed" cb' after + +-- signal Widget::drag-leave +type WidgetDragLeaveCallback = + Gdk.DragContext -> + Word32 -> + IO () + +noWidgetDragLeaveCallback :: Maybe WidgetDragLeaveCallback +noWidgetDragLeaveCallback = Nothing + +type WidgetDragLeaveCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDragLeaveCallback :: WidgetDragLeaveCallbackC -> IO (FunPtr WidgetDragLeaveCallbackC) + +widgetDragLeaveClosure :: WidgetDragLeaveCallback -> IO Closure +widgetDragLeaveClosure cb = newCClosure =<< mkWidgetDragLeaveCallback wrapped + where wrapped = widgetDragLeaveCallbackWrapper cb + +widgetDragLeaveCallbackWrapper :: + WidgetDragLeaveCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Word32 -> + Ptr () -> + IO () +widgetDragLeaveCallbackWrapper _cb _ context time _ = do + context' <- (newObject Gdk.DragContext) context + _cb context' time + +onWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId +onWidgetDragLeave obj cb = liftIO $ connectWidgetDragLeave obj cb SignalConnectBefore +afterWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId +afterWidgetDragLeave obj cb = connectWidgetDragLeave obj cb SignalConnectAfter + +connectWidgetDragLeave :: (GObject a, MonadIO m) => + a -> WidgetDragLeaveCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragLeave obj cb after = liftIO $ do + cb' <- mkWidgetDragLeaveCallback (widgetDragLeaveCallbackWrapper cb) + connectSignalFunPtr obj "drag-leave" cb' after + +-- signal Widget::drag-motion +type WidgetDragMotionCallback = + Gdk.DragContext -> + Int32 -> + Int32 -> + Word32 -> + IO Bool + +noWidgetDragMotionCallback :: Maybe WidgetDragMotionCallback +noWidgetDragMotionCallback = Nothing + +type WidgetDragMotionCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Int32 -> + Int32 -> + Word32 -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDragMotionCallback :: WidgetDragMotionCallbackC -> IO (FunPtr WidgetDragMotionCallbackC) + +widgetDragMotionClosure :: WidgetDragMotionCallback -> IO Closure +widgetDragMotionClosure cb = newCClosure =<< mkWidgetDragMotionCallback wrapped + where wrapped = widgetDragMotionCallbackWrapper cb + +widgetDragMotionCallbackWrapper :: + WidgetDragMotionCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Int32 -> + Int32 -> + Word32 -> + Ptr () -> + IO CInt +widgetDragMotionCallbackWrapper _cb _ context x y time _ = do + context' <- (newObject Gdk.DragContext) context + result <- _cb context' x y time + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId +onWidgetDragMotion obj cb = liftIO $ connectWidgetDragMotion obj cb SignalConnectBefore +afterWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId +afterWidgetDragMotion obj cb = connectWidgetDragMotion obj cb SignalConnectAfter + +connectWidgetDragMotion :: (GObject a, MonadIO m) => + a -> WidgetDragMotionCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragMotion obj cb after = liftIO $ do + cb' <- mkWidgetDragMotionCallback (widgetDragMotionCallbackWrapper cb) + connectSignalFunPtr obj "drag-motion" cb' after + +-- signal Widget::draw +type WidgetDrawCallback = + Cairo.Context -> + IO Bool + +noWidgetDrawCallback :: Maybe WidgetDrawCallback +noWidgetDrawCallback = Nothing + +type WidgetDrawCallbackC = + Ptr () -> -- object + Ptr Cairo.Context -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDrawCallback :: WidgetDrawCallbackC -> IO (FunPtr WidgetDrawCallbackC) + +widgetDrawClosure :: WidgetDrawCallback -> IO Closure +widgetDrawClosure cb = newCClosure =<< mkWidgetDrawCallback wrapped + where wrapped = widgetDrawCallbackWrapper cb + +widgetDrawCallbackWrapper :: + WidgetDrawCallback -> + Ptr () -> + Ptr Cairo.Context -> + Ptr () -> + IO CInt +widgetDrawCallbackWrapper _cb _ cr _ = do + cr' <- (newBoxed Cairo.Context) cr + result <- _cb cr' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId +onWidgetDraw obj cb = liftIO $ connectWidgetDraw obj cb SignalConnectBefore +afterWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId +afterWidgetDraw obj cb = connectWidgetDraw obj cb SignalConnectAfter + +connectWidgetDraw :: (GObject a, MonadIO m) => + a -> WidgetDrawCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDraw obj cb after = liftIO $ do + cb' <- mkWidgetDrawCallback (widgetDrawCallbackWrapper cb) + connectSignalFunPtr obj "draw" cb' after + +-- signal Widget::enter-notify-event +type WidgetEnterNotifyEventCallback = + Gdk.EventCrossing -> + IO Bool + +noWidgetEnterNotifyEventCallback :: Maybe WidgetEnterNotifyEventCallback +noWidgetEnterNotifyEventCallback = Nothing + +type WidgetEnterNotifyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventCrossing -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetEnterNotifyEventCallback :: WidgetEnterNotifyEventCallbackC -> IO (FunPtr WidgetEnterNotifyEventCallbackC) + +widgetEnterNotifyEventClosure :: WidgetEnterNotifyEventCallback -> IO Closure +widgetEnterNotifyEventClosure cb = newCClosure =<< mkWidgetEnterNotifyEventCallback wrapped + where wrapped = widgetEnterNotifyEventCallbackWrapper cb + +widgetEnterNotifyEventCallbackWrapper :: + WidgetEnterNotifyEventCallback -> + Ptr () -> + Ptr Gdk.EventCrossing -> + Ptr () -> + IO CInt +widgetEnterNotifyEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 88 Gdk.EventCrossing) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId +onWidgetEnterNotifyEvent obj cb = liftIO $ connectWidgetEnterNotifyEvent obj cb SignalConnectBefore +afterWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId +afterWidgetEnterNotifyEvent obj cb = connectWidgetEnterNotifyEvent obj cb SignalConnectAfter + +connectWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => + a -> WidgetEnterNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetEnterNotifyEvent obj cb after = liftIO $ do + cb' <- mkWidgetEnterNotifyEventCallback (widgetEnterNotifyEventCallbackWrapper cb) + connectSignalFunPtr obj "enter-notify-event" cb' after + +-- signal Widget::event +type WidgetEventCallback = + Gdk.Event -> + IO Bool + +noWidgetEventCallback :: Maybe WidgetEventCallback +noWidgetEventCallback = Nothing + +type WidgetEventCallbackC = + Ptr () -> -- object + Ptr Gdk.Event -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetEventCallback :: WidgetEventCallbackC -> IO (FunPtr WidgetEventCallbackC) + +widgetEventClosure :: WidgetEventCallback -> IO Closure +widgetEventClosure cb = newCClosure =<< mkWidgetEventCallback wrapped + where wrapped = widgetEventCallbackWrapper cb + +widgetEventCallbackWrapper :: + WidgetEventCallback -> + Ptr () -> + Ptr Gdk.Event -> + Ptr () -> + IO CInt +widgetEventCallbackWrapper _cb _ event _ = do + event' <- (newBoxed Gdk.Event) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId +onWidgetEvent obj cb = liftIO $ connectWidgetEvent obj cb SignalConnectBefore +afterWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId +afterWidgetEvent obj cb = connectWidgetEvent obj cb SignalConnectAfter + +connectWidgetEvent :: (GObject a, MonadIO m) => + a -> WidgetEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetEvent obj cb after = liftIO $ do + cb' <- mkWidgetEventCallback (widgetEventCallbackWrapper cb) + connectSignalFunPtr obj "event" cb' after + +-- signal Widget::event-after +type WidgetEventAfterCallback = + Gdk.Event -> + IO () + +noWidgetEventAfterCallback :: Maybe WidgetEventAfterCallback +noWidgetEventAfterCallback = Nothing + +type WidgetEventAfterCallbackC = + Ptr () -> -- object + Ptr Gdk.Event -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetEventAfterCallback :: WidgetEventAfterCallbackC -> IO (FunPtr WidgetEventAfterCallbackC) + +widgetEventAfterClosure :: WidgetEventAfterCallback -> IO Closure +widgetEventAfterClosure cb = newCClosure =<< mkWidgetEventAfterCallback wrapped + where wrapped = widgetEventAfterCallbackWrapper cb + +widgetEventAfterCallbackWrapper :: + WidgetEventAfterCallback -> + Ptr () -> + Ptr Gdk.Event -> + Ptr () -> + IO () +widgetEventAfterCallbackWrapper _cb _ event _ = do + event' <- (newBoxed Gdk.Event) event + _cb event' + +onWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId +onWidgetEventAfter obj cb = liftIO $ connectWidgetEventAfter obj cb SignalConnectBefore +afterWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId +afterWidgetEventAfter obj cb = connectWidgetEventAfter obj cb SignalConnectAfter + +connectWidgetEventAfter :: (GObject a, MonadIO m) => + a -> WidgetEventAfterCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetEventAfter obj cb after = liftIO $ do + cb' <- mkWidgetEventAfterCallback (widgetEventAfterCallbackWrapper cb) + connectSignalFunPtr obj "event-after" cb' after + +-- signal Widget::focus +type WidgetFocusCallback = + DirectionType -> + IO Bool + +noWidgetFocusCallback :: Maybe WidgetFocusCallback +noWidgetFocusCallback = Nothing + +type WidgetFocusCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetFocusCallback :: WidgetFocusCallbackC -> IO (FunPtr WidgetFocusCallbackC) + +widgetFocusClosure :: WidgetFocusCallback -> IO Closure +widgetFocusClosure cb = newCClosure =<< mkWidgetFocusCallback wrapped + where wrapped = widgetFocusCallbackWrapper cb + +widgetFocusCallbackWrapper :: + WidgetFocusCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO CInt +widgetFocusCallbackWrapper _cb _ direction _ = do + let direction' = (toEnum . fromIntegral) direction + result <- _cb direction' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId +onWidgetFocus obj cb = liftIO $ connectWidgetFocus obj cb SignalConnectBefore +afterWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId +afterWidgetFocus obj cb = connectWidgetFocus obj cb SignalConnectAfter + +connectWidgetFocus :: (GObject a, MonadIO m) => + a -> WidgetFocusCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetFocus obj cb after = liftIO $ do + cb' <- mkWidgetFocusCallback (widgetFocusCallbackWrapper cb) + connectSignalFunPtr obj "focus" cb' after + +-- signal Widget::focus-in-event +type WidgetFocusInEventCallback = + Gdk.EventFocus -> + IO Bool + +noWidgetFocusInEventCallback :: Maybe WidgetFocusInEventCallback +noWidgetFocusInEventCallback = Nothing + +type WidgetFocusInEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventFocus -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetFocusInEventCallback :: WidgetFocusInEventCallbackC -> IO (FunPtr WidgetFocusInEventCallbackC) + +widgetFocusInEventClosure :: WidgetFocusInEventCallback -> IO Closure +widgetFocusInEventClosure cb = newCClosure =<< mkWidgetFocusInEventCallback wrapped + where wrapped = widgetFocusInEventCallbackWrapper cb + +widgetFocusInEventCallbackWrapper :: + WidgetFocusInEventCallback -> + Ptr () -> + Ptr Gdk.EventFocus -> + Ptr () -> + IO CInt +widgetFocusInEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 24 Gdk.EventFocus) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId +onWidgetFocusInEvent obj cb = liftIO $ connectWidgetFocusInEvent obj cb SignalConnectBefore +afterWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId +afterWidgetFocusInEvent obj cb = connectWidgetFocusInEvent obj cb SignalConnectAfter + +connectWidgetFocusInEvent :: (GObject a, MonadIO m) => + a -> WidgetFocusInEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetFocusInEvent obj cb after = liftIO $ do + cb' <- mkWidgetFocusInEventCallback (widgetFocusInEventCallbackWrapper cb) + connectSignalFunPtr obj "focus-in-event" cb' after + +-- signal Widget::focus-out-event +type WidgetFocusOutEventCallback = + Gdk.EventFocus -> + IO Bool + +noWidgetFocusOutEventCallback :: Maybe WidgetFocusOutEventCallback +noWidgetFocusOutEventCallback = Nothing + +type WidgetFocusOutEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventFocus -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetFocusOutEventCallback :: WidgetFocusOutEventCallbackC -> IO (FunPtr WidgetFocusOutEventCallbackC) + +widgetFocusOutEventClosure :: WidgetFocusOutEventCallback -> IO Closure +widgetFocusOutEventClosure cb = newCClosure =<< mkWidgetFocusOutEventCallback wrapped + where wrapped = widgetFocusOutEventCallbackWrapper cb + +widgetFocusOutEventCallbackWrapper :: + WidgetFocusOutEventCallback -> + Ptr () -> + Ptr Gdk.EventFocus -> + Ptr () -> + IO CInt +widgetFocusOutEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 24 Gdk.EventFocus) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId +onWidgetFocusOutEvent obj cb = liftIO $ connectWidgetFocusOutEvent obj cb SignalConnectBefore +afterWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId +afterWidgetFocusOutEvent obj cb = connectWidgetFocusOutEvent obj cb SignalConnectAfter + +connectWidgetFocusOutEvent :: (GObject a, MonadIO m) => + a -> WidgetFocusOutEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetFocusOutEvent obj cb after = liftIO $ do + cb' <- mkWidgetFocusOutEventCallback (widgetFocusOutEventCallbackWrapper cb) + connectSignalFunPtr obj "focus-out-event" cb' after + +-- signal Widget::grab-broken-event +type WidgetGrabBrokenEventCallback = + Gdk.EventGrabBroken -> + IO Bool + +noWidgetGrabBrokenEventCallback :: Maybe WidgetGrabBrokenEventCallback +noWidgetGrabBrokenEventCallback = Nothing + +type WidgetGrabBrokenEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventGrabBroken -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetGrabBrokenEventCallback :: WidgetGrabBrokenEventCallbackC -> IO (FunPtr WidgetGrabBrokenEventCallbackC) + +widgetGrabBrokenEventClosure :: WidgetGrabBrokenEventCallback -> IO Closure +widgetGrabBrokenEventClosure cb = newCClosure =<< mkWidgetGrabBrokenEventCallback wrapped + where wrapped = widgetGrabBrokenEventCallbackWrapper cb + +widgetGrabBrokenEventCallbackWrapper :: + WidgetGrabBrokenEventCallback -> + Ptr () -> + Ptr Gdk.EventGrabBroken -> + Ptr () -> + IO CInt +widgetGrabBrokenEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 40 Gdk.EventGrabBroken) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId +onWidgetGrabBrokenEvent obj cb = liftIO $ connectWidgetGrabBrokenEvent obj cb SignalConnectBefore +afterWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId +afterWidgetGrabBrokenEvent obj cb = connectWidgetGrabBrokenEvent obj cb SignalConnectAfter + +connectWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => + a -> WidgetGrabBrokenEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetGrabBrokenEvent obj cb after = liftIO $ do + cb' <- mkWidgetGrabBrokenEventCallback (widgetGrabBrokenEventCallbackWrapper cb) + connectSignalFunPtr obj "grab-broken-event" cb' after + +-- signal Widget::grab-focus +type WidgetGrabFocusCallback = + IO () + +noWidgetGrabFocusCallback :: Maybe WidgetGrabFocusCallback +noWidgetGrabFocusCallback = Nothing + +type WidgetGrabFocusCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetGrabFocusCallback :: WidgetGrabFocusCallbackC -> IO (FunPtr WidgetGrabFocusCallbackC) + +widgetGrabFocusClosure :: WidgetGrabFocusCallback -> IO Closure +widgetGrabFocusClosure cb = newCClosure =<< mkWidgetGrabFocusCallback wrapped + where wrapped = widgetGrabFocusCallbackWrapper cb + +widgetGrabFocusCallbackWrapper :: + WidgetGrabFocusCallback -> + Ptr () -> + Ptr () -> + IO () +widgetGrabFocusCallbackWrapper _cb _ _ = do + _cb + +onWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId +onWidgetGrabFocus obj cb = liftIO $ connectWidgetGrabFocus obj cb SignalConnectBefore +afterWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId +afterWidgetGrabFocus obj cb = connectWidgetGrabFocus obj cb SignalConnectAfter + +connectWidgetGrabFocus :: (GObject a, MonadIO m) => + a -> WidgetGrabFocusCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetGrabFocus obj cb after = liftIO $ do + cb' <- mkWidgetGrabFocusCallback (widgetGrabFocusCallbackWrapper cb) + connectSignalFunPtr obj "grab-focus" cb' after + +-- signal Widget::grab-notify +type WidgetGrabNotifyCallback = + Bool -> + IO () + +noWidgetGrabNotifyCallback :: Maybe WidgetGrabNotifyCallback +noWidgetGrabNotifyCallback = Nothing + +type WidgetGrabNotifyCallbackC = + Ptr () -> -- object + CInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetGrabNotifyCallback :: WidgetGrabNotifyCallbackC -> IO (FunPtr WidgetGrabNotifyCallbackC) + +widgetGrabNotifyClosure :: WidgetGrabNotifyCallback -> IO Closure +widgetGrabNotifyClosure cb = newCClosure =<< mkWidgetGrabNotifyCallback wrapped + where wrapped = widgetGrabNotifyCallbackWrapper cb + +widgetGrabNotifyCallbackWrapper :: + WidgetGrabNotifyCallback -> + Ptr () -> + CInt -> + Ptr () -> + IO () +widgetGrabNotifyCallbackWrapper _cb _ wasGrabbed _ = do + let wasGrabbed' = (/= 0) wasGrabbed + _cb wasGrabbed' + +onWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId +onWidgetGrabNotify obj cb = liftIO $ connectWidgetGrabNotify obj cb SignalConnectBefore +afterWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId +afterWidgetGrabNotify obj cb = connectWidgetGrabNotify obj cb SignalConnectAfter + +connectWidgetGrabNotify :: (GObject a, MonadIO m) => + a -> WidgetGrabNotifyCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetGrabNotify obj cb after = liftIO $ do + cb' <- mkWidgetGrabNotifyCallback (widgetGrabNotifyCallbackWrapper cb) + connectSignalFunPtr obj "grab-notify" cb' after + +-- signal Widget::hide +type WidgetHideCallback = + IO () + +noWidgetHideCallback :: Maybe WidgetHideCallback +noWidgetHideCallback = Nothing + +type WidgetHideCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetHideCallback :: WidgetHideCallbackC -> IO (FunPtr WidgetHideCallbackC) + +widgetHideClosure :: WidgetHideCallback -> IO Closure +widgetHideClosure cb = newCClosure =<< mkWidgetHideCallback wrapped + where wrapped = widgetHideCallbackWrapper cb + +widgetHideCallbackWrapper :: + WidgetHideCallback -> + Ptr () -> + Ptr () -> + IO () +widgetHideCallbackWrapper _cb _ _ = do + _cb + +onWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId +onWidgetHide obj cb = liftIO $ connectWidgetHide obj cb SignalConnectBefore +afterWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId +afterWidgetHide obj cb = connectWidgetHide obj cb SignalConnectAfter + +connectWidgetHide :: (GObject a, MonadIO m) => + a -> WidgetHideCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetHide obj cb after = liftIO $ do + cb' <- mkWidgetHideCallback (widgetHideCallbackWrapper cb) + connectSignalFunPtr obj "hide" cb' after + +-- signal Widget::hierarchy-changed +type WidgetHierarchyChangedCallback = + Maybe Widget -> + IO () + +noWidgetHierarchyChangedCallback :: Maybe WidgetHierarchyChangedCallback +noWidgetHierarchyChangedCallback = Nothing + +type WidgetHierarchyChangedCallbackC = + Ptr () -> -- object + Ptr Widget -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetHierarchyChangedCallback :: WidgetHierarchyChangedCallbackC -> IO (FunPtr WidgetHierarchyChangedCallbackC) + +widgetHierarchyChangedClosure :: WidgetHierarchyChangedCallback -> IO Closure +widgetHierarchyChangedClosure cb = newCClosure =<< mkWidgetHierarchyChangedCallback wrapped + where wrapped = widgetHierarchyChangedCallbackWrapper cb + +widgetHierarchyChangedCallbackWrapper :: + WidgetHierarchyChangedCallback -> + Ptr () -> + Ptr Widget -> + Ptr () -> + IO () +widgetHierarchyChangedCallbackWrapper _cb _ previousToplevel _ = do + maybePreviousToplevel <- + if previousToplevel == nullPtr + then return Nothing + else do + previousToplevel' <- (newObject Widget) previousToplevel + return $ Just previousToplevel' + _cb maybePreviousToplevel + +onWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId +onWidgetHierarchyChanged obj cb = liftIO $ connectWidgetHierarchyChanged obj cb SignalConnectBefore +afterWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId +afterWidgetHierarchyChanged obj cb = connectWidgetHierarchyChanged obj cb SignalConnectAfter + +connectWidgetHierarchyChanged :: (GObject a, MonadIO m) => + a -> WidgetHierarchyChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetHierarchyChanged obj cb after = liftIO $ do + cb' <- mkWidgetHierarchyChangedCallback (widgetHierarchyChangedCallbackWrapper cb) + connectSignalFunPtr obj "hierarchy-changed" cb' after + +-- signal Widget::key-press-event +type WidgetKeyPressEventCallback = + Gdk.EventKey -> + IO Bool + +noWidgetKeyPressEventCallback :: Maybe WidgetKeyPressEventCallback +noWidgetKeyPressEventCallback = Nothing + +type WidgetKeyPressEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventKey -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetKeyPressEventCallback :: WidgetKeyPressEventCallbackC -> IO (FunPtr WidgetKeyPressEventCallbackC) + +widgetKeyPressEventClosure :: WidgetKeyPressEventCallback -> IO Closure +widgetKeyPressEventClosure cb = newCClosure =<< mkWidgetKeyPressEventCallback wrapped + where wrapped = widgetKeyPressEventCallbackWrapper cb + +widgetKeyPressEventCallbackWrapper :: + WidgetKeyPressEventCallback -> + Ptr () -> + Ptr Gdk.EventKey -> + Ptr () -> + IO CInt +widgetKeyPressEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 56 Gdk.EventKey) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId +onWidgetKeyPressEvent obj cb = liftIO $ connectWidgetKeyPressEvent obj cb SignalConnectBefore +afterWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId +afterWidgetKeyPressEvent obj cb = connectWidgetKeyPressEvent obj cb SignalConnectAfter + +connectWidgetKeyPressEvent :: (GObject a, MonadIO m) => + a -> WidgetKeyPressEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetKeyPressEvent obj cb after = liftIO $ do + cb' <- mkWidgetKeyPressEventCallback (widgetKeyPressEventCallbackWrapper cb) + connectSignalFunPtr obj "key-press-event" cb' after + +-- signal Widget::key-release-event +type WidgetKeyReleaseEventCallback = + Gdk.EventKey -> + IO Bool + +noWidgetKeyReleaseEventCallback :: Maybe WidgetKeyReleaseEventCallback +noWidgetKeyReleaseEventCallback = Nothing + +type WidgetKeyReleaseEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventKey -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetKeyReleaseEventCallback :: WidgetKeyReleaseEventCallbackC -> IO (FunPtr WidgetKeyReleaseEventCallbackC) + +widgetKeyReleaseEventClosure :: WidgetKeyReleaseEventCallback -> IO Closure +widgetKeyReleaseEventClosure cb = newCClosure =<< mkWidgetKeyReleaseEventCallback wrapped + where wrapped = widgetKeyReleaseEventCallbackWrapper cb + +widgetKeyReleaseEventCallbackWrapper :: + WidgetKeyReleaseEventCallback -> + Ptr () -> + Ptr Gdk.EventKey -> + Ptr () -> + IO CInt +widgetKeyReleaseEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 56 Gdk.EventKey) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId +onWidgetKeyReleaseEvent obj cb = liftIO $ connectWidgetKeyReleaseEvent obj cb SignalConnectBefore +afterWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId +afterWidgetKeyReleaseEvent obj cb = connectWidgetKeyReleaseEvent obj cb SignalConnectAfter + +connectWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => + a -> WidgetKeyReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetKeyReleaseEvent obj cb after = liftIO $ do + cb' <- mkWidgetKeyReleaseEventCallback (widgetKeyReleaseEventCallbackWrapper cb) + connectSignalFunPtr obj "key-release-event" cb' after + +-- signal Widget::keynav-failed +type WidgetKeynavFailedCallback = + DirectionType -> + IO Bool + +noWidgetKeynavFailedCallback :: Maybe WidgetKeynavFailedCallback +noWidgetKeynavFailedCallback = Nothing + +type WidgetKeynavFailedCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetKeynavFailedCallback :: WidgetKeynavFailedCallbackC -> IO (FunPtr WidgetKeynavFailedCallbackC) + +widgetKeynavFailedClosure :: WidgetKeynavFailedCallback -> IO Closure +widgetKeynavFailedClosure cb = newCClosure =<< mkWidgetKeynavFailedCallback wrapped + where wrapped = widgetKeynavFailedCallbackWrapper cb + +widgetKeynavFailedCallbackWrapper :: + WidgetKeynavFailedCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO CInt +widgetKeynavFailedCallbackWrapper _cb _ direction _ = do + let direction' = (toEnum . fromIntegral) direction + result <- _cb direction' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId +onWidgetKeynavFailed obj cb = liftIO $ connectWidgetKeynavFailed obj cb SignalConnectBefore +afterWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId +afterWidgetKeynavFailed obj cb = connectWidgetKeynavFailed obj cb SignalConnectAfter + +connectWidgetKeynavFailed :: (GObject a, MonadIO m) => + a -> WidgetKeynavFailedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetKeynavFailed obj cb after = liftIO $ do + cb' <- mkWidgetKeynavFailedCallback (widgetKeynavFailedCallbackWrapper cb) + connectSignalFunPtr obj "keynav-failed" cb' after + +-- signal Widget::leave-notify-event +type WidgetLeaveNotifyEventCallback = + Gdk.EventCrossing -> + IO Bool + +noWidgetLeaveNotifyEventCallback :: Maybe WidgetLeaveNotifyEventCallback +noWidgetLeaveNotifyEventCallback = Nothing + +type WidgetLeaveNotifyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventCrossing -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetLeaveNotifyEventCallback :: WidgetLeaveNotifyEventCallbackC -> IO (FunPtr WidgetLeaveNotifyEventCallbackC) + +widgetLeaveNotifyEventClosure :: WidgetLeaveNotifyEventCallback -> IO Closure +widgetLeaveNotifyEventClosure cb = newCClosure =<< mkWidgetLeaveNotifyEventCallback wrapped + where wrapped = widgetLeaveNotifyEventCallbackWrapper cb + +widgetLeaveNotifyEventCallbackWrapper :: + WidgetLeaveNotifyEventCallback -> + Ptr () -> + Ptr Gdk.EventCrossing -> + Ptr () -> + IO CInt +widgetLeaveNotifyEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 88 Gdk.EventCrossing) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId +onWidgetLeaveNotifyEvent obj cb = liftIO $ connectWidgetLeaveNotifyEvent obj cb SignalConnectBefore +afterWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId +afterWidgetLeaveNotifyEvent obj cb = connectWidgetLeaveNotifyEvent obj cb SignalConnectAfter + +connectWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => + a -> WidgetLeaveNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetLeaveNotifyEvent obj cb after = liftIO $ do + cb' <- mkWidgetLeaveNotifyEventCallback (widgetLeaveNotifyEventCallbackWrapper cb) + connectSignalFunPtr obj "leave-notify-event" cb' after + +-- signal Widget::map +type WidgetMapCallback = + IO () + +noWidgetMapCallback :: Maybe WidgetMapCallback +noWidgetMapCallback = Nothing + +type WidgetMapCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetMapCallback :: WidgetMapCallbackC -> IO (FunPtr WidgetMapCallbackC) + +widgetMapClosure :: WidgetMapCallback -> IO Closure +widgetMapClosure cb = newCClosure =<< mkWidgetMapCallback wrapped + where wrapped = widgetMapCallbackWrapper cb + +widgetMapCallbackWrapper :: + WidgetMapCallback -> + Ptr () -> + Ptr () -> + IO () +widgetMapCallbackWrapper _cb _ _ = do + _cb + +onWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId +onWidgetMap obj cb = liftIO $ connectWidgetMap obj cb SignalConnectBefore +afterWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId +afterWidgetMap obj cb = connectWidgetMap obj cb SignalConnectAfter + +connectWidgetMap :: (GObject a, MonadIO m) => + a -> WidgetMapCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetMap obj cb after = liftIO $ do + cb' <- mkWidgetMapCallback (widgetMapCallbackWrapper cb) + connectSignalFunPtr obj "map" cb' after + +-- signal Widget::map-event +type WidgetMapEventCallback = + Gdk.EventAny -> + IO Bool + +noWidgetMapEventCallback :: Maybe WidgetMapEventCallback +noWidgetMapEventCallback = Nothing + +type WidgetMapEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventAny -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetMapEventCallback :: WidgetMapEventCallbackC -> IO (FunPtr WidgetMapEventCallbackC) + +widgetMapEventClosure :: WidgetMapEventCallback -> IO Closure +widgetMapEventClosure cb = newCClosure =<< mkWidgetMapEventCallback wrapped + where wrapped = widgetMapEventCallbackWrapper cb + +widgetMapEventCallbackWrapper :: + WidgetMapEventCallback -> + Ptr () -> + Ptr Gdk.EventAny -> + Ptr () -> + IO CInt +widgetMapEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 24 Gdk.EventAny) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId +onWidgetMapEvent obj cb = liftIO $ connectWidgetMapEvent obj cb SignalConnectBefore +afterWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId +afterWidgetMapEvent obj cb = connectWidgetMapEvent obj cb SignalConnectAfter + +connectWidgetMapEvent :: (GObject a, MonadIO m) => + a -> WidgetMapEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetMapEvent obj cb after = liftIO $ do + cb' <- mkWidgetMapEventCallback (widgetMapEventCallbackWrapper cb) + connectSignalFunPtr obj "map-event" cb' after + +-- signal Widget::mnemonic-activate +type WidgetMnemonicActivateCallback = + Bool -> + IO Bool + +noWidgetMnemonicActivateCallback :: Maybe WidgetMnemonicActivateCallback +noWidgetMnemonicActivateCallback = Nothing + +type WidgetMnemonicActivateCallbackC = + Ptr () -> -- object + CInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetMnemonicActivateCallback :: WidgetMnemonicActivateCallbackC -> IO (FunPtr WidgetMnemonicActivateCallbackC) + +widgetMnemonicActivateClosure :: WidgetMnemonicActivateCallback -> IO Closure +widgetMnemonicActivateClosure cb = newCClosure =<< mkWidgetMnemonicActivateCallback wrapped + where wrapped = widgetMnemonicActivateCallbackWrapper cb + +widgetMnemonicActivateCallbackWrapper :: + WidgetMnemonicActivateCallback -> + Ptr () -> + CInt -> + Ptr () -> + IO CInt +widgetMnemonicActivateCallbackWrapper _cb _ arg1 _ = do + let arg1' = (/= 0) arg1 + result <- _cb arg1' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId +onWidgetMnemonicActivate obj cb = liftIO $ connectWidgetMnemonicActivate obj cb SignalConnectBefore +afterWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId +afterWidgetMnemonicActivate obj cb = connectWidgetMnemonicActivate obj cb SignalConnectAfter + +connectWidgetMnemonicActivate :: (GObject a, MonadIO m) => + a -> WidgetMnemonicActivateCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetMnemonicActivate obj cb after = liftIO $ do + cb' <- mkWidgetMnemonicActivateCallback (widgetMnemonicActivateCallbackWrapper cb) + connectSignalFunPtr obj "mnemonic-activate" cb' after + +-- signal Widget::motion-notify-event +type WidgetMotionNotifyEventCallback = + Gdk.EventMotion -> + IO Bool + +noWidgetMotionNotifyEventCallback :: Maybe WidgetMotionNotifyEventCallback +noWidgetMotionNotifyEventCallback = Nothing + +type WidgetMotionNotifyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventMotion -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetMotionNotifyEventCallback :: WidgetMotionNotifyEventCallbackC -> IO (FunPtr WidgetMotionNotifyEventCallbackC) + +widgetMotionNotifyEventClosure :: WidgetMotionNotifyEventCallback -> IO Closure +widgetMotionNotifyEventClosure cb = newCClosure =<< mkWidgetMotionNotifyEventCallback wrapped + where wrapped = widgetMotionNotifyEventCallbackWrapper cb + +widgetMotionNotifyEventCallbackWrapper :: + WidgetMotionNotifyEventCallback -> + Ptr () -> + Ptr Gdk.EventMotion -> + Ptr () -> + IO CInt +widgetMotionNotifyEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 80 Gdk.EventMotion) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId +onWidgetMotionNotifyEvent obj cb = liftIO $ connectWidgetMotionNotifyEvent obj cb SignalConnectBefore +afterWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId +afterWidgetMotionNotifyEvent obj cb = connectWidgetMotionNotifyEvent obj cb SignalConnectAfter + +connectWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => + a -> WidgetMotionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetMotionNotifyEvent obj cb after = liftIO $ do + cb' <- mkWidgetMotionNotifyEventCallback (widgetMotionNotifyEventCallbackWrapper cb) + connectSignalFunPtr obj "motion-notify-event" cb' after + +-- signal Widget::move-focus +type WidgetMoveFocusCallback = + DirectionType -> + IO () + +noWidgetMoveFocusCallback :: Maybe WidgetMoveFocusCallback +noWidgetMoveFocusCallback = Nothing + +type WidgetMoveFocusCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetMoveFocusCallback :: WidgetMoveFocusCallbackC -> IO (FunPtr WidgetMoveFocusCallbackC) + +widgetMoveFocusClosure :: WidgetMoveFocusCallback -> IO Closure +widgetMoveFocusClosure cb = newCClosure =<< mkWidgetMoveFocusCallback wrapped + where wrapped = widgetMoveFocusCallbackWrapper cb + +widgetMoveFocusCallbackWrapper :: + WidgetMoveFocusCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO () +widgetMoveFocusCallbackWrapper _cb _ direction _ = do + let direction' = (toEnum . fromIntegral) direction + _cb direction' + +onWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId +onWidgetMoveFocus obj cb = liftIO $ connectWidgetMoveFocus obj cb SignalConnectBefore +afterWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId +afterWidgetMoveFocus obj cb = connectWidgetMoveFocus obj cb SignalConnectAfter + +connectWidgetMoveFocus :: (GObject a, MonadIO m) => + a -> WidgetMoveFocusCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetMoveFocus obj cb after = liftIO $ do + cb' <- mkWidgetMoveFocusCallback (widgetMoveFocusCallbackWrapper cb) + connectSignalFunPtr obj "move-focus" cb' after + +-- signal Widget::parent-set +type WidgetParentSetCallback = + Maybe Widget -> + IO () + +noWidgetParentSetCallback :: Maybe WidgetParentSetCallback +noWidgetParentSetCallback = Nothing + +type WidgetParentSetCallbackC = + Ptr () -> -- object + Ptr Widget -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetParentSetCallback :: WidgetParentSetCallbackC -> IO (FunPtr WidgetParentSetCallbackC) + +widgetParentSetClosure :: WidgetParentSetCallback -> IO Closure +widgetParentSetClosure cb = newCClosure =<< mkWidgetParentSetCallback wrapped + where wrapped = widgetParentSetCallbackWrapper cb + +widgetParentSetCallbackWrapper :: + WidgetParentSetCallback -> + Ptr () -> + Ptr Widget -> + Ptr () -> + IO () +widgetParentSetCallbackWrapper _cb _ oldParent _ = do + maybeOldParent <- + if oldParent == nullPtr + then return Nothing + else do + oldParent' <- (newObject Widget) oldParent + return $ Just oldParent' + _cb maybeOldParent + +onWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId +onWidgetParentSet obj cb = liftIO $ connectWidgetParentSet obj cb SignalConnectBefore +afterWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId +afterWidgetParentSet obj cb = connectWidgetParentSet obj cb SignalConnectAfter + +connectWidgetParentSet :: (GObject a, MonadIO m) => + a -> WidgetParentSetCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetParentSet obj cb after = liftIO $ do + cb' <- mkWidgetParentSetCallback (widgetParentSetCallbackWrapper cb) + connectSignalFunPtr obj "parent-set" cb' after + +-- signal Widget::popup-menu +type WidgetPopupMenuCallback = + IO Bool + +noWidgetPopupMenuCallback :: Maybe WidgetPopupMenuCallback +noWidgetPopupMenuCallback = Nothing + +type WidgetPopupMenuCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetPopupMenuCallback :: WidgetPopupMenuCallbackC -> IO (FunPtr WidgetPopupMenuCallbackC) + +widgetPopupMenuClosure :: WidgetPopupMenuCallback -> IO Closure +widgetPopupMenuClosure cb = newCClosure =<< mkWidgetPopupMenuCallback wrapped + where wrapped = widgetPopupMenuCallbackWrapper cb + +widgetPopupMenuCallbackWrapper :: + WidgetPopupMenuCallback -> + Ptr () -> + Ptr () -> + IO CInt +widgetPopupMenuCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId +onWidgetPopupMenu obj cb = liftIO $ connectWidgetPopupMenu obj cb SignalConnectBefore +afterWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId +afterWidgetPopupMenu obj cb = connectWidgetPopupMenu obj cb SignalConnectAfter + +connectWidgetPopupMenu :: (GObject a, MonadIO m) => + a -> WidgetPopupMenuCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetPopupMenu obj cb after = liftIO $ do + cb' <- mkWidgetPopupMenuCallback (widgetPopupMenuCallbackWrapper cb) + connectSignalFunPtr obj "popup-menu" cb' after + +-- signal Widget::property-notify-event +type WidgetPropertyNotifyEventCallback = + Gdk.EventProperty -> + IO Bool + +noWidgetPropertyNotifyEventCallback :: Maybe WidgetPropertyNotifyEventCallback +noWidgetPropertyNotifyEventCallback = Nothing + +type WidgetPropertyNotifyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventProperty -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetPropertyNotifyEventCallback :: WidgetPropertyNotifyEventCallbackC -> IO (FunPtr WidgetPropertyNotifyEventCallbackC) + +widgetPropertyNotifyEventClosure :: WidgetPropertyNotifyEventCallback -> IO Closure +widgetPropertyNotifyEventClosure cb = newCClosure =<< mkWidgetPropertyNotifyEventCallback wrapped + where wrapped = widgetPropertyNotifyEventCallbackWrapper cb + +widgetPropertyNotifyEventCallbackWrapper :: + WidgetPropertyNotifyEventCallback -> + Ptr () -> + Ptr Gdk.EventProperty -> + Ptr () -> + IO CInt +widgetPropertyNotifyEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 40 Gdk.EventProperty) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId +onWidgetPropertyNotifyEvent obj cb = liftIO $ connectWidgetPropertyNotifyEvent obj cb SignalConnectBefore +afterWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId +afterWidgetPropertyNotifyEvent obj cb = connectWidgetPropertyNotifyEvent obj cb SignalConnectAfter + +connectWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => + a -> WidgetPropertyNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetPropertyNotifyEvent obj cb after = liftIO $ do + cb' <- mkWidgetPropertyNotifyEventCallback (widgetPropertyNotifyEventCallbackWrapper cb) + connectSignalFunPtr obj "property-notify-event" cb' after + +-- signal Widget::proximity-in-event +type WidgetProximityInEventCallback = + Gdk.EventProximity -> + IO Bool + +noWidgetProximityInEventCallback :: Maybe WidgetProximityInEventCallback +noWidgetProximityInEventCallback = Nothing + +type WidgetProximityInEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventProximity -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetProximityInEventCallback :: WidgetProximityInEventCallbackC -> IO (FunPtr WidgetProximityInEventCallbackC) + +widgetProximityInEventClosure :: WidgetProximityInEventCallback -> IO Closure +widgetProximityInEventClosure cb = newCClosure =<< mkWidgetProximityInEventCallback wrapped + where wrapped = widgetProximityInEventCallbackWrapper cb + +widgetProximityInEventCallbackWrapper :: + WidgetProximityInEventCallback -> + Ptr () -> + Ptr Gdk.EventProximity -> + Ptr () -> + IO CInt +widgetProximityInEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 32 Gdk.EventProximity) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId +onWidgetProximityInEvent obj cb = liftIO $ connectWidgetProximityInEvent obj cb SignalConnectBefore +afterWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId +afterWidgetProximityInEvent obj cb = connectWidgetProximityInEvent obj cb SignalConnectAfter + +connectWidgetProximityInEvent :: (GObject a, MonadIO m) => + a -> WidgetProximityInEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetProximityInEvent obj cb after = liftIO $ do + cb' <- mkWidgetProximityInEventCallback (widgetProximityInEventCallbackWrapper cb) + connectSignalFunPtr obj "proximity-in-event" cb' after + +-- signal Widget::proximity-out-event +type WidgetProximityOutEventCallback = + Gdk.EventProximity -> + IO Bool + +noWidgetProximityOutEventCallback :: Maybe WidgetProximityOutEventCallback +noWidgetProximityOutEventCallback = Nothing + +type WidgetProximityOutEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventProximity -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetProximityOutEventCallback :: WidgetProximityOutEventCallbackC -> IO (FunPtr WidgetProximityOutEventCallbackC) + +widgetProximityOutEventClosure :: WidgetProximityOutEventCallback -> IO Closure +widgetProximityOutEventClosure cb = newCClosure =<< mkWidgetProximityOutEventCallback wrapped + where wrapped = widgetProximityOutEventCallbackWrapper cb + +widgetProximityOutEventCallbackWrapper :: + WidgetProximityOutEventCallback -> + Ptr () -> + Ptr Gdk.EventProximity -> + Ptr () -> + IO CInt +widgetProximityOutEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 32 Gdk.EventProximity) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId +onWidgetProximityOutEvent obj cb = liftIO $ connectWidgetProximityOutEvent obj cb SignalConnectBefore +afterWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId +afterWidgetProximityOutEvent obj cb = connectWidgetProximityOutEvent obj cb SignalConnectAfter + +connectWidgetProximityOutEvent :: (GObject a, MonadIO m) => + a -> WidgetProximityOutEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetProximityOutEvent obj cb after = liftIO $ do + cb' <- mkWidgetProximityOutEventCallback (widgetProximityOutEventCallbackWrapper cb) + connectSignalFunPtr obj "proximity-out-event" cb' after + +-- signal Widget::query-tooltip +type WidgetQueryTooltipCallback = + Int32 -> + Int32 -> + Bool -> + Tooltip -> + IO Bool + +noWidgetQueryTooltipCallback :: Maybe WidgetQueryTooltipCallback +noWidgetQueryTooltipCallback = Nothing + +type WidgetQueryTooltipCallbackC = + Ptr () -> -- object + Int32 -> + Int32 -> + CInt -> + Ptr Tooltip -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetQueryTooltipCallback :: WidgetQueryTooltipCallbackC -> IO (FunPtr WidgetQueryTooltipCallbackC) + +widgetQueryTooltipClosure :: WidgetQueryTooltipCallback -> IO Closure +widgetQueryTooltipClosure cb = newCClosure =<< mkWidgetQueryTooltipCallback wrapped + where wrapped = widgetQueryTooltipCallbackWrapper cb + +widgetQueryTooltipCallbackWrapper :: + WidgetQueryTooltipCallback -> + Ptr () -> + Int32 -> + Int32 -> + CInt -> + Ptr Tooltip -> + Ptr () -> + IO CInt +widgetQueryTooltipCallbackWrapper _cb _ x y keyboardMode tooltip _ = do + let keyboardMode' = (/= 0) keyboardMode + tooltip' <- (newObject Tooltip) tooltip + result <- _cb x y keyboardMode' tooltip' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId +onWidgetQueryTooltip obj cb = liftIO $ connectWidgetQueryTooltip obj cb SignalConnectBefore +afterWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId +afterWidgetQueryTooltip obj cb = connectWidgetQueryTooltip obj cb SignalConnectAfter + +connectWidgetQueryTooltip :: (GObject a, MonadIO m) => + a -> WidgetQueryTooltipCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetQueryTooltip obj cb after = liftIO $ do + cb' <- mkWidgetQueryTooltipCallback (widgetQueryTooltipCallbackWrapper cb) + connectSignalFunPtr obj "query-tooltip" cb' after + +-- signal Widget::realize +type WidgetRealizeCallback = + IO () + +noWidgetRealizeCallback :: Maybe WidgetRealizeCallback +noWidgetRealizeCallback = Nothing + +type WidgetRealizeCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetRealizeCallback :: WidgetRealizeCallbackC -> IO (FunPtr WidgetRealizeCallbackC) + +widgetRealizeClosure :: WidgetRealizeCallback -> IO Closure +widgetRealizeClosure cb = newCClosure =<< mkWidgetRealizeCallback wrapped + where wrapped = widgetRealizeCallbackWrapper cb + +widgetRealizeCallbackWrapper :: + WidgetRealizeCallback -> + Ptr () -> + Ptr () -> + IO () +widgetRealizeCallbackWrapper _cb _ _ = do + _cb + +onWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId +onWidgetRealize obj cb = liftIO $ connectWidgetRealize obj cb SignalConnectBefore +afterWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId +afterWidgetRealize obj cb = connectWidgetRealize obj cb SignalConnectAfter + +connectWidgetRealize :: (GObject a, MonadIO m) => + a -> WidgetRealizeCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetRealize obj cb after = liftIO $ do + cb' <- mkWidgetRealizeCallback (widgetRealizeCallbackWrapper cb) + connectSignalFunPtr obj "realize" cb' after + +-- signal Widget::screen-changed +type WidgetScreenChangedCallback = + Maybe Gdk.Screen -> + IO () + +noWidgetScreenChangedCallback :: Maybe WidgetScreenChangedCallback +noWidgetScreenChangedCallback = Nothing + +type WidgetScreenChangedCallbackC = + Ptr () -> -- object + Ptr Gdk.Screen -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetScreenChangedCallback :: WidgetScreenChangedCallbackC -> IO (FunPtr WidgetScreenChangedCallbackC) + +widgetScreenChangedClosure :: WidgetScreenChangedCallback -> IO Closure +widgetScreenChangedClosure cb = newCClosure =<< mkWidgetScreenChangedCallback wrapped + where wrapped = widgetScreenChangedCallbackWrapper cb + +widgetScreenChangedCallbackWrapper :: + WidgetScreenChangedCallback -> + Ptr () -> + Ptr Gdk.Screen -> + Ptr () -> + IO () +widgetScreenChangedCallbackWrapper _cb _ previousScreen _ = do + maybePreviousScreen <- + if previousScreen == nullPtr + then return Nothing + else do + previousScreen' <- (newObject Gdk.Screen) previousScreen + return $ Just previousScreen' + _cb maybePreviousScreen + +onWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId +onWidgetScreenChanged obj cb = liftIO $ connectWidgetScreenChanged obj cb SignalConnectBefore +afterWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId +afterWidgetScreenChanged obj cb = connectWidgetScreenChanged obj cb SignalConnectAfter + +connectWidgetScreenChanged :: (GObject a, MonadIO m) => + a -> WidgetScreenChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetScreenChanged obj cb after = liftIO $ do + cb' <- mkWidgetScreenChangedCallback (widgetScreenChangedCallbackWrapper cb) + connectSignalFunPtr obj "screen-changed" cb' after + +-- signal Widget::scroll-event +type WidgetScrollEventCallback = + Gdk.EventScroll -> + IO Bool + +noWidgetScrollEventCallback :: Maybe WidgetScrollEventCallback +noWidgetScrollEventCallback = Nothing + +type WidgetScrollEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventScroll -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetScrollEventCallback :: WidgetScrollEventCallbackC -> IO (FunPtr WidgetScrollEventCallbackC) + +widgetScrollEventClosure :: WidgetScrollEventCallback -> IO Closure +widgetScrollEventClosure cb = newCClosure =<< mkWidgetScrollEventCallback wrapped + where wrapped = widgetScrollEventCallbackWrapper cb + +widgetScrollEventCallbackWrapper :: + WidgetScrollEventCallback -> + Ptr () -> + Ptr Gdk.EventScroll -> + Ptr () -> + IO CInt +widgetScrollEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 88 Gdk.EventScroll) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId +onWidgetScrollEvent obj cb = liftIO $ connectWidgetScrollEvent obj cb SignalConnectBefore +afterWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId +afterWidgetScrollEvent obj cb = connectWidgetScrollEvent obj cb SignalConnectAfter + +connectWidgetScrollEvent :: (GObject a, MonadIO m) => + a -> WidgetScrollEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetScrollEvent obj cb after = liftIO $ do + cb' <- mkWidgetScrollEventCallback (widgetScrollEventCallbackWrapper cb) + connectSignalFunPtr obj "scroll-event" cb' after + +-- signal Widget::selection-clear-event +type WidgetSelectionClearEventCallback = + Gdk.EventSelection -> + IO Bool + +noWidgetSelectionClearEventCallback :: Maybe WidgetSelectionClearEventCallback +noWidgetSelectionClearEventCallback = Nothing + +type WidgetSelectionClearEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventSelection -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetSelectionClearEventCallback :: WidgetSelectionClearEventCallbackC -> IO (FunPtr WidgetSelectionClearEventCallbackC) + +widgetSelectionClearEventClosure :: WidgetSelectionClearEventCallback -> IO Closure +widgetSelectionClearEventClosure cb = newCClosure =<< mkWidgetSelectionClearEventCallback wrapped + where wrapped = widgetSelectionClearEventCallbackWrapper cb + +widgetSelectionClearEventCallbackWrapper :: + WidgetSelectionClearEventCallback -> + Ptr () -> + Ptr Gdk.EventSelection -> + Ptr () -> + IO CInt +widgetSelectionClearEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 64 Gdk.EventSelection) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId +onWidgetSelectionClearEvent obj cb = liftIO $ connectWidgetSelectionClearEvent obj cb SignalConnectBefore +afterWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId +afterWidgetSelectionClearEvent obj cb = connectWidgetSelectionClearEvent obj cb SignalConnectAfter + +connectWidgetSelectionClearEvent :: (GObject a, MonadIO m) => + a -> WidgetSelectionClearEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetSelectionClearEvent obj cb after = liftIO $ do + cb' <- mkWidgetSelectionClearEventCallback (widgetSelectionClearEventCallbackWrapper cb) + connectSignalFunPtr obj "selection-clear-event" cb' after + +-- signal Widget::selection-get +type WidgetSelectionGetCallback = + SelectionData -> + Word32 -> + Word32 -> + IO () + +noWidgetSelectionGetCallback :: Maybe WidgetSelectionGetCallback +noWidgetSelectionGetCallback = Nothing + +type WidgetSelectionGetCallbackC = + Ptr () -> -- object + Ptr SelectionData -> + Word32 -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetSelectionGetCallback :: WidgetSelectionGetCallbackC -> IO (FunPtr WidgetSelectionGetCallbackC) + +widgetSelectionGetClosure :: WidgetSelectionGetCallback -> IO Closure +widgetSelectionGetClosure cb = newCClosure =<< mkWidgetSelectionGetCallback wrapped + where wrapped = widgetSelectionGetCallbackWrapper cb + +widgetSelectionGetCallbackWrapper :: + WidgetSelectionGetCallback -> + Ptr () -> + Ptr SelectionData -> + Word32 -> + Word32 -> + Ptr () -> + IO () +widgetSelectionGetCallbackWrapper _cb _ data_ info time _ = do + data_' <- (newBoxed SelectionData) data_ + _cb data_' info time + +onWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId +onWidgetSelectionGet obj cb = liftIO $ connectWidgetSelectionGet obj cb SignalConnectBefore +afterWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId +afterWidgetSelectionGet obj cb = connectWidgetSelectionGet obj cb SignalConnectAfter + +connectWidgetSelectionGet :: (GObject a, MonadIO m) => + a -> WidgetSelectionGetCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetSelectionGet obj cb after = liftIO $ do + cb' <- mkWidgetSelectionGetCallback (widgetSelectionGetCallbackWrapper cb) + connectSignalFunPtr obj "selection-get" cb' after + +-- signal Widget::selection-notify-event +type WidgetSelectionNotifyEventCallback = + Gdk.EventSelection -> + IO Bool + +noWidgetSelectionNotifyEventCallback :: Maybe WidgetSelectionNotifyEventCallback +noWidgetSelectionNotifyEventCallback = Nothing + +type WidgetSelectionNotifyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventSelection -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetSelectionNotifyEventCallback :: WidgetSelectionNotifyEventCallbackC -> IO (FunPtr WidgetSelectionNotifyEventCallbackC) + +widgetSelectionNotifyEventClosure :: WidgetSelectionNotifyEventCallback -> IO Closure +widgetSelectionNotifyEventClosure cb = newCClosure =<< mkWidgetSelectionNotifyEventCallback wrapped + where wrapped = widgetSelectionNotifyEventCallbackWrapper cb + +widgetSelectionNotifyEventCallbackWrapper :: + WidgetSelectionNotifyEventCallback -> + Ptr () -> + Ptr Gdk.EventSelection -> + Ptr () -> + IO CInt +widgetSelectionNotifyEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 64 Gdk.EventSelection) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId +onWidgetSelectionNotifyEvent obj cb = liftIO $ connectWidgetSelectionNotifyEvent obj cb SignalConnectBefore +afterWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId +afterWidgetSelectionNotifyEvent obj cb = connectWidgetSelectionNotifyEvent obj cb SignalConnectAfter + +connectWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => + a -> WidgetSelectionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetSelectionNotifyEvent obj cb after = liftIO $ do + cb' <- mkWidgetSelectionNotifyEventCallback (widgetSelectionNotifyEventCallbackWrapper cb) + connectSignalFunPtr obj "selection-notify-event" cb' after + +-- signal Widget::selection-received +type WidgetSelectionReceivedCallback = + SelectionData -> + Word32 -> + IO () + +noWidgetSelectionReceivedCallback :: Maybe WidgetSelectionReceivedCallback +noWidgetSelectionReceivedCallback = Nothing + +type WidgetSelectionReceivedCallbackC = + Ptr () -> -- object + Ptr SelectionData -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetSelectionReceivedCallback :: WidgetSelectionReceivedCallbackC -> IO (FunPtr WidgetSelectionReceivedCallbackC) + +widgetSelectionReceivedClosure :: WidgetSelectionReceivedCallback -> IO Closure +widgetSelectionReceivedClosure cb = newCClosure =<< mkWidgetSelectionReceivedCallback wrapped + where wrapped = widgetSelectionReceivedCallbackWrapper cb + +widgetSelectionReceivedCallbackWrapper :: + WidgetSelectionReceivedCallback -> + Ptr () -> + Ptr SelectionData -> + Word32 -> + Ptr () -> + IO () +widgetSelectionReceivedCallbackWrapper _cb _ data_ time _ = do + data_' <- (newBoxed SelectionData) data_ + _cb data_' time + +onWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId +onWidgetSelectionReceived obj cb = liftIO $ connectWidgetSelectionReceived obj cb SignalConnectBefore +afterWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId +afterWidgetSelectionReceived obj cb = connectWidgetSelectionReceived obj cb SignalConnectAfter + +connectWidgetSelectionReceived :: (GObject a, MonadIO m) => + a -> WidgetSelectionReceivedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetSelectionReceived obj cb after = liftIO $ do + cb' <- mkWidgetSelectionReceivedCallback (widgetSelectionReceivedCallbackWrapper cb) + connectSignalFunPtr obj "selection-received" cb' after + +-- signal Widget::selection-request-event +type WidgetSelectionRequestEventCallback = + Gdk.EventSelection -> + IO Bool + +noWidgetSelectionRequestEventCallback :: Maybe WidgetSelectionRequestEventCallback +noWidgetSelectionRequestEventCallback = Nothing + +type WidgetSelectionRequestEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventSelection -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetSelectionRequestEventCallback :: WidgetSelectionRequestEventCallbackC -> IO (FunPtr WidgetSelectionRequestEventCallbackC) + +widgetSelectionRequestEventClosure :: WidgetSelectionRequestEventCallback -> IO Closure +widgetSelectionRequestEventClosure cb = newCClosure =<< mkWidgetSelectionRequestEventCallback wrapped + where wrapped = widgetSelectionRequestEventCallbackWrapper cb + +widgetSelectionRequestEventCallbackWrapper :: + WidgetSelectionRequestEventCallback -> + Ptr () -> + Ptr Gdk.EventSelection -> + Ptr () -> + IO CInt +widgetSelectionRequestEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 64 Gdk.EventSelection) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId +onWidgetSelectionRequestEvent obj cb = liftIO $ connectWidgetSelectionRequestEvent obj cb SignalConnectBefore +afterWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId +afterWidgetSelectionRequestEvent obj cb = connectWidgetSelectionRequestEvent obj cb SignalConnectAfter + +connectWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => + a -> WidgetSelectionRequestEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetSelectionRequestEvent obj cb after = liftIO $ do + cb' <- mkWidgetSelectionRequestEventCallback (widgetSelectionRequestEventCallbackWrapper cb) + connectSignalFunPtr obj "selection-request-event" cb' after + +-- signal Widget::show +type WidgetShowCallback = + IO () + +noWidgetShowCallback :: Maybe WidgetShowCallback +noWidgetShowCallback = Nothing + +type WidgetShowCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetShowCallback :: WidgetShowCallbackC -> IO (FunPtr WidgetShowCallbackC) + +widgetShowClosure :: WidgetShowCallback -> IO Closure +widgetShowClosure cb = newCClosure =<< mkWidgetShowCallback wrapped + where wrapped = widgetShowCallbackWrapper cb + +widgetShowCallbackWrapper :: + WidgetShowCallback -> + Ptr () -> + Ptr () -> + IO () +widgetShowCallbackWrapper _cb _ _ = do + _cb + +onWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId +onWidgetShow obj cb = liftIO $ connectWidgetShow obj cb SignalConnectBefore +afterWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId +afterWidgetShow obj cb = connectWidgetShow obj cb SignalConnectAfter + +connectWidgetShow :: (GObject a, MonadIO m) => + a -> WidgetShowCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetShow obj cb after = liftIO $ do + cb' <- mkWidgetShowCallback (widgetShowCallbackWrapper cb) + connectSignalFunPtr obj "show" cb' after + +-- signal Widget::show-help +type WidgetShowHelpCallback = + WidgetHelpType -> + IO Bool + +noWidgetShowHelpCallback :: Maybe WidgetShowHelpCallback +noWidgetShowHelpCallback = Nothing + +type WidgetShowHelpCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetShowHelpCallback :: WidgetShowHelpCallbackC -> IO (FunPtr WidgetShowHelpCallbackC) + +widgetShowHelpClosure :: WidgetShowHelpCallback -> IO Closure +widgetShowHelpClosure cb = newCClosure =<< mkWidgetShowHelpCallback wrapped + where wrapped = widgetShowHelpCallbackWrapper cb + +widgetShowHelpCallbackWrapper :: + WidgetShowHelpCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO CInt +widgetShowHelpCallbackWrapper _cb _ helpType _ = do + let helpType' = (toEnum . fromIntegral) helpType + result <- _cb helpType' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId +onWidgetShowHelp obj cb = liftIO $ connectWidgetShowHelp obj cb SignalConnectBefore +afterWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId +afterWidgetShowHelp obj cb = connectWidgetShowHelp obj cb SignalConnectAfter + +connectWidgetShowHelp :: (GObject a, MonadIO m) => + a -> WidgetShowHelpCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetShowHelp obj cb after = liftIO $ do + cb' <- mkWidgetShowHelpCallback (widgetShowHelpCallbackWrapper cb) + connectSignalFunPtr obj "show-help" cb' after + +-- signal Widget::size-allocate +type WidgetSizeAllocateCallback = + Gdk.Rectangle -> + IO () + +noWidgetSizeAllocateCallback :: Maybe WidgetSizeAllocateCallback +noWidgetSizeAllocateCallback = Nothing + +type WidgetSizeAllocateCallbackC = + Ptr () -> -- object + Ptr Gdk.Rectangle -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetSizeAllocateCallback :: WidgetSizeAllocateCallbackC -> IO (FunPtr WidgetSizeAllocateCallbackC) + +widgetSizeAllocateClosure :: WidgetSizeAllocateCallback -> IO Closure +widgetSizeAllocateClosure cb = newCClosure =<< mkWidgetSizeAllocateCallback wrapped + where wrapped = widgetSizeAllocateCallbackWrapper cb + +widgetSizeAllocateCallbackWrapper :: + WidgetSizeAllocateCallback -> + Ptr () -> + Ptr Gdk.Rectangle -> + Ptr () -> + IO () +widgetSizeAllocateCallbackWrapper _cb _ allocation _ = do + allocation' <- (newBoxed Gdk.Rectangle) allocation + _cb allocation' + +onWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId +onWidgetSizeAllocate obj cb = liftIO $ connectWidgetSizeAllocate obj cb SignalConnectBefore +afterWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId +afterWidgetSizeAllocate obj cb = connectWidgetSizeAllocate obj cb SignalConnectAfter + +connectWidgetSizeAllocate :: (GObject a, MonadIO m) => + a -> WidgetSizeAllocateCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetSizeAllocate obj cb after = liftIO $ do + cb' <- mkWidgetSizeAllocateCallback (widgetSizeAllocateCallbackWrapper cb) + connectSignalFunPtr obj "size-allocate" cb' after + +-- signal Widget::state-changed +type WidgetStateChangedCallback = + StateType -> + IO () + +noWidgetStateChangedCallback :: Maybe WidgetStateChangedCallback +noWidgetStateChangedCallback = Nothing + +type WidgetStateChangedCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetStateChangedCallback :: WidgetStateChangedCallbackC -> IO (FunPtr WidgetStateChangedCallbackC) + +widgetStateChangedClosure :: WidgetStateChangedCallback -> IO Closure +widgetStateChangedClosure cb = newCClosure =<< mkWidgetStateChangedCallback wrapped + where wrapped = widgetStateChangedCallbackWrapper cb + +widgetStateChangedCallbackWrapper :: + WidgetStateChangedCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO () +widgetStateChangedCallbackWrapper _cb _ state _ = do + let state' = (toEnum . fromIntegral) state + _cb state' + +onWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId +onWidgetStateChanged obj cb = liftIO $ connectWidgetStateChanged obj cb SignalConnectBefore +afterWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId +afterWidgetStateChanged obj cb = connectWidgetStateChanged obj cb SignalConnectAfter + +connectWidgetStateChanged :: (GObject a, MonadIO m) => + a -> WidgetStateChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetStateChanged obj cb after = liftIO $ do + cb' <- mkWidgetStateChangedCallback (widgetStateChangedCallbackWrapper cb) + connectSignalFunPtr obj "state-changed" cb' after + +-- signal Widget::state-flags-changed +type WidgetStateFlagsChangedCallback = + [StateFlags] -> + IO () + +noWidgetStateFlagsChangedCallback :: Maybe WidgetStateFlagsChangedCallback +noWidgetStateFlagsChangedCallback = Nothing + +type WidgetStateFlagsChangedCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetStateFlagsChangedCallback :: WidgetStateFlagsChangedCallbackC -> IO (FunPtr WidgetStateFlagsChangedCallbackC) + +widgetStateFlagsChangedClosure :: WidgetStateFlagsChangedCallback -> IO Closure +widgetStateFlagsChangedClosure cb = newCClosure =<< mkWidgetStateFlagsChangedCallback wrapped + where wrapped = widgetStateFlagsChangedCallbackWrapper cb + +widgetStateFlagsChangedCallbackWrapper :: + WidgetStateFlagsChangedCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO () +widgetStateFlagsChangedCallbackWrapper _cb _ flags _ = do + let flags' = wordToGFlags flags + _cb flags' + +onWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId +onWidgetStateFlagsChanged obj cb = liftIO $ connectWidgetStateFlagsChanged obj cb SignalConnectBefore +afterWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId +afterWidgetStateFlagsChanged obj cb = connectWidgetStateFlagsChanged obj cb SignalConnectAfter + +connectWidgetStateFlagsChanged :: (GObject a, MonadIO m) => + a -> WidgetStateFlagsChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetStateFlagsChanged obj cb after = liftIO $ do + cb' <- mkWidgetStateFlagsChangedCallback (widgetStateFlagsChangedCallbackWrapper cb) + connectSignalFunPtr obj "state-flags-changed" cb' after + +-- signal Widget::style-set +type WidgetStyleSetCallback = + Maybe Style -> + IO () + +noWidgetStyleSetCallback :: Maybe WidgetStyleSetCallback +noWidgetStyleSetCallback = Nothing + +type WidgetStyleSetCallbackC = + Ptr () -> -- object + Ptr Style -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetStyleSetCallback :: WidgetStyleSetCallbackC -> IO (FunPtr WidgetStyleSetCallbackC) + +widgetStyleSetClosure :: WidgetStyleSetCallback -> IO Closure +widgetStyleSetClosure cb = newCClosure =<< mkWidgetStyleSetCallback wrapped + where wrapped = widgetStyleSetCallbackWrapper cb + +widgetStyleSetCallbackWrapper :: + WidgetStyleSetCallback -> + Ptr () -> + Ptr Style -> + Ptr () -> + IO () +widgetStyleSetCallbackWrapper _cb _ previousStyle _ = do + maybePreviousStyle <- + if previousStyle == nullPtr + then return Nothing + else do + previousStyle' <- (newObject Style) previousStyle + return $ Just previousStyle' + _cb maybePreviousStyle + +onWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId +onWidgetStyleSet obj cb = liftIO $ connectWidgetStyleSet obj cb SignalConnectBefore +afterWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId +afterWidgetStyleSet obj cb = connectWidgetStyleSet obj cb SignalConnectAfter + +connectWidgetStyleSet :: (GObject a, MonadIO m) => + a -> WidgetStyleSetCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetStyleSet obj cb after = liftIO $ do + cb' <- mkWidgetStyleSetCallback (widgetStyleSetCallbackWrapper cb) + connectSignalFunPtr obj "style-set" cb' after + +-- signal Widget::style-updated +type WidgetStyleUpdatedCallback = + IO () + +noWidgetStyleUpdatedCallback :: Maybe WidgetStyleUpdatedCallback +noWidgetStyleUpdatedCallback = Nothing + +type WidgetStyleUpdatedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetStyleUpdatedCallback :: WidgetStyleUpdatedCallbackC -> IO (FunPtr WidgetStyleUpdatedCallbackC) + +widgetStyleUpdatedClosure :: WidgetStyleUpdatedCallback -> IO Closure +widgetStyleUpdatedClosure cb = newCClosure =<< mkWidgetStyleUpdatedCallback wrapped + where wrapped = widgetStyleUpdatedCallbackWrapper cb + +widgetStyleUpdatedCallbackWrapper :: + WidgetStyleUpdatedCallback -> + Ptr () -> + Ptr () -> + IO () +widgetStyleUpdatedCallbackWrapper _cb _ _ = do + _cb + +onWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId +onWidgetStyleUpdated obj cb = liftIO $ connectWidgetStyleUpdated obj cb SignalConnectBefore +afterWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId +afterWidgetStyleUpdated obj cb = connectWidgetStyleUpdated obj cb SignalConnectAfter + +connectWidgetStyleUpdated :: (GObject a, MonadIO m) => + a -> WidgetStyleUpdatedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetStyleUpdated obj cb after = liftIO $ do + cb' <- mkWidgetStyleUpdatedCallback (widgetStyleUpdatedCallbackWrapper cb) + connectSignalFunPtr obj "style-updated" cb' after + +-- signal Widget::touch-event +type WidgetTouchEventCallback = + Gdk.Event -> + IO Bool + +noWidgetTouchEventCallback :: Maybe WidgetTouchEventCallback +noWidgetTouchEventCallback = Nothing + +type WidgetTouchEventCallbackC = + Ptr () -> -- object + Ptr Gdk.Event -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetTouchEventCallback :: WidgetTouchEventCallbackC -> IO (FunPtr WidgetTouchEventCallbackC) + +widgetTouchEventClosure :: WidgetTouchEventCallback -> IO Closure +widgetTouchEventClosure cb = newCClosure =<< mkWidgetTouchEventCallback wrapped + where wrapped = widgetTouchEventCallbackWrapper cb + +widgetTouchEventCallbackWrapper :: + WidgetTouchEventCallback -> + Ptr () -> + Ptr Gdk.Event -> + Ptr () -> + IO CInt +widgetTouchEventCallbackWrapper _cb _ object _ = do + object' <- (newBoxed Gdk.Event) object + result <- _cb object' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId +onWidgetTouchEvent obj cb = liftIO $ connectWidgetTouchEvent obj cb SignalConnectBefore +afterWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId +afterWidgetTouchEvent obj cb = connectWidgetTouchEvent obj cb SignalConnectAfter + +connectWidgetTouchEvent :: (GObject a, MonadIO m) => + a -> WidgetTouchEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetTouchEvent obj cb after = liftIO $ do + cb' <- mkWidgetTouchEventCallback (widgetTouchEventCallbackWrapper cb) + connectSignalFunPtr obj "touch-event" cb' after + +-- signal Widget::unmap +type WidgetUnmapCallback = + IO () + +noWidgetUnmapCallback :: Maybe WidgetUnmapCallback +noWidgetUnmapCallback = Nothing + +type WidgetUnmapCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetUnmapCallback :: WidgetUnmapCallbackC -> IO (FunPtr WidgetUnmapCallbackC) + +widgetUnmapClosure :: WidgetUnmapCallback -> IO Closure +widgetUnmapClosure cb = newCClosure =<< mkWidgetUnmapCallback wrapped + where wrapped = widgetUnmapCallbackWrapper cb + +widgetUnmapCallbackWrapper :: + WidgetUnmapCallback -> + Ptr () -> + Ptr () -> + IO () +widgetUnmapCallbackWrapper _cb _ _ = do + _cb + +onWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId +onWidgetUnmap obj cb = liftIO $ connectWidgetUnmap obj cb SignalConnectBefore +afterWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId +afterWidgetUnmap obj cb = connectWidgetUnmap obj cb SignalConnectAfter + +connectWidgetUnmap :: (GObject a, MonadIO m) => + a -> WidgetUnmapCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetUnmap obj cb after = liftIO $ do + cb' <- mkWidgetUnmapCallback (widgetUnmapCallbackWrapper cb) + connectSignalFunPtr obj "unmap" cb' after + +-- signal Widget::unmap-event +type WidgetUnmapEventCallback = + Gdk.EventAny -> + IO Bool + +noWidgetUnmapEventCallback :: Maybe WidgetUnmapEventCallback +noWidgetUnmapEventCallback = Nothing + +type WidgetUnmapEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventAny -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetUnmapEventCallback :: WidgetUnmapEventCallbackC -> IO (FunPtr WidgetUnmapEventCallbackC) + +widgetUnmapEventClosure :: WidgetUnmapEventCallback -> IO Closure +widgetUnmapEventClosure cb = newCClosure =<< mkWidgetUnmapEventCallback wrapped + where wrapped = widgetUnmapEventCallbackWrapper cb + +widgetUnmapEventCallbackWrapper :: + WidgetUnmapEventCallback -> + Ptr () -> + Ptr Gdk.EventAny -> + Ptr () -> + IO CInt +widgetUnmapEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 24 Gdk.EventAny) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId +onWidgetUnmapEvent obj cb = liftIO $ connectWidgetUnmapEvent obj cb SignalConnectBefore +afterWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId +afterWidgetUnmapEvent obj cb = connectWidgetUnmapEvent obj cb SignalConnectAfter + +connectWidgetUnmapEvent :: (GObject a, MonadIO m) => + a -> WidgetUnmapEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetUnmapEvent obj cb after = liftIO $ do + cb' <- mkWidgetUnmapEventCallback (widgetUnmapEventCallbackWrapper cb) + connectSignalFunPtr obj "unmap-event" cb' after + +-- signal Widget::unrealize +type WidgetUnrealizeCallback = + IO () + +noWidgetUnrealizeCallback :: Maybe WidgetUnrealizeCallback +noWidgetUnrealizeCallback = Nothing + +type WidgetUnrealizeCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetUnrealizeCallback :: WidgetUnrealizeCallbackC -> IO (FunPtr WidgetUnrealizeCallbackC) + +widgetUnrealizeClosure :: WidgetUnrealizeCallback -> IO Closure +widgetUnrealizeClosure cb = newCClosure =<< mkWidgetUnrealizeCallback wrapped + where wrapped = widgetUnrealizeCallbackWrapper cb + +widgetUnrealizeCallbackWrapper :: + WidgetUnrealizeCallback -> + Ptr () -> + Ptr () -> + IO () +widgetUnrealizeCallbackWrapper _cb _ _ = do + _cb + +onWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId +onWidgetUnrealize obj cb = liftIO $ connectWidgetUnrealize obj cb SignalConnectBefore +afterWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId +afterWidgetUnrealize obj cb = connectWidgetUnrealize obj cb SignalConnectAfter + +connectWidgetUnrealize :: (GObject a, MonadIO m) => + a -> WidgetUnrealizeCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetUnrealize obj cb after = liftIO $ do + cb' <- mkWidgetUnrealizeCallback (widgetUnrealizeCallbackWrapper cb) + connectSignalFunPtr obj "unrealize" cb' after + +-- signal Widget::visibility-notify-event +type WidgetVisibilityNotifyEventCallback = + Gdk.EventVisibility -> + IO Bool + +noWidgetVisibilityNotifyEventCallback :: Maybe WidgetVisibilityNotifyEventCallback +noWidgetVisibilityNotifyEventCallback = Nothing + +type WidgetVisibilityNotifyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventVisibility -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetVisibilityNotifyEventCallback :: WidgetVisibilityNotifyEventCallbackC -> IO (FunPtr WidgetVisibilityNotifyEventCallbackC) + +widgetVisibilityNotifyEventClosure :: WidgetVisibilityNotifyEventCallback -> IO Closure +widgetVisibilityNotifyEventClosure cb = newCClosure =<< mkWidgetVisibilityNotifyEventCallback wrapped + where wrapped = widgetVisibilityNotifyEventCallbackWrapper cb + +widgetVisibilityNotifyEventCallbackWrapper :: + WidgetVisibilityNotifyEventCallback -> + Ptr () -> + Ptr Gdk.EventVisibility -> + Ptr () -> + IO CInt +widgetVisibilityNotifyEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 24 Gdk.EventVisibility) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId +onWidgetVisibilityNotifyEvent obj cb = liftIO $ connectWidgetVisibilityNotifyEvent obj cb SignalConnectBefore +afterWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId +afterWidgetVisibilityNotifyEvent obj cb = connectWidgetVisibilityNotifyEvent obj cb SignalConnectAfter + +connectWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => + a -> WidgetVisibilityNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetVisibilityNotifyEvent obj cb after = liftIO $ do + cb' <- mkWidgetVisibilityNotifyEventCallback (widgetVisibilityNotifyEventCallbackWrapper cb) + connectSignalFunPtr obj "visibility-notify-event" cb' after + +-- signal Widget::window-state-event +type WidgetWindowStateEventCallback = + Gdk.EventWindowState -> + IO Bool + +noWidgetWindowStateEventCallback :: Maybe WidgetWindowStateEventCallback +noWidgetWindowStateEventCallback = Nothing + +type WidgetWindowStateEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventWindowState -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetWindowStateEventCallback :: WidgetWindowStateEventCallbackC -> IO (FunPtr WidgetWindowStateEventCallbackC) + +widgetWindowStateEventClosure :: WidgetWindowStateEventCallback -> IO Closure +widgetWindowStateEventClosure cb = newCClosure =<< mkWidgetWindowStateEventCallback wrapped + where wrapped = widgetWindowStateEventCallbackWrapper cb + +widgetWindowStateEventCallbackWrapper :: + WidgetWindowStateEventCallback -> + Ptr () -> + Ptr Gdk.EventWindowState -> + Ptr () -> + IO CInt +widgetWindowStateEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 32 Gdk.EventWindowState) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId +onWidgetWindowStateEvent obj cb = liftIO $ connectWidgetWindowStateEvent obj cb SignalConnectBefore +afterWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId +afterWidgetWindowStateEvent obj cb = connectWidgetWindowStateEvent obj cb SignalConnectAfter + +connectWidgetWindowStateEvent :: (GObject a, MonadIO m) => + a -> WidgetWindowStateEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetWindowStateEvent obj cb after = liftIO $ do + cb' <- mkWidgetWindowStateEventCallback (widgetWindowStateEventCallbackWrapper cb) + connectSignalFunPtr obj "window-state-event" cb' after + +-- VVV Prop "app-paintable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetAppPaintable :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetAppPaintable obj = liftIO $ getObjectPropertyBool obj "app-paintable" + +setWidgetAppPaintable :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetAppPaintable obj val = liftIO $ setObjectPropertyBool obj "app-paintable" val + +constructWidgetAppPaintable :: Bool -> IO ([Char], GValue) +constructWidgetAppPaintable val = constructObjectPropertyBool "app-paintable" val + +data WidgetAppPaintablePropertyInfo +instance AttrInfo WidgetAppPaintablePropertyInfo where + type AttrAllowedOps WidgetAppPaintablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetAppPaintablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetAppPaintablePropertyInfo = WidgetK + type AttrGetType WidgetAppPaintablePropertyInfo = Bool + type AttrLabel WidgetAppPaintablePropertyInfo = "app-paintable" + attrGet _ = getWidgetAppPaintable + attrSet _ = setWidgetAppPaintable + attrConstruct _ = constructWidgetAppPaintable + +-- VVV Prop "can-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetCanDefault :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetCanDefault obj = liftIO $ getObjectPropertyBool obj "can-default" + +setWidgetCanDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetCanDefault obj val = liftIO $ setObjectPropertyBool obj "can-default" val + +constructWidgetCanDefault :: Bool -> IO ([Char], GValue) +constructWidgetCanDefault val = constructObjectPropertyBool "can-default" val + +data WidgetCanDefaultPropertyInfo +instance AttrInfo WidgetCanDefaultPropertyInfo where + type AttrAllowedOps WidgetCanDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetCanDefaultPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetCanDefaultPropertyInfo = WidgetK + type AttrGetType WidgetCanDefaultPropertyInfo = Bool + type AttrLabel WidgetCanDefaultPropertyInfo = "can-default" + attrGet _ = getWidgetCanDefault + attrSet _ = setWidgetCanDefault + attrConstruct _ = constructWidgetCanDefault + +-- VVV Prop "can-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetCanFocus :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetCanFocus obj = liftIO $ getObjectPropertyBool obj "can-focus" + +setWidgetCanFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetCanFocus obj val = liftIO $ setObjectPropertyBool obj "can-focus" val + +constructWidgetCanFocus :: Bool -> IO ([Char], GValue) +constructWidgetCanFocus val = constructObjectPropertyBool "can-focus" val + +data WidgetCanFocusPropertyInfo +instance AttrInfo WidgetCanFocusPropertyInfo where + type AttrAllowedOps WidgetCanFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetCanFocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetCanFocusPropertyInfo = WidgetK + type AttrGetType WidgetCanFocusPropertyInfo = Bool + type AttrLabel WidgetCanFocusPropertyInfo = "can-focus" + attrGet _ = getWidgetCanFocus + attrSet _ = setWidgetCanFocus + attrConstruct _ = constructWidgetCanFocus + +-- VVV Prop "composite-child" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getWidgetCompositeChild :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetCompositeChild obj = liftIO $ getObjectPropertyBool obj "composite-child" + +data WidgetCompositeChildPropertyInfo +instance AttrInfo WidgetCompositeChildPropertyInfo where + type AttrAllowedOps WidgetCompositeChildPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WidgetCompositeChildPropertyInfo = (~) () + type AttrBaseTypeConstraint WidgetCompositeChildPropertyInfo = WidgetK + type AttrGetType WidgetCompositeChildPropertyInfo = Bool + type AttrLabel WidgetCompositeChildPropertyInfo = "composite-child" + attrGet _ = getWidgetCompositeChild + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "double-buffered" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetDoubleBuffered :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetDoubleBuffered obj = liftIO $ getObjectPropertyBool obj "double-buffered" + +setWidgetDoubleBuffered :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetDoubleBuffered obj val = liftIO $ setObjectPropertyBool obj "double-buffered" val + +constructWidgetDoubleBuffered :: Bool -> IO ([Char], GValue) +constructWidgetDoubleBuffered val = constructObjectPropertyBool "double-buffered" val + +data WidgetDoubleBufferedPropertyInfo +instance AttrInfo WidgetDoubleBufferedPropertyInfo where + type AttrAllowedOps WidgetDoubleBufferedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetDoubleBufferedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetDoubleBufferedPropertyInfo = WidgetK + type AttrGetType WidgetDoubleBufferedPropertyInfo = Bool + type AttrLabel WidgetDoubleBufferedPropertyInfo = "double-buffered" + attrGet _ = getWidgetDoubleBuffered + attrSet _ = setWidgetDoubleBuffered + attrConstruct _ = constructWidgetDoubleBuffered + +-- VVV Prop "events" + -- Type: TInterface "Gdk" "EventMask" + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetEvents :: (MonadIO m, WidgetK o) => o -> m [Gdk.EventMask] +getWidgetEvents obj = liftIO $ getObjectPropertyFlags obj "events" + +setWidgetEvents :: (MonadIO m, WidgetK o) => o -> [Gdk.EventMask] -> m () +setWidgetEvents obj val = liftIO $ setObjectPropertyFlags obj "events" val + +constructWidgetEvents :: [Gdk.EventMask] -> IO ([Char], GValue) +constructWidgetEvents val = constructObjectPropertyFlags "events" val + +data WidgetEventsPropertyInfo +instance AttrInfo WidgetEventsPropertyInfo where + type AttrAllowedOps WidgetEventsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetEventsPropertyInfo = (~) [Gdk.EventMask] + type AttrBaseTypeConstraint WidgetEventsPropertyInfo = WidgetK + type AttrGetType WidgetEventsPropertyInfo = [Gdk.EventMask] + type AttrLabel WidgetEventsPropertyInfo = "events" + attrGet _ = getWidgetEvents + attrSet _ = setWidgetEvents + attrConstruct _ = constructWidgetEvents + +-- VVV Prop "expand" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetExpand :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetExpand obj = liftIO $ getObjectPropertyBool obj "expand" + +setWidgetExpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetExpand obj val = liftIO $ setObjectPropertyBool obj "expand" val + +constructWidgetExpand :: Bool -> IO ([Char], GValue) +constructWidgetExpand val = constructObjectPropertyBool "expand" val + +data WidgetExpandPropertyInfo +instance AttrInfo WidgetExpandPropertyInfo where + type AttrAllowedOps WidgetExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetExpandPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetExpandPropertyInfo = WidgetK + type AttrGetType WidgetExpandPropertyInfo = Bool + type AttrLabel WidgetExpandPropertyInfo = "expand" + attrGet _ = getWidgetExpand + attrSet _ = setWidgetExpand + attrConstruct _ = constructWidgetExpand + +-- VVV Prop "halign" + -- Type: TInterface "Gtk" "Align" + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetHalign :: (MonadIO m, WidgetK o) => o -> m Align +getWidgetHalign obj = liftIO $ getObjectPropertyEnum obj "halign" + +setWidgetHalign :: (MonadIO m, WidgetK o) => o -> Align -> m () +setWidgetHalign obj val = liftIO $ setObjectPropertyEnum obj "halign" val + +constructWidgetHalign :: Align -> IO ([Char], GValue) +constructWidgetHalign val = constructObjectPropertyEnum "halign" val + +data WidgetHalignPropertyInfo +instance AttrInfo WidgetHalignPropertyInfo where + type AttrAllowedOps WidgetHalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHalignPropertyInfo = (~) Align + type AttrBaseTypeConstraint WidgetHalignPropertyInfo = WidgetK + type AttrGetType WidgetHalignPropertyInfo = Align + type AttrLabel WidgetHalignPropertyInfo = "halign" + attrGet _ = getWidgetHalign + attrSet _ = setWidgetHalign + attrConstruct _ = constructWidgetHalign + +-- VVV Prop "has-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetHasDefault :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetHasDefault obj = liftIO $ getObjectPropertyBool obj "has-default" + +setWidgetHasDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetHasDefault obj val = liftIO $ setObjectPropertyBool obj "has-default" val + +constructWidgetHasDefault :: Bool -> IO ([Char], GValue) +constructWidgetHasDefault val = constructObjectPropertyBool "has-default" val + +data WidgetHasDefaultPropertyInfo +instance AttrInfo WidgetHasDefaultPropertyInfo where + type AttrAllowedOps WidgetHasDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHasDefaultPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetHasDefaultPropertyInfo = WidgetK + type AttrGetType WidgetHasDefaultPropertyInfo = Bool + type AttrLabel WidgetHasDefaultPropertyInfo = "has-default" + attrGet _ = getWidgetHasDefault + attrSet _ = setWidgetHasDefault + attrConstruct _ = constructWidgetHasDefault + +-- VVV Prop "has-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetHasFocus :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetHasFocus obj = liftIO $ getObjectPropertyBool obj "has-focus" + +setWidgetHasFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetHasFocus obj val = liftIO $ setObjectPropertyBool obj "has-focus" val + +constructWidgetHasFocus :: Bool -> IO ([Char], GValue) +constructWidgetHasFocus val = constructObjectPropertyBool "has-focus" val + +data WidgetHasFocusPropertyInfo +instance AttrInfo WidgetHasFocusPropertyInfo where + type AttrAllowedOps WidgetHasFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHasFocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetHasFocusPropertyInfo = WidgetK + type AttrGetType WidgetHasFocusPropertyInfo = Bool + type AttrLabel WidgetHasFocusPropertyInfo = "has-focus" + attrGet _ = getWidgetHasFocus + attrSet _ = setWidgetHasFocus + attrConstruct _ = constructWidgetHasFocus + +-- VVV Prop "has-tooltip" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetHasTooltip :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetHasTooltip obj = liftIO $ getObjectPropertyBool obj "has-tooltip" + +setWidgetHasTooltip :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetHasTooltip obj val = liftIO $ setObjectPropertyBool obj "has-tooltip" val + +constructWidgetHasTooltip :: Bool -> IO ([Char], GValue) +constructWidgetHasTooltip val = constructObjectPropertyBool "has-tooltip" val + +data WidgetHasTooltipPropertyInfo +instance AttrInfo WidgetHasTooltipPropertyInfo where + type AttrAllowedOps WidgetHasTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHasTooltipPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetHasTooltipPropertyInfo = WidgetK + type AttrGetType WidgetHasTooltipPropertyInfo = Bool + type AttrLabel WidgetHasTooltipPropertyInfo = "has-tooltip" + attrGet _ = getWidgetHasTooltip + attrSet _ = setWidgetHasTooltip + attrConstruct _ = constructWidgetHasTooltip + +-- VVV Prop "height-request" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetHeightRequest obj = liftIO $ getObjectPropertyCInt obj "height-request" + +setWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetHeightRequest obj val = liftIO $ setObjectPropertyCInt obj "height-request" val + +constructWidgetHeightRequest :: Int32 -> IO ([Char], GValue) +constructWidgetHeightRequest val = constructObjectPropertyCInt "height-request" val + +data WidgetHeightRequestPropertyInfo +instance AttrInfo WidgetHeightRequestPropertyInfo where + type AttrAllowedOps WidgetHeightRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHeightRequestPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetHeightRequestPropertyInfo = WidgetK + type AttrGetType WidgetHeightRequestPropertyInfo = Int32 + type AttrLabel WidgetHeightRequestPropertyInfo = "height-request" + attrGet _ = getWidgetHeightRequest + attrSet _ = setWidgetHeightRequest + attrConstruct _ = constructWidgetHeightRequest + +-- VVV Prop "hexpand" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetHexpand :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetHexpand obj = liftIO $ getObjectPropertyBool obj "hexpand" + +setWidgetHexpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetHexpand obj val = liftIO $ setObjectPropertyBool obj "hexpand" val + +constructWidgetHexpand :: Bool -> IO ([Char], GValue) +constructWidgetHexpand val = constructObjectPropertyBool "hexpand" val + +data WidgetHexpandPropertyInfo +instance AttrInfo WidgetHexpandPropertyInfo where + type AttrAllowedOps WidgetHexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHexpandPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetHexpandPropertyInfo = WidgetK + type AttrGetType WidgetHexpandPropertyInfo = Bool + type AttrLabel WidgetHexpandPropertyInfo = "hexpand" + attrGet _ = getWidgetHexpand + attrSet _ = setWidgetHexpand + attrConstruct _ = constructWidgetHexpand + +-- VVV Prop "hexpand-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetHexpandSet :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetHexpandSet obj = liftIO $ getObjectPropertyBool obj "hexpand-set" + +setWidgetHexpandSet :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetHexpandSet obj val = liftIO $ setObjectPropertyBool obj "hexpand-set" val + +constructWidgetHexpandSet :: Bool -> IO ([Char], GValue) +constructWidgetHexpandSet val = constructObjectPropertyBool "hexpand-set" val + +data WidgetHexpandSetPropertyInfo +instance AttrInfo WidgetHexpandSetPropertyInfo where + type AttrAllowedOps WidgetHexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHexpandSetPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetHexpandSetPropertyInfo = WidgetK + type AttrGetType WidgetHexpandSetPropertyInfo = Bool + type AttrLabel WidgetHexpandSetPropertyInfo = "hexpand-set" + attrGet _ = getWidgetHexpandSet + attrSet _ = setWidgetHexpandSet + attrConstruct _ = constructWidgetHexpandSet + +-- VVV Prop "is-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetIsFocus :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetIsFocus obj = liftIO $ getObjectPropertyBool obj "is-focus" + +setWidgetIsFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetIsFocus obj val = liftIO $ setObjectPropertyBool obj "is-focus" val + +constructWidgetIsFocus :: Bool -> IO ([Char], GValue) +constructWidgetIsFocus val = constructObjectPropertyBool "is-focus" val + +data WidgetIsFocusPropertyInfo +instance AttrInfo WidgetIsFocusPropertyInfo where + type AttrAllowedOps WidgetIsFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetIsFocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetIsFocusPropertyInfo = WidgetK + type AttrGetType WidgetIsFocusPropertyInfo = Bool + type AttrLabel WidgetIsFocusPropertyInfo = "is-focus" + attrGet _ = getWidgetIsFocus + attrSet _ = setWidgetIsFocus + attrConstruct _ = constructWidgetIsFocus + +-- VVV Prop "margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMargin :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMargin obj = liftIO $ getObjectPropertyCInt obj "margin" + +setWidgetMargin :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMargin obj val = liftIO $ setObjectPropertyCInt obj "margin" val + +constructWidgetMargin :: Int32 -> IO ([Char], GValue) +constructWidgetMargin val = constructObjectPropertyCInt "margin" val + +data WidgetMarginPropertyInfo +instance AttrInfo WidgetMarginPropertyInfo where + type AttrAllowedOps WidgetMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginPropertyInfo = WidgetK + type AttrGetType WidgetMarginPropertyInfo = Int32 + type AttrLabel WidgetMarginPropertyInfo = "margin" + attrGet _ = getWidgetMargin + attrSet _ = setWidgetMargin + attrConstruct _ = constructWidgetMargin + +-- VVV Prop "margin-bottom" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginBottom obj = liftIO $ getObjectPropertyCInt obj "margin-bottom" + +setWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginBottom obj val = liftIO $ setObjectPropertyCInt obj "margin-bottom" val + +constructWidgetMarginBottom :: Int32 -> IO ([Char], GValue) +constructWidgetMarginBottom val = constructObjectPropertyCInt "margin-bottom" val + +data WidgetMarginBottomPropertyInfo +instance AttrInfo WidgetMarginBottomPropertyInfo where + type AttrAllowedOps WidgetMarginBottomPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginBottomPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginBottomPropertyInfo = WidgetK + type AttrGetType WidgetMarginBottomPropertyInfo = Int32 + type AttrLabel WidgetMarginBottomPropertyInfo = "margin-bottom" + attrGet _ = getWidgetMarginBottom + attrSet _ = setWidgetMarginBottom + attrConstruct _ = constructWidgetMarginBottom + +-- VVV Prop "margin-end" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginEnd obj = liftIO $ getObjectPropertyCInt obj "margin-end" + +setWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginEnd obj val = liftIO $ setObjectPropertyCInt obj "margin-end" val + +constructWidgetMarginEnd :: Int32 -> IO ([Char], GValue) +constructWidgetMarginEnd val = constructObjectPropertyCInt "margin-end" val + +data WidgetMarginEndPropertyInfo +instance AttrInfo WidgetMarginEndPropertyInfo where + type AttrAllowedOps WidgetMarginEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginEndPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginEndPropertyInfo = WidgetK + type AttrGetType WidgetMarginEndPropertyInfo = Int32 + type AttrLabel WidgetMarginEndPropertyInfo = "margin-end" + attrGet _ = getWidgetMarginEnd + attrSet _ = setWidgetMarginEnd + attrConstruct _ = constructWidgetMarginEnd + +-- VVV Prop "margin-left" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginLeft obj = liftIO $ getObjectPropertyCInt obj "margin-left" + +setWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginLeft obj val = liftIO $ setObjectPropertyCInt obj "margin-left" val + +constructWidgetMarginLeft :: Int32 -> IO ([Char], GValue) +constructWidgetMarginLeft val = constructObjectPropertyCInt "margin-left" val + +data WidgetMarginLeftPropertyInfo +instance AttrInfo WidgetMarginLeftPropertyInfo where + type AttrAllowedOps WidgetMarginLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginLeftPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginLeftPropertyInfo = WidgetK + type AttrGetType WidgetMarginLeftPropertyInfo = Int32 + type AttrLabel WidgetMarginLeftPropertyInfo = "margin-left" + attrGet _ = getWidgetMarginLeft + attrSet _ = setWidgetMarginLeft + attrConstruct _ = constructWidgetMarginLeft + +-- VVV Prop "margin-right" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginRight obj = liftIO $ getObjectPropertyCInt obj "margin-right" + +setWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginRight obj val = liftIO $ setObjectPropertyCInt obj "margin-right" val + +constructWidgetMarginRight :: Int32 -> IO ([Char], GValue) +constructWidgetMarginRight val = constructObjectPropertyCInt "margin-right" val + +data WidgetMarginRightPropertyInfo +instance AttrInfo WidgetMarginRightPropertyInfo where + type AttrAllowedOps WidgetMarginRightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginRightPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginRightPropertyInfo = WidgetK + type AttrGetType WidgetMarginRightPropertyInfo = Int32 + type AttrLabel WidgetMarginRightPropertyInfo = "margin-right" + attrGet _ = getWidgetMarginRight + attrSet _ = setWidgetMarginRight + attrConstruct _ = constructWidgetMarginRight + +-- VVV Prop "margin-start" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginStart obj = liftIO $ getObjectPropertyCInt obj "margin-start" + +setWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginStart obj val = liftIO $ setObjectPropertyCInt obj "margin-start" val + +constructWidgetMarginStart :: Int32 -> IO ([Char], GValue) +constructWidgetMarginStart val = constructObjectPropertyCInt "margin-start" val + +data WidgetMarginStartPropertyInfo +instance AttrInfo WidgetMarginStartPropertyInfo where + type AttrAllowedOps WidgetMarginStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginStartPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginStartPropertyInfo = WidgetK + type AttrGetType WidgetMarginStartPropertyInfo = Int32 + type AttrLabel WidgetMarginStartPropertyInfo = "margin-start" + attrGet _ = getWidgetMarginStart + attrSet _ = setWidgetMarginStart + attrConstruct _ = constructWidgetMarginStart + +-- VVV Prop "margin-top" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginTop obj = liftIO $ getObjectPropertyCInt obj "margin-top" + +setWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginTop obj val = liftIO $ setObjectPropertyCInt obj "margin-top" val + +constructWidgetMarginTop :: Int32 -> IO ([Char], GValue) +constructWidgetMarginTop val = constructObjectPropertyCInt "margin-top" val + +data WidgetMarginTopPropertyInfo +instance AttrInfo WidgetMarginTopPropertyInfo where + type AttrAllowedOps WidgetMarginTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginTopPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginTopPropertyInfo = WidgetK + type AttrGetType WidgetMarginTopPropertyInfo = Int32 + type AttrLabel WidgetMarginTopPropertyInfo = "margin-top" + attrGet _ = getWidgetMarginTop + attrSet _ = setWidgetMarginTop + attrConstruct _ = constructWidgetMarginTop + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetName :: (MonadIO m, WidgetK o) => o -> m T.Text +getWidgetName obj = liftIO $ getObjectPropertyString obj "name" + +setWidgetName :: (MonadIO m, WidgetK o) => o -> T.Text -> m () +setWidgetName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructWidgetName :: T.Text -> IO ([Char], GValue) +constructWidgetName val = constructObjectPropertyString "name" val + +data WidgetNamePropertyInfo +instance AttrInfo WidgetNamePropertyInfo where + type AttrAllowedOps WidgetNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WidgetNamePropertyInfo = WidgetK + type AttrGetType WidgetNamePropertyInfo = T.Text + type AttrLabel WidgetNamePropertyInfo = "name" + attrGet _ = getWidgetName + attrSet _ = setWidgetName + attrConstruct _ = constructWidgetName + +-- VVV Prop "no-show-all" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetNoShowAll :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetNoShowAll obj = liftIO $ getObjectPropertyBool obj "no-show-all" + +setWidgetNoShowAll :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetNoShowAll obj val = liftIO $ setObjectPropertyBool obj "no-show-all" val + +constructWidgetNoShowAll :: Bool -> IO ([Char], GValue) +constructWidgetNoShowAll val = constructObjectPropertyBool "no-show-all" val + +data WidgetNoShowAllPropertyInfo +instance AttrInfo WidgetNoShowAllPropertyInfo where + type AttrAllowedOps WidgetNoShowAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetNoShowAllPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetNoShowAllPropertyInfo = WidgetK + type AttrGetType WidgetNoShowAllPropertyInfo = Bool + type AttrLabel WidgetNoShowAllPropertyInfo = "no-show-all" + attrGet _ = getWidgetNoShowAll + attrSet _ = setWidgetNoShowAll + attrConstruct _ = constructWidgetNoShowAll + +-- VVV Prop "opacity" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetOpacity :: (MonadIO m, WidgetK o) => o -> m Double +getWidgetOpacity obj = liftIO $ getObjectPropertyDouble obj "opacity" + +setWidgetOpacity :: (MonadIO m, WidgetK o) => o -> Double -> m () +setWidgetOpacity obj val = liftIO $ setObjectPropertyDouble obj "opacity" val + +constructWidgetOpacity :: Double -> IO ([Char], GValue) +constructWidgetOpacity val = constructObjectPropertyDouble "opacity" val + +data WidgetOpacityPropertyInfo +instance AttrInfo WidgetOpacityPropertyInfo where + type AttrAllowedOps WidgetOpacityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetOpacityPropertyInfo = (~) Double + type AttrBaseTypeConstraint WidgetOpacityPropertyInfo = WidgetK + type AttrGetType WidgetOpacityPropertyInfo = Double + type AttrLabel WidgetOpacityPropertyInfo = "opacity" + attrGet _ = getWidgetOpacity + attrSet _ = setWidgetOpacity + attrConstruct _ = constructWidgetOpacity + +-- VVV Prop "parent" + -- Type: TInterface "Gtk" "Container" + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetParent :: (MonadIO m, WidgetK o) => o -> m Container +getWidgetParent obj = liftIO $ getObjectPropertyObject obj "parent" Container + +setWidgetParent :: (MonadIO m, WidgetK o, ContainerK a) => o -> a -> m () +setWidgetParent obj val = liftIO $ setObjectPropertyObject obj "parent" val + +constructWidgetParent :: (ContainerK a) => a -> IO ([Char], GValue) +constructWidgetParent val = constructObjectPropertyObject "parent" val + +data WidgetParentPropertyInfo +instance AttrInfo WidgetParentPropertyInfo where + type AttrAllowedOps WidgetParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetParentPropertyInfo = ContainerK + type AttrBaseTypeConstraint WidgetParentPropertyInfo = WidgetK + type AttrGetType WidgetParentPropertyInfo = Container + type AttrLabel WidgetParentPropertyInfo = "parent" + attrGet _ = getWidgetParent + attrSet _ = setWidgetParent + attrConstruct _ = constructWidgetParent + +-- VVV Prop "receives-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetReceivesDefault :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetReceivesDefault obj = liftIO $ getObjectPropertyBool obj "receives-default" + +setWidgetReceivesDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetReceivesDefault obj val = liftIO $ setObjectPropertyBool obj "receives-default" val + +constructWidgetReceivesDefault :: Bool -> IO ([Char], GValue) +constructWidgetReceivesDefault val = constructObjectPropertyBool "receives-default" val + +data WidgetReceivesDefaultPropertyInfo +instance AttrInfo WidgetReceivesDefaultPropertyInfo where + type AttrAllowedOps WidgetReceivesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetReceivesDefaultPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetReceivesDefaultPropertyInfo = WidgetK + type AttrGetType WidgetReceivesDefaultPropertyInfo = Bool + type AttrLabel WidgetReceivesDefaultPropertyInfo = "receives-default" + attrGet _ = getWidgetReceivesDefault + attrSet _ = setWidgetReceivesDefault + attrConstruct _ = constructWidgetReceivesDefault + +-- VVV Prop "scale-factor" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getWidgetScaleFactor :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetScaleFactor obj = liftIO $ getObjectPropertyCInt obj "scale-factor" + +data WidgetScaleFactorPropertyInfo +instance AttrInfo WidgetScaleFactorPropertyInfo where + type AttrAllowedOps WidgetScaleFactorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WidgetScaleFactorPropertyInfo = (~) () + type AttrBaseTypeConstraint WidgetScaleFactorPropertyInfo = WidgetK + type AttrGetType WidgetScaleFactorPropertyInfo = Int32 + type AttrLabel WidgetScaleFactorPropertyInfo = "scale-factor" + attrGet _ = getWidgetScaleFactor + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetSensitive :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive" + +setWidgetSensitive :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetSensitive obj val = liftIO $ setObjectPropertyBool obj "sensitive" val + +constructWidgetSensitive :: Bool -> IO ([Char], GValue) +constructWidgetSensitive val = constructObjectPropertyBool "sensitive" val + +data WidgetSensitivePropertyInfo +instance AttrInfo WidgetSensitivePropertyInfo where + type AttrAllowedOps WidgetSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetSensitivePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetSensitivePropertyInfo = WidgetK + type AttrGetType WidgetSensitivePropertyInfo = Bool + type AttrLabel WidgetSensitivePropertyInfo = "sensitive" + attrGet _ = getWidgetSensitive + attrSet _ = setWidgetSensitive + attrConstruct _ = constructWidgetSensitive + +-- VVV Prop "style" + -- Type: TInterface "Gtk" "Style" + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetStyle :: (MonadIO m, WidgetK o) => o -> m Style +getWidgetStyle obj = liftIO $ getObjectPropertyObject obj "style" Style + +setWidgetStyle :: (MonadIO m, WidgetK o, StyleK a) => o -> a -> m () +setWidgetStyle obj val = liftIO $ setObjectPropertyObject obj "style" val + +constructWidgetStyle :: (StyleK a) => a -> IO ([Char], GValue) +constructWidgetStyle val = constructObjectPropertyObject "style" val + +data WidgetStylePropertyInfo +instance AttrInfo WidgetStylePropertyInfo where + type AttrAllowedOps WidgetStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetStylePropertyInfo = StyleK + type AttrBaseTypeConstraint WidgetStylePropertyInfo = WidgetK + type AttrGetType WidgetStylePropertyInfo = Style + type AttrLabel WidgetStylePropertyInfo = "style" + attrGet _ = getWidgetStyle + attrSet _ = setWidgetStyle + attrConstruct _ = constructWidgetStyle + +-- VVV Prop "tooltip-markup" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> m T.Text +getWidgetTooltipMarkup obj = liftIO $ getObjectPropertyString obj "tooltip-markup" + +setWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> T.Text -> m () +setWidgetTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "tooltip-markup" val + +constructWidgetTooltipMarkup :: T.Text -> IO ([Char], GValue) +constructWidgetTooltipMarkup val = constructObjectPropertyString "tooltip-markup" val + +data WidgetTooltipMarkupPropertyInfo +instance AttrInfo WidgetTooltipMarkupPropertyInfo where + type AttrAllowedOps WidgetTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetTooltipMarkupPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WidgetTooltipMarkupPropertyInfo = WidgetK + type AttrGetType WidgetTooltipMarkupPropertyInfo = T.Text + type AttrLabel WidgetTooltipMarkupPropertyInfo = "tooltip-markup" + attrGet _ = getWidgetTooltipMarkup + attrSet _ = setWidgetTooltipMarkup + attrConstruct _ = constructWidgetTooltipMarkup + +-- VVV Prop "tooltip-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> m T.Text +getWidgetTooltipText obj = liftIO $ getObjectPropertyString obj "tooltip-text" + +setWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> T.Text -> m () +setWidgetTooltipText obj val = liftIO $ setObjectPropertyString obj "tooltip-text" val + +constructWidgetTooltipText :: T.Text -> IO ([Char], GValue) +constructWidgetTooltipText val = constructObjectPropertyString "tooltip-text" val + +data WidgetTooltipTextPropertyInfo +instance AttrInfo WidgetTooltipTextPropertyInfo where + type AttrAllowedOps WidgetTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetTooltipTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WidgetTooltipTextPropertyInfo = WidgetK + type AttrGetType WidgetTooltipTextPropertyInfo = T.Text + type AttrLabel WidgetTooltipTextPropertyInfo = "tooltip-text" + attrGet _ = getWidgetTooltipText + attrSet _ = setWidgetTooltipText + attrConstruct _ = constructWidgetTooltipText + +-- VVV Prop "valign" + -- Type: TInterface "Gtk" "Align" + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetValign :: (MonadIO m, WidgetK o) => o -> m Align +getWidgetValign obj = liftIO $ getObjectPropertyEnum obj "valign" + +setWidgetValign :: (MonadIO m, WidgetK o) => o -> Align -> m () +setWidgetValign obj val = liftIO $ setObjectPropertyEnum obj "valign" val + +constructWidgetValign :: Align -> IO ([Char], GValue) +constructWidgetValign val = constructObjectPropertyEnum "valign" val + +data WidgetValignPropertyInfo +instance AttrInfo WidgetValignPropertyInfo where + type AttrAllowedOps WidgetValignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetValignPropertyInfo = (~) Align + type AttrBaseTypeConstraint WidgetValignPropertyInfo = WidgetK + type AttrGetType WidgetValignPropertyInfo = Align + type AttrLabel WidgetValignPropertyInfo = "valign" + attrGet _ = getWidgetValign + attrSet _ = setWidgetValign + attrConstruct _ = constructWidgetValign + +-- VVV Prop "vexpand" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetVexpand :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetVexpand obj = liftIO $ getObjectPropertyBool obj "vexpand" + +setWidgetVexpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetVexpand obj val = liftIO $ setObjectPropertyBool obj "vexpand" val + +constructWidgetVexpand :: Bool -> IO ([Char], GValue) +constructWidgetVexpand val = constructObjectPropertyBool "vexpand" val + +data WidgetVexpandPropertyInfo +instance AttrInfo WidgetVexpandPropertyInfo where + type AttrAllowedOps WidgetVexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetVexpandPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetVexpandPropertyInfo = WidgetK + type AttrGetType WidgetVexpandPropertyInfo = Bool + type AttrLabel WidgetVexpandPropertyInfo = "vexpand" + attrGet _ = getWidgetVexpand + attrSet _ = setWidgetVexpand + attrConstruct _ = constructWidgetVexpand + +-- VVV Prop "vexpand-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetVexpandSet :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetVexpandSet obj = liftIO $ getObjectPropertyBool obj "vexpand-set" + +setWidgetVexpandSet :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetVexpandSet obj val = liftIO $ setObjectPropertyBool obj "vexpand-set" val + +constructWidgetVexpandSet :: Bool -> IO ([Char], GValue) +constructWidgetVexpandSet val = constructObjectPropertyBool "vexpand-set" val + +data WidgetVexpandSetPropertyInfo +instance AttrInfo WidgetVexpandSetPropertyInfo where + type AttrAllowedOps WidgetVexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetVexpandSetPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetVexpandSetPropertyInfo = WidgetK + type AttrGetType WidgetVexpandSetPropertyInfo = Bool + type AttrLabel WidgetVexpandSetPropertyInfo = "vexpand-set" + attrGet _ = getWidgetVexpandSet + attrSet _ = setWidgetVexpandSet + attrConstruct _ = constructWidgetVexpandSet + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetVisible :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetVisible obj = liftIO $ getObjectPropertyBool obj "visible" + +setWidgetVisible :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val + +constructWidgetVisible :: Bool -> IO ([Char], GValue) +constructWidgetVisible val = constructObjectPropertyBool "visible" val + +data WidgetVisiblePropertyInfo +instance AttrInfo WidgetVisiblePropertyInfo where + type AttrAllowedOps WidgetVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetVisiblePropertyInfo = WidgetK + type AttrGetType WidgetVisiblePropertyInfo = Bool + type AttrLabel WidgetVisiblePropertyInfo = "visible" + attrGet _ = getWidgetVisible + attrSet _ = setWidgetVisible + attrConstruct _ = constructWidgetVisible + +-- VVV Prop "width-request" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetWidthRequest obj = liftIO $ getObjectPropertyCInt obj "width-request" + +setWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetWidthRequest obj val = liftIO $ setObjectPropertyCInt obj "width-request" val + +constructWidgetWidthRequest :: Int32 -> IO ([Char], GValue) +constructWidgetWidthRequest val = constructObjectPropertyCInt "width-request" val + +data WidgetWidthRequestPropertyInfo +instance AttrInfo WidgetWidthRequestPropertyInfo where + type AttrAllowedOps WidgetWidthRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetWidthRequestPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetWidthRequestPropertyInfo = WidgetK + type AttrGetType WidgetWidthRequestPropertyInfo = Int32 + type AttrLabel WidgetWidthRequestPropertyInfo = "width-request" + attrGet _ = getWidgetWidthRequest + attrSet _ = setWidgetWidthRequest + attrConstruct _ = constructWidgetWidthRequest + +-- VVV Prop "window" + -- Type: TInterface "Gdk" "Window" + -- Flags: [PropertyReadable] + +getWidgetWindow :: (MonadIO m, WidgetK o) => o -> m Gdk.Window +getWidgetWindow obj = liftIO $ getObjectPropertyObject obj "window" Gdk.Window + +data WidgetWindowPropertyInfo +instance AttrInfo WidgetWindowPropertyInfo where + type AttrAllowedOps WidgetWindowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WidgetWindowPropertyInfo = (~) () + type AttrBaseTypeConstraint WidgetWindowPropertyInfo = WidgetK + type AttrGetType WidgetWindowPropertyInfo = Gdk.Window + type AttrLabel WidgetWindowPropertyInfo = "window" + attrGet _ = getWidgetWindow + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList Widget = WidgetAttributeList +type WidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) + +data WidgetAccelClosuresChangedSignalInfo +instance SignalInfo WidgetAccelClosuresChangedSignalInfo where + type HaskellCallbackType WidgetAccelClosuresChangedSignalInfo = WidgetAccelClosuresChangedCallback + connectSignal _ = connectWidgetAccelClosuresChanged + +data WidgetButtonPressEventSignalInfo +instance SignalInfo WidgetButtonPressEventSignalInfo where + type HaskellCallbackType WidgetButtonPressEventSignalInfo = WidgetButtonPressEventCallback + connectSignal _ = connectWidgetButtonPressEvent + +data WidgetButtonReleaseEventSignalInfo +instance SignalInfo WidgetButtonReleaseEventSignalInfo where + type HaskellCallbackType WidgetButtonReleaseEventSignalInfo = WidgetButtonReleaseEventCallback + connectSignal _ = connectWidgetButtonReleaseEvent + +data WidgetCanActivateAccelSignalInfo +instance SignalInfo WidgetCanActivateAccelSignalInfo where + type HaskellCallbackType WidgetCanActivateAccelSignalInfo = WidgetCanActivateAccelCallback + connectSignal _ = connectWidgetCanActivateAccel + +data WidgetChildNotifySignalInfo +instance SignalInfo WidgetChildNotifySignalInfo where + type HaskellCallbackType WidgetChildNotifySignalInfo = WidgetChildNotifyCallback + connectSignal _ = connectWidgetChildNotify + +data WidgetCompositedChangedSignalInfo +instance SignalInfo WidgetCompositedChangedSignalInfo where + type HaskellCallbackType WidgetCompositedChangedSignalInfo = WidgetCompositedChangedCallback + connectSignal _ = connectWidgetCompositedChanged + +data WidgetConfigureEventSignalInfo +instance SignalInfo WidgetConfigureEventSignalInfo where + type HaskellCallbackType WidgetConfigureEventSignalInfo = WidgetConfigureEventCallback + connectSignal _ = connectWidgetConfigureEvent + +data WidgetDamageEventSignalInfo +instance SignalInfo WidgetDamageEventSignalInfo where + type HaskellCallbackType WidgetDamageEventSignalInfo = WidgetDamageEventCallback + connectSignal _ = connectWidgetDamageEvent + +data WidgetDeleteEventSignalInfo +instance SignalInfo WidgetDeleteEventSignalInfo where + type HaskellCallbackType WidgetDeleteEventSignalInfo = WidgetDeleteEventCallback + connectSignal _ = connectWidgetDeleteEvent + +data WidgetDestroySignalInfo +instance SignalInfo WidgetDestroySignalInfo where + type HaskellCallbackType WidgetDestroySignalInfo = WidgetDestroyCallback + connectSignal _ = connectWidgetDestroy + +data WidgetDestroyEventSignalInfo +instance SignalInfo WidgetDestroyEventSignalInfo where + type HaskellCallbackType WidgetDestroyEventSignalInfo = WidgetDestroyEventCallback + connectSignal _ = connectWidgetDestroyEvent + +data WidgetDirectionChangedSignalInfo +instance SignalInfo WidgetDirectionChangedSignalInfo where + type HaskellCallbackType WidgetDirectionChangedSignalInfo = WidgetDirectionChangedCallback + connectSignal _ = connectWidgetDirectionChanged + +data WidgetDragBeginSignalInfo +instance SignalInfo WidgetDragBeginSignalInfo where + type HaskellCallbackType WidgetDragBeginSignalInfo = WidgetDragBeginCallback + connectSignal _ = connectWidgetDragBegin + +data WidgetDragDataDeleteSignalInfo +instance SignalInfo WidgetDragDataDeleteSignalInfo where + type HaskellCallbackType WidgetDragDataDeleteSignalInfo = WidgetDragDataDeleteCallback + connectSignal _ = connectWidgetDragDataDelete + +data WidgetDragDataGetSignalInfo +instance SignalInfo WidgetDragDataGetSignalInfo where + type HaskellCallbackType WidgetDragDataGetSignalInfo = WidgetDragDataGetCallback + connectSignal _ = connectWidgetDragDataGet + +data WidgetDragDataReceivedSignalInfo +instance SignalInfo WidgetDragDataReceivedSignalInfo where + type HaskellCallbackType WidgetDragDataReceivedSignalInfo = WidgetDragDataReceivedCallback + connectSignal _ = connectWidgetDragDataReceived + +data WidgetDragDropSignalInfo +instance SignalInfo WidgetDragDropSignalInfo where + type HaskellCallbackType WidgetDragDropSignalInfo = WidgetDragDropCallback + connectSignal _ = connectWidgetDragDrop + +data WidgetDragEndSignalInfo +instance SignalInfo WidgetDragEndSignalInfo where + type HaskellCallbackType WidgetDragEndSignalInfo = WidgetDragEndCallback + connectSignal _ = connectWidgetDragEnd + +data WidgetDragFailedSignalInfo +instance SignalInfo WidgetDragFailedSignalInfo where + type HaskellCallbackType WidgetDragFailedSignalInfo = WidgetDragFailedCallback + connectSignal _ = connectWidgetDragFailed + +data WidgetDragLeaveSignalInfo +instance SignalInfo WidgetDragLeaveSignalInfo where + type HaskellCallbackType WidgetDragLeaveSignalInfo = WidgetDragLeaveCallback + connectSignal _ = connectWidgetDragLeave + +data WidgetDragMotionSignalInfo +instance SignalInfo WidgetDragMotionSignalInfo where + type HaskellCallbackType WidgetDragMotionSignalInfo = WidgetDragMotionCallback + connectSignal _ = connectWidgetDragMotion + +data WidgetDrawSignalInfo +instance SignalInfo WidgetDrawSignalInfo where + type HaskellCallbackType WidgetDrawSignalInfo = WidgetDrawCallback + connectSignal _ = connectWidgetDraw + +data WidgetEnterNotifyEventSignalInfo +instance SignalInfo WidgetEnterNotifyEventSignalInfo where + type HaskellCallbackType WidgetEnterNotifyEventSignalInfo = WidgetEnterNotifyEventCallback + connectSignal _ = connectWidgetEnterNotifyEvent + +data WidgetEventSignalInfo +instance SignalInfo WidgetEventSignalInfo where + type HaskellCallbackType WidgetEventSignalInfo = WidgetEventCallback + connectSignal _ = connectWidgetEvent + +data WidgetEventAfterSignalInfo +instance SignalInfo WidgetEventAfterSignalInfo where + type HaskellCallbackType WidgetEventAfterSignalInfo = WidgetEventAfterCallback + connectSignal _ = connectWidgetEventAfter + +data WidgetFocusSignalInfo +instance SignalInfo WidgetFocusSignalInfo where + type HaskellCallbackType WidgetFocusSignalInfo = WidgetFocusCallback + connectSignal _ = connectWidgetFocus + +data WidgetFocusInEventSignalInfo +instance SignalInfo WidgetFocusInEventSignalInfo where + type HaskellCallbackType WidgetFocusInEventSignalInfo = WidgetFocusInEventCallback + connectSignal _ = connectWidgetFocusInEvent + +data WidgetFocusOutEventSignalInfo +instance SignalInfo WidgetFocusOutEventSignalInfo where + type HaskellCallbackType WidgetFocusOutEventSignalInfo = WidgetFocusOutEventCallback + connectSignal _ = connectWidgetFocusOutEvent + +data WidgetGrabBrokenEventSignalInfo +instance SignalInfo WidgetGrabBrokenEventSignalInfo where + type HaskellCallbackType WidgetGrabBrokenEventSignalInfo = WidgetGrabBrokenEventCallback + connectSignal _ = connectWidgetGrabBrokenEvent + +data WidgetGrabFocusSignalInfo +instance SignalInfo WidgetGrabFocusSignalInfo where + type HaskellCallbackType WidgetGrabFocusSignalInfo = WidgetGrabFocusCallback + connectSignal _ = connectWidgetGrabFocus + +data WidgetGrabNotifySignalInfo +instance SignalInfo WidgetGrabNotifySignalInfo where + type HaskellCallbackType WidgetGrabNotifySignalInfo = WidgetGrabNotifyCallback + connectSignal _ = connectWidgetGrabNotify + +data WidgetHideSignalInfo +instance SignalInfo WidgetHideSignalInfo where + type HaskellCallbackType WidgetHideSignalInfo = WidgetHideCallback + connectSignal _ = connectWidgetHide + +data WidgetHierarchyChangedSignalInfo +instance SignalInfo WidgetHierarchyChangedSignalInfo where + type HaskellCallbackType WidgetHierarchyChangedSignalInfo = WidgetHierarchyChangedCallback + connectSignal _ = connectWidgetHierarchyChanged + +data WidgetKeyPressEventSignalInfo +instance SignalInfo WidgetKeyPressEventSignalInfo where + type HaskellCallbackType WidgetKeyPressEventSignalInfo = WidgetKeyPressEventCallback + connectSignal _ = connectWidgetKeyPressEvent + +data WidgetKeyReleaseEventSignalInfo +instance SignalInfo WidgetKeyReleaseEventSignalInfo where + type HaskellCallbackType WidgetKeyReleaseEventSignalInfo = WidgetKeyReleaseEventCallback + connectSignal _ = connectWidgetKeyReleaseEvent + +data WidgetKeynavFailedSignalInfo +instance SignalInfo WidgetKeynavFailedSignalInfo where + type HaskellCallbackType WidgetKeynavFailedSignalInfo = WidgetKeynavFailedCallback + connectSignal _ = connectWidgetKeynavFailed + +data WidgetLeaveNotifyEventSignalInfo +instance SignalInfo WidgetLeaveNotifyEventSignalInfo where + type HaskellCallbackType WidgetLeaveNotifyEventSignalInfo = WidgetLeaveNotifyEventCallback + connectSignal _ = connectWidgetLeaveNotifyEvent + +data WidgetMapSignalInfo +instance SignalInfo WidgetMapSignalInfo where + type HaskellCallbackType WidgetMapSignalInfo = WidgetMapCallback + connectSignal _ = connectWidgetMap + +data WidgetMapEventSignalInfo +instance SignalInfo WidgetMapEventSignalInfo where + type HaskellCallbackType WidgetMapEventSignalInfo = WidgetMapEventCallback + connectSignal _ = connectWidgetMapEvent + +data WidgetMnemonicActivateSignalInfo +instance SignalInfo WidgetMnemonicActivateSignalInfo where + type HaskellCallbackType WidgetMnemonicActivateSignalInfo = WidgetMnemonicActivateCallback + connectSignal _ = connectWidgetMnemonicActivate + +data WidgetMotionNotifyEventSignalInfo +instance SignalInfo WidgetMotionNotifyEventSignalInfo where + type HaskellCallbackType WidgetMotionNotifyEventSignalInfo = WidgetMotionNotifyEventCallback + connectSignal _ = connectWidgetMotionNotifyEvent + +data WidgetMoveFocusSignalInfo +instance SignalInfo WidgetMoveFocusSignalInfo where + type HaskellCallbackType WidgetMoveFocusSignalInfo = WidgetMoveFocusCallback + connectSignal _ = connectWidgetMoveFocus + +data WidgetParentSetSignalInfo +instance SignalInfo WidgetParentSetSignalInfo where + type HaskellCallbackType WidgetParentSetSignalInfo = WidgetParentSetCallback + connectSignal _ = connectWidgetParentSet + +data WidgetPopupMenuSignalInfo +instance SignalInfo WidgetPopupMenuSignalInfo where + type HaskellCallbackType WidgetPopupMenuSignalInfo = WidgetPopupMenuCallback + connectSignal _ = connectWidgetPopupMenu + +data WidgetPropertyNotifyEventSignalInfo +instance SignalInfo WidgetPropertyNotifyEventSignalInfo where + type HaskellCallbackType WidgetPropertyNotifyEventSignalInfo = WidgetPropertyNotifyEventCallback + connectSignal _ = connectWidgetPropertyNotifyEvent + +data WidgetProximityInEventSignalInfo +instance SignalInfo WidgetProximityInEventSignalInfo where + type HaskellCallbackType WidgetProximityInEventSignalInfo = WidgetProximityInEventCallback + connectSignal _ = connectWidgetProximityInEvent + +data WidgetProximityOutEventSignalInfo +instance SignalInfo WidgetProximityOutEventSignalInfo where + type HaskellCallbackType WidgetProximityOutEventSignalInfo = WidgetProximityOutEventCallback + connectSignal _ = connectWidgetProximityOutEvent + +data WidgetQueryTooltipSignalInfo +instance SignalInfo WidgetQueryTooltipSignalInfo where + type HaskellCallbackType WidgetQueryTooltipSignalInfo = WidgetQueryTooltipCallback + connectSignal _ = connectWidgetQueryTooltip + +data WidgetRealizeSignalInfo +instance SignalInfo WidgetRealizeSignalInfo where + type HaskellCallbackType WidgetRealizeSignalInfo = WidgetRealizeCallback + connectSignal _ = connectWidgetRealize + +data WidgetScreenChangedSignalInfo +instance SignalInfo WidgetScreenChangedSignalInfo where + type HaskellCallbackType WidgetScreenChangedSignalInfo = WidgetScreenChangedCallback + connectSignal _ = connectWidgetScreenChanged + +data WidgetScrollEventSignalInfo +instance SignalInfo WidgetScrollEventSignalInfo where + type HaskellCallbackType WidgetScrollEventSignalInfo = WidgetScrollEventCallback + connectSignal _ = connectWidgetScrollEvent + +data WidgetSelectionClearEventSignalInfo +instance SignalInfo WidgetSelectionClearEventSignalInfo where + type HaskellCallbackType WidgetSelectionClearEventSignalInfo = WidgetSelectionClearEventCallback + connectSignal _ = connectWidgetSelectionClearEvent + +data WidgetSelectionGetSignalInfo +instance SignalInfo WidgetSelectionGetSignalInfo where + type HaskellCallbackType WidgetSelectionGetSignalInfo = WidgetSelectionGetCallback + connectSignal _ = connectWidgetSelectionGet + +data WidgetSelectionNotifyEventSignalInfo +instance SignalInfo WidgetSelectionNotifyEventSignalInfo where + type HaskellCallbackType WidgetSelectionNotifyEventSignalInfo = WidgetSelectionNotifyEventCallback + connectSignal _ = connectWidgetSelectionNotifyEvent + +data WidgetSelectionReceivedSignalInfo +instance SignalInfo WidgetSelectionReceivedSignalInfo where + type HaskellCallbackType WidgetSelectionReceivedSignalInfo = WidgetSelectionReceivedCallback + connectSignal _ = connectWidgetSelectionReceived + +data WidgetSelectionRequestEventSignalInfo +instance SignalInfo WidgetSelectionRequestEventSignalInfo where + type HaskellCallbackType WidgetSelectionRequestEventSignalInfo = WidgetSelectionRequestEventCallback + connectSignal _ = connectWidgetSelectionRequestEvent + +data WidgetShowSignalInfo +instance SignalInfo WidgetShowSignalInfo where + type HaskellCallbackType WidgetShowSignalInfo = WidgetShowCallback + connectSignal _ = connectWidgetShow + +data WidgetShowHelpSignalInfo +instance SignalInfo WidgetShowHelpSignalInfo where + type HaskellCallbackType WidgetShowHelpSignalInfo = WidgetShowHelpCallback + connectSignal _ = connectWidgetShowHelp + +data WidgetSizeAllocateSignalInfo +instance SignalInfo WidgetSizeAllocateSignalInfo where + type HaskellCallbackType WidgetSizeAllocateSignalInfo = WidgetSizeAllocateCallback + connectSignal _ = connectWidgetSizeAllocate + +data WidgetStateChangedSignalInfo +instance SignalInfo WidgetStateChangedSignalInfo where + type HaskellCallbackType WidgetStateChangedSignalInfo = WidgetStateChangedCallback + connectSignal _ = connectWidgetStateChanged + +data WidgetStateFlagsChangedSignalInfo +instance SignalInfo WidgetStateFlagsChangedSignalInfo where + type HaskellCallbackType WidgetStateFlagsChangedSignalInfo = WidgetStateFlagsChangedCallback + connectSignal _ = connectWidgetStateFlagsChanged + +data WidgetStyleSetSignalInfo +instance SignalInfo WidgetStyleSetSignalInfo where + type HaskellCallbackType WidgetStyleSetSignalInfo = WidgetStyleSetCallback + connectSignal _ = connectWidgetStyleSet + +data WidgetStyleUpdatedSignalInfo +instance SignalInfo WidgetStyleUpdatedSignalInfo where + type HaskellCallbackType WidgetStyleUpdatedSignalInfo = WidgetStyleUpdatedCallback + connectSignal _ = connectWidgetStyleUpdated + +data WidgetTouchEventSignalInfo +instance SignalInfo WidgetTouchEventSignalInfo where + type HaskellCallbackType WidgetTouchEventSignalInfo = WidgetTouchEventCallback + connectSignal _ = connectWidgetTouchEvent + +data WidgetUnmapSignalInfo +instance SignalInfo WidgetUnmapSignalInfo where + type HaskellCallbackType WidgetUnmapSignalInfo = WidgetUnmapCallback + connectSignal _ = connectWidgetUnmap + +data WidgetUnmapEventSignalInfo +instance SignalInfo WidgetUnmapEventSignalInfo where + type HaskellCallbackType WidgetUnmapEventSignalInfo = WidgetUnmapEventCallback + connectSignal _ = connectWidgetUnmapEvent + +data WidgetUnrealizeSignalInfo +instance SignalInfo WidgetUnrealizeSignalInfo where + type HaskellCallbackType WidgetUnrealizeSignalInfo = WidgetUnrealizeCallback + connectSignal _ = connectWidgetUnrealize + +data WidgetVisibilityNotifyEventSignalInfo +instance SignalInfo WidgetVisibilityNotifyEventSignalInfo where + type HaskellCallbackType WidgetVisibilityNotifyEventSignalInfo = WidgetVisibilityNotifyEventCallback + connectSignal _ = connectWidgetVisibilityNotifyEvent + +data WidgetWindowStateEventSignalInfo +instance SignalInfo WidgetWindowStateEventSignalInfo where + type HaskellCallbackType WidgetWindowStateEventSignalInfo = WidgetWindowStateEventCallback + connectSignal _ = connectWidgetWindowStateEvent + +type instance SignalList Widget = WidgetSignalList +type WidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +-- method Widget::activate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_activate" gtk_widget_activate :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetActivate :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetActivate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_activate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetActivateMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetActivateMethodInfo a signature where + overloadedMethod _ = widgetActivate + +-- method Widget::add_accelerator +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_add_accelerator" gtk_widget_add_accelerator :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- accel_signal : TBasicType TUTF8 + Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" + Word32 -> -- accel_key : TBasicType TUInt32 + CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" + CUInt -> -- accel_flags : TInterface "Gtk" "AccelFlags" + IO () + + +widgetAddAccelerator :: + (MonadIO m, WidgetK a, AccelGroupK b) => + a -- _obj + -> T.Text -- accelSignal + -> b -- accelGroup + -> Word32 -- accelKey + -> [Gdk.ModifierType] -- accelMods + -> [AccelFlags] -- accelFlags + -> m () -- result +widgetAddAccelerator _obj accelSignal accelGroup accelKey accelMods accelFlags = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + accelSignal' <- textToCString accelSignal + let accelGroup' = unsafeManagedPtrCastPtr accelGroup + let accelMods' = gflagsToWord accelMods + let accelFlags' = gflagsToWord accelFlags + gtk_widget_add_accelerator _obj' accelSignal' accelGroup' accelKey accelMods' accelFlags' + touchManagedPtr _obj + touchManagedPtr accelGroup + freeMem accelSignal' + return () + +data WidgetAddAcceleratorMethodInfo +instance (signature ~ (T.Text -> b -> Word32 -> [Gdk.ModifierType] -> [AccelFlags] -> m ()), MonadIO m, WidgetK a, AccelGroupK b) => MethodInfo WidgetAddAcceleratorMethodInfo a signature where + overloadedMethod _ = widgetAddAccelerator + +-- method Widget::add_device_events +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_add_device_events" gtk_widget_add_device_events :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" + CUInt -> -- events : TInterface "Gdk" "EventMask" + IO () + + +widgetAddDeviceEvents :: + (MonadIO m, WidgetK a, Gdk.DeviceK b) => + a -- _obj + -> b -- device + -> [Gdk.EventMask] -- events + -> m () -- result +widgetAddDeviceEvents _obj device events = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let device' = unsafeManagedPtrCastPtr device + let events' = gflagsToWord events + gtk_widget_add_device_events _obj' device' events' + touchManagedPtr _obj + touchManagedPtr device + return () + +data WidgetAddDeviceEventsMethodInfo +instance (signature ~ (b -> [Gdk.EventMask] -> m ()), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetAddDeviceEventsMethodInfo a signature where + overloadedMethod _ = widgetAddDeviceEvents + +-- method Widget::add_events +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_add_events" gtk_widget_add_events :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- events : TBasicType TInt32 + IO () + + +widgetAddEvents :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- events + -> m () -- result +widgetAddEvents _obj events = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_add_events _obj' events + touchManagedPtr _obj + return () + +data WidgetAddEventsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetAddEventsMethodInfo a signature where + overloadedMethod _ = widgetAddEvents + +-- method Widget::add_mnemonic_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_add_mnemonic_label" gtk_widget_add_mnemonic_label :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Widget -> -- label : TInterface "Gtk" "Widget" + IO () + + +widgetAddMnemonicLabel :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- label + -> m () -- result +widgetAddMnemonicLabel _obj label = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let label' = unsafeManagedPtrCastPtr label + gtk_widget_add_mnemonic_label _obj' label' + touchManagedPtr _obj + touchManagedPtr label + return () + +data WidgetAddMnemonicLabelMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetAddMnemonicLabelMethodInfo a signature where + overloadedMethod _ = widgetAddMnemonicLabel + +-- method Widget::add_tick_callback +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "TickCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_add_tick_callback" gtk_widget_add_tick_callback :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + FunPtr TickCallbackC -> -- callback : TInterface "Gtk" "TickCallback" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" + IO Word32 + + +widgetAddTickCallback :: + (MonadIO m, WidgetK a) => + a -- _obj + -> TickCallback -- callback + -> m Word32 -- result +widgetAddTickCallback _obj callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + callback' <- mkTickCallback (tickCallbackWrapper Nothing callback) + let userData = castFunPtrToPtr callback' + let notify = safeFreeFunPtrPtr + result <- gtk_widget_add_tick_callback _obj' callback' userData notify + touchManagedPtr _obj + return result + +data WidgetAddTickCallbackMethodInfo +instance (signature ~ (TickCallback -> m Word32), MonadIO m, WidgetK a) => MethodInfo WidgetAddTickCallbackMethodInfo a signature where + overloadedMethod _ = widgetAddTickCallback + +-- method Widget::can_activate_accel +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_can_activate_accel" gtk_widget_can_activate_accel :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Word32 -> -- signal_id : TBasicType TUInt32 + IO CInt + + +widgetCanActivateAccel :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Word32 -- signalId + -> m Bool -- result +widgetCanActivateAccel _obj signalId = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_can_activate_accel _obj' signalId + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetCanActivateAccelMethodInfo +instance (signature ~ (Word32 -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetCanActivateAccelMethodInfo a signature where + overloadedMethod _ = widgetCanActivateAccel + +-- method Widget::child_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_child_focus" gtk_widget_child_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- direction : TInterface "Gtk" "DirectionType" + IO CInt + + +widgetChildFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> DirectionType -- direction + -> m Bool -- result +widgetChildFocus _obj direction = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let direction' = (fromIntegral . fromEnum) direction + result <- gtk_widget_child_focus _obj' direction' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetChildFocusMethodInfo +instance (signature ~ (DirectionType -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetChildFocusMethodInfo a signature where + overloadedMethod _ = widgetChildFocus + +-- method Widget::child_notify +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_child_notify" gtk_widget_child_notify :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- child_property : TBasicType TUTF8 + IO () + + +widgetChildNotify :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- childProperty + -> m () -- result +widgetChildNotify _obj childProperty = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + childProperty' <- textToCString childProperty + gtk_widget_child_notify _obj' childProperty' + touchManagedPtr _obj + freeMem childProperty' + return () + +data WidgetChildNotifyMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetChildNotifyMethodInfo a signature where + overloadedMethod _ = widgetChildNotify + +-- method Widget::class_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path_reversed", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_class_path" gtk_widget_class_path :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Word32 -> -- path_length : TBasicType TUInt32 + Ptr CString -> -- path : TBasicType TUTF8 + Ptr CString -> -- path_reversed : TBasicType TUTF8 + IO () + +{-# DEPRECATED widgetClassPath ["(Since version 3.0)","Use gtk_widget_get_path() instead"]#-} +widgetClassPath :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Word32,T.Text,T.Text) -- result +widgetClassPath _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + pathLength <- allocMem :: IO (Ptr Word32) + path <- allocMem :: IO (Ptr CString) + pathReversed <- allocMem :: IO (Ptr CString) + gtk_widget_class_path _obj' pathLength path pathReversed + pathLength' <- peek pathLength + path' <- peek path + path'' <- cstringToText path' + freeMem path' + pathReversed' <- peek pathReversed + pathReversed'' <- cstringToText pathReversed' + freeMem pathReversed' + touchManagedPtr _obj + freeMem pathLength + freeMem path + freeMem pathReversed + return (pathLength', path'', pathReversed'') + +data WidgetClassPathMethodInfo +instance (signature ~ (m (Word32,T.Text,T.Text)), MonadIO m, WidgetK a) => MethodInfo WidgetClassPathMethodInfo a signature where + overloadedMethod _ = widgetClassPath + +-- method Widget::compute_expand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_compute_expand" gtk_widget_compute_expand :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- orientation : TInterface "Gtk" "Orientation" + IO CInt + + +widgetComputeExpand :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Orientation -- orientation + -> m Bool -- result +widgetComputeExpand _obj orientation = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let orientation' = (fromIntegral . fromEnum) orientation + result <- gtk_widget_compute_expand _obj' orientation' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetComputeExpandMethodInfo +instance (signature ~ (Orientation -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetComputeExpandMethodInfo a signature where + overloadedMethod _ = widgetComputeExpand + +-- method Widget::create_pango_context +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "Context" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_create_pango_context" gtk_widget_create_pango_context :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Pango.Context) + + +widgetCreatePangoContext :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Pango.Context -- result +widgetCreatePangoContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_create_pango_context _obj' + checkUnexpectedReturnNULL "gtk_widget_create_pango_context" result + result' <- (wrapObject Pango.Context) result + touchManagedPtr _obj + return result' + +data WidgetCreatePangoContextMethodInfo +instance (signature ~ (m Pango.Context), MonadIO m, WidgetK a) => MethodInfo WidgetCreatePangoContextMethodInfo a signature where + overloadedMethod _ = widgetCreatePangoContext + +-- method Widget::create_pango_layout +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "Layout" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_create_pango_layout" gtk_widget_create_pango_layout :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- text : TBasicType TUTF8 + IO (Ptr Pango.Layout) + + +widgetCreatePangoLayout :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (T.Text) -- text + -> m Pango.Layout -- result +widgetCreatePangoLayout _obj text = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeText <- case text of + Nothing -> return nullPtr + Just jText -> do + jText' <- textToCString jText + return jText' + result <- gtk_widget_create_pango_layout _obj' maybeText + checkUnexpectedReturnNULL "gtk_widget_create_pango_layout" result + result' <- (wrapObject Pango.Layout) result + touchManagedPtr _obj + freeMem maybeText + return result' + +data WidgetCreatePangoLayoutMethodInfo +instance (signature ~ (Maybe (T.Text) -> m Pango.Layout), MonadIO m, WidgetK a) => MethodInfo WidgetCreatePangoLayoutMethodInfo a signature where + overloadedMethod _ = widgetCreatePangoLayout + +-- method Widget::destroy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_destroy" gtk_widget_destroy :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDestroy :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDestroy _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_destroy _obj' + touchManagedPtr _obj + return () + +data WidgetDestroyMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDestroyMethodInfo a signature where + overloadedMethod _ = widgetDestroy + +-- method Widget::destroyed +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_pointer", argType = TInterface "Gtk" "Widget", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_destroyed" gtk_widget_destroyed :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr (Ptr Widget) -> -- widget_pointer : TInterface "Gtk" "Widget" + IO () + + +widgetDestroyed :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- widgetPointer + -> m (Widget) -- result +widgetDestroyed _obj widgetPointer = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let widgetPointer' = unsafeManagedPtrCastPtr widgetPointer + widgetPointer'' <- allocMem :: IO (Ptr (Ptr Widget)) + poke widgetPointer'' widgetPointer' + gtk_widget_destroyed _obj' widgetPointer'' + widgetPointer''' <- peek widgetPointer'' + widgetPointer'''' <- (newObject Widget) widgetPointer''' + touchManagedPtr _obj + touchManagedPtr widgetPointer + freeMem widgetPointer'' + return widgetPointer'''' + +data WidgetDestroyedMethodInfo +instance (signature ~ (b -> m (Widget)), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetDestroyedMethodInfo a signature where + overloadedMethod _ = widgetDestroyed + +-- method Widget::device_is_shadowed +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_device_is_shadowed" gtk_widget_device_is_shadowed :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" + IO CInt + + +widgetDeviceIsShadowed :: + (MonadIO m, WidgetK a, Gdk.DeviceK b) => + a -- _obj + -> b -- device + -> m Bool -- result +widgetDeviceIsShadowed _obj device = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let device' = unsafeManagedPtrCastPtr device + result <- gtk_widget_device_is_shadowed _obj' device' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr device + return result' + +data WidgetDeviceIsShadowedMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetDeviceIsShadowedMethodInfo a signature where + overloadedMethod _ = widgetDeviceIsShadowed + +-- method Widget::drag_begin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "DragContext" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_begin" gtk_drag_begin :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr TargetList -> -- targets : TInterface "Gtk" "TargetList" + CUInt -> -- actions : TInterface "Gdk" "DragAction" + Int32 -> -- button : TBasicType TInt32 + Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" + IO (Ptr Gdk.DragContext) + +{-# DEPRECATED widgetDragBegin ["(Since version 3.10)","Use gtk_drag_begin_with_coordinates() instead"]#-} +widgetDragBegin :: + (MonadIO m, WidgetK a) => + a -- _obj + -> TargetList -- targets + -> [Gdk.DragAction] -- actions + -> Int32 -- button + -> Maybe (Gdk.Event) -- event + -> m Gdk.DragContext -- result +widgetDragBegin _obj targets actions button event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let targets' = unsafeManagedPtrGetPtr targets + let actions' = gflagsToWord actions + maybeEvent <- case event of + Nothing -> return nullPtr + Just jEvent -> do + let jEvent' = unsafeManagedPtrGetPtr jEvent + return jEvent' + result <- gtk_drag_begin _obj' targets' actions' button maybeEvent + checkUnexpectedReturnNULL "gtk_drag_begin" result + result' <- (newObject Gdk.DragContext) result + touchManagedPtr _obj + touchManagedPtr targets + whenJust event touchManagedPtr + return result' + +data WidgetDragBeginMethodInfo +instance (signature ~ (TargetList -> [Gdk.DragAction] -> Int32 -> Maybe (Gdk.Event) -> m Gdk.DragContext), MonadIO m, WidgetK a) => MethodInfo WidgetDragBeginMethodInfo a signature where + overloadedMethod _ = widgetDragBegin + +-- method Widget::drag_begin_with_coordinates +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "DragContext" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_begin_with_coordinates" gtk_drag_begin_with_coordinates :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr TargetList -> -- targets : TInterface "Gtk" "TargetList" + CUInt -> -- actions : TInterface "Gdk" "DragAction" + Int32 -> -- button : TBasicType TInt32 + Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + IO (Ptr Gdk.DragContext) + + +widgetDragBeginWithCoordinates :: + (MonadIO m, WidgetK a) => + a -- _obj + -> TargetList -- targets + -> [Gdk.DragAction] -- actions + -> Int32 -- button + -> Maybe (Gdk.Event) -- event + -> Int32 -- x + -> Int32 -- y + -> m Gdk.DragContext -- result +widgetDragBeginWithCoordinates _obj targets actions button event x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let targets' = unsafeManagedPtrGetPtr targets + let actions' = gflagsToWord actions + maybeEvent <- case event of + Nothing -> return nullPtr + Just jEvent -> do + let jEvent' = unsafeManagedPtrGetPtr jEvent + return jEvent' + result <- gtk_drag_begin_with_coordinates _obj' targets' actions' button maybeEvent x y + checkUnexpectedReturnNULL "gtk_drag_begin_with_coordinates" result + result' <- (newObject Gdk.DragContext) result + touchManagedPtr _obj + touchManagedPtr targets + whenJust event touchManagedPtr + return result' + +data WidgetDragBeginWithCoordinatesMethodInfo +instance (signature ~ (TargetList -> [Gdk.DragAction] -> Int32 -> Maybe (Gdk.Event) -> Int32 -> Int32 -> m Gdk.DragContext), MonadIO m, WidgetK a) => MethodInfo WidgetDragBeginWithCoordinatesMethodInfo a signature where + overloadedMethod _ = widgetDragBeginWithCoordinates + +-- method Widget::drag_check_threshold +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_check_threshold" gtk_drag_check_threshold :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- start_x : TBasicType TInt32 + Int32 -> -- start_y : TBasicType TInt32 + Int32 -> -- current_x : TBasicType TInt32 + Int32 -> -- current_y : TBasicType TInt32 + IO CInt + + +widgetDragCheckThreshold :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- startX + -> Int32 -- startY + -> Int32 -- currentX + -> Int32 -- currentY + -> m Bool -- result +widgetDragCheckThreshold _obj startX startY currentX currentY = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_drag_check_threshold _obj' startX startY currentX currentY + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetDragCheckThresholdMethodInfo +instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetDragCheckThresholdMethodInfo a signature where + overloadedMethod _ = widgetDragCheckThreshold + +-- method Widget::drag_dest_add_image_targets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_add_image_targets" gtk_drag_dest_add_image_targets :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragDestAddImageTargets :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragDestAddImageTargets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_dest_add_image_targets _obj' + touchManagedPtr _obj + return () + +data WidgetDragDestAddImageTargetsMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestAddImageTargetsMethodInfo a signature where + overloadedMethod _ = widgetDragDestAddImageTargets + +-- method Widget::drag_dest_add_text_targets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_add_text_targets" gtk_drag_dest_add_text_targets :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragDestAddTextTargets :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragDestAddTextTargets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_dest_add_text_targets _obj' + touchManagedPtr _obj + return () + +data WidgetDragDestAddTextTargetsMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestAddTextTargetsMethodInfo a signature where + overloadedMethod _ = widgetDragDestAddTextTargets + +-- method Widget::drag_dest_add_uri_targets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_add_uri_targets" gtk_drag_dest_add_uri_targets :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragDestAddUriTargets :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragDestAddUriTargets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_dest_add_uri_targets _obj' + touchManagedPtr _obj + return () + +data WidgetDragDestAddUriTargetsMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestAddUriTargetsMethodInfo a signature where + overloadedMethod _ = widgetDragDestAddUriTargets + +-- method Widget::drag_dest_find_target +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Atom" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_find_target" gtk_drag_dest_find_target :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" + Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" + IO (Ptr Gdk.Atom) + + +widgetDragDestFindTarget :: + (MonadIO m, WidgetK a, Gdk.DragContextK b) => + a -- _obj + -> b -- context + -> Maybe (TargetList) -- targetList + -> m Gdk.Atom -- result +widgetDragDestFindTarget _obj context targetList = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let context' = unsafeManagedPtrCastPtr context + maybeTargetList <- case targetList of + Nothing -> return nullPtr + Just jTargetList -> do + let jTargetList' = unsafeManagedPtrGetPtr jTargetList + return jTargetList' + result <- gtk_drag_dest_find_target _obj' context' maybeTargetList + checkUnexpectedReturnNULL "gtk_drag_dest_find_target" result + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result + touchManagedPtr _obj + touchManagedPtr context + whenJust targetList touchManagedPtr + return result' + +data WidgetDragDestFindTargetMethodInfo +instance (signature ~ (b -> Maybe (TargetList) -> m Gdk.Atom), MonadIO m, WidgetK a, Gdk.DragContextK b) => MethodInfo WidgetDragDestFindTargetMethodInfo a signature where + overloadedMethod _ = widgetDragDestFindTarget + +-- method Widget::drag_dest_get_target_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TargetList" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_get_target_list" gtk_drag_dest_get_target_list :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr TargetList) + + +widgetDragDestGetTargetList :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m TargetList -- result +widgetDragDestGetTargetList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_drag_dest_get_target_list _obj' + checkUnexpectedReturnNULL "gtk_drag_dest_get_target_list" result + result' <- (newBoxed TargetList) result + touchManagedPtr _obj + return result' + +data WidgetDragDestGetTargetListMethodInfo +instance (signature ~ (m TargetList), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestGetTargetListMethodInfo a signature where + overloadedMethod _ = widgetDragDestGetTargetList + +-- method Widget::drag_dest_get_track_motion +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_get_track_motion" gtk_drag_dest_get_track_motion :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetDragDestGetTrackMotion :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetDragDestGetTrackMotion _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_drag_dest_get_track_motion _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetDragDestGetTrackMotionMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestGetTrackMotionMethodInfo a signature where + overloadedMethod _ = widgetDragDestGetTrackMotion + +-- method Widget::drag_dest_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_set" gtk_drag_dest_set :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- flags : TInterface "Gtk" "DestDefaults" + Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") + Int32 -> -- n_targets : TBasicType TInt32 + CUInt -> -- actions : TInterface "Gdk" "DragAction" + IO () + + +widgetDragDestSet :: + (MonadIO m, WidgetK a) => + a -- _obj + -> [DestDefaults] -- flags + -> Maybe ([TargetEntry]) -- targets + -> [Gdk.DragAction] -- actions + -> m () -- result +widgetDragDestSet _obj flags targets actions = liftIO $ do + let nTargets = case targets of + Nothing -> 0 + Just jTargets -> fromIntegral $ length jTargets + let _obj' = unsafeManagedPtrCastPtr _obj + let flags' = gflagsToWord flags + maybeTargets <- case targets of + Nothing -> return nullPtr + Just jTargets -> do + let jTargets' = map unsafeManagedPtrGetPtr jTargets + jTargets'' <- packBlockArray 16 jTargets' + return jTargets'' + let actions' = gflagsToWord actions + gtk_drag_dest_set _obj' flags' maybeTargets nTargets actions' + touchManagedPtr _obj + whenJust targets (mapM_ touchManagedPtr) + freeMem maybeTargets + return () + +data WidgetDragDestSetMethodInfo +instance (signature ~ ([DestDefaults] -> Maybe ([TargetEntry]) -> [Gdk.DragAction] -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestSetMethodInfo a signature where + overloadedMethod _ = widgetDragDestSet + +-- method Widget::drag_dest_set_proxy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_set_proxy" gtk_drag_dest_set_proxy :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Window -> -- proxy_window : TInterface "Gdk" "Window" + CUInt -> -- protocol : TInterface "Gdk" "DragProtocol" + CInt -> -- use_coordinates : TBasicType TBoolean + IO () + + +widgetDragDestSetProxy :: + (MonadIO m, WidgetK a, Gdk.WindowK b) => + a -- _obj + -> b -- proxyWindow + -> Gdk.DragProtocol -- protocol + -> Bool -- useCoordinates + -> m () -- result +widgetDragDestSetProxy _obj proxyWindow protocol useCoordinates = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let proxyWindow' = unsafeManagedPtrCastPtr proxyWindow + let protocol' = (fromIntegral . fromEnum) protocol + let useCoordinates' = (fromIntegral . fromEnum) useCoordinates + gtk_drag_dest_set_proxy _obj' proxyWindow' protocol' useCoordinates' + touchManagedPtr _obj + touchManagedPtr proxyWindow + return () + +data WidgetDragDestSetProxyMethodInfo +instance (signature ~ (b -> Gdk.DragProtocol -> Bool -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetDragDestSetProxyMethodInfo a signature where + overloadedMethod _ = widgetDragDestSetProxy + +-- method Widget::drag_dest_set_target_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_set_target_list" gtk_drag_dest_set_target_list :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" + IO () + + +widgetDragDestSetTargetList :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (TargetList) -- targetList + -> m () -- result +widgetDragDestSetTargetList _obj targetList = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeTargetList <- case targetList of + Nothing -> return nullPtr + Just jTargetList -> do + let jTargetList' = unsafeManagedPtrGetPtr jTargetList + return jTargetList' + gtk_drag_dest_set_target_list _obj' maybeTargetList + touchManagedPtr _obj + whenJust targetList touchManagedPtr + return () + +data WidgetDragDestSetTargetListMethodInfo +instance (signature ~ (Maybe (TargetList) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestSetTargetListMethodInfo a signature where + overloadedMethod _ = widgetDragDestSetTargetList + +-- method Widget::drag_dest_set_track_motion +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "track_motion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_set_track_motion" gtk_drag_dest_set_track_motion :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- track_motion : TBasicType TBoolean + IO () + + +widgetDragDestSetTrackMotion :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- trackMotion + -> m () -- result +widgetDragDestSetTrackMotion _obj trackMotion = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let trackMotion' = (fromIntegral . fromEnum) trackMotion + gtk_drag_dest_set_track_motion _obj' trackMotion' + touchManagedPtr _obj + return () + +data WidgetDragDestSetTrackMotionMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestSetTrackMotionMethodInfo a signature where + overloadedMethod _ = widgetDragDestSetTrackMotion + +-- method Widget::drag_dest_unset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_unset" gtk_drag_dest_unset :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragDestUnset :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragDestUnset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_dest_unset _obj' + touchManagedPtr _obj + return () + +data WidgetDragDestUnsetMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestUnsetMethodInfo a signature where + overloadedMethod _ = widgetDragDestUnset + +-- method Widget::drag_get_data +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_get_data" gtk_drag_get_data :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" + Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" + Word32 -> -- time_ : TBasicType TUInt32 + IO () + + +widgetDragGetData :: + (MonadIO m, WidgetK a, Gdk.DragContextK b) => + a -- _obj + -> b -- context + -> Gdk.Atom -- target + -> Word32 -- time + -> m () -- result +widgetDragGetData _obj context target time = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let context' = unsafeManagedPtrCastPtr context + let target' = unsafeManagedPtrGetPtr target + gtk_drag_get_data _obj' context' target' time + touchManagedPtr _obj + touchManagedPtr context + touchManagedPtr target + return () + +data WidgetDragGetDataMethodInfo +instance (signature ~ (b -> Gdk.Atom -> Word32 -> m ()), MonadIO m, WidgetK a, Gdk.DragContextK b) => MethodInfo WidgetDragGetDataMethodInfo a signature where + overloadedMethod _ = widgetDragGetData + +-- method Widget::drag_highlight +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_highlight" gtk_drag_highlight :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragHighlight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragHighlight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_highlight _obj' + touchManagedPtr _obj + return () + +data WidgetDragHighlightMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragHighlightMethodInfo a signature where + overloadedMethod _ = widgetDragHighlight + +-- method Widget::drag_source_add_image_targets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_add_image_targets" gtk_drag_source_add_image_targets :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragSourceAddImageTargets :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragSourceAddImageTargets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_source_add_image_targets _obj' + touchManagedPtr _obj + return () + +data WidgetDragSourceAddImageTargetsMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceAddImageTargetsMethodInfo a signature where + overloadedMethod _ = widgetDragSourceAddImageTargets + +-- method Widget::drag_source_add_text_targets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_add_text_targets" gtk_drag_source_add_text_targets :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragSourceAddTextTargets :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragSourceAddTextTargets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_source_add_text_targets _obj' + touchManagedPtr _obj + return () + +data WidgetDragSourceAddTextTargetsMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceAddTextTargetsMethodInfo a signature where + overloadedMethod _ = widgetDragSourceAddTextTargets + +-- method Widget::drag_source_add_uri_targets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_add_uri_targets" gtk_drag_source_add_uri_targets :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragSourceAddUriTargets :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragSourceAddUriTargets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_source_add_uri_targets _obj' + touchManagedPtr _obj + return () + +data WidgetDragSourceAddUriTargetsMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceAddUriTargetsMethodInfo a signature where + overloadedMethod _ = widgetDragSourceAddUriTargets + +-- method Widget::drag_source_get_target_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TargetList" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_get_target_list" gtk_drag_source_get_target_list :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr TargetList) + + +widgetDragSourceGetTargetList :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m TargetList -- result +widgetDragSourceGetTargetList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_drag_source_get_target_list _obj' + checkUnexpectedReturnNULL "gtk_drag_source_get_target_list" result + result' <- (newBoxed TargetList) result + touchManagedPtr _obj + return result' + +data WidgetDragSourceGetTargetListMethodInfo +instance (signature ~ (m TargetList), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceGetTargetListMethodInfo a signature where + overloadedMethod _ = widgetDragSourceGetTargetList + +-- method Widget::drag_source_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_set" gtk_drag_source_set :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" + Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") + Int32 -> -- n_targets : TBasicType TInt32 + CUInt -> -- actions : TInterface "Gdk" "DragAction" + IO () + + +widgetDragSourceSet :: + (MonadIO m, WidgetK a) => + a -- _obj + -> [Gdk.ModifierType] -- startButtonMask + -> Maybe ([TargetEntry]) -- targets + -> [Gdk.DragAction] -- actions + -> m () -- result +widgetDragSourceSet _obj startButtonMask targets actions = liftIO $ do + let nTargets = case targets of + Nothing -> 0 + Just jTargets -> fromIntegral $ length jTargets + let _obj' = unsafeManagedPtrCastPtr _obj + let startButtonMask' = gflagsToWord startButtonMask + maybeTargets <- case targets of + Nothing -> return nullPtr + Just jTargets -> do + let jTargets' = map unsafeManagedPtrGetPtr jTargets + jTargets'' <- packBlockArray 16 jTargets' + return jTargets'' + let actions' = gflagsToWord actions + gtk_drag_source_set _obj' startButtonMask' maybeTargets nTargets actions' + touchManagedPtr _obj + whenJust targets (mapM_ touchManagedPtr) + freeMem maybeTargets + return () + +data WidgetDragSourceSetMethodInfo +instance (signature ~ ([Gdk.ModifierType] -> Maybe ([TargetEntry]) -> [Gdk.DragAction] -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetMethodInfo a signature where + overloadedMethod _ = widgetDragSourceSet + +-- method Widget::drag_source_set_icon_gicon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_set_icon_gicon" gtk_drag_source_set_icon_gicon :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" + IO () + + +widgetDragSourceSetIconGicon :: + (MonadIO m, WidgetK a, Gio.IconK b) => + a -- _obj + -> b -- icon + -> m () -- result +widgetDragSourceSetIconGicon _obj icon = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let icon' = unsafeManagedPtrCastPtr icon + gtk_drag_source_set_icon_gicon _obj' icon' + touchManagedPtr _obj + touchManagedPtr icon + return () + +data WidgetDragSourceSetIconGiconMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gio.IconK b) => MethodInfo WidgetDragSourceSetIconGiconMethodInfo a signature where + overloadedMethod _ = widgetDragSourceSetIconGicon + +-- method Widget::drag_source_set_icon_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_set_icon_name" gtk_drag_source_set_icon_name :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- icon_name : TBasicType TUTF8 + IO () + + +widgetDragSourceSetIconName :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- iconName + -> m () -- result +widgetDragSourceSetIconName _obj iconName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + iconName' <- textToCString iconName + gtk_drag_source_set_icon_name _obj' iconName' + touchManagedPtr _obj + freeMem iconName' + return () + +data WidgetDragSourceSetIconNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetIconNameMethodInfo a signature where + overloadedMethod _ = widgetDragSourceSetIconName + +-- method Widget::drag_source_set_icon_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_set_icon_pixbuf" gtk_drag_source_set_icon_pixbuf :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" + IO () + + +widgetDragSourceSetIconPixbuf :: + (MonadIO m, WidgetK a, GdkPixbuf.PixbufK b) => + a -- _obj + -> b -- pixbuf + -> m () -- result +widgetDragSourceSetIconPixbuf _obj pixbuf = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let pixbuf' = unsafeManagedPtrCastPtr pixbuf + gtk_drag_source_set_icon_pixbuf _obj' pixbuf' + touchManagedPtr _obj + touchManagedPtr pixbuf + return () + +data WidgetDragSourceSetIconPixbufMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, GdkPixbuf.PixbufK b) => MethodInfo WidgetDragSourceSetIconPixbufMethodInfo a signature where + overloadedMethod _ = widgetDragSourceSetIconPixbuf + +-- method Widget::drag_source_set_icon_stock +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_set_icon_stock" gtk_drag_source_set_icon_stock :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- stock_id : TBasicType TUTF8 + IO () + +{-# DEPRECATED widgetDragSourceSetIconStock ["(Since version 3.10)","Use gtk_drag_source_set_icon_name() instead."]#-} +widgetDragSourceSetIconStock :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- stockId + -> m () -- result +widgetDragSourceSetIconStock _obj stockId = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + stockId' <- textToCString stockId + gtk_drag_source_set_icon_stock _obj' stockId' + touchManagedPtr _obj + freeMem stockId' + return () + +data WidgetDragSourceSetIconStockMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetIconStockMethodInfo a signature where + overloadedMethod _ = widgetDragSourceSetIconStock + +-- method Widget::drag_source_set_target_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_set_target_list" gtk_drag_source_set_target_list :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" + IO () + + +widgetDragSourceSetTargetList :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (TargetList) -- targetList + -> m () -- result +widgetDragSourceSetTargetList _obj targetList = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeTargetList <- case targetList of + Nothing -> return nullPtr + Just jTargetList -> do + let jTargetList' = unsafeManagedPtrGetPtr jTargetList + return jTargetList' + gtk_drag_source_set_target_list _obj' maybeTargetList + touchManagedPtr _obj + whenJust targetList touchManagedPtr + return () + +data WidgetDragSourceSetTargetListMethodInfo +instance (signature ~ (Maybe (TargetList) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetTargetListMethodInfo a signature where + overloadedMethod _ = widgetDragSourceSetTargetList + +-- method Widget::drag_source_unset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_unset" gtk_drag_source_unset :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragSourceUnset :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragSourceUnset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_source_unset _obj' + touchManagedPtr _obj + return () + +data WidgetDragSourceUnsetMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceUnsetMethodInfo a signature where + overloadedMethod _ = widgetDragSourceUnset + +-- method Widget::drag_unhighlight +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_unhighlight" gtk_drag_unhighlight :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragUnhighlight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragUnhighlight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_unhighlight _obj' + touchManagedPtr _obj + return () + +data WidgetDragUnhighlightMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragUnhighlightMethodInfo a signature where + overloadedMethod _ = widgetDragUnhighlight + +-- method Widget::draw +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_draw" gtk_widget_draw :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" + IO () + + +widgetDraw :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Cairo.Context -- cr + -> m () -- result +widgetDraw _obj cr = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let cr' = unsafeManagedPtrGetPtr cr + gtk_widget_draw _obj' cr' + touchManagedPtr _obj + touchManagedPtr cr + return () + +data WidgetDrawMethodInfo +instance (signature ~ (Cairo.Context -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDrawMethodInfo a signature where + overloadedMethod _ = widgetDraw + +-- method Widget::ensure_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_ensure_style" gtk_widget_ensure_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + +{-# DEPRECATED widgetEnsureStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} +widgetEnsureStyle :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetEnsureStyle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_ensure_style _obj' + touchManagedPtr _obj + return () + +data WidgetEnsureStyleMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetEnsureStyleMethodInfo a signature where + overloadedMethod _ = widgetEnsureStyle + +-- method Widget::error_bell +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_error_bell" gtk_widget_error_bell :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetErrorBell :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetErrorBell _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_error_bell _obj' + touchManagedPtr _obj + return () + +data WidgetErrorBellMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetErrorBellMethodInfo a signature where + overloadedMethod _ = widgetErrorBell + +-- method Widget::event +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_event" gtk_widget_event :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" + IO CInt + + +widgetEvent :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Event -- event + -> m Bool -- result +widgetEvent _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrGetPtr event + result <- gtk_widget_event _obj' event' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr event + return result' + +data WidgetEventMethodInfo +instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetEventMethodInfo a signature where + overloadedMethod _ = widgetEvent + +-- method Widget::freeze_child_notify +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_freeze_child_notify" gtk_widget_freeze_child_notify :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetFreezeChildNotify :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetFreezeChildNotify _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_freeze_child_notify _obj' + touchManagedPtr _obj + return () + +data WidgetFreezeChildNotifyMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetFreezeChildNotifyMethodInfo a signature where + overloadedMethod _ = widgetFreezeChildNotify + +-- method Widget::get_accessible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Atk" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_accessible" gtk_widget_get_accessible :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Atk.Object) + + +widgetGetAccessible :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Atk.Object -- result +widgetGetAccessible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_accessible _obj' + checkUnexpectedReturnNULL "gtk_widget_get_accessible" result + result' <- (newObject Atk.Object) result + touchManagedPtr _obj + return result' + +data WidgetGetAccessibleMethodInfo +instance (signature ~ (m Atk.Object), MonadIO m, WidgetK a) => MethodInfo WidgetGetAccessibleMethodInfo a signature where + overloadedMethod _ = widgetGetAccessible + +-- method Widget::get_action_group +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "ActionGroup" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_action_group" gtk_widget_get_action_group :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- prefix : TBasicType TUTF8 + IO (Ptr Gio.ActionGroup) + + +widgetGetActionGroup :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- prefix + -> m Gio.ActionGroup -- result +widgetGetActionGroup _obj prefix = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + prefix' <- textToCString prefix + result <- gtk_widget_get_action_group _obj' prefix' + checkUnexpectedReturnNULL "gtk_widget_get_action_group" result + result' <- (newObject Gio.ActionGroup) result + touchManagedPtr _obj + freeMem prefix' + return result' + +data WidgetGetActionGroupMethodInfo +instance (signature ~ (T.Text -> m Gio.ActionGroup), MonadIO m, WidgetK a) => MethodInfo WidgetGetActionGroupMethodInfo a signature where + overloadedMethod _ = widgetGetActionGroup + +-- method Widget::get_allocated_baseline +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_allocated_baseline" gtk_widget_get_allocated_baseline :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetAllocatedBaseline :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetAllocatedBaseline _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_allocated_baseline _obj' + touchManagedPtr _obj + return result + +data WidgetGetAllocatedBaselineMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocatedBaselineMethodInfo a signature where + overloadedMethod _ = widgetGetAllocatedBaseline + +-- method Widget::get_allocated_height +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_allocated_height" gtk_widget_get_allocated_height :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetAllocatedHeight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetAllocatedHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_allocated_height _obj' + touchManagedPtr _obj + return result + +data WidgetGetAllocatedHeightMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocatedHeightMethodInfo a signature where + overloadedMethod _ = widgetGetAllocatedHeight + +-- method Widget::get_allocated_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_allocated_width" gtk_widget_get_allocated_width :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetAllocatedWidth :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetAllocatedWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_allocated_width _obj' + touchManagedPtr _obj + return result + +data WidgetGetAllocatedWidthMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocatedWidthMethodInfo a signature where + overloadedMethod _ = widgetGetAllocatedWidth + +-- method Widget::get_allocation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_allocation" gtk_widget_get_allocation :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" + IO () + + +widgetGetAllocation :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Gdk.Rectangle) -- result +widgetGetAllocation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + allocation <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_widget_get_allocation _obj' allocation + allocation' <- (wrapBoxed Gdk.Rectangle) allocation + touchManagedPtr _obj + return allocation' + +data WidgetGetAllocationMethodInfo +instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocationMethodInfo a signature where + overloadedMethod _ = widgetGetAllocation + +-- method Widget::get_ancestor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_ancestor" gtk_widget_get_ancestor :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CGType -> -- widget_type : TBasicType TGType + IO (Ptr Widget) + + +widgetGetAncestor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> GType -- widgetType + -> m Widget -- result +widgetGetAncestor _obj widgetType = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let widgetType' = gtypeToCGType widgetType + result <- gtk_widget_get_ancestor _obj' widgetType' + checkUnexpectedReturnNULL "gtk_widget_get_ancestor" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data WidgetGetAncestorMethodInfo +instance (signature ~ (GType -> m Widget), MonadIO m, WidgetK a) => MethodInfo WidgetGetAncestorMethodInfo a signature where + overloadedMethod _ = widgetGetAncestor + +-- method Widget::get_app_paintable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_app_paintable" gtk_widget_get_app_paintable :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetAppPaintable :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetAppPaintable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_app_paintable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetAppPaintableMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetAppPaintableMethodInfo a signature where + overloadedMethod _ = widgetGetAppPaintable + +-- method Widget::get_can_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_can_default" gtk_widget_get_can_default :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetCanDefault :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetCanDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_can_default _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetCanDefaultMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetCanDefaultMethodInfo a signature where + overloadedMethod _ = widgetGetCanDefault + +-- method Widget::get_can_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_can_focus" gtk_widget_get_can_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetCanFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetCanFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_can_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetCanFocusMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetCanFocusMethodInfo a signature where + overloadedMethod _ = widgetGetCanFocus + +-- method Widget::get_child_requisition +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_child_requisition" gtk_widget_get_child_requisition :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" + IO () + +{-# DEPRECATED widgetGetChildRequisition ["(Since version 3.0)","Use gtk_widget_get_preferred_size() instead."]#-} +widgetGetChildRequisition :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Requisition) -- result +widgetGetChildRequisition _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) + gtk_widget_get_child_requisition _obj' requisition + requisition' <- (wrapBoxed Requisition) requisition + touchManagedPtr _obj + return requisition' + +data WidgetGetChildRequisitionMethodInfo +instance (signature ~ (m (Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetGetChildRequisitionMethodInfo a signature where + overloadedMethod _ = widgetGetChildRequisition + +-- method Widget::get_child_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_child_visible" gtk_widget_get_child_visible :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetChildVisible :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetChildVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_child_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetChildVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetChildVisibleMethodInfo a signature where + overloadedMethod _ = widgetGetChildVisible + +-- method Widget::get_clip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clip", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_clip" gtk_widget_get_clip :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- clip : TInterface "Gdk" "Rectangle" + IO () + + +widgetGetClip :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Gdk.Rectangle) -- result +widgetGetClip _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + clip <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_widget_get_clip _obj' clip + clip' <- (wrapBoxed Gdk.Rectangle) clip + touchManagedPtr _obj + return clip' + +data WidgetGetClipMethodInfo +instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, WidgetK a) => MethodInfo WidgetGetClipMethodInfo a signature where + overloadedMethod _ = widgetGetClip + +-- method Widget::get_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Clipboard" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_clipboard" gtk_widget_get_clipboard :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" + IO (Ptr Clipboard) + + +widgetGetClipboard :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Atom -- selection + -> m Clipboard -- result +widgetGetClipboard _obj selection = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let selection' = unsafeManagedPtrGetPtr selection + result <- gtk_widget_get_clipboard _obj' selection' + checkUnexpectedReturnNULL "gtk_widget_get_clipboard" result + result' <- (newObject Clipboard) result + touchManagedPtr _obj + touchManagedPtr selection + return result' + +data WidgetGetClipboardMethodInfo +instance (signature ~ (Gdk.Atom -> m Clipboard), MonadIO m, WidgetK a) => MethodInfo WidgetGetClipboardMethodInfo a signature where + overloadedMethod _ = widgetGetClipboard + +-- method Widget::get_composite_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_composite_name" gtk_widget_get_composite_name :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CString + +{-# DEPRECATED widgetGetCompositeName ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} +widgetGetCompositeName :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m T.Text -- result +widgetGetCompositeName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_composite_name _obj' + checkUnexpectedReturnNULL "gtk_widget_get_composite_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +data WidgetGetCompositeNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WidgetK a) => MethodInfo WidgetGetCompositeNameMethodInfo a signature where + overloadedMethod _ = widgetGetCompositeName + +-- method Widget::get_device_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_device_enabled" gtk_widget_get_device_enabled :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" + IO CInt + + +widgetGetDeviceEnabled :: + (MonadIO m, WidgetK a, Gdk.DeviceK b) => + a -- _obj + -> b -- device + -> m Bool -- result +widgetGetDeviceEnabled _obj device = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let device' = unsafeManagedPtrCastPtr device + result <- gtk_widget_get_device_enabled _obj' device' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr device + return result' + +data WidgetGetDeviceEnabledMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetGetDeviceEnabledMethodInfo a signature where + overloadedMethod _ = widgetGetDeviceEnabled + +-- method Widget::get_device_events +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "EventMask" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_device_events" gtk_widget_get_device_events :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" + IO CUInt + + +widgetGetDeviceEvents :: + (MonadIO m, WidgetK a, Gdk.DeviceK b) => + a -- _obj + -> b -- device + -> m [Gdk.EventMask] -- result +widgetGetDeviceEvents _obj device = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let device' = unsafeManagedPtrCastPtr device + result <- gtk_widget_get_device_events _obj' device' + let result' = wordToGFlags result + touchManagedPtr _obj + touchManagedPtr device + return result' + +data WidgetGetDeviceEventsMethodInfo +instance (signature ~ (b -> m [Gdk.EventMask]), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetGetDeviceEventsMethodInfo a signature where + overloadedMethod _ = widgetGetDeviceEvents + +-- method Widget::get_direction +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextDirection" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_direction" gtk_widget_get_direction :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + + +widgetGetDirection :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m TextDirection -- result +widgetGetDirection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_direction _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WidgetGetDirectionMethodInfo +instance (signature ~ (m TextDirection), MonadIO m, WidgetK a) => MethodInfo WidgetGetDirectionMethodInfo a signature where + overloadedMethod _ = widgetGetDirection + +-- method Widget::get_display +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Display" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_display" gtk_widget_get_display :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.Display) + + +widgetGetDisplay :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.Display -- result +widgetGetDisplay _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_display _obj' + checkUnexpectedReturnNULL "gtk_widget_get_display" result + result' <- (newObject Gdk.Display) result + touchManagedPtr _obj + return result' + +data WidgetGetDisplayMethodInfo +instance (signature ~ (m Gdk.Display), MonadIO m, WidgetK a) => MethodInfo WidgetGetDisplayMethodInfo a signature where + overloadedMethod _ = widgetGetDisplay + +-- method Widget::get_double_buffered +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_double_buffered" gtk_widget_get_double_buffered :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetDoubleBuffered :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetDoubleBuffered _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_double_buffered _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetDoubleBufferedMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetDoubleBufferedMethodInfo a signature where + overloadedMethod _ = widgetGetDoubleBuffered + +-- method Widget::get_events +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_events" gtk_widget_get_events :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetEvents :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetEvents _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_events _obj' + touchManagedPtr _obj + return result + +data WidgetGetEventsMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetEventsMethodInfo a signature where + overloadedMethod _ = widgetGetEvents + +-- method Widget::get_font_map +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "FontMap" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_font_map" gtk_widget_get_font_map :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Pango.FontMap) + + +widgetGetFontMap :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Pango.FontMap -- result +widgetGetFontMap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_font_map _obj' + checkUnexpectedReturnNULL "gtk_widget_get_font_map" result + result' <- (newObject Pango.FontMap) result + touchManagedPtr _obj + return result' + +data WidgetGetFontMapMethodInfo +instance (signature ~ (m Pango.FontMap), MonadIO m, WidgetK a) => MethodInfo WidgetGetFontMapMethodInfo a signature where + overloadedMethod _ = widgetGetFontMap + +-- method Widget::get_font_options +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "cairo" "FontOptions" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_font_options" gtk_widget_get_font_options :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Cairo.FontOptions) + + +widgetGetFontOptions :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Cairo.FontOptions -- result +widgetGetFontOptions _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_font_options _obj' + checkUnexpectedReturnNULL "gtk_widget_get_font_options" result + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (\x -> Cairo.FontOptions <$> newForeignPtr_ x) result + touchManagedPtr _obj + return result' + +data WidgetGetFontOptionsMethodInfo +instance (signature ~ (m Cairo.FontOptions), MonadIO m, WidgetK a) => MethodInfo WidgetGetFontOptionsMethodInfo a signature where + overloadedMethod _ = widgetGetFontOptions + +-- method Widget::get_frame_clock +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "FrameClock" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_frame_clock" gtk_widget_get_frame_clock :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.FrameClock) + + +widgetGetFrameClock :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.FrameClock -- result +widgetGetFrameClock _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_frame_clock _obj' + checkUnexpectedReturnNULL "gtk_widget_get_frame_clock" result + result' <- (newObject Gdk.FrameClock) result + touchManagedPtr _obj + return result' + +data WidgetGetFrameClockMethodInfo +instance (signature ~ (m Gdk.FrameClock), MonadIO m, WidgetK a) => MethodInfo WidgetGetFrameClockMethodInfo a signature where + overloadedMethod _ = widgetGetFrameClock + +-- method Widget::get_halign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Align" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_halign" gtk_widget_get_halign :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + + +widgetGetHalign :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Align -- result +widgetGetHalign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_halign _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WidgetGetHalignMethodInfo +instance (signature ~ (m Align), MonadIO m, WidgetK a) => MethodInfo WidgetGetHalignMethodInfo a signature where + overloadedMethod _ = widgetGetHalign + +-- method Widget::get_has_tooltip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_has_tooltip" gtk_widget_get_has_tooltip :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetHasTooltip :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetHasTooltip _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_has_tooltip _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetHasTooltipMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHasTooltipMethodInfo a signature where + overloadedMethod _ = widgetGetHasTooltip + +-- method Widget::get_has_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_has_window" gtk_widget_get_has_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetHasWindow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetHasWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_has_window _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetHasWindowMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHasWindowMethodInfo a signature where + overloadedMethod _ = widgetGetHasWindow + +-- method Widget::get_hexpand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_hexpand" gtk_widget_get_hexpand :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetHexpand :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetHexpand _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_hexpand _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetHexpandMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHexpandMethodInfo a signature where + overloadedMethod _ = widgetGetHexpand + +-- method Widget::get_hexpand_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_hexpand_set" gtk_widget_get_hexpand_set :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetHexpandSet :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetHexpandSet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_hexpand_set _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetHexpandSetMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHexpandSetMethodInfo a signature where + overloadedMethod _ = widgetGetHexpandSet + +-- method Widget::get_mapped +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_mapped" gtk_widget_get_mapped :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetMapped :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetMapped _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_mapped _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetMappedMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetMappedMethodInfo a signature where + overloadedMethod _ = widgetGetMapped + +-- method Widget::get_margin_bottom +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_margin_bottom" gtk_widget_get_margin_bottom :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetMarginBottom :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetMarginBottom _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_margin_bottom _obj' + touchManagedPtr _obj + return result + +data WidgetGetMarginBottomMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginBottomMethodInfo a signature where + overloadedMethod _ = widgetGetMarginBottom + +-- method Widget::get_margin_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_margin_end" gtk_widget_get_margin_end :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetMarginEnd :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetMarginEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_margin_end _obj' + touchManagedPtr _obj + return result + +data WidgetGetMarginEndMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginEndMethodInfo a signature where + overloadedMethod _ = widgetGetMarginEnd + +-- method Widget::get_margin_left +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_margin_left" gtk_widget_get_margin_left :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + +{-# DEPRECATED widgetGetMarginLeft ["(Since version 3.12)","Use gtk_widget_get_margin_start() instead."]#-} +widgetGetMarginLeft :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetMarginLeft _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_margin_left _obj' + touchManagedPtr _obj + return result + +data WidgetGetMarginLeftMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginLeftMethodInfo a signature where + overloadedMethod _ = widgetGetMarginLeft + +-- method Widget::get_margin_right +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_margin_right" gtk_widget_get_margin_right :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + +{-# DEPRECATED widgetGetMarginRight ["(Since version 3.12)","Use gtk_widget_get_margin_end() instead."]#-} +widgetGetMarginRight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetMarginRight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_margin_right _obj' + touchManagedPtr _obj + return result + +data WidgetGetMarginRightMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginRightMethodInfo a signature where + overloadedMethod _ = widgetGetMarginRight + +-- method Widget::get_margin_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_margin_start" gtk_widget_get_margin_start :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetMarginStart :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetMarginStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_margin_start _obj' + touchManagedPtr _obj + return result + +data WidgetGetMarginStartMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginStartMethodInfo a signature where + overloadedMethod _ = widgetGetMarginStart + +-- method Widget::get_margin_top +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_margin_top" gtk_widget_get_margin_top :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetMarginTop :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetMarginTop _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_margin_top _obj' + touchManagedPtr _obj + return result + +data WidgetGetMarginTopMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginTopMethodInfo a signature where + overloadedMethod _ = widgetGetMarginTop + +-- method Widget::get_modifier_mask +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "ModifierType" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_modifier_mask" gtk_widget_get_modifier_mask :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- intent : TInterface "Gdk" "ModifierIntent" + IO CUInt + + +widgetGetModifierMask :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.ModifierIntent -- intent + -> m [Gdk.ModifierType] -- result +widgetGetModifierMask _obj intent = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let intent' = (fromIntegral . fromEnum) intent + result <- gtk_widget_get_modifier_mask _obj' intent' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +data WidgetGetModifierMaskMethodInfo +instance (signature ~ (Gdk.ModifierIntent -> m [Gdk.ModifierType]), MonadIO m, WidgetK a) => MethodInfo WidgetGetModifierMaskMethodInfo a signature where + overloadedMethod _ = widgetGetModifierMask + +-- method Widget::get_modifier_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "RcStyle" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_modifier_style" gtk_widget_get_modifier_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr RcStyle) + +{-# DEPRECATED widgetGetModifierStyle ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-} +widgetGetModifierStyle :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m RcStyle -- result +widgetGetModifierStyle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_modifier_style _obj' + checkUnexpectedReturnNULL "gtk_widget_get_modifier_style" result + result' <- (newObject RcStyle) result + touchManagedPtr _obj + return result' + +data WidgetGetModifierStyleMethodInfo +instance (signature ~ (m RcStyle), MonadIO m, WidgetK a) => MethodInfo WidgetGetModifierStyleMethodInfo a signature where + overloadedMethod _ = widgetGetModifierStyle + +-- method Widget::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_name" gtk_widget_get_name :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CString + + +widgetGetName :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m T.Text -- result +widgetGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_name _obj' + checkUnexpectedReturnNULL "gtk_widget_get_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data WidgetGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WidgetK a) => MethodInfo WidgetGetNameMethodInfo a signature where + overloadedMethod _ = widgetGetName + +-- method Widget::get_no_show_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_no_show_all" gtk_widget_get_no_show_all :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetNoShowAll :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetNoShowAll _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_no_show_all _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetNoShowAllMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetNoShowAllMethodInfo a signature where + overloadedMethod _ = widgetGetNoShowAll + +-- method Widget::get_opacity +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_opacity" gtk_widget_get_opacity :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CDouble + + +widgetGetOpacity :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Double -- result +widgetGetOpacity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_opacity _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data WidgetGetOpacityMethodInfo +instance (signature ~ (m Double), MonadIO m, WidgetK a) => MethodInfo WidgetGetOpacityMethodInfo a signature where + overloadedMethod _ = widgetGetOpacity + +-- method Widget::get_pango_context +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "Context" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_pango_context" gtk_widget_get_pango_context :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Pango.Context) + + +widgetGetPangoContext :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Pango.Context -- result +widgetGetPangoContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_pango_context _obj' + checkUnexpectedReturnNULL "gtk_widget_get_pango_context" result + result' <- (newObject Pango.Context) result + touchManagedPtr _obj + return result' + +data WidgetGetPangoContextMethodInfo +instance (signature ~ (m Pango.Context), MonadIO m, WidgetK a) => MethodInfo WidgetGetPangoContextMethodInfo a signature where + overloadedMethod _ = widgetGetPangoContext + +-- method Widget::get_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_parent" gtk_widget_get_parent :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Widget) + + +widgetGetParent :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Widget -- result +widgetGetParent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_parent _obj' + checkUnexpectedReturnNULL "gtk_widget_get_parent" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data WidgetGetParentMethodInfo +instance (signature ~ (m Widget), MonadIO m, WidgetK a) => MethodInfo WidgetGetParentMethodInfo a signature where + overloadedMethod _ = widgetGetParent + +-- method Widget::get_parent_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Window" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_parent_window" gtk_widget_get_parent_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.Window) + + +widgetGetParentWindow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.Window -- result +widgetGetParentWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_parent_window _obj' + checkUnexpectedReturnNULL "gtk_widget_get_parent_window" result + result' <- (newObject Gdk.Window) result + touchManagedPtr _obj + return result' + +data WidgetGetParentWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetParentWindowMethodInfo a signature where + overloadedMethod _ = widgetGetParentWindow + +-- method Widget::get_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "WidgetPath" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_path" gtk_widget_get_path :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr WidgetPath) + + +widgetGetPath :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m WidgetPath -- result +widgetGetPath _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_path _obj' + checkUnexpectedReturnNULL "gtk_widget_get_path" result + result' <- (newBoxed WidgetPath) result + touchManagedPtr _obj + return result' + +data WidgetGetPathMethodInfo +instance (signature ~ (m WidgetPath), MonadIO m, WidgetK a) => MethodInfo WidgetGetPathMethodInfo a signature where + overloadedMethod _ = widgetGetPath + +-- method Widget::get_pointer +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_pointer" gtk_widget_get_pointer :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Int32 -> -- x : TBasicType TInt32 + Ptr Int32 -> -- y : TBasicType TInt32 + IO () + +{-# DEPRECATED widgetGetPointer ["(Since version 3.4)","Use gdk_window_get_device_position() instead."]#-} +widgetGetPointer :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Int32,Int32) -- result +widgetGetPointer _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + x <- allocMem :: IO (Ptr Int32) + y <- allocMem :: IO (Ptr Int32) + gtk_widget_get_pointer _obj' x y + x' <- peek x + y' <- peek y + touchManagedPtr _obj + freeMem x + freeMem y + return (x', y') + +data WidgetGetPointerMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPointerMethodInfo a signature where + overloadedMethod _ = widgetGetPointer + +-- method Widget::get_preferred_height +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_preferred_height" gtk_widget_get_preferred_height :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Int32 -> -- minimum_height : TBasicType TInt32 + Ptr Int32 -> -- natural_height : TBasicType TInt32 + IO () + + +widgetGetPreferredHeight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Int32,Int32) -- result +widgetGetPreferredHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + minimumHeight <- allocMem :: IO (Ptr Int32) + naturalHeight <- allocMem :: IO (Ptr Int32) + gtk_widget_get_preferred_height _obj' minimumHeight naturalHeight + minimumHeight' <- peek minimumHeight + naturalHeight' <- peek naturalHeight + touchManagedPtr _obj + freeMem minimumHeight + freeMem naturalHeight + return (minimumHeight', naturalHeight') + +data WidgetGetPreferredHeightMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredHeightMethodInfo a signature where + overloadedMethod _ = widgetGetPreferredHeight + +-- method Widget::get_preferred_height_and_baseline_for_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minimum_baseline", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_baseline", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_preferred_height_and_baseline_for_width" gtk_widget_get_preferred_height_and_baseline_for_width :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- width : TBasicType TInt32 + Ptr Int32 -> -- minimum_height : TBasicType TInt32 + Ptr Int32 -> -- natural_height : TBasicType TInt32 + Ptr Int32 -> -- minimum_baseline : TBasicType TInt32 + Ptr Int32 -> -- natural_baseline : TBasicType TInt32 + IO () + + +widgetGetPreferredHeightAndBaselineForWidth :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- width + -> m (Int32,Int32,Int32,Int32) -- result +widgetGetPreferredHeightAndBaselineForWidth _obj width = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + minimumHeight <- allocMem :: IO (Ptr Int32) + naturalHeight <- allocMem :: IO (Ptr Int32) + minimumBaseline <- allocMem :: IO (Ptr Int32) + naturalBaseline <- allocMem :: IO (Ptr Int32) + gtk_widget_get_preferred_height_and_baseline_for_width _obj' width minimumHeight naturalHeight minimumBaseline naturalBaseline + minimumHeight' <- peek minimumHeight + naturalHeight' <- peek naturalHeight + minimumBaseline' <- peek minimumBaseline + naturalBaseline' <- peek naturalBaseline + touchManagedPtr _obj + freeMem minimumHeight + freeMem naturalHeight + freeMem minimumBaseline + freeMem naturalBaseline + return (minimumHeight', naturalHeight', minimumBaseline', naturalBaseline') + +data WidgetGetPreferredHeightAndBaselineForWidthMethodInfo +instance (signature ~ (Int32 -> m (Int32,Int32,Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredHeightAndBaselineForWidthMethodInfo a signature where + overloadedMethod _ = widgetGetPreferredHeightAndBaselineForWidth + +-- method Widget::get_preferred_height_for_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_preferred_height_for_width" gtk_widget_get_preferred_height_for_width :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- width : TBasicType TInt32 + Ptr Int32 -> -- minimum_height : TBasicType TInt32 + Ptr Int32 -> -- natural_height : TBasicType TInt32 + IO () + + +widgetGetPreferredHeightForWidth :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- width + -> m (Int32,Int32) -- result +widgetGetPreferredHeightForWidth _obj width = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + minimumHeight <- allocMem :: IO (Ptr Int32) + naturalHeight <- allocMem :: IO (Ptr Int32) + gtk_widget_get_preferred_height_for_width _obj' width minimumHeight naturalHeight + minimumHeight' <- peek minimumHeight + naturalHeight' <- peek naturalHeight + touchManagedPtr _obj + freeMem minimumHeight + freeMem naturalHeight + return (minimumHeight', naturalHeight') + +data WidgetGetPreferredHeightForWidthMethodInfo +instance (signature ~ (Int32 -> m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredHeightForWidthMethodInfo a signature where + overloadedMethod _ = widgetGetPreferredHeightForWidth + +-- method Widget::get_preferred_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_preferred_size" gtk_widget_get_preferred_size :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Requisition -> -- minimum_size : TInterface "Gtk" "Requisition" + Ptr Requisition -> -- natural_size : TInterface "Gtk" "Requisition" + IO () + + +widgetGetPreferredSize :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Requisition,Requisition) -- result +widgetGetPreferredSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + minimumSize <- callocBoxedBytes 8 :: IO (Ptr Requisition) + naturalSize <- callocBoxedBytes 8 :: IO (Ptr Requisition) + gtk_widget_get_preferred_size _obj' minimumSize naturalSize + minimumSize' <- (wrapBoxed Requisition) minimumSize + naturalSize' <- (wrapBoxed Requisition) naturalSize + touchManagedPtr _obj + return (minimumSize', naturalSize') + +data WidgetGetPreferredSizeMethodInfo +instance (signature ~ (m (Requisition,Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredSizeMethodInfo a signature where + overloadedMethod _ = widgetGetPreferredSize + +-- method Widget::get_preferred_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_preferred_width" gtk_widget_get_preferred_width :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Int32 -> -- minimum_width : TBasicType TInt32 + Ptr Int32 -> -- natural_width : TBasicType TInt32 + IO () + + +widgetGetPreferredWidth :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Int32,Int32) -- result +widgetGetPreferredWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + minimumWidth <- allocMem :: IO (Ptr Int32) + naturalWidth <- allocMem :: IO (Ptr Int32) + gtk_widget_get_preferred_width _obj' minimumWidth naturalWidth + minimumWidth' <- peek minimumWidth + naturalWidth' <- peek naturalWidth + touchManagedPtr _obj + freeMem minimumWidth + freeMem naturalWidth + return (minimumWidth', naturalWidth') + +data WidgetGetPreferredWidthMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredWidthMethodInfo a signature where + overloadedMethod _ = widgetGetPreferredWidth + +-- method Widget::get_preferred_width_for_height +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_preferred_width_for_height" gtk_widget_get_preferred_width_for_height :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- height : TBasicType TInt32 + Ptr Int32 -> -- minimum_width : TBasicType TInt32 + Ptr Int32 -> -- natural_width : TBasicType TInt32 + IO () + + +widgetGetPreferredWidthForHeight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- height + -> m (Int32,Int32) -- result +widgetGetPreferredWidthForHeight _obj height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + minimumWidth <- allocMem :: IO (Ptr Int32) + naturalWidth <- allocMem :: IO (Ptr Int32) + gtk_widget_get_preferred_width_for_height _obj' height minimumWidth naturalWidth + minimumWidth' <- peek minimumWidth + naturalWidth' <- peek naturalWidth + touchManagedPtr _obj + freeMem minimumWidth + freeMem naturalWidth + return (minimumWidth', naturalWidth') + +data WidgetGetPreferredWidthForHeightMethodInfo +instance (signature ~ (Int32 -> m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredWidthForHeightMethodInfo a signature where + overloadedMethod _ = widgetGetPreferredWidthForHeight + +-- method Widget::get_realized +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_realized" gtk_widget_get_realized :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetRealized :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetRealized _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_realized _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetRealizedMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetRealizedMethodInfo a signature where + overloadedMethod _ = widgetGetRealized + +-- method Widget::get_receives_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_receives_default" gtk_widget_get_receives_default :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetReceivesDefault :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetReceivesDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_receives_default _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetReceivesDefaultMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetReceivesDefaultMethodInfo a signature where + overloadedMethod _ = widgetGetReceivesDefault + +-- method Widget::get_request_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "SizeRequestMode" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_request_mode" gtk_widget_get_request_mode :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + + +widgetGetRequestMode :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m SizeRequestMode -- result +widgetGetRequestMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_request_mode _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WidgetGetRequestModeMethodInfo +instance (signature ~ (m SizeRequestMode), MonadIO m, WidgetK a) => MethodInfo WidgetGetRequestModeMethodInfo a signature where + overloadedMethod _ = widgetGetRequestMode + +-- method Widget::get_requisition +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_requisition" gtk_widget_get_requisition :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" + IO () + +{-# DEPRECATED widgetGetRequisition ["(Since version 3.0)","The #GtkRequisition cache on the widget was","removed, If you need to cache sizes across requests and allocations,","add an explicit cache to the widget in question instead."]#-} +widgetGetRequisition :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Requisition) -- result +widgetGetRequisition _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) + gtk_widget_get_requisition _obj' requisition + requisition' <- (wrapBoxed Requisition) requisition + touchManagedPtr _obj + return requisition' + +data WidgetGetRequisitionMethodInfo +instance (signature ~ (m (Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetGetRequisitionMethodInfo a signature where + overloadedMethod _ = widgetGetRequisition + +-- method Widget::get_root_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Window" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_root_window" gtk_widget_get_root_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.Window) + +{-# DEPRECATED widgetGetRootWindow ["(Since version 3.12)","Use gdk_screen_get_root_window() instead"]#-} +widgetGetRootWindow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.Window -- result +widgetGetRootWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_root_window _obj' + checkUnexpectedReturnNULL "gtk_widget_get_root_window" result + result' <- (newObject Gdk.Window) result + touchManagedPtr _obj + return result' + +data WidgetGetRootWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetRootWindowMethodInfo a signature where + overloadedMethod _ = widgetGetRootWindow + +-- method Widget::get_scale_factor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_scale_factor" gtk_widget_get_scale_factor :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetScaleFactor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetScaleFactor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_scale_factor _obj' + touchManagedPtr _obj + return result + +data WidgetGetScaleFactorMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetScaleFactorMethodInfo a signature where + overloadedMethod _ = widgetGetScaleFactor + +-- method Widget::get_screen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Screen" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_screen" gtk_widget_get_screen :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.Screen) + + +widgetGetScreen :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.Screen -- result +widgetGetScreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_screen _obj' + checkUnexpectedReturnNULL "gtk_widget_get_screen" result + result' <- (newObject Gdk.Screen) result + touchManagedPtr _obj + return result' + +data WidgetGetScreenMethodInfo +instance (signature ~ (m Gdk.Screen), MonadIO m, WidgetK a) => MethodInfo WidgetGetScreenMethodInfo a signature where + overloadedMethod _ = widgetGetScreen + +-- method Widget::get_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_sensitive" gtk_widget_get_sensitive :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetSensitive :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetSensitive _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_sensitive _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetSensitiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetSensitiveMethodInfo a signature where + overloadedMethod _ = widgetGetSensitive + +-- method Widget::get_settings +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Settings" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_settings" gtk_widget_get_settings :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Settings) + + +widgetGetSettings :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Settings -- result +widgetGetSettings _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_settings _obj' + checkUnexpectedReturnNULL "gtk_widget_get_settings" result + result' <- (newObject Settings) result + touchManagedPtr _obj + return result' + +data WidgetGetSettingsMethodInfo +instance (signature ~ (m Settings), MonadIO m, WidgetK a) => MethodInfo WidgetGetSettingsMethodInfo a signature where + overloadedMethod _ = widgetGetSettings + +-- method Widget::get_size_request +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_size_request" gtk_widget_get_size_request :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Int32 -> -- width : TBasicType TInt32 + Ptr Int32 -> -- height : TBasicType TInt32 + IO () + + +widgetGetSizeRequest :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Int32,Int32) -- result +widgetGetSizeRequest _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + width <- allocMem :: IO (Ptr Int32) + height <- allocMem :: IO (Ptr Int32) + gtk_widget_get_size_request _obj' width height + width' <- peek width + height' <- peek height + touchManagedPtr _obj + freeMem width + freeMem height + return (width', height') + +data WidgetGetSizeRequestMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetSizeRequestMethodInfo a signature where + overloadedMethod _ = widgetGetSizeRequest + +-- method Widget::get_state +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "StateType" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_state" gtk_widget_get_state :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + +{-# DEPRECATED widgetGetState ["(Since version 3.0)","Use gtk_widget_get_state_flags() instead."]#-} +widgetGetState :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m StateType -- result +widgetGetState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_state _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WidgetGetStateMethodInfo +instance (signature ~ (m StateType), MonadIO m, WidgetK a) => MethodInfo WidgetGetStateMethodInfo a signature where + overloadedMethod _ = widgetGetState + +-- method Widget::get_state_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "StateFlags" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_state_flags" gtk_widget_get_state_flags :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + + +widgetGetStateFlags :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m [StateFlags] -- result +widgetGetStateFlags _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_state_flags _obj' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +data WidgetGetStateFlagsMethodInfo +instance (signature ~ (m [StateFlags]), MonadIO m, WidgetK a) => MethodInfo WidgetGetStateFlagsMethodInfo a signature where + overloadedMethod _ = widgetGetStateFlags + +-- method Widget::get_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Style" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_style" gtk_widget_get_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Style) + +{-# DEPRECATED widgetGetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} +widgetGetStyle :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Style -- result +widgetGetStyle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_style _obj' + checkUnexpectedReturnNULL "gtk_widget_get_style" result + result' <- (newObject Style) result + touchManagedPtr _obj + return result' + +data WidgetGetStyleMethodInfo +instance (signature ~ (m Style), MonadIO m, WidgetK a) => MethodInfo WidgetGetStyleMethodInfo a signature where + overloadedMethod _ = widgetGetStyle + +-- method Widget::get_style_context +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "StyleContext" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_style_context" gtk_widget_get_style_context :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr StyleContext) + + +widgetGetStyleContext :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m StyleContext -- result +widgetGetStyleContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_style_context _obj' + checkUnexpectedReturnNULL "gtk_widget_get_style_context" result + result' <- (newObject StyleContext) result + touchManagedPtr _obj + return result' + +data WidgetGetStyleContextMethodInfo +instance (signature ~ (m StyleContext), MonadIO m, WidgetK a) => MethodInfo WidgetGetStyleContextMethodInfo a signature where + overloadedMethod _ = widgetGetStyleContext + +-- method Widget::get_support_multidevice +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_support_multidevice" gtk_widget_get_support_multidevice :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetSupportMultidevice :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetSupportMultidevice _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_support_multidevice _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetSupportMultideviceMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetSupportMultideviceMethodInfo a signature where + overloadedMethod _ = widgetGetSupportMultidevice + +-- method Widget::get_template_child +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "GObject" "Object" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_template_child" gtk_widget_get_template_child :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CGType -> -- widget_type : TBasicType TGType + CString -> -- name : TBasicType TUTF8 + IO (Ptr GObject.Object) + + +widgetGetTemplateChild :: + (MonadIO m, WidgetK a) => + a -- _obj + -> GType -- widgetType + -> T.Text -- name + -> m GObject.Object -- result +widgetGetTemplateChild _obj widgetType name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let widgetType' = gtypeToCGType widgetType + name' <- textToCString name + result <- gtk_widget_get_template_child _obj' widgetType' name' + checkUnexpectedReturnNULL "gtk_widget_get_template_child" result + result' <- (newObject GObject.Object) result + touchManagedPtr _obj + freeMem name' + return result' + +data WidgetGetTemplateChildMethodInfo +instance (signature ~ (GType -> T.Text -> m GObject.Object), MonadIO m, WidgetK a) => MethodInfo WidgetGetTemplateChildMethodInfo a signature where + overloadedMethod _ = widgetGetTemplateChild + +-- method Widget::get_tooltip_markup +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_tooltip_markup" gtk_widget_get_tooltip_markup :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CString + + +widgetGetTooltipMarkup :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m T.Text -- result +widgetGetTooltipMarkup _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_tooltip_markup _obj' + checkUnexpectedReturnNULL "gtk_widget_get_tooltip_markup" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +data WidgetGetTooltipMarkupMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WidgetK a) => MethodInfo WidgetGetTooltipMarkupMethodInfo a signature where + overloadedMethod _ = widgetGetTooltipMarkup + +-- method Widget::get_tooltip_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_tooltip_text" gtk_widget_get_tooltip_text :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CString + + +widgetGetTooltipText :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m T.Text -- result +widgetGetTooltipText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_tooltip_text _obj' + checkUnexpectedReturnNULL "gtk_widget_get_tooltip_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +data WidgetGetTooltipTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WidgetK a) => MethodInfo WidgetGetTooltipTextMethodInfo a signature where + overloadedMethod _ = widgetGetTooltipText + +-- method Widget::get_tooltip_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Window" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_tooltip_window" gtk_widget_get_tooltip_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Window) + + +widgetGetTooltipWindow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Window -- result +widgetGetTooltipWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_tooltip_window _obj' + checkUnexpectedReturnNULL "gtk_widget_get_tooltip_window" result + result' <- (newObject Window) result + touchManagedPtr _obj + return result' + +data WidgetGetTooltipWindowMethodInfo +instance (signature ~ (m Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetTooltipWindowMethodInfo a signature where + overloadedMethod _ = widgetGetTooltipWindow + +-- method Widget::get_toplevel +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_toplevel" gtk_widget_get_toplevel :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Widget) + + +widgetGetToplevel :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Widget -- result +widgetGetToplevel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_toplevel _obj' + checkUnexpectedReturnNULL "gtk_widget_get_toplevel" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data WidgetGetToplevelMethodInfo +instance (signature ~ (m Widget), MonadIO m, WidgetK a) => MethodInfo WidgetGetToplevelMethodInfo a signature where + overloadedMethod _ = widgetGetToplevel + +-- method Widget::get_valign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Align" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_valign" gtk_widget_get_valign :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + + +widgetGetValign :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Align -- result +widgetGetValign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_valign _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WidgetGetValignMethodInfo +instance (signature ~ (m Align), MonadIO m, WidgetK a) => MethodInfo WidgetGetValignMethodInfo a signature where + overloadedMethod _ = widgetGetValign + +-- method Widget::get_valign_with_baseline +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Align" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_valign_with_baseline" gtk_widget_get_valign_with_baseline :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + + +widgetGetValignWithBaseline :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Align -- result +widgetGetValignWithBaseline _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_valign_with_baseline _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WidgetGetValignWithBaselineMethodInfo +instance (signature ~ (m Align), MonadIO m, WidgetK a) => MethodInfo WidgetGetValignWithBaselineMethodInfo a signature where + overloadedMethod _ = widgetGetValignWithBaseline + +-- method Widget::get_vexpand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_vexpand" gtk_widget_get_vexpand :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetVexpand :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetVexpand _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_vexpand _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetVexpandMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetVexpandMethodInfo a signature where + overloadedMethod _ = widgetGetVexpand + +-- method Widget::get_vexpand_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_vexpand_set" gtk_widget_get_vexpand_set :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetVexpandSet :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetVexpandSet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_vexpand_set _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetVexpandSetMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetVexpandSetMethodInfo a signature where + overloadedMethod _ = widgetGetVexpandSet + +-- method Widget::get_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_visible" gtk_widget_get_visible :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetVisible :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetVisibleMethodInfo a signature where + overloadedMethod _ = widgetGetVisible + +-- method Widget::get_visual +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Visual" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_visual" gtk_widget_get_visual :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.Visual) + + +widgetGetVisual :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.Visual -- result +widgetGetVisual _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_visual _obj' + checkUnexpectedReturnNULL "gtk_widget_get_visual" result + result' <- (newObject Gdk.Visual) result + touchManagedPtr _obj + return result' + +data WidgetGetVisualMethodInfo +instance (signature ~ (m Gdk.Visual), MonadIO m, WidgetK a) => MethodInfo WidgetGetVisualMethodInfo a signature where + overloadedMethod _ = widgetGetVisual + +-- method Widget::get_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Window" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_window" gtk_widget_get_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.Window) + + +widgetGetWindow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.Window -- result +widgetGetWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_window _obj' + checkUnexpectedReturnNULL "gtk_widget_get_window" result + result' <- (newObject Gdk.Window) result + touchManagedPtr _obj + return result' + +data WidgetGetWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetWindowMethodInfo a signature where + overloadedMethod _ = widgetGetWindow + +-- method Widget::grab_add +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_grab_add" gtk_grab_add :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetGrabAdd :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetGrabAdd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_grab_add _obj' + touchManagedPtr _obj + return () + +data WidgetGrabAddMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabAddMethodInfo a signature where + overloadedMethod _ = widgetGrabAdd + +-- method Widget::grab_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_grab_default" gtk_widget_grab_default :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetGrabDefault :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetGrabDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_grab_default _obj' + touchManagedPtr _obj + return () + +data WidgetGrabDefaultMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabDefaultMethodInfo a signature where + overloadedMethod _ = widgetGrabDefault + +-- method Widget::grab_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_grab_focus" gtk_widget_grab_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetGrabFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetGrabFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_grab_focus _obj' + touchManagedPtr _obj + return () + +data WidgetGrabFocusMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabFocusMethodInfo a signature where + overloadedMethod _ = widgetGrabFocus + +-- method Widget::grab_remove +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_grab_remove" gtk_grab_remove :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetGrabRemove :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetGrabRemove _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_grab_remove _obj' + touchManagedPtr _obj + return () + +data WidgetGrabRemoveMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabRemoveMethodInfo a signature where + overloadedMethod _ = widgetGrabRemove + +-- method Widget::has_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_has_default" gtk_widget_has_default :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetHasDefault :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHasDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_has_default _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHasDefaultMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasDefaultMethodInfo a signature where + overloadedMethod _ = widgetHasDefault + +-- method Widget::has_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_has_focus" gtk_widget_has_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetHasFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHasFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_has_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHasFocusMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasFocusMethodInfo a signature where + overloadedMethod _ = widgetHasFocus + +-- method Widget::has_grab +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_has_grab" gtk_widget_has_grab :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetHasGrab :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHasGrab _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_has_grab _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHasGrabMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasGrabMethodInfo a signature where + overloadedMethod _ = widgetHasGrab + +-- method Widget::has_rc_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_has_rc_style" gtk_widget_has_rc_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + +{-# DEPRECATED widgetHasRcStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} +widgetHasRcStyle :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHasRcStyle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_has_rc_style _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHasRcStyleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasRcStyleMethodInfo a signature where + overloadedMethod _ = widgetHasRcStyle + +-- method Widget::has_screen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_has_screen" gtk_widget_has_screen :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetHasScreen :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHasScreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_has_screen _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHasScreenMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasScreenMethodInfo a signature where + overloadedMethod _ = widgetHasScreen + +-- method Widget::has_visible_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_has_visible_focus" gtk_widget_has_visible_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetHasVisibleFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHasVisibleFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_has_visible_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHasVisibleFocusMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasVisibleFocusMethodInfo a signature where + overloadedMethod _ = widgetHasVisibleFocus + +-- method Widget::hide +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_hide" gtk_widget_hide :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetHide :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetHide _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_hide _obj' + touchManagedPtr _obj + return () + +data WidgetHideMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetHideMethodInfo a signature where + overloadedMethod _ = widgetHide + +-- method Widget::hide_on_delete +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_hide_on_delete" gtk_widget_hide_on_delete :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetHideOnDelete :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHideOnDelete _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_hide_on_delete _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHideOnDeleteMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHideOnDeleteMethodInfo a signature where + overloadedMethod _ = widgetHideOnDelete + +-- method Widget::in_destruction +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_in_destruction" gtk_widget_in_destruction :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetInDestruction :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetInDestruction _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_in_destruction _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetInDestructionMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetInDestructionMethodInfo a signature where + overloadedMethod _ = widgetInDestruction + +-- method Widget::init_template +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_init_template" gtk_widget_init_template :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetInitTemplate :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetInitTemplate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_init_template _obj' + touchManagedPtr _obj + return () + +data WidgetInitTemplateMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetInitTemplateMethodInfo a signature where + overloadedMethod _ = widgetInitTemplate + +-- method Widget::input_shape_combine_region +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_input_shape_combine_region" gtk_widget_input_shape_combine_region :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" + IO () + + +widgetInputShapeCombineRegion :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Cairo.Region) -- region + -> m () -- result +widgetInputShapeCombineRegion _obj region = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeRegion <- case region of + Nothing -> return nullPtr + Just jRegion -> do + let jRegion' = unsafeManagedPtrGetPtr jRegion + return jRegion' + gtk_widget_input_shape_combine_region _obj' maybeRegion + touchManagedPtr _obj + whenJust region touchManagedPtr + return () + +data WidgetInputShapeCombineRegionMethodInfo +instance (signature ~ (Maybe (Cairo.Region) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetInputShapeCombineRegionMethodInfo a signature where + overloadedMethod _ = widgetInputShapeCombineRegion + +-- method Widget::insert_action_group +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_insert_action_group" gtk_widget_insert_action_group :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- name : TBasicType TUTF8 + Ptr Gio.ActionGroup -> -- group : TInterface "Gio" "ActionGroup" + IO () + + +widgetInsertActionGroup :: + (MonadIO m, WidgetK a, Gio.ActionGroupK b) => + a -- _obj + -> T.Text -- name + -> Maybe (b) -- group + -> m () -- result +widgetInsertActionGroup _obj name group = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + maybeGroup <- case group of + Nothing -> return nullPtr + Just jGroup -> do + let jGroup' = unsafeManagedPtrCastPtr jGroup + return jGroup' + gtk_widget_insert_action_group _obj' name' maybeGroup + touchManagedPtr _obj + whenJust group touchManagedPtr + freeMem name' + return () + +data WidgetInsertActionGroupMethodInfo +instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, WidgetK a, Gio.ActionGroupK b) => MethodInfo WidgetInsertActionGroupMethodInfo a signature where + overloadedMethod _ = widgetInsertActionGroup + +-- method Widget::intersect +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "intersection", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_intersect" gtk_widget_intersect :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- area : TInterface "Gdk" "Rectangle" + Ptr Gdk.Rectangle -> -- intersection : TInterface "Gdk" "Rectangle" + IO CInt + + +widgetIntersect :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Rectangle -- area + -> Maybe (Gdk.Rectangle) -- intersection + -> m Bool -- result +widgetIntersect _obj area intersection = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let area' = unsafeManagedPtrGetPtr area + maybeIntersection <- case intersection of + Nothing -> return nullPtr + Just jIntersection -> do + let jIntersection' = unsafeManagedPtrGetPtr jIntersection + return jIntersection' + result <- gtk_widget_intersect _obj' area' maybeIntersection + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr area + whenJust intersection touchManagedPtr + return result' + +data WidgetIntersectMethodInfo +instance (signature ~ (Gdk.Rectangle -> Maybe (Gdk.Rectangle) -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIntersectMethodInfo a signature where + overloadedMethod _ = widgetIntersect + +-- method Widget::is_ancestor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ancestor", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_is_ancestor" gtk_widget_is_ancestor :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Widget -> -- ancestor : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsAncestor :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- ancestor + -> m Bool -- result +widgetIsAncestor _obj ancestor = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let ancestor' = unsafeManagedPtrCastPtr ancestor + result <- gtk_widget_is_ancestor _obj' ancestor' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr ancestor + return result' + +data WidgetIsAncestorMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetIsAncestorMethodInfo a signature where + overloadedMethod _ = widgetIsAncestor + +-- method Widget::is_composited +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_is_composited" gtk_widget_is_composited :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsComposited :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetIsComposited _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_is_composited _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetIsCompositedMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsCompositedMethodInfo a signature where + overloadedMethod _ = widgetIsComposited + +-- method Widget::is_drawable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_is_drawable" gtk_widget_is_drawable :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsDrawable :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetIsDrawable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_is_drawable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetIsDrawableMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsDrawableMethodInfo a signature where + overloadedMethod _ = widgetIsDrawable + +-- method Widget::is_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_is_focus" gtk_widget_is_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetIsFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_is_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetIsFocusMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsFocusMethodInfo a signature where + overloadedMethod _ = widgetIsFocus + +-- method Widget::is_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_is_sensitive" gtk_widget_is_sensitive :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsSensitive :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetIsSensitive _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_is_sensitive _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetIsSensitiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsSensitiveMethodInfo a signature where + overloadedMethod _ = widgetIsSensitive + +-- method Widget::is_toplevel +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_is_toplevel" gtk_widget_is_toplevel :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsToplevel :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetIsToplevel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_is_toplevel _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetIsToplevelMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsToplevelMethodInfo a signature where + overloadedMethod _ = widgetIsToplevel + +-- method Widget::is_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_is_visible" gtk_widget_is_visible :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsVisible :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetIsVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_is_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetIsVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsVisibleMethodInfo a signature where + overloadedMethod _ = widgetIsVisible + +-- method Widget::keynav_failed +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_keynav_failed" gtk_widget_keynav_failed :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- direction : TInterface "Gtk" "DirectionType" + IO CInt + + +widgetKeynavFailed :: + (MonadIO m, WidgetK a) => + a -- _obj + -> DirectionType -- direction + -> m Bool -- result +widgetKeynavFailed _obj direction = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let direction' = (fromIntegral . fromEnum) direction + result <- gtk_widget_keynav_failed _obj' direction' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetKeynavFailedMethodInfo +instance (signature ~ (DirectionType -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetKeynavFailedMethodInfo a signature where + overloadedMethod _ = widgetKeynavFailed + +-- method Widget::list_accel_closures +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGList (TInterface "GObject" "Closure") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_list_accel_closures" gtk_widget_list_accel_closures :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr (GList (Ptr Closure))) + + +widgetListAccelClosures :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m [Closure] -- result +widgetListAccelClosures _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_list_accel_closures _obj' + checkUnexpectedReturnNULL "gtk_widget_list_accel_closures" result + result' <- unpackGList result + result'' <- mapM (newBoxed Closure) result' + g_list_free result + touchManagedPtr _obj + return result'' + +data WidgetListAccelClosuresMethodInfo +instance (signature ~ (m [Closure]), MonadIO m, WidgetK a) => MethodInfo WidgetListAccelClosuresMethodInfo a signature where + overloadedMethod _ = widgetListAccelClosures + +-- method Widget::list_action_prefixes +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_list_action_prefixes" gtk_widget_list_action_prefixes :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr CString) + + +widgetListActionPrefixes :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m [T.Text] -- result +widgetListActionPrefixes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_list_action_prefixes _obj' + checkUnexpectedReturnNULL "gtk_widget_list_action_prefixes" result + result' <- unpackZeroTerminatedUTF8CArray result + freeMem result + touchManagedPtr _obj + return result' + +data WidgetListActionPrefixesMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, WidgetK a) => MethodInfo WidgetListActionPrefixesMethodInfo a signature where + overloadedMethod _ = widgetListActionPrefixes + +-- method Widget::list_mnemonic_labels +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGList (TInterface "Gtk" "Widget") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_list_mnemonic_labels" gtk_widget_list_mnemonic_labels :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr (GList (Ptr Widget))) + + +widgetListMnemonicLabels :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m [Widget] -- result +widgetListMnemonicLabels _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_list_mnemonic_labels _obj' + checkUnexpectedReturnNULL "gtk_widget_list_mnemonic_labels" result + result' <- unpackGList result + result'' <- mapM (newObject Widget) result' + g_list_free result + touchManagedPtr _obj + return result'' + +data WidgetListMnemonicLabelsMethodInfo +instance (signature ~ (m [Widget]), MonadIO m, WidgetK a) => MethodInfo WidgetListMnemonicLabelsMethodInfo a signature where + overloadedMethod _ = widgetListMnemonicLabels + +-- method Widget::map +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_map" gtk_widget_map :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetMap :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetMap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_map _obj' + touchManagedPtr _obj + return () + +data WidgetMapMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetMapMethodInfo a signature where + overloadedMethod _ = widgetMap + +-- method Widget::mnemonic_activate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_cycling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_mnemonic_activate" gtk_widget_mnemonic_activate :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- group_cycling : TBasicType TBoolean + IO CInt + + +widgetMnemonicActivate :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- groupCycling + -> m Bool -- result +widgetMnemonicActivate _obj groupCycling = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let groupCycling' = (fromIntegral . fromEnum) groupCycling + result <- gtk_widget_mnemonic_activate _obj' groupCycling' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetMnemonicActivateMethodInfo +instance (signature ~ (Bool -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetMnemonicActivateMethodInfo a signature where + overloadedMethod _ = widgetMnemonicActivate + +-- method Widget::modify_base +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_modify_base" gtk_widget_modify_base :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateType" + Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" + IO () + +{-# DEPRECATED widgetModifyBase ["(Since version 3.0)","Use gtk_widget_override_background_color() instead"]#-} +widgetModifyBase :: + (MonadIO m, WidgetK a) => + a -- _obj + -> StateType -- state + -> Maybe (Gdk.Color) -- color + -> m () -- result +widgetModifyBase _obj state color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = (fromIntegral . fromEnum) state + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_modify_base _obj' state' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + return () + +data WidgetModifyBaseMethodInfo +instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyBaseMethodInfo a signature where + overloadedMethod _ = widgetModifyBase + +-- method Widget::modify_bg +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_modify_bg" gtk_widget_modify_bg :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateType" + Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" + IO () + +{-# DEPRECATED widgetModifyBg ["(Since version 3.0)","Use gtk_widget_override_background_color() instead"]#-} +widgetModifyBg :: + (MonadIO m, WidgetK a) => + a -- _obj + -> StateType -- state + -> Maybe (Gdk.Color) -- color + -> m () -- result +widgetModifyBg _obj state color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = (fromIntegral . fromEnum) state + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_modify_bg _obj' state' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + return () + +data WidgetModifyBgMethodInfo +instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyBgMethodInfo a signature where + overloadedMethod _ = widgetModifyBg + +-- method Widget::modify_cursor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "primary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "secondary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_modify_cursor" gtk_widget_modify_cursor :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Color -> -- primary : TInterface "Gdk" "Color" + Ptr Gdk.Color -> -- secondary : TInterface "Gdk" "Color" + IO () + +{-# DEPRECATED widgetModifyCursor ["(Since version 3.0)","Use gtk_widget_override_cursor() instead."]#-} +widgetModifyCursor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Gdk.Color) -- primary + -> Maybe (Gdk.Color) -- secondary + -> m () -- result +widgetModifyCursor _obj primary secondary = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybePrimary <- case primary of + Nothing -> return nullPtr + Just jPrimary -> do + let jPrimary' = unsafeManagedPtrGetPtr jPrimary + return jPrimary' + maybeSecondary <- case secondary of + Nothing -> return nullPtr + Just jSecondary -> do + let jSecondary' = unsafeManagedPtrGetPtr jSecondary + return jSecondary' + gtk_widget_modify_cursor _obj' maybePrimary maybeSecondary + touchManagedPtr _obj + whenJust primary touchManagedPtr + whenJust secondary touchManagedPtr + return () + +data WidgetModifyCursorMethodInfo +instance (signature ~ (Maybe (Gdk.Color) -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyCursorMethodInfo a signature where + overloadedMethod _ = widgetModifyCursor + +-- method Widget::modify_fg +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_modify_fg" gtk_widget_modify_fg :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateType" + Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" + IO () + +{-# DEPRECATED widgetModifyFg ["(Since version 3.0)","Use gtk_widget_override_color() instead"]#-} +widgetModifyFg :: + (MonadIO m, WidgetK a) => + a -- _obj + -> StateType -- state + -> Maybe (Gdk.Color) -- color + -> m () -- result +widgetModifyFg _obj state color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = (fromIntegral . fromEnum) state + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_modify_fg _obj' state' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + return () + +data WidgetModifyFgMethodInfo +instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyFgMethodInfo a signature where + overloadedMethod _ = widgetModifyFg + +-- method Widget::modify_font +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_modify_font" gtk_widget_modify_font :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription" + IO () + +{-# DEPRECATED widgetModifyFont ["(Since version 3.0)","Use gtk_widget_override_font() instead"]#-} +widgetModifyFont :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Pango.FontDescription) -- fontDesc + -> m () -- result +widgetModifyFont _obj fontDesc = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeFontDesc <- case fontDesc of + Nothing -> return nullPtr + Just jFontDesc -> do + let jFontDesc' = unsafeManagedPtrGetPtr jFontDesc + return jFontDesc' + gtk_widget_modify_font _obj' maybeFontDesc + touchManagedPtr _obj + whenJust fontDesc touchManagedPtr + return () + +data WidgetModifyFontMethodInfo +instance (signature ~ (Maybe (Pango.FontDescription) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyFontMethodInfo a signature where + overloadedMethod _ = widgetModifyFont + +-- method Widget::modify_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_modify_style" gtk_widget_modify_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr RcStyle -> -- style : TInterface "Gtk" "RcStyle" + IO () + +{-# DEPRECATED widgetModifyStyle ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-} +widgetModifyStyle :: + (MonadIO m, WidgetK a, RcStyleK b) => + a -- _obj + -> b -- style + -> m () -- result +widgetModifyStyle _obj style = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let style' = unsafeManagedPtrCastPtr style + gtk_widget_modify_style _obj' style' + touchManagedPtr _obj + touchManagedPtr style + return () + +data WidgetModifyStyleMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, RcStyleK b) => MethodInfo WidgetModifyStyleMethodInfo a signature where + overloadedMethod _ = widgetModifyStyle + +-- method Widget::modify_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_modify_text" gtk_widget_modify_text :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateType" + Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" + IO () + +{-# DEPRECATED widgetModifyText ["(Since version 3.0)","Use gtk_widget_override_color() instead"]#-} +widgetModifyText :: + (MonadIO m, WidgetK a) => + a -- _obj + -> StateType -- state + -> Maybe (Gdk.Color) -- color + -> m () -- result +widgetModifyText _obj state color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = (fromIntegral . fromEnum) state + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_modify_text _obj' state' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + return () + +data WidgetModifyTextMethodInfo +instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyTextMethodInfo a signature where + overloadedMethod _ = widgetModifyText + +-- method Widget::override_background_color +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_override_background_color" gtk_widget_override_background_color :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateFlags" + Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" + IO () + +{-# DEPRECATED widgetOverrideBackgroundColor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the way a widget renders its background"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class. You can also override the default"," drawing of a widget through the #GtkWidget::draw signal, and use Cairo to"," draw a specific color, regardless of the CSS style."]#-} +widgetOverrideBackgroundColor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> [StateFlags] -- state + -> Maybe (Gdk.RGBA) -- color + -> m () -- result +widgetOverrideBackgroundColor _obj state color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = gflagsToWord state + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_override_background_color _obj' state' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + return () + +data WidgetOverrideBackgroundColorMethodInfo +instance (signature ~ ([StateFlags] -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideBackgroundColorMethodInfo a signature where + overloadedMethod _ = widgetOverrideBackgroundColor + +-- method Widget::override_color +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_override_color" gtk_widget_override_color :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateFlags" + Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" + IO () + +{-# DEPRECATED widgetOverrideColor ["(Since version 3.16)","Use a custom style provider and style classes instead"]#-} +widgetOverrideColor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> [StateFlags] -- state + -> Maybe (Gdk.RGBA) -- color + -> m () -- result +widgetOverrideColor _obj state color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = gflagsToWord state + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_override_color _obj' state' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + return () + +data WidgetOverrideColorMethodInfo +instance (signature ~ ([StateFlags] -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideColorMethodInfo a signature where + overloadedMethod _ = widgetOverrideColor + +-- method Widget::override_cursor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "secondary_cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_override_cursor" gtk_widget_override_cursor :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.RGBA -> -- cursor : TInterface "Gdk" "RGBA" + Ptr Gdk.RGBA -> -- secondary_cursor : TInterface "Gdk" "RGBA" + IO () + +{-# DEPRECATED widgetOverrideCursor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the color used to render the primary"," and secondary cursors you should use a custom CSS style, through an"," application-specific #GtkStyleProvider and a CSS style class."]#-} +widgetOverrideCursor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Gdk.RGBA) -- cursor + -> Maybe (Gdk.RGBA) -- secondaryCursor + -> m () -- result +widgetOverrideCursor _obj cursor secondaryCursor = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCursor <- case cursor of + Nothing -> return nullPtr + Just jCursor -> do + let jCursor' = unsafeManagedPtrGetPtr jCursor + return jCursor' + maybeSecondaryCursor <- case secondaryCursor of + Nothing -> return nullPtr + Just jSecondaryCursor -> do + let jSecondaryCursor' = unsafeManagedPtrGetPtr jSecondaryCursor + return jSecondaryCursor' + gtk_widget_override_cursor _obj' maybeCursor maybeSecondaryCursor + touchManagedPtr _obj + whenJust cursor touchManagedPtr + whenJust secondaryCursor touchManagedPtr + return () + +data WidgetOverrideCursorMethodInfo +instance (signature ~ (Maybe (Gdk.RGBA) -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideCursorMethodInfo a signature where + overloadedMethod _ = widgetOverrideCursor + +-- method Widget::override_font +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_override_font" gtk_widget_override_font :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription" + IO () + +{-# DEPRECATED widgetOverrideFont ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the font a widget uses to render its text"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class."]#-} +widgetOverrideFont :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Pango.FontDescription) -- fontDesc + -> m () -- result +widgetOverrideFont _obj fontDesc = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeFontDesc <- case fontDesc of + Nothing -> return nullPtr + Just jFontDesc -> do + let jFontDesc' = unsafeManagedPtrGetPtr jFontDesc + return jFontDesc' + gtk_widget_override_font _obj' maybeFontDesc + touchManagedPtr _obj + whenJust fontDesc touchManagedPtr + return () + +data WidgetOverrideFontMethodInfo +instance (signature ~ (Maybe (Pango.FontDescription) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideFontMethodInfo a signature where + overloadedMethod _ = widgetOverrideFont + +-- method Widget::override_symbolic_color +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_override_symbolic_color" gtk_widget_override_symbolic_color :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- name : TBasicType TUTF8 + Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" + IO () + +{-# DEPRECATED widgetOverrideSymbolicColor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the color used to render symbolic icons"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class."]#-} +widgetOverrideSymbolicColor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- name + -> Maybe (Gdk.RGBA) -- color + -> m () -- result +widgetOverrideSymbolicColor _obj name color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_override_symbolic_color _obj' name' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + freeMem name' + return () + +data WidgetOverrideSymbolicColorMethodInfo +instance (signature ~ (T.Text -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideSymbolicColorMethodInfo a signature where + overloadedMethod _ = widgetOverrideSymbolicColor + +-- method Widget::path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path_reversed", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_path" gtk_widget_path :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Word32 -> -- path_length : TBasicType TUInt32 + Ptr CString -> -- path : TBasicType TUTF8 + Ptr CString -> -- path_reversed : TBasicType TUTF8 + IO () + +{-# DEPRECATED widgetPath ["(Since version 3.0)","Use gtk_widget_get_path() instead"]#-} +widgetPath :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Word32,T.Text,T.Text) -- result +widgetPath _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + pathLength <- allocMem :: IO (Ptr Word32) + path <- allocMem :: IO (Ptr CString) + pathReversed <- allocMem :: IO (Ptr CString) + gtk_widget_path _obj' pathLength path pathReversed + pathLength' <- peek pathLength + path' <- peek path + path'' <- cstringToText path' + freeMem path' + pathReversed' <- peek pathReversed + pathReversed'' <- cstringToText pathReversed' + freeMem pathReversed' + touchManagedPtr _obj + freeMem pathLength + freeMem path + freeMem pathReversed + return (pathLength', path'', pathReversed'') + +data WidgetPathMethodInfo +instance (signature ~ (m (Word32,T.Text,T.Text)), MonadIO m, WidgetK a) => MethodInfo WidgetPathMethodInfo a signature where + overloadedMethod _ = widgetPath + +-- method Widget::queue_compute_expand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_queue_compute_expand" gtk_widget_queue_compute_expand :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetQueueComputeExpand :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetQueueComputeExpand _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_queue_compute_expand _obj' + touchManagedPtr _obj + return () + +data WidgetQueueComputeExpandMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueComputeExpandMethodInfo a signature where + overloadedMethod _ = widgetQueueComputeExpand + +-- method Widget::queue_draw +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_queue_draw" gtk_widget_queue_draw :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetQueueDraw :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetQueueDraw _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_queue_draw _obj' + touchManagedPtr _obj + return () + +data WidgetQueueDrawMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueDrawMethodInfo a signature where + overloadedMethod _ = widgetQueueDraw + +-- method Widget::queue_draw_area +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_queue_draw_area" gtk_widget_queue_draw_area :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + IO () + + +widgetQueueDrawArea :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +widgetQueueDrawArea _obj x y width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_queue_draw_area _obj' x y width height + touchManagedPtr _obj + return () + +data WidgetQueueDrawAreaMethodInfo +instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueDrawAreaMethodInfo a signature where + overloadedMethod _ = widgetQueueDrawArea + +-- method Widget::queue_draw_region +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_queue_draw_region" gtk_widget_queue_draw_region :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" + IO () + + +widgetQueueDrawRegion :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Cairo.Region -- region + -> m () -- result +widgetQueueDrawRegion _obj region = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let region' = unsafeManagedPtrGetPtr region + gtk_widget_queue_draw_region _obj' region' + touchManagedPtr _obj + touchManagedPtr region + return () + +data WidgetQueueDrawRegionMethodInfo +instance (signature ~ (Cairo.Region -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueDrawRegionMethodInfo a signature where + overloadedMethod _ = widgetQueueDrawRegion + +-- method Widget::queue_resize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_queue_resize" gtk_widget_queue_resize :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetQueueResize :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetQueueResize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_queue_resize _obj' + touchManagedPtr _obj + return () + +data WidgetQueueResizeMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueResizeMethodInfo a signature where + overloadedMethod _ = widgetQueueResize + +-- method Widget::queue_resize_no_redraw +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_queue_resize_no_redraw" gtk_widget_queue_resize_no_redraw :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetQueueResizeNoRedraw :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetQueueResizeNoRedraw _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_queue_resize_no_redraw _obj' + touchManagedPtr _obj + return () + +data WidgetQueueResizeNoRedrawMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueResizeNoRedrawMethodInfo a signature where + overloadedMethod _ = widgetQueueResizeNoRedraw + +-- method Widget::realize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_realize" gtk_widget_realize :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetRealize :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetRealize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_realize _obj' + touchManagedPtr _obj + return () + +data WidgetRealizeMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetRealizeMethodInfo a signature where + overloadedMethod _ = widgetRealize + +-- method Widget::region_intersect +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "cairo" "Region" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_region_intersect" gtk_widget_region_intersect :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" + IO (Ptr Cairo.Region) + +{-# DEPRECATED widgetRegionIntersect ["(Since version 3.14)","Use gtk_widget_get_allocation() and"," cairo_region_intersect_rectangle() to get the same behavior."]#-} +widgetRegionIntersect :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Cairo.Region -- region + -> m Cairo.Region -- result +widgetRegionIntersect _obj region = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let region' = unsafeManagedPtrGetPtr region + result <- gtk_widget_region_intersect _obj' region' + checkUnexpectedReturnNULL "gtk_widget_region_intersect" result + result' <- (wrapBoxed Cairo.Region) result + touchManagedPtr _obj + touchManagedPtr region + return result' + +data WidgetRegionIntersectMethodInfo +instance (signature ~ (Cairo.Region -> m Cairo.Region), MonadIO m, WidgetK a) => MethodInfo WidgetRegionIntersectMethodInfo a signature where + overloadedMethod _ = widgetRegionIntersect + +-- method Widget::register_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_register_window" gtk_widget_register_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" + IO () + + +widgetRegisterWindow :: + (MonadIO m, WidgetK a, Gdk.WindowK b) => + a -- _obj + -> b -- window + -> m () -- result +widgetRegisterWindow _obj window = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let window' = unsafeManagedPtrCastPtr window + gtk_widget_register_window _obj' window' + touchManagedPtr _obj + touchManagedPtr window + return () + +data WidgetRegisterWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetRegisterWindowMethodInfo a signature where + overloadedMethod _ = widgetRegisterWindow + +-- method Widget::remove_accelerator +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_remove_accelerator" gtk_widget_remove_accelerator :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" + Word32 -> -- accel_key : TBasicType TUInt32 + CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" + IO CInt + + +widgetRemoveAccelerator :: + (MonadIO m, WidgetK a, AccelGroupK b) => + a -- _obj + -> b -- accelGroup + -> Word32 -- accelKey + -> [Gdk.ModifierType] -- accelMods + -> m Bool -- result +widgetRemoveAccelerator _obj accelGroup accelKey accelMods = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let accelGroup' = unsafeManagedPtrCastPtr accelGroup + let accelMods' = gflagsToWord accelMods + result <- gtk_widget_remove_accelerator _obj' accelGroup' accelKey accelMods' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr accelGroup + return result' + +data WidgetRemoveAcceleratorMethodInfo +instance (signature ~ (b -> Word32 -> [Gdk.ModifierType] -> m Bool), MonadIO m, WidgetK a, AccelGroupK b) => MethodInfo WidgetRemoveAcceleratorMethodInfo a signature where + overloadedMethod _ = widgetRemoveAccelerator + +-- method Widget::remove_mnemonic_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_remove_mnemonic_label" gtk_widget_remove_mnemonic_label :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Widget -> -- label : TInterface "Gtk" "Widget" + IO () + + +widgetRemoveMnemonicLabel :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- label + -> m () -- result +widgetRemoveMnemonicLabel _obj label = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let label' = unsafeManagedPtrCastPtr label + gtk_widget_remove_mnemonic_label _obj' label' + touchManagedPtr _obj + touchManagedPtr label + return () + +data WidgetRemoveMnemonicLabelMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetRemoveMnemonicLabelMethodInfo a signature where + overloadedMethod _ = widgetRemoveMnemonicLabel + +-- method Widget::remove_tick_callback +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_remove_tick_callback" gtk_widget_remove_tick_callback :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Word32 -> -- id : TBasicType TUInt32 + IO () + + +widgetRemoveTickCallback :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Word32 -- id + -> m () -- result +widgetRemoveTickCallback _obj id = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_remove_tick_callback _obj' id + touchManagedPtr _obj + return () + +data WidgetRemoveTickCallbackMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetRemoveTickCallbackMethodInfo a signature where + overloadedMethod _ = widgetRemoveTickCallback + +-- method Widget::render_icon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_render_icon" gtk_widget_render_icon :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- stock_id : TBasicType TUTF8 + Int32 -> -- size : TBasicType TInt32 + CString -> -- detail : TBasicType TUTF8 + IO (Ptr GdkPixbuf.Pixbuf) + +{-# DEPRECATED widgetRenderIcon ["(Since version 3.0)","Use gtk_widget_render_icon_pixbuf() instead."]#-} +widgetRenderIcon :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- stockId + -> Int32 -- size + -> Maybe (T.Text) -- detail + -> m GdkPixbuf.Pixbuf -- result +widgetRenderIcon _obj stockId size detail = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + stockId' <- textToCString stockId + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + result <- gtk_widget_render_icon _obj' stockId' size maybeDetail + checkUnexpectedReturnNULL "gtk_widget_render_icon" result + result' <- (wrapObject GdkPixbuf.Pixbuf) result + touchManagedPtr _obj + freeMem stockId' + freeMem maybeDetail + return result' + +data WidgetRenderIconMethodInfo +instance (signature ~ (T.Text -> Int32 -> Maybe (T.Text) -> m GdkPixbuf.Pixbuf), MonadIO m, WidgetK a) => MethodInfo WidgetRenderIconMethodInfo a signature where + overloadedMethod _ = widgetRenderIcon + +-- method Widget::render_icon_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_render_icon_pixbuf" gtk_widget_render_icon_pixbuf :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- stock_id : TBasicType TUTF8 + Int32 -> -- size : TBasicType TInt32 + IO (Ptr GdkPixbuf.Pixbuf) + +{-# DEPRECATED widgetRenderIconPixbuf ["(Since version 3.10)","Use gtk_icon_theme_load_icon() instead."]#-} +widgetRenderIconPixbuf :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- stockId + -> Int32 -- size + -> m GdkPixbuf.Pixbuf -- result +widgetRenderIconPixbuf _obj stockId size = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + stockId' <- textToCString stockId + result <- gtk_widget_render_icon_pixbuf _obj' stockId' size + checkUnexpectedReturnNULL "gtk_widget_render_icon_pixbuf" result + result' <- (wrapObject GdkPixbuf.Pixbuf) result + touchManagedPtr _obj + freeMem stockId' + return result' + +data WidgetRenderIconPixbufMethodInfo +instance (signature ~ (T.Text -> Int32 -> m GdkPixbuf.Pixbuf), MonadIO m, WidgetK a) => MethodInfo WidgetRenderIconPixbufMethodInfo a signature where + overloadedMethod _ = widgetRenderIconPixbuf + +-- method Widget::reparent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_reparent" gtk_widget_reparent :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Widget -> -- new_parent : TInterface "Gtk" "Widget" + IO () + +{-# DEPRECATED widgetReparent ["(Since version 3.14)","Use gtk_container_remove() and gtk_container_add()."]#-} +widgetReparent :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- newParent + -> m () -- result +widgetReparent _obj newParent = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let newParent' = unsafeManagedPtrCastPtr newParent + gtk_widget_reparent _obj' newParent' + touchManagedPtr _obj + touchManagedPtr newParent + return () + +data WidgetReparentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetReparentMethodInfo a signature where + overloadedMethod _ = widgetReparent + +-- method Widget::reset_rc_styles +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_reset_rc_styles" gtk_widget_reset_rc_styles :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + +{-# DEPRECATED widgetResetRcStyles ["(Since version 3.0)","Use #GtkStyleContext instead, and gtk_widget_reset_style()"]#-} +widgetResetRcStyles :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetResetRcStyles _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_reset_rc_styles _obj' + touchManagedPtr _obj + return () + +data WidgetResetRcStylesMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetResetRcStylesMethodInfo a signature where + overloadedMethod _ = widgetResetRcStyles + +-- method Widget::reset_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_reset_style" gtk_widget_reset_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetResetStyle :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetResetStyle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_reset_style _obj' + touchManagedPtr _obj + return () + +data WidgetResetStyleMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetResetStyleMethodInfo a signature where + overloadedMethod _ = widgetResetStyle + +-- method Widget::send_expose +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_send_expose" gtk_widget_send_expose :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" + IO Int32 + + +widgetSendExpose :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Event -- event + -> m Int32 -- result +widgetSendExpose _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrGetPtr event + result <- gtk_widget_send_expose _obj' event' + touchManagedPtr _obj + touchManagedPtr event + return result + +data WidgetSendExposeMethodInfo +instance (signature ~ (Gdk.Event -> m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetSendExposeMethodInfo a signature where + overloadedMethod _ = widgetSendExpose + +-- method Widget::send_focus_change +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_send_focus_change" gtk_widget_send_focus_change :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" + IO CInt + + +widgetSendFocusChange :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Event -- event + -> m Bool -- result +widgetSendFocusChange _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrGetPtr event + result <- gtk_widget_send_focus_change _obj' event' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr event + return result' + +data WidgetSendFocusChangeMethodInfo +instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetSendFocusChangeMethodInfo a signature where + overloadedMethod _ = widgetSendFocusChange + +-- method Widget::set_accel_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_accel_path" gtk_widget_set_accel_path :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- accel_path : TBasicType TUTF8 + Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" + IO () + + +widgetSetAccelPath :: + (MonadIO m, WidgetK a, AccelGroupK b) => + a -- _obj + -> Maybe (T.Text) -- accelPath + -> Maybe (b) -- accelGroup + -> m () -- result +widgetSetAccelPath _obj accelPath accelGroup = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeAccelPath <- case accelPath of + Nothing -> return nullPtr + Just jAccelPath -> do + jAccelPath' <- textToCString jAccelPath + return jAccelPath' + maybeAccelGroup <- case accelGroup of + Nothing -> return nullPtr + Just jAccelGroup -> do + let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup + return jAccelGroup' + gtk_widget_set_accel_path _obj' maybeAccelPath maybeAccelGroup + touchManagedPtr _obj + whenJust accelGroup touchManagedPtr + freeMem maybeAccelPath + return () + +data WidgetSetAccelPathMethodInfo +instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> m ()), MonadIO m, WidgetK a, AccelGroupK b) => MethodInfo WidgetSetAccelPathMethodInfo a signature where + overloadedMethod _ = widgetSetAccelPath + +-- method Widget::set_allocation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_allocation" gtk_widget_set_allocation :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" + IO () + + +widgetSetAllocation :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Rectangle -- allocation + -> m () -- result +widgetSetAllocation _obj allocation = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let allocation' = unsafeManagedPtrGetPtr allocation + gtk_widget_set_allocation _obj' allocation' + touchManagedPtr _obj + touchManagedPtr allocation + return () + +data WidgetSetAllocationMethodInfo +instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetAllocationMethodInfo a signature where + overloadedMethod _ = widgetSetAllocation + +-- method Widget::set_app_paintable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_paintable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_app_paintable" gtk_widget_set_app_paintable :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- app_paintable : TBasicType TBoolean + IO () + + +widgetSetAppPaintable :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- appPaintable + -> m () -- result +widgetSetAppPaintable _obj appPaintable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let appPaintable' = (fromIntegral . fromEnum) appPaintable + gtk_widget_set_app_paintable _obj' appPaintable' + touchManagedPtr _obj + return () + +data WidgetSetAppPaintableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetAppPaintableMethodInfo a signature where + overloadedMethod _ = widgetSetAppPaintable + +-- method Widget::set_can_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_can_default" gtk_widget_set_can_default :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- can_default : TBasicType TBoolean + IO () + + +widgetSetCanDefault :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- canDefault + -> m () -- result +widgetSetCanDefault _obj canDefault = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let canDefault' = (fromIntegral . fromEnum) canDefault + gtk_widget_set_can_default _obj' canDefault' + touchManagedPtr _obj + return () + +data WidgetSetCanDefaultMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetCanDefaultMethodInfo a signature where + overloadedMethod _ = widgetSetCanDefault + +-- method Widget::set_can_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_can_focus" gtk_widget_set_can_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- can_focus : TBasicType TBoolean + IO () + + +widgetSetCanFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- canFocus + -> m () -- result +widgetSetCanFocus _obj canFocus = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let canFocus' = (fromIntegral . fromEnum) canFocus + gtk_widget_set_can_focus _obj' canFocus' + touchManagedPtr _obj + return () + +data WidgetSetCanFocusMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetCanFocusMethodInfo a signature where + overloadedMethod _ = widgetSetCanFocus + +-- method Widget::set_child_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_child_visible" gtk_widget_set_child_visible :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- is_visible : TBasicType TBoolean + IO () + + +widgetSetChildVisible :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- isVisible + -> m () -- result +widgetSetChildVisible _obj isVisible = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let isVisible' = (fromIntegral . fromEnum) isVisible + gtk_widget_set_child_visible _obj' isVisible' + touchManagedPtr _obj + return () + +data WidgetSetChildVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetChildVisibleMethodInfo a signature where + overloadedMethod _ = widgetSetChildVisible + +-- method Widget::set_clip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clip", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_clip" gtk_widget_set_clip :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- clip : TInterface "Gdk" "Rectangle" + IO () + + +widgetSetClip :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Rectangle -- clip + -> m () -- result +widgetSetClip _obj clip = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let clip' = unsafeManagedPtrGetPtr clip + gtk_widget_set_clip _obj' clip' + touchManagedPtr _obj + touchManagedPtr clip + return () + +data WidgetSetClipMethodInfo +instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetClipMethodInfo a signature where + overloadedMethod _ = widgetSetClip + +-- method Widget::set_composite_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_composite_name" gtk_widget_set_composite_name :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- name : TBasicType TUTF8 + IO () + +{-# DEPRECATED widgetSetCompositeName ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} +widgetSetCompositeName :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- name + -> m () -- result +widgetSetCompositeName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + gtk_widget_set_composite_name _obj' name' + touchManagedPtr _obj + freeMem name' + return () + +data WidgetSetCompositeNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetCompositeNameMethodInfo a signature where + overloadedMethod _ = widgetSetCompositeName + +-- method Widget::set_device_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_device_enabled" gtk_widget_set_device_enabled :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +widgetSetDeviceEnabled :: + (MonadIO m, WidgetK a, Gdk.DeviceK b) => + a -- _obj + -> b -- device + -> Bool -- enabled + -> m () -- result +widgetSetDeviceEnabled _obj device enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let device' = unsafeManagedPtrCastPtr device + let enabled' = (fromIntegral . fromEnum) enabled + gtk_widget_set_device_enabled _obj' device' enabled' + touchManagedPtr _obj + touchManagedPtr device + return () + +data WidgetSetDeviceEnabledMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetSetDeviceEnabledMethodInfo a signature where + overloadedMethod _ = widgetSetDeviceEnabled + +-- method Widget::set_device_events +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_device_events" gtk_widget_set_device_events :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" + CUInt -> -- events : TInterface "Gdk" "EventMask" + IO () + + +widgetSetDeviceEvents :: + (MonadIO m, WidgetK a, Gdk.DeviceK b) => + a -- _obj + -> b -- device + -> [Gdk.EventMask] -- events + -> m () -- result +widgetSetDeviceEvents _obj device events = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let device' = unsafeManagedPtrCastPtr device + let events' = gflagsToWord events + gtk_widget_set_device_events _obj' device' events' + touchManagedPtr _obj + touchManagedPtr device + return () + +data WidgetSetDeviceEventsMethodInfo +instance (signature ~ (b -> [Gdk.EventMask] -> m ()), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetSetDeviceEventsMethodInfo a signature where + overloadedMethod _ = widgetSetDeviceEvents + +-- method Widget::set_direction +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_direction" gtk_widget_set_direction :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- dir : TInterface "Gtk" "TextDirection" + IO () + + +widgetSetDirection :: + (MonadIO m, WidgetK a) => + a -- _obj + -> TextDirection -- dir + -> m () -- result +widgetSetDirection _obj dir = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let dir' = (fromIntegral . fromEnum) dir + gtk_widget_set_direction _obj' dir' + touchManagedPtr _obj + return () + +data WidgetSetDirectionMethodInfo +instance (signature ~ (TextDirection -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetDirectionMethodInfo a signature where + overloadedMethod _ = widgetSetDirection + +-- method Widget::set_double_buffered +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "double_buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_double_buffered" gtk_widget_set_double_buffered :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- double_buffered : TBasicType TBoolean + IO () + +{-# DEPRECATED widgetSetDoubleBuffered ["(Since version 3.14)","This function does not work under non-X11 backends or with","non-native windows.","It should not be used in newly written code."]#-} +widgetSetDoubleBuffered :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- doubleBuffered + -> m () -- result +widgetSetDoubleBuffered _obj doubleBuffered = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let doubleBuffered' = (fromIntegral . fromEnum) doubleBuffered + gtk_widget_set_double_buffered _obj' doubleBuffered' + touchManagedPtr _obj + return () + +data WidgetSetDoubleBufferedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetDoubleBufferedMethodInfo a signature where + overloadedMethod _ = widgetSetDoubleBuffered + +-- method Widget::set_events +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_events" gtk_widget_set_events :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- events : TBasicType TInt32 + IO () + + +widgetSetEvents :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- events + -> m () -- result +widgetSetEvents _obj events = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_events _obj' events + touchManagedPtr _obj + return () + +data WidgetSetEventsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetEventsMethodInfo a signature where + overloadedMethod _ = widgetSetEvents + +-- method Widget::set_font_map +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_font_map" gtk_widget_set_font_map :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Pango.FontMap -> -- font_map : TInterface "Pango" "FontMap" + IO () + + +widgetSetFontMap :: + (MonadIO m, WidgetK a, Pango.FontMapK b) => + a -- _obj + -> Maybe (b) -- fontMap + -> m () -- result +widgetSetFontMap _obj fontMap = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeFontMap <- case fontMap of + Nothing -> return nullPtr + Just jFontMap -> do + let jFontMap' = unsafeManagedPtrCastPtr jFontMap + return jFontMap' + gtk_widget_set_font_map _obj' maybeFontMap + touchManagedPtr _obj + whenJust fontMap touchManagedPtr + return () + +data WidgetSetFontMapMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, Pango.FontMapK b) => MethodInfo WidgetSetFontMapMethodInfo a signature where + overloadedMethod _ = widgetSetFontMap + +-- method Widget::set_font_options +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_font_options" gtk_widget_set_font_options :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Cairo.FontOptions -> -- options : TInterface "cairo" "FontOptions" + IO () + + +widgetSetFontOptions :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Cairo.FontOptions) -- options + -> m () -- result +widgetSetFontOptions _obj options = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeOptions <- case options of + Nothing -> return nullPtr + Just jOptions -> do + let jOptions' = unsafeManagedPtrGetPtr jOptions + return jOptions' + gtk_widget_set_font_options _obj' maybeOptions + touchManagedPtr _obj + whenJust options touchManagedPtr + return () + +data WidgetSetFontOptionsMethodInfo +instance (signature ~ (Maybe (Cairo.FontOptions) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetFontOptionsMethodInfo a signature where + overloadedMethod _ = widgetSetFontOptions + +-- method Widget::set_halign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_halign" gtk_widget_set_halign :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- align : TInterface "Gtk" "Align" + IO () + + +widgetSetHalign :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Align -- align + -> m () -- result +widgetSetHalign _obj align = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let align' = (fromIntegral . fromEnum) align + gtk_widget_set_halign _obj' align' + touchManagedPtr _obj + return () + +data WidgetSetHalignMethodInfo +instance (signature ~ (Align -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHalignMethodInfo a signature where + overloadedMethod _ = widgetSetHalign + +-- method Widget::set_has_tooltip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_has_tooltip" gtk_widget_set_has_tooltip :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- has_tooltip : TBasicType TBoolean + IO () + + +widgetSetHasTooltip :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- hasTooltip + -> m () -- result +widgetSetHasTooltip _obj hasTooltip = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let hasTooltip' = (fromIntegral . fromEnum) hasTooltip + gtk_widget_set_has_tooltip _obj' hasTooltip' + touchManagedPtr _obj + return () + +data WidgetSetHasTooltipMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHasTooltipMethodInfo a signature where + overloadedMethod _ = widgetSetHasTooltip + +-- method Widget::set_has_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_has_window" gtk_widget_set_has_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- has_window : TBasicType TBoolean + IO () + + +widgetSetHasWindow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- hasWindow + -> m () -- result +widgetSetHasWindow _obj hasWindow = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let hasWindow' = (fromIntegral . fromEnum) hasWindow + gtk_widget_set_has_window _obj' hasWindow' + touchManagedPtr _obj + return () + +data WidgetSetHasWindowMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHasWindowMethodInfo a signature where + overloadedMethod _ = widgetSetHasWindow + +-- method Widget::set_hexpand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_hexpand" gtk_widget_set_hexpand :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- expand : TBasicType TBoolean + IO () + + +widgetSetHexpand :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- expand + -> m () -- result +widgetSetHexpand _obj expand = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let expand' = (fromIntegral . fromEnum) expand + gtk_widget_set_hexpand _obj' expand' + touchManagedPtr _obj + return () + +data WidgetSetHexpandMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHexpandMethodInfo a signature where + overloadedMethod _ = widgetSetHexpand + +-- method Widget::set_hexpand_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_hexpand_set" gtk_widget_set_hexpand_set :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- set : TBasicType TBoolean + IO () + + +widgetSetHexpandSet :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- set + -> m () -- result +widgetSetHexpandSet _obj set = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let set' = (fromIntegral . fromEnum) set + gtk_widget_set_hexpand_set _obj' set' + touchManagedPtr _obj + return () + +data WidgetSetHexpandSetMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHexpandSetMethodInfo a signature where + overloadedMethod _ = widgetSetHexpandSet + +-- method Widget::set_mapped +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mapped", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_mapped" gtk_widget_set_mapped :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- mapped : TBasicType TBoolean + IO () + + +widgetSetMapped :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- mapped + -> m () -- result +widgetSetMapped _obj mapped = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let mapped' = (fromIntegral . fromEnum) mapped + gtk_widget_set_mapped _obj' mapped' + touchManagedPtr _obj + return () + +data WidgetSetMappedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMappedMethodInfo a signature where + overloadedMethod _ = widgetSetMapped + +-- method Widget::set_margin_bottom +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_margin_bottom" gtk_widget_set_margin_bottom :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- margin : TBasicType TInt32 + IO () + + +widgetSetMarginBottom :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +widgetSetMarginBottom _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_margin_bottom _obj' margin + touchManagedPtr _obj + return () + +data WidgetSetMarginBottomMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginBottomMethodInfo a signature where + overloadedMethod _ = widgetSetMarginBottom + +-- method Widget::set_margin_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_margin_end" gtk_widget_set_margin_end :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- margin : TBasicType TInt32 + IO () + + +widgetSetMarginEnd :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +widgetSetMarginEnd _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_margin_end _obj' margin + touchManagedPtr _obj + return () + +data WidgetSetMarginEndMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginEndMethodInfo a signature where + overloadedMethod _ = widgetSetMarginEnd + +-- method Widget::set_margin_left +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_margin_left" gtk_widget_set_margin_left :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- margin : TBasicType TInt32 + IO () + +{-# DEPRECATED widgetSetMarginLeft ["(Since version 3.12)","Use gtk_widget_set_margin_start() instead."]#-} +widgetSetMarginLeft :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +widgetSetMarginLeft _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_margin_left _obj' margin + touchManagedPtr _obj + return () + +data WidgetSetMarginLeftMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginLeftMethodInfo a signature where + overloadedMethod _ = widgetSetMarginLeft + +-- method Widget::set_margin_right +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_margin_right" gtk_widget_set_margin_right :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- margin : TBasicType TInt32 + IO () + +{-# DEPRECATED widgetSetMarginRight ["(Since version 3.12)","Use gtk_widget_set_margin_end() instead."]#-} +widgetSetMarginRight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +widgetSetMarginRight _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_margin_right _obj' margin + touchManagedPtr _obj + return () + +data WidgetSetMarginRightMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginRightMethodInfo a signature where + overloadedMethod _ = widgetSetMarginRight + +-- method Widget::set_margin_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_margin_start" gtk_widget_set_margin_start :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- margin : TBasicType TInt32 + IO () + + +widgetSetMarginStart :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +widgetSetMarginStart _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_margin_start _obj' margin + touchManagedPtr _obj + return () + +data WidgetSetMarginStartMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginStartMethodInfo a signature where + overloadedMethod _ = widgetSetMarginStart + +-- method Widget::set_margin_top +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_margin_top" gtk_widget_set_margin_top :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- margin : TBasicType TInt32 + IO () + + +widgetSetMarginTop :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +widgetSetMarginTop _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_margin_top _obj' margin + touchManagedPtr _obj + return () + +data WidgetSetMarginTopMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginTopMethodInfo a signature where + overloadedMethod _ = widgetSetMarginTop + +-- method Widget::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_name" gtk_widget_set_name :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- name : TBasicType TUTF8 + IO () + + +widgetSetName :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- name + -> m () -- result +widgetSetName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + gtk_widget_set_name _obj' name' + touchManagedPtr _obj + freeMem name' + return () + +data WidgetSetNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetNameMethodInfo a signature where + overloadedMethod _ = widgetSetName + +-- method Widget::set_no_show_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "no_show_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_no_show_all" gtk_widget_set_no_show_all :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- no_show_all : TBasicType TBoolean + IO () + + +widgetSetNoShowAll :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- noShowAll + -> m () -- result +widgetSetNoShowAll _obj noShowAll = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let noShowAll' = (fromIntegral . fromEnum) noShowAll + gtk_widget_set_no_show_all _obj' noShowAll' + touchManagedPtr _obj + return () + +data WidgetSetNoShowAllMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetNoShowAllMethodInfo a signature where + overloadedMethod _ = widgetSetNoShowAll + +-- method Widget::set_opacity +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_opacity" gtk_widget_set_opacity :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CDouble -> -- opacity : TBasicType TDouble + IO () + + +widgetSetOpacity :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Double -- opacity + -> m () -- result +widgetSetOpacity _obj opacity = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let opacity' = realToFrac opacity + gtk_widget_set_opacity _obj' opacity' + touchManagedPtr _obj + return () + +data WidgetSetOpacityMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetOpacityMethodInfo a signature where + overloadedMethod _ = widgetSetOpacity + +-- method Widget::set_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_parent" gtk_widget_set_parent :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Widget -> -- parent : TInterface "Gtk" "Widget" + IO () + + +widgetSetParent :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- parent + -> m () -- result +widgetSetParent _obj parent = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let parent' = unsafeManagedPtrCastPtr parent + gtk_widget_set_parent _obj' parent' + touchManagedPtr _obj + touchManagedPtr parent + return () + +data WidgetSetParentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetSetParentMethodInfo a signature where + overloadedMethod _ = widgetSetParent + +-- method Widget::set_parent_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_parent_window" gtk_widget_set_parent_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Window -> -- parent_window : TInterface "Gdk" "Window" + IO () + + +widgetSetParentWindow :: + (MonadIO m, WidgetK a, Gdk.WindowK b) => + a -- _obj + -> b -- parentWindow + -> m () -- result +widgetSetParentWindow _obj parentWindow = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let parentWindow' = unsafeManagedPtrCastPtr parentWindow + gtk_widget_set_parent_window _obj' parentWindow' + touchManagedPtr _obj + touchManagedPtr parentWindow + return () + +data WidgetSetParentWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetSetParentWindowMethodInfo a signature where + overloadedMethod _ = widgetSetParentWindow + +-- method Widget::set_realized +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "realized", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_realized" gtk_widget_set_realized :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- realized : TBasicType TBoolean + IO () + + +widgetSetRealized :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- realized + -> m () -- result +widgetSetRealized _obj realized = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let realized' = (fromIntegral . fromEnum) realized + gtk_widget_set_realized _obj' realized' + touchManagedPtr _obj + return () + +data WidgetSetRealizedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetRealizedMethodInfo a signature where + overloadedMethod _ = widgetSetRealized + +-- method Widget::set_receives_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "receives_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_receives_default" gtk_widget_set_receives_default :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- receives_default : TBasicType TBoolean + IO () + + +widgetSetReceivesDefault :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- receivesDefault + -> m () -- result +widgetSetReceivesDefault _obj receivesDefault = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let receivesDefault' = (fromIntegral . fromEnum) receivesDefault + gtk_widget_set_receives_default _obj' receivesDefault' + touchManagedPtr _obj + return () + +data WidgetSetReceivesDefaultMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetReceivesDefaultMethodInfo a signature where + overloadedMethod _ = widgetSetReceivesDefault + +-- method Widget::set_redraw_on_allocate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "redraw_on_allocate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_redraw_on_allocate" gtk_widget_set_redraw_on_allocate :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- redraw_on_allocate : TBasicType TBoolean + IO () + + +widgetSetRedrawOnAllocate :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- redrawOnAllocate + -> m () -- result +widgetSetRedrawOnAllocate _obj redrawOnAllocate = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let redrawOnAllocate' = (fromIntegral . fromEnum) redrawOnAllocate + gtk_widget_set_redraw_on_allocate _obj' redrawOnAllocate' + touchManagedPtr _obj + return () + +data WidgetSetRedrawOnAllocateMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetRedrawOnAllocateMethodInfo a signature where + overloadedMethod _ = widgetSetRedrawOnAllocate + +-- method Widget::set_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_sensitive" gtk_widget_set_sensitive :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- sensitive : TBasicType TBoolean + IO () + + +widgetSetSensitive :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- sensitive + -> m () -- result +widgetSetSensitive _obj sensitive = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let sensitive' = (fromIntegral . fromEnum) sensitive + gtk_widget_set_sensitive _obj' sensitive' + touchManagedPtr _obj + return () + +data WidgetSetSensitiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetSensitiveMethodInfo a signature where + overloadedMethod _ = widgetSetSensitive + +-- method Widget::set_size_request +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_size_request" gtk_widget_set_size_request :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + IO () + + +widgetSetSizeRequest :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- width + -> Int32 -- height + -> m () -- result +widgetSetSizeRequest _obj width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_size_request _obj' width height + touchManagedPtr _obj + return () + +data WidgetSetSizeRequestMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetSizeRequestMethodInfo a signature where + overloadedMethod _ = widgetSetSizeRequest + +-- method Widget::set_state +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_state" gtk_widget_set_state :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateType" + IO () + +{-# DEPRECATED widgetSetState ["(Since version 3.0)","Use gtk_widget_set_state_flags() instead."]#-} +widgetSetState :: + (MonadIO m, WidgetK a) => + a -- _obj + -> StateType -- state + -> m () -- result +widgetSetState _obj state = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = (fromIntegral . fromEnum) state + gtk_widget_set_state _obj' state' + touchManagedPtr _obj + return () + +data WidgetSetStateMethodInfo +instance (signature ~ (StateType -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetStateMethodInfo a signature where + overloadedMethod _ = widgetSetState + +-- method Widget::set_state_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clear", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_state_flags" gtk_widget_set_state_flags :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- flags : TInterface "Gtk" "StateFlags" + CInt -> -- clear : TBasicType TBoolean + IO () + + +widgetSetStateFlags :: + (MonadIO m, WidgetK a) => + a -- _obj + -> [StateFlags] -- flags + -> Bool -- clear + -> m () -- result +widgetSetStateFlags _obj flags clear = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let flags' = gflagsToWord flags + let clear' = (fromIntegral . fromEnum) clear + gtk_widget_set_state_flags _obj' flags' clear' + touchManagedPtr _obj + return () + +data WidgetSetStateFlagsMethodInfo +instance (signature ~ ([StateFlags] -> Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetStateFlagsMethodInfo a signature where + overloadedMethod _ = widgetSetStateFlags + +-- method Widget::set_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_style" gtk_widget_set_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Style -> -- style : TInterface "Gtk" "Style" + IO () + +{-# DEPRECATED widgetSetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} +widgetSetStyle :: + (MonadIO m, WidgetK a, StyleK b) => + a -- _obj + -> Maybe (b) -- style + -> m () -- result +widgetSetStyle _obj style = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeStyle <- case style of + Nothing -> return nullPtr + Just jStyle -> do + let jStyle' = unsafeManagedPtrCastPtr jStyle + return jStyle' + gtk_widget_set_style _obj' maybeStyle + touchManagedPtr _obj + whenJust style touchManagedPtr + return () + +data WidgetSetStyleMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, StyleK b) => MethodInfo WidgetSetStyleMethodInfo a signature where + overloadedMethod _ = widgetSetStyle + +-- method Widget::set_support_multidevice +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_support_multidevice" gtk_widget_set_support_multidevice :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- support_multidevice : TBasicType TBoolean + IO () + + +widgetSetSupportMultidevice :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- supportMultidevice + -> m () -- result +widgetSetSupportMultidevice _obj supportMultidevice = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let supportMultidevice' = (fromIntegral . fromEnum) supportMultidevice + gtk_widget_set_support_multidevice _obj' supportMultidevice' + touchManagedPtr _obj + return () + +data WidgetSetSupportMultideviceMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetSupportMultideviceMethodInfo a signature where + overloadedMethod _ = widgetSetSupportMultidevice + +-- method Widget::set_tooltip_markup +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_tooltip_markup" gtk_widget_set_tooltip_markup :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- markup : TBasicType TUTF8 + IO () + + +widgetSetTooltipMarkup :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (T.Text) -- markup + -> m () -- result +widgetSetTooltipMarkup _obj markup = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeMarkup <- case markup of + Nothing -> return nullPtr + Just jMarkup -> do + jMarkup' <- textToCString jMarkup + return jMarkup' + gtk_widget_set_tooltip_markup _obj' maybeMarkup + touchManagedPtr _obj + freeMem maybeMarkup + return () + +data WidgetSetTooltipMarkupMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetTooltipMarkupMethodInfo a signature where + overloadedMethod _ = widgetSetTooltipMarkup + +-- method Widget::set_tooltip_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_tooltip_text" gtk_widget_set_tooltip_text :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- text : TBasicType TUTF8 + IO () + + +widgetSetTooltipText :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (T.Text) -- text + -> m () -- result +widgetSetTooltipText _obj text = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeText <- case text of + Nothing -> return nullPtr + Just jText -> do + jText' <- textToCString jText + return jText' + gtk_widget_set_tooltip_text _obj' maybeText + touchManagedPtr _obj + freeMem maybeText + return () + +data WidgetSetTooltipTextMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetTooltipTextMethodInfo a signature where + overloadedMethod _ = widgetSetTooltipText + +-- method Widget::set_tooltip_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "custom_window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_tooltip_window" gtk_widget_set_tooltip_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Window -> -- custom_window : TInterface "Gtk" "Window" + IO () + + +widgetSetTooltipWindow :: + (MonadIO m, WidgetK a, WindowK b) => + a -- _obj + -> Maybe (b) -- customWindow + -> m () -- result +widgetSetTooltipWindow _obj customWindow = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCustomWindow <- case customWindow of + Nothing -> return nullPtr + Just jCustomWindow -> do + let jCustomWindow' = unsafeManagedPtrCastPtr jCustomWindow + return jCustomWindow' + gtk_widget_set_tooltip_window _obj' maybeCustomWindow + touchManagedPtr _obj + whenJust customWindow touchManagedPtr + return () + +data WidgetSetTooltipWindowMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, WindowK b) => MethodInfo WidgetSetTooltipWindowMethodInfo a signature where + overloadedMethod _ = widgetSetTooltipWindow + +-- method Widget::set_valign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_valign" gtk_widget_set_valign :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- align : TInterface "Gtk" "Align" + IO () + + +widgetSetValign :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Align -- align + -> m () -- result +widgetSetValign _obj align = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let align' = (fromIntegral . fromEnum) align + gtk_widget_set_valign _obj' align' + touchManagedPtr _obj + return () + +data WidgetSetValignMethodInfo +instance (signature ~ (Align -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetValignMethodInfo a signature where + overloadedMethod _ = widgetSetValign + +-- method Widget::set_vexpand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_vexpand" gtk_widget_set_vexpand :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- expand : TBasicType TBoolean + IO () + + +widgetSetVexpand :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- expand + -> m () -- result +widgetSetVexpand _obj expand = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let expand' = (fromIntegral . fromEnum) expand + gtk_widget_set_vexpand _obj' expand' + touchManagedPtr _obj + return () + +data WidgetSetVexpandMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetVexpandMethodInfo a signature where + overloadedMethod _ = widgetSetVexpand + +-- method Widget::set_vexpand_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_vexpand_set" gtk_widget_set_vexpand_set :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- set : TBasicType TBoolean + IO () + + +widgetSetVexpandSet :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- set + -> m () -- result +widgetSetVexpandSet _obj set = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let set' = (fromIntegral . fromEnum) set + gtk_widget_set_vexpand_set _obj' set' + touchManagedPtr _obj + return () + +data WidgetSetVexpandSetMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetVexpandSetMethodInfo a signature where + overloadedMethod _ = widgetSetVexpandSet + +-- method Widget::set_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_visible" gtk_widget_set_visible :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- visible : TBasicType TBoolean + IO () + + +widgetSetVisible :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- visible + -> m () -- result +widgetSetVisible _obj visible = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let visible' = (fromIntegral . fromEnum) visible + gtk_widget_set_visible _obj' visible' + touchManagedPtr _obj + return () + +data WidgetSetVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetVisibleMethodInfo a signature where + overloadedMethod _ = widgetSetVisible + +-- method Widget::set_visual +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visual", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_visual" gtk_widget_set_visual :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Visual -> -- visual : TInterface "Gdk" "Visual" + IO () + + +widgetSetVisual :: + (MonadIO m, WidgetK a, Gdk.VisualK b) => + a -- _obj + -> Maybe (b) -- visual + -> m () -- result +widgetSetVisual _obj visual = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeVisual <- case visual of + Nothing -> return nullPtr + Just jVisual -> do + let jVisual' = unsafeManagedPtrCastPtr jVisual + return jVisual' + gtk_widget_set_visual _obj' maybeVisual + touchManagedPtr _obj + whenJust visual touchManagedPtr + return () + +data WidgetSetVisualMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, Gdk.VisualK b) => MethodInfo WidgetSetVisualMethodInfo a signature where + overloadedMethod _ = widgetSetVisual + +-- method Widget::set_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_window" gtk_widget_set_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" + IO () + + +widgetSetWindow :: + (MonadIO m, WidgetK a, Gdk.WindowK b) => + a -- _obj + -> b -- window + -> m () -- result +widgetSetWindow _obj window = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + window' <- refObject window + gtk_widget_set_window _obj' window' + touchManagedPtr _obj + touchManagedPtr window + return () + +data WidgetSetWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetSetWindowMethodInfo a signature where + overloadedMethod _ = widgetSetWindow + +-- method Widget::shape_combine_region +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_shape_combine_region" gtk_widget_shape_combine_region :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" + IO () + + +widgetShapeCombineRegion :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Cairo.Region) -- region + -> m () -- result +widgetShapeCombineRegion _obj region = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeRegion <- case region of + Nothing -> return nullPtr + Just jRegion -> do + let jRegion' = unsafeManagedPtrGetPtr jRegion + return jRegion' + gtk_widget_shape_combine_region _obj' maybeRegion + touchManagedPtr _obj + whenJust region touchManagedPtr + return () + +data WidgetShapeCombineRegionMethodInfo +instance (signature ~ (Maybe (Cairo.Region) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShapeCombineRegionMethodInfo a signature where + overloadedMethod _ = widgetShapeCombineRegion + +-- method Widget::show +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_show" gtk_widget_show :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetShow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetShow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_show _obj' + touchManagedPtr _obj + return () + +data WidgetShowMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShowMethodInfo a signature where + overloadedMethod _ = widgetShow + +-- method Widget::show_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_show_all" gtk_widget_show_all :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetShowAll :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetShowAll _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_show_all _obj' + touchManagedPtr _obj + return () + +data WidgetShowAllMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShowAllMethodInfo a signature where + overloadedMethod _ = widgetShowAll + +-- method Widget::show_now +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_show_now" gtk_widget_show_now :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetShowNow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetShowNow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_show_now _obj' + touchManagedPtr _obj + return () + +data WidgetShowNowMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShowNowMethodInfo a signature where + overloadedMethod _ = widgetShowNow + +-- method Widget::size_allocate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_size_allocate" gtk_widget_size_allocate :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" + IO () + + +widgetSizeAllocate :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Rectangle -- allocation + -> m () -- result +widgetSizeAllocate _obj allocation = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let allocation' = unsafeManagedPtrGetPtr allocation + gtk_widget_size_allocate _obj' allocation' + touchManagedPtr _obj + touchManagedPtr allocation + return () + +data WidgetSizeAllocateMethodInfo +instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSizeAllocateMethodInfo a signature where + overloadedMethod _ = widgetSizeAllocate + +-- method Widget::size_allocate_with_baseline +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "baseline", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_size_allocate_with_baseline" gtk_widget_size_allocate_with_baseline :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" + Int32 -> -- baseline : TBasicType TInt32 + IO () + + +widgetSizeAllocateWithBaseline :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Rectangle -- allocation + -> Int32 -- baseline + -> m () -- result +widgetSizeAllocateWithBaseline _obj allocation baseline = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let allocation' = unsafeManagedPtrGetPtr allocation + gtk_widget_size_allocate_with_baseline _obj' allocation' baseline + touchManagedPtr _obj + touchManagedPtr allocation + return () + +data WidgetSizeAllocateWithBaselineMethodInfo +instance (signature ~ (Gdk.Rectangle -> Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSizeAllocateWithBaselineMethodInfo a signature where + overloadedMethod _ = widgetSizeAllocateWithBaseline + +-- method Widget::size_request +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_size_request" gtk_widget_size_request :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" + IO () + +{-# DEPRECATED widgetSizeRequest ["(Since version 3.0)","Use gtk_widget_get_preferred_size() instead."]#-} +widgetSizeRequest :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Requisition) -- result +widgetSizeRequest _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) + gtk_widget_size_request _obj' requisition + requisition' <- (wrapBoxed Requisition) requisition + touchManagedPtr _obj + return requisition' + +data WidgetSizeRequestMethodInfo +instance (signature ~ (m (Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetSizeRequestMethodInfo a signature where + overloadedMethod _ = widgetSizeRequest + +-- method Widget::style_attach +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_style_attach" gtk_widget_style_attach :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + +{-# DEPRECATED widgetStyleAttach ["(Since version 3.0)","This step is unnecessary with #GtkStyleContext."]#-} +widgetStyleAttach :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetStyleAttach _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_style_attach _obj' + touchManagedPtr _obj + return () + +data WidgetStyleAttachMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetStyleAttachMethodInfo a signature where + overloadedMethod _ = widgetStyleAttach + +-- method Widget::style_get_property +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_style_get_property" gtk_widget_style_get_property :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- property_name : TBasicType TUTF8 + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO () + + +widgetStyleGetProperty :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- propertyName + -> GValue -- value + -> m () -- result +widgetStyleGetProperty _obj propertyName value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + propertyName' <- textToCString propertyName + let value' = unsafeManagedPtrGetPtr value + gtk_widget_style_get_property _obj' propertyName' value' + touchManagedPtr _obj + touchManagedPtr value + freeMem propertyName' + return () + +data WidgetStyleGetPropertyMethodInfo +instance (signature ~ (T.Text -> GValue -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetStyleGetPropertyMethodInfo a signature where + overloadedMethod _ = widgetStyleGetProperty + +-- method Widget::thaw_child_notify +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_thaw_child_notify" gtk_widget_thaw_child_notify :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetThawChildNotify :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetThawChildNotify _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_thaw_child_notify _obj' + touchManagedPtr _obj + return () + +data WidgetThawChildNotifyMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetThawChildNotifyMethodInfo a signature where + overloadedMethod _ = widgetThawChildNotify + +-- method Widget::translate_coordinates +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "dest_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_translate_coordinates" gtk_widget_translate_coordinates :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Widget -> -- dest_widget : TInterface "Gtk" "Widget" + Int32 -> -- src_x : TBasicType TInt32 + Int32 -> -- src_y : TBasicType TInt32 + Ptr Int32 -> -- dest_x : TBasicType TInt32 + Ptr Int32 -> -- dest_y : TBasicType TInt32 + IO CInt + + +widgetTranslateCoordinates :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- destWidget + -> Int32 -- srcX + -> Int32 -- srcY + -> m (Bool,Int32,Int32) -- result +widgetTranslateCoordinates _obj destWidget srcX srcY = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let destWidget' = unsafeManagedPtrCastPtr destWidget + destX <- allocMem :: IO (Ptr Int32) + destY <- allocMem :: IO (Ptr Int32) + result <- gtk_widget_translate_coordinates _obj' destWidget' srcX srcY destX destY + let result' = (/= 0) result + destX' <- peek destX + destY' <- peek destY + touchManagedPtr _obj + touchManagedPtr destWidget + freeMem destX + freeMem destY + return (result', destX', destY') + +data WidgetTranslateCoordinatesMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> m (Bool,Int32,Int32)), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetTranslateCoordinatesMethodInfo a signature where + overloadedMethod _ = widgetTranslateCoordinates + +-- method Widget::trigger_tooltip_query +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_trigger_tooltip_query" gtk_widget_trigger_tooltip_query :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetTriggerTooltipQuery :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetTriggerTooltipQuery _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_trigger_tooltip_query _obj' + touchManagedPtr _obj + return () + +data WidgetTriggerTooltipQueryMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetTriggerTooltipQueryMethodInfo a signature where + overloadedMethod _ = widgetTriggerTooltipQuery + +-- method Widget::unmap +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_unmap" gtk_widget_unmap :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetUnmap :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetUnmap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_unmap _obj' + touchManagedPtr _obj + return () + +data WidgetUnmapMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnmapMethodInfo a signature where + overloadedMethod _ = widgetUnmap + +-- method Widget::unparent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_unparent" gtk_widget_unparent :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetUnparent :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetUnparent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_unparent _obj' + touchManagedPtr _obj + return () + +data WidgetUnparentMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnparentMethodInfo a signature where + overloadedMethod _ = widgetUnparent + +-- method Widget::unrealize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_unrealize" gtk_widget_unrealize :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetUnrealize :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetUnrealize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_unrealize _obj' + touchManagedPtr _obj + return () + +data WidgetUnrealizeMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnrealizeMethodInfo a signature where + overloadedMethod _ = widgetUnrealize + +-- method Widget::unregister_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_unregister_window" gtk_widget_unregister_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" + IO () + + +widgetUnregisterWindow :: + (MonadIO m, WidgetK a, Gdk.WindowK b) => + a -- _obj + -> b -- window + -> m () -- result +widgetUnregisterWindow _obj window = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let window' = unsafeManagedPtrCastPtr window + gtk_widget_unregister_window _obj' window' + touchManagedPtr _obj + touchManagedPtr window + return () + +data WidgetUnregisterWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetUnregisterWindowMethodInfo a signature where + overloadedMethod _ = widgetUnregisterWindow + +-- method Widget::unset_state_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_unset_state_flags" gtk_widget_unset_state_flags :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- flags : TInterface "Gtk" "StateFlags" + IO () + + +widgetUnsetStateFlags :: + (MonadIO m, WidgetK a) => + a -- _obj + -> [StateFlags] -- flags + -> m () -- result +widgetUnsetStateFlags _obj flags = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let flags' = gflagsToWord flags + gtk_widget_unset_state_flags _obj' flags' + touchManagedPtr _obj + return () + +data WidgetUnsetStateFlagsMethodInfo +instance (signature ~ ([StateFlags] -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnsetStateFlagsMethodInfo a signature where + overloadedMethod _ = widgetUnsetStateFlags + +-- method Widget::get_default_direction +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextDirection" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_default_direction" gtk_widget_get_default_direction :: + IO CUInt + + +widgetGetDefaultDirection :: + (MonadIO m) => + m TextDirection -- result +widgetGetDefaultDirection = liftIO $ do + result <- gtk_widget_get_default_direction + let result' = (toEnum . fromIntegral) result + return result' + +-- method Widget::get_default_style +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Style" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_default_style" gtk_widget_get_default_style :: + IO (Ptr Style) + +{-# DEPRECATED widgetGetDefaultStyle ["(Since version 3.0)","Use #GtkStyleContext instead, and"," gtk_css_provider_get_default() to obtain a #GtkStyleProvider"," with the default widget style information."]#-} +widgetGetDefaultStyle :: + (MonadIO m) => + m Style -- result +widgetGetDefaultStyle = liftIO $ do + result <- gtk_widget_get_default_style + checkUnexpectedReturnNULL "gtk_widget_get_default_style" result + result' <- (newObject Style) result + return result' + +-- method Widget::pop_composite_child +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_pop_composite_child" gtk_widget_pop_composite_child :: + IO () + +{-# DEPRECATED widgetPopCompositeChild ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} +widgetPopCompositeChild :: + (MonadIO m) => + m () -- result +widgetPopCompositeChild = liftIO $ do + gtk_widget_pop_composite_child + return () + +-- method Widget::push_composite_child +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_push_composite_child" gtk_widget_push_composite_child :: + IO () + +{-# DEPRECATED widgetPushCompositeChild ["(Since version 3.10)","This API never really worked well and was mostly unused, now","we have a more complete mechanism for composite children, see gtk_widget_class_set_template()."]#-} +widgetPushCompositeChild :: + (MonadIO m) => + m () -- result +widgetPushCompositeChild = liftIO $ do + gtk_widget_push_composite_child + return () + +-- method Widget::set_default_direction +-- method type : MemberFunction +-- Args : [Arg {argCName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_default_direction" gtk_widget_set_default_direction :: + CUInt -> -- dir : TInterface "Gtk" "TextDirection" + IO () + + +widgetSetDefaultDirection :: + (MonadIO m) => + TextDirection -- dir + -> m () -- result widgetSetDefaultDirection dir = liftIO $ do let dir' = (fromIntegral . fromEnum) dir gtk_widget_set_default_direction dir' diff --git a/GI/Gtk/Objects/Widget.hs-boot b/GI/Gtk/Objects/Widget.hs-boot --- a/GI/Gtk/Objects/Widget.hs-boot +++ b/GI/Gtk/Objects/Widget.hs-boot @@ -118,3 +118,260 @@ data WidgetUnrealizeSignalInfo data WidgetVisibilityNotifyEventSignalInfo data WidgetWindowStateEventSignalInfo +data WidgetActivateMethodInfo +data WidgetAddAcceleratorMethodInfo +data WidgetAddDeviceEventsMethodInfo +data WidgetAddEventsMethodInfo +data WidgetAddMnemonicLabelMethodInfo +data WidgetAddTickCallbackMethodInfo +data WidgetCanActivateAccelMethodInfo +data WidgetChildFocusMethodInfo +data WidgetChildNotifyMethodInfo +data WidgetClassPathMethodInfo +data WidgetComputeExpandMethodInfo +data WidgetCreatePangoContextMethodInfo +data WidgetCreatePangoLayoutMethodInfo +data WidgetDestroyMethodInfo +data WidgetDestroyedMethodInfo +data WidgetDeviceIsShadowedMethodInfo +data WidgetDragBeginMethodInfo +data WidgetDragBeginWithCoordinatesMethodInfo +data WidgetDragCheckThresholdMethodInfo +data WidgetDragDestAddImageTargetsMethodInfo +data WidgetDragDestAddTextTargetsMethodInfo +data WidgetDragDestAddUriTargetsMethodInfo +data WidgetDragDestFindTargetMethodInfo +data WidgetDragDestGetTargetListMethodInfo +data WidgetDragDestGetTrackMotionMethodInfo +data WidgetDragDestSetMethodInfo +data WidgetDragDestSetProxyMethodInfo +data WidgetDragDestSetTargetListMethodInfo +data WidgetDragDestSetTrackMotionMethodInfo +data WidgetDragDestUnsetMethodInfo +data WidgetDragGetDataMethodInfo +data WidgetDragHighlightMethodInfo +data WidgetDragSourceAddImageTargetsMethodInfo +data WidgetDragSourceAddTextTargetsMethodInfo +data WidgetDragSourceAddUriTargetsMethodInfo +data WidgetDragSourceGetTargetListMethodInfo +data WidgetDragSourceSetMethodInfo +data WidgetDragSourceSetIconGiconMethodInfo +data WidgetDragSourceSetIconNameMethodInfo +data WidgetDragSourceSetIconPixbufMethodInfo +data WidgetDragSourceSetIconStockMethodInfo +data WidgetDragSourceSetTargetListMethodInfo +data WidgetDragSourceUnsetMethodInfo +data WidgetDragUnhighlightMethodInfo +data WidgetDrawMethodInfo +data WidgetEnsureStyleMethodInfo +data WidgetErrorBellMethodInfo +data WidgetEventMethodInfo +data WidgetFreezeChildNotifyMethodInfo +data WidgetGetAccessibleMethodInfo +data WidgetGetActionGroupMethodInfo +data WidgetGetAllocatedBaselineMethodInfo +data WidgetGetAllocatedHeightMethodInfo +data WidgetGetAllocatedWidthMethodInfo +data WidgetGetAllocationMethodInfo +data WidgetGetAncestorMethodInfo +data WidgetGetAppPaintableMethodInfo +data WidgetGetCanDefaultMethodInfo +data WidgetGetCanFocusMethodInfo +data WidgetGetChildRequisitionMethodInfo +data WidgetGetChildVisibleMethodInfo +data WidgetGetClipMethodInfo +data WidgetGetClipboardMethodInfo +data WidgetGetCompositeNameMethodInfo +data WidgetGetDeviceEnabledMethodInfo +data WidgetGetDeviceEventsMethodInfo +data WidgetGetDirectionMethodInfo +data WidgetGetDisplayMethodInfo +data WidgetGetDoubleBufferedMethodInfo +data WidgetGetEventsMethodInfo +data WidgetGetFontMapMethodInfo +data WidgetGetFontOptionsMethodInfo +data WidgetGetFrameClockMethodInfo +data WidgetGetHalignMethodInfo +data WidgetGetHasTooltipMethodInfo +data WidgetGetHasWindowMethodInfo +data WidgetGetHexpandMethodInfo +data WidgetGetHexpandSetMethodInfo +data WidgetGetMappedMethodInfo +data WidgetGetMarginBottomMethodInfo +data WidgetGetMarginEndMethodInfo +data WidgetGetMarginLeftMethodInfo +data WidgetGetMarginRightMethodInfo +data WidgetGetMarginStartMethodInfo +data WidgetGetMarginTopMethodInfo +data WidgetGetModifierMaskMethodInfo +data WidgetGetModifierStyleMethodInfo +data WidgetGetNameMethodInfo +data WidgetGetNoShowAllMethodInfo +data WidgetGetOpacityMethodInfo +data WidgetGetPangoContextMethodInfo +data WidgetGetParentMethodInfo +data WidgetGetParentWindowMethodInfo +data WidgetGetPathMethodInfo +data WidgetGetPointerMethodInfo +data WidgetGetPreferredHeightMethodInfo +data WidgetGetPreferredHeightAndBaselineForWidthMethodInfo +data WidgetGetPreferredHeightForWidthMethodInfo +data WidgetGetPreferredSizeMethodInfo +data WidgetGetPreferredWidthMethodInfo +data WidgetGetPreferredWidthForHeightMethodInfo +data WidgetGetRealizedMethodInfo +data WidgetGetReceivesDefaultMethodInfo +data WidgetGetRequestModeMethodInfo +data WidgetGetRequisitionMethodInfo +data WidgetGetRootWindowMethodInfo +data WidgetGetScaleFactorMethodInfo +data WidgetGetScreenMethodInfo +data WidgetGetSensitiveMethodInfo +data WidgetGetSettingsMethodInfo +data WidgetGetSizeRequestMethodInfo +data WidgetGetStateMethodInfo +data WidgetGetStateFlagsMethodInfo +data WidgetGetStyleMethodInfo +data WidgetGetStyleContextMethodInfo +data WidgetGetSupportMultideviceMethodInfo +data WidgetGetTemplateChildMethodInfo +data WidgetGetTooltipMarkupMethodInfo +data WidgetGetTooltipTextMethodInfo +data WidgetGetTooltipWindowMethodInfo +data WidgetGetToplevelMethodInfo +data WidgetGetValignMethodInfo +data WidgetGetValignWithBaselineMethodInfo +data WidgetGetVexpandMethodInfo +data WidgetGetVexpandSetMethodInfo +data WidgetGetVisibleMethodInfo +data WidgetGetVisualMethodInfo +data WidgetGetWindowMethodInfo +data WidgetGrabAddMethodInfo +data WidgetGrabDefaultMethodInfo +data WidgetGrabFocusMethodInfo +data WidgetGrabRemoveMethodInfo +data WidgetHasDefaultMethodInfo +data WidgetHasFocusMethodInfo +data WidgetHasGrabMethodInfo +data WidgetHasRcStyleMethodInfo +data WidgetHasScreenMethodInfo +data WidgetHasVisibleFocusMethodInfo +data WidgetHideMethodInfo +data WidgetHideOnDeleteMethodInfo +data WidgetInDestructionMethodInfo +data WidgetInitTemplateMethodInfo +data WidgetInputShapeCombineRegionMethodInfo +data WidgetInsertActionGroupMethodInfo +data WidgetIntersectMethodInfo +data WidgetIsAncestorMethodInfo +data WidgetIsCompositedMethodInfo +data WidgetIsDrawableMethodInfo +data WidgetIsFocusMethodInfo +data WidgetIsSensitiveMethodInfo +data WidgetIsToplevelMethodInfo +data WidgetIsVisibleMethodInfo +data WidgetKeynavFailedMethodInfo +data WidgetListAccelClosuresMethodInfo +data WidgetListActionPrefixesMethodInfo +data WidgetListMnemonicLabelsMethodInfo +data WidgetMapMethodInfo +data WidgetMnemonicActivateMethodInfo +data WidgetModifyBaseMethodInfo +data WidgetModifyBgMethodInfo +data WidgetModifyCursorMethodInfo +data WidgetModifyFgMethodInfo +data WidgetModifyFontMethodInfo +data WidgetModifyStyleMethodInfo +data WidgetModifyTextMethodInfo +data WidgetOverrideBackgroundColorMethodInfo +data WidgetOverrideColorMethodInfo +data WidgetOverrideCursorMethodInfo +data WidgetOverrideFontMethodInfo +data WidgetOverrideSymbolicColorMethodInfo +data WidgetPathMethodInfo +data WidgetQueueComputeExpandMethodInfo +data WidgetQueueDrawMethodInfo +data WidgetQueueDrawAreaMethodInfo +data WidgetQueueDrawRegionMethodInfo +data WidgetQueueResizeMethodInfo +data WidgetQueueResizeNoRedrawMethodInfo +data WidgetRealizeMethodInfo +data WidgetRegionIntersectMethodInfo +data WidgetRegisterWindowMethodInfo +data WidgetRemoveAcceleratorMethodInfo +data WidgetRemoveMnemonicLabelMethodInfo +data WidgetRemoveTickCallbackMethodInfo +data WidgetRenderIconMethodInfo +data WidgetRenderIconPixbufMethodInfo +data WidgetReparentMethodInfo +data WidgetResetRcStylesMethodInfo +data WidgetResetStyleMethodInfo +data WidgetSendExposeMethodInfo +data WidgetSendFocusChangeMethodInfo +data WidgetSetAccelPathMethodInfo +data WidgetSetAllocationMethodInfo +data WidgetSetAppPaintableMethodInfo +data WidgetSetCanDefaultMethodInfo +data WidgetSetCanFocusMethodInfo +data WidgetSetChildVisibleMethodInfo +data WidgetSetClipMethodInfo +data WidgetSetCompositeNameMethodInfo +data WidgetSetDeviceEnabledMethodInfo +data WidgetSetDeviceEventsMethodInfo +data WidgetSetDirectionMethodInfo +data WidgetSetDoubleBufferedMethodInfo +data WidgetSetEventsMethodInfo +data WidgetSetFontMapMethodInfo +data WidgetSetFontOptionsMethodInfo +data WidgetSetHalignMethodInfo +data WidgetSetHasTooltipMethodInfo +data WidgetSetHasWindowMethodInfo +data WidgetSetHexpandMethodInfo +data WidgetSetHexpandSetMethodInfo +data WidgetSetMappedMethodInfo +data WidgetSetMarginBottomMethodInfo +data WidgetSetMarginEndMethodInfo +data WidgetSetMarginLeftMethodInfo +data WidgetSetMarginRightMethodInfo +data WidgetSetMarginStartMethodInfo +data WidgetSetMarginTopMethodInfo +data WidgetSetNameMethodInfo +data WidgetSetNoShowAllMethodInfo +data WidgetSetOpacityMethodInfo +data WidgetSetParentMethodInfo +data WidgetSetParentWindowMethodInfo +data WidgetSetRealizedMethodInfo +data WidgetSetReceivesDefaultMethodInfo +data WidgetSetRedrawOnAllocateMethodInfo +data WidgetSetSensitiveMethodInfo +data WidgetSetSizeRequestMethodInfo +data WidgetSetStateMethodInfo +data WidgetSetStateFlagsMethodInfo +data WidgetSetStyleMethodInfo +data WidgetSetSupportMultideviceMethodInfo +data WidgetSetTooltipMarkupMethodInfo +data WidgetSetTooltipTextMethodInfo +data WidgetSetTooltipWindowMethodInfo +data WidgetSetValignMethodInfo +data WidgetSetVexpandMethodInfo +data WidgetSetVexpandSetMethodInfo +data WidgetSetVisibleMethodInfo +data WidgetSetVisualMethodInfo +data WidgetSetWindowMethodInfo +data WidgetShapeCombineRegionMethodInfo +data WidgetShowMethodInfo +data WidgetShowAllMethodInfo +data WidgetShowNowMethodInfo +data WidgetSizeAllocateMethodInfo +data WidgetSizeAllocateWithBaselineMethodInfo +data WidgetSizeRequestMethodInfo +data WidgetStyleAttachMethodInfo +data WidgetStyleGetPropertyMethodInfo +data WidgetThawChildNotifyMethodInfo +data WidgetTranslateCoordinatesMethodInfo +data WidgetTriggerTooltipQueryMethodInfo +data WidgetUnmapMethodInfo +data WidgetUnparentMethodInfo +data WidgetUnrealizeMethodInfo +data WidgetUnregisterWindowMethodInfo +data WidgetUnsetStateFlagsMethodInfo diff --git a/GI/Gtk/Objects/WidgetAccessible.hs b/GI/Gtk/Objects/WidgetAccessible.hs --- a/GI/Gtk/Objects/WidgetAccessible.hs +++ b/GI/Gtk/Objects/WidgetAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,78 @@ noWidgetAccessible :: Maybe WidgetAccessible noWidgetAccessible = Nothing +type family ResolveWidgetAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveWidgetAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveWidgetAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWidgetAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWidgetAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveWidgetAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveWidgetAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWidgetAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWidgetAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveWidgetAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveWidgetAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWidgetAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWidgetAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWidgetAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveWidgetAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveWidgetAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWidgetAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveWidgetAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveWidgetAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveWidgetAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWidgetAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveWidgetAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveWidgetAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveWidgetAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveWidgetAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWidgetAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWidgetAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWidgetAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWidgetAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWidgetAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWidgetAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWidgetAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWidgetAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveWidgetAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveWidgetAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveWidgetAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveWidgetAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveWidgetAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveWidgetAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveWidgetAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveWidgetAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveWidgetAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveWidgetAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveWidgetAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWidgetAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWidgetAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveWidgetAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveWidgetAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveWidgetAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWidgetAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveWidgetAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveWidgetAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveWidgetAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveWidgetAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveWidgetAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWidgetAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveWidgetAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveWidgetAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveWidgetAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWidgetAccessibleMethod t WidgetAccessible, MethodInfo info WidgetAccessible p) => IsLabelProxy t (WidgetAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWidgetAccessibleMethod t WidgetAccessible, MethodInfo info WidgetAccessible p) => IsLabel t (WidgetAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList WidgetAccessible = WidgetAccessibleAttributeList -type WidgetAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type WidgetAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList WidgetAccessible = WidgetAccessibleSignalList -type WidgetAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type WidgetAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/Window.hs b/GI/Gtk/Objects/Window.hs --- a/GI/Gtk/Objects/Window.hs +++ b/GI/Gtk/Objects/Window.hs @@ -1,5028 +1,5879 @@ -{- | -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.Objects.Window - ( - --- * Exported types - Window(..) , - WindowK , - toWindow , - noWindow , - - - -- * Methods --- ** windowActivateDefault - windowActivateDefault , - - --- ** windowActivateFocus - windowActivateFocus , - - --- ** windowActivateKey - windowActivateKey , - - --- ** windowAddAccelGroup - windowAddAccelGroup , - - --- ** windowAddMnemonic - windowAddMnemonic , - - --- ** windowBeginMoveDrag - windowBeginMoveDrag , - - --- ** windowBeginResizeDrag - windowBeginResizeDrag , - - --- ** windowClose - windowClose , - - --- ** windowDeiconify - windowDeiconify , - - --- ** windowFullscreen - windowFullscreen , - - --- ** windowFullscreenOnMonitor - windowFullscreenOnMonitor , - - --- ** windowGetAcceptFocus - windowGetAcceptFocus , - - --- ** windowGetApplication - windowGetApplication , - - --- ** windowGetAttachedTo - windowGetAttachedTo , - - --- ** windowGetDecorated - windowGetDecorated , - - --- ** windowGetDefaultIconList - windowGetDefaultIconList , - - --- ** windowGetDefaultIconName - windowGetDefaultIconName , - - --- ** windowGetDefaultSize - windowGetDefaultSize , - - --- ** windowGetDefaultWidget - windowGetDefaultWidget , - - --- ** windowGetDeletable - windowGetDeletable , - - --- ** windowGetDestroyWithParent - windowGetDestroyWithParent , - - --- ** windowGetFocus - windowGetFocus , - - --- ** windowGetFocusOnMap - windowGetFocusOnMap , - - --- ** windowGetFocusVisible - windowGetFocusVisible , - - --- ** windowGetGravity - windowGetGravity , - - --- ** windowGetGroup - windowGetGroup , - - --- ** windowGetHasResizeGrip - windowGetHasResizeGrip , - - --- ** windowGetHideTitlebarWhenMaximized - windowGetHideTitlebarWhenMaximized , - - --- ** windowGetIcon - windowGetIcon , - - --- ** windowGetIconList - windowGetIconList , - - --- ** windowGetIconName - windowGetIconName , - - --- ** windowGetMnemonicModifier - windowGetMnemonicModifier , - - --- ** windowGetMnemonicsVisible - windowGetMnemonicsVisible , - - --- ** windowGetModal - windowGetModal , - - --- ** windowGetOpacity - windowGetOpacity , - - --- ** windowGetPosition - windowGetPosition , - - --- ** windowGetResizable - windowGetResizable , - - --- ** windowGetResizeGripArea - windowGetResizeGripArea , - - --- ** windowGetRole - windowGetRole , - - --- ** windowGetScreen - windowGetScreen , - - --- ** windowGetSize - windowGetSize , - - --- ** windowGetSkipPagerHint - windowGetSkipPagerHint , - - --- ** windowGetSkipTaskbarHint - windowGetSkipTaskbarHint , - - --- ** windowGetTitle - windowGetTitle , - - --- ** windowGetTitlebar - windowGetTitlebar , - - --- ** windowGetTransientFor - windowGetTransientFor , - - --- ** windowGetTypeHint - windowGetTypeHint , - - --- ** windowGetUrgencyHint - windowGetUrgencyHint , - - --- ** windowGetWindowType - windowGetWindowType , - - --- ** windowHasGroup - windowHasGroup , - - --- ** windowHasToplevelFocus - windowHasToplevelFocus , - - --- ** windowIconify - windowIconify , - - --- ** windowIsActive - windowIsActive , - - --- ** windowIsMaximized - windowIsMaximized , - - --- ** windowListToplevels - windowListToplevels , - - --- ** windowMaximize - windowMaximize , - - --- ** windowMnemonicActivate - windowMnemonicActivate , - - --- ** windowMove - windowMove , - - --- ** windowNew - windowNew , - - --- ** windowParseGeometry - windowParseGeometry , - - --- ** windowPresent - windowPresent , - - --- ** windowPresentWithTime - windowPresentWithTime , - - --- ** windowPropagateKeyEvent - windowPropagateKeyEvent , - - --- ** windowRemoveAccelGroup - windowRemoveAccelGroup , - - --- ** windowRemoveMnemonic - windowRemoveMnemonic , - - --- ** windowReshowWithInitialSize - windowReshowWithInitialSize , - - --- ** windowResize - windowResize , - - --- ** windowResizeGripIsVisible - windowResizeGripIsVisible , - - --- ** windowResizeToGeometry - windowResizeToGeometry , - - --- ** windowSetAcceptFocus - windowSetAcceptFocus , - - --- ** windowSetApplication - windowSetApplication , - - --- ** windowSetAttachedTo - windowSetAttachedTo , - - --- ** windowSetAutoStartupNotification - windowSetAutoStartupNotification , - - --- ** windowSetDecorated - windowSetDecorated , - - --- ** windowSetDefault - windowSetDefault , - - --- ** windowSetDefaultGeometry - windowSetDefaultGeometry , - - --- ** windowSetDefaultIcon - windowSetDefaultIcon , - - --- ** windowSetDefaultIconFromFile - windowSetDefaultIconFromFile , - - --- ** windowSetDefaultIconList - windowSetDefaultIconList , - - --- ** windowSetDefaultIconName - windowSetDefaultIconName , - - --- ** windowSetDefaultSize - windowSetDefaultSize , - - --- ** windowSetDeletable - windowSetDeletable , - - --- ** windowSetDestroyWithParent - windowSetDestroyWithParent , - - --- ** windowSetFocus - windowSetFocus , - - --- ** windowSetFocusOnMap - windowSetFocusOnMap , - - --- ** windowSetFocusVisible - windowSetFocusVisible , - - --- ** windowSetGeometryHints - windowSetGeometryHints , - - --- ** windowSetGravity - windowSetGravity , - - --- ** windowSetHasResizeGrip - windowSetHasResizeGrip , - - --- ** windowSetHasUserRefCount - windowSetHasUserRefCount , - - --- ** windowSetHideTitlebarWhenMaximized - windowSetHideTitlebarWhenMaximized , - - --- ** windowSetIcon - windowSetIcon , - - --- ** windowSetIconFromFile - windowSetIconFromFile , - - --- ** windowSetIconList - windowSetIconList , - - --- ** windowSetIconName - windowSetIconName , - - --- ** windowSetInteractiveDebugging - windowSetInteractiveDebugging , - - --- ** windowSetKeepAbove - windowSetKeepAbove , - - --- ** windowSetKeepBelow - windowSetKeepBelow , - - --- ** windowSetMnemonicModifier - windowSetMnemonicModifier , - - --- ** windowSetMnemonicsVisible - windowSetMnemonicsVisible , - - --- ** windowSetModal - windowSetModal , - - --- ** windowSetOpacity - windowSetOpacity , - - --- ** windowSetPosition - windowSetPosition , - - --- ** windowSetResizable - windowSetResizable , - - --- ** windowSetRole - windowSetRole , - - --- ** windowSetScreen - windowSetScreen , - - --- ** windowSetSkipPagerHint - windowSetSkipPagerHint , - - --- ** windowSetSkipTaskbarHint - windowSetSkipTaskbarHint , - - --- ** windowSetStartupId - windowSetStartupId , - - --- ** windowSetTitle - windowSetTitle , - - --- ** windowSetTitlebar - windowSetTitlebar , - - --- ** windowSetTransientFor - windowSetTransientFor , - - --- ** windowSetTypeHint - windowSetTypeHint , - - --- ** windowSetUrgencyHint - windowSetUrgencyHint , - - --- ** windowSetWmclass - windowSetWmclass , - - --- ** windowStick - windowStick , - - --- ** windowUnfullscreen - windowUnfullscreen , - - --- ** windowUnmaximize - windowUnmaximize , - - --- ** windowUnstick - windowUnstick , - - - - - -- * Properties --- ** AcceptFocus - WindowAcceptFocusPropertyInfo , - constructWindowAcceptFocus , - getWindowAcceptFocus , - setWindowAcceptFocus , - - --- ** Application - WindowApplicationPropertyInfo , - constructWindowApplication , - getWindowApplication , - setWindowApplication , - - --- ** AttachedTo - WindowAttachedToPropertyInfo , - constructWindowAttachedTo , - getWindowAttachedTo , - setWindowAttachedTo , - - --- ** Decorated - WindowDecoratedPropertyInfo , - constructWindowDecorated , - getWindowDecorated , - setWindowDecorated , - - --- ** DefaultHeight - WindowDefaultHeightPropertyInfo , - constructWindowDefaultHeight , - getWindowDefaultHeight , - setWindowDefaultHeight , - - --- ** DefaultWidth - WindowDefaultWidthPropertyInfo , - constructWindowDefaultWidth , - getWindowDefaultWidth , - setWindowDefaultWidth , - - --- ** Deletable - WindowDeletablePropertyInfo , - constructWindowDeletable , - getWindowDeletable , - setWindowDeletable , - - --- ** DestroyWithParent - WindowDestroyWithParentPropertyInfo , - constructWindowDestroyWithParent , - getWindowDestroyWithParent , - setWindowDestroyWithParent , - - --- ** FocusOnMap - WindowFocusOnMapPropertyInfo , - constructWindowFocusOnMap , - getWindowFocusOnMap , - setWindowFocusOnMap , - - --- ** FocusVisible - WindowFocusVisiblePropertyInfo , - constructWindowFocusVisible , - getWindowFocusVisible , - setWindowFocusVisible , - - --- ** Gravity - WindowGravityPropertyInfo , - constructWindowGravity , - getWindowGravity , - setWindowGravity , - - --- ** HasResizeGrip - WindowHasResizeGripPropertyInfo , - constructWindowHasResizeGrip , - getWindowHasResizeGrip , - setWindowHasResizeGrip , - - --- ** HasToplevelFocus - WindowHasToplevelFocusPropertyInfo , - getWindowHasToplevelFocus , - - --- ** HideTitlebarWhenMaximized - WindowHideTitlebarWhenMaximizedPropertyInfo, - constructWindowHideTitlebarWhenMaximized, - getWindowHideTitlebarWhenMaximized , - setWindowHideTitlebarWhenMaximized , - - --- ** Icon - WindowIconPropertyInfo , - constructWindowIcon , - getWindowIcon , - setWindowIcon , - - --- ** IconName - WindowIconNamePropertyInfo , - constructWindowIconName , - getWindowIconName , - setWindowIconName , - - --- ** IsActive - WindowIsActivePropertyInfo , - getWindowIsActive , - - --- ** IsMaximized - WindowIsMaximizedPropertyInfo , - getWindowIsMaximized , - - --- ** MnemonicsVisible - WindowMnemonicsVisiblePropertyInfo , - constructWindowMnemonicsVisible , - getWindowMnemonicsVisible , - setWindowMnemonicsVisible , - - --- ** Modal - WindowModalPropertyInfo , - constructWindowModal , - getWindowModal , - setWindowModal , - - --- ** Resizable - WindowResizablePropertyInfo , - constructWindowResizable , - getWindowResizable , - setWindowResizable , - - --- ** ResizeGripVisible - WindowResizeGripVisiblePropertyInfo , - getWindowResizeGripVisible , - - --- ** Role - WindowRolePropertyInfo , - constructWindowRole , - getWindowRole , - setWindowRole , - - --- ** Screen - WindowScreenPropertyInfo , - constructWindowScreen , - getWindowScreen , - setWindowScreen , - - --- ** SkipPagerHint - WindowSkipPagerHintPropertyInfo , - constructWindowSkipPagerHint , - getWindowSkipPagerHint , - setWindowSkipPagerHint , - - --- ** SkipTaskbarHint - WindowSkipTaskbarHintPropertyInfo , - constructWindowSkipTaskbarHint , - getWindowSkipTaskbarHint , - setWindowSkipTaskbarHint , - - --- ** StartupId - WindowStartupIdPropertyInfo , - constructWindowStartupId , - setWindowStartupId , - - --- ** Title - WindowTitlePropertyInfo , - constructWindowTitle , - getWindowTitle , - setWindowTitle , - - --- ** TransientFor - WindowTransientForPropertyInfo , - constructWindowTransientFor , - getWindowTransientFor , - setWindowTransientFor , - - --- ** Type - WindowTypePropertyInfo , - constructWindowType , - getWindowType , - - --- ** TypeHint - WindowTypeHintPropertyInfo , - constructWindowTypeHint , - getWindowTypeHint , - setWindowTypeHint , - - --- ** UrgencyHint - WindowUrgencyHintPropertyInfo , - constructWindowUrgencyHint , - getWindowUrgencyHint , - setWindowUrgencyHint , - - --- ** WindowPosition - WindowWindowPositionPropertyInfo , - constructWindowWindowPosition , - getWindowWindowPosition , - setWindowWindowPosition , - - - - - -- * Signals --- ** ActivateDefault - WindowActivateDefaultCallback , - WindowActivateDefaultCallbackC , - WindowActivateDefaultSignalInfo , - afterWindowActivateDefault , - mkWindowActivateDefaultCallback , - noWindowActivateDefaultCallback , - onWindowActivateDefault , - windowActivateDefaultCallbackWrapper , - windowActivateDefaultClosure , - - --- ** ActivateFocus - WindowActivateFocusCallback , - WindowActivateFocusCallbackC , - WindowActivateFocusSignalInfo , - afterWindowActivateFocus , - mkWindowActivateFocusCallback , - noWindowActivateFocusCallback , - onWindowActivateFocus , - windowActivateFocusCallbackWrapper , - windowActivateFocusClosure , - - --- ** EnableDebugging - WindowEnableDebuggingCallback , - WindowEnableDebuggingCallbackC , - WindowEnableDebuggingSignalInfo , - afterWindowEnableDebugging , - mkWindowEnableDebuggingCallback , - noWindowEnableDebuggingCallback , - onWindowEnableDebugging , - windowEnableDebuggingCallbackWrapper , - windowEnableDebuggingClosure , - - --- ** KeysChanged - WindowKeysChangedCallback , - WindowKeysChangedCallbackC , - WindowKeysChangedSignalInfo , - afterWindowKeysChanged , - mkWindowKeysChangedCallback , - noWindowKeysChangedCallback , - onWindowKeysChanged , - windowKeysChangedCallbackWrapper , - windowKeysChangedClosure , - - --- ** SetFocus - WindowSetFocusCallback , - WindowSetFocusCallbackC , - WindowSetFocusSignalInfo , - afterWindowSetFocus , - mkWindowSetFocusCallback , - noWindowSetFocusCallback , - onWindowSetFocus , - windowSetFocusCallbackWrapper , - windowSetFocusClosure , - - - - - ) 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.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf - -newtype Window = Window (ForeignPtr Window) -foreign import ccall "gtk_window_get_type" - c_gtk_window_get_type :: IO GType - -type instance ParentTypes Window = WindowParentTypes -type WindowParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Window where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_window_get_type - - -class GObject o => WindowK o -instance (GObject o, IsDescendantOf Window o) => WindowK o - -toWindow :: WindowK o => o -> IO Window -toWindow = unsafeCastTo Window - -noWindow :: Maybe Window -noWindow = Nothing - --- signal Window::activate-default -type WindowActivateDefaultCallback = - IO () - -noWindowActivateDefaultCallback :: Maybe WindowActivateDefaultCallback -noWindowActivateDefaultCallback = Nothing - -type WindowActivateDefaultCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowActivateDefaultCallback :: WindowActivateDefaultCallbackC -> IO (FunPtr WindowActivateDefaultCallbackC) - -windowActivateDefaultClosure :: WindowActivateDefaultCallback -> IO Closure -windowActivateDefaultClosure cb = newCClosure =<< mkWindowActivateDefaultCallback wrapped - where wrapped = windowActivateDefaultCallbackWrapper cb - -windowActivateDefaultCallbackWrapper :: - WindowActivateDefaultCallback -> - Ptr () -> - Ptr () -> - IO () -windowActivateDefaultCallbackWrapper _cb _ _ = do - _cb - -onWindowActivateDefault :: (GObject a, MonadIO m) => a -> WindowActivateDefaultCallback -> m SignalHandlerId -onWindowActivateDefault obj cb = liftIO $ connectWindowActivateDefault obj cb SignalConnectBefore -afterWindowActivateDefault :: (GObject a, MonadIO m) => a -> WindowActivateDefaultCallback -> m SignalHandlerId -afterWindowActivateDefault obj cb = connectWindowActivateDefault obj cb SignalConnectAfter - -connectWindowActivateDefault :: (GObject a, MonadIO m) => - a -> WindowActivateDefaultCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowActivateDefault obj cb after = liftIO $ do - cb' <- mkWindowActivateDefaultCallback (windowActivateDefaultCallbackWrapper cb) - connectSignalFunPtr obj "activate-default" cb' after - --- signal Window::activate-focus -type WindowActivateFocusCallback = - IO () - -noWindowActivateFocusCallback :: Maybe WindowActivateFocusCallback -noWindowActivateFocusCallback = Nothing - -type WindowActivateFocusCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowActivateFocusCallback :: WindowActivateFocusCallbackC -> IO (FunPtr WindowActivateFocusCallbackC) - -windowActivateFocusClosure :: WindowActivateFocusCallback -> IO Closure -windowActivateFocusClosure cb = newCClosure =<< mkWindowActivateFocusCallback wrapped - where wrapped = windowActivateFocusCallbackWrapper cb - -windowActivateFocusCallbackWrapper :: - WindowActivateFocusCallback -> - Ptr () -> - Ptr () -> - IO () -windowActivateFocusCallbackWrapper _cb _ _ = do - _cb - -onWindowActivateFocus :: (GObject a, MonadIO m) => a -> WindowActivateFocusCallback -> m SignalHandlerId -onWindowActivateFocus obj cb = liftIO $ connectWindowActivateFocus obj cb SignalConnectBefore -afterWindowActivateFocus :: (GObject a, MonadIO m) => a -> WindowActivateFocusCallback -> m SignalHandlerId -afterWindowActivateFocus obj cb = connectWindowActivateFocus obj cb SignalConnectAfter - -connectWindowActivateFocus :: (GObject a, MonadIO m) => - a -> WindowActivateFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowActivateFocus obj cb after = liftIO $ do - cb' <- mkWindowActivateFocusCallback (windowActivateFocusCallbackWrapper cb) - connectSignalFunPtr obj "activate-focus" cb' after - --- signal Window::enable-debugging -type WindowEnableDebuggingCallback = - Bool -> - IO Bool - -noWindowEnableDebuggingCallback :: Maybe WindowEnableDebuggingCallback -noWindowEnableDebuggingCallback = Nothing - -type WindowEnableDebuggingCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWindowEnableDebuggingCallback :: WindowEnableDebuggingCallbackC -> IO (FunPtr WindowEnableDebuggingCallbackC) - -windowEnableDebuggingClosure :: WindowEnableDebuggingCallback -> IO Closure -windowEnableDebuggingClosure cb = newCClosure =<< mkWindowEnableDebuggingCallback wrapped - where wrapped = windowEnableDebuggingCallbackWrapper cb - -windowEnableDebuggingCallbackWrapper :: - WindowEnableDebuggingCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -windowEnableDebuggingCallbackWrapper _cb _ toggle _ = do - let toggle' = (/= 0) toggle - result <- _cb toggle' - let result' = (fromIntegral . fromEnum) result - return result' - -onWindowEnableDebugging :: (GObject a, MonadIO m) => a -> WindowEnableDebuggingCallback -> m SignalHandlerId -onWindowEnableDebugging obj cb = liftIO $ connectWindowEnableDebugging obj cb SignalConnectBefore -afterWindowEnableDebugging :: (GObject a, MonadIO m) => a -> WindowEnableDebuggingCallback -> m SignalHandlerId -afterWindowEnableDebugging obj cb = connectWindowEnableDebugging obj cb SignalConnectAfter - -connectWindowEnableDebugging :: (GObject a, MonadIO m) => - a -> WindowEnableDebuggingCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowEnableDebugging obj cb after = liftIO $ do - cb' <- mkWindowEnableDebuggingCallback (windowEnableDebuggingCallbackWrapper cb) - connectSignalFunPtr obj "enable-debugging" cb' after - --- signal Window::keys-changed -type WindowKeysChangedCallback = - IO () - -noWindowKeysChangedCallback :: Maybe WindowKeysChangedCallback -noWindowKeysChangedCallback = Nothing - -type WindowKeysChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowKeysChangedCallback :: WindowKeysChangedCallbackC -> IO (FunPtr WindowKeysChangedCallbackC) - -windowKeysChangedClosure :: WindowKeysChangedCallback -> IO Closure -windowKeysChangedClosure cb = newCClosure =<< mkWindowKeysChangedCallback wrapped - where wrapped = windowKeysChangedCallbackWrapper cb - -windowKeysChangedCallbackWrapper :: - WindowKeysChangedCallback -> - Ptr () -> - Ptr () -> - IO () -windowKeysChangedCallbackWrapper _cb _ _ = do - _cb - -onWindowKeysChanged :: (GObject a, MonadIO m) => a -> WindowKeysChangedCallback -> m SignalHandlerId -onWindowKeysChanged obj cb = liftIO $ connectWindowKeysChanged obj cb SignalConnectBefore -afterWindowKeysChanged :: (GObject a, MonadIO m) => a -> WindowKeysChangedCallback -> m SignalHandlerId -afterWindowKeysChanged obj cb = connectWindowKeysChanged obj cb SignalConnectAfter - -connectWindowKeysChanged :: (GObject a, MonadIO m) => - a -> WindowKeysChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowKeysChanged obj cb after = liftIO $ do - cb' <- mkWindowKeysChangedCallback (windowKeysChangedCallbackWrapper cb) - connectSignalFunPtr obj "keys-changed" cb' after - --- signal Window::set-focus -type WindowSetFocusCallback = - Widget -> - IO () - -noWindowSetFocusCallback :: Maybe WindowSetFocusCallback -noWindowSetFocusCallback = Nothing - -type WindowSetFocusCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowSetFocusCallback :: WindowSetFocusCallbackC -> IO (FunPtr WindowSetFocusCallbackC) - -windowSetFocusClosure :: WindowSetFocusCallback -> IO Closure -windowSetFocusClosure cb = newCClosure =<< mkWindowSetFocusCallback wrapped - where wrapped = windowSetFocusCallbackWrapper cb - -windowSetFocusCallbackWrapper :: - WindowSetFocusCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -windowSetFocusCallbackWrapper _cb _ object _ = do - object' <- (newObject Widget) object - _cb object' - -onWindowSetFocus :: (GObject a, MonadIO m) => a -> WindowSetFocusCallback -> m SignalHandlerId -onWindowSetFocus obj cb = liftIO $ connectWindowSetFocus obj cb SignalConnectBefore -afterWindowSetFocus :: (GObject a, MonadIO m) => a -> WindowSetFocusCallback -> m SignalHandlerId -afterWindowSetFocus obj cb = connectWindowSetFocus obj cb SignalConnectAfter - -connectWindowSetFocus :: (GObject a, MonadIO m) => - a -> WindowSetFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowSetFocus obj cb after = liftIO $ do - cb' <- mkWindowSetFocusCallback (windowSetFocusCallbackWrapper cb) - connectSignalFunPtr obj "set-focus" cb' after - --- VVV Prop "accept-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowAcceptFocus :: (MonadIO m, WindowK o) => o -> m Bool -getWindowAcceptFocus obj = liftIO $ getObjectPropertyBool obj "accept-focus" - -setWindowAcceptFocus :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowAcceptFocus obj val = liftIO $ setObjectPropertyBool obj "accept-focus" val - -constructWindowAcceptFocus :: Bool -> IO ([Char], GValue) -constructWindowAcceptFocus val = constructObjectPropertyBool "accept-focus" val - -data WindowAcceptFocusPropertyInfo -instance AttrInfo WindowAcceptFocusPropertyInfo where - type AttrAllowedOps WindowAcceptFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowAcceptFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowAcceptFocusPropertyInfo = WindowK - type AttrGetType WindowAcceptFocusPropertyInfo = Bool - type AttrLabel WindowAcceptFocusPropertyInfo = "Window::accept-focus" - attrGet _ = getWindowAcceptFocus - attrSet _ = setWindowAcceptFocus - attrConstruct _ = constructWindowAcceptFocus - --- VVV Prop "application" - -- Type: TInterface "Gtk" "Application" - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowApplication :: (MonadIO m, WindowK o) => o -> m Application -getWindowApplication obj = liftIO $ getObjectPropertyObject obj "application" Application - -setWindowApplication :: (MonadIO m, WindowK o, ApplicationK a) => o -> a -> m () -setWindowApplication obj val = liftIO $ setObjectPropertyObject obj "application" val - -constructWindowApplication :: (ApplicationK a) => a -> IO ([Char], GValue) -constructWindowApplication val = constructObjectPropertyObject "application" val - -data WindowApplicationPropertyInfo -instance AttrInfo WindowApplicationPropertyInfo where - type AttrAllowedOps WindowApplicationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowApplicationPropertyInfo = ApplicationK - type AttrBaseTypeConstraint WindowApplicationPropertyInfo = WindowK - type AttrGetType WindowApplicationPropertyInfo = Application - type AttrLabel WindowApplicationPropertyInfo = "Window::application" - attrGet _ = getWindowApplication - attrSet _ = setWindowApplication - attrConstruct _ = constructWindowApplication - --- VVV Prop "attached-to" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWindowAttachedTo :: (MonadIO m, WindowK o) => o -> m Widget -getWindowAttachedTo obj = liftIO $ getObjectPropertyObject obj "attached-to" Widget - -setWindowAttachedTo :: (MonadIO m, WindowK o, WidgetK a) => o -> a -> m () -setWindowAttachedTo obj val = liftIO $ setObjectPropertyObject obj "attached-to" val - -constructWindowAttachedTo :: (WidgetK a) => a -> IO ([Char], GValue) -constructWindowAttachedTo val = constructObjectPropertyObject "attached-to" val - -data WindowAttachedToPropertyInfo -instance AttrInfo WindowAttachedToPropertyInfo where - type AttrAllowedOps WindowAttachedToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowAttachedToPropertyInfo = WidgetK - type AttrBaseTypeConstraint WindowAttachedToPropertyInfo = WindowK - type AttrGetType WindowAttachedToPropertyInfo = Widget - type AttrLabel WindowAttachedToPropertyInfo = "Window::attached-to" - attrGet _ = getWindowAttachedTo - attrSet _ = setWindowAttachedTo - attrConstruct _ = constructWindowAttachedTo - --- VVV Prop "decorated" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowDecorated :: (MonadIO m, WindowK o) => o -> m Bool -getWindowDecorated obj = liftIO $ getObjectPropertyBool obj "decorated" - -setWindowDecorated :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowDecorated obj val = liftIO $ setObjectPropertyBool obj "decorated" val - -constructWindowDecorated :: Bool -> IO ([Char], GValue) -constructWindowDecorated val = constructObjectPropertyBool "decorated" val - -data WindowDecoratedPropertyInfo -instance AttrInfo WindowDecoratedPropertyInfo where - type AttrAllowedOps WindowDecoratedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowDecoratedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowDecoratedPropertyInfo = WindowK - type AttrGetType WindowDecoratedPropertyInfo = Bool - type AttrLabel WindowDecoratedPropertyInfo = "Window::decorated" - attrGet _ = getWindowDecorated - attrSet _ = setWindowDecorated - attrConstruct _ = constructWindowDecorated - --- VVV Prop "default-height" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowDefaultHeight :: (MonadIO m, WindowK o) => o -> m Int32 -getWindowDefaultHeight obj = liftIO $ getObjectPropertyCInt obj "default-height" - -setWindowDefaultHeight :: (MonadIO m, WindowK o) => o -> Int32 -> m () -setWindowDefaultHeight obj val = liftIO $ setObjectPropertyCInt obj "default-height" val - -constructWindowDefaultHeight :: Int32 -> IO ([Char], GValue) -constructWindowDefaultHeight val = constructObjectPropertyCInt "default-height" val - -data WindowDefaultHeightPropertyInfo -instance AttrInfo WindowDefaultHeightPropertyInfo where - type AttrAllowedOps WindowDefaultHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowDefaultHeightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WindowDefaultHeightPropertyInfo = WindowK - type AttrGetType WindowDefaultHeightPropertyInfo = Int32 - type AttrLabel WindowDefaultHeightPropertyInfo = "Window::default-height" - attrGet _ = getWindowDefaultHeight - attrSet _ = setWindowDefaultHeight - attrConstruct _ = constructWindowDefaultHeight - --- VVV Prop "default-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowDefaultWidth :: (MonadIO m, WindowK o) => o -> m Int32 -getWindowDefaultWidth obj = liftIO $ getObjectPropertyCInt obj "default-width" - -setWindowDefaultWidth :: (MonadIO m, WindowK o) => o -> Int32 -> m () -setWindowDefaultWidth obj val = liftIO $ setObjectPropertyCInt obj "default-width" val - -constructWindowDefaultWidth :: Int32 -> IO ([Char], GValue) -constructWindowDefaultWidth val = constructObjectPropertyCInt "default-width" val - -data WindowDefaultWidthPropertyInfo -instance AttrInfo WindowDefaultWidthPropertyInfo where - type AttrAllowedOps WindowDefaultWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowDefaultWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WindowDefaultWidthPropertyInfo = WindowK - type AttrGetType WindowDefaultWidthPropertyInfo = Int32 - type AttrLabel WindowDefaultWidthPropertyInfo = "Window::default-width" - attrGet _ = getWindowDefaultWidth - attrSet _ = setWindowDefaultWidth - attrConstruct _ = constructWindowDefaultWidth - --- VVV Prop "deletable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowDeletable :: (MonadIO m, WindowK o) => o -> m Bool -getWindowDeletable obj = liftIO $ getObjectPropertyBool obj "deletable" - -setWindowDeletable :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowDeletable obj val = liftIO $ setObjectPropertyBool obj "deletable" val - -constructWindowDeletable :: Bool -> IO ([Char], GValue) -constructWindowDeletable val = constructObjectPropertyBool "deletable" val - -data WindowDeletablePropertyInfo -instance AttrInfo WindowDeletablePropertyInfo where - type AttrAllowedOps WindowDeletablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowDeletablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowDeletablePropertyInfo = WindowK - type AttrGetType WindowDeletablePropertyInfo = Bool - type AttrLabel WindowDeletablePropertyInfo = "Window::deletable" - attrGet _ = getWindowDeletable - attrSet _ = setWindowDeletable - attrConstruct _ = constructWindowDeletable - --- VVV Prop "destroy-with-parent" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowDestroyWithParent :: (MonadIO m, WindowK o) => o -> m Bool -getWindowDestroyWithParent obj = liftIO $ getObjectPropertyBool obj "destroy-with-parent" - -setWindowDestroyWithParent :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowDestroyWithParent obj val = liftIO $ setObjectPropertyBool obj "destroy-with-parent" val - -constructWindowDestroyWithParent :: Bool -> IO ([Char], GValue) -constructWindowDestroyWithParent val = constructObjectPropertyBool "destroy-with-parent" val - -data WindowDestroyWithParentPropertyInfo -instance AttrInfo WindowDestroyWithParentPropertyInfo where - type AttrAllowedOps WindowDestroyWithParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowDestroyWithParentPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowDestroyWithParentPropertyInfo = WindowK - type AttrGetType WindowDestroyWithParentPropertyInfo = Bool - type AttrLabel WindowDestroyWithParentPropertyInfo = "Window::destroy-with-parent" - attrGet _ = getWindowDestroyWithParent - attrSet _ = setWindowDestroyWithParent - attrConstruct _ = constructWindowDestroyWithParent - --- VVV Prop "focus-on-map" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowFocusOnMap :: (MonadIO m, WindowK o) => o -> m Bool -getWindowFocusOnMap obj = liftIO $ getObjectPropertyBool obj "focus-on-map" - -setWindowFocusOnMap :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowFocusOnMap obj val = liftIO $ setObjectPropertyBool obj "focus-on-map" val - -constructWindowFocusOnMap :: Bool -> IO ([Char], GValue) -constructWindowFocusOnMap val = constructObjectPropertyBool "focus-on-map" val - -data WindowFocusOnMapPropertyInfo -instance AttrInfo WindowFocusOnMapPropertyInfo where - type AttrAllowedOps WindowFocusOnMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowFocusOnMapPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowFocusOnMapPropertyInfo = WindowK - type AttrGetType WindowFocusOnMapPropertyInfo = Bool - type AttrLabel WindowFocusOnMapPropertyInfo = "Window::focus-on-map" - attrGet _ = getWindowFocusOnMap - attrSet _ = setWindowFocusOnMap - attrConstruct _ = constructWindowFocusOnMap - --- VVV Prop "focus-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowFocusVisible :: (MonadIO m, WindowK o) => o -> m Bool -getWindowFocusVisible obj = liftIO $ getObjectPropertyBool obj "focus-visible" - -setWindowFocusVisible :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowFocusVisible obj val = liftIO $ setObjectPropertyBool obj "focus-visible" val - -constructWindowFocusVisible :: Bool -> IO ([Char], GValue) -constructWindowFocusVisible val = constructObjectPropertyBool "focus-visible" val - -data WindowFocusVisiblePropertyInfo -instance AttrInfo WindowFocusVisiblePropertyInfo where - type AttrAllowedOps WindowFocusVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowFocusVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowFocusVisiblePropertyInfo = WindowK - type AttrGetType WindowFocusVisiblePropertyInfo = Bool - type AttrLabel WindowFocusVisiblePropertyInfo = "Window::focus-visible" - attrGet _ = getWindowFocusVisible - attrSet _ = setWindowFocusVisible - attrConstruct _ = constructWindowFocusVisible - --- VVV Prop "gravity" - -- Type: TInterface "Gdk" "Gravity" - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowGravity :: (MonadIO m, WindowK o) => o -> m Gdk.Gravity -getWindowGravity obj = liftIO $ getObjectPropertyEnum obj "gravity" - -setWindowGravity :: (MonadIO m, WindowK o) => o -> Gdk.Gravity -> m () -setWindowGravity obj val = liftIO $ setObjectPropertyEnum obj "gravity" val - -constructWindowGravity :: Gdk.Gravity -> IO ([Char], GValue) -constructWindowGravity val = constructObjectPropertyEnum "gravity" val - -data WindowGravityPropertyInfo -instance AttrInfo WindowGravityPropertyInfo where - type AttrAllowedOps WindowGravityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowGravityPropertyInfo = (~) Gdk.Gravity - type AttrBaseTypeConstraint WindowGravityPropertyInfo = WindowK - type AttrGetType WindowGravityPropertyInfo = Gdk.Gravity - type AttrLabel WindowGravityPropertyInfo = "Window::gravity" - attrGet _ = getWindowGravity - attrSet _ = setWindowGravity - attrConstruct _ = constructWindowGravity - --- VVV Prop "has-resize-grip" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowHasResizeGrip :: (MonadIO m, WindowK o) => o -> m Bool -getWindowHasResizeGrip obj = liftIO $ getObjectPropertyBool obj "has-resize-grip" - -setWindowHasResizeGrip :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowHasResizeGrip obj val = liftIO $ setObjectPropertyBool obj "has-resize-grip" val - -constructWindowHasResizeGrip :: Bool -> IO ([Char], GValue) -constructWindowHasResizeGrip val = constructObjectPropertyBool "has-resize-grip" val - -data WindowHasResizeGripPropertyInfo -instance AttrInfo WindowHasResizeGripPropertyInfo where - type AttrAllowedOps WindowHasResizeGripPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowHasResizeGripPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowHasResizeGripPropertyInfo = WindowK - type AttrGetType WindowHasResizeGripPropertyInfo = Bool - type AttrLabel WindowHasResizeGripPropertyInfo = "Window::has-resize-grip" - attrGet _ = getWindowHasResizeGrip - attrSet _ = setWindowHasResizeGrip - attrConstruct _ = constructWindowHasResizeGrip - --- VVV Prop "has-toplevel-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getWindowHasToplevelFocus :: (MonadIO m, WindowK o) => o -> m Bool -getWindowHasToplevelFocus obj = liftIO $ getObjectPropertyBool obj "has-toplevel-focus" - -data WindowHasToplevelFocusPropertyInfo -instance AttrInfo WindowHasToplevelFocusPropertyInfo where - type AttrAllowedOps WindowHasToplevelFocusPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WindowHasToplevelFocusPropertyInfo = (~) () - type AttrBaseTypeConstraint WindowHasToplevelFocusPropertyInfo = WindowK - type AttrGetType WindowHasToplevelFocusPropertyInfo = Bool - type AttrLabel WindowHasToplevelFocusPropertyInfo = "Window::has-toplevel-focus" - attrGet _ = getWindowHasToplevelFocus - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "hide-titlebar-when-maximized" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowHideTitlebarWhenMaximized :: (MonadIO m, WindowK o) => o -> m Bool -getWindowHideTitlebarWhenMaximized obj = liftIO $ getObjectPropertyBool obj "hide-titlebar-when-maximized" - -setWindowHideTitlebarWhenMaximized :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowHideTitlebarWhenMaximized obj val = liftIO $ setObjectPropertyBool obj "hide-titlebar-when-maximized" val - -constructWindowHideTitlebarWhenMaximized :: Bool -> IO ([Char], GValue) -constructWindowHideTitlebarWhenMaximized val = constructObjectPropertyBool "hide-titlebar-when-maximized" val - -data WindowHideTitlebarWhenMaximizedPropertyInfo -instance AttrInfo WindowHideTitlebarWhenMaximizedPropertyInfo where - type AttrAllowedOps WindowHideTitlebarWhenMaximizedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowHideTitlebarWhenMaximizedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowHideTitlebarWhenMaximizedPropertyInfo = WindowK - type AttrGetType WindowHideTitlebarWhenMaximizedPropertyInfo = Bool - type AttrLabel WindowHideTitlebarWhenMaximizedPropertyInfo = "Window::hide-titlebar-when-maximized" - attrGet _ = getWindowHideTitlebarWhenMaximized - attrSet _ = setWindowHideTitlebarWhenMaximized - attrConstruct _ = constructWindowHideTitlebarWhenMaximized - --- VVV Prop "icon" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowIcon :: (MonadIO m, WindowK o) => o -> m GdkPixbuf.Pixbuf -getWindowIcon obj = liftIO $ getObjectPropertyObject obj "icon" GdkPixbuf.Pixbuf - -setWindowIcon :: (MonadIO m, WindowK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setWindowIcon obj val = liftIO $ setObjectPropertyObject obj "icon" val - -constructWindowIcon :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructWindowIcon val = constructObjectPropertyObject "icon" val - -data WindowIconPropertyInfo -instance AttrInfo WindowIconPropertyInfo where - type AttrAllowedOps WindowIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowIconPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint WindowIconPropertyInfo = WindowK - type AttrGetType WindowIconPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel WindowIconPropertyInfo = "Window::icon" - attrGet _ = getWindowIcon - attrSet _ = setWindowIcon - attrConstruct _ = constructWindowIcon - --- VVV Prop "icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowIconName :: (MonadIO m, WindowK o) => o -> m T.Text -getWindowIconName obj = liftIO $ getObjectPropertyString obj "icon-name" - -setWindowIconName :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val - -constructWindowIconName :: T.Text -> IO ([Char], GValue) -constructWindowIconName val = constructObjectPropertyString "icon-name" val - -data WindowIconNamePropertyInfo -instance AttrInfo WindowIconNamePropertyInfo where - type AttrAllowedOps WindowIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WindowIconNamePropertyInfo = WindowK - type AttrGetType WindowIconNamePropertyInfo = T.Text - type AttrLabel WindowIconNamePropertyInfo = "Window::icon-name" - attrGet _ = getWindowIconName - attrSet _ = setWindowIconName - attrConstruct _ = constructWindowIconName - --- VVV Prop "is-active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getWindowIsActive :: (MonadIO m, WindowK o) => o -> m Bool -getWindowIsActive obj = liftIO $ getObjectPropertyBool obj "is-active" - -data WindowIsActivePropertyInfo -instance AttrInfo WindowIsActivePropertyInfo where - type AttrAllowedOps WindowIsActivePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WindowIsActivePropertyInfo = (~) () - type AttrBaseTypeConstraint WindowIsActivePropertyInfo = WindowK - type AttrGetType WindowIsActivePropertyInfo = Bool - type AttrLabel WindowIsActivePropertyInfo = "Window::is-active" - attrGet _ = getWindowIsActive - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "is-maximized" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getWindowIsMaximized :: (MonadIO m, WindowK o) => o -> m Bool -getWindowIsMaximized obj = liftIO $ getObjectPropertyBool obj "is-maximized" - -data WindowIsMaximizedPropertyInfo -instance AttrInfo WindowIsMaximizedPropertyInfo where - type AttrAllowedOps WindowIsMaximizedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WindowIsMaximizedPropertyInfo = (~) () - type AttrBaseTypeConstraint WindowIsMaximizedPropertyInfo = WindowK - type AttrGetType WindowIsMaximizedPropertyInfo = Bool - type AttrLabel WindowIsMaximizedPropertyInfo = "Window::is-maximized" - attrGet _ = getWindowIsMaximized - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "mnemonics-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowMnemonicsVisible :: (MonadIO m, WindowK o) => o -> m Bool -getWindowMnemonicsVisible obj = liftIO $ getObjectPropertyBool obj "mnemonics-visible" - -setWindowMnemonicsVisible :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowMnemonicsVisible obj val = liftIO $ setObjectPropertyBool obj "mnemonics-visible" val - -constructWindowMnemonicsVisible :: Bool -> IO ([Char], GValue) -constructWindowMnemonicsVisible val = constructObjectPropertyBool "mnemonics-visible" val - -data WindowMnemonicsVisiblePropertyInfo -instance AttrInfo WindowMnemonicsVisiblePropertyInfo where - type AttrAllowedOps WindowMnemonicsVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowMnemonicsVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowMnemonicsVisiblePropertyInfo = WindowK - type AttrGetType WindowMnemonicsVisiblePropertyInfo = Bool - type AttrLabel WindowMnemonicsVisiblePropertyInfo = "Window::mnemonics-visible" - attrGet _ = getWindowMnemonicsVisible - attrSet _ = setWindowMnemonicsVisible - attrConstruct _ = constructWindowMnemonicsVisible - --- VVV Prop "modal" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowModal :: (MonadIO m, WindowK o) => o -> m Bool -getWindowModal obj = liftIO $ getObjectPropertyBool obj "modal" - -setWindowModal :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowModal obj val = liftIO $ setObjectPropertyBool obj "modal" val - -constructWindowModal :: Bool -> IO ([Char], GValue) -constructWindowModal val = constructObjectPropertyBool "modal" val - -data WindowModalPropertyInfo -instance AttrInfo WindowModalPropertyInfo where - type AttrAllowedOps WindowModalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowModalPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowModalPropertyInfo = WindowK - type AttrGetType WindowModalPropertyInfo = Bool - type AttrLabel WindowModalPropertyInfo = "Window::modal" - attrGet _ = getWindowModal - attrSet _ = setWindowModal - attrConstruct _ = constructWindowModal - --- VVV Prop "resizable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowResizable :: (MonadIO m, WindowK o) => o -> m Bool -getWindowResizable obj = liftIO $ getObjectPropertyBool obj "resizable" - -setWindowResizable :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowResizable obj val = liftIO $ setObjectPropertyBool obj "resizable" val - -constructWindowResizable :: Bool -> IO ([Char], GValue) -constructWindowResizable val = constructObjectPropertyBool "resizable" val - -data WindowResizablePropertyInfo -instance AttrInfo WindowResizablePropertyInfo where - type AttrAllowedOps WindowResizablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowResizablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowResizablePropertyInfo = WindowK - type AttrGetType WindowResizablePropertyInfo = Bool - type AttrLabel WindowResizablePropertyInfo = "Window::resizable" - attrGet _ = getWindowResizable - attrSet _ = setWindowResizable - attrConstruct _ = constructWindowResizable - --- VVV Prop "resize-grip-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getWindowResizeGripVisible :: (MonadIO m, WindowK o) => o -> m Bool -getWindowResizeGripVisible obj = liftIO $ getObjectPropertyBool obj "resize-grip-visible" - -data WindowResizeGripVisiblePropertyInfo -instance AttrInfo WindowResizeGripVisiblePropertyInfo where - type AttrAllowedOps WindowResizeGripVisiblePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WindowResizeGripVisiblePropertyInfo = (~) () - type AttrBaseTypeConstraint WindowResizeGripVisiblePropertyInfo = WindowK - type AttrGetType WindowResizeGripVisiblePropertyInfo = Bool - type AttrLabel WindowResizeGripVisiblePropertyInfo = "Window::resize-grip-visible" - attrGet _ = getWindowResizeGripVisible - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "role" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowRole :: (MonadIO m, WindowK o) => o -> m T.Text -getWindowRole obj = liftIO $ getObjectPropertyString obj "role" - -setWindowRole :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowRole obj val = liftIO $ setObjectPropertyString obj "role" val - -constructWindowRole :: T.Text -> IO ([Char], GValue) -constructWindowRole val = constructObjectPropertyString "role" val - -data WindowRolePropertyInfo -instance AttrInfo WindowRolePropertyInfo where - type AttrAllowedOps WindowRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowRolePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WindowRolePropertyInfo = WindowK - type AttrGetType WindowRolePropertyInfo = T.Text - type AttrLabel WindowRolePropertyInfo = "Window::role" - attrGet _ = getWindowRole - attrSet _ = setWindowRole - attrConstruct _ = constructWindowRole - --- VVV Prop "screen" - -- Type: TInterface "Gdk" "Screen" - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowScreen :: (MonadIO m, WindowK o) => o -> m Gdk.Screen -getWindowScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen - -setWindowScreen :: (MonadIO m, WindowK o, Gdk.ScreenK a) => o -> a -> m () -setWindowScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val - -constructWindowScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructWindowScreen val = constructObjectPropertyObject "screen" val - -data WindowScreenPropertyInfo -instance AttrInfo WindowScreenPropertyInfo where - type AttrAllowedOps WindowScreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowScreenPropertyInfo = Gdk.ScreenK - type AttrBaseTypeConstraint WindowScreenPropertyInfo = WindowK - type AttrGetType WindowScreenPropertyInfo = Gdk.Screen - type AttrLabel WindowScreenPropertyInfo = "Window::screen" - attrGet _ = getWindowScreen - attrSet _ = setWindowScreen - attrConstruct _ = constructWindowScreen - --- VVV Prop "skip-pager-hint" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowSkipPagerHint :: (MonadIO m, WindowK o) => o -> m Bool -getWindowSkipPagerHint obj = liftIO $ getObjectPropertyBool obj "skip-pager-hint" - -setWindowSkipPagerHint :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowSkipPagerHint obj val = liftIO $ setObjectPropertyBool obj "skip-pager-hint" val - -constructWindowSkipPagerHint :: Bool -> IO ([Char], GValue) -constructWindowSkipPagerHint val = constructObjectPropertyBool "skip-pager-hint" val - -data WindowSkipPagerHintPropertyInfo -instance AttrInfo WindowSkipPagerHintPropertyInfo where - type AttrAllowedOps WindowSkipPagerHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowSkipPagerHintPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowSkipPagerHintPropertyInfo = WindowK - type AttrGetType WindowSkipPagerHintPropertyInfo = Bool - type AttrLabel WindowSkipPagerHintPropertyInfo = "Window::skip-pager-hint" - attrGet _ = getWindowSkipPagerHint - attrSet _ = setWindowSkipPagerHint - attrConstruct _ = constructWindowSkipPagerHint - --- VVV Prop "skip-taskbar-hint" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowSkipTaskbarHint :: (MonadIO m, WindowK o) => o -> m Bool -getWindowSkipTaskbarHint obj = liftIO $ getObjectPropertyBool obj "skip-taskbar-hint" - -setWindowSkipTaskbarHint :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowSkipTaskbarHint obj val = liftIO $ setObjectPropertyBool obj "skip-taskbar-hint" val - -constructWindowSkipTaskbarHint :: Bool -> IO ([Char], GValue) -constructWindowSkipTaskbarHint val = constructObjectPropertyBool "skip-taskbar-hint" val - -data WindowSkipTaskbarHintPropertyInfo -instance AttrInfo WindowSkipTaskbarHintPropertyInfo where - type AttrAllowedOps WindowSkipTaskbarHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowSkipTaskbarHintPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowSkipTaskbarHintPropertyInfo = WindowK - type AttrGetType WindowSkipTaskbarHintPropertyInfo = Bool - type AttrLabel WindowSkipTaskbarHintPropertyInfo = "Window::skip-taskbar-hint" - attrGet _ = getWindowSkipTaskbarHint - attrSet _ = setWindowSkipTaskbarHint - attrConstruct _ = constructWindowSkipTaskbarHint - --- VVV Prop "startup-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setWindowStartupId :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowStartupId obj val = liftIO $ setObjectPropertyString obj "startup-id" val - -constructWindowStartupId :: T.Text -> IO ([Char], GValue) -constructWindowStartupId val = constructObjectPropertyString "startup-id" val - -data WindowStartupIdPropertyInfo -instance AttrInfo WindowStartupIdPropertyInfo where - type AttrAllowedOps WindowStartupIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint WindowStartupIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WindowStartupIdPropertyInfo = WindowK - type AttrGetType WindowStartupIdPropertyInfo = () - type AttrLabel WindowStartupIdPropertyInfo = "Window::startup-id" - attrGet _ = undefined - attrSet _ = setWindowStartupId - attrConstruct _ = constructWindowStartupId - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowTitle :: (MonadIO m, WindowK o) => o -> m T.Text -getWindowTitle obj = liftIO $ getObjectPropertyString obj "title" - -setWindowTitle :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowTitle obj val = liftIO $ setObjectPropertyString obj "title" val - -constructWindowTitle :: T.Text -> IO ([Char], GValue) -constructWindowTitle val = constructObjectPropertyString "title" val - -data WindowTitlePropertyInfo -instance AttrInfo WindowTitlePropertyInfo where - type AttrAllowedOps WindowTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WindowTitlePropertyInfo = WindowK - type AttrGetType WindowTitlePropertyInfo = T.Text - type AttrLabel WindowTitlePropertyInfo = "Window::title" - attrGet _ = getWindowTitle - attrSet _ = setWindowTitle - attrConstruct _ = constructWindowTitle - --- VVV Prop "transient-for" - -- Type: TInterface "Gtk" "Window" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWindowTransientFor :: (MonadIO m, WindowK o) => o -> m Window -getWindowTransientFor obj = liftIO $ getObjectPropertyObject obj "transient-for" Window - -setWindowTransientFor :: (MonadIO m, WindowK o, WindowK a) => o -> a -> m () -setWindowTransientFor obj val = liftIO $ setObjectPropertyObject obj "transient-for" val - -constructWindowTransientFor :: (WindowK a) => a -> IO ([Char], GValue) -constructWindowTransientFor val = constructObjectPropertyObject "transient-for" val - -data WindowTransientForPropertyInfo -instance AttrInfo WindowTransientForPropertyInfo where - type AttrAllowedOps WindowTransientForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowTransientForPropertyInfo = WindowK - type AttrBaseTypeConstraint WindowTransientForPropertyInfo = WindowK - type AttrGetType WindowTransientForPropertyInfo = Window - type AttrLabel WindowTransientForPropertyInfo = "Window::transient-for" - attrGet _ = getWindowTransientFor - attrSet _ = setWindowTransientFor - attrConstruct _ = constructWindowTransientFor - --- VVV Prop "type" - -- Type: TInterface "Gtk" "WindowType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWindowType :: (MonadIO m, WindowK o) => o -> m WindowType -getWindowType obj = liftIO $ getObjectPropertyEnum obj "type" - -constructWindowType :: WindowType -> IO ([Char], GValue) -constructWindowType val = constructObjectPropertyEnum "type" val - -data WindowTypePropertyInfo -instance AttrInfo WindowTypePropertyInfo where - type AttrAllowedOps WindowTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowTypePropertyInfo = (~) WindowType - type AttrBaseTypeConstraint WindowTypePropertyInfo = WindowK - type AttrGetType WindowTypePropertyInfo = WindowType - type AttrLabel WindowTypePropertyInfo = "Window::type" - attrGet _ = getWindowType - attrSet _ = undefined - attrConstruct _ = constructWindowType - --- VVV Prop "type-hint" - -- Type: TInterface "Gdk" "WindowTypeHint" - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowTypeHint :: (MonadIO m, WindowK o) => o -> m Gdk.WindowTypeHint -getWindowTypeHint obj = liftIO $ getObjectPropertyEnum obj "type-hint" - -setWindowTypeHint :: (MonadIO m, WindowK o) => o -> Gdk.WindowTypeHint -> m () -setWindowTypeHint obj val = liftIO $ setObjectPropertyEnum obj "type-hint" val - -constructWindowTypeHint :: Gdk.WindowTypeHint -> IO ([Char], GValue) -constructWindowTypeHint val = constructObjectPropertyEnum "type-hint" val - -data WindowTypeHintPropertyInfo -instance AttrInfo WindowTypeHintPropertyInfo where - type AttrAllowedOps WindowTypeHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowTypeHintPropertyInfo = (~) Gdk.WindowTypeHint - type AttrBaseTypeConstraint WindowTypeHintPropertyInfo = WindowK - type AttrGetType WindowTypeHintPropertyInfo = Gdk.WindowTypeHint - type AttrLabel WindowTypeHintPropertyInfo = "Window::type-hint" - attrGet _ = getWindowTypeHint - attrSet _ = setWindowTypeHint - attrConstruct _ = constructWindowTypeHint - --- VVV Prop "urgency-hint" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowUrgencyHint :: (MonadIO m, WindowK o) => o -> m Bool -getWindowUrgencyHint obj = liftIO $ getObjectPropertyBool obj "urgency-hint" - -setWindowUrgencyHint :: (MonadIO m, WindowK o) => o -> Bool -> m () -setWindowUrgencyHint obj val = liftIO $ setObjectPropertyBool obj "urgency-hint" val - -constructWindowUrgencyHint :: Bool -> IO ([Char], GValue) -constructWindowUrgencyHint val = constructObjectPropertyBool "urgency-hint" val - -data WindowUrgencyHintPropertyInfo -instance AttrInfo WindowUrgencyHintPropertyInfo where - type AttrAllowedOps WindowUrgencyHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowUrgencyHintPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WindowUrgencyHintPropertyInfo = WindowK - type AttrGetType WindowUrgencyHintPropertyInfo = Bool - type AttrLabel WindowUrgencyHintPropertyInfo = "Window::urgency-hint" - attrGet _ = getWindowUrgencyHint - attrSet _ = setWindowUrgencyHint - attrConstruct _ = constructWindowUrgencyHint - --- VVV Prop "window-position" - -- Type: TInterface "Gtk" "WindowPosition" - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowWindowPosition :: (MonadIO m, WindowK o) => o -> m WindowPosition -getWindowWindowPosition obj = liftIO $ getObjectPropertyEnum obj "window-position" - -setWindowWindowPosition :: (MonadIO m, WindowK o) => o -> WindowPosition -> m () -setWindowWindowPosition obj val = liftIO $ setObjectPropertyEnum obj "window-position" val - -constructWindowWindowPosition :: WindowPosition -> IO ([Char], GValue) -constructWindowWindowPosition val = constructObjectPropertyEnum "window-position" val - -data WindowWindowPositionPropertyInfo -instance AttrInfo WindowWindowPositionPropertyInfo where - type AttrAllowedOps WindowWindowPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowWindowPositionPropertyInfo = (~) WindowPosition - type AttrBaseTypeConstraint WindowWindowPositionPropertyInfo = WindowK - type AttrGetType WindowWindowPositionPropertyInfo = WindowPosition - type AttrLabel WindowWindowPositionPropertyInfo = "Window::window-position" - attrGet _ = getWindowWindowPosition - attrSet _ = setWindowWindowPosition - attrConstruct _ = constructWindowWindowPosition - -type instance AttributeList Window = WindowAttributeList -type WindowAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -data WindowActivateDefaultSignalInfo -instance SignalInfo WindowActivateDefaultSignalInfo where - type HaskellCallbackType WindowActivateDefaultSignalInfo = WindowActivateDefaultCallback - connectSignal _ = connectWindowActivateDefault - -data WindowActivateFocusSignalInfo -instance SignalInfo WindowActivateFocusSignalInfo where - type HaskellCallbackType WindowActivateFocusSignalInfo = WindowActivateFocusCallback - connectSignal _ = connectWindowActivateFocus - -data WindowEnableDebuggingSignalInfo -instance SignalInfo WindowEnableDebuggingSignalInfo where - type HaskellCallbackType WindowEnableDebuggingSignalInfo = WindowEnableDebuggingCallback - connectSignal _ = connectWindowEnableDebugging - -data WindowKeysChangedSignalInfo -instance SignalInfo WindowKeysChangedSignalInfo where - type HaskellCallbackType WindowKeysChangedSignalInfo = WindowKeysChangedCallback - connectSignal _ = connectWindowKeysChanged - -data WindowSetFocusSignalInfo -instance SignalInfo WindowSetFocusSignalInfo where - type HaskellCallbackType WindowSetFocusSignalInfo = WindowSetFocusCallback - connectSignal _ = connectWindowSetFocus - -type instance SignalList Window = WindowSignalList -type WindowSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Window::new --- method type : Constructor --- Args : [Arg {argName = "type", argType = TInterface "Gtk" "WindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TInterface "Gtk" "WindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Window" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_new" gtk_window_new :: - CUInt -> -- type : TInterface "Gtk" "WindowType" - IO (Ptr Window) - - -windowNew :: - (MonadIO m) => - WindowType -> -- type - m Window -windowNew type_ = liftIO $ do - let type_' = (fromIntegral . fromEnum) type_ - result <- gtk_window_new type_' - checkUnexpectedReturnNULL "gtk_window_new" result - result' <- (newObject Window) result - return result' - --- method Window::activate_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_activate_default" gtk_window_activate_default :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowActivateDefault :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowActivateDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_activate_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::activate_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_activate_focus" gtk_window_activate_focus :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowActivateFocus :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowActivateFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_activate_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::activate_key --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_activate_key" gtk_window_activate_key :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" - IO CInt - - -windowActivateKey :: - (MonadIO m, WindowK a) => - a -> -- _obj - Gdk.EventKey -> -- event - m Bool -windowActivateKey _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_window_activate_key _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - --- method Window::add_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_add_accel_group" gtk_window_add_accel_group :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - IO () - - -windowAddAccelGroup :: - (MonadIO m, WindowK a, AccelGroupK b) => - a -> -- _obj - b -> -- accel_group - m () -windowAddAccelGroup _obj accel_group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accel_group' = unsafeManagedPtrCastPtr accel_group - gtk_window_add_accel_group _obj' accel_group' - touchManagedPtr _obj - touchManagedPtr accel_group - return () - --- method Window::add_mnemonic --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_add_mnemonic" gtk_window_add_mnemonic :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Word32 -> -- keyval : TBasicType TUInt32 - Ptr Widget -> -- target : TInterface "Gtk" "Widget" - IO () - - -windowAddMnemonic :: - (MonadIO m, WindowK a, WidgetK b) => - a -> -- _obj - Word32 -> -- keyval - b -> -- target - m () -windowAddMnemonic _obj keyval target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let target' = unsafeManagedPtrCastPtr target - gtk_window_add_mnemonic _obj' keyval target' - touchManagedPtr _obj - touchManagedPtr target - return () - --- method Window::begin_move_drag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_begin_move_drag" gtk_window_begin_move_drag :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- button : TBasicType TInt32 - Int32 -> -- root_x : TBasicType TInt32 - Int32 -> -- root_y : TBasicType TInt32 - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowBeginMoveDrag :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- button - Int32 -> -- root_x - Int32 -> -- root_y - Word32 -> -- timestamp - m () -windowBeginMoveDrag _obj button root_x root_y timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_begin_move_drag _obj' button root_x root_y timestamp - touchManagedPtr _obj - return () - --- method Window::begin_resize_drag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_begin_resize_drag" gtk_window_begin_resize_drag :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CUInt -> -- edge : TInterface "Gdk" "WindowEdge" - Int32 -> -- button : TBasicType TInt32 - Int32 -> -- root_x : TBasicType TInt32 - Int32 -> -- root_y : TBasicType TInt32 - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowBeginResizeDrag :: - (MonadIO m, WindowK a) => - a -> -- _obj - Gdk.WindowEdge -> -- edge - Int32 -> -- button - Int32 -> -- root_x - Int32 -> -- root_y - Word32 -> -- timestamp - m () -windowBeginResizeDrag _obj edge button root_x root_y timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let edge' = (fromIntegral . fromEnum) edge - gtk_window_begin_resize_drag _obj' edge' button root_x root_y timestamp - touchManagedPtr _obj - return () - --- method Window::close --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_close" gtk_window_close :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowClose :: - (MonadIO m, WindowK a) => - a -> -- _obj - m () -windowClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_close _obj' - touchManagedPtr _obj - return () - --- method Window::deiconify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_deiconify" gtk_window_deiconify :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowDeiconify :: - (MonadIO m, WindowK a) => - a -> -- _obj - m () -windowDeiconify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_deiconify _obj' - touchManagedPtr _obj - return () - --- method Window::fullscreen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_fullscreen" gtk_window_fullscreen :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowFullscreen :: - (MonadIO m, WindowK a) => - a -> -- _obj - m () -windowFullscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_fullscreen _obj' - touchManagedPtr _obj - return () - --- method Window::fullscreen_on_monitor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_fullscreen_on_monitor" gtk_window_fullscreen_on_monitor :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - Int32 -> -- monitor : TBasicType TInt32 - IO () - - -windowFullscreenOnMonitor :: - (MonadIO m, WindowK a, Gdk.ScreenK b) => - a -> -- _obj - b -> -- screen - Int32 -> -- monitor - m () -windowFullscreenOnMonitor _obj screen monitor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gtk_window_fullscreen_on_monitor _obj' screen' monitor - touchManagedPtr _obj - touchManagedPtr screen - return () - --- method Window::get_accept_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_accept_focus" gtk_window_get_accept_focus :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetAcceptFocus :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetAcceptFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_accept_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_application --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Application" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_application" gtk_window_get_application :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Application) - - -windowGetApplication :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Application -windowGetApplication _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_application _obj' - checkUnexpectedReturnNULL "gtk_window_get_application" result - result' <- (newObject Application) result - touchManagedPtr _obj - return result' - --- method Window::get_attached_to --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_attached_to" gtk_window_get_attached_to :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Widget) - - -windowGetAttachedTo :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Widget -windowGetAttachedTo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_attached_to _obj' - checkUnexpectedReturnNULL "gtk_window_get_attached_to" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Window::get_decorated --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_decorated" gtk_window_get_decorated :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetDecorated :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetDecorated _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_decorated _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_default_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_default_size" gtk_window_get_default_size :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO () - - -windowGetDefaultSize :: - (MonadIO m, WindowK a) => - a -> -- _obj - m (Int32,Int32) -windowGetDefaultSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_window_get_default_size _obj' width height - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem width - freeMem height - return (width', height') - --- method Window::get_default_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_default_widget" gtk_window_get_default_widget :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Widget) - - -windowGetDefaultWidget :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Widget -windowGetDefaultWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_default_widget _obj' - checkUnexpectedReturnNULL "gtk_window_get_default_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Window::get_deletable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_deletable" gtk_window_get_deletable :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetDeletable :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetDeletable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_deletable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_destroy_with_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_destroy_with_parent" gtk_window_get_destroy_with_parent :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetDestroyWithParent :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetDestroyWithParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_destroy_with_parent _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_focus" gtk_window_get_focus :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Widget) - - -windowGetFocus :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Widget -windowGetFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_focus _obj' - checkUnexpectedReturnNULL "gtk_window_get_focus" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Window::get_focus_on_map --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_focus_on_map" gtk_window_get_focus_on_map :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetFocusOnMap :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetFocusOnMap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_focus_on_map _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_focus_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_focus_visible" gtk_window_get_focus_visible :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetFocusVisible :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetFocusVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_focus_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_gravity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Gravity" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_gravity" gtk_window_get_gravity :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CUInt - - -windowGetGravity :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Gdk.Gravity -windowGetGravity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_gravity _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Window::get_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "WindowGroup" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_group" gtk_window_get_group :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr WindowGroup) - - -windowGetGroup :: - (MonadIO m, WindowK a) => - a -> -- _obj - m WindowGroup -windowGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_group _obj' - checkUnexpectedReturnNULL "gtk_window_get_group" result - result' <- (newObject WindowGroup) result - touchManagedPtr _obj - return result' - --- method Window::get_has_resize_grip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_has_resize_grip" gtk_window_get_has_resize_grip :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - -{-# DEPRECATED windowGetHasResizeGrip ["(Since version 3.14)","Resize grips have been removed."]#-} -windowGetHasResizeGrip :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetHasResizeGrip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_has_resize_grip _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_hide_titlebar_when_maximized --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_hide_titlebar_when_maximized" gtk_window_get_hide_titlebar_when_maximized :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetHideTitlebarWhenMaximized :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetHideTitlebarWhenMaximized _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_hide_titlebar_when_maximized _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_icon" gtk_window_get_icon :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr GdkPixbuf.Pixbuf) - - -windowGetIcon :: - (MonadIO m, WindowK a) => - a -> -- _obj - m GdkPixbuf.Pixbuf -windowGetIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_icon _obj' - checkUnexpectedReturnNULL "gtk_window_get_icon" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - --- method Window::get_icon_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGList (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_icon_list" gtk_window_get_icon_list :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr (GList (Ptr GdkPixbuf.Pixbuf))) - - -windowGetIconList :: - (MonadIO m, WindowK a) => - a -> -- _obj - m [GdkPixbuf.Pixbuf] -windowGetIconList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_icon_list _obj' - checkUnexpectedReturnNULL "gtk_window_get_icon_list" result - result' <- unpackGList result - result'' <- mapM (newObject GdkPixbuf.Pixbuf) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method Window::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_icon_name" gtk_window_get_icon_name :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CString - - -windowGetIconName :: - (MonadIO m, WindowK a) => - a -> -- _obj - m T.Text -windowGetIconName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_icon_name _obj' - checkUnexpectedReturnNULL "gtk_window_get_icon_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Window::get_mnemonic_modifier --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "ModifierType" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_mnemonic_modifier" gtk_window_get_mnemonic_modifier :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CUInt - - -windowGetMnemonicModifier :: - (MonadIO m, WindowK a) => - a -> -- _obj - m [Gdk.ModifierType] -windowGetMnemonicModifier _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_mnemonic_modifier _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Window::get_mnemonics_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_mnemonics_visible" gtk_window_get_mnemonics_visible :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetMnemonicsVisible :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetMnemonicsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_mnemonics_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_modal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_modal" gtk_window_get_modal :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetModal :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetModal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_modal _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_opacity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_opacity" gtk_window_get_opacity :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CDouble - -{-# DEPRECATED windowGetOpacity ["(Since version 3.8)","Use gtk_widget_get_opacity instead."]#-} -windowGetOpacity :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Double -windowGetOpacity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_opacity _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Window::get_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_position" gtk_window_get_position :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Int32 -> -- root_x : TBasicType TInt32 - Ptr Int32 -> -- root_y : TBasicType TInt32 - IO () - - -windowGetPosition :: - (MonadIO m, WindowK a) => - a -> -- _obj - m (Int32,Int32) -windowGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - root_x <- allocMem :: IO (Ptr Int32) - root_y <- allocMem :: IO (Ptr Int32) - gtk_window_get_position _obj' root_x root_y - root_x' <- peek root_x - root_y' <- peek root_y - touchManagedPtr _obj - freeMem root_x - freeMem root_y - return (root_x', root_y') - --- method Window::get_resizable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_resizable" gtk_window_get_resizable :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetResizable :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetResizable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_resizable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_resize_grip_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_resize_grip_area" gtk_window_get_resize_grip_area :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO CInt - -{-# DEPRECATED windowGetResizeGripArea ["(Since version 3.14)","Resize grips have been removed."]#-} -windowGetResizeGripArea :: - (MonadIO m, WindowK a) => - a -> -- _obj - m (Bool,Gdk.Rectangle) -windowGetResizeGripArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - result <- gtk_window_get_resize_grip_area _obj' rect - let result' = (/= 0) result - rect' <- (wrapBoxed Gdk.Rectangle) rect - touchManagedPtr _obj - return (result', rect') - --- method Window::get_role --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_role" gtk_window_get_role :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CString - - -windowGetRole :: - (MonadIO m, WindowK a) => - a -> -- _obj - m T.Text -windowGetRole _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_role _obj' - checkUnexpectedReturnNULL "gtk_window_get_role" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Window::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "Screen" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_screen" gtk_window_get_screen :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Gdk.Screen) - - -windowGetScreen :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Gdk.Screen -windowGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_screen _obj' - checkUnexpectedReturnNULL "gtk_window_get_screen" result - result' <- (newObject Gdk.Screen) result - touchManagedPtr _obj - return result' - --- method Window::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_size" gtk_window_get_size :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO () - - -windowGetSize :: - (MonadIO m, WindowK a) => - a -> -- _obj - m (Int32,Int32) -windowGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_window_get_size _obj' width height - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem width - freeMem height - return (width', height') - --- method Window::get_skip_pager_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_skip_pager_hint" gtk_window_get_skip_pager_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetSkipPagerHint :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetSkipPagerHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_skip_pager_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_skip_taskbar_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_skip_taskbar_hint" gtk_window_get_skip_taskbar_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetSkipTaskbarHint :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetSkipTaskbarHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_skip_taskbar_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_title" gtk_window_get_title :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CString - - -windowGetTitle :: - (MonadIO m, WindowK a) => - a -> -- _obj - m T.Text -windowGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_title _obj' - checkUnexpectedReturnNULL "gtk_window_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Window::get_titlebar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_titlebar" gtk_window_get_titlebar :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Widget) - - -windowGetTitlebar :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Widget -windowGetTitlebar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_titlebar _obj' - checkUnexpectedReturnNULL "gtk_window_get_titlebar" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Window::get_transient_for --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Window" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_transient_for" gtk_window_get_transient_for :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO (Ptr Window) - - -windowGetTransientFor :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Window -windowGetTransientFor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_transient_for _obj' - checkUnexpectedReturnNULL "gtk_window_get_transient_for" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - --- method Window::get_type_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gdk" "WindowTypeHint" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_type_hint" gtk_window_get_type_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CUInt - - -windowGetTypeHint :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Gdk.WindowTypeHint -windowGetTypeHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_type_hint _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Window::get_urgency_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_urgency_hint" gtk_window_get_urgency_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowGetUrgencyHint :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetUrgencyHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_urgency_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_window_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "WindowType" --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_window_type" gtk_window_get_window_type :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CUInt - - -windowGetWindowType :: - (MonadIO m, WindowK a) => - a -> -- _obj - m WindowType -windowGetWindowType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_window_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Window::has_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_has_group" gtk_window_has_group :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowHasGroup :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowHasGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_has_group _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::has_toplevel_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_has_toplevel_focus" gtk_window_has_toplevel_focus :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowHasToplevelFocus :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowHasToplevelFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_has_toplevel_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::iconify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_iconify" gtk_window_iconify :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowIconify :: - (MonadIO m, WindowK a) => - a -> -- _obj - m () -windowIconify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_iconify _obj' - touchManagedPtr _obj - return () - --- method Window::is_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_is_active" gtk_window_is_active :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowIsActive :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowIsActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_is_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::is_maximized --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_is_maximized" gtk_window_is_maximized :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - - -windowIsMaximized :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowIsMaximized _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_is_maximized _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::maximize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_maximize" gtk_window_maximize :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowMaximize :: - (MonadIO m, WindowK a) => - a -> -- _obj - m () -windowMaximize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_maximize _obj' - touchManagedPtr _obj - return () - --- method Window::mnemonic_activate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_mnemonic_activate" gtk_window_mnemonic_activate :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Word32 -> -- keyval : TBasicType TUInt32 - CUInt -> -- modifier : TInterface "Gdk" "ModifierType" - IO CInt - - -windowMnemonicActivate :: - (MonadIO m, WindowK a) => - a -> -- _obj - Word32 -> -- keyval - [Gdk.ModifierType] -> -- modifier - m Bool -windowMnemonicActivate _obj keyval modifier = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let modifier' = gflagsToWord modifier - result <- gtk_window_mnemonic_activate _obj' keyval modifier' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::move --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_move" gtk_window_move :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - IO () - - -windowMove :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m () -windowMove _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_move _obj' x y - touchManagedPtr _obj - return () - --- method Window::parse_geometry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_parse_geometry" gtk_window_parse_geometry :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- geometry : TBasicType TUTF8 - IO CInt - - -windowParseGeometry :: - (MonadIO m, WindowK a) => - a -> -- _obj - T.Text -> -- geometry - m Bool -windowParseGeometry _obj geometry = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - geometry' <- textToCString geometry - result <- gtk_window_parse_geometry _obj' geometry' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem geometry' - return result' - --- method Window::present --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_present" gtk_window_present :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowPresent :: - (MonadIO m, WindowK a) => - a -> -- _obj - m () -windowPresent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_present _obj' - touchManagedPtr _obj - return () - --- method Window::present_with_time --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_present_with_time" gtk_window_present_with_time :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowPresentWithTime :: - (MonadIO m, WindowK a) => - a -> -- _obj - Word32 -> -- timestamp - m () -windowPresentWithTime _obj timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_present_with_time _obj' timestamp - touchManagedPtr _obj - return () - --- method Window::propagate_key_event --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_propagate_key_event" gtk_window_propagate_key_event :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" - IO CInt - - -windowPropagateKeyEvent :: - (MonadIO m, WindowK a) => - a -> -- _obj - Gdk.EventKey -> -- event - m Bool -windowPropagateKeyEvent _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_window_propagate_key_event _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - --- method Window::remove_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_remove_accel_group" gtk_window_remove_accel_group :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - IO () - - -windowRemoveAccelGroup :: - (MonadIO m, WindowK a, AccelGroupK b) => - a -> -- _obj - b -> -- accel_group - m () -windowRemoveAccelGroup _obj accel_group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accel_group' = unsafeManagedPtrCastPtr accel_group - gtk_window_remove_accel_group _obj' accel_group' - touchManagedPtr _obj - touchManagedPtr accel_group - return () - --- method Window::remove_mnemonic --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_remove_mnemonic" gtk_window_remove_mnemonic :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Word32 -> -- keyval : TBasicType TUInt32 - Ptr Widget -> -- target : TInterface "Gtk" "Widget" - IO () - - -windowRemoveMnemonic :: - (MonadIO m, WindowK a, WidgetK b) => - a -> -- _obj - Word32 -> -- keyval - b -> -- target - m () -windowRemoveMnemonic _obj keyval target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let target' = unsafeManagedPtrCastPtr target - gtk_window_remove_mnemonic _obj' keyval target' - touchManagedPtr _obj - touchManagedPtr target - return () - --- method Window::reshow_with_initial_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_reshow_with_initial_size" gtk_window_reshow_with_initial_size :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - -{-# DEPRECATED windowReshowWithInitialSize ["(Since version 3.10)","GUI builders can call gtk_widget_hide(),"," gtk_widget_unrealize() and then gtk_widget_show() on @window"," themselves, if they still need this functionality."]#-} -windowReshowWithInitialSize :: - (MonadIO m, WindowK a) => - a -> -- _obj - m () -windowReshowWithInitialSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_reshow_with_initial_size _obj' - touchManagedPtr _obj - return () - --- method Window::resize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_resize" gtk_window_resize :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -windowResize :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -windowResize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_resize _obj' width height - touchManagedPtr _obj - return () - --- method Window::resize_grip_is_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_resize_grip_is_visible" gtk_window_resize_grip_is_visible :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO CInt - -{-# DEPRECATED windowResizeGripIsVisible ["(Since version 3.14)","Resize grips have been removed."]#-} -windowResizeGripIsVisible :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowResizeGripIsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_resize_grip_is_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::resize_to_geometry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_resize_to_geometry" gtk_window_resize_to_geometry :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -windowResizeToGeometry :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -windowResizeToGeometry _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_resize_to_geometry _obj' width height - touchManagedPtr _obj - return () - --- method Window::set_accept_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_accept_focus" gtk_window_set_accept_focus :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetAcceptFocus :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetAcceptFocus _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_accept_focus _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_application --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_application" gtk_window_set_application :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Application -> -- application : TInterface "Gtk" "Application" - IO () - - -windowSetApplication :: - (MonadIO m, WindowK a, ApplicationK b) => - a -> -- _obj - Maybe (b) -> -- application - m () -windowSetApplication _obj application = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeApplication <- case application of - Nothing -> return nullPtr - Just jApplication -> do - let jApplication' = unsafeManagedPtrCastPtr jApplication - return jApplication' - gtk_window_set_application _obj' maybeApplication - touchManagedPtr _obj - whenJust application touchManagedPtr - return () - --- method Window::set_attached_to --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_attached_to" gtk_window_set_attached_to :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Widget -> -- attach_widget : TInterface "Gtk" "Widget" - IO () - - -windowSetAttachedTo :: - (MonadIO m, WindowK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- attach_widget - m () -windowSetAttachedTo _obj attach_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAttach_widget <- case attach_widget of - Nothing -> return nullPtr - Just jAttach_widget -> do - let jAttach_widget' = unsafeManagedPtrCastPtr jAttach_widget - return jAttach_widget' - gtk_window_set_attached_to _obj' maybeAttach_widget - touchManagedPtr _obj - whenJust attach_widget touchManagedPtr - return () - --- method Window::set_decorated --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_decorated" gtk_window_set_decorated :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetDecorated :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetDecorated _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_decorated _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_default" gtk_window_set_default :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Widget -> -- default_widget : TInterface "Gtk" "Widget" - IO () - - -windowSetDefault :: - (MonadIO m, WindowK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- default_widget - m () -windowSetDefault _obj default_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeDefault_widget <- case default_widget of - Nothing -> return nullPtr - Just jDefault_widget -> do - let jDefault_widget' = unsafeManagedPtrCastPtr jDefault_widget - return jDefault_widget' - gtk_window_set_default _obj' maybeDefault_widget - touchManagedPtr _obj - whenJust default_widget touchManagedPtr - return () - --- method Window::set_default_geometry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_default_geometry" gtk_window_set_default_geometry :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -windowSetDefaultGeometry :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -windowSetDefaultGeometry _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_set_default_geometry _obj' width height - touchManagedPtr _obj - return () - --- method Window::set_default_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_default_size" gtk_window_set_default_size :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -windowSetDefaultSize :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -windowSetDefaultSize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_set_default_size _obj' width height - touchManagedPtr _obj - return () - --- method Window::set_deletable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_deletable" gtk_window_set_deletable :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetDeletable :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetDeletable _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_deletable _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_destroy_with_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_destroy_with_parent" gtk_window_set_destroy_with_parent :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetDestroyWithParent :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetDestroyWithParent _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_destroy_with_parent _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_focus" gtk_window_set_focus :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Widget -> -- focus : TInterface "Gtk" "Widget" - IO () - - -windowSetFocus :: - (MonadIO m, WindowK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- focus - m () -windowSetFocus _obj focus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFocus <- case focus of - Nothing -> return nullPtr - Just jFocus -> do - let jFocus' = unsafeManagedPtrCastPtr jFocus - return jFocus' - gtk_window_set_focus _obj' maybeFocus - touchManagedPtr _obj - whenJust focus touchManagedPtr - return () - --- method Window::set_focus_on_map --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_focus_on_map" gtk_window_set_focus_on_map :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetFocusOnMap :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetFocusOnMap _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_focus_on_map _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_focus_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_focus_visible" gtk_window_set_focus_visible :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetFocusVisible :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetFocusVisible _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_focus_visible _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_geometry_hints --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_geometry_hints" gtk_window_set_geometry_hints :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Widget -> -- geometry_widget : TInterface "Gtk" "Widget" - Ptr Gdk.Geometry -> -- geometry : TInterface "Gdk" "Geometry" - CUInt -> -- geom_mask : TInterface "Gdk" "WindowHints" - IO () - - -windowSetGeometryHints :: - (MonadIO m, WindowK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- geometry_widget - Maybe (Gdk.Geometry) -> -- geometry - [Gdk.WindowHints] -> -- geom_mask - m () -windowSetGeometryHints _obj geometry_widget geometry geom_mask = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeGeometry_widget <- case geometry_widget of - Nothing -> return nullPtr - Just jGeometry_widget -> do - let jGeometry_widget' = unsafeManagedPtrCastPtr jGeometry_widget - return jGeometry_widget' - maybeGeometry <- case geometry of - Nothing -> return nullPtr - Just jGeometry -> do - let jGeometry' = unsafeManagedPtrGetPtr jGeometry - return jGeometry' - let geom_mask' = gflagsToWord geom_mask - gtk_window_set_geometry_hints _obj' maybeGeometry_widget maybeGeometry geom_mask' - touchManagedPtr _obj - whenJust geometry_widget touchManagedPtr - whenJust geometry touchManagedPtr - return () - --- method Window::set_gravity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Gdk" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Gdk" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_gravity" gtk_window_set_gravity :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CUInt -> -- gravity : TInterface "Gdk" "Gravity" - IO () - - -windowSetGravity :: - (MonadIO m, WindowK a) => - a -> -- _obj - Gdk.Gravity -> -- gravity - m () -windowSetGravity _obj gravity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let gravity' = (fromIntegral . fromEnum) gravity - gtk_window_set_gravity _obj' gravity' - touchManagedPtr _obj - return () - --- method Window::set_has_resize_grip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_has_resize_grip" gtk_window_set_has_resize_grip :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- value : TBasicType TBoolean - IO () - -{-# DEPRECATED windowSetHasResizeGrip ["(Since version 3.14)","Resize grips have been removed."]#-} -windowSetHasResizeGrip :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- value - m () -windowSetHasResizeGrip _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = (fromIntegral . fromEnum) value - gtk_window_set_has_resize_grip _obj' value' - touchManagedPtr _obj - return () - --- method Window::set_has_user_ref_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_has_user_ref_count" gtk_window_set_has_user_ref_count :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetHasUserRefCount :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetHasUserRefCount _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_has_user_ref_count _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_hide_titlebar_when_maximized --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_hide_titlebar_when_maximized" gtk_window_set_hide_titlebar_when_maximized :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetHideTitlebarWhenMaximized :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetHideTitlebarWhenMaximized _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_hide_titlebar_when_maximized _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_icon" gtk_window_set_icon :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr GdkPixbuf.Pixbuf -> -- icon : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -windowSetIcon :: - (MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => - a -> -- _obj - Maybe (b) -> -- icon - m () -windowSetIcon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon <- case icon of - Nothing -> return nullPtr - Just jIcon -> do - let jIcon' = unsafeManagedPtrCastPtr jIcon - return jIcon' - gtk_window_set_icon _obj' maybeIcon - touchManagedPtr _obj - whenJust icon touchManagedPtr - return () - --- method Window::set_icon_from_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_window_set_icon_from_file" gtk_window_set_icon_from_file :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- filename : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -windowSetIconFromFile :: - (MonadIO m, WindowK a) => - a -> -- _obj - [Char] -> -- filename - m () -windowSetIconFromFile _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - onException (do - _ <- propagateGError $ gtk_window_set_icon_from_file _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - ) (do - freeMem filename' - ) - --- method Window::set_icon_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_icon_list" gtk_window_set_icon_list :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr (GList (Ptr GdkPixbuf.Pixbuf)) -> -- list : TGList (TInterface "GdkPixbuf" "Pixbuf") - IO () - - -windowSetIconList :: - (MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => - a -> -- _obj - [b] -> -- list - m () -windowSetIconList _obj list = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let list' = map unsafeManagedPtrCastPtr list - list'' <- packGList list' - gtk_window_set_icon_list _obj' list'' - touchManagedPtr _obj - mapM_ touchManagedPtr list - g_list_free list'' - return () - --- method Window::set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_icon_name" gtk_window_set_icon_name :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- name : TBasicType TUTF8 - IO () - - -windowSetIconName :: - (MonadIO m, WindowK a) => - a -> -- _obj - Maybe (T.Text) -> -- name - m () -windowSetIconName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - gtk_window_set_icon_name _obj' maybeName - touchManagedPtr _obj - freeMem maybeName - return () - --- method Window::set_keep_above --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_keep_above" gtk_window_set_keep_above :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetKeepAbove :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetKeepAbove _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_keep_above _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_keep_below --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_keep_below" gtk_window_set_keep_below :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetKeepBelow :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetKeepBelow _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_keep_below _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_mnemonic_modifier --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_mnemonic_modifier" gtk_window_set_mnemonic_modifier :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CUInt -> -- modifier : TInterface "Gdk" "ModifierType" - IO () - - -windowSetMnemonicModifier :: - (MonadIO m, WindowK a) => - a -> -- _obj - [Gdk.ModifierType] -> -- modifier - m () -windowSetMnemonicModifier _obj modifier = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let modifier' = gflagsToWord modifier - gtk_window_set_mnemonic_modifier _obj' modifier' - touchManagedPtr _obj - return () - --- method Window::set_mnemonics_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_mnemonics_visible" gtk_window_set_mnemonics_visible :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetMnemonicsVisible :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetMnemonicsVisible _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_mnemonics_visible _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_modal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_modal" gtk_window_set_modal :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- modal : TBasicType TBoolean - IO () - - -windowSetModal :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- modal - m () -windowSetModal _obj modal = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let modal' = (fromIntegral . fromEnum) modal - gtk_window_set_modal _obj' modal' - touchManagedPtr _obj - return () - --- method Window::set_opacity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_opacity" gtk_window_set_opacity :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CDouble -> -- opacity : TBasicType TDouble - IO () - -{-# DEPRECATED windowSetOpacity ["(Since version 3.8)","Use gtk_widget_set_opacity instead."]#-} -windowSetOpacity :: - (MonadIO m, WindowK a) => - a -> -- _obj - Double -> -- opacity - m () -windowSetOpacity _obj opacity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let opacity' = realToFrac opacity - gtk_window_set_opacity _obj' opacity' - touchManagedPtr _obj - return () - --- method Window::set_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "WindowPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "WindowPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_position" gtk_window_set_position :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CUInt -> -- position : TInterface "Gtk" "WindowPosition" - IO () - - -windowSetPosition :: - (MonadIO m, WindowK a) => - a -> -- _obj - WindowPosition -> -- position - m () -windowSetPosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let position' = (fromIntegral . fromEnum) position - gtk_window_set_position _obj' position' - touchManagedPtr _obj - return () - --- method Window::set_resizable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_resizable" gtk_window_set_resizable :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- resizable : TBasicType TBoolean - IO () - - -windowSetResizable :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- resizable - m () -windowSetResizable _obj resizable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let resizable' = (fromIntegral . fromEnum) resizable - gtk_window_set_resizable _obj' resizable' - touchManagedPtr _obj - return () - --- method Window::set_role --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_role" gtk_window_set_role :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- role : TBasicType TUTF8 - IO () - - -windowSetRole :: - (MonadIO m, WindowK a) => - a -> -- _obj - T.Text -> -- role - m () -windowSetRole _obj role = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - role' <- textToCString role - gtk_window_set_role _obj' role' - touchManagedPtr _obj - freeMem role' - return () - --- method Window::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_screen" gtk_window_set_screen :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO () - - -windowSetScreen :: - (MonadIO m, WindowK a, Gdk.ScreenK b) => - a -> -- _obj - b -> -- screen - m () -windowSetScreen _obj screen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gtk_window_set_screen _obj' screen' - touchManagedPtr _obj - touchManagedPtr screen - return () - --- method Window::set_skip_pager_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_skip_pager_hint" gtk_window_set_skip_pager_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetSkipPagerHint :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetSkipPagerHint _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_skip_pager_hint _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_skip_taskbar_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_skip_taskbar_hint" gtk_window_set_skip_taskbar_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetSkipTaskbarHint :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetSkipTaskbarHint _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_skip_taskbar_hint _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_startup_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_startup_id" gtk_window_set_startup_id :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- startup_id : TBasicType TUTF8 - IO () - - -windowSetStartupId :: - (MonadIO m, WindowK a) => - a -> -- _obj - T.Text -> -- startup_id - m () -windowSetStartupId _obj startup_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - startup_id' <- textToCString startup_id - gtk_window_set_startup_id _obj' startup_id' - touchManagedPtr _obj - freeMem startup_id' - return () - --- method Window::set_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_title" gtk_window_set_title :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- title : TBasicType TUTF8 - IO () - - -windowSetTitle :: - (MonadIO m, WindowK a) => - a -> -- _obj - T.Text -> -- title - m () -windowSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_window_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - --- method Window::set_titlebar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "titlebar", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "titlebar", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_titlebar" gtk_window_set_titlebar :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Widget -> -- titlebar : TInterface "Gtk" "Widget" - IO () - - -windowSetTitlebar :: - (MonadIO m, WindowK a, WidgetK b) => - a -> -- _obj - Maybe (b) -> -- titlebar - m () -windowSetTitlebar _obj titlebar = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTitlebar <- case titlebar of - Nothing -> return nullPtr - Just jTitlebar -> do - let jTitlebar' = unsafeManagedPtrCastPtr jTitlebar - return jTitlebar' - gtk_window_set_titlebar _obj' maybeTitlebar - touchManagedPtr _obj - whenJust titlebar touchManagedPtr - return () - --- method Window::set_transient_for --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_transient_for" gtk_window_set_transient_for :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Window -> -- parent : TInterface "Gtk" "Window" - IO () - - -windowSetTransientFor :: - (MonadIO m, WindowK a, WindowK b) => - a -> -- _obj - Maybe (b) -> -- parent - m () -windowSetTransientFor _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - gtk_window_set_transient_for _obj' maybeParent - touchManagedPtr _obj - whenJust parent touchManagedPtr - return () - --- method Window::set_type_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_type_hint" gtk_window_set_type_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CUInt -> -- hint : TInterface "Gdk" "WindowTypeHint" - IO () - - -windowSetTypeHint :: - (MonadIO m, WindowK a) => - a -> -- _obj - Gdk.WindowTypeHint -> -- hint - m () -windowSetTypeHint _obj hint = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hint' = (fromIntegral . fromEnum) hint - gtk_window_set_type_hint _obj' hint' - touchManagedPtr _obj - return () - --- method Window::set_urgency_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_urgency_hint" gtk_window_set_urgency_hint :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetUrgencyHint :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- setting - m () -windowSetUrgencyHint _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_urgency_hint _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_wmclass --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wmclass_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wmclass_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wmclass_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wmclass_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_wmclass" gtk_window_set_wmclass :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - CString -> -- wmclass_name : TBasicType TUTF8 - CString -> -- wmclass_class : TBasicType TUTF8 - IO () - - -windowSetWmclass :: - (MonadIO m, WindowK a) => - a -> -- _obj - T.Text -> -- wmclass_name - T.Text -> -- wmclass_class - m () -windowSetWmclass _obj wmclass_name wmclass_class = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - wmclass_name' <- textToCString wmclass_name - wmclass_class' <- textToCString wmclass_class - gtk_window_set_wmclass _obj' wmclass_name' wmclass_class' - touchManagedPtr _obj - freeMem wmclass_name' - freeMem wmclass_class' - return () - --- method Window::stick --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_stick" gtk_window_stick :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowStick :: - (MonadIO m, WindowK a) => - a -> -- _obj - m () -windowStick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_stick _obj' - touchManagedPtr _obj - return () - --- method Window::unfullscreen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_unfullscreen" gtk_window_unfullscreen :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowUnfullscreen :: - (MonadIO m, WindowK a) => - a -> -- _obj - m () -windowUnfullscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_unfullscreen _obj' - touchManagedPtr _obj - return () - --- method Window::unmaximize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_unmaximize" gtk_window_unmaximize :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowUnmaximize :: - (MonadIO m, WindowK a) => - a -> -- _obj - m () -windowUnmaximize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_unmaximize _obj' - touchManagedPtr _obj - return () - --- method Window::unstick --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_unstick" gtk_window_unstick :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - IO () - - -windowUnstick :: - (MonadIO m, WindowK a) => - a -> -- _obj - m () -windowUnstick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_unstick _obj' - touchManagedPtr _obj - return () - --- method Window::get_default_icon_list --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TGList (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_default_icon_list" gtk_window_get_default_icon_list :: - IO (Ptr (GList (Ptr GdkPixbuf.Pixbuf))) - - -windowGetDefaultIconList :: - (MonadIO m) => - m [GdkPixbuf.Pixbuf] -windowGetDefaultIconList = liftIO $ do - result <- gtk_window_get_default_icon_list - checkUnexpectedReturnNULL "gtk_window_get_default_icon_list" result - result' <- unpackGList result - result'' <- mapM (newObject GdkPixbuf.Pixbuf) result' - g_list_free result - return result'' - --- method Window::get_default_icon_name --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_get_default_icon_name" gtk_window_get_default_icon_name :: - IO CString - - -windowGetDefaultIconName :: - (MonadIO m) => - m T.Text -windowGetDefaultIconName = liftIO $ do - result <- gtk_window_get_default_icon_name - checkUnexpectedReturnNULL "gtk_window_get_default_icon_name" result - result' <- cstringToText result - return result' - --- method Window::list_toplevels --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TGList (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_list_toplevels" gtk_window_list_toplevels :: - IO (Ptr (GList (Ptr Widget))) - - -windowListToplevels :: - (MonadIO m) => - m [Widget] -windowListToplevels = liftIO $ do - result <- gtk_window_list_toplevels - checkUnexpectedReturnNULL "gtk_window_list_toplevels" result - result' <- unpackGList result - result'' <- mapM (newObject Widget) result' - g_list_free result - return result'' - --- method Window::set_auto_startup_notification --- method type : MemberFunction --- Args : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_auto_startup_notification" gtk_window_set_auto_startup_notification :: - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetAutoStartupNotification :: - (MonadIO m) => - Bool -> -- setting - m () -windowSetAutoStartupNotification setting = liftIO $ do - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_auto_startup_notification setting' - return () - --- method Window::set_default_icon --- method type : MemberFunction --- Args : [Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_default_icon" gtk_window_set_default_icon :: - Ptr GdkPixbuf.Pixbuf -> -- icon : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -windowSetDefaultIcon :: - (MonadIO m, GdkPixbuf.PixbufK a) => - a -> -- icon - m () -windowSetDefaultIcon icon = liftIO $ do - let icon' = unsafeManagedPtrCastPtr icon - gtk_window_set_default_icon icon' - touchManagedPtr icon - return () - --- method Window::set_default_icon_from_file --- method type : MemberFunction --- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_window_set_default_icon_from_file" gtk_window_set_default_icon_from_file :: - CString -> -- filename : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CInt - - -windowSetDefaultIconFromFile :: - (MonadIO m) => - [Char] -> -- filename - m () -windowSetDefaultIconFromFile filename = liftIO $ do - filename' <- stringToCString filename - onException (do - _ <- propagateGError $ gtk_window_set_default_icon_from_file filename' - freeMem filename' - return () - ) (do - freeMem filename' - ) - --- method Window::set_default_icon_list --- method type : MemberFunction --- Args : [Arg {argName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer}] --- Lengths : [] --- hInArgs : [Arg {argName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_default_icon_list" gtk_window_set_default_icon_list :: - Ptr (GList (Ptr GdkPixbuf.Pixbuf)) -> -- list : TGList (TInterface "GdkPixbuf" "Pixbuf") - IO () - - -windowSetDefaultIconList :: - (MonadIO m, GdkPixbuf.PixbufK a) => - [a] -> -- list - m () -windowSetDefaultIconList list = liftIO $ do - let list' = map unsafeManagedPtrCastPtr list - list'' <- packGList list' - gtk_window_set_default_icon_list list'' - mapM_ touchManagedPtr list - return () - --- method Window::set_default_icon_name --- method type : MemberFunction --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_default_icon_name" gtk_window_set_default_icon_name :: - CString -> -- name : TBasicType TUTF8 - IO () - - -windowSetDefaultIconName :: - (MonadIO m) => - T.Text -> -- name - m () -windowSetDefaultIconName name = liftIO $ do - name' <- textToCString name - gtk_window_set_default_icon_name name' - freeMem name' - return () - --- method Window::set_interactive_debugging --- method type : MemberFunction --- Args : [Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_interactive_debugging" gtk_window_set_interactive_debugging :: - CInt -> -- enable : TBasicType TBoolean - IO () - - -windowSetInteractiveDebugging :: - (MonadIO m) => - Bool -> -- enable - m () + +{- | +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.Objects.Window + ( + +-- * Exported types + Window(..) , + WindowK , + toWindow , + noWindow , + + + -- * Methods +-- ** windowActivateDefault + WindowActivateDefaultMethodInfo , + windowActivateDefault , + + +-- ** windowActivateFocus + WindowActivateFocusMethodInfo , + windowActivateFocus , + + +-- ** windowActivateKey + WindowActivateKeyMethodInfo , + windowActivateKey , + + +-- ** windowAddAccelGroup + WindowAddAccelGroupMethodInfo , + windowAddAccelGroup , + + +-- ** windowAddMnemonic + WindowAddMnemonicMethodInfo , + windowAddMnemonic , + + +-- ** windowBeginMoveDrag + WindowBeginMoveDragMethodInfo , + windowBeginMoveDrag , + + +-- ** windowBeginResizeDrag + WindowBeginResizeDragMethodInfo , + windowBeginResizeDrag , + + +-- ** windowClose + WindowCloseMethodInfo , + windowClose , + + +-- ** windowDeiconify + WindowDeiconifyMethodInfo , + windowDeiconify , + + +-- ** windowFullscreen + WindowFullscreenMethodInfo , + windowFullscreen , + + +-- ** windowFullscreenOnMonitor + WindowFullscreenOnMonitorMethodInfo , + windowFullscreenOnMonitor , + + +-- ** windowGetAcceptFocus + WindowGetAcceptFocusMethodInfo , + windowGetAcceptFocus , + + +-- ** windowGetApplication + WindowGetApplicationMethodInfo , + windowGetApplication , + + +-- ** windowGetAttachedTo + WindowGetAttachedToMethodInfo , + windowGetAttachedTo , + + +-- ** windowGetDecorated + WindowGetDecoratedMethodInfo , + windowGetDecorated , + + +-- ** windowGetDefaultIconList + windowGetDefaultIconList , + + +-- ** windowGetDefaultIconName + windowGetDefaultIconName , + + +-- ** windowGetDefaultSize + WindowGetDefaultSizeMethodInfo , + windowGetDefaultSize , + + +-- ** windowGetDefaultWidget + WindowGetDefaultWidgetMethodInfo , + windowGetDefaultWidget , + + +-- ** windowGetDeletable + WindowGetDeletableMethodInfo , + windowGetDeletable , + + +-- ** windowGetDestroyWithParent + WindowGetDestroyWithParentMethodInfo , + windowGetDestroyWithParent , + + +-- ** windowGetFocus + WindowGetFocusMethodInfo , + windowGetFocus , + + +-- ** windowGetFocusOnMap + WindowGetFocusOnMapMethodInfo , + windowGetFocusOnMap , + + +-- ** windowGetFocusVisible + WindowGetFocusVisibleMethodInfo , + windowGetFocusVisible , + + +-- ** windowGetGravity + WindowGetGravityMethodInfo , + windowGetGravity , + + +-- ** windowGetGroup + WindowGetGroupMethodInfo , + windowGetGroup , + + +-- ** windowGetHasResizeGrip + WindowGetHasResizeGripMethodInfo , + windowGetHasResizeGrip , + + +-- ** windowGetHideTitlebarWhenMaximized + WindowGetHideTitlebarWhenMaximizedMethodInfo, + windowGetHideTitlebarWhenMaximized , + + +-- ** windowGetIcon + WindowGetIconMethodInfo , + windowGetIcon , + + +-- ** windowGetIconList + WindowGetIconListMethodInfo , + windowGetIconList , + + +-- ** windowGetIconName + WindowGetIconNameMethodInfo , + windowGetIconName , + + +-- ** windowGetMnemonicModifier + WindowGetMnemonicModifierMethodInfo , + windowGetMnemonicModifier , + + +-- ** windowGetMnemonicsVisible + WindowGetMnemonicsVisibleMethodInfo , + windowGetMnemonicsVisible , + + +-- ** windowGetModal + WindowGetModalMethodInfo , + windowGetModal , + + +-- ** windowGetOpacity + WindowGetOpacityMethodInfo , + windowGetOpacity , + + +-- ** windowGetPosition + WindowGetPositionMethodInfo , + windowGetPosition , + + +-- ** windowGetResizable + WindowGetResizableMethodInfo , + windowGetResizable , + + +-- ** windowGetResizeGripArea + WindowGetResizeGripAreaMethodInfo , + windowGetResizeGripArea , + + +-- ** windowGetRole + WindowGetRoleMethodInfo , + windowGetRole , + + +-- ** windowGetScreen + WindowGetScreenMethodInfo , + windowGetScreen , + + +-- ** windowGetSize + WindowGetSizeMethodInfo , + windowGetSize , + + +-- ** windowGetSkipPagerHint + WindowGetSkipPagerHintMethodInfo , + windowGetSkipPagerHint , + + +-- ** windowGetSkipTaskbarHint + WindowGetSkipTaskbarHintMethodInfo , + windowGetSkipTaskbarHint , + + +-- ** windowGetTitle + WindowGetTitleMethodInfo , + windowGetTitle , + + +-- ** windowGetTitlebar + WindowGetTitlebarMethodInfo , + windowGetTitlebar , + + +-- ** windowGetTransientFor + WindowGetTransientForMethodInfo , + windowGetTransientFor , + + +-- ** windowGetTypeHint + WindowGetTypeHintMethodInfo , + windowGetTypeHint , + + +-- ** windowGetUrgencyHint + WindowGetUrgencyHintMethodInfo , + windowGetUrgencyHint , + + +-- ** windowGetWindowType + WindowGetWindowTypeMethodInfo , + windowGetWindowType , + + +-- ** windowHasGroup + WindowHasGroupMethodInfo , + windowHasGroup , + + +-- ** windowHasToplevelFocus + WindowHasToplevelFocusMethodInfo , + windowHasToplevelFocus , + + +-- ** windowIconify + WindowIconifyMethodInfo , + windowIconify , + + +-- ** windowIsActive + WindowIsActiveMethodInfo , + windowIsActive , + + +-- ** windowIsMaximized + WindowIsMaximizedMethodInfo , + windowIsMaximized , + + +-- ** windowListToplevels + windowListToplevels , + + +-- ** windowMaximize + WindowMaximizeMethodInfo , + windowMaximize , + + +-- ** windowMnemonicActivate + WindowMnemonicActivateMethodInfo , + windowMnemonicActivate , + + +-- ** windowMove + WindowMoveMethodInfo , + windowMove , + + +-- ** windowNew + windowNew , + + +-- ** windowParseGeometry + WindowParseGeometryMethodInfo , + windowParseGeometry , + + +-- ** windowPresent + WindowPresentMethodInfo , + windowPresent , + + +-- ** windowPresentWithTime + WindowPresentWithTimeMethodInfo , + windowPresentWithTime , + + +-- ** windowPropagateKeyEvent + WindowPropagateKeyEventMethodInfo , + windowPropagateKeyEvent , + + +-- ** windowRemoveAccelGroup + WindowRemoveAccelGroupMethodInfo , + windowRemoveAccelGroup , + + +-- ** windowRemoveMnemonic + WindowRemoveMnemonicMethodInfo , + windowRemoveMnemonic , + + +-- ** windowReshowWithInitialSize + WindowReshowWithInitialSizeMethodInfo , + windowReshowWithInitialSize , + + +-- ** windowResize + WindowResizeMethodInfo , + windowResize , + + +-- ** windowResizeGripIsVisible + WindowResizeGripIsVisibleMethodInfo , + windowResizeGripIsVisible , + + +-- ** windowResizeToGeometry + WindowResizeToGeometryMethodInfo , + windowResizeToGeometry , + + +-- ** windowSetAcceptFocus + WindowSetAcceptFocusMethodInfo , + windowSetAcceptFocus , + + +-- ** windowSetApplication + WindowSetApplicationMethodInfo , + windowSetApplication , + + +-- ** windowSetAttachedTo + WindowSetAttachedToMethodInfo , + windowSetAttachedTo , + + +-- ** windowSetAutoStartupNotification + windowSetAutoStartupNotification , + + +-- ** windowSetDecorated + WindowSetDecoratedMethodInfo , + windowSetDecorated , + + +-- ** windowSetDefault + WindowSetDefaultMethodInfo , + windowSetDefault , + + +-- ** windowSetDefaultGeometry + WindowSetDefaultGeometryMethodInfo , + windowSetDefaultGeometry , + + +-- ** windowSetDefaultIcon + windowSetDefaultIcon , + + +-- ** windowSetDefaultIconFromFile + windowSetDefaultIconFromFile , + + +-- ** windowSetDefaultIconList + windowSetDefaultIconList , + + +-- ** windowSetDefaultIconName + windowSetDefaultIconName , + + +-- ** windowSetDefaultSize + WindowSetDefaultSizeMethodInfo , + windowSetDefaultSize , + + +-- ** windowSetDeletable + WindowSetDeletableMethodInfo , + windowSetDeletable , + + +-- ** windowSetDestroyWithParent + WindowSetDestroyWithParentMethodInfo , + windowSetDestroyWithParent , + + +-- ** windowSetFocus + WindowSetFocusMethodInfo , + windowSetFocus , + + +-- ** windowSetFocusOnMap + WindowSetFocusOnMapMethodInfo , + windowSetFocusOnMap , + + +-- ** windowSetFocusVisible + WindowSetFocusVisibleMethodInfo , + windowSetFocusVisible , + + +-- ** windowSetGeometryHints + WindowSetGeometryHintsMethodInfo , + windowSetGeometryHints , + + +-- ** windowSetGravity + WindowSetGravityMethodInfo , + windowSetGravity , + + +-- ** windowSetHasResizeGrip + WindowSetHasResizeGripMethodInfo , + windowSetHasResizeGrip , + + +-- ** windowSetHasUserRefCount + WindowSetHasUserRefCountMethodInfo , + windowSetHasUserRefCount , + + +-- ** windowSetHideTitlebarWhenMaximized + WindowSetHideTitlebarWhenMaximizedMethodInfo, + windowSetHideTitlebarWhenMaximized , + + +-- ** windowSetIcon + WindowSetIconMethodInfo , + windowSetIcon , + + +-- ** windowSetIconFromFile + WindowSetIconFromFileMethodInfo , + windowSetIconFromFile , + + +-- ** windowSetIconList + WindowSetIconListMethodInfo , + windowSetIconList , + + +-- ** windowSetIconName + WindowSetIconNameMethodInfo , + windowSetIconName , + + +-- ** windowSetInteractiveDebugging + windowSetInteractiveDebugging , + + +-- ** windowSetKeepAbove + WindowSetKeepAboveMethodInfo , + windowSetKeepAbove , + + +-- ** windowSetKeepBelow + WindowSetKeepBelowMethodInfo , + windowSetKeepBelow , + + +-- ** windowSetMnemonicModifier + WindowSetMnemonicModifierMethodInfo , + windowSetMnemonicModifier , + + +-- ** windowSetMnemonicsVisible + WindowSetMnemonicsVisibleMethodInfo , + windowSetMnemonicsVisible , + + +-- ** windowSetModal + WindowSetModalMethodInfo , + windowSetModal , + + +-- ** windowSetOpacity + WindowSetOpacityMethodInfo , + windowSetOpacity , + + +-- ** windowSetPosition + WindowSetPositionMethodInfo , + windowSetPosition , + + +-- ** windowSetResizable + WindowSetResizableMethodInfo , + windowSetResizable , + + +-- ** windowSetRole + WindowSetRoleMethodInfo , + windowSetRole , + + +-- ** windowSetScreen + WindowSetScreenMethodInfo , + windowSetScreen , + + +-- ** windowSetSkipPagerHint + WindowSetSkipPagerHintMethodInfo , + windowSetSkipPagerHint , + + +-- ** windowSetSkipTaskbarHint + WindowSetSkipTaskbarHintMethodInfo , + windowSetSkipTaskbarHint , + + +-- ** windowSetStartupId + WindowSetStartupIdMethodInfo , + windowSetStartupId , + + +-- ** windowSetTitle + WindowSetTitleMethodInfo , + windowSetTitle , + + +-- ** windowSetTitlebar + WindowSetTitlebarMethodInfo , + windowSetTitlebar , + + +-- ** windowSetTransientFor + WindowSetTransientForMethodInfo , + windowSetTransientFor , + + +-- ** windowSetTypeHint + WindowSetTypeHintMethodInfo , + windowSetTypeHint , + + +-- ** windowSetUrgencyHint + WindowSetUrgencyHintMethodInfo , + windowSetUrgencyHint , + + +-- ** windowSetWmclass + WindowSetWmclassMethodInfo , + windowSetWmclass , + + +-- ** windowStick + WindowStickMethodInfo , + windowStick , + + +-- ** windowUnfullscreen + WindowUnfullscreenMethodInfo , + windowUnfullscreen , + + +-- ** windowUnmaximize + WindowUnmaximizeMethodInfo , + windowUnmaximize , + + +-- ** windowUnstick + WindowUnstickMethodInfo , + windowUnstick , + + + + + -- * Properties +-- ** AcceptFocus + WindowAcceptFocusPropertyInfo , + constructWindowAcceptFocus , + getWindowAcceptFocus , + setWindowAcceptFocus , + + +-- ** Application + WindowApplicationPropertyInfo , + constructWindowApplication , + getWindowApplication , + setWindowApplication , + + +-- ** AttachedTo + WindowAttachedToPropertyInfo , + constructWindowAttachedTo , + getWindowAttachedTo , + setWindowAttachedTo , + + +-- ** Decorated + WindowDecoratedPropertyInfo , + constructWindowDecorated , + getWindowDecorated , + setWindowDecorated , + + +-- ** DefaultHeight + WindowDefaultHeightPropertyInfo , + constructWindowDefaultHeight , + getWindowDefaultHeight , + setWindowDefaultHeight , + + +-- ** DefaultWidth + WindowDefaultWidthPropertyInfo , + constructWindowDefaultWidth , + getWindowDefaultWidth , + setWindowDefaultWidth , + + +-- ** Deletable + WindowDeletablePropertyInfo , + constructWindowDeletable , + getWindowDeletable , + setWindowDeletable , + + +-- ** DestroyWithParent + WindowDestroyWithParentPropertyInfo , + constructWindowDestroyWithParent , + getWindowDestroyWithParent , + setWindowDestroyWithParent , + + +-- ** FocusOnMap + WindowFocusOnMapPropertyInfo , + constructWindowFocusOnMap , + getWindowFocusOnMap , + setWindowFocusOnMap , + + +-- ** FocusVisible + WindowFocusVisiblePropertyInfo , + constructWindowFocusVisible , + getWindowFocusVisible , + setWindowFocusVisible , + + +-- ** Gravity + WindowGravityPropertyInfo , + constructWindowGravity , + getWindowGravity , + setWindowGravity , + + +-- ** HasResizeGrip + WindowHasResizeGripPropertyInfo , + constructWindowHasResizeGrip , + getWindowHasResizeGrip , + setWindowHasResizeGrip , + + +-- ** HasToplevelFocus + WindowHasToplevelFocusPropertyInfo , + getWindowHasToplevelFocus , + + +-- ** HideTitlebarWhenMaximized + WindowHideTitlebarWhenMaximizedPropertyInfo, + constructWindowHideTitlebarWhenMaximized, + getWindowHideTitlebarWhenMaximized , + setWindowHideTitlebarWhenMaximized , + + +-- ** Icon + WindowIconPropertyInfo , + constructWindowIcon , + getWindowIcon , + setWindowIcon , + + +-- ** IconName + WindowIconNamePropertyInfo , + constructWindowIconName , + getWindowIconName , + setWindowIconName , + + +-- ** IsActive + WindowIsActivePropertyInfo , + getWindowIsActive , + + +-- ** IsMaximized + WindowIsMaximizedPropertyInfo , + getWindowIsMaximized , + + +-- ** MnemonicsVisible + WindowMnemonicsVisiblePropertyInfo , + constructWindowMnemonicsVisible , + getWindowMnemonicsVisible , + setWindowMnemonicsVisible , + + +-- ** Modal + WindowModalPropertyInfo , + constructWindowModal , + getWindowModal , + setWindowModal , + + +-- ** Resizable + WindowResizablePropertyInfo , + constructWindowResizable , + getWindowResizable , + setWindowResizable , + + +-- ** ResizeGripVisible + WindowResizeGripVisiblePropertyInfo , + getWindowResizeGripVisible , + + +-- ** Role + WindowRolePropertyInfo , + constructWindowRole , + getWindowRole , + setWindowRole , + + +-- ** Screen + WindowScreenPropertyInfo , + constructWindowScreen , + getWindowScreen , + setWindowScreen , + + +-- ** SkipPagerHint + WindowSkipPagerHintPropertyInfo , + constructWindowSkipPagerHint , + getWindowSkipPagerHint , + setWindowSkipPagerHint , + + +-- ** SkipTaskbarHint + WindowSkipTaskbarHintPropertyInfo , + constructWindowSkipTaskbarHint , + getWindowSkipTaskbarHint , + setWindowSkipTaskbarHint , + + +-- ** StartupId + WindowStartupIdPropertyInfo , + constructWindowStartupId , + setWindowStartupId , + + +-- ** Title + WindowTitlePropertyInfo , + constructWindowTitle , + getWindowTitle , + setWindowTitle , + + +-- ** TransientFor + WindowTransientForPropertyInfo , + constructWindowTransientFor , + getWindowTransientFor , + setWindowTransientFor , + + +-- ** Type + WindowTypePropertyInfo , + constructWindowType , + getWindowType , + + +-- ** TypeHint + WindowTypeHintPropertyInfo , + constructWindowTypeHint , + getWindowTypeHint , + setWindowTypeHint , + + +-- ** UrgencyHint + WindowUrgencyHintPropertyInfo , + constructWindowUrgencyHint , + getWindowUrgencyHint , + setWindowUrgencyHint , + + +-- ** WindowPosition + WindowWindowPositionPropertyInfo , + constructWindowWindowPosition , + getWindowWindowPosition , + setWindowWindowPosition , + + + + + -- * Signals +-- ** ActivateDefault + WindowActivateDefaultCallback , + WindowActivateDefaultCallbackC , + WindowActivateDefaultSignalInfo , + afterWindowActivateDefault , + mkWindowActivateDefaultCallback , + noWindowActivateDefaultCallback , + onWindowActivateDefault , + windowActivateDefaultCallbackWrapper , + windowActivateDefaultClosure , + + +-- ** ActivateFocus + WindowActivateFocusCallback , + WindowActivateFocusCallbackC , + WindowActivateFocusSignalInfo , + afterWindowActivateFocus , + mkWindowActivateFocusCallback , + noWindowActivateFocusCallback , + onWindowActivateFocus , + windowActivateFocusCallbackWrapper , + windowActivateFocusClosure , + + +-- ** EnableDebugging + WindowEnableDebuggingCallback , + WindowEnableDebuggingCallbackC , + WindowEnableDebuggingSignalInfo , + afterWindowEnableDebugging , + mkWindowEnableDebuggingCallback , + noWindowEnableDebuggingCallback , + onWindowEnableDebugging , + windowEnableDebuggingCallbackWrapper , + windowEnableDebuggingClosure , + + +-- ** KeysChanged + WindowKeysChangedCallback , + WindowKeysChangedCallbackC , + WindowKeysChangedSignalInfo , + afterWindowKeysChanged , + mkWindowKeysChangedCallback , + noWindowKeysChangedCallback , + onWindowKeysChanged , + windowKeysChangedCallbackWrapper , + windowKeysChangedClosure , + + +-- ** SetFocus + WindowSetFocusCallback , + WindowSetFocusCallbackC , + WindowSetFocusSignalInfo , + afterWindowSetFocus , + mkWindowSetFocusCallback , + noWindowSetFocusCallback , + onWindowSetFocus , + windowSetFocusCallbackWrapper , + windowSetFocusClosure , + + + + + ) 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.Atk as Atk +import qualified GI.GObject as GObject +import qualified GI.Gdk as Gdk +import qualified GI.GdkPixbuf as GdkPixbuf + +newtype Window = Window (ForeignPtr Window) +foreign import ccall "gtk_window_get_type" + c_gtk_window_get_type :: IO GType + +type instance ParentTypes Window = WindowParentTypes +type WindowParentTypes = '[Bin, Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable] + +instance GObject Window where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_gtk_window_get_type + + +class GObject o => WindowK o +instance (GObject o, IsDescendantOf Window o) => WindowK o + +toWindow :: WindowK o => o -> IO Window +toWindow = unsafeCastTo Window + +noWindow :: Maybe Window +noWindow = Nothing + +type family ResolveWindowMethod (t :: Symbol) (o :: *) :: * where + ResolveWindowMethod "activate" o = WidgetActivateMethodInfo + ResolveWindowMethod "activateDefault" o = WindowActivateDefaultMethodInfo + ResolveWindowMethod "activateFocus" o = WindowActivateFocusMethodInfo + ResolveWindowMethod "activateKey" o = WindowActivateKeyMethodInfo + ResolveWindowMethod "add" o = ContainerAddMethodInfo + ResolveWindowMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo + ResolveWindowMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveWindowMethod "addChild" o = BuildableAddChildMethodInfo + ResolveWindowMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveWindowMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveWindowMethod "addMnemonic" o = WindowAddMnemonicMethodInfo + ResolveWindowMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveWindowMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveWindowMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo + ResolveWindowMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo + ResolveWindowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWindowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWindowMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveWindowMethod "checkResize" o = ContainerCheckResizeMethodInfo + ResolveWindowMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveWindowMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo + ResolveWindowMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo + ResolveWindowMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo + ResolveWindowMethod "childType" o = ContainerChildTypeMethodInfo + ResolveWindowMethod "classPath" o = WidgetClassPathMethodInfo + ResolveWindowMethod "close" o = WindowCloseMethodInfo + ResolveWindowMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveWindowMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveWindowMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveWindowMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveWindowMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveWindowMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveWindowMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveWindowMethod "deiconify" o = WindowDeiconifyMethodInfo + ResolveWindowMethod "destroy" o = WidgetDestroyMethodInfo + ResolveWindowMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveWindowMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveWindowMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveWindowMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveWindowMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveWindowMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveWindowMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveWindowMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveWindowMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveWindowMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveWindowMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveWindowMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveWindowMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveWindowMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveWindowMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveWindowMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveWindowMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveWindowMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveWindowMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveWindowMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveWindowMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveWindowMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveWindowMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveWindowMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveWindowMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveWindowMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveWindowMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveWindowMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveWindowMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveWindowMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveWindowMethod "draw" o = WidgetDrawMethodInfo + ResolveWindowMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveWindowMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveWindowMethod "event" o = WidgetEventMethodInfo + ResolveWindowMethod "forall" o = ContainerForallMethodInfo + ResolveWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWindowMethod "foreach" o = ContainerForeachMethodInfo + ResolveWindowMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWindowMethod "fullscreen" o = WindowFullscreenMethodInfo + ResolveWindowMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo + ResolveWindowMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveWindowMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveWindowMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveWindowMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveWindowMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveWindowMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveWindowMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveWindowMethod "hasGroup" o = WindowHasGroupMethodInfo + ResolveWindowMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveWindowMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveWindowMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo + ResolveWindowMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveWindowMethod "hide" o = WidgetHideMethodInfo + ResolveWindowMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveWindowMethod "iconify" o = WindowIconifyMethodInfo + ResolveWindowMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveWindowMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveWindowMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveWindowMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveWindowMethod "intersect" o = WidgetIntersectMethodInfo + ResolveWindowMethod "isActive" o = WindowIsActiveMethodInfo + ResolveWindowMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveWindowMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveWindowMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveWindowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWindowMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveWindowMethod "isMaximized" o = WindowIsMaximizedMethodInfo + ResolveWindowMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveWindowMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveWindowMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveWindowMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveWindowMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveWindowMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveWindowMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveWindowMethod "map" o = WidgetMapMethodInfo + ResolveWindowMethod "maximize" o = WindowMaximizeMethodInfo + ResolveWindowMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveWindowMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveWindowMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveWindowMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveWindowMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveWindowMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveWindowMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveWindowMethod "move" o = WindowMoveMethodInfo + ResolveWindowMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWindowMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveWindowMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveWindowMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveWindowMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveWindowMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveWindowMethod "parseGeometry" o = WindowParseGeometryMethodInfo + ResolveWindowMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveWindowMethod "path" o = WidgetPathMethodInfo + ResolveWindowMethod "present" o = WindowPresentMethodInfo + ResolveWindowMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo + ResolveWindowMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo + ResolveWindowMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo + ResolveWindowMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveWindowMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveWindowMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveWindowMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveWindowMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveWindowMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveWindowMethod "realize" o = WidgetRealizeMethodInfo + ResolveWindowMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWindowMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveWindowMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveWindowMethod "remove" o = ContainerRemoveMethodInfo + ResolveWindowMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo + ResolveWindowMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveWindowMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo + ResolveWindowMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveWindowMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveWindowMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveWindowMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveWindowMethod "reparent" o = WidgetReparentMethodInfo + ResolveWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWindowMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveWindowMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveWindowMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo + ResolveWindowMethod "resize" o = WindowResizeMethodInfo + ResolveWindowMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo + ResolveWindowMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo + ResolveWindowMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo + ResolveWindowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWindowMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveWindowMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveWindowMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveWindowMethod "show" o = WidgetShowMethodInfo + ResolveWindowMethod "showAll" o = WidgetShowAllMethodInfo + ResolveWindowMethod "showNow" o = WidgetShowNowMethodInfo + ResolveWindowMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveWindowMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveWindowMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveWindowMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWindowMethod "stick" o = WindowStickMethodInfo + ResolveWindowMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveWindowMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveWindowMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWindowMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveWindowMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveWindowMethod "unfullscreen" o = WindowUnfullscreenMethodInfo + ResolveWindowMethod "unmap" o = WidgetUnmapMethodInfo + ResolveWindowMethod "unmaximize" o = WindowUnmaximizeMethodInfo + ResolveWindowMethod "unparent" o = WidgetUnparentMethodInfo + ResolveWindowMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWindowMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveWindowMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo + ResolveWindowMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveWindowMethod "unstick" o = WindowUnstickMethodInfo + ResolveWindowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWindowMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo + ResolveWindowMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveWindowMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveWindowMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveWindowMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveWindowMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveWindowMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveWindowMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveWindowMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveWindowMethod "getApplication" o = WindowGetApplicationMethodInfo + ResolveWindowMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo + ResolveWindowMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo + ResolveWindowMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveWindowMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveWindowMethod "getChild" o = BinGetChildMethodInfo + ResolveWindowMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveWindowMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveWindowMethod "getChildren" o = ContainerGetChildrenMethodInfo + ResolveWindowMethod "getClip" o = WidgetGetClipMethodInfo + ResolveWindowMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveWindowMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveWindowMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveWindowMethod "getDecorated" o = WindowGetDecoratedMethodInfo + ResolveWindowMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo + ResolveWindowMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo + ResolveWindowMethod "getDeletable" o = WindowGetDeletableMethodInfo + ResolveWindowMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo + ResolveWindowMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveWindowMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveWindowMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveWindowMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveWindowMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveWindowMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveWindowMethod "getFocus" o = WindowGetFocusMethodInfo + ResolveWindowMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo + ResolveWindowMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo + ResolveWindowMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo + ResolveWindowMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo + ResolveWindowMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo + ResolveWindowMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo + ResolveWindowMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveWindowMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveWindowMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveWindowMethod "getGravity" o = WindowGetGravityMethodInfo + ResolveWindowMethod "getGroup" o = WindowGetGroupMethodInfo + ResolveWindowMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveWindowMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo + ResolveWindowMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveWindowMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveWindowMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveWindowMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveWindowMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo + ResolveWindowMethod "getIcon" o = WindowGetIconMethodInfo + ResolveWindowMethod "getIconList" o = WindowGetIconListMethodInfo + ResolveWindowMethod "getIconName" o = WindowGetIconNameMethodInfo + ResolveWindowMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveWindowMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveWindowMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveWindowMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveWindowMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveWindowMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveWindowMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveWindowMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveWindowMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo + ResolveWindowMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo + ResolveWindowMethod "getModal" o = WindowGetModalMethodInfo + ResolveWindowMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveWindowMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveWindowMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveWindowMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveWindowMethod "getParent" o = WidgetGetParentMethodInfo + ResolveWindowMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveWindowMethod "getPath" o = WidgetGetPathMethodInfo + ResolveWindowMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo + ResolveWindowMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveWindowMethod "getPosition" o = WindowGetPositionMethodInfo + ResolveWindowMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveWindowMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveWindowMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveWindowMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveWindowMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveWindowMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveWindowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWindowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWindowMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveWindowMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveWindowMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveWindowMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveWindowMethod "getResizable" o = WindowGetResizableMethodInfo + ResolveWindowMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo + ResolveWindowMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo + ResolveWindowMethod "getRole" o = WindowGetRoleMethodInfo + ResolveWindowMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveWindowMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveWindowMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveWindowMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveWindowMethod "getSize" o = WindowGetSizeMethodInfo + ResolveWindowMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveWindowMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo + ResolveWindowMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo + ResolveWindowMethod "getState" o = WidgetGetStateMethodInfo + ResolveWindowMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveWindowMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveWindowMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveWindowMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveWindowMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveWindowMethod "getTitle" o = WindowGetTitleMethodInfo + ResolveWindowMethod "getTitlebar" o = WindowGetTitlebarMethodInfo + ResolveWindowMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveWindowMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveWindowMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveWindowMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveWindowMethod "getTransientFor" o = WindowGetTransientForMethodInfo + ResolveWindowMethod "getTypeHint" o = WindowGetTypeHintMethodInfo + ResolveWindowMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo + ResolveWindowMethod "getValign" o = WidgetGetValignMethodInfo + ResolveWindowMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveWindowMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveWindowMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveWindowMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveWindowMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveWindowMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveWindowMethod "getWindowType" o = WindowGetWindowTypeMethodInfo + ResolveWindowMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveWindowMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo + ResolveWindowMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveWindowMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveWindowMethod "setApplication" o = WindowSetApplicationMethodInfo + ResolveWindowMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo + ResolveWindowMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo + ResolveWindowMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveWindowMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveWindowMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveWindowMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveWindowMethod "setClip" o = WidgetSetClipMethodInfo + ResolveWindowMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveWindowMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWindowMethod "setDecorated" o = WindowSetDecoratedMethodInfo + ResolveWindowMethod "setDefault" o = WindowSetDefaultMethodInfo + ResolveWindowMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo + ResolveWindowMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo + ResolveWindowMethod "setDeletable" o = WindowSetDeletableMethodInfo + ResolveWindowMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo + ResolveWindowMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveWindowMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveWindowMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveWindowMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveWindowMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveWindowMethod "setFocus" o = WindowSetFocusMethodInfo + ResolveWindowMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo + ResolveWindowMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo + ResolveWindowMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo + ResolveWindowMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo + ResolveWindowMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo + ResolveWindowMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo + ResolveWindowMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveWindowMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveWindowMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo + ResolveWindowMethod "setGravity" o = WindowSetGravityMethodInfo + ResolveWindowMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveWindowMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo + ResolveWindowMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveWindowMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo + ResolveWindowMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveWindowMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveWindowMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveWindowMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo + ResolveWindowMethod "setIcon" o = WindowSetIconMethodInfo + ResolveWindowMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo + ResolveWindowMethod "setIconList" o = WindowSetIconListMethodInfo + ResolveWindowMethod "setIconName" o = WindowSetIconNameMethodInfo + ResolveWindowMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo + ResolveWindowMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo + ResolveWindowMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveWindowMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveWindowMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveWindowMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveWindowMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveWindowMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveWindowMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveWindowMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo + ResolveWindowMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo + ResolveWindowMethod "setModal" o = WindowSetModalMethodInfo + ResolveWindowMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveWindowMethod "setParent" o = WidgetSetParentMethodInfo + ResolveWindowMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveWindowMethod "setPosition" o = WindowSetPositionMethodInfo + ResolveWindowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWindowMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveWindowMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo + ResolveWindowMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveWindowMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveWindowMethod "setResizable" o = WindowSetResizableMethodInfo + ResolveWindowMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo + ResolveWindowMethod "setRole" o = WindowSetRoleMethodInfo + ResolveWindowMethod "setScreen" o = WindowSetScreenMethodInfo + ResolveWindowMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveWindowMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveWindowMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo + ResolveWindowMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo + ResolveWindowMethod "setStartupId" o = WindowSetStartupIdMethodInfo + ResolveWindowMethod "setState" o = WidgetSetStateMethodInfo + ResolveWindowMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveWindowMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveWindowMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveWindowMethod "setTitle" o = WindowSetTitleMethodInfo + ResolveWindowMethod "setTitlebar" o = WindowSetTitlebarMethodInfo + ResolveWindowMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveWindowMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveWindowMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveWindowMethod "setTransientFor" o = WindowSetTransientForMethodInfo + ResolveWindowMethod "setTypeHint" o = WindowSetTypeHintMethodInfo + ResolveWindowMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo + ResolveWindowMethod "setValign" o = WidgetSetValignMethodInfo + ResolveWindowMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveWindowMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveWindowMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveWindowMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveWindowMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveWindowMethod "setWmclass" o = WindowSetWmclassMethodInfo + ResolveWindowMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWindowMethod t Window, MethodInfo info Window p) => IsLabelProxy t (Window -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWindowMethod t Window, MethodInfo info Window p) => IsLabel t (Window -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- signal Window::activate-default +type WindowActivateDefaultCallback = + IO () + +noWindowActivateDefaultCallback :: Maybe WindowActivateDefaultCallback +noWindowActivateDefaultCallback = Nothing + +type WindowActivateDefaultCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowActivateDefaultCallback :: WindowActivateDefaultCallbackC -> IO (FunPtr WindowActivateDefaultCallbackC) + +windowActivateDefaultClosure :: WindowActivateDefaultCallback -> IO Closure +windowActivateDefaultClosure cb = newCClosure =<< mkWindowActivateDefaultCallback wrapped + where wrapped = windowActivateDefaultCallbackWrapper cb + +windowActivateDefaultCallbackWrapper :: + WindowActivateDefaultCallback -> + Ptr () -> + Ptr () -> + IO () +windowActivateDefaultCallbackWrapper _cb _ _ = do + _cb + +onWindowActivateDefault :: (GObject a, MonadIO m) => a -> WindowActivateDefaultCallback -> m SignalHandlerId +onWindowActivateDefault obj cb = liftIO $ connectWindowActivateDefault obj cb SignalConnectBefore +afterWindowActivateDefault :: (GObject a, MonadIO m) => a -> WindowActivateDefaultCallback -> m SignalHandlerId +afterWindowActivateDefault obj cb = connectWindowActivateDefault obj cb SignalConnectAfter + +connectWindowActivateDefault :: (GObject a, MonadIO m) => + a -> WindowActivateDefaultCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowActivateDefault obj cb after = liftIO $ do + cb' <- mkWindowActivateDefaultCallback (windowActivateDefaultCallbackWrapper cb) + connectSignalFunPtr obj "activate-default" cb' after + +-- signal Window::activate-focus +type WindowActivateFocusCallback = + IO () + +noWindowActivateFocusCallback :: Maybe WindowActivateFocusCallback +noWindowActivateFocusCallback = Nothing + +type WindowActivateFocusCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowActivateFocusCallback :: WindowActivateFocusCallbackC -> IO (FunPtr WindowActivateFocusCallbackC) + +windowActivateFocusClosure :: WindowActivateFocusCallback -> IO Closure +windowActivateFocusClosure cb = newCClosure =<< mkWindowActivateFocusCallback wrapped + where wrapped = windowActivateFocusCallbackWrapper cb + +windowActivateFocusCallbackWrapper :: + WindowActivateFocusCallback -> + Ptr () -> + Ptr () -> + IO () +windowActivateFocusCallbackWrapper _cb _ _ = do + _cb + +onWindowActivateFocus :: (GObject a, MonadIO m) => a -> WindowActivateFocusCallback -> m SignalHandlerId +onWindowActivateFocus obj cb = liftIO $ connectWindowActivateFocus obj cb SignalConnectBefore +afterWindowActivateFocus :: (GObject a, MonadIO m) => a -> WindowActivateFocusCallback -> m SignalHandlerId +afterWindowActivateFocus obj cb = connectWindowActivateFocus obj cb SignalConnectAfter + +connectWindowActivateFocus :: (GObject a, MonadIO m) => + a -> WindowActivateFocusCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowActivateFocus obj cb after = liftIO $ do + cb' <- mkWindowActivateFocusCallback (windowActivateFocusCallbackWrapper cb) + connectSignalFunPtr obj "activate-focus" cb' after + +-- signal Window::enable-debugging +type WindowEnableDebuggingCallback = + Bool -> + IO Bool + +noWindowEnableDebuggingCallback :: Maybe WindowEnableDebuggingCallback +noWindowEnableDebuggingCallback = Nothing + +type WindowEnableDebuggingCallbackC = + Ptr () -> -- object + CInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWindowEnableDebuggingCallback :: WindowEnableDebuggingCallbackC -> IO (FunPtr WindowEnableDebuggingCallbackC) + +windowEnableDebuggingClosure :: WindowEnableDebuggingCallback -> IO Closure +windowEnableDebuggingClosure cb = newCClosure =<< mkWindowEnableDebuggingCallback wrapped + where wrapped = windowEnableDebuggingCallbackWrapper cb + +windowEnableDebuggingCallbackWrapper :: + WindowEnableDebuggingCallback -> + Ptr () -> + CInt -> + Ptr () -> + IO CInt +windowEnableDebuggingCallbackWrapper _cb _ toggle _ = do + let toggle' = (/= 0) toggle + result <- _cb toggle' + let result' = (fromIntegral . fromEnum) result + return result' + +onWindowEnableDebugging :: (GObject a, MonadIO m) => a -> WindowEnableDebuggingCallback -> m SignalHandlerId +onWindowEnableDebugging obj cb = liftIO $ connectWindowEnableDebugging obj cb SignalConnectBefore +afterWindowEnableDebugging :: (GObject a, MonadIO m) => a -> WindowEnableDebuggingCallback -> m SignalHandlerId +afterWindowEnableDebugging obj cb = connectWindowEnableDebugging obj cb SignalConnectAfter + +connectWindowEnableDebugging :: (GObject a, MonadIO m) => + a -> WindowEnableDebuggingCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowEnableDebugging obj cb after = liftIO $ do + cb' <- mkWindowEnableDebuggingCallback (windowEnableDebuggingCallbackWrapper cb) + connectSignalFunPtr obj "enable-debugging" cb' after + +-- signal Window::keys-changed +type WindowKeysChangedCallback = + IO () + +noWindowKeysChangedCallback :: Maybe WindowKeysChangedCallback +noWindowKeysChangedCallback = Nothing + +type WindowKeysChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowKeysChangedCallback :: WindowKeysChangedCallbackC -> IO (FunPtr WindowKeysChangedCallbackC) + +windowKeysChangedClosure :: WindowKeysChangedCallback -> IO Closure +windowKeysChangedClosure cb = newCClosure =<< mkWindowKeysChangedCallback wrapped + where wrapped = windowKeysChangedCallbackWrapper cb + +windowKeysChangedCallbackWrapper :: + WindowKeysChangedCallback -> + Ptr () -> + Ptr () -> + IO () +windowKeysChangedCallbackWrapper _cb _ _ = do + _cb + +onWindowKeysChanged :: (GObject a, MonadIO m) => a -> WindowKeysChangedCallback -> m SignalHandlerId +onWindowKeysChanged obj cb = liftIO $ connectWindowKeysChanged obj cb SignalConnectBefore +afterWindowKeysChanged :: (GObject a, MonadIO m) => a -> WindowKeysChangedCallback -> m SignalHandlerId +afterWindowKeysChanged obj cb = connectWindowKeysChanged obj cb SignalConnectAfter + +connectWindowKeysChanged :: (GObject a, MonadIO m) => + a -> WindowKeysChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowKeysChanged obj cb after = liftIO $ do + cb' <- mkWindowKeysChangedCallback (windowKeysChangedCallbackWrapper cb) + connectSignalFunPtr obj "keys-changed" cb' after + +-- signal Window::set-focus +type WindowSetFocusCallback = + Widget -> + IO () + +noWindowSetFocusCallback :: Maybe WindowSetFocusCallback +noWindowSetFocusCallback = Nothing + +type WindowSetFocusCallbackC = + Ptr () -> -- object + Ptr Widget -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWindowSetFocusCallback :: WindowSetFocusCallbackC -> IO (FunPtr WindowSetFocusCallbackC) + +windowSetFocusClosure :: WindowSetFocusCallback -> IO Closure +windowSetFocusClosure cb = newCClosure =<< mkWindowSetFocusCallback wrapped + where wrapped = windowSetFocusCallbackWrapper cb + +windowSetFocusCallbackWrapper :: + WindowSetFocusCallback -> + Ptr () -> + Ptr Widget -> + Ptr () -> + IO () +windowSetFocusCallbackWrapper _cb _ object _ = do + object' <- (newObject Widget) object + _cb object' + +onWindowSetFocus :: (GObject a, MonadIO m) => a -> WindowSetFocusCallback -> m SignalHandlerId +onWindowSetFocus obj cb = liftIO $ connectWindowSetFocus obj cb SignalConnectBefore +afterWindowSetFocus :: (GObject a, MonadIO m) => a -> WindowSetFocusCallback -> m SignalHandlerId +afterWindowSetFocus obj cb = connectWindowSetFocus obj cb SignalConnectAfter + +connectWindowSetFocus :: (GObject a, MonadIO m) => + a -> WindowSetFocusCallback -> SignalConnectMode -> m SignalHandlerId +connectWindowSetFocus obj cb after = liftIO $ do + cb' <- mkWindowSetFocusCallback (windowSetFocusCallbackWrapper cb) + connectSignalFunPtr obj "set-focus" cb' after + +-- VVV Prop "accept-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowAcceptFocus :: (MonadIO m, WindowK o) => o -> m Bool +getWindowAcceptFocus obj = liftIO $ getObjectPropertyBool obj "accept-focus" + +setWindowAcceptFocus :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowAcceptFocus obj val = liftIO $ setObjectPropertyBool obj "accept-focus" val + +constructWindowAcceptFocus :: Bool -> IO ([Char], GValue) +constructWindowAcceptFocus val = constructObjectPropertyBool "accept-focus" val + +data WindowAcceptFocusPropertyInfo +instance AttrInfo WindowAcceptFocusPropertyInfo where + type AttrAllowedOps WindowAcceptFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowAcceptFocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowAcceptFocusPropertyInfo = WindowK + type AttrGetType WindowAcceptFocusPropertyInfo = Bool + type AttrLabel WindowAcceptFocusPropertyInfo = "accept-focus" + attrGet _ = getWindowAcceptFocus + attrSet _ = setWindowAcceptFocus + attrConstruct _ = constructWindowAcceptFocus + +-- VVV Prop "application" + -- Type: TInterface "Gtk" "Application" + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowApplication :: (MonadIO m, WindowK o) => o -> m Application +getWindowApplication obj = liftIO $ getObjectPropertyObject obj "application" Application + +setWindowApplication :: (MonadIO m, WindowK o, ApplicationK a) => o -> a -> m () +setWindowApplication obj val = liftIO $ setObjectPropertyObject obj "application" val + +constructWindowApplication :: (ApplicationK a) => a -> IO ([Char], GValue) +constructWindowApplication val = constructObjectPropertyObject "application" val + +data WindowApplicationPropertyInfo +instance AttrInfo WindowApplicationPropertyInfo where + type AttrAllowedOps WindowApplicationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowApplicationPropertyInfo = ApplicationK + type AttrBaseTypeConstraint WindowApplicationPropertyInfo = WindowK + type AttrGetType WindowApplicationPropertyInfo = Application + type AttrLabel WindowApplicationPropertyInfo = "application" + attrGet _ = getWindowApplication + attrSet _ = setWindowApplication + attrConstruct _ = constructWindowApplication + +-- VVV Prop "attached-to" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWindowAttachedTo :: (MonadIO m, WindowK o) => o -> m Widget +getWindowAttachedTo obj = liftIO $ getObjectPropertyObject obj "attached-to" Widget + +setWindowAttachedTo :: (MonadIO m, WindowK o, WidgetK a) => o -> a -> m () +setWindowAttachedTo obj val = liftIO $ setObjectPropertyObject obj "attached-to" val + +constructWindowAttachedTo :: (WidgetK a) => a -> IO ([Char], GValue) +constructWindowAttachedTo val = constructObjectPropertyObject "attached-to" val + +data WindowAttachedToPropertyInfo +instance AttrInfo WindowAttachedToPropertyInfo where + type AttrAllowedOps WindowAttachedToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowAttachedToPropertyInfo = WidgetK + type AttrBaseTypeConstraint WindowAttachedToPropertyInfo = WindowK + type AttrGetType WindowAttachedToPropertyInfo = Widget + type AttrLabel WindowAttachedToPropertyInfo = "attached-to" + attrGet _ = getWindowAttachedTo + attrSet _ = setWindowAttachedTo + attrConstruct _ = constructWindowAttachedTo + +-- VVV Prop "decorated" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowDecorated :: (MonadIO m, WindowK o) => o -> m Bool +getWindowDecorated obj = liftIO $ getObjectPropertyBool obj "decorated" + +setWindowDecorated :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowDecorated obj val = liftIO $ setObjectPropertyBool obj "decorated" val + +constructWindowDecorated :: Bool -> IO ([Char], GValue) +constructWindowDecorated val = constructObjectPropertyBool "decorated" val + +data WindowDecoratedPropertyInfo +instance AttrInfo WindowDecoratedPropertyInfo where + type AttrAllowedOps WindowDecoratedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowDecoratedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowDecoratedPropertyInfo = WindowK + type AttrGetType WindowDecoratedPropertyInfo = Bool + type AttrLabel WindowDecoratedPropertyInfo = "decorated" + attrGet _ = getWindowDecorated + attrSet _ = setWindowDecorated + attrConstruct _ = constructWindowDecorated + +-- VVV Prop "default-height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowDefaultHeight :: (MonadIO m, WindowK o) => o -> m Int32 +getWindowDefaultHeight obj = liftIO $ getObjectPropertyCInt obj "default-height" + +setWindowDefaultHeight :: (MonadIO m, WindowK o) => o -> Int32 -> m () +setWindowDefaultHeight obj val = liftIO $ setObjectPropertyCInt obj "default-height" val + +constructWindowDefaultHeight :: Int32 -> IO ([Char], GValue) +constructWindowDefaultHeight val = constructObjectPropertyCInt "default-height" val + +data WindowDefaultHeightPropertyInfo +instance AttrInfo WindowDefaultHeightPropertyInfo where + type AttrAllowedOps WindowDefaultHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowDefaultHeightPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WindowDefaultHeightPropertyInfo = WindowK + type AttrGetType WindowDefaultHeightPropertyInfo = Int32 + type AttrLabel WindowDefaultHeightPropertyInfo = "default-height" + attrGet _ = getWindowDefaultHeight + attrSet _ = setWindowDefaultHeight + attrConstruct _ = constructWindowDefaultHeight + +-- VVV Prop "default-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowDefaultWidth :: (MonadIO m, WindowK o) => o -> m Int32 +getWindowDefaultWidth obj = liftIO $ getObjectPropertyCInt obj "default-width" + +setWindowDefaultWidth :: (MonadIO m, WindowK o) => o -> Int32 -> m () +setWindowDefaultWidth obj val = liftIO $ setObjectPropertyCInt obj "default-width" val + +constructWindowDefaultWidth :: Int32 -> IO ([Char], GValue) +constructWindowDefaultWidth val = constructObjectPropertyCInt "default-width" val + +data WindowDefaultWidthPropertyInfo +instance AttrInfo WindowDefaultWidthPropertyInfo where + type AttrAllowedOps WindowDefaultWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowDefaultWidthPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WindowDefaultWidthPropertyInfo = WindowK + type AttrGetType WindowDefaultWidthPropertyInfo = Int32 + type AttrLabel WindowDefaultWidthPropertyInfo = "default-width" + attrGet _ = getWindowDefaultWidth + attrSet _ = setWindowDefaultWidth + attrConstruct _ = constructWindowDefaultWidth + +-- VVV Prop "deletable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowDeletable :: (MonadIO m, WindowK o) => o -> m Bool +getWindowDeletable obj = liftIO $ getObjectPropertyBool obj "deletable" + +setWindowDeletable :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowDeletable obj val = liftIO $ setObjectPropertyBool obj "deletable" val + +constructWindowDeletable :: Bool -> IO ([Char], GValue) +constructWindowDeletable val = constructObjectPropertyBool "deletable" val + +data WindowDeletablePropertyInfo +instance AttrInfo WindowDeletablePropertyInfo where + type AttrAllowedOps WindowDeletablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowDeletablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowDeletablePropertyInfo = WindowK + type AttrGetType WindowDeletablePropertyInfo = Bool + type AttrLabel WindowDeletablePropertyInfo = "deletable" + attrGet _ = getWindowDeletable + attrSet _ = setWindowDeletable + attrConstruct _ = constructWindowDeletable + +-- VVV Prop "destroy-with-parent" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowDestroyWithParent :: (MonadIO m, WindowK o) => o -> m Bool +getWindowDestroyWithParent obj = liftIO $ getObjectPropertyBool obj "destroy-with-parent" + +setWindowDestroyWithParent :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowDestroyWithParent obj val = liftIO $ setObjectPropertyBool obj "destroy-with-parent" val + +constructWindowDestroyWithParent :: Bool -> IO ([Char], GValue) +constructWindowDestroyWithParent val = constructObjectPropertyBool "destroy-with-parent" val + +data WindowDestroyWithParentPropertyInfo +instance AttrInfo WindowDestroyWithParentPropertyInfo where + type AttrAllowedOps WindowDestroyWithParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowDestroyWithParentPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowDestroyWithParentPropertyInfo = WindowK + type AttrGetType WindowDestroyWithParentPropertyInfo = Bool + type AttrLabel WindowDestroyWithParentPropertyInfo = "destroy-with-parent" + attrGet _ = getWindowDestroyWithParent + attrSet _ = setWindowDestroyWithParent + attrConstruct _ = constructWindowDestroyWithParent + +-- VVV Prop "focus-on-map" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowFocusOnMap :: (MonadIO m, WindowK o) => o -> m Bool +getWindowFocusOnMap obj = liftIO $ getObjectPropertyBool obj "focus-on-map" + +setWindowFocusOnMap :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowFocusOnMap obj val = liftIO $ setObjectPropertyBool obj "focus-on-map" val + +constructWindowFocusOnMap :: Bool -> IO ([Char], GValue) +constructWindowFocusOnMap val = constructObjectPropertyBool "focus-on-map" val + +data WindowFocusOnMapPropertyInfo +instance AttrInfo WindowFocusOnMapPropertyInfo where + type AttrAllowedOps WindowFocusOnMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowFocusOnMapPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowFocusOnMapPropertyInfo = WindowK + type AttrGetType WindowFocusOnMapPropertyInfo = Bool + type AttrLabel WindowFocusOnMapPropertyInfo = "focus-on-map" + attrGet _ = getWindowFocusOnMap + attrSet _ = setWindowFocusOnMap + attrConstruct _ = constructWindowFocusOnMap + +-- VVV Prop "focus-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowFocusVisible :: (MonadIO m, WindowK o) => o -> m Bool +getWindowFocusVisible obj = liftIO $ getObjectPropertyBool obj "focus-visible" + +setWindowFocusVisible :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowFocusVisible obj val = liftIO $ setObjectPropertyBool obj "focus-visible" val + +constructWindowFocusVisible :: Bool -> IO ([Char], GValue) +constructWindowFocusVisible val = constructObjectPropertyBool "focus-visible" val + +data WindowFocusVisiblePropertyInfo +instance AttrInfo WindowFocusVisiblePropertyInfo where + type AttrAllowedOps WindowFocusVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowFocusVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowFocusVisiblePropertyInfo = WindowK + type AttrGetType WindowFocusVisiblePropertyInfo = Bool + type AttrLabel WindowFocusVisiblePropertyInfo = "focus-visible" + attrGet _ = getWindowFocusVisible + attrSet _ = setWindowFocusVisible + attrConstruct _ = constructWindowFocusVisible + +-- VVV Prop "gravity" + -- Type: TInterface "Gdk" "Gravity" + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowGravity :: (MonadIO m, WindowK o) => o -> m Gdk.Gravity +getWindowGravity obj = liftIO $ getObjectPropertyEnum obj "gravity" + +setWindowGravity :: (MonadIO m, WindowK o) => o -> Gdk.Gravity -> m () +setWindowGravity obj val = liftIO $ setObjectPropertyEnum obj "gravity" val + +constructWindowGravity :: Gdk.Gravity -> IO ([Char], GValue) +constructWindowGravity val = constructObjectPropertyEnum "gravity" val + +data WindowGravityPropertyInfo +instance AttrInfo WindowGravityPropertyInfo where + type AttrAllowedOps WindowGravityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowGravityPropertyInfo = (~) Gdk.Gravity + type AttrBaseTypeConstraint WindowGravityPropertyInfo = WindowK + type AttrGetType WindowGravityPropertyInfo = Gdk.Gravity + type AttrLabel WindowGravityPropertyInfo = "gravity" + attrGet _ = getWindowGravity + attrSet _ = setWindowGravity + attrConstruct _ = constructWindowGravity + +-- VVV Prop "has-resize-grip" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowHasResizeGrip :: (MonadIO m, WindowK o) => o -> m Bool +getWindowHasResizeGrip obj = liftIO $ getObjectPropertyBool obj "has-resize-grip" + +setWindowHasResizeGrip :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowHasResizeGrip obj val = liftIO $ setObjectPropertyBool obj "has-resize-grip" val + +constructWindowHasResizeGrip :: Bool -> IO ([Char], GValue) +constructWindowHasResizeGrip val = constructObjectPropertyBool "has-resize-grip" val + +data WindowHasResizeGripPropertyInfo +instance AttrInfo WindowHasResizeGripPropertyInfo where + type AttrAllowedOps WindowHasResizeGripPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowHasResizeGripPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowHasResizeGripPropertyInfo = WindowK + type AttrGetType WindowHasResizeGripPropertyInfo = Bool + type AttrLabel WindowHasResizeGripPropertyInfo = "has-resize-grip" + attrGet _ = getWindowHasResizeGrip + attrSet _ = setWindowHasResizeGrip + attrConstruct _ = constructWindowHasResizeGrip + +-- VVV Prop "has-toplevel-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getWindowHasToplevelFocus :: (MonadIO m, WindowK o) => o -> m Bool +getWindowHasToplevelFocus obj = liftIO $ getObjectPropertyBool obj "has-toplevel-focus" + +data WindowHasToplevelFocusPropertyInfo +instance AttrInfo WindowHasToplevelFocusPropertyInfo where + type AttrAllowedOps WindowHasToplevelFocusPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WindowHasToplevelFocusPropertyInfo = (~) () + type AttrBaseTypeConstraint WindowHasToplevelFocusPropertyInfo = WindowK + type AttrGetType WindowHasToplevelFocusPropertyInfo = Bool + type AttrLabel WindowHasToplevelFocusPropertyInfo = "has-toplevel-focus" + attrGet _ = getWindowHasToplevelFocus + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "hide-titlebar-when-maximized" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowHideTitlebarWhenMaximized :: (MonadIO m, WindowK o) => o -> m Bool +getWindowHideTitlebarWhenMaximized obj = liftIO $ getObjectPropertyBool obj "hide-titlebar-when-maximized" + +setWindowHideTitlebarWhenMaximized :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowHideTitlebarWhenMaximized obj val = liftIO $ setObjectPropertyBool obj "hide-titlebar-when-maximized" val + +constructWindowHideTitlebarWhenMaximized :: Bool -> IO ([Char], GValue) +constructWindowHideTitlebarWhenMaximized val = constructObjectPropertyBool "hide-titlebar-when-maximized" val + +data WindowHideTitlebarWhenMaximizedPropertyInfo +instance AttrInfo WindowHideTitlebarWhenMaximizedPropertyInfo where + type AttrAllowedOps WindowHideTitlebarWhenMaximizedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowHideTitlebarWhenMaximizedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowHideTitlebarWhenMaximizedPropertyInfo = WindowK + type AttrGetType WindowHideTitlebarWhenMaximizedPropertyInfo = Bool + type AttrLabel WindowHideTitlebarWhenMaximizedPropertyInfo = "hide-titlebar-when-maximized" + attrGet _ = getWindowHideTitlebarWhenMaximized + attrSet _ = setWindowHideTitlebarWhenMaximized + attrConstruct _ = constructWindowHideTitlebarWhenMaximized + +-- VVV Prop "icon" + -- Type: TInterface "GdkPixbuf" "Pixbuf" + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowIcon :: (MonadIO m, WindowK o) => o -> m GdkPixbuf.Pixbuf +getWindowIcon obj = liftIO $ getObjectPropertyObject obj "icon" GdkPixbuf.Pixbuf + +setWindowIcon :: (MonadIO m, WindowK o, GdkPixbuf.PixbufK a) => o -> a -> m () +setWindowIcon obj val = liftIO $ setObjectPropertyObject obj "icon" val + +constructWindowIcon :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) +constructWindowIcon val = constructObjectPropertyObject "icon" val + +data WindowIconPropertyInfo +instance AttrInfo WindowIconPropertyInfo where + type AttrAllowedOps WindowIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowIconPropertyInfo = GdkPixbuf.PixbufK + type AttrBaseTypeConstraint WindowIconPropertyInfo = WindowK + type AttrGetType WindowIconPropertyInfo = GdkPixbuf.Pixbuf + type AttrLabel WindowIconPropertyInfo = "icon" + attrGet _ = getWindowIcon + attrSet _ = setWindowIcon + attrConstruct _ = constructWindowIcon + +-- VVV Prop "icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowIconName :: (MonadIO m, WindowK o) => o -> m T.Text +getWindowIconName obj = liftIO $ getObjectPropertyString obj "icon-name" + +setWindowIconName :: (MonadIO m, WindowK o) => o -> T.Text -> m () +setWindowIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val + +constructWindowIconName :: T.Text -> IO ([Char], GValue) +constructWindowIconName val = constructObjectPropertyString "icon-name" val + +data WindowIconNamePropertyInfo +instance AttrInfo WindowIconNamePropertyInfo where + type AttrAllowedOps WindowIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WindowIconNamePropertyInfo = WindowK + type AttrGetType WindowIconNamePropertyInfo = T.Text + type AttrLabel WindowIconNamePropertyInfo = "icon-name" + attrGet _ = getWindowIconName + attrSet _ = setWindowIconName + attrConstruct _ = constructWindowIconName + +-- VVV Prop "is-active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getWindowIsActive :: (MonadIO m, WindowK o) => o -> m Bool +getWindowIsActive obj = liftIO $ getObjectPropertyBool obj "is-active" + +data WindowIsActivePropertyInfo +instance AttrInfo WindowIsActivePropertyInfo where + type AttrAllowedOps WindowIsActivePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WindowIsActivePropertyInfo = (~) () + type AttrBaseTypeConstraint WindowIsActivePropertyInfo = WindowK + type AttrGetType WindowIsActivePropertyInfo = Bool + type AttrLabel WindowIsActivePropertyInfo = "is-active" + attrGet _ = getWindowIsActive + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "is-maximized" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getWindowIsMaximized :: (MonadIO m, WindowK o) => o -> m Bool +getWindowIsMaximized obj = liftIO $ getObjectPropertyBool obj "is-maximized" + +data WindowIsMaximizedPropertyInfo +instance AttrInfo WindowIsMaximizedPropertyInfo where + type AttrAllowedOps WindowIsMaximizedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WindowIsMaximizedPropertyInfo = (~) () + type AttrBaseTypeConstraint WindowIsMaximizedPropertyInfo = WindowK + type AttrGetType WindowIsMaximizedPropertyInfo = Bool + type AttrLabel WindowIsMaximizedPropertyInfo = "is-maximized" + attrGet _ = getWindowIsMaximized + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "mnemonics-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowMnemonicsVisible :: (MonadIO m, WindowK o) => o -> m Bool +getWindowMnemonicsVisible obj = liftIO $ getObjectPropertyBool obj "mnemonics-visible" + +setWindowMnemonicsVisible :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowMnemonicsVisible obj val = liftIO $ setObjectPropertyBool obj "mnemonics-visible" val + +constructWindowMnemonicsVisible :: Bool -> IO ([Char], GValue) +constructWindowMnemonicsVisible val = constructObjectPropertyBool "mnemonics-visible" val + +data WindowMnemonicsVisiblePropertyInfo +instance AttrInfo WindowMnemonicsVisiblePropertyInfo where + type AttrAllowedOps WindowMnemonicsVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowMnemonicsVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowMnemonicsVisiblePropertyInfo = WindowK + type AttrGetType WindowMnemonicsVisiblePropertyInfo = Bool + type AttrLabel WindowMnemonicsVisiblePropertyInfo = "mnemonics-visible" + attrGet _ = getWindowMnemonicsVisible + attrSet _ = setWindowMnemonicsVisible + attrConstruct _ = constructWindowMnemonicsVisible + +-- VVV Prop "modal" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowModal :: (MonadIO m, WindowK o) => o -> m Bool +getWindowModal obj = liftIO $ getObjectPropertyBool obj "modal" + +setWindowModal :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowModal obj val = liftIO $ setObjectPropertyBool obj "modal" val + +constructWindowModal :: Bool -> IO ([Char], GValue) +constructWindowModal val = constructObjectPropertyBool "modal" val + +data WindowModalPropertyInfo +instance AttrInfo WindowModalPropertyInfo where + type AttrAllowedOps WindowModalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowModalPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowModalPropertyInfo = WindowK + type AttrGetType WindowModalPropertyInfo = Bool + type AttrLabel WindowModalPropertyInfo = "modal" + attrGet _ = getWindowModal + attrSet _ = setWindowModal + attrConstruct _ = constructWindowModal + +-- VVV Prop "resizable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowResizable :: (MonadIO m, WindowK o) => o -> m Bool +getWindowResizable obj = liftIO $ getObjectPropertyBool obj "resizable" + +setWindowResizable :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowResizable obj val = liftIO $ setObjectPropertyBool obj "resizable" val + +constructWindowResizable :: Bool -> IO ([Char], GValue) +constructWindowResizable val = constructObjectPropertyBool "resizable" val + +data WindowResizablePropertyInfo +instance AttrInfo WindowResizablePropertyInfo where + type AttrAllowedOps WindowResizablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowResizablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowResizablePropertyInfo = WindowK + type AttrGetType WindowResizablePropertyInfo = Bool + type AttrLabel WindowResizablePropertyInfo = "resizable" + attrGet _ = getWindowResizable + attrSet _ = setWindowResizable + attrConstruct _ = constructWindowResizable + +-- VVV Prop "resize-grip-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getWindowResizeGripVisible :: (MonadIO m, WindowK o) => o -> m Bool +getWindowResizeGripVisible obj = liftIO $ getObjectPropertyBool obj "resize-grip-visible" + +data WindowResizeGripVisiblePropertyInfo +instance AttrInfo WindowResizeGripVisiblePropertyInfo where + type AttrAllowedOps WindowResizeGripVisiblePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WindowResizeGripVisiblePropertyInfo = (~) () + type AttrBaseTypeConstraint WindowResizeGripVisiblePropertyInfo = WindowK + type AttrGetType WindowResizeGripVisiblePropertyInfo = Bool + type AttrLabel WindowResizeGripVisiblePropertyInfo = "resize-grip-visible" + attrGet _ = getWindowResizeGripVisible + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "role" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowRole :: (MonadIO m, WindowK o) => o -> m T.Text +getWindowRole obj = liftIO $ getObjectPropertyString obj "role" + +setWindowRole :: (MonadIO m, WindowK o) => o -> T.Text -> m () +setWindowRole obj val = liftIO $ setObjectPropertyString obj "role" val + +constructWindowRole :: T.Text -> IO ([Char], GValue) +constructWindowRole val = constructObjectPropertyString "role" val + +data WindowRolePropertyInfo +instance AttrInfo WindowRolePropertyInfo where + type AttrAllowedOps WindowRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowRolePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WindowRolePropertyInfo = WindowK + type AttrGetType WindowRolePropertyInfo = T.Text + type AttrLabel WindowRolePropertyInfo = "role" + attrGet _ = getWindowRole + attrSet _ = setWindowRole + attrConstruct _ = constructWindowRole + +-- VVV Prop "screen" + -- Type: TInterface "Gdk" "Screen" + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowScreen :: (MonadIO m, WindowK o) => o -> m Gdk.Screen +getWindowScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen + +setWindowScreen :: (MonadIO m, WindowK o, Gdk.ScreenK a) => o -> a -> m () +setWindowScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val + +constructWindowScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) +constructWindowScreen val = constructObjectPropertyObject "screen" val + +data WindowScreenPropertyInfo +instance AttrInfo WindowScreenPropertyInfo where + type AttrAllowedOps WindowScreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowScreenPropertyInfo = Gdk.ScreenK + type AttrBaseTypeConstraint WindowScreenPropertyInfo = WindowK + type AttrGetType WindowScreenPropertyInfo = Gdk.Screen + type AttrLabel WindowScreenPropertyInfo = "screen" + attrGet _ = getWindowScreen + attrSet _ = setWindowScreen + attrConstruct _ = constructWindowScreen + +-- VVV Prop "skip-pager-hint" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowSkipPagerHint :: (MonadIO m, WindowK o) => o -> m Bool +getWindowSkipPagerHint obj = liftIO $ getObjectPropertyBool obj "skip-pager-hint" + +setWindowSkipPagerHint :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowSkipPagerHint obj val = liftIO $ setObjectPropertyBool obj "skip-pager-hint" val + +constructWindowSkipPagerHint :: Bool -> IO ([Char], GValue) +constructWindowSkipPagerHint val = constructObjectPropertyBool "skip-pager-hint" val + +data WindowSkipPagerHintPropertyInfo +instance AttrInfo WindowSkipPagerHintPropertyInfo where + type AttrAllowedOps WindowSkipPagerHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowSkipPagerHintPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowSkipPagerHintPropertyInfo = WindowK + type AttrGetType WindowSkipPagerHintPropertyInfo = Bool + type AttrLabel WindowSkipPagerHintPropertyInfo = "skip-pager-hint" + attrGet _ = getWindowSkipPagerHint + attrSet _ = setWindowSkipPagerHint + attrConstruct _ = constructWindowSkipPagerHint + +-- VVV Prop "skip-taskbar-hint" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowSkipTaskbarHint :: (MonadIO m, WindowK o) => o -> m Bool +getWindowSkipTaskbarHint obj = liftIO $ getObjectPropertyBool obj "skip-taskbar-hint" + +setWindowSkipTaskbarHint :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowSkipTaskbarHint obj val = liftIO $ setObjectPropertyBool obj "skip-taskbar-hint" val + +constructWindowSkipTaskbarHint :: Bool -> IO ([Char], GValue) +constructWindowSkipTaskbarHint val = constructObjectPropertyBool "skip-taskbar-hint" val + +data WindowSkipTaskbarHintPropertyInfo +instance AttrInfo WindowSkipTaskbarHintPropertyInfo where + type AttrAllowedOps WindowSkipTaskbarHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowSkipTaskbarHintPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowSkipTaskbarHintPropertyInfo = WindowK + type AttrGetType WindowSkipTaskbarHintPropertyInfo = Bool + type AttrLabel WindowSkipTaskbarHintPropertyInfo = "skip-taskbar-hint" + attrGet _ = getWindowSkipTaskbarHint + attrSet _ = setWindowSkipTaskbarHint + attrConstruct _ = constructWindowSkipTaskbarHint + +-- VVV Prop "startup-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setWindowStartupId :: (MonadIO m, WindowK o) => o -> T.Text -> m () +setWindowStartupId obj val = liftIO $ setObjectPropertyString obj "startup-id" val + +constructWindowStartupId :: T.Text -> IO ([Char], GValue) +constructWindowStartupId val = constructObjectPropertyString "startup-id" val + +data WindowStartupIdPropertyInfo +instance AttrInfo WindowStartupIdPropertyInfo where + type AttrAllowedOps WindowStartupIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint WindowStartupIdPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WindowStartupIdPropertyInfo = WindowK + type AttrGetType WindowStartupIdPropertyInfo = () + type AttrLabel WindowStartupIdPropertyInfo = "startup-id" + attrGet _ = undefined + attrSet _ = setWindowStartupId + attrConstruct _ = constructWindowStartupId + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowTitle :: (MonadIO m, WindowK o) => o -> m T.Text +getWindowTitle obj = liftIO $ getObjectPropertyString obj "title" + +setWindowTitle :: (MonadIO m, WindowK o) => o -> T.Text -> m () +setWindowTitle obj val = liftIO $ setObjectPropertyString obj "title" val + +constructWindowTitle :: T.Text -> IO ([Char], GValue) +constructWindowTitle val = constructObjectPropertyString "title" val + +data WindowTitlePropertyInfo +instance AttrInfo WindowTitlePropertyInfo where + type AttrAllowedOps WindowTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowTitlePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WindowTitlePropertyInfo = WindowK + type AttrGetType WindowTitlePropertyInfo = T.Text + type AttrLabel WindowTitlePropertyInfo = "title" + attrGet _ = getWindowTitle + attrSet _ = setWindowTitle + attrConstruct _ = constructWindowTitle + +-- VVV Prop "transient-for" + -- Type: TInterface "Gtk" "Window" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWindowTransientFor :: (MonadIO m, WindowK o) => o -> m Window +getWindowTransientFor obj = liftIO $ getObjectPropertyObject obj "transient-for" Window + +setWindowTransientFor :: (MonadIO m, WindowK o, WindowK a) => o -> a -> m () +setWindowTransientFor obj val = liftIO $ setObjectPropertyObject obj "transient-for" val + +constructWindowTransientFor :: (WindowK a) => a -> IO ([Char], GValue) +constructWindowTransientFor val = constructObjectPropertyObject "transient-for" val + +data WindowTransientForPropertyInfo +instance AttrInfo WindowTransientForPropertyInfo where + type AttrAllowedOps WindowTransientForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowTransientForPropertyInfo = WindowK + type AttrBaseTypeConstraint WindowTransientForPropertyInfo = WindowK + type AttrGetType WindowTransientForPropertyInfo = Window + type AttrLabel WindowTransientForPropertyInfo = "transient-for" + attrGet _ = getWindowTransientFor + attrSet _ = setWindowTransientFor + attrConstruct _ = constructWindowTransientFor + +-- VVV Prop "type" + -- Type: TInterface "Gtk" "WindowType" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWindowType :: (MonadIO m, WindowK o) => o -> m WindowType +getWindowType obj = liftIO $ getObjectPropertyEnum obj "type" + +constructWindowType :: WindowType -> IO ([Char], GValue) +constructWindowType val = constructObjectPropertyEnum "type" val + +data WindowTypePropertyInfo +instance AttrInfo WindowTypePropertyInfo where + type AttrAllowedOps WindowTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowTypePropertyInfo = (~) WindowType + type AttrBaseTypeConstraint WindowTypePropertyInfo = WindowK + type AttrGetType WindowTypePropertyInfo = WindowType + type AttrLabel WindowTypePropertyInfo = "type" + attrGet _ = getWindowType + attrSet _ = undefined + attrConstruct _ = constructWindowType + +-- VVV Prop "type-hint" + -- Type: TInterface "Gdk" "WindowTypeHint" + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowTypeHint :: (MonadIO m, WindowK o) => o -> m Gdk.WindowTypeHint +getWindowTypeHint obj = liftIO $ getObjectPropertyEnum obj "type-hint" + +setWindowTypeHint :: (MonadIO m, WindowK o) => o -> Gdk.WindowTypeHint -> m () +setWindowTypeHint obj val = liftIO $ setObjectPropertyEnum obj "type-hint" val + +constructWindowTypeHint :: Gdk.WindowTypeHint -> IO ([Char], GValue) +constructWindowTypeHint val = constructObjectPropertyEnum "type-hint" val + +data WindowTypeHintPropertyInfo +instance AttrInfo WindowTypeHintPropertyInfo where + type AttrAllowedOps WindowTypeHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowTypeHintPropertyInfo = (~) Gdk.WindowTypeHint + type AttrBaseTypeConstraint WindowTypeHintPropertyInfo = WindowK + type AttrGetType WindowTypeHintPropertyInfo = Gdk.WindowTypeHint + type AttrLabel WindowTypeHintPropertyInfo = "type-hint" + attrGet _ = getWindowTypeHint + attrSet _ = setWindowTypeHint + attrConstruct _ = constructWindowTypeHint + +-- VVV Prop "urgency-hint" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowUrgencyHint :: (MonadIO m, WindowK o) => o -> m Bool +getWindowUrgencyHint obj = liftIO $ getObjectPropertyBool obj "urgency-hint" + +setWindowUrgencyHint :: (MonadIO m, WindowK o) => o -> Bool -> m () +setWindowUrgencyHint obj val = liftIO $ setObjectPropertyBool obj "urgency-hint" val + +constructWindowUrgencyHint :: Bool -> IO ([Char], GValue) +constructWindowUrgencyHint val = constructObjectPropertyBool "urgency-hint" val + +data WindowUrgencyHintPropertyInfo +instance AttrInfo WindowUrgencyHintPropertyInfo where + type AttrAllowedOps WindowUrgencyHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowUrgencyHintPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WindowUrgencyHintPropertyInfo = WindowK + type AttrGetType WindowUrgencyHintPropertyInfo = Bool + type AttrLabel WindowUrgencyHintPropertyInfo = "urgency-hint" + attrGet _ = getWindowUrgencyHint + attrSet _ = setWindowUrgencyHint + attrConstruct _ = constructWindowUrgencyHint + +-- VVV Prop "window-position" + -- Type: TInterface "Gtk" "WindowPosition" + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowWindowPosition :: (MonadIO m, WindowK o) => o -> m WindowPosition +getWindowWindowPosition obj = liftIO $ getObjectPropertyEnum obj "window-position" + +setWindowWindowPosition :: (MonadIO m, WindowK o) => o -> WindowPosition -> m () +setWindowWindowPosition obj val = liftIO $ setObjectPropertyEnum obj "window-position" val + +constructWindowWindowPosition :: WindowPosition -> IO ([Char], GValue) +constructWindowWindowPosition val = constructObjectPropertyEnum "window-position" val + +data WindowWindowPositionPropertyInfo +instance AttrInfo WindowWindowPositionPropertyInfo where + type AttrAllowedOps WindowWindowPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowWindowPositionPropertyInfo = (~) WindowPosition + type AttrBaseTypeConstraint WindowWindowPositionPropertyInfo = WindowK + type AttrGetType WindowWindowPositionPropertyInfo = WindowPosition + type AttrLabel WindowWindowPositionPropertyInfo = "window-position" + attrGet _ = getWindowWindowPosition + attrSet _ = setWindowWindowPosition + attrConstruct _ = constructWindowWindowPosition + +type instance AttributeList Window = WindowAttributeList +type WindowAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) + +data WindowActivateDefaultSignalInfo +instance SignalInfo WindowActivateDefaultSignalInfo where + type HaskellCallbackType WindowActivateDefaultSignalInfo = WindowActivateDefaultCallback + connectSignal _ = connectWindowActivateDefault + +data WindowActivateFocusSignalInfo +instance SignalInfo WindowActivateFocusSignalInfo where + type HaskellCallbackType WindowActivateFocusSignalInfo = WindowActivateFocusCallback + connectSignal _ = connectWindowActivateFocus + +data WindowEnableDebuggingSignalInfo +instance SignalInfo WindowEnableDebuggingSignalInfo where + type HaskellCallbackType WindowEnableDebuggingSignalInfo = WindowEnableDebuggingCallback + connectSignal _ = connectWindowEnableDebugging + +data WindowKeysChangedSignalInfo +instance SignalInfo WindowKeysChangedSignalInfo where + type HaskellCallbackType WindowKeysChangedSignalInfo = WindowKeysChangedCallback + connectSignal _ = connectWindowKeysChanged + +data WindowSetFocusSignalInfo +instance SignalInfo WindowSetFocusSignalInfo where + type HaskellCallbackType WindowSetFocusSignalInfo = WindowSetFocusCallback + connectSignal _ = connectWindowSetFocus + +type instance SignalList Window = WindowSignalList +type WindowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +-- method Window::new +-- method type : Constructor +-- Args : [Arg {argCName = "type", argType = TInterface "Gtk" "WindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Window" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_new" gtk_window_new :: + CUInt -> -- type : TInterface "Gtk" "WindowType" + IO (Ptr Window) + + +windowNew :: + (MonadIO m) => + WindowType -- type_ + -> m Window -- result +windowNew type_ = liftIO $ do + let type_' = (fromIntegral . fromEnum) type_ + result <- gtk_window_new type_' + checkUnexpectedReturnNULL "gtk_window_new" result + result' <- (newObject Window) result + return result' + +-- method Window::activate_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_activate_default" gtk_window_activate_default :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowActivateDefault :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowActivateDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_activate_default _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowActivateDefaultMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowActivateDefaultMethodInfo a signature where + overloadedMethod _ = windowActivateDefault + +-- method Window::activate_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_activate_focus" gtk_window_activate_focus :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowActivateFocus :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowActivateFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_activate_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowActivateFocusMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowActivateFocusMethodInfo a signature where + overloadedMethod _ = windowActivateFocus + +-- method Window::activate_key +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_activate_key" gtk_window_activate_key :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" + IO CInt + + +windowActivateKey :: + (MonadIO m, WindowK a) => + a -- _obj + -> Gdk.EventKey -- event + -> m Bool -- result +windowActivateKey _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrGetPtr event + result <- gtk_window_activate_key _obj' event' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr event + return result' + +data WindowActivateKeyMethodInfo +instance (signature ~ (Gdk.EventKey -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowActivateKeyMethodInfo a signature where + overloadedMethod _ = windowActivateKey + +-- method Window::add_accel_group +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_add_accel_group" gtk_window_add_accel_group :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" + IO () + + +windowAddAccelGroup :: + (MonadIO m, WindowK a, AccelGroupK b) => + a -- _obj + -> b -- accelGroup + -> m () -- result +windowAddAccelGroup _obj accelGroup = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let accelGroup' = unsafeManagedPtrCastPtr accelGroup + gtk_window_add_accel_group _obj' accelGroup' + touchManagedPtr _obj + touchManagedPtr accelGroup + return () + +data WindowAddAccelGroupMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WindowK a, AccelGroupK b) => MethodInfo WindowAddAccelGroupMethodInfo a signature where + overloadedMethod _ = windowAddAccelGroup + +-- method Window::add_mnemonic +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_add_mnemonic" gtk_window_add_mnemonic :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Word32 -> -- keyval : TBasicType TUInt32 + Ptr Widget -> -- target : TInterface "Gtk" "Widget" + IO () + + +windowAddMnemonic :: + (MonadIO m, WindowK a, WidgetK b) => + a -- _obj + -> Word32 -- keyval + -> b -- target + -> m () -- result +windowAddMnemonic _obj keyval target = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let target' = unsafeManagedPtrCastPtr target + gtk_window_add_mnemonic _obj' keyval target' + touchManagedPtr _obj + touchManagedPtr target + return () + +data WindowAddMnemonicMethodInfo +instance (signature ~ (Word32 -> b -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowAddMnemonicMethodInfo a signature where + overloadedMethod _ = windowAddMnemonic + +-- method Window::begin_move_drag +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_begin_move_drag" gtk_window_begin_move_drag :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Int32 -> -- button : TBasicType TInt32 + Int32 -> -- root_x : TBasicType TInt32 + Int32 -> -- root_y : TBasicType TInt32 + Word32 -> -- timestamp : TBasicType TUInt32 + IO () + + +windowBeginMoveDrag :: + (MonadIO m, WindowK a) => + a -- _obj + -> Int32 -- button + -> Int32 -- rootX + -> Int32 -- rootY + -> Word32 -- timestamp + -> m () -- result +windowBeginMoveDrag _obj button rootX rootY timestamp = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_begin_move_drag _obj' button rootX rootY timestamp + touchManagedPtr _obj + return () + +data WindowBeginMoveDragMethodInfo +instance (signature ~ (Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginMoveDragMethodInfo a signature where + overloadedMethod _ = windowBeginMoveDrag + +-- method Window::begin_resize_drag +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_begin_resize_drag" gtk_window_begin_resize_drag :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CUInt -> -- edge : TInterface "Gdk" "WindowEdge" + Int32 -> -- button : TBasicType TInt32 + Int32 -> -- root_x : TBasicType TInt32 + Int32 -> -- root_y : TBasicType TInt32 + Word32 -> -- timestamp : TBasicType TUInt32 + IO () + + +windowBeginResizeDrag :: + (MonadIO m, WindowK a) => + a -- _obj + -> Gdk.WindowEdge -- edge + -> Int32 -- button + -> Int32 -- rootX + -> Int32 -- rootY + -> Word32 -- timestamp + -> m () -- result +windowBeginResizeDrag _obj edge button rootX rootY timestamp = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let edge' = (fromIntegral . fromEnum) edge + gtk_window_begin_resize_drag _obj' edge' button rootX rootY timestamp + touchManagedPtr _obj + return () + +data WindowBeginResizeDragMethodInfo +instance (signature ~ (Gdk.WindowEdge -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginResizeDragMethodInfo a signature where + overloadedMethod _ = windowBeginResizeDrag + +-- method Window::close +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_close" gtk_window_close :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO () + + +windowClose :: + (MonadIO m, WindowK a) => + a -- _obj + -> m () -- result +windowClose _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_close _obj' + touchManagedPtr _obj + return () + +data WindowCloseMethodInfo +instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowCloseMethodInfo a signature where + overloadedMethod _ = windowClose + +-- method Window::deiconify +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_deiconify" gtk_window_deiconify :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO () + + +windowDeiconify :: + (MonadIO m, WindowK a) => + a -- _obj + -> m () -- result +windowDeiconify _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_deiconify _obj' + touchManagedPtr _obj + return () + +data WindowDeiconifyMethodInfo +instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowDeiconifyMethodInfo a signature where + overloadedMethod _ = windowDeiconify + +-- method Window::fullscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_fullscreen" gtk_window_fullscreen :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO () + + +windowFullscreen :: + (MonadIO m, WindowK a) => + a -- _obj + -> m () -- result +windowFullscreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_fullscreen _obj' + touchManagedPtr _obj + return () + +data WindowFullscreenMethodInfo +instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFullscreenMethodInfo a signature where + overloadedMethod _ = windowFullscreen + +-- method Window::fullscreen_on_monitor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_fullscreen_on_monitor" gtk_window_fullscreen_on_monitor :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" + Int32 -> -- monitor : TBasicType TInt32 + IO () + + +windowFullscreenOnMonitor :: + (MonadIO m, WindowK a, Gdk.ScreenK b) => + a -- _obj + -> b -- screen + -> Int32 -- monitor + -> m () -- result +windowFullscreenOnMonitor _obj screen monitor = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let screen' = unsafeManagedPtrCastPtr screen + gtk_window_fullscreen_on_monitor _obj' screen' monitor + touchManagedPtr _obj + touchManagedPtr screen + return () + +data WindowFullscreenOnMonitorMethodInfo +instance (signature ~ (b -> Int32 -> m ()), MonadIO m, WindowK a, Gdk.ScreenK b) => MethodInfo WindowFullscreenOnMonitorMethodInfo a signature where + overloadedMethod _ = windowFullscreenOnMonitor + +-- method Window::get_accept_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_accept_focus" gtk_window_get_accept_focus :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetAcceptFocus :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetAcceptFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_accept_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetAcceptFocusMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetAcceptFocusMethodInfo a signature where + overloadedMethod _ = windowGetAcceptFocus + +-- method Window::get_application +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Application" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_application" gtk_window_get_application :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO (Ptr Application) + + +windowGetApplication :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Application -- result +windowGetApplication _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_application _obj' + checkUnexpectedReturnNULL "gtk_window_get_application" result + result' <- (newObject Application) result + touchManagedPtr _obj + return result' + +data WindowGetApplicationMethodInfo +instance (signature ~ (m Application), MonadIO m, WindowK a) => MethodInfo WindowGetApplicationMethodInfo a signature where + overloadedMethod _ = windowGetApplication + +-- method Window::get_attached_to +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_attached_to" gtk_window_get_attached_to :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO (Ptr Widget) + + +windowGetAttachedTo :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Widget -- result +windowGetAttachedTo _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_attached_to _obj' + checkUnexpectedReturnNULL "gtk_window_get_attached_to" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data WindowGetAttachedToMethodInfo +instance (signature ~ (m Widget), MonadIO m, WindowK a) => MethodInfo WindowGetAttachedToMethodInfo a signature where + overloadedMethod _ = windowGetAttachedTo + +-- method Window::get_decorated +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_decorated" gtk_window_get_decorated :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetDecorated :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetDecorated _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_decorated _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetDecoratedMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetDecoratedMethodInfo a signature where + overloadedMethod _ = windowGetDecorated + +-- method Window::get_default_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_default_size" gtk_window_get_default_size :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Int32 -> -- width : TBasicType TInt32 + Ptr Int32 -> -- height : TBasicType TInt32 + IO () + + +windowGetDefaultSize :: + (MonadIO m, WindowK a) => + a -- _obj + -> m (Int32,Int32) -- result +windowGetDefaultSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + width <- allocMem :: IO (Ptr Int32) + height <- allocMem :: IO (Ptr Int32) + gtk_window_get_default_size _obj' width height + width' <- peek width + height' <- peek height + touchManagedPtr _obj + freeMem width + freeMem height + return (width', height') + +data WindowGetDefaultSizeMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetDefaultSizeMethodInfo a signature where + overloadedMethod _ = windowGetDefaultSize + +-- method Window::get_default_widget +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_default_widget" gtk_window_get_default_widget :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO (Ptr Widget) + + +windowGetDefaultWidget :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Widget -- result +windowGetDefaultWidget _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_default_widget _obj' + checkUnexpectedReturnNULL "gtk_window_get_default_widget" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data WindowGetDefaultWidgetMethodInfo +instance (signature ~ (m Widget), MonadIO m, WindowK a) => MethodInfo WindowGetDefaultWidgetMethodInfo a signature where + overloadedMethod _ = windowGetDefaultWidget + +-- method Window::get_deletable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_deletable" gtk_window_get_deletable :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetDeletable :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetDeletable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_deletable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetDeletableMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetDeletableMethodInfo a signature where + overloadedMethod _ = windowGetDeletable + +-- method Window::get_destroy_with_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_destroy_with_parent" gtk_window_get_destroy_with_parent :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetDestroyWithParent :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetDestroyWithParent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_destroy_with_parent _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetDestroyWithParentMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetDestroyWithParentMethodInfo a signature where + overloadedMethod _ = windowGetDestroyWithParent + +-- method Window::get_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_focus" gtk_window_get_focus :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO (Ptr Widget) + + +windowGetFocus :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Widget -- result +windowGetFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_focus _obj' + checkUnexpectedReturnNULL "gtk_window_get_focus" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data WindowGetFocusMethodInfo +instance (signature ~ (m Widget), MonadIO m, WindowK a) => MethodInfo WindowGetFocusMethodInfo a signature where + overloadedMethod _ = windowGetFocus + +-- method Window::get_focus_on_map +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_focus_on_map" gtk_window_get_focus_on_map :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetFocusOnMap :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetFocusOnMap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_focus_on_map _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetFocusOnMapMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetFocusOnMapMethodInfo a signature where + overloadedMethod _ = windowGetFocusOnMap + +-- method Window::get_focus_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_focus_visible" gtk_window_get_focus_visible :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetFocusVisible :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetFocusVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_focus_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetFocusVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetFocusVisibleMethodInfo a signature where + overloadedMethod _ = windowGetFocusVisible + +-- method Window::get_gravity +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Gravity" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_gravity" gtk_window_get_gravity :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CUInt + + +windowGetGravity :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Gdk.Gravity -- result +windowGetGravity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_gravity _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WindowGetGravityMethodInfo +instance (signature ~ (m Gdk.Gravity), MonadIO m, WindowK a) => MethodInfo WindowGetGravityMethodInfo a signature where + overloadedMethod _ = windowGetGravity + +-- method Window::get_group +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "WindowGroup" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_group" gtk_window_get_group :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO (Ptr WindowGroup) + + +windowGetGroup :: + (MonadIO m, WindowK a) => + a -- _obj + -> m WindowGroup -- result +windowGetGroup _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_group _obj' + checkUnexpectedReturnNULL "gtk_window_get_group" result + result' <- (newObject WindowGroup) result + touchManagedPtr _obj + return result' + +data WindowGetGroupMethodInfo +instance (signature ~ (m WindowGroup), MonadIO m, WindowK a) => MethodInfo WindowGetGroupMethodInfo a signature where + overloadedMethod _ = windowGetGroup + +-- method Window::get_has_resize_grip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_has_resize_grip" gtk_window_get_has_resize_grip :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + +{-# DEPRECATED windowGetHasResizeGrip ["(Since version 3.14)","Resize grips have been removed."]#-} +windowGetHasResizeGrip :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetHasResizeGrip _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_has_resize_grip _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetHasResizeGripMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetHasResizeGripMethodInfo a signature where + overloadedMethod _ = windowGetHasResizeGrip + +-- method Window::get_hide_titlebar_when_maximized +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_hide_titlebar_when_maximized" gtk_window_get_hide_titlebar_when_maximized :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetHideTitlebarWhenMaximized :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetHideTitlebarWhenMaximized _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_hide_titlebar_when_maximized _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetHideTitlebarWhenMaximizedMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetHideTitlebarWhenMaximizedMethodInfo a signature where + overloadedMethod _ = windowGetHideTitlebarWhenMaximized + +-- method Window::get_icon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_icon" gtk_window_get_icon :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO (Ptr GdkPixbuf.Pixbuf) + + +windowGetIcon :: + (MonadIO m, WindowK a) => + a -- _obj + -> m GdkPixbuf.Pixbuf -- result +windowGetIcon _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_icon _obj' + checkUnexpectedReturnNULL "gtk_window_get_icon" result + result' <- (newObject GdkPixbuf.Pixbuf) result + touchManagedPtr _obj + return result' + +data WindowGetIconMethodInfo +instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, WindowK a) => MethodInfo WindowGetIconMethodInfo a signature where + overloadedMethod _ = windowGetIcon + +-- method Window::get_icon_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGList (TInterface "GdkPixbuf" "Pixbuf") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_icon_list" gtk_window_get_icon_list :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO (Ptr (GList (Ptr GdkPixbuf.Pixbuf))) + + +windowGetIconList :: + (MonadIO m, WindowK a) => + a -- _obj + -> m [GdkPixbuf.Pixbuf] -- result +windowGetIconList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_icon_list _obj' + checkUnexpectedReturnNULL "gtk_window_get_icon_list" result + result' <- unpackGList result + result'' <- mapM (newObject GdkPixbuf.Pixbuf) result' + g_list_free result + touchManagedPtr _obj + return result'' + +data WindowGetIconListMethodInfo +instance (signature ~ (m [GdkPixbuf.Pixbuf]), MonadIO m, WindowK a) => MethodInfo WindowGetIconListMethodInfo a signature where + overloadedMethod _ = windowGetIconList + +-- method Window::get_icon_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_icon_name" gtk_window_get_icon_name :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CString + + +windowGetIconName :: + (MonadIO m, WindowK a) => + a -- _obj + -> m T.Text -- result +windowGetIconName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_icon_name _obj' + checkUnexpectedReturnNULL "gtk_window_get_icon_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data WindowGetIconNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WindowK a) => MethodInfo WindowGetIconNameMethodInfo a signature where + overloadedMethod _ = windowGetIconName + +-- method Window::get_mnemonic_modifier +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "ModifierType" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_mnemonic_modifier" gtk_window_get_mnemonic_modifier :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CUInt + + +windowGetMnemonicModifier :: + (MonadIO m, WindowK a) => + a -- _obj + -> m [Gdk.ModifierType] -- result +windowGetMnemonicModifier _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_mnemonic_modifier _obj' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +data WindowGetMnemonicModifierMethodInfo +instance (signature ~ (m [Gdk.ModifierType]), MonadIO m, WindowK a) => MethodInfo WindowGetMnemonicModifierMethodInfo a signature where + overloadedMethod _ = windowGetMnemonicModifier + +-- method Window::get_mnemonics_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_mnemonics_visible" gtk_window_get_mnemonics_visible :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetMnemonicsVisible :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetMnemonicsVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_mnemonics_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetMnemonicsVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetMnemonicsVisibleMethodInfo a signature where + overloadedMethod _ = windowGetMnemonicsVisible + +-- method Window::get_modal +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_modal" gtk_window_get_modal :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetModal :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetModal _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_modal _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetModalMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetModalMethodInfo a signature where + overloadedMethod _ = windowGetModal + +-- method Window::get_opacity +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_opacity" gtk_window_get_opacity :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CDouble + +{-# DEPRECATED windowGetOpacity ["(Since version 3.8)","Use gtk_widget_get_opacity instead."]#-} +windowGetOpacity :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Double -- result +windowGetOpacity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_opacity _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data WindowGetOpacityMethodInfo +instance (signature ~ (m Double), MonadIO m, WindowK a) => MethodInfo WindowGetOpacityMethodInfo a signature where + overloadedMethod _ = windowGetOpacity + +-- method Window::get_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "root_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_position" gtk_window_get_position :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Int32 -> -- root_x : TBasicType TInt32 + Ptr Int32 -> -- root_y : TBasicType TInt32 + IO () + + +windowGetPosition :: + (MonadIO m, WindowK a) => + a -- _obj + -> m (Int32,Int32) -- result +windowGetPosition _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + rootX <- allocMem :: IO (Ptr Int32) + rootY <- allocMem :: IO (Ptr Int32) + gtk_window_get_position _obj' rootX rootY + rootX' <- peek rootX + rootY' <- peek rootY + touchManagedPtr _obj + freeMem rootX + freeMem rootY + return (rootX', rootY') + +data WindowGetPositionMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetPositionMethodInfo a signature where + overloadedMethod _ = windowGetPosition + +-- method Window::get_resizable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_resizable" gtk_window_get_resizable :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetResizable :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetResizable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_resizable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetResizableMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetResizableMethodInfo a signature where + overloadedMethod _ = windowGetResizable + +-- method Window::get_resize_grip_area +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_resize_grip_area" gtk_window_get_resize_grip_area :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Gdk.Rectangle -> -- rect : TInterface "Gdk" "Rectangle" + IO CInt + +{-# DEPRECATED windowGetResizeGripArea ["(Since version 3.14)","Resize grips have been removed."]#-} +windowGetResizeGripArea :: + (MonadIO m, WindowK a) => + a -- _obj + -> m (Bool,Gdk.Rectangle) -- result +windowGetResizeGripArea _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + result <- gtk_window_get_resize_grip_area _obj' rect + let result' = (/= 0) result + rect' <- (wrapBoxed Gdk.Rectangle) rect + touchManagedPtr _obj + return (result', rect') + +data WindowGetResizeGripAreaMethodInfo +instance (signature ~ (m (Bool,Gdk.Rectangle)), MonadIO m, WindowK a) => MethodInfo WindowGetResizeGripAreaMethodInfo a signature where + overloadedMethod _ = windowGetResizeGripArea + +-- method Window::get_role +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_role" gtk_window_get_role :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CString + + +windowGetRole :: + (MonadIO m, WindowK a) => + a -- _obj + -> m T.Text -- result +windowGetRole _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_role _obj' + checkUnexpectedReturnNULL "gtk_window_get_role" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data WindowGetRoleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WindowK a) => MethodInfo WindowGetRoleMethodInfo a signature where + overloadedMethod _ = windowGetRole + +-- method Window::get_screen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "Screen" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_screen" gtk_window_get_screen :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO (Ptr Gdk.Screen) + + +windowGetScreen :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Gdk.Screen -- result +windowGetScreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_screen _obj' + checkUnexpectedReturnNULL "gtk_window_get_screen" result + result' <- (newObject Gdk.Screen) result + touchManagedPtr _obj + return result' + +data WindowGetScreenMethodInfo +instance (signature ~ (m Gdk.Screen), MonadIO m, WindowK a) => MethodInfo WindowGetScreenMethodInfo a signature where + overloadedMethod _ = windowGetScreen + +-- method Window::get_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_size" gtk_window_get_size :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Int32 -> -- width : TBasicType TInt32 + Ptr Int32 -> -- height : TBasicType TInt32 + IO () + + +windowGetSize :: + (MonadIO m, WindowK a) => + a -- _obj + -> m (Int32,Int32) -- result +windowGetSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + width <- allocMem :: IO (Ptr Int32) + height <- allocMem :: IO (Ptr Int32) + gtk_window_get_size _obj' width height + width' <- peek width + height' <- peek height + touchManagedPtr _obj + freeMem width + freeMem height + return (width', height') + +data WindowGetSizeMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetSizeMethodInfo a signature where + overloadedMethod _ = windowGetSize + +-- method Window::get_skip_pager_hint +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_skip_pager_hint" gtk_window_get_skip_pager_hint :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetSkipPagerHint :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetSkipPagerHint _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_skip_pager_hint _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetSkipPagerHintMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetSkipPagerHintMethodInfo a signature where + overloadedMethod _ = windowGetSkipPagerHint + +-- method Window::get_skip_taskbar_hint +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_skip_taskbar_hint" gtk_window_get_skip_taskbar_hint :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetSkipTaskbarHint :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetSkipTaskbarHint _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_skip_taskbar_hint _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetSkipTaskbarHintMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetSkipTaskbarHintMethodInfo a signature where + overloadedMethod _ = windowGetSkipTaskbarHint + +-- method Window::get_title +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_title" gtk_window_get_title :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CString + + +windowGetTitle :: + (MonadIO m, WindowK a) => + a -- _obj + -> m T.Text -- result +windowGetTitle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_title _obj' + checkUnexpectedReturnNULL "gtk_window_get_title" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data WindowGetTitleMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WindowK a) => MethodInfo WindowGetTitleMethodInfo a signature where + overloadedMethod _ = windowGetTitle + +-- method Window::get_titlebar +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Widget" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_titlebar" gtk_window_get_titlebar :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO (Ptr Widget) + + +windowGetTitlebar :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Widget -- result +windowGetTitlebar _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_titlebar _obj' + checkUnexpectedReturnNULL "gtk_window_get_titlebar" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data WindowGetTitlebarMethodInfo +instance (signature ~ (m Widget), MonadIO m, WindowK a) => MethodInfo WindowGetTitlebarMethodInfo a signature where + overloadedMethod _ = windowGetTitlebar + +-- method Window::get_transient_for +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "Window" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_transient_for" gtk_window_get_transient_for :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO (Ptr Window) + + +windowGetTransientFor :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Window -- result +windowGetTransientFor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_transient_for _obj' + checkUnexpectedReturnNULL "gtk_window_get_transient_for" result + result' <- (newObject Window) result + touchManagedPtr _obj + return result' + +data WindowGetTransientForMethodInfo +instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetTransientForMethodInfo a signature where + overloadedMethod _ = windowGetTransientFor + +-- method Window::get_type_hint +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gdk" "WindowTypeHint" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_type_hint" gtk_window_get_type_hint :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CUInt + + +windowGetTypeHint :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Gdk.WindowTypeHint -- result +windowGetTypeHint _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_type_hint _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WindowGetTypeHintMethodInfo +instance (signature ~ (m Gdk.WindowTypeHint), MonadIO m, WindowK a) => MethodInfo WindowGetTypeHintMethodInfo a signature where + overloadedMethod _ = windowGetTypeHint + +-- method Window::get_urgency_hint +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_urgency_hint" gtk_window_get_urgency_hint :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowGetUrgencyHint :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowGetUrgencyHint _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_urgency_hint _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowGetUrgencyHintMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetUrgencyHintMethodInfo a signature where + overloadedMethod _ = windowGetUrgencyHint + +-- method Window::get_window_type +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "WindowType" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_window_type" gtk_window_get_window_type :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CUInt + + +windowGetWindowType :: + (MonadIO m, WindowK a) => + a -- _obj + -> m WindowType -- result +windowGetWindowType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_get_window_type _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WindowGetWindowTypeMethodInfo +instance (signature ~ (m WindowType), MonadIO m, WindowK a) => MethodInfo WindowGetWindowTypeMethodInfo a signature where + overloadedMethod _ = windowGetWindowType + +-- method Window::has_group +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_has_group" gtk_window_has_group :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowHasGroup :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowHasGroup _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_has_group _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowHasGroupMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowHasGroupMethodInfo a signature where + overloadedMethod _ = windowHasGroup + +-- method Window::has_toplevel_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_has_toplevel_focus" gtk_window_has_toplevel_focus :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowHasToplevelFocus :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowHasToplevelFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_has_toplevel_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowHasToplevelFocusMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowHasToplevelFocusMethodInfo a signature where + overloadedMethod _ = windowHasToplevelFocus + +-- method Window::iconify +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_iconify" gtk_window_iconify :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO () + + +windowIconify :: + (MonadIO m, WindowK a) => + a -- _obj + -> m () -- result +windowIconify _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_iconify _obj' + touchManagedPtr _obj + return () + +data WindowIconifyMethodInfo +instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowIconifyMethodInfo a signature where + overloadedMethod _ = windowIconify + +-- method Window::is_active +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_is_active" gtk_window_is_active :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowIsActive :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowIsActive _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_is_active _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowIsActiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsActiveMethodInfo a signature where + overloadedMethod _ = windowIsActive + +-- method Window::is_maximized +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_is_maximized" gtk_window_is_maximized :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + + +windowIsMaximized :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowIsMaximized _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_is_maximized _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowIsMaximizedMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsMaximizedMethodInfo a signature where + overloadedMethod _ = windowIsMaximized + +-- method Window::maximize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_maximize" gtk_window_maximize :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO () + + +windowMaximize :: + (MonadIO m, WindowK a) => + a -- _obj + -> m () -- result +windowMaximize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_maximize _obj' + touchManagedPtr _obj + return () + +data WindowMaximizeMethodInfo +instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowMaximizeMethodInfo a signature where + overloadedMethod _ = windowMaximize + +-- method Window::mnemonic_activate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_mnemonic_activate" gtk_window_mnemonic_activate :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Word32 -> -- keyval : TBasicType TUInt32 + CUInt -> -- modifier : TInterface "Gdk" "ModifierType" + IO CInt + + +windowMnemonicActivate :: + (MonadIO m, WindowK a) => + a -- _obj + -> Word32 -- keyval + -> [Gdk.ModifierType] -- modifier + -> m Bool -- result +windowMnemonicActivate _obj keyval modifier = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let modifier' = gflagsToWord modifier + result <- gtk_window_mnemonic_activate _obj' keyval modifier' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowMnemonicActivateMethodInfo +instance (signature ~ (Word32 -> [Gdk.ModifierType] -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowMnemonicActivateMethodInfo a signature where + overloadedMethod _ = windowMnemonicActivate + +-- method Window::move +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_move" gtk_window_move :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt32 + IO () + + +windowMove :: + (MonadIO m, WindowK a) => + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> m () -- result +windowMove _obj x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_move _obj' x y + touchManagedPtr _obj + return () + +data WindowMoveMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMoveMethodInfo a signature where + overloadedMethod _ = windowMove + +-- method Window::parse_geometry +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_parse_geometry" gtk_window_parse_geometry :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CString -> -- geometry : TBasicType TUTF8 + IO CInt + + +windowParseGeometry :: + (MonadIO m, WindowK a) => + a -- _obj + -> T.Text -- geometry + -> m Bool -- result +windowParseGeometry _obj geometry = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + geometry' <- textToCString geometry + result <- gtk_window_parse_geometry _obj' geometry' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem geometry' + return result' + +data WindowParseGeometryMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowParseGeometryMethodInfo a signature where + overloadedMethod _ = windowParseGeometry + +-- method Window::present +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_present" gtk_window_present :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO () + + +windowPresent :: + (MonadIO m, WindowK a) => + a -- _obj + -> m () -- result +windowPresent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_present _obj' + touchManagedPtr _obj + return () + +data WindowPresentMethodInfo +instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowPresentMethodInfo a signature where + overloadedMethod _ = windowPresent + +-- method Window::present_with_time +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_present_with_time" gtk_window_present_with_time :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Word32 -> -- timestamp : TBasicType TUInt32 + IO () + + +windowPresentWithTime :: + (MonadIO m, WindowK a) => + a -- _obj + -> Word32 -- timestamp + -> m () -- result +windowPresentWithTime _obj timestamp = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_present_with_time _obj' timestamp + touchManagedPtr _obj + return () + +data WindowPresentWithTimeMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowPresentWithTimeMethodInfo a signature where + overloadedMethod _ = windowPresentWithTime + +-- method Window::propagate_key_event +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_propagate_key_event" gtk_window_propagate_key_event :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey" + IO CInt + + +windowPropagateKeyEvent :: + (MonadIO m, WindowK a) => + a -- _obj + -> Gdk.EventKey -- event + -> m Bool -- result +windowPropagateKeyEvent _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrGetPtr event + result <- gtk_window_propagate_key_event _obj' event' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr event + return result' + +data WindowPropagateKeyEventMethodInfo +instance (signature ~ (Gdk.EventKey -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowPropagateKeyEventMethodInfo a signature where + overloadedMethod _ = windowPropagateKeyEvent + +-- method Window::remove_accel_group +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_remove_accel_group" gtk_window_remove_accel_group :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" + IO () + + +windowRemoveAccelGroup :: + (MonadIO m, WindowK a, AccelGroupK b) => + a -- _obj + -> b -- accelGroup + -> m () -- result +windowRemoveAccelGroup _obj accelGroup = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let accelGroup' = unsafeManagedPtrCastPtr accelGroup + gtk_window_remove_accel_group _obj' accelGroup' + touchManagedPtr _obj + touchManagedPtr accelGroup + return () + +data WindowRemoveAccelGroupMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WindowK a, AccelGroupK b) => MethodInfo WindowRemoveAccelGroupMethodInfo a signature where + overloadedMethod _ = windowRemoveAccelGroup + +-- method Window::remove_mnemonic +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_remove_mnemonic" gtk_window_remove_mnemonic :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Word32 -> -- keyval : TBasicType TUInt32 + Ptr Widget -> -- target : TInterface "Gtk" "Widget" + IO () + + +windowRemoveMnemonic :: + (MonadIO m, WindowK a, WidgetK b) => + a -- _obj + -> Word32 -- keyval + -> b -- target + -> m () -- result +windowRemoveMnemonic _obj keyval target = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let target' = unsafeManagedPtrCastPtr target + gtk_window_remove_mnemonic _obj' keyval target' + touchManagedPtr _obj + touchManagedPtr target + return () + +data WindowRemoveMnemonicMethodInfo +instance (signature ~ (Word32 -> b -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowRemoveMnemonicMethodInfo a signature where + overloadedMethod _ = windowRemoveMnemonic + +-- method Window::reshow_with_initial_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_reshow_with_initial_size" gtk_window_reshow_with_initial_size :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO () + +{-# DEPRECATED windowReshowWithInitialSize ["(Since version 3.10)","GUI builders can call gtk_widget_hide(),"," gtk_widget_unrealize() and then gtk_widget_show() on @window"," themselves, if they still need this functionality."]#-} +windowReshowWithInitialSize :: + (MonadIO m, WindowK a) => + a -- _obj + -> m () -- result +windowReshowWithInitialSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_reshow_with_initial_size _obj' + touchManagedPtr _obj + return () + +data WindowReshowWithInitialSizeMethodInfo +instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowReshowWithInitialSizeMethodInfo a signature where + overloadedMethod _ = windowReshowWithInitialSize + +-- method Window::resize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_resize" gtk_window_resize :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + IO () + + +windowResize :: + (MonadIO m, WindowK a) => + a -- _obj + -> Int32 -- width + -> Int32 -- height + -> m () -- result +windowResize _obj width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_resize _obj' width height + touchManagedPtr _obj + return () + +data WindowResizeMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowResizeMethodInfo a signature where + overloadedMethod _ = windowResize + +-- method Window::resize_grip_is_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_resize_grip_is_visible" gtk_window_resize_grip_is_visible :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO CInt + +{-# DEPRECATED windowResizeGripIsVisible ["(Since version 3.14)","Resize grips have been removed."]#-} +windowResizeGripIsVisible :: + (MonadIO m, WindowK a) => + a -- _obj + -> m Bool -- result +windowResizeGripIsVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_window_resize_grip_is_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WindowResizeGripIsVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowResizeGripIsVisibleMethodInfo a signature where + overloadedMethod _ = windowResizeGripIsVisible + +-- method Window::resize_to_geometry +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_resize_to_geometry" gtk_window_resize_to_geometry :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + IO () + + +windowResizeToGeometry :: + (MonadIO m, WindowK a) => + a -- _obj + -> Int32 -- width + -> Int32 -- height + -> m () -- result +windowResizeToGeometry _obj width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_resize_to_geometry _obj' width height + touchManagedPtr _obj + return () + +data WindowResizeToGeometryMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowResizeToGeometryMethodInfo a signature where + overloadedMethod _ = windowResizeToGeometry + +-- method Window::set_accept_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_accept_focus" gtk_window_set_accept_focus :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetAcceptFocus :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetAcceptFocus _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_accept_focus _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetAcceptFocusMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetAcceptFocusMethodInfo a signature where + overloadedMethod _ = windowSetAcceptFocus + +-- method Window::set_application +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_application" gtk_window_set_application :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Application -> -- application : TInterface "Gtk" "Application" + IO () + + +windowSetApplication :: + (MonadIO m, WindowK a, ApplicationK b) => + a -- _obj + -> Maybe (b) -- application + -> m () -- result +windowSetApplication _obj application = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeApplication <- case application of + Nothing -> return nullPtr + Just jApplication -> do + let jApplication' = unsafeManagedPtrCastPtr jApplication + return jApplication' + gtk_window_set_application _obj' maybeApplication + touchManagedPtr _obj + whenJust application touchManagedPtr + return () + +data WindowSetApplicationMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, ApplicationK b) => MethodInfo WindowSetApplicationMethodInfo a signature where + overloadedMethod _ = windowSetApplication + +-- method Window::set_attached_to +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_attached_to" gtk_window_set_attached_to :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Widget -> -- attach_widget : TInterface "Gtk" "Widget" + IO () + + +windowSetAttachedTo :: + (MonadIO m, WindowK a, WidgetK b) => + a -- _obj + -> Maybe (b) -- attachWidget + -> m () -- result +windowSetAttachedTo _obj attachWidget = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeAttachWidget <- case attachWidget of + Nothing -> return nullPtr + Just jAttachWidget -> do + let jAttachWidget' = unsafeManagedPtrCastPtr jAttachWidget + return jAttachWidget' + gtk_window_set_attached_to _obj' maybeAttachWidget + touchManagedPtr _obj + whenJust attachWidget touchManagedPtr + return () + +data WindowSetAttachedToMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowSetAttachedToMethodInfo a signature where + overloadedMethod _ = windowSetAttachedTo + +-- method Window::set_decorated +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_decorated" gtk_window_set_decorated :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetDecorated :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetDecorated _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_decorated _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetDecoratedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDecoratedMethodInfo a signature where + overloadedMethod _ = windowSetDecorated + +-- method Window::set_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_default" gtk_window_set_default :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Widget -> -- default_widget : TInterface "Gtk" "Widget" + IO () + + +windowSetDefault :: + (MonadIO m, WindowK a, WidgetK b) => + a -- _obj + -> Maybe (b) -- defaultWidget + -> m () -- result +windowSetDefault _obj defaultWidget = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeDefaultWidget <- case defaultWidget of + Nothing -> return nullPtr + Just jDefaultWidget -> do + let jDefaultWidget' = unsafeManagedPtrCastPtr jDefaultWidget + return jDefaultWidget' + gtk_window_set_default _obj' maybeDefaultWidget + touchManagedPtr _obj + whenJust defaultWidget touchManagedPtr + return () + +data WindowSetDefaultMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowSetDefaultMethodInfo a signature where + overloadedMethod _ = windowSetDefault + +-- method Window::set_default_geometry +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_default_geometry" gtk_window_set_default_geometry :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + IO () + + +windowSetDefaultGeometry :: + (MonadIO m, WindowK a) => + a -- _obj + -> Int32 -- width + -> Int32 -- height + -> m () -- result +windowSetDefaultGeometry _obj width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_set_default_geometry _obj' width height + touchManagedPtr _obj + return () + +data WindowSetDefaultGeometryMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDefaultGeometryMethodInfo a signature where + overloadedMethod _ = windowSetDefaultGeometry + +-- method Window::set_default_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_default_size" gtk_window_set_default_size :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + IO () + + +windowSetDefaultSize :: + (MonadIO m, WindowK a) => + a -- _obj + -> Int32 -- width + -> Int32 -- height + -> m () -- result +windowSetDefaultSize _obj width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_set_default_size _obj' width height + touchManagedPtr _obj + return () + +data WindowSetDefaultSizeMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDefaultSizeMethodInfo a signature where + overloadedMethod _ = windowSetDefaultSize + +-- method Window::set_deletable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_deletable" gtk_window_set_deletable :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetDeletable :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetDeletable _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_deletable _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetDeletableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDeletableMethodInfo a signature where + overloadedMethod _ = windowSetDeletable + +-- method Window::set_destroy_with_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_destroy_with_parent" gtk_window_set_destroy_with_parent :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetDestroyWithParent :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetDestroyWithParent _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_destroy_with_parent _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetDestroyWithParentMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDestroyWithParentMethodInfo a signature where + overloadedMethod _ = windowSetDestroyWithParent + +-- method Window::set_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_focus" gtk_window_set_focus :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Widget -> -- focus : TInterface "Gtk" "Widget" + IO () + + +windowSetFocus :: + (MonadIO m, WindowK a, WidgetK b) => + a -- _obj + -> Maybe (b) -- focus + -> m () -- result +windowSetFocus _obj focus = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeFocus <- case focus of + Nothing -> return nullPtr + Just jFocus -> do + let jFocus' = unsafeManagedPtrCastPtr jFocus + return jFocus' + gtk_window_set_focus _obj' maybeFocus + touchManagedPtr _obj + whenJust focus touchManagedPtr + return () + +data WindowSetFocusMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowSetFocusMethodInfo a signature where + overloadedMethod _ = windowSetFocus + +-- method Window::set_focus_on_map +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_focus_on_map" gtk_window_set_focus_on_map :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetFocusOnMap :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetFocusOnMap _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_focus_on_map _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetFocusOnMapMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFocusOnMapMethodInfo a signature where + overloadedMethod _ = windowSetFocusOnMap + +-- method Window::set_focus_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_focus_visible" gtk_window_set_focus_visible :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetFocusVisible :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetFocusVisible _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_focus_visible _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetFocusVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFocusVisibleMethodInfo a signature where + overloadedMethod _ = windowSetFocusVisible + +-- method Window::set_geometry_hints +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_geometry_hints" gtk_window_set_geometry_hints :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Widget -> -- geometry_widget : TInterface "Gtk" "Widget" + Ptr Gdk.Geometry -> -- geometry : TInterface "Gdk" "Geometry" + CUInt -> -- geom_mask : TInterface "Gdk" "WindowHints" + IO () + + +windowSetGeometryHints :: + (MonadIO m, WindowK a, WidgetK b) => + a -- _obj + -> Maybe (b) -- geometryWidget + -> Maybe (Gdk.Geometry) -- geometry + -> [Gdk.WindowHints] -- geomMask + -> m () -- result +windowSetGeometryHints _obj geometryWidget geometry geomMask = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeGeometryWidget <- case geometryWidget of + Nothing -> return nullPtr + Just jGeometryWidget -> do + let jGeometryWidget' = unsafeManagedPtrCastPtr jGeometryWidget + return jGeometryWidget' + maybeGeometry <- case geometry of + Nothing -> return nullPtr + Just jGeometry -> do + let jGeometry' = unsafeManagedPtrGetPtr jGeometry + return jGeometry' + let geomMask' = gflagsToWord geomMask + gtk_window_set_geometry_hints _obj' maybeGeometryWidget maybeGeometry geomMask' + touchManagedPtr _obj + whenJust geometryWidget touchManagedPtr + whenJust geometry touchManagedPtr + return () + +data WindowSetGeometryHintsMethodInfo +instance (signature ~ (Maybe (b) -> Maybe (Gdk.Geometry) -> [Gdk.WindowHints] -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowSetGeometryHintsMethodInfo a signature where + overloadedMethod _ = windowSetGeometryHints + +-- method Window::set_gravity +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gravity", argType = TInterface "Gdk" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_gravity" gtk_window_set_gravity :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CUInt -> -- gravity : TInterface "Gdk" "Gravity" + IO () + + +windowSetGravity :: + (MonadIO m, WindowK a) => + a -- _obj + -> Gdk.Gravity -- gravity + -> m () -- result +windowSetGravity _obj gravity = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let gravity' = (fromIntegral . fromEnum) gravity + gtk_window_set_gravity _obj' gravity' + touchManagedPtr _obj + return () + +data WindowSetGravityMethodInfo +instance (signature ~ (Gdk.Gravity -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetGravityMethodInfo a signature where + overloadedMethod _ = windowSetGravity + +-- method Window::set_has_resize_grip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_has_resize_grip" gtk_window_set_has_resize_grip :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- value : TBasicType TBoolean + IO () + +{-# DEPRECATED windowSetHasResizeGrip ["(Since version 3.14)","Resize grips have been removed."]#-} +windowSetHasResizeGrip :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- value + -> m () -- result +windowSetHasResizeGrip _obj value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let value' = (fromIntegral . fromEnum) value + gtk_window_set_has_resize_grip _obj' value' + touchManagedPtr _obj + return () + +data WindowSetHasResizeGripMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetHasResizeGripMethodInfo a signature where + overloadedMethod _ = windowSetHasResizeGrip + +-- method Window::set_has_user_ref_count +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_has_user_ref_count" gtk_window_set_has_user_ref_count :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetHasUserRefCount :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetHasUserRefCount _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_has_user_ref_count _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetHasUserRefCountMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetHasUserRefCountMethodInfo a signature where + overloadedMethod _ = windowSetHasUserRefCount + +-- method Window::set_hide_titlebar_when_maximized +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_hide_titlebar_when_maximized" gtk_window_set_hide_titlebar_when_maximized :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetHideTitlebarWhenMaximized :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetHideTitlebarWhenMaximized _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_hide_titlebar_when_maximized _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetHideTitlebarWhenMaximizedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetHideTitlebarWhenMaximizedMethodInfo a signature where + overloadedMethod _ = windowSetHideTitlebarWhenMaximized + +-- method Window::set_icon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_icon" gtk_window_set_icon :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr GdkPixbuf.Pixbuf -> -- icon : TInterface "GdkPixbuf" "Pixbuf" + IO () + + +windowSetIcon :: + (MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => + a -- _obj + -> Maybe (b) -- icon + -> m () -- result +windowSetIcon _obj icon = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeIcon <- case icon of + Nothing -> return nullPtr + Just jIcon -> do + let jIcon' = unsafeManagedPtrCastPtr jIcon + return jIcon' + gtk_window_set_icon _obj' maybeIcon + touchManagedPtr _obj + whenJust icon touchManagedPtr + return () + +data WindowSetIconMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => MethodInfo WindowSetIconMethodInfo a signature where + overloadedMethod _ = windowSetIcon + +-- method Window::set_icon_from_file +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_window_set_icon_from_file" gtk_window_set_icon_from_file :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CString -> -- filename : TBasicType TFileName + Ptr (Ptr GError) -> -- error + IO CInt + + +windowSetIconFromFile :: + (MonadIO m, WindowK a) => + a -- _obj + -> [Char] -- filename + -> m () -- result +windowSetIconFromFile _obj filename = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + filename' <- stringToCString filename + onException (do + _ <- propagateGError $ gtk_window_set_icon_from_file _obj' filename' + touchManagedPtr _obj + freeMem filename' + return () + ) (do + freeMem filename' + ) + +data WindowSetIconFromFileMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetIconFromFileMethodInfo a signature where + overloadedMethod _ = windowSetIconFromFile + +-- method Window::set_icon_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_icon_list" gtk_window_set_icon_list :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr (GList (Ptr GdkPixbuf.Pixbuf)) -> -- list : TGList (TInterface "GdkPixbuf" "Pixbuf") + IO () + + +windowSetIconList :: + (MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => + a -- _obj + -> [b] -- list + -> m () -- result +windowSetIconList _obj list = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let list' = map unsafeManagedPtrCastPtr list + list'' <- packGList list' + gtk_window_set_icon_list _obj' list'' + touchManagedPtr _obj + mapM_ touchManagedPtr list + g_list_free list'' + return () + +data WindowSetIconListMethodInfo +instance (signature ~ ([b] -> m ()), MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => MethodInfo WindowSetIconListMethodInfo a signature where + overloadedMethod _ = windowSetIconList + +-- method Window::set_icon_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_icon_name" gtk_window_set_icon_name :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CString -> -- name : TBasicType TUTF8 + IO () + + +windowSetIconName :: + (MonadIO m, WindowK a) => + a -- _obj + -> Maybe (T.Text) -- name + -> m () -- result +windowSetIconName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeName <- case name of + Nothing -> return nullPtr + Just jName -> do + jName' <- textToCString jName + return jName' + gtk_window_set_icon_name _obj' maybeName + touchManagedPtr _obj + freeMem maybeName + return () + +data WindowSetIconNameMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetIconNameMethodInfo a signature where + overloadedMethod _ = windowSetIconName + +-- method Window::set_keep_above +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_keep_above" gtk_window_set_keep_above :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetKeepAbove :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetKeepAbove _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_keep_above _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetKeepAboveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetKeepAboveMethodInfo a signature where + overloadedMethod _ = windowSetKeepAbove + +-- method Window::set_keep_below +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_keep_below" gtk_window_set_keep_below :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetKeepBelow :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetKeepBelow _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_keep_below _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetKeepBelowMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetKeepBelowMethodInfo a signature where + overloadedMethod _ = windowSetKeepBelow + +-- method Window::set_mnemonic_modifier +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_mnemonic_modifier" gtk_window_set_mnemonic_modifier :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CUInt -> -- modifier : TInterface "Gdk" "ModifierType" + IO () + + +windowSetMnemonicModifier :: + (MonadIO m, WindowK a) => + a -- _obj + -> [Gdk.ModifierType] -- modifier + -> m () -- result +windowSetMnemonicModifier _obj modifier = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let modifier' = gflagsToWord modifier + gtk_window_set_mnemonic_modifier _obj' modifier' + touchManagedPtr _obj + return () + +data WindowSetMnemonicModifierMethodInfo +instance (signature ~ ([Gdk.ModifierType] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetMnemonicModifierMethodInfo a signature where + overloadedMethod _ = windowSetMnemonicModifier + +-- method Window::set_mnemonics_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_mnemonics_visible" gtk_window_set_mnemonics_visible :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetMnemonicsVisible :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetMnemonicsVisible _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_mnemonics_visible _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetMnemonicsVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetMnemonicsVisibleMethodInfo a signature where + overloadedMethod _ = windowSetMnemonicsVisible + +-- method Window::set_modal +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_modal" gtk_window_set_modal :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- modal : TBasicType TBoolean + IO () + + +windowSetModal :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- modal + -> m () -- result +windowSetModal _obj modal = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let modal' = (fromIntegral . fromEnum) modal + gtk_window_set_modal _obj' modal' + touchManagedPtr _obj + return () + +data WindowSetModalMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetModalMethodInfo a signature where + overloadedMethod _ = windowSetModal + +-- method Window::set_opacity +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_opacity" gtk_window_set_opacity :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CDouble -> -- opacity : TBasicType TDouble + IO () + +{-# DEPRECATED windowSetOpacity ["(Since version 3.8)","Use gtk_widget_set_opacity instead."]#-} +windowSetOpacity :: + (MonadIO m, WindowK a) => + a -- _obj + -> Double -- opacity + -> m () -- result +windowSetOpacity _obj opacity = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let opacity' = realToFrac opacity + gtk_window_set_opacity _obj' opacity' + touchManagedPtr _obj + return () + +data WindowSetOpacityMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetOpacityMethodInfo a signature where + overloadedMethod _ = windowSetOpacity + +-- method Window::set_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "WindowPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_position" gtk_window_set_position :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CUInt -> -- position : TInterface "Gtk" "WindowPosition" + IO () + + +windowSetPosition :: + (MonadIO m, WindowK a) => + a -- _obj + -> WindowPosition -- position + -> m () -- result +windowSetPosition _obj position = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let position' = (fromIntegral . fromEnum) position + gtk_window_set_position _obj' position' + touchManagedPtr _obj + return () + +data WindowSetPositionMethodInfo +instance (signature ~ (WindowPosition -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetPositionMethodInfo a signature where + overloadedMethod _ = windowSetPosition + +-- method Window::set_resizable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_resizable" gtk_window_set_resizable :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- resizable : TBasicType TBoolean + IO () + + +windowSetResizable :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- resizable + -> m () -- result +windowSetResizable _obj resizable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let resizable' = (fromIntegral . fromEnum) resizable + gtk_window_set_resizable _obj' resizable' + touchManagedPtr _obj + return () + +data WindowSetResizableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetResizableMethodInfo a signature where + overloadedMethod _ = windowSetResizable + +-- method Window::set_role +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_role" gtk_window_set_role :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CString -> -- role : TBasicType TUTF8 + IO () + + +windowSetRole :: + (MonadIO m, WindowK a) => + a -- _obj + -> T.Text -- role + -> m () -- result +windowSetRole _obj role = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + role' <- textToCString role + gtk_window_set_role _obj' role' + touchManagedPtr _obj + freeMem role' + return () + +data WindowSetRoleMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetRoleMethodInfo a signature where + overloadedMethod _ = windowSetRole + +-- method Window::set_screen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_screen" gtk_window_set_screen :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" + IO () + + +windowSetScreen :: + (MonadIO m, WindowK a, Gdk.ScreenK b) => + a -- _obj + -> b -- screen + -> m () -- result +windowSetScreen _obj screen = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let screen' = unsafeManagedPtrCastPtr screen + gtk_window_set_screen _obj' screen' + touchManagedPtr _obj + touchManagedPtr screen + return () + +data WindowSetScreenMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WindowK a, Gdk.ScreenK b) => MethodInfo WindowSetScreenMethodInfo a signature where + overloadedMethod _ = windowSetScreen + +-- method Window::set_skip_pager_hint +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_skip_pager_hint" gtk_window_set_skip_pager_hint :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetSkipPagerHint :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetSkipPagerHint _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_skip_pager_hint _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetSkipPagerHintMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSkipPagerHintMethodInfo a signature where + overloadedMethod _ = windowSetSkipPagerHint + +-- method Window::set_skip_taskbar_hint +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_skip_taskbar_hint" gtk_window_set_skip_taskbar_hint :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetSkipTaskbarHint :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetSkipTaskbarHint _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_skip_taskbar_hint _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetSkipTaskbarHintMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSkipTaskbarHintMethodInfo a signature where + overloadedMethod _ = windowSetSkipTaskbarHint + +-- method Window::set_startup_id +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_startup_id" gtk_window_set_startup_id :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CString -> -- startup_id : TBasicType TUTF8 + IO () + + +windowSetStartupId :: + (MonadIO m, WindowK a) => + a -- _obj + -> T.Text -- startupId + -> m () -- result +windowSetStartupId _obj startupId = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + startupId' <- textToCString startupId + gtk_window_set_startup_id _obj' startupId' + touchManagedPtr _obj + freeMem startupId' + return () + +data WindowSetStartupIdMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetStartupIdMethodInfo a signature where + overloadedMethod _ = windowSetStartupId + +-- method Window::set_title +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_title" gtk_window_set_title :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CString -> -- title : TBasicType TUTF8 + IO () + + +windowSetTitle :: + (MonadIO m, WindowK a) => + a -- _obj + -> T.Text -- title + -> m () -- result +windowSetTitle _obj title = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + title' <- textToCString title + gtk_window_set_title _obj' title' + touchManagedPtr _obj + freeMem title' + return () + +data WindowSetTitleMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetTitleMethodInfo a signature where + overloadedMethod _ = windowSetTitle + +-- method Window::set_titlebar +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "titlebar", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_titlebar" gtk_window_set_titlebar :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Widget -> -- titlebar : TInterface "Gtk" "Widget" + IO () + + +windowSetTitlebar :: + (MonadIO m, WindowK a, WidgetK b) => + a -- _obj + -> Maybe (b) -- titlebar + -> m () -- result +windowSetTitlebar _obj titlebar = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeTitlebar <- case titlebar of + Nothing -> return nullPtr + Just jTitlebar -> do + let jTitlebar' = unsafeManagedPtrCastPtr jTitlebar + return jTitlebar' + gtk_window_set_titlebar _obj' maybeTitlebar + touchManagedPtr _obj + whenJust titlebar touchManagedPtr + return () + +data WindowSetTitlebarMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WidgetK b) => MethodInfo WindowSetTitlebarMethodInfo a signature where + overloadedMethod _ = windowSetTitlebar + +-- method Window::set_transient_for +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_transient_for" gtk_window_set_transient_for :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + Ptr Window -> -- parent : TInterface "Gtk" "Window" + IO () + + +windowSetTransientFor :: + (MonadIO m, WindowK a, WindowK b) => + a -- _obj + -> Maybe (b) -- parent + -> m () -- result +windowSetTransientFor _obj parent = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeParent <- case parent of + Nothing -> return nullPtr + Just jParent -> do + let jParent' = unsafeManagedPtrCastPtr jParent + return jParent' + gtk_window_set_transient_for _obj' maybeParent + touchManagedPtr _obj + whenJust parent touchManagedPtr + return () + +data WindowSetTransientForMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowSetTransientForMethodInfo a signature where + overloadedMethod _ = windowSetTransientFor + +-- method Window::set_type_hint +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_type_hint" gtk_window_set_type_hint :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CUInt -> -- hint : TInterface "Gdk" "WindowTypeHint" + IO () + + +windowSetTypeHint :: + (MonadIO m, WindowK a) => + a -- _obj + -> Gdk.WindowTypeHint -- hint + -> m () -- result +windowSetTypeHint _obj hint = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let hint' = (fromIntegral . fromEnum) hint + gtk_window_set_type_hint _obj' hint' + touchManagedPtr _obj + return () + +data WindowSetTypeHintMethodInfo +instance (signature ~ (Gdk.WindowTypeHint -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetTypeHintMethodInfo a signature where + overloadedMethod _ = windowSetTypeHint + +-- method Window::set_urgency_hint +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_urgency_hint" gtk_window_set_urgency_hint :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetUrgencyHint :: + (MonadIO m, WindowK a) => + a -- _obj + -> Bool -- setting + -> m () -- result +windowSetUrgencyHint _obj setting = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_urgency_hint _obj' setting' + touchManagedPtr _obj + return () + +data WindowSetUrgencyHintMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetUrgencyHintMethodInfo a signature where + overloadedMethod _ = windowSetUrgencyHint + +-- method Window::set_wmclass +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wmclass_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wmclass_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_wmclass" gtk_window_set_wmclass :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + CString -> -- wmclass_name : TBasicType TUTF8 + CString -> -- wmclass_class : TBasicType TUTF8 + IO () + + +windowSetWmclass :: + (MonadIO m, WindowK a) => + a -- _obj + -> T.Text -- wmclassName + -> T.Text -- wmclassClass + -> m () -- result +windowSetWmclass _obj wmclassName wmclassClass = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + wmclassName' <- textToCString wmclassName + wmclassClass' <- textToCString wmclassClass + gtk_window_set_wmclass _obj' wmclassName' wmclassClass' + touchManagedPtr _obj + freeMem wmclassName' + freeMem wmclassClass' + return () + +data WindowSetWmclassMethodInfo +instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetWmclassMethodInfo a signature where + overloadedMethod _ = windowSetWmclass + +-- method Window::stick +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_stick" gtk_window_stick :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO () + + +windowStick :: + (MonadIO m, WindowK a) => + a -- _obj + -> m () -- result +windowStick _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_stick _obj' + touchManagedPtr _obj + return () + +data WindowStickMethodInfo +instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowStickMethodInfo a signature where + overloadedMethod _ = windowStick + +-- method Window::unfullscreen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_unfullscreen" gtk_window_unfullscreen :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO () + + +windowUnfullscreen :: + (MonadIO m, WindowK a) => + a -- _obj + -> m () -- result +windowUnfullscreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_unfullscreen _obj' + touchManagedPtr _obj + return () + +data WindowUnfullscreenMethodInfo +instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnfullscreenMethodInfo a signature where + overloadedMethod _ = windowUnfullscreen + +-- method Window::unmaximize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_unmaximize" gtk_window_unmaximize :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO () + + +windowUnmaximize :: + (MonadIO m, WindowK a) => + a -- _obj + -> m () -- result +windowUnmaximize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_unmaximize _obj' + touchManagedPtr _obj + return () + +data WindowUnmaximizeMethodInfo +instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnmaximizeMethodInfo a signature where + overloadedMethod _ = windowUnmaximize + +-- method Window::unstick +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_unstick" gtk_window_unstick :: + Ptr Window -> -- _obj : TInterface "Gtk" "Window" + IO () + + +windowUnstick :: + (MonadIO m, WindowK a) => + a -- _obj + -> m () -- result +windowUnstick _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_window_unstick _obj' + touchManagedPtr _obj + return () + +data WindowUnstickMethodInfo +instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnstickMethodInfo a signature where + overloadedMethod _ = windowUnstick + +-- method Window::get_default_icon_list +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : TGList (TInterface "GdkPixbuf" "Pixbuf") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_default_icon_list" gtk_window_get_default_icon_list :: + IO (Ptr (GList (Ptr GdkPixbuf.Pixbuf))) + + +windowGetDefaultIconList :: + (MonadIO m) => + m [GdkPixbuf.Pixbuf] -- result +windowGetDefaultIconList = liftIO $ do + result <- gtk_window_get_default_icon_list + checkUnexpectedReturnNULL "gtk_window_get_default_icon_list" result + result' <- unpackGList result + result'' <- mapM (newObject GdkPixbuf.Pixbuf) result' + g_list_free result + return result'' + +-- method Window::get_default_icon_name +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_get_default_icon_name" gtk_window_get_default_icon_name :: + IO CString + + +windowGetDefaultIconName :: + (MonadIO m) => + m T.Text -- result +windowGetDefaultIconName = liftIO $ do + result <- gtk_window_get_default_icon_name + checkUnexpectedReturnNULL "gtk_window_get_default_icon_name" result + result' <- cstringToText result + return result' + +-- method Window::list_toplevels +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : TGList (TInterface "Gtk" "Widget") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_list_toplevels" gtk_window_list_toplevels :: + IO (Ptr (GList (Ptr Widget))) + + +windowListToplevels :: + (MonadIO m) => + m [Widget] -- result +windowListToplevels = liftIO $ do + result <- gtk_window_list_toplevels + checkUnexpectedReturnNULL "gtk_window_list_toplevels" result + result' <- unpackGList result + result'' <- mapM (newObject Widget) result' + g_list_free result + return result'' + +-- method Window::set_auto_startup_notification +-- method type : MemberFunction +-- Args : [Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_auto_startup_notification" gtk_window_set_auto_startup_notification :: + CInt -> -- setting : TBasicType TBoolean + IO () + + +windowSetAutoStartupNotification :: + (MonadIO m) => + Bool -- setting + -> m () -- result +windowSetAutoStartupNotification setting = liftIO $ do + let setting' = (fromIntegral . fromEnum) setting + gtk_window_set_auto_startup_notification setting' + return () + +-- method Window::set_default_icon +-- method type : MemberFunction +-- Args : [Arg {argCName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_default_icon" gtk_window_set_default_icon :: + Ptr GdkPixbuf.Pixbuf -> -- icon : TInterface "GdkPixbuf" "Pixbuf" + IO () + + +windowSetDefaultIcon :: + (MonadIO m, GdkPixbuf.PixbufK a) => + a -- icon + -> m () -- result +windowSetDefaultIcon icon = liftIO $ do + let icon' = unsafeManagedPtrCastPtr icon + gtk_window_set_default_icon icon' + touchManagedPtr icon + return () + +-- method Window::set_default_icon_from_file +-- method type : MemberFunction +-- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gtk_window_set_default_icon_from_file" gtk_window_set_default_icon_from_file :: + CString -> -- filename : TBasicType TFileName + Ptr (Ptr GError) -> -- error + IO CInt + + +windowSetDefaultIconFromFile :: + (MonadIO m) => + [Char] -- filename + -> m () -- result +windowSetDefaultIconFromFile filename = liftIO $ do + filename' <- stringToCString filename + onException (do + _ <- propagateGError $ gtk_window_set_default_icon_from_file filename' + freeMem filename' + return () + ) (do + freeMem filename' + ) + +-- method Window::set_default_icon_list +-- method type : MemberFunction +-- Args : [Arg {argCName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_default_icon_list" gtk_window_set_default_icon_list :: + Ptr (GList (Ptr GdkPixbuf.Pixbuf)) -> -- list : TGList (TInterface "GdkPixbuf" "Pixbuf") + IO () + + +windowSetDefaultIconList :: + (MonadIO m, GdkPixbuf.PixbufK a) => + [a] -- list + -> m () -- result +windowSetDefaultIconList list = liftIO $ do + let list' = map unsafeManagedPtrCastPtr list + list'' <- packGList list' + gtk_window_set_default_icon_list list'' + mapM_ touchManagedPtr list + return () + +-- method Window::set_default_icon_name +-- method type : MemberFunction +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_default_icon_name" gtk_window_set_default_icon_name :: + CString -> -- name : TBasicType TUTF8 + IO () + + +windowSetDefaultIconName :: + (MonadIO m) => + T.Text -- name + -> m () -- result +windowSetDefaultIconName name = liftIO $ do + name' <- textToCString name + gtk_window_set_default_icon_name name' + freeMem name' + return () + +-- method Window::set_interactive_debugging +-- method type : MemberFunction +-- Args : [Arg {argCName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_window_set_interactive_debugging" gtk_window_set_interactive_debugging :: + CInt -> -- enable : TBasicType TBoolean + IO () + + +windowSetInteractiveDebugging :: + (MonadIO m) => + Bool -- enable + -> m () -- result windowSetInteractiveDebugging enable = liftIO $ do let enable' = (fromIntegral . fromEnum) enable gtk_window_set_interactive_debugging enable' diff --git a/GI/Gtk/Objects/Window.hs-boot b/GI/Gtk/Objects/Window.hs-boot --- a/GI/Gtk/Objects/Window.hs-boot +++ b/GI/Gtk/Objects/Window.hs-boot @@ -49,3 +49,112 @@ data WindowEnableDebuggingSignalInfo data WindowKeysChangedSignalInfo data WindowSetFocusSignalInfo +data WindowActivateDefaultMethodInfo +data WindowActivateFocusMethodInfo +data WindowActivateKeyMethodInfo +data WindowAddAccelGroupMethodInfo +data WindowAddMnemonicMethodInfo +data WindowBeginMoveDragMethodInfo +data WindowBeginResizeDragMethodInfo +data WindowCloseMethodInfo +data WindowDeiconifyMethodInfo +data WindowFullscreenMethodInfo +data WindowFullscreenOnMonitorMethodInfo +data WindowGetAcceptFocusMethodInfo +data WindowGetApplicationMethodInfo +data WindowGetAttachedToMethodInfo +data WindowGetDecoratedMethodInfo +data WindowGetDefaultSizeMethodInfo +data WindowGetDefaultWidgetMethodInfo +data WindowGetDeletableMethodInfo +data WindowGetDestroyWithParentMethodInfo +data WindowGetFocusMethodInfo +data WindowGetFocusOnMapMethodInfo +data WindowGetFocusVisibleMethodInfo +data WindowGetGravityMethodInfo +data WindowGetGroupMethodInfo +data WindowGetHasResizeGripMethodInfo +data WindowGetHideTitlebarWhenMaximizedMethodInfo +data WindowGetIconMethodInfo +data WindowGetIconListMethodInfo +data WindowGetIconNameMethodInfo +data WindowGetMnemonicModifierMethodInfo +data WindowGetMnemonicsVisibleMethodInfo +data WindowGetModalMethodInfo +data WindowGetOpacityMethodInfo +data WindowGetPositionMethodInfo +data WindowGetResizableMethodInfo +data WindowGetResizeGripAreaMethodInfo +data WindowGetRoleMethodInfo +data WindowGetScreenMethodInfo +data WindowGetSizeMethodInfo +data WindowGetSkipPagerHintMethodInfo +data WindowGetSkipTaskbarHintMethodInfo +data WindowGetTitleMethodInfo +data WindowGetTitlebarMethodInfo +data WindowGetTransientForMethodInfo +data WindowGetTypeHintMethodInfo +data WindowGetUrgencyHintMethodInfo +data WindowGetWindowTypeMethodInfo +data WindowHasGroupMethodInfo +data WindowHasToplevelFocusMethodInfo +data WindowIconifyMethodInfo +data WindowIsActiveMethodInfo +data WindowIsMaximizedMethodInfo +data WindowMaximizeMethodInfo +data WindowMnemonicActivateMethodInfo +data WindowMoveMethodInfo +data WindowParseGeometryMethodInfo +data WindowPresentMethodInfo +data WindowPresentWithTimeMethodInfo +data WindowPropagateKeyEventMethodInfo +data WindowRemoveAccelGroupMethodInfo +data WindowRemoveMnemonicMethodInfo +data WindowReshowWithInitialSizeMethodInfo +data WindowResizeMethodInfo +data WindowResizeGripIsVisibleMethodInfo +data WindowResizeToGeometryMethodInfo +data WindowSetAcceptFocusMethodInfo +data WindowSetApplicationMethodInfo +data WindowSetAttachedToMethodInfo +data WindowSetDecoratedMethodInfo +data WindowSetDefaultMethodInfo +data WindowSetDefaultGeometryMethodInfo +data WindowSetDefaultSizeMethodInfo +data WindowSetDeletableMethodInfo +data WindowSetDestroyWithParentMethodInfo +data WindowSetFocusMethodInfo +data WindowSetFocusOnMapMethodInfo +data WindowSetFocusVisibleMethodInfo +data WindowSetGeometryHintsMethodInfo +data WindowSetGravityMethodInfo +data WindowSetHasResizeGripMethodInfo +data WindowSetHasUserRefCountMethodInfo +data WindowSetHideTitlebarWhenMaximizedMethodInfo +data WindowSetIconMethodInfo +data WindowSetIconFromFileMethodInfo +data WindowSetIconListMethodInfo +data WindowSetIconNameMethodInfo +data WindowSetKeepAboveMethodInfo +data WindowSetKeepBelowMethodInfo +data WindowSetMnemonicModifierMethodInfo +data WindowSetMnemonicsVisibleMethodInfo +data WindowSetModalMethodInfo +data WindowSetOpacityMethodInfo +data WindowSetPositionMethodInfo +data WindowSetResizableMethodInfo +data WindowSetRoleMethodInfo +data WindowSetScreenMethodInfo +data WindowSetSkipPagerHintMethodInfo +data WindowSetSkipTaskbarHintMethodInfo +data WindowSetStartupIdMethodInfo +data WindowSetTitleMethodInfo +data WindowSetTitlebarMethodInfo +data WindowSetTransientForMethodInfo +data WindowSetTypeHintMethodInfo +data WindowSetUrgencyHintMethodInfo +data WindowSetWmclassMethodInfo +data WindowStickMethodInfo +data WindowUnfullscreenMethodInfo +data WindowUnmaximizeMethodInfo +data WindowUnstickMethodInfo diff --git a/GI/Gtk/Objects/WindowAccessible.hs b/GI/Gtk/Objects/WindowAccessible.hs --- a/GI/Gtk/Objects/WindowAccessible.hs +++ b/GI/Gtk/Objects/WindowAccessible.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -50,10 +51,78 @@ noWindowAccessible :: Maybe WindowAccessible noWindowAccessible = Nothing +type family ResolveWindowAccessibleMethod (t :: Symbol) (o :: *) :: * where + ResolveWindowAccessibleMethod "addRelationship" o = Atk.ObjectAddRelationshipMethodInfo + ResolveWindowAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWindowAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWindowAccessibleMethod "connectWidgetDestroyed" o = AccessibleConnectWidgetDestroyedMethodInfo + ResolveWindowAccessibleMethod "contains" o = Atk.ComponentContainsMethodInfo + ResolveWindowAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWindowAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWindowAccessibleMethod "grabFocus" o = Atk.ComponentGrabFocusMethodInfo + ResolveWindowAccessibleMethod "initialize" o = Atk.ObjectInitializeMethodInfo + ResolveWindowAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWindowAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWindowAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWindowAccessibleMethod "notifyStateChange" o = Atk.ObjectNotifyStateChangeMethodInfo + ResolveWindowAccessibleMethod "peekParent" o = Atk.ObjectPeekParentMethodInfo + ResolveWindowAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWindowAccessibleMethod "refAccessibleAtPoint" o = Atk.ComponentRefAccessibleAtPointMethodInfo + ResolveWindowAccessibleMethod "refAccessibleChild" o = Atk.ObjectRefAccessibleChildMethodInfo + ResolveWindowAccessibleMethod "refRelationSet" o = Atk.ObjectRefRelationSetMethodInfo + ResolveWindowAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWindowAccessibleMethod "refStateSet" o = Atk.ObjectRefStateSetMethodInfo + ResolveWindowAccessibleMethod "removeFocusHandler" o = Atk.ComponentRemoveFocusHandlerMethodInfo + ResolveWindowAccessibleMethod "removePropertyChangeHandler" o = Atk.ObjectRemovePropertyChangeHandlerMethodInfo + ResolveWindowAccessibleMethod "removeRelationship" o = Atk.ObjectRemoveRelationshipMethodInfo + ResolveWindowAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWindowAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWindowAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWindowAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWindowAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWindowAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWindowAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWindowAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWindowAccessibleMethod "getAlpha" o = Atk.ComponentGetAlphaMethodInfo + ResolveWindowAccessibleMethod "getAttributes" o = Atk.ObjectGetAttributesMethodInfo + ResolveWindowAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveWindowAccessibleMethod "getDescription" o = Atk.ObjectGetDescriptionMethodInfo + ResolveWindowAccessibleMethod "getExtents" o = Atk.ComponentGetExtentsMethodInfo + ResolveWindowAccessibleMethod "getIndexInParent" o = Atk.ObjectGetIndexInParentMethodInfo + ResolveWindowAccessibleMethod "getNAccessibleChildren" o = Atk.ObjectGetNAccessibleChildrenMethodInfo + ResolveWindowAccessibleMethod "getName" o = Atk.ObjectGetNameMethodInfo + ResolveWindowAccessibleMethod "getObjectLocale" o = Atk.ObjectGetObjectLocaleMethodInfo + ResolveWindowAccessibleMethod "getParent" o = Atk.ObjectGetParentMethodInfo + ResolveWindowAccessibleMethod "getPosition" o = Atk.ComponentGetPositionMethodInfo + ResolveWindowAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWindowAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWindowAccessibleMethod "getRole" o = Atk.ObjectGetRoleMethodInfo + ResolveWindowAccessibleMethod "getSize" o = Atk.ComponentGetSizeMethodInfo + ResolveWindowAccessibleMethod "getWidget" o = AccessibleGetWidgetMethodInfo + ResolveWindowAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWindowAccessibleMethod "setDescription" o = Atk.ObjectSetDescriptionMethodInfo + ResolveWindowAccessibleMethod "setExtents" o = Atk.ComponentSetExtentsMethodInfo + ResolveWindowAccessibleMethod "setName" o = Atk.ObjectSetNameMethodInfo + ResolveWindowAccessibleMethod "setParent" o = Atk.ObjectSetParentMethodInfo + ResolveWindowAccessibleMethod "setPosition" o = Atk.ComponentSetPositionMethodInfo + ResolveWindowAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWindowAccessibleMethod "setRole" o = Atk.ObjectSetRoleMethodInfo + ResolveWindowAccessibleMethod "setSize" o = Atk.ComponentSetSizeMethodInfo + ResolveWindowAccessibleMethod "setWidget" o = AccessibleSetWidgetMethodInfo + ResolveWindowAccessibleMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWindowAccessibleMethod t WindowAccessible, MethodInfo info WindowAccessible p) => IsLabelProxy t (WindowAccessible -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWindowAccessibleMethod t WindowAccessible, MethodInfo info WindowAccessible p) => IsLabel t (WindowAccessible -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList WindowAccessible = WindowAccessibleAttributeList -type WindowAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +type WindowAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) type instance SignalList WindowAccessible = WindowAccessibleSignalList -type WindowAccessibleSignalList = ('[ '("activate", Atk.WindowActivateSignalInfo), '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("create", Atk.WindowCreateSignalInfo), '("deactivate", Atk.WindowDeactivateSignalInfo), '("destroy", Atk.WindowDestroySignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("maximize", Atk.WindowMaximizeSignalInfo), '("minimize", Atk.WindowMinimizeSignalInfo), '("move", Atk.WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("resize", Atk.WindowResizeSignalInfo), '("restore", Atk.WindowRestoreSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type WindowAccessibleSignalList = ('[ '("activate", Atk.WindowActivateSignalInfo), '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("create", Atk.WindowCreateSignalInfo), '("deactivate", Atk.WindowDeactivateSignalInfo), '("destroy", Atk.WindowDestroySignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("maximize", Atk.WindowMaximizeSignalInfo), '("minimize", Atk.WindowMinimizeSignalInfo), '("move", Atk.WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("resize", Atk.WindowResizeSignalInfo), '("restore", Atk.WindowRestoreSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gtk/Objects/WindowGroup.hs b/GI/Gtk/Objects/WindowGroup.hs --- a/GI/Gtk/Objects/WindowGroup.hs +++ b/GI/Gtk/Objects/WindowGroup.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** windowGroupAddWindow + WindowGroupAddWindowMethodInfo , windowGroupAddWindow , -- ** windowGroupGetCurrentDeviceGrab + WindowGroupGetCurrentDeviceGrabMethodInfo, windowGroupGetCurrentDeviceGrab , -- ** windowGroupGetCurrentGrab + WindowGroupGetCurrentGrabMethodInfo , windowGroupGetCurrentGrab , -- ** windowGroupListWindows + WindowGroupListWindowsMethodInfo , windowGroupListWindows , @@ -37,6 +42,7 @@ -- ** windowGroupRemoveWindow + WindowGroupRemoveWindowMethodInfo , windowGroupRemoveWindow , @@ -77,17 +83,54 @@ noWindowGroup :: Maybe WindowGroup noWindowGroup = Nothing +type family ResolveWindowGroupMethod (t :: Symbol) (o :: *) :: * where + ResolveWindowGroupMethod "addWindow" o = WindowGroupAddWindowMethodInfo + ResolveWindowGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWindowGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWindowGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWindowGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWindowGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWindowGroupMethod "listWindows" o = WindowGroupListWindowsMethodInfo + ResolveWindowGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWindowGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWindowGroupMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWindowGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWindowGroupMethod "removeWindow" o = WindowGroupRemoveWindowMethodInfo + ResolveWindowGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWindowGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWindowGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWindowGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWindowGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWindowGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWindowGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWindowGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWindowGroupMethod "getCurrentDeviceGrab" o = WindowGroupGetCurrentDeviceGrabMethodInfo + ResolveWindowGroupMethod "getCurrentGrab" o = WindowGroupGetCurrentGrabMethodInfo + ResolveWindowGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveWindowGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWindowGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWindowGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWindowGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWindowGroupMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWindowGroupMethod t WindowGroup, MethodInfo info WindowGroup p) => IsLabelProxy t (WindowGroup -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWindowGroupMethod t WindowGroup, MethodInfo info WindowGroup p) => IsLabel t (WindowGroup -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList WindowGroup = WindowGroupAttributeList type WindowGroupAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList WindowGroup = WindowGroupSignalList -type WindowGroupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type WindowGroupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method WindowGroup::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "WindowGroup" -- throws : False -- Skip return : False @@ -98,7 +141,7 @@ windowGroupNew :: (MonadIO m) => - m WindowGroup + m WindowGroup -- result windowGroupNew = liftIO $ do result <- gtk_window_group_new checkUnexpectedReturnNULL "gtk_window_group_new" result @@ -107,9 +150,8 @@ -- method WindowGroup::add_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -122,9 +164,9 @@ windowGroupAddWindow :: (MonadIO m, WindowGroupK a, WindowK b) => - a -> -- _obj - b -> -- window - m () + a -- _obj + -> b -- window + -> m () -- result windowGroupAddWindow _obj window = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let window' = unsafeManagedPtrCastPtr window @@ -133,11 +175,14 @@ touchManagedPtr window return () +data WindowGroupAddWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WindowGroupK a, WindowK b) => MethodInfo WindowGroupAddWindowMethodInfo a signature where + overloadedMethod _ = windowGroupAddWindow + -- method WindowGroup::get_current_device_grab -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -150,9 +195,9 @@ windowGroupGetCurrentDeviceGrab :: (MonadIO m, WindowGroupK a, Gdk.DeviceK b) => - a -> -- _obj - b -> -- device - m Widget + a -- _obj + -> b -- device + -> m Widget -- result windowGroupGetCurrentDeviceGrab _obj device = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device @@ -163,11 +208,14 @@ touchManagedPtr device return result' +data WindowGroupGetCurrentDeviceGrabMethodInfo +instance (signature ~ (b -> m Widget), MonadIO m, WindowGroupK a, Gdk.DeviceK b) => MethodInfo WindowGroupGetCurrentDeviceGrabMethodInfo a signature where + overloadedMethod _ = windowGroupGetCurrentDeviceGrab + -- method WindowGroup::get_current_grab -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Widget" -- throws : False -- Skip return : False @@ -179,8 +227,8 @@ windowGroupGetCurrentGrab :: (MonadIO m, WindowGroupK a) => - a -> -- _obj - m Widget + a -- _obj + -> m Widget -- result windowGroupGetCurrentGrab _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_window_group_get_current_grab _obj' @@ -189,11 +237,14 @@ touchManagedPtr _obj return result' +data WindowGroupGetCurrentGrabMethodInfo +instance (signature ~ (m Widget), MonadIO m, WindowGroupK a) => MethodInfo WindowGroupGetCurrentGrabMethodInfo a signature where + overloadedMethod _ = windowGroupGetCurrentGrab + -- method WindowGroup::list_windows -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gtk" "Window") -- throws : False -- Skip return : False @@ -205,8 +256,8 @@ windowGroupListWindows :: (MonadIO m, WindowGroupK a) => - a -> -- _obj - m [Window] + a -- _obj + -> m [Window] -- result windowGroupListWindows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_window_group_list_windows _obj' @@ -217,11 +268,14 @@ touchManagedPtr _obj return result'' +data WindowGroupListWindowsMethodInfo +instance (signature ~ (m [Window]), MonadIO m, WindowGroupK a) => MethodInfo WindowGroupListWindowsMethodInfo a signature where + overloadedMethod _ = windowGroupListWindows + -- method WindowGroup::remove_window -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -234,9 +288,9 @@ windowGroupRemoveWindow :: (MonadIO m, WindowGroupK a, WindowK b) => - a -> -- _obj - b -> -- window - m () + a -- _obj + -> b -- window + -> m () -- result windowGroupRemoveWindow _obj window = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let window' = unsafeManagedPtrCastPtr window @@ -244,5 +298,9 @@ touchManagedPtr _obj touchManagedPtr window return () + +data WindowGroupRemoveWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WindowGroupK a, WindowK b) => MethodInfo WindowGroupRemoveWindowMethodInfo a signature where + overloadedMethod _ = windowGroupRemoveWindow diff --git a/GI/Gtk/Objects/WindowGroup.hs-boot b/GI/Gtk/Objects/WindowGroup.hs-boot --- a/GI/Gtk/Objects/WindowGroup.hs-boot +++ b/GI/Gtk/Objects/WindowGroup.hs-boot @@ -11,3 +11,8 @@ instance GObject WindowGroup where class GObject o => WindowGroupK o instance (GObject o, IsDescendantOf WindowGroup o) => WindowGroupK o +data WindowGroupAddWindowMethodInfo +data WindowGroupGetCurrentDeviceGrabMethodInfo +data WindowGroupGetCurrentGrabMethodInfo +data WindowGroupListWindowsMethodInfo +data WindowGroupRemoveWindowMethodInfo diff --git a/GI/Gtk/Structs.hs b/GI/Gtk/Structs.hs --- a/GI/Gtk/Structs.hs +++ b/GI/Gtk/Structs.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Gtk/Structs/AccelGroupEntry.hs b/GI/Gtk/Structs/AccelGroupEntry.hs --- a/GI/Gtk/Structs/AccelGroupEntry.hs +++ b/GI/Gtk/Structs/AccelGroupEntry.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -10,6 +11,7 @@ -- * Exported types AccelGroupEntry(..) , + newZeroAccelGroupEntry , noAccelGroupEntry , @@ -41,6 +43,10 @@ import GI.Gtk.Callbacks newtype AccelGroupEntry = AccelGroupEntry (ForeignPtr AccelGroupEntry) +-- | Construct a `AccelGroupEntry` struct initialized to zero. +newZeroAccelGroupEntry :: MonadIO m => m AccelGroupEntry +newZeroAccelGroupEntry = liftIO $ callocBytes 32 >>= wrapPtr AccelGroupEntry + noAccelGroupEntry :: Maybe AccelGroupEntry noAccelGroupEntry = Nothing @@ -60,5 +66,16 @@ accelGroupEntryReadAccelPathQuark s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO Word32 return val + +type family ResolveAccelGroupEntryMethod (t :: Symbol) (o :: *) :: * where + ResolveAccelGroupEntryMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAccelGroupEntryMethod t AccelGroupEntry, MethodInfo info AccelGroupEntry p) => IsLabelProxy t (AccelGroupEntry -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAccelGroupEntryMethod t AccelGroupEntry, MethodInfo info AccelGroupEntry p) => IsLabel t (AccelGroupEntry -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/AccelKey.hs b/GI/Gtk/Structs/AccelKey.hs --- a/GI/Gtk/Structs/AccelKey.hs +++ b/GI/Gtk/Structs/AccelKey.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -10,6 +11,7 @@ -- * Exported types AccelKey(..) , + newZeroAccelKey , noAccelKey , @@ -42,6 +44,10 @@ import qualified GI.Gdk as Gdk newtype AccelKey = AccelKey (ForeignPtr AccelKey) +-- | Construct a `AccelKey` struct initialized to zero. +newZeroAccelKey :: MonadIO m => m AccelKey +newZeroAccelKey = liftIO $ callocBytes 12 >>= wrapPtr AccelKey + noAccelKey :: Maybe AccelKey noAccelKey = Nothing @@ -60,5 +66,16 @@ accelKeyReadAccelFlags s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Word32 return val + +type family ResolveAccelKeyMethod (t :: Symbol) (o :: *) :: * where + ResolveAccelKeyMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveAccelKeyMethod t AccelKey, MethodInfo info AccelKey p) => IsLabelProxy t (AccelKey -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveAccelKeyMethod t AccelKey, MethodInfo info AccelKey p) => IsLabel t (AccelKey -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/ActionEntry.hs b/GI/Gtk/Structs/ActionEntry.hs --- a/GI/Gtk/Structs/ActionEntry.hs +++ b/GI/Gtk/Structs/ActionEntry.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -13,6 +14,7 @@ -- * Exported types ActionEntry(..) , + newZeroActionEntry , noActionEntry , @@ -52,6 +54,10 @@ import GI.Gtk.Callbacks newtype ActionEntry = ActionEntry (ForeignPtr ActionEntry) +-- | Construct a `ActionEntry` struct initialized to zero. +newZeroActionEntry :: MonadIO m => m ActionEntry +newZeroActionEntry = liftIO $ callocBytes 48 >>= wrapPtr ActionEntry + noActionEntry :: Maybe ActionEntry noActionEntry = Nothing @@ -86,5 +92,16 @@ return val' -- XXX Skipped getter for "ActionEntry:callback" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +type family ResolveActionEntryMethod (t :: Symbol) (o :: *) :: * where + ResolveActionEntryMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveActionEntryMethod t ActionEntry, MethodInfo info ActionEntry p) => IsLabelProxy t (ActionEntry -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveActionEntryMethod t ActionEntry, MethodInfo info ActionEntry p) => IsLabel t (ActionEntry -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/BindingArg.hs b/GI/Gtk/Structs/BindingArg.hs --- a/GI/Gtk/Structs/BindingArg.hs +++ b/GI/Gtk/Structs/BindingArg.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -14,6 +15,7 @@ -- * Exported types BindingArg(..) , + newZeroBindingArg , noBindingArg , @@ -37,6 +39,10 @@ import GI.Gtk.Callbacks newtype BindingArg = BindingArg (ForeignPtr BindingArg) +-- | Construct a `BindingArg` struct initialized to zero. +newZeroBindingArg :: MonadIO m => m BindingArg +newZeroBindingArg = liftIO $ callocBytes 8 >>= wrapPtr BindingArg + noBindingArg :: Maybe BindingArg noBindingArg = Nothing @@ -45,5 +51,16 @@ val <- peek (ptr `plusPtr` 0) :: IO CGType let val' = GType val return val' + +type family ResolveBindingArgMethod (t :: Symbol) (o :: *) :: * where + ResolveBindingArgMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveBindingArgMethod t BindingArg, MethodInfo info BindingArg p) => IsLabelProxy t (BindingArg -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveBindingArgMethod t BindingArg, MethodInfo info BindingArg p) => IsLabel t (BindingArg -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/BindingEntry.hs b/GI/Gtk/Structs/BindingEntry.hs --- a/GI/Gtk/Structs/BindingEntry.hs +++ b/GI/Gtk/Structs/BindingEntry.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -13,9 +14,29 @@ -- * Exported types BindingEntry(..) , + newZeroBindingEntry , noBindingEntry , + -- * Methods +-- ** bindingEntryAddSignalFromString + bindingEntryAddSignalFromString , + + +-- ** bindingEntryAddSignall + bindingEntryAddSignall , + + +-- ** bindingEntryRemove + bindingEntryRemove , + + +-- ** bindingEntrySkip + bindingEntrySkip , + + + + -- * Properties -- ** BindingSet bindingEntryReadBindingSet , @@ -66,9 +87,14 @@ import GI.Gtk.Types import GI.Gtk.Callbacks +import qualified GI.GLib as GLib import qualified GI.Gdk as Gdk newtype BindingEntry = BindingEntry (ForeignPtr BindingEntry) +-- | Construct a `BindingEntry` struct initialized to zero. +newZeroBindingEntry :: MonadIO m => m BindingEntry +newZeroBindingEntry = liftIO $ callocBytes 56 >>= wrapPtr BindingEntry + noBindingEntry :: Maybe BindingEntry noBindingEntry = Nothing @@ -121,5 +147,138 @@ val <- peek (ptr `plusPtr` 48) :: IO (Ptr BindingSignal) val' <- (newPtr 32 BindingSignal) val return val' + +-- method BindingEntry::add_signal_from_string +-- method type : MemberFunction +-- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- bindingSet + -> T.Text -- signalDesc + -> m GLib.TokenType -- result +bindingEntryAddSignalFromString bindingSet signalDesc = liftIO $ do + let bindingSet' = unsafeManagedPtrGetPtr bindingSet + signalDesc' <- textToCString signalDesc + result <- gtk_binding_entry_add_signal_from_string bindingSet' signalDesc' + let result' = (toEnum . fromIntegral) result + touchManagedPtr bindingSet + freeMem signalDesc' + return result' + +-- method BindingEntry::add_signall +-- method type : MemberFunction +-- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "binding_args", argType = TGSList (TInterface "Gtk" "BindingArg"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- bindingSet + -> Word32 -- keyval + -> [Gdk.ModifierType] -- modifiers + -> T.Text -- signalName + -> [BindingArg] -- bindingArgs + -> m () -- result +bindingEntryAddSignall bindingSet keyval modifiers signalName bindingArgs = liftIO $ do + let bindingSet' = unsafeManagedPtrGetPtr bindingSet + let modifiers' = gflagsToWord modifiers + signalName' <- textToCString signalName + let bindingArgs' = map unsafeManagedPtrGetPtr bindingArgs + bindingArgs'' <- packGSList bindingArgs' + gtk_binding_entry_add_signall bindingSet' keyval modifiers' signalName' bindingArgs'' + touchManagedPtr bindingSet + mapM_ touchManagedPtr bindingArgs + freeMem signalName' + g_slist_free bindingArgs'' + return () + +-- method BindingEntry::remove +-- method type : MemberFunction +-- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- bindingSet + -> Word32 -- keyval + -> [Gdk.ModifierType] -- modifiers + -> m () -- result +bindingEntryRemove bindingSet keyval modifiers = liftIO $ do + let bindingSet' = unsafeManagedPtrGetPtr bindingSet + let modifiers' = gflagsToWord modifiers + gtk_binding_entry_remove bindingSet' keyval modifiers' + touchManagedPtr bindingSet + return () + +-- method BindingEntry::skip +-- method type : MemberFunction +-- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- bindingSet + -> Word32 -- keyval + -> [Gdk.ModifierType] -- modifiers + -> m () -- result +bindingEntrySkip bindingSet keyval modifiers = liftIO $ do + let bindingSet' = unsafeManagedPtrGetPtr bindingSet + let modifiers' = gflagsToWord modifiers + gtk_binding_entry_skip bindingSet' keyval modifiers' + touchManagedPtr bindingSet + return () + +type family ResolveBindingEntryMethod (t :: Symbol) (o :: *) :: * where + ResolveBindingEntryMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveBindingEntryMethod t BindingEntry, MethodInfo info BindingEntry p) => IsLabelProxy t (BindingEntry -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveBindingEntryMethod t BindingEntry, MethodInfo info BindingEntry p) => IsLabel t (BindingEntry -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/BindingSet.hs b/GI/Gtk/Structs/BindingSet.hs --- a/GI/Gtk/Structs/BindingSet.hs +++ b/GI/Gtk/Structs/BindingSet.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,20 +18,27 @@ -- * Exported types BindingSet(..) , + newZeroBindingSet , noBindingSet , -- * Methods -- ** bindingSetActivate + BindingSetActivateMethodInfo , bindingSetActivate , -- ** bindingSetAddPath + BindingSetAddPathMethodInfo , bindingSetAddPath , +-- ** bindingSetFind + bindingSetFind , + + -- * Properties -- ** ClassBranchPspecs bindingSetReadClassBranchPspecs , @@ -81,6 +89,10 @@ import qualified GI.Gdk as Gdk newtype BindingSet = BindingSet (ForeignPtr BindingSet) +-- | Construct a `BindingSet` struct initialized to zero. +newZeroBindingSet :: MonadIO m => m BindingSet +newZeroBindingSet = liftIO $ callocBytes 64 >>= wrapPtr BindingSet + noBindingSet :: Maybe BindingSet noBindingSet = Nothing @@ -132,9 +144,8 @@ -- method BindingSet::activate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -149,11 +160,11 @@ bindingSetActivate :: (MonadIO m, GObject.ObjectK a) => - BindingSet -> -- _obj - Word32 -> -- keyval - [Gdk.ModifierType] -> -- modifiers - a -> -- object - m Bool + BindingSet -- _obj + -> Word32 -- keyval + -> [Gdk.ModifierType] -- modifiers + -> a -- object + -> m Bool -- result bindingSetActivate _obj keyval modifiers object = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let modifiers' = gflagsToWord modifiers @@ -164,11 +175,14 @@ touchManagedPtr object return result' +data BindingSetActivateMethodInfo +instance (signature ~ (Word32 -> [Gdk.ModifierType] -> a -> m Bool), MonadIO m, GObject.ObjectK a) => MethodInfo BindingSetActivateMethodInfo BindingSet signature where + overloadedMethod _ = bindingSetActivate + -- method BindingSet::add_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_type", argType = TInterface "Gtk" "PathType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_type", argType = TInterface "Gtk" "PathType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_type", argType = TInterface "Gtk" "PathType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -183,19 +197,61 @@ {-# DEPRECATED bindingSetAddPath ["(Since version 3.0)"]#-} bindingSetAddPath :: (MonadIO m) => - BindingSet -> -- _obj - PathType -> -- path_type - T.Text -> -- path_pattern - PathPriorityType -> -- priority - m () -bindingSetAddPath _obj path_type path_pattern priority = liftIO $ do + BindingSet -- _obj + -> PathType -- pathType + -> T.Text -- pathPattern + -> PathPriorityType -- priority + -> m () -- result +bindingSetAddPath _obj pathType pathPattern priority = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - let path_type' = (fromIntegral . fromEnum) path_type - path_pattern' <- textToCString path_pattern + let pathType' = (fromIntegral . fromEnum) pathType + pathPattern' <- textToCString pathPattern let priority' = (fromIntegral . fromEnum) priority - gtk_binding_set_add_path _obj' path_type' path_pattern' priority' + gtk_binding_set_add_path _obj' pathType' pathPattern' priority' touchManagedPtr _obj - freeMem path_pattern' + freeMem pathPattern' return () + +data BindingSetAddPathMethodInfo +instance (signature ~ (PathType -> T.Text -> PathPriorityType -> m ()), MonadIO m) => MethodInfo BindingSetAddPathMethodInfo BindingSet signature where + overloadedMethod _ = bindingSetAddPath + +-- method BindingSet::find +-- method type : MemberFunction +-- Args : [Arg {argCName = "set_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- setName + -> m BindingSet -- result +bindingSetFind setName = liftIO $ do + setName' <- textToCString setName + result <- gtk_binding_set_find setName' + checkUnexpectedReturnNULL "gtk_binding_set_find" result + result' <- (newPtr 64 BindingSet) result + freeMem setName' + return result' + +type family ResolveBindingSetMethod (t :: Symbol) (o :: *) :: * where + ResolveBindingSetMethod "activate" o = BindingSetActivateMethodInfo + ResolveBindingSetMethod "addPath" o = BindingSetAddPathMethodInfo + ResolveBindingSetMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveBindingSetMethod t BindingSet, MethodInfo info BindingSet p) => IsLabelProxy t (BindingSet -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveBindingSetMethod t BindingSet, MethodInfo info BindingSet p) => IsLabel t (BindingSet -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/BindingSet.hs-boot b/GI/Gtk/Structs/BindingSet.hs-boot --- a/GI/Gtk/Structs/BindingSet.hs-boot +++ b/GI/Gtk/Structs/BindingSet.hs-boot @@ -8,3 +8,5 @@ import qualified Data.Map as Map newtype BindingSet = BindingSet (ForeignPtr BindingSet) +data BindingSetActivateMethodInfo +data BindingSetAddPathMethodInfo diff --git a/GI/Gtk/Structs/BindingSignal.hs b/GI/Gtk/Structs/BindingSignal.hs --- a/GI/Gtk/Structs/BindingSignal.hs +++ b/GI/Gtk/Structs/BindingSignal.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -14,6 +15,7 @@ -- * Exported types BindingSignal(..) , + newZeroBindingSignal , noBindingSignal , @@ -45,6 +47,10 @@ import GI.Gtk.Callbacks newtype BindingSignal = BindingSignal (ForeignPtr BindingSignal) +-- | Construct a `BindingSignal` struct initialized to zero. +newZeroBindingSignal :: MonadIO m => m BindingSignal +newZeroBindingSignal = liftIO $ callocBytes 32 >>= wrapPtr BindingSignal + noBindingSignal :: Maybe BindingSignal noBindingSignal = Nothing @@ -66,5 +72,16 @@ return val -- XXX Skipped getter for "BindingSignal:args" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 2 (TInterface \"Gtk\" \"BindingArg\")" + +type family ResolveBindingSignalMethod (t :: Symbol) (o :: *) :: * where + ResolveBindingSignalMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveBindingSignalMethod t BindingSignal, MethodInfo info BindingSignal p) => IsLabelProxy t (BindingSignal -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveBindingSignalMethod t BindingSignal, MethodInfo info BindingSignal p) => IsLabel t (BindingSignal -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/Border.hs b/GI/Gtk/Structs/Border.hs --- a/GI/Gtk/Structs/Border.hs +++ b/GI/Gtk/Structs/Border.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -13,15 +14,18 @@ -- * Exported types Border(..) , + newZeroBorder , noBorder , -- * Methods -- ** borderCopy + BorderCopyMethodInfo , borderCopy , -- ** borderFree + BorderFreeMethodInfo , borderFree , @@ -69,6 +73,10 @@ instance BoxedObject Border where boxedType _ = c_gtk_border_get_type +-- | Construct a `Border` struct initialized to zero. +newZeroBorder :: MonadIO m => m Border +newZeroBorder = liftIO $ callocBoxedBytes 8 >>= wrapBoxed Border + noBorder :: Maybe Border noBorder = Nothing @@ -96,7 +104,6 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Border" -- throws : False -- Skip return : False @@ -107,7 +114,7 @@ borderNew :: (MonadIO m) => - m Border + m Border -- result borderNew = liftIO $ do result <- gtk_border_new checkUnexpectedReturnNULL "gtk_border_new" result @@ -116,9 +123,8 @@ -- method Border::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Border" -- throws : False -- Skip return : False @@ -130,8 +136,8 @@ borderCopy :: (MonadIO m) => - Border -> -- _obj - m Border + Border -- _obj + -> m Border -- result borderCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_border_copy _obj' @@ -140,11 +146,14 @@ touchManagedPtr _obj return result' +data BorderCopyMethodInfo +instance (signature ~ (m Border), MonadIO m) => MethodInfo BorderCopyMethodInfo Border signature where + overloadedMethod _ = borderCopy + -- method Border::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -156,12 +165,29 @@ borderFree :: (MonadIO m) => - Border -> -- _obj - m () + Border -- _obj + -> m () -- result borderFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_border_free _obj' touchManagedPtr _obj return () + +data BorderFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo BorderFreeMethodInfo Border signature where + overloadedMethod _ = borderFree + +type family ResolveBorderMethod (t :: Symbol) (o :: *) :: * where + ResolveBorderMethod "copy" o = BorderCopyMethodInfo + ResolveBorderMethod "free" o = BorderFreeMethodInfo + ResolveBorderMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveBorderMethod t Border, MethodInfo info Border p) => IsLabelProxy t (Border -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveBorderMethod t Border, MethodInfo info Border p) => IsLabel t (Border -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/Border.hs-boot b/GI/Gtk/Structs/Border.hs-boot --- a/GI/Gtk/Structs/Border.hs-boot +++ b/GI/Gtk/Structs/Border.hs-boot @@ -9,3 +9,5 @@ newtype Border = Border (ForeignPtr Border) instance BoxedObject Border where +data BorderCopyMethodInfo +data BorderFreeMethodInfo diff --git a/GI/Gtk/Structs/CssSection.hs b/GI/Gtk/Structs/CssSection.hs --- a/GI/Gtk/Structs/CssSection.hs +++ b/GI/Gtk/Structs/CssSection.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -19,38 +20,47 @@ -- * Methods -- ** cssSectionGetEndLine + CssSectionGetEndLineMethodInfo , cssSectionGetEndLine , -- ** cssSectionGetEndPosition + CssSectionGetEndPositionMethodInfo , cssSectionGetEndPosition , -- ** cssSectionGetFile + CssSectionGetFileMethodInfo , cssSectionGetFile , -- ** cssSectionGetParent + CssSectionGetParentMethodInfo , cssSectionGetParent , -- ** cssSectionGetSectionType + CssSectionGetSectionTypeMethodInfo , cssSectionGetSectionType , -- ** cssSectionGetStartLine + CssSectionGetStartLineMethodInfo , cssSectionGetStartLine , -- ** cssSectionGetStartPosition + CssSectionGetStartPositionMethodInfo , cssSectionGetStartPosition , -- ** cssSectionRef + CssSectionRefMethodInfo , cssSectionRef , -- ** cssSectionUnref + CssSectionUnrefMethodInfo , cssSectionUnref , @@ -81,9 +91,8 @@ -- method CssSection::get_end_line -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -95,19 +104,22 @@ cssSectionGetEndLine :: (MonadIO m) => - CssSection -> -- _obj - m Word32 + CssSection -- _obj + -> m Word32 -- result cssSectionGetEndLine _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_css_section_get_end_line _obj' touchManagedPtr _obj return result +data CssSectionGetEndLineMethodInfo +instance (signature ~ (m Word32), MonadIO m) => MethodInfo CssSectionGetEndLineMethodInfo CssSection signature where + overloadedMethod _ = cssSectionGetEndLine + -- method CssSection::get_end_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -119,19 +131,22 @@ cssSectionGetEndPosition :: (MonadIO m) => - CssSection -> -- _obj - m Word32 + CssSection -- _obj + -> m Word32 -- result cssSectionGetEndPosition _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_css_section_get_end_position _obj' touchManagedPtr _obj return result +data CssSectionGetEndPositionMethodInfo +instance (signature ~ (m Word32), MonadIO m) => MethodInfo CssSectionGetEndPositionMethodInfo CssSection signature where + overloadedMethod _ = cssSectionGetEndPosition + -- method CssSection::get_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -143,8 +158,8 @@ cssSectionGetFile :: (MonadIO m) => - CssSection -> -- _obj - m Gio.File + CssSection -- _obj + -> m Gio.File -- result cssSectionGetFile _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_css_section_get_file _obj' @@ -153,11 +168,14 @@ touchManagedPtr _obj return result' +data CssSectionGetFileMethodInfo +instance (signature ~ (m Gio.File), MonadIO m) => MethodInfo CssSectionGetFileMethodInfo CssSection signature where + overloadedMethod _ = cssSectionGetFile + -- method CssSection::get_parent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CssSection" -- throws : False -- Skip return : False @@ -169,8 +187,8 @@ cssSectionGetParent :: (MonadIO m) => - CssSection -> -- _obj - m CssSection + CssSection -- _obj + -> m CssSection -- result cssSectionGetParent _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_css_section_get_parent _obj' @@ -179,11 +197,14 @@ touchManagedPtr _obj return result' +data CssSectionGetParentMethodInfo +instance (signature ~ (m CssSection), MonadIO m) => MethodInfo CssSectionGetParentMethodInfo CssSection signature where + overloadedMethod _ = cssSectionGetParent + -- method CssSection::get_section_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CssSectionType" -- throws : False -- Skip return : False @@ -195,8 +216,8 @@ cssSectionGetSectionType :: (MonadIO m) => - CssSection -> -- _obj - m CssSectionType + CssSection -- _obj + -> m CssSectionType -- result cssSectionGetSectionType _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_css_section_get_section_type _obj' @@ -204,11 +225,14 @@ touchManagedPtr _obj return result' +data CssSectionGetSectionTypeMethodInfo +instance (signature ~ (m CssSectionType), MonadIO m) => MethodInfo CssSectionGetSectionTypeMethodInfo CssSection signature where + overloadedMethod _ = cssSectionGetSectionType + -- method CssSection::get_start_line -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -220,19 +244,22 @@ cssSectionGetStartLine :: (MonadIO m) => - CssSection -> -- _obj - m Word32 + CssSection -- _obj + -> m Word32 -- result cssSectionGetStartLine _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_css_section_get_start_line _obj' touchManagedPtr _obj return result +data CssSectionGetStartLineMethodInfo +instance (signature ~ (m Word32), MonadIO m) => MethodInfo CssSectionGetStartLineMethodInfo CssSection signature where + overloadedMethod _ = cssSectionGetStartLine + -- method CssSection::get_start_position -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -244,19 +271,22 @@ cssSectionGetStartPosition :: (MonadIO m) => - CssSection -> -- _obj - m Word32 + CssSection -- _obj + -> m Word32 -- result cssSectionGetStartPosition _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_css_section_get_start_position _obj' touchManagedPtr _obj return result +data CssSectionGetStartPositionMethodInfo +instance (signature ~ (m Word32), MonadIO m) => MethodInfo CssSectionGetStartPositionMethodInfo CssSection signature where + overloadedMethod _ = cssSectionGetStartPosition + -- method CssSection::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "CssSection" -- throws : False -- Skip return : False @@ -268,8 +298,8 @@ cssSectionRef :: (MonadIO m) => - CssSection -> -- _obj - m CssSection + CssSection -- _obj + -> m CssSection -- result cssSectionRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_css_section_ref _obj' @@ -278,11 +308,14 @@ touchManagedPtr _obj return result' +data CssSectionRefMethodInfo +instance (signature ~ (m CssSection), MonadIO m) => MethodInfo CssSectionRefMethodInfo CssSection signature where + overloadedMethod _ = cssSectionRef + -- method CssSection::unref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -294,12 +327,36 @@ cssSectionUnref :: (MonadIO m) => - CssSection -> -- _obj - m () + CssSection -- _obj + -> m () -- result cssSectionUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_css_section_unref _obj' touchManagedPtr _obj return () + +data CssSectionUnrefMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo CssSectionUnrefMethodInfo CssSection signature where + overloadedMethod _ = cssSectionUnref + +type family ResolveCssSectionMethod (t :: Symbol) (o :: *) :: * where + ResolveCssSectionMethod "ref" o = CssSectionRefMethodInfo + ResolveCssSectionMethod "unref" o = CssSectionUnrefMethodInfo + ResolveCssSectionMethod "getEndLine" o = CssSectionGetEndLineMethodInfo + ResolveCssSectionMethod "getEndPosition" o = CssSectionGetEndPositionMethodInfo + ResolveCssSectionMethod "getFile" o = CssSectionGetFileMethodInfo + ResolveCssSectionMethod "getParent" o = CssSectionGetParentMethodInfo + ResolveCssSectionMethod "getSectionType" o = CssSectionGetSectionTypeMethodInfo + ResolveCssSectionMethod "getStartLine" o = CssSectionGetStartLineMethodInfo + ResolveCssSectionMethod "getStartPosition" o = CssSectionGetStartPositionMethodInfo + ResolveCssSectionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveCssSectionMethod t CssSection, MethodInfo info CssSection p) => IsLabelProxy t (CssSection -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveCssSectionMethod t CssSection, MethodInfo info CssSection p) => IsLabel t (CssSection -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/CssSection.hs-boot b/GI/Gtk/Structs/CssSection.hs-boot --- a/GI/Gtk/Structs/CssSection.hs-boot +++ b/GI/Gtk/Structs/CssSection.hs-boot @@ -9,3 +9,12 @@ newtype CssSection = CssSection (ForeignPtr CssSection) instance BoxedObject CssSection where +data CssSectionGetEndLineMethodInfo +data CssSectionGetEndPositionMethodInfo +data CssSectionGetFileMethodInfo +data CssSectionGetParentMethodInfo +data CssSectionGetSectionTypeMethodInfo +data CssSectionGetStartLineMethodInfo +data CssSectionGetStartPositionMethodInfo +data CssSectionRefMethodInfo +data CssSectionUnrefMethodInfo diff --git a/GI/Gtk/Structs/FileFilterInfo.hs b/GI/Gtk/Structs/FileFilterInfo.hs --- a/GI/Gtk/Structs/FileFilterInfo.hs +++ b/GI/Gtk/Structs/FileFilterInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -13,6 +14,7 @@ -- * Exported types FileFilterInfo(..) , + newZeroFileFilterInfo , noFileFilterInfo , @@ -52,6 +54,10 @@ import GI.Gtk.Callbacks newtype FileFilterInfo = FileFilterInfo (ForeignPtr FileFilterInfo) +-- | Construct a `FileFilterInfo` struct initialized to zero. +newZeroFileFilterInfo :: MonadIO m => m FileFilterInfo +newZeroFileFilterInfo = liftIO $ callocBytes 40 >>= wrapPtr FileFilterInfo + noFileFilterInfo :: Maybe FileFilterInfo noFileFilterInfo = Nothing @@ -84,5 +90,16 @@ val <- peek (ptr `plusPtr` 32) :: IO CString val' <- cstringToText val return val' + +type family ResolveFileFilterInfoMethod (t :: Symbol) (o :: *) :: * where + ResolveFileFilterInfoMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFileFilterInfoMethod t FileFilterInfo, MethodInfo info FileFilterInfo p) => IsLabelProxy t (FileFilterInfo -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFileFilterInfoMethod t FileFilterInfo, MethodInfo info FileFilterInfo p) => IsLabel t (FileFilterInfo -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/FixedChild.hs b/GI/Gtk/Structs/FixedChild.hs --- a/GI/Gtk/Structs/FixedChild.hs +++ b/GI/Gtk/Structs/FixedChild.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -10,6 +11,7 @@ -- * Exported types FixedChild(..) , + newZeroFixedChild , noFixedChild , @@ -41,6 +43,10 @@ import GI.Gtk.Callbacks newtype FixedChild = FixedChild (ForeignPtr FixedChild) +-- | Construct a `FixedChild` struct initialized to zero. +newZeroFixedChild :: MonadIO m => m FixedChild +newZeroFixedChild = liftIO $ callocBytes 16 >>= wrapPtr FixedChild + noFixedChild :: Maybe FixedChild noFixedChild = Nothing @@ -59,5 +65,16 @@ fixedChildReadY s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 12) :: IO Int32 return val + +type family ResolveFixedChildMethod (t :: Symbol) (o :: *) :: * where + ResolveFixedChildMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveFixedChildMethod t FixedChild, MethodInfo info FixedChild p) => IsLabelProxy t (FixedChild -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveFixedChildMethod t FixedChild, MethodInfo info FixedChild p) => IsLabel t (FixedChild -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/Gradient.hs b/GI/Gtk/Structs/Gradient.hs --- a/GI/Gtk/Structs/Gradient.hs +++ b/GI/Gtk/Structs/Gradient.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -32,6 +33,7 @@ -- * Methods -- ** gradientAddColorStop + GradientAddColorStopMethodInfo , gradientAddColorStop , @@ -44,22 +46,27 @@ -- ** gradientRef + GradientRefMethodInfo , gradientRef , -- ** gradientResolve + GradientResolveMethodInfo , gradientResolve , -- ** gradientResolveForContext + GradientResolveForContextMethodInfo , gradientResolveForContext , -- ** gradientToString + GradientToStringMethodInfo , gradientToString , -- ** gradientUnref + GradientUnrefMethodInfo , gradientUnref , @@ -90,9 +97,8 @@ -- method Gradient::new_linear -- method type : Constructor --- Args : [Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Gradient" -- throws : False -- Skip return : False @@ -107,11 +113,11 @@ {-# DEPRECATED gradientNewLinear ["(Since version 3.8)","#GtkGradient is deprecated."]#-} gradientNewLinear :: (MonadIO m) => - Double -> -- x0 - Double -> -- y0 - Double -> -- x1 - Double -> -- y1 - m Gradient + Double -- x0 + -> Double -- y0 + -> Double -- x1 + -> Double -- y1 + -> m Gradient -- result gradientNewLinear x0 y0 x1 y1 = liftIO $ do let x0' = realToFrac x0 let y0' = realToFrac y0 @@ -124,9 +130,8 @@ -- method Gradient::new_radial -- method type : Constructor --- Args : [Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radius0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radius1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "radius0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "radius1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radius0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radius1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Gradient" -- throws : False -- Skip return : False @@ -143,13 +148,13 @@ {-# DEPRECATED gradientNewRadial ["(Since version 3.8)","#GtkGradient is deprecated."]#-} gradientNewRadial :: (MonadIO m) => - Double -> -- x0 - Double -> -- y0 - Double -> -- radius0 - Double -> -- x1 - Double -> -- y1 - Double -> -- radius1 - m Gradient + Double -- x0 + -> Double -- y0 + -> Double -- radius0 + -> Double -- x1 + -> Double -- y1 + -> Double -- radius1 + -> m Gradient -- result gradientNewRadial x0 y0 radius0 x1 y1 radius1 = liftIO $ do let x0' = realToFrac x0 let y0' = realToFrac y0 @@ -164,9 +169,8 @@ -- method Gradient::add_color_stop -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -180,10 +184,10 @@ {-# DEPRECATED gradientAddColorStop ["(Since version 3.8)","#GtkGradient is deprecated."]#-} gradientAddColorStop :: (MonadIO m) => - Gradient -> -- _obj - Double -> -- offset - SymbolicColor -> -- color - m () + Gradient -- _obj + -> Double -- offset + -> SymbolicColor -- color + -> m () -- result gradientAddColorStop _obj offset color = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let offset' = realToFrac offset @@ -193,11 +197,14 @@ touchManagedPtr color return () +data GradientAddColorStopMethodInfo +instance (signature ~ (Double -> SymbolicColor -> m ()), MonadIO m) => MethodInfo GradientAddColorStopMethodInfo Gradient signature where + overloadedMethod _ = gradientAddColorStop + -- method Gradient::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Gradient" -- throws : False -- Skip return : False @@ -209,8 +216,8 @@ {-# DEPRECATED gradientRef ["(Since version 3.8)","#GtkGradient is deprecated."]#-} gradientRef :: (MonadIO m) => - Gradient -> -- _obj - m Gradient + Gradient -- _obj + -> m Gradient -- result gradientRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_gradient_ref _obj' @@ -219,11 +226,14 @@ touchManagedPtr _obj return result' +data GradientRefMethodInfo +instance (signature ~ (m Gradient), MonadIO m) => MethodInfo GradientRefMethodInfo Gradient signature where + overloadedMethod _ = gradientRef + -- method Gradient::resolve -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolved_gradient", argType = TInterface "cairo" "Pattern", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolved_gradient", argType = TInterface "cairo" "Pattern", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -237,27 +247,30 @@ {-# DEPRECATED gradientResolve ["(Since version 3.8)","#GtkGradient is deprecated."]#-} gradientResolve :: (MonadIO m, StylePropertiesK a) => - Gradient -> -- _obj - a -> -- props - m (Bool,Cairo.Pattern) + Gradient -- _obj + -> a -- props + -> m (Bool,Cairo.Pattern) -- result gradientResolve _obj props = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let props' = unsafeManagedPtrCastPtr props - resolved_gradient <- allocMem :: IO (Ptr (Ptr Cairo.Pattern)) - result <- gtk_gradient_resolve _obj' props' resolved_gradient + resolvedGradient <- allocMem :: IO (Ptr (Ptr Cairo.Pattern)) + result <- gtk_gradient_resolve _obj' props' resolvedGradient let result' = (/= 0) result - resolved_gradient' <- peek resolved_gradient - resolved_gradient'' <- (wrapBoxed Cairo.Pattern) resolved_gradient' + resolvedGradient' <- peek resolvedGradient + resolvedGradient'' <- (wrapBoxed Cairo.Pattern) resolvedGradient' touchManagedPtr _obj touchManagedPtr props - freeMem resolved_gradient - return (result', resolved_gradient'') + freeMem resolvedGradient + return (result', resolvedGradient'') +data GradientResolveMethodInfo +instance (signature ~ (a -> m (Bool,Cairo.Pattern)), MonadIO m, StylePropertiesK a) => MethodInfo GradientResolveMethodInfo Gradient signature where + overloadedMethod _ = gradientResolve + -- method Gradient::resolve_for_context -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Pattern" -- throws : False -- Skip return : False @@ -270,9 +283,9 @@ gradientResolveForContext :: (MonadIO m, StyleContextK a) => - Gradient -> -- _obj - a -> -- context - m Cairo.Pattern + Gradient -- _obj + -> a -- context + -> m Cairo.Pattern -- result gradientResolveForContext _obj context = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let context' = unsafeManagedPtrCastPtr context @@ -283,11 +296,14 @@ touchManagedPtr context return result' +data GradientResolveForContextMethodInfo +instance (signature ~ (a -> m Cairo.Pattern), MonadIO m, StyleContextK a) => MethodInfo GradientResolveForContextMethodInfo Gradient signature where + overloadedMethod _ = gradientResolveForContext + -- method Gradient::to_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -299,8 +315,8 @@ {-# DEPRECATED gradientToString ["(Since version 3.8)","#GtkGradient is deprecated."]#-} gradientToString :: (MonadIO m) => - Gradient -> -- _obj - m T.Text + Gradient -- _obj + -> m T.Text -- result gradientToString _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_gradient_to_string _obj' @@ -310,11 +326,14 @@ touchManagedPtr _obj return result' +data GradientToStringMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo GradientToStringMethodInfo Gradient signature where + overloadedMethod _ = gradientToString + -- method Gradient::unref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -326,12 +345,33 @@ {-# DEPRECATED gradientUnref ["(Since version 3.8)","#GtkGradient is deprecated."]#-} gradientUnref :: (MonadIO m) => - Gradient -> -- _obj - m () + Gradient -- _obj + -> m () -- result gradientUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_gradient_unref _obj' touchManagedPtr _obj return () + +data GradientUnrefMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo GradientUnrefMethodInfo Gradient signature where + overloadedMethod _ = gradientUnref + +type family ResolveGradientMethod (t :: Symbol) (o :: *) :: * where + ResolveGradientMethod "addColorStop" o = GradientAddColorStopMethodInfo + ResolveGradientMethod "ref" o = GradientRefMethodInfo + ResolveGradientMethod "resolve" o = GradientResolveMethodInfo + ResolveGradientMethod "resolveForContext" o = GradientResolveForContextMethodInfo + ResolveGradientMethod "toString" o = GradientToStringMethodInfo + ResolveGradientMethod "unref" o = GradientUnrefMethodInfo + ResolveGradientMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveGradientMethod t Gradient, MethodInfo info Gradient p) => IsLabelProxy t (Gradient -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveGradientMethod t Gradient, MethodInfo info Gradient p) => IsLabel t (Gradient -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/Gradient.hs-boot b/GI/Gtk/Structs/Gradient.hs-boot --- a/GI/Gtk/Structs/Gradient.hs-boot +++ b/GI/Gtk/Structs/Gradient.hs-boot @@ -9,3 +9,9 @@ newtype Gradient = Gradient (ForeignPtr Gradient) instance BoxedObject Gradient where +data GradientAddColorStopMethodInfo +data GradientRefMethodInfo +data GradientResolveMethodInfo +data GradientResolveForContextMethodInfo +data GradientToStringMethodInfo +data GradientUnrefMethodInfo diff --git a/GI/Gtk/Structs/IMContextInfo.hs b/GI/Gtk/Structs/IMContextInfo.hs --- a/GI/Gtk/Structs/IMContextInfo.hs +++ b/GI/Gtk/Structs/IMContextInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,6 +13,7 @@ -- * Exported types IMContextInfo(..) , + newZeroIMContextInfo , noIMContextInfo , @@ -51,6 +53,10 @@ import GI.Gtk.Callbacks newtype IMContextInfo = IMContextInfo (ForeignPtr IMContextInfo) +-- | Construct a `IMContextInfo` struct initialized to zero. +newZeroIMContextInfo :: MonadIO m => m IMContextInfo +newZeroIMContextInfo = liftIO $ callocBytes 40 >>= wrapPtr IMContextInfo + noIMContextInfo :: Maybe IMContextInfo noIMContextInfo = Nothing @@ -83,5 +89,16 @@ val <- peek (ptr `plusPtr` 32) :: IO CString val' <- cstringToText val return val' + +type family ResolveIMContextInfoMethod (t :: Symbol) (o :: *) :: * where + ResolveIMContextInfoMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveIMContextInfoMethod t IMContextInfo, MethodInfo info IMContextInfo p) => IsLabelProxy t (IMContextInfo -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveIMContextInfoMethod t IMContextInfo, MethodInfo info IMContextInfo p) => IsLabel t (IMContextInfo -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/IconSet.hs b/GI/Gtk/Structs/IconSet.hs --- a/GI/Gtk/Structs/IconSet.hs +++ b/GI/Gtk/Structs/IconSet.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,14 +16,17 @@ -- * Methods -- ** iconSetAddSource + IconSetAddSourceMethodInfo , iconSetAddSource , -- ** iconSetCopy + IconSetCopyMethodInfo , iconSetCopy , -- ** iconSetGetSizes + IconSetGetSizesMethodInfo , iconSetGetSizes , @@ -35,22 +39,27 @@ -- ** iconSetRef + IconSetRefMethodInfo , iconSetRef , -- ** iconSetRenderIcon + IconSetRenderIconMethodInfo , iconSetRenderIcon , -- ** iconSetRenderIconPixbuf + IconSetRenderIconPixbufMethodInfo , iconSetRenderIconPixbuf , -- ** iconSetRenderIconSurface + IconSetRenderIconSurfaceMethodInfo , iconSetRenderIconSurface , -- ** iconSetUnref + IconSetUnrefMethodInfo , iconSetUnref , @@ -85,7 +94,6 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "IconSet" -- throws : False -- Skip return : False @@ -96,7 +104,7 @@ {-# DEPRECATED iconSetNew ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSetNew :: (MonadIO m) => - m IconSet + m IconSet -- result iconSetNew = liftIO $ do result <- gtk_icon_set_new checkUnexpectedReturnNULL "gtk_icon_set_new" result @@ -105,9 +113,8 @@ -- method IconSet::new_from_pixbuf -- method type : Constructor --- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconSet" -- throws : False -- Skip return : False @@ -119,8 +126,8 @@ {-# DEPRECATED iconSetNewFromPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSetNewFromPixbuf :: (MonadIO m, GdkPixbuf.PixbufK a) => - a -> -- pixbuf - m IconSet + a -- pixbuf + -> m IconSet -- result iconSetNewFromPixbuf pixbuf = liftIO $ do let pixbuf' = unsafeManagedPtrCastPtr pixbuf result <- gtk_icon_set_new_from_pixbuf pixbuf' @@ -131,9 +138,8 @@ -- method IconSet::add_source -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -146,9 +152,9 @@ {-# DEPRECATED iconSetAddSource ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSetAddSource :: (MonadIO m) => - IconSet -> -- _obj - IconSource -> -- source - m () + IconSet -- _obj + -> IconSource -- source + -> m () -- result iconSetAddSource _obj source = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let source' = unsafeManagedPtrGetPtr source @@ -157,11 +163,14 @@ touchManagedPtr source return () +data IconSetAddSourceMethodInfo +instance (signature ~ (IconSource -> m ()), MonadIO m) => MethodInfo IconSetAddSourceMethodInfo IconSet signature where + overloadedMethod _ = iconSetAddSource + -- method IconSet::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconSet" -- throws : False -- Skip return : False @@ -173,8 +182,8 @@ {-# DEPRECATED iconSetCopy ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSetCopy :: (MonadIO m) => - IconSet -> -- _obj - m IconSet + IconSet -- _obj + -> m IconSet -- result iconSetCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_set_copy _obj' @@ -183,11 +192,14 @@ touchManagedPtr _obj return result' +data IconSetCopyMethodInfo +instance (signature ~ (m IconSet), MonadIO m) => MethodInfo IconSetCopyMethodInfo IconSet signature where + overloadedMethod _ = iconSetCopy + -- method IconSet::get_sizes -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sizes", argType = TCArray False (-1) 2 (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TCArray False (-1) 2 (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -201,27 +213,30 @@ {-# DEPRECATED iconSetGetSizes ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSetGetSizes :: (MonadIO m) => - IconSet -> -- _obj - m ([Int32]) + IconSet -- _obj + -> m ([Int32]) -- result iconSetGetSizes _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj sizes <- allocMem :: IO (Ptr (Ptr Int32)) - n_sizes <- allocMem :: IO (Ptr Int32) - gtk_icon_set_get_sizes _obj' sizes n_sizes - n_sizes' <- peek n_sizes + nSizes <- allocMem :: IO (Ptr Int32) + gtk_icon_set_get_sizes _obj' sizes nSizes + nSizes' <- peek nSizes sizes' <- peek sizes - sizes'' <- (unpackStorableArrayWithLength n_sizes') sizes' + sizes'' <- (unpackStorableArrayWithLength nSizes') sizes' freeMem sizes' touchManagedPtr _obj freeMem sizes - freeMem n_sizes + freeMem nSizes return sizes'' +data IconSetGetSizesMethodInfo +instance (signature ~ (m ([Int32])), MonadIO m) => MethodInfo IconSetGetSizesMethodInfo IconSet signature where + overloadedMethod _ = iconSetGetSizes + -- method IconSet::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconSet" -- throws : False -- Skip return : False @@ -233,8 +248,8 @@ {-# DEPRECATED iconSetRef ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSetRef :: (MonadIO m) => - IconSet -> -- _obj - m IconSet + IconSet -- _obj + -> m IconSet -- result iconSetRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_set_ref _obj' @@ -243,11 +258,14 @@ touchManagedPtr _obj return result' +data IconSetRefMethodInfo +instance (signature ~ (m IconSet), MonadIO m) => MethodInfo IconSetRefMethodInfo IconSet signature where + overloadedMethod _ = iconSetRef + -- method IconSet::render_icon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -265,14 +283,14 @@ {-# DEPRECATED iconSetRenderIcon ["(Since version 3.0)","Use gtk_icon_set_render_icon_pixbuf() instead"]#-} iconSetRenderIcon :: (MonadIO m, StyleK a, WidgetK b) => - IconSet -> -- _obj - Maybe (a) -> -- style - TextDirection -> -- direction - StateType -> -- state - Int32 -> -- size - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - m GdkPixbuf.Pixbuf + IconSet -- _obj + -> Maybe (a) -- style + -> TextDirection -- direction + -> StateType -- state + -> Int32 -- size + -> Maybe (b) -- widget + -> Maybe (T.Text) -- detail + -> m GdkPixbuf.Pixbuf -- result iconSetRenderIcon _obj style direction state size widget detail = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj maybeStyle <- case style of @@ -301,11 +319,14 @@ freeMem maybeDetail return result' +data IconSetRenderIconMethodInfo +instance (signature ~ (Maybe (a) -> TextDirection -> StateType -> Int32 -> Maybe (b) -> Maybe (T.Text) -> m GdkPixbuf.Pixbuf), MonadIO m, StyleK a, WidgetK b) => MethodInfo IconSetRenderIconMethodInfo IconSet signature where + overloadedMethod _ = iconSetRenderIcon + -- method IconSet::render_icon_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -319,10 +340,10 @@ {-# DEPRECATED iconSetRenderIconPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSetRenderIconPixbuf :: (MonadIO m, StyleContextK a) => - IconSet -> -- _obj - a -> -- context - Int32 -> -- size - m GdkPixbuf.Pixbuf + IconSet -- _obj + -> a -- context + -> Int32 -- size + -> m GdkPixbuf.Pixbuf -- result iconSetRenderIconPixbuf _obj context size = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let context' = unsafeManagedPtrCastPtr context @@ -333,11 +354,14 @@ touchManagedPtr context return result' +data IconSetRenderIconPixbufMethodInfo +instance (signature ~ (a -> Int32 -> m GdkPixbuf.Pixbuf), MonadIO m, StyleContextK a) => MethodInfo IconSetRenderIconPixbufMethodInfo IconSet signature where + overloadedMethod _ = iconSetRenderIconPixbuf + -- method IconSet::render_icon_surface -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Surface" -- throws : False -- Skip return : False @@ -353,33 +377,36 @@ {-# DEPRECATED iconSetRenderIconSurface ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSetRenderIconSurface :: (MonadIO m, StyleContextK a, Gdk.WindowK b) => - IconSet -> -- _obj - a -> -- context - Int32 -> -- size - Int32 -> -- scale - Maybe (b) -> -- for_window - m Cairo.Surface -iconSetRenderIconSurface _obj context size scale for_window = liftIO $ do + IconSet -- _obj + -> a -- context + -> Int32 -- size + -> Int32 -- scale + -> Maybe (b) -- forWindow + -> m Cairo.Surface -- result +iconSetRenderIconSurface _obj context size scale forWindow = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let context' = unsafeManagedPtrCastPtr context - maybeFor_window <- case for_window of + maybeForWindow <- case forWindow of Nothing -> return nullPtr - Just jFor_window -> do - let jFor_window' = unsafeManagedPtrCastPtr jFor_window - return jFor_window' - result <- gtk_icon_set_render_icon_surface _obj' context' size scale maybeFor_window + Just jForWindow -> do + let jForWindow' = unsafeManagedPtrCastPtr jForWindow + return jForWindow' + result <- gtk_icon_set_render_icon_surface _obj' context' size scale maybeForWindow checkUnexpectedReturnNULL "gtk_icon_set_render_icon_surface" result result' <- (wrapBoxed Cairo.Surface) result touchManagedPtr _obj touchManagedPtr context - whenJust for_window touchManagedPtr + whenJust forWindow touchManagedPtr return result' +data IconSetRenderIconSurfaceMethodInfo +instance (signature ~ (a -> Int32 -> Int32 -> Maybe (b) -> m Cairo.Surface), MonadIO m, StyleContextK a, Gdk.WindowK b) => MethodInfo IconSetRenderIconSurfaceMethodInfo IconSet signature where + overloadedMethod _ = iconSetRenderIconSurface + -- method IconSet::unref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -391,12 +418,35 @@ {-# DEPRECATED iconSetUnref ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSetUnref :: (MonadIO m) => - IconSet -> -- _obj - m () + IconSet -- _obj + -> m () -- result iconSetUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_icon_set_unref _obj' touchManagedPtr _obj return () + +data IconSetUnrefMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo IconSetUnrefMethodInfo IconSet signature where + overloadedMethod _ = iconSetUnref + +type family ResolveIconSetMethod (t :: Symbol) (o :: *) :: * where + ResolveIconSetMethod "addSource" o = IconSetAddSourceMethodInfo + ResolveIconSetMethod "copy" o = IconSetCopyMethodInfo + ResolveIconSetMethod "ref" o = IconSetRefMethodInfo + ResolveIconSetMethod "renderIcon" o = IconSetRenderIconMethodInfo + ResolveIconSetMethod "renderIconPixbuf" o = IconSetRenderIconPixbufMethodInfo + ResolveIconSetMethod "renderIconSurface" o = IconSetRenderIconSurfaceMethodInfo + ResolveIconSetMethod "unref" o = IconSetUnrefMethodInfo + ResolveIconSetMethod "getSizes" o = IconSetGetSizesMethodInfo + ResolveIconSetMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveIconSetMethod t IconSet, MethodInfo info IconSet p) => IsLabelProxy t (IconSet -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveIconSetMethod t IconSet, MethodInfo info IconSet p) => IsLabel t (IconSet -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/IconSet.hs-boot b/GI/Gtk/Structs/IconSet.hs-boot --- a/GI/Gtk/Structs/IconSet.hs-boot +++ b/GI/Gtk/Structs/IconSet.hs-boot @@ -9,3 +9,11 @@ newtype IconSet = IconSet (ForeignPtr IconSet) instance BoxedObject IconSet where +data IconSetAddSourceMethodInfo +data IconSetCopyMethodInfo +data IconSetGetSizesMethodInfo +data IconSetRefMethodInfo +data IconSetRenderIconMethodInfo +data IconSetRenderIconPixbufMethodInfo +data IconSetRenderIconSurfaceMethodInfo +data IconSetUnrefMethodInfo diff --git a/GI/Gtk/Structs/IconSource.hs b/GI/Gtk/Structs/IconSource.hs --- a/GI/Gtk/Structs/IconSource.hs +++ b/GI/Gtk/Structs/IconSource.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,46 +16,57 @@ -- * Methods -- ** iconSourceCopy + IconSourceCopyMethodInfo , iconSourceCopy , -- ** iconSourceFree + IconSourceFreeMethodInfo , iconSourceFree , -- ** iconSourceGetDirection + IconSourceGetDirectionMethodInfo , iconSourceGetDirection , -- ** iconSourceGetDirectionWildcarded + IconSourceGetDirectionWildcardedMethodInfo, iconSourceGetDirectionWildcarded , -- ** iconSourceGetFilename + IconSourceGetFilenameMethodInfo , iconSourceGetFilename , -- ** iconSourceGetIconName + IconSourceGetIconNameMethodInfo , iconSourceGetIconName , -- ** iconSourceGetPixbuf + IconSourceGetPixbufMethodInfo , iconSourceGetPixbuf , -- ** iconSourceGetSize + IconSourceGetSizeMethodInfo , iconSourceGetSize , -- ** iconSourceGetSizeWildcarded + IconSourceGetSizeWildcardedMethodInfo , iconSourceGetSizeWildcarded , -- ** iconSourceGetState + IconSourceGetStateMethodInfo , iconSourceGetState , -- ** iconSourceGetStateWildcarded + IconSourceGetStateWildcardedMethodInfo , iconSourceGetStateWildcarded , @@ -63,38 +75,47 @@ -- ** iconSourceSetDirection + IconSourceSetDirectionMethodInfo , iconSourceSetDirection , -- ** iconSourceSetDirectionWildcarded + IconSourceSetDirectionWildcardedMethodInfo, iconSourceSetDirectionWildcarded , -- ** iconSourceSetFilename + IconSourceSetFilenameMethodInfo , iconSourceSetFilename , -- ** iconSourceSetIconName + IconSourceSetIconNameMethodInfo , iconSourceSetIconName , -- ** iconSourceSetPixbuf + IconSourceSetPixbufMethodInfo , iconSourceSetPixbuf , -- ** iconSourceSetSize + IconSourceSetSizeMethodInfo , iconSourceSetSize , -- ** iconSourceSetSizeWildcarded + IconSourceSetSizeWildcardedMethodInfo , iconSourceSetSizeWildcarded , -- ** iconSourceSetState + IconSourceSetStateMethodInfo , iconSourceSetState , -- ** iconSourceSetStateWildcarded + IconSourceSetStateWildcardedMethodInfo , iconSourceSetStateWildcarded , @@ -127,7 +148,6 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "IconSource" -- throws : False -- Skip return : False @@ -138,7 +158,7 @@ {-# DEPRECATED iconSourceNew ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceNew :: (MonadIO m) => - m IconSource + m IconSource -- result iconSourceNew = liftIO $ do result <- gtk_icon_source_new checkUnexpectedReturnNULL "gtk_icon_source_new" result @@ -147,9 +167,8 @@ -- method IconSource::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "IconSource" -- throws : False -- Skip return : False @@ -161,8 +180,8 @@ {-# DEPRECATED iconSourceCopy ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceCopy :: (MonadIO m) => - IconSource -> -- _obj - m IconSource + IconSource -- _obj + -> m IconSource -- result iconSourceCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_copy _obj' @@ -171,11 +190,14 @@ touchManagedPtr _obj return result' +data IconSourceCopyMethodInfo +instance (signature ~ (m IconSource), MonadIO m) => MethodInfo IconSourceCopyMethodInfo IconSource signature where + overloadedMethod _ = iconSourceCopy + -- method IconSource::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -187,19 +209,22 @@ {-# DEPRECATED iconSourceFree ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceFree :: (MonadIO m) => - IconSource -> -- _obj - m () + IconSource -- _obj + -> m () -- result iconSourceFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_icon_source_free _obj' touchManagedPtr _obj return () +data IconSourceFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo IconSourceFreeMethodInfo IconSource signature where + overloadedMethod _ = iconSourceFree + -- method IconSource::get_direction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TextDirection" -- throws : False -- Skip return : False @@ -211,8 +236,8 @@ {-# DEPRECATED iconSourceGetDirection ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetDirection :: (MonadIO m) => - IconSource -> -- _obj - m TextDirection + IconSource -- _obj + -> m TextDirection -- result iconSourceGetDirection _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_direction _obj' @@ -220,11 +245,14 @@ touchManagedPtr _obj return result' +data IconSourceGetDirectionMethodInfo +instance (signature ~ (m TextDirection), MonadIO m) => MethodInfo IconSourceGetDirectionMethodInfo IconSource signature where + overloadedMethod _ = iconSourceGetDirection + -- method IconSource::get_direction_wildcarded -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -236,8 +264,8 @@ {-# DEPRECATED iconSourceGetDirectionWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetDirectionWildcarded :: (MonadIO m) => - IconSource -> -- _obj - m Bool + IconSource -- _obj + -> m Bool -- result iconSourceGetDirectionWildcarded _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_direction_wildcarded _obj' @@ -245,11 +273,14 @@ touchManagedPtr _obj return result' +data IconSourceGetDirectionWildcardedMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo IconSourceGetDirectionWildcardedMethodInfo IconSource signature where + overloadedMethod _ = iconSourceGetDirectionWildcarded + -- method IconSource::get_filename -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TFileName -- throws : False -- Skip return : False @@ -261,8 +292,8 @@ {-# DEPRECATED iconSourceGetFilename ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetFilename :: (MonadIO m) => - IconSource -> -- _obj - m [Char] + IconSource -- _obj + -> m [Char] -- result iconSourceGetFilename _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_filename _obj' @@ -271,11 +302,14 @@ touchManagedPtr _obj return result' +data IconSourceGetFilenameMethodInfo +instance (signature ~ (m [Char]), MonadIO m) => MethodInfo IconSourceGetFilenameMethodInfo IconSource signature where + overloadedMethod _ = iconSourceGetFilename + -- method IconSource::get_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -287,8 +321,8 @@ {-# DEPRECATED iconSourceGetIconName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetIconName :: (MonadIO m) => - IconSource -> -- _obj - m T.Text + IconSource -- _obj + -> m T.Text -- result iconSourceGetIconName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_icon_name _obj' @@ -297,11 +331,14 @@ touchManagedPtr _obj return result' +data IconSourceGetIconNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo IconSourceGetIconNameMethodInfo IconSource signature where + overloadedMethod _ = iconSourceGetIconName + -- method IconSource::get_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -313,8 +350,8 @@ {-# DEPRECATED iconSourceGetPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetPixbuf :: (MonadIO m) => - IconSource -> -- _obj - m GdkPixbuf.Pixbuf + IconSource -- _obj + -> m GdkPixbuf.Pixbuf -- result iconSourceGetPixbuf _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_pixbuf _obj' @@ -323,11 +360,14 @@ touchManagedPtr _obj return result' +data IconSourceGetPixbufMethodInfo +instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m) => MethodInfo IconSourceGetPixbufMethodInfo IconSource signature where + overloadedMethod _ = iconSourceGetPixbuf + -- method IconSource::get_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -339,19 +379,22 @@ {-# DEPRECATED iconSourceGetSize ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetSize :: (MonadIO m) => - IconSource -> -- _obj - m Int32 + IconSource -- _obj + -> m Int32 -- result iconSourceGetSize _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_size _obj' touchManagedPtr _obj return result +data IconSourceGetSizeMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo IconSourceGetSizeMethodInfo IconSource signature where + overloadedMethod _ = iconSourceGetSize + -- method IconSource::get_size_wildcarded -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -363,8 +406,8 @@ {-# DEPRECATED iconSourceGetSizeWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetSizeWildcarded :: (MonadIO m) => - IconSource -> -- _obj - m Bool + IconSource -- _obj + -> m Bool -- result iconSourceGetSizeWildcarded _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_size_wildcarded _obj' @@ -372,11 +415,14 @@ touchManagedPtr _obj return result' +data IconSourceGetSizeWildcardedMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo IconSourceGetSizeWildcardedMethodInfo IconSource signature where + overloadedMethod _ = iconSourceGetSizeWildcarded + -- method IconSource::get_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StateType" -- throws : False -- Skip return : False @@ -388,8 +434,8 @@ {-# DEPRECATED iconSourceGetState ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetState :: (MonadIO m) => - IconSource -> -- _obj - m StateType + IconSource -- _obj + -> m StateType -- result iconSourceGetState _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_state _obj' @@ -397,11 +443,14 @@ touchManagedPtr _obj return result' +data IconSourceGetStateMethodInfo +instance (signature ~ (m StateType), MonadIO m) => MethodInfo IconSourceGetStateMethodInfo IconSource signature where + overloadedMethod _ = iconSourceGetState + -- method IconSource::get_state_wildcarded -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -413,8 +462,8 @@ {-# DEPRECATED iconSourceGetStateWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceGetStateWildcarded :: (MonadIO m) => - IconSource -> -- _obj - m Bool + IconSource -- _obj + -> m Bool -- result iconSourceGetStateWildcarded _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_icon_source_get_state_wildcarded _obj' @@ -422,11 +471,14 @@ touchManagedPtr _obj return result' +data IconSourceGetStateWildcardedMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo IconSourceGetStateWildcardedMethodInfo IconSource signature where + overloadedMethod _ = iconSourceGetStateWildcarded + -- method IconSource::set_direction -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -439,9 +491,9 @@ {-# DEPRECATED iconSourceSetDirection ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetDirection :: (MonadIO m) => - IconSource -> -- _obj - TextDirection -> -- direction - m () + IconSource -- _obj + -> TextDirection -- direction + -> m () -- result iconSourceSetDirection _obj direction = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let direction' = (fromIntegral . fromEnum) direction @@ -449,11 +501,14 @@ touchManagedPtr _obj return () +data IconSourceSetDirectionMethodInfo +instance (signature ~ (TextDirection -> m ()), MonadIO m) => MethodInfo IconSourceSetDirectionMethodInfo IconSource signature where + overloadedMethod _ = iconSourceSetDirection + -- method IconSource::set_direction_wildcarded -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -466,9 +521,9 @@ {-# DEPRECATED iconSourceSetDirectionWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetDirectionWildcarded :: (MonadIO m) => - IconSource -> -- _obj - Bool -> -- setting - m () + IconSource -- _obj + -> Bool -- setting + -> m () -- result iconSourceSetDirectionWildcarded _obj setting = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -476,11 +531,14 @@ touchManagedPtr _obj return () +data IconSourceSetDirectionWildcardedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo IconSourceSetDirectionWildcardedMethodInfo IconSource signature where + overloadedMethod _ = iconSourceSetDirectionWildcarded + -- method IconSource::set_filename -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -493,9 +551,9 @@ {-# DEPRECATED iconSourceSetFilename ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetFilename :: (MonadIO m) => - IconSource -> -- _obj - [Char] -> -- filename - m () + IconSource -- _obj + -> [Char] -- filename + -> m () -- result iconSourceSetFilename _obj filename = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj filename' <- stringToCString filename @@ -504,11 +562,14 @@ freeMem filename' return () +data IconSourceSetFilenameMethodInfo +instance (signature ~ ([Char] -> m ()), MonadIO m) => MethodInfo IconSourceSetFilenameMethodInfo IconSource signature where + overloadedMethod _ = iconSourceSetFilename + -- method IconSource::set_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -521,26 +582,29 @@ {-# DEPRECATED iconSourceSetIconName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetIconName :: (MonadIO m) => - IconSource -> -- _obj - Maybe (T.Text) -> -- icon_name - m () -iconSourceSetIconName _obj icon_name = liftIO $ do + IconSource -- _obj + -> Maybe (T.Text) -- iconName + -> m () -- result +iconSourceSetIconName _obj iconName = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - maybeIcon_name <- case icon_name of + maybeIconName <- case iconName of Nothing -> return nullPtr - Just jIcon_name -> do - jIcon_name' <- textToCString jIcon_name - return jIcon_name' - gtk_icon_source_set_icon_name _obj' maybeIcon_name + Just jIconName -> do + jIconName' <- textToCString jIconName + return jIconName' + gtk_icon_source_set_icon_name _obj' maybeIconName touchManagedPtr _obj - freeMem maybeIcon_name + freeMem maybeIconName return () +data IconSourceSetIconNameMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo IconSourceSetIconNameMethodInfo IconSource signature where + overloadedMethod _ = iconSourceSetIconName + -- method IconSource::set_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -553,9 +617,9 @@ {-# DEPRECATED iconSourceSetPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetPixbuf :: (MonadIO m, GdkPixbuf.PixbufK a) => - IconSource -> -- _obj - a -> -- pixbuf - m () + IconSource -- _obj + -> a -- pixbuf + -> m () -- result iconSourceSetPixbuf _obj pixbuf = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let pixbuf' = unsafeManagedPtrCastPtr pixbuf @@ -564,11 +628,14 @@ touchManagedPtr pixbuf return () +data IconSourceSetPixbufMethodInfo +instance (signature ~ (a -> m ()), MonadIO m, GdkPixbuf.PixbufK a) => MethodInfo IconSourceSetPixbufMethodInfo IconSource signature where + overloadedMethod _ = iconSourceSetPixbuf + -- method IconSource::set_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -581,20 +648,23 @@ {-# DEPRECATED iconSourceSetSize ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetSize :: (MonadIO m) => - IconSource -> -- _obj - Int32 -> -- size - m () + IconSource -- _obj + -> Int32 -- size + -> m () -- result iconSourceSetSize _obj size = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_icon_source_set_size _obj' size touchManagedPtr _obj return () +data IconSourceSetSizeMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo IconSourceSetSizeMethodInfo IconSource signature where + overloadedMethod _ = iconSourceSetSize + -- method IconSource::set_size_wildcarded -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -607,9 +677,9 @@ {-# DEPRECATED iconSourceSetSizeWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetSizeWildcarded :: (MonadIO m) => - IconSource -> -- _obj - Bool -> -- setting - m () + IconSource -- _obj + -> Bool -- setting + -> m () -- result iconSourceSetSizeWildcarded _obj setting = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let setting' = (fromIntegral . fromEnum) setting @@ -617,11 +687,14 @@ touchManagedPtr _obj return () +data IconSourceSetSizeWildcardedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo IconSourceSetSizeWildcardedMethodInfo IconSource signature where + overloadedMethod _ = iconSourceSetSizeWildcarded + -- method IconSource::set_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -634,9 +707,9 @@ {-# DEPRECATED iconSourceSetState ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetState :: (MonadIO m) => - IconSource -> -- _obj - StateType -> -- state - m () + IconSource -- _obj + -> StateType -- state + -> m () -- result iconSourceSetState _obj state = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let state' = (fromIntegral . fromEnum) state @@ -644,11 +717,14 @@ touchManagedPtr _obj return () +data IconSourceSetStateMethodInfo +instance (signature ~ (StateType -> m ()), MonadIO m) => MethodInfo IconSourceSetStateMethodInfo IconSource signature where + overloadedMethod _ = iconSourceSetState + -- method IconSource::set_state_wildcarded -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -661,14 +737,49 @@ {-# DEPRECATED iconSourceSetStateWildcarded ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} iconSourceSetStateWildcarded :: (MonadIO m) => - IconSource -> -- _obj - Bool -> -- setting - m () + IconSource -- _obj + -> Bool -- setting + -> m () -- result iconSourceSetStateWildcarded _obj setting = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let setting' = (fromIntegral . fromEnum) setting gtk_icon_source_set_state_wildcarded _obj' setting' touchManagedPtr _obj return () + +data IconSourceSetStateWildcardedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo IconSourceSetStateWildcardedMethodInfo IconSource signature where + overloadedMethod _ = iconSourceSetStateWildcarded + +type family ResolveIconSourceMethod (t :: Symbol) (o :: *) :: * where + ResolveIconSourceMethod "copy" o = IconSourceCopyMethodInfo + ResolveIconSourceMethod "free" o = IconSourceFreeMethodInfo + ResolveIconSourceMethod "getDirection" o = IconSourceGetDirectionMethodInfo + ResolveIconSourceMethod "getDirectionWildcarded" o = IconSourceGetDirectionWildcardedMethodInfo + ResolveIconSourceMethod "getFilename" o = IconSourceGetFilenameMethodInfo + ResolveIconSourceMethod "getIconName" o = IconSourceGetIconNameMethodInfo + ResolveIconSourceMethod "getPixbuf" o = IconSourceGetPixbufMethodInfo + ResolveIconSourceMethod "getSize" o = IconSourceGetSizeMethodInfo + ResolveIconSourceMethod "getSizeWildcarded" o = IconSourceGetSizeWildcardedMethodInfo + ResolveIconSourceMethod "getState" o = IconSourceGetStateMethodInfo + ResolveIconSourceMethod "getStateWildcarded" o = IconSourceGetStateWildcardedMethodInfo + ResolveIconSourceMethod "setDirection" o = IconSourceSetDirectionMethodInfo + ResolveIconSourceMethod "setDirectionWildcarded" o = IconSourceSetDirectionWildcardedMethodInfo + ResolveIconSourceMethod "setFilename" o = IconSourceSetFilenameMethodInfo + ResolveIconSourceMethod "setIconName" o = IconSourceSetIconNameMethodInfo + ResolveIconSourceMethod "setPixbuf" o = IconSourceSetPixbufMethodInfo + ResolveIconSourceMethod "setSize" o = IconSourceSetSizeMethodInfo + ResolveIconSourceMethod "setSizeWildcarded" o = IconSourceSetSizeWildcardedMethodInfo + ResolveIconSourceMethod "setState" o = IconSourceSetStateMethodInfo + ResolveIconSourceMethod "setStateWildcarded" o = IconSourceSetStateWildcardedMethodInfo + ResolveIconSourceMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveIconSourceMethod t IconSource, MethodInfo info IconSource p) => IsLabelProxy t (IconSource -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveIconSourceMethod t IconSource, MethodInfo info IconSource p) => IsLabel t (IconSource -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/IconSource.hs-boot b/GI/Gtk/Structs/IconSource.hs-boot --- a/GI/Gtk/Structs/IconSource.hs-boot +++ b/GI/Gtk/Structs/IconSource.hs-boot @@ -9,3 +9,23 @@ newtype IconSource = IconSource (ForeignPtr IconSource) instance BoxedObject IconSource where +data IconSourceCopyMethodInfo +data IconSourceFreeMethodInfo +data IconSourceGetDirectionMethodInfo +data IconSourceGetDirectionWildcardedMethodInfo +data IconSourceGetFilenameMethodInfo +data IconSourceGetIconNameMethodInfo +data IconSourceGetPixbufMethodInfo +data IconSourceGetSizeMethodInfo +data IconSourceGetSizeWildcardedMethodInfo +data IconSourceGetStateMethodInfo +data IconSourceGetStateWildcardedMethodInfo +data IconSourceSetDirectionMethodInfo +data IconSourceSetDirectionWildcardedMethodInfo +data IconSourceSetFilenameMethodInfo +data IconSourceSetIconNameMethodInfo +data IconSourceSetPixbufMethodInfo +data IconSourceSetSizeMethodInfo +data IconSourceSetSizeWildcardedMethodInfo +data IconSourceSetStateMethodInfo +data IconSourceSetStateWildcardedMethodInfo diff --git a/GI/Gtk/Structs/LabelSelectionInfo.hs b/GI/Gtk/Structs/LabelSelectionInfo.hs --- a/GI/Gtk/Structs/LabelSelectionInfo.hs +++ b/GI/Gtk/Structs/LabelSelectionInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -28,5 +29,16 @@ newtype LabelSelectionInfo = LabelSelectionInfo (ForeignPtr LabelSelectionInfo) noLabelSelectionInfo :: Maybe LabelSelectionInfo noLabelSelectionInfo = Nothing + +type family ResolveLabelSelectionInfoMethod (t :: Symbol) (o :: *) :: * where + ResolveLabelSelectionInfoMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveLabelSelectionInfoMethod t LabelSelectionInfo, MethodInfo info LabelSelectionInfo p) => IsLabelProxy t (LabelSelectionInfo -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveLabelSelectionInfoMethod t LabelSelectionInfo, MethodInfo info LabelSelectionInfo p) => IsLabel t (LabelSelectionInfo -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/PageRange.hs b/GI/Gtk/Structs/PageRange.hs --- a/GI/Gtk/Structs/PageRange.hs +++ b/GI/Gtk/Structs/PageRange.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,6 +13,7 @@ -- * Exported types PageRange(..) , + newZeroPageRange , noPageRange , @@ -39,6 +41,10 @@ import GI.Gtk.Callbacks newtype PageRange = PageRange (ForeignPtr PageRange) +-- | Construct a `PageRange` struct initialized to zero. +newZeroPageRange :: MonadIO m => m PageRange +newZeroPageRange = liftIO $ callocBytes 8 >>= wrapPtr PageRange + noPageRange :: Maybe PageRange noPageRange = Nothing @@ -51,5 +57,16 @@ pageRangeReadEnd s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO Int32 return val + +type family ResolvePageRangeMethod (t :: Symbol) (o :: *) :: * where + ResolvePageRangeMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePageRangeMethod t PageRange, MethodInfo info PageRange p) => IsLabelProxy t (PageRange -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePageRangeMethod t PageRange, MethodInfo info PageRange p) => IsLabel t (PageRange -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/PaperSize.hs b/GI/Gtk/Structs/PaperSize.hs --- a/GI/Gtk/Structs/PaperSize.hs +++ b/GI/Gtk/Structs/PaperSize.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -27,58 +28,80 @@ -- * Methods -- ** paperSizeCopy + PaperSizeCopyMethodInfo , paperSizeCopy , -- ** paperSizeFree + PaperSizeFreeMethodInfo , paperSizeFree , +-- ** paperSizeGetDefault + paperSizeGetDefault , + + -- ** paperSizeGetDefaultBottomMargin + PaperSizeGetDefaultBottomMarginMethodInfo, paperSizeGetDefaultBottomMargin , -- ** paperSizeGetDefaultLeftMargin + PaperSizeGetDefaultLeftMarginMethodInfo , paperSizeGetDefaultLeftMargin , -- ** paperSizeGetDefaultRightMargin + PaperSizeGetDefaultRightMarginMethodInfo, paperSizeGetDefaultRightMargin , -- ** paperSizeGetDefaultTopMargin + PaperSizeGetDefaultTopMarginMethodInfo , paperSizeGetDefaultTopMargin , -- ** paperSizeGetDisplayName + PaperSizeGetDisplayNameMethodInfo , paperSizeGetDisplayName , -- ** paperSizeGetHeight + PaperSizeGetHeightMethodInfo , paperSizeGetHeight , -- ** paperSizeGetName + PaperSizeGetNameMethodInfo , paperSizeGetName , +-- ** paperSizeGetPaperSizes + paperSizeGetPaperSizes , + + -- ** paperSizeGetPpdName + PaperSizeGetPpdNameMethodInfo , paperSizeGetPpdName , -- ** paperSizeGetWidth + PaperSizeGetWidthMethodInfo , paperSizeGetWidth , -- ** paperSizeIsCustom + PaperSizeIsCustomMethodInfo , paperSizeIsCustom , -- ** paperSizeIsEqual + PaperSizeIsEqualMethodInfo , paperSizeIsEqual , -- ** paperSizeIsIpp + PaperSizeIsIppMethodInfo , paperSizeIsIpp , @@ -103,10 +126,12 @@ -- ** paperSizeSetSize + PaperSizeSetSizeMethodInfo , paperSizeSetSize , -- ** paperSizeToKeyFile + PaperSizeToKeyFileMethodInfo , paperSizeToKeyFile , @@ -137,9 +162,8 @@ -- method PaperSize::new -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PaperSize" -- throws : False -- Skip return : False @@ -151,8 +175,8 @@ paperSizeNew :: (MonadIO m) => - Maybe (T.Text) -> -- name - m PaperSize + Maybe (T.Text) -- name + -> m PaperSize -- result paperSizeNew name = liftIO $ do maybeName <- case name of Nothing -> return nullPtr @@ -167,9 +191,8 @@ -- method PaperSize::new_custom -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PaperSize" -- throws : False -- Skip return : False @@ -185,30 +208,29 @@ paperSizeNewCustom :: (MonadIO m) => - T.Text -> -- name - T.Text -> -- display_name - Double -> -- width - Double -> -- height - Unit -> -- unit - m PaperSize -paperSizeNewCustom name display_name width height unit = liftIO $ do + T.Text -- name + -> T.Text -- displayName + -> Double -- width + -> Double -- height + -> Unit -- unit + -> m PaperSize -- result +paperSizeNewCustom name displayName width height unit = liftIO $ do name' <- textToCString name - display_name' <- textToCString display_name + displayName' <- textToCString displayName let width' = realToFrac width let height' = realToFrac height let unit' = (fromIntegral . fromEnum) unit - result <- gtk_paper_size_new_custom name' display_name' width' height' unit' + result <- gtk_paper_size_new_custom name' displayName' width' height' unit' checkUnexpectedReturnNULL "gtk_paper_size_new_custom" result result' <- (wrapBoxed PaperSize) result freeMem name' - freeMem display_name' + freeMem displayName' return result' -- method PaperSize::new_from_ipp -- method type : Constructor --- Args : [Arg {argName = "ipp_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "ipp_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "ipp_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PaperSize" -- throws : False -- Skip return : False @@ -222,25 +244,24 @@ paperSizeNewFromIpp :: (MonadIO m) => - T.Text -> -- ipp_name - Double -> -- width - Double -> -- height - m PaperSize -paperSizeNewFromIpp ipp_name width height = liftIO $ do - ipp_name' <- textToCString ipp_name + T.Text -- ippName + -> Double -- width + -> Double -- height + -> m PaperSize -- result +paperSizeNewFromIpp ippName width height = liftIO $ do + ippName' <- textToCString ippName let width' = realToFrac width let height' = realToFrac height - result <- gtk_paper_size_new_from_ipp ipp_name' width' height' + result <- gtk_paper_size_new_from_ipp ippName' width' height' checkUnexpectedReturnNULL "gtk_paper_size_new_from_ipp" result result' <- (wrapBoxed PaperSize) result - freeMem ipp_name' + freeMem ippName' return result' -- method PaperSize::new_from_key_file -- method type : Constructor --- Args : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PaperSize" -- throws : True -- Skip return : False @@ -254,28 +275,27 @@ paperSizeNewFromKeyFile :: (MonadIO m) => - GLib.KeyFile -> -- key_file - T.Text -> -- group_name - m PaperSize -paperSizeNewFromKeyFile key_file group_name = liftIO $ do - let key_file' = unsafeManagedPtrGetPtr key_file - group_name' <- textToCString group_name + GLib.KeyFile -- keyFile + -> T.Text -- groupName + -> m PaperSize -- result +paperSizeNewFromKeyFile keyFile groupName = liftIO $ do + let keyFile' = unsafeManagedPtrGetPtr keyFile + groupName' <- textToCString groupName onException (do - result <- propagateGError $ gtk_paper_size_new_from_key_file key_file' group_name' + result <- propagateGError $ gtk_paper_size_new_from_key_file keyFile' groupName' checkUnexpectedReturnNULL "gtk_paper_size_new_from_key_file" result result' <- (wrapBoxed PaperSize) result - touchManagedPtr key_file - freeMem group_name' + touchManagedPtr keyFile + freeMem groupName' return result' ) (do - freeMem group_name' + freeMem groupName' ) -- method PaperSize::new_from_ppd -- method type : Constructor --- Args : [Arg {argName = "ppd_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ppd_display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "ppd_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ppd_display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "ppd_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ppd_display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PaperSize" -- throws : False -- Skip return : False @@ -290,28 +310,27 @@ paperSizeNewFromPpd :: (MonadIO m) => - T.Text -> -- ppd_name - T.Text -> -- ppd_display_name - Double -> -- width - Double -> -- height - m PaperSize -paperSizeNewFromPpd ppd_name ppd_display_name width height = liftIO $ do - ppd_name' <- textToCString ppd_name - ppd_display_name' <- textToCString ppd_display_name + T.Text -- ppdName + -> T.Text -- ppdDisplayName + -> Double -- width + -> Double -- height + -> m PaperSize -- result +paperSizeNewFromPpd ppdName ppdDisplayName width height = liftIO $ do + ppdName' <- textToCString ppdName + ppdDisplayName' <- textToCString ppdDisplayName let width' = realToFrac width let height' = realToFrac height - result <- gtk_paper_size_new_from_ppd ppd_name' ppd_display_name' width' height' + result <- gtk_paper_size_new_from_ppd ppdName' ppdDisplayName' width' height' checkUnexpectedReturnNULL "gtk_paper_size_new_from_ppd" result result' <- (wrapBoxed PaperSize) result - freeMem ppd_name' - freeMem ppd_display_name' + freeMem ppdName' + freeMem ppdDisplayName' return result' -- method PaperSize::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "PaperSize" -- throws : False -- Skip return : False @@ -323,8 +342,8 @@ paperSizeCopy :: (MonadIO m) => - PaperSize -> -- _obj - m PaperSize + PaperSize -- _obj + -> m PaperSize -- result paperSizeCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_paper_size_copy _obj' @@ -333,11 +352,14 @@ touchManagedPtr _obj return result' +data PaperSizeCopyMethodInfo +instance (signature ~ (m PaperSize), MonadIO m) => MethodInfo PaperSizeCopyMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeCopy + -- method PaperSize::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -349,19 +371,22 @@ paperSizeFree :: (MonadIO m) => - PaperSize -> -- _obj - m () + PaperSize -- _obj + -> m () -- result paperSizeFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_paper_size_free _obj' touchManagedPtr _obj return () +data PaperSizeFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo PaperSizeFreeMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeFree + -- method PaperSize::get_default_bottom_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -374,9 +399,9 @@ paperSizeGetDefaultBottomMargin :: (MonadIO m) => - PaperSize -> -- _obj - Unit -> -- unit - m Double + PaperSize -- _obj + -> Unit -- unit + -> m Double -- result paperSizeGetDefaultBottomMargin _obj unit = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -385,11 +410,14 @@ touchManagedPtr _obj return result' +data PaperSizeGetDefaultBottomMarginMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m) => MethodInfo PaperSizeGetDefaultBottomMarginMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeGetDefaultBottomMargin + -- method PaperSize::get_default_left_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -402,9 +430,9 @@ paperSizeGetDefaultLeftMargin :: (MonadIO m) => - PaperSize -> -- _obj - Unit -> -- unit - m Double + PaperSize -- _obj + -> Unit -- unit + -> m Double -- result paperSizeGetDefaultLeftMargin _obj unit = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -413,11 +441,14 @@ touchManagedPtr _obj return result' +data PaperSizeGetDefaultLeftMarginMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m) => MethodInfo PaperSizeGetDefaultLeftMarginMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeGetDefaultLeftMargin + -- method PaperSize::get_default_right_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -430,9 +461,9 @@ paperSizeGetDefaultRightMargin :: (MonadIO m) => - PaperSize -> -- _obj - Unit -> -- unit - m Double + PaperSize -- _obj + -> Unit -- unit + -> m Double -- result paperSizeGetDefaultRightMargin _obj unit = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -441,11 +472,14 @@ touchManagedPtr _obj return result' +data PaperSizeGetDefaultRightMarginMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m) => MethodInfo PaperSizeGetDefaultRightMarginMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeGetDefaultRightMargin + -- method PaperSize::get_default_top_margin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -458,9 +492,9 @@ paperSizeGetDefaultTopMargin :: (MonadIO m) => - PaperSize -> -- _obj - Unit -> -- unit - m Double + PaperSize -- _obj + -> Unit -- unit + -> m Double -- result paperSizeGetDefaultTopMargin _obj unit = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -469,11 +503,14 @@ touchManagedPtr _obj return result' +data PaperSizeGetDefaultTopMarginMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m) => MethodInfo PaperSizeGetDefaultTopMarginMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeGetDefaultTopMargin + -- method PaperSize::get_display_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -485,8 +522,8 @@ paperSizeGetDisplayName :: (MonadIO m) => - PaperSize -> -- _obj - m T.Text + PaperSize -- _obj + -> m T.Text -- result paperSizeGetDisplayName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_paper_size_get_display_name _obj' @@ -495,11 +532,14 @@ touchManagedPtr _obj return result' +data PaperSizeGetDisplayNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo PaperSizeGetDisplayNameMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeGetDisplayName + -- method PaperSize::get_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -512,9 +552,9 @@ paperSizeGetHeight :: (MonadIO m) => - PaperSize -> -- _obj - Unit -> -- unit - m Double + PaperSize -- _obj + -> Unit -- unit + -> m Double -- result paperSizeGetHeight _obj unit = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -523,11 +563,14 @@ touchManagedPtr _obj return result' +data PaperSizeGetHeightMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m) => MethodInfo PaperSizeGetHeightMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeGetHeight + -- method PaperSize::get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -539,8 +582,8 @@ paperSizeGetName :: (MonadIO m) => - PaperSize -> -- _obj - m T.Text + PaperSize -- _obj + -> m T.Text -- result paperSizeGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_paper_size_get_name _obj' @@ -549,11 +592,14 @@ touchManagedPtr _obj return result' +data PaperSizeGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo PaperSizeGetNameMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeGetName + -- method PaperSize::get_ppd_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -565,8 +611,8 @@ paperSizeGetPpdName :: (MonadIO m) => - PaperSize -> -- _obj - m T.Text + PaperSize -- _obj + -> m T.Text -- result paperSizeGetPpdName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_paper_size_get_ppd_name _obj' @@ -575,11 +621,14 @@ touchManagedPtr _obj return result' +data PaperSizeGetPpdNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo PaperSizeGetPpdNameMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeGetPpdName + -- method PaperSize::get_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -592,9 +641,9 @@ paperSizeGetWidth :: (MonadIO m) => - PaperSize -> -- _obj - Unit -> -- unit - m Double + PaperSize -- _obj + -> Unit -- unit + -> m Double -- result paperSizeGetWidth _obj unit = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let unit' = (fromIntegral . fromEnum) unit @@ -603,11 +652,14 @@ touchManagedPtr _obj return result' +data PaperSizeGetWidthMethodInfo +instance (signature ~ (Unit -> m Double), MonadIO m) => MethodInfo PaperSizeGetWidthMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeGetWidth + -- method PaperSize::is_custom -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -619,8 +671,8 @@ paperSizeIsCustom :: (MonadIO m) => - PaperSize -> -- _obj - m Bool + PaperSize -- _obj + -> m Bool -- result paperSizeIsCustom _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_paper_size_is_custom _obj' @@ -628,11 +680,14 @@ touchManagedPtr _obj return result' +data PaperSizeIsCustomMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo PaperSizeIsCustomMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeIsCustom + -- method PaperSize::is_equal -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size2", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size2", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size2", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -645,9 +700,9 @@ paperSizeIsEqual :: (MonadIO m) => - PaperSize -> -- _obj - PaperSize -> -- size2 - m Bool + PaperSize -- _obj + -> PaperSize -- size2 + -> m Bool -- result paperSizeIsEqual _obj size2 = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let size2' = unsafeManagedPtrGetPtr size2 @@ -657,11 +712,14 @@ touchManagedPtr size2 return result' +data PaperSizeIsEqualMethodInfo +instance (signature ~ (PaperSize -> m Bool), MonadIO m) => MethodInfo PaperSizeIsEqualMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeIsEqual + -- method PaperSize::is_ipp -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -673,8 +731,8 @@ paperSizeIsIpp :: (MonadIO m) => - PaperSize -> -- _obj - m Bool + PaperSize -- _obj + -> m Bool -- result paperSizeIsIpp _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_paper_size_is_ipp _obj' @@ -682,11 +740,14 @@ touchManagedPtr _obj return result' +data PaperSizeIsIppMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo PaperSizeIsIppMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeIsIpp + -- method PaperSize::set_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -701,11 +762,11 @@ paperSizeSetSize :: (MonadIO m) => - PaperSize -> -- _obj - Double -> -- width - Double -> -- height - Unit -> -- unit - m () + PaperSize -- _obj + -> Double -- width + -> Double -- height + -> Unit -- unit + -> m () -- result paperSizeSetSize _obj width height unit = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let width' = realToFrac width @@ -715,11 +776,14 @@ touchManagedPtr _obj return () +data PaperSizeSetSizeMethodInfo +instance (signature ~ (Double -> Double -> Unit -> m ()), MonadIO m) => MethodInfo PaperSizeSetSizeMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeSetSize + -- method PaperSize::to_key_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -733,18 +797,96 @@ paperSizeToKeyFile :: (MonadIO m) => - PaperSize -> -- _obj - GLib.KeyFile -> -- key_file - T.Text -> -- group_name - m () -paperSizeToKeyFile _obj key_file group_name = liftIO $ do + PaperSize -- _obj + -> GLib.KeyFile -- keyFile + -> T.Text -- groupName + -> m () -- result +paperSizeToKeyFile _obj keyFile groupName = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - let key_file' = unsafeManagedPtrGetPtr key_file - group_name' <- textToCString group_name - gtk_paper_size_to_key_file _obj' key_file' group_name' + let keyFile' = unsafeManagedPtrGetPtr keyFile + groupName' <- textToCString groupName + gtk_paper_size_to_key_file _obj' keyFile' groupName' touchManagedPtr _obj - touchManagedPtr key_file - freeMem group_name' + touchManagedPtr keyFile + freeMem groupName' return () + +data PaperSizeToKeyFileMethodInfo +instance (signature ~ (GLib.KeyFile -> T.Text -> m ()), MonadIO m) => MethodInfo PaperSizeToKeyFileMethodInfo PaperSize signature where + overloadedMethod _ = paperSizeToKeyFile + +-- method PaperSize::get_default +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- 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 -- result +paperSizeGetDefault = liftIO $ do + result <- gtk_paper_size_get_default + checkUnexpectedReturnNULL "gtk_paper_size_get_default" result + result' <- cstringToText result + return result' + +-- method PaperSize::get_paper_sizes +-- method type : MemberFunction +-- Args : [Arg {argCName = "include_custom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- includeCustom + -> m [PaperSize] -- result +paperSizeGetPaperSizes includeCustom = liftIO $ do + let includeCustom' = (fromIntegral . fromEnum) includeCustom + result <- gtk_paper_size_get_paper_sizes includeCustom' + checkUnexpectedReturnNULL "gtk_paper_size_get_paper_sizes" result + result' <- unpackGList result + result'' <- mapM (wrapBoxed PaperSize) result' + g_list_free result + return result'' + +type family ResolvePaperSizeMethod (t :: Symbol) (o :: *) :: * where + ResolvePaperSizeMethod "copy" o = PaperSizeCopyMethodInfo + ResolvePaperSizeMethod "free" o = PaperSizeFreeMethodInfo + ResolvePaperSizeMethod "isCustom" o = PaperSizeIsCustomMethodInfo + ResolvePaperSizeMethod "isEqual" o = PaperSizeIsEqualMethodInfo + ResolvePaperSizeMethod "isIpp" o = PaperSizeIsIppMethodInfo + ResolvePaperSizeMethod "toKeyFile" o = PaperSizeToKeyFileMethodInfo + ResolvePaperSizeMethod "getDefaultBottomMargin" o = PaperSizeGetDefaultBottomMarginMethodInfo + ResolvePaperSizeMethod "getDefaultLeftMargin" o = PaperSizeGetDefaultLeftMarginMethodInfo + ResolvePaperSizeMethod "getDefaultRightMargin" o = PaperSizeGetDefaultRightMarginMethodInfo + ResolvePaperSizeMethod "getDefaultTopMargin" o = PaperSizeGetDefaultTopMarginMethodInfo + ResolvePaperSizeMethod "getDisplayName" o = PaperSizeGetDisplayNameMethodInfo + ResolvePaperSizeMethod "getHeight" o = PaperSizeGetHeightMethodInfo + ResolvePaperSizeMethod "getName" o = PaperSizeGetNameMethodInfo + ResolvePaperSizeMethod "getPpdName" o = PaperSizeGetPpdNameMethodInfo + ResolvePaperSizeMethod "getWidth" o = PaperSizeGetWidthMethodInfo + ResolvePaperSizeMethod "setSize" o = PaperSizeSetSizeMethodInfo + ResolvePaperSizeMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePaperSizeMethod t PaperSize, MethodInfo info PaperSize p) => IsLabelProxy t (PaperSize -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePaperSizeMethod t PaperSize, MethodInfo info PaperSize p) => IsLabel t (PaperSize -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/PaperSize.hs-boot b/GI/Gtk/Structs/PaperSize.hs-boot --- a/GI/Gtk/Structs/PaperSize.hs-boot +++ b/GI/Gtk/Structs/PaperSize.hs-boot @@ -9,3 +9,19 @@ newtype PaperSize = PaperSize (ForeignPtr PaperSize) instance BoxedObject PaperSize where +data PaperSizeCopyMethodInfo +data PaperSizeFreeMethodInfo +data PaperSizeGetDefaultBottomMarginMethodInfo +data PaperSizeGetDefaultLeftMarginMethodInfo +data PaperSizeGetDefaultRightMarginMethodInfo +data PaperSizeGetDefaultTopMarginMethodInfo +data PaperSizeGetDisplayNameMethodInfo +data PaperSizeGetHeightMethodInfo +data PaperSizeGetNameMethodInfo +data PaperSizeGetPpdNameMethodInfo +data PaperSizeGetWidthMethodInfo +data PaperSizeIsCustomMethodInfo +data PaperSizeIsEqualMethodInfo +data PaperSizeIsIppMethodInfo +data PaperSizeSetSizeMethodInfo +data PaperSizeToKeyFileMethodInfo diff --git a/GI/Gtk/Structs/RadioActionEntry.hs b/GI/Gtk/Structs/RadioActionEntry.hs --- a/GI/Gtk/Structs/RadioActionEntry.hs +++ b/GI/Gtk/Structs/RadioActionEntry.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -13,6 +14,7 @@ -- * Exported types RadioActionEntry(..) , + newZeroRadioActionEntry , noRadioActionEntry , @@ -56,6 +58,10 @@ import GI.Gtk.Callbacks newtype RadioActionEntry = RadioActionEntry (ForeignPtr RadioActionEntry) +-- | Construct a `RadioActionEntry` struct initialized to zero. +newZeroRadioActionEntry :: MonadIO m => m RadioActionEntry +newZeroRadioActionEntry = liftIO $ callocBytes 48 >>= wrapPtr RadioActionEntry + noRadioActionEntry :: Maybe RadioActionEntry noRadioActionEntry = Nothing @@ -93,5 +99,16 @@ radioActionEntryReadValue s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO Int32 return val + +type family ResolveRadioActionEntryMethod (t :: Symbol) (o :: *) :: * where + ResolveRadioActionEntryMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRadioActionEntryMethod t RadioActionEntry, MethodInfo info RadioActionEntry p) => IsLabelProxy t (RadioActionEntry -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRadioActionEntryMethod t RadioActionEntry, MethodInfo info RadioActionEntry p) => IsLabel t (RadioActionEntry -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/RcContext.hs b/GI/Gtk/Structs/RcContext.hs --- a/GI/Gtk/Structs/RcContext.hs +++ b/GI/Gtk/Structs/RcContext.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -28,5 +29,16 @@ newtype RcContext = RcContext (ForeignPtr RcContext) noRcContext :: Maybe RcContext noRcContext = Nothing + +type family ResolveRcContextMethod (t :: Symbol) (o :: *) :: * where + ResolveRcContextMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRcContextMethod t RcContext, MethodInfo info RcContext p) => IsLabelProxy t (RcContext -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRcContextMethod t RcContext, MethodInfo info RcContext p) => IsLabel t (RcContext -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/RcProperty.hs b/GI/Gtk/Structs/RcProperty.hs --- a/GI/Gtk/Structs/RcProperty.hs +++ b/GI/Gtk/Structs/RcProperty.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,9 +13,33 @@ -- * Exported types RcProperty(..) , + newZeroRcProperty , noRcProperty , + -- * Methods +-- ** rcPropertyParseBorder + rcPropertyParseBorder , + + +-- ** rcPropertyParseColor + rcPropertyParseColor , + + +-- ** rcPropertyParseEnum + rcPropertyParseEnum , + + +-- ** rcPropertyParseFlags + rcPropertyParseFlags , + + +-- ** rcPropertyParseRequisition + rcPropertyParseRequisition , + + + + -- * Properties -- ** Origin rcPropertyReadOrigin , @@ -45,8 +70,13 @@ import GI.Gtk.Types import GI.Gtk.Callbacks +import qualified GI.GLib as GLib newtype RcProperty = RcProperty (ForeignPtr RcProperty) +-- | Construct a `RcProperty` struct initialized to zero. +newZeroRcProperty :: MonadIO m => m RcProperty +newZeroRcProperty = liftIO $ callocBytes 40 >>= wrapPtr RcProperty + noRcProperty :: Maybe RcProperty noRcProperty = Nothing @@ -71,5 +101,171 @@ val <- peek (ptr `plusPtr` 16) :: IO (Ptr GValue) val' <- (newBoxed GValue) val return val' + +-- method RcProperty::parse_border +-- method type : MemberFunction +-- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- propertyValue + -> m Bool -- result +rcPropertyParseBorder pspec gstring propertyValue = liftIO $ do + let pspec' = unsafeManagedPtrGetPtr pspec + let gstring' = unsafeManagedPtrGetPtr gstring + let propertyValue' = unsafeManagedPtrGetPtr propertyValue + result <- gtk_rc_property_parse_border pspec' gstring' propertyValue' + let result' = (/= 0) result + touchManagedPtr gstring + touchManagedPtr propertyValue + return result' + +-- method RcProperty::parse_color +-- method type : MemberFunction +-- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- propertyValue + -> m Bool -- result +rcPropertyParseColor pspec gstring propertyValue = liftIO $ do + let pspec' = unsafeManagedPtrGetPtr pspec + let gstring' = unsafeManagedPtrGetPtr gstring + let propertyValue' = unsafeManagedPtrGetPtr propertyValue + result <- gtk_rc_property_parse_color pspec' gstring' propertyValue' + let result' = (/= 0) result + touchManagedPtr gstring + touchManagedPtr propertyValue + return result' + +-- method RcProperty::parse_enum +-- method type : MemberFunction +-- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- propertyValue + -> m Bool -- result +rcPropertyParseEnum pspec gstring propertyValue = liftIO $ do + let pspec' = unsafeManagedPtrGetPtr pspec + let gstring' = unsafeManagedPtrGetPtr gstring + let propertyValue' = unsafeManagedPtrGetPtr propertyValue + result <- gtk_rc_property_parse_enum pspec' gstring' propertyValue' + let result' = (/= 0) result + touchManagedPtr gstring + touchManagedPtr propertyValue + return result' + +-- method RcProperty::parse_flags +-- method type : MemberFunction +-- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- propertyValue + -> m Bool -- result +rcPropertyParseFlags pspec gstring propertyValue = liftIO $ do + let pspec' = unsafeManagedPtrGetPtr pspec + let gstring' = unsafeManagedPtrGetPtr gstring + let propertyValue' = unsafeManagedPtrGetPtr propertyValue + result <- gtk_rc_property_parse_flags pspec' gstring' propertyValue' + let result' = (/= 0) result + touchManagedPtr gstring + touchManagedPtr propertyValue + return result' + +-- method RcProperty::parse_requisition +-- method type : MemberFunction +-- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- propertyValue + -> m Bool -- result +rcPropertyParseRequisition pspec gstring propertyValue = liftIO $ do + let pspec' = unsafeManagedPtrGetPtr pspec + let gstring' = unsafeManagedPtrGetPtr gstring + let propertyValue' = unsafeManagedPtrGetPtr propertyValue + result <- gtk_rc_property_parse_requisition pspec' gstring' propertyValue' + let result' = (/= 0) result + touchManagedPtr gstring + touchManagedPtr propertyValue + return result' + +type family ResolveRcPropertyMethod (t :: Symbol) (o :: *) :: * where + ResolveRcPropertyMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRcPropertyMethod t RcProperty, MethodInfo info RcProperty p) => IsLabelProxy t (RcProperty -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRcPropertyMethod t RcProperty, MethodInfo info RcProperty p) => IsLabel t (RcProperty -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/RecentData.hs b/GI/Gtk/Structs/RecentData.hs --- a/GI/Gtk/Structs/RecentData.hs +++ b/GI/Gtk/Structs/RecentData.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -13,6 +14,7 @@ -- * Exported types RecentData(..) , + newZeroRecentData , noRecentData , @@ -60,6 +62,10 @@ import GI.Gtk.Callbacks newtype RecentData = RecentData (ForeignPtr RecentData) +-- | Construct a `RecentData` struct initialized to zero. +newZeroRecentData :: MonadIO m => m RecentData +newZeroRecentData = liftIO $ callocBytes 56 >>= wrapPtr RecentData + noRecentData :: Maybe RecentData noRecentData = Nothing @@ -104,5 +110,16 @@ val <- peek (ptr `plusPtr` 48) :: IO CInt let val' = (/= 0) val return val' + +type family ResolveRecentDataMethod (t :: Symbol) (o :: *) :: * where + ResolveRecentDataMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRecentDataMethod t RecentData, MethodInfo info RecentData p) => IsLabelProxy t (RecentData -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRecentDataMethod t RecentData, MethodInfo info RecentData p) => IsLabel t (RecentData -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/RecentFilterInfo.hs b/GI/Gtk/Structs/RecentFilterInfo.hs --- a/GI/Gtk/Structs/RecentFilterInfo.hs +++ b/GI/Gtk/Structs/RecentFilterInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -13,6 +14,7 @@ -- * Exported types RecentFilterInfo(..) , + newZeroRecentFilterInfo , noRecentFilterInfo , @@ -60,6 +62,10 @@ import GI.Gtk.Callbacks newtype RecentFilterInfo = RecentFilterInfo (ForeignPtr RecentFilterInfo) +-- | Construct a `RecentFilterInfo` struct initialized to zero. +newZeroRecentFilterInfo :: MonadIO m => m RecentFilterInfo +newZeroRecentFilterInfo = liftIO $ callocBytes 56 >>= wrapPtr RecentFilterInfo + noRecentFilterInfo :: Maybe RecentFilterInfo noRecentFilterInfo = Nothing @@ -103,5 +109,16 @@ recentFilterInfoReadAge s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO Int32 return val + +type family ResolveRecentFilterInfoMethod (t :: Symbol) (o :: *) :: * where + ResolveRecentFilterInfoMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRecentFilterInfoMethod t RecentFilterInfo, MethodInfo info RecentFilterInfo p) => IsLabelProxy t (RecentFilterInfo -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRecentFilterInfoMethod t RecentFilterInfo, MethodInfo info RecentFilterInfo p) => IsLabel t (RecentFilterInfo -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/RecentInfo.hs b/GI/Gtk/Structs/RecentInfo.hs --- a/GI/Gtk/Structs/RecentInfo.hs +++ b/GI/Gtk/Structs/RecentInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,102 +22,127 @@ -- * Methods -- ** recentInfoCreateAppInfo + RecentInfoCreateAppInfoMethodInfo , recentInfoCreateAppInfo , -- ** recentInfoExists + RecentInfoExistsMethodInfo , recentInfoExists , -- ** recentInfoGetAdded + RecentInfoGetAddedMethodInfo , recentInfoGetAdded , -- ** recentInfoGetAge + RecentInfoGetAgeMethodInfo , recentInfoGetAge , -- ** recentInfoGetApplicationInfo + RecentInfoGetApplicationInfoMethodInfo , recentInfoGetApplicationInfo , -- ** recentInfoGetApplications + RecentInfoGetApplicationsMethodInfo , recentInfoGetApplications , -- ** recentInfoGetDescription + RecentInfoGetDescriptionMethodInfo , recentInfoGetDescription , -- ** recentInfoGetDisplayName + RecentInfoGetDisplayNameMethodInfo , recentInfoGetDisplayName , -- ** recentInfoGetGicon + RecentInfoGetGiconMethodInfo , recentInfoGetGicon , -- ** recentInfoGetGroups + RecentInfoGetGroupsMethodInfo , recentInfoGetGroups , -- ** recentInfoGetIcon + RecentInfoGetIconMethodInfo , recentInfoGetIcon , -- ** recentInfoGetMimeType + RecentInfoGetMimeTypeMethodInfo , recentInfoGetMimeType , -- ** recentInfoGetModified + RecentInfoGetModifiedMethodInfo , recentInfoGetModified , -- ** recentInfoGetPrivateHint + RecentInfoGetPrivateHintMethodInfo , recentInfoGetPrivateHint , -- ** recentInfoGetShortName + RecentInfoGetShortNameMethodInfo , recentInfoGetShortName , -- ** recentInfoGetUri + RecentInfoGetUriMethodInfo , recentInfoGetUri , -- ** recentInfoGetUriDisplay + RecentInfoGetUriDisplayMethodInfo , recentInfoGetUriDisplay , -- ** recentInfoGetVisited + RecentInfoGetVisitedMethodInfo , recentInfoGetVisited , -- ** recentInfoHasApplication + RecentInfoHasApplicationMethodInfo , recentInfoHasApplication , -- ** recentInfoHasGroup + RecentInfoHasGroupMethodInfo , recentInfoHasGroup , -- ** recentInfoIsLocal + RecentInfoIsLocalMethodInfo , recentInfoIsLocal , -- ** recentInfoLastApplication + RecentInfoLastApplicationMethodInfo , recentInfoLastApplication , -- ** recentInfoMatch + RecentInfoMatchMethodInfo , recentInfoMatch , -- ** recentInfoRef + RecentInfoRefMethodInfo , recentInfoRef , -- ** recentInfoUnref + RecentInfoUnrefMethodInfo , recentInfoUnref , @@ -148,9 +174,8 @@ -- method RecentInfo::create_app_info -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "AppInfo" -- throws : True -- Skip return : False @@ -164,32 +189,35 @@ recentInfoCreateAppInfo :: (MonadIO m) => - RecentInfo -> -- _obj - Maybe (T.Text) -> -- app_name - m Gio.AppInfo -recentInfoCreateAppInfo _obj app_name = liftIO $ do + RecentInfo -- _obj + -> Maybe (T.Text) -- appName + -> m Gio.AppInfo -- result +recentInfoCreateAppInfo _obj appName = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - maybeApp_name <- case app_name of + maybeAppName <- case appName of Nothing -> return nullPtr - Just jApp_name -> do - jApp_name' <- textToCString jApp_name - return jApp_name' + Just jAppName -> do + jAppName' <- textToCString jAppName + return jAppName' onException (do - result <- propagateGError $ gtk_recent_info_create_app_info _obj' maybeApp_name + result <- propagateGError $ gtk_recent_info_create_app_info _obj' maybeAppName checkUnexpectedReturnNULL "gtk_recent_info_create_app_info" result result' <- (wrapObject Gio.AppInfo) result touchManagedPtr _obj - freeMem maybeApp_name + freeMem maybeAppName return result' ) (do - freeMem maybeApp_name + freeMem maybeAppName ) +data RecentInfoCreateAppInfoMethodInfo +instance (signature ~ (Maybe (T.Text) -> m Gio.AppInfo), MonadIO m) => MethodInfo RecentInfoCreateAppInfoMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoCreateAppInfo + -- method RecentInfo::exists -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -201,8 +229,8 @@ recentInfoExists :: (MonadIO m) => - RecentInfo -> -- _obj - m Bool + RecentInfo -- _obj + -> m Bool -- result recentInfoExists _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_exists _obj' @@ -210,11 +238,14 @@ touchManagedPtr _obj return result' +data RecentInfoExistsMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo RecentInfoExistsMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoExists + -- method RecentInfo::get_added -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False @@ -226,19 +257,22 @@ recentInfoGetAdded :: (MonadIO m) => - RecentInfo -> -- _obj - m Int64 + RecentInfo -- _obj + -> m Int64 -- result recentInfoGetAdded _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_added _obj' touchManagedPtr _obj return result +data RecentInfoGetAddedMethodInfo +instance (signature ~ (m Int64), MonadIO m) => MethodInfo RecentInfoGetAddedMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetAdded + -- method RecentInfo::get_age -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -250,19 +284,22 @@ recentInfoGetAge :: (MonadIO m) => - RecentInfo -> -- _obj - m Int32 + RecentInfo -- _obj + -> m Int32 -- result recentInfoGetAge _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_age _obj' touchManagedPtr _obj return result +data RecentInfoGetAgeMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo RecentInfoGetAgeMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetAge + -- method RecentInfo::get_application_info -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_exec", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_exec", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "time_", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -278,33 +315,36 @@ recentInfoGetApplicationInfo :: (MonadIO m) => - RecentInfo -> -- _obj - T.Text -> -- app_name - m (Bool,T.Text,Word32,Int64) -recentInfoGetApplicationInfo _obj app_name = liftIO $ do + RecentInfo -- _obj + -> T.Text -- appName + -> m (Bool,T.Text,Word32,Int64) -- result +recentInfoGetApplicationInfo _obj appName = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - app_name' <- textToCString app_name - app_exec <- allocMem :: IO (Ptr CString) + appName' <- textToCString appName + appExec <- allocMem :: IO (Ptr CString) count <- allocMem :: IO (Ptr Word32) - time_ <- allocMem :: IO (Ptr Int64) - result <- gtk_recent_info_get_application_info _obj' app_name' app_exec count time_ + time <- allocMem :: IO (Ptr Int64) + result <- gtk_recent_info_get_application_info _obj' appName' appExec count time let result' = (/= 0) result - app_exec' <- peek app_exec - app_exec'' <- cstringToText app_exec' + appExec' <- peek appExec + appExec'' <- cstringToText appExec' count' <- peek count - time_' <- peek time_ + time' <- peek time touchManagedPtr _obj - freeMem app_name' - freeMem app_exec + freeMem appName' + freeMem appExec freeMem count - freeMem time_ - return (result', app_exec'', count', time_') + freeMem time + return (result', appExec'', count', time') +data RecentInfoGetApplicationInfoMethodInfo +instance (signature ~ (T.Text -> m (Bool,T.Text,Word32,Int64)), MonadIO m) => MethodInfo RecentInfoGetApplicationInfoMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetApplicationInfo + -- method RecentInfo::get_applications -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) 1 (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -317,8 +357,8 @@ recentInfoGetApplications :: (MonadIO m) => - RecentInfo -> -- _obj - m ([T.Text],Word64) + RecentInfo -- _obj + -> m ([T.Text],Word64) -- result recentInfoGetApplications _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj length_ <- allocMem :: IO (Ptr Word64) @@ -332,11 +372,14 @@ freeMem length_ return (result', length_') +data RecentInfoGetApplicationsMethodInfo +instance (signature ~ (m ([T.Text],Word64)), MonadIO m) => MethodInfo RecentInfoGetApplicationsMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetApplications + -- method RecentInfo::get_description -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -348,8 +391,8 @@ recentInfoGetDescription :: (MonadIO m) => - RecentInfo -> -- _obj - m T.Text + RecentInfo -- _obj + -> m T.Text -- result recentInfoGetDescription _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_description _obj' @@ -358,11 +401,14 @@ touchManagedPtr _obj return result' +data RecentInfoGetDescriptionMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoGetDescriptionMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetDescription + -- method RecentInfo::get_display_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -374,8 +420,8 @@ recentInfoGetDisplayName :: (MonadIO m) => - RecentInfo -> -- _obj - m T.Text + RecentInfo -- _obj + -> m T.Text -- result recentInfoGetDisplayName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_display_name _obj' @@ -384,11 +430,14 @@ touchManagedPtr _obj return result' +data RecentInfoGetDisplayNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoGetDisplayNameMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetDisplayName + -- method RecentInfo::get_gicon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -400,8 +449,8 @@ recentInfoGetGicon :: (MonadIO m) => - RecentInfo -> -- _obj - m Gio.Icon + RecentInfo -- _obj + -> m Gio.Icon -- result recentInfoGetGicon _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_gicon _obj' @@ -410,11 +459,14 @@ touchManagedPtr _obj return result' +data RecentInfoGetGiconMethodInfo +instance (signature ~ (m Gio.Icon), MonadIO m) => MethodInfo RecentInfoGetGiconMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetGicon + -- method RecentInfo::get_groups -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) 1 (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -427,8 +479,8 @@ recentInfoGetGroups :: (MonadIO m) => - RecentInfo -> -- _obj - m ([T.Text],Word64) + RecentInfo -- _obj + -> m ([T.Text],Word64) -- result recentInfoGetGroups _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj length_ <- allocMem :: IO (Ptr Word64) @@ -442,11 +494,14 @@ freeMem length_ return (result', length_') +data RecentInfoGetGroupsMethodInfo +instance (signature ~ (m ([T.Text],Word64)), MonadIO m) => MethodInfo RecentInfoGetGroupsMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetGroups + -- method RecentInfo::get_icon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -459,9 +514,9 @@ recentInfoGetIcon :: (MonadIO m) => - RecentInfo -> -- _obj - Int32 -> -- size - m GdkPixbuf.Pixbuf + RecentInfo -- _obj + -> Int32 -- size + -> m GdkPixbuf.Pixbuf -- result recentInfoGetIcon _obj size = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_icon _obj' size @@ -470,11 +525,14 @@ touchManagedPtr _obj return result' +data RecentInfoGetIconMethodInfo +instance (signature ~ (Int32 -> m GdkPixbuf.Pixbuf), MonadIO m) => MethodInfo RecentInfoGetIconMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetIcon + -- method RecentInfo::get_mime_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -486,8 +544,8 @@ recentInfoGetMimeType :: (MonadIO m) => - RecentInfo -> -- _obj - m T.Text + RecentInfo -- _obj + -> m T.Text -- result recentInfoGetMimeType _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_mime_type _obj' @@ -496,11 +554,14 @@ touchManagedPtr _obj return result' +data RecentInfoGetMimeTypeMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoGetMimeTypeMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetMimeType + -- method RecentInfo::get_modified -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False @@ -512,19 +573,22 @@ recentInfoGetModified :: (MonadIO m) => - RecentInfo -> -- _obj - m Int64 + RecentInfo -- _obj + -> m Int64 -- result recentInfoGetModified _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_modified _obj' touchManagedPtr _obj return result +data RecentInfoGetModifiedMethodInfo +instance (signature ~ (m Int64), MonadIO m) => MethodInfo RecentInfoGetModifiedMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetModified + -- method RecentInfo::get_private_hint -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -536,8 +600,8 @@ recentInfoGetPrivateHint :: (MonadIO m) => - RecentInfo -> -- _obj - m Bool + RecentInfo -- _obj + -> m Bool -- result recentInfoGetPrivateHint _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_private_hint _obj' @@ -545,11 +609,14 @@ touchManagedPtr _obj return result' +data RecentInfoGetPrivateHintMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo RecentInfoGetPrivateHintMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetPrivateHint + -- method RecentInfo::get_short_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -561,8 +628,8 @@ recentInfoGetShortName :: (MonadIO m) => - RecentInfo -> -- _obj - m T.Text + RecentInfo -- _obj + -> m T.Text -- result recentInfoGetShortName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_short_name _obj' @@ -572,11 +639,14 @@ touchManagedPtr _obj return result' +data RecentInfoGetShortNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoGetShortNameMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetShortName + -- method RecentInfo::get_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -588,8 +658,8 @@ recentInfoGetUri :: (MonadIO m) => - RecentInfo -> -- _obj - m T.Text + RecentInfo -- _obj + -> m T.Text -- result recentInfoGetUri _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_uri _obj' @@ -598,11 +668,14 @@ touchManagedPtr _obj return result' +data RecentInfoGetUriMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoGetUriMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetUri + -- method RecentInfo::get_uri_display -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -614,8 +687,8 @@ recentInfoGetUriDisplay :: (MonadIO m) => - RecentInfo -> -- _obj - m T.Text + RecentInfo -- _obj + -> m T.Text -- result recentInfoGetUriDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_uri_display _obj' @@ -625,11 +698,14 @@ touchManagedPtr _obj return result' +data RecentInfoGetUriDisplayMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoGetUriDisplayMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetUriDisplay + -- method RecentInfo::get_visited -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False @@ -641,19 +717,22 @@ recentInfoGetVisited :: (MonadIO m) => - RecentInfo -> -- _obj - m Int64 + RecentInfo -- _obj + -> m Int64 -- result recentInfoGetVisited _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_visited _obj' touchManagedPtr _obj return result +data RecentInfoGetVisitedMethodInfo +instance (signature ~ (m Int64), MonadIO m) => MethodInfo RecentInfoGetVisitedMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoGetVisited + -- method RecentInfo::has_application -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -666,23 +745,26 @@ recentInfoHasApplication :: (MonadIO m) => - RecentInfo -> -- _obj - T.Text -> -- app_name - m Bool -recentInfoHasApplication _obj app_name = liftIO $ do + RecentInfo -- _obj + -> T.Text -- appName + -> m Bool -- result +recentInfoHasApplication _obj appName = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - app_name' <- textToCString app_name - result <- gtk_recent_info_has_application _obj' app_name' + appName' <- textToCString appName + result <- gtk_recent_info_has_application _obj' appName' let result' = (/= 0) result touchManagedPtr _obj - freeMem app_name' + freeMem appName' return result' +data RecentInfoHasApplicationMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo RecentInfoHasApplicationMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoHasApplication + -- method RecentInfo::has_group -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -695,23 +777,26 @@ recentInfoHasGroup :: (MonadIO m) => - RecentInfo -> -- _obj - T.Text -> -- group_name - m Bool -recentInfoHasGroup _obj group_name = liftIO $ do + RecentInfo -- _obj + -> T.Text -- groupName + -> m Bool -- result +recentInfoHasGroup _obj groupName = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - result <- gtk_recent_info_has_group _obj' group_name' + groupName' <- textToCString groupName + result <- gtk_recent_info_has_group _obj' groupName' let result' = (/= 0) result touchManagedPtr _obj - freeMem group_name' + freeMem groupName' return result' +data RecentInfoHasGroupMethodInfo +instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo RecentInfoHasGroupMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoHasGroup + -- method RecentInfo::is_local -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -723,8 +808,8 @@ recentInfoIsLocal :: (MonadIO m) => - RecentInfo -> -- _obj - m Bool + RecentInfo -- _obj + -> m Bool -- result recentInfoIsLocal _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_is_local _obj' @@ -732,11 +817,14 @@ touchManagedPtr _obj return result' +data RecentInfoIsLocalMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo RecentInfoIsLocalMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoIsLocal + -- method RecentInfo::last_application -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -748,8 +836,8 @@ recentInfoLastApplication :: (MonadIO m) => - RecentInfo -> -- _obj - m T.Text + RecentInfo -- _obj + -> m T.Text -- result recentInfoLastApplication _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_last_application _obj' @@ -759,11 +847,14 @@ touchManagedPtr _obj return result' +data RecentInfoLastApplicationMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RecentInfoLastApplicationMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoLastApplication + -- method RecentInfo::match -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info_b", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info_b", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info_b", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -776,23 +867,26 @@ recentInfoMatch :: (MonadIO m) => - RecentInfo -> -- _obj - RecentInfo -> -- info_b - m Bool -recentInfoMatch _obj info_b = liftIO $ do + RecentInfo -- _obj + -> RecentInfo -- infoB + -> m Bool -- result +recentInfoMatch _obj infoB = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - let info_b' = unsafeManagedPtrGetPtr info_b - result <- gtk_recent_info_match _obj' info_b' + let infoB' = unsafeManagedPtrGetPtr infoB + result <- gtk_recent_info_match _obj' infoB' let result' = (/= 0) result touchManagedPtr _obj - touchManagedPtr info_b + touchManagedPtr infoB return result' +data RecentInfoMatchMethodInfo +instance (signature ~ (RecentInfo -> m Bool), MonadIO m) => MethodInfo RecentInfoMatchMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoMatch + -- method RecentInfo::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "RecentInfo" -- throws : False -- Skip return : False @@ -804,8 +898,8 @@ recentInfoRef :: (MonadIO m) => - RecentInfo -> -- _obj - m RecentInfo + RecentInfo -- _obj + -> m RecentInfo -- result recentInfoRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_ref _obj' @@ -814,11 +908,14 @@ touchManagedPtr _obj return result' +data RecentInfoRefMethodInfo +instance (signature ~ (m RecentInfo), MonadIO m) => MethodInfo RecentInfoRefMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoRef + -- method RecentInfo::unref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -830,12 +927,52 @@ recentInfoUnref :: (MonadIO m) => - RecentInfo -> -- _obj - m () + RecentInfo -- _obj + -> m () -- result recentInfoUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_recent_info_unref _obj' touchManagedPtr _obj return () + +data RecentInfoUnrefMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo RecentInfoUnrefMethodInfo RecentInfo signature where + overloadedMethod _ = recentInfoUnref + +type family ResolveRecentInfoMethod (t :: Symbol) (o :: *) :: * where + ResolveRecentInfoMethod "createAppInfo" o = RecentInfoCreateAppInfoMethodInfo + ResolveRecentInfoMethod "exists" o = RecentInfoExistsMethodInfo + ResolveRecentInfoMethod "hasApplication" o = RecentInfoHasApplicationMethodInfo + ResolveRecentInfoMethod "hasGroup" o = RecentInfoHasGroupMethodInfo + ResolveRecentInfoMethod "isLocal" o = RecentInfoIsLocalMethodInfo + ResolveRecentInfoMethod "lastApplication" o = RecentInfoLastApplicationMethodInfo + ResolveRecentInfoMethod "match" o = RecentInfoMatchMethodInfo + ResolveRecentInfoMethod "ref" o = RecentInfoRefMethodInfo + ResolveRecentInfoMethod "unref" o = RecentInfoUnrefMethodInfo + ResolveRecentInfoMethod "getAdded" o = RecentInfoGetAddedMethodInfo + ResolveRecentInfoMethod "getAge" o = RecentInfoGetAgeMethodInfo + ResolveRecentInfoMethod "getApplicationInfo" o = RecentInfoGetApplicationInfoMethodInfo + ResolveRecentInfoMethod "getApplications" o = RecentInfoGetApplicationsMethodInfo + ResolveRecentInfoMethod "getDescription" o = RecentInfoGetDescriptionMethodInfo + ResolveRecentInfoMethod "getDisplayName" o = RecentInfoGetDisplayNameMethodInfo + ResolveRecentInfoMethod "getGicon" o = RecentInfoGetGiconMethodInfo + ResolveRecentInfoMethod "getGroups" o = RecentInfoGetGroupsMethodInfo + ResolveRecentInfoMethod "getIcon" o = RecentInfoGetIconMethodInfo + ResolveRecentInfoMethod "getMimeType" o = RecentInfoGetMimeTypeMethodInfo + ResolveRecentInfoMethod "getModified" o = RecentInfoGetModifiedMethodInfo + ResolveRecentInfoMethod "getPrivateHint" o = RecentInfoGetPrivateHintMethodInfo + ResolveRecentInfoMethod "getShortName" o = RecentInfoGetShortNameMethodInfo + ResolveRecentInfoMethod "getUri" o = RecentInfoGetUriMethodInfo + ResolveRecentInfoMethod "getUriDisplay" o = RecentInfoGetUriDisplayMethodInfo + ResolveRecentInfoMethod "getVisited" o = RecentInfoGetVisitedMethodInfo + ResolveRecentInfoMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRecentInfoMethod t RecentInfo, MethodInfo info RecentInfo p) => IsLabelProxy t (RecentInfo -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRecentInfoMethod t RecentInfo, MethodInfo info RecentInfo p) => IsLabel t (RecentInfo -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/RecentInfo.hs-boot b/GI/Gtk/Structs/RecentInfo.hs-boot --- a/GI/Gtk/Structs/RecentInfo.hs-boot +++ b/GI/Gtk/Structs/RecentInfo.hs-boot @@ -9,3 +9,28 @@ newtype RecentInfo = RecentInfo (ForeignPtr RecentInfo) instance BoxedObject RecentInfo where +data RecentInfoCreateAppInfoMethodInfo +data RecentInfoExistsMethodInfo +data RecentInfoGetAddedMethodInfo +data RecentInfoGetAgeMethodInfo +data RecentInfoGetApplicationInfoMethodInfo +data RecentInfoGetApplicationsMethodInfo +data RecentInfoGetDescriptionMethodInfo +data RecentInfoGetDisplayNameMethodInfo +data RecentInfoGetGiconMethodInfo +data RecentInfoGetGroupsMethodInfo +data RecentInfoGetIconMethodInfo +data RecentInfoGetMimeTypeMethodInfo +data RecentInfoGetModifiedMethodInfo +data RecentInfoGetPrivateHintMethodInfo +data RecentInfoGetShortNameMethodInfo +data RecentInfoGetUriMethodInfo +data RecentInfoGetUriDisplayMethodInfo +data RecentInfoGetVisitedMethodInfo +data RecentInfoHasApplicationMethodInfo +data RecentInfoHasGroupMethodInfo +data RecentInfoIsLocalMethodInfo +data RecentInfoLastApplicationMethodInfo +data RecentInfoMatchMethodInfo +data RecentInfoRefMethodInfo +data RecentInfoUnrefMethodInfo diff --git a/GI/Gtk/Structs/RequestedSize.hs b/GI/Gtk/Structs/RequestedSize.hs --- a/GI/Gtk/Structs/RequestedSize.hs +++ b/GI/Gtk/Structs/RequestedSize.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -14,6 +15,7 @@ -- * Exported types RequestedSize(..) , + newZeroRequestedSize , noRequestedSize , @@ -45,6 +47,10 @@ import GI.Gtk.Callbacks newtype RequestedSize = RequestedSize (ForeignPtr RequestedSize) +-- | Construct a `RequestedSize` struct initialized to zero. +newZeroRequestedSize :: MonadIO m => m RequestedSize +newZeroRequestedSize = liftIO $ callocBytes 16 >>= wrapPtr RequestedSize + noRequestedSize :: Maybe RequestedSize noRequestedSize = Nothing @@ -62,5 +68,16 @@ requestedSizeReadNaturalSize s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 12) :: IO Int32 return val + +type family ResolveRequestedSizeMethod (t :: Symbol) (o :: *) :: * where + ResolveRequestedSizeMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRequestedSizeMethod t RequestedSize, MethodInfo info RequestedSize p) => IsLabelProxy t (RequestedSize -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRequestedSizeMethod t RequestedSize, MethodInfo info RequestedSize p) => IsLabel t (RequestedSize -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/Requisition.hs b/GI/Gtk/Structs/Requisition.hs --- a/GI/Gtk/Structs/Requisition.hs +++ b/GI/Gtk/Structs/Requisition.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -14,15 +15,18 @@ -- * Exported types Requisition(..) , + newZeroRequisition , noRequisition , -- * Methods -- ** requisitionCopy + RequisitionCopyMethodInfo , requisitionCopy , -- ** requisitionFree + RequisitionFreeMethodInfo , requisitionFree , @@ -62,6 +66,10 @@ instance BoxedObject Requisition where boxedType _ = c_gtk_requisition_get_type +-- | Construct a `Requisition` struct initialized to zero. +newZeroRequisition :: MonadIO m => m Requisition +newZeroRequisition = liftIO $ callocBoxedBytes 8 >>= wrapBoxed Requisition + noRequisition :: Maybe Requisition noRequisition = Nothing @@ -79,7 +87,6 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "Requisition" -- throws : False -- Skip return : False @@ -90,7 +97,7 @@ requisitionNew :: (MonadIO m) => - m Requisition + m Requisition -- result requisitionNew = liftIO $ do result <- gtk_requisition_new checkUnexpectedReturnNULL "gtk_requisition_new" result @@ -99,9 +106,8 @@ -- method Requisition::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "Requisition" -- throws : False -- Skip return : False @@ -113,8 +119,8 @@ requisitionCopy :: (MonadIO m) => - Requisition -> -- _obj - m Requisition + Requisition -- _obj + -> m Requisition -- result requisitionCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_requisition_copy _obj' @@ -123,11 +129,14 @@ touchManagedPtr _obj return result' +data RequisitionCopyMethodInfo +instance (signature ~ (m Requisition), MonadIO m) => MethodInfo RequisitionCopyMethodInfo Requisition signature where + overloadedMethod _ = requisitionCopy + -- method Requisition::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -139,12 +148,29 @@ requisitionFree :: (MonadIO m) => - Requisition -> -- _obj - m () + Requisition -- _obj + -> m () -- result requisitionFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_requisition_free _obj' touchManagedPtr _obj return () + +data RequisitionFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo RequisitionFreeMethodInfo Requisition signature where + overloadedMethod _ = requisitionFree + +type family ResolveRequisitionMethod (t :: Symbol) (o :: *) :: * where + ResolveRequisitionMethod "copy" o = RequisitionCopyMethodInfo + ResolveRequisitionMethod "free" o = RequisitionFreeMethodInfo + ResolveRequisitionMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveRequisitionMethod t Requisition, MethodInfo info Requisition p) => IsLabelProxy t (Requisition -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveRequisitionMethod t Requisition, MethodInfo info Requisition p) => IsLabel t (Requisition -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/Requisition.hs-boot b/GI/Gtk/Structs/Requisition.hs-boot --- a/GI/Gtk/Structs/Requisition.hs-boot +++ b/GI/Gtk/Structs/Requisition.hs-boot @@ -9,3 +9,5 @@ newtype Requisition = Requisition (ForeignPtr Requisition) instance BoxedObject Requisition where +data RequisitionCopyMethodInfo +data RequisitionFreeMethodInfo diff --git a/GI/Gtk/Structs/SelectionData.hs b/GI/Gtk/Structs/SelectionData.hs --- a/GI/Gtk/Structs/SelectionData.hs +++ b/GI/Gtk/Structs/SelectionData.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,86 +16,107 @@ -- * Methods -- ** selectionDataCopy + SelectionDataCopyMethodInfo , selectionDataCopy , -- ** selectionDataFree + SelectionDataFreeMethodInfo , selectionDataFree , -- ** selectionDataGetData + SelectionDataGetDataMethodInfo , selectionDataGetData , -- ** selectionDataGetDataType + SelectionDataGetDataTypeMethodInfo , selectionDataGetDataType , -- ** selectionDataGetDisplay + SelectionDataGetDisplayMethodInfo , selectionDataGetDisplay , -- ** selectionDataGetFormat + SelectionDataGetFormatMethodInfo , selectionDataGetFormat , -- ** selectionDataGetLength + SelectionDataGetLengthMethodInfo , selectionDataGetLength , -- ** selectionDataGetPixbuf + SelectionDataGetPixbufMethodInfo , selectionDataGetPixbuf , -- ** selectionDataGetSelection + SelectionDataGetSelectionMethodInfo , selectionDataGetSelection , -- ** selectionDataGetTarget + SelectionDataGetTargetMethodInfo , selectionDataGetTarget , -- ** selectionDataGetTargets + SelectionDataGetTargetsMethodInfo , selectionDataGetTargets , -- ** selectionDataGetText + SelectionDataGetTextMethodInfo , selectionDataGetText , -- ** selectionDataGetUris + SelectionDataGetUrisMethodInfo , selectionDataGetUris , -- ** selectionDataSet + SelectionDataSetMethodInfo , selectionDataSet , -- ** selectionDataSetPixbuf + SelectionDataSetPixbufMethodInfo , selectionDataSetPixbuf , -- ** selectionDataSetText + SelectionDataSetTextMethodInfo , selectionDataSetText , -- ** selectionDataSetUris + SelectionDataSetUrisMethodInfo , selectionDataSetUris , -- ** selectionDataTargetsIncludeImage + SelectionDataTargetsIncludeImageMethodInfo, selectionDataTargetsIncludeImage , -- ** selectionDataTargetsIncludeRichText + SelectionDataTargetsIncludeRichTextMethodInfo, selectionDataTargetsIncludeRichText , -- ** selectionDataTargetsIncludeText + SelectionDataTargetsIncludeTextMethodInfo, selectionDataTargetsIncludeText , -- ** selectionDataTargetsIncludeUri + SelectionDataTargetsIncludeUriMethodInfo, selectionDataTargetsIncludeUri , @@ -126,9 +148,8 @@ -- method SelectionData::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SelectionData" -- throws : False -- Skip return : False @@ -140,8 +161,8 @@ selectionDataCopy :: (MonadIO m) => - SelectionData -> -- _obj - m SelectionData + SelectionData -- _obj + -> m SelectionData -- result selectionDataCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_copy _obj' @@ -150,11 +171,14 @@ touchManagedPtr _obj return result' +data SelectionDataCopyMethodInfo +instance (signature ~ (m SelectionData), MonadIO m) => MethodInfo SelectionDataCopyMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataCopy + -- method SelectionData::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -166,19 +190,22 @@ selectionDataFree :: (MonadIO m) => - SelectionData -> -- _obj - m () + SelectionData -- _obj + -> m () -- result selectionDataFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_selection_data_free _obj' touchManagedPtr _obj return () +data SelectionDataFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo SelectionDataFreeMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataFree + -- method SelectionData::get_data_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Atom" -- throws : False -- Skip return : False @@ -190,8 +217,8 @@ selectionDataGetDataType :: (MonadIO m) => - SelectionData -> -- _obj - m Gdk.Atom + SelectionData -- _obj + -> m Gdk.Atom -- result selectionDataGetDataType _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_get_data_type _obj' @@ -201,11 +228,14 @@ touchManagedPtr _obj return result' +data SelectionDataGetDataTypeMethodInfo +instance (signature ~ (m Gdk.Atom), MonadIO m) => MethodInfo SelectionDataGetDataTypeMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataGetDataType + -- method SelectionData::get_data -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TCArray False (-1) 1 (TBasicType TUInt8) -- throws : False -- Skip return : False @@ -218,8 +248,8 @@ selectionDataGetData :: (MonadIO m) => - SelectionData -> -- _obj - m ByteString + SelectionData -- _obj + -> m ByteString -- result selectionDataGetData _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj length_ <- allocMem :: IO (Ptr Int32) @@ -231,11 +261,14 @@ freeMem length_ return result' +data SelectionDataGetDataMethodInfo +instance (signature ~ (m ByteString), MonadIO m) => MethodInfo SelectionDataGetDataMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataGetData + -- method SelectionData::get_display -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False @@ -247,8 +280,8 @@ selectionDataGetDisplay :: (MonadIO m) => - SelectionData -> -- _obj - m Gdk.Display + SelectionData -- _obj + -> m Gdk.Display -- result selectionDataGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_get_display _obj' @@ -257,11 +290,14 @@ touchManagedPtr _obj return result' +data SelectionDataGetDisplayMethodInfo +instance (signature ~ (m Gdk.Display), MonadIO m) => MethodInfo SelectionDataGetDisplayMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataGetDisplay + -- method SelectionData::get_format -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -273,19 +309,22 @@ selectionDataGetFormat :: (MonadIO m) => - SelectionData -> -- _obj - m Int32 + SelectionData -- _obj + -> m Int32 -- result selectionDataGetFormat _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_get_format _obj' touchManagedPtr _obj return result +data SelectionDataGetFormatMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo SelectionDataGetFormatMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataGetFormat + -- method SelectionData::get_length -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -297,19 +336,22 @@ selectionDataGetLength :: (MonadIO m) => - SelectionData -> -- _obj - m Int32 + SelectionData -- _obj + -> m Int32 -- result selectionDataGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_get_length _obj' touchManagedPtr _obj return result +data SelectionDataGetLengthMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo SelectionDataGetLengthMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataGetLength + -- method SelectionData::get_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -321,8 +363,8 @@ selectionDataGetPixbuf :: (MonadIO m) => - SelectionData -> -- _obj - m GdkPixbuf.Pixbuf + SelectionData -- _obj + -> m GdkPixbuf.Pixbuf -- result selectionDataGetPixbuf _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_get_pixbuf _obj' @@ -331,11 +373,14 @@ touchManagedPtr _obj return result' +data SelectionDataGetPixbufMethodInfo +instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m) => MethodInfo SelectionDataGetPixbufMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataGetPixbuf + -- method SelectionData::get_selection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Atom" -- throws : False -- Skip return : False @@ -347,8 +392,8 @@ selectionDataGetSelection :: (MonadIO m) => - SelectionData -> -- _obj - m Gdk.Atom + SelectionData -- _obj + -> m Gdk.Atom -- result selectionDataGetSelection _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_get_selection _obj' @@ -358,11 +403,14 @@ touchManagedPtr _obj return result' +data SelectionDataGetSelectionMethodInfo +instance (signature ~ (m Gdk.Atom), MonadIO m) => MethodInfo SelectionDataGetSelectionMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataGetSelection + -- method SelectionData::get_target -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Atom" -- throws : False -- Skip return : False @@ -374,8 +422,8 @@ selectionDataGetTarget :: (MonadIO m) => - SelectionData -> -- _obj - m Gdk.Atom + SelectionData -- _obj + -> m Gdk.Atom -- result selectionDataGetTarget _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_get_target _obj' @@ -385,11 +433,14 @@ touchManagedPtr _obj return result' +data SelectionDataGetTargetMethodInfo +instance (signature ~ (m Gdk.Atom), MonadIO m) => MethodInfo SelectionDataGetTargetMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataGetTarget + -- method SelectionData::get_targets -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_atoms", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_atoms", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_atoms", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_atoms", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -403,30 +454,33 @@ selectionDataGetTargets :: (MonadIO m) => - SelectionData -> -- _obj - m (Bool,[Gdk.Atom]) + SelectionData -- _obj + -> m (Bool,[Gdk.Atom]) -- result selectionDataGetTargets _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj targets <- allocMem :: IO (Ptr (Ptr (Ptr Gdk.Atom))) - n_atoms <- allocMem :: IO (Ptr Int32) - result <- gtk_selection_data_get_targets _obj' targets n_atoms - n_atoms' <- peek n_atoms + nAtoms <- allocMem :: IO (Ptr Int32) + result <- gtk_selection_data_get_targets _obj' targets nAtoms + nAtoms' <- peek nAtoms let result' = (/= 0) result targets' <- peek targets -- XXX Wrapping a foreign struct/union with no known destructor, leak? - targets'' <- (unpackPtrArrayWithLength n_atoms') targets' + targets'' <- (unpackPtrArrayWithLength nAtoms') targets' targets''' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) targets'' freeMem targets' touchManagedPtr _obj freeMem targets - freeMem n_atoms + freeMem nAtoms return (result', targets''') +data SelectionDataGetTargetsMethodInfo +instance (signature ~ (m (Bool,[Gdk.Atom])), MonadIO m) => MethodInfo SelectionDataGetTargetsMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataGetTargets + -- method SelectionData::get_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -438,8 +492,8 @@ selectionDataGetText :: (MonadIO m) => - SelectionData -> -- _obj - m T.Text + SelectionData -- _obj + -> m T.Text -- result selectionDataGetText _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_get_text _obj' @@ -449,11 +503,14 @@ touchManagedPtr _obj return result' +data SelectionDataGetTextMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SelectionDataGetTextMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataGetText + -- method SelectionData::get_uris -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -465,8 +522,8 @@ selectionDataGetUris :: (MonadIO m) => - SelectionData -> -- _obj - m [T.Text] + SelectionData -- _obj + -> m [T.Text] -- result selectionDataGetUris _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_get_uris _obj' @@ -477,11 +534,14 @@ touchManagedPtr _obj return result' +data SelectionDataGetUrisMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo SelectionDataGetUrisMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataGetUris + -- method SelectionData::set -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -497,11 +557,11 @@ selectionDataSet :: (MonadIO m) => - SelectionData -> -- _obj - Gdk.Atom -> -- type - Int32 -> -- format - ByteString -> -- data - m () + SelectionData -- _obj + -> Gdk.Atom -- type_ + -> Int32 -- format + -> ByteString -- data_ + -> m () -- result selectionDataSet _obj type_ format data_ = liftIO $ do let length_ = fromIntegral $ B.length data_ let _obj' = unsafeManagedPtrGetPtr _obj @@ -513,11 +573,14 @@ freeMem data_' return () +data SelectionDataSetMethodInfo +instance (signature ~ (Gdk.Atom -> Int32 -> ByteString -> m ()), MonadIO m) => MethodInfo SelectionDataSetMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataSet + -- method SelectionData::set_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -530,9 +593,9 @@ selectionDataSetPixbuf :: (MonadIO m, GdkPixbuf.PixbufK a) => - SelectionData -> -- _obj - a -> -- pixbuf - m Bool + SelectionData -- _obj + -> a -- pixbuf + -> m Bool -- result selectionDataSetPixbuf _obj pixbuf = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let pixbuf' = unsafeManagedPtrCastPtr pixbuf @@ -542,11 +605,14 @@ touchManagedPtr pixbuf return result' +data SelectionDataSetPixbufMethodInfo +instance (signature ~ (a -> m Bool), MonadIO m, GdkPixbuf.PixbufK a) => MethodInfo SelectionDataSetPixbufMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataSetPixbuf + -- method SelectionData::set_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -560,10 +626,10 @@ selectionDataSetText :: (MonadIO m) => - SelectionData -> -- _obj - T.Text -> -- str - Int32 -> -- len - m Bool + SelectionData -- _obj + -> T.Text -- str + -> Int32 -- len + -> m Bool -- result selectionDataSetText _obj str len = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj str' <- textToCString str @@ -573,11 +639,14 @@ freeMem str' return result' +data SelectionDataSetTextMethodInfo +instance (signature ~ (T.Text -> Int32 -> m Bool), MonadIO m) => MethodInfo SelectionDataSetTextMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataSetText + -- method SelectionData::set_uris -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uris", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uris", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uris", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -590,9 +659,9 @@ selectionDataSetUris :: (MonadIO m) => - SelectionData -> -- _obj - [T.Text] -> -- uris - m Bool + SelectionData -- _obj + -> [T.Text] -- uris + -> m Bool -- result selectionDataSetUris _obj uris = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj uris' <- packZeroTerminatedUTF8CArray uris @@ -603,11 +672,14 @@ freeMem uris' return result' +data SelectionDataSetUrisMethodInfo +instance (signature ~ ([T.Text] -> m Bool), MonadIO m) => MethodInfo SelectionDataSetUrisMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataSetUris + -- method SelectionData::targets_include_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -620,9 +692,9 @@ selectionDataTargetsIncludeImage :: (MonadIO m) => - SelectionData -> -- _obj - Bool -> -- writable - m Bool + SelectionData -- _obj + -> Bool -- writable + -> m Bool -- result selectionDataTargetsIncludeImage _obj writable = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let writable' = (fromIntegral . fromEnum) writable @@ -631,11 +703,14 @@ touchManagedPtr _obj return result' +data SelectionDataTargetsIncludeImageMethodInfo +instance (signature ~ (Bool -> m Bool), MonadIO m) => MethodInfo SelectionDataTargetsIncludeImageMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataTargetsIncludeImage + -- method SelectionData::targets_include_rich_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -648,9 +723,9 @@ selectionDataTargetsIncludeRichText :: (MonadIO m, TextBufferK a) => - SelectionData -> -- _obj - a -> -- buffer - m Bool + SelectionData -- _obj + -> a -- buffer + -> m Bool -- result selectionDataTargetsIncludeRichText _obj buffer = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let buffer' = unsafeManagedPtrCastPtr buffer @@ -660,11 +735,14 @@ touchManagedPtr buffer return result' +data SelectionDataTargetsIncludeRichTextMethodInfo +instance (signature ~ (a -> m Bool), MonadIO m, TextBufferK a) => MethodInfo SelectionDataTargetsIncludeRichTextMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataTargetsIncludeRichText + -- method SelectionData::targets_include_text -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -676,8 +754,8 @@ selectionDataTargetsIncludeText :: (MonadIO m) => - SelectionData -> -- _obj - m Bool + SelectionData -- _obj + -> m Bool -- result selectionDataTargetsIncludeText _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_targets_include_text _obj' @@ -685,11 +763,14 @@ touchManagedPtr _obj return result' +data SelectionDataTargetsIncludeTextMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo SelectionDataTargetsIncludeTextMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataTargetsIncludeText + -- method SelectionData::targets_include_uri -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -701,13 +782,49 @@ selectionDataTargetsIncludeUri :: (MonadIO m) => - SelectionData -> -- _obj - m Bool + SelectionData -- _obj + -> m Bool -- result selectionDataTargetsIncludeUri _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_targets_include_uri _obj' let result' = (/= 0) result touchManagedPtr _obj return result' + +data SelectionDataTargetsIncludeUriMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo SelectionDataTargetsIncludeUriMethodInfo SelectionData signature where + overloadedMethod _ = selectionDataTargetsIncludeUri + +type family ResolveSelectionDataMethod (t :: Symbol) (o :: *) :: * where + ResolveSelectionDataMethod "copy" o = SelectionDataCopyMethodInfo + ResolveSelectionDataMethod "free" o = SelectionDataFreeMethodInfo + ResolveSelectionDataMethod "set" o = SelectionDataSetMethodInfo + ResolveSelectionDataMethod "targetsIncludeImage" o = SelectionDataTargetsIncludeImageMethodInfo + ResolveSelectionDataMethod "targetsIncludeRichText" o = SelectionDataTargetsIncludeRichTextMethodInfo + ResolveSelectionDataMethod "targetsIncludeText" o = SelectionDataTargetsIncludeTextMethodInfo + ResolveSelectionDataMethod "targetsIncludeUri" o = SelectionDataTargetsIncludeUriMethodInfo + ResolveSelectionDataMethod "getDataType" o = SelectionDataGetDataTypeMethodInfo + ResolveSelectionDataMethod "getData" o = SelectionDataGetDataMethodInfo + ResolveSelectionDataMethod "getDisplay" o = SelectionDataGetDisplayMethodInfo + ResolveSelectionDataMethod "getFormat" o = SelectionDataGetFormatMethodInfo + ResolveSelectionDataMethod "getLength" o = SelectionDataGetLengthMethodInfo + ResolveSelectionDataMethod "getPixbuf" o = SelectionDataGetPixbufMethodInfo + ResolveSelectionDataMethod "getSelection" o = SelectionDataGetSelectionMethodInfo + ResolveSelectionDataMethod "getTarget" o = SelectionDataGetTargetMethodInfo + ResolveSelectionDataMethod "getTargets" o = SelectionDataGetTargetsMethodInfo + ResolveSelectionDataMethod "getText" o = SelectionDataGetTextMethodInfo + ResolveSelectionDataMethod "getUris" o = SelectionDataGetUrisMethodInfo + ResolveSelectionDataMethod "setPixbuf" o = SelectionDataSetPixbufMethodInfo + ResolveSelectionDataMethod "setText" o = SelectionDataSetTextMethodInfo + ResolveSelectionDataMethod "setUris" o = SelectionDataSetUrisMethodInfo + ResolveSelectionDataMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSelectionDataMethod t SelectionData, MethodInfo info SelectionData p) => IsLabelProxy t (SelectionData -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSelectionDataMethod t SelectionData, MethodInfo info SelectionData p) => IsLabel t (SelectionData -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/SelectionData.hs-boot b/GI/Gtk/Structs/SelectionData.hs-boot --- a/GI/Gtk/Structs/SelectionData.hs-boot +++ b/GI/Gtk/Structs/SelectionData.hs-boot @@ -9,3 +9,24 @@ newtype SelectionData = SelectionData (ForeignPtr SelectionData) instance BoxedObject SelectionData where +data SelectionDataCopyMethodInfo +data SelectionDataFreeMethodInfo +data SelectionDataGetDataTypeMethodInfo +data SelectionDataGetDataMethodInfo +data SelectionDataGetDisplayMethodInfo +data SelectionDataGetFormatMethodInfo +data SelectionDataGetLengthMethodInfo +data SelectionDataGetPixbufMethodInfo +data SelectionDataGetSelectionMethodInfo +data SelectionDataGetTargetMethodInfo +data SelectionDataGetTargetsMethodInfo +data SelectionDataGetTextMethodInfo +data SelectionDataGetUrisMethodInfo +data SelectionDataSetMethodInfo +data SelectionDataSetPixbufMethodInfo +data SelectionDataSetTextMethodInfo +data SelectionDataSetUrisMethodInfo +data SelectionDataTargetsIncludeImageMethodInfo +data SelectionDataTargetsIncludeRichTextMethodInfo +data SelectionDataTargetsIncludeTextMethodInfo +data SelectionDataTargetsIncludeUriMethodInfo diff --git a/GI/Gtk/Structs/SettingsValue.hs b/GI/Gtk/Structs/SettingsValue.hs --- a/GI/Gtk/Structs/SettingsValue.hs +++ b/GI/Gtk/Structs/SettingsValue.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -10,6 +11,7 @@ -- * Exported types SettingsValue(..) , + newZeroSettingsValue , noSettingsValue , @@ -37,6 +39,10 @@ import GI.Gtk.Callbacks newtype SettingsValue = SettingsValue (ForeignPtr SettingsValue) +-- | Construct a `SettingsValue` struct initialized to zero. +newZeroSettingsValue :: MonadIO m => m SettingsValue +newZeroSettingsValue = liftIO $ callocBytes 32 >>= wrapPtr SettingsValue + noSettingsValue :: Maybe SettingsValue noSettingsValue = Nothing @@ -51,5 +57,16 @@ val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue) val' <- (newBoxed GValue) val return val' + +type family ResolveSettingsValueMethod (t :: Symbol) (o :: *) :: * where + ResolveSettingsValueMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSettingsValueMethod t SettingsValue, MethodInfo info SettingsValue p) => IsLabelProxy t (SettingsValue -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSettingsValueMethod t SettingsValue, MethodInfo info SettingsValue p) => IsLabel t (SettingsValue -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/StockItem.hs b/GI/Gtk/Structs/StockItem.hs --- a/GI/Gtk/Structs/StockItem.hs +++ b/GI/Gtk/Structs/StockItem.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -10,11 +11,13 @@ -- * Exported types StockItem(..) , + newZeroStockItem , noStockItem , -- * Methods -- ** stockItemFree + StockItemFreeMethodInfo , stockItemFree , @@ -57,6 +60,10 @@ import qualified GI.Gdk as Gdk newtype StockItem = StockItem (ForeignPtr StockItem) +-- | Construct a `StockItem` struct initialized to zero. +newZeroStockItem :: MonadIO m => m StockItem +newZeroStockItem = liftIO $ callocBytes 32 >>= wrapPtr StockItem + noStockItem :: Maybe StockItem noStockItem = Nothing @@ -91,9 +98,8 @@ -- method StockItem::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StockItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StockItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StockItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -105,12 +111,28 @@ {-# DEPRECATED stockItemFree ["(Since version 3.10)"]#-} stockItemFree :: (MonadIO m) => - StockItem -> -- _obj - m () + StockItem -- _obj + -> m () -- result stockItemFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_stock_item_free _obj' touchManagedPtr _obj return () + +data StockItemFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo StockItemFreeMethodInfo StockItem signature where + overloadedMethod _ = stockItemFree + +type family ResolveStockItemMethod (t :: Symbol) (o :: *) :: * where + ResolveStockItemMethod "free" o = StockItemFreeMethodInfo + ResolveStockItemMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveStockItemMethod t StockItem, MethodInfo info StockItem p) => IsLabelProxy t (StockItem -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveStockItemMethod t StockItem, MethodInfo info StockItem p) => IsLabel t (StockItem -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/StockItem.hs-boot b/GI/Gtk/Structs/StockItem.hs-boot --- a/GI/Gtk/Structs/StockItem.hs-boot +++ b/GI/Gtk/Structs/StockItem.hs-boot @@ -8,3 +8,4 @@ import qualified Data.Map as Map newtype StockItem = StockItem (ForeignPtr StockItem) +data StockItemFreeMethodInfo diff --git a/GI/Gtk/Structs/SymbolicColor.hs b/GI/Gtk/Structs/SymbolicColor.hs --- a/GI/Gtk/Structs/SymbolicColor.hs +++ b/GI/Gtk/Structs/SymbolicColor.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -55,18 +56,22 @@ -- ** symbolicColorRef + SymbolicColorRefMethodInfo , symbolicColorRef , -- ** symbolicColorResolve + SymbolicColorResolveMethodInfo , symbolicColorResolve , -- ** symbolicColorToString + SymbolicColorToStringMethodInfo , symbolicColorToString , -- ** symbolicColorUnref + SymbolicColorUnrefMethodInfo , symbolicColorUnref , @@ -97,9 +102,8 @@ -- method SymbolicColor::new_alpha -- method type : Constructor --- Args : [Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SymbolicColor" -- throws : False -- Skip return : False @@ -112,9 +116,9 @@ {-# DEPRECATED symbolicColorNewAlpha ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} symbolicColorNewAlpha :: (MonadIO m) => - SymbolicColor -> -- color - Double -> -- factor - m SymbolicColor + SymbolicColor -- color + -> Double -- factor + -> m SymbolicColor -- result symbolicColorNewAlpha color factor = liftIO $ do let color' = unsafeManagedPtrGetPtr color let factor' = realToFrac factor @@ -126,9 +130,8 @@ -- method SymbolicColor::new_literal -- method type : Constructor --- Args : [Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SymbolicColor" -- throws : False -- Skip return : False @@ -140,8 +143,8 @@ {-# DEPRECATED symbolicColorNewLiteral ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} symbolicColorNewLiteral :: (MonadIO m) => - Gdk.RGBA -> -- color - m SymbolicColor + Gdk.RGBA -- color + -> m SymbolicColor -- result symbolicColorNewLiteral color = liftIO $ do let color' = unsafeManagedPtrGetPtr color result <- gtk_symbolic_color_new_literal color' @@ -152,9 +155,8 @@ -- method SymbolicColor::new_mix -- method type : Constructor --- Args : [Arg {argName = "color1", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "color1", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color2", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "color1", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SymbolicColor" -- throws : False -- Skip return : False @@ -168,10 +170,10 @@ {-# DEPRECATED symbolicColorNewMix ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} symbolicColorNewMix :: (MonadIO m) => - SymbolicColor -> -- color1 - SymbolicColor -> -- color2 - Double -> -- factor - m SymbolicColor + SymbolicColor -- color1 + -> SymbolicColor -- color2 + -> Double -- factor + -> m SymbolicColor -- result symbolicColorNewMix color1 color2 factor = liftIO $ do let color1' = unsafeManagedPtrGetPtr color1 let color2' = unsafeManagedPtrGetPtr color2 @@ -185,9 +187,8 @@ -- method SymbolicColor::new_name -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SymbolicColor" -- throws : False -- Skip return : False @@ -199,8 +200,8 @@ {-# DEPRECATED symbolicColorNewName ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} symbolicColorNewName :: (MonadIO m) => - T.Text -> -- name - m SymbolicColor + T.Text -- name + -> m SymbolicColor -- result symbolicColorNewName name = liftIO $ do name' <- textToCString name result <- gtk_symbolic_color_new_name name' @@ -211,9 +212,8 @@ -- method SymbolicColor::new_shade -- method type : Constructor --- Args : [Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SymbolicColor" -- throws : False -- Skip return : False @@ -226,9 +226,9 @@ {-# DEPRECATED symbolicColorNewShade ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} symbolicColorNewShade :: (MonadIO m) => - SymbolicColor -> -- color - Double -> -- factor - m SymbolicColor + SymbolicColor -- color + -> Double -- factor + -> m SymbolicColor -- result symbolicColorNewShade color factor = liftIO $ do let color' = unsafeManagedPtrGetPtr color let factor' = realToFrac factor @@ -240,9 +240,8 @@ -- method SymbolicColor::new_win32 -- method type : Constructor --- Args : [Arg {argName = "theme_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "theme_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "theme_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SymbolicColor" -- throws : False -- Skip return : False @@ -255,22 +254,21 @@ {-# DEPRECATED symbolicColorNewWin32 ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} symbolicColorNewWin32 :: (MonadIO m) => - T.Text -> -- theme_class - Int32 -> -- id - m SymbolicColor -symbolicColorNewWin32 theme_class id = liftIO $ do - theme_class' <- textToCString theme_class - result <- gtk_symbolic_color_new_win32 theme_class' id + T.Text -- themeClass + -> Int32 -- id + -> m SymbolicColor -- result +symbolicColorNewWin32 themeClass id = liftIO $ do + themeClass' <- textToCString themeClass + result <- gtk_symbolic_color_new_win32 themeClass' id checkUnexpectedReturnNULL "gtk_symbolic_color_new_win32" result result' <- (wrapBoxed SymbolicColor) result - freeMem theme_class' + freeMem themeClass' return result' -- method SymbolicColor::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "SymbolicColor" -- throws : False -- Skip return : False @@ -282,8 +280,8 @@ {-# DEPRECATED symbolicColorRef ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} symbolicColorRef :: (MonadIO m) => - SymbolicColor -> -- _obj - m SymbolicColor + SymbolicColor -- _obj + -> m SymbolicColor -- result symbolicColorRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_symbolic_color_ref _obj' @@ -292,11 +290,14 @@ touchManagedPtr _obj return result' +data SymbolicColorRefMethodInfo +instance (signature ~ (m SymbolicColor), MonadIO m) => MethodInfo SymbolicColorRefMethodInfo SymbolicColor signature where + overloadedMethod _ = symbolicColorRef + -- method SymbolicColor::resolve -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolved_color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolved_color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -310,9 +311,9 @@ {-# DEPRECATED symbolicColorResolve ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} symbolicColorResolve :: (MonadIO m, StylePropertiesK a) => - SymbolicColor -> -- _obj - Maybe (a) -> -- props - m (Bool,Gdk.RGBA) + SymbolicColor -- _obj + -> Maybe (a) -- props + -> m (Bool,Gdk.RGBA) -- result symbolicColorResolve _obj props = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj maybeProps <- case props of @@ -320,19 +321,22 @@ Just jProps -> do let jProps' = unsafeManagedPtrCastPtr jProps return jProps' - resolved_color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - result <- gtk_symbolic_color_resolve _obj' maybeProps resolved_color + resolvedColor <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) + result <- gtk_symbolic_color_resolve _obj' maybeProps resolvedColor let result' = (/= 0) result - resolved_color' <- (wrapBoxed Gdk.RGBA) resolved_color + resolvedColor' <- (wrapBoxed Gdk.RGBA) resolvedColor touchManagedPtr _obj whenJust props touchManagedPtr - return (result', resolved_color') + return (result', resolvedColor') +data SymbolicColorResolveMethodInfo +instance (signature ~ (Maybe (a) -> m (Bool,Gdk.RGBA)), MonadIO m, StylePropertiesK a) => MethodInfo SymbolicColorResolveMethodInfo SymbolicColor signature where + overloadedMethod _ = symbolicColorResolve + -- method SymbolicColor::to_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -344,8 +348,8 @@ {-# DEPRECATED symbolicColorToString ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} symbolicColorToString :: (MonadIO m) => - SymbolicColor -> -- _obj - m T.Text + SymbolicColor -- _obj + -> m T.Text -- result symbolicColorToString _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_symbolic_color_to_string _obj' @@ -355,11 +359,14 @@ touchManagedPtr _obj return result' +data SymbolicColorToStringMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SymbolicColorToStringMethodInfo SymbolicColor signature where + overloadedMethod _ = symbolicColorToString + -- method SymbolicColor::unref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -371,12 +378,31 @@ {-# DEPRECATED symbolicColorUnref ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} symbolicColorUnref :: (MonadIO m) => - SymbolicColor -> -- _obj - m () + SymbolicColor -- _obj + -> m () -- result symbolicColorUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_symbolic_color_unref _obj' touchManagedPtr _obj return () + +data SymbolicColorUnrefMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo SymbolicColorUnrefMethodInfo SymbolicColor signature where + overloadedMethod _ = symbolicColorUnref + +type family ResolveSymbolicColorMethod (t :: Symbol) (o :: *) :: * where + ResolveSymbolicColorMethod "ref" o = SymbolicColorRefMethodInfo + ResolveSymbolicColorMethod "resolve" o = SymbolicColorResolveMethodInfo + ResolveSymbolicColorMethod "toString" o = SymbolicColorToStringMethodInfo + ResolveSymbolicColorMethod "unref" o = SymbolicColorUnrefMethodInfo + ResolveSymbolicColorMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSymbolicColorMethod t SymbolicColor, MethodInfo info SymbolicColor p) => IsLabelProxy t (SymbolicColor -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSymbolicColorMethod t SymbolicColor, MethodInfo info SymbolicColor p) => IsLabel t (SymbolicColor -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/SymbolicColor.hs-boot b/GI/Gtk/Structs/SymbolicColor.hs-boot --- a/GI/Gtk/Structs/SymbolicColor.hs-boot +++ b/GI/Gtk/Structs/SymbolicColor.hs-boot @@ -9,3 +9,7 @@ newtype SymbolicColor = SymbolicColor (ForeignPtr SymbolicColor) instance BoxedObject SymbolicColor where +data SymbolicColorRefMethodInfo +data SymbolicColorResolveMethodInfo +data SymbolicColorToStringMethodInfo +data SymbolicColorUnrefMethodInfo diff --git a/GI/Gtk/Structs/TableChild.hs b/GI/Gtk/Structs/TableChild.hs --- a/GI/Gtk/Structs/TableChild.hs +++ b/GI/Gtk/Structs/TableChild.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -10,6 +11,7 @@ -- * Exported types TableChild(..) , + newZeroTableChild , noTableChild , @@ -81,6 +83,10 @@ import GI.Gtk.Callbacks newtype TableChild = TableChild (ForeignPtr TableChild) +-- | Construct a `TableChild` struct initialized to zero. +newZeroTableChild :: MonadIO m => m TableChild +newZeroTableChild = liftIO $ callocBytes 48 >>= wrapPtr TableChild + noTableChild :: Maybe TableChild noTableChild = Nothing @@ -149,5 +155,16 @@ tableChildReadYfill s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO Word32 return val + +type family ResolveTableChildMethod (t :: Symbol) (o :: *) :: * where + ResolveTableChildMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTableChildMethod t TableChild, MethodInfo info TableChild p) => IsLabelProxy t (TableChild -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTableChildMethod t TableChild, MethodInfo info TableChild p) => IsLabel t (TableChild -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TableRowCol.hs b/GI/Gtk/Structs/TableRowCol.hs --- a/GI/Gtk/Structs/TableRowCol.hs +++ b/GI/Gtk/Structs/TableRowCol.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -10,6 +11,7 @@ -- * Exported types TableRowCol(..) , + newZeroTableRowCol , noTableRowCol , @@ -61,6 +63,10 @@ import GI.Gtk.Callbacks newtype TableRowCol = TableRowCol (ForeignPtr TableRowCol) +-- | Construct a `TableRowCol` struct initialized to zero. +newZeroTableRowCol :: MonadIO m => m TableRowCol +newZeroTableRowCol = liftIO $ callocBytes 28 >>= wrapPtr TableRowCol + noTableRowCol :: Maybe TableRowCol noTableRowCol = Nothing @@ -103,5 +109,16 @@ tableRowColReadEmpty s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO Word32 return val + +type family ResolveTableRowColMethod (t :: Symbol) (o :: *) :: * where + ResolveTableRowColMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTableRowColMethod t TableRowCol, MethodInfo info TableRowCol p) => IsLabelProxy t (TableRowCol -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTableRowColMethod t TableRowCol, MethodInfo info TableRowCol p) => IsLabel t (TableRowCol -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TargetEntry.hs b/GI/Gtk/Structs/TargetEntry.hs --- a/GI/Gtk/Structs/TargetEntry.hs +++ b/GI/Gtk/Structs/TargetEntry.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -14,15 +15,18 @@ -- * Exported types TargetEntry(..) , + newZeroTargetEntry , noTargetEntry , -- * Methods -- ** targetEntryCopy + TargetEntryCopyMethodInfo , targetEntryCopy , -- ** targetEntryFree + TargetEntryFreeMethodInfo , targetEntryFree , @@ -66,6 +70,10 @@ instance BoxedObject TargetEntry where boxedType _ = c_gtk_target_entry_get_type +-- | Construct a `TargetEntry` struct initialized to zero. +newZeroTargetEntry :: MonadIO m => m TargetEntry +newZeroTargetEntry = liftIO $ callocBoxedBytes 16 >>= wrapBoxed TargetEntry + noTargetEntry :: Maybe TargetEntry noTargetEntry = Nothing @@ -87,9 +95,8 @@ -- method TargetEntry::new -- method type : Constructor --- Args : [Arg {argName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TargetEntry" -- throws : False -- Skip return : False @@ -103,10 +110,10 @@ targetEntryNew :: (MonadIO m) => - T.Text -> -- target - Word32 -> -- flags - Word32 -> -- info - m TargetEntry + T.Text -- target + -> Word32 -- flags + -> Word32 -- info + -> m TargetEntry -- result targetEntryNew target flags info = liftIO $ do target' <- textToCString target result <- gtk_target_entry_new target' flags info @@ -117,9 +124,8 @@ -- method TargetEntry::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TargetEntry" -- throws : False -- Skip return : False @@ -131,8 +137,8 @@ targetEntryCopy :: (MonadIO m) => - TargetEntry -> -- _obj - m TargetEntry + TargetEntry -- _obj + -> m TargetEntry -- result targetEntryCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_target_entry_copy _obj' @@ -141,11 +147,14 @@ touchManagedPtr _obj return result' +data TargetEntryCopyMethodInfo +instance (signature ~ (m TargetEntry), MonadIO m) => MethodInfo TargetEntryCopyMethodInfo TargetEntry signature where + overloadedMethod _ = targetEntryCopy + -- method TargetEntry::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -157,12 +166,29 @@ targetEntryFree :: (MonadIO m) => - TargetEntry -> -- _obj - m () + TargetEntry -- _obj + -> m () -- result targetEntryFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_target_entry_free _obj' touchManagedPtr _obj return () + +data TargetEntryFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo TargetEntryFreeMethodInfo TargetEntry signature where + overloadedMethod _ = targetEntryFree + +type family ResolveTargetEntryMethod (t :: Symbol) (o :: *) :: * where + ResolveTargetEntryMethod "copy" o = TargetEntryCopyMethodInfo + ResolveTargetEntryMethod "free" o = TargetEntryFreeMethodInfo + ResolveTargetEntryMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTargetEntryMethod t TargetEntry, MethodInfo info TargetEntry p) => IsLabelProxy t (TargetEntry -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTargetEntryMethod t TargetEntry, MethodInfo info TargetEntry p) => IsLabel t (TargetEntry -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TargetEntry.hs-boot b/GI/Gtk/Structs/TargetEntry.hs-boot --- a/GI/Gtk/Structs/TargetEntry.hs-boot +++ b/GI/Gtk/Structs/TargetEntry.hs-boot @@ -9,3 +9,5 @@ newtype TargetEntry = TargetEntry (ForeignPtr TargetEntry) instance BoxedObject TargetEntry where +data TargetEntryCopyMethodInfo +data TargetEntryFreeMethodInfo diff --git a/GI/Gtk/Structs/TargetList.hs b/GI/Gtk/Structs/TargetList.hs --- a/GI/Gtk/Structs/TargetList.hs +++ b/GI/Gtk/Structs/TargetList.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -19,30 +20,37 @@ -- * Methods -- ** targetListAdd + TargetListAddMethodInfo , targetListAdd , -- ** targetListAddImageTargets + TargetListAddImageTargetsMethodInfo , targetListAddImageTargets , -- ** targetListAddRichTextTargets + TargetListAddRichTextTargetsMethodInfo , targetListAddRichTextTargets , -- ** targetListAddTable + TargetListAddTableMethodInfo , targetListAddTable , -- ** targetListAddTextTargets + TargetListAddTextTargetsMethodInfo , targetListAddTextTargets , -- ** targetListAddUriTargets + TargetListAddUriTargetsMethodInfo , targetListAddUriTargets , -- ** targetListFind + TargetListFindMethodInfo , targetListFind , @@ -51,14 +59,17 @@ -- ** targetListRef + TargetListRefMethodInfo , targetListRef , -- ** targetListRemove + TargetListRemoveMethodInfo , targetListRemove , -- ** targetListUnref + TargetListUnrefMethodInfo , targetListUnref , @@ -89,9 +100,8 @@ -- method TargetList::new -- method type : Constructor --- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TargetList" -- throws : False -- Skip return : False @@ -104,8 +114,8 @@ targetListNew :: (MonadIO m) => - Maybe ([TargetEntry]) -> -- targets - m TargetList + Maybe ([TargetEntry]) -- targets + -> m TargetList -- result targetListNew targets = liftIO $ do let ntargets = case targets of Nothing -> 0 @@ -125,9 +135,8 @@ -- method TargetList::add -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -142,11 +151,11 @@ targetListAdd :: (MonadIO m) => - TargetList -> -- _obj - Gdk.Atom -> -- target - Word32 -> -- flags - Word32 -> -- info - m () + TargetList -- _obj + -> Gdk.Atom -- target + -> Word32 -- flags + -> Word32 -- info + -> m () -- result targetListAdd _obj target flags info = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let target' = unsafeManagedPtrGetPtr target @@ -155,11 +164,14 @@ touchManagedPtr target return () +data TargetListAddMethodInfo +instance (signature ~ (Gdk.Atom -> Word32 -> Word32 -> m ()), MonadIO m) => MethodInfo TargetListAddMethodInfo TargetList signature where + overloadedMethod _ = targetListAdd + -- method TargetList::add_image_targets -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -173,10 +185,10 @@ targetListAddImageTargets :: (MonadIO m) => - TargetList -> -- _obj - Word32 -> -- info - Bool -> -- writable - m () + TargetList -- _obj + -> Word32 -- info + -> Bool -- writable + -> m () -- result targetListAddImageTargets _obj info writable = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let writable' = (fromIntegral . fromEnum) writable @@ -184,11 +196,14 @@ touchManagedPtr _obj return () +data TargetListAddImageTargetsMethodInfo +instance (signature ~ (Word32 -> Bool -> m ()), MonadIO m) => MethodInfo TargetListAddImageTargetsMethodInfo TargetList signature where + overloadedMethod _ = targetListAddImageTargets + -- method TargetList::add_rich_text_targets -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deserializable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "deserializable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deserializable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -203,11 +218,11 @@ targetListAddRichTextTargets :: (MonadIO m, TextBufferK a) => - TargetList -> -- _obj - Word32 -> -- info - Bool -> -- deserializable - a -> -- buffer - m () + TargetList -- _obj + -> Word32 -- info + -> Bool -- deserializable + -> a -- buffer + -> m () -- result targetListAddRichTextTargets _obj info deserializable buffer = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let deserializable' = (fromIntegral . fromEnum) deserializable @@ -217,11 +232,14 @@ touchManagedPtr buffer return () +data TargetListAddRichTextTargetsMethodInfo +instance (signature ~ (Word32 -> Bool -> a -> m ()), MonadIO m, TextBufferK a) => MethodInfo TargetListAddRichTextTargetsMethodInfo TargetList signature where + overloadedMethod _ = targetListAddRichTextTargets + -- method TargetList::add_table -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -235,9 +253,9 @@ targetListAddTable :: (MonadIO m) => - TargetList -> -- _obj - [TargetEntry] -> -- targets - m () + TargetList -- _obj + -> [TargetEntry] -- targets + -> m () -- result targetListAddTable _obj targets = liftIO $ do let ntargets = fromIntegral $ length targets let _obj' = unsafeManagedPtrGetPtr _obj @@ -249,11 +267,14 @@ freeMem targets'' return () +data TargetListAddTableMethodInfo +instance (signature ~ ([TargetEntry] -> m ()), MonadIO m) => MethodInfo TargetListAddTableMethodInfo TargetList signature where + overloadedMethod _ = targetListAddTable + -- method TargetList::add_text_targets -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -266,20 +287,23 @@ targetListAddTextTargets :: (MonadIO m) => - TargetList -> -- _obj - Word32 -> -- info - m () + TargetList -- _obj + -> Word32 -- info + -> m () -- result targetListAddTextTargets _obj info = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_target_list_add_text_targets _obj' info touchManagedPtr _obj return () +data TargetListAddTextTargetsMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo TargetListAddTextTargetsMethodInfo TargetList signature where + overloadedMethod _ = targetListAddTextTargets + -- method TargetList::add_uri_targets -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -292,20 +316,23 @@ targetListAddUriTargets :: (MonadIO m) => - TargetList -> -- _obj - Word32 -> -- info - m () + TargetList -- _obj + -> Word32 -- info + -> m () -- result targetListAddUriTargets _obj info = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_target_list_add_uri_targets _obj' info touchManagedPtr _obj return () +data TargetListAddUriTargetsMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo TargetListAddUriTargetsMethodInfo TargetList signature where + overloadedMethod _ = targetListAddUriTargets + -- method TargetList::find -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -319,9 +346,9 @@ targetListFind :: (MonadIO m) => - TargetList -> -- _obj - Gdk.Atom -> -- target - m (Bool,Word32) + TargetList -- _obj + -> Gdk.Atom -- target + -> m (Bool,Word32) -- result targetListFind _obj target = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let target' = unsafeManagedPtrGetPtr target @@ -334,11 +361,14 @@ freeMem info return (result', info') +data TargetListFindMethodInfo +instance (signature ~ (Gdk.Atom -> m (Bool,Word32)), MonadIO m) => MethodInfo TargetListFindMethodInfo TargetList signature where + overloadedMethod _ = targetListFind + -- method TargetList::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TargetList" -- throws : False -- Skip return : False @@ -350,8 +380,8 @@ targetListRef :: (MonadIO m) => - TargetList -> -- _obj - m TargetList + TargetList -- _obj + -> m TargetList -- result targetListRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_target_list_ref _obj' @@ -360,11 +390,14 @@ touchManagedPtr _obj return result' +data TargetListRefMethodInfo +instance (signature ~ (m TargetList), MonadIO m) => MethodInfo TargetListRefMethodInfo TargetList signature where + overloadedMethod _ = targetListRef + -- method TargetList::remove -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -377,9 +410,9 @@ targetListRemove :: (MonadIO m) => - TargetList -> -- _obj - Gdk.Atom -> -- target - m () + TargetList -- _obj + -> Gdk.Atom -- target + -> m () -- result targetListRemove _obj target = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let target' = unsafeManagedPtrGetPtr target @@ -388,11 +421,14 @@ touchManagedPtr target return () +data TargetListRemoveMethodInfo +instance (signature ~ (Gdk.Atom -> m ()), MonadIO m) => MethodInfo TargetListRemoveMethodInfo TargetList signature where + overloadedMethod _ = targetListRemove + -- method TargetList::unref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -404,12 +440,37 @@ targetListUnref :: (MonadIO m) => - TargetList -> -- _obj - m () + TargetList -- _obj + -> m () -- result targetListUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_target_list_unref _obj' touchManagedPtr _obj return () + +data TargetListUnrefMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo TargetListUnrefMethodInfo TargetList signature where + overloadedMethod _ = targetListUnref + +type family ResolveTargetListMethod (t :: Symbol) (o :: *) :: * where + ResolveTargetListMethod "add" o = TargetListAddMethodInfo + ResolveTargetListMethod "addImageTargets" o = TargetListAddImageTargetsMethodInfo + ResolveTargetListMethod "addRichTextTargets" o = TargetListAddRichTextTargetsMethodInfo + ResolveTargetListMethod "addTable" o = TargetListAddTableMethodInfo + ResolveTargetListMethod "addTextTargets" o = TargetListAddTextTargetsMethodInfo + ResolveTargetListMethod "addUriTargets" o = TargetListAddUriTargetsMethodInfo + ResolveTargetListMethod "find" o = TargetListFindMethodInfo + ResolveTargetListMethod "ref" o = TargetListRefMethodInfo + ResolveTargetListMethod "remove" o = TargetListRemoveMethodInfo + ResolveTargetListMethod "unref" o = TargetListUnrefMethodInfo + ResolveTargetListMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTargetListMethod t TargetList, MethodInfo info TargetList p) => IsLabelProxy t (TargetList -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTargetListMethod t TargetList, MethodInfo info TargetList p) => IsLabel t (TargetList -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TargetList.hs-boot b/GI/Gtk/Structs/TargetList.hs-boot --- a/GI/Gtk/Structs/TargetList.hs-boot +++ b/GI/Gtk/Structs/TargetList.hs-boot @@ -9,3 +9,13 @@ newtype TargetList = TargetList (ForeignPtr TargetList) instance BoxedObject TargetList where +data TargetListAddMethodInfo +data TargetListAddImageTargetsMethodInfo +data TargetListAddRichTextTargetsMethodInfo +data TargetListAddTableMethodInfo +data TargetListAddTextTargetsMethodInfo +data TargetListAddUriTargetsMethodInfo +data TargetListFindMethodInfo +data TargetListRefMethodInfo +data TargetListRemoveMethodInfo +data TargetListUnrefMethodInfo diff --git a/GI/Gtk/Structs/TargetPair.hs b/GI/Gtk/Structs/TargetPair.hs --- a/GI/Gtk/Structs/TargetPair.hs +++ b/GI/Gtk/Structs/TargetPair.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -14,6 +15,7 @@ -- * Exported types TargetPair(..) , + newZeroTargetPair , noTargetPair , @@ -46,6 +48,10 @@ import qualified GI.Gdk as Gdk newtype TargetPair = TargetPair (ForeignPtr TargetPair) +-- | Construct a `TargetPair` struct initialized to zero. +newZeroTargetPair :: MonadIO m => m TargetPair +newZeroTargetPair = liftIO $ callocBytes 16 >>= wrapPtr TargetPair + noTargetPair :: Maybe TargetPair noTargetPair = Nothing @@ -65,5 +71,16 @@ targetPairReadInfo s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 12) :: IO Word32 return val + +type family ResolveTargetPairMethod (t :: Symbol) (o :: *) :: * where + ResolveTargetPairMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTargetPairMethod t TargetPair, MethodInfo info TargetPair p) => IsLabelProxy t (TargetPair -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTargetPairMethod t TargetPair, MethodInfo info TargetPair p) => IsLabel t (TargetPair -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TextAppearance.hs b/GI/Gtk/Structs/TextAppearance.hs --- a/GI/Gtk/Structs/TextAppearance.hs +++ b/GI/Gtk/Structs/TextAppearance.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -10,6 +11,7 @@ -- * Exported types TextAppearance(..) , + newZeroTextAppearance , noTextAppearance , @@ -62,6 +64,10 @@ import qualified GI.Gdk as Gdk newtype TextAppearance = TextAppearance (ForeignPtr TextAppearance) +-- | Construct a `TextAppearance` struct initialized to zero. +newZeroTextAppearance :: MonadIO m => m TextAppearance +newZeroTextAppearance = liftIO $ callocBytes 48 >>= wrapPtr TextAppearance + noTextAppearance :: Maybe TextAppearance noTextAppearance = Nothing @@ -106,5 +112,16 @@ textAppearanceReadIsText s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 44) :: IO Word32 return val + +type family ResolveTextAppearanceMethod (t :: Symbol) (o :: *) :: * where + ResolveTextAppearanceMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTextAppearanceMethod t TextAppearance, MethodInfo info TextAppearance p) => IsLabelProxy t (TextAppearance -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTextAppearanceMethod t TextAppearance, MethodInfo info TextAppearance p) => IsLabel t (TextAppearance -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TextAttributes.hs b/GI/Gtk/Structs/TextAttributes.hs --- a/GI/Gtk/Structs/TextAttributes.hs +++ b/GI/Gtk/Structs/TextAttributes.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,15 +16,18 @@ -- * Exported types TextAttributes(..) , + newZeroTextAttributes , noTextAttributes , -- * Methods -- ** textAttributesCopy + TextAttributesCopyMethodInfo , textAttributesCopy , -- ** textAttributesCopyValues + TextAttributesCopyValuesMethodInfo , textAttributesCopyValues , @@ -32,10 +36,12 @@ -- ** textAttributesRef + TextAttributesRefMethodInfo , textAttributesRef , -- ** textAttributesUnref + TextAttributesUnrefMethodInfo , textAttributesUnref , @@ -140,6 +146,10 @@ instance BoxedObject TextAttributes where boxedType _ = c_gtk_text_attributes_get_type +-- | Construct a `TextAttributes` struct initialized to zero. +newZeroTextAttributes :: MonadIO m => m TextAttributes +newZeroTextAttributes = liftIO $ callocBoxedBytes 168 >>= wrapBoxed TextAttributes + noTextAttributes :: Maybe TextAttributes noTextAttributes = Nothing @@ -250,7 +260,6 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "TextAttributes" -- throws : False -- Skip return : False @@ -261,7 +270,7 @@ textAttributesNew :: (MonadIO m) => - m TextAttributes + m TextAttributes -- result textAttributesNew = liftIO $ do result <- gtk_text_attributes_new checkUnexpectedReturnNULL "gtk_text_attributes_new" result @@ -270,9 +279,8 @@ -- method TextAttributes::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TextAttributes" -- throws : False -- Skip return : False @@ -284,8 +292,8 @@ textAttributesCopy :: (MonadIO m) => - TextAttributes -> -- _obj - m TextAttributes + TextAttributes -- _obj + -> m TextAttributes -- result textAttributesCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_text_attributes_copy _obj' @@ -294,11 +302,14 @@ touchManagedPtr _obj return result' +data TextAttributesCopyMethodInfo +instance (signature ~ (m TextAttributes), MonadIO m) => MethodInfo TextAttributesCopyMethodInfo TextAttributes signature where + overloadedMethod _ = textAttributesCopy + -- method TextAttributes::copy_values -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -311,9 +322,9 @@ textAttributesCopyValues :: (MonadIO m) => - TextAttributes -> -- _obj - TextAttributes -> -- dest - m () + TextAttributes -- _obj + -> TextAttributes -- dest + -> m () -- result textAttributesCopyValues _obj dest = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let dest' = unsafeManagedPtrGetPtr dest @@ -322,11 +333,14 @@ touchManagedPtr dest return () +data TextAttributesCopyValuesMethodInfo +instance (signature ~ (TextAttributes -> m ()), MonadIO m) => MethodInfo TextAttributesCopyValuesMethodInfo TextAttributes signature where + overloadedMethod _ = textAttributesCopyValues + -- method TextAttributes::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TextAttributes" -- throws : False -- Skip return : False @@ -338,8 +352,8 @@ textAttributesRef :: (MonadIO m) => - TextAttributes -> -- _obj - m TextAttributes + TextAttributes -- _obj + -> m TextAttributes -- result textAttributesRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_text_attributes_ref _obj' @@ -348,11 +362,14 @@ touchManagedPtr _obj return result' +data TextAttributesRefMethodInfo +instance (signature ~ (m TextAttributes), MonadIO m) => MethodInfo TextAttributesRefMethodInfo TextAttributes signature where + overloadedMethod _ = textAttributesRef + -- method TextAttributes::unref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -364,12 +381,31 @@ textAttributesUnref :: (MonadIO m) => - TextAttributes -> -- _obj - m () + TextAttributes -- _obj + -> m () -- result textAttributesUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_text_attributes_unref _obj' touchManagedPtr _obj return () + +data TextAttributesUnrefMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo TextAttributesUnrefMethodInfo TextAttributes signature where + overloadedMethod _ = textAttributesUnref + +type family ResolveTextAttributesMethod (t :: Symbol) (o :: *) :: * where + ResolveTextAttributesMethod "copy" o = TextAttributesCopyMethodInfo + ResolveTextAttributesMethod "copyValues" o = TextAttributesCopyValuesMethodInfo + ResolveTextAttributesMethod "ref" o = TextAttributesRefMethodInfo + ResolveTextAttributesMethod "unref" o = TextAttributesUnrefMethodInfo + ResolveTextAttributesMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTextAttributesMethod t TextAttributes, MethodInfo info TextAttributes p) => IsLabelProxy t (TextAttributes -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTextAttributesMethod t TextAttributes, MethodInfo info TextAttributes p) => IsLabel t (TextAttributes -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TextAttributes.hs-boot b/GI/Gtk/Structs/TextAttributes.hs-boot --- a/GI/Gtk/Structs/TextAttributes.hs-boot +++ b/GI/Gtk/Structs/TextAttributes.hs-boot @@ -9,3 +9,7 @@ newtype TextAttributes = TextAttributes (ForeignPtr TextAttributes) instance BoxedObject TextAttributes where +data TextAttributesCopyMethodInfo +data TextAttributesCopyValuesMethodInfo +data TextAttributesRefMethodInfo +data TextAttributesUnrefMethodInfo diff --git a/GI/Gtk/Structs/TextBTree.hs b/GI/Gtk/Structs/TextBTree.hs --- a/GI/Gtk/Structs/TextBTree.hs +++ b/GI/Gtk/Structs/TextBTree.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -28,5 +29,16 @@ newtype TextBTree = TextBTree (ForeignPtr TextBTree) noTextBTree :: Maybe TextBTree noTextBTree = Nothing + +type family ResolveTextBTreeMethod (t :: Symbol) (o :: *) :: * where + ResolveTextBTreeMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTextBTreeMethod t TextBTree, MethodInfo info TextBTree p) => IsLabelProxy t (TextBTree -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTextBTreeMethod t TextBTree, MethodInfo info TextBTree p) => IsLabel t (TextBTree -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TextIter.hs b/GI/Gtk/Structs/TextIter.hs --- a/GI/Gtk/Structs/TextIter.hs +++ b/GI/Gtk/Structs/TextIter.hs @@ -1,2900 +1,3372 @@ -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -You may wish to begin by reading the -[text widget conceptual overview][TextWidget] -which gives an overview of all the objects and data -types related to the text widget and how they work together. --} - -module GI.Gtk.Structs.TextIter - ( - --- * Exported types - TextIter(..) , - noTextIter , - - - -- * Methods --- ** textIterAssign - textIterAssign , - - --- ** textIterBackwardChar - textIterBackwardChar , - - --- ** textIterBackwardChars - textIterBackwardChars , - - --- ** textIterBackwardCursorPosition - textIterBackwardCursorPosition , - - --- ** textIterBackwardCursorPositions - textIterBackwardCursorPositions , - - --- ** textIterBackwardFindChar - textIterBackwardFindChar , - - --- ** textIterBackwardLine - textIterBackwardLine , - - --- ** textIterBackwardLines - textIterBackwardLines , - - --- ** textIterBackwardSearch - textIterBackwardSearch , - - --- ** textIterBackwardSentenceStart - textIterBackwardSentenceStart , - - --- ** textIterBackwardSentenceStarts - textIterBackwardSentenceStarts , - - --- ** textIterBackwardToTagToggle - textIterBackwardToTagToggle , - - --- ** textIterBackwardVisibleCursorPosition - textIterBackwardVisibleCursorPosition , - - --- ** textIterBackwardVisibleCursorPositions - textIterBackwardVisibleCursorPositions , - - --- ** textIterBackwardVisibleLine - textIterBackwardVisibleLine , - - --- ** textIterBackwardVisibleLines - textIterBackwardVisibleLines , - - --- ** textIterBackwardVisibleWordStart - textIterBackwardVisibleWordStart , - - --- ** textIterBackwardVisibleWordStarts - textIterBackwardVisibleWordStarts , - - --- ** textIterBackwardWordStart - textIterBackwardWordStart , - - --- ** textIterBackwardWordStarts - textIterBackwardWordStarts , - - --- ** textIterBeginsTag - textIterBeginsTag , - - --- ** textIterCanInsert - textIterCanInsert , - - --- ** textIterCompare - textIterCompare , - - --- ** textIterCopy - textIterCopy , - - --- ** textIterEditable - textIterEditable , - - --- ** textIterEndsLine - textIterEndsLine , - - --- ** textIterEndsSentence - textIterEndsSentence , - - --- ** textIterEndsTag - textIterEndsTag , - - --- ** textIterEndsWord - textIterEndsWord , - - --- ** textIterEqual - textIterEqual , - - --- ** textIterForwardChar - textIterForwardChar , - - --- ** textIterForwardChars - textIterForwardChars , - - --- ** textIterForwardCursorPosition - textIterForwardCursorPosition , - - --- ** textIterForwardCursorPositions - textIterForwardCursorPositions , - - --- ** textIterForwardFindChar - textIterForwardFindChar , - - --- ** textIterForwardLine - textIterForwardLine , - - --- ** textIterForwardLines - textIterForwardLines , - - --- ** textIterForwardSearch - textIterForwardSearch , - - --- ** textIterForwardSentenceEnd - textIterForwardSentenceEnd , - - --- ** textIterForwardSentenceEnds - textIterForwardSentenceEnds , - - --- ** textIterForwardToEnd - textIterForwardToEnd , - - --- ** textIterForwardToLineEnd - textIterForwardToLineEnd , - - --- ** textIterForwardToTagToggle - textIterForwardToTagToggle , - - --- ** textIterForwardVisibleCursorPosition - textIterForwardVisibleCursorPosition , - - --- ** textIterForwardVisibleCursorPositions - textIterForwardVisibleCursorPositions , - - --- ** textIterForwardVisibleLine - textIterForwardVisibleLine , - - --- ** textIterForwardVisibleLines - textIterForwardVisibleLines , - - --- ** textIterForwardVisibleWordEnd - textIterForwardVisibleWordEnd , - - --- ** textIterForwardVisibleWordEnds - textIterForwardVisibleWordEnds , - - --- ** textIterForwardWordEnd - textIterForwardWordEnd , - - --- ** textIterForwardWordEnds - textIterForwardWordEnds , - - --- ** textIterFree - textIterFree , - - --- ** textIterGetAttributes - textIterGetAttributes , - - --- ** textIterGetBuffer - textIterGetBuffer , - - --- ** textIterGetBytesInLine - textIterGetBytesInLine , - - --- ** textIterGetChar - textIterGetChar , - - --- ** textIterGetCharsInLine - textIterGetCharsInLine , - - --- ** textIterGetChildAnchor - textIterGetChildAnchor , - - --- ** textIterGetLanguage - textIterGetLanguage , - - --- ** textIterGetLine - textIterGetLine , - - --- ** textIterGetLineIndex - textIterGetLineIndex , - - --- ** textIterGetLineOffset - textIterGetLineOffset , - - --- ** textIterGetMarks - textIterGetMarks , - - --- ** textIterGetOffset - textIterGetOffset , - - --- ** textIterGetPixbuf - textIterGetPixbuf , - - --- ** textIterGetSlice - textIterGetSlice , - - --- ** textIterGetTags - textIterGetTags , - - --- ** textIterGetText - textIterGetText , - - --- ** textIterGetToggledTags - textIterGetToggledTags , - - --- ** textIterGetVisibleLineIndex - textIterGetVisibleLineIndex , - - --- ** textIterGetVisibleLineOffset - textIterGetVisibleLineOffset , - - --- ** textIterGetVisibleSlice - textIterGetVisibleSlice , - - --- ** textIterGetVisibleText - textIterGetVisibleText , - - --- ** textIterHasTag - textIterHasTag , - - --- ** textIterInRange - textIterInRange , - - --- ** textIterInsideSentence - textIterInsideSentence , - - --- ** textIterInsideWord - textIterInsideWord , - - --- ** textIterIsCursorPosition - textIterIsCursorPosition , - - --- ** textIterIsEnd - textIterIsEnd , - - --- ** textIterIsStart - textIterIsStart , - - --- ** textIterOrder - textIterOrder , - - --- ** textIterSetLine - textIterSetLine , - - --- ** textIterSetLineIndex - textIterSetLineIndex , - - --- ** textIterSetLineOffset - textIterSetLineOffset , - - --- ** textIterSetOffset - textIterSetOffset , - - --- ** textIterSetVisibleLineIndex - textIterSetVisibleLineIndex , - - --- ** textIterSetVisibleLineOffset - textIterSetVisibleLineOffset , - - --- ** textIterStartsLine - textIterStartsLine , - - --- ** textIterStartsSentence - textIterStartsSentence , - - --- ** textIterStartsWord - textIterStartsWord , - - --- ** textIterTogglesTag - textIterTogglesTag , - - - - - ) 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.GdkPixbuf as GdkPixbuf -import qualified GI.Pango as Pango - -newtype TextIter = TextIter (ForeignPtr TextIter) -foreign import ccall "gtk_text_iter_get_type" c_gtk_text_iter_get_type :: - IO GType - -instance BoxedObject TextIter where - boxedType _ = c_gtk_text_iter_get_type - -noTextIter :: Maybe TextIter -noTextIter = Nothing - --- method TextIter::assign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_assign" gtk_text_iter_assign :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- other : TInterface "Gtk" "TextIter" - IO () - - -textIterAssign :: - (MonadIO m) => - TextIter -> -- _obj - TextIter -> -- other - m () -textIterAssign _obj other = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let other' = unsafeManagedPtrGetPtr other - gtk_text_iter_assign _obj' other' - touchManagedPtr _obj - touchManagedPtr other - return () - --- method TextIter::backward_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_char" gtk_text_iter_backward_char :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardChar :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterBackwardChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_char _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_chars" gtk_text_iter_backward_chars :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterBackwardChars :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterBackwardChars _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_chars _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_cursor_position" gtk_text_iter_backward_cursor_position :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardCursorPosition :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterBackwardCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_cursor_positions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_cursor_positions" gtk_text_iter_backward_cursor_positions :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterBackwardCursorPositions :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterBackwardCursorPositions _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_cursor_positions _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_find_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_find_char" gtk_text_iter_backward_find_char :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - FunPtr TextCharPredicateC -> -- pred : TInterface "Gtk" "TextCharPredicate" - Ptr () -> -- user_data : TBasicType TVoid - Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardFindChar :: - (MonadIO m) => - TextIter -> -- _obj - TextCharPredicate -> -- pred - Maybe (TextIter) -> -- limit - m Bool -textIterBackwardFindChar _obj pred limit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - pred' <- mkTextCharPredicate (textCharPredicateWrapper Nothing pred) - maybeLimit <- case limit of - Nothing -> return nullPtr - Just jLimit -> do - let jLimit' = unsafeManagedPtrGetPtr jLimit - return jLimit' - let user_data = nullPtr - result <- gtk_text_iter_backward_find_char _obj' pred' user_data maybeLimit - let result' = (/= 0) result - safeFreeFunPtr $ castFunPtrToPtr pred' - touchManagedPtr _obj - whenJust limit touchManagedPtr - return result' - --- method TextIter::backward_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_line" gtk_text_iter_backward_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardLine :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterBackwardLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_lines" gtk_text_iter_backward_lines :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterBackwardLines :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterBackwardLines _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_lines _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_search --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_search" gtk_text_iter_backward_search :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - CString -> -- str : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gtk" "TextSearchFlags" - Ptr TextIter -> -- match_start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- match_end : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardSearch :: - (MonadIO m) => - TextIter -> -- _obj - T.Text -> -- str - [TextSearchFlags] -> -- flags - Maybe (TextIter) -> -- limit - m (Bool,TextIter,TextIter) -textIterBackwardSearch _obj str flags limit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - str' <- textToCString str - let flags' = gflagsToWord flags - match_start <- callocBoxedBytes 80 :: IO (Ptr TextIter) - match_end <- callocBoxedBytes 80 :: IO (Ptr TextIter) - maybeLimit <- case limit of - Nothing -> return nullPtr - Just jLimit -> do - let jLimit' = unsafeManagedPtrGetPtr jLimit - return jLimit' - result <- gtk_text_iter_backward_search _obj' str' flags' match_start match_end maybeLimit - let result' = (/= 0) result - match_start' <- (wrapBoxed TextIter) match_start - match_end' <- (wrapBoxed TextIter) match_end - touchManagedPtr _obj - whenJust limit touchManagedPtr - freeMem str' - return (result', match_start', match_end') - --- method TextIter::backward_sentence_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_sentence_start" gtk_text_iter_backward_sentence_start :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardSentenceStart :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterBackwardSentenceStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_sentence_start _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_sentence_starts --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_sentence_starts" gtk_text_iter_backward_sentence_starts :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterBackwardSentenceStarts :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterBackwardSentenceStarts _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_sentence_starts _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_to_tag_toggle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_to_tag_toggle" gtk_text_iter_backward_to_tag_toggle :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textIterBackwardToTagToggle :: - (MonadIO m, TextTagK a) => - TextIter -> -- _obj - Maybe (a) -> -- tag - m Bool -textIterBackwardToTagToggle _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeTag <- case tag of - Nothing -> return nullPtr - Just jTag -> do - let jTag' = unsafeManagedPtrCastPtr jTag - return jTag' - result <- gtk_text_iter_backward_to_tag_toggle _obj' maybeTag - let result' = (/= 0) result - touchManagedPtr _obj - whenJust tag touchManagedPtr - return result' - --- method TextIter::backward_visible_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_visible_cursor_position" gtk_text_iter_backward_visible_cursor_position :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardVisibleCursorPosition :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterBackwardVisibleCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_visible_cursor_positions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_visible_cursor_positions" gtk_text_iter_backward_visible_cursor_positions :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterBackwardVisibleCursorPositions :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterBackwardVisibleCursorPositions _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_cursor_positions _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_visible_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_visible_line" gtk_text_iter_backward_visible_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardVisibleLine :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterBackwardVisibleLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_visible_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_visible_lines" gtk_text_iter_backward_visible_lines :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterBackwardVisibleLines :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterBackwardVisibleLines _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_lines _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_visible_word_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_visible_word_start" gtk_text_iter_backward_visible_word_start :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardVisibleWordStart :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterBackwardVisibleWordStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_word_start _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_visible_word_starts --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_visible_word_starts" gtk_text_iter_backward_visible_word_starts :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterBackwardVisibleWordStarts :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterBackwardVisibleWordStarts _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_word_starts _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_word_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_word_start" gtk_text_iter_backward_word_start :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardWordStart :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterBackwardWordStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_word_start _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_word_starts --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_backward_word_starts" gtk_text_iter_backward_word_starts :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterBackwardWordStarts :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterBackwardWordStarts _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_word_starts _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::begins_tag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_begins_tag" gtk_text_iter_begins_tag :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textIterBeginsTag :: - (MonadIO m, TextTagK a) => - TextIter -> -- _obj - Maybe (a) -> -- tag - m Bool -textIterBeginsTag _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeTag <- case tag of - Nothing -> return nullPtr - Just jTag -> do - let jTag' = unsafeManagedPtrCastPtr jTag - return jTag' - result <- gtk_text_iter_begins_tag _obj' maybeTag - let result' = (/= 0) result - touchManagedPtr _obj - whenJust tag touchManagedPtr - return result' - --- method TextIter::can_insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editability", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editability", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_can_insert" gtk_text_iter_can_insert :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - CInt -> -- default_editability : TBasicType TBoolean - IO CInt - - -textIterCanInsert :: - (MonadIO m) => - TextIter -> -- _obj - Bool -> -- default_editability - m Bool -textIterCanInsert _obj default_editability = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let default_editability' = (fromIntegral . fromEnum) default_editability - result <- gtk_text_iter_can_insert _obj' default_editability' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::compare --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_compare" gtk_text_iter_compare :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- rhs : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterCompare :: - (MonadIO m) => - TextIter -> -- _obj - TextIter -> -- rhs - m Int32 -textIterCompare _obj rhs = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let rhs' = unsafeManagedPtrGetPtr rhs - result <- gtk_text_iter_compare _obj' rhs' - touchManagedPtr _obj - touchManagedPtr rhs - return result - --- method TextIter::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextIter" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_copy" gtk_text_iter_copy :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr TextIter) - - -textIterCopy :: - (MonadIO m) => - TextIter -> -- _obj - m TextIter -textIterCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_copy _obj' - checkUnexpectedReturnNULL "gtk_text_iter_copy" result - result' <- (wrapBoxed TextIter) result - touchManagedPtr _obj - return result' - --- method TextIter::editable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_editable" gtk_text_iter_editable :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - CInt -> -- default_setting : TBasicType TBoolean - IO CInt - - -textIterEditable :: - (MonadIO m) => - TextIter -> -- _obj - Bool -> -- default_setting - m Bool -textIterEditable _obj default_setting = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let default_setting' = (fromIntegral . fromEnum) default_setting - result <- gtk_text_iter_editable _obj' default_setting' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::ends_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_ends_line" gtk_text_iter_ends_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterEndsLine :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterEndsLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_ends_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::ends_sentence --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_ends_sentence" gtk_text_iter_ends_sentence :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterEndsSentence :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterEndsSentence _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_ends_sentence _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::ends_tag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_ends_tag" gtk_text_iter_ends_tag :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textIterEndsTag :: - (MonadIO m, TextTagK a) => - TextIter -> -- _obj - Maybe (a) -> -- tag - m Bool -textIterEndsTag _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeTag <- case tag of - Nothing -> return nullPtr - Just jTag -> do - let jTag' = unsafeManagedPtrCastPtr jTag - return jTag' - result <- gtk_text_iter_ends_tag _obj' maybeTag - let result' = (/= 0) result - touchManagedPtr _obj - whenJust tag touchManagedPtr - return result' - --- method TextIter::ends_word --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_ends_word" gtk_text_iter_ends_word :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterEndsWord :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterEndsWord _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_ends_word _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::equal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_equal" gtk_text_iter_equal :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- rhs : TInterface "Gtk" "TextIter" - IO CInt - - -textIterEqual :: - (MonadIO m) => - TextIter -> -- _obj - TextIter -> -- rhs - m Bool -textIterEqual _obj rhs = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let rhs' = unsafeManagedPtrGetPtr rhs - result <- gtk_text_iter_equal _obj' rhs' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr rhs - return result' - --- method TextIter::forward_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_char" gtk_text_iter_forward_char :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardChar :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterForwardChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_char _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_chars" gtk_text_iter_forward_chars :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterForwardChars :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterForwardChars _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_chars _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_cursor_position" gtk_text_iter_forward_cursor_position :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardCursorPosition :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterForwardCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_cursor_positions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_cursor_positions" gtk_text_iter_forward_cursor_positions :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterForwardCursorPositions :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterForwardCursorPositions _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_cursor_positions _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_find_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_find_char" gtk_text_iter_forward_find_char :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - FunPtr TextCharPredicateC -> -- pred : TInterface "Gtk" "TextCharPredicate" - Ptr () -> -- user_data : TBasicType TVoid - Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardFindChar :: - (MonadIO m) => - TextIter -> -- _obj - TextCharPredicate -> -- pred - Maybe (TextIter) -> -- limit - m Bool -textIterForwardFindChar _obj pred limit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - pred' <- mkTextCharPredicate (textCharPredicateWrapper Nothing pred) - maybeLimit <- case limit of - Nothing -> return nullPtr - Just jLimit -> do - let jLimit' = unsafeManagedPtrGetPtr jLimit - return jLimit' - let user_data = nullPtr - result <- gtk_text_iter_forward_find_char _obj' pred' user_data maybeLimit - let result' = (/= 0) result - safeFreeFunPtr $ castFunPtrToPtr pred' - touchManagedPtr _obj - whenJust limit touchManagedPtr - return result' - --- method TextIter::forward_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_line" gtk_text_iter_forward_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardLine :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterForwardLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_lines" gtk_text_iter_forward_lines :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterForwardLines :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterForwardLines _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_lines _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_search --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_search" gtk_text_iter_forward_search :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - CString -> -- str : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gtk" "TextSearchFlags" - Ptr TextIter -> -- match_start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- match_end : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardSearch :: - (MonadIO m) => - TextIter -> -- _obj - T.Text -> -- str - [TextSearchFlags] -> -- flags - Maybe (TextIter) -> -- limit - m (Bool,TextIter,TextIter) -textIterForwardSearch _obj str flags limit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - str' <- textToCString str - let flags' = gflagsToWord flags - match_start <- callocBoxedBytes 80 :: IO (Ptr TextIter) - match_end <- callocBoxedBytes 80 :: IO (Ptr TextIter) - maybeLimit <- case limit of - Nothing -> return nullPtr - Just jLimit -> do - let jLimit' = unsafeManagedPtrGetPtr jLimit - return jLimit' - result <- gtk_text_iter_forward_search _obj' str' flags' match_start match_end maybeLimit - let result' = (/= 0) result - match_start' <- (wrapBoxed TextIter) match_start - match_end' <- (wrapBoxed TextIter) match_end - touchManagedPtr _obj - whenJust limit touchManagedPtr - freeMem str' - return (result', match_start', match_end') - --- method TextIter::forward_sentence_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_sentence_end" gtk_text_iter_forward_sentence_end :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardSentenceEnd :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterForwardSentenceEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_sentence_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_sentence_ends --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_sentence_ends" gtk_text_iter_forward_sentence_ends :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterForwardSentenceEnds :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterForwardSentenceEnds _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_sentence_ends _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_to_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_to_end" gtk_text_iter_forward_to_end :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO () - - -textIterForwardToEnd :: - (MonadIO m) => - TextIter -> -- _obj - m () -textIterForwardToEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_forward_to_end _obj' - touchManagedPtr _obj - return () - --- method TextIter::forward_to_line_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_to_line_end" gtk_text_iter_forward_to_line_end :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardToLineEnd :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterForwardToLineEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_to_line_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_to_tag_toggle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_to_tag_toggle" gtk_text_iter_forward_to_tag_toggle :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textIterForwardToTagToggle :: - (MonadIO m, TextTagK a) => - TextIter -> -- _obj - Maybe (a) -> -- tag - m Bool -textIterForwardToTagToggle _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeTag <- case tag of - Nothing -> return nullPtr - Just jTag -> do - let jTag' = unsafeManagedPtrCastPtr jTag - return jTag' - result <- gtk_text_iter_forward_to_tag_toggle _obj' maybeTag - let result' = (/= 0) result - touchManagedPtr _obj - whenJust tag touchManagedPtr - return result' - --- method TextIter::forward_visible_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_visible_cursor_position" gtk_text_iter_forward_visible_cursor_position :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardVisibleCursorPosition :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterForwardVisibleCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_visible_cursor_positions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_visible_cursor_positions" gtk_text_iter_forward_visible_cursor_positions :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterForwardVisibleCursorPositions :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterForwardVisibleCursorPositions _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_cursor_positions _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_visible_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_visible_line" gtk_text_iter_forward_visible_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardVisibleLine :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterForwardVisibleLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_visible_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_visible_lines" gtk_text_iter_forward_visible_lines :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterForwardVisibleLines :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterForwardVisibleLines _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_lines _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_visible_word_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_visible_word_end" gtk_text_iter_forward_visible_word_end :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardVisibleWordEnd :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterForwardVisibleWordEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_word_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_visible_word_ends --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_visible_word_ends" gtk_text_iter_forward_visible_word_ends :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterForwardVisibleWordEnds :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterForwardVisibleWordEnds _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_word_ends _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_word_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_word_end" gtk_text_iter_forward_word_end :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardWordEnd :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterForwardWordEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_word_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_word_ends --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_forward_word_ends" gtk_text_iter_forward_word_ends :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 - IO CInt - - -textIterForwardWordEnds :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -textIterForwardWordEnds _obj count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_word_ends _obj' count - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_free" gtk_text_iter_free :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO () - - -textIterFree :: - (MonadIO m) => - TextIter -> -- _obj - m () -textIterFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_free _obj' - touchManagedPtr _obj - return () - --- method TextIter::get_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TInterface "Gtk" "TextAttributes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_attributes" gtk_text_iter_get_attributes :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextAttributes -> -- values : TInterface "Gtk" "TextAttributes" - IO CInt - - -textIterGetAttributes :: - (MonadIO m) => - TextIter -> -- _obj - m (Bool,TextAttributes) -textIterGetAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - values <- callocBoxedBytes 168 :: IO (Ptr TextAttributes) - result <- gtk_text_iter_get_attributes _obj' values - let result' = (/= 0) result - values' <- (wrapBoxed TextAttributes) values - touchManagedPtr _obj - return (result', values') - --- method TextIter::get_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextBuffer" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_buffer" gtk_text_iter_get_buffer :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr TextBuffer) - - -textIterGetBuffer :: - (MonadIO m) => - TextIter -> -- _obj - m TextBuffer -textIterGetBuffer _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_buffer _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_buffer" result - result' <- (newObject TextBuffer) result - touchManagedPtr _obj - return result' - --- method TextIter::get_bytes_in_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_bytes_in_line" gtk_text_iter_get_bytes_in_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetBytesInLine :: - (MonadIO m) => - TextIter -> -- _obj - m Int32 -textIterGetBytesInLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_bytes_in_line _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUniChar --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_char" gtk_text_iter_get_char :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterGetChar :: - (MonadIO m) => - TextIter -> -- _obj - m Char -textIterGetChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_char _obj' - let result' = (chr . fromIntegral) result - touchManagedPtr _obj - return result' - --- method TextIter::get_chars_in_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_chars_in_line" gtk_text_iter_get_chars_in_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetCharsInLine :: - (MonadIO m) => - TextIter -> -- _obj - m Int32 -textIterGetCharsInLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_chars_in_line _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_child_anchor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TextChildAnchor" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_child_anchor" gtk_text_iter_get_child_anchor :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr TextChildAnchor) - - -textIterGetChildAnchor :: - (MonadIO m) => - TextIter -> -- _obj - m TextChildAnchor -textIterGetChildAnchor _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_child_anchor _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_child_anchor" result - result' <- (newObject TextChildAnchor) result - touchManagedPtr _obj - return result' - --- method TextIter::get_language --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Pango" "Language" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_language" gtk_text_iter_get_language :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr Pango.Language) - - -textIterGetLanguage :: - (MonadIO m) => - TextIter -> -- _obj - m Pango.Language -textIterGetLanguage _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_language _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_language" result - result' <- (wrapBoxed Pango.Language) result - touchManagedPtr _obj - return result' - --- method TextIter::get_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_line" gtk_text_iter_get_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetLine :: - (MonadIO m) => - TextIter -> -- _obj - m Int32 -textIterGetLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_line _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_line_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_line_index" gtk_text_iter_get_line_index :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetLineIndex :: - (MonadIO m) => - TextIter -> -- _obj - m Int32 -textIterGetLineIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_line_index _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_line_offset" gtk_text_iter_get_line_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetLineOffset :: - (MonadIO m) => - TextIter -> -- _obj - m Int32 -textIterGetLineOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_line_offset _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_marks --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Gtk" "TextMark") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_marks" gtk_text_iter_get_marks :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr (GSList (Ptr TextMark))) - - -textIterGetMarks :: - (MonadIO m) => - TextIter -> -- _obj - m [TextMark] -textIterGetMarks _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_marks _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_marks" result - result' <- unpackGSList result - result'' <- mapM (newObject TextMark) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method TextIter::get_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_offset" gtk_text_iter_get_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetOffset :: - (MonadIO m) => - TextIter -> -- _obj - m Int32 -textIterGetOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_offset _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_pixbuf" gtk_text_iter_get_pixbuf :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr GdkPixbuf.Pixbuf) - - -textIterGetPixbuf :: - (MonadIO m) => - TextIter -> -- _obj - m GdkPixbuf.Pixbuf -textIterGetPixbuf _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_pixbuf _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_pixbuf" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - --- method TextIter::get_slice --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_slice" gtk_text_iter_get_slice :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO CString - - -textIterGetSlice :: - (MonadIO m) => - TextIter -> -- _obj - TextIter -> -- end - m T.Text -textIterGetSlice _obj end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let end' = unsafeManagedPtrGetPtr end - result <- gtk_text_iter_get_slice _obj' end' - checkUnexpectedReturnNULL "gtk_text_iter_get_slice" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr end - return result' - --- method TextIter::get_tags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Gtk" "TextTag") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_tags" gtk_text_iter_get_tags :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO (Ptr (GSList (Ptr TextTag))) - - -textIterGetTags :: - (MonadIO m) => - TextIter -> -- _obj - m [TextTag] -textIterGetTags _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_tags _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_tags" result - result' <- unpackGSList result - result'' <- mapM (newObject TextTag) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method TextIter::get_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_text" gtk_text_iter_get_text :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO CString - - -textIterGetText :: - (MonadIO m) => - TextIter -> -- _obj - TextIter -> -- end - m T.Text -textIterGetText _obj end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let end' = unsafeManagedPtrGetPtr end - result <- gtk_text_iter_get_text _obj' end' - checkUnexpectedReturnNULL "gtk_text_iter_get_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr end - return result' - --- method TextIter::get_toggled_tags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "toggled_on", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "toggled_on", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Gtk" "TextTag") --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_toggled_tags" gtk_text_iter_get_toggled_tags :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - CInt -> -- toggled_on : TBasicType TBoolean - IO (Ptr (GSList (Ptr TextTag))) - - -textIterGetToggledTags :: - (MonadIO m) => - TextIter -> -- _obj - Bool -> -- toggled_on - m [TextTag] -textIterGetToggledTags _obj toggled_on = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let toggled_on' = (fromIntegral . fromEnum) toggled_on - result <- gtk_text_iter_get_toggled_tags _obj' toggled_on' - checkUnexpectedReturnNULL "gtk_text_iter_get_toggled_tags" result - result' <- unpackGSList result - result'' <- mapM (newObject TextTag) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method TextIter::get_visible_line_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_visible_line_index" gtk_text_iter_get_visible_line_index :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetVisibleLineIndex :: - (MonadIO m) => - TextIter -> -- _obj - m Int32 -textIterGetVisibleLineIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_visible_line_index _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_visible_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_visible_line_offset" gtk_text_iter_get_visible_line_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO Int32 - - -textIterGetVisibleLineOffset :: - (MonadIO m) => - TextIter -> -- _obj - m Int32 -textIterGetVisibleLineOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_visible_line_offset _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_visible_slice --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_visible_slice" gtk_text_iter_get_visible_slice :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO CString - - -textIterGetVisibleSlice :: - (MonadIO m) => - TextIter -> -- _obj - TextIter -> -- end - m T.Text -textIterGetVisibleSlice _obj end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let end' = unsafeManagedPtrGetPtr end - result <- gtk_text_iter_get_visible_slice _obj' end' - checkUnexpectedReturnNULL "gtk_text_iter_get_visible_slice" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr end - return result' - --- method TextIter::get_visible_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_get_visible_text" gtk_text_iter_get_visible_text :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO CString - - -textIterGetVisibleText :: - (MonadIO m) => - TextIter -> -- _obj - TextIter -> -- end - m T.Text -textIterGetVisibleText _obj end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let end' = unsafeManagedPtrGetPtr end - result <- gtk_text_iter_get_visible_text _obj' end' - checkUnexpectedReturnNULL "gtk_text_iter_get_visible_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr end - return result' - --- method TextIter::has_tag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_has_tag" gtk_text_iter_has_tag :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textIterHasTag :: - (MonadIO m, TextTagK a) => - TextIter -> -- _obj - a -> -- tag - m Bool -textIterHasTag _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let tag' = unsafeManagedPtrCastPtr tag - result <- gtk_text_iter_has_tag _obj' tag' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr tag - return result' - --- method TextIter::in_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_in_range" gtk_text_iter_in_range :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" - IO CInt - - -textIterInRange :: - (MonadIO m) => - TextIter -> -- _obj - TextIter -> -- start - TextIter -> -- end - m Bool -textIterInRange _obj start end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - result <- gtk_text_iter_in_range _obj' start' end' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return result' - --- method TextIter::inside_sentence --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_inside_sentence" gtk_text_iter_inside_sentence :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterInsideSentence :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterInsideSentence _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_inside_sentence _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::inside_word --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_inside_word" gtk_text_iter_inside_word :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterInsideWord :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterInsideWord _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_inside_word _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::is_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_is_cursor_position" gtk_text_iter_is_cursor_position :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterIsCursorPosition :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterIsCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_is_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::is_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_is_end" gtk_text_iter_is_end :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterIsEnd :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterIsEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_is_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::is_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_is_start" gtk_text_iter_is_start :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterIsStart :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterIsStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_is_start _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::order --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_order" gtk_text_iter_order :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextIter -> -- second : TInterface "Gtk" "TextIter" - IO () - - -textIterOrder :: - (MonadIO m) => - TextIter -> -- _obj - TextIter -> -- second - m () -textIterOrder _obj second = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let second' = unsafeManagedPtrGetPtr second - gtk_text_iter_order _obj' second' - touchManagedPtr _obj - touchManagedPtr second - return () - --- method TextIter::set_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_set_line" gtk_text_iter_set_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt32 - IO () - - -textIterSetLine :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- line_number - m () -textIterSetLine _obj line_number = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_line _obj' line_number - touchManagedPtr _obj - return () - --- method TextIter::set_line_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_set_line_index" gtk_text_iter_set_line_index :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- byte_on_line : TBasicType TInt32 - IO () - - -textIterSetLineIndex :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- byte_on_line - m () -textIterSetLineIndex _obj byte_on_line = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_line_index _obj' byte_on_line - touchManagedPtr _obj - return () - --- method TextIter::set_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_set_line_offset" gtk_text_iter_set_line_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- char_on_line : TBasicType TInt32 - IO () - - -textIterSetLineOffset :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- char_on_line - m () -textIterSetLineOffset _obj char_on_line = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_line_offset _obj' char_on_line - touchManagedPtr _obj - return () - --- method TextIter::set_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_set_offset" gtk_text_iter_set_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- char_offset : TBasicType TInt32 - IO () - - -textIterSetOffset :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- char_offset - m () -textIterSetOffset _obj char_offset = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_offset _obj' char_offset - touchManagedPtr _obj - return () - --- method TextIter::set_visible_line_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_set_visible_line_index" gtk_text_iter_set_visible_line_index :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- byte_on_line : TBasicType TInt32 - IO () - - -textIterSetVisibleLineIndex :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- byte_on_line - m () -textIterSetVisibleLineIndex _obj byte_on_line = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_visible_line_index _obj' byte_on_line - touchManagedPtr _obj - return () - --- method TextIter::set_visible_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_set_visible_line_offset" gtk_text_iter_set_visible_line_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- char_on_line : TBasicType TInt32 - IO () - - -textIterSetVisibleLineOffset :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- char_on_line - m () -textIterSetVisibleLineOffset _obj char_on_line = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_visible_line_offset _obj' char_on_line - touchManagedPtr _obj - return () - --- method TextIter::starts_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_starts_line" gtk_text_iter_starts_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterStartsLine :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterStartsLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_starts_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::starts_sentence --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_starts_sentence" gtk_text_iter_starts_sentence :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterStartsSentence :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterStartsSentence _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_starts_sentence _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::starts_word --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_starts_word" gtk_text_iter_starts_word :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - IO CInt - - -textIterStartsWord :: - (MonadIO m) => - TextIter -> -- _obj - m Bool -textIterStartsWord _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_starts_word _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::toggles_tag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_toggles_tag" gtk_text_iter_toggles_tag :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" - IO CInt - - -textIterTogglesTag :: - (MonadIO m, TextTagK a) => - TextIter -> -- _obj - Maybe (a) -> -- tag - m Bool -textIterTogglesTag _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeTag <- case tag of - Nothing -> return nullPtr - Just jTag -> do - let jTag' = unsafeManagedPtrCastPtr jTag - return jTag' - result <- gtk_text_iter_toggles_tag _obj' maybeTag - let result' = (/= 0) result - touchManagedPtr _obj - whenJust tag touchManagedPtr - return result' + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +You may wish to begin by reading the +[text widget conceptual overview][TextWidget] +which gives an overview of all the objects and data +types related to the text widget and how they work together. +-} + +module GI.Gtk.Structs.TextIter + ( + +-- * Exported types + TextIter(..) , + newZeroTextIter , + noTextIter , + + + -- * Methods +-- ** textIterAssign + TextIterAssignMethodInfo , + textIterAssign , + + +-- ** textIterBackwardChar + TextIterBackwardCharMethodInfo , + textIterBackwardChar , + + +-- ** textIterBackwardChars + TextIterBackwardCharsMethodInfo , + textIterBackwardChars , + + +-- ** textIterBackwardCursorPosition + TextIterBackwardCursorPositionMethodInfo, + textIterBackwardCursorPosition , + + +-- ** textIterBackwardCursorPositions + TextIterBackwardCursorPositionsMethodInfo, + textIterBackwardCursorPositions , + + +-- ** textIterBackwardFindChar + TextIterBackwardFindCharMethodInfo , + textIterBackwardFindChar , + + +-- ** textIterBackwardLine + TextIterBackwardLineMethodInfo , + textIterBackwardLine , + + +-- ** textIterBackwardLines + TextIterBackwardLinesMethodInfo , + textIterBackwardLines , + + +-- ** textIterBackwardSearch + TextIterBackwardSearchMethodInfo , + textIterBackwardSearch , + + +-- ** textIterBackwardSentenceStart + TextIterBackwardSentenceStartMethodInfo , + textIterBackwardSentenceStart , + + +-- ** textIterBackwardSentenceStarts + TextIterBackwardSentenceStartsMethodInfo, + textIterBackwardSentenceStarts , + + +-- ** textIterBackwardToTagToggle + TextIterBackwardToTagToggleMethodInfo , + textIterBackwardToTagToggle , + + +-- ** textIterBackwardVisibleCursorPosition + TextIterBackwardVisibleCursorPositionMethodInfo, + textIterBackwardVisibleCursorPosition , + + +-- ** textIterBackwardVisibleCursorPositions + TextIterBackwardVisibleCursorPositionsMethodInfo, + textIterBackwardVisibleCursorPositions , + + +-- ** textIterBackwardVisibleLine + TextIterBackwardVisibleLineMethodInfo , + textIterBackwardVisibleLine , + + +-- ** textIterBackwardVisibleLines + TextIterBackwardVisibleLinesMethodInfo , + textIterBackwardVisibleLines , + + +-- ** textIterBackwardVisibleWordStart + TextIterBackwardVisibleWordStartMethodInfo, + textIterBackwardVisibleWordStart , + + +-- ** textIterBackwardVisibleWordStarts + TextIterBackwardVisibleWordStartsMethodInfo, + textIterBackwardVisibleWordStarts , + + +-- ** textIterBackwardWordStart + TextIterBackwardWordStartMethodInfo , + textIterBackwardWordStart , + + +-- ** textIterBackwardWordStarts + TextIterBackwardWordStartsMethodInfo , + textIterBackwardWordStarts , + + +-- ** textIterBeginsTag + TextIterBeginsTagMethodInfo , + textIterBeginsTag , + + +-- ** textIterCanInsert + TextIterCanInsertMethodInfo , + textIterCanInsert , + + +-- ** textIterCompare + TextIterCompareMethodInfo , + textIterCompare , + + +-- ** textIterCopy + TextIterCopyMethodInfo , + textIterCopy , + + +-- ** textIterEditable + TextIterEditableMethodInfo , + textIterEditable , + + +-- ** textIterEndsLine + TextIterEndsLineMethodInfo , + textIterEndsLine , + + +-- ** textIterEndsSentence + TextIterEndsSentenceMethodInfo , + textIterEndsSentence , + + +-- ** textIterEndsTag + TextIterEndsTagMethodInfo , + textIterEndsTag , + + +-- ** textIterEndsWord + TextIterEndsWordMethodInfo , + textIterEndsWord , + + +-- ** textIterEqual + TextIterEqualMethodInfo , + textIterEqual , + + +-- ** textIterForwardChar + TextIterForwardCharMethodInfo , + textIterForwardChar , + + +-- ** textIterForwardChars + TextIterForwardCharsMethodInfo , + textIterForwardChars , + + +-- ** textIterForwardCursorPosition + TextIterForwardCursorPositionMethodInfo , + textIterForwardCursorPosition , + + +-- ** textIterForwardCursorPositions + TextIterForwardCursorPositionsMethodInfo, + textIterForwardCursorPositions , + + +-- ** textIterForwardFindChar + TextIterForwardFindCharMethodInfo , + textIterForwardFindChar , + + +-- ** textIterForwardLine + TextIterForwardLineMethodInfo , + textIterForwardLine , + + +-- ** textIterForwardLines + TextIterForwardLinesMethodInfo , + textIterForwardLines , + + +-- ** textIterForwardSearch + TextIterForwardSearchMethodInfo , + textIterForwardSearch , + + +-- ** textIterForwardSentenceEnd + TextIterForwardSentenceEndMethodInfo , + textIterForwardSentenceEnd , + + +-- ** textIterForwardSentenceEnds + TextIterForwardSentenceEndsMethodInfo , + textIterForwardSentenceEnds , + + +-- ** textIterForwardToEnd + TextIterForwardToEndMethodInfo , + textIterForwardToEnd , + + +-- ** textIterForwardToLineEnd + TextIterForwardToLineEndMethodInfo , + textIterForwardToLineEnd , + + +-- ** textIterForwardToTagToggle + TextIterForwardToTagToggleMethodInfo , + textIterForwardToTagToggle , + + +-- ** textIterForwardVisibleCursorPosition + TextIterForwardVisibleCursorPositionMethodInfo, + textIterForwardVisibleCursorPosition , + + +-- ** textIterForwardVisibleCursorPositions + TextIterForwardVisibleCursorPositionsMethodInfo, + textIterForwardVisibleCursorPositions , + + +-- ** textIterForwardVisibleLine + TextIterForwardVisibleLineMethodInfo , + textIterForwardVisibleLine , + + +-- ** textIterForwardVisibleLines + TextIterForwardVisibleLinesMethodInfo , + textIterForwardVisibleLines , + + +-- ** textIterForwardVisibleWordEnd + TextIterForwardVisibleWordEndMethodInfo , + textIterForwardVisibleWordEnd , + + +-- ** textIterForwardVisibleWordEnds + TextIterForwardVisibleWordEndsMethodInfo, + textIterForwardVisibleWordEnds , + + +-- ** textIterForwardWordEnd + TextIterForwardWordEndMethodInfo , + textIterForwardWordEnd , + + +-- ** textIterForwardWordEnds + TextIterForwardWordEndsMethodInfo , + textIterForwardWordEnds , + + +-- ** textIterFree + TextIterFreeMethodInfo , + textIterFree , + + +-- ** textIterGetAttributes + TextIterGetAttributesMethodInfo , + textIterGetAttributes , + + +-- ** textIterGetBuffer + TextIterGetBufferMethodInfo , + textIterGetBuffer , + + +-- ** textIterGetBytesInLine + TextIterGetBytesInLineMethodInfo , + textIterGetBytesInLine , + + +-- ** textIterGetChar + TextIterGetCharMethodInfo , + textIterGetChar , + + +-- ** textIterGetCharsInLine + TextIterGetCharsInLineMethodInfo , + textIterGetCharsInLine , + + +-- ** textIterGetChildAnchor + TextIterGetChildAnchorMethodInfo , + textIterGetChildAnchor , + + +-- ** textIterGetLanguage + TextIterGetLanguageMethodInfo , + textIterGetLanguage , + + +-- ** textIterGetLine + TextIterGetLineMethodInfo , + textIterGetLine , + + +-- ** textIterGetLineIndex + TextIterGetLineIndexMethodInfo , + textIterGetLineIndex , + + +-- ** textIterGetLineOffset + TextIterGetLineOffsetMethodInfo , + textIterGetLineOffset , + + +-- ** textIterGetMarks + TextIterGetMarksMethodInfo , + textIterGetMarks , + + +-- ** textIterGetOffset + TextIterGetOffsetMethodInfo , + textIterGetOffset , + + +-- ** textIterGetPixbuf + TextIterGetPixbufMethodInfo , + textIterGetPixbuf , + + +-- ** textIterGetSlice + TextIterGetSliceMethodInfo , + textIterGetSlice , + + +-- ** textIterGetTags + TextIterGetTagsMethodInfo , + textIterGetTags , + + +-- ** textIterGetText + TextIterGetTextMethodInfo , + textIterGetText , + + +-- ** textIterGetToggledTags + TextIterGetToggledTagsMethodInfo , + textIterGetToggledTags , + + +-- ** textIterGetVisibleLineIndex + TextIterGetVisibleLineIndexMethodInfo , + textIterGetVisibleLineIndex , + + +-- ** textIterGetVisibleLineOffset + TextIterGetVisibleLineOffsetMethodInfo , + textIterGetVisibleLineOffset , + + +-- ** textIterGetVisibleSlice + TextIterGetVisibleSliceMethodInfo , + textIterGetVisibleSlice , + + +-- ** textIterGetVisibleText + TextIterGetVisibleTextMethodInfo , + textIterGetVisibleText , + + +-- ** textIterHasTag + TextIterHasTagMethodInfo , + textIterHasTag , + + +-- ** textIterInRange + TextIterInRangeMethodInfo , + textIterInRange , + + +-- ** textIterInsideSentence + TextIterInsideSentenceMethodInfo , + textIterInsideSentence , + + +-- ** textIterInsideWord + TextIterInsideWordMethodInfo , + textIterInsideWord , + + +-- ** textIterIsCursorPosition + TextIterIsCursorPositionMethodInfo , + textIterIsCursorPosition , + + +-- ** textIterIsEnd + TextIterIsEndMethodInfo , + textIterIsEnd , + + +-- ** textIterIsStart + TextIterIsStartMethodInfo , + textIterIsStart , + + +-- ** textIterOrder + TextIterOrderMethodInfo , + textIterOrder , + + +-- ** textIterSetLine + TextIterSetLineMethodInfo , + textIterSetLine , + + +-- ** textIterSetLineIndex + TextIterSetLineIndexMethodInfo , + textIterSetLineIndex , + + +-- ** textIterSetLineOffset + TextIterSetLineOffsetMethodInfo , + textIterSetLineOffset , + + +-- ** textIterSetOffset + TextIterSetOffsetMethodInfo , + textIterSetOffset , + + +-- ** textIterSetVisibleLineIndex + TextIterSetVisibleLineIndexMethodInfo , + textIterSetVisibleLineIndex , + + +-- ** textIterSetVisibleLineOffset + TextIterSetVisibleLineOffsetMethodInfo , + textIterSetVisibleLineOffset , + + +-- ** textIterStartsLine + TextIterStartsLineMethodInfo , + textIterStartsLine , + + +-- ** textIterStartsSentence + TextIterStartsSentenceMethodInfo , + textIterStartsSentence , + + +-- ** textIterStartsWord + TextIterStartsWordMethodInfo , + textIterStartsWord , + + +-- ** textIterTogglesTag + TextIterTogglesTagMethodInfo , + textIterTogglesTag , + + + + + ) 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.GdkPixbuf as GdkPixbuf +import qualified GI.Pango as Pango + +newtype TextIter = TextIter (ForeignPtr TextIter) +foreign import ccall "gtk_text_iter_get_type" c_gtk_text_iter_get_type :: + IO GType + +instance BoxedObject TextIter where + boxedType _ = c_gtk_text_iter_get_type + +-- | Construct a `TextIter` struct initialized to zero. +newZeroTextIter :: MonadIO m => m TextIter +newZeroTextIter = liftIO $ callocBoxedBytes 80 >>= wrapBoxed TextIter + +noTextIter :: Maybe TextIter +noTextIter = Nothing + +-- method TextIter::assign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_assign" gtk_text_iter_assign :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- other : TInterface "Gtk" "TextIter" + IO () + + +textIterAssign :: + (MonadIO m) => + TextIter -- _obj + -> TextIter -- other + -> m () -- result +textIterAssign _obj other = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let other' = unsafeManagedPtrGetPtr other + gtk_text_iter_assign _obj' other' + touchManagedPtr _obj + touchManagedPtr other + return () + +data TextIterAssignMethodInfo +instance (signature ~ (TextIter -> m ()), MonadIO m) => MethodInfo TextIterAssignMethodInfo TextIter signature where + overloadedMethod _ = textIterAssign + +-- method TextIter::backward_char +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_char" gtk_text_iter_backward_char :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterBackwardChar :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterBackwardChar _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_char _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardCharMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardCharMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardChar + +-- method TextIter::backward_chars +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_chars" gtk_text_iter_backward_chars :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterBackwardChars :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterBackwardChars _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_chars _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardCharsMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardCharsMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardChars + +-- method TextIter::backward_cursor_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_cursor_position" gtk_text_iter_backward_cursor_position :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterBackwardCursorPosition :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterBackwardCursorPosition _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_cursor_position _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardCursorPositionMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardCursorPositionMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardCursorPosition + +-- method TextIter::backward_cursor_positions +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_cursor_positions" gtk_text_iter_backward_cursor_positions :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterBackwardCursorPositions :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterBackwardCursorPositions _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_cursor_positions _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardCursorPositionsMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardCursorPositionsMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardCursorPositions + +-- method TextIter::backward_find_char +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_find_char" gtk_text_iter_backward_find_char :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + FunPtr TextCharPredicateC -> -- pred : TInterface "Gtk" "TextCharPredicate" + Ptr () -> -- user_data : TBasicType TVoid + Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" + IO CInt + + +textIterBackwardFindChar :: + (MonadIO m) => + TextIter -- _obj + -> TextCharPredicate -- pred + -> Maybe (TextIter) -- limit + -> m Bool -- result +textIterBackwardFindChar _obj pred limit = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + pred' <- mkTextCharPredicate (textCharPredicateWrapper Nothing pred) + maybeLimit <- case limit of + Nothing -> return nullPtr + Just jLimit -> do + let jLimit' = unsafeManagedPtrGetPtr jLimit + return jLimit' + let userData = nullPtr + result <- gtk_text_iter_backward_find_char _obj' pred' userData maybeLimit + let result' = (/= 0) result + safeFreeFunPtr $ castFunPtrToPtr pred' + touchManagedPtr _obj + whenJust limit touchManagedPtr + return result' + +data TextIterBackwardFindCharMethodInfo +instance (signature ~ (TextCharPredicate -> Maybe (TextIter) -> m Bool), MonadIO m) => MethodInfo TextIterBackwardFindCharMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardFindChar + +-- method TextIter::backward_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_line" gtk_text_iter_backward_line :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterBackwardLine :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterBackwardLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_line _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardLineMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardLineMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardLine + +-- method TextIter::backward_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_lines" gtk_text_iter_backward_lines :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterBackwardLines :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterBackwardLines _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_lines _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardLinesMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardLinesMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardLines + +-- method TextIter::backward_search +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_search" gtk_text_iter_backward_search :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + CString -> -- str : TBasicType TUTF8 + CUInt -> -- flags : TInterface "Gtk" "TextSearchFlags" + Ptr TextIter -> -- match_start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- match_end : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" + IO CInt + + +textIterBackwardSearch :: + (MonadIO m) => + TextIter -- _obj + -> T.Text -- str + -> [TextSearchFlags] -- flags + -> Maybe (TextIter) -- limit + -> m (Bool,TextIter,TextIter) -- result +textIterBackwardSearch _obj str flags limit = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + str' <- textToCString str + let flags' = gflagsToWord flags + matchStart <- callocBoxedBytes 80 :: IO (Ptr TextIter) + matchEnd <- callocBoxedBytes 80 :: IO (Ptr TextIter) + maybeLimit <- case limit of + Nothing -> return nullPtr + Just jLimit -> do + let jLimit' = unsafeManagedPtrGetPtr jLimit + return jLimit' + result <- gtk_text_iter_backward_search _obj' str' flags' matchStart matchEnd maybeLimit + let result' = (/= 0) result + matchStart' <- (wrapBoxed TextIter) matchStart + matchEnd' <- (wrapBoxed TextIter) matchEnd + touchManagedPtr _obj + whenJust limit touchManagedPtr + freeMem str' + return (result', matchStart', matchEnd') + +data TextIterBackwardSearchMethodInfo +instance (signature ~ (T.Text -> [TextSearchFlags] -> Maybe (TextIter) -> m (Bool,TextIter,TextIter)), MonadIO m) => MethodInfo TextIterBackwardSearchMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardSearch + +-- method TextIter::backward_sentence_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_sentence_start" gtk_text_iter_backward_sentence_start :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterBackwardSentenceStart :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterBackwardSentenceStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_sentence_start _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardSentenceStartMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardSentenceStartMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardSentenceStart + +-- method TextIter::backward_sentence_starts +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_sentence_starts" gtk_text_iter_backward_sentence_starts :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterBackwardSentenceStarts :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterBackwardSentenceStarts _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_sentence_starts _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardSentenceStartsMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardSentenceStartsMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardSentenceStarts + +-- method TextIter::backward_to_tag_toggle +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_to_tag_toggle" gtk_text_iter_backward_to_tag_toggle :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" + IO CInt + + +textIterBackwardToTagToggle :: + (MonadIO m, TextTagK a) => + TextIter -- _obj + -> Maybe (a) -- tag + -> m Bool -- result +textIterBackwardToTagToggle _obj tag = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeTag <- case tag of + Nothing -> return nullPtr + Just jTag -> do + let jTag' = unsafeManagedPtrCastPtr jTag + return jTag' + result <- gtk_text_iter_backward_to_tag_toggle _obj' maybeTag + let result' = (/= 0) result + touchManagedPtr _obj + whenJust tag touchManagedPtr + return result' + +data TextIterBackwardToTagToggleMethodInfo +instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, TextTagK a) => MethodInfo TextIterBackwardToTagToggleMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardToTagToggle + +-- method TextIter::backward_visible_cursor_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_visible_cursor_position" gtk_text_iter_backward_visible_cursor_position :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterBackwardVisibleCursorPosition :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterBackwardVisibleCursorPosition _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_visible_cursor_position _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardVisibleCursorPositionMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardVisibleCursorPositionMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardVisibleCursorPosition + +-- method TextIter::backward_visible_cursor_positions +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_visible_cursor_positions" gtk_text_iter_backward_visible_cursor_positions :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterBackwardVisibleCursorPositions :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterBackwardVisibleCursorPositions _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_visible_cursor_positions _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardVisibleCursorPositionsMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardVisibleCursorPositionsMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardVisibleCursorPositions + +-- method TextIter::backward_visible_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_visible_line" gtk_text_iter_backward_visible_line :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterBackwardVisibleLine :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterBackwardVisibleLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_visible_line _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardVisibleLineMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardVisibleLineMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardVisibleLine + +-- method TextIter::backward_visible_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_visible_lines" gtk_text_iter_backward_visible_lines :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterBackwardVisibleLines :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterBackwardVisibleLines _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_visible_lines _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardVisibleLinesMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardVisibleLinesMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardVisibleLines + +-- method TextIter::backward_visible_word_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_visible_word_start" gtk_text_iter_backward_visible_word_start :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterBackwardVisibleWordStart :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterBackwardVisibleWordStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_visible_word_start _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardVisibleWordStartMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardVisibleWordStartMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardVisibleWordStart + +-- method TextIter::backward_visible_word_starts +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_visible_word_starts" gtk_text_iter_backward_visible_word_starts :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterBackwardVisibleWordStarts :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterBackwardVisibleWordStarts _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_visible_word_starts _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardVisibleWordStartsMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardVisibleWordStartsMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardVisibleWordStarts + +-- method TextIter::backward_word_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_word_start" gtk_text_iter_backward_word_start :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterBackwardWordStart :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterBackwardWordStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_word_start _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardWordStartMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterBackwardWordStartMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardWordStart + +-- method TextIter::backward_word_starts +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_backward_word_starts" gtk_text_iter_backward_word_starts :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterBackwardWordStarts :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterBackwardWordStarts _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_backward_word_starts _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterBackwardWordStartsMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterBackwardWordStartsMethodInfo TextIter signature where + overloadedMethod _ = textIterBackwardWordStarts + +-- method TextIter::begins_tag +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_begins_tag" gtk_text_iter_begins_tag :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" + IO CInt + + +textIterBeginsTag :: + (MonadIO m, TextTagK a) => + TextIter -- _obj + -> Maybe (a) -- tag + -> m Bool -- result +textIterBeginsTag _obj tag = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeTag <- case tag of + Nothing -> return nullPtr + Just jTag -> do + let jTag' = unsafeManagedPtrCastPtr jTag + return jTag' + result <- gtk_text_iter_begins_tag _obj' maybeTag + let result' = (/= 0) result + touchManagedPtr _obj + whenJust tag touchManagedPtr + return result' + +data TextIterBeginsTagMethodInfo +instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, TextTagK a) => MethodInfo TextIterBeginsTagMethodInfo TextIter signature where + overloadedMethod _ = textIterBeginsTag + +-- method TextIter::can_insert +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editability", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_can_insert" gtk_text_iter_can_insert :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + CInt -> -- default_editability : TBasicType TBoolean + IO CInt + + +textIterCanInsert :: + (MonadIO m) => + TextIter -- _obj + -> Bool -- defaultEditability + -> m Bool -- result +textIterCanInsert _obj defaultEditability = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let defaultEditability' = (fromIntegral . fromEnum) defaultEditability + result <- gtk_text_iter_can_insert _obj' defaultEditability' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterCanInsertMethodInfo +instance (signature ~ (Bool -> m Bool), MonadIO m) => MethodInfo TextIterCanInsertMethodInfo TextIter signature where + overloadedMethod _ = textIterCanInsert + +-- method TextIter::compare +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_compare" gtk_text_iter_compare :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- rhs : TInterface "Gtk" "TextIter" + IO Int32 + + +textIterCompare :: + (MonadIO m) => + TextIter -- _obj + -> TextIter -- rhs + -> m Int32 -- result +textIterCompare _obj rhs = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let rhs' = unsafeManagedPtrGetPtr rhs + result <- gtk_text_iter_compare _obj' rhs' + touchManagedPtr _obj + touchManagedPtr rhs + return result + +data TextIterCompareMethodInfo +instance (signature ~ (TextIter -> m Int32), MonadIO m) => MethodInfo TextIterCompareMethodInfo TextIter signature where + overloadedMethod _ = textIterCompare + +-- method TextIter::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextIter" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_copy" gtk_text_iter_copy :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO (Ptr TextIter) + + +textIterCopy :: + (MonadIO m) => + TextIter -- _obj + -> m TextIter -- result +textIterCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_copy _obj' + checkUnexpectedReturnNULL "gtk_text_iter_copy" result + result' <- (wrapBoxed TextIter) result + touchManagedPtr _obj + return result' + +data TextIterCopyMethodInfo +instance (signature ~ (m TextIter), MonadIO m) => MethodInfo TextIterCopyMethodInfo TextIter signature where + overloadedMethod _ = textIterCopy + +-- method TextIter::editable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_editable" gtk_text_iter_editable :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + CInt -> -- default_setting : TBasicType TBoolean + IO CInt + + +textIterEditable :: + (MonadIO m) => + TextIter -- _obj + -> Bool -- defaultSetting + -> m Bool -- result +textIterEditable _obj defaultSetting = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let defaultSetting' = (fromIntegral . fromEnum) defaultSetting + result <- gtk_text_iter_editable _obj' defaultSetting' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterEditableMethodInfo +instance (signature ~ (Bool -> m Bool), MonadIO m) => MethodInfo TextIterEditableMethodInfo TextIter signature where + overloadedMethod _ = textIterEditable + +-- method TextIter::ends_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_ends_line" gtk_text_iter_ends_line :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterEndsLine :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterEndsLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_ends_line _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterEndsLineMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterEndsLineMethodInfo TextIter signature where + overloadedMethod _ = textIterEndsLine + +-- method TextIter::ends_sentence +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_ends_sentence" gtk_text_iter_ends_sentence :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterEndsSentence :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterEndsSentence _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_ends_sentence _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterEndsSentenceMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterEndsSentenceMethodInfo TextIter signature where + overloadedMethod _ = textIterEndsSentence + +-- method TextIter::ends_tag +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_ends_tag" gtk_text_iter_ends_tag :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" + IO CInt + + +textIterEndsTag :: + (MonadIO m, TextTagK a) => + TextIter -- _obj + -> Maybe (a) -- tag + -> m Bool -- result +textIterEndsTag _obj tag = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeTag <- case tag of + Nothing -> return nullPtr + Just jTag -> do + let jTag' = unsafeManagedPtrCastPtr jTag + return jTag' + result <- gtk_text_iter_ends_tag _obj' maybeTag + let result' = (/= 0) result + touchManagedPtr _obj + whenJust tag touchManagedPtr + return result' + +data TextIterEndsTagMethodInfo +instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, TextTagK a) => MethodInfo TextIterEndsTagMethodInfo TextIter signature where + overloadedMethod _ = textIterEndsTag + +-- method TextIter::ends_word +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_ends_word" gtk_text_iter_ends_word :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterEndsWord :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterEndsWord _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_ends_word _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterEndsWordMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterEndsWordMethodInfo TextIter signature where + overloadedMethod _ = textIterEndsWord + +-- method TextIter::equal +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_equal" gtk_text_iter_equal :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- rhs : TInterface "Gtk" "TextIter" + IO CInt + + +textIterEqual :: + (MonadIO m) => + TextIter -- _obj + -> TextIter -- rhs + -> m Bool -- result +textIterEqual _obj rhs = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let rhs' = unsafeManagedPtrGetPtr rhs + result <- gtk_text_iter_equal _obj' rhs' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr rhs + return result' + +data TextIterEqualMethodInfo +instance (signature ~ (TextIter -> m Bool), MonadIO m) => MethodInfo TextIterEqualMethodInfo TextIter signature where + overloadedMethod _ = textIterEqual + +-- method TextIter::forward_char +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_char" gtk_text_iter_forward_char :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterForwardChar :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterForwardChar _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_char _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardCharMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardCharMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardChar + +-- method TextIter::forward_chars +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_chars" gtk_text_iter_forward_chars :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterForwardChars :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterForwardChars _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_chars _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardCharsMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardCharsMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardChars + +-- method TextIter::forward_cursor_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_cursor_position" gtk_text_iter_forward_cursor_position :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterForwardCursorPosition :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterForwardCursorPosition _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_cursor_position _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardCursorPositionMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardCursorPositionMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardCursorPosition + +-- method TextIter::forward_cursor_positions +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_cursor_positions" gtk_text_iter_forward_cursor_positions :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterForwardCursorPositions :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterForwardCursorPositions _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_cursor_positions _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardCursorPositionsMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardCursorPositionsMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardCursorPositions + +-- method TextIter::forward_find_char +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_find_char" gtk_text_iter_forward_find_char :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + FunPtr TextCharPredicateC -> -- pred : TInterface "Gtk" "TextCharPredicate" + Ptr () -> -- user_data : TBasicType TVoid + Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" + IO CInt + + +textIterForwardFindChar :: + (MonadIO m) => + TextIter -- _obj + -> TextCharPredicate -- pred + -> Maybe (TextIter) -- limit + -> m Bool -- result +textIterForwardFindChar _obj pred limit = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + pred' <- mkTextCharPredicate (textCharPredicateWrapper Nothing pred) + maybeLimit <- case limit of + Nothing -> return nullPtr + Just jLimit -> do + let jLimit' = unsafeManagedPtrGetPtr jLimit + return jLimit' + let userData = nullPtr + result <- gtk_text_iter_forward_find_char _obj' pred' userData maybeLimit + let result' = (/= 0) result + safeFreeFunPtr $ castFunPtrToPtr pred' + touchManagedPtr _obj + whenJust limit touchManagedPtr + return result' + +data TextIterForwardFindCharMethodInfo +instance (signature ~ (TextCharPredicate -> Maybe (TextIter) -> m Bool), MonadIO m) => MethodInfo TextIterForwardFindCharMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardFindChar + +-- method TextIter::forward_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_line" gtk_text_iter_forward_line :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterForwardLine :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterForwardLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_line _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardLineMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardLineMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardLine + +-- method TextIter::forward_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_lines" gtk_text_iter_forward_lines :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterForwardLines :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterForwardLines _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_lines _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardLinesMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardLinesMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardLines + +-- method TextIter::forward_search +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_search" gtk_text_iter_forward_search :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + CString -> -- str : TBasicType TUTF8 + CUInt -> -- flags : TInterface "Gtk" "TextSearchFlags" + Ptr TextIter -> -- match_start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- match_end : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" + IO CInt + + +textIterForwardSearch :: + (MonadIO m) => + TextIter -- _obj + -> T.Text -- str + -> [TextSearchFlags] -- flags + -> Maybe (TextIter) -- limit + -> m (Bool,TextIter,TextIter) -- result +textIterForwardSearch _obj str flags limit = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + str' <- textToCString str + let flags' = gflagsToWord flags + matchStart <- callocBoxedBytes 80 :: IO (Ptr TextIter) + matchEnd <- callocBoxedBytes 80 :: IO (Ptr TextIter) + maybeLimit <- case limit of + Nothing -> return nullPtr + Just jLimit -> do + let jLimit' = unsafeManagedPtrGetPtr jLimit + return jLimit' + result <- gtk_text_iter_forward_search _obj' str' flags' matchStart matchEnd maybeLimit + let result' = (/= 0) result + matchStart' <- (wrapBoxed TextIter) matchStart + matchEnd' <- (wrapBoxed TextIter) matchEnd + touchManagedPtr _obj + whenJust limit touchManagedPtr + freeMem str' + return (result', matchStart', matchEnd') + +data TextIterForwardSearchMethodInfo +instance (signature ~ (T.Text -> [TextSearchFlags] -> Maybe (TextIter) -> m (Bool,TextIter,TextIter)), MonadIO m) => MethodInfo TextIterForwardSearchMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardSearch + +-- method TextIter::forward_sentence_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_sentence_end" gtk_text_iter_forward_sentence_end :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterForwardSentenceEnd :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterForwardSentenceEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_sentence_end _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardSentenceEndMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardSentenceEndMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardSentenceEnd + +-- method TextIter::forward_sentence_ends +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_sentence_ends" gtk_text_iter_forward_sentence_ends :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterForwardSentenceEnds :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterForwardSentenceEnds _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_sentence_ends _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardSentenceEndsMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardSentenceEndsMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardSentenceEnds + +-- method TextIter::forward_to_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_to_end" gtk_text_iter_forward_to_end :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO () + + +textIterForwardToEnd :: + (MonadIO m) => + TextIter -- _obj + -> m () -- result +textIterForwardToEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + gtk_text_iter_forward_to_end _obj' + touchManagedPtr _obj + return () + +data TextIterForwardToEndMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo TextIterForwardToEndMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardToEnd + +-- method TextIter::forward_to_line_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_to_line_end" gtk_text_iter_forward_to_line_end :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterForwardToLineEnd :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterForwardToLineEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_to_line_end _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardToLineEndMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardToLineEndMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardToLineEnd + +-- method TextIter::forward_to_tag_toggle +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_to_tag_toggle" gtk_text_iter_forward_to_tag_toggle :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" + IO CInt + + +textIterForwardToTagToggle :: + (MonadIO m, TextTagK a) => + TextIter -- _obj + -> Maybe (a) -- tag + -> m Bool -- result +textIterForwardToTagToggle _obj tag = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeTag <- case tag of + Nothing -> return nullPtr + Just jTag -> do + let jTag' = unsafeManagedPtrCastPtr jTag + return jTag' + result <- gtk_text_iter_forward_to_tag_toggle _obj' maybeTag + let result' = (/= 0) result + touchManagedPtr _obj + whenJust tag touchManagedPtr + return result' + +data TextIterForwardToTagToggleMethodInfo +instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, TextTagK a) => MethodInfo TextIterForwardToTagToggleMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardToTagToggle + +-- method TextIter::forward_visible_cursor_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_visible_cursor_position" gtk_text_iter_forward_visible_cursor_position :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterForwardVisibleCursorPosition :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterForwardVisibleCursorPosition _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_visible_cursor_position _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardVisibleCursorPositionMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardVisibleCursorPositionMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardVisibleCursorPosition + +-- method TextIter::forward_visible_cursor_positions +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_visible_cursor_positions" gtk_text_iter_forward_visible_cursor_positions :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterForwardVisibleCursorPositions :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterForwardVisibleCursorPositions _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_visible_cursor_positions _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardVisibleCursorPositionsMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardVisibleCursorPositionsMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardVisibleCursorPositions + +-- method TextIter::forward_visible_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_visible_line" gtk_text_iter_forward_visible_line :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterForwardVisibleLine :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterForwardVisibleLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_visible_line _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardVisibleLineMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardVisibleLineMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardVisibleLine + +-- method TextIter::forward_visible_lines +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_visible_lines" gtk_text_iter_forward_visible_lines :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterForwardVisibleLines :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterForwardVisibleLines _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_visible_lines _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardVisibleLinesMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardVisibleLinesMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardVisibleLines + +-- method TextIter::forward_visible_word_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_visible_word_end" gtk_text_iter_forward_visible_word_end :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterForwardVisibleWordEnd :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterForwardVisibleWordEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_visible_word_end _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardVisibleWordEndMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardVisibleWordEndMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardVisibleWordEnd + +-- method TextIter::forward_visible_word_ends +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_visible_word_ends" gtk_text_iter_forward_visible_word_ends :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterForwardVisibleWordEnds :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterForwardVisibleWordEnds _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_visible_word_ends _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardVisibleWordEndsMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardVisibleWordEndsMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardVisibleWordEnds + +-- method TextIter::forward_word_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_word_end" gtk_text_iter_forward_word_end :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterForwardWordEnd :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterForwardWordEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_word_end _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardWordEndMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterForwardWordEndMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardWordEnd + +-- method TextIter::forward_word_ends +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_forward_word_ends" gtk_text_iter_forward_word_ends :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- count : TBasicType TInt32 + IO CInt + + +textIterForwardWordEnds :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- count + -> m Bool -- result +textIterForwardWordEnds _obj count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_forward_word_ends _obj' count + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterForwardWordEndsMethodInfo +instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TextIterForwardWordEndsMethodInfo TextIter signature where + overloadedMethod _ = textIterForwardWordEnds + +-- method TextIter::free +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_free" gtk_text_iter_free :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO () + + +textIterFree :: + (MonadIO m) => + TextIter -- _obj + -> m () -- result +textIterFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + gtk_text_iter_free _obj' + touchManagedPtr _obj + return () + +data TextIterFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo TextIterFreeMethodInfo TextIter signature where + overloadedMethod _ = textIterFree + +-- method TextIter::get_attributes +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TInterface "Gtk" "TextAttributes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_attributes" gtk_text_iter_get_attributes :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextAttributes -> -- values : TInterface "Gtk" "TextAttributes" + IO CInt + + +textIterGetAttributes :: + (MonadIO m) => + TextIter -- _obj + -> m (Bool,TextAttributes) -- result +textIterGetAttributes _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + values <- callocBoxedBytes 168 :: IO (Ptr TextAttributes) + result <- gtk_text_iter_get_attributes _obj' values + let result' = (/= 0) result + values' <- (wrapBoxed TextAttributes) values + touchManagedPtr _obj + return (result', values') + +data TextIterGetAttributesMethodInfo +instance (signature ~ (m (Bool,TextAttributes)), MonadIO m) => MethodInfo TextIterGetAttributesMethodInfo TextIter signature where + overloadedMethod _ = textIterGetAttributes + +-- method TextIter::get_buffer +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextBuffer" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_buffer" gtk_text_iter_get_buffer :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO (Ptr TextBuffer) + + +textIterGetBuffer :: + (MonadIO m) => + TextIter -- _obj + -> m TextBuffer -- result +textIterGetBuffer _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_buffer _obj' + checkUnexpectedReturnNULL "gtk_text_iter_get_buffer" result + result' <- (newObject TextBuffer) result + touchManagedPtr _obj + return result' + +data TextIterGetBufferMethodInfo +instance (signature ~ (m TextBuffer), MonadIO m) => MethodInfo TextIterGetBufferMethodInfo TextIter signature where + overloadedMethod _ = textIterGetBuffer + +-- method TextIter::get_bytes_in_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_bytes_in_line" gtk_text_iter_get_bytes_in_line :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO Int32 + + +textIterGetBytesInLine :: + (MonadIO m) => + TextIter -- _obj + -> m Int32 -- result +textIterGetBytesInLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_bytes_in_line _obj' + touchManagedPtr _obj + return result + +data TextIterGetBytesInLineMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetBytesInLineMethodInfo TextIter signature where + overloadedMethod _ = textIterGetBytesInLine + +-- method TextIter::get_char +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUniChar +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_char" gtk_text_iter_get_char :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterGetChar :: + (MonadIO m) => + TextIter -- _obj + -> m Char -- result +textIterGetChar _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_char _obj' + let result' = (chr . fromIntegral) result + touchManagedPtr _obj + return result' + +data TextIterGetCharMethodInfo +instance (signature ~ (m Char), MonadIO m) => MethodInfo TextIterGetCharMethodInfo TextIter signature where + overloadedMethod _ = textIterGetChar + +-- method TextIter::get_chars_in_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_chars_in_line" gtk_text_iter_get_chars_in_line :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO Int32 + + +textIterGetCharsInLine :: + (MonadIO m) => + TextIter -- _obj + -> m Int32 -- result +textIterGetCharsInLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_chars_in_line _obj' + touchManagedPtr _obj + return result + +data TextIterGetCharsInLineMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetCharsInLineMethodInfo TextIter signature where + overloadedMethod _ = textIterGetCharsInLine + +-- method TextIter::get_child_anchor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gtk" "TextChildAnchor" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_child_anchor" gtk_text_iter_get_child_anchor :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO (Ptr TextChildAnchor) + + +textIterGetChildAnchor :: + (MonadIO m) => + TextIter -- _obj + -> m TextChildAnchor -- result +textIterGetChildAnchor _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_child_anchor _obj' + checkUnexpectedReturnNULL "gtk_text_iter_get_child_anchor" result + result' <- (newObject TextChildAnchor) result + touchManagedPtr _obj + return result' + +data TextIterGetChildAnchorMethodInfo +instance (signature ~ (m TextChildAnchor), MonadIO m) => MethodInfo TextIterGetChildAnchorMethodInfo TextIter signature where + overloadedMethod _ = textIterGetChildAnchor + +-- method TextIter::get_language +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Pango" "Language" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_language" gtk_text_iter_get_language :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO (Ptr Pango.Language) + + +textIterGetLanguage :: + (MonadIO m) => + TextIter -- _obj + -> m Pango.Language -- result +textIterGetLanguage _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_language _obj' + checkUnexpectedReturnNULL "gtk_text_iter_get_language" result + result' <- (wrapBoxed Pango.Language) result + touchManagedPtr _obj + return result' + +data TextIterGetLanguageMethodInfo +instance (signature ~ (m Pango.Language), MonadIO m) => MethodInfo TextIterGetLanguageMethodInfo TextIter signature where + overloadedMethod _ = textIterGetLanguage + +-- method TextIter::get_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_line" gtk_text_iter_get_line :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO Int32 + + +textIterGetLine :: + (MonadIO m) => + TextIter -- _obj + -> m Int32 -- result +textIterGetLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_line _obj' + touchManagedPtr _obj + return result + +data TextIterGetLineMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetLineMethodInfo TextIter signature where + overloadedMethod _ = textIterGetLine + +-- method TextIter::get_line_index +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_line_index" gtk_text_iter_get_line_index :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO Int32 + + +textIterGetLineIndex :: + (MonadIO m) => + TextIter -- _obj + -> m Int32 -- result +textIterGetLineIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_line_index _obj' + touchManagedPtr _obj + return result + +data TextIterGetLineIndexMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetLineIndexMethodInfo TextIter signature where + overloadedMethod _ = textIterGetLineIndex + +-- method TextIter::get_line_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_line_offset" gtk_text_iter_get_line_offset :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO Int32 + + +textIterGetLineOffset :: + (MonadIO m) => + TextIter -- _obj + -> m Int32 -- result +textIterGetLineOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_line_offset _obj' + touchManagedPtr _obj + return result + +data TextIterGetLineOffsetMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetLineOffsetMethodInfo TextIter signature where + overloadedMethod _ = textIterGetLineOffset + +-- method TextIter::get_marks +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGSList (TInterface "Gtk" "TextMark") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_marks" gtk_text_iter_get_marks :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO (Ptr (GSList (Ptr TextMark))) + + +textIterGetMarks :: + (MonadIO m) => + TextIter -- _obj + -> m [TextMark] -- result +textIterGetMarks _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_marks _obj' + checkUnexpectedReturnNULL "gtk_text_iter_get_marks" result + result' <- unpackGSList result + result'' <- mapM (newObject TextMark) result' + g_slist_free result + touchManagedPtr _obj + return result'' + +data TextIterGetMarksMethodInfo +instance (signature ~ (m [TextMark]), MonadIO m) => MethodInfo TextIterGetMarksMethodInfo TextIter signature where + overloadedMethod _ = textIterGetMarks + +-- method TextIter::get_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_offset" gtk_text_iter_get_offset :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO Int32 + + +textIterGetOffset :: + (MonadIO m) => + TextIter -- _obj + -> m Int32 -- result +textIterGetOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_offset _obj' + touchManagedPtr _obj + return result + +data TextIterGetOffsetMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetOffsetMethodInfo TextIter signature where + overloadedMethod _ = textIterGetOffset + +-- method TextIter::get_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_pixbuf" gtk_text_iter_get_pixbuf :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO (Ptr GdkPixbuf.Pixbuf) + + +textIterGetPixbuf :: + (MonadIO m) => + TextIter -- _obj + -> m GdkPixbuf.Pixbuf -- result +textIterGetPixbuf _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_pixbuf _obj' + checkUnexpectedReturnNULL "gtk_text_iter_get_pixbuf" result + result' <- (newObject GdkPixbuf.Pixbuf) result + touchManagedPtr _obj + return result' + +data TextIterGetPixbufMethodInfo +instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m) => MethodInfo TextIterGetPixbufMethodInfo TextIter signature where + overloadedMethod _ = textIterGetPixbuf + +-- method TextIter::get_slice +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_slice" gtk_text_iter_get_slice :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO CString + + +textIterGetSlice :: + (MonadIO m) => + TextIter -- _obj + -> TextIter -- end + -> m T.Text -- result +textIterGetSlice _obj end = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let end' = unsafeManagedPtrGetPtr end + result <- gtk_text_iter_get_slice _obj' end' + checkUnexpectedReturnNULL "gtk_text_iter_get_slice" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + touchManagedPtr end + return result' + +data TextIterGetSliceMethodInfo +instance (signature ~ (TextIter -> m T.Text), MonadIO m) => MethodInfo TextIterGetSliceMethodInfo TextIter signature where + overloadedMethod _ = textIterGetSlice + +-- method TextIter::get_tags +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGSList (TInterface "Gtk" "TextTag") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_tags" gtk_text_iter_get_tags :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO (Ptr (GSList (Ptr TextTag))) + + +textIterGetTags :: + (MonadIO m) => + TextIter -- _obj + -> m [TextTag] -- result +textIterGetTags _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_tags _obj' + checkUnexpectedReturnNULL "gtk_text_iter_get_tags" result + result' <- unpackGSList result + result'' <- mapM (newObject TextTag) result' + g_slist_free result + touchManagedPtr _obj + return result'' + +data TextIterGetTagsMethodInfo +instance (signature ~ (m [TextTag]), MonadIO m) => MethodInfo TextIterGetTagsMethodInfo TextIter signature where + overloadedMethod _ = textIterGetTags + +-- method TextIter::get_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_text" gtk_text_iter_get_text :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO CString + + +textIterGetText :: + (MonadIO m) => + TextIter -- _obj + -> TextIter -- end + -> m T.Text -- result +textIterGetText _obj end = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let end' = unsafeManagedPtrGetPtr end + result <- gtk_text_iter_get_text _obj' end' + checkUnexpectedReturnNULL "gtk_text_iter_get_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + touchManagedPtr end + return result' + +data TextIterGetTextMethodInfo +instance (signature ~ (TextIter -> m T.Text), MonadIO m) => MethodInfo TextIterGetTextMethodInfo TextIter signature where + overloadedMethod _ = textIterGetText + +-- method TextIter::get_toggled_tags +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "toggled_on", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TGSList (TInterface "Gtk" "TextTag") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_toggled_tags" gtk_text_iter_get_toggled_tags :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + CInt -> -- toggled_on : TBasicType TBoolean + IO (Ptr (GSList (Ptr TextTag))) + + +textIterGetToggledTags :: + (MonadIO m) => + TextIter -- _obj + -> Bool -- toggledOn + -> m [TextTag] -- result +textIterGetToggledTags _obj toggledOn = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let toggledOn' = (fromIntegral . fromEnum) toggledOn + result <- gtk_text_iter_get_toggled_tags _obj' toggledOn' + checkUnexpectedReturnNULL "gtk_text_iter_get_toggled_tags" result + result' <- unpackGSList result + result'' <- mapM (newObject TextTag) result' + g_slist_free result + touchManagedPtr _obj + return result'' + +data TextIterGetToggledTagsMethodInfo +instance (signature ~ (Bool -> m [TextTag]), MonadIO m) => MethodInfo TextIterGetToggledTagsMethodInfo TextIter signature where + overloadedMethod _ = textIterGetToggledTags + +-- method TextIter::get_visible_line_index +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_visible_line_index" gtk_text_iter_get_visible_line_index :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO Int32 + + +textIterGetVisibleLineIndex :: + (MonadIO m) => + TextIter -- _obj + -> m Int32 -- result +textIterGetVisibleLineIndex _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_visible_line_index _obj' + touchManagedPtr _obj + return result + +data TextIterGetVisibleLineIndexMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetVisibleLineIndexMethodInfo TextIter signature where + overloadedMethod _ = textIterGetVisibleLineIndex + +-- method TextIter::get_visible_line_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_visible_line_offset" gtk_text_iter_get_visible_line_offset :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO Int32 + + +textIterGetVisibleLineOffset :: + (MonadIO m) => + TextIter -- _obj + -> m Int32 -- result +textIterGetVisibleLineOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_get_visible_line_offset _obj' + touchManagedPtr _obj + return result + +data TextIterGetVisibleLineOffsetMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo TextIterGetVisibleLineOffsetMethodInfo TextIter signature where + overloadedMethod _ = textIterGetVisibleLineOffset + +-- method TextIter::get_visible_slice +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_visible_slice" gtk_text_iter_get_visible_slice :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO CString + + +textIterGetVisibleSlice :: + (MonadIO m) => + TextIter -- _obj + -> TextIter -- end + -> m T.Text -- result +textIterGetVisibleSlice _obj end = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let end' = unsafeManagedPtrGetPtr end + result <- gtk_text_iter_get_visible_slice _obj' end' + checkUnexpectedReturnNULL "gtk_text_iter_get_visible_slice" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + touchManagedPtr end + return result' + +data TextIterGetVisibleSliceMethodInfo +instance (signature ~ (TextIter -> m T.Text), MonadIO m) => MethodInfo TextIterGetVisibleSliceMethodInfo TextIter signature where + overloadedMethod _ = textIterGetVisibleSlice + +-- method TextIter::get_visible_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_get_visible_text" gtk_text_iter_get_visible_text :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO CString + + +textIterGetVisibleText :: + (MonadIO m) => + TextIter -- _obj + -> TextIter -- end + -> m T.Text -- result +textIterGetVisibleText _obj end = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let end' = unsafeManagedPtrGetPtr end + result <- gtk_text_iter_get_visible_text _obj' end' + checkUnexpectedReturnNULL "gtk_text_iter_get_visible_text" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + touchManagedPtr end + return result' + +data TextIterGetVisibleTextMethodInfo +instance (signature ~ (TextIter -> m T.Text), MonadIO m) => MethodInfo TextIterGetVisibleTextMethodInfo TextIter signature where + overloadedMethod _ = textIterGetVisibleText + +-- method TextIter::has_tag +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_has_tag" gtk_text_iter_has_tag :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" + IO CInt + + +textIterHasTag :: + (MonadIO m, TextTagK a) => + TextIter -- _obj + -> a -- tag + -> m Bool -- result +textIterHasTag _obj tag = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let tag' = unsafeManagedPtrCastPtr tag + result <- gtk_text_iter_has_tag _obj' tag' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr tag + return result' + +data TextIterHasTagMethodInfo +instance (signature ~ (a -> m Bool), MonadIO m, TextTagK a) => MethodInfo TextIterHasTagMethodInfo TextIter signature where + overloadedMethod _ = textIterHasTag + +-- method TextIter::in_range +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_in_range" gtk_text_iter_in_range :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- start : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- end : TInterface "Gtk" "TextIter" + IO CInt + + +textIterInRange :: + (MonadIO m) => + TextIter -- _obj + -> TextIter -- start + -> TextIter -- end + -> m Bool -- result +textIterInRange _obj start end = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let start' = unsafeManagedPtrGetPtr start + let end' = unsafeManagedPtrGetPtr end + result <- gtk_text_iter_in_range _obj' start' end' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr start + touchManagedPtr end + return result' + +data TextIterInRangeMethodInfo +instance (signature ~ (TextIter -> TextIter -> m Bool), MonadIO m) => MethodInfo TextIterInRangeMethodInfo TextIter signature where + overloadedMethod _ = textIterInRange + +-- method TextIter::inside_sentence +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_inside_sentence" gtk_text_iter_inside_sentence :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterInsideSentence :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterInsideSentence _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_inside_sentence _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterInsideSentenceMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterInsideSentenceMethodInfo TextIter signature where + overloadedMethod _ = textIterInsideSentence + +-- method TextIter::inside_word +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_inside_word" gtk_text_iter_inside_word :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterInsideWord :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterInsideWord _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_inside_word _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterInsideWordMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterInsideWordMethodInfo TextIter signature where + overloadedMethod _ = textIterInsideWord + +-- method TextIter::is_cursor_position +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_is_cursor_position" gtk_text_iter_is_cursor_position :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterIsCursorPosition :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterIsCursorPosition _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_is_cursor_position _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterIsCursorPositionMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterIsCursorPositionMethodInfo TextIter signature where + overloadedMethod _ = textIterIsCursorPosition + +-- method TextIter::is_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_is_end" gtk_text_iter_is_end :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterIsEnd :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterIsEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_is_end _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterIsEndMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterIsEndMethodInfo TextIter signature where + overloadedMethod _ = textIterIsEnd + +-- method TextIter::is_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_is_start" gtk_text_iter_is_start :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterIsStart :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterIsStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_is_start _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterIsStartMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterIsStartMethodInfo TextIter signature where + overloadedMethod _ = textIterIsStart + +-- method TextIter::order +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "second", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_order" gtk_text_iter_order :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextIter -> -- second : TInterface "Gtk" "TextIter" + IO () + + +textIterOrder :: + (MonadIO m) => + TextIter -- _obj + -> TextIter -- second + -> m () -- result +textIterOrder _obj second = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let second' = unsafeManagedPtrGetPtr second + gtk_text_iter_order _obj' second' + touchManagedPtr _obj + touchManagedPtr second + return () + +data TextIterOrderMethodInfo +instance (signature ~ (TextIter -> m ()), MonadIO m) => MethodInfo TextIterOrderMethodInfo TextIter signature where + overloadedMethod _ = textIterOrder + +-- method TextIter::set_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_set_line" gtk_text_iter_set_line :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- line_number : TBasicType TInt32 + IO () + + +textIterSetLine :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- lineNumber + -> m () -- result +textIterSetLine _obj lineNumber = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + gtk_text_iter_set_line _obj' lineNumber + touchManagedPtr _obj + return () + +data TextIterSetLineMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TextIterSetLineMethodInfo TextIter signature where + overloadedMethod _ = textIterSetLine + +-- method TextIter::set_line_index +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_set_line_index" gtk_text_iter_set_line_index :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- byte_on_line : TBasicType TInt32 + IO () + + +textIterSetLineIndex :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- byteOnLine + -> m () -- result +textIterSetLineIndex _obj byteOnLine = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + gtk_text_iter_set_line_index _obj' byteOnLine + touchManagedPtr _obj + return () + +data TextIterSetLineIndexMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TextIterSetLineIndexMethodInfo TextIter signature where + overloadedMethod _ = textIterSetLineIndex + +-- method TextIter::set_line_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_set_line_offset" gtk_text_iter_set_line_offset :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- char_on_line : TBasicType TInt32 + IO () + + +textIterSetLineOffset :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- charOnLine + -> m () -- result +textIterSetLineOffset _obj charOnLine = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + gtk_text_iter_set_line_offset _obj' charOnLine + touchManagedPtr _obj + return () + +data TextIterSetLineOffsetMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TextIterSetLineOffsetMethodInfo TextIter signature where + overloadedMethod _ = textIterSetLineOffset + +-- method TextIter::set_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_set_offset" gtk_text_iter_set_offset :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- char_offset : TBasicType TInt32 + IO () + + +textIterSetOffset :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- charOffset + -> m () -- result +textIterSetOffset _obj charOffset = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + gtk_text_iter_set_offset _obj' charOffset + touchManagedPtr _obj + return () + +data TextIterSetOffsetMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TextIterSetOffsetMethodInfo TextIter signature where + overloadedMethod _ = textIterSetOffset + +-- method TextIter::set_visible_line_index +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_set_visible_line_index" gtk_text_iter_set_visible_line_index :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- byte_on_line : TBasicType TInt32 + IO () + + +textIterSetVisibleLineIndex :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- byteOnLine + -> m () -- result +textIterSetVisibleLineIndex _obj byteOnLine = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + gtk_text_iter_set_visible_line_index _obj' byteOnLine + touchManagedPtr _obj + return () + +data TextIterSetVisibleLineIndexMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TextIterSetVisibleLineIndexMethodInfo TextIter signature where + overloadedMethod _ = textIterSetVisibleLineIndex + +-- method TextIter::set_visible_line_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_set_visible_line_offset" gtk_text_iter_set_visible_line_offset :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Int32 -> -- char_on_line : TBasicType TInt32 + IO () + + +textIterSetVisibleLineOffset :: + (MonadIO m) => + TextIter -- _obj + -> Int32 -- charOnLine + -> m () -- result +textIterSetVisibleLineOffset _obj charOnLine = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + gtk_text_iter_set_visible_line_offset _obj' charOnLine + touchManagedPtr _obj + return () + +data TextIterSetVisibleLineOffsetMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TextIterSetVisibleLineOffsetMethodInfo TextIter signature where + overloadedMethod _ = textIterSetVisibleLineOffset + +-- method TextIter::starts_line +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_starts_line" gtk_text_iter_starts_line :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterStartsLine :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterStartsLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_starts_line _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterStartsLineMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterStartsLineMethodInfo TextIter signature where + overloadedMethod _ = textIterStartsLine + +-- method TextIter::starts_sentence +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_starts_sentence" gtk_text_iter_starts_sentence :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterStartsSentence :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterStartsSentence _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_starts_sentence _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterStartsSentenceMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterStartsSentenceMethodInfo TextIter signature where + overloadedMethod _ = textIterStartsSentence + +-- method TextIter::starts_word +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_starts_word" gtk_text_iter_starts_word :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + IO CInt + + +textIterStartsWord :: + (MonadIO m) => + TextIter -- _obj + -> m Bool -- result +textIterStartsWord _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- gtk_text_iter_starts_word _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data TextIterStartsWordMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextIterStartsWordMethodInfo TextIter signature where + overloadedMethod _ = textIterStartsWord + +-- method TextIter::toggles_tag +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_text_iter_toggles_tag" gtk_text_iter_toggles_tag :: + Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" + Ptr TextTag -> -- tag : TInterface "Gtk" "TextTag" + IO CInt + + +textIterTogglesTag :: + (MonadIO m, TextTagK a) => + TextIter -- _obj + -> Maybe (a) -- tag + -> m Bool -- result +textIterTogglesTag _obj tag = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeTag <- case tag of + Nothing -> return nullPtr + Just jTag -> do + let jTag' = unsafeManagedPtrCastPtr jTag + return jTag' + result <- gtk_text_iter_toggles_tag _obj' maybeTag + let result' = (/= 0) result + touchManagedPtr _obj + whenJust tag touchManagedPtr + return result' + +data TextIterTogglesTagMethodInfo +instance (signature ~ (Maybe (a) -> m Bool), MonadIO m, TextTagK a) => MethodInfo TextIterTogglesTagMethodInfo TextIter signature where + overloadedMethod _ = textIterTogglesTag + +type family ResolveTextIterMethod (t :: Symbol) (o :: *) :: * where + ResolveTextIterMethod "assign" o = TextIterAssignMethodInfo + ResolveTextIterMethod "backwardChar" o = TextIterBackwardCharMethodInfo + ResolveTextIterMethod "backwardChars" o = TextIterBackwardCharsMethodInfo + ResolveTextIterMethod "backwardCursorPosition" o = TextIterBackwardCursorPositionMethodInfo + ResolveTextIterMethod "backwardCursorPositions" o = TextIterBackwardCursorPositionsMethodInfo + ResolveTextIterMethod "backwardFindChar" o = TextIterBackwardFindCharMethodInfo + ResolveTextIterMethod "backwardLine" o = TextIterBackwardLineMethodInfo + ResolveTextIterMethod "backwardLines" o = TextIterBackwardLinesMethodInfo + ResolveTextIterMethod "backwardSearch" o = TextIterBackwardSearchMethodInfo + ResolveTextIterMethod "backwardSentenceStart" o = TextIterBackwardSentenceStartMethodInfo + ResolveTextIterMethod "backwardSentenceStarts" o = TextIterBackwardSentenceStartsMethodInfo + ResolveTextIterMethod "backwardToTagToggle" o = TextIterBackwardToTagToggleMethodInfo + ResolveTextIterMethod "backwardVisibleCursorPosition" o = TextIterBackwardVisibleCursorPositionMethodInfo + ResolveTextIterMethod "backwardVisibleCursorPositions" o = TextIterBackwardVisibleCursorPositionsMethodInfo + ResolveTextIterMethod "backwardVisibleLine" o = TextIterBackwardVisibleLineMethodInfo + ResolveTextIterMethod "backwardVisibleLines" o = TextIterBackwardVisibleLinesMethodInfo + ResolveTextIterMethod "backwardVisibleWordStart" o = TextIterBackwardVisibleWordStartMethodInfo + ResolveTextIterMethod "backwardVisibleWordStarts" o = TextIterBackwardVisibleWordStartsMethodInfo + ResolveTextIterMethod "backwardWordStart" o = TextIterBackwardWordStartMethodInfo + ResolveTextIterMethod "backwardWordStarts" o = TextIterBackwardWordStartsMethodInfo + ResolveTextIterMethod "beginsTag" o = TextIterBeginsTagMethodInfo + ResolveTextIterMethod "canInsert" o = TextIterCanInsertMethodInfo + ResolveTextIterMethod "compare" o = TextIterCompareMethodInfo + ResolveTextIterMethod "copy" o = TextIterCopyMethodInfo + ResolveTextIterMethod "editable" o = TextIterEditableMethodInfo + ResolveTextIterMethod "endsLine" o = TextIterEndsLineMethodInfo + ResolveTextIterMethod "endsSentence" o = TextIterEndsSentenceMethodInfo + ResolveTextIterMethod "endsTag" o = TextIterEndsTagMethodInfo + ResolveTextIterMethod "endsWord" o = TextIterEndsWordMethodInfo + ResolveTextIterMethod "equal" o = TextIterEqualMethodInfo + ResolveTextIterMethod "forwardChar" o = TextIterForwardCharMethodInfo + ResolveTextIterMethod "forwardChars" o = TextIterForwardCharsMethodInfo + ResolveTextIterMethod "forwardCursorPosition" o = TextIterForwardCursorPositionMethodInfo + ResolveTextIterMethod "forwardCursorPositions" o = TextIterForwardCursorPositionsMethodInfo + ResolveTextIterMethod "forwardFindChar" o = TextIterForwardFindCharMethodInfo + ResolveTextIterMethod "forwardLine" o = TextIterForwardLineMethodInfo + ResolveTextIterMethod "forwardLines" o = TextIterForwardLinesMethodInfo + ResolveTextIterMethod "forwardSearch" o = TextIterForwardSearchMethodInfo + ResolveTextIterMethod "forwardSentenceEnd" o = TextIterForwardSentenceEndMethodInfo + ResolveTextIterMethod "forwardSentenceEnds" o = TextIterForwardSentenceEndsMethodInfo + ResolveTextIterMethod "forwardToEnd" o = TextIterForwardToEndMethodInfo + ResolveTextIterMethod "forwardToLineEnd" o = TextIterForwardToLineEndMethodInfo + ResolveTextIterMethod "forwardToTagToggle" o = TextIterForwardToTagToggleMethodInfo + ResolveTextIterMethod "forwardVisibleCursorPosition" o = TextIterForwardVisibleCursorPositionMethodInfo + ResolveTextIterMethod "forwardVisibleCursorPositions" o = TextIterForwardVisibleCursorPositionsMethodInfo + ResolveTextIterMethod "forwardVisibleLine" o = TextIterForwardVisibleLineMethodInfo + ResolveTextIterMethod "forwardVisibleLines" o = TextIterForwardVisibleLinesMethodInfo + ResolveTextIterMethod "forwardVisibleWordEnd" o = TextIterForwardVisibleWordEndMethodInfo + ResolveTextIterMethod "forwardVisibleWordEnds" o = TextIterForwardVisibleWordEndsMethodInfo + ResolveTextIterMethod "forwardWordEnd" o = TextIterForwardWordEndMethodInfo + ResolveTextIterMethod "forwardWordEnds" o = TextIterForwardWordEndsMethodInfo + ResolveTextIterMethod "free" o = TextIterFreeMethodInfo + ResolveTextIterMethod "hasTag" o = TextIterHasTagMethodInfo + ResolveTextIterMethod "inRange" o = TextIterInRangeMethodInfo + ResolveTextIterMethod "insideSentence" o = TextIterInsideSentenceMethodInfo + ResolveTextIterMethod "insideWord" o = TextIterInsideWordMethodInfo + ResolveTextIterMethod "isCursorPosition" o = TextIterIsCursorPositionMethodInfo + ResolveTextIterMethod "isEnd" o = TextIterIsEndMethodInfo + ResolveTextIterMethod "isStart" o = TextIterIsStartMethodInfo + ResolveTextIterMethod "order" o = TextIterOrderMethodInfo + ResolveTextIterMethod "startsLine" o = TextIterStartsLineMethodInfo + ResolveTextIterMethod "startsSentence" o = TextIterStartsSentenceMethodInfo + ResolveTextIterMethod "startsWord" o = TextIterStartsWordMethodInfo + ResolveTextIterMethod "togglesTag" o = TextIterTogglesTagMethodInfo + ResolveTextIterMethod "getAttributes" o = TextIterGetAttributesMethodInfo + ResolveTextIterMethod "getBuffer" o = TextIterGetBufferMethodInfo + ResolveTextIterMethod "getBytesInLine" o = TextIterGetBytesInLineMethodInfo + ResolveTextIterMethod "getChar" o = TextIterGetCharMethodInfo + ResolveTextIterMethod "getCharsInLine" o = TextIterGetCharsInLineMethodInfo + ResolveTextIterMethod "getChildAnchor" o = TextIterGetChildAnchorMethodInfo + ResolveTextIterMethod "getLanguage" o = TextIterGetLanguageMethodInfo + ResolveTextIterMethod "getLine" o = TextIterGetLineMethodInfo + ResolveTextIterMethod "getLineIndex" o = TextIterGetLineIndexMethodInfo + ResolveTextIterMethod "getLineOffset" o = TextIterGetLineOffsetMethodInfo + ResolveTextIterMethod "getMarks" o = TextIterGetMarksMethodInfo + ResolveTextIterMethod "getOffset" o = TextIterGetOffsetMethodInfo + ResolveTextIterMethod "getPixbuf" o = TextIterGetPixbufMethodInfo + ResolveTextIterMethod "getSlice" o = TextIterGetSliceMethodInfo + ResolveTextIterMethod "getTags" o = TextIterGetTagsMethodInfo + ResolveTextIterMethod "getText" o = TextIterGetTextMethodInfo + ResolveTextIterMethod "getToggledTags" o = TextIterGetToggledTagsMethodInfo + ResolveTextIterMethod "getVisibleLineIndex" o = TextIterGetVisibleLineIndexMethodInfo + ResolveTextIterMethod "getVisibleLineOffset" o = TextIterGetVisibleLineOffsetMethodInfo + ResolveTextIterMethod "getVisibleSlice" o = TextIterGetVisibleSliceMethodInfo + ResolveTextIterMethod "getVisibleText" o = TextIterGetVisibleTextMethodInfo + ResolveTextIterMethod "setLine" o = TextIterSetLineMethodInfo + ResolveTextIterMethod "setLineIndex" o = TextIterSetLineIndexMethodInfo + ResolveTextIterMethod "setLineOffset" o = TextIterSetLineOffsetMethodInfo + ResolveTextIterMethod "setOffset" o = TextIterSetOffsetMethodInfo + ResolveTextIterMethod "setVisibleLineIndex" o = TextIterSetVisibleLineIndexMethodInfo + ResolveTextIterMethod "setVisibleLineOffset" o = TextIterSetVisibleLineOffsetMethodInfo + ResolveTextIterMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTextIterMethod t TextIter, MethodInfo info TextIter p) => IsLabelProxy t (TextIter -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTextIterMethod t TextIter, MethodInfo info TextIter p) => IsLabel t (TextIter -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TextIter.hs-boot b/GI/Gtk/Structs/TextIter.hs-boot --- a/GI/Gtk/Structs/TextIter.hs-boot +++ b/GI/Gtk/Structs/TextIter.hs-boot @@ -9,3 +9,94 @@ newtype TextIter = TextIter (ForeignPtr TextIter) instance BoxedObject TextIter where +data TextIterAssignMethodInfo +data TextIterBackwardCharMethodInfo +data TextIterBackwardCharsMethodInfo +data TextIterBackwardCursorPositionMethodInfo +data TextIterBackwardCursorPositionsMethodInfo +data TextIterBackwardFindCharMethodInfo +data TextIterBackwardLineMethodInfo +data TextIterBackwardLinesMethodInfo +data TextIterBackwardSearchMethodInfo +data TextIterBackwardSentenceStartMethodInfo +data TextIterBackwardSentenceStartsMethodInfo +data TextIterBackwardToTagToggleMethodInfo +data TextIterBackwardVisibleCursorPositionMethodInfo +data TextIterBackwardVisibleCursorPositionsMethodInfo +data TextIterBackwardVisibleLineMethodInfo +data TextIterBackwardVisibleLinesMethodInfo +data TextIterBackwardVisibleWordStartMethodInfo +data TextIterBackwardVisibleWordStartsMethodInfo +data TextIterBackwardWordStartMethodInfo +data TextIterBackwardWordStartsMethodInfo +data TextIterBeginsTagMethodInfo +data TextIterCanInsertMethodInfo +data TextIterCompareMethodInfo +data TextIterCopyMethodInfo +data TextIterEditableMethodInfo +data TextIterEndsLineMethodInfo +data TextIterEndsSentenceMethodInfo +data TextIterEndsTagMethodInfo +data TextIterEndsWordMethodInfo +data TextIterEqualMethodInfo +data TextIterForwardCharMethodInfo +data TextIterForwardCharsMethodInfo +data TextIterForwardCursorPositionMethodInfo +data TextIterForwardCursorPositionsMethodInfo +data TextIterForwardFindCharMethodInfo +data TextIterForwardLineMethodInfo +data TextIterForwardLinesMethodInfo +data TextIterForwardSearchMethodInfo +data TextIterForwardSentenceEndMethodInfo +data TextIterForwardSentenceEndsMethodInfo +data TextIterForwardToEndMethodInfo +data TextIterForwardToLineEndMethodInfo +data TextIterForwardToTagToggleMethodInfo +data TextIterForwardVisibleCursorPositionMethodInfo +data TextIterForwardVisibleCursorPositionsMethodInfo +data TextIterForwardVisibleLineMethodInfo +data TextIterForwardVisibleLinesMethodInfo +data TextIterForwardVisibleWordEndMethodInfo +data TextIterForwardVisibleWordEndsMethodInfo +data TextIterForwardWordEndMethodInfo +data TextIterForwardWordEndsMethodInfo +data TextIterFreeMethodInfo +data TextIterGetAttributesMethodInfo +data TextIterGetBufferMethodInfo +data TextIterGetBytesInLineMethodInfo +data TextIterGetCharMethodInfo +data TextIterGetCharsInLineMethodInfo +data TextIterGetChildAnchorMethodInfo +data TextIterGetLanguageMethodInfo +data TextIterGetLineMethodInfo +data TextIterGetLineIndexMethodInfo +data TextIterGetLineOffsetMethodInfo +data TextIterGetMarksMethodInfo +data TextIterGetOffsetMethodInfo +data TextIterGetPixbufMethodInfo +data TextIterGetSliceMethodInfo +data TextIterGetTagsMethodInfo +data TextIterGetTextMethodInfo +data TextIterGetToggledTagsMethodInfo +data TextIterGetVisibleLineIndexMethodInfo +data TextIterGetVisibleLineOffsetMethodInfo +data TextIterGetVisibleSliceMethodInfo +data TextIterGetVisibleTextMethodInfo +data TextIterHasTagMethodInfo +data TextIterInRangeMethodInfo +data TextIterInsideSentenceMethodInfo +data TextIterInsideWordMethodInfo +data TextIterIsCursorPositionMethodInfo +data TextIterIsEndMethodInfo +data TextIterIsStartMethodInfo +data TextIterOrderMethodInfo +data TextIterSetLineMethodInfo +data TextIterSetLineIndexMethodInfo +data TextIterSetLineOffsetMethodInfo +data TextIterSetOffsetMethodInfo +data TextIterSetVisibleLineIndexMethodInfo +data TextIterSetVisibleLineOffsetMethodInfo +data TextIterStartsLineMethodInfo +data TextIterStartsSentenceMethodInfo +data TextIterStartsWordMethodInfo +data TextIterTogglesTagMethodInfo diff --git a/GI/Gtk/Structs/ThemeEngine.hs b/GI/Gtk/Structs/ThemeEngine.hs --- a/GI/Gtk/Structs/ThemeEngine.hs +++ b/GI/Gtk/Structs/ThemeEngine.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -28,5 +29,16 @@ newtype ThemeEngine = ThemeEngine (ForeignPtr ThemeEngine) noThemeEngine :: Maybe ThemeEngine noThemeEngine = Nothing + +type family ResolveThemeEngineMethod (t :: Symbol) (o :: *) :: * where + ResolveThemeEngineMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveThemeEngineMethod t ThemeEngine, MethodInfo info ThemeEngine p) => IsLabelProxy t (ThemeEngine -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveThemeEngineMethod t ThemeEngine, MethodInfo info ThemeEngine p) => IsLabel t (ThemeEngine -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/ToggleActionEntry.hs b/GI/Gtk/Structs/ToggleActionEntry.hs --- a/GI/Gtk/Structs/ToggleActionEntry.hs +++ b/GI/Gtk/Structs/ToggleActionEntry.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -13,6 +14,7 @@ -- * Exported types ToggleActionEntry(..) , + newZeroToggleActionEntry , noToggleActionEntry , @@ -56,6 +58,10 @@ import GI.Gtk.Callbacks newtype ToggleActionEntry = ToggleActionEntry (ForeignPtr ToggleActionEntry) +-- | Construct a `ToggleActionEntry` struct initialized to zero. +newZeroToggleActionEntry :: MonadIO m => m ToggleActionEntry +newZeroToggleActionEntry = liftIO $ callocBytes 56 >>= wrapPtr ToggleActionEntry + noToggleActionEntry :: Maybe ToggleActionEntry noToggleActionEntry = Nothing @@ -96,5 +102,16 @@ val <- peek (ptr `plusPtr` 48) :: IO CInt let val' = (/= 0) val return val' + +type family ResolveToggleActionEntryMethod (t :: Symbol) (o :: *) :: * where + ResolveToggleActionEntryMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveToggleActionEntryMethod t ToggleActionEntry, MethodInfo info ToggleActionEntry p) => IsLabelProxy t (ToggleActionEntry -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveToggleActionEntryMethod t ToggleActionEntry, MethodInfo info ToggleActionEntry p) => IsLabel t (ToggleActionEntry -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TreeIter.hs b/GI/Gtk/Structs/TreeIter.hs --- a/GI/Gtk/Structs/TreeIter.hs +++ b/GI/Gtk/Structs/TreeIter.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,15 +17,18 @@ -- * Exported types TreeIter(..) , + newZeroTreeIter , noTreeIter , -- * Methods -- ** treeIterCopy + TreeIterCopyMethodInfo , treeIterCopy , -- ** treeIterFree + TreeIterFreeMethodInfo , treeIterFree , @@ -68,6 +72,10 @@ instance BoxedObject TreeIter where boxedType _ = c_gtk_tree_iter_get_type +-- | Construct a `TreeIter` struct initialized to zero. +newZeroTreeIter :: MonadIO m => m TreeIter +newZeroTreeIter = liftIO $ callocBoxedBytes 32 >>= wrapBoxed TreeIter + noTreeIter :: Maybe TreeIter noTreeIter = Nothing @@ -93,9 +101,8 @@ -- method TreeIter::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeIter" -- throws : False -- Skip return : False @@ -107,8 +114,8 @@ treeIterCopy :: (MonadIO m) => - TreeIter -> -- _obj - m TreeIter + TreeIter -- _obj + -> m TreeIter -- result treeIterCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_tree_iter_copy _obj' @@ -117,11 +124,14 @@ touchManagedPtr _obj return result' +data TreeIterCopyMethodInfo +instance (signature ~ (m TreeIter), MonadIO m) => MethodInfo TreeIterCopyMethodInfo TreeIter signature where + overloadedMethod _ = treeIterCopy + -- method TreeIter::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -133,12 +143,29 @@ treeIterFree :: (MonadIO m) => - TreeIter -> -- _obj - m () + TreeIter -- _obj + -> m () -- result treeIterFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_tree_iter_free _obj' touchManagedPtr _obj return () + +data TreeIterFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo TreeIterFreeMethodInfo TreeIter signature where + overloadedMethod _ = treeIterFree + +type family ResolveTreeIterMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeIterMethod "copy" o = TreeIterCopyMethodInfo + ResolveTreeIterMethod "free" o = TreeIterFreeMethodInfo + ResolveTreeIterMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeIterMethod t TreeIter, MethodInfo info TreeIter p) => IsLabelProxy t (TreeIter -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeIterMethod t TreeIter, MethodInfo info TreeIter p) => IsLabel t (TreeIter -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TreeIter.hs-boot b/GI/Gtk/Structs/TreeIter.hs-boot --- a/GI/Gtk/Structs/TreeIter.hs-boot +++ b/GI/Gtk/Structs/TreeIter.hs-boot @@ -9,3 +9,5 @@ newtype TreeIter = TreeIter (ForeignPtr TreeIter) instance BoxedObject TreeIter where +data TreeIterCopyMethodInfo +data TreeIterFreeMethodInfo diff --git a/GI/Gtk/Structs/TreePath.hs b/GI/Gtk/Structs/TreePath.hs --- a/GI/Gtk/Structs/TreePath.hs +++ b/GI/Gtk/Structs/TreePath.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,38 +16,47 @@ -- * Methods -- ** treePathAppendIndex + TreePathAppendIndexMethodInfo , treePathAppendIndex , -- ** treePathCompare + TreePathCompareMethodInfo , treePathCompare , -- ** treePathCopy + TreePathCopyMethodInfo , treePathCopy , -- ** treePathDown + TreePathDownMethodInfo , treePathDown , -- ** treePathFree + TreePathFreeMethodInfo , treePathFree , -- ** treePathGetDepth + TreePathGetDepthMethodInfo , treePathGetDepth , -- ** treePathGetIndices + TreePathGetIndicesMethodInfo , treePathGetIndices , -- ** treePathIsAncestor + TreePathIsAncestorMethodInfo , treePathIsAncestor , -- ** treePathIsDescendant + TreePathIsDescendantMethodInfo , treePathIsDescendant , @@ -67,22 +77,27 @@ -- ** treePathNext + TreePathNextMethodInfo , treePathNext , -- ** treePathPrependIndex + TreePathPrependIndexMethodInfo , treePathPrependIndex , -- ** treePathPrev + TreePathPrevMethodInfo , treePathPrev , -- ** treePathToString + TreePathToStringMethodInfo , treePathToString , -- ** treePathUp + TreePathUpMethodInfo , treePathUp , @@ -114,7 +129,6 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "TreePath" -- throws : False -- Skip return : False @@ -125,7 +139,7 @@ treePathNew :: (MonadIO m) => - m TreePath + m TreePath -- result treePathNew = liftIO $ do result <- gtk_tree_path_new checkUnexpectedReturnNULL "gtk_tree_path_new" result @@ -136,7 +150,6 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "TreePath" -- throws : False -- Skip return : False @@ -147,7 +160,7 @@ treePathNewFirst :: (MonadIO m) => - m TreePath + m TreePath -- result treePathNewFirst = liftIO $ do result <- gtk_tree_path_new_first checkUnexpectedReturnNULL "gtk_tree_path_new_first" result @@ -156,9 +169,8 @@ -- method TreePath::new_from_indices -- method type : Constructor --- Args : [Arg {argName = "indices", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "indices", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "indices", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreePath" -- throws : False -- Skip return : False @@ -171,8 +183,8 @@ treePathNewFromIndices :: (MonadIO m) => - [Int32] -> -- indices - m TreePath + [Int32] -- indices + -> m TreePath -- result treePathNewFromIndices indices = liftIO $ do let length_ = fromIntegral $ length indices indices' <- packStorableArray indices @@ -184,9 +196,8 @@ -- method TreePath::new_from_string -- method type : Constructor --- Args : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreePath" -- throws : False -- Skip return : False @@ -198,8 +209,8 @@ treePathNewFromString :: (MonadIO m) => - T.Text -> -- path - m TreePath + T.Text -- path + -> m TreePath -- result treePathNewFromString path = liftIO $ do path' <- textToCString path result <- gtk_tree_path_new_from_string path' @@ -210,9 +221,8 @@ -- method TreePath::append_index -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -225,20 +235,23 @@ treePathAppendIndex :: (MonadIO m) => - TreePath -> -- _obj - Int32 -> -- index_ - m () -treePathAppendIndex _obj index_ = liftIO $ do + TreePath -- _obj + -> Int32 -- index + -> m () -- result +treePathAppendIndex _obj index = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_append_index _obj' index_ + gtk_tree_path_append_index _obj' index touchManagedPtr _obj return () +data TreePathAppendIndexMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TreePathAppendIndexMethodInfo TreePath signature where + overloadedMethod _ = treePathAppendIndex + -- method TreePath::compare -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -251,9 +264,9 @@ treePathCompare :: (MonadIO m) => - TreePath -> -- _obj - TreePath -> -- b - m Int32 + TreePath -- _obj + -> TreePath -- b + -> m Int32 -- result treePathCompare _obj b = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let b' = unsafeManagedPtrGetPtr b @@ -262,11 +275,14 @@ touchManagedPtr b return result +data TreePathCompareMethodInfo +instance (signature ~ (TreePath -> m Int32), MonadIO m) => MethodInfo TreePathCompareMethodInfo TreePath signature where + overloadedMethod _ = treePathCompare + -- method TreePath::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreePath" -- throws : False -- Skip return : False @@ -278,8 +294,8 @@ treePathCopy :: (MonadIO m) => - TreePath -> -- _obj - m TreePath + TreePath -- _obj + -> m TreePath -- result treePathCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_tree_path_copy _obj' @@ -288,11 +304,14 @@ touchManagedPtr _obj return result' +data TreePathCopyMethodInfo +instance (signature ~ (m TreePath), MonadIO m) => MethodInfo TreePathCopyMethodInfo TreePath signature where + overloadedMethod _ = treePathCopy + -- method TreePath::down -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -304,19 +323,22 @@ treePathDown :: (MonadIO m) => - TreePath -> -- _obj - m () + TreePath -- _obj + -> m () -- result treePathDown _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_tree_path_down _obj' touchManagedPtr _obj return () +data TreePathDownMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo TreePathDownMethodInfo TreePath signature where + overloadedMethod _ = treePathDown + -- method TreePath::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -328,19 +350,22 @@ treePathFree :: (MonadIO m) => - TreePath -> -- _obj - m () + TreePath -- _obj + -> m () -- result treePathFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_tree_path_free _obj' touchManagedPtr _obj return () +data TreePathFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo TreePathFreeMethodInfo TreePath signature where + overloadedMethod _ = treePathFree + -- method TreePath::get_depth -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -352,19 +377,22 @@ treePathGetDepth :: (MonadIO m) => - TreePath -> -- _obj - m Int32 + TreePath -- _obj + -> m Int32 -- result treePathGetDepth _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_tree_path_get_depth _obj' touchManagedPtr _obj return result +data TreePathGetDepthMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo TreePathGetDepthMethodInfo TreePath signature where + overloadedMethod _ = treePathGetDepth + -- method TreePath::get_indices -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "depth", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "depth", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TCArray False (-1) 1 (TBasicType TInt32) -- throws : False -- Skip return : False @@ -377,8 +405,8 @@ treePathGetIndices :: (MonadIO m) => - TreePath -> -- _obj - m [Int32] + TreePath -- _obj + -> m [Int32] -- result treePathGetIndices _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj depth <- allocMem :: IO (Ptr Int32) @@ -390,11 +418,14 @@ freeMem depth return result' +data TreePathGetIndicesMethodInfo +instance (signature ~ (m [Int32]), MonadIO m) => MethodInfo TreePathGetIndicesMethodInfo TreePath signature where + overloadedMethod _ = treePathGetIndices + -- method TreePath::is_ancestor -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "descendant", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -407,9 +438,9 @@ treePathIsAncestor :: (MonadIO m) => - TreePath -> -- _obj - TreePath -> -- descendant - m Bool + TreePath -- _obj + -> TreePath -- descendant + -> m Bool -- result treePathIsAncestor _obj descendant = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let descendant' = unsafeManagedPtrGetPtr descendant @@ -419,11 +450,14 @@ touchManagedPtr descendant return result' +data TreePathIsAncestorMethodInfo +instance (signature ~ (TreePath -> m Bool), MonadIO m) => MethodInfo TreePathIsAncestorMethodInfo TreePath signature where + overloadedMethod _ = treePathIsAncestor + -- method TreePath::is_descendant -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ancestor", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ancestor", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ancestor", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -436,9 +470,9 @@ treePathIsDescendant :: (MonadIO m) => - TreePath -> -- _obj - TreePath -> -- ancestor - m Bool + TreePath -- _obj + -> TreePath -- ancestor + -> m Bool -- result treePathIsDescendant _obj ancestor = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let ancestor' = unsafeManagedPtrGetPtr ancestor @@ -448,11 +482,14 @@ touchManagedPtr ancestor return result' +data TreePathIsDescendantMethodInfo +instance (signature ~ (TreePath -> m Bool), MonadIO m) => MethodInfo TreePathIsDescendantMethodInfo TreePath signature where + overloadedMethod _ = treePathIsDescendant + -- method TreePath::next -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -464,19 +501,22 @@ treePathNext :: (MonadIO m) => - TreePath -> -- _obj - m () + TreePath -- _obj + -> m () -- result treePathNext _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_tree_path_next _obj' touchManagedPtr _obj return () +data TreePathNextMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo TreePathNextMethodInfo TreePath signature where + overloadedMethod _ = treePathNext + -- method TreePath::prepend_index -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -489,20 +529,23 @@ treePathPrependIndex :: (MonadIO m) => - TreePath -> -- _obj - Int32 -> -- index_ - m () -treePathPrependIndex _obj index_ = liftIO $ do + TreePath -- _obj + -> Int32 -- index + -> m () -- result +treePathPrependIndex _obj index = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_prepend_index _obj' index_ + gtk_tree_path_prepend_index _obj' index touchManagedPtr _obj return () +data TreePathPrependIndexMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TreePathPrependIndexMethodInfo TreePath signature where + overloadedMethod _ = treePathPrependIndex + -- method TreePath::prev -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -514,8 +557,8 @@ treePathPrev :: (MonadIO m) => - TreePath -> -- _obj - m Bool + TreePath -- _obj + -> m Bool -- result treePathPrev _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_tree_path_prev _obj' @@ -523,11 +566,14 @@ touchManagedPtr _obj return result' +data TreePathPrevMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TreePathPrevMethodInfo TreePath signature where + overloadedMethod _ = treePathPrev + -- method TreePath::to_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -539,8 +585,8 @@ treePathToString :: (MonadIO m) => - TreePath -> -- _obj - m T.Text + TreePath -- _obj + -> m T.Text -- result treePathToString _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_tree_path_to_string _obj' @@ -550,11 +596,14 @@ touchManagedPtr _obj return result' +data TreePathToStringMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo TreePathToStringMethodInfo TreePath signature where + overloadedMethod _ = treePathToString + -- method TreePath::up -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -566,13 +615,42 @@ treePathUp :: (MonadIO m) => - TreePath -> -- _obj - m Bool + TreePath -- _obj + -> m Bool -- result treePathUp _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_tree_path_up _obj' let result' = (/= 0) result touchManagedPtr _obj return result' + +data TreePathUpMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TreePathUpMethodInfo TreePath signature where + overloadedMethod _ = treePathUp + +type family ResolveTreePathMethod (t :: Symbol) (o :: *) :: * where + ResolveTreePathMethod "appendIndex" o = TreePathAppendIndexMethodInfo + ResolveTreePathMethod "compare" o = TreePathCompareMethodInfo + ResolveTreePathMethod "copy" o = TreePathCopyMethodInfo + ResolveTreePathMethod "down" o = TreePathDownMethodInfo + ResolveTreePathMethod "free" o = TreePathFreeMethodInfo + ResolveTreePathMethod "isAncestor" o = TreePathIsAncestorMethodInfo + ResolveTreePathMethod "isDescendant" o = TreePathIsDescendantMethodInfo + ResolveTreePathMethod "next" o = TreePathNextMethodInfo + ResolveTreePathMethod "prependIndex" o = TreePathPrependIndexMethodInfo + ResolveTreePathMethod "prev" o = TreePathPrevMethodInfo + ResolveTreePathMethod "toString" o = TreePathToStringMethodInfo + ResolveTreePathMethod "up" o = TreePathUpMethodInfo + ResolveTreePathMethod "getDepth" o = TreePathGetDepthMethodInfo + ResolveTreePathMethod "getIndices" o = TreePathGetIndicesMethodInfo + ResolveTreePathMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreePathMethod t TreePath, MethodInfo info TreePath p) => IsLabelProxy t (TreePath -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreePathMethod t TreePath, MethodInfo info TreePath p) => IsLabel t (TreePath -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TreePath.hs-boot b/GI/Gtk/Structs/TreePath.hs-boot --- a/GI/Gtk/Structs/TreePath.hs-boot +++ b/GI/Gtk/Structs/TreePath.hs-boot @@ -9,3 +9,17 @@ newtype TreePath = TreePath (ForeignPtr TreePath) instance BoxedObject TreePath where +data TreePathAppendIndexMethodInfo +data TreePathCompareMethodInfo +data TreePathCopyMethodInfo +data TreePathDownMethodInfo +data TreePathFreeMethodInfo +data TreePathGetDepthMethodInfo +data TreePathGetIndicesMethodInfo +data TreePathIsAncestorMethodInfo +data TreePathIsDescendantMethodInfo +data TreePathNextMethodInfo +data TreePathPrependIndexMethodInfo +data TreePathPrevMethodInfo +data TreePathToStringMethodInfo +data TreePathUpMethodInfo diff --git a/GI/Gtk/Structs/TreeRowReference.hs b/GI/Gtk/Structs/TreeRowReference.hs --- a/GI/Gtk/Structs/TreeRowReference.hs +++ b/GI/Gtk/Structs/TreeRowReference.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -19,21 +20,33 @@ -- * Methods -- ** treeRowReferenceCopy + TreeRowReferenceCopyMethodInfo , treeRowReferenceCopy , +-- ** treeRowReferenceDeleted + treeRowReferenceDeleted , + + -- ** treeRowReferenceFree + TreeRowReferenceFreeMethodInfo , treeRowReferenceFree , -- ** treeRowReferenceGetModel + TreeRowReferenceGetModelMethodInfo , treeRowReferenceGetModel , -- ** treeRowReferenceGetPath + TreeRowReferenceGetPathMethodInfo , treeRowReferenceGetPath , +-- ** treeRowReferenceInserted + treeRowReferenceInserted , + + -- ** treeRowReferenceNew treeRowReferenceNew , @@ -43,6 +56,7 @@ -- ** treeRowReferenceValid + TreeRowReferenceValidMethodInfo , treeRowReferenceValid , @@ -73,9 +87,8 @@ -- method TreeRowReference::new -- method type : Constructor --- Args : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeRowReference" -- throws : False -- Skip return : False @@ -88,9 +101,9 @@ treeRowReferenceNew :: (MonadIO m, TreeModelK a) => - a -> -- model - TreePath -> -- path - m TreeRowReference + a -- model + -> TreePath -- path + -> m TreeRowReference -- result treeRowReferenceNew model path = liftIO $ do let model' = unsafeManagedPtrCastPtr model let path' = unsafeManagedPtrGetPtr path @@ -103,9 +116,8 @@ -- method TreeRowReference::new_proxy -- method type : Constructor --- Args : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeRowReference" -- throws : False -- Skip return : False @@ -119,10 +131,10 @@ treeRowReferenceNewProxy :: (MonadIO m, GObject.ObjectK a, TreeModelK b) => - a -> -- proxy - b -> -- model - TreePath -> -- path - m TreeRowReference + a -- proxy + -> b -- model + -> TreePath -- path + -> m TreeRowReference -- result treeRowReferenceNewProxy proxy model path = liftIO $ do let proxy' = unsafeManagedPtrCastPtr proxy let model' = unsafeManagedPtrCastPtr model @@ -137,9 +149,8 @@ -- method TreeRowReference::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeRowReference" -- throws : False -- Skip return : False @@ -151,8 +162,8 @@ treeRowReferenceCopy :: (MonadIO m) => - TreeRowReference -> -- _obj - m TreeRowReference + TreeRowReference -- _obj + -> m TreeRowReference -- result treeRowReferenceCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_tree_row_reference_copy _obj' @@ -161,11 +172,14 @@ touchManagedPtr _obj return result' +data TreeRowReferenceCopyMethodInfo +instance (signature ~ (m TreeRowReference), MonadIO m) => MethodInfo TreeRowReferenceCopyMethodInfo TreeRowReference signature where + overloadedMethod _ = treeRowReferenceCopy + -- method TreeRowReference::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -177,19 +191,22 @@ treeRowReferenceFree :: (MonadIO m) => - TreeRowReference -> -- _obj - m () + TreeRowReference -- _obj + -> m () -- result treeRowReferenceFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_tree_row_reference_free _obj' touchManagedPtr _obj return () +data TreeRowReferenceFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo TreeRowReferenceFreeMethodInfo TreeRowReference signature where + overloadedMethod _ = treeRowReferenceFree + -- method TreeRowReference::get_model -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreeModel" -- throws : False -- Skip return : False @@ -201,8 +218,8 @@ treeRowReferenceGetModel :: (MonadIO m) => - TreeRowReference -> -- _obj - m TreeModel + TreeRowReference -- _obj + -> m TreeModel -- result treeRowReferenceGetModel _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_tree_row_reference_get_model _obj' @@ -211,11 +228,14 @@ touchManagedPtr _obj return result' +data TreeRowReferenceGetModelMethodInfo +instance (signature ~ (m TreeModel), MonadIO m) => MethodInfo TreeRowReferenceGetModelMethodInfo TreeRowReference signature where + overloadedMethod _ = treeRowReferenceGetModel + -- method TreeRowReference::get_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "TreePath" -- throws : False -- Skip return : False @@ -227,8 +247,8 @@ treeRowReferenceGetPath :: (MonadIO m) => - TreeRowReference -> -- _obj - m TreePath + TreeRowReference -- _obj + -> m TreePath -- result treeRowReferenceGetPath _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_tree_row_reference_get_path _obj' @@ -237,11 +257,14 @@ touchManagedPtr _obj return result' +data TreeRowReferenceGetPathMethodInfo +instance (signature ~ (m TreePath), MonadIO m) => MethodInfo TreeRowReferenceGetPathMethodInfo TreeRowReference signature where + overloadedMethod _ = treeRowReferenceGetPath + -- method TreeRowReference::valid -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -253,13 +276,87 @@ treeRowReferenceValid :: (MonadIO m) => - TreeRowReference -> -- _obj - m Bool + TreeRowReference -- _obj + -> m Bool -- result treeRowReferenceValid _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_tree_row_reference_valid _obj' let result' = (/= 0) result touchManagedPtr _obj return result' + +data TreeRowReferenceValidMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo TreeRowReferenceValidMethodInfo TreeRowReference signature where + overloadedMethod _ = treeRowReferenceValid + +-- method TreeRowReference::deleted +-- method type : MemberFunction +-- Args : [Arg {argCName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 () + +-- method TreeRowReference::inserted +-- method type : MemberFunction +-- Args : [Arg {argCName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 () + +type family ResolveTreeRowReferenceMethod (t :: Symbol) (o :: *) :: * where + ResolveTreeRowReferenceMethod "copy" o = TreeRowReferenceCopyMethodInfo + ResolveTreeRowReferenceMethod "free" o = TreeRowReferenceFreeMethodInfo + ResolveTreeRowReferenceMethod "valid" o = TreeRowReferenceValidMethodInfo + ResolveTreeRowReferenceMethod "getModel" o = TreeRowReferenceGetModelMethodInfo + ResolveTreeRowReferenceMethod "getPath" o = TreeRowReferenceGetPathMethodInfo + ResolveTreeRowReferenceMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveTreeRowReferenceMethod t TreeRowReference, MethodInfo info TreeRowReference p) => IsLabelProxy t (TreeRowReference -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveTreeRowReferenceMethod t TreeRowReference, MethodInfo info TreeRowReference p) => IsLabel t (TreeRowReference -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/TreeRowReference.hs-boot b/GI/Gtk/Structs/TreeRowReference.hs-boot --- a/GI/Gtk/Structs/TreeRowReference.hs-boot +++ b/GI/Gtk/Structs/TreeRowReference.hs-boot @@ -9,3 +9,8 @@ newtype TreeRowReference = TreeRowReference (ForeignPtr TreeRowReference) instance BoxedObject TreeRowReference where +data TreeRowReferenceCopyMethodInfo +data TreeRowReferenceFreeMethodInfo +data TreeRowReferenceGetModelMethodInfo +data TreeRowReferenceGetPathMethodInfo +data TreeRowReferenceValidMethodInfo diff --git a/GI/Gtk/Structs/WidgetPath.hs b/GI/Gtk/Structs/WidgetPath.hs --- a/GI/Gtk/Structs/WidgetPath.hs +++ b/GI/Gtk/Structs/WidgetPath.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -63,126 +64,157 @@ -- * Methods -- ** widgetPathAppendForWidget + WidgetPathAppendForWidgetMethodInfo , widgetPathAppendForWidget , -- ** widgetPathAppendType + WidgetPathAppendTypeMethodInfo , widgetPathAppendType , -- ** widgetPathAppendWithSiblings + WidgetPathAppendWithSiblingsMethodInfo , widgetPathAppendWithSiblings , -- ** widgetPathCopy + WidgetPathCopyMethodInfo , widgetPathCopy , -- ** widgetPathFree + WidgetPathFreeMethodInfo , widgetPathFree , -- ** widgetPathGetObjectType + WidgetPathGetObjectTypeMethodInfo , widgetPathGetObjectType , -- ** widgetPathHasParent + WidgetPathHasParentMethodInfo , widgetPathHasParent , -- ** widgetPathIsType + WidgetPathIsTypeMethodInfo , widgetPathIsType , -- ** widgetPathIterAddClass + WidgetPathIterAddClassMethodInfo , widgetPathIterAddClass , -- ** widgetPathIterAddRegion + WidgetPathIterAddRegionMethodInfo , widgetPathIterAddRegion , -- ** widgetPathIterClearClasses + WidgetPathIterClearClassesMethodInfo , widgetPathIterClearClasses , -- ** widgetPathIterClearRegions + WidgetPathIterClearRegionsMethodInfo , widgetPathIterClearRegions , -- ** widgetPathIterGetName + WidgetPathIterGetNameMethodInfo , widgetPathIterGetName , -- ** widgetPathIterGetObjectType + WidgetPathIterGetObjectTypeMethodInfo , widgetPathIterGetObjectType , -- ** widgetPathIterGetSiblingIndex + WidgetPathIterGetSiblingIndexMethodInfo , widgetPathIterGetSiblingIndex , -- ** widgetPathIterGetSiblings + WidgetPathIterGetSiblingsMethodInfo , widgetPathIterGetSiblings , -- ** widgetPathIterGetState + WidgetPathIterGetStateMethodInfo , widgetPathIterGetState , -- ** widgetPathIterHasClass + WidgetPathIterHasClassMethodInfo , widgetPathIterHasClass , -- ** widgetPathIterHasName + WidgetPathIterHasNameMethodInfo , widgetPathIterHasName , -- ** widgetPathIterHasQclass + WidgetPathIterHasQclassMethodInfo , widgetPathIterHasQclass , -- ** widgetPathIterHasQname + WidgetPathIterHasQnameMethodInfo , widgetPathIterHasQname , -- ** widgetPathIterHasQregion + WidgetPathIterHasQregionMethodInfo , widgetPathIterHasQregion , -- ** widgetPathIterHasRegion + WidgetPathIterHasRegionMethodInfo , widgetPathIterHasRegion , -- ** widgetPathIterListClasses + WidgetPathIterListClassesMethodInfo , widgetPathIterListClasses , -- ** widgetPathIterListRegions + WidgetPathIterListRegionsMethodInfo , widgetPathIterListRegions , -- ** widgetPathIterRemoveClass + WidgetPathIterRemoveClassMethodInfo , widgetPathIterRemoveClass , -- ** widgetPathIterRemoveRegion + WidgetPathIterRemoveRegionMethodInfo , widgetPathIterRemoveRegion , -- ** widgetPathIterSetName + WidgetPathIterSetNameMethodInfo , widgetPathIterSetName , -- ** widgetPathIterSetObjectType + WidgetPathIterSetObjectTypeMethodInfo , widgetPathIterSetObjectType , -- ** widgetPathIterSetState + WidgetPathIterSetStateMethodInfo , widgetPathIterSetState , -- ** widgetPathLength + WidgetPathLengthMethodInfo , widgetPathLength , @@ -191,18 +223,22 @@ -- ** widgetPathPrependType + WidgetPathPrependTypeMethodInfo , widgetPathPrependType , -- ** widgetPathRef + WidgetPathRefMethodInfo , widgetPathRef , -- ** widgetPathToString + WidgetPathToStringMethodInfo , widgetPathToString , -- ** widgetPathUnref + WidgetPathUnrefMethodInfo , widgetPathUnref , @@ -234,7 +270,6 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gtk" "WidgetPath" -- throws : False -- Skip return : False @@ -245,7 +280,7 @@ widgetPathNew :: (MonadIO m) => - m WidgetPath + m WidgetPath -- result widgetPathNew = liftIO $ do result <- gtk_widget_path_new checkUnexpectedReturnNULL "gtk_widget_path_new" result @@ -254,9 +289,8 @@ -- method WidgetPath::append_for_widget -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -269,9 +303,9 @@ widgetPathAppendForWidget :: (MonadIO m, WidgetK a) => - WidgetPath -> -- _obj - a -> -- widget - m Int32 + WidgetPath -- _obj + -> a -- widget + -> m Int32 -- result widgetPathAppendForWidget _obj widget = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let widget' = unsafeManagedPtrCastPtr widget @@ -280,11 +314,14 @@ touchManagedPtr widget return result +data WidgetPathAppendForWidgetMethodInfo +instance (signature ~ (a -> m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetPathAppendForWidgetMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathAppendForWidget + -- method WidgetPath::append_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -297,9 +334,9 @@ widgetPathAppendType :: (MonadIO m) => - WidgetPath -> -- _obj - GType -> -- type - m Int32 + WidgetPath -- _obj + -> GType -- type_ + -> m Int32 -- result widgetPathAppendType _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let type_' = gtypeToCGType type_ @@ -307,11 +344,14 @@ touchManagedPtr _obj return result +data WidgetPathAppendTypeMethodInfo +instance (signature ~ (GType -> m Int32), MonadIO m) => MethodInfo WidgetPathAppendTypeMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathAppendType + -- method WidgetPath::append_with_siblings -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "siblings", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling_index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "siblings", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling_index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "siblings", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling_index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -325,23 +365,26 @@ widgetPathAppendWithSiblings :: (MonadIO m) => - WidgetPath -> -- _obj - WidgetPath -> -- siblings - Word32 -> -- sibling_index - m Int32 -widgetPathAppendWithSiblings _obj siblings sibling_index = liftIO $ do + WidgetPath -- _obj + -> WidgetPath -- siblings + -> Word32 -- siblingIndex + -> m Int32 -- result +widgetPathAppendWithSiblings _obj siblings siblingIndex = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let siblings' = unsafeManagedPtrGetPtr siblings - result <- gtk_widget_path_append_with_siblings _obj' siblings' sibling_index + result <- gtk_widget_path_append_with_siblings _obj' siblings' siblingIndex touchManagedPtr _obj touchManagedPtr siblings return result +data WidgetPathAppendWithSiblingsMethodInfo +instance (signature ~ (WidgetPath -> Word32 -> m Int32), MonadIO m) => MethodInfo WidgetPathAppendWithSiblingsMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathAppendWithSiblings + -- method WidgetPath::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "WidgetPath" -- throws : False -- Skip return : False @@ -353,8 +396,8 @@ widgetPathCopy :: (MonadIO m) => - WidgetPath -> -- _obj - m WidgetPath + WidgetPath -- _obj + -> m WidgetPath -- result widgetPathCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_copy _obj' @@ -363,11 +406,14 @@ touchManagedPtr _obj return result' +data WidgetPathCopyMethodInfo +instance (signature ~ (m WidgetPath), MonadIO m) => MethodInfo WidgetPathCopyMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathCopy + -- method WidgetPath::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -379,19 +425,22 @@ widgetPathFree :: (MonadIO m) => - WidgetPath -> -- _obj - m () + WidgetPath -- _obj + -> m () -- result widgetPathFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_widget_path_free _obj' touchManagedPtr _obj return () +data WidgetPathFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo WidgetPathFreeMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathFree + -- method WidgetPath::get_object_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -403,8 +452,8 @@ widgetPathGetObjectType :: (MonadIO m) => - WidgetPath -> -- _obj - m GType + WidgetPath -- _obj + -> m GType -- result widgetPathGetObjectType _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_get_object_type _obj' @@ -412,11 +461,14 @@ touchManagedPtr _obj return result' +data WidgetPathGetObjectTypeMethodInfo +instance (signature ~ (m GType), MonadIO m) => MethodInfo WidgetPathGetObjectTypeMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathGetObjectType + -- method WidgetPath::has_parent -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -429,9 +481,9 @@ widgetPathHasParent :: (MonadIO m) => - WidgetPath -> -- _obj - GType -> -- type - m Bool + WidgetPath -- _obj + -> GType -- type_ + -> m Bool -- result widgetPathHasParent _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let type_' = gtypeToCGType type_ @@ -440,11 +492,14 @@ touchManagedPtr _obj return result' +data WidgetPathHasParentMethodInfo +instance (signature ~ (GType -> m Bool), MonadIO m) => MethodInfo WidgetPathHasParentMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathHasParent + -- method WidgetPath::is_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -457,9 +512,9 @@ widgetPathIsType :: (MonadIO m) => - WidgetPath -> -- _obj - GType -> -- type - m Bool + WidgetPath -- _obj + -> GType -- type_ + -> m Bool -- result widgetPathIsType _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let type_' = gtypeToCGType type_ @@ -468,11 +523,14 @@ touchManagedPtr _obj return result' +data WidgetPathIsTypeMethodInfo +instance (signature ~ (GType -> m Bool), MonadIO m) => MethodInfo WidgetPathIsTypeMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIsType + -- method WidgetPath::iter_add_class -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -486,10 +544,10 @@ widgetPathIterAddClass :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m () + WidgetPath -- _obj + -> Int32 -- pos + -> T.Text -- name + -> m () -- result widgetPathIterAddClass _obj pos name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -498,11 +556,14 @@ freeMem name' return () +data WidgetPathIterAddClassMethodInfo +instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m) => MethodInfo WidgetPathIterAddClassMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterAddClass + -- method WidgetPath::iter_add_region -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -517,11 +578,11 @@ {-# DEPRECATED widgetPathIterAddRegion ["(Since version 3.14)","The use of regions is deprecated."]#-} widgetPathIterAddRegion :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - [RegionFlags] -> -- flags - m () + WidgetPath -- _obj + -> Int32 -- pos + -> T.Text -- name + -> [RegionFlags] -- flags + -> m () -- result widgetPathIterAddRegion _obj pos name flags = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -531,11 +592,14 @@ freeMem name' return () +data WidgetPathIterAddRegionMethodInfo +instance (signature ~ (Int32 -> T.Text -> [RegionFlags] -> m ()), MonadIO m) => MethodInfo WidgetPathIterAddRegionMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterAddRegion + -- method WidgetPath::iter_clear_classes -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -548,20 +612,23 @@ widgetPathIterClearClasses :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m () + WidgetPath -- _obj + -> Int32 -- pos + -> m () -- result widgetPathIterClearClasses _obj pos = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_widget_path_iter_clear_classes _obj' pos touchManagedPtr _obj return () +data WidgetPathIterClearClassesMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo WidgetPathIterClearClassesMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterClearClasses + -- method WidgetPath::iter_clear_regions -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -574,20 +641,23 @@ {-# DEPRECATED widgetPathIterClearRegions ["(Since version 3.14)","The use of regions is deprecated."]#-} widgetPathIterClearRegions :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m () + WidgetPath -- _obj + -> Int32 -- pos + -> m () -- result widgetPathIterClearRegions _obj pos = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_widget_path_iter_clear_regions _obj' pos touchManagedPtr _obj return () +data WidgetPathIterClearRegionsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo WidgetPathIterClearRegionsMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterClearRegions + -- method WidgetPath::iter_get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -600,9 +670,9 @@ widgetPathIterGetName :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m T.Text + WidgetPath -- _obj + -> Int32 -- pos + -> m T.Text -- result widgetPathIterGetName _obj pos = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_iter_get_name _obj' pos @@ -611,11 +681,14 @@ touchManagedPtr _obj return result' +data WidgetPathIterGetNameMethodInfo +instance (signature ~ (Int32 -> m T.Text), MonadIO m) => MethodInfo WidgetPathIterGetNameMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterGetName + -- method WidgetPath::iter_get_object_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -628,9 +701,9 @@ widgetPathIterGetObjectType :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m GType + WidgetPath -- _obj + -> Int32 -- pos + -> m GType -- result widgetPathIterGetObjectType _obj pos = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_iter_get_object_type _obj' pos @@ -638,11 +711,14 @@ touchManagedPtr _obj return result' +data WidgetPathIterGetObjectTypeMethodInfo +instance (signature ~ (Int32 -> m GType), MonadIO m) => MethodInfo WidgetPathIterGetObjectTypeMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterGetObjectType + -- method WidgetPath::iter_get_sibling_index -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -655,20 +731,23 @@ widgetPathIterGetSiblingIndex :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m Word32 + WidgetPath -- _obj + -> Int32 -- pos + -> m Word32 -- result widgetPathIterGetSiblingIndex _obj pos = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_iter_get_sibling_index _obj' pos touchManagedPtr _obj return result +data WidgetPathIterGetSiblingIndexMethodInfo +instance (signature ~ (Int32 -> m Word32), MonadIO m) => MethodInfo WidgetPathIterGetSiblingIndexMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterGetSiblingIndex + -- method WidgetPath::iter_get_siblings -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "WidgetPath" -- throws : False -- Skip return : False @@ -681,9 +760,9 @@ widgetPathIterGetSiblings :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m WidgetPath + WidgetPath -- _obj + -> Int32 -- pos + -> m WidgetPath -- result widgetPathIterGetSiblings _obj pos = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_iter_get_siblings _obj' pos @@ -692,11 +771,14 @@ touchManagedPtr _obj return result' +data WidgetPathIterGetSiblingsMethodInfo +instance (signature ~ (Int32 -> m WidgetPath), MonadIO m) => MethodInfo WidgetPathIterGetSiblingsMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterGetSiblings + -- method WidgetPath::iter_get_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "StateFlags" -- throws : False -- Skip return : False @@ -709,9 +791,9 @@ widgetPathIterGetState :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m [StateFlags] + WidgetPath -- _obj + -> Int32 -- pos + -> m [StateFlags] -- result widgetPathIterGetState _obj pos = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_iter_get_state _obj' pos @@ -719,11 +801,14 @@ touchManagedPtr _obj return result' +data WidgetPathIterGetStateMethodInfo +instance (signature ~ (Int32 -> m [StateFlags]), MonadIO m) => MethodInfo WidgetPathIterGetStateMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterGetState + -- method WidgetPath::iter_has_class -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -737,10 +822,10 @@ widgetPathIterHasClass :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m Bool + WidgetPath -- _obj + -> Int32 -- pos + -> T.Text -- name + -> m Bool -- result widgetPathIterHasClass _obj pos name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -750,11 +835,14 @@ freeMem name' return result' +data WidgetPathIterHasClassMethodInfo +instance (signature ~ (Int32 -> T.Text -> m Bool), MonadIO m) => MethodInfo WidgetPathIterHasClassMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterHasClass + -- method WidgetPath::iter_has_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -768,10 +856,10 @@ widgetPathIterHasName :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m Bool + WidgetPath -- _obj + -> Int32 -- pos + -> T.Text -- name + -> m Bool -- result widgetPathIterHasName _obj pos name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -781,11 +869,14 @@ freeMem name' return result' +data WidgetPathIterHasNameMethodInfo +instance (signature ~ (Int32 -> T.Text -> m Bool), MonadIO m) => MethodInfo WidgetPathIterHasNameMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterHasName + -- method WidgetPath::iter_has_qclass -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -799,10 +890,10 @@ widgetPathIterHasQclass :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - Word32 -> -- qname - m Bool + WidgetPath -- _obj + -> Int32 -- pos + -> Word32 -- qname + -> m Bool -- result widgetPathIterHasQclass _obj pos qname = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_iter_has_qclass _obj' pos qname @@ -810,11 +901,14 @@ touchManagedPtr _obj return result' +data WidgetPathIterHasQclassMethodInfo +instance (signature ~ (Int32 -> Word32 -> m Bool), MonadIO m) => MethodInfo WidgetPathIterHasQclassMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterHasQclass + -- method WidgetPath::iter_has_qname -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -828,10 +922,10 @@ widgetPathIterHasQname :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - Word32 -> -- qname - m Bool + WidgetPath -- _obj + -> Int32 -- pos + -> Word32 -- qname + -> m Bool -- result widgetPathIterHasQname _obj pos qname = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_iter_has_qname _obj' pos qname @@ -839,11 +933,14 @@ touchManagedPtr _obj return result' +data WidgetPathIterHasQnameMethodInfo +instance (signature ~ (Int32 -> Word32 -> m Bool), MonadIO m) => MethodInfo WidgetPathIterHasQnameMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterHasQname + -- method WidgetPath::iter_has_qregion -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -858,10 +955,10 @@ {-# DEPRECATED widgetPathIterHasQregion ["(Since version 3.14)","The use of regions is deprecated."]#-} widgetPathIterHasQregion :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - Word32 -> -- qname - m (Bool,[RegionFlags]) + WidgetPath -- _obj + -> Int32 -- pos + -> Word32 -- qname + -> m (Bool,[RegionFlags]) -- result widgetPathIterHasQregion _obj pos qname = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj flags <- allocMem :: IO (Ptr CUInt) @@ -873,11 +970,14 @@ freeMem flags return (result', flags'') +data WidgetPathIterHasQregionMethodInfo +instance (signature ~ (Int32 -> Word32 -> m (Bool,[RegionFlags])), MonadIO m) => MethodInfo WidgetPathIterHasQregionMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterHasQregion + -- method WidgetPath::iter_has_region -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -892,10 +992,10 @@ {-# DEPRECATED widgetPathIterHasRegion ["(Since version 3.14)","The use of regions is deprecated."]#-} widgetPathIterHasRegion :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m (Bool,[RegionFlags]) + WidgetPath -- _obj + -> Int32 -- pos + -> T.Text -- name + -> m (Bool,[RegionFlags]) -- result widgetPathIterHasRegion _obj pos name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -909,11 +1009,14 @@ freeMem flags return (result', flags'') +data WidgetPathIterHasRegionMethodInfo +instance (signature ~ (Int32 -> T.Text -> m (Bool,[RegionFlags])), MonadIO m) => MethodInfo WidgetPathIterHasRegionMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterHasRegion + -- method WidgetPath::iter_list_classes -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -926,9 +1029,9 @@ widgetPathIterListClasses :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m [T.Text] + WidgetPath -- _obj + -> Int32 -- pos + -> m [T.Text] -- result widgetPathIterListClasses _obj pos = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_iter_list_classes _obj' pos @@ -939,11 +1042,14 @@ touchManagedPtr _obj return result'' +data WidgetPathIterListClassesMethodInfo +instance (signature ~ (Int32 -> m [T.Text]), MonadIO m) => MethodInfo WidgetPathIterListClassesMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterListClasses + -- method WidgetPath::iter_list_regions -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -956,9 +1062,9 @@ {-# DEPRECATED widgetPathIterListRegions ["(Since version 3.14)","The use of regions is deprecated."]#-} widgetPathIterListRegions :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m [T.Text] + WidgetPath -- _obj + -> Int32 -- pos + -> m [T.Text] -- result widgetPathIterListRegions _obj pos = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_iter_list_regions _obj' pos @@ -969,11 +1075,14 @@ touchManagedPtr _obj return result'' +data WidgetPathIterListRegionsMethodInfo +instance (signature ~ (Int32 -> m [T.Text]), MonadIO m) => MethodInfo WidgetPathIterListRegionsMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterListRegions + -- method WidgetPath::iter_remove_class -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -987,10 +1096,10 @@ widgetPathIterRemoveClass :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m () + WidgetPath -- _obj + -> Int32 -- pos + -> T.Text -- name + -> m () -- result widgetPathIterRemoveClass _obj pos name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -999,11 +1108,14 @@ freeMem name' return () +data WidgetPathIterRemoveClassMethodInfo +instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m) => MethodInfo WidgetPathIterRemoveClassMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterRemoveClass + -- method WidgetPath::iter_remove_region -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1017,10 +1129,10 @@ {-# DEPRECATED widgetPathIterRemoveRegion ["(Since version 3.14)","The use of regions is deprecated."]#-} widgetPathIterRemoveRegion :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m () + WidgetPath -- _obj + -> Int32 -- pos + -> T.Text -- name + -> m () -- result widgetPathIterRemoveRegion _obj pos name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -1029,11 +1141,14 @@ freeMem name' return () +data WidgetPathIterRemoveRegionMethodInfo +instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m) => MethodInfo WidgetPathIterRemoveRegionMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterRemoveRegion + -- method WidgetPath::iter_set_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1047,10 +1162,10 @@ widgetPathIterSetName :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m () + WidgetPath -- _obj + -> Int32 -- pos + -> T.Text -- name + -> m () -- result widgetPathIterSetName _obj pos name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -1059,11 +1174,14 @@ freeMem name' return () +data WidgetPathIterSetNameMethodInfo +instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m) => MethodInfo WidgetPathIterSetNameMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterSetName + -- method WidgetPath::iter_set_object_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1077,10 +1195,10 @@ widgetPathIterSetObjectType :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - GType -> -- type - m () + WidgetPath -- _obj + -> Int32 -- pos + -> GType -- type_ + -> m () -- result widgetPathIterSetObjectType _obj pos type_ = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let type_' = gtypeToCGType type_ @@ -1088,11 +1206,14 @@ touchManagedPtr _obj return () +data WidgetPathIterSetObjectTypeMethodInfo +instance (signature ~ (Int32 -> GType -> m ()), MonadIO m) => MethodInfo WidgetPathIterSetObjectTypeMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterSetObjectType + -- method WidgetPath::iter_set_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1106,10 +1227,10 @@ widgetPathIterSetState :: (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - [StateFlags] -> -- state - m () + WidgetPath -- _obj + -> Int32 -- pos + -> [StateFlags] -- state + -> m () -- result widgetPathIterSetState _obj pos state = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let state' = gflagsToWord state @@ -1117,11 +1238,14 @@ touchManagedPtr _obj return () +data WidgetPathIterSetStateMethodInfo +instance (signature ~ (Int32 -> [StateFlags] -> m ()), MonadIO m) => MethodInfo WidgetPathIterSetStateMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathIterSetState + -- method WidgetPath::length -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1133,19 +1257,22 @@ widgetPathLength :: (MonadIO m) => - WidgetPath -> -- _obj - m Int32 + WidgetPath -- _obj + -> m Int32 -- result widgetPathLength _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_length _obj' touchManagedPtr _obj return result +data WidgetPathLengthMethodInfo +instance (signature ~ (m Int32), MonadIO m) => MethodInfo WidgetPathLengthMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathLength + -- method WidgetPath::prepend_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1158,9 +1285,9 @@ widgetPathPrependType :: (MonadIO m) => - WidgetPath -> -- _obj - GType -> -- type - m () + WidgetPath -- _obj + -> GType -- type_ + -> m () -- result widgetPathPrependType _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let type_' = gtypeToCGType type_ @@ -1168,11 +1295,14 @@ touchManagedPtr _obj return () +data WidgetPathPrependTypeMethodInfo +instance (signature ~ (GType -> m ()), MonadIO m) => MethodInfo WidgetPathPrependTypeMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathPrependType + -- method WidgetPath::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gtk" "WidgetPath" -- throws : False -- Skip return : False @@ -1184,8 +1314,8 @@ widgetPathRef :: (MonadIO m) => - WidgetPath -> -- _obj - m WidgetPath + WidgetPath -- _obj + -> m WidgetPath -- result widgetPathRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_ref _obj' @@ -1194,11 +1324,14 @@ touchManagedPtr _obj return result' +data WidgetPathRefMethodInfo +instance (signature ~ (m WidgetPath), MonadIO m) => MethodInfo WidgetPathRefMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathRef + -- method WidgetPath::to_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1210,8 +1343,8 @@ widgetPathToString :: (MonadIO m) => - WidgetPath -> -- _obj - m T.Text + WidgetPath -- _obj + -> m T.Text -- result widgetPathToString _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_to_string _obj' @@ -1221,11 +1354,14 @@ touchManagedPtr _obj return result' +data WidgetPathToStringMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo WidgetPathToStringMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathToString + -- method WidgetPath::unref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1237,12 +1373,62 @@ widgetPathUnref :: (MonadIO m) => - WidgetPath -> -- _obj - m () + WidgetPath -- _obj + -> m () -- result widgetPathUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gtk_widget_path_unref _obj' touchManagedPtr _obj return () + +data WidgetPathUnrefMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo WidgetPathUnrefMethodInfo WidgetPath signature where + overloadedMethod _ = widgetPathUnref + +type family ResolveWidgetPathMethod (t :: Symbol) (o :: *) :: * where + ResolveWidgetPathMethod "appendForWidget" o = WidgetPathAppendForWidgetMethodInfo + ResolveWidgetPathMethod "appendType" o = WidgetPathAppendTypeMethodInfo + ResolveWidgetPathMethod "appendWithSiblings" o = WidgetPathAppendWithSiblingsMethodInfo + ResolveWidgetPathMethod "copy" o = WidgetPathCopyMethodInfo + ResolveWidgetPathMethod "free" o = WidgetPathFreeMethodInfo + ResolveWidgetPathMethod "hasParent" o = WidgetPathHasParentMethodInfo + ResolveWidgetPathMethod "isType" o = WidgetPathIsTypeMethodInfo + ResolveWidgetPathMethod "iterAddClass" o = WidgetPathIterAddClassMethodInfo + ResolveWidgetPathMethod "iterAddRegion" o = WidgetPathIterAddRegionMethodInfo + ResolveWidgetPathMethod "iterClearClasses" o = WidgetPathIterClearClassesMethodInfo + ResolveWidgetPathMethod "iterClearRegions" o = WidgetPathIterClearRegionsMethodInfo + ResolveWidgetPathMethod "iterGetName" o = WidgetPathIterGetNameMethodInfo + ResolveWidgetPathMethod "iterGetObjectType" o = WidgetPathIterGetObjectTypeMethodInfo + ResolveWidgetPathMethod "iterGetSiblingIndex" o = WidgetPathIterGetSiblingIndexMethodInfo + ResolveWidgetPathMethod "iterGetSiblings" o = WidgetPathIterGetSiblingsMethodInfo + ResolveWidgetPathMethod "iterGetState" o = WidgetPathIterGetStateMethodInfo + ResolveWidgetPathMethod "iterHasClass" o = WidgetPathIterHasClassMethodInfo + ResolveWidgetPathMethod "iterHasName" o = WidgetPathIterHasNameMethodInfo + ResolveWidgetPathMethod "iterHasQclass" o = WidgetPathIterHasQclassMethodInfo + ResolveWidgetPathMethod "iterHasQname" o = WidgetPathIterHasQnameMethodInfo + ResolveWidgetPathMethod "iterHasQregion" o = WidgetPathIterHasQregionMethodInfo + ResolveWidgetPathMethod "iterHasRegion" o = WidgetPathIterHasRegionMethodInfo + ResolveWidgetPathMethod "iterListClasses" o = WidgetPathIterListClassesMethodInfo + ResolveWidgetPathMethod "iterListRegions" o = WidgetPathIterListRegionsMethodInfo + ResolveWidgetPathMethod "iterRemoveClass" o = WidgetPathIterRemoveClassMethodInfo + ResolveWidgetPathMethod "iterRemoveRegion" o = WidgetPathIterRemoveRegionMethodInfo + ResolveWidgetPathMethod "iterSetName" o = WidgetPathIterSetNameMethodInfo + ResolveWidgetPathMethod "iterSetObjectType" o = WidgetPathIterSetObjectTypeMethodInfo + ResolveWidgetPathMethod "iterSetState" o = WidgetPathIterSetStateMethodInfo + ResolveWidgetPathMethod "length" o = WidgetPathLengthMethodInfo + ResolveWidgetPathMethod "prependType" o = WidgetPathPrependTypeMethodInfo + ResolveWidgetPathMethod "ref" o = WidgetPathRefMethodInfo + ResolveWidgetPathMethod "toString" o = WidgetPathToStringMethodInfo + ResolveWidgetPathMethod "unref" o = WidgetPathUnrefMethodInfo + ResolveWidgetPathMethod "getObjectType" o = WidgetPathGetObjectTypeMethodInfo + ResolveWidgetPathMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWidgetPathMethod t WidgetPath, MethodInfo info WidgetPath p) => IsLabelProxy t (WidgetPath -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWidgetPathMethod t WidgetPath, MethodInfo info WidgetPath p) => IsLabel t (WidgetPath -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/Gtk/Structs/WidgetPath.hs-boot b/GI/Gtk/Structs/WidgetPath.hs-boot --- a/GI/Gtk/Structs/WidgetPath.hs-boot +++ b/GI/Gtk/Structs/WidgetPath.hs-boot @@ -9,3 +9,38 @@ newtype WidgetPath = WidgetPath (ForeignPtr WidgetPath) instance BoxedObject WidgetPath where +data WidgetPathAppendForWidgetMethodInfo +data WidgetPathAppendTypeMethodInfo +data WidgetPathAppendWithSiblingsMethodInfo +data WidgetPathCopyMethodInfo +data WidgetPathFreeMethodInfo +data WidgetPathGetObjectTypeMethodInfo +data WidgetPathHasParentMethodInfo +data WidgetPathIsTypeMethodInfo +data WidgetPathIterAddClassMethodInfo +data WidgetPathIterAddRegionMethodInfo +data WidgetPathIterClearClassesMethodInfo +data WidgetPathIterClearRegionsMethodInfo +data WidgetPathIterGetNameMethodInfo +data WidgetPathIterGetObjectTypeMethodInfo +data WidgetPathIterGetSiblingIndexMethodInfo +data WidgetPathIterGetSiblingsMethodInfo +data WidgetPathIterGetStateMethodInfo +data WidgetPathIterHasClassMethodInfo +data WidgetPathIterHasNameMethodInfo +data WidgetPathIterHasQclassMethodInfo +data WidgetPathIterHasQnameMethodInfo +data WidgetPathIterHasQregionMethodInfo +data WidgetPathIterHasRegionMethodInfo +data WidgetPathIterListClassesMethodInfo +data WidgetPathIterListRegionsMethodInfo +data WidgetPathIterRemoveClassMethodInfo +data WidgetPathIterRemoveRegionMethodInfo +data WidgetPathIterSetNameMethodInfo +data WidgetPathIterSetObjectTypeMethodInfo +data WidgetPathIterSetStateMethodInfo +data WidgetPathLengthMethodInfo +data WidgetPathPrependTypeMethodInfo +data WidgetPathRefMethodInfo +data WidgetPathToStringMethodInfo +data WidgetPathUnrefMethodInfo diff --git a/GI/Gtk/Structs/WindowGeometryInfo.hs b/GI/Gtk/Structs/WindowGeometryInfo.hs --- a/GI/Gtk/Structs/WindowGeometryInfo.hs +++ b/GI/Gtk/Structs/WindowGeometryInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -28,5 +29,16 @@ newtype WindowGeometryInfo = WindowGeometryInfo (ForeignPtr WindowGeometryInfo) noWindowGeometryInfo :: Maybe WindowGeometryInfo noWindowGeometryInfo = Nothing + +type family ResolveWindowGeometryInfoMethod (t :: Symbol) (o :: *) :: * where + ResolveWindowGeometryInfoMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWindowGeometryInfoMethod t WindowGeometryInfo, MethodInfo info WindowGeometryInfo p) => IsLabelProxy t (WindowGeometryInfo -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWindowGeometryInfoMethod t WindowGeometryInfo, MethodInfo info WindowGeometryInfo p) => IsLabel t (WindowGeometryInfo -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/gi-gtk.cabal b/gi-gtk.cabal --- a/gi-gtk.cabal +++ b/gi-gtk.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-gtk -version: 0.3.18.12 +version: 0.3.18.13 synopsis: Gtk bindings description: Bindings for Gtk, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,8 +14,8 @@ library default-language: Haskell2010 - default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts - other-extensions: PatternSynonyms ScopedTypeVariables, ViewPatterns + default-extensions: ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts + other-extensions: PatternSynonyms ViewPatterns ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations exposed-modules: GI.Gtk.Types GI.Gtk @@ -351,15 +351,15 @@ GI.Gtk.Structs.WindowGeometryInfo pkgconfig-depends: gtk+-3.0 >= 3.18 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.12 && < 1, - gi-atk >= 0.2.18.12 && < 0.2.19, - gi-glib >= 0.2.46.12 && < 0.2.47, - gi-gobject >= 0.2.46.12 && < 0.2.47, - gi-gdk >= 0.3.18.12 && < 0.3.19, - gi-gdkpixbuf >= 0.2.32.12 && < 0.2.33, - gi-gio >= 0.2.46.12 && < 0.2.47, - gi-pango >= 0.1.38.12 && < 0.1.39, - gi-cairo >= 0.1.14.12 && < 0.1.15, + haskell-gi-base >= 0.13 && < 1, + gi-atk >= 0.2.18.13 && < 0.2.19, + gi-glib >= 0.2.46.13 && < 0.2.47, + gi-gobject >= 0.2.46.13 && < 0.2.47, + gi-gdk >= 0.3.18.13 && < 0.3.19, + gi-gdkpixbuf >= 0.2.32.13 && < 0.2.33, + gi-gio >= 0.2.46.13 && < 0.2.47, + gi-pango >= 0.1.38.13 && < 0.1.39, + gi-cairo >= 0.1.14.13 && < 0.1.15, bytestring >= 0.10, containers >= 0.5, text >= 1.0,